clg.asm
bitfixer_bitfixer/dg/z88dk/libsrc/graphics/cpc/clg.asm
;
;       Clear Graphics Screen
;
;       Amstrad CPC version by Stefano Bodrato  15/6/2001
;
;
;	$Id: clg.asm,v 1.8 2015/01/19 01:32:47 pauloscustodio Exp $
;


        PUBLIC    clg

        INCLUDE "cpcfirm.def"
        
        INCLUDE	"graphics/grafix.inc"

; Possible colors: 0 (blue), 1 (yellow), 2 (cyan), 3 (red)
;
;

.clg
        ld      a,bcolor
        call    firmware
        defw    gra_set_paper
        ld      a,fcolor
        call    firmware
        defw    gra_set_pen

	; gra_clear_window needs colors to be set, 
	; scr_clear forces default (cyan on blue)
	
        call    firmware
        defw    scr_clear	        
        ret
