The Hobbit: Routine at 860D

860D: Scroll the input window up a line

Used by the routine at INPUT_CHAR. Character rows 20-23 move up to 19-22, and row 23 is blanked.
SCROLL_INPUT	860D	PUSH HL
	860E	PUSH DE
	860F	PUSH BC
	8610	PUSH AF
	8611	LD HL,$5080
	8614	LD DE,$5060
	8617	LD A,$04
	8619	LD B,$00
SCROLL_INPUT_0	861B	PUSH HL
	861C	PUSH DE
	861D	LD C,$08
SCROLL_INPUT_1	861F	PUSH HL
	8620	PUSH DE
	8621	PUSH BC
	8622	LD C,$20
	8624	LDIR
	8626	POP BC
	8627	POP DE
	8628	POP HL
	8629	INC H
	862A	INC D
	862B	DEC C
	862C	JR NZ,SCROLL_INPUT_1
	862E	POP DE
	862F	POP HL
	8630	LD C,$20
	8632	ADD HL,BC
	8633	EX DE,HL
	8634	ADD HL,BC
	8635	EX DE,HL
	8636	DEC A
	8637	JR NZ,SCROLL_INPUT_0
	8639	LD B,$20
	863B	LD HL,$50E0
	863E	LD A,$20
SCROLL_INPUT_2	8640	CALL ROM_FONT_CHAR
	8643	DJNZ SCROLL_INPUT_2
	8645	POP AF
	8646	POP BC
	8647	POP DE
	8648	POP HL
	8649	RET