Jason's Gem: Routine at BF85

BF85: Routine at BF85

Used by the routine at CA6F.
BF85	LD HL,$5800
BF88	LD DE,$5801
BF8B	LD BC,$0300
BF8E	LD A,$05
BF90	LD (HL),A
BF91	LDIR
BF93	LD HL,$5821
BF96	LD B,$13
BF98	PUSH BC
BF99	PUSH HL
BF9A	LD A,$0F
BF9C	LD (HL),A
BF9D	PUSH HL
BF9E	POP DE
BF9F	INC DE
BFA0	LD BC,$0017
BFA3	LDIR
BFA5	POP HL
BFA6	LD DE,$0020
BFA9	ADD HL,DE
BFAA	POP BC
BFAB	DJNZ $BF98
BFAD	RET	Return.
This entry point is used by the routine at CA6F.
BFAE	LD HL,$4020
BFB1	LD B,$98
BFB3	PUSH BC
BFB4	LD A,$0F
BFB6	LD (HL),A
BFB7	LD A,$F0
BFB9	PUSH HL
BFBA	LD DE,$0019
BFBD	ADD HL,DE
BFBE	LD (HL),A
BFBF	LD DE,$0006
BFC2	ADD HL,DE
BFC3	LD A,$0F
BFC5	LD (HL),A
BFC6	POP HL
BFC7	CALL $BDE4
BFCA	POP BC
BFCB	DJNZ $BFB3
BFCD	LD HL,$4400
BFD0	CALL $BFE6
BFD3	LD HL,$5080
BFD6	CALL $BFE6
BFD9	CALL $C865
BFDC	CALL $7AA8
BFDF	CALL $CD91
BFE2	CALL $7387
BFE5	RET
BFE6	LD B,$04
BFE8	PUSH BC
BFE9	PUSH HL
BFEA	LD A,$0F
BFEC	LD (HL),A
BFED	INC HL
BFEE	PUSH HL
BFEF	POP DE
BFF0	INC DE
BFF1	LD BC,$001E
BFF4	LD A,$FF
BFF6	LD (HL),A
BFF7	LDIR
BFF9	POP HL
BFFA	CALL $BDE4
BFFD	POP BC
BFFE	DJNZ $BFE8
C000	RET
C001	CALL $BF85
C004	CALL $BFAE
C007	LD BC,$4021
C00A	LD A,$FF
C00C	LD (BC),A
C00D	CALL $C090
C010	LD A,$7F
C012	IN A,($FE)
C014	AND $01
C016	RET Z
C017	LD A,$EF
C019	IN A,($FE)
C01B	AND $10
C01D	CALL Z,$C040
C020	LD A,$F7
C022	IN A,($FE)
C024	AND $10
C026	CALL Z,$C082
C029	LD A,$EF
C02B	IN A,($FE)
C02D	AND $08
C02F	CALL Z,$C061
C032	LD A,$EF
C034	IN A,($FE)
C036	AND $04
C038	CALL Z,$C089
C03B	HALT
C03C	HALT
C03D	JP $C00A
C040	PUSH BC
C041	POP HL
C042	XOR A
C043	LD (HL),A
C044	CALL $BDE4
C047	CALL $BDE4
C04A	CALL $BDE4
C04D	CALL $BDE4
C050	CALL $BDE4
C053	CALL $BDE4
C056	CALL $BDE4
C059	CALL $BDE4
C05C	PUSH HL
C05D	POP BC
C05E	HALT
C05F	HALT
C060	RET
C061	PUSH BC
C062	POP HL
C063	XOR A
C064	LD (HL),A
C065	CALL $BE0E
C068	CALL $BE0E
C06B	CALL $BE0E
C06E	CALL $BE0E
C071	CALL $BE0E
C074	CALL $BE0E
C077	CALL $BE0E
C07A	CALL $BE0E
C07D	PUSH HL
C07E	POP BC
C07F	HALT
C080	HALT
C081	RET
C082	XOR A
C083	HALT
C084	HALT
C085	HALT
C086	LD (BC),A
C087	DEC BC
C088	RET
C089	XOR A
C08A	HALT
C08B	HALT
C08C	HALT
C08D	LD (BC),A
C08E	INC BC
C08F	RET
C090	PUSH BC
C091	PUSH BC
C092	LD A,$02
C094	CALL $1601
C097	LD A,$16
C099	RST $10
C09A	LD A,$00
C09C	RST $10
C09D	LD A,$00
C09F	RST $10
C0A0	POP BC
C0A1	CALL $2D2B
C0A4	CALL $2DE3
C0A7	HALT
C0A8	POP BC
C0A9	RET
This entry point is used by the routines at BC74, C3FB and CA6F.
C0AA	LD A,$02
C0AC	CALL $1601
C0AF	LD A,$16
C0B1	RST $10
C0B2	LD A,$01
C0B4	RST $10
C0B5	LD A,$01
C0B7	RST $10
C0B8	CALL $BF85
C0BB	LD HL,($5B6F)
C0BE	PUSH HL
C0BF	POP DE
C0C0	LD B,$13
C0C2	PUSH BC
C0C3	PUSH HL
C0C4	LD B,$03
C0C6	PUSH BC
C0C7	LD B,$08
C0C9	LD C,$80
C0CB	LD A,(DE)
C0CC	AND C
C0CD	CALL $C0EF
C0D0	RRC C
C0D2	INC HL
C0D3	CALL $CE14
C0D6	DJNZ $C0CB
C0D8	INC DE
C0D9	POP BC
C0DA	DJNZ $C0C6
C0DC	CALL $C12A
C0DF	POP HL
C0E0	POP BC
C0E1	DJNZ $C0C2
C0E3	INC DE
C0E4	LD A,($5B7F)
C0E7	AND A
C0E8	CALL Z,$C19B
C0EB	CALL $BFAE
C0EE	RET
C0EF	PUSH HL
C0F0	PUSH DE
C0F1	PUSH BC
C0F2	PUSH AF
C0F3	LD A,$20
C0F5	JP Z,$C116
C0F8	CALL $CE14
C0FB	LD A,($5B71)
C0FE	LD B,A
C0FF	LD A,($5B72)
C102	LD C,A
C103	LD A,B
C104	LD A,$10
C106	RST $10
C107	LD A,C
C108	RST $10
C109	LD A,$11
C10B	RST $10
C10C	LD A,$01
C10E	RST $10
C10F	LD A,B
C110	RST $10
C111	POP AF
C112	POP BC
C113	POP DE
C114	POP HL
C115	RET
C116	LD A,$11
C118	RST $10
C119	LD A,$01
C11B	RST $10
C11C	LD A,$10
C11E	RST $10
C11F	LD A,$07
C121	RST $10
C122	LD A,$20
C124	RST $10
C125	POP AF
C126	POP BC
C127	POP DE
C128	POP HL
C129	RET
C12A	PUSH DE
C12B	PUSH BC
C12C	PUSH AF
C12D	LD A,$11
C12F	RST $10
C130	LD A,$00
C132	RST $10
C133	LD A,$10
C135	RST $10
C136	LD A,$05
C138	RST $10
C139	LD A,$17
C13B	RST $10
C13C	LD A,$01
C13E	RST $10
C13F	LD A,$20
C141	RST $10
C142	POP AF
C143	POP BC
C144	POP DE
C145	RET
This entry point is used by the routines at BDE4, C3FB and CA6F.
C146	LD A,H
C147	AND $18
C149	SRA A
C14B	SRA A
C14D	SRA A
C14F	ADD A,$58
C151	LD H,A
C152	RET
This entry point is used by the routine at BDE4.
C153	PUSH HL
C154	LD A,$01
C156	LD ($5B74),A
C159	CALL $C146
C15C	LD A,(HL)
C15D	POP HL
C15E	AND $07
C160	CP $03
C162	JP Z,$BEA3
C165	CP $04
C167	JP Z,$BEA3
C16A	CP $05
C16C	JP Z,$BEA3
C16F	XOR A
C170	LD ($5B74),A
C173	CALL $C289
C176	RET
This entry point is used by the routine at BDE4.
C177	PUSH HL
C178	LD A,$01
C17A	LD ($5B75),A
C17D	CALL $C146
C180	LD A,(HL)
C181	POP HL
C182	AND $07
C184	CP $03
C186	JP Z,$BEC1
C189	CP $04
C18B	JP Z,$BEC1
C18E	CP $05
C190	JP Z,$BEC1
C193	XOR A
C194	LD ($5B75),A
C197	CALL $C289
C19A	RET
C19B	PUSH DE
C19C	PUSH DE
C19D	LD A,$16
C19F	RST $10
C1A0	POP DE
C1A1	LD A,(DE)
C1A2	RST $10
C1A3	LD A,$17
C1A5	RST $10
C1A6	LD A,$10
C1A8	RST $10
C1A9	LD A,$06
C1AB	RST $10
C1AC	LD A,$11
C1AE	RST $10
C1AF	LD A,$02
C1B1	RST $10
C1B2	LD A,$12
C1B4	RST $10
C1B5	LD A,$01
C1B7	RST $10
C1B8	LD A,$20
C1BA	RST $10
C1BB	LD A,$10
C1BD	RST $10
C1BE	LD A,$02
C1C0	RST $10
C1C1	LD A,$11
C1C3	RST $10
C1C4	LD A,$06
C1C6	RST $10
C1C7	LD A,$20
C1C9	RST $10
C1CA	LD A,$13
C1CC	RST $10
C1CD	LD A,$01
C1CF	RST $10
C1D0	LD A,$16
C1D2	RST $10
C1D3	POP DE
C1D4	LD A,(DE)
C1D5	INC A
C1D6	RST $10
C1D7	LD A,$17
C1D9	RST $10
C1DA	LD A,$20
C1DC	RST $10
C1DD	LD A,$11
C1DF	RST $10
C1E0	LD A,$02
C1E2	RST $10
C1E3	LD A,$10
C1E5	RST $10
C1E6	LD A,$06
C1E8	RST $10
C1E9	LD A,$20
C1EB	RST $10
C1EC	LD A,$13
C1EE	RST $10
C1EF	LD A,$00
C1F1	RST $10
C1F2	RET
This entry point is used by the routine at BC74.
C1F3	LD HL,($5B68)
C1F6	XOR A
C1F7	LD ($5B76),A
C1FA	CALL $C146
C1FD	LD A,(HL)
C1FE	CP $B2
C200	RET NZ
C201	LD A,$01
C203	LD ($5B76),A
C206	RET
This entry point is used by the routine at BC74.
C207	LD HL,$5B0E
C20A	LD DE,$5B0F
C20D	LD (HL),$00
C20F	LD BC,$0055
C212	LDIR
C214	HALT
C215	HALT
C216	CALL $67E8
C219	LD A,($5B6E)
C21C	INC A
C21D	LD ($5B6E),A
C220	CP $0C
C222	JP Z,$CC42
C225	LD HL,($5B6F)
C228	LD DE,$003C
C22B	ADD HL,DE
C22C	LD ($5B6F),HL
C22F	LD A,($5B71)
C232	INC A
C233	LD ($5B71),A
C236	CP $A5
C238	CALL Z,$C283
C23B	LD A,($5B72)
C23E	INC A
C23F	LD ($5B72),A
C242	CP $06
C244	CALL Z,$C2E1
C247	CALL $67E8
C24A	HALT
C24B	CALL $C32B
C24E	XOR A
C24F	OUT ($FE),A
C251	CALL $C9DE
C254	CALL $C36B
C257	CALL $C0AA
C25A	CALL $C96B
C25D	LD HL,($5B68)
C260	LD DE,$0017
C263	SBC HL,DE
C265	LD ($5B68),HL
C268	LD ($5B79),HL
C26B	LD DE,$0032
C26E	LD HL,($5B77)
C271	ADD HL,DE
C272	LD ($5B77),HL
C275	LD A,$00
C277	LD ($5B63),A
C27A	LD ($5B5A),A
C27D	CALL $6978
C280	JP $BCBD
This entry point is used by the routine at CA6F.
C283	LD A,$98
C285	LD ($5B71),A
C288	RET
This entry point is used by the routines at BDE4 and C98F.
C289	CALL $67E8
C28C	LD A,$01
C28E	LD ($5B7B),A
C291	HALT
C292	HALT
C293	HALT
C294	CALL $C2B5
C297	CALL WhoopsPrint
C29A	LD A,($5B90)
C29D	DEC A
C29E	LD ($5B90),A
C2A1	RET Z
C2A2	CALL $C0AA
C2A5	CALL $C96B
C2A8	CALL $6978
C2AB	LD HL,($5B79)
C2AE	LD A,($5BA6)
C2B1	LD ($5B68),HL
C2B4	RET
This entry point is used by the routines at C3FB and CA6F.
C2B5	PUSH HL
C2B6	PUSH DE
C2B7	PUSH BC
C2B8	PUSH AF
C2B9	LD A,$07
C2BB	LD ($5C48),A
C2BE	LD A,$00
C2C0	OUT ($FE),A
C2C2	LD B,$05
C2C4	PUSH BC
C2C5	LD B,$14
C2C7	PUSH BC
C2C8	PUSH BC
C2C9	POP DE
C2CA	LD E,D
C2CB	LD D,$00
C2CD	LD HL,$00C8
C2D0	CALL $03B5
C2D3	POP BC
C2D4	DJNZ $C2C7
C2D6	POP BC
C2D7	DJNZ $C2C4
C2D9	CALL $C33E
C2DC	POP AF
C2DD	POP BC
C2DE	POP DE
C2DF	POP AF
C2E0	RET
This entry point is used by the routine at CA6F.
C2E1	LD A,$03
C2E3	LD ($5B72),A
C2E6	RET