Battlezone: Routine at 34400

34400: Routine at 8660

Used by the routines at 38782, 45556 and 45813.
34400	LD (65024),SP
34404	LD (65088),A
34407	LD SP,(65080)
34411	EXX
34412	LD HL,(65074)
34415	LD DE,(65078)
34419	LD B,132
34421	EXX
34422	EXX
34423	LD A,(DE)
34424	INC DE
34425	EX AF,AF'
34426	LD A,(DE)
34427	INC DE
34428	CP 1
34430	JP P,34440
34433	LD C,1
34435	LD SP,(65024)
34439	RET
34440	EXX
34441	EX AF,AF'
34442	LD C,A
34443	EX AF,AF'
34444	SLA C
34446	RLA
34447	SLA C
34449	ADC A,0
34451	LD B,A
34452	EXX
34453	LD A,(HL)
34454	INC HL
34455	EX AF,AF'
34456	LD A,(HL)
34457	INC HL
34458	EXX
34459	LD H,A
34460	EX AF,AF'
34461	LD L,A
34462	EX AF,AF'
34463	AND A
34464	JP P,34473
34467	LD DE,0
34470	EX DE,HL
34471	SBC HL,DE
34473	EX AF,AF'
34474	LD A,H
34475	CP 32
34477	JP M,34499
34480	LD C,2
34482	LD (65114),SP
34486	LD SP,(65024)
34490	RET
34491	LD (65024),SP
34495	LD SP,(65114)
34499	SLA L
34501	RLA
34502	SLA L
34504	RLA
34505	RLA
34506	LD H,A
34507	SUB A
34508	SLA H
34510	RLA
34511	JR C,34516
34513	CP B
34514	JR C,34518
34516	SUB B
34517	INC H
34518	SLA H
34520	RLA
34521	JR C,34526
34523	CP B
34524	JR C,34528
34526	SUB B
34527	INC H
34528	SLA H
34530	RLA
34531	JR C,34536
34533	CP B
34534	JR C,34538
34536	SUB B
34537	INC H
34538	SLA H
34540	RLA
34541	JR C,34546
34543	CP B
34544	JR C,34548
34546	SUB B
34547	INC H
34548	SLA H
34550	RLA
34551	JR C,34556
34553	CP B
34554	JR C,34558
34556	SUB B
34557	INC H
34558	SLA H
34560	RLA
34561	JR C,34566
34563	CP B
34564	JR C,34568
34566	SUB B
34567	INC H
34568	SLA H
34570	RLA
34571	JR C,34576
34573	CP B
34574	JR C,34578
34576	SUB B
34577	INC H
34578	SLA L
34580	RLA
34581	JR C,34586
34583	CP B
34584	JR C,34588
34586	SUB B
34587	INC L
34588	SLA L
34590	RLA
34591	JR C,34596
34593	CP B
34594	JR C,34598
34596	SUB B
34597	INC L
34598	SLA L
34600	RLA
34601	JR C,34606
34603	CP B
34604	JR C,34608
34606	SUB B
34607	INC L
34608	SLA L
34610	RLA
34611	JR C,34616
34613	CP B
34614	JR C,34618
34616	SUB B
34617	INC L
34618	SLA L
34620	RLA
34621	JR C,34626
34623	CP B
34624	JR C,34628
34626	SUB B
34627	INC L
34628	SLA L
34630	RLA
34631	JR C,34636
34633	CP B
34634	JR C,34638
34636	SUB B
34637	INC L
34638	SLA L
34640	RLA
34641	JR C,34646
34643	CP B
34644	JR C,34648
34646	SUB B
34647	INC L
34648	SLA L
34650	RLA
34651	JR C,34656
34653	CP B
34654	JR C,34658
34656	SUB B
34657	INC L
34658	EX AF,AF'
34659	AND A
34660	JP P,34669
34663	LD DE,0
34666	EX DE,HL
34667	SBC HL,DE
34669	PUSH HL
34670	EXX
34671	DEC B
34672	LD A,B
34673	AND A
34674	JP M,34683
34677	JP NZ,34423
34680	JP 34785
34683	AND 127
34685	EXX
34686	CP 3
34688	JR NZ,34699
34690	LD (65084),HL
34693	LD (65086),HL
34696	JP 34422
34699	EX DE,HL
34700	LD HL,(65084)
34703	SBC HL,DE
34705	JP P,34719
34708	LD (65084),DE
34712	AND A
34713	JP NZ,34422
34716	JP 34735
34719	LD HL,(65086)
34722	SBC HL,DE
34724	JP M,34731
34727	LD (65086),DE
34731	AND A
34732	JP NZ,34422
34735	LD HL,(65086)
34738	LD DE,129
34741	SBC HL,DE
34743	JP P,34766
34746	LD HL,(65084)
34749	ADC HL,DE
34751	JP M,34766
34754	EXX
34755	LD A,(65088)
34758	AND A
34759	LD B,A
34760	JP NZ,34423
34763	JP 34785
34766	LD C,2
34768	LD (65114),SP
34772	LD SP,(65024)
34776	RET
34777	LD (65024),SP
34781	LD SP,(65114)
34785	LD (65080),SP
34789	LD SP,(65082)
34793	LD A,(65088)
34796	ADD A,4
34798	LD DE,(65078)
34802	LD HL,(65076)
34805	LD B,A
34806	LD A,(DE)
34807	INC DE
34808	EX AF,AF'
34809	LD A,(DE)
34810	INC DE
34811	EXX
34812	EX AF,AF'
34813	LD C,A
34814	EX AF,AF'
34815	SLA C
34817	RLA
34818	SLA C
34820	ADC A,0
34822	LD B,A
34823	EXX
34824	LD A,(HL)
34825	INC HL
34826	EX AF,AF'
34827	LD A,(HL)
34828	INC HL
34829	EXX
34830	LD H,A
34831	EX AF,AF'
34832	LD L,A
34833	EX AF,AF'
34834	AND A
34835	JP P,34844
34838	LD DE,0
34841	EX DE,HL
34842	SBC HL,DE
34844	EX AF,AF'
34845	LD A,H
34846	SLA L
34848	RLA
34849	SLA L
34851	RLA
34852	RLA
34853	LD H,A
34854	SUB A
34855	SLA H
34857	RLA
34858	JR C,34863
34860	CP B
34861	JR C,34865
34863	SUB B
34864	INC H
34865	SLA H
34867	RLA
34868	JR C,34873
34870	CP B
34871	JR C,34875
34873	SUB B
34874	INC H
34875	SLA H
34877	RLA
34878	JR C,34883
34880	CP B
34881	JR C,34885
34883	SUB B
34884	INC H
34885	SLA H
34887	RLA
34888	JR C,34893
34890	CP B
34891	JR C,34895
34893	SUB B
34894	INC H
34895	SLA H
34897	RLA
34898	JR C,34903
34900	CP B
34901	JR C,34905
34903	SUB B
34904	INC H
34905	SLA H
34907	RLA
34908	JR C,34913
34910	CP B
34911	JR C,34915
34913	SUB B
34914	INC H
34915	SLA H
34917	RLA
34918	JR C,34923
34920	CP B
34921	JR C,34925
34923	SUB B
34924	INC H
34925	SLA L
34927	RLA
34928	JR C,34933
34930	CP B
34931	JR C,34935
34933	SUB B
34934	INC L
34935	SLA L
34937	RLA
34938	JR C,34943
34940	CP B
34941	JR C,34945
34943	SUB B
34944	INC L
34945	SLA L
34947	RLA
34948	JR C,34953
34950	CP B
34951	JR C,34955
34953	SUB B
34954	INC L
34955	SLA L
34957	RLA
34958	JR C,34963
34960	CP B
34961	JR C,34965
34963	SUB B
34964	INC L
34965	SLA L
34967	RLA
34968	JR C,34973
34970	CP B
34971	JR C,34975
34973	SUB B
34974	INC L
34975	SLA L
34977	RLA
34978	JR C,34983
34980	CP B
34981	JR C,34985
34983	SUB B
34984	INC L
34985	SLA L
34987	RLA
34988	JR C,34993
34990	CP B
34991	JR C,34995
34993	SUB B
34994	INC L
34995	SLA L
34997	RLA
34998	JR C,35003
35000	CP B
35001	JR C,35005
35003	SUB B
35004	INC L
35005	EX AF,AF'
35006	AND A
35007	JP P,35016
35010	LD DE,0
35013	EX DE,HL
35014	SBC HL,DE
35016	PUSH HL
35017	EXX
35018	DEC B
35019	JP NZ,34806
35022	LD (65082),SP
35026	LD SP,(65024)
35030	LD C,0
35032	RET
35033	NOP
35034	NOP
35035	NOP
35036	NOP
35037	NOP
35038	NOP
35039	NOP
35040	NOP
35041	NOP
35042	NOP
35043	NOP
35044	NOP
35045	NOP
35046	NOP
35047	NOP
35048	NOP
35049	NOP