The Hobbit: Routine at 6DD6

6DD6: Routine at 6DD6

Used by the routine at 6CEC.
6DD6	LD HL,$0BB8
6DD9	LD ($B714),HL
6DDC	LD A,$01
6DDE	LD ($B701),A
6DE1	LD ($B6FA),A
6DE4	LD A,$3E
6DE6	CALL $858B
6DE9	LD A,$20
6DEB	CALL $858B
6DEE	LD HL,$6FF9
6DF1	LD B,$80
6DF3	LD C,$00
6DF5	CALL $7249
6DF8	BIT 7,B
6DFA	JR Z,$6E01
6DFC	CP $40
6DFE	JP Z,$6E7A
6E01	BIT 0,C
6E03	CALL Z,$6E4F
6E06	LD C,$01
6E08	CP $18
6E0A	JR NZ,$6E11
6E0C	CALL $6E8B
6E0F	JR $6DF3
6E11	CP $08
6E13	JR NZ,$6E22
6E15	BIT 7,B
6E17	JR NZ,$6DF5
6E19	LD A,$08
6E1B	CALL $858B
6E1E	INC B
6E1F	DEC HL
6E20	JR $6DF5
6E22	CP $40
6E24	JR NC,$6E3A
6E26	CP $22
6E28	JR Z,$6E3A
6E2A	CP $20
6E2C	JR Z,$6E3A
6E2E	CP $0D
6E30	JR Z,$6E3A
6E32	CP $2E
6E34	JR Z,$6E3A
6E36	CP $2C
6E38	JR NZ,$6DF5
6E3A	LD ($B704),A
6E3D	DEC B
6E3E	INC B
6E3F	JR Z,$6E47
6E41	CALL $858B
6E44	LD (HL),A
6E45	INC HL
6E46	DEC B
6E47	CP $0D
6E49	JP NZ,$6DF5
6E4C	OR $01
6E4E	RET
6E4F	CP $09
6E51	JR Z,$6E72
6E53	CP $08
6E55	JR Z,$6E76
6E57	CP $0A
6E59	JR Z,$6E6E
6E5B	CP $5B
6E5D	RET NZ
6E5E	LD A,$4E
6E60	LD (HL),A
6E61	INC HL
6E62	CALL $858B
6E65	DEC B
6E66	LD A,$0D
6E68	LD (HL),A
6E69	INC HL
6E6A	DEC B
6E6B	OR $01
6E6D	RET
6E6E	LD A,$53
6E70	JR $6E60
6E72	LD A,$45
6E74	JR $6E60
6E76	LD A,$57
6E78	JR $6E60
6E7A	LD A,($B71A)
6E7D	AND A
6E7E	JP NZ,$6DF5
6E81	LD A,$08
6E83	CALL $858B
6E86	CALL $858B
6E89	XOR A
6E8A	RET
This entry point is used by the routine at 70F3.
6E8B	BIT 7,B
6E8D	RET NZ
6E8E	LD A,$08
6E90	CALL $858B
6E93	INC B
6E94	DEC HL
6E95	JR $6E8B
This entry point is used by the routine at 6CEC.
6E97	PUSH DE
6E98	LD A,(HL)
6E99	INC HL
6E9A	CP $20
6E9C	JR Z,$6E98
6E9E	DEC HL
6E9F	LD ($B6DA),HL
6EA2	CP $0D
6EA4	JR Z,$6EDE
6EA6	CALL $6F30
6EA9	JR Z,$6EE3
6EAB	CALL $6F47
6EAE	JR NZ,$6EBC
6EB0	PUSH HL
6EB1	CALL $6FBA
6EB4	JR Z,$6EC0
6EB6	CALL $6F72
6EB9	JR Z,$6EB1
6EBB	POP HL
6EBC	LD A,$D0
6EBE	JR $6EE0
6EC0	LD A,($708A)
6EC3	LD B,A
6EC4	LD A,($709B)
6EC7	CP B
6EC8	JR NC,$6EEB
6ECA	CP $04
6ECC	JR C,$6EB6
6ECE	PUSH IX
6ED0	CALL $6F76
6ED3	JR NZ,$6EE9
6ED5	CALL $6FBA
6ED8	JR NZ,$6EE9
6EDA	POP IX
6EDC	JR $6EB6
6EDE	LD A,$C0
6EE0	LD BC,$0000
6EE3	POP DE
6EE4	LD D,A
6EE5	ADD A,B
6EE6	LD B,A
6EE7	LD A,D
6EE8	RET
6EE9	POP IX
6EEB	LD IX,($B717)
6EEF	PUSH IX
6EF1	XOR A
6EF2	INC IX
6EF4	INC A
6EF5	BIT 7,(IX-$01)
6EF9	JR Z,$6EF2
6EFB	CP $02
6EFD	JR Z,$6EF2
6EFF	CP $03
6F01	JR NZ,$6F09
6F03	BIT 7,(IX-$02)
6F07	JR NZ,$6EF2
6F09	BIT 6,(IX-$01)
6F0D	JR Z,$6F1A
6F0F	LD L,(IX+$00)
6F12	LD H,(IX+$01)
6F15	LD DE,$6000
6F18	ADD HL,DE
6F19	EX (SP),HL
6F1A	POP HL
6F1B	LD A,(HL)
6F1C	RLCA
6F1D	AND $C0
6F1F	LD B,A
6F20	INC HL
6F21	LD A,(HL)
6F22	RRCA
6F23	AND $30
6F25	ADD A,B
6F26	DEC HL
6F27	LD DE,$A000
6F2A	ADD HL,DE
6F2B	PUSH HL
6F2C	POP BC
6F2D	POP HL
6F2E	JR $6EE3
6F30	LD B,$B0
6F32	CP $2E
6F34	JR Z,$6F41
6F36	LD B,$A0
6F38	CP $2C
6F3A	JR Z,$6F41
6F3C	CP $22
6F3E	RET NZ
6F3F	LD B,$90
6F41	INC HL
6F42	LD A,B
6F43	LD BC,$0000
6F46	RET
6F47	LD DE,$707A
6F4A	LD B,$00
6F4C	LD A,(HL)
6F4D	CP $40
6F4F	JR C,$6F59
6F51	AND $1F
6F53	LD (DE),A
6F54	INC DE
6F55	INC HL
6F56	INC B
6F57	JR $6F4C
6F59	LD A,B
6F5A	LD ($708A),A
6F5D	PUSH HL
6F5E	LD HL,($707A)
6F61	LD H,$00
6F63	LD DE,$6000
6F66	ADD HL,HL
6F67	ADD HL,DE
6F68	LD E,(HL)
6F69	INC HL
6F6A	LD D,(HL)
6F6B	LD IX,$6000
6F6F	ADD IX,DE
6F71	POP HL
6F72	LD ($B717),IX
6F76	LD A,(IX+$00)
6F79	AND $1F
6F7B	LD B,A
6F7C	LD A,($707A)
6F7F	CP B
6F80	RET NZ
6F81	PUSH HL
6F82	LD HL,$708B
6F85	LD BC,$0000
6F88	LD A,(IX+$00)
6F8B	AND $1F
6F8D	JR Z,$6F92
6F8F	LD (HL),A
6F90	INC HL
6F91	INC B
6F92	INC IX
6F94	INC C
6F95	BIT 7,(IX-$01)
6F99	JR Z,$6F88
6F9B	LD A,C
6F9C	CP $02
6F9E	JR Z,$6F88
6FA0	CP $03
6FA2	JR NZ,$6FAA
6FA4	BIT 7,(IX-$02)
6FA8	JR NZ,$6F88
6FAA	POP HL
6FAB	LD A,B
6FAC	LD ($709B),A
6FAF	BIT 6,(IX-$01)
6FB3	RET Z
6FB4	INC IX
6FB6	INC IX
6FB8	XOR A
6FB9	RET
6FBA	LD A,($708A)
6FBD	LD B,A
6FBE	LD A,($709B)
6FC1	CP B
6FC2	JR NC,$6FC5
6FC4	LD B,A
6FC5	LD HL,$707A
6FC8	LD DE,$708B
6FCB	LD A,(DE)
6FCC	CP (HL)
6FCD	RET NZ
6FCE	INC DE
6FCF	INC HL
6FD0	DJNZ $6FCB
6FD2	RET