Sherlock: Routine at C989

C989: Routine at C989

Used by the routine at C4D1.
C989	PUSH IX
C98B	POP HL
C98C	PUSH HL
C98D	CALL $C8EF
C990	CALL $C996
C993	POP IX
C995	RET
This entry point is used by the routine at C929.
C996	PUSH IY
C998	PUSH BC
C999	CALL $C9BF
C99C	POP BC
C99D	POP IY
C99F	JR C,$C9A7
C9A1	JP Z,$CB43
C9A4	OR $01
C9A6	RET
C9A7	PUSH HL
C9A8	PUSH BC
C9A9	LD HL,($9FD9)
C9AC	LD B,$01
C9AE	CALL $CF80
C9B1	POP BC
C9B2	POP HL
C9B3	LD IX,($9FDB)
C9B7	LD (IX+$01),L
C9BA	LD (IX+$02),H
C9BD	SCF
C9BE	RET
C9BF	PUSH HL
C9C0	POP IY
C9C2	CALL $D078
C9C5	JR NC,$C9D3
C9C7	LD A,(IY+$00)
C9CA	AND $20
C9CC	JR Z,$C9D3
C9CE	LD HL,$CBBB
C9D1	XOR A
C9D2	RET
C9D3	CALL $C628
C9D6	JR Z,$C9D1
C9D8	CALL $C6BE
C9DB	JR Z,$C9D1
C9DD	BIT 6,(IY+$00)
C9E1	JR Z,$C9F2
C9E3	LD L,(IY+$02)
C9E6	LD H,(IY+$03)
C9E9	PUSH IY
C9EB	CALL $CB34
This entry point is used by the routine at F56E.
C9EE	POP IY
C9F0	JR Z,$C9D1
C9F2	LD A,($A00B)
C9F5	AND A
C9F6	JR NZ,$C9FB
C9F8	OR $01
C9FA	RET
C9FB	PUSH IY
C9FD	LD A,(IY+$01)
CA00	RRCA
CA01	RRCA
CA02	RRCA
CA03	RRCA
CA04	AND $0F
CA06	LD L,A
CA07	LD H,$00
CA09	LD ($A01F),HL
CA0C	POP HL
CA0D	LD DE,$0002
CA10	ADD HL,DE
CA11	BIT 6,(IY+$00)
CA15	JR Z,$CA18
CA17	ADD HL,DE
CA18	LD DE,$0005
CA1B	BIT 4,(IY+$00)
CA1F	JR Z,$CA22
CA21	ADD HL,DE
CA22	LD A,($A00A)
CA25	LD ($C491),A
CA28	LD IX,($A013)
CA2C	LD A,(IX+$0F)
CA2F	LD ($C492),A
CA32	PUSH HL
CA33	PUSH IY
CA35	LD A,$01
CA37	LD ($A00C),A
CA3A	CALL $CA76
CA3D	POP IY
CA3F	POP HL
CA40	BIT 7,(IY+$00)
CA44	JR Z,$CA48
CA46	SCF
CA47	RET
CA48	LD A,($9FD7)
CA4B	INC A
CA4C	JR NZ,$CA54
CA4E	LD A,($A034)
CA51	LD ($9FD7),A
CA54	LD A,($9FD8)
CA57	INC A
CA58	JR NZ,$CA60
CA5A	LD A,($A035)
CA5D	LD ($9FD8),A
CA60	XOR A
CA61	LD ($CAAE),A
CA64	CALL $CB2C
CA67	PUSH AF
CA68	PUSH HL
CA69	CALL $CA7F
CA6C	LD A,($CAAE)
CA6F	AND A
CA70	CALL Z,$CAAF
CA73	POP HL
CA74	POP AF
CA75	RET
CA76	LD A,($A033)
CA79	AND $80
CA7B	CALL Z,$A2E4
CA7E	RET
CA7F	LD A,($9860)
CA82	CALL $D237
CA85	LD A,($A009)
CA88	CP (IX+$0F)
This entry point is used by the routine at F56E.
CA8B	RET Z
CA8C	LD A,($A036)
CA8F	PUSH AF
CA90	LD A,($9860)
CA93	LD ($A036),A
CA96	CALL $CA9E
CA99	POP AF
CA9A	LD ($A036),A
CA9D	RET
CA9E	LD A,($DD01)
CAA1	LD HL,($DCFF)
CAA4	BIT 6,(HL)
CAA6	JP NZ,$D1B2
CAA9	SET 6,(HL)
CAAB	JP $D102
CAAE	NOP
CAAF	CALL $DC6C
CAB2	RET Z
CAB3	LD A,($C491)
CAB6	LD HL,$A009
CAB9	CP (HL)
CABA	RET Z
CABB	LD A,($A036)
CABE	CALL $D495
CAC1	LD HL,$A009
CAC4	CP (HL)
CAC5	JR NZ,$CAD0
CAC7	LD A,($A036)
CACA	LD DE,$68ED
CACD	CALL $CBC2
CAD0	LD A,($A00F)
CAD3	CP $07
CAD5	RET C
CAD6	LD A,($A034)
CAD9	CALL $D495
CADC	CP $FF
CADE	JR NZ,$CB12
CAE0	LD B,(IX+$00)
CAE3	LD A,($A009)
CAE6	CP (IX+$0F)
CAE9	JR Z,$CAF0
CAEB	INC IX
CAED	DJNZ $CAE6
CAEF	RET
CAF0	LD A,($A036)
CAF3	LD B,A
CAF4	LD A,$FF
CAF6	LD ($A036),A
CAF9	LD A,$01
CAFB	LD ($5C3C),A
CAFE	LD A,($A009)
CB01	CALL $D471
CB04	CP $FF
CB06	CALL NZ,$CA76
CB09	SUB A
CB0A	LD ($5C3C),A
CB0D	LD A,B
CB0E	LD ($A036),A
CB11	RET
CB12	LD A,($C492)
CB15	LD HL,$A009
CB18	CP (HL)
CB19	RET Z
CB1A	LD A,($A034)
CB1D	LD HL,$A036
CB20	CP (HL)
CB21	RET Z
CB22	LD DE,$68ED
CB25	JP $CBC2
CB28	NOP
CB29	NOP
CB2A	NOP
CB2B	NOP
CB2C	LD IX,($CB28)
CB30	LD IY,($CB2A)
CB34	CALL $CB40
CB37	LD ($CB28),IX
CB3B	LD ($CB2A),IY
CB3F	RET
CB40	JP (HL)
This entry point is used by the routine at C4D1.
CB41	XOR A
CB42	RET
CB43	PUSH HL
CB44	CALL $DC6C
CB47	POP HL
CB48	JR NZ,$CB65
CB4A	XOR A
CB4B	LD ($A036),A
CB4E	LD A,($A00B)
CB51	AND A
CB52	JR Z,$CB5F
CB54	LD A,L
CB55	OR H
CB56	JR NZ,$CB67
CB58	XOR A
CB59	LD ($A00C),A
CB5C	CALL $CA76
CB5F	LD A,($9860)
CB62	LD ($A036),A
CB65	XOR A
CB66	RET
CB67	LD A,$01
CB69	LD ($A027),A
CB6C	PUSH IY
CB6E	CALL $CB40
CB71	POP IY
CB73	XOR A
CB74	LD ($A027),A
CB77	JR $CB5F
CB79	NOP
CB7A	NOP
CB7B	LD A,($CB79)
CB7E	BIT 7,A
CB80	LD HL,$C471
CB83	JR Z,$CB88
CB85	LD HL,$C481
CB88	OR $80
CB8A	LD E,(HL)
CB8B	INC HL
CB8C	LD D,(HL)
CB8D	INC HL
CB8E	RRCA
CB8F	JR NC,$CB8A
CB91	LD A,D
CB92	OR E
CB93	JR Z,$CB58
CB95	LD A,($CB7A)
CB98	LD ($A034),A
CB9B	LD HL,$6817
CB9E	CALL $A59F
CBA1	CALL $A887
CBA4	JP $A2A2
This entry point is used by the routine at DC6C.
CBA7	LD A,($B934)
CBAA	BIT 6,A
CBAC	RET Z
CBAD	POP HL
CBAE	XOR A
CBAF	LD ($A027),A
CBB2	LD HL,$681A
CBB5	CALL $A59F
CBB8	JP $DC15
CBBB	LD HL,$68D1
CBBE	CALL $A59F
CBC1	RET
CBC2	CP $FF
CBC4	RET Z
CBC5	AND A
CBC6	RET Z
CBC7	LD B,A
CBC8	CALL $D495
CBCB	LD C,A
CBCC	LD A,($A009)
CBCF	CP C
CBD0	RET NZ
CBD1	LD A,$01
CBD3	LD ($5C3C),A
CBD6	PUSH DE
CBD7	LD A,B
CBD8	CALL $D237
CBDB	LD A,(IX+$01)
CBDE	CP $FF
CBE0	JR Z,$CBE5
CBE2	LD B,A
CBE3	JR $CBD7
CBE5	LD A,B
CBE6	CALL $A4BC
CBE9	EX (SP),HL
CBEA	LD A,($A036)
CBED	PUSH AF
CBEE	LD A,($9860)
CBF1	LD ($A036),A
CBF4	CALL $CC29
CBF7	LD A,B
CBF8	CALL $C821
CBFB	JR NZ,$CC00
CBFD	POP AF
CBFE	POP HL
CBFF	RET
CC00	POP AF
CC01	LD ($A036),A
CC04	CALL $CC29
CC07	CALL $A59F
CC0A	RET
CC0B	NOP
CC0C	NOP
CC0D	NOP