1;
2;       Jupiter ACE pseudo graphics routines
3;
4;       cls ()  -- clear screen
5;
6;       Stefano Bodrato - 2014
7;
8;
9;       $Id: clsgraph.asm $
10;
11
12			SECTION   code_clib
13			PUBLIC    cleargraphics
14         PUBLIC    _cleargraphics
15			EXTERN     loadudg6
16			EXTERN	base_graphics
17
18			INCLUDE	"graphics/grafix.inc"
19
20
21.cleargraphics
22._cleargraphics
23
24	ld   c,0	; first UDG chr$ to load
25	ld	 b,64	; number of characters to load
26	ld   hl,$2c00	; UDG area
27	call loadudg6
28
29	ld	hl,(base_graphics)
30	ld	bc,32*24
31.clean
32	ld	(hl),blankch
33	inc	hl
34	dec	bc
35	ld	a,b
36	or	c
37	jr	nz,clean
38
39	ret
40