clsgraph.asm
bitfixer_bitfixer/dg/z88dk/libsrc/graphics/mz/clsgraph.asm

	PUBLIC	cleargraphics

	EXTERN	base_graphics

;
;	$Id: clsgraph.asm,v 1.2 2015/01/19 01:32:49 pauloscustodio Exp $
;

; ******************************************************************
;
; Clear graphics area
;
; Sharp MZ version.  
; 80x50 rez.
;
.cleargraphics

	ld	hl,$D000
	ld	(hl),0 ;' '
	ld	d,h
	ld	e,l
	inc	de
	ld	bc,40*25
	ldir

	ld	hl,$D800
	ld	(hl),$70
	ld	d,h
	ld	e,l
	inc	de
	ld	bc,40*25
	ldir

	ret
