6733: Update Rocket Colour
| 6733 |
LD L,(IX+$01) |
| 6736 |
LD H,(IX+$02) |
| 6739 |
PUSH HL |
| 673A |
LD A,(IX+$04) |
| 673D |
LD B,A |
| 673E |
LD C,$00 |
| 6740 |
PUSH BC |
| 6741 |
LD A,($5DF0) |
| 6744 |
RRCA |
| 6745 |
RRCA |
| 6746 |
AND $03 |
| 6748 |
OR C |
| 6749 |
SLA A |
| 674B |
CALL $64E8 |
| 674E |
CALL $725E |
| 6751 |
POP BC |
| 6752 |
LD A,(IX+$02) |
| 6755 |
SUB $10 |
| 6757 |
LD (IX+$02),A |
| 675A |
LD A,($5DC1) |
| 675D |
SUB $10 |
| 675F |
LD ($5DC1),A |
| 6762 |
LD A,C |
| 6763 |
ADD A,$04 |
| 6765 |
LD C,A |
| 6766 |
DJNZ $6740 |
| 6768 |
LD A,$02 |
| 676A |
LD ($5DC4),A |
| 676D |
XOR A |
| 676E |
LD ($5DC3),A |
| 6771 |
POP HL |
| 6772 |
LD (IX+$02),H |
| 6775 |
LD ($5DCF),HL |
| 6778 |
LD B,(IX+$04) |
| 677B |
SLA B |
| 677D |
LD A,B |
| 677E |
CP $06 |
| 6780 |
JR C,$67A9 |
| 6782 |
LD A,(IX+$05) |
| 6785 |
AND A |
| 6786 |
JR Z,$67A9 |
| 6788 |
CP $06 |
| 678A |
PUSH AF |
| 678B |
LD A,($5DCC) |
| 678E |
RRCA |
| 678F |
RRCA |
| 6790 |
AND $04 |
| 6792 |
OR $43 |
| 6794 |
LD C,A |
| 6795 |
POP AF |
| 6796 |
LD A,C |
| 6797 |
JR NC,$67AB |
| 6799 |
LD B,(IX+$05) |
| 679C |
LD (IX+$03),$43 |
| 67A0 |
CALL $67B1 |
| 67A3 |
LD A,$06 |
| 67A5 |
SUB (IX+$05) |
| 67A8 |
LD B,A |
| 67A9 |
LD A,$47 |
| 67AB |
LD (IX+$03),A |
| 67AE |
JP $67B1 |
| 67B1 |
PUSH BC |
| 67B2 |
CALL ColouriseSprite |
| 67B5 |
POP BC |
| 67B6 |
LD HL,($5DCF) |
| 67B9 |
LD A,H |
| 67BA |
SUB $08 |
| 67BC |
LD H,A |
| 67BD |
LD ($5DCF),HL |
| 67C0 |
DJNZ $67B1 |
| 67C2 |
RET |
