;
	title	'cls - C128 screen cls using cp/m 3.0 terminal code. '
;
;	aseg			; for RMAC
;
	org	0100h
start:	lxi	sp,0100h
	lda	05dh		; see if file specified
print:
	lxi	h,cls
	xchg
	mvi	c,09
	call	5
	jmp	0		; abort
;
;	output string
;
cls:	db	'Z'-40h,'$'
;
;	Local storage
;
ro:	ds	1		; RO flag
sys:	ds	1		; SYS flag
arch:	ds	1		; Archive flag
;
	end	0100h