Prev: 6707 Up: Map Next: 67C3
6733: Update Rocket Colour
Used by the routines at 66C7, 66EB and 6707.
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 Decrease B by one, and loop back to 6740 until zero
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 Decrease B by one, and loop back to 67B1 until zero
67C2 RET
Prev: 6707 Up: Map Next: 67C3