Batty: Routine at BDCF

BDCF: Routine at BDCF

Used by the routine at StartGame.
BDCF	LD DE,$4000
BDD2	LD HL,$DA00
BDD5	LD B,$00
BDD7	LD A,$C0
BDD9	EX AF,AF'
BDDA	LD C,$20
BDDC	PUSH DE
BDDD	LDIR
BDDF	POP DE
BDE0	LD A,D
BDE1	INC D
BDE2	CPL
BDE3	AND $07
BDE5	JR NZ,$BDF1
BDE7	LD A,E
BDE8	ADD A,$20
BDEA	LD E,A
BDEB	JR C,$BDF1
BDED	LD A,D
BDEE	SUB $08
BDF0	LD D,A
BDF1	EX AF,AF'
BDF2	DEC A
BDF3	JR NZ,$BDD9
BDF5	RET
This entry point is used by the routine at StartGame.
BDF6	LD DE,$5800
BDF9	LD HL,$D700
BDFC	LD BC,$0300
BDFF	LDIR
BE01	RET
This entry point is used by the routine at 965D.
BE02	LD C,(HL)
BE03	LD A,(DE)
BE04	LD (HL),A
BE05	LD A,C
BE06	LD (DE),A
BE07	INC HL
BE08	INC DE
BE09	DJNZ $BE02
BE0B	RET
This entry point is used by the routine at StartGame.
BE0C	LD A,($B7F0)
BE0F	AND A
BE10	RET Z
BE11	LD DE,($9789)
BE15	PUSH DE
BE16	LD A,($B7F2)
BE19	CALL $9779
BE1C	POP DE
BE1D	LD BC,$6100
BE20	LD A,$B4
BE22	EX AF,AF'
BE23	LD A,(DE)
BE24	PUSH AF
BE25	LD A,(BC)
BE26	LD (HL),A
BE27	POP AF
BE28	LD (BC),A
BE29	INC HL
BE2A	INC DE
BE2B	INC BC
BE2C	EX AF,AF'
BE2D	DEC A
BE2E	JR NZ,$BE22
This entry point is used by the routine at StartGame.
BE30	LD HL,$B7E8
BE33	LD DE,$B7F0
BE36	LD B,$08
BE38	CALL $BE02
BE3B	LD HL,$B7A6
BE3E	LD DE,$B7C8
BE41	LD B,$0A
BE43	CALL $BE02
BE46	LD A,($B7E8)
BE49	AND A
BE4A	RET Z
BE4B	LD A,($B7E6)
BE4E	XOR $01
BE50	LD ($B7E6),A
BE53	RET
This entry point is used by the routine at StartGame.
BE54	CALL $9776
BE57	PUSH HL
BE58	CALL $B8B9
BE5B	POP HL
BE5C	LD B,$B4
BE5E	LD C,$00
BE60	LD A,(HL)
BE61	AND $A0
BE63	JR NZ,$BE66
BE65	INC C
BE66	INC HL
BE67	DJNZ $BE60
BE69	LD A,C
BE6A	LD ($B7E9),A
BE6D	RET
This entry point is used by the routine at StartGame.
BE6E	LD HL,$B7BC
BE71	LD DE,$B7EE
BE74	LD B,$03
BE76	LD A,(DE)
BE77	CP (HL)
BE78	RET C
BE79	JR NZ,$BE7F
BE7B	DEC DE
BE7C	DEC HL
BE7D	DJNZ $BE76
BE7F	LD DE,$B7BA
BE82	LD HL,$B7EC
BE85	LD BC,$0003
BE88	LDIR
BE8A	RET
This entry point is used by the routine at StartGame.
BE8B	LD HL,$8EE0
BE8E	LD A,($B7EA)
BE91	AND $03
BE93	ADD A,A
BE94	CALL PrintLine_9
BE97	LD E,(HL)
BE98	INC HL
BE99	LD D,(HL)
BE9A	LD ($BEA2),DE
BE9E	LD HL,$0F00
BEA1	LD DE,$C015
BEA4	CALL PrintLine_10
BEA7	CALL $B643
BEAA	LD A,$10
BEAC	ADD A,L
BEAD	LD L,A
BEAE	JR NZ,$BEA1
BEB0	LD L,$00
BEB2	LD A,H
BEB3	ADD A,$10
BEB5	LD H,A
BEB6	CP $CF
BEB8	JR NZ,$BEA1
BEBA	LD HL,$9F00
BEBD	LD DE,$6B8F
BEC0	EXX
BEC1	LD HL,$BF00
BEC4	LD DE,$6B3F
BEC7	LD B,$07
BEC9	PUSH BC
BECA	PUSH DE
BECB	LD L,$00
BECD	CALL PrintLine_10
BED0	CALL $B643
BED3	LD L,$F8
BED5	CALL PrintLine_10
BED8	CALL $B643
BEDB	POP DE
BEDC	LD A,$C8
BEDE	ADD A,H
BEDF	LD H,A
BEE0	EXX
BEE1	POP BC
BEE2	DJNZ $BEC9
BEE4	LD HL,$D941
BEE7	LD A,$04
BEE9	LD DE,$0020
BEEC	LD C,D
BEED	EX AF,AF'
BEEE	LD B,$1C
BEF0	PUSH HL
BEF1	RES 7,(HL)
BEF3	ADD HL,DE
BEF4	DJNZ $BEF1
BEF6	POP HL
BEF7	PUSH HL
BEF8	LD A,L
BEF9	ADD A,$1D
BEFB	LD L,A
BEFC	LD B,$1C
BEFE	RES 0,(HL)
BF00	ADD HL,DE
BF01	DJNZ $BEFE
BF03	POP HL
BF04	LD B,$07
BF06	ADD HL,BC
BF07	EX AF,AF'
BF08	DEC A
BF09	JR NZ,$BEED
BF0B	LD DE,$0020
BF0E	LD B,$06
BF10	LD HL,$D95E
BF13	LD A,($D95D)
BF16	LD (HL),A
BF17	ADD HL,DE
BF18	DJNZ $BF16
BF1A	LD HL,$BFE7
BF1D	EXX
BF1E	LD HL,$0700
BF21	EXX
BF22	LD E,(HL)
BF23	INC HL
BF24	LD D,(HL)
BF25	INC HL
BF26	PUSH DE
BF27	EXX
BF28	POP DE
BF29	CALL PrintLine_10
BF2C	CALL $B643
BF2F	LD A,$20
BF31	ADD A,L
BF32	LD L,A
BF33	JR NC,$BF21
BF35	LD HL,$DB01
BF38	LD DE,$BFF7
BF3B	LD B,$1E
BF3D	LD A,(DE)
BF3E	AND (HL)
BF3F	LD (HL),A
BF40	INC L
BF41	INC DE
BF42	DJNZ $BF3D
BF44	LD A,$08
BF46	LD ($9BC4),A
BF49	LD A,($B7E8)
BF4C	DEC A
BF4D	JR Z,$BF6A
BF4F	LD B,A
BF50	LD IX,$9BC2
BF54	PUSH BC
BF55	CALL $B684
BF58	CALL $9910
BF5B	LD A,($9BC4)
BF5E	ADD A,$10
BF60	CP $E9
BF62	JR NC,$BF67
BF64	LD ($9BC4),A
BF67	POP BC
BF68	DJNZ $BF54
BF6A	LD A,($B7E5)
BF6D	CP $02
BF6F	JR NZ,$BF7B
BF71	LD IX,$9BEE
BF75	CALL $B684
BF78	CALL $9910
BF7B	LD IX,$9BD4
BF7F	LD (IX+$02),$1C
BF83	LD (IX+$01),$01
BF87	CALL $B684
BF8A	CALL $9910
BF8D	INC (IX+$01)
BF90	LD (IX+$02),$CC
BF94	CALL $B684
BF97	CALL $9910
BF9A	INC (IX+$01)
BF9D	LD (IX+$02),$78
BFA1	CALL $B684
BFA4	CALL $9910
BFA7	LD HL,($B7A6)
BFAA	EXX
BFAB	LD HL,$B7EE
BFAE	CALL $96FE
BFB1	LD HL,($B7C8)
BFB4	EXX
BFB5	LD HL,$B7F6
BFB8	CALL $96FE
BFBB	LD HL,($B7B6)
BFBE	EXX
BFBF	LD HL,$B7BC
BFC2	CALL $96FE
BFC5	CALL $8D4C
BFC8	CALL $ADE1
BFCB	CALL $BFCF
BFCE	RET
BFCF	LD HL,$D721
BFD2	LD B,$17
BFD4	LD DE,$0020
BFD7	RES 6,(HL)
BFD9	ADD HL,DE
BFDA	DJNZ $BFD7
BFDC	LD HL,$D722
BFDF	LD B,$1D
BFE1	RES 6,(HL)
BFE3	INC L
BFE4	DJNZ $BFE1
BFE6	RET
BFE7	CALL $F56B
BFEA	LD L,E
BFEB	DEC E
BFEC	LD L,H
BFED	PUSH AF
BFEE	LD L,E
BFEF	LD B,L
BFF0	LD L,H
BFF1	LD L,L
BFF2	LD L,H
BFF3	LD B,L
BFF4	LD L,H
BFF5	SUB L
BFF6	LD L,H
BFF7	NOP
BFF8	NOP
BFF9	INC BC
BFFA	RST $38
BFFB	RST $38
BFFC	RST $38
BFFD	RET NZ
BFFE	NOP
BFFF	NOP
C000	NOP
C001	INC BC
C002	RST $38
C003	RST $38
C004	RST $38
C005	RET NZ
C006	INC BC
C007	RST $38
C008	RST $38
C009	RST $38
C00A	RET NZ
C00B	NOP
C00C	NOP
C00D	NOP
C00E	INC BC
C00F	RST $38
C010	RST $38
C011	RST $38
C012	RET NZ
C013	NOP
C014	NOP