Lunar Jetman: Routine at 945C

945C: Routine at 945C

Used by the routines at 8D06, 9356, A0F8, B6CF and B731.
945C	LD A,$7E
945E	OUT ($FD),A
9460	IN A,($FE)
9462	CPL
9463	AND $02
9465	RET
This entry point is used by the routine at 824A.
9466	LD A,R
9468	AND $03
946A	RET NZ
946B	LD A,($5E67)
946E	AND A
946F	RET NZ
9470	CALL $9395
9473	RET NZ
9474	PUSH HL
9475	EX DE,HL
9476	LD A,($5E40)
9479	RLA
947A	AND $0E
947C	LD C,A
947D	LD B,$00
947F	LD A,($5EA0)
9482	CP $0C
9484	JR C,$9488
9486	LD A,$0C
9488	AND $0E
948A	LD L,A
948B	LD H,$00
948D	LD DE,$9D72
9490	ADD HL,DE
9491	LD A,(HL)
9492	INC HL
9493	LD H,(HL)
9494	LD L,A
9495	ADD HL,BC
9496	LD A,(HL)
9497	INC HL
9498	LD H,(HL)
9499	LD L,A
949A	LD BC,$0018
949D	POP DE
949E	PUSH DE
949F	LDIR
94A1	POP HL
94A2	LD A,(HL)
94A3	INC HL
94A4	INC HL
94A5	PUSH HL
94A6	LD HL,($607A)
94A9	CP $88
94AB	JR Z,$94DB
94AD	CP $B8
94AF	JP Z,$9506
94B2	LD A,($5E40)
94B5	LD C,A
94B6	LD B,$00
94B8	LD DE,$0080
94BB	AND $02
94BD	JR Z,$94C5
94BF	SBC HL,BC
94C1	SBC HL,DE
94C3	JR $94C7
94C5	ADD HL,BC
94C6	ADD HL,DE
94C7	LD A,H
94C8	AND $1F
94CA	LD H,A
94CB	EX DE,HL
94CC	POP HL
94CD	LD (HL),E
94CE	INC HL
94CF	LD (HL),D
94D0	INC HL
94D1	INC HL
94D2	LD A,C
94D3	AND $80
94D5	RET Z
94D6	LD A,(HL)
94D7	NEG
94D9	LD (HL),A
94DA	RET
94DB	LD A,($5E40)
94DE	LD B,A
94DF	AND $80
94E1	SUB $40
94E3	LD C,A
94E4	JP P,$94EC
94E7	LD DE,$0090
94EA	JR $94EF
94EC	LD DE,$FF70
94EF	ADD HL,DE
94F0	LD A,H
94F1	AND $1F
94F3	LD H,A
94F4	EX DE,HL
94F5	POP HL
94F6	LD (HL),E
94F7	INC HL
94F8	LD (HL),D
94F9	INC HL
94FA	LD A,B
94FB	AND $78
94FD	JR NZ,$9500
94FF	INC A
9500	ADD A,$37
9502	LD (HL),A
9503	INC HL
9504	LD (HL),C
9505	RET
9506	LD A,($5E40)
9509	LD B,A
950A	AND $80
950C	SUB $40
950E	LD C,A
950F	JP P,$9517
9512	LD DE,$0090
9515	JR $951A
9517	LD DE,$FF70
951A	ADD HL,DE
951B	LD A,H
951C	AND $1F
951E	LD H,A
951F	EX DE,HL
9520	POP HL
9521	LD (HL),E
9522	INC HL
9523	LD (HL),D
9524	INC HL
9525	LD A,B
9526	AND $78
9528	JR NZ,$952B
952A	INC A
952B	ADD A,$37
952D	LD (HL),A
952E	INC HL
952F	LD (HL),C
9530	RET
9531	LD HL,$5E5E
9534	INC (HL)
9535	LD A,(IX+$04)
9538	ADD A,$02
953A	CP $B0
953C	JR NC,$95B3
953E	LD (IX+$04),A
9541	LD A,($5E42)
9544	AND $07
9546	ADD A,$50
9548	LD (IX+$00),A
954B	LD A,(IX+$0A)
954E	AND A
954F	JR NZ,$955F
9551	BIT 0,(IX+$08)
9555	JR NZ,$955F
9557	INC (IX+$17)
955A	JR NZ,$9563
955C	JP $9937
955F	LD (IX+$17),$00
9563	LD H,(IX+$03)
9566	LD L,(IX+$02)
9569	LD A,(IX+$05)
956C	LD D,$00
956E	SRA A
9570	SRA A
9572	SRA A
9574	SRA A
9576	JP P,$957B
9579	LD D,$FF
957B	LD E,A
957C	ADD HL,DE
957D	LD A,H
957E	AND $1F
9580	LD (IX+$03),A
9583	LD (IX+$02),L
9586	CALL $8701
9589	CALL $8733
958C	BIT 0,(IX+$10)
9590	JR Z,$95A9
9592	LD A,(IX+$00)
9595	RRA
9596	RRA
9597	RRA
9598	AND $1F
959A	ADD A,$01
959C	DAA
959D	LD L,A
959E	LD H,$00
95A0	ADD HL,HL
95A1	ADD HL,HL
95A2	ADD HL,HL
95A3	ADD HL,HL
95A4	LD B,H
95A5	LD C,L
95A6	CALL $899C
95A9	CALL $A766
95AC	CALL $B2A2
95AF	RET NC
95B0	CALL $B2D7
95B3	JP $A76B
This entry point is used by the routine at A880.
95B6	CALL $91BB
95B9	PUSH HL
95BA	LD DE,$7000
95BD	EX DE,HL
95BE	ADD HL,DE
95BF	BIT 3,(HL)
95C1	JR Z,$95C7
95C3	LD (HL),$0A
95C5	JR $95C9
95C7	LD (HL),$08
95C9	INC DE
95CA	LD A,D
95CB	AND $03
95CD	LD D,A
95CE	LD HL,$7000
95D1	ADD HL,DE
95D2	BIT 3,(HL)
95D4	JR Z,$95DA
95D6	LD (HL),$0A
95D8	JR $95DC
95DA	LD (HL),$09
95DC	CALL $98AE
95DF	JP NZ,$9652
95E2	LD A,H
95E3	SUB $08
95E5	LD H,A
95E6	EX (SP),HL
95E7	LD A,H
95E8	AND $1F
95EA	LD H,A
95EB	LD DE,$7000
95EE	EX DE,HL
95EF	ADD HL,DE
95F0	EX DE,HL
95F1	EX (SP),HL
95F2	LD A,($607A)
95F5	AND $07
95F7	JR NZ,$95FA
95F9	INC HL
95FA	PUSH HL
95FB	LD A,(DE)
95FC	LD L,A
95FD	LD H,$00
95FF	LD DE,$F66E
9602	ADD HL,HL
9603	ADD HL,HL
9604	ADD HL,HL
9605	ADD HL,DE
9606	EX DE,HL
9607	EXX
9608	LD A,($607A)
960B	NEG
960D	AND $07
960F	LD C,A
9610	EXX
9611	POP HL
9612	PUSH HL
9613	LD B,$08
9615	CALL $9632
9618	POP HL
9619	EX (SP),HL
961A	INC HL
961B	LD A,H
961C	AND $03
961E	LD H,A
961F	LD DE,$7000
9622	ADD HL,DE
9623	LD L,(HL)
9624	LD H,$00
9626	ADD HL,HL
9627	ADD HL,HL
9628	ADD HL,HL
9629	LD DE,$F66E
962C	ADD HL,DE
962D	EX DE,HL
962E	POP HL
962F	INC L
9630	LD B,$08
9632	LD A,(DE)
9633	EXX
9634	LD H,A
9635	LD L,$00
9637	LD B,C
9638	LD A,C
9639	AND A
963A	JR Z,$9642
963C	SRL H
963E	RR L
9640	DJNZ $963C
9642	LD A,L
9643	EX AF,AF'
9644	LD A,H
9645	EXX
9646	OR (HL)
9647	LD (HL),A
9648	INC L
9649	EX AF,AF'
964A	OR (HL)
964B	LD (HL),A
964C	INC DE
964D	DEC L
964E	INC H
964F	DJNZ $9632
9651	RET
9652	POP HL
9653	RET
9654	LD HL,$5E5E
9657	INC (HL)
9658	LD H,(IX+$03)
965B	LD L,(IX+$02)
965E	LD DE,($607A)
9662	AND A
9663	SBC HL,DE
9665	BIT 4,H
9667	JP NZ,$96D7
966A	LD C,$00
966C	LD A,(IX+$05)
966F	AND A
9670	JP P,$9677
9673	CP $D1
9675	JR C,$9679
9677	SUB $02
9679	LD (IX+$05),A
967C	LD A,($6078)
967F	CP $11
9681	JR C,$9687
9683	LD A,$68
9685	JR $968A
9687	LD A,($607C)
968A	SUB (IX+$04)
968D	JP M,$96E8
9690	LD A,(IX+$06)
9693	AND A
9694	JP M,$969B
9697	CP $30
9699	JR NC,$969D
969B	ADD A,$02
969D	LD (IX+$06),A
96A0	SRA A
96A2	SRA A
96A4	SRA A
96A6	SRA A
96A8	ADD A,(IX+$04)
96AB	CP $38
96AD	JR C,$96F7
96AF	CP $B0
96B1	JR NC,$9705
96B3	LD (IX+$04),A
96B6	INC (IX+$11)
96B9	LD A,(IX+$11)
96BC	AND $07
96BE	BIT 7,C
96C0	JR NZ,$96C4
96C2	XOR $07
96C4	ADD A,$48
96C6	LD (IX+$00),A
96C9	LD A,($5E42)
96CC	RLA
96CD	AND $02
96CF	ADD A,$44
96D1	LD (IX+$07),A
96D4	JP $954B
96D7	LD C,$80
96D9	LD A,(IX+$05)
96DC	AND A
96DD	JP M,$96E4
96E0	CP $30
96E2	JR NC,$9679
96E4	ADD A,$02
96E6	JR $9679
96E8	LD A,(IX+$06)
96EB	AND A
96EC	JP P,$96F3
96EF	CP $D1
96F1	JR C,$969D
96F3	SUB $02
96F5	JR $969D
96F7	LD A,(IX+$06)
96FA	AND A
96FB	JP P,$96B6
96FE	NEG
9700	LD (IX+$06),A
9703	JR $96B6
9705	LD A,(IX+$06)
9708	AND A
9709	JP M,$96B6
970C	JR $96FE
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 routine at 9356.
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
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 $9395
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 $899C
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