Battlezone: Routine at 44350

44350: Routine at AD3E

Used by the routine at 38782.
44350	LD BC,0
44353	IN A,(31)
44355	AND A
44356	RET Z
44357	LD D,A
44358	AND 224
44360	JP Z,44368
44363	LD A,243
44365	LD (63282),A
44368	LD A,(63282)
44371	CP 243
44373	JP NZ,44378
44376	SUB A
44377	RET
44378	LD A,D
44379	BIT 4,A
44381	LD D,0
44383	JP Z,44393
44386	AND 15
44388	LD D,128
44390	JP Z,44475
44393	CP 10
44395	JP NZ,44403
44398	LD C,160
44400	JP 44475
44403	CP 8
44405	JP NZ,44413
44408	LD C,128
44410	JP 44475
44413	CP 9
44415	JP NZ,44423
44418	LD C,144
44420	JP 44475
44423	CP 1
44425	JP NZ,44433
44428	LD C,4
44430	JP 44475
44433	CP 5
44435	JP NZ,44443
44438	LD C,80
44440	JP 44475
44443	CP 4
44445	JP NZ,44453
44448	LD C,64
44450	JP 44475
44453	CP 6
44455	JP NZ,44463
44458	LD C,96
44460	JP 44475
44463	CP 2
44465	JP NZ,44473
44468	LD C,8
44470	JP 44475
44473	SUB A
44474	RET
44475	LD A,(65108)
44478	OR D
44479	LD (65108),A
44482	LD A,C
44483	RET
44484	NOP
44485	NOP
44486	NOP
44487	NOP
44488	NOP
44489	NOP
44490	NOP
44491	NOP
44492	NOP
44493	NOP
44494	NOP
44495	NOP
44496	NOP
44497	NOP
44498	NOP
44499	NOP
This entry point is used by the routine at 38782.
44500	LD A,201
44502	LD (35934),A
44505	LD HL,51380
44508	LD (23606),HL
44511	LD HL,52380
44514	LD (65026),HL
44517	CALL 36200
44520	CALL 36360
44523	CALL 36408
44526	CALL 32860
44529	CALL 36691
44532	CALL 35900
44535	LD HL,0
44538	LD DE,1024
44541	CALL 37050
44544	LD HL,0
44547	LD DE,0
44550	LD BC,10000
44553	LDIR
44555	LD HL,52380
44558	LD (65026),HL
44561	CALL 32860
44564	CALL 32860
44567	CALL 35900
44570	LD HL,0
44573	LD DE,1024
44576	CALL 37050
44579	LD HL,0
44582	LD DE,0
44585	LD BC,10000
44588	LDIR
44590	LD HL,52380
44593	LD (65026),HL
44596	CALL 32860
44599	CALL 32860
44602	CALL 32860
44605	LD A,33
44607	LD (35934),A
44610	CALL 35900
44613	LD B,20
44615	PUSH BC
44616	LD HL,0
44619	LD DE,1024
44622	CALL 37050
44625	LD HL,0
44628	LD D,H
44629	LD E,L
44630	LD BC,20000
44633	LDIR
44635	POP BC
44636	DJNZ 44615
44638	LD A,(65252)
44641	DEC A
44642	LD (65252),A
44645	JP Z,44688
44648	CP 7
44650	JP NC,44673
44653	LD BC,16402
44656	LD L,A
44657	LD H,0
44659	ADD HL,HL
44660	ADD HL,BC
44661	LD B,H
44662	LD C,L
44663	LD A,12
44665	CALL 38028
44668	LD A,12
44670	CALL 38028
44673	LD B,24
44675	SUB A
44676	LD (65130),A
44679	LD (65132),A
44682	LD (65134),A
44685	JP 38468
44688	LD A,2
44690	LD HL,0
44693	LD DE,0
44696	LD BC,20000
44699	LDIR
44701	LD HL,16384
44704	LD DE,16385
44707	LD BC,31
44710	LD (HL),126
44712	LDIR
44714	LD HL,22528
44717	LD DE,22529
44720	LD BC,31
44723	LD (HL),66
44725	LDIR
44727	LD HL,52316
44730	LD DE,52317
44733	LD (HL),191
44735	LD BC,31
44738	LDIR
44740	LD A,98
44742	LD (65102),A
44745	EXX
44746	LD C,0
44748	EXX
44749	LD H,204
44751	EXX
44752	LD A,C
44753	EXX
44754	ADD A,92
44756	LD L,A
44757	LD C,(HL)
44758	LD (65044),HL
44761	ADD A,32
44763	LD L,A
44764	LD B,(HL)
44765	LD A,C
44766	AND A
44767	JP Z,44843
44770	LD H,124
44772	LD L,C
44773	ADD HL,HL
44774	INC HL
44775	LD A,(HL)
44776	EXX
44777	OR C
44778	EXX
44779	LD E,A
44780	DEC HL
44781	LD A,(HL)
44782	DEC HL
44783	SUB 159
44785	LD D,A
44786	LD A,255
44788	LD (DE),A
44789	DEC C
44790	JP Z,44843
44793	DJNZ 44775
44795	LD A,(HL)
44796	DEC HL
44797	EXX
44798	OR C
44799	EXX
44800	LD E,A
44801	LD A,(HL)
44802	DEC HL
44803	SUB 159
44805	LD D,A
44806	LD A,126
44808	LD (DE),A
44809	DEC C
44810	JP Z,44843
44813	LD A,(HL)
44814	DEC HL
44815	EXX
44816	OR C
44817	EXX
44818	LD E,A
44819	LD A,(HL)
44820	SUB 159
44822	LD D,A
44823	LD A,24
44825	LD (DE),A
44826	LD A,D
44827	RRCA
44828	RRCA
44829	RRCA
44830	AND 3
44832	ADD A,88
44834	LD H,A
44835	LD L,E
44836	LD (HL),66
44838	LD HL,(65044)
44841	INC C
44842	LD (HL),C
44843	EXX
44844	INC C
44845	LD A,C
44846	EXX
44847	CP 32
44849	JP NZ,44749
44852	LD HL,0
44855	LD DE,0
44858	LD BC,4500
44861	LDIR
44863	LD A,(65102)
44866	DEC A
44867	JP NZ,44742
44870	LD HL,52712
44873	LD B,17
44875	LD A,(HL)
44876	PUSH HL
44877	PUSH BC
44878	RST 16
44879	POP BC
44880	POP HL
44881	INC HL
44882	DJNZ 44875
44884	LD A,4
44886	LD HL,0
44889	LD DE,0
44892	LD BC,40000
44895	LDIR
44897	DEC A
44898	JP NZ,44886
44901	LD HL,63232
44904	LD B,8
44906	LD DE,(65142)
44910	LD C,(HL)
44911	INC HL
44912	LD A,(HL)
44913	INC HL
44914	LD (65044),HL
44917	LD L,C
44918	LD H,A
44919	PUSH HL
44920	AND A
44921	SBC HL,DE
44923	POP HL
44924	JP C,44935
44927	LD HL,(65044)
44930	DJNZ 44910
44932	JP 45556
44935	PUSH DE
44936	LD HL,63246
44939	LD DE,63248
44942	SLA B
44944	LD C,B
44945	LD B,0
44947	PUSH BC
44948	LDDR
44950	POP BC
44951	EX DE,HL
44952	POP DE
44953	LD (HL),E
44954	INC HL
44955	LD (HL),D
44956	LD HL,63264
44959	LD DE,63266
44962	LDDR
44964	EX DE,HL
44965	LD (HL),90
44967	INC HL
44968	LD (HL),107
44970	DEC HL
44971	LD (65044),HL
44974	LD HL,0
44977	LD DE,0
44980	LD BC,0
44983	LDIR
44985	LD HL,16384
44988	LD DE,16385
44991	LD BC,6144
44994	LD (HL),0
44996	LDIR
44998	LD (HL),68
45000	LD BC,767
45003	LDIR
45005	LD HL,52124
45008	LD B,179
45010	LD A,(HL)
45011	PUSH HL
45012	PUSH BC
45013	RST 16
45014	LD HL,0
45017	LD D,H
45018	LD E,L
45019	LD BC,2000
45022	LDIR
45024	LD A,253
45026	IN A,(254)
45028	POP BC
45029	POP HL
45030	AND 2
45032	JP Z,45244
45035	INC HL
45036	DJNZ 45010
45038	LD HL,20493
45041	LD (HL),254
45043	INC HL
45044	INC HL
45045	LD (HL),254
45047	INC HL
45048	INC HL
45049	LD (HL),254
45051	LD HL,0
45054	LD (65048),HL
45057	LD BC,65
45060	LD (65046),BC
45064	LD A,22
45066	RST 16
45067	LD A,15
45069	RST 16
45070	LD BC,(65046)
45074	LD A,B
45075	RLCA
45076	ADD A,13
45078	RST 16
45079	LD BC,(65046)
45083	LD A,C
45084	RST 16
45085	LD HL,0
45088	LD DE,0
45091	LD BC,40000
45094	LDIR
45096	LD A,24
45098	OUT (254),A
45100	SUB A
45101	CALL 37170
45104	PUSH AF
45105	SUB A
45106	CALL 44350
45109	POP BC
45110	OR B
45111	BIT 6,A
45113	LD BC,(65046)
45117	JP Z,45121
45120	DEC C
45121	BIT 7,A
45123	JP Z,45127
45126	INC C
45127	LD A,C
45128	CP 65
45130	JP NC,45135
45133	LD A,91
45135	CP 92
45137	JP C,45142
45140	LD A,65
45142	LD C,A
45143	LD (65046),BC
45147	PUSH BC
45148	LD A,253
45150	IN A,(254)
45152	AND 2
45154	POP BC
45155	JP Z,45244
45158	LD A,(65108)
45161	AND A
45162	JP Z,45064
45165	INC B
45166	SUB A
45167	LD (65108),A
45170	LD HL,(65048)
45173	LD A,C
45174	SUB 65
45176	RLCA
45177	RLCA
45178	RLCA
45179	RLCA
45180	ADC HL,HL
45182	RLCA
45183	ADC HL,HL
45185	RLCA
45186	ADC HL,HL
45188	RLCA
45189	ADC HL,HL
45191	RLCA
45192	ADC HL,HL
45194	LD C,65
45196	LD (65048),HL
45199	LD A,B
45200	CP 3
45202	JP NC,45222
45205	LD (65046),BC
45209	LD BC,61438
45212	IN A,(C)
45214	AND 1
45216	JP Z,45212
45219	JP 45064
45222	EX DE,HL
45223	LD HL,9234
45226	AND A
45227	SBC HL,DE
45229	JP NZ,45235
45232	LD DE,12554
45235	LD HL,(65044)
45238	LD (HL),E
45239	INC HL
45240	LD (HL),D
45241	JP 45388
This entry point is used by the routines at 45556, 45813, 46471 and 46710.
45244	CALL 45295
45247	LD HL,16384
45250	LD DE,16385
45253	LD BC,6143
45256	SUB A
45257	LD (HL),A
45258	LDIR
45260	LD HL,0
45263	LD DE,0
45266	LDIR
45268	LD (65260),A
45271	LD HL,16537
45274	LD (38128),HL
45277	LD HL,(63232)
45280	LD (65142),HL
45283	CALL 38124
45286	LD HL,16473
45289	LD (38128),HL
45292	JP 38250
45295	LD (65024),SP
45299	LD SP,51860
45302	LD A,10
45304	LD (65102),A
45307	POP HL
45308	POP DE
45309	LD A,L
45310	SRL L
45312	SRL L
45314	CPL
45315	AND 3
45317	LD C,A
45318	LD B,0
45320	LD IX,45328
45324	ADD IX,BC
45326	LD A,8
45328	NOP
45329	NOP
45330	NOP
45331	INC B
45332	INC C
45333	DEC C
45334	JR NZ,45333
45336	LD C,63
45338	DEC B
45339	JP NZ,45333
45342	XOR 16
45344	OUT (254),A
45346	LD B,H
45347	LD C,A
45348	BIT 4,A
45350	JR NZ,45361
45352	LD A,D
45353	OR E
45354	JR Z,45365
45356	LD A,C
45357	LD C,L
45358	DEC DE
45359	JP (IX)
45361	LD C,L
45362	INC C
45363	JP (IX)
45365	LD A,(65102)
45368	LD HL,0
45371	LD DE,0
45374	LD BC,2500
45377	LDIR
45379	DEC A
45380	JP NZ,45304
45383	LD SP,(65024)
45387	RET
45388	LD HL,16384
45391	LD DE,16385
45394	LD BC,6143
45397	LDIR
45399	LD B,18
45401	LD HL,52730
45404	LD A,(HL)
45405	PUSH HL
45406	PUSH BC
45407	RST 16
45408	POP BC
45409	POP HL
45410	INC HL
45411	DJNZ 45404
45413	LD B,8
45415	LD C,6
45417	LD HL,63250
45420	LD E,(HL)
45421	INC HL
45422	LD D,(HL)
45423	INC HL
45424	PUSH HL
45425	PUSH BC
45426	PUSH DE
45427	PUSH BC
45428	LD A,22
45430	RST 16
45431	POP BC
45432	LD A,C
45433	RST 16
45434	LD A,10
45436	RST 16
45437	POP DE
45438	PUSH DE
45439	LD A,D
45440	RRCA
45441	RRCA
45442	AND 31
45444	ADD A,65
45446	RST 16
45447	POP DE
45448	PUSH DE
45449	LD A,D
45450	RL E
45452	RLA
45453	RL E
45455	RLA
45456	RL E
45458	RLA
45459	AND 31
45461	ADD A,65
45463	RST 16
45464	POP DE
45465	LD A,E
45466	AND 31
45468	ADD A,65
45470	RST 16
45471	POP BC
45472	POP HL
45473	INC C
45474	INC C
45475	DJNZ 45420
45477	LD BC,2054
45480	LD HL,63232
45483	LD E,(HL)
45484	INC HL
45485	LD D,(HL)
45486	INC HL
45487	PUSH HL
45488	PUSH BC
45489	LD A,C
45490	RRCA
45491	RRCA
45492	RRCA
45493	AND 224
45495	OR 16
45497	LD L,A
45498	LD A,C
45499	AND 24
45501	OR 64
45503	LD H,A
45504	LD (38128),HL
45507	LD (65142),DE
45511	EX DE,HL
45512	CALL 38124
45515	POP BC
45516	POP HL
45517	INC C
45518	INC C
45519	DJNZ 45483
45521	LD HL,16473
45524	LD (38128),HL
45527	LD A,26
45529	LD HL,0
45532	LD DE,0
45535	LD BC,0
45538	LDIR
45540	PUSH AF
45541	LD A,253
45543	IN A,(254)
45545	LD C,A
45546	POP AF
45547	BIT 1,C
45549	JP Z,45244
45552	DEC A
45553	JP NZ,45529