6669: Animate Rocket Flames
| 6669 |
LD A,(IX+$02) |
| 666C |
ADD A,$15 |
| 666E |
LD (IX+$02),A |
| 6671 |
LD HL,$5DC1 |
| 6674 |
LD A,(HL) |
| 6675 |
ADD A,$15 |
| 6677 |
LD (HL),A |
| 6678 |
LD A,(IX+$02) |
| 667B |
CP $B8 |
| 667D |
JR Z,$66B8 |
| 667F |
JR NC,$66A3 |
| 6681 |
LD A,($5DCC) |
| 6684 |
AND $04 |
| 6686 |
JR NZ,$66B3 |
| 6688 |
LD DE,$7FAF |
| 668B |
PUSH DE |
| 668C |
LD DE,$7F8C |
| 668F |
CALL $72A0 |
| 6692 |
LD DE,$7FAF |
| 6695 |
CALL $72A0 |
| 6698 |
POP DE |
| 6699 |
CALL $729B |
| 669C |
LD (IX+$03),$42 |
| 66A0 |
CALL ColouriseSprite |
| 66A3 |
LD A,(IX+$02) |
| 66A6 |
SUB $15 |
| 66A8 |
LD (IX+$02),A |
| 66AB |
LD HL,$5DC1 |
| 66AE |
LD A,(HL) |
| 66AF |
SUB $15 |
| 66B1 |
LD (HL),A |
| 66B2 |
RET |
| 66B3 |
LD DE,$7F8C |
| 66B6 |
JR $668B |
| 66B8 |
LD DE,$7F8C |
| 66BB |
CALL $72A0 |
| 66BE |
LD DE,$7FAF |
| 66C1 |
CALL $72A0 |
| 66C4 |
JP $66A3 |
