Prev: A5E1 Up: Map Next: A639
A613: Routine at A613
Used by the routine at A461.
A613 LD A,($9B10) A=*9B10.
A616 AND A Return if *9B10 is zero.
A617 RET Z
A618 LD HL,$7B00 HL=7B00.
A61B LD B,$40 B=40.
A61D AND A Set flags.
A61E RR (HL) Rotate *HL right.
A620 INC L Increment L by one.
A621 RR (HL) Rotate *HL right.
A623 INC L Increment L by one.
A624 RR (HL) Rotate *HL right.
A626 INC L Increment L by one.
A627 RR (HL) Rotate *HL right.
A629 INC HL Increment HL by one.
A62A RR (HL) Rotate *HL right.
A62C INC L Increment L by one.
A62D RR (HL) Rotate *HL right.
A62F INC L Increment L by one.
A630 RR (HL) Rotate *HL right.
A632 INC L Increment L by one.
A633 DJNZ $A61D Decrease counter by one and loop back to A61D until counter is zero.
A635 DEC A Decrease A by one.
A636 JR NZ,$A618 Jump to A618 if A is not equal to A.
A638 RET Return.
Prev: A5E1 Up: Map Next: A639