180: Routine at B6C2

B6C2: The Final

Used by the routine at AA7B.
TheFinal	B6C2	LD HL,$B46F
	B6C5	LD DE,$B179
	B6C8	LD BC,$0010
	B6CB	LDIR
	B6CD	LD HL,$B46F
	B6D0	LD DE,$B707
	B6D3	LD BC,$0010
	B6D6	LDIR
	B6D8	CALL $B548
	B6DB	CALL PrintString_Loop	Call PrintString_Loop.
	B6DE	DEFB $10,$07	INK: WHITE.
	B6E0	DEFB $11,$04	PAPER: GREEN.
	B6E2	DEFB $12,$01	FLASH: ON.
	B6E4	DEFB $16,$05,$0F	PRINT AT: 05, 0F.
	B6E7	DEFM "THE FINAL"	"THE FINAL".
	B6F0	DEFB $16,$08,$0D	PRINT AT: 08, 0D.
	B6F3	DEFB $10,$00	INK: BLACK.
	B6F5	DEFM "YOUR OPPONENT"	"YOUR OPPONENT".
	B702	DEFB $16,$12,$0C	PRINT AT: 12, 0C.
	B705	DEFB $10,$07	INK: WHITE.
	B707	DEFM "0000000000000000"	"0000000000000000".
	B717	DEFB $FF	Terminator.
	B718	LD HL,$B46F
	B71B	LD DE,$0011
	B71E	ADD HL,DE
	B71F	LD C,(HL)
	B720	INC HL
	B721	LD B,(HL)
	B722	LD ($9AAB),BC
	B726	INC HL
	B727	LD C,(HL)
	B728	INC HL
	B729	LD B,(HL)
	B72A	LD ($9AAE),BC
	B72E	LD BC,($9AAB)
	B732	LD DE,$0A10
	B735	CALL DrawOpponentImage
	B738	LD A,$01
	B73A	LD ($9AB4),A
	B73D	INC A
	B73E	CALL $CAEB
	B741	RET	Return.