|
Routines |
| Prev: 72BA | Up: Map | Next: 730D |
|
Used by the routine at 6C00.
|
||||
| 72C3 | LD A,($7840) | Jump to 72E2 if *7840 is zero. | ||
| 72C6 | AND A | |||
| 72C7 | JR Z,$72E2 | |||
| 72C9 | LD HL,$7843 | HL=7843. | ||
| 72CC | DEC (HL) | Decrease *HL by one. | ||
| 72CD | JR NZ,$72E2 | Jump to 72E2 if *HL is not zero. | ||
| 72CF | LD (HL),$03 | Write 03 to *HL. | ||
| 72D1 | LD HL,($7841) | HL=*7841. | ||
| 72D4 | DEC HL | Decrease HL by one. | ||
| 72D5 | LD ($7841),HL | Write HL to *7841. | ||
| 72D8 | LD A,H | Jump to 72E2 if H is not zero. | ||
| 72D9 | AND A | |||
| 72DA | JR NZ,$72E2 | |||
| 72DC | LD A,L | Call 77E0 if L is equal to 80. | ||
| 72DD | CP $80 | |||
| 72DF | CALL Z,$77E0 | |||
| 72E2 | LD HL,($7817) | HL=*7817. | ||
| 72E5 | LD A,H | A=H. | ||
| 72E6 | SUB $99 | A-=99. | ||
| 72E8 | LD B,$FE | B=FE. | ||
| 72EA | INC B | Increment B by two. | ||
| 72EB | INC B | |||
| 72EC | SUB $05 | A-=05. | ||
| 72EE | JR NZ,$72EA | Jump to 72EA if A is not zero. | ||
| 72F0 | LD A,L | A=L. | ||
| 72F1 | AND %11100000 | Keep only bits 5-7. | ||
| 72F3 | ADD A,A | A+=A. | ||
| 72F4 | LD L,A | L=A. | ||
| 72F5 | ADC A,B | A+=B. | ||
| 72F6 | SUB L | A-=L. | ||
| 72F7 | ADD A,$FA | A+=FA. | ||
| 72F9 | LD H,A | H=A. | ||
| 72FA | CALL $E84D | Call E84D. | ||
| 72FD | LD B,$08 | B=08. | ||
| 72FF | PUSH HL | Stash HL and BC on the stack. | ||
| 7300 | PUSH BC | |||
| 7301 | CALL $709D | Call 709D. | ||
| 7304 | POP BC | Restore BC and HL from the stack. | ||
| 7305 | POP HL | |||
| 7306 | LD DE,$0008 | DE=0008. | ||
| 7309 | ADD HL,DE | HL+=DE. | ||
| 730A | DJNZ $72FF | Decrease counter by one and loop back to 72FF until counter is zero. | ||
| 730C | RET | Return. | ||
| Prev: 72BA | Up: Map | Next: 730D |