Prev: 54540 Up: Map Next: 54675
54619: Routine at D55B
Used by the routine at FindScene.
54619 LD HL,51136 HL=51136.
54622 LD D,0 D=0.
54624 LD E,A E=A.
54625 ADD HL,DE HL+=DE.
54626 LD DE,24896 DE=24896.
54629 LD B,16 B=16.
54631 PUSH HL Stash HL and DE on the stack.
54632 PUSH DE
54633 LD A,(HL) A=*HL.
54634 DEC A Decrease A by one.
54635 LD E,A E=A.
54636 ADD A,A A+=A.
54637 ADD A,E A+=E.
54638 ADD A,A A+=A.
54639 LD E,A E=A.
54640 LD D,0 D=0.
54642 LD HL,51226 HL=51226.
54645 ADD HL,DE HL+=DE.
54646 POP DE Restore DE from the stack.
54647 PUSH DE Stash DE on the stack.
54648 LD C,3 C=3.
54650 LD A,(HL) A=*HL.
54651 LD (DE),A Write A to *DE.
54652 INC HL Increment HL by one.
54653 INC DE Increment DE by one.
54654 LD A,(HL) A=*HL.
54655 LD (DE),A Write A to *DE.
54656 INC HL Increment HL by one.
54657 PUSH HL Stash HL on the stack.
54658 LD HL,31 HL=0031.
54661 ADD HL,DE HL+=DE.
54662 EX DE,HL Exchange the DE and HL registers.
54663 POP HL Restore HL from the stack.
54664 DEC C Decrease C by one.
54665 JR NZ,54650 Jump to 54650 until C is zero.
54667 POP DE Restore DE from the stack.
54668 INC E Increment E by two.
54669 INC E
54670 POP HL Restore HL from the stack.
54671 INC HL Increment HL by one.
54672 DJNZ 54631 Decrease counter by one and loop back to 54631 until counter is zero.
54674 RET Return.
Prev: 54540 Up: Map Next: 54675