Lunar Jetman: Routine at 970E

970E: Routine at 970E


970E	LD HL,$5E5E
9711	INC (HL)
9712	BIT 0,(IX+$08)
9716	JP NZ,$97F4
9719	LD A,($60B0)
971C	AND A
971D	JR NZ,$974C
971F	LD H,(IX+$03)
9722	LD L,(IX+$02)
9725	LD DE,($60AA)
9729	LD BC,$0008
972C	ADD HL,BC
972D	SBC HL,DE
972F	LD A,H
9730	AND $1F
9732	JR NZ,$974C
9734	LD A,L
9735	CP $10
9737	JR NC,$974C
9739	LD A,($60AC)
973C	SUB (IX+$04)
973F	CP $10
9741	JR NC,$974C
9743	SET 0,(IX+$08)
9747	LD HL,$60B0
974A	SET 0,(HL)
974C	CALL $9884
974F	JR NZ,$9761
9751	LD DE,($60AA)
9755	LD (IX+$03),D
9758	LD (IX+$02),E
975B	LD A,($60AC)
975E	LD (IX+$04),A
9761	LD A,(IX+$06)
9764	AND A
9765	JP M,$976C
9768	CP $30
976A	JR NC,$9771
976C	ADD A,$02
976E	LD (IX+$06),A
9771	SRA A
9773	SRA A
9775	SRA A
9777	SRA A
9779	ADD A,(IX+$04)
977C	CP $B0
977E	JR NC,$97E6
9780	LD (IX+$04),A
9783	LD H,(IX+$03)
9786	LD L,(IX+$02)
9789	PUSH HL
978A	LD DE,($607A)
978E	SBC HL,DE
9790	LD C,$00
9792	LD A,H
9793	AND $1F
9795	JR Z,$97A8
9797	OR $E0
9799	CPL
979A	AND A
979B	JR Z,$97A8
979D	BIT 4,H
979F	LD A,$30
97A1	JR NZ,$97A5
97A3	LD A,$D0
97A5	LD (IX+$05),A
97A8	POP HL
97A9	BIT 0,(IX+$08)
97AD	JP Z,$97C1
97B0	LD ($60AA),HL
97B3	LD A,(IX+$04)
97B6	ADD A,$1A
97B8	CP $B0
97BA	JR C,$97BE
97BC	LD A,$AF
97BE	LD ($60AC),A
97C1	INC (IX+$11)
97C4	LD A,(IX+$11)
97C7	AND $07
97C9	ADD A,$40
97CB	LD (IX+$00),A
97CE	BIT 0,(IX+$10)
97D2	JR Z,$97DF
97D4	BIT 0,(IX+$08)
97D8	JR Z,$97DF
97DA	LD A,$80
97DC	LD ($60B0),A
97DF	LD (IX+$07),$45
97E3	JP $954B
97E6	LD A,(IX+$06)
97E9	AND A
97EA	JP M,$9780
97ED	NEG
97EF	LD (IX+$06),A
97F2	JR $9783
97F4	INC (IX+$11)
97F7	LD A,(IX+$04)
97FA	CP $70
97FC	LD A,(IX+$06)
97FF	JR NC,$985A
9801	AND A
9802	JP M,$9809
9805	CP $30
9807	JR NC,$980B
9809	ADD A,$02
980B	LD (IX+$06),A
980E	SRA A
9810	SRA A
9812	SRA A
9814	SRA A
9816	ADD A,(IX+$04)
9819	CP $B0
981B	JR C,$981F
981D	LD A,$AF
981F	LD (IX+$04),A
9822	LD A,($5E40)
9825	LD C,A
9826	AND A
9827	JR Z,$9872
9829	AND $7F
982B	JR NZ,$983A
982D	LD A,C
982E	AND $80
9830	LD C,A
9831	LD A,(IX+$08)
9834	AND $7F
9836	OR C
9837	LD (IX+$08),A
983A	BIT 7,(IX+$08)
983E	LD A,(IX+$05)
9841	JR NZ,$9866
9843	AND A
9844	JP M,$984B
9847	CP $30
9849	JR NC,$984D
984B	ADD A,$02
984D	LD (IX+$05),A
9850	LD H,(IX+$03)
9853	LD L,(IX+$02)
9856	PUSH HL
9857	JP $97A8
985A	AND A
985B	JP P,$9862
985E	CP $D1
9860	JR C,$980B
9862	SUB $02
9864	JR $980B
9866	AND A
9867	JP P,$986E
986A	CP $D1
986C	JR C,$984D
986E	SUB $02
9870	JR $984D
9872	CALL $91BB
9875	LD A,D
9876	AND A
9877	JR Z,$983A
9879	LD A,$80
987B	LD ($60B0),A
987E	LD (IX+$08),$00
9882	JR $9850
9884	LD H,(IX+$03)
9887	LD L,(IX+$02)
988A	LD DE,($60C2)
988E	LD BC,$0008
9891	ADD HL,BC
9892	SBC HL,DE
9894	LD A,H
9895	AND $1F
9897	JR NZ,$98AA
9899	LD A,L
989A	CP $10
989C	JR NC,$98AA
989E	LD A,($60C4)
98A1	SUB (IX+$04)
98A4	CP $10
98A6	JR NC,$98AA
98A8	XOR A
98A9	RET
98AA	LD A,$01
98AC	AND A
98AD	RET
This entry point is used by the routines at 93A6 and 95B6.
98AE	LD H,(IX+$03)
98B1	LD L,(IX+$02)
98B4	LD DE,($607A)
98B8	AND A
98B9	SBC HL,DE
98BB	LD DE,$0078
98BE	ADD HL,DE
98BF	LD A,H
98C0	AND $1F
98C2	RET NZ
98C3	EX DE,HL
98C4	LD A,($607A)
98C7	AND $07
98C9	LD B,A
98CA	LD A,$00
98CC	LD HL,$00FF
98CF	JR Z,$98D5
98D1	ADD HL,HL
98D2	RLA
98D3	DJNZ $98D1
98D5	EX DE,HL
98D6	LD C,A
98D7	LD A,($607A)
98DA	RRA
98DB	RRA
98DC	RRA
98DD	AND $1F
98DF	LD L,A
98E0	LD A,(IX+$02)
98E3	RRA
98E4	RRA
98E5	RRA
98E6	AND $1F
98E8	SUB L
98E9	ADD A,$0E
98EB	AND $1F
98ED	LD HL,$50C0
98F0	ADD A,L
98F1	LD L,A
98F2	LD B,$08
98F4	PUSH HL
98F5	LD A,E
98F6	AND (HL)
98F7	LD (HL),A
98F8	INC L
98F9	LD A,C
98FA	AND (HL)
98FB	LD (HL),A
98FC	INC L
98FD	LD A,D
98FE	AND (HL)
98FF	LD (HL),A
9900	POP HL
9901	INC H
9902	DJNZ $98F4
9904	XOR A
9905	RET
9906	LD H,(IX+$03)
9909	LD L,(IX+$02)
990C	LD DE,($607A)
9910	AND A
9911	SBC HL,DE
9913	BIT 7,(IX+$05)
9917	JR NZ,$9930
9919	LD A,H
991A	AND $1F
991C	CP $01
991E	JR Z,$9937
9920	INC (IX+$11)
9923	LD A,(IX+$11)
9926	AND $07
9928	ADD A,$88
992A	LD (IX+$00),A
992D	JP $954B
9930	LD A,H
9931	OR $E0
9933	CP $FE
9935	JR NZ,$9920
This entry point is used by the routine at 9531.
9937	LD (IX+$00),$00
993B	RET
993C	LD H,(IX+$03)
993F	LD L,(IX+$02)
9942	LD DE,($607A)
9946	AND A
9947	SBC HL,DE
9949	LD C,$00
994B	LD A,H
994C	AND $1F
994E	JR Z,$9961
9950	OR $E0
9952	CPL
9953	AND A
9954	JR Z,$9961
9956	BIT 4,H
9958	LD A,$30
995A	JR NZ,$995E
995C	LD A,$D0
995E	LD (IX+$05),A
9961	LD A,(IX+$04)
9964	ADD A,(IX+$06)
9967	CP $38
9969	JR C,$9988
996B	CP $B0
996D	JR NC,$998E
996F	LD (IX+$04),A
9972	INC (IX+$11)
9975	LD A,(IX+$11)
9978	CP $06
997A	JR C,$9980
997C	XOR A
997D	LD (IX+$11),A
9980	ADD A,$A8
9982	LD (IX+$00),A
9985	JP $954B
9988	LD (IX+$06),$03
998C	JR $9972
998E	LD (IX+$06),$FD
9992	JR $9972
9994	LD A,(IX+$12)
9997	AND A
9998	JP P,$999F
999B	LD A,$02
999D	JR $99A1
999F	LD A,$FE
99A1	ADD A,(IX+$13)
99A4	LD (IX+$13),A
99A7	ADD A,(IX+$12)
99AA	LD (IX+$12),A
99AD	LD A,(IX+$14)
99B0	AND A
99B1	JP P,$99B8
99B4	LD A,$02
99B6	JR $99BA
99B8	LD A,$FE
99BA	ADD A,(IX+$15)
99BD	LD (IX+$15),A
99C0	ADD A,(IX+$14)
99C3	LD (IX+$14),A
99C6	ADD A,(IX+$06)
99C9	SRA A
99CB	SRA A
99CD	SRA A
99CF	SRA A
99D1	ADD A,(IX+$04)
99D4	CP $3A
99D6	JR C,$9A23
99D8	CP $B0
99DA	JR NC,$9A29
99DC	LD (IX+$04),A
99DF	LD H,(IX+$03)
99E2	LD L,(IX+$02)
99E5	LD DE,($607A)
99E9	AND A
99EA	SBC HL,DE
99EC	LD C,$00
99EE	LD A,H
99EF	AND $1F
99F1	JR Z,$9A04
99F3	OR $E0
99F5	CPL
99F6	AND A
99F7	JR Z,$9A04
99F9	BIT 4,H
99FB	LD A,$20
99FD	JR NZ,$9A01
99FF	LD A,$E0
9A01	LD (IX+$16),A
9A04	LD A,(IX+$16)
9A07	ADD A,(IX+$12)
9A0A	LD (IX+$05),A
9A0D	INC (IX+$11)
9A10	LD A,(IX+$11)
9A13	CP $06
9A15	JR C,$9A1B
9A17	XOR A
9A18	LD (IX+$11),A
9A1B	ADD A,$B0
9A1D	LD (IX+$00),A
9A20	JP $954B
9A23	LD (IX+$06),$20
9A27	JR $99DF
9A29	LD (IX+$06),$E0
9A2D	JR $99DF
9A2F	LD HL,$5E5E
9A32	INC (HL)
9A33	LD H,(IX+$03)
9A36	LD L,(IX+$02)
9A39	LD DE,($607A)
9A3D	AND A
9A3E	SBC HL,DE
9A40	BIT 4,H
9A42	JP NZ,$9AAB
9A45	LD C,$00
9A47	LD A,(IX+$05)
9A4A	AND A
9A4B	JP P,$9A52
9A4E	CP $B1
9A50	JR C,$9A54
9A52	SUB $02
9A54	LD (IX+$05),A
9A57	LD A,($6078)
9A5A	CP $11
9A5C	JR C,$9A62
9A5E	LD A,$68
9A60	JR $9A65
9A62	LD A,($607C)
9A65	SUB (IX+$04)
9A68	JP M,$9ABC
9A6B	LD A,(IX+$06)
9A6E	AND A
9A6F	JP M,$9A76
9A72	CP $40
9A74	JR NC,$9A78
9A76	ADD A,$02
9A78	LD (IX+$06),A
9A7B	SRA A
9A7D	SRA A
9A7F	SRA A
9A81	SRA A
9A83	ADD A,(IX+$04)
9A86	CP $38
9A88	JR C,$9ACB
9A8A	CP $B0
9A8C	JR NC,$9AD9
9A8E	LD (IX+$04),A
9A91	INC (IX+$11)
9A94	LD A,(IX+$11)
9A97	AND $0F
9A99	ADD A,$CC
9A9B	LD (IX+$00),A
9A9E	LD A,($5E42)
9AA1	AND $01
9AA3	ADD A,$45
9AA5	LD (IX+$07),A
9AA8	JP $954B
9AAB	LD C,$80
9AAD	LD A,(IX+$05)
9AB0	AND A
9AB1	JP M,$9AB8
9AB4	CP $50
9AB6	JR NC,$9A54
9AB8	ADD A,$02
9ABA	JR $9A54
9ABC	LD A,(IX+$06)
9ABF	AND A
9AC0	JP P,$9AC7
9AC3	CP $C1
9AC5	JR C,$9A78
9AC7	SUB $02
9AC9	JR $9A78
9ACB	LD A,(IX+$06)
9ACE	AND A
9ACF	JP P,$9A91
9AD2	NEG
9AD4	LD (IX+$06),A
9AD7	JR $9A91
9AD9	LD A,(IX+$06)
9ADC	AND A
9ADD	JP M,$9A91
9AE0	JR $9AD2
9AE2	LD H,(IX+$03)
9AE5	LD L,(IX+$02)
9AE8	PUSH HL
9AE9	LD DE,($607A)
9AED	AND A
9AEE	SBC HL,DE
9AF0	BIT 7,(IX+$05)
9AF4	JP NZ,$9B9E
9AF7	LD A,H
9AF8	AND $1F
9AFA	CP $01
9AFC	JP Z,$9BA6
9AFF	LD DE,$0078
9B02	ADD HL,DE
9B03	LD A,H
9B04	POP DE
9B05	AND A
9B06	JR NZ,$9B59
9B08	PUSH DE
9B09	LD A,(IX+$01)
9B0C	XOR (IX+$05)
9B0F	AND $80
9B11	JR Z,$9B24
9B13	LD A,(IX+$05)
9B16	AND A
9B17	JP M,$9B20
9B1A	LD (IX+$05),$50
9B1E	JR $9B24
9B20	LD (IX+$05),$B0
9B24	CALL FindSlotAlien
9B27	POP DE
9B28	JR NZ,$9B59
9B2A	LD (HL),$B6
9B2C	BIT 7,(IX+$05)
9B30	JR NZ,$9B34
9B32	LD (HL),$B7
9B34	INC HL
9B35	INC HL
9B36	LD (HL),E
9B37	INC HL
9B38	LD (HL),D
9B39	INC HL
9B3A	LD A,(IX+$04)
9B3D	LD (HL),A
9B3E	INC HL
9B3F	LD A,(IX+$05)
9B42	AND A
9B43	JP M,$9B4A
9B46	LD (HL),$70
9B48	JR $9B4C
9B4A	LD (HL),$90
9B4C	INC HL
9B4D	LD (HL),$00
9B4F	INC HL
9B50	LD (HL),$47
9B52	LD B,$0F
9B54	INC HL
9B55	LD (HL),$00
9B57	DJNZ $9B54
9B59	LD A,($607C)
9B5C	SUB (IX+$04)
9B5F	JP P,$9BAC
9B62	LD A,(IX+$06)
9B65	AND A
9B66	JP P,$9B6D
9B69	CP $EF
9B6B	JR C,$9B6F
9B6D	SUB $02
9B6F	LD (IX+$06),A
9B72	SRA A
9B74	SRA A
9B76	SRA A
9B78	SRA A
9B7A	ADD A,(IX+$04)
9B7D	CP $38
9B7F	JR C,$9B88
9B81	CP $B0
9B83	JR NC,$9B88
9B85	LD (IX+$04),A
9B88	INC (IX+$11)
9B8B	LD A,(IX+$11)
9B8E	CP $07
9B90	JR C,$9B96
9B92	XOR A
9B93	LD (IX+$11),A
9B96	ADD A,$B8
9B98	LD (IX+$00),A
9B9B	JP $954B
9B9E	LD A,H
9B9F	OR $E0
9BA1	CP $FE
9BA3	JP NZ,$9AFF
9BA6	LD (IX+$00),$00
9BAA	POP HL
9BAB	RET
9BAC	LD A,(IX+$06)
9BAF	AND A
9BB0	JP M,$9BB7
9BB3	CP $20
9BB5	JR NC,$9B6F
9BB7	ADD A,$02
9BB9	JR $9B6F
9BBB	LD H,(IX+$03)
9BBE	LD L,(IX+$02)
9BC1	LD DE,($607A)
9BC5	AND A
9BC6	SBC HL,DE
9BC8	BIT 7,(IX+$05)
9BCC	JR NZ,$9C17
9BCE	LD A,H
9BCF	AND $1F
9BD1	CP $01
9BD3	JR Z,$9C1E
9BD5	LD H,(IX+$03)
9BD8	LD L,(IX+$02)
9BDB	LD A,(IX+$05)
9BDE	LD D,$00
9BE0	SRA A
9BE2	SRA A
9BE4	SRA A
9BE6	SRA A
9BE8	JP P,$9BED
9BEB	LD D,$FF
9BED	LD E,A
9BEE	ADD HL,DE
9BEF	LD A,H
9BF0	AND $1F
9BF2	LD (IX+$03),A
9BF5	LD (IX+$02),L
9BF8	CALL $8B73
9BFB	CALL $8733
9BFE	BIT 0,(IX+$10)
9C02	JR Z,$9C0D
9C04	LD BC,$0050
9C07	CALL AddPointsToScore
9C0A	CALL $A73C
9C0D	CALL $B2A2
9C10	RET NC
9C11	CALL $A73C
9C14	JP $B2D7
9C17	LD A,H
9C18	OR $E0
9C1A	CP $FE
9C1C	JR NZ,$9BD5
9C1E	LD (IX+$00),$00
9C22	RET