Routines
Prev: 37694 Up: Map Next: 37781
37718: Draw Terrain?
Used by the routines at 41386 and LevelNew.
37718 LD HL,(24698) HL=24698.
37721 LD DE,65416 DE=65416.
37724 ADD HL,DE HL+=DE.
37725 LD A,H A=H.
37726 AND %00011111 Keep only bits 0-4.
37728 LD H,A H=A.
37729 SRA H
37731 RR L
37733 SRA H
37735 RR L
37737 SRA H
37739 RR L
37741 LD DE,20672 DE=20672.
37744 LD BC,28672 BC=TerrainData_Active.
37747 LD A,32 A=32.
37749 PUSH AF Stash AF and HL on the stack.
37750 PUSH HL
37751 ADD HL,BC HL+=BC.
37752 PUSH BC Stash BC and DE on the stack.
37753 PUSH DE
37754 CALL 37244 Call 37244.
37757 POP DE Restore DE from the stack.
37758 INC E Increment E by one.
37759 POP BC Restore BC and HL from the stack.
37760 POP HL
37761 INC HL Increment HL by one.
37762 LD A,H A=H.
37763 AND %00000011 Keep only bits 0-1.
37765 LD H,A H=A.
37766 POP AF Restore AF from the stack.
37767 DEC A Decrease A by one.
37768 JR NZ,37749 Jump back to 37749 unless A is now zero.
37770 LD HL,23265 HL=23265.
37773 LD BC,7771 BC=7771.
37776 LD (HL),C Write C to HL.
37777 INC HL Increment HL by one.
37778 DJNZ 37776 Decrease counter by one and loop back to 37776 until counter is zero.
37780 RET Return.
Prev: 37694 Up: Map Next: 37781