Battlezone: Routine at 8660

8660: Routine at 8660

Used by the routines at 977E, B1F4 and B2F5.
8660	LD ($FE00),SP
8664	LD ($FE40),A
8667	LD SP,($FE38)
866B	EXX
866C	LD HL,($FE32)
866F	LD DE,($FE36)
8673	LD B,$84
8675	EXX
8676	EXX
8677	LD A,(DE)
8678	INC DE
8679	EX AF,AF'
867A	LD A,(DE)
867B	INC DE
867C	CP $01
867E	JP P,$8688
8681	LD C,$01
8683	LD SP,($FE00)
8687	RET
8688	EXX
8689	EX AF,AF'
868A	LD C,A
868B	EX AF,AF'
868C	SLA C
868E	RLA
868F	SLA C
8691	ADC A,$00
8693	LD B,A
8694	EXX
8695	LD A,(HL)
8696	INC HL
8697	EX AF,AF'
8698	LD A,(HL)
8699	INC HL
869A	EXX
869B	LD H,A
869C	EX AF,AF'
869D	LD L,A
869E	EX AF,AF'
869F	AND A
86A0	JP P,$86A9
86A3	LD DE,$0000
86A6	EX DE,HL
86A7	SBC HL,DE
86A9	EX AF,AF'
86AA	LD A,H
86AB	CP $20
86AD	JP M,$86C3
86B0	LD C,$02
86B2	LD ($FE5A),SP
86B6	LD SP,($FE00)
86BA	RET
86BB	LD ($FE00),SP
86BF	LD SP,($FE5A)
86C3	SLA L
86C5	RLA
86C6	SLA L
86C8	RLA
86C9	RLA
86CA	LD H,A
86CB	SUB A
86CC	SLA H
86CE	RLA
86CF	JR C,$86D4
86D1	CP B
86D2	JR C,$86D6
86D4	SUB B
86D5	INC H
86D6	SLA H
86D8	RLA
86D9	JR C,$86DE
86DB	CP B
86DC	JR C,$86E0
86DE	SUB B
86DF	INC H
86E0	SLA H
86E2	RLA
86E3	JR C,$86E8
86E5	CP B
86E6	JR C,$86EA
86E8	SUB B
86E9	INC H
86EA	SLA H
86EC	RLA
86ED	JR C,$86F2
86EF	CP B
86F0	JR C,$86F4
86F2	SUB B
86F3	INC H
86F4	SLA H
86F6	RLA
86F7	JR C,$86FC
86F9	CP B
86FA	JR C,$86FE
86FC	SUB B
86FD	INC H
86FE	SLA H
8700	RLA
8701	JR C,$8706
8703	CP B
8704	JR C,$8708
8706	SUB B
8707	INC H
8708	SLA H
870A	RLA
870B	JR C,$8710
870D	CP B
870E	JR C,$8712
8710	SUB B
8711	INC H
8712	SLA L
8714	RLA
8715	JR C,$871A
8717	CP B
8718	JR C,$871C
871A	SUB B
871B	INC L
871C	SLA L
871E	RLA
871F	JR C,$8724
8721	CP B
8722	JR C,$8726
8724	SUB B
8725	INC L
8726	SLA L
8728	RLA
8729	JR C,$872E
872B	CP B
872C	JR C,$8730
872E	SUB B
872F	INC L
8730	SLA L
8732	RLA
8733	JR C,$8738
8735	CP B
8736	JR C,$873A
8738	SUB B
8739	INC L
873A	SLA L
873C	RLA
873D	JR C,$8742
873F	CP B
8740	JR C,$8744
8742	SUB B
8743	INC L
8744	SLA L
8746	RLA
8747	JR C,$874C
8749	CP B
874A	JR C,$874E
874C	SUB B
874D	INC L
874E	SLA L
8750	RLA
8751	JR C,$8756
8753	CP B
8754	JR C,$8758
8756	SUB B
8757	INC L
8758	SLA L
875A	RLA
875B	JR C,$8760
875D	CP B
875E	JR C,$8762
8760	SUB B
8761	INC L
8762	EX AF,AF'
8763	AND A
8764	JP P,$876D
8767	LD DE,$0000
876A	EX DE,HL
876B	SBC HL,DE
876D	PUSH HL
876E	EXX
876F	DEC B
8770	LD A,B
8771	AND A
8772	JP M,$877B
8775	JP NZ,$8677
8778	JP $87E1
877B	AND $7F
877D	EXX
877E	CP $03
8780	JR NZ,$878B
8782	LD ($FE3C),HL
8785	LD ($FE3E),HL
8788	JP $8676
878B	EX DE,HL
878C	LD HL,($FE3C)
878F	SBC HL,DE
8791	JP P,$879F
8794	LD ($FE3C),DE
8798	AND A
8799	JP NZ,$8676
879C	JP $87AF
879F	LD HL,($FE3E)
87A2	SBC HL,DE
87A4	JP M,$87AB
87A7	LD ($FE3E),DE
87AB	AND A
87AC	JP NZ,$8676
87AF	LD HL,($FE3E)
87B2	LD DE,$0081
87B5	SBC HL,DE
87B7	JP P,$87CE
87BA	LD HL,($FE3C)
87BD	ADC HL,DE
87BF	JP M,$87CE
87C2	EXX
87C3	LD A,($FE40)
87C6	AND A
87C7	LD B,A
87C8	JP NZ,$8677
87CB	JP $87E1
87CE	LD C,$02
87D0	LD ($FE5A),SP
87D4	LD SP,($FE00)
87D8	RET
87D9	LD ($FE00),SP
87DD	LD SP,($FE5A)
87E1	LD ($FE38),SP
87E5	LD SP,($FE3A)
87E9	LD A,($FE40)
87EC	ADD A,$04
87EE	LD DE,($FE36)
87F2	LD HL,($FE34)
87F5	LD B,A
87F6	LD A,(DE)
87F7	INC DE
87F8	EX AF,AF'
87F9	LD A,(DE)
87FA	INC DE
87FB	EXX
87FC	EX AF,AF'
87FD	LD C,A
87FE	EX AF,AF'
87FF	SLA C
8801	RLA
8802	SLA C
8804	ADC A,$00
8806	LD B,A
8807	EXX
8808	LD A,(HL)
8809	INC HL
880A	EX AF,AF'
880B	LD A,(HL)
880C	INC HL
880D	EXX
880E	LD H,A
880F	EX AF,AF'
8810	LD L,A
8811	EX AF,AF'
8812	AND A
8813	JP P,$881C
8816	LD DE,$0000
8819	EX DE,HL
881A	SBC HL,DE
881C	EX AF,AF'
881D	LD A,H
881E	SLA L
8820	RLA
8821	SLA L
8823	RLA
8824	RLA
8825	LD H,A
8826	SUB A
8827	SLA H
8829	RLA
882A	JR C,$882F
882C	CP B
882D	JR C,$8831
882F	SUB B
8830	INC H
8831	SLA H
8833	RLA
8834	JR C,$8839
8836	CP B
8837	JR C,$883B
8839	SUB B
883A	INC H
883B	SLA H
883D	RLA
883E	JR C,$8843
8840	CP B
8841	JR C,$8845
8843	SUB B
8844	INC H
8845	SLA H
8847	RLA
8848	JR C,$884D
884A	CP B
884B	JR C,$884F
884D	SUB B
884E	INC H
884F	SLA H
8851	RLA
8852	JR C,$8857
8854	CP B
8855	JR C,$8859
8857	SUB B
8858	INC H
8859	SLA H
885B	RLA
885C	JR C,$8861
885E	CP B
885F	JR C,$8863
8861	SUB B
8862	INC H
8863	SLA H
8865	RLA
8866	JR C,$886B
8868	CP B
8869	JR C,$886D
886B	SUB B
886C	INC H
886D	SLA L
886F	RLA
8870	JR C,$8875
8872	CP B
8873	JR C,$8877
8875	SUB B
8876	INC L
8877	SLA L
8879	RLA
887A	JR C,$887F
887C	CP B
887D	JR C,$8881
887F	SUB B
8880	INC L
8881	SLA L
8883	RLA
8884	JR C,$8889
8886	CP B
8887	JR C,$888B
8889	SUB B
888A	INC L
888B	SLA L
888D	RLA
888E	JR C,$8893
8890	CP B
8891	JR C,$8895
8893	SUB B
8894	INC L
8895	SLA L
8897	RLA
8898	JR C,$889D
889A	CP B
889B	JR C,$889F
889D	SUB B
889E	INC L
889F	SLA L
88A1	RLA
88A2	JR C,$88A7
88A4	CP B
88A5	JR C,$88A9
88A7	SUB B
88A8	INC L
88A9	SLA L
88AB	RLA
88AC	JR C,$88B1
88AE	CP B
88AF	JR C,$88B3
88B1	SUB B
88B2	INC L
88B3	SLA L
88B5	RLA
88B6	JR C,$88BB
88B8	CP B
88B9	JR C,$88BD
88BB	SUB B
88BC	INC L
88BD	EX AF,AF'
88BE	AND A
88BF	JP P,$88C8
88C2	LD DE,$0000
88C5	EX DE,HL
88C6	SBC HL,DE
88C8	PUSH HL
88C9	EXX
88CA	DEC B
88CB	JP NZ,$87F6
88CE	LD ($FE3A),SP
88D2	LD SP,($FE00)
88D6	LD C,$00
88D8	RET
88D9	NOP
88DA	NOP
88DB	NOP
88DC	NOP
88DD	NOP
88DE	NOP
88DF	NOP
88E0	NOP
88E1	NOP
88E2	NOP
88E3	NOP
88E4	NOP
88E5	NOP
88E6	NOP
88E7	NOP
88E8	NOP
88E9	NOP