Sherlock: Routine at A9B7

A9B7: Routine at A9B7

Used by the routines at A2A2, A37D, A5CD, A63A, A643, A736, A880, B77F, D102, D526 and DC6C.
A9B7	PUSH AF
A9B8	LD A,($A027)
A9BB	AND A
A9BC	JR NZ,$AA10
A9BE	POP AF
A9BF	PUSH AF
A9C0	PUSH HL
A9C1	LD HL,($A9B5)
A9C4	CP $20
A9C6	JR Z,$A9DF
A9C8	CP $0D
A9CA	JR Z,$A9DF
A9CC	CP $22
A9CE	JR Z,$A9DF
A9D0	CP $08
A9D2	JR NZ,$A9D7
A9D4	DEC HL
A9D5	JR $A9D9
A9D7	LD (HL),A
A9D8	INC HL
A9D9	LD ($A9B5),HL
A9DC	POP HL
A9DD	POP AF
A9DE	RET
A9DF	PUSH DE
A9E0	LD DE,$5C0B
A9E3	AND A
A9E4	SBC HL,DE
A9E6	JR Z,$AA0B
A9E8	LD A,($C1F5)
A9EB	CP L
A9EC	PUSH AF
A9ED	JR NC,$A9F4
A9EF	LD A,$0D
A9F1	CALL $AA14
A9F4	PUSH BC
A9F5	LD B,L
A9F6	LD HL,$5C0B
A9F9	LD ($A9B5),HL
A9FC	LD A,(HL)
A9FD	CALL $AA14
AA00	INC HL
AA01	DJNZ $A9FC
AA03	POP BC
AA04	POP AF
AA05	JR NZ,$AA0B
AA07	XOR A
AA08	LD ($A025),A
AA0B	POP DE
AA0C	POP HL
AA0D	POP AF
AA0E	JR $AA14
AA10	POP AF
AA11	JP $C1E1
AA14	CP $41
AA16	JR C,$AA1E
AA18	CP $5B
AA1A	JR NC,$AA1E
AA1C	OR $20
AA1E	PUSH AF
AA1F	LD A,($A025)
AA22	AND A
AA23	JR NZ,$AA2A
AA25	POP AF
AA26	CP $20
AA28	RET Z
AA29	PUSH AF
AA2A	LD A,$01
AA2C	LD ($A025),A
AA2F	POP AF
AA30	PUSH AF
AA31	CP $0D
AA33	JR NZ,$AA3B
AA35	XOR A
AA36	LD ($A025),A
AA39	JR $AA6D
AA3B	CP $22
AA3D	JR NZ,$AA46
AA3F	LD A,$20
AA41	CALL $C1E1
AA44	JR $AA4A
AA46	CP $2E
AA48	JR NZ,$AA51
AA4A	LD A,$01
AA4C	LD ($A026),A
AA4F	JR $AA6D
AA51	CP $61
AA53	JR C,$AA6D
AA55	CP $7B
AA57	JR NC,$AA6D
AA59	LD A,($A851)
AA5C	AND A
AA5D	JR NZ,$AA65
AA5F	LD A,($A026)
AA62	AND A
AA63	JR Z,$AA6D
AA65	XOR A
AA66	LD ($A026),A
AA69	POP AF
AA6A	AND $5F
AA6C	PUSH AF
AA6D	POP AF
AA6E	JP $C1E1
AA71	SBC A,C
AA72	SBC A,D
AA73	RES 3,D
AA75	AND E
AA76	POP HL
AA77	LD ($03E0),HL
AA7A	RET PO
AA7B	SBC A,L
AA7C	SBC A,$AF
AA7E	SBC A,$32
AA80	CALL PO,$E40A
AA83	JR Z,$AA68
AA85	RST $00
AA86	JP PO,$E3EA
AA89	ADC A,L
AA8A	RET PO
AA8B	CALL P,$E19A
AA8E	SBC A,D
AA8F	AND B
AA90	RET PO
AA91	JP P,$04E0
AA94	POP HL
AA95	RET PO
AA96	RET PO
AA97	LD A,(HL)
AA98	RST $18
AA99	AND A
AA9A	RST $18
AA9B	LD A,E
AA9C	POP HL
AA9D	RET P
AA9E	RST $18
AA9F	JP PE,$00DF
AAA2	NOP
AAA3	NOP
AAA4	NOP
AAA5	NOP
AAA6	NOP
AAA7	NOP
AAA8	NOP
AAA9	NOP
AAAA	NOP
AAAB	NOP
AAAC	NOP
AAAD	NOP
AAAE	NOP
AAAF	NOP
AAB0	NOP
AAB1	NOP
This entry point is used by the routine at B77F.
AAB2	XOR A
AAB3	LD ($A01A),A
AAB6	LD ($A012),A
AAB9	LD E,$FF
AABB	LD D,$C0
AABD	LD A,E
AABE	OR $C7
AAC0	LD E,A
AAC1	CALL $AE6A
AAC4	LD A,($A01B)
AAC7	AND A
AAC8	JR Z,$AAD1
AACA	LD A,$01
AACC	LD ($A024),A
AACF	RES 3,E
This entry point is used by the routine at B0FD.
AAD1	PUSH DE
AAD2	LD A,($A024)
AAD5	AND A
AAD6	JR NZ,$AB11
AAD8	LD ($AAA7),A
AADB	LD HL,($A02B)
AADE	PUSH HL
AADF	CALL $AC24
AAE2	JR NZ,$AB08
AAE4	LD A,($AAA7)
AAE7	AND A
AAE8	JR NZ,$AB08
AAEA	LD A,$02
AAEC	LD ($A024),A
AAEF	POP HL
AAF0	PUSH IY
AAF2	POP HL
AAF3	LD DE,$0018
AAF6	ADD HL,DE
AAF7	LD DE,$AAAC
AAFA	EX DE,HL
AAFB	LD BC,$0006
AAFE	LDIR
AB00	LD HL,($A029)
AB03	LD ($A02B),HL
AB06	JR $AB11
AB08	LD A,$01
AB0A	LD ($A024),A
AB0D	POP HL
AB0E	LD ($A02B),HL
AB11	POP DE
AB12	XOR A
AB13	LD ($AAA7),A
AB16	CALL $AB91
AB19	JR C,$AB8E
AB1B	JR Z,$AB47
AB1D	CP $90
AB1F	JP Z,$AFB3
AB22	CP $A0
AB24	JP Z,$ACCC
AB27	BIT 3,E
AB29	JR Z,$AB4C
AB2B	LD A,($A012)
AB2E	AND A
AB2F	JR NZ,$AB8E
AB31	LD A,($A01B)
AB34	AND A
AB35	JR NZ,$AB4C
AB37	LD A,($A02D)
AB3A	CP $C0
AB3C	JR NZ,$AB8E
AB3E	LD A,$B0
AB40	CP D
AB41	JR NZ,$AB8E
AB43	LD A,$02
AB45	AND A
AB46	RET
AB47	BIT 3,E
AB49	JP Z,$ACFB
AB4C	LD HL,($A029)
AB4F	LD ($A02B),HL
AB52	CALL $AC24
AB55	JR C,$AB8E
AB57	JR NZ,$AB60
AB59	CALL $ACA6
AB5C	JR Z,$AB8E
AB5E	JR $AB4C
AB60	CP $B0
AB62	JP Z,$AD57
AB65	CP $A0
AB67	JP Z,$ACCC
AB6A	CP $90
AB6C	JP Z,$AFB3
AB6F	LD HL,($A029)
AB72	LD ($A02B),HL
AB75	LD A,($A024)
AB78	CP $02
AB7A	JR NZ,$AB8E
AB7C	CALL $ABF3
AB7F	JR C,$AB8E
AB81	JR NZ,$AB8E
AB83	LD HL,($A029)
AB86	LD ($A02B),HL
AB89	LD D,$A0
AB8B	JP $ACCC
AB8E	JP $AF67
AB91	LD A,($A024)
AB94	CP $02
AB96	JR Z,$ABF3
AB98	LD A,E
AB99	OR $07
AB9B	LD E,A
AB9C	CALL $AE7F
AB9F	CP $E0
ABA1	JR Z,$AB9C
ABA3	CP $30
ABA5	JR NZ,$ABB7
ABA7	BIT 1,E
ABA9	JR Z,$ABB5
ABAB	RES 1,E
ABAD	LD (IY+$00),C
ABB0	LD (IY+$01),B
ABB3	JR $AB9C
ABB5	SCF
ABB6	RET
ABB7	CP $00
ABB9	JR NZ,$ABC9
ABBB	BIT 2,E
ABBD	JR Z,$ABB5
ABBF	RES 2,E
ABC1	LD (IY+$02),C
ABC4	LD (IY+$03),B
ABC7	JR $AB9C
ABC9	CP $40
ABCB	JR NZ,$ABD1
ABCD	RES 0,E
ABCF	JR $ABA7
ABD1	CP $20
ABD3	JR NZ,$ABEF
ABD5	BIT 1,E
ABD7	JR NZ,$ABA7
ABD9	BIT 0,E
ABDB	JR NZ,$ABBB
ABDD	RES 2,E
ABDF	SET 0,E
ABE1	LD A,(IY+$00)
ABE4	LD (IY+$02),A
ABE7	LD A,(IY+$01)
ABEA	LD (IY+$03),A
ABED	JR $ABAB
ABEF	OR A
ABF0	BIT 1,E
ABF2	RET
ABF3	CALL $AE7F
ABF6	CP $80
ABF8	CALL Z,$AE7F
ABFB	LD A,B
ABFC	AND $0F
ABFE	LD B,A
ABFF	LD HL,$994D
AC02	LD A,(HL)
AC03	INC HL
AC04	OR (HL)
AC05	JR Z,$AC14
AC07	LD A,B
AC08	CP (HL)
AC09	JR NZ,$AC11
AC0B	DEC HL
AC0C	LD A,C
AC0D	CP (HL)
AC0E	JR Z,$AC17
AC10	INC HL
AC11	INC HL
AC12	JR $AC02
AC14	OR $01
AC16	RET
AC17	LD (IY+$00),C
AC1A	LD (IY+$01),B
AC1D	RES 1,E
AC1F	CALL $AE7F
AC22	XOR A
AC23	RET
AC24	LD HL,$AAA8
AC27	LD B,$0A
AC29	CALL $A2AB
AC2C	LD A,E
AC2D	OR $34
AC2F	LD E,A
AC30	CALL $AE7F
AC33	CP $80
AC35	JR NZ,$AC41
AC37	BIT 4,E
AC39	JR Z,$AC3F
AC3B	RES 4,E
AC3D	JR $AC30
AC3F	SCF
AC40	RET
AC41	CP $10
AC43	JR Z,$AC49
AC45	CP $70
AC47	JR NZ,$AC65
AC49	BIT 4,E
AC4B	JR Z,$AC3F
AC4D	BIT 2,E
AC4F	JR Z,$AC3F
AC51	LD A,($AAA7)
AC54	CP $03
AC56	JR NC,$AC3F
AC58	INC A
AC59	LD ($AAA7),A
AC5C	CALL $AC8F
AC5F	JR NZ,$AC3F
AC61	RES 5,E
AC63	JR $AC30
AC65	CP $60
AC67	JR NZ,$AC78
AC69	BIT 2,E
AC6B	JR Z,$AC3F
AC6D	RES 4,E
AC6F	RES 5,E
AC71	CALL $AC94
AC74	JR NZ,$AC3F
AC76	JR $AC30
AC78	CP $F0
AC7A	JR Z,$AC80
AC7C	CP $50
AC7E	JR NZ,$AC8B
AC80	LD A,E
AC81	AND $CB
AC83	LD E,A
AC84	LD ($AAAC),BC
AC88	CALL $AE7F
AC8B	AND A
AC8C	BIT 5,E
AC8E	RET
AC8F	LD HL,$AAA8
AC92	JR $AC97
AC94	LD HL,$AAAE
AC97	LD A,(HL)
AC98	INC HL
AC99	OR (HL)
AC9A	JR Z,$ACA1
AC9C	INC HL
AC9D	LD A,(HL)
AC9E	INC HL
AC9F	OR (HL)
ACA0	RET NZ
ACA1	LD (HL),B
ACA2	DEC HL
ACA3	LD (HL),C
ACA4	XOR A
ACA5	RET
ACA6	BIT 6,E
ACA8	JR Z,$ACB2
ACAA	RES 6,E
ACAC	PUSH DE
ACAD	LD DE,$0004
ACB0	JR $ACBB
ACB2	BIT 7,E
ACB4	RET Z
ACB5	RES 7,E
ACB7	PUSH DE
ACB8	LD DE,$000E
ACBB	PUSH IY
ACBD	POP HL
ACBE	ADD HL,DE
ACBF	LD DE,$AAA8
ACC2	EX DE,HL
ACC3	LD BC,$000A
ACC6	LDIR
ACC8	POP DE
ACC9	OR $01
ACCB	RET
ACCC	RES 3,E
ACCE	PUSH DE
ACCF	CALL $AE7F
ACD2	CP $A0
ACD4	JR Z,$ACCF
ACD6	LD HL,($A029)
ACD9	LD ($AAA1),HL
ACDC	LD ($A02B),HL
ACDF	POP DE
ACE0	LD A,E
ACE1	LD ($AAA3),A
ACE4	LD ($AAA4),IY
ACE8	LD A,($A012)
ACEB	LD ($AAA6),A
ACEE	LD A,($A01A)
ACF1	CP $02
ACF3	JR NZ,$AD57
ACF5	SET 6,(IY+$01)
ACF9	JR $AD57
ACFB	LD A,($A024)
ACFE	CP $02
AD00	JR NZ,$AD23
AD02	BIT 6,E
AD04	JP NZ,$AB4C
AD07	SET 6,E
AD09	SET 3,E
AD0B	PUSH IY
AD0D	EXX
AD0E	POP HL
AD0F	LD DE,$0008
AD12	ADD HL,DE
AD13	PUSH HL
AD14	LD DE,$0010
AD17	ADD HL,DE
AD18	POP DE
AD19	EX DE,HL
AD1A	LD BC,$0006
AD1D	LDIR
AD1F	EXX
AD20	JP $AB4C
AD23	LD A,($A01B)
AD26	AND A
AD27	JR Z,$AD2E
AD29	SET 3,E
AD2B	JP $AB4C
AD2E	LD HL,($AAA1)
AD31	LD ($A02B),HL
AD34	LD D,$B0
AD36	LD A,($AAA3)
AD39	LD E,A
AD3A	LD A,($AAA6)
AD3D	LD ($A012),A
AD40	LD IY,($AAA4)
AD44	LD L,(IY-$02)
AD47	LD H,(IY-$01)
AD4A	PUSH HL
AD4B	POP IX
AD4D	CALL $A1AF
AD50	XOR A
AD51	LD (IY-$02),A
AD54	LD (IY-$01),A
AD57	LD A,($A01A)
AD5A	DEC A
AD5B	LD HL,$A012
AD5E	DEC A
AD5F	LD A,D
AD60	JR NZ,$AD66
AD62	CP $A0
AD64	JR Z,$AD67
AD66	INC (HL)
AD67	CP $A0
AD69	JP Z,$AABD
AD6C	LD A,($A01B)
AD6F	AND A
AD70	JR Z,$ADD4
AD72	LD IY,($9FF0)
AD76	CALL $AEA9
AD79	LD A,(IY+$01)
AD7C	AND $7F
AD7E	OR (IY+$00)
AD81	JR NZ,$ADB8
AD83	LD A,($A01B)
AD86	LD E,A
AD87	LD D,$00
AD89	LD HL,($9FF0)
AD8C	LD A,(IY+$01)
AD8F	AND $80
AD91	INC HL
AD92	OR (HL)
AD93	LD (HL),A
AD94	DEC HL
AD95	ADD HL,DE
AD96	LD DE,$0008
AD99	ADD IY,DE
AD9B	PUSH IY
AD9D	POP DE
AD9E	CALL $AE59
ADA1	CALL $AE59
ADA4	JR Z,$ADAF
ADA6	PUSH DE
ADA7	PUSH HL
ADA8	DEC DE
ADA9	DEC DE
ADAA	CALL $AE59
ADAD	POP HL
ADAE	POP DE
ADAF	CALL $AE59
ADB2	LD IY,($9FF0)
ADB6	JR $ADBC
ADB8	LD IY,$9FF2
ADBC	LD L,(IY-$02)
ADBF	LD H,(IY-$01)
ADC2	PUSH HL
ADC3	POP IX
ADC5	LD L,(IX-$02)
ADC8	LD H,(IX-$01)
ADCB	LD (IY-$02),L
ADCE	LD (IY-$01),H
ADD1	CALL $A1C7
ADD4	LD IY,$9FF2
ADD8	LD A,($A012)
ADDB	LD B,A
ADDC	PUSH BC
ADDD	CALL $AEB6
ADE0	LD A,B
ADE1	AND A
ADE2	JR Z,$AE1E
ADE4	CALL $AEB6
ADE7	LD A,($A024)
ADEA	CP $02
ADEC	JR NZ,$AE11
ADEE	PUSH IY
ADF0	POP HL
ADF1	LD DE,$0018
ADF4	ADD HL,DE
ADF5	PUSH HL
ADF6	LD D,$06
ADF8	XOR A
ADF9	OR (HL)
ADFA	INC HL
ADFB	DEC D
ADFC	JR NZ,$ADF9
ADFE	POP HL
ADFF	AND A
AE00	JR NZ,$AE11
AE02	EX DE,HL
AE03	PUSH IX
AE05	POP HL
AE06	PUSH BC
AE07	LD BC,$0018
AE0A	ADD HL,BC
AE0B	LD BC,$0006
AE0E	LDIR
AE10	POP BC
AE11	LD A,(IY+$01)
AE14	AND $7F
AE16	OR (IY+$00)
AE19	CALL Z,$AEF1
AE1C	JR $ADE0
AE1E	POP BC
AE1F	CALL $AEEA
AE22	CALL $AEC5
AE25	LD A,B
AE26	AND A
AE27	JP Z,$AE57
AE2A	CALL $AEC5
AE2D	LD A,(IY+$12)
AE30	OR (IY+$13)
AE33	JR NZ,$AE25
AE35	LD A,(IY+$00)
AE38	CP (IX+$00)
AE3B	JR NZ,$AE25
AE3D	LD A,(IY+$01)
AE40	CP (IX+$01)
AE43	JR NZ,$AE25
AE45	LD A,(IX+$0E)
AE48	OR (IX+$0F)
AE4B	JR Z,$AE25
AE4D	EXX
AE4E	LD DE,$000E
AE51	CALL $AF27
AE54	JP $AE25
AE57	XOR A
AE58	RET
AE59	LD A,(HL)
AE5A	INC HL
AE5B	OR (HL)
AE5C	DEC HL
AE5D	JR NZ,$AE61
AE5F	LD A,(DE)
AE60	LD (HL),A
AE61	INC HL
AE62	INC DE
AE63	JR NZ,$AE67
AE65	LD A,(DE)
AE66	LD (HL),A
AE67	INC HL
AE68	INC DE
AE69	RET
This entry point is used by the routine at B0FD.
AE6A	CALL $AEEA
AE6D	LD A,$1E
AE6F	CALL $A11C
AE72	PUSH IX
AE74	POP HL
AE75	LD (IY-$02),L
AE78	LD (IY-$01),H
AE7B	PUSH HL
AE7C	POP IY
AE7E	RET
This entry point is used by the routine at B77F.
AE7F	LD HL,($A02B)
AE82	LD ($A029),HL
AE85	LD A,D
AE86	LD ($A02D),A
AE89	LD A,(HL)
AE8A	LD D,A
AE8B	LD BC,$0000
AE8E	INC HL
AE8F	CP $E0
AE91	JR Z,$AE9F
AE93	CP $F0
AE95	JR Z,$AE9F
AE97	CP $90
AE99	JR Z,$AE9F
AE9B	CP $80
AE9D	JR NC,$AEA4
AE9F	LD A,(HL)
AEA0	LD B,A
AEA1	INC HL
AEA2	LD C,(HL)
AEA3	INC HL
AEA4	LD ($A02B),HL
AEA7	LD A,D
AEA8	RET
This entry point is used by the routines at B0FD, B4A3 and B77F.
AEA9	PUSH HL
AEAA	LD L,(IY-$02)
AEAD	LD H,(IY-$01)
AEB0	LD A,H
AEB1	OR L
AEB2	EX (SP),HL
AEB3	POP IY
AEB5	RET
AEB6	DEC B
AEB7	PUSH IY
AEB9	POP IX
AEBB	CALL $AEA9
AEBE	BIT 6,(IY+$01)
AEC2	JR NZ,$AEB7
AEC4	RET
AEC5	DEC B
This entry point is used by the routine at B0FD.
AEC6	PUSH IY
AEC8	POP IX
AECA	PUSH HL
AECB	PUSH DE
AECC	PUSH IY
AECE	POP DE
AECF	LD IY,$9FF0
AED3	CALL $A104
AED6	PUSH IY
AED8	POP HL
AED9	LD DE,$9FF2
AEDC	AND A
AEDD	SBC HL,DE
AEDF	JR Z,$AEE7
AEE1	BIT 6,(IY+$01)
AEE5	JR NZ,$AECC
AEE7	POP DE
AEE8	POP HL
AEE9	RET
AEEA	LD IY,$0000
AEEE	JP $AEC6
AEF1	EXX
AEF2	LD A,(IX+$01)
AEF5	AND $7F
AEF7	OR (IY+$01)
AEFA	LD (IY+$01),A
AEFD	LD A,(IX+$00)
AF00	LD (IY+$00),A
AF03	EXX
AF04	LD A,(IX+$04)
AF07	OR (IX+$05)
AF0A	RET Z
AF0B	LD A,$0E
AF0D	CALL $AF38
AF10	RET NZ
AF11	EXX
AF12	PUSH IY
AF14	POP HL
AF15	LD DE,$0012
AF18	ADD HL,DE
AF19	PUSH HL
AF1A	LD DE,$FFF6
AF1D	ADD HL,DE
AF1E	POP DE
AF1F	LD BC,$0006
AF22	LDIR
AF24	LD DE,$0004
AF27	CALL $AF52
AF2A	LD A,(IY+$02)
AF2D	OR (IY+$03)
AF30	LD DE,$0002
AF33	CALL Z,$AF56
AF36	EXX
AF37	RET
AF38	PUSH DE
AF39	PUSH BC
AF3A	PUSH HL
AF3B	LD B,$0A
AF3D	PUSH IY
AF3F	POP HL
AF40	LD E,A
AF41	LD D,$00
AF43	ADD HL,DE
AF44	XOR A
AF45	OR (HL)
AF46	INC HL
AF47	DJNZ $AF45
AF49	POP HL
AF4A	POP BC
AF4B	POP DE
AF4C	AND A
AF4D	RET
AF4E	LD C,$06
AF50	JR $AF58
AF52	LD C,$0A
AF54	JR $AF58
AF56	LD C,$02
AF58	PUSH IY
AF5A	POP HL
AF5B	ADD HL,DE
AF5C	PUSH HL
AF5D	PUSH IX
AF5F	POP HL
AF60	ADD HL,DE
AF61	POP DE
AF62	LD B,$00
AF64	LDIR
AF66	RET
AF67	LD A,$01
AF69	AND A
AF6A	RET
AF6B	NOP
AF6C	NOP
AF6D	LD C,C
AF6E	OR B
AF6F	LD B,B
AF70	NOP
AF71	INC SP
AF72	OR B
AF73	LD E,(HL)
AF74	LD BC,$B01C
AF77	PUSH DE
AF78	LD B,$FF
AF7A	XOR A
AF7B	CP L
AF7C	DEC B
AF7D	DEC BC
AF7E	OR B
AF7F	RLCA
AF80	DEC B
AF81	AND E
AF82	OR B
AF83	LD (HL),L
AF84	RLCA
AF85	ADD A,$B0
AF87	LD H,B
AF88	LD B,$9A
AF8A	OR B
AF8B	EX (SP),HL
AF8C	INC BC
AF8D	DEC (HL)
AF8E	OR C
AF8F	ADC A,B
AF90	INC B
AF91	LD D,C
AF92	OR C
AF93	OR $06
AF95	AND E
AF96	OR B
AF97	OR E
AF98	EX AF,AF'
AF99	LD D,C
AF9A	OR C
AF9B	SBC A,C
AF9C	EX AF,AF'
AF9D	DEFB $FD
AF9E	OR B
AF9F	EX (SP),HL
AFA0	INC BC
AFA1	CCF
AFA2	OR C
AFA3	ADC A,B
AFA4	INC B
AFA5	LD E,E
AFA6	OR C
AFA7	OR E
AFA8	EX AF,AF'
AFA9	LD E,E
AFAA	OR C
AFAB	PUSH BC
AFAC	NOP
AFAD	JP M,$AEAF
AFB0	EX AF,AF'
AFB1	JP M,$21AF
AFB4	LD L,E
AFB5	XOR A
AFB6	LD A,($A024)
AFB9	CP $02
AFBB	JR NZ,$AFC0
AFBD	LD HL,$AF9B
AFC0	PUSH DE
AFC1	LD E,$0C
AFC3	JR NZ,$AFC7
AFC5	LD E,$06
AFC7	LD A,(HL)
AFC8	INC HL
AFC9	CP C
AFCA	JR NZ,$AFD0
AFCC	LD A,(HL)
AFCD	CP B
AFCE	JR Z,$AFDA
AFD0	INC HL
AFD1	INC HL
AFD2	INC HL
AFD3	DEC E
AFD4	JR NZ,$AFC7
AFD6	POP DE
AFD7	JP $AF67
AFDA	INC HL
AFDB	LD E,(HL)
AFDC	INC HL
AFDD	LD D,(HL)
AFDE	EX DE,HL
AFDF	POP DE
AFE0	JP (HL)
This entry point is used by the routine at B0FD.
AFE1	BIT 1,E
AFE3	RET NZ
AFE4	POP HL
AFE5	JP $AF67
AFE8	BIT 1,E
AFEA	RET Z
AFEB	LD A,($A012)
AFEE	AND A
AFEF	JR NZ,$AFF6
AFF1	LD A,($A01B)
AFF4	AND A
AFF5	RET NZ
AFF6	POP HL
AFF7	JP $AF67
AFFA	LD D,$A0
AFFC	JP $ACCC
AFFF	CALL $AFE1
B002	CALL $C03B
B005	JR NZ,$B015
B007	LD A,$01
B009	JR $B012
B00B	CALL $AFE1
B00E	CALL $A296
B011	XOR A
B012	LD ($A008),A
B015	LD A,($A02D)
B018	LD D,A
B019	JP $AAC4
B01C	LD A,($A01A)
B01F	CP $01
B021	JP NZ,$AF67
B024	LD A,$02
B026	LD ($A01A),A
B029	CALL $AE6A
B02C	SET 6,(IY+$01)
B030	JP $AB52
B033	CALL $AFE8
B036	LD A,($A01A)
B039	AND A
B03A	JP NZ,$AF67
B03D	LD A,$01
B03F	LD ($A01A),A
B042	SET 7,(IY+$01)
B046	JP $AB52
B049	BIT 1,E
B04B	JR Z,$B058
B04D	LD HL,$088B
B050	LD (IY+$00),L
B053	LD (IY+$01),H
B056	RES 1,E
B058	PUSH HL
B059	PUSH DE
B05A	PUSH IY
B05C	PUSH IX
B05E	LD IY,$9FEC
B062	LD DE,$0000
B065	CALL $A104
B068	LD A,$02
B06A	CALL $A11C
B06D	LD HL,($A02B)
B070	LD (IX+$00),L
B073	LD (IX+$01),H
B076	PUSH IX
B078	POP HL
B079	LD (IY-$02),L
B07C	LD (IY-$01),H
B07F	POP IX
B081	POP IY
B083	POP DE
B084	POP HL
B085	CALL $AE7F
B088	CP $90
B08A	JR NZ,$B085
B08C	LD A,B
B08D	AND $0F
B08F	OR C
B090	JR NZ,$B085
B092	LD HL,($A029)
B095	LD (HL),$C0
B097	JP $AB52
B09A	CALL $AFE1
B09D	CALL WaitForKeypress_Loop
B0A0	JP $B015
B0A3	CALL $AFE1
B0A6	CALL $B0AC
B0A9	JP $B015
This entry point is used by the routine at 9E4A.
B0AC	LD HL,$0000
B0AF	LD ($9FDD),HL
B0B2	LD IX,$9860
B0B6	LD (IX+$06),L
B0B9	LD (IX+$07),H
B0BC	INC HL
B0BD	LD ($A01F),HL
B0C0	LD A,L
B0C1	LD ($A0DA),A
B0C4	AND A
B0C5	RET
B0C6	CALL $AFE1
B0C9	LD HL,$0001
B0CC	LD ($A01F),HL
B0CF	LD A,$02
B0D1	LD ($A0DA),A
B0D4	JP $B015