f_ansi_cls.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/zx81/f_ansi_cls.asm
;
; 	ANSI Video handling for the ZX81
;	By Stefano Bodrato - Sept 2007
;
; 	CLS - Clear the screen
;	
;
;	$Id: f_ansi_cls.asm,v 1.5 2015/01/19 01:33:20 pauloscustodio Exp $
;

	PUBLIC	ansi_cls
	EXTERN	_clg_hr		; we use the graphics CLS routine
IF MTHRG
	XREF	text_rows
	XREF	MTCH_P2
ENDIF

.ansi_cls
	call	_clg_hr
IF MTHRG
	ld	a,(MTCH_P2+2)
	srl a
	srl a
	srl a
	ld	(text_rows),a
ENDIF

	ret
