Battlezone: Routine at 38124

38124: Routine at 94EC

Used by the routines at 44350 and 46429.
38124	LD (65142),HL
38127	LD BC,16473
38130	LD A,H
38131	AND A
38132	JR Z,38160
38134	RLCA
38135	RLCA
38136	RLCA
38137	RLCA
38138	AND 15
38140	JR Z,38145
38142	CALL 38028
38145	LD A,(65143)
38148	AND 15
38150	CALL 38028
38153	LD A,(65142)
38156	AND 240
38158	JR 38167
38160	LD A,(65142)
38163	AND 240
38165	JR Z,38174
38167	RRCA
38168	RRCA
38169	RRCA
38170	RRCA
38171	CALL 38028
38174	LD A,(65142)
38177	AND 15
38179	CALL 38028
38182	SUB A
38183	CALL 38028
38186	SUB A
38187	CALL 38028
38190	SUB A
38191	CALL 38028
38194	RET
38195	NOP
38196	NOP
38197	NOP
38198	NOP
38199	NOP
This entry point is used by the routine at 38782.
38200	LD A,0
38202	ADD A,4
38204	LD HL,0
38207	LD DE,0
38210	LD BC,820
38213	LDIR
38215	DEC A
38216	JP NZ,38204
38219	RET
38220	NOP
38221	NOP
38222	NOP
38223	NOP
38224	NOP
38225	NOP
38226	NOP
38227	NOP
38228	NOP
38229	NOP
38230	NOP
38231	NOP
38232	NOP
38233	NOP
38234	NOP
38235	NOP
38236	NOP
38237	NOP
38238	NOP
38239	NOP
38240	NOP
38241	NOP
38242	NOP
38243	NOP
38244	NOP
38245	NOP
38246	NOP
38247	NOP
38248	NOP
38249	NOP
This entry point is used by the routines at 44350 and 45813.
38250	LD HL,0
38253	LD (65130),HL
38256	LD (65132),HL
38259	LD (65142),HL
38262	LD (65144),HL
38265	LD (65138),HL
38268	LD (65146),HL
38271	LD (65128),HL
38274	LD (65108),HL
38277	LD (65104),HL
38280	LD (65134),HL
38283	LD HL,3
38286	LD (65252),HL
38289	LD HL,16384
38292	LD (65178),HL
38295	LD (65180),HL
38298	LD HL,49152
38301	LD (65182),HL
38304	LD (65184),HL
38307	LD HL,49152
38310	LD (65186),HL
38313	LD (65188),HL
38316	LD HL,16384
38319	LD (65190),HL
38322	LD (65176),HL
38325	CALL 32768
38328	LD HL,26880
38331	LD (65068),HL
38334	LD HL,25344
38337	LD (65106),HL
38340	LD HL,64
38343	LD (65192),HL
38346	LD A,8
38348	OUT (254),A
38350	LD B,39
38352	LD C,1
38354	LD HL,63871
38357	LD A,(HL)
38358	DEC HL
38359	ADD A,12
38361	LD E,A
38362	LD A,(HL)
38363	SUB 159
38365	LD D,A
38366	DEC HL
38367	LD A,C
38368	LD (DE),A
38369	DJNZ 38357
38371	LD B,39
38373	LD C,128
38375	LD HL,63871
38378	LD A,(HL)
38379	ADD A,19
38381	LD E,A
38382	DEC HL
38383	LD A,(HL)
38384	DEC HL
38385	SUB 159
38387	LD D,A
38388	LD A,C
38389	LD (DE),A
38390	DJNZ 38378
38392	LD B,32
38394	LD A,255
38396	LD HL,18303
38399	INC L
38400	LD (HL),A
38401	DJNZ 38399
38403	LD BC,160
38406	LD HL,22528
38409	LD DE,22529
38412	LD (HL),67
38414	LDIR
38416	INC (HL)
38417	LD BC,607
38420	LDIR
38422	LD HL,52800
38425	CALL 37970
38428	LD HL,52830
38431	CALL 37970
38434	LD HL,37
38437	LD (65254),HL
38440	LD B,0
38442	CALL 38060
38445	LD BC,16404
38448	LD A,10
38450	CALL 38028
38453	LD A,11
38455	CALL 38028
38458	LD A,10
38460	CALL 38028
38463	LD A,11
38465	CALL 38028
This entry point is used by the routines at 38782 and 44350.
38468	LD A,(65138)
38471	INC A
38472	CP 26
38474	JP C,38478
38477	SUB A
38478	LD (65138),A
38481	LD HL,0
38484	LD (65136),HL
38487	LD (65128),HL
38490	LD A,(65130)
38493	LD C,A
38494	LD A,R
38496	AND 127
38498	LD B,A
38499	LD HL,(65142)
38502	LD DE,5
38505	AND A
38506	SBC HL,DE
38508	JP P,38574
38511	LD A,36
38513	AND C
38514	OR 128
38516	LD (65130),A
38519	LD A,B
38520	AND 63
38522	OR 16
38524	ADD A,6
38526	LD (65121),A
38529	LD D,A
38530	LD L,0
38532	AND 252
38534	RRCA
38535	RRCA
38536	LD H,A
38537	BIT 3,B
38539	JP Z,38544
38542	NEG
38544	LD H,A
38545	LD (65118),HL
38548	CALL 37770
38551	LD L,A
38552	LD H,0
38554	ADD HL,HL
38555	LD (65124),HL
38558	LD A,(65119)
38561	CPL
38562	AND 128
38564	RLCA
38565	LD H,A
38566	LD L,0
38568	LD (65122),HL
38571	JP 38782
38574	LD DE,32
38577	AND A
38578	SBC HL,DE
38580	JP P,38611
38583	LD A,C
38584	AND 16
38586	JP Z,38600
38589	LD A,B
38590	CP 32
38592	JP NC,38702
38595	LD D,128
38597	JP 38629
38600	LD A,B
38601	CP 32
38603	JP C,38702
38606	LD D,128
38608	JP 38629
38611	LD A,B
38612	CP 48
38614	JP NC,38622
38617	LD D,64
38619	JP 38629
38622	CP 96
38624	JP C,38702
38627	LD D,128
38629	LD A,36
38631	AND C
38632	OR D
38633	LD (65130),A
38636	LD A,R
38638	AND 127
38640	LD B,A
38641	AND 63
38643	OR 16
38645	LD D,A
38646	BIT 2,B
38648	JP Z,38653
38651	NEG
38653	LD H,A
38654	LD (65118),HL
38657	LD A,R
38659	AND 127
38661	LD B,A
38662	AND 63
38664	OR 16
38666	ADD A,4
38668	LD D,A
38669	BIT 1,B
38671	JP Z,38676
38674	NEG
38676	LD D,A
38677	LD (65120),DE
38681	CALL 37770
38684	LD L,A
38685	LD H,0
38687	ADD HL,HL
38688	LD (65124),HL
38691	LD HL,(65122)
38694	LD A,R
38696	RLCA
38697	ADD A,L
38698	LD L,A
38699	JP 38782
This entry point is used by the routine at 38782.
38702	LD A,R
38704	AND 15
38706	BIT 0,A
38708	JP Z,38713
38711	NEG
38713	LD H,A
38714	LD (56586),HL
38717	LD (65148),HL
38720	LD HL,3600
38723	LD (65150),HL
38726	LD HL,25600
38729	LD (56762),HL
38732	LD (65152),HL
38735	LD HL,65144
38738	LD A,(HL)
38739	INC (HL)
38740	DEC A
38741	LD (65154),A
38744	LD A,128
38746	LD (65156),A
38749	SUB A
38750	LD (65146),A
38753	LD HL,(65148)
38756	LD DE,(65152)
38760	CALL 37770
38763	ADD A,64
38765	LD L,A
38766	LD H,0
38768	ADD HL,HL
38769	LD (65158),HL
38772	LD A,255
38774	LD (65160),A
38777	LD A,16
38779	LD (65130),A