f_ansi_cls.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/cpc/f_ansi_cls.asm
;
; 	ANSI Video handling for the Amstrad CPC
;
; 	CLS - Clear the screen
;	
;	Stefano Bodrato - Jul. 2004
;
;
;	$Id: f_ansi_cls.asm,v 1.4 2015/01/19 01:33:18 pauloscustodio Exp $
;

        PUBLIC	ansi_cls

        INCLUDE "cpcfirm.def"

 .ansi_cls	
	;ld	a,0	; 20x25x16 text mode
	;ld	a,1	; 40x25x4 text mode
	;ld	a,2	; 80x25 mono text mode
	;call	$bc0e	;set mode
	
        call    firmware
        defw    txt_initialise
        ld      a,2
        call    firmware
        defw    txt_set_pen
        xor     a
        call    firmware
        defw    txt_set_paper
        ld      a,$0c
        call    firmware
        defw    txt_output
        ret

