Battlezone: Routine at 32860

32860: Routine at 805C

Used by the routines at 38782, 44350, 45556 and 45813.
32860	LD HL,(65026)
32863	LD A,(HL)
32864	LD (65028),A
32867	INC HL
32868	LD (65026),HL
32871	LD (65024),SP
32875	LD SP,(65026)
32879	LD A,(65140)
32882	OUT (254),A
32884	POP HL
32885	LD E,(HL)
32886	INC HL
32887	LD D,(HL)
32888	POP HL
32889	LD C,(HL)
32890	INC HL
32891	LD B,(HL)
32892	EX DE,HL
32893	LD (65040),HL
32896	AND A
32897	SBC HL,BC
32899	JP P,32947
32902	EX DE,HL
32903	LD HL,0
32906	AND A
32907	SBC HL,DE
32909	LD (65042),HL
32912	LD HL,(65040)
32915	LD (65038),HL
32918	LD (65040),BC
32922	POP HL
32923	LD C,(HL)
32924	INC HL
32925	LD B,(HL)
32926	LD (65032),BC
32930	POP HL
32931	LD E,(HL)
32932	INC HL
32933	LD D,(HL)
32934	LD (65034),DE
32938	EX DE,HL
32939	AND A
32940	SBC HL,BC
32942	LD (65036),HL
32945	JR 32977
32947	LD (65038),BC
32951	LD (65042),HL
32954	POP HL
32955	LD E,(HL)
32956	INC HL
32957	LD D,(HL)
32958	LD (65034),DE
32962	POP HL
32963	LD C,(HL)
32964	INC HL
32965	LD B,(HL)
32966	LD (65032),BC
32970	EX DE,HL
32971	AND A
32972	SBC HL,BC
32974	LD (65036),HL
32977	LD (65026),SP
32981	LD SP,(65024)
32985	LD DE,86
32988	LD HL,(65040)
32991	ADD HL,DE
32992	SUB A
32993	OUT (254),A
32995	LD A,H
32996	AND A
32997	JP M,34353
33000	LD (65040),HL
33003	LD HL,(65038)
33006	ADD HL,DE
33007	LD DE,65384
33010	EX DE,HL
33011	ADD HL,DE
33012	LD A,H
33013	AND A
33014	JP P,34353
33017	LD (65038),DE
33021	LD HL,(65036)
33024	LD A,H
33025	AND A
33026	JR NZ,33035
33028	LD A,L
33029	AND A
33030	JP Z,34247
33033	JR 33038
33035	JP M,33085
33038	LD DE,128
33041	LD HL,(65032)
33044	ADD HL,DE
33045	INC HL
33046	LD A,H
33047	DEC A
33048	JP P,34353
33051	DEC HL
33052	LD (65032),HL
33055	LD HL,(65034)
33058	ADD HL,DE
33059	DEC HL
33060	LD A,H
33061	AND A
33062	JP M,34353
33065	INC HL
33066	LD (65034),HL
33069	LD HL,(65036)
33072	LD DE,(65042)
33076	AND A
33077	SBC HL,DE
33079	JP P,33693
33082	JP 33145
33085	LD DE,(65036)
33089	LD HL,0
33092	AND A
33093	SBC HL,DE
33095	LD (65036),HL
33098	LD DE,128
33101	LD HL,(65034)
33104	ADD HL,DE
33105	INC HL
33106	LD A,H
33107	DEC A
33108	JP P,34353
33111	DEC HL
33112	LD (65034),HL
33115	LD HL,(65032)
33118	ADD HL,DE
33119	DEC HL
33120	LD A,H
33121	AND A
33122	JP M,34353
33125	INC HL
33126	LD (65032),HL
33129	LD HL,(65036)
33132	LD DE,(65042)
33136	AND A
33137	SBC HL,DE
33139	JP P,33971
33142	JP 33418
33145	LD HL,(65036)
33148	LD A,H
33149	OR D
33150	JR NZ,33156
33152	LD D,E
33153	LD H,L
33154	LD A,H
33155	OR D
33156	AND 128
33158	JR NZ,33172
33160	SLA E
33162	RL D
33164	SLA L
33166	RL H
33168	OR D
33169	OR H
33170	JR 33156
33172	LD A,H
33173	LD H,0
33175	SLA H
33177	RLA
33178	JR C,33183
33180	CP D
33181	JR C,33185
33183	SUB D
33184	INC H
33185	SLA H
33187	RLA
33188	JR C,33193
33190	CP D
33191	JR C,33195
33193	SUB D
33194	INC H
33195	SLA H
33197	RLA
33198	JR C,33203
33200	CP D
33201	JR C,33205
33203	SUB D
33204	INC H
33205	SLA H
33207	RLA
33208	JR C,33213
33210	CP D
33211	JR C,33215
33213	SUB D
33214	INC H
33215	SLA H
33217	RLA
33218	JR C,33223
33220	CP D
33221	JR C,33225
33223	SUB D
33224	INC H
33225	SLA H
33227	RLA
33228	JR C,33233
33230	CP D
33231	JR C,33235
33233	SUB D
33234	INC H
33235	SLA H
33237	RLA
33238	JR C,33243
33240	CP D
33241	JR C,33245
33243	SUB D
33244	INC H
33245	SLA H
33247	RLA
33248	JR C,33253
33250	CP D
33251	JR C,33255
33253	SUB D
33254	INC H
33255	LD A,H
33256	LD HL,(65040)
33259	LD DE,151
33262	AND A
33263	SBC HL,DE
33265	EX DE,HL
33266	LD HL,(65042)
33269	JR C,33273
33271	SBC HL,DE
33273	EXX
33274	LD BC,(65038)
33278	LD HL,(65032)
33281	LD D,A
33282	SUB A
33283	EXX
33284	EX AF,AF'
33285	EXX
33286	LD A,B
33287	AND A
33288	JP M,33298
33291	LD A,H
33292	AND A
33293	JP M,33304
33296	JR 33327
33298	LD A,H
33299	CP 1
33301	JP P,34351
33304	INC BC
33305	INC BC
33306	EX AF,AF'
33307	ADD A,D
33308	JR NC,33311
33310	INC HL
33311	ADD A,D
33312	JR NC,33315
33314	INC HL
33315	EX AF,AF'
33316	EXX
33317	DEC HL
33318	DEC HL
33319	LD A,H
33320	CP 255
33322	JR NZ,33285
33324	JP 34352
33327	JP NZ,34351
33330	EXX
33331	LD A,L
33332	OR H
33333	JP Z,34352
33336	EXX
33337	LD A,L
33338	EX AF,AF'
33339	LD E,A
33340	LD A,C
33341	EXX
33342	LD C,A
33343	EX AF,AF'
33344	LD E,A
33345	LD H,L
33346	LD B,124
33348	LD D,125
33350	SLA C
33352	RL B
33354	SLA E
33356	RL D
33358	LD A,(DE)
33359	INC DE
33360	INC DE
33361	LD L,A
33362	LD A,H
33363	EXX
33364	LD B,A
33365	LD A,E
33366	ADD A,D
33367	LD E,A
33368	JR NC,33395
33370	INC L
33371	JP Z,34351
33374	EXX
33375	LD A,(BC)
33376	INC BC
33377	LD H,A
33378	LD A,(BC)
33379	INC BC
33380	LD L,A
33381	LD A,(DE)
33382	INC DE
33383	OR L
33384	LD L,A
33385	LD A,(DE)
33386	INC DE
33387	OR (HL)
33388	LD (HL),A
33389	EXX
33390	DJNZ 33365
33392	JP 34351
33395	EXX
33396	LD A,(BC)
33397	LD H,A
33398	INC BC
33399	LD A,L
33400	AND 31
33402	LD L,A
33403	LD A,(BC)
33404	INC BC
33405	OR L
33406	LD L,A
33407	DEC DE
33408	LD A,(DE)
33409	INC DE
33410	OR (HL)
33411	LD (HL),A
33412	EXX
33413	DJNZ 33365
33415	JP 34351
33418	LD HL,(65036)
33421	LD A,H
33422	OR D
33423	JR NZ,33429
33425	LD D,E
33426	LD H,L
33427	LD A,H
33428	OR D
33429	AND 128
33431	JR NZ,33445
33433	SLA E
33435	RL D
33437	SLA L
33439	RL H
33441	OR H
33442	OR D
33443	JR 33429
33445	LD A,H
33446	LD H,0
33448	SLA H
33450	RLA
33451	JR C,33456
33453	CP D
33454	JR C,33458
33456	SUB D
33457	INC H
33458	SLA H
33460	RLA
33461	JR C,33466
33463	CP D
33464	JR C,33468
33466	SUB D
33467	INC H
33468	SLA H
33470	RLA
33471	JR C,33476
33473	CP D
33474	JR C,33478
33476	SUB D
33477	INC H
33478	SLA H
33480	RLA
33481	JR C,33486
33483	CP D
33484	JR C,33488
33486	SUB D
33487	INC H
33488	SLA H
33490	RLA
33491	JR C,33496
33493	CP D
33494	JR C,33498
33496	SUB D
33497	INC H
33498	SLA H
33500	RLA
33501	JR C,33506
33503	CP D
33504	JR C,33508
33506	SUB D
33507	INC H
33508	SLA H
33510	RLA
33511	JR C,33516
33513	CP D
33514	JR C,33518
33516	SUB D
33517	INC H
33518	SLA H
33520	RLA
33521	JR C,33526
33523	CP D
33524	JR C,33528
33526	SUB D
33527	INC H
33528	LD A,H
33529	LD HL,(65040)
33532	LD DE,151
33535	AND A
33536	SBC HL,DE
33538	EX DE,HL
33539	LD HL,(65042)
33542	JR C,33546
33544	SBC HL,DE
33546	EXX
33547	LD BC,(65038)
33551	LD HL,(65032)
33554	LD D,A
33555	SUB A
33556	EXX
33557	EX AF,AF'
33558	EXX
33559	LD A,B
33560	AND A
33561	JP M,33572
33564	LD A,H
33565	CP 1
33567	JP P,33577
33570	JR 33600
33572	LD A,H
33573	AND A
33574	JP M,34351
33577	INC BC
33578	INC BC
33579	EX AF,AF'
33580	ADD A,D
33581	JR NC,33584
33583	DEC HL
33584	ADD A,D
33585	JR NC,33588
33587	DEC HL
33588	EX AF,AF'
33589	EXX
33590	DEC HL
33591	DEC HL
33592	LD A,H
33593	CP 255
33595	JR NZ,33558
33597	JP 34352
33600	AND A
33601	JP NZ,34351
33604	EXX
33605	LD A,L
33606	OR H
33607	JP Z,34352
33610	EXX
33611	LD A,L
33612	EX AF,AF'
33613	LD E,A
33614	LD A,C
33615	EXX
33616	LD C,A
33617	EX AF,AF'
33618	LD E,A
33619	LD H,L
33620	LD B,124
33622	LD D,126
33624	SLA C
33626	RL B
33628	SLA E
33630	RL D
33632	INC DE
33633	LD A,(DE)
33634	LD L,A
33635	DEC DE
33636	DEC DE
33637	LD A,H
33638	EXX
33639	LD B,A
33640	LD A,E
33641	ADD A,D
33642	LD E,A
33643	JR NC,33670
33645	DEC L
33646	JP Z,34351
33649	EXX
33650	LD A,(BC)
33651	INC BC
33652	LD H,A
33653	LD A,(BC)
33654	INC BC
33655	LD L,A
33656	LD A,(DE)
33657	DEC DE
33658	OR L
33659	LD L,A
33660	LD A,(DE)
33661	DEC DE
33662	OR (HL)
33663	LD (HL),A
33664	EXX
33665	DJNZ 33640
33667	JP 34351
33670	EXX
33671	LD A,(BC)
33672	INC BC
33673	LD H,A
33674	LD A,L
33675	AND 31
33677	LD L,A
33678	LD A,(BC)
33679	OR L
33680	LD L,A
33681	INC BC
33682	INC DE
33683	LD A,(DE)
33684	DEC DE
33685	OR (HL)
33686	LD (HL),A
33687	EXX
33688	DJNZ 33640
33690	JP 34351
33693	LD HL,(65036)
33696	EX DE,HL
33697	LD A,H
33698	OR D
33699	JR NZ,33705
33701	LD D,E
33702	LD H,L
33703	LD A,H
33704	OR D
33705	AND 128
33707	JR NZ,33721
33709	SLA E
33711	RL D
33713	SLA L
33715	RL H
33717	OR H
33718	OR D
33719	JR 33705
33721	LD A,H
33722	LD H,0
33724	SLA H
33726	RLA
33727	JR C,33732
33729	CP D
33730	JR C,33734
33732	SUB D
33733	INC H
33734	SLA H
33736	RLA
33737	JR C,33742
33739	CP D
33740	JR C,33744
33742	SUB D
33743	INC H
33744	SLA H
33746	RLA
33747	JR C,33752
33749	CP D
33750	JR C,33754
33752	SUB D
33753	INC H
33754	SLA H
33756	RLA
33757	JR C,33762
33759	CP D
33760	JR C,33764
33762	SUB D
33763	INC H
33764	SLA H
33766	RLA
33767	JR C,33772
33769	CP D
33770	JR C,33774
33772	SUB D
33773	INC H
33774	SLA H
33776	RLA
33777	JR C,33782
33779	CP D
33780	JR C,33784
33782	SUB D
33783	INC H
33784	SLA H
33786	RLA
33787	JR C,33792
33789	CP D
33790	JR C,33794
33792	SUB D
33793	INC H
33794	SLA H
33796	RLA
33797	JR C,33802
33799	CP D
33800	JR C,33804
33802	SUB D
33803	INC H
33804	LD A,H
33805	LD HL,(65034)
33808	LD DE,255
33811	AND A
33812	SBC HL,DE
33814	EX DE,HL
33815	LD HL,(65036)
33818	JR C,33822
33820	SBC HL,DE
33822	LD DE,(65032)
33826	EXX
33827	LD D,A
33828	LD BC,(65038)
33832	LD HL,65384
33835	ADD HL,BC
33836	SUB A
33837	EX AF,AF'
33838	EXX
33839	LD A,D
33840	AND A
33841	JP M,33852
33844	EXX
33845	LD A,B
33846	AND A
33847	JP M,33858
33850	JR 33883
33852	EXX
33853	LD A,H
33854	AND A
33855	JP P,34351
33858	EX AF,AF'
33859	ADD A,D
33860	JR NC,33864
33862	INC HL
33863	INC BC
33864	ADD A,D
33865	JR NC,33869
33867	INC HL
33868	INC BC
33869	EXX
33870	EX AF,AF'
33871	INC DE
33872	INC DE
33873	DEC HL
33874	DEC HL
33875	LD A,H
33876	CP 255
33878	JR NZ,33839
33880	JP 34352
33883	JP NZ,34351
33886	EXX
33887	LD A,L
33888	OR H
33889	JP Z,34352
33892	EXX
33893	LD A,C
33894	EX AF,AF'
33895	LD E,A
33896	EXX
33897	EX AF,AF'
33898	LD C,A
33899	LD B,124
33901	LD D,125
33903	SLA C
33905	RL B
33907	SLA E
33909	RL D
33911	LD A,L
33912	EX AF,AF'
33913	LD A,(BC)
33914	INC BC
33915	LD H,A
33916	LD A,(BC)
33917	INC BC
33918	LD L,A
33919	EX AF,AF'
33920	EXX
33921	LD B,A
33922	LD A,E
33923	ADD A,D
33924	LD E,A
33925	JR NC,33952
33927	INC L
33928	JP Z,34351
33931	EXX
33932	LD A,(BC)
33933	INC BC
33934	LD H,A
33935	LD A,(BC)
33936	INC BC
33937	LD L,A
33938	LD A,(DE)
33939	INC DE
33940	OR L
33941	LD L,A
33942	LD A,(DE)
33943	INC DE
33944	OR (HL)
33945	LD (HL),A
33946	EXX
33947	DJNZ 33922
33949	JP 34351
33952	EXX
33953	LD A,L
33954	AND 224
33956	LD L,A
33957	LD A,(DE)
33958	INC DE
33959	OR L
33960	LD L,A
33961	LD A,(DE)
33962	INC DE
33963	OR (HL)
33964	LD (HL),A
33965	EXX
33966	DJNZ 33922
33968	JP 34351
33971	LD HL,(65036)
33974	EX DE,HL
33975	LD A,H
33976	OR D
33977	JR NZ,33983
33979	LD D,E
33980	LD H,L
33981	LD A,H
33982	OR D
33983	AND 128
33985	JR NZ,33999
33987	SLA E
33989	RL D
33991	SLA L
33993	RL H
33995	OR H
33996	OR D
33997	JR 33983
33999	LD A,H
34000	LD H,0
34002	SLA H
34004	RLA
34005	JR C,34010
34007	CP D
34008	JR C,34012
34010	SUB D
34011	INC H
34012	SLA H
34014	RLA
34015	JR C,34020
34017	CP D
34018	JR C,34022
34020	SUB D
34021	INC H
34022	SLA H
34024	RLA
34025	JR C,34030
34027	CP D
34028	JR C,34032
34030	SUB D
34031	INC H
34032	SLA H
34034	RLA
34035	JR C,34040
34037	CP D
34038	JR C,34042
34040	SUB D
34041	INC H
34042	SLA H
34044	RLA
34045	JR C,34050
34047	CP D
34048	JR C,34052
34050	SUB D
34051	INC H
34052	SLA H
34054	RLA
34055	JR C,34060
34057	CP D
34058	JR C,34062
34060	SUB D
34061	INC H
34062	SLA H
34064	RLA
34065	JR C,34070
34067	CP D
34068	JR C,34072
34070	SUB D
34071	INC H
34072	SLA H
34074	RLA
34075	JR C,34080
34077	CP D
34078	JR C,34082
34080	SUB D
34081	INC H
34082	LD A,H
34083	LD HL,(65036)
34086	LD DE,(65032)
34090	AND A
34091	SBC HL,DE
34093	LD HL,(65036)
34096	JR C,34100
34098	LD H,D
34099	LD L,E
34100	EXX
34101	LD D,A
34102	LD BC,(65038)
34106	LD HL,65384
34109	ADD HL,BC
34110	SUB A
34111	EX AF,AF'
34112	EXX
34113	LD A,D
34114	CP 1
34116	JP P,34127
34119	EXX
34120	LD A,B
34121	AND A
34122	JP M,34133
34125	JR 34158
34127	EXX
34128	LD A,H
34129	AND A
34130	JP P,34351
34133	EX AF,AF'
34134	ADD A,D
34135	JR NC,34139
34137	INC HL
34138	INC BC
34139	ADD A,D
34140	JR NC,34144
34142	INC HL
34143	INC BC
34144	EXX
34145	EX AF,AF'
34146	DEC DE
34147	DEC DE
34148	DEC HL
34149	DEC HL
34150	LD A,H
34151	CP 255
34153	JR NZ,34113
34155	JP 34352
34158	JP NZ,34351
34161	EXX
34162	LD A,L
34163	OR H
34164	JP Z,34352
34167	EXX
34168	LD A,C
34169	EX AF,AF'
34170	LD E,A
34171	EXX
34172	EX AF,AF'
34173	LD C,A
34174	LD B,124
34176	LD D,126
34178	SLA C
34180	RL B
34182	SLA E
34184	RL D
34186	LD A,L
34187	EX AF,AF'
34188	LD A,(BC)
34189	INC BC
34190	LD H,A
34191	LD A,(BC)
34192	INC BC
34193	LD L,A
34194	INC DE
34195	EX AF,AF'
34196	EXX
34197	LD B,A
34198	LD A,E
34199	ADD A,D
34200	LD E,A
34201	JR NC,34228
34203	INC L
34204	JP Z,34351
34207	EXX
34208	LD A,(BC)
34209	INC BC
34210	LD H,A
34211	LD A,(BC)
34212	INC BC
34213	LD L,A
34214	LD A,(DE)
34215	DEC DE
34216	OR L
34217	LD L,A
34218	LD A,(DE)
34219	OR (HL)
34220	LD (HL),A
34221	DEC DE
34222	EXX
34223	DJNZ 34198
34225	JP 34351
34228	EXX
34229	LD A,L
34230	AND 224
34232	LD L,A
34233	LD A,(DE)
34234	DEC DE
34235	OR L
34236	LD L,A
34237	LD A,(DE)
34238	DEC DE
34239	OR (HL)
34240	LD (HL),A
34241	EXX
34242	DJNZ 34198
34244	JP 34351
34247	LD DE,128
34250	LD HL,(65032)
34253	ADD HL,DE
34254	LD A,H
34255	AND A
34256	JP NZ,34353
34259	LD (65032),HL
34262	LD HL,(65038)
34265	LD A,H
34266	AND A
34267	JR Z,34275
34269	LD HL,0
34272	LD (65038),HL
34275	LD DE,(65040)
34279	LD HL,65384
34282	ADD HL,DE
34283	JR NC,34291
34285	LD HL,151
34288	LD (65040),HL
34291	LD HL,(65040)
34294	LD DE,(65038)
34298	AND A
34299	SBC HL,DE
34301	LD B,L
34302	LD A,B
34303	AND A
34304	JP Z,34353
34307	LD A,(65032)
34310	LD E,A
34311	LD D,125
34313	SLA E
34315	RL D
34317	LD A,(DE)
34318	LD L,A
34319	INC DE
34320	LD A,(DE)
34321	LD C,A
34322	LD A,(65038)
34325	LD D,124
34327	LD E,A
34328	SLA E
34330	RL D
34332	LD A,(DE)
34333	INC DE
34334	LD H,A
34335	LD A,L
34336	AND 31
34338	LD L,A
34339	LD A,(DE)
34340	INC DE
34341	OR L
34342	LD L,A
34343	LD A,C
34344	OR (HL)
34345	LD (HL),A
34346	DJNZ 34332
34348	JP 34353
34351	EXX
34352	EX AF,AF'
34353	LD A,(65028)
34356	DEC A
34357	LD (65028),A
34360	JP NZ,32875
34363	LD SP,(65024)
34367	RET
34368	NOP
34369	NOP
34370	NOP
34371	NOP
34372	NOP
34373	NOP
34374	NOP
34375	NOP
34376	NOP
34377	NOP
34378	NOP
34379	NOP
34380	NOP
34381	NOP
34382	NOP
34383	NOP
34384	NOP
34385	NOP
34386	NOP
34387	NOP
34388	NOP
34389	NOP
34390	NOP
34391	NOP
34392	NOP
34393	NOP
34394	NOP
34395	NOP
34396	NOP
34397	NOP
34398	NOP
34399	NOP