1
2
3                SECTION         code_graphics
4	PUBLIC	fillarea
5	EXTERN	plotpixel
6
7;
8;	$Id: fillarea.asm $
9;
10
11; ***********************************************************************
12;
13; Clear specified graphics area in map.
14; Generic version
15;
16; Stefano Bodrato - March 2002
17;
18;
19; IN:	HL	= (x,y)
20;	BC	= (width,heigth)
21;
22
23.fillarea
24
25		push	hl
26		push	bc
27.rowloop
28		push	hl
29		push	de
30		push	bc
31		call	plotpixel
32		pop	bc
33		pop	de
34		pop	hl
35
36		inc	h
37		djnz	rowloop
38		pop	bc
39		pop	hl
40		inc	l
41		dec	c
42		jr	nz,fillarea
43		ret
44