f_ansi_cls.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/ticalc/f_ansi_cls.asm
;
; 	ANSI Video handling for the TI calculators
;	By Stefano Bodrato - Dec. 2000
;
; 	CLS - Clear the screen
;	
;
;	$Id: f_ansi_cls.asm,v 1.5 2015/01/19 01:33:19 pauloscustodio Exp $
;

	INCLUDE	"stdio/ansi/ticalc/ticalc.inc"

	PUBLIC	ansi_cls
	EXTERN	base_graphics
	EXTERN	cpygraph

.ansi_cls
  	ld	hl,(base_graphics)
	ld	(hl),0
	ld	d,h
	ld	e,l
	inc	de
	ld	bc,row_bytes*64
	ldir

	jp	cpygraph	; Copy GRAPH_MEM to LCD, then return
