Routines |
Prev: 29681 | Up: Map | Next: 29726 |
Used by the routine at ColouriseSprite.
|
||||
29682 | LD A,(30757) | A=*30757. | ||
29685 | AND A | Return if A is not zero. | ||
29686 | RET NZ | |||
29687 | LD HL,65528 | HL=65528. | ||
29690 | ADD HL,BC | HL+=BC. | ||
29691 | EXX | Switch to the shadow registers. | ||
29692 | LD A,L | L'-=7. | ||
29693 | SUB 7 | |||
29695 | LD L,A | |||
29696 | SBC A,A | A-=A. | ||
29697 | ADD A,H | A+=H'. | ||
29698 | LD H,A | H'=A. | ||
29699 | LD DE,1024 | DE'=1024. | ||
29702 | LD A,(HL) | A=*HL'. | ||
29703 | EXX | Switch back to the normal registers. | ||
29704 | OR (HL) | Set the bits from *HL. | ||
29705 | XOR (HL) | Flip the bits according to *HL. | ||
29706 | INC HL | Increment HL by two. | ||
29707 | INC HL | |||
29708 | EXX | Switch to the shadow registers. | ||
29709 | CP (HL) | Jump to 29713 if A is equal to *HL'. | ||
29710 | JR Z,29713 | |||
29712 | INC E | Increment E' by one. | ||
29713 | INC HL | Increment HL' by one. | ||
29714 | DEC D | Decrease D' by one. | ||
29715 | JR NZ,29702 | Jump to 29702 if D' is not zero. | ||
29717 | INC HL | Increment HL' by three. | ||
29718 | INC HL | |||
29719 | INC HL | |||
29720 | LD A,E | A=E'. | ||
29721 | LD (30757),A | Write A to *30757. | ||
29724 | EXX | Switch back to the normal registers. | ||
29725 | RET | Return. |
Prev: 29681 | Up: Map | Next: 29726 |