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