2 ; void clrscr (void);
\r
6 .importzp CURS_X, CURS_Y
\r
9 ; Adapted from the Challenger Character Graphics
\r
10 ; Reference Manual, "2.3.3 MACHINE LANGUAGE SCREEN CLEAR"
\r
11 ; This is self-modifying code!
\r
12 BANKS = VIDEORAMSIZE / $100
\r
25 lda #>(SCRNBASE); load high byte
\r
26 sta staloc+2 ; restore base address
\r
28 lda #$00 ; cursor in upper left corner
\r
31 jmp plot ; Set the cursor position
\r