f_ansi_cls.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/oz/f_ansi_cls.asm
;
; 	ANSI Video handling for Sharp OZ family
;
; 	CLS - Clear the text screen
;
;
;	Stefano Bodrato - Aug. 2002
;
;
;	$Id: f_ansi_cls.asm,v 1.4 2015/01/19 01:33:18 pauloscustodio Exp $
;

	PUBLIC	ansi_cls
	EXTERN	base_graphics

	EXTERN     swapgfxbk
        EXTERN	swapgfxbk1

.ansi_cls


	call	swapgfxbk

	ld      hl,(base_graphics)
	ld	d,h
	ld	e,l
	inc	de
	ld      bc,2400-1
	xor	a
	ld	(hl),a
	ldir

	jp	swapgfxbk1
