More room by default for zero-page data.

[cc65] / libsrc / osic1p / clrscr.s

diff --git a/libsrc/osic1p/clrscr.s b/libsrc/osic1p/clrscr.s
index 32975526f05877f16862a134944af3e2364c1192..db8da69127ca3b0dc15a920bc89d253048472e61 100644 (file)
--- a/libsrc/osic1p/clrscr.s
+++ b/libsrc/osic1p/clrscr.s
@@ -3,7 +3,7 @@
 ;\r
         .export         _clrscr\r
         .import         plot\r
-        .importzp       CURS_X, CURS_Y\r
+        .include        "extzp.inc"\r
         .include        "osic1p.inc"\r
 \r
 ; Adapted from the Challenger Character Graphics\r
@@ -12,20 +12,20 @@
 BANKS = VIDEORAMSIZE / $100\r
 \r
 _clrscr:\r
-        lda       #$20 ;' '\r
-               ldy       #BANKS\r
-               ldx       #$00\r
+        lda       #' '\r
+        ldy       #BANKS\r
+        ldx       #$00\r
 staloc:\r
-               sta       SCRNBASE,X\r
-               inx\r
-               bne       staloc\r
-               inc       staloc+2\r
-               dey\r
-               bne       staloc\r
-               lda       #>(SCRNBASE); load high byte\r
-               sta       staloc+2    ; restore base address\r
+        sta       SCRNBASE,X\r
+        inx\r
+        bne       staloc\r
+        inc       staloc+2\r
+        dey\r
+        bne       staloc\r
+        lda       #>(SCRNBASE)  ; Load high byte\r
+        sta       staloc+2      ; Restore base address\r
 \r
-               lda       #$00        ; cursor in upper left corner\r
+        lda       #$00          ; Cursor in upper left corner\r
         sta       CURS_X\r
         sta       CURS_Y\r
-               jmp       plot        ; Set the cursor position\r
+        jmp       plot          ; Set the cursor position\r