Underwurlde: Routine at 9BB8

9BB8: Routine at 9BB8

Used by the routine at 9906.
9BB8	PUSH DE
9BB9	LD HL,$1000
9BBC	LD A,E
9BBD	LD DE,$9BD8
9BC0	BIT 7,A
9BC2	JP Z,$99D2
9BC5	PUSH HL
9BC6	EX DE,HL
9BC7	BIT 0,A
9BC9	JR Z,$9BCD
9BCB	INC HL
9BCC	INC HL
9BCD	BIT 6,A
9BCF	JR Z,$9BD5
9BD1	INC HL
9BD2	INC HL
9BD3	INC HL
9BD4	INC HL
9BD5	JP $9A70
9BD8	LD D,A
9BD9	JP NZ,$C989
9BDC	PUSH AF
9BDD	CP A
9BDE	ADD HL,HL
9BDF	RET
9BE0	LD D,A
9BE1	JP NZ,$C9E9
9BE4	SBC A,A
9BE5	RET NZ
9BE6	ADD HL,HL
9BE7	RET
9BE8	LD D,A
9BE9	JP NZ,$CA49
9BEC	LD C,C
9BED	POP BC
9BEE	ADD HL,HL
9BEF	RET
9BF0	LD D,A
9BF1	JP NZ,$CAA9
9BF4	RST $30
9BF5	POP BC
9BF6	ADD HL,HL
9BF7	RET
This entry point is used by the routine at 9906.
9BF8	LD A,(DE)
9BF9	INC DE
9BFA	LD C,A
9BFB	LD A,(DE)
9BFC	INC DE
9BFD	LD B,A
This entry point is used by the routine at 9906.
9BFE	PUSH BC
9BFF	LD A,(DE)
9C00	INC DE
9C01	LD (HL),A
9C02	INC L
9C03	DJNZ $9BFF
9C05	POP BC
9C06	LD A,L
9C07	SUB B
9C08	LD L,A
9C09	CALL $9C2B
9C0C	DEC C
9C0D	JR NZ,$9BFE
9C0F	RET
This entry point is used by the routine at 9906.
9C10	LD E,$46
9C12	CALL $ADE0
9C15	SRL C
9C17	SRL C
9C19	SRL C
9C1B	PUSH BC
9C1C	PUSH HL
9C1D	LD (HL),E
9C1E	INC L
9C1F	DJNZ $9C1D
9C21	POP HL
9C22	LD BC,$0020
9C25	ADD HL,BC
9C26	POP BC
9C27	DEC C
9C28	JR NZ,$9C1B
9C2A	RET
This entry point is used by the routines at 9906 and 9C70.
9C2B	INC H
9C2C	LD A,H
9C2D	AND $07
9C2F	RET NZ
9C30	LD A,L
9C31	ADD A,$20
9C33	LD L,A
9C34	AND $E0
9C36	RET Z
9C37	LD A,H
9C38	SUB $08
9C3A	LD H,A
9C3B	RET
This entry point is used by the routines at GameEntry and 9C70.
9C3C	PUSH HL
9C3D	CALL $ADF8
9C40	LD A,(DE)
9C41	EX AF,AF'
9C42	INC DE
9C43	EXX
9C44	POP HL
9C45	CALL $ADE0
This entry point is used by the routine at GameEntry.
9C48	EXX
9C49	LD A,(DE)
9C4A	BIT 7,A
9C4C	JR NZ,$9C59
9C4E	CALL $98DF
9C51	INC DE
9C52	EXX
9C53	EX AF,AF'
9C54	LD (HL),A
9C55	INC L
9C56	EX AF,AF'
9C57	JR $9C48
9C59	AND $7F
9C5B	CALL $98DF
9C5E	EXX
9C5F	EX AF,AF'
9C60	LD (HL),A
9C61	RET