undraw.asm
bitfixer_bitfixer/dg/z88dk/libsrc/graphics/cpc/undraw.asm
;
;       Amstrad CPC Graphics Functions
;
;	by Stefano Bodrato  - Jul 2004
;
;
;	$Id: undraw.asm,v 1.4 2015/01/19 01:32:47 pauloscustodio Exp $
;


            
        PUBLIC    undraw
		EXTERN     draw

        INCLUDE "cpcfirm.def"

        INCLUDE	"graphics/grafix.inc"

.hlsave	defw	0

.undraw ld      a,bcolor
        call    firmware
        defw    gra_set_pen
        pop     hl
        ld      (hlsave),hl
        call	draw
        ld      hl,(hlsave)
        push	hl
        ld      a,fcolor
        call    firmware
        defw    gra_set_pen
        ret
