Routines |
Prev: 6414 | Up: Map | Next: 6440 |
Used by the routine at 6500.
|
||||
6424 | LD C,$05 | C=05. | ||
6426 | LD B,$20 | B=20. | ||
6428 | LD A,(HL) | A=*HL. | ||
6429 | INC HL | Increment HL by one. | ||
642A | LD (DE),A | Write A to *DE. | ||
642B | INC E | Increment E by one. | ||
642C | DJNZ $6428 | Decrease counter by one and loop back to 6428 until counter is zero. | ||
642E | DEC E | Decrease E by one. | ||
642F | LD A,E | A=E. | ||
6430 | AND %11100000 | Keep only bits 5-7. | ||
6432 | LD E,A | E=A. | ||
6433 | INC D | Increment D by one. | ||
6434 | DEC C | Decrease C by one. | ||
6435 | JR NZ,$6426 | Jump to 6426 until C is zero. | ||
6437 | ADD A,$20 | A+=20. | ||
6439 | LD E,A | E=A. | ||
643A | RET Z | Return if A is zero. | ||
643B | LD A,D | D-=05. | ||
643C | SUB $05 | |||
643E | LD D,A | |||
643F | RET | Return. |
Prev: 6414 | Up: Map | Next: 6440 |