Battlezone: Routine at 35050

35050: Routine at 88EA

Used by the routines at 38782, 45556 and 45813.
35050	LD (65024),SP
35054	LD (65102),A
35057	LD H,0
35059	ADD HL,HL
35060	ADD HL,HL
35061	EXX
35062	LD B,A
35063	LD DE,(65090)
35067	LD C,0
35069	EXX
35070	LD A,(65140)
35073	OUT (254),A
35075	LD A,3
35077	AND H
35078	OR 124
35080	LD H,A
35081	LD DE,(65098)
35085	LD SP,(65074)
35089	LD C,(HL)
35090	INC HL
35091	LD B,(HL)
35092	INC HL
35093	LD (65096),HL
35096	BIT 7,B
35098	JR NZ,35104
35100	EXX
35101	JP 35109
35104	RES 7,B
35106	EXX
35107	LD C,128
35109	LD A,(DE)
35110	INC DE
35111	EX AF,AF'
35112	LD A,(DE)
35113	INC DE
35114	EX AF,AF'
35115	EXX
35116	LD HL,0
35119	RRA
35120	JR NC,35123
35122	ADD HL,BC
35123	RR H
35125	RR L
35127	RRA
35128	JR NC,35131
35130	ADD HL,BC
35131	RR H
35133	RR L
35135	RRA
35136	JR NC,35139
35138	ADD HL,BC
35139	RR H
35141	RR L
35143	RRA
35144	JR NC,35147
35146	ADD HL,BC
35147	RR H
35149	RR L
35151	RRA
35152	JR NC,35155
35154	ADD HL,BC
35155	RR H
35157	RR L
35159	RRA
35160	JR NC,35163
35162	ADD HL,BC
35163	RR H
35165	RR L
35167	RRA
35168	JR NC,35171
35170	ADD HL,BC
35171	RR H
35173	RR L
35175	RRA
35176	JR NC,35179
35178	ADD HL,BC
35179	RR H
35181	RR L
35183	EX AF,AF'
35184	RRA
35185	JR NC,35188
35187	ADD HL,BC
35188	RR H
35190	RR L
35192	RRA
35193	JR NC,35196
35195	ADD HL,BC
35196	RR H
35198	RR L
35200	RRA
35201	JR NC,35204
35203	ADD HL,BC
35204	RR H
35206	RR L
35208	RRA
35209	JR NC,35212
35211	ADD HL,BC
35212	RR H
35214	RR L
35216	RRA
35217	JR NC,35220
35219	ADD HL,BC
35220	RR H
35222	RR L
35224	RRA
35225	JR NC,35228
35227	ADD HL,BC
35228	RR H
35230	RR L
35232	RRA
35233	JR NC,35236
35235	ADD HL,BC
35236	RR H
35238	RR L
35240	RRCA
35241	EXX
35242	XOR C
35243	EXX
35244	JP P,35261
35247	PUSH DE
35248	EX DE,HL
35249	SBC HL,DE
35251	POP DE
35252	PUSH HL
35253	EXX
35254	DEC B
35255	JP NZ,35109
35258	JP 35268
35261	ADD HL,DE
35262	PUSH HL
35263	EXX
35264	DEC B
35265	JP NZ,35109
35268	LD A,(65102)
35271	LD B,A
35272	LD DE,(65094)
35276	EXX
35277	LD SP,(65078)
35281	LD DE,(65100)
35285	EXX
35286	LD A,(DE)
35287	INC DE
35288	EX AF,AF'
35289	SUB A
35290	OUT (254),A
35292	LD A,(DE)
35293	INC DE
35294	EX AF,AF'
35295	EXX
35296	LD HL,0
35299	RRA
35300	JR NC,35303
35302	ADD HL,BC
35303	RR H
35305	RR L
35307	RRA
35308	JR NC,35311
35310	ADD HL,BC
35311	RR H
35313	RR L
35315	RRA
35316	JR NC,35319
35318	ADD HL,BC
35319	RR H
35321	RR L
35323	RRA
35324	JR NC,35327
35326	ADD HL,BC
35327	RR H
35329	RR L
35331	RRA
35332	JR NC,35335
35334	ADD HL,BC
35335	RR H
35337	RR L
35339	RRA
35340	JR NC,35343
35342	ADD HL,BC
35343	RR H
35345	RR L
35347	RRA
35348	JR NC,35351
35350	ADD HL,BC
35351	RR H
35353	RR L
35355	RRA
35356	JR NC,35359
35358	ADD HL,BC
35359	RR H
35361	RR L
35363	EX AF,AF'
35364	RRA
35365	JR NC,35368
35367	ADD HL,BC
35368	RR H
35370	RR L
35372	RRA
35373	JR NC,35376
35375	ADD HL,BC
35376	RR H
35378	RR L
35380	RRA
35381	JR NC,35384
35383	ADD HL,BC
35384	RR H
35386	RR L
35388	RRA
35389	JR NC,35392
35391	ADD HL,BC
35392	RR H
35394	RR L
35396	RRA
35397	JR NC,35400
35399	ADD HL,BC
35400	RR H
35402	RR L
35404	RRA
35405	JR NC,35408
35407	ADD HL,BC
35408	RR H
35410	RR L
35412	RRA
35413	JR NC,35416
35415	ADD HL,BC
35416	RR H
35418	RR L
35420	RRCA
35421	EXX
35422	XOR C
35423	EXX
35424	JP P,35441
35427	PUSH DE
35428	EX DE,HL
35429	SBC HL,DE
35431	POP DE
35432	PUSH HL
35433	EXX
35434	DEC B
35435	JP NZ,35286
35438	JP 35448
35441	ADD HL,DE
35442	PUSH HL
35443	EXX
35444	DEC B
35445	JP NZ,35286
35448	LD DE,(65094)
35452	LD A,(65102)
35455	LD B,A
35456	EXX
35457	LD HL,(65096)
35460	LD C,(HL)
35461	INC HL
35462	LD B,(HL)
35463	LD A,B
35464	AND 128
35466	LD D,A
35467	LD SP,(65074)
35471	RES 7,B
35473	EXX
35474	LD A,(DE)
35475	INC DE
35476	EX AF,AF'
35477	LD A,(65140)
35480	OUT (254),A
35482	LD A,(DE)
35483	INC DE
35484	EX AF,AF'
35485	EXX
35486	LD HL,0
35489	RRA
35490	JR NC,35493
35492	ADD HL,BC
35493	RR H
35495	RR L
35497	RRA
35498	JR NC,35501
35500	ADD HL,BC
35501	RR H
35503	RR L
35505	RRA
35506	JR NC,35509
35508	ADD HL,BC
35509	RR H
35511	RR L
35513	RRA
35514	JR NC,35517
35516	ADD HL,BC
35517	RR H
35519	RR L
35521	RRA
35522	JR NC,35525
35524	ADD HL,BC
35525	RR H
35527	RR L
35529	RRA
35530	JR NC,35533
35532	ADD HL,BC
35533	RR H
35535	RR L
35537	RRA
35538	JR NC,35541
35540	ADD HL,BC
35541	RR H
35543	RR L
35545	RRA
35546	JR NC,35549
35548	ADD HL,BC
35549	RR H
35551	RR L
35553	EX AF,AF'
35554	RRA
35555	JR NC,35558
35557	ADD HL,BC
35558	RR H
35560	RR L
35562	RRA
35563	JR NC,35566
35565	ADD HL,BC
35566	RR H
35568	RR L
35570	RRA
35571	JR NC,35574
35573	ADD HL,BC
35574	RR H
35576	RR L
35578	RRA
35579	JR NC,35582
35581	ADD HL,BC
35582	RR H
35584	RR L
35586	RRA
35587	JR NC,35590
35589	ADD HL,BC
35590	RR H
35592	RR L
35594	RRA
35595	JR NC,35598
35597	ADD HL,BC
35598	RR H
35600	RR L
35602	RRA
35603	JR NC,35606
35605	ADD HL,BC
35606	RR H
35608	RR L
35610	RRCA
35611	DEC SP
35612	DEC SP
35613	XOR D
35614	JP P,35632
35617	LD A,D
35618	EX DE,HL
35619	POP HL
35620	SBC HL,DE
35622	PUSH HL
35623	LD D,A
35624	EXX
35625	DEC B
35626	JP NZ,35474
35629	JP 35642
35632	LD A,D
35633	POP DE
35634	ADD HL,DE
35635	PUSH HL
35636	LD D,A
35637	EXX
35638	DEC B
35639	JP NZ,35474
35642	LD (65074),SP
35646	LD A,(65102)
35649	LD B,A
35650	LD SP,(65078)
35654	LD DE,(65090)
35658	EXX
35659	LD A,D
35660	CPL
35661	LD D,A
35662	EXX
35663	LD A,(DE)
35664	INC DE
35665	EX AF,AF'
35666	SUB A
35667	OUT (254),A
35669	LD A,(DE)
35670	INC DE
35671	EX AF,AF'
35672	EXX
35673	LD HL,0
35676	RRA
35677	JR NC,35680
35679	ADD HL,BC
35680	RR H
35682	RR L
35684	RRA
35685	JR NC,35688
35687	ADD HL,BC
35688	RR H
35690	RR L
35692	RRA
35693	JR NC,35696
35695	ADD HL,BC
35696	RR H
35698	RR L
35700	RRA
35701	JR NC,35704
35703	ADD HL,BC
35704	RR H
35706	RR L
35708	RRA
35709	JR NC,35712
35711	ADD HL,BC
35712	RR H
35714	RR L
35716	RRA
35717	JR NC,35720
35719	ADD HL,BC
35720	RR H
35722	RR L
35724	RRA
35725	JR NC,35728
35727	ADD HL,BC
35728	RR H
35730	RR L
35732	RRA
35733	JR NC,35736
35735	ADD HL,BC
35736	RR H
35738	RR L
35740	EX AF,AF'
35741	RRA
35742	JR NC,35745
35744	ADD HL,BC
35745	RR H
35747	RR L
35749	RRA
35750	JR NC,35753
35752	ADD HL,BC
35753	RR H
35755	RR L
35757	RRA
35758	JR NC,35761
35760	ADD HL,BC
35761	RR H
35763	RR L
35765	RRA
35766	JR NC,35769
35768	ADD HL,BC
35769	RR H
35771	RR L
35773	RRA
35774	JR NC,35777
35776	ADD HL,BC
35777	RR H
35779	RR L
35781	RRA
35782	JR NC,35785
35784	ADD HL,BC
35785	RR H
35787	RR L
35789	RRA
35790	JR NC,35793
35792	ADD HL,BC
35793	RR H
35795	RR L
35797	DEC SP
35798	DEC SP
35799	RRCA
35800	XOR D
35801	JP P,35826
35804	LD A,D
35805	EX DE,HL
35806	POP HL
35807	SBC HL,DE
35809	PUSH HL
35810	LD D,A
35811	EXX
35812	DEC B
35813	JP NZ,35663
35816	LD (65078),SP
35820	LD SP,(65024)
35824	EXX
35825	RET
35826	LD A,D
35827	POP DE
35828	ADD HL,DE
35829	PUSH HL
35830	LD D,A
35831	EXX
35832	DEC B
35833	JP NZ,35663
35836	LD (65078),SP
35840	LD SP,(65024)
35844	EXX
35845	RET
35846	NOP
35847	NOP
35848	NOP
35849	NOP
35850	NOP
35851	NOP
35852	NOP
35853	NOP
35854	NOP
35855	NOP
35856	NOP
35857	NOP
35858	NOP
35859	NOP
35860	NOP
35861	NOP
35862	NOP
35863	NOP
35864	NOP
35865	NOP
35866	NOP
35867	NOP
35868	NOP
35869	NOP
35870	NOP
35871	NOP
35872	NOP
35873	NOP
35874	NOP
35875	NOP
35876	NOP
35877	NOP
35878	NOP
35879	NOP
35880	NOP
35881	NOP
35882	NOP
35883	NOP
35884	NOP
35885	NOP
35886	NOP
35887	NOP
35888	NOP
35889	NOP
35890	NOP
35891	NOP
35892	NOP
35893	NOP
35894	NOP
35895	NOP
35896	NOP
35897	NOP
35898	NOP
35899	NOP