Lunar Jetman: Routine at A0F8

A0F8: Routine at A0F8


A0F8	CALL $945C
A0FB	JR NZ,$A101
A0FD	RES 1,(IX+$08)
A101	LD A,($6090)
A104	SUB $1A
A106	CP $10
A108	JR NC,$A10F
A10A	CALL $A431
A10D	JR $A126
A10F	LD A,($6078)
A112	CP $16
A114	JR C,$A121
A116	LD BC,$FFF4
A119	LD HL,($607A)
A11C	CALL $A43E
A11F	JR $A12C
A121	LD BC,$0012
A124	JR $A119
A126	CALL $945C
A129	JP Z,$A212
A12C	LD A,($6080)
A12F	AND $01
A131	JP NZ,$A212
A134	LD A,(IX+$08)
A137	AND $77
A139	JP NZ,$A212
A13C	CALL $A4FC
A13F	JP NC,$A212
A142	BIT 3,(IX+$08)
A146	JR Z,$A14C
A148	XOR A
A149	LD ($5EA3),A
A14C	LD A,($6080)
A14F	OR $01
A151	LD ($6080),A
A154	LD (IX+$08),$06
A158	JP $B8BD
A15B	LD HL,($607A)
A15E	LD (IX+$02),L
A161	LD (IX+$03),H
A164	LD A,($607C)
A167	ADD A,$12
A169	CP $AF
A16B	JR C,$A16F
A16D	LD A,$AF
A16F	LD (IX+$04),A
A172	CALL $945C
A175	JR NZ,$A17C
A177	RES 1,(IX+$08)
A17B	RET
A17C	BIT 1,(IX+$08)
A180	RET NZ
A181	RES 2,(IX+$08)
A185	LD A,($6080)
A188	AND $FE
A18A	LD ($6080),A
A18D	SET 1,(IX+$08)
A191	SET 7,(IX+$08)
A195	LD A,($607D)
A198	SRA A
A19A	SRA A
A19C	SRA A
A19E	SRA A
A1A0	LD (IX+$05),A
A1A3	LD (IX+$06),$01
A1A7	JP $B8C3
A1AA	LD A,($5E42)
A1AD	RRCA
A1AE	LD C,A
A1AF	AND $03
A1B1	ADD A,$2A
A1B3	LD (IX+$00),A
A1B6	LD B,$00
A1B8	LD HL,$A313
A1BB	LD A,C
A1BC	RRCA
A1BD	RRCA
A1BE	AND $03
A1C0	LD C,A
A1C1	ADD HL,BC
A1C2	LD A,(HL)
A1C3	LD (IX+$07),A
A1C6	BIT 3,(IX+$08)
A1CA	JP NZ,$A0F8
A1CD	BIT 7,(IX+$08)
A1D1	JR Z,$A1F8
A1D3	CALL $A522
A1D6	JR C,$A1E0
A1D8	LD A,(IX+$08)
A1DB	AND $02
A1DD	LD (IX+$08),A
A1E0	LD A,($5EA3)
A1E3	AND A
A1E4	JR NZ,$A1F8
A1E6	CALL $A4BA
A1E9	JR NC,$A1F8
A1EB	LD A,$01
A1ED	LD ($5EA3),A
A1F0	SET 3,(IX+$08)
A1F4	RES 2,(IX+$08)
A1F8	CALL $ABB4
A1FB	LD A,($6078)
A1FE	CP $11
A200	RET NC
A201	BIT 2,(IX+$08)
A205	JP NZ,$A15B
A208	CALL $945C
A20B	JP NZ,$A12C
A20E	RES 1,(IX+$08)
A212	LD A,($6078)
A215	CP $11
A217	RET NC
A218	CALL $A4FC
A21B	RET NC
A21C	CALL $933E
A21F	RET Z
A220	PUSH IX
A222	POP HL
A223	LD BC,$60A8
A226	AND A
A227	SBC HL,BC
A229	JP Z,$A30A
A22C	LD A,($60AC)
A22F	LD HL,($60AA)
A232	LD DE,($607C)
A236	LD ($607C),A
A239	LD A,L
A23A	AND $F8
A23C	LD L,A
A23D	LD ($607A),HL
A240	LD A,E
A241	SUB $0C
A243	LD ($5E6A),A
A246	LD A,($6078)
A249	DEC A
A24A	AND $F7
A24C	INC A
A24D	LD ($6078),A
A250	JP $A299
A253	LD DE,$AA1B
A256	LD HL,$AA4B
A259	LD B,$10
A25B	LD (HL),$80
A25D	INC HL
A25E	LD A,($5E6A)
A261	LD (HL),A
A262	INC HL
A263	LD A,(DE)
A264	INC DE
A265	LD (HL),A
A266	INC HL
A267	LD A,(DE)
A268	INC DE
A269	LD (HL),A
A26A	INC HL
A26B	LD A,(DE)
A26C	INC DE
A26D	LD (HL),A
A26E	INC HL
A26F	DJNZ $A25B
A271	RET
A272	XOR A
A273	LD ($5E69),A
A276	LD A,($5E7B)
A279	DEC A
A27A	LD ($5E7B),A
A27D	CALL $B8F2
A280	LD IX,$AA4B
A284	LD B,$10
A286	PUSH BC
A287	CALL $A993
A28A	LD BC,$0005
A28D	ADD IX,BC
A28F	POP BC
A290	DJNZ $A286
A292	LD A,($5E69)
A295	AND A
A296	JR NZ,$A272
A298	RET
A299	DI
A29A	LD DE,$BA2A
A29D	CALL $B9BC
A2A0	RST $38
A2A1	XOR A
A2A2	LD ($5E7B),A
A2A5	CALL $A253
A2A8	CALL $A272
A2AB	LD IX,$6078
A2AF	CALL $8640
A2B2	CALL $A253
A2B5	CALL $A272
A2B8	CALL $A317
A2BB	LD A,$01
A2BD	LD ($5E68),A
A2C0	CALL $A2F5
A2C3	CALL MessageTeleporting
A2C6	CALL $8BA5
A2C9	CALL $9356
A2CC	JP StartGame_1
This entry point is used by the routine at StartGame.
A2CF	LD A,($607C)
A2D2	SUB $0C
A2D4	LD ($5E6A),A
A2D7	CALL $A253
A2DA	CALL $AA9B
A2DD	CALL $AB2F
A2E0	XOR A
A2E1	LD ($5E7B),A
A2E4	CALL $AB9D
A2E7	CALL $AB48
A2EA	CALL $AB9D
A2ED	CALL $AB48
A2F0	XOR A
A2F1	LD ($5E68),A
A2F4	RET
This entry point is used by the routines at LevelNew and B460.
A2F5	LD HL,$6009
A2F8	LD BC,$0718
A2FB	LD DE,$0011
A2FE	PUSH BC
A2FF	LD (HL),$00
A301	INC HL
A302	DJNZ $A2FF
A304	ADD HL,DE
A305	POP BC
A306	DEC C
A307	JR NZ,$A2FE
A309	RET
A30A	LD HL,($60C2)
A30D	LD A,($60C4)
A310	JP $A232
A313	LD B,A
A314	LD B,H
A315	LD B,L
A316	LD B,(HL)
This entry point is used by the routines at LevelNew and B460.
A317	LD HL,$6000
A31A	LD DE,$0018
A31D	LD B,$04
A31F	LD (HL),$00
A321	ADD HL,DE
A322	DJNZ $A31F
A324	RET
A325	CALL $945C
A328	JR NZ,$A32E
A32A	RES 1,(IX+$08)
A32E	BIT 2,(IX+$08)
A332	JP NZ,$A3FF
A335	BIT 0,(IX+$08)
A339	JP NZ,$A3C1
A33C	CALL $A522
A33F	LD A,($5EA3)
A342	AND A
A343	JR NZ,$A34A
A345	CALL $A4BA
A348	JR C,$A39C
A34A	BIT 1,(IX+$08)
A34E	JR NZ,$A375
A350	CALL $945C
A353	JR Z,$A375
A355	LD A,($6078)
A358	CP $11
A35A	JR NC,$A375
A35C	CALL $A4FC
A35F	JR NC,$A375
A361	LD HL,$6080
A364	BIT 0,(HL)
A366	JR NZ,$A375
A368	SET 0,(HL)
A36A	SET 0,(IX+$08)
A36E	SET 1,(IX+$08)
A372	CALL $B8BD
A375	JP $ABB4
A378	RES 0,(IX+$08)
A37C	SET 1,(IX+$08)
A380	LD HL,$6080
A383	RES 0,(HL)
A385	LD A,($607D)
A388	SRA A
A38A	SRA A
A38C	SRA A
A38E	SRA A
A390	LD (IX+$05),A
A393	LD (IX+$06),$01
A397	CALL $B8C3
A39A	JR $A375
A39C	SET 2,(IX+$08)
A3A0	LD A,$01
A3A2	LD ($5EA3),A
A3A5	LD A,($6090)
A3A8	CP $22
A3AA	LD A,$00
A3AC	JR C,$A3B0
A3AE	ADD A,$08
A3B0	XOR (IX+$00)
A3B3	AND $08
A3B5	LD C,A
A3B6	LD A,(IX+$08)
A3B9	AND $F7
A3BB	OR C
A3BC	LD (IX+$08),A
A3BF	JR $A375
A3C1	CALL $945C
A3C4	JR Z,$A3D3
A3C6	BIT 1,(IX+$08)
A3CA	JR NZ,$A3D3
A3CC	CALL $91BB
A3CF	LD A,D
A3D0	AND A
A3D1	JR NZ,$A378
A3D3	LD A,($6078)
A3D6	DEC A
A3D7	AND $04
A3D9	JR NZ,$A3F9
A3DB	RES 3,(IX+$00)
A3DF	LD HL,($607A)
A3E2	LD (IX+$02),L
A3E5	LD (IX+$03),H
A3E8	LD A,($607C)
A3EB	ADD A,$08
A3ED	CP $AF
A3EF	JR C,$A3F3
A3F1	LD A,$AF
A3F3	LD (IX+$04),A
A3F6	JP $A375
A3F9	SET 3,(IX+$00)
A3FD	JR $A3DF
A3FF	LD A,($6090)
A402	SUB $1A
A404	CP $10
A406	JR NC,$A45A
A408	BIT 1,(IX+$08)
A40C	JR NZ,$A431
A40E	CALL $945C
A411	JR Z,$A431
A413	CALL $A4FC
A416	JR NC,$A431
A418	XOR A
A419	LD ($5EA3),A
A41C	LD A,($6080)
A41F	OR $01
A421	LD ($6080),A
A424	LD A,(IX+$08)
A427	AND $F0
A429	OR $03
A42B	LD (IX+$08),A
A42E	CALL $B8BD
This entry point is used by the routine at B6CF.
A431	LD A,($6090)
A434	CP $22
A436	JR C,$A450
A438	LD BC,$FFF4
A43B	LD HL,($6092)
This entry point is used by the routine at B6CF.
A43E	ADD HL,BC
A43F	LD (IX+$02),L
A442	LD (IX+$03),H
A445	LD A,($6094)
A448	SUB $16
A44A	LD (IX+$04),A
A44D	JP $ABB4
A450	LD BC,$0012
A453	JR $A43B
A455	CALL $A48D
A458	JR $A46F
A45A	CALL $A579
A45D	LD A,($5E42)
A460	AND $01
A462	JR NZ,$A46F
A464	CALL ReadInput
A467	LD D,A
A468	BIT 3,D
A46A	JR Z,$A455
A46C	CALL $A4A0
A46F	LD A,($6078)
A472	CP $16
A474	JR C,$A483
A476	LD A,$08
A478	CALL $A4AA
A47B	LD BC,$FFF4
A47E	LD HL,($607A)
A481	JR $A43E
A483	LD A,$00
A485	CALL $A4AA
A488	LD BC,$0012
A48B	JR $A47E
A48D	LD A,(IX+$00)
A490	LD C,A
A491	AND $07
A493	CP $07
A495	RET Z
A496	INC A
A497	LD B,A
A498	LD A,C
A499	AND $F8
A49B	OR B
A49C	LD (IX+$00),A
A49F	RET
A4A0	LD A,(IX+$00)
A4A3	LD C,A
A4A4	AND $07
A4A6	RET Z
A4A7	DEC A
A4A8	JR $A497
A4AA	XOR (IX+$08)
A4AD	AND $08
A4AF	LD C,A
A4B0	LD A,(IX+$00)
A4B3	AND $F7
A4B5	OR C
A4B6	LD (IX+$00),A
A4B9	RET
This entry point is used by the routine at B731.
A4BA	LD L,(IX+$02)
A4BD	LD H,(IX+$03)
A4C0	ADD HL,HL
A4C1	ADD HL,HL
A4C2	ADD HL,HL
A4C3	LD C,L
A4C4	LD B,H
A4C5	LD HL,($6092)
A4C8	ADD HL,HL
A4C9	ADD HL,HL
A4CA	ADD HL,HL
A4CB	AND A
A4CC	SBC HL,BC
A4CE	LD A,H
A4CF	AND A
A4D0	JP P,$A4D6
A4D3	CALL $8947
A4D6	LD BC,$00C0
A4D9	AND A
A4DA	SBC HL,BC
A4DC	RET NC
A4DD	LD A,($6094)
A4E0	DEC A
A4E1	SUB (IX+$04)
A4E4	CP $16
A4E6	RET
This entry point is used by the routines at B6CF and B731.
A4E7	LD A,($6078)
A4EA	CP $11
A4EC	RET NC
A4ED	CALL $945C
A4F0	RET Z
A4F1	LD A,($6080)
A4F4	AND $01
A4F6	RET NZ
A4F7	BIT 7,(IX+$08)
A4FB	RET NZ
A4FC	LD L,(IX+$02)
A4FF	LD H,(IX+$03)
A502	LD BC,$0008
A505	ADD HL,BC
A506	LD BC,($607A)
A50A	AND A
A50B	SBC HL,BC
A50D	LD A,H
A50E	AND $1F
A510	RET NZ
A511	LD A,L
A512	CP $10
A514	RET NC
A515	LD A,($607C)
A518	SUB $08
A51A	SUB (IX+$04)
A51D	NEG
A51F	CP $18
A521	RET
A522	CALL $B89A
A525	CALL $B6AE
A528	CP $AF
A52A	JR C,$A536
A52C	LD (IX+$06),$00
A530	LD (IX+$05),$00
A534	LD A,$AF
A536	LD (IX+$04),A
A539	RET
This entry point is used by the routine at A880.
A53A	PUSH IX
A53C	POP HL
A53D	LD DE,$0018
A540	ADD HL,DE
A541	LD A,(HL)
A542	AND A
A543	RET NZ
A544	LD (HL),$C8
A546	INC HL
A547	INC HL
A548	EX DE,HL
A549	LD A,($5E42)
A54C	LD C,A
A54D	LD A,($5E40)
A550	ADD A,C
A551	LD ($5E40),A
A554	LD A,($5E40)
A557	AND $3C
A559	LD C,A
A55A	LD B,$00
A55C	LD HL,$A68B
A55F	ADD HL,BC
A560	INC HL
A561	INC HL
A562	LD A,(IX+$02)
A565	ADD A,$08
A567	LD (DE),A
A568	INC DE
A569	LD A,(IX+$03)
A56C	ADC A,$00
A56E	AND $1F
A570	LD (DE),A
A571	INC DE
A572	LD A,(IX+$04)
A575	SUB $10
A577	JR $A5C8
A579	LD A,($5E42)
A57C	AND $03
A57E	RET NZ
A57F	CALL ReadInput
A582	BIT 4,A
A584	RET NZ
A585	LD HL,$6000
A588	LD DE,$0018
A58B	LD B,$02
A58D	LD A,(HL)
A58E	AND A
A58F	JR Z,$A595
A591	ADD HL,DE
A592	DJNZ $A58D
A594	RET
A595	PUSH HL
A596	CALL $B960
A599	POP HL
A59A	LD (HL),$58
A59C	INC HL
A59D	INC HL
A59E	EX DE,HL
A59F	LD A,(IX+$00)
A5A2	RLCA
A5A3	RLCA
A5A4	AND $3C
A5A6	LD C,A
A5A7	LD B,$00
A5A9	LD HL,$A68B
A5AC	ADD HL,BC
A5AD	LD A,(HL)
A5AE	LD B,$00
A5B0	AND A
A5B1	JP P,$A5B5
A5B4	DEC B
A5B5	ADD A,(IX+$02)
A5B8	INC HL
A5B9	LD (DE),A
A5BA	INC DE
A5BB	LD A,(IX+$03)
A5BE	ADC A,B
A5BF	AND $1F
A5C1	LD (DE),A
A5C2	INC DE
A5C3	LD A,(IX+$04)
A5C6	ADD A,(HL)
A5C7	INC HL
A5C8	LD (DE),A
A5C9	INC DE
A5CA	LD A,(HL)
A5CB	INC HL
A5CC	LD (DE),A
A5CD	INC DE
A5CE	LD A,(HL)
A5CF	INC HL
A5D0	LD (DE),A
A5D1	INC DE
A5D2	LD A,($5E40)
A5D5	AND $03
A5D7	LD BC,$A5EF
A5DA	ADD A,C
A5DB	LD C,A
A5DC	LD A,B
A5DD	ADC A,$00
A5DF	LD B,A
A5E0	LD A,(BC)
A5E1	LD (DE),A
A5E2	INC DE
A5E3	LD A,$20
A5E5	LD (DE),A
A5E6	INC DE
A5E7	LD B,$0F
A5E9	XOR A
A5EA	LD (DE),A
A5EB	INC DE
A5EC	DJNZ $A5EA
A5EE	RET
A5EF	LD B,H
A5F0	LD B,L
A5F1	LD B,(HL)
A5F2	LD B,A
A5F3	ADD A,(IX+$10)
A5F6	LD C,A
A5F7	AND $0F
A5F9	LD (IX+$10),A
A5FC	LD A,C
A5FD	RRCA
A5FE	RRCA
A5FF	RRCA
A600	RRCA
A601	AND $0F
A603	LD B,$00
A605	JR $A63E
A607	ADD A,(IX+$11)
A60A	LD C,A
A60B	AND $0F
A60D	LD (IX+$11),A
A610	LD A,C
A611	RRCA
A612	RRCA
A613	RRCA
A614	RRCA
A615	AND $0F
A617	JR $A66A
A619	DEC (IX+$08)
A61C	JP Z,$A73C
A61F	LD A,(IX+$05)
A622	AND A
A623	JP P,$A5F3
A626	ADD A,(IX+$10)
A629	LD C,A
A62A	AND $0F
A62C	NEG
A62E	LD (IX+$10),A
A631	LD A,C
A632	NEG
A634	RRCA
A635	RRCA
A636	RRCA
A637	RRCA
A638	AND $0F
A63A	NEG
A63C	LD B,$FF
A63E	ADD A,(IX+$02)
A641	LD (IX+$02),A
A644	LD A,(IX+$03)
A647	ADC A,B
A648	AND $1F
A64A	LD (IX+$03),A
A64D	LD A,(IX+$06)
A650	AND A
A651	JP P,$A607
A654	ADD A,(IX+$11)
A657	LD C,A
A658	AND $0F
A65A	NEG
A65C	LD (IX+$11),A
A65F	LD A,C
A660	NEG
A662	RRCA
A663	RRCA
A664	RRCA
A665	RRCA
A666	AND $0F
A668	NEG
A66A	ADD A,(IX+$04)
A66D	CP $AF
A66F	JP NC,$A73C
A672	CP $30
A674	JP C,$A73C
A677	LD (IX+$04),A
A67A	LD A,(IX+$00)
A67D	XOR $01
A67F	LD (IX+$00),A
A682	CALL $8B73
A685	CALL $8733
A688	JP $A6CB
A68B	RET M
A68C	CALL M,$00C0
A68F	RET M
A690	LD SP,HL
A691	CALL NZ,$F9FA
A694	OR $C7
A696	EX (SP),HL
A697	LD SP,HL
A698	CALL P,$DECA
A69B	CALL M,$D3F2
A69E	OUT ($FF),A
A6A0	RET P
A6A1	IN A,($CC)
A6A3	LD BC,$E3F0
A6A6	RST $00
A6A7	INC BC
A6A8	XOR $EA
A6AA	CALL NZ,$FC10
A6AD	LD B,B
A6AE	NOP
A6AF	DJNZ $A6AA
A6B1	INC A
A6B2	JP M,$F510
A6B5	ADD HL,SP
A6B6	EX (SP),HL
A6B7	RRCA
A6B8	DI
A6B9	LD (HL),$DE
A6BB	INC C
A6BC	JP P,$D32D
A6BF	ADD HL,BC
A6C0	RET P
A6C1	DEC H
A6C2	CALL Z,$EF08
A6C5	DEC E
A6C6	RST $00
A6C7	DEC B
A6C8	DEFB $ED,$16
A6CA	CALL NZ,$183E
A6CD	LD ($A726),A
A6D0	LD HL,$61B0
A6D3	LD DE,$0018
A6D6	LD B,$06
A6D8	CALL $A6F2
A6DB	LD A,$0C
A6DD	LD ($A726),A
A6E0	LD HL,$6108
A6E3	LD B,$01
A6E5	CALL $A6F2
A6E8	LD A,$18
A6EA	LD ($A726),A
A6ED	LD HL,$6138
A6F0	LD B,$01
A6F2	LD A,(HL)
A6F3	AND A
A6F4	PUSH BC
A6F5	PUSH DE
A6F6	PUSH HL
A6F7	CALL NZ,$A701
A6FA	POP HL
A6FB	POP DE
A6FC	POP BC
A6FD	ADD HL,DE
A6FE	DJNZ $A6F2
A700	RET
A701	INC HL
A702	INC HL
A703	EX DE,HL
A704	LD A,(DE)
A705	INC DE
A706	LD C,A
A707	LD A,(DE)
A708	INC DE
A709	LD B,A
A70A	LD HL,$0008
A70D	ADD HL,BC
A70E	LD C,(IX+$02)
A711	LD B,(IX+$03)
A714	AND A
A715	SBC HL,BC
A717	LD A,H
A718	AND $1F
A71A	RET NZ
A71B	LD A,L
A71C	CP $10
A71E	RET NC
A71F	LD A,(DE)
A720	ADD A,$04
A722	SUB (IX+$04)
A725	CP $18
A727	RET NC
A728	EX DE,HL
A729	LD BC,$000C
A72C	ADD HL,BC
A72D	SET 0,(HL)
A72F	CALL $8AE8
A732	LD (IX+$00),$00
A736	POP HL
A737	POP HL
A738	POP HL
A739	POP HL
A73A	POP HL
A73B	RET
This entry point is used by the routines at 945C and A880.
A73C	LD (IX+$00),$64
A740	JR $A772
A742	CALL $8B73
A745	CALL $8733
A748	INC (IX+$00)
A74B	RET
A74C	LD A,(IX+$0A)
A74F	AND A
A750	JR Z,$A755
A752	CALL $B8FF
A755	CALL $8AE8
A758	LD (IX+$00),$00
A75C	RET
This entry point is used by the routine at A880.
A75D	CALL $B973
A760	LD (IX+$00),$C0
A764	JR $A772
This entry point is used by the routine at 945C.
A766	BIT 0,(IX+$10)
A76A	RET Z
This entry point is used by the routines at 945C and A880.
A76B	LD (IX+$00),$5C
A76F	CALL $B9A1
A772	LD A,($5E40)
A775	AND $03
A777	LD C,A
A778	LD B,$00
A77A	LD HL,$A792
A77D	ADD HL,BC
A77E	LD A,(HL)
A77F	LD (IX+$07),A
A782	RET
A783	CALL $ABB4
A786	INC (IX+$00)
A789	RET
A78A	CALL $8640
A78D	LD (IX+$00),$00
A791	RET
A792	LD B,L
A793	LD B,(HL)
A794	LD B,A
A795	LD B,(HL)
This entry point is used by the routine at LaserBeam_Animate.
A796	LD HL,$61B0
A799	LD DE,$0018
A79C	LD B,$06
A79E	CALL $A7CB
A7A1	LD HL,$6108
A7A4	LD B,$01
A7A6	CALL $A7CB
A7A9	LD HL,$6138
A7AC	LD B,$01
A7AE	CALL $A7CB
A7B1	LD HL,$6120
A7B4	LD A,(HL)
A7B5	SUB $C8
A7B7	CP $04
A7B9	JR NC,$A7C0
A7BB	LD B,$01
A7BD	CALL $A7CB
A7C0	LD HL,$6150
A7C3	LD A,(HL)
A7C4	SUB $C8
A7C6	CP $04
A7C8	RET NC
A7C9	LD B,$01
A7CB	LD A,(HL)
A7CC	AND A
A7CD	JR Z,$A7DE
A7CF	BIT 2,(IX+$02)
A7D3	JR Z,$A7DE
A7D5	PUSH BC
A7D6	PUSH DE
A7D7	PUSH HL
A7D8	CALL $A7E2
A7DB	POP HL
A7DC	POP DE
A7DD	POP BC
A7DE	ADD HL,DE
A7DF	DJNZ $A7CB
A7E1	RET
A7E2	INC HL
A7E3	INC HL
A7E4	EX DE,HL
A7E5	LD A,(DE)
A7E6	INC DE
A7E7	LD C,A
A7E8	LD A,(DE)
A7E9	INC DE
A7EA	LD B,A
A7EB	LD HL,$0090
A7EE	ADD HL,BC
A7EF	LD BC,($607A)
A7F3	LD A,C
A7F4	ADD A,(IX+$02)
A7F7	LD C,A
A7F8	LD A,B
A7F9	ADC A,$00
A7FB	LD B,A
A7FC	AND A
A7FD	SBC HL,BC
A7FF	LD A,H
A800	AND $1F
A802	RET NZ
A803	LD A,L
A804	CP $20
A806	RET NC
A807	LD A,(DE)
A808	ADD A,$04
A80A	SUB (IX+$01)
A80D	CP $18
A80F	RET NC
A810	EX DE,HL
A811	LD BC,$000C
A814	ADD HL,BC
A815	SET 0,(HL)
A817	RES 2,(IX+$02)
A81B	RET
A81C	CALL $8B73
A81F	CALL $8733
A822	INC (IX+$00)
A825	RET