Battlezone: Routine at AD3E

AD3E: Routine at AD3E

Used by the routine at 977E.
AD3E	LD BC,$0000
AD41	IN A,($1F)
AD43	AND A
AD44	RET Z
AD45	LD D,A
AD46	AND $E0
AD48	JP Z,$AD50
AD4B	LD A,$F3
AD4D	LD ($F732),A
AD50	LD A,($F732)
AD53	CP $F3
AD55	JP NZ,$AD5A
AD58	SUB A
AD59	RET
AD5A	LD A,D
AD5B	BIT 4,A
AD5D	LD D,$00
AD5F	JP Z,$AD69
AD62	AND $0F
AD64	LD D,$80
AD66	JP Z,$ADBB
AD69	CP $0A
AD6B	JP NZ,$AD73
AD6E	LD C,$A0
AD70	JP $ADBB
AD73	CP $08
AD75	JP NZ,$AD7D
AD78	LD C,$80
AD7A	JP $ADBB
AD7D	CP $09
AD7F	JP NZ,$AD87
AD82	LD C,$90
AD84	JP $ADBB
AD87	CP $01
AD89	JP NZ,$AD91
AD8C	LD C,$04
AD8E	JP $ADBB
AD91	CP $05
AD93	JP NZ,$AD9B
AD96	LD C,$50
AD98	JP $ADBB
AD9B	CP $04
AD9D	JP NZ,$ADA5
ADA0	LD C,$40
ADA2	JP $ADBB
ADA5	CP $06
ADA7	JP NZ,$ADAF
ADAA	LD C,$60
ADAC	JP $ADBB
ADAF	CP $02
ADB1	JP NZ,$ADB9
ADB4	LD C,$08
ADB6	JP $ADBB
ADB9	SUB A
ADBA	RET
ADBB	LD A,($FE54)
ADBE	OR D
ADBF	LD ($FE54),A
ADC2	LD A,C
ADC3	RET
ADC4	NOP
ADC5	NOP
ADC6	NOP
ADC7	NOP
ADC8	NOP
ADC9	NOP
ADCA	NOP
ADCB	NOP
ADCC	NOP
ADCD	NOP
ADCE	NOP
ADCF	NOP
ADD0	NOP
ADD1	NOP
ADD2	NOP
ADD3	NOP
This entry point is used by the routine at 977E.
ADD4	LD A,$C9
ADD6	LD ($8C5E),A
ADD9	LD HL,$C8B4
ADDC	LD ($5C36),HL
ADDF	LD HL,$CC9C
ADE2	LD ($FE02),HL
ADE5	CALL $8D68
ADE8	CALL $8E08
ADEB	CALL $8E38
ADEE	CALL $805C
ADF1	CALL $8F53
ADF4	CALL $8C3C
ADF7	LD HL,$0000
ADFA	LD DE,$0400
ADFD	CALL $90BA
AE00	LD HL,$0000
AE03	LD DE,$0000
AE06	LD BC,$2710
AE09	LDIR
AE0B	LD HL,$CC9C
AE0E	LD ($FE02),HL
AE11	CALL $805C
AE14	CALL $805C
AE17	CALL $8C3C
AE1A	LD HL,$0000
AE1D	LD DE,$0400
AE20	CALL $90BA
AE23	LD HL,$0000
AE26	LD DE,$0000
AE29	LD BC,$2710
AE2C	LDIR
AE2E	LD HL,$CC9C
AE31	LD ($FE02),HL
AE34	CALL $805C
AE37	CALL $805C
AE3A	CALL $805C
AE3D	LD A,$21
AE3F	LD ($8C5E),A
AE42	CALL $8C3C
AE45	LD B,$14
AE47	PUSH BC
AE48	LD HL,$0000
AE4B	LD DE,$0400
AE4E	CALL $90BA
AE51	LD HL,$0000
AE54	LD D,H
AE55	LD E,L
AE56	LD BC,$4E20
AE59	LDIR
AE5B	POP BC
AE5C	DJNZ $AE47
AE5E	LD A,($FEE4)
AE61	DEC A
AE62	LD ($FEE4),A
AE65	JP Z,$AE90
AE68	CP $07
AE6A	JP NC,$AE81
AE6D	LD BC,$4012
AE70	LD L,A
AE71	LD H,$00
AE73	ADD HL,HL
AE74	ADD HL,BC
AE75	LD B,H
AE76	LD C,L
AE77	LD A,$0C
AE79	CALL $948C
AE7C	LD A,$0C
AE7E	CALL $948C
AE81	LD B,$18
AE83	SUB A
AE84	LD ($FE6A),A
AE87	LD ($FE6C),A
AE8A	LD ($FE6E),A
AE8D	JP $9644
AE90	LD A,$02
AE92	LD HL,$0000
AE95	LD DE,$0000
AE98	LD BC,$4E20
AE9B	LDIR
AE9D	LD HL,$4000
AEA0	LD DE,$4001
AEA3	LD BC,$001F
AEA6	LD (HL),$7E
AEA8	LDIR
AEAA	LD HL,$5800
AEAD	LD DE,$5801
AEB0	LD BC,$001F
AEB3	LD (HL),$42
AEB5	LDIR
AEB7	LD HL,$CC5C
AEBA	LD DE,$CC5D
AEBD	LD (HL),$BF
AEBF	LD BC,$001F
AEC2	LDIR
AEC4	LD A,$62
AEC6	LD ($FE4E),A
AEC9	EXX
AECA	LD C,$00
AECC	EXX
AECD	LD H,$CC
AECF	EXX
AED0	LD A,C
AED1	EXX
AED2	ADD A,$5C
AED4	LD L,A
AED5	LD C,(HL)
AED6	LD ($FE14),HL
AED9	ADD A,$20
AEDB	LD L,A
AEDC	LD B,(HL)
AEDD	LD A,C
AEDE	AND A
AEDF	JP Z,$AF2B
AEE2	LD H,$7C
AEE4	LD L,C
AEE5	ADD HL,HL
AEE6	INC HL
AEE7	LD A,(HL)
AEE8	EXX
AEE9	OR C
AEEA	EXX
AEEB	LD E,A
AEEC	DEC HL
AEED	LD A,(HL)
AEEE	DEC HL
AEEF	SUB $9F
AEF1	LD D,A
AEF2	LD A,$FF
AEF4	LD (DE),A
AEF5	DEC C
AEF6	JP Z,$AF2B
AEF9	DJNZ $AEE7
AEFB	LD A,(HL)
AEFC	DEC HL
AEFD	EXX
AEFE	OR C
AEFF	EXX
AF00	LD E,A
AF01	LD A,(HL)
AF02	DEC HL
AF03	SUB $9F
AF05	LD D,A
AF06	LD A,$7E
AF08	LD (DE),A
AF09	DEC C
AF0A	JP Z,$AF2B
AF0D	LD A,(HL)
AF0E	DEC HL
AF0F	EXX
AF10	OR C
AF11	EXX
AF12	LD E,A
AF13	LD A,(HL)
AF14	SUB $9F
AF16	LD D,A
AF17	LD A,$18
AF19	LD (DE),A
AF1A	LD A,D
AF1B	RRCA
AF1C	RRCA
AF1D	RRCA
AF1E	AND $03
AF20	ADD A,$58
AF22	LD H,A
AF23	LD L,E
AF24	LD (HL),$42
AF26	LD HL,($FE14)
AF29	INC C
AF2A	LD (HL),C
AF2B	EXX
AF2C	INC C
AF2D	LD A,C
AF2E	EXX
AF2F	CP $20
AF31	JP NZ,$AECD
AF34	LD HL,$0000
AF37	LD DE,$0000
AF3A	LD BC,$1194
AF3D	LDIR
AF3F	LD A,($FE4E)
AF42	DEC A
AF43	JP NZ,$AEC6
AF46	LD HL,$CDE8
AF49	LD B,$11
AF4B	LD A,(HL)
AF4C	PUSH HL
AF4D	PUSH BC
AF4E	RST $10
AF4F	POP BC
AF50	POP HL
AF51	INC HL
AF52	DJNZ $AF4B
AF54	LD A,$04
AF56	LD HL,$0000
AF59	LD DE,$0000
AF5C	LD BC,$9C40
AF5F	LDIR
AF61	DEC A
AF62	JP NZ,$AF56
AF65	LD HL,$F700
AF68	LD B,$08
AF6A	LD DE,($FE76)
AF6E	LD C,(HL)
AF6F	INC HL
AF70	LD A,(HL)
AF71	INC HL
AF72	LD ($FE14),HL
AF75	LD L,C
AF76	LD H,A
AF77	PUSH HL
AF78	AND A
AF79	SBC HL,DE
AF7B	POP HL
AF7C	JP C,$AF87
AF7F	LD HL,($FE14)
AF82	DJNZ $AF6E
AF84	JP $B1F4
AF87	PUSH DE
AF88	LD HL,$F70E
AF8B	LD DE,$F710
AF8E	SLA B
AF90	LD C,B
AF91	LD B,$00
AF93	PUSH BC
AF94	LDDR
AF96	POP BC
AF97	EX DE,HL
AF98	POP DE
AF99	LD (HL),E
AF9A	INC HL
AF9B	LD (HL),D
AF9C	LD HL,$F720
AF9F	LD DE,$F722
AFA2	LDDR
AFA4	EX DE,HL
AFA5	LD (HL),$5A
AFA7	INC HL
AFA8	LD (HL),$6B
AFAA	DEC HL
AFAB	LD ($FE14),HL
AFAE	LD HL,$0000
AFB1	LD DE,$0000
AFB4	LD BC,$0000
AFB7	LDIR
AFB9	LD HL,$4000
AFBC	LD DE,$4001
AFBF	LD BC,$1800
AFC2	LD (HL),$00
AFC4	LDIR
AFC6	LD (HL),$44
AFC8	LD BC,$02FF
AFCB	LDIR
AFCD	LD HL,$CB9C
AFD0	LD B,$B3
AFD2	LD A,(HL)
AFD3	PUSH HL
AFD4	PUSH BC
AFD5	RST $10
AFD6	LD HL,$0000
AFD9	LD D,H
AFDA	LD E,L
AFDB	LD BC,$07D0
AFDE	LDIR
AFE0	LD A,$FD
AFE2	IN A,($FE)
AFE4	POP BC
AFE5	POP HL
AFE6	AND $02
AFE8	JP Z,$B0BC
AFEB	INC HL
AFEC	DJNZ $AFD2
AFEE	LD HL,$500D
AFF1	LD (HL),$FE
AFF3	INC HL
AFF4	INC HL
AFF5	LD (HL),$FE
AFF7	INC HL
AFF8	INC HL
AFF9	LD (HL),$FE
AFFB	LD HL,$0000
AFFE	LD ($FE18),HL
B001	LD BC,$0041
B004	LD ($FE16),BC
B008	LD A,$16
B00A	RST $10
B00B	LD A,$0F
B00D	RST $10
B00E	LD BC,($FE16)
B012	LD A,B
B013	RLCA
B014	ADD A,$0D
B016	RST $10
B017	LD BC,($FE16)
B01B	LD A,C
B01C	RST $10
B01D	LD HL,$0000
B020	LD DE,$0000
B023	LD BC,$9C40
B026	LDIR
B028	LD A,$18
B02A	OUT ($FE),A
B02C	SUB A
B02D	CALL $9132
B030	PUSH AF
B031	SUB A
B032	CALL $AD3E
B035	POP BC
B036	OR B
B037	BIT 6,A
B039	LD BC,($FE16)
B03D	JP Z,$B041
B040	DEC C
B041	BIT 7,A
B043	JP Z,$B047
B046	INC C
B047	LD A,C
B048	CP $41
B04A	JP NC,$B04F
B04D	LD A,$5B
B04F	CP $5C
B051	JP C,$B056
B054	LD A,$41
B056	LD C,A
B057	LD ($FE16),BC
B05B	PUSH BC
B05C	LD A,$FD
B05E	IN A,($FE)
B060	AND $02
B062	POP BC
B063	JP Z,$B0BC
B066	LD A,($FE54)
B069	AND A
B06A	JP Z,$B008
B06D	INC B
B06E	SUB A
B06F	LD ($FE54),A
B072	LD HL,($FE18)
B075	LD A,C
B076	SUB $41
B078	RLCA
B079	RLCA
B07A	RLCA
B07B	RLCA
B07C	ADC HL,HL
B07E	RLCA
B07F	ADC HL,HL
B081	RLCA
B082	ADC HL,HL
B084	RLCA
B085	ADC HL,HL
B087	RLCA
B088	ADC HL,HL
B08A	LD C,$41
B08C	LD ($FE18),HL
B08F	LD A,B
B090	CP $03
B092	JP NC,$B0A6
B095	LD ($FE16),BC
B099	LD BC,$EFFE
B09C	IN A,(C)
B09E	AND $01
B0A0	JP Z,$B09C
B0A3	JP $B008
B0A6	EX DE,HL
B0A7	LD HL,$2412
B0AA	AND A
B0AB	SBC HL,DE
B0AD	JP NZ,$B0B3
B0B0	LD DE,$310A
B0B3	LD HL,($FE14)
B0B6	LD (HL),E
B0B7	INC HL
B0B8	LD (HL),D
B0B9	JP $B14C
This entry point is used by the routines at B1F4, B2F5, B587 and B676.
B0BC	CALL $B0EF
B0BF	LD HL,$4000
B0C2	LD DE,$4001
B0C5	LD BC,$17FF
B0C8	SUB A
B0C9	LD (HL),A
B0CA	LDIR
B0CC	LD HL,$0000
B0CF	LD DE,$0000
B0D2	LDIR
B0D4	LD ($FEEC),A
B0D7	LD HL,$4099
B0DA	LD ($94F0),HL
B0DD	LD HL,($F700)
B0E0	LD ($FE76),HL
B0E3	CALL $94EC
B0E6	LD HL,$4059
B0E9	LD ($94F0),HL
B0EC	JP $956A
B0EF	LD ($FE00),SP
B0F3	LD SP,$CA94
B0F6	LD A,$0A
B0F8	LD ($FE4E),A
B0FB	POP HL
B0FC	POP DE
B0FD	LD A,L
B0FE	SRL L
B100	SRL L
B102	CPL
B103	AND $03
B105	LD C,A
B106	LD B,$00
B108	LD IX,$B110
B10C	ADD IX,BC
B10E	LD A,$08
B110	NOP
B111	NOP
B112	NOP
B113	INC B
B114	INC C
B115	DEC C
B116	JR NZ,$B115
B118	LD C,$3F
B11A	DEC B
B11B	JP NZ,$B115
B11E	XOR $10
B120	OUT ($FE),A
B122	LD B,H
B123	LD C,A
B124	BIT 4,A
B126	JR NZ,$B131
B128	LD A,D
B129	OR E
B12A	JR Z,$B135
B12C	LD A,C
B12D	LD C,L
B12E	DEC DE
B12F	JP (IX)
B131	LD C,L
B132	INC C
B133	JP (IX)
B135	LD A,($FE4E)
B138	LD HL,$0000
B13B	LD DE,$0000
B13E	LD BC,$09C4
B141	LDIR
B143	DEC A
B144	JP NZ,$B0F8
B147	LD SP,($FE00)
B14B	RET
B14C	LD HL,$4000
B14F	LD DE,$4001
B152	LD BC,$17FF
B155	LDIR
B157	LD B,$12
B159	LD HL,$CDFA
B15C	LD A,(HL)
B15D	PUSH HL
B15E	PUSH BC
B15F	RST $10
B160	POP BC
B161	POP HL
B162	INC HL
B163	DJNZ $B15C
B165	LD B,$08
B167	LD C,$06
B169	LD HL,$F712
B16C	LD E,(HL)
B16D	INC HL
B16E	LD D,(HL)
B16F	INC HL
B170	PUSH HL
B171	PUSH BC
B172	PUSH DE
B173	PUSH BC
B174	LD A,$16
B176	RST $10
B177	POP BC
B178	LD A,C
B179	RST $10
B17A	LD A,$0A
B17C	RST $10
B17D	POP DE
B17E	PUSH DE
B17F	LD A,D
B180	RRCA
B181	RRCA
B182	AND $1F
B184	ADD A,$41
B186	RST $10
B187	POP DE
B188	PUSH DE
B189	LD A,D
B18A	RL E
B18C	RLA
B18D	RL E
B18F	RLA
B190	RL E
B192	RLA
B193	AND $1F
B195	ADD A,$41
B197	RST $10
B198	POP DE
B199	LD A,E
B19A	AND $1F
B19C	ADD A,$41
B19E	RST $10
B19F	POP BC
B1A0	POP HL
B1A1	INC C
B1A2	INC C
B1A3	DJNZ $B16C
B1A5	LD BC,$0806
B1A8	LD HL,$F700
B1AB	LD E,(HL)
B1AC	INC HL
B1AD	LD D,(HL)
B1AE	INC HL
B1AF	PUSH HL
B1B0	PUSH BC
B1B1	LD A,C
B1B2	RRCA
B1B3	RRCA
B1B4	RRCA
B1B5	AND $E0
B1B7	OR $10
B1B9	LD L,A
B1BA	LD A,C
B1BB	AND $18
B1BD	OR $40
B1BF	LD H,A
B1C0	LD ($94F0),HL
B1C3	LD ($FE76),DE
B1C7	EX DE,HL
B1C8	CALL $94EC
B1CB	POP BC
B1CC	POP HL
B1CD	INC C
B1CE	INC C
B1CF	DJNZ $B1AB
B1D1	LD HL,$4059
B1D4	LD ($94F0),HL
B1D7	LD A,$1A
B1D9	LD HL,$0000
B1DC	LD DE,$0000
B1DF	LD BC,$0000
B1E2	LDIR
B1E4	PUSH AF
B1E5	LD A,$FD
B1E7	IN A,($FE)
B1E9	LD C,A
B1EA	POP AF
B1EB	BIT 1,C
B1ED	JP Z,$B0BC
B1F0	DEC A
B1F1	JP NZ,$B1D9