;
; MIMIC - keystrokes to screen - by Barry A. Cole  860115
;  Useful for testing screen codes.  All codes valid except for nul(ignored)
;  and control C(exit).
;
BDOS	EQU	5
	ORG	100H
START:	MVI	C,6		; Console in via BDOS call
	MVI	E,0FFH		; This is input
	CALL	BDOS
	ORA	A		; Set flags
	JZ	START		; No character received, retry
	CPI	'C'-40H		; Control C to exit
	RZ			; Yep
	MOV	E,A		; Get character
	MVI	C,6		; And output it
	CALL	BDOS
	JMP	START		; Start over
	END	START