Battlezone: Routine at 88EA

88EA: Routine at 88EA

Used by the routines at 977E, B1F4 and B2F5.
88EA	LD ($FE00),SP
88EE	LD ($FE4E),A
88F1	LD H,$00
88F3	ADD HL,HL
88F4	ADD HL,HL
88F5	EXX
88F6	LD B,A
88F7	LD DE,($FE42)
88FB	LD C,$00
88FD	EXX
88FE	LD A,($FE74)
8901	OUT ($FE),A
8903	LD A,$03
8905	AND H
8906	OR $7C
8908	LD H,A
8909	LD DE,($FE4A)
890D	LD SP,($FE32)
8911	LD C,(HL)
8912	INC HL
8913	LD B,(HL)
8914	INC HL
8915	LD ($FE48),HL
8918	BIT 7,B
891A	JR NZ,$8920
891C	EXX
891D	JP $8925
8920	RES 7,B
8922	EXX
8923	LD C,$80
8925	LD A,(DE)
8926	INC DE
8927	EX AF,AF'
8928	LD A,(DE)
8929	INC DE
892A	EX AF,AF'
892B	EXX
892C	LD HL,$0000
892F	RRA
8930	JR NC,$8933
8932	ADD HL,BC
8933	RR H
8935	RR L
8937	RRA
8938	JR NC,$893B
893A	ADD HL,BC
893B	RR H
893D	RR L
893F	RRA
8940	JR NC,$8943
8942	ADD HL,BC
8943	RR H
8945	RR L
8947	RRA
8948	JR NC,$894B
894A	ADD HL,BC
894B	RR H
894D	RR L
894F	RRA
8950	JR NC,$8953
8952	ADD HL,BC
8953	RR H
8955	RR L
8957	RRA
8958	JR NC,$895B
895A	ADD HL,BC
895B	RR H
895D	RR L
895F	RRA
8960	JR NC,$8963
8962	ADD HL,BC
8963	RR H
8965	RR L
8967	RRA
8968	JR NC,$896B
896A	ADD HL,BC
896B	RR H
896D	RR L
896F	EX AF,AF'
8970	RRA
8971	JR NC,$8974
8973	ADD HL,BC
8974	RR H
8976	RR L
8978	RRA
8979	JR NC,$897C
897B	ADD HL,BC
897C	RR H
897E	RR L
8980	RRA
8981	JR NC,$8984
8983	ADD HL,BC
8984	RR H
8986	RR L
8988	RRA
8989	JR NC,$898C
898B	ADD HL,BC
898C	RR H
898E	RR L
8990	RRA
8991	JR NC,$8994
8993	ADD HL,BC
8994	RR H
8996	RR L
8998	RRA
8999	JR NC,$899C
899B	ADD HL,BC
899C	RR H
899E	RR L
89A0	RRA
89A1	JR NC,$89A4
89A3	ADD HL,BC
89A4	RR H
89A6	RR L
89A8	RRCA
89A9	EXX
89AA	XOR C
89AB	EXX
89AC	JP P,$89BD
89AF	PUSH DE
89B0	EX DE,HL
89B1	SBC HL,DE
89B3	POP DE
89B4	PUSH HL
89B5	EXX
89B6	DEC B
89B7	JP NZ,$8925
89BA	JP $89C4
89BD	ADD HL,DE
89BE	PUSH HL
89BF	EXX
89C0	DEC B
89C1	JP NZ,$8925
89C4	LD A,($FE4E)
89C7	LD B,A
89C8	LD DE,($FE46)
89CC	EXX
89CD	LD SP,($FE36)
89D1	LD DE,($FE4C)
89D5	EXX
89D6	LD A,(DE)
89D7	INC DE
89D8	EX AF,AF'
89D9	SUB A
89DA	OUT ($FE),A
89DC	LD A,(DE)
89DD	INC DE
89DE	EX AF,AF'
89DF	EXX
89E0	LD HL,$0000
89E3	RRA
89E4	JR NC,$89E7
89E6	ADD HL,BC
89E7	RR H
89E9	RR L
89EB	RRA
89EC	JR NC,$89EF
89EE	ADD HL,BC
89EF	RR H
89F1	RR L
89F3	RRA
89F4	JR NC,$89F7
89F6	ADD HL,BC
89F7	RR H
89F9	RR L
89FB	RRA
89FC	JR NC,$89FF
89FE	ADD HL,BC
89FF	RR H
8A01	RR L
8A03	RRA
8A04	JR NC,$8A07
8A06	ADD HL,BC
8A07	RR H
8A09	RR L
8A0B	RRA
8A0C	JR NC,$8A0F
8A0E	ADD HL,BC
8A0F	RR H
8A11	RR L
8A13	RRA
8A14	JR NC,$8A17
8A16	ADD HL,BC
8A17	RR H
8A19	RR L
8A1B	RRA
8A1C	JR NC,$8A1F
8A1E	ADD HL,BC
8A1F	RR H
8A21	RR L
8A23	EX AF,AF'
8A24	RRA
8A25	JR NC,$8A28
8A27	ADD HL,BC
8A28	RR H
8A2A	RR L
8A2C	RRA
8A2D	JR NC,$8A30
8A2F	ADD HL,BC
8A30	RR H
8A32	RR L
8A34	RRA
8A35	JR NC,$8A38
8A37	ADD HL,BC
8A38	RR H
8A3A	RR L
8A3C	RRA
8A3D	JR NC,$8A40
8A3F	ADD HL,BC
8A40	RR H
8A42	RR L
8A44	RRA
8A45	JR NC,$8A48
8A47	ADD HL,BC
8A48	RR H
8A4A	RR L
8A4C	RRA
8A4D	JR NC,$8A50
8A4F	ADD HL,BC
8A50	RR H
8A52	RR L
8A54	RRA
8A55	JR NC,$8A58
8A57	ADD HL,BC
8A58	RR H
8A5A	RR L
8A5C	RRCA
8A5D	EXX
8A5E	XOR C
8A5F	EXX
8A60	JP P,$8A71
8A63	PUSH DE
8A64	EX DE,HL
8A65	SBC HL,DE
8A67	POP DE
8A68	PUSH HL
8A69	EXX
8A6A	DEC B
8A6B	JP NZ,$89D6
8A6E	JP $8A78
8A71	ADD HL,DE
8A72	PUSH HL
8A73	EXX
8A74	DEC B
8A75	JP NZ,$89D6
8A78	LD DE,($FE46)
8A7C	LD A,($FE4E)
8A7F	LD B,A
8A80	EXX
8A81	LD HL,($FE48)
8A84	LD C,(HL)
8A85	INC HL
8A86	LD B,(HL)
8A87	LD A,B
8A88	AND $80
8A8A	LD D,A
8A8B	LD SP,($FE32)
8A8F	RES 7,B
8A91	EXX
8A92	LD A,(DE)
8A93	INC DE
8A94	EX AF,AF'
8A95	LD A,($FE74)
8A98	OUT ($FE),A
8A9A	LD A,(DE)
8A9B	INC DE
8A9C	EX AF,AF'
8A9D	EXX
8A9E	LD HL,$0000
8AA1	RRA
8AA2	JR NC,$8AA5
8AA4	ADD HL,BC
8AA5	RR H
8AA7	RR L
8AA9	RRA
8AAA	JR NC,$8AAD
8AAC	ADD HL,BC
8AAD	RR H
8AAF	RR L
8AB1	RRA
8AB2	JR NC,$8AB5
8AB4	ADD HL,BC
8AB5	RR H
8AB7	RR L
8AB9	RRA
8ABA	JR NC,$8ABD
8ABC	ADD HL,BC
8ABD	RR H
8ABF	RR L
8AC1	RRA
8AC2	JR NC,$8AC5
8AC4	ADD HL,BC
8AC5	RR H
8AC7	RR L
8AC9	RRA
8ACA	JR NC,$8ACD
8ACC	ADD HL,BC
8ACD	RR H
8ACF	RR L
8AD1	RRA
8AD2	JR NC,$8AD5
8AD4	ADD HL,BC
8AD5	RR H
8AD7	RR L
8AD9	RRA
8ADA	JR NC,$8ADD
8ADC	ADD HL,BC
8ADD	RR H
8ADF	RR L
8AE1	EX AF,AF'
8AE2	RRA
8AE3	JR NC,$8AE6
8AE5	ADD HL,BC
8AE6	RR H
8AE8	RR L
8AEA	RRA
8AEB	JR NC,$8AEE
8AED	ADD HL,BC
8AEE	RR H
8AF0	RR L
8AF2	RRA
8AF3	JR NC,$8AF6
8AF5	ADD HL,BC
8AF6	RR H
8AF8	RR L
8AFA	RRA
8AFB	JR NC,$8AFE
8AFD	ADD HL,BC
8AFE	RR H
8B00	RR L
8B02	RRA
8B03	JR NC,$8B06
8B05	ADD HL,BC
8B06	RR H
8B08	RR L
8B0A	RRA
8B0B	JR NC,$8B0E
8B0D	ADD HL,BC
8B0E	RR H
8B10	RR L
8B12	RRA
8B13	JR NC,$8B16
8B15	ADD HL,BC
8B16	RR H
8B18	RR L
8B1A	RRCA
8B1B	DEC SP
8B1C	DEC SP
8B1D	XOR D
8B1E	JP P,$8B30
8B21	LD A,D
8B22	EX DE,HL
8B23	POP HL
8B24	SBC HL,DE
8B26	PUSH HL
8B27	LD D,A
8B28	EXX
8B29	DEC B
8B2A	JP NZ,$8A92
8B2D	JP $8B3A
8B30	LD A,D
8B31	POP DE
8B32	ADD HL,DE
8B33	PUSH HL
8B34	LD D,A
8B35	EXX
8B36	DEC B
8B37	JP NZ,$8A92
8B3A	LD ($FE32),SP
8B3E	LD A,($FE4E)
8B41	LD B,A
8B42	LD SP,($FE36)
8B46	LD DE,($FE42)
8B4A	EXX
8B4B	LD A,D
8B4C	CPL
8B4D	LD D,A
8B4E	EXX
8B4F	LD A,(DE)
8B50	INC DE
8B51	EX AF,AF'
8B52	SUB A
8B53	OUT ($FE),A
8B55	LD A,(DE)
8B56	INC DE
8B57	EX AF,AF'
8B58	EXX
8B59	LD HL,$0000
8B5C	RRA
8B5D	JR NC,$8B60
8B5F	ADD HL,BC
8B60	RR H
8B62	RR L
8B64	RRA
8B65	JR NC,$8B68
8B67	ADD HL,BC
8B68	RR H
8B6A	RR L
8B6C	RRA
8B6D	JR NC,$8B70
8B6F	ADD HL,BC
8B70	RR H
8B72	RR L
8B74	RRA
8B75	JR NC,$8B78
8B77	ADD HL,BC
8B78	RR H
8B7A	RR L
8B7C	RRA
8B7D	JR NC,$8B80
8B7F	ADD HL,BC
8B80	RR H
8B82	RR L
8B84	RRA
8B85	JR NC,$8B88
8B87	ADD HL,BC
8B88	RR H
8B8A	RR L
8B8C	RRA
8B8D	JR NC,$8B90
8B8F	ADD HL,BC
8B90	RR H
8B92	RR L
8B94	RRA
8B95	JR NC,$8B98
8B97	ADD HL,BC
8B98	RR H
8B9A	RR L
8B9C	EX AF,AF'
8B9D	RRA
8B9E	JR NC,$8BA1
8BA0	ADD HL,BC
8BA1	RR H
8BA3	RR L
8BA5	RRA
8BA6	JR NC,$8BA9
8BA8	ADD HL,BC
8BA9	RR H
8BAB	RR L
8BAD	RRA
8BAE	JR NC,$8BB1
8BB0	ADD HL,BC
8BB1	RR H
8BB3	RR L
8BB5	RRA
8BB6	JR NC,$8BB9
8BB8	ADD HL,BC
8BB9	RR H
8BBB	RR L
8BBD	RRA
8BBE	JR NC,$8BC1
8BC0	ADD HL,BC
8BC1	RR H
8BC3	RR L
8BC5	RRA
8BC6	JR NC,$8BC9
8BC8	ADD HL,BC
8BC9	RR H
8BCB	RR L
8BCD	RRA
8BCE	JR NC,$8BD1
8BD0	ADD HL,BC
8BD1	RR H
8BD3	RR L
8BD5	DEC SP
8BD6	DEC SP
8BD7	RRCA
8BD8	XOR D
8BD9	JP P,$8BF2
8BDC	LD A,D
8BDD	EX DE,HL
8BDE	POP HL
8BDF	SBC HL,DE
8BE1	PUSH HL
8BE2	LD D,A
8BE3	EXX
8BE4	DEC B
8BE5	JP NZ,$8B4F
8BE8	LD ($FE36),SP
8BEC	LD SP,($FE00)
8BF0	EXX
8BF1	RET
8BF2	LD A,D
8BF3	POP DE
8BF4	ADD HL,DE
8BF5	PUSH HL
8BF6	LD D,A
8BF7	EXX
8BF8	DEC B
8BF9	JP NZ,$8B4F
8BFC	LD ($FE36),SP
8C00	LD SP,($FE00)
8C04	EXX
8C05	RET
8C06	NOP
8C07	NOP
8C08	NOP
8C09	NOP
8C0A	NOP
8C0B	NOP
8C0C	NOP
8C0D	NOP
8C0E	NOP
8C0F	NOP
8C10	NOP
8C11	NOP
8C12	NOP
8C13	NOP
8C14	NOP
8C15	NOP
8C16	NOP
8C17	NOP
8C18	NOP
8C19	NOP
8C1A	NOP
8C1B	NOP
8C1C	NOP
8C1D	NOP
8C1E	NOP
8C1F	NOP
8C20	NOP
8C21	NOP
8C22	NOP
8C23	NOP
8C24	NOP
8C25	NOP
8C26	NOP
8C27	NOP
8C28	NOP
8C29	NOP
8C2A	NOP
8C2B	NOP
8C2C	NOP
8C2D	NOP
8C2E	NOP
8C2F	NOP
8C30	NOP
8C31	NOP
8C32	NOP
8C33	NOP
8C34	NOP
8C35	NOP
8C36	NOP
8C37	NOP
8C38	NOP
8C39	NOP
8C3A	NOP
8C3B	NOP