180: Routine at B5BA

B5BA: Quarter Finals

Used by the routine at AA0A.
QuarterFinals	B5BA	LD HL,($9B21)	Copy BC 0010 bytes of data from Pointer_CurrentOpponentData to Messaging_OpponentName_Wins.
	B5BD	LD DE,$B179
	B5C0	LD BC,$0010
	B5C3	LDIR
	B5C5	LD HL,($9B21)	Copy BC 0010 bytes of data from Pointer_CurrentOpponentData to B605.
	B5C8	LD DE,$B605
	B5CB	LD BC,$0010
	B5CE	LDIR
	B5D0	CALL $B548	Call B548.
	B5D3	CALL PrintString_Loop	Call PrintString_Loop.
	B5D6	DEFB $10,$07	INK: WHITE.
	B5D8	DEFB $11,$04	PAPER: GREEN.
	B5DA	DEFB $12,$01	FLASH: ON.
	B5DC	DEFB $16,$05,$0C	PRINT AT: 05, 0C.
	B5DF	DEFM "QUARTER FINALS"
	B5EE	DEFB $16,$08,$0D	PRINT AT: 08, 0D.
	B5F1	DEFB $10,$00	INK: BLACK.
	B5F3	DEFM "YOUR OPPONENT"
	B600	DEFB $16,$12,$0C	PRINT AT: 12, 0C.
	B603	DEFB $10,$07	INK: WHITE.
	B605	DEFM "0000000000000000"	"0000000000000000".
	B615	DEFB $FF	Terminator.
	B616	LD HL,($9B21)	HL=*Pointer_CurrentOpponentData.
	B619	LD DE,$0011	HL+=0011.
	B61C	ADD HL,DE	HL+=0011.
	B61D	LD C,(HL)	C=*HL.
	B61E	INC HL	Increment HL by one.
	B61F	LD B,(HL)	B=*HL.
	B620	LD ($9AAB),BC	Write BC to *CurrentOpponent_Portrait.
	B624	INC HL	Increment HL by one.
	B625	LD C,(HL)	C=*HL.
	B626	INC HL	Increment HL by one.
	B627	LD B,(HL)	B=*HL.
	B628	LD ($9AAE),BC	Write BC to *CurrentOpponent_PubScene.
	B62C	LD BC,($9AAB)	BC=*CurrentOpponent_Portrait.
	B630	LD DE,$0A10	DE=0A10.
	B633	CALL Draw_OpponentPortrait	Call Draw_OpponentPortrait.
	B636	LD A,$04	Write 04 to *9AB4.
	B638	LD ($9AB4),A	Write 04 to *9AB4.
	B63B	XOR A	A=00.
	B63C	CALL $CAEB	Call CAEB.
	B63F	RET	Return.