Blizzard Pass: Routine at 655E

655E: Routine at 655E

Used by the routine at 63D4.
655E	LD A,($5B97)
6561	LD B,A
6562	LD A,$16
6564	SUB B
6565	LD B,A
6566	LD A,($655C)
6569	CP B
656A	JR C,$6582
656C	LD HL,($655A)
656F	LD ($5C78),HL
6572	LD A,($5C04)
6575	CP $FF
6577	JR NZ,$6582
6579	CALL $0052
657C	LD A,($5C79)
657F	OR A
6580	JR Z,$6572
6582	LD HL,$655C
6585	INC (HL)
6586	LD A,($5B97)
6589	CALL $5F16
658C	PUSH DE
658D	INC A
658E	CALL $5F16
6591	EX DE,HL
6592	POP DE
6593	LD B,$08
6595	PUSH HL
6596	PUSH BC
6597	PUSH DE
6598	LD BC,$0020
659B	LDIR
659D	POP DE
659E	POP BC
659F	POP HL
65A0	INC H
65A1	INC D
65A2	DJNZ $6595
65A4	CP $13
65A6	JR Z,$65AE
65A8	CP $17
65AA	JR NZ,$6589
65AC	JR $65BE
65AE	PUSH AF
This entry point is used by the routine at 6B41.
65AF	LD A,($6186)
65B2	OR A
65B3	JR Z,$65BB
65B5	POP AF
65B6	LD HL,$5060
65B9	JR $65C1
65BB	POP AF
65BC	JR $6589
65BE	LD HL,$50E0
65C1	PUSH HL
65C2	POP DE
65C3	INC DE
65C4	LD B,$08
65C6	PUSH DE
65C7	PUSH HL
65C8	PUSH BC
65C9	LD (HL),$00
65CB	LD BC,$001F
65CE	LDIR
65D0	POP BC
65D1	POP HL
65D2	POP DE
65D3	INC H
65D4	INC D
65D5	DJNZ $65C6
65D7	LD A,($6186)
65DA	OR A
65DB	JR Z,$65E2
65DD	LD HL,$5060
65E0	JR $65E5
65E2	LD HL,$50E0
65E5	LD ($5B87),HL
65E8	XOR A
65E9	LD ($5B8A),A
65EC	RET
This entry point is used by the routines at 6187 and 662D.
65ED	LD A,($66D6)
65F0	OR A
65F1	JR Z,$65F5
65F3	LD A,$0C
65F5	DEC A
65F6	INC A
65F7	LD HL,$5B97
65FA	LD B,(HL)
65FB	CP B
65FC	RET Z
65FD	CALL $5F16
6600	PUSH DE
6601	POP HL
6602	INC DE
6603	LD B,$08
This entry point is used by the routine at 6B41.
6605	PUSH HL
6606	PUSH DE
6607	PUSH BC
6608	LD BC,$001F
660B	LD (HL),$00
660D	LDIR
660F	POP BC
6610	POP DE
6611	POP HL
6612	INC D
6613	INC H
6614	DJNZ $6605
6616	JR $65F6