Jetpac: Routine at 6CF5

6CF5: Routine at 6CF5


6CF5	CALL $6CE7
6CF8	LD HL,$5DCB
6CFB	INC (HL)
6CFC	CALL $6E52
6CFF	DEC C
6D00	JP Z,$6D90
6D03	CALL $6E20
6D06	DEC E
6D07	JP Z,$648D
6D0A	XOR A
6D0B	LD ($5DC9),A
6D0E	CALL $761D
6D11	BIT 2,E
6D13	JR Z,$6D2E
6D15	BIT 7,E
6D17	JP NZ,$6D9E
6D1A	BIT 4,E
6D1C	JP NZ,$6DAD
6D1F	LD A,E
6D20	AND $40
6D22	XOR $40
6D24	LD E,A
6D25	LD A,(IX+$04)
6D28	AND $BF
6D2A	OR E
6D2B	LD (IX+$04),A
6D2E	BIT 6,(IX+$04)
6D32	LD A,(IX+$01)
6D35	JP NZ,$6DB4
6D38	ADD A,$02
6D3A	LD (IX+$01),A
6D3D	LD H,$00
6D3F	LD L,(IX+$06)
6D42	ADD HL,HL
6D43	LD D,(IX+$02)
6D46	LD E,(IX+$05)
6D49	BIT 7,(IX+$04)
6D4D	JR Z,$6DC4
6D4F	ADD HL,DE
6D50	LD (IX+$05),L
6D53	LD (IX+$02),H
6D56	LD A,H
6D57	CP $28
6D59	JR NC,$6D5F
6D5B	SET 7,(IX+$04)
6D5F	BIT 7,(IX+$04)
6D63	JR Z,$6DB9
6D65	INC (IX+$06)
6D68	JR NZ,$6D6E
6D6A	LD (IX+$06),$FF
6D6E	LD A,($5DC9)
6D71	AND A
6D72	JR NZ,$6D7A
6D74	INC A
6D75	LD ($5DC9),A
6D78	JR $6D0E
This entry point is used by the routines at 6A6C, 6AEF and 6C2F.
6D7A	LD A,(IX+$00)
6D7D	PUSH AF
6D7E	AND $C0
6D80	OR $03
6D82	LD (IX+$00),A
6D85	CALL $726A
6D88	CALL ColouriseSprite
6D8B	POP AF
6D8C	LD (IX+$00),A
6D8F	RET
6D90	LD BC,$0060
This entry point is used by the routine at 6C2F.
6D93	CALL $70F9
6D96	CALL $6894
6D99	LD A,$01
6D9B	JP $6834
6D9E	RES 7,(IX+$04)
6DA2	LD A,($5DCE)
6DA5	ADD A,$08
6DA7	LD (IX+$06),A
6DAA	JP $6D2E
6DAD	SET 7,(IX+$04)
6DB1	JP $6D2E
6DB4	SUB $02
6DB6	JP $6D3A
6DB9	DEC (IX+$06)
6DBC	JR NZ,$6D6E
6DBE	SET 7,(IX+$04)
6DC2	JR $6D6E
6DC4	AND A
6DC5	EX DE,HL
6DC6	SBC HL,DE
6DC8	JP $6D50
6DCB	INC BC
6DCC	NOP
6DCD	NOP
6DCE	LD B,D
6DCF	ADD A,B
6DD0	INC B
6DD1	NOP
6DD2	INC E