Prev: A5B2 Up: Map Next: A613
A5E1: Routine at A5E1
Used by the routine at A461.
A5E1 LD A,($9B11) A=*9B11.
A5E4 AND A Return if *9B11 is zero.
A5E5 RET Z
A5E6 LD HL,$7B00 HL=7B00.
A5E9 EX AF,AF' Exchange the AF register with the shadow AF register.
A5EA LD A,(HL) A=*HL.
A5EB LD DE,$7C87 DE=7C87.
A5EE EX AF,AF' Exchange the shadow AF register with the AF register.
A5EF LD H,D H=D.
A5F0 LD L,E L=E.
A5F1 LD C,A C=A.
A5F2 ADD A,A A+=A.
A5F3 ADD A,A A+=A.
A5F4 ADD A,A A+=A.
A5F5 SUB C A-=C.
A5F6 LD C,A C=A.
A5F7 LD B,$00 B=00.
A5F9 ADD HL,BC HL+=BC.
A5FA EX DE,HL Exchange the DE and HL registers.
A5FB LD BC,$0188 BC=0188.
A5FE LDDR LDDR.
A600 LD A,($9B11) A=*9B11.
A603 LD B,A B=A.
A604 EX AF,AF' Exchange the shadow AF register with the AF register.
A605 LD HL,$7B00 HL=7B00.
A608 PUSH BC Stash BC on the stack.
A609 LD B,$07 B=07.
A60B LD (HL),A Write A to *HL.
A60C INC HL Increment HL by one.
A60D DJNZ $A60B Decrease counter by one and loop back to A60B until counter is zero.
A60F POP BC Restore BC from the stack.
A610 DJNZ $A608 Decrease counter by one and loop back to A608 until counter is zero.
A612 RET Return.
Prev: A5B2 Up: Map Next: A613