Prev: D50C Up: Map Next: D593
D55B: Routine at D55B
Used by the routine at FindScene.
D55B LD HL,$C7C0 HL=C7C0.
D55E LD D,$00 D=00.
D560 LD E,A E=A.
D561 ADD HL,DE HL+=DE.
D562 LD DE,$6140 DE=6140.
D565 LD B,$10 B=10.
D567 PUSH HL Stash HL and DE on the stack.
D568 PUSH DE
D569 LD A,(HL) A=*HL.
D56A DEC A Decrease A by one.
D56B LD E,A E=A.
D56C ADD A,A A+=A.
D56D ADD A,E A+=E.
D56E ADD A,A A+=A.
D56F LD E,A E=A.
D570 LD D,$00 D=00.
D572 LD HL,$C81A HL=C81A.
D575 ADD HL,DE HL+=DE.
D576 POP DE Restore DE from the stack.
D577 PUSH DE Stash DE on the stack.
D578 LD C,$03 C=03.
D57A LD A,(HL) A=*HL.
D57B LD (DE),A Write A to *DE.
D57C INC HL Increment HL by one.
D57D INC DE Increment DE by one.
D57E LD A,(HL) A=*HL.
D57F LD (DE),A Write A to *DE.
D580 INC HL Increment HL by one.
D581 PUSH HL Stash HL on the stack.
D582 LD HL,$001F HL=001F.
D585 ADD HL,DE HL+=DE.
D586 EX DE,HL Exchange the DE and HL registers.
D587 POP HL Restore HL from the stack.
D588 DEC C Decrease C by one.
D589 JR NZ,$D57A Jump to D57A until C is zero.
D58B POP DE Restore DE from the stack.
D58C INC E Increment E by two.
D58D INC E
D58E POP HL Restore HL from the stack.
D58F INC HL Increment HL by one.
D590 DJNZ $D567 Decrease counter by one and loop back to D567 until counter is zero.
D592 RET Return.
Prev: D50C Up: Map Next: D593