Jetpac: Routine at 6DD3

6DD3: Meteor Update


6DD3	CALL StoreEntity
6DD6	LD HL,$5DCB	HL=$5DCB.
6DD9	INC (HL)
6DDA	LD A,(IX+$01)
6DDD	BIT 6,(IX+$04)
6DE1	JR NZ,$6E1B
6DE3	ADD A,(IX+$05)
6DE6	LD (IX+$01),A
6DE9	LD A,(IX+$02)
6DEC	ADD A,(IX+$06)
6DEF	LD (IX+$02),A
6DF2	CALL $726A
6DF5	CALL ColouriseSprite
6DF8	CALL $761D
6DFB	BIT 2,E
6DFD	JR NZ,$6E14
6DFF	CALL $6E52
6E02	LD A,C
6E03	AND A
6E04	JR NZ,$6E0E
6E06	CALL $6E20
6E09	DEC E
6E0A	JP Z,$648D
6E0D	RET
6E0E	LD BC,$0025
6E11	CALL $70F9
6E14	CALL $6894
6E17	XOR A
6E18	JP $6834
6E1B	SUB (IX+$05)
6E1E	JR $6DE6
This entry point is used by the routines at 63DA, 6498, 651F, 6707, 6A6C, 6AEF, 6C2F and 6CF5.
6E20	LD HL,$5D00
6E23	LD E,$00
6E25	LD A,(HL)
6E26	AND $3F
6E28	DEC A
6E29	JR Z,$6E2D
6E2B	DEC A
6E2C	RET NZ
6E2D	INC HL
6E2E	LD A,(HL)
6E2F	SUB (IX+$01)
6E32	JP P,$6E37
6E35	NEG
6E37	CP $0C
6E39	RET NC
6E3A	INC HL
6E3B	LD A,(HL)
6E3C	SUB (IX+$02)
6E3F	JP P,$6E4B
6E42	NEG
6E44	LD D,(IX+$07)
6E47	ADD A,$0E
6E49	JR $6E4D
6E4B	LD D,$15
6E4D	CP D
6E4E	RET NC
6E4F	LD E,$01
6E51	RET
This entry point is used by the routines at 63DA, 6A6C, 6AEF, 6C2F and 6CF5.
6E52	LD DE,$0008
6E55	LD HL,$5D08
6E58	LD B,$04
6E5A	PUSH HL
6E5B	LD A,(HL)
6E5C	AND A
6E5D	JR Z,$6E96
6E5F	INC HL
6E60	INC HL
6E61	INC HL
6E62	LD A,(HL)
6E63	DEC HL
6E64	BIT 2,A
6E66	JR Z,$6E96
6E68	AND $F8
6E6A	SUB (IX+$01)
6E6D	JP P,$6E76
6E70	NEG
6E72	LD C,$08
6E74	JR $6E78
6E76	LD C,$20
6E78	CP C
6E79	JR NC,$6E96
6E7B	DEC HL
6E7C	LD A,(HL)
6E7D	SUB (IX+$02)
6E80	NEG
6E82	JP M,$6E96
6E85	ADD A,$0C
6E87	CP (IX+$07)
6E8A	JP NC,$6E96
6E8D	LD C,$01
6E8F	INC HL
6E90	LD A,(HL)
6E91	AND $F8
6E93	LD (HL),A
6E94	POP HL
6E95	RET
6E96	POP HL
6E97	ADD HL,DE
6E98	DJNZ $6E5A	Decrease B by one, and loop back to 6E5A until zero.
6E9A	LD C,$00
6E9C	RET
6E9D	LD A,B
6E9E	EX AF,AF'
6E9F	LD E,$00
6EA1	LD C,(HL)
6EA2	INC HL
6EA3	LD D,(HL)
6EA4	INC HL
6EA5	LD A,B
6EA6	AND A
6EA7	RET Z
6EA8	SRL C
6EAA	RR D
6EAC	RR E
6EAE	DJNZ $6EA8	Decrease B by one, and loop back to 6EA8 until zero.
6EB0	EX AF,AF'
6EB1	LD B,A
6EB2	RET
6EB3	PUSH BC
6EB4	LD B,$08
6EB6	RRCA
6EB7	RL C
6EB9	DJNZ $6EB6	Decrease B by one, and loop back to 6EB6 until zero.
6EBB	LD A,C
6EBC	POP BC
6EBD	RET
6EBE	LD A,B
6EBF	EX AF,AF'
6EC0	LD C,$00
6EC2	LD A,(HL)
6EC3	CALL $6EB3
6EC6	LD E,A
6EC7	INC HL
6EC8	LD A,(HL)
6EC9	CALL $6EB3
6ECC	LD D,A
6ECD	INC HL
6ECE	LD A,B
6ECF	AND A
6ED0	RET Z
6ED1	SLA E
6ED3	RL D
6ED5	RL C
6ED7	DJNZ $6ED1	Decrease B by one, and loop back to 6ED1 until zero.
6ED9	EX AF,AF'
6EDA	LD B,A
6EDB	RET
6EDC	EXX
6EDD	LD A,($5DD2)
6EE0	AND A
6EE1	JR Z,$6EF4
6EE3	CALL $6EBE
6EE6	PUSH DE
6EE7	PUSH BC
6EE8	EXX
6EE9	POP DE
6EEA	LD (HL),E
6EEB	INC HL
6EEC	POP DE
6EED	LD (HL),D
6EEE	INC HL
6EEF	LD (HL),E
6EF0	INC HL
6EF1	DJNZ $6EDC	Decrease B by one, and loop back to 6EDC until zero.
6EF3	RET
6EF4	CALL $6E9D
6EF7	JR $6EE6
This entry point is used by the routines at RocketReset, PlayerReset and 651F.
6EF9	LD C,A
6EFA	LD A,($5DF0)	A=ActivePlayer_Level
6EFD	RRCA
6EFE	AND $06
6F00	OR C
6F01	LD C,A
6F02	LD B,$00
6F04	LD HL,$67C3
6F07	ADD HL,BC
6F08	LD DE,$5ECC
6F0B	LD A,$02
6F0D	LD ($5DD3),A
6F10	XOR A
6F11	LD ($5DD2),A
6F14	LD C,$04
6F16	XOR A
6F17	PUSH BC
6F18	LD B,A
6F19	LD C,$01
6F1B	CALL $6F42
6F1E	LD A,B
6F1F	POP BC
6F20	DEC HL
6F21	DEC HL
6F22	DEC C
6F23	JR NZ,$6F17
6F25	RET
This entry point is used by the routine at 6929.
6F26	LD BC,$0002
6F29	LD A,$04
6F2B	LD ($5DD3),A
6F2E	XOR A
6F2F	JR $6F57
6F31	LD BC,$0004
6F34	LD A,$02
6F36	LD ($5DD3),A
6F39	JR $6F2E
6F3B	LD BC,$0004
6F3E	LD A,$02
6F40	JR $6F52
6F42	PUSH HL
6F43	PUSH DE
6F44	PUSH BC
6F45	LD A,(HL)
6F46	INC HL
6F47	LD H,(HL)
6F48	LD L,A
6F49	INC HL
6F4A	INC HL
6F4B	JR $6F61
This entry point is used by the routine at 6929.
6F4D	LD BC,$0002
6F50	LD A,$04
6F52	LD A,($5DD3)
6F55	LD A,$01
6F57	LD ($5DD2),A
6F5A	PUSH HL
6F5B	PUSH DE
6F5C	PUSH BC
6F5D	LD A,(HL)
6F5E	INC HL
6F5F	LD H,(HL)
6F60	LD L,A
6F61	PUSH HL
6F62	EX DE,HL
6F63	EXX
6F64	POP HL
6F65	POP BC
6F66	PUSH BC
6F67	LD A,(HL)
6F68	EX AF,AF'
6F69	INC HL
6F6A	EXX
6F6B	LD (HL),$00
6F6D	INC HL
6F6E	LD (HL),$03
6F70	INC HL
6F71	EX AF,AF'
6F72	CP $11
6F74	JR C,$6F78
6F76	LD A,$10
6F78	LD (HL),A
6F79	INC HL
6F7A	LD B,A
6F7B	CALL $6EDC
6F7E	POP BC
6F7F	POP HL
6F80	LD DE,$0033
6F83	ADD HL,DE
6F84	POP DE
6F85	EX DE,HL
6F86	INC HL
6F87	INC HL
6F88	LD A,($5DD3)
6F8B	ADD A,B
6F8C	LD B,A
6F8D	DEC C
6F8E	JR NZ,$6F5A
6F90	RET