Battlezone: Routine at 94EC

94EC: Routine at 94EC

Used by the routines at AD3E and B55D.
94EC	LD ($FE76),HL
94EF	LD BC,$4059
94F2	LD A,H
94F3	AND A
94F4	JR Z,$9510
94F6	RLCA
94F7	RLCA
94F8	RLCA
94F9	RLCA
94FA	AND $0F
94FC	JR Z,$9501
94FE	CALL $948C
9501	LD A,($FE77)
9504	AND $0F
9506	CALL $948C
9509	LD A,($FE76)
950C	AND $F0
950E	JR $9517
9510	LD A,($FE76)
9513	AND $F0
9515	JR Z,$951E
9517	RRCA
9518	RRCA
9519	RRCA
951A	RRCA
951B	CALL $948C
951E	LD A,($FE76)
9521	AND $0F
9523	CALL $948C
9526	SUB A
9527	CALL $948C
952A	SUB A
952B	CALL $948C
952E	SUB A
952F	CALL $948C
9532	RET
9533	NOP
9534	NOP
9535	NOP
9536	NOP
9537	NOP
This entry point is used by the routine at 977E.
9538	LD A,$00
953A	ADD A,$04
953C	LD HL,$0000
953F	LD DE,$0000
9542	LD BC,$0334
9545	LDIR
9547	DEC A
9548	JP NZ,$953C
954B	RET
954C	NOP
954D	NOP
954E	NOP
954F	NOP
9550	NOP
9551	NOP
9552	NOP
9553	NOP
9554	NOP
9555	NOP
9556	NOP
9557	NOP
9558	NOP
9559	NOP
955A	NOP
955B	NOP
955C	NOP
955D	NOP
955E	NOP
955F	NOP
9560	NOP
9561	NOP
9562	NOP
9563	NOP
9564	NOP
9565	NOP
9566	NOP
9567	NOP
9568	NOP
9569	NOP
This entry point is used by the routines at AD3E and B2F5.
956A	LD HL,$0000
956D	LD ($FE6A),HL
9570	LD ($FE6C),HL
9573	LD ($FE76),HL
9576	LD ($FE78),HL
9579	LD ($FE72),HL
957C	LD ($FE7A),HL
957F	LD ($FE68),HL
9582	LD ($FE54),HL
9585	LD ($FE50),HL
9588	LD ($FE6E),HL
958B	LD HL,$0003
958E	LD ($FEE4),HL
9591	LD HL,$4000
9594	LD ($FE9A),HL
9597	LD ($FE9C),HL
959A	LD HL,$C000
959D	LD ($FE9E),HL
95A0	LD ($FEA0),HL
95A3	LD HL,$C000
95A6	LD ($FEA2),HL
95A9	LD ($FEA4),HL
95AC	LD HL,$4000
95AF	LD ($FEA6),HL
95B2	LD ($FE98),HL
95B5	CALL $8000
95B8	LD HL,$6900
95BB	LD ($FE2C),HL
95BE	LD HL,$6300
95C1	LD ($FE52),HL
95C4	LD HL,$0040
95C7	LD ($FEA8),HL
95CA	LD A,$08
95CC	OUT ($FE),A
95CE	LD B,$27
95D0	LD C,$01
95D2	LD HL,$F97F
95D5	LD A,(HL)
95D6	DEC HL
95D7	ADD A,$0C
95D9	LD E,A
95DA	LD A,(HL)
95DB	SUB $9F
95DD	LD D,A
95DE	DEC HL
95DF	LD A,C
95E0	LD (DE),A
95E1	DJNZ $95D5
95E3	LD B,$27
95E5	LD C,$80
95E7	LD HL,$F97F
95EA	LD A,(HL)
95EB	ADD A,$13
95ED	LD E,A
95EE	DEC HL
95EF	LD A,(HL)
95F0	DEC HL
95F1	SUB $9F
95F3	LD D,A
95F4	LD A,C
95F5	LD (DE),A
95F6	DJNZ $95EA
95F8	LD B,$20
95FA	LD A,$FF
95FC	LD HL,$477F
95FF	INC L
9600	LD (HL),A
9601	DJNZ $95FF
9603	LD BC,$00A0
9606	LD HL,$5800
9609	LD DE,$5801
960C	LD (HL),$43
960E	LDIR
9610	INC (HL)
9611	LD BC,$025F
9614	LDIR
9616	LD HL,$CE40
9619	CALL $9452
961C	LD HL,$CE5E
961F	CALL $9452
9622	LD HL,$0025
9625	LD ($FEE6),HL
9628	LD B,$00
962A	CALL $94AC
962D	LD BC,$4014
9630	LD A,$0A
9632	CALL $948C
9635	LD A,$0B
9637	CALL $948C
963A	LD A,$0A
963C	CALL $948C
963F	LD A,$0B
9641	CALL $948C
This entry point is used by the routines at 977E and AD3E.
9644	LD A,($FE72)
9647	INC A
9648	CP $1A
964A	JP C,$964E
964D	SUB A
964E	LD ($FE72),A
9651	LD HL,$0000
9654	LD ($FE70),HL
9657	LD ($FE68),HL
965A	LD A,($FE6A)
965D	LD C,A
965E	LD A,R
9660	AND $7F
9662	LD B,A
9663	LD HL,($FE76)
9666	LD DE,$0005
9669	AND A
966A	SBC HL,DE
966C	JP P,$96AE
966F	LD A,$24
9671	AND C
9672	OR $80
9674	LD ($FE6A),A
9677	LD A,B
9678	AND $3F
967A	OR $10
967C	ADD A,$06
967E	LD ($FE61),A
9681	LD D,A
9682	LD L,$00
9684	AND $FC
9686	RRCA
9687	RRCA
9688	LD H,A
9689	BIT 3,B
968B	JP Z,$9690
968E	NEG
9690	LD H,A
9691	LD ($FE5E),HL
9694	CALL $938A
9697	LD L,A
9698	LD H,$00
969A	ADD HL,HL
969B	LD ($FE64),HL
969E	LD A,($FE5F)
96A1	CPL
96A2	AND $80
96A4	RLCA
96A5	LD H,A
96A6	LD L,$00
96A8	LD ($FE62),HL
96AB	JP $977E
96AE	LD DE,$0020
96B1	AND A
96B2	SBC HL,DE
96B4	JP P,$96D3
96B7	LD A,C
96B8	AND $10
96BA	JP Z,$96C8
96BD	LD A,B
96BE	CP $20
96C0	JP NC,$972E
96C3	LD D,$80
96C5	JP $96E5
96C8	LD A,B
96C9	CP $20
96CB	JP C,$972E
96CE	LD D,$80
96D0	JP $96E5
96D3	LD A,B
96D4	CP $30
96D6	JP NC,$96DE
96D9	LD D,$40
96DB	JP $96E5
96DE	CP $60
96E0	JP C,$972E
96E3	LD D,$80
96E5	LD A,$24
96E7	AND C
96E8	OR D
96E9	LD ($FE6A),A
96EC	LD A,R
96EE	AND $7F
96F0	LD B,A
96F1	AND $3F
96F3	OR $10
96F5	LD D,A
96F6	BIT 2,B
96F8	JP Z,$96FD
96FB	NEG
96FD	LD H,A
96FE	LD ($FE5E),HL
9701	LD A,R
9703	AND $7F
9705	LD B,A
9706	AND $3F
9708	OR $10
970A	ADD A,$04
970C	LD D,A
970D	BIT 1,B
970F	JP Z,$9714
9712	NEG
9714	LD D,A
9715	LD ($FE60),DE
9719	CALL $938A
971C	LD L,A
971D	LD H,$00
971F	ADD HL,HL
9720	LD ($FE64),HL
9723	LD HL,($FE62)
9726	LD A,R
9728	RLCA
9729	ADD A,L
972A	LD L,A
972B	JP $977E
This entry point is used by the routine at 977E.
972E	LD A,R
9730	AND $0F
9732	BIT 0,A
9734	JP Z,$9739
9737	NEG
9739	LD H,A
973A	LD ($DD0A),HL
973D	LD ($FE7C),HL
9740	LD HL,$0E10
9743	LD ($FE7E),HL
9746	LD HL,$6400
9749	LD ($DDBA),HL
974C	LD ($FE80),HL
974F	LD HL,$FE78
9752	LD A,(HL)
9753	INC (HL)
9754	DEC A
9755	LD ($FE82),A
9758	LD A,$80
975A	LD ($FE84),A
975D	SUB A
975E	LD ($FE7A),A
9761	LD HL,($FE7C)
9764	LD DE,($FE80)
9768	CALL $938A
976B	ADD A,$40
976D	LD L,A
976E	LD H,$00
9770	ADD HL,HL
9771	LD ($FE86),HL
9774	LD A,$FF
9776	LD ($FE88),A
9779	LD A,$10
977B	LD ($FE6A),A