Battlezone: Routine at 805C

805C: Routine at 805C

Used by the routines at 977E, AD3E, B1F4 and B2F5.
805C	LD HL,($FE02)
805F	LD A,(HL)
8060	LD ($FE04),A
8063	INC HL
8064	LD ($FE02),HL
8067	LD ($FE00),SP
806B	LD SP,($FE02)
806F	LD A,($FE74)
8072	OUT ($FE),A
8074	POP HL
8075	LD E,(HL)
8076	INC HL
8077	LD D,(HL)
8078	POP HL
8079	LD C,(HL)
807A	INC HL
807B	LD B,(HL)
807C	EX DE,HL
807D	LD ($FE10),HL
8080	AND A
8081	SBC HL,BC
8083	JP P,$80B3
8086	EX DE,HL
8087	LD HL,$0000
808A	AND A
808B	SBC HL,DE
808D	LD ($FE12),HL
8090	LD HL,($FE10)
8093	LD ($FE0E),HL
8096	LD ($FE10),BC
809A	POP HL
809B	LD C,(HL)
809C	INC HL
809D	LD B,(HL)
809E	LD ($FE08),BC
80A2	POP HL
80A3	LD E,(HL)
80A4	INC HL
80A5	LD D,(HL)
80A6	LD ($FE0A),DE
80AA	EX DE,HL
80AB	AND A
80AC	SBC HL,BC
80AE	LD ($FE0C),HL
80B1	JR $80D1
80B3	LD ($FE0E),BC
80B7	LD ($FE12),HL
80BA	POP HL
80BB	LD E,(HL)
80BC	INC HL
80BD	LD D,(HL)
80BE	LD ($FE0A),DE
80C2	POP HL
80C3	LD C,(HL)
80C4	INC HL
80C5	LD B,(HL)
80C6	LD ($FE08),BC
80CA	EX DE,HL
80CB	AND A
80CC	SBC HL,BC
80CE	LD ($FE0C),HL
80D1	LD ($FE02),SP
80D5	LD SP,($FE00)
80D9	LD DE,$0056
80DC	LD HL,($FE10)
80DF	ADD HL,DE
80E0	SUB A
80E1	OUT ($FE),A
80E3	LD A,H
80E4	AND A
80E5	JP M,$8631
80E8	LD ($FE10),HL
80EB	LD HL,($FE0E)
80EE	ADD HL,DE
80EF	LD DE,$FF68
80F2	EX DE,HL
80F3	ADD HL,DE
80F4	LD A,H
80F5	AND A
80F6	JP P,$8631
80F9	LD ($FE0E),DE
80FD	LD HL,($FE0C)
8100	LD A,H
8101	AND A
8102	JR NZ,$810B
8104	LD A,L
8105	AND A
8106	JP Z,$85C7
8109	JR $810E
810B	JP M,$813D
810E	LD DE,$0080
8111	LD HL,($FE08)
8114	ADD HL,DE
8115	INC HL
8116	LD A,H
8117	DEC A
8118	JP P,$8631
811B	DEC HL
811C	LD ($FE08),HL
811F	LD HL,($FE0A)
8122	ADD HL,DE
8123	DEC HL
8124	LD A,H
8125	AND A
8126	JP M,$8631
8129	INC HL
812A	LD ($FE0A),HL
812D	LD HL,($FE0C)
8130	LD DE,($FE12)
8134	AND A
8135	SBC HL,DE
8137	JP P,$839D
813A	JP $8179
813D	LD DE,($FE0C)
8141	LD HL,$0000
8144	AND A
8145	SBC HL,DE
8147	LD ($FE0C),HL
814A	LD DE,$0080
814D	LD HL,($FE0A)
8150	ADD HL,DE
8151	INC HL
8152	LD A,H
8153	DEC A
8154	JP P,$8631
8157	DEC HL
8158	LD ($FE0A),HL
815B	LD HL,($FE08)
815E	ADD HL,DE
815F	DEC HL
8160	LD A,H
8161	AND A
8162	JP M,$8631
8165	INC HL
8166	LD ($FE08),HL
8169	LD HL,($FE0C)
816C	LD DE,($FE12)
8170	AND A
8171	SBC HL,DE
8173	JP P,$84B3
8176	JP $828A
8179	LD HL,($FE0C)
817C	LD A,H
817D	OR D
817E	JR NZ,$8184
8180	LD D,E
8181	LD H,L
8182	LD A,H
8183	OR D
8184	AND $80
8186	JR NZ,$8194
8188	SLA E
818A	RL D
818C	SLA L
818E	RL H
8190	OR D
8191	OR H
8192	JR $8184
8194	LD A,H
8195	LD H,$00
8197	SLA H
8199	RLA
819A	JR C,$819F
819C	CP D
819D	JR C,$81A1
819F	SUB D
81A0	INC H
81A1	SLA H
81A3	RLA
81A4	JR C,$81A9
81A6	CP D
81A7	JR C,$81AB
81A9	SUB D
81AA	INC H
81AB	SLA H
81AD	RLA
81AE	JR C,$81B3
81B0	CP D
81B1	JR C,$81B5
81B3	SUB D
81B4	INC H
81B5	SLA H
81B7	RLA
81B8	JR C,$81BD
81BA	CP D
81BB	JR C,$81BF
81BD	SUB D
81BE	INC H
81BF	SLA H
81C1	RLA
81C2	JR C,$81C7
81C4	CP D
81C5	JR C,$81C9
81C7	SUB D
81C8	INC H
81C9	SLA H
81CB	RLA
81CC	JR C,$81D1
81CE	CP D
81CF	JR C,$81D3
81D1	SUB D
81D2	INC H
81D3	SLA H
81D5	RLA
81D6	JR C,$81DB
81D8	CP D
81D9	JR C,$81DD
81DB	SUB D
81DC	INC H
81DD	SLA H
81DF	RLA
81E0	JR C,$81E5
81E2	CP D
81E3	JR C,$81E7
81E5	SUB D
81E6	INC H
81E7	LD A,H
81E8	LD HL,($FE10)
81EB	LD DE,$0097
81EE	AND A
81EF	SBC HL,DE
81F1	EX DE,HL
81F2	LD HL,($FE12)
81F5	JR C,$81F9
81F7	SBC HL,DE
81F9	EXX
81FA	LD BC,($FE0E)
81FE	LD HL,($FE08)
8201	LD D,A
8202	SUB A
8203	EXX
8204	EX AF,AF'
8205	EXX
8206	LD A,B
8207	AND A
8208	JP M,$8212
820B	LD A,H
820C	AND A
820D	JP M,$8218
8210	JR $822F
8212	LD A,H
8213	CP $01
8215	JP P,$862F
8218	INC BC
8219	INC BC
821A	EX AF,AF'
821B	ADD A,D
821C	JR NC,$821F
821E	INC HL
821F	ADD A,D
8220	JR NC,$8223
8222	INC HL
8223	EX AF,AF'
8224	EXX
8225	DEC HL
8226	DEC HL
8227	LD A,H
8228	CP $FF
822A	JR NZ,$8205
822C	JP $8630
822F	JP NZ,$862F
8232	EXX
8233	LD A,L
8234	OR H
8235	JP Z,$8630
8238	EXX
8239	LD A,L
823A	EX AF,AF'
823B	LD E,A
823C	LD A,C
823D	EXX
823E	LD C,A
823F	EX AF,AF'
8240	LD E,A
8241	LD H,L
8242	LD B,$7C
8244	LD D,$7D
8246	SLA C
8248	RL B
824A	SLA E
824C	RL D
824E	LD A,(DE)
824F	INC DE
8250	INC DE
8251	LD L,A
8252	LD A,H
8253	EXX
8254	LD B,A
8255	LD A,E
8256	ADD A,D
8257	LD E,A
8258	JR NC,$8273
825A	INC L
825B	JP Z,$862F
825E	EXX
825F	LD A,(BC)
8260	INC BC
8261	LD H,A
8262	LD A,(BC)
8263	INC BC
8264	LD L,A
8265	LD A,(DE)
8266	INC DE
8267	OR L
8268	LD L,A
8269	LD A,(DE)
826A	INC DE
826B	OR (HL)
826C	LD (HL),A
826D	EXX
826E	DJNZ $8255
8270	JP $862F
8273	EXX
8274	LD A,(BC)
8275	LD H,A
8276	INC BC
8277	LD A,L
8278	AND $1F
827A	LD L,A
827B	LD A,(BC)
827C	INC BC
827D	OR L
827E	LD L,A
827F	DEC DE
8280	LD A,(DE)
8281	INC DE
8282	OR (HL)
8283	LD (HL),A
8284	EXX
8285	DJNZ $8255
8287	JP $862F
828A	LD HL,($FE0C)
828D	LD A,H
828E	OR D
828F	JR NZ,$8295
8291	LD D,E
8292	LD H,L
8293	LD A,H
8294	OR D
8295	AND $80
8297	JR NZ,$82A5
8299	SLA E
829B	RL D
829D	SLA L
829F	RL H
82A1	OR H
82A2	OR D
82A3	JR $8295
82A5	LD A,H
82A6	LD H,$00
82A8	SLA H
82AA	RLA
82AB	JR C,$82B0
82AD	CP D
82AE	JR C,$82B2
82B0	SUB D
82B1	INC H
82B2	SLA H
82B4	RLA
82B5	JR C,$82BA
82B7	CP D
82B8	JR C,$82BC
82BA	SUB D
82BB	INC H
82BC	SLA H
82BE	RLA
82BF	JR C,$82C4
82C1	CP D
82C2	JR C,$82C6
82C4	SUB D
82C5	INC H
82C6	SLA H
82C8	RLA
82C9	JR C,$82CE
82CB	CP D
82CC	JR C,$82D0
82CE	SUB D
82CF	INC H
82D0	SLA H
82D2	RLA
82D3	JR C,$82D8
82D5	CP D
82D6	JR C,$82DA
82D8	SUB D
82D9	INC H
82DA	SLA H
82DC	RLA
82DD	JR C,$82E2
82DF	CP D
82E0	JR C,$82E4
82E2	SUB D
82E3	INC H
82E4	SLA H
82E6	RLA
82E7	JR C,$82EC
82E9	CP D
82EA	JR C,$82EE
82EC	SUB D
82ED	INC H
82EE	SLA H
82F0	RLA
82F1	JR C,$82F6
82F3	CP D
82F4	JR C,$82F8
82F6	SUB D
82F7	INC H
82F8	LD A,H
82F9	LD HL,($FE10)
82FC	LD DE,$0097
82FF	AND A
8300	SBC HL,DE
8302	EX DE,HL
8303	LD HL,($FE12)
8306	JR C,$830A
8308	SBC HL,DE
830A	EXX
830B	LD BC,($FE0E)
830F	LD HL,($FE08)
8312	LD D,A
8313	SUB A
8314	EXX
8315	EX AF,AF'
8316	EXX
8317	LD A,B
8318	AND A
8319	JP M,$8324
831C	LD A,H
831D	CP $01
831F	JP P,$8329
8322	JR $8340
8324	LD A,H
8325	AND A
8326	JP M,$862F
8329	INC BC
832A	INC BC
832B	EX AF,AF'
832C	ADD A,D
832D	JR NC,$8330
832F	DEC HL
8330	ADD A,D
8331	JR NC,$8334
8333	DEC HL
8334	EX AF,AF'
8335	EXX
8336	DEC HL
8337	DEC HL
8338	LD A,H
8339	CP $FF
833B	JR NZ,$8316
833D	JP $8630
8340	AND A
8341	JP NZ,$862F
8344	EXX
8345	LD A,L
8346	OR H
8347	JP Z,$8630
834A	EXX
834B	LD A,L
834C	EX AF,AF'
834D	LD E,A
834E	LD A,C
834F	EXX
8350	LD C,A
8351	EX AF,AF'
8352	LD E,A
8353	LD H,L
8354	LD B,$7C
8356	LD D,$7E
8358	SLA C
835A	RL B
835C	SLA E
835E	RL D
8360	INC DE
8361	LD A,(DE)
8362	LD L,A
8363	DEC DE
8364	DEC DE
8365	LD A,H
8366	EXX
8367	LD B,A
8368	LD A,E
8369	ADD A,D
836A	LD E,A
836B	JR NC,$8386
836D	DEC L
836E	JP Z,$862F
8371	EXX
8372	LD A,(BC)
8373	INC BC
8374	LD H,A
8375	LD A,(BC)
8376	INC BC
8377	LD L,A
8378	LD A,(DE)
8379	DEC DE
837A	OR L
837B	LD L,A
837C	LD A,(DE)
837D	DEC DE
837E	OR (HL)
837F	LD (HL),A
8380	EXX
8381	DJNZ $8368
8383	JP $862F
8386	EXX
8387	LD A,(BC)
8388	INC BC
8389	LD H,A
838A	LD A,L
838B	AND $1F
838D	LD L,A
838E	LD A,(BC)
838F	OR L
8390	LD L,A
8391	INC BC
8392	INC DE
8393	LD A,(DE)
8394	DEC DE
8395	OR (HL)
8396	LD (HL),A
8397	EXX
8398	DJNZ $8368
839A	JP $862F
839D	LD HL,($FE0C)
83A0	EX DE,HL
83A1	LD A,H
83A2	OR D
83A3	JR NZ,$83A9
83A5	LD D,E
83A6	LD H,L
83A7	LD A,H
83A8	OR D
83A9	AND $80
83AB	JR NZ,$83B9
83AD	SLA E
83AF	RL D
83B1	SLA L
83B3	RL H
83B5	OR H
83B6	OR D
83B7	JR $83A9
83B9	LD A,H
83BA	LD H,$00
83BC	SLA H
83BE	RLA
83BF	JR C,$83C4
83C1	CP D
83C2	JR C,$83C6
83C4	SUB D
83C5	INC H
83C6	SLA H
83C8	RLA
83C9	JR C,$83CE
83CB	CP D
83CC	JR C,$83D0
83CE	SUB D
83CF	INC H
83D0	SLA H
83D2	RLA
83D3	JR C,$83D8
83D5	CP D
83D6	JR C,$83DA
83D8	SUB D
83D9	INC H
83DA	SLA H
83DC	RLA
83DD	JR C,$83E2
83DF	CP D
83E0	JR C,$83E4
83E2	SUB D
83E3	INC H
83E4	SLA H
83E6	RLA
83E7	JR C,$83EC
83E9	CP D
83EA	JR C,$83EE
83EC	SUB D
83ED	INC H
83EE	SLA H
83F0	RLA
83F1	JR C,$83F6
83F3	CP D
83F4	JR C,$83F8
83F6	SUB D
83F7	INC H
83F8	SLA H
83FA	RLA
83FB	JR C,$8400
83FD	CP D
83FE	JR C,$8402
8400	SUB D
8401	INC H
8402	SLA H
8404	RLA
8405	JR C,$840A
8407	CP D
8408	JR C,$840C
840A	SUB D
840B	INC H
840C	LD A,H
840D	LD HL,($FE0A)
8410	LD DE,$00FF
8413	AND A
8414	SBC HL,DE
8416	EX DE,HL
8417	LD HL,($FE0C)
841A	JR C,$841E
841C	SBC HL,DE
841E	LD DE,($FE08)
8422	EXX
8423	LD D,A
8424	LD BC,($FE0E)
8428	LD HL,$FF68
842B	ADD HL,BC
842C	SUB A
842D	EX AF,AF'
842E	EXX
842F	LD A,D
8430	AND A
8431	JP M,$843C
8434	EXX
8435	LD A,B
8436	AND A
8437	JP M,$8442
843A	JR $845B
843C	EXX
843D	LD A,H
843E	AND A
843F	JP P,$862F
8442	EX AF,AF'
8443	ADD A,D
8444	JR NC,$8448
8446	INC HL
8447	INC BC
8448	ADD A,D
8449	JR NC,$844D
844B	INC HL
844C	INC BC
844D	EXX
844E	EX AF,AF'
844F	INC DE
8450	INC DE
8451	DEC HL
8452	DEC HL
8453	LD A,H
8454	CP $FF
8456	JR NZ,$842F
8458	JP $8630
845B	JP NZ,$862F
845E	EXX
845F	LD A,L
8460	OR H
8461	JP Z,$8630
8464	EXX
8465	LD A,C
8466	EX AF,AF'
8467	LD E,A
8468	EXX
8469	EX AF,AF'
846A	LD C,A
846B	LD B,$7C
846D	LD D,$7D
846F	SLA C
8471	RL B
8473	SLA E
8475	RL D
8477	LD A,L
8478	EX AF,AF'
8479	LD A,(BC)
847A	INC BC
847B	LD H,A
847C	LD A,(BC)
847D	INC BC
847E	LD L,A
847F	EX AF,AF'
8480	EXX
8481	LD B,A
8482	LD A,E
8483	ADD A,D
8484	LD E,A
8485	JR NC,$84A0
8487	INC L
8488	JP Z,$862F
848B	EXX
848C	LD A,(BC)
848D	INC BC
848E	LD H,A
848F	LD A,(BC)
8490	INC BC
8491	LD L,A
8492	LD A,(DE)
8493	INC DE
8494	OR L
8495	LD L,A
8496	LD A,(DE)
8497	INC DE
8498	OR (HL)
8499	LD (HL),A
849A	EXX
849B	DJNZ $8482
849D	JP $862F
84A0	EXX
84A1	LD A,L
84A2	AND $E0
84A4	LD L,A
84A5	LD A,(DE)
84A6	INC DE
84A7	OR L
84A8	LD L,A
84A9	LD A,(DE)
84AA	INC DE
84AB	OR (HL)
84AC	LD (HL),A
84AD	EXX
84AE	DJNZ $8482
84B0	JP $862F
84B3	LD HL,($FE0C)
84B6	EX DE,HL
84B7	LD A,H
84B8	OR D
84B9	JR NZ,$84BF
84BB	LD D,E
84BC	LD H,L
84BD	LD A,H
84BE	OR D
84BF	AND $80
84C1	JR NZ,$84CF
84C3	SLA E
84C5	RL D
84C7	SLA L
84C9	RL H
84CB	OR H
84CC	OR D
84CD	JR $84BF
84CF	LD A,H
84D0	LD H,$00
84D2	SLA H
84D4	RLA
84D5	JR C,$84DA
84D7	CP D
84D8	JR C,$84DC
84DA	SUB D
84DB	INC H
84DC	SLA H
84DE	RLA
84DF	JR C,$84E4
84E1	CP D
84E2	JR C,$84E6
84E4	SUB D
84E5	INC H
84E6	SLA H
84E8	RLA
84E9	JR C,$84EE
84EB	CP D
84EC	JR C,$84F0
84EE	SUB D
84EF	INC H
84F0	SLA H
84F2	RLA
84F3	JR C,$84F8
84F5	CP D
84F6	JR C,$84FA
84F8	SUB D
84F9	INC H
84FA	SLA H
84FC	RLA
84FD	JR C,$8502
84FF	CP D
8500	JR C,$8504
8502	SUB D
8503	INC H
8504	SLA H
8506	RLA
8507	JR C,$850C
8509	CP D
850A	JR C,$850E
850C	SUB D
850D	INC H
850E	SLA H
8510	RLA
8511	JR C,$8516
8513	CP D
8514	JR C,$8518
8516	SUB D
8517	INC H
8518	SLA H
851A	RLA
851B	JR C,$8520
851D	CP D
851E	JR C,$8522
8520	SUB D
8521	INC H
8522	LD A,H
8523	LD HL,($FE0C)
8526	LD DE,($FE08)
852A	AND A
852B	SBC HL,DE
852D	LD HL,($FE0C)
8530	JR C,$8534
8532	LD H,D
8533	LD L,E
8534	EXX
8535	LD D,A
8536	LD BC,($FE0E)
853A	LD HL,$FF68
853D	ADD HL,BC
853E	SUB A
853F	EX AF,AF'
8540	EXX
8541	LD A,D
8542	CP $01
8544	JP P,$854F
8547	EXX
8548	LD A,B
8549	AND A
854A	JP M,$8555
854D	JR $856E
854F	EXX
8550	LD A,H
8551	AND A
8552	JP P,$862F
8555	EX AF,AF'
8556	ADD A,D
8557	JR NC,$855B
8559	INC HL
855A	INC BC
855B	ADD A,D
855C	JR NC,$8560
855E	INC HL
855F	INC BC
8560	EXX
8561	EX AF,AF'
8562	DEC DE
8563	DEC DE
8564	DEC HL
8565	DEC HL
8566	LD A,H
8567	CP $FF
8569	JR NZ,$8541
856B	JP $8630
856E	JP NZ,$862F
8571	EXX
8572	LD A,L
8573	OR H
8574	JP Z,$8630
8577	EXX
8578	LD A,C
8579	EX AF,AF'
857A	LD E,A
857B	EXX
857C	EX AF,AF'
857D	LD C,A
857E	LD B,$7C
8580	LD D,$7E
8582	SLA C
8584	RL B
8586	SLA E
8588	RL D
858A	LD A,L
858B	EX AF,AF'
858C	LD A,(BC)
858D	INC BC
858E	LD H,A
858F	LD A,(BC)
8590	INC BC
8591	LD L,A
8592	INC DE
8593	EX AF,AF'
8594	EXX
8595	LD B,A
8596	LD A,E
8597	ADD A,D
8598	LD E,A
8599	JR NC,$85B4
859B	INC L
859C	JP Z,$862F
859F	EXX
85A0	LD A,(BC)
85A1	INC BC
85A2	LD H,A
85A3	LD A,(BC)
85A4	INC BC
85A5	LD L,A
85A6	LD A,(DE)
85A7	DEC DE
85A8	OR L
85A9	LD L,A
85AA	LD A,(DE)
85AB	OR (HL)
85AC	LD (HL),A
85AD	DEC DE
85AE	EXX
85AF	DJNZ $8596
85B1	JP $862F
85B4	EXX
85B5	LD A,L
85B6	AND $E0
85B8	LD L,A
85B9	LD A,(DE)
85BA	DEC DE
85BB	OR L
85BC	LD L,A
85BD	LD A,(DE)
85BE	DEC DE
85BF	OR (HL)
85C0	LD (HL),A
85C1	EXX
85C2	DJNZ $8596
85C4	JP $862F
85C7	LD DE,$0080
85CA	LD HL,($FE08)
85CD	ADD HL,DE
85CE	LD A,H
85CF	AND A
85D0	JP NZ,$8631
85D3	LD ($FE08),HL
85D6	LD HL,($FE0E)
85D9	LD A,H
85DA	AND A
85DB	JR Z,$85E3
85DD	LD HL,$0000
85E0	LD ($FE0E),HL
85E3	LD DE,($FE10)
85E7	LD HL,$FF68
85EA	ADD HL,DE
85EB	JR NC,$85F3
85ED	LD HL,$0097
85F0	LD ($FE10),HL
85F3	LD HL,($FE10)
85F6	LD DE,($FE0E)
85FA	AND A
85FB	SBC HL,DE
85FD	LD B,L
85FE	LD A,B
85FF	AND A
8600	JP Z,$8631
8603	LD A,($FE08)
8606	LD E,A
8607	LD D,$7D
8609	SLA E
860B	RL D
860D	LD A,(DE)
860E	LD L,A
860F	INC DE
8610	LD A,(DE)
8611	LD C,A
8612	LD A,($FE0E)
8615	LD D,$7C
8617	LD E,A
8618	SLA E
861A	RL D
861C	LD A,(DE)
861D	INC DE
861E	LD H,A
861F	LD A,L
8620	AND $1F
8622	LD L,A
8623	LD A,(DE)
8624	INC DE
8625	OR L
8626	LD L,A
8627	LD A,C
8628	OR (HL)
8629	LD (HL),A
862A	DJNZ $861C
862C	JP $8631
862F	EXX
8630	EX AF,AF'
8631	LD A,($FE04)
8634	DEC A
8635	LD ($FE04),A
8638	JP NZ,$806B
863B	LD SP,($FE00)
863F	RET
8640	NOP
8641	NOP
8642	NOP
8643	NOP
8644	NOP
8645	NOP
8646	NOP
8647	NOP
8648	NOP
8649	NOP
864A	NOP
864B	NOP
864C	NOP
864D	NOP
864E	NOP
864F	NOP
8650	NOP
8651	NOP
8652	NOP
8653	NOP
8654	NOP
8655	NOP
8656	NOP
8657	NOP
8658	NOP
8659	NOP
865A	NOP
865B	NOP
865C	NOP
865D	NOP
865E	NOP
865F	NOP