; TLTEST.MAC
;
;	For testing TLINE tiny line editor
;
BufLen	equ	25		; buffer length
Echo	equ	0FFh		; 0=no echo, non-zero=echo
;
	.request	SYSLIB
;
	ext	tline,cout
;
	MACLIB	Z80
;
	jmp	Start
;
EPFlag:	db	Echo	
;
Start:	lxi	h,EdBuf		; buffer address
	mvi	b,BufLen	; buffer length
	lda	EPFlag
	call	tline
	jrnz	Abort
	ret
Abort:	mvi	a,'^'
	call	cout
	mvi	a,'C'
	call	cout
	ret
;
	DSEG
;
EdBuf:	ds	BufLen		; edit buffer
;
	end