2 ; Ullrich von Bassewitz, 14.09.2001
8 .include "zeropage.inc"
11 ; ------------------------------------------------------------------------
12 ; void __fastcall__ clrscr (void);
19 jsr plot ; Set cursor to top left corner
26 jsr clearpage ; Clear remainder of last page
27 jmp plot ; Set screen pointer again
37 lda #$20 ; Screencode for blank
39 @L1: sta (SCREEN_PTR),y
50 sta IndReg ; Switch to the system bank
51 lda CHARCOLOR ; Load color
59 sta IndReg ; Restore the old indirect bank