; Device message routine.
; Update to LSDOS 6.3.1 2022-09-16 dpm

zMSG		PUSH	HL			;Save pointer to message
$?1		LD	A,(HL)			;P/u a message character
		CP	ETX.asc			;Exit on ETX
		JR	Z,$?3		
		CP	CR.asc			;Exit & put on ENTER
		JR	Z,$?2
		CALL	NZ,zPUT			;Else put the char
		INC	HL			;& loop on no error
		JR	Z,$?1			;else fall thru & exit
$?2		CALL	Z,zPUT
$?3		POP	HL
		RET
