Lunar Jetman: Routine at A880

A880: Routine at A880

Used by the routine at NewGame.
A880	LD HL,$5EA0
A883	LD DE,$5EA4
A886	LD B,$04
A888	LD A,(DE)
A889	LD C,(HL)
A88A	LD (HL),A
A88B	LD A,C
A88C	LD (DE),A
A88D	INC HL
A88E	INC DE
A88F	DJNZ $A888
A891	LD HL,$7000
A894	LD DE,$7400
A897	LD BC,$0400
A89A	CALL $A8A6
A89D	LD HL,$6090
A8A0	LD DE,$6240
A8A3	LD BC,$0120
A8A6	PUSH BC
A8A7	LD A,(DE)
A8A8	LD C,(HL)
A8A9	LD (HL),A
A8AA	LD A,C
A8AB	LD (DE),A
A8AC	INC HL
A8AD	INC DE
A8AE	POP BC
A8AF	DEC BC
A8B0	LD A,B
A8B1	OR C
A8B2	JR NZ,$A8A6
A8B4	RET
A8B5	LD A,($5E00)
A8B8	AND $01
A8BA	JR NZ,$A8C5
A8BC	LD A,($5EA1)
A8BF	AND A
A8C0	JR Z,$A939
A8C2	JP LevelInitialisation
A8C5	LD A,($5EA5)
A8C8	AND A
A8C9	JR Z,$A8BC
A8CB	LD A,($5EA1)
A8CE	AND A
A8CF	CALL Z,$A931
A8D2	CALL $A880
A8D5	XOR A
A8D6	LD ($5E6C),A
A8D9	LD A,($5E65)
A8DC	CPL
A8DD	LD ($5E65),A
A8E0	JP LevelInitialisation
A8E3	LD A,$B1
A8E5	LD ($A95D),A
A8E8	CALL CreateWindow
A8EB	LD DE,$A94B
A8EE	LD HL,$7038
A8F1	CALL PrintStringColour
A8F4	LD DE,$B9D2
A8F7	CALL $B9BC
A8FA	LD B,$04
A8FC	LD A,($6090)
A8FF	SUB $1A
A901	CP $10
A903	JR C,$A922
A905	LD DE,$A95E
A908	LD HL,$3818
A90B	CALL PrintStringColour
A90E	LD DE,$A979
A911	LD HL,$4858
A914	CALL PrintStringColour
A917	LD DE,$A985
A91A	LD HL,$5850
A91D	CALL PrintStringColour
A920	LD B,$08
A922	LD HL,$0000
A925	DEC HL
A926	LD A,H
A927	OR L
A928	JR NZ,$A925
A92A	DJNZ $A925
A92C	RET
A92D	LD A,$B2
A92F	JR $A8E5
A931	LD A,($5E65)
A934	AND A
A935	JR Z,$A8E3
A937	JR $A92D
A939	LD A,($5E65)
A93C	AND A
A93D	JR NZ,$A945
A93F	CALL $A8E3
A942	JP $F56E
A945	CALL $A92D
A948	JP $F56E
A94B	LD B,A
A94C	LD B,A
A94D	LD B,C
A94E	LD C,L
A94F	LD B,L
A950	JR NZ,$A9A1
A952	LD D,(HL)
A953	LD B,L
A954	LD D,D
A955	JR NZ,$A9A7
A957	LD C,H
A958	LD B,C
A959	LD E,C
A95A	LD B,L
A95B	LD D,D
A95C	JR NZ,$A90E
A95E	LD B,L
A95F	LD E,C
A960	LD C,A
A961	LD D,L
A962	LD D,D
A963	JR NZ,$A9B1
A965	LD D,L
A966	LD C,(HL)
A967	LD B,C
A968	LD D,D
A969	JR NZ,$A9BD
A96B	LD C,A
A96C	LD D,(HL)
A96D	LD B,L
A96E	LD D,D
A96F	JR NZ,$A9B9
A971	LD B,C
A972	LD D,E
A973	JR NZ,$A9B7
A975	LD B,L
A976	LD B,L
A977	LD C,(HL)
A978	AND B
A979	LD B,L
A97A	LD B,H
A97B	LD B,L
A97C	LD D,E
A97D	LD D,H
A97E	LD D,D
A97F	LD C,A
A980	LD E,C
A981	LD B,L
A982	LD B,H
A983	LD L,$A0
A985	LD B,L
A986	LD B,C
A987	LD C,H
A988	LD C,H
A989	JR NZ,$A9D4
A98B	LD D,E
A98C	JR NZ,$A9DA
A98E	LD C,A
A98F	LD D,E
A990	LD D,H
A991	LD L,$A0
This entry point is used by the routine at A0F8.
A993	LD A,(IX+$00)
A996	ADD A,(IX+$02)
A999	LD L,A
A99A	LD A,(IX+$01)
A99D	ADD A,(IX+$03)
A9A0	LD H,A
A9A1	LD A,L
A9A2	CP $08
A9A4	RET C
A9A5	CP $F8
A9A7	RET NC
A9A8	LD A,H
A9A9	CP $30
A9AB	RET C
A9AC	CP $A8
A9AE	RET NC
A9AF	LD (IX+$00),L
A9B2	LD (IX+$01),H
A9B5	LD A,($5E69)
A9B8	INC A
A9B9	LD ($5E69),A
A9BC	LD BC,$0202
A9BF	PUSH HL
A9C0	EXX
A9C1	POP DE
A9C2	LD L,E
A9C3	LD H,D
A9C4	CALL AttributeAddress
A9C7	LD A,(HL)
A9C8	AND A
A9C9	JR Z,$A9CF
A9CB	LD A,(IX+$04)
A9CE	LD (HL),A
A9CF	EXX
A9D0	CALL ScreenAddress
A9D3	PUSH BC
A9D4	PUSH HL
A9D5	LD A,(IX+$00)
A9D8	AND $07
A9DA	LD E,A
A9DB	EX AF,AF'
A9DC	LD A,E
A9DD	LD DE,$AA13
A9E0	ADD A,E
A9E1	LD E,A
A9E2	LD A,D
A9E3	ADC A,$00
A9E5	LD D,A
A9E6	LD A,(DE)
A9E7	XOR (HL)
A9E8	LD (HL),A
A9E9	EX AF,AF'
A9EA	INC A
A9EB	AND $07
A9ED	JR NZ,$AA10
A9EF	INC L
A9F0	EXX
A9F1	INC E
A9F2	LD L,E
A9F3	LD H,D
A9F4	EX AF,AF'
A9F5	CALL AttributeAddress
A9F8	LD A,(HL)
A9F9	AND A
A9FA	JR Z,$AA00
A9FC	LD A,(IX+$04)
A9FF	LD (HL),A
AA00	EXX
AA01	EX AF,AF'
AA02	DJNZ $A9D8
AA04	POP HL
AA05	CALL $85F6
AA08	EXX
AA09	DEC D
AA0A	EXX
AA0B	POP BC
AA0C	DEC C
AA0D	JR NZ,$A9D3
AA0F	RET
AA10	EXX
AA11	JR $A9F2
AA13	ADD A,B
AA14	LD B,B
AA15	JR NZ,$AA27
AA17	EX AF,AF'
AA18	INC B
AA19	LD (BC),A
AA1A	LD BC,$FE00
AA1D	LD B,C
AA1E	LD BC,$42FE
AA21	LD (BC),A
AA22	CP $43
AA24	LD (BC),A
AA25	RST $38
AA26	LD B,H
AA27	LD (BC),A
AA28	NOP
AA29	LD B,L
AA2A	LD (BC),A
AA2B	LD BC,$0246
AA2E	LD (BC),A
AA2F	LD B,A
AA30	LD BC,$4602
AA33	NOP
AA34	LD (BC),A
AA35	LD B,L
AA36	RST $38
AA37	LD (BC),A
AA38	LD B,H
AA39	CP $02
AA3B	LD B,E
AA3C	CP $01
AA3E	LD B,D
AA3F	CP $00
AA41	LD B,C
AA42	CP $FF
AA44	LD B,D
AA45	CP $FE
AA47	LD B,E
AA48	RST $38
AA49	CP $44
AA4B	NOP
AA4C	NOP
AA4D	NOP
AA4E	NOP
AA4F	NOP
AA50	NOP
AA51	NOP
AA52	NOP
AA53	NOP
AA54	NOP
AA55	NOP
AA56	NOP
AA57	NOP
AA58	NOP
AA59	NOP
AA5A	NOP
AA5B	NOP
AA5C	NOP
AA5D	NOP
AA5E	NOP
AA5F	NOP
AA60	NOP
AA61	NOP
AA62	NOP
AA63	NOP
AA64	NOP
AA65	NOP
AA66	NOP
AA67	NOP
AA68	NOP
AA69	NOP
AA6A	NOP
AA6B	NOP
AA6C	NOP
AA6D	NOP
AA6E	NOP
AA6F	NOP
AA70	NOP
AA71	NOP
AA72	NOP
AA73	NOP
AA74	NOP
AA75	NOP
AA76	NOP
AA77	NOP
AA78	NOP
AA79	NOP
AA7A	NOP
AA7B	NOP
AA7C	NOP
AA7D	NOP
AA7E	NOP
AA7F	NOP
AA80	NOP
AA81	NOP
AA82	NOP
AA83	NOP
AA84	NOP
AA85	NOP
AA86	NOP
AA87	NOP
AA88	NOP
AA89	NOP
AA8A	NOP
AA8B	NOP
AA8C	NOP
AA8D	NOP
AA8E	NOP
AA8F	NOP
AA90	NOP
AA91	NOP
AA92	NOP
AA93	NOP
AA94	NOP
AA95	NOP
AA96	NOP
AA97	NOP
AA98	NOP
AA99	NOP
AA9A	NOP
This entry point is used by the routine at A0F8.
AA9B	XOR A
AA9C	LD ($5E69),A
AA9F	LD IX,$AA4B
AAA3	LD B,$10
AAA5	PUSH BC
AAA6	CALL $AAB8
AAA9	LD BC,$0005
AAAC	ADD IX,BC
AAAE	POP BC
AAAF	DJNZ $AAA5
AAB1	LD A,($5E69)
AAB4	AND A
AAB5	JR NZ,$AA9B
AAB7	RET
AAB8	LD A,(IX+$00)
AABB	ADD A,(IX+$02)
AABE	LD L,A
AABF	LD A,(IX+$01)
AAC2	ADD A,(IX+$03)
AAC5	LD H,A
AAC6	LD A,L
AAC7	CP $08
AAC9	RET C
AACA	CP $F8
AACC	RET NC
AACD	LD A,H
AACE	CP $30
AAD0	RET C
AAD1	CP $A8
AAD3	RET NC
AAD4	LD (IX+$00),L
AAD7	LD (IX+$01),H
AADA	LD HL,$5E69
AADD	INC (HL)
AADE	RET
AADF	NOP
AAE0	NOP
AAE1	NOP
AAE2	LD (BC),A
AAE3	LD B,A
AAE4	NOP
AAE5	NOP
AAE6	RST $38
AAE7	LD (BC),A
AAE8	LD B,D
AAE9	NOP
AAEA	NOP
AAEB	CP $02
AAED	LD B,H
AAEE	NOP
AAEF	NOP
AAF0	CP $01
AAF2	LD B,E
AAF3	NOP
AAF4	NOP
AAF5	CP $00
AAF7	LD B,L
AAF8	NOP
AAF9	NOP
AAFA	CP $FF
AAFC	LD B,E
AAFD	NOP
AAFE	NOP
AAFF	CP $FE
AB01	LD B,H
AB02	NOP
AB03	NOP
AB04	RST $38
AB05	CP $42
AB07	NOP
AB08	NOP
AB09	NOP
AB0A	CP $47
AB0C	NOP
AB0D	NOP
AB0E	LD BC,$42FE
AB11	NOP
AB12	NOP
AB13	LD (BC),A
AB14	CP $44
AB16	NOP
AB17	NOP
AB18	LD (BC),A
AB19	RST $38
AB1A	LD B,E
AB1B	NOP
AB1C	NOP
AB1D	LD (BC),A
AB1E	NOP
AB1F	LD B,L
AB20	NOP
AB21	NOP
AB22	LD (BC),A
AB23	LD BC,$0043
AB26	NOP
AB27	LD (BC),A
AB28	LD (BC),A
AB29	LD B,H
AB2A	NOP
AB2B	NOP
AB2C	LD BC,$4202
This entry point is used by the routine at A0F8.
AB2F	LD HL,$AA4B
AB32	LD DE,$AADF
AB35	LD B,$10
AB37	LD A,(HL)
AB38	INC HL
AB39	LD (DE),A
AB3A	INC DE
AB3B	LD A,(HL)
AB3C	INC HL
AB3D	LD (DE),A
AB3E	INC DE
AB3F	INC HL
AB40	INC HL
AB41	INC HL
AB42	INC DE
AB43	INC DE
AB44	INC DE
AB45	DJNZ $AB37
AB47	RET
This entry point is used by the routine at A0F8.
AB48	XOR A
AB49	LD ($5E69),A
AB4C	LD A,($5E7B)
AB4F	INC A
AB50	LD ($5E7B),A
AB53	CALL $B8F2
AB56	LD IX,$AA4B
AB5A	LD B,$10
AB5C	PUSH BC
AB5D	CALL $AB78
AB60	LD BC,$0005
AB63	ADD IX,BC
AB65	POP BC
AB66	DJNZ $AB5C
AB68	LD A,($5E69)
AB6B	AND A
AB6C	JR NZ,$AB48
AB6E	RET
AB6F	LD A,($5E6A)
AB72	CP (IX+$01)
AB75	RET Z
AB76	JR $AB7F
AB78	LD A,(IX+$00)
AB7B	CP $80
AB7D	JR Z,$AB6F
AB7F	LD A,(IX+$00)
AB82	ADD A,(IX+$02)
AB85	LD L,A
AB86	LD A,(IX+$01)
AB89	ADD A,(IX+$03)
AB8C	LD H,A
AB8D	LD A,L
AB8E	CP $80
AB90	JR Z,$AB95
AB92	JP $A9A1
AB95	LD A,($5E6A)
AB98	CP H
AB99	RET Z
AB9A	JP $A9A1
This entry point is used by the routine at A0F8.
AB9D	LD HL,$AADF
ABA0	LD DE,$AA4B
ABA3	LD BC,$0050
ABA6	LDIR
ABA8	RET
ABA9	LD A,(IX+$00)
ABAC	INC A
ABAD	AND $0F
ABAF	ADD A,$70
ABB1	LD (IX+$00),A
This entry point is used by the routines at A0F8, B460 and B731.
ABB4	CALL $8701
ABB7	JP $8733
ABBA	LD E,$18
ABBC	CALL $B2A4
ABBF	CALL C,$B2D7
ABC2	LD A,(IX+$17)
ABC5	AND A
ABC6	JR Z,$AC3E
ABC8	CALL $ABA9
ABCB	LD A,($5E42)
ABCE	CPL
ABCF	AND $0F
ABD1	RET NZ
ABD2	LD A,($5E67)
ABD5	AND A
ABD6	JR NZ,$ABE5
ABD8	LD A,($6078)
ABDB	CP $81
ABDD	JR Z,$ABE5
ABDF	DEC (IX+$17)
ABE2	CALL Z,$B16F
ABE5	LD A,(IX+$17)
ABE8	LD HL,$2040
ABEB	CALL $8C01
ABEE	CALL $AD36
ABF1	JR NC,$AC29
ABF3	CALL $AD0B
ABF6	LD HL,$587B
ABF9	CALL $AD00
ABFC	LD HL,$587D
ABFF	LD A,$42
AC01	CALL $AD00
AC04	LD A,($5E42)
AC07	AND $3F
AC09	CP $0F
AC0B	JR Z,$AC1A
AC0D	CP $2F
AC0F	RET NZ
AC10	LD DE,$AC24
AC13	LD HL,$10D8
AC16	CALL PrintStringColour
AC19	RET
AC1A	LD DE,$AC1F
AC1D	JR $AC13
AC1F	LD B,L
AC20	LD H,E
AC21	LD H,H
AC22	LD H,L
AC23	AND $45
AC25	LD H,A
AC26	LD L,B
AC27	LD L,C
AC28	JP PE,$0BCD
AC2B	XOR L
AC2C	LD HL,$587D
AC2F	CALL $AD00
AC32	LD HL,$587B
AC35	LD A,$42
AC37	JR $AC01
AC39	LD HL,($607A)
AC3C	JR $AC4A
AC3E	LD A,($6090)
AC41	SUB $1A
AC43	CP $10
AC45	JR NC,$AC39
AC47	LD HL,($6092)
AC4A	CALL $AD39
AC4D	LD A,(IX+$00)
AC50	JR C,$AC59
AC52	CP $78
AC54	JR Z,$AC60
AC56	JP $ABA9
AC59	CP $70
AC5B	JR Z,$AC6F
AC5D	JP $ABA9
AC60	CALL $ABB4
AC63	CALL $B1D3
AC66	RET NZ
AC67	CALL $AC7E
AC6A	LD (IX+$00),$98
AC6E	RET
AC6F	CALL $ABB4
AC72	CALL $B1D3
AC75	RET NZ
AC76	CALL $AC83
AC79	LD (IX+$00),$9C
AC7D	RET
AC7E	LD HL,$ACD0
AC81	JR $AC86
AC83	LD HL,$ACA0
AC86	LD DE,$6138
AC89	LD BC,$0030
AC8C	LDIR
AC8E	LD L,(IX+$02)
AC91	LD H,(IX+$03)
AC94	LD ($613A),HL
AC97	LD A,(IX+$04)
AC9A	SUB $10
AC9C	LD ($613C),A
AC9F	RET
ACA0	ADD A,H
ACA1	NOP
ACA2	NOP
ACA3	NOP
ACA4	NOP
ACA5	LD BC,$46FF
ACA8	NOP
ACA9	NOP
ACAA	NOP
ACAB	NOP
ACAC	NOP
ACAD	NOP
ACAE	NOP
ACAF	NOP
ACB0	NOP
ACB1	NOP
ACB2	NOP
ACB3	NOP
ACB4	NOP
ACB5	NOP
ACB6	NOP
ACB7	NOP
ACB8	ADD A,(HL)
ACB9	NOP
ACBA	NOP
ACBB	NOP
ACBC	NOP
ACBD	NOP
ACBE	NOP
ACBF	LD B,D
ACC0	NOP
ACC1	NOP
ACC2	NOP
ACC3	NOP
ACC4	NOP
ACC5	NOP
ACC6	NOP
ACC7	NOP
ACC8	NOP
ACC9	NOP
ACCA	NOP
ACCB	NOP
ACCC	NOP
ACCD	NOP
ACCE	NOP
ACCF	NOP
ACD0	ADD A,B
ACD1	NOP
ACD2	NOP
ACD3	NOP
ACD4	NOP
ACD5	RST $38
ACD6	RST $38
ACD7	LD B,(HL)
ACD8	NOP
ACD9	NOP
ACDA	NOP
ACDB	NOP
ACDC	NOP
ACDD	NOP
ACDE	NOP
ACDF	NOP
ACE0	NOP
ACE1	NOP
ACE2	NOP
ACE3	NOP
ACE4	NOP
ACE5	NOP
ACE6	NOP
ACE7	NOP
ACE8	ADD A,D
ACE9	NOP
ACEA	NOP
ACEB	NOP
ACEC	NOP
ACED	NOP
ACEE	NOP
ACEF	LD B,D
ACF0	NOP
ACF1	NOP
ACF2	NOP
ACF3	NOP
ACF4	NOP
ACF5	NOP
ACF6	NOP
ACF7	NOP
ACF8	NOP
ACF9	NOP
ACFA	NOP
ACFB	NOP
ACFC	NOP
ACFD	NOP
ACFE	NOP
ACFF	NOP
This entry point is used by the routine at 9EDC.
AD00	LD (HL),A
AD01	INC L
AD02	LD (HL),A
AD03	LD BC,$001F
AD06	ADD HL,BC
AD07	LD (HL),A
AD08	INC L
AD09	LD (HL),A
AD0A	RET
This entry point is used by the routine at 9EDC.
AD0B	LD A,($5E42)
AD0E	AND $10
AD10	JR Z,$AD14
AD12	LD A,$30
AD14	OR $42
AD16	RET
AD17	LD A,($5E42)
AD1A	AND $10
AD1C	JR Z,$AD14
AD1E	LD A,$38
AD20	JR $AD14
This entry point is used by the routine at 91E2.
AD22	CALL $AD0B
AD25	LD HL,$5861
AD28	PUSH AF
AD29	CALL $AD00
AD2C	POP AF
AD2D	LD HL,$5863
AD30	JP $AD00
This entry point is used by the routine at 91E2.
AD33	XOR A
AD34	JR $AD25
This entry point is used by the routine at 9EDC.
AD36	LD HL,($607A)
AD39	LD C,(IX+$02)
AD3C	LD B,(IX+$03)
This entry point is used by the routines at 8FF4 and B731.
AD3F	AND A
AD40	SBC HL,BC
AD42	LD A,H
AD43	AND A
AD44	JP M,$AD4E
AD47	LD BC,$1000
AD4A	AND A
AD4B	SBC HL,BC
AD4D	RET
AD4E	CALL $8947
AD51	LD BC,$1000
AD54	AND A
AD55	SBC HL,BC
AD57	CCF
AD58	RET
AD59	LD E,$14
AD5B	CALL $B2A4
AD5E	CALL C,$B2D7
AD61	LD A,($607A)
AD64	SUB (IX+$02)
AD67	NEG
AD69	AND $07
AD6B	ADD A,$68
AD6D	LD (IX+$00),A
AD70	CALL $8787
AD73	LD A,($5E58)
AD76	SUB $08
AD78	LD ($5E58),A
AD7B	CALL $8733
AD7E	LD A,($5E6C)
AD81	AND A
AD82	JR NZ,$AD89
AD84	LD A,(IX+$15)
AD87	AND A
AD88	RET Z
AD89	CALL $864F
AD8C	LD A,$C0
AD8E	LD ($6168),A
AD91	LD ($6180),A
AD94	LD HL,($6182)
AD97	LD BC,$FFF8
AD9A	CALL $A002
AD9D	LD ($6182),HL
ADA0	LD HL,$6188
ADA3	LD B,$08
ADA5	LD (HL),$00
ADA7	INC HL
ADA8	DJNZ $ADA5
ADAA	RET
ADAB	CALL $B2A2
ADAE	JR C,$ADDE
ADB0	BIT 0,(IX+$10)
ADB4	JR NZ,$ADE1
ADB6	LD L,(IX+$02)
ADB9	LD H,(IX+$03)
ADBC	LD B,$00
ADBE	LD A,(IX+$05)
ADC1	LD C,A
ADC2	AND A
ADC3	JP P,$ADC7
ADC6	DEC B
ADC7	ADD HL,BC
ADC8	LD (IX+$02),L
ADCB	LD (IX+$03),H
ADCE	LD A,(IX+$04)
ADD1	ADD A,(IX+$06)
ADD4	LD (IX+$04),A
ADD7	CP $3C
ADD9	JR C,$ADE7
ADDB	JP $ABB4
ADDE	CALL $B2D7
ADE1	LD BC,$0500
ADE4	CALL $899C
ADE7	JP $A76B
ADEA	LD A,($6138)
ADED	CP $80
ADEF	JR NZ,$AE2F
ADF1	LD HL,($613A)
ADF4	LD BC,$0014
ADF7	ADD HL,BC
ADF8	LD A,H
ADF9	AND $1F
ADFB	LD H,A
ADFC	LD (IX+$02),L
ADFF	LD (IX+$03),H
AE02	LD A,($613C)
AE05	ADD A,$10
AE07	LD (IX+$04),A
AE0A	LD A,(IX+$00)
AE0D	XOR $01
AE0F	LD (IX+$00),A
AE12	LD A,(IX+$07)
AE15	XOR $04
AE17	LD (IX+$07),A
AE1A	JP $ABB4
AE1D	LD A,($6138)
AE20	CP $84
AE22	JR NZ,$AE2F
AE24	LD HL,($613A)
AE27	LD BC,$0010
AE2A	AND A
AE2B	SBC HL,BC
AE2D	JR $ADF8
AE2F	CALL $8640
AE32	LD (IX+$00),$00
AE36	RET
AE37	JP $ABB4
AE3A	LD E,$18
AE3C	CALL $B2A4
AE3F	CALL C,$B2D7
AE42	CALL $ABB4
AE45	LD A,($5E42)
AE48	AND $07
AE4A	RET NZ
AE4B	INC (IX+$00)
AE4E	LD A,(IX+$00)
AE51	AND $03
AE53	CP $03
AE55	CALL Z,$AE78
AE58	RET
AE59	LD E,$18
AE5B	CALL $B2A4
AE5E	CALL C,$B2D7
AE61	CALL $ABB4
AE64	LD A,($5E42)
AE67	AND $03
AE69	RET NZ
AE6A	INC (IX+$00)
AE6D	LD A,(IX+$00)
AE70	AND $03
AE72	CP $03
AE74	CALL Z,$AEB7
AE77	RET
AE78	LD HL,$AEBC
AE7B	LD DE,$6108
AE7E	LD BC,$0030
AE81	LDIR
AE83	LD L,(IX+$02)
AE86	LD H,(IX+$03)
AE89	LD ($610A),HL
AE8C	LD A,(IX+$04)
AE8F	SUB $0C
AE91	LD ($610C),A
AE94	LD A,($5EA0)
AE97	ADD A,$08
AE99	CP $63
AE9B	JR C,$AE9F
AE9D	LD A,$63
AE9F	LD ($611E),A
AEA2	LD A,($6172)
AEA5	AND A
AEA6	RET NZ
AEA7	LD A,($5EA1)
AEAA	AND A
AEAB	JP NZ,$B52E
AEAE	LD A,($6078)
AEB1	CP $2A
AEB3	RET NC
AEB4	JP $B52E
AEB7	LD HL,$AEEC
AEBA	JR $AE7B
AEBC	AND B
AEBD	NOP
AEBE	NOP
AEBF	NOP
AEC0	NOP
AEC1	DEFB $FD
AEC2	NOP
AEC3	LD B,(HL)
AEC4	NOP
AEC5	NOP
AEC6	NOP
AEC7	NOP
AEC8	NOP
AEC9	NOP
AECA	NOP
AECB	NOP
AECC	NOP
AECD	NOP
AECE	NOP
AECF	NOP
AED0	NOP
AED1	NOP
AED2	NOP
AED3	NOP
AED4	AND D
AED5	NOP
AED6	NOP
AED7	NOP
AED8	NOP
AED9	NOP
AEDA	NOP
AEDB	LD B,D
AEDC	NOP
AEDD	NOP
AEDE	NOP
AEDF	NOP
AEE0	NOP
AEE1	NOP
AEE2	NOP
AEE3	NOP
AEE4	NOP
AEE5	NOP
AEE6	NOP
AEE7	NOP
AEE8	NOP
AEE9	NOP
AEEA	NOP
AEEB	NOP
AEEC	AND H
AEED	NOP
AEEE	NOP
AEEF	NOP
AEF0	NOP
AEF1	INC BC
AEF2	NOP
AEF3	LD B,(HL)
AEF4	NOP
AEF5	NOP
AEF6	NOP
AEF7	NOP
AEF8	NOP
AEF9	NOP
AEFA	NOP
AEFB	NOP
AEFC	NOP
AEFD	NOP
AEFE	NOP
AEFF	NOP
AF00	NOP
AF01	NOP
AF02	NOP
AF03	NOP
AF04	AND (HL)
AF05	NOP
AF06	NOP
AF07	NOP
AF08	NOP
AF09	NOP
AF0A	NOP
AF0B	LD B,D
AF0C	NOP
AF0D	NOP
AF0E	NOP
AF0F	NOP
AF10	NOP
AF11	NOP
AF12	NOP
AF13	NOP
AF14	NOP
AF15	NOP
AF16	NOP
AF17	NOP
AF18	NOP
AF19	NOP
AF1A	NOP
AF1B	NOP
AF1C	CALL $B2A2
AF1F	JP C,$AFAE
AF22	CALL $AD36
AF25	JR NC,$AF35
AF27	CALL $AD17
AF2A	LD HL,$587B
AF2D	CALL $AD00
AF30	LD HL,$587D
AF33	JR $AF41
AF35	CALL $AD17
AF38	LD HL,$587D
AF3B	CALL $AD00
AF3E	LD HL,$587B
AF41	LD A,$42
AF43	CALL $AD00
AF46	LD A,($5E42)
AF49	AND $01
AF4B	JR NZ,$AF61
AF4D	LD A,(IX+$07)
AF50	CP $46
AF52	JR Z,$AF61
AF54	LD A,($5E40)
AF57	AND $07
AF59	JR NZ,$AF5C
AF5B	INC A
AF5C	OR $40
AF5E	LD (IX+$07),A
AF61	BIT 0,(IX+$10)
AF65	JR Z,$AF7D
AF67	DEC (IX+$16)
AF6A	JR Z,$AFB1
AF6C	CALL $B8B4
AF6F	LD BC,$0100
AF72	CALL $899C
AF75	LD (IX+$07),$42
AF79	LD (IX+$10),$00
AF7D	LD L,(IX+$02)
AF80	LD H,(IX+$03)
AF83	LD C,(IX+$05)
AF86	LD B,$00
AF88	LD A,C
AF89	AND A
AF8A	JP P,$AF8E
AF8D	DEC B
AF8E	ADD HL,BC
AF8F	LD A,H
AF90	AND $1F
AF92	LD H,A
AF93	LD (IX+$02),L
AF96	LD (IX+$03),H
AF99	CALL $B0D1
AF9C	JR C,$AFE9
AF9E	LD A,H
AF9F	CP $02
AFA1	JR C,$AFDD
AFA3	CP $10
AFA5	JR C,$AFD6
AFA7	CP $20
AFA9	JR C,$AFC5
AFAB	JP $ABB4
AFAE	CALL $B2D7
AFB1	LD A,$01
AFB3	LD ($6195),A
AFB6	LD BC,$0500
AFB9	CALL $899C
AFBC	LD DE,$BAA8
AFBF	CALL $B9BC
AFC2	JP $A76B
AFC5	LD A,(IX+$04)
AFC8	CP $50
AFCA	JR Z,$AFAB
AFCC	JR NC,$AFD0
AFCE	INC A
AFCF	INC A
AFD0	DEC A
AFD1	LD (IX+$04),A
AFD4	JR $AFAB
AFD6	LD A,(IX+$04)
AFD9	CP $80
AFDB	JR $AFCA
AFDD	LD A,(IX+$04)
AFE0	CP $A7
AFE2	JR Z,$AFAB
AFE4	INC A
AFE5	CP $A7
AFE7	JR $AFCA
AFE9	LD A,$01
AFEB	LD ($5E6C),A
AFEE	LD A,$C0
AFF0	LD ($60D8),A
AFF3	LD ($60A8),A
AFF6	LD ($60C0),A
AFF9	LD A,($60F0)
AFFC	AND A
AFFD	JR Z,$B004
AFFF	LD A,$5C
B001	LD ($60F0),A
B004	LD A,($6198)
B007	AND A
B008	JR Z,$B00F
B00A	LD A,$C0
B00C	LD ($6198),A
B00F	LD HL,$61B0
B012	LD DE,$0018
B015	LD B,$06
B017	LD A,(HL)
B018	AND A
B019	JR Z,$B031
B01B	AND $FE
B01D	CP $5A
B01F	JR Z,$B037
B021	CP $B6
B023	JR Z,$B037
B025	AND $FC
B027	CP $64
B029	JR Z,$B031
B02B	CP $C8
B02D	JR Z,$B037
B02F	LD (HL),$5C
B031	ADD HL,DE
B032	DJNZ $B017
B034	JP $A76B
B037	LD (HL),$64
B039	JR $B031
This entry point is used by the routine at 9EDC.
B03B	LD A,($6078)
B03E	SUB $12
B040	CP $08
B042	LD BC,$E004
B045	JR C,$B056
B047	LD A,B
B048	LD ($6090),A
B04B	LD A,C
B04C	LD ($6098),A
B04F	LD DE,$6092
B052	CALL $B4C2
B055	RET
B056	LD A,B
B057	LD ($6078),A
B05A	LD A,C
B05B	LD ($6080),A
B05E	LD DE,$607A
B061	CALL $B4C2
B064	RET
B065	LD A,($6108)
B068	CP $A4
B06A	JR NZ,$B0C9
B06C	LD A,(IX+$00)
B06F	XOR $01
B071	LD (IX+$00),A
B074	LD A,(IX+$07)
B077	XOR $04
B079	LD (IX+$07),A
B07C	LD A,($610C)
B07F	LD (IX+$04),A
B082	LD HL,($610A)
B085	LD BC,$0018
B088	AND A
B089	SBC HL,BC
B08B	LD A,H
B08C	AND $1F
B08E	LD H,A
B08F	LD (IX+$02),L
B092	LD (IX+$03),H
B095	JP $ABB4
B098	LD A,($6108)
B09B	CP $A0
B09D	JR NZ,$B0C9
B09F	LD A,(IX+$00)
B0A2	XOR $01
B0A4	LD (IX+$00),A
B0A7	LD A,(IX+$07)
B0AA	XOR $04
B0AC	LD (IX+$07),A
B0AF	LD A,($610C)
B0B2	LD (IX+$04),A
B0B5	LD HL,($610A)
B0B8	LD BC,$0014
B0BB	ADD HL,BC
B0BC	LD A,H
B0BD	AND $1F
B0BF	LD H,A
B0C0	LD (IX+$02),L
B0C3	LD (IX+$03),H
B0C6	JP $ABB4
B0C9	CALL $8640
B0CC	LD (IX+$00),$00
B0D0	RET
B0D1	LD A,($6078)
B0D4	SUB $12
B0D6	CP $08
B0D8	JR C,$B112
B0DA	LD A,($6090)
B0DD	SUB $1A
B0DF	CP $10
B0E1	JR NC,$B11B
B0E3	LD HL,($6092)
B0E6	LD A,($6094)
B0E9	LD C,A
B0EA	ADD HL,HL
B0EB	ADD HL,HL
B0EC	ADD HL,HL
B0ED	LD E,(IX+$02)
B0F0	LD D,(IX+$03)
B0F3	EX DE,HL
B0F4	ADD HL,HL
B0F5	ADD HL,HL
B0F6	ADD HL,HL
B0F7	AND A
B0F8	SBC HL,DE
B0FA	LD A,H
B0FB	AND A
B0FC	JP P,$B102
B0FF	CALL $8947
B102	LD DE,$00C0
B105	AND A
B106	SBC HL,DE
B108	RET NC
B109	LD A,(IX+$04)
B10C	SUB C
B10D	NEG
B10F	CP $20
B111	RET
B112	LD HL,($607A)
B115	LD A,($607C)
B118	LD C,A
B119	JR $B0EA
B11B	AND A
B11C	RET
B11D	LD A,$5C
B11F	LD ($6108),A
B122	LD ($6138),A
B125	JP $AFE9
B128	CALL $B0D1
B12B	JP C,$B11D
B12E	CALL $B2A2
B131	CALL C,$B2D7
B134	CALL $A53A
B137	LD A,(IX+$00)
B13A	INC A
B13B	AND $07
B13D	ADD A,$90
B13F	LD (IX+$00),A
B142	CALL $8701
B145	LD L,(IX+$01)
B148	LD H,(IX+$04)
B14B	CALL AttributeAddress
B14E	LD D,(IX+$07)
B151	LD C,$02
B153	LD A,($5E57)
B156	AND A
B157	RET Z
B158	LD B,A
B159	CALL $8750
B15C	LD A,($5E42)
B15F	RRCA
B160	RRCA
B161	RRCA
B162	AND $07
B164	JR NZ,$B167
B166	INC A
B167	OR $40
B169	LD D,A
B16A	LD C,$01
B16C	JP $8750
This entry point is used by the routine at B731.
B16F	LD A,($6108)
B172	AND A
B173	JR Z,$B17A
B175	LD A,$C0
B177	LD ($6108),A
B17A	LD A,($6138)
B17D	AND A
B17E	JR Z,$B185
B180	LD A,$C0
B182	LD ($6138),A
B185	LD A,($6120)
B188	SUB $C8
B18A	CP $04
B18C	JR NC,$B193
B18E	LD A,$64
B190	LD ($6120),A
B193	LD A,($6150)
B196	SUB $C8
B198	CP $04
B19A	JR NC,$B1A1
B19C	LD A,$64
B19E	LD ($6150),A
B1A1	JP $B960
B1A4	CALL $ABB4
B1A7	LD A,($5E42)
B1AA	AND $01
B1AC	RET NZ
B1AD	INC (IX+$00)
B1B0	LD A,(IX+$00)
B1B3	CP $C8
B1B5	RET NZ
B1B6	CALL $95B6
B1B9	LD (IX+$00),$63
B1BD	PUSH IX
B1BF	POP HL
B1C0	LD BC,$6078
B1C3	AND A
B1C4	SBC HL,BC
B1C6	RET NZ
B1C7	CALL $8640
B1CA	LD (IX+$00),$81
B1CE	LD (IX+$05),$40
B1D2	RET
B1D3	LD HL,$6108
B1D6	LD B,$04
B1D8	LD DE,$0018
B1DB	XOR A
B1DC	OR (HL)
B1DD	ADD HL,DE
B1DE	DJNZ $B1DC
B1E0	OR A
B1E1	RET
This entry point is used by the routine at 9EDC.
B1E2	LD HL,$6108
B1E5	LD B,$06
B1E7	JR $B1D8
B1E9	ADD A,(IX+$10)
B1EC	LD C,A
B1ED	AND $0E
B1EF	LD (IX+$10),A
B1F2	LD A,C
B1F3	RRCA
B1F4	RRCA
B1F5	RRCA
B1F6	RRCA
B1F7	AND $0F
B1F9	LD B,$00
B1FB	JR $B246
B1FD	ADD A,(IX+$11)
B200	LD C,A
B201	AND $0F
B203	LD (IX+$11),A
B206	LD A,C
B207	RRCA
B208	RRCA
B209	RRCA
B20A	RRCA
B20B	AND $0F
B20D	JR $B272
B20F	LD BC,$0025
B212	CALL $899C
B215	JP $A73C
B218	BIT 0,(IX+$10)
B21C	JP NZ,$B20F
B21F	DEC (IX+$08)
B222	JP Z,$A73C
B225	LD A,(IX+$05)
B228	AND A
B229	JP P,$B1E9
B22C	ADD A,(IX+$10)
B22F	LD C,A
B230	AND $0F
B232	NEG
B234	AND $FE
B236	LD (IX+$10),A
B239	LD A,C
B23A	NEG
B23C	RRCA
B23D	RRCA
B23E	RRCA
B23F	RRCA
B240	AND $0F
B242	NEG
B244	LD B,$FF
B246	ADD A,(IX+$02)
B249	LD (IX+$02),A
B24C	LD A,(IX+$03)
B24F	ADC A,B
B250	AND $1F
B252	LD (IX+$03),A
B255	LD A,(IX+$06)
B258	AND A
B259	JP P,$B1FD
B25C	ADD A,(IX+$11)
B25F	LD C,A
B260	AND $0F
B262	NEG
B264	LD (IX+$11),A
B267	LD A,C
B268	NEG
B26A	RRCA
B26B	RRCA
B26C	RRCA
B26D	RRCA
B26E	AND $0F
B270	NEG
B272	ADD A,(IX+$04)
B275	CP $AF
B277	JP NC,$A73C
B27A	CP $30
B27C	JP C,$A73C
B27F	LD (IX+$04),A
B282	LD A,(IX+$00)
B285	AND $FC
B287	LD C,A
B288	LD A,(IX+$00)
B28B	INC A
B28C	AND $03
B28E	OR C
B28F	LD (IX+$00),A
B292	CALL $8B73
B295	CALL $8733
B298	CALL $B2A2
B29B	RET NC
B29C	CALL $B2D7
B29F	JP $A73C
This entry point is used by the routine at 945C.
B2A2	LD E,$0E
B2A4	LD A,($5E67)
B2A7	AND A
B2A8	RET NZ
B2A9	LD A,($6078)
B2AC	CP $11
B2AE	RET NC
B2AF	LD L,(IX+$02)
B2B2	LD H,(IX+$03)
B2B5	LD BC,$0008
B2B8	ADD HL,BC
B2B9	LD BC,($607A)
B2BD	AND A
B2BE	SBC HL,BC
B2C0	LD A,H
B2C1	AND $1F
B2C3	RET NZ
B2C4	LD A,L
B2C5	CP $10
B2C7	RET NC
B2C8	LD A,($607C)
B2CB	SUB $04
B2CD	SUB (IX+$04)
B2D0	JP P,$B2D5
B2D3	NEG
B2D5	CP E
B2D6	RET
This entry point is used by the routine at 945C.
B2D7	LD DE,$B9E7
B2DA	CALL $B9BC
B2DD	LD HL,$6078
B2E0	LD (HL),$DC
B2E2	LD HL,$607D
B2E5	LD A,(IX+$01)
B2E8	CP $78
B2EA	JR C,$B339
B2EC	LD (HL),$C0
B2EE	INC HL
B2EF	LD (HL),$01
B2F1	LD HL,$608A
B2F4	LD (HL),$06
B2F6	INC HL
B2F7	LD (HL),$06
This entry point is used by the routine at LevelNew.
B2F9	LD A,($60B0)
B2FC	BIT 3,A
B2FE	JR NZ,$B305
B300	OR $80
B302	LD ($60B0),A
B305	LD A,($60C8)
B308	BIT 3,A
B30A	JR NZ,$B311
B30C	OR $80
B30E	LD ($60C8),A
B311	LD A,($60E0)
B314	AND $FC
B316	LD ($60E0),A
B319	LD A,($61A0)
B31C	BIT 2,A
B31E	JR NZ,$B32B
B320	LD A,($619C)
B323	CP $AF
B325	LD A,$00
B327	JR Z,$B32B
B329	OR $02
B32B	LD ($61A0),A
B32E	LD A,($60F0)
B331	AND A
B332	RET Z
B333	LD A,$2F
B335	LD ($60F0),A
B338	RET
B339	LD (HL),$40
B33B	JR $B2EE
B33D	DEC (IX+$12)
B340	JR NZ,$B357
B342	LD A,(IX+$13)
B345	LD (IX+$12),A
B348	INC (IX+$06)
B34B	LD A,(IX+$05)
B34E	AND A
B34F	JR Z,$B357
B351	JP P,$B356
B354	INC A
B355	INC A
B356	DEC A
B357	CALL $907B
B35A	LD A,(IX+$04)
B35D	ADD A,(IX+$06)
B360	CP $AF
B362	JR NC,$B37B
B364	LD (IX+$04),A
B367	LD C,A
B368	LD D,$03
B36A	CALL SquareWave_Loop
B36D	LD A,($5E42)
B370	RRCA
B371	AND $03
B373	ADD A,$DC
B375	LD (IX+$00),A
B378	JP $ABB4
B37B	LD (IX+$04),$AF
B37F	CALL $A75D
B382	JP $ABB4
This entry point is used by the routines at LevelNew and B460.
B385	LD HL,$61B0
B388	LD B,$90
B38A	LD (HL),$00
B38C	INC HL
B38D	DJNZ $B38A
B38F	RET
B390	LD A,($5E6C)
B393	AND A
B394	RET NZ
B395	DEC (IX+$05)
B398	RET NZ
B399	JP $A8B5
B39C	DEC (IX+$05)
B39F	RET NZ
B3A0	JP $A8B5