clg.asm
bitfixer_bitfixer/dg/z88dk/libsrc/graphics/px4/clg.asm
;
;   CLS for the Epson PX4
;   Stefano - Nov 2015
;
;
;	$Id: clg.asm,v 1.2 2015/11/05 16:08:04 stefano Exp $
;

        PUBLIC    clg

.clg
		ld c,27	; ESC
		call $eb0c	; CONOUT
		ld c,'2'  ; Hide cursor
		call $eb0c	; CONOUT
		xor a
		ld ($f2ad),a	; LVRAMYOF
;		ld	hl,($f294)	; LSCVRAM
		ld  hl,$e000

		ld (hl),a
		ld d,h
		ld e,l
		inc de
		ld bc,2047
		ldir
		ret
