|
Routines |
| Prev: 73F1 | Up: Map | Next: 741E |
|
Used by the routine at ColouriseSprite.
|
||||
| 73F2 | LD A,($7825) | A=*7825. | ||
| 73F5 | AND A | Return if A is not zero. | ||
| 73F6 | RET NZ | |||
| 73F7 | LD HL,$FFF8 | HL=FFF8. | ||
| 73FA | ADD HL,BC | HL+=BC. | ||
| 73FB | EXX | Switch to the shadow registers. | ||
| 73FC | LD A,L | L'-=07. | ||
| 73FD | SUB $07 | |||
| 73FF | LD L,A | |||
| 7400 | SBC A,A | A-=A. | ||
| 7401 | ADD A,H | A+=H'. | ||
| 7402 | LD H,A | H'=A. | ||
| 7403 | LD DE,$0400 | DE'=0400. | ||
| 7406 | LD A,(HL) | A=*HL'. | ||
| 7407 | EXX | Switch back to the normal registers. | ||
| 7408 | OR (HL) | Set the bits from *HL. | ||
| 7409 | XOR (HL) | Flip the bits according to *HL. | ||
| 740A | INC HL | Increment HL by two. | ||
| 740B | INC HL | |||
| 740C | EXX | Switch to the shadow registers. | ||
| 740D | CP (HL) | Jump to 7411 if A is equal to *HL'. | ||
| 740E | JR Z,$7411 | |||
| 7410 | INC E | Increment E' by one. | ||
| 7411 | INC HL | Increment HL' by one. | ||
| 7412 | DEC D | Decrease D' by one. | ||
| 7413 | JR NZ,$7406 | Jump to 7406 if D' is not zero. | ||
| 7415 | INC HL | Increment HL' by three. | ||
| 7416 | INC HL | |||
| 7417 | INC HL | |||
| 7418 | LD A,E | A=E'. | ||
| 7419 | LD ($7825),A | Write A to *7825. | ||
| 741C | EXX | Switch back to the normal registers. | ||
| 741D | RET | Return. | ||
| Prev: 73F1 | Up: Map | Next: 741E |