![]() |
Routines |
Prev: 73F1 | Up: Map | Next: 741E |
Used by the routine at ColouriseSprite.
|
||||||||||
73F2 | LD A,($7825) | A=*SpriteState. | ||||||||
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 | Write E' to *SpriteState. | ||||||||
7419 | LD ($7825),A | |||||||||
741C | EXX | Switch back to the normal registers. | ||||||||
741D | RET | Return. |
Prev: 73F1 | Up: Map | Next: 741E |