The Hobbit: Routine at 855A

855A: Verify one block, or say the tape is bad

Used by the routine at DO_SAVE. "TAPE ERROR - hit ANY key to CONTINUE.", and the save gives up.
VERIFY_BLOCK	855A	CALL $0556
	855D	RET C
	855E	LD A,$01
	8560	LD (INPUT_STYLE),A
	8563	LD HL,MSG_T_A_P_E_B
	8566	CALL RUN_MESSAGE_HL
VERIFY_BLOCK_0	8569	XOR A
	856A	IN A,($FE)
	856C	AND $1F
	856E	CP $1F
	8570	JR Z,VERIFY_BLOCK_0
	8572	POP DE
	8573	JP TAPE_DONE