vgi_clearscreen:

;	lda	P0
;	jsr	BKGND0

;	jmp	vgi_loop		; return