	.Z80
	ENTRY VT
	ASEG
	ORG 103H

;	VT.MAC
; ist ein Testprogramm fuer die VT100-Subroutine.

	EXTERNAL VT100

;------------------------------------------
BDOS	EQU 5
CTRLC	EQU 03H
CTRLH	EQU 08H
CTRLI	EQU 09H
CTRLJ	EQU 0AH
CTRLK	EQU 0BH
ESC	EQU 1BH		;ESCAPE
LBR	EQU '['		;SEQUENCE INTRODUCER
DELIM	EQU ';'		;PARAMETER DELIMITER
;------------------------------------------
VT:	CALL INPUT
	CP CTRLC
	RET Z
	CALL VT100
	JP VT
;------------------------------------------
INPUT:	LD C,6
	LD E,0FFH
	CALL BDOS
	OR A
	JR Z,INPUT
	RET
;------------------------------------------
	END
