Lunar Jetman: Routine at 38326

38326: Routine at 95B6

Used by the routine at 45476.
38326	CALL 37307	Call 37307.
38329	PUSH HL	Stash HL on the stack.
38330	LD DE,28672	DE=TerrainData_Active.
38333	EX DE,HL	Switch the DE and HL registers.
38334	ADD HL,DE	HL=HL+DE.
38335	BIT 3,(HL)
38337	JR Z,38343
38339	LD (HL),10	Write 10 to HL.
38341	JR 38345	Jump to 38345.
38343	LD (HL),8	Write 8 to HL.
38345	INC DE
38346	LD A,D
38347	AND %00000011	Keep only bits 0-1.
38349	LD D,A
38350	LD HL,28672	HL=TerrainData_Active.
38353	ADD HL,DE	HL=HL+DE.
38354	BIT 3,(HL)
38356	JR Z,38362
38358	LD (HL),10	Write 10 to HL.
38360	JR 38364	Jump to 38364.
38362	LD (HL),9	Write 9 to HL.
38364	CALL 39086
38367	JP NZ,38482
38370	LD A,H
38371	SUB 8
38373	LD H,A
38374	EX (SP),HL
38375	LD A,H
38376	AND %00011111	Keep only bits 0-4.
38378	LD H,A
38379	LD DE,28672	DE=TerrainData_Active.
38382	EX DE,HL
38383	ADD HL,DE
38384	EX DE,HL
38385	EX (SP),HL
38386	LD A,(24698)
38389	AND 7
38391	JR NZ,38394
38393	INC HL
38394	PUSH HL
38395	LD A,(DE)
38396	LD L,A
38397	LD H,0
38399	LD DE,63086
38402	ADD HL,HL
38403	ADD HL,HL
38404	ADD HL,HL
38405	ADD HL,DE
38406	EX DE,HL
38407	EXX
38408	LD A,(24698)
38411	NEG
38413	AND 7
38415	LD C,A
38416	EXX
38417	POP HL
38418	PUSH HL
38419	LD B,8
38421	CALL 38450
38424	POP HL
38425	EX (SP),HL
38426	INC HL
38427	LD A,H
38428	AND 3
38430	LD H,A
38431	LD DE,28672
38434	ADD HL,DE
38435	LD L,(HL)
38436	LD H,0
38438	ADD HL,HL
38439	ADD HL,HL
38440	ADD HL,HL
38441	LD DE,63086
38444	ADD HL,DE
38445	EX DE,HL
38446	POP HL
38447	INC L
38448	LD B,8	B=8 (counter).
38450	LD A,(DE)	A=DE.
38451	EXX
38452	LD H,A
38453	LD L,0
38455	LD B,C
38456	LD A,C
38457	AND A
38458	JR Z,38466
38460	SRL H
38462	RR L
38464	DJNZ 38460
38466	LD A,L
38467	EX AF,AF'
38468	LD A,H
38469	EXX
38470	OR (HL)
38471	LD (HL),A
38472	INC L
38473	EX AF,AF'
38474	OR (HL)
38475	LD (HL),A
38476	INC DE
38477	DEC L
38478	INC H
38479	DJNZ 38450
38481	RET	Return.
38482	POP HL	Restore HL from the stack.
38483	RET	Return.