180: Routine at B640

B640: Semi Finals

Used by the routine at NextLeg.
SemiFinals	B640	LD HL,($9B23)
	B643	LD DE,$B179
	B646	LD BC,$0010
	B649	LDIR
	B64B	LD HL,($9B23)
	B64E	LD DE,$B687
	B651	LD BC,$0010
	B654	LDIR
	B656	CALL $B548
	B659	CALL PrintString_Loop	Call PrintString_Loop.
	B65C	DEFB $10,$07	INK: WHITE.
	B65E	DEFB $11,$04	PAPER: GREEN.
	B660	DEFB $12,$01	FLASH: ON.
	B662	DEFB $16,$05,$0E	PRINT AT: 05, 0E.
	B665	DEFM "SEMI FINALS"	"SEMI FINALS".
	B670	DEFB $16,$08,$0D	PRINT AT: 08, 0D.
	B673	DEFB $10,$00	INK: BLACK.
	B675	DEFM "YOUR OPPONENT"	"YOUR OPPONENT".
	B682	DEFB $16,$12,$0C	PRINT AT: 12, 0C.
	B685	DEFB $10,$07	INK: WHITE.
	B687	DEFM "0000000000000000"	"0000000000000000".
	B697	DEFB $FF	Terminator.
	B698	LD HL,($9B23)
	B69B	LD DE,$0011
	B69E	ADD HL,DE
	B69F	LD C,(HL)
	B6A0	INC HL
	B6A1	LD B,(HL)
	B6A2	LD ($9AAB),BC
	B6A6	INC HL
	B6A7	LD C,(HL)
	B6A8	INC HL
	B6A9	LD B,(HL)
	B6AA	LD ($9AAE),BC
	B6AE	LD BC,($9AAB)
	B6B2	LD DE,$0A10
	B6B5	CALL DrawOpponentImage
	B6B8	LD A,$02
	B6BA	LD ($9AB4),A
	B6BD	DEC A
	B6BE	CALL $CAEB
	B6C1	RET	Return.