title	History Clear Tool
	name	('HISTCL')

; Program clears the RSX HISTRSX1

BDOS	equ	0005h

.string	equ	 9
.RSX	equ	60

RSX_CL	equ	56

lf	equ	0ah
cr	equ	0dh
eot	equ	'$'

	ld	de,$SCBPB
	ld	c,.RSX
	call	BDOS		; Simple call
	or	a		; Test success
	jp	z,OS		; Yeap
	ld	de,$RSXMSG
	ld	c,.string	; Else tell error
	jp	BDOS
;
$RSXMSG:
	db	cr,lf,'History RSX not installed',eot
$SCBPB:
	db	RSX_CL

	end