Fixed and improved some pce comments.

[cc65] / libsrc / pce / clrscr.s

diff --git a/libsrc/pce/clrscr.s b/libsrc/pce/clrscr.s
index 0a2b8b62d342ff349012b641b54940db1c3e2212..907a78899b73fe46a91fe00a5034e52f0ea6567f 100644 (file)
--- a/libsrc/pce/clrscr.s
+++ b/libsrc/pce/clrscr.s
@@ -1,25 +1,44 @@
+;
+; Clear (erase) the screen.
+;
+; Support the full 128- x 64-tile background.
+;
 
-                .include "pcengine.inc"
+        .export         _clrscr
+
+        .import         plot
+
+        .include        "pce.inc"
+        .include        "extzp.inc"
 
-                .export _clrscr
 _clrscr:
+        st0     #VDC_MAWR
+        st1     #<$0000
+        st2     #>$0000
+
+        st0     #VDC_VWR
+        ldy     #$40
+rowloop:
+        ldx     #$80
+colloop:
+        lda     #' '            ; low byte of char. index
+        sta     VDC_DATA_LO
+        lda     #$02            ; background color, high nybble of char. index
+        sta     VDC_DATA_HI
 
-                st0     #VDC_MAWR
-                st1     #<$0000
-                st2     #>$0000
+        dex
+        bne     colloop
+        dey
+        bne     rowloop
 
-                st0     #VDC_VWR
-                ldy     #$40
-rowloop:        ldx     #$80
-colloop:        lda #' '
-                staio VDC_DATA_LO
-                lda #$02
-                staio VDC_DATA_HI
+; Go to the home position.
 
-                dex
-                bne     colloop
-                dey
-                bne     rowloop
+        stz     CURS_X
+        stz     CURS_Y
+        jmp     plot
 
-                rts
+;-------------------------------------------------------------------------------
+; force the init constructor to be imported
 
+                .import initconio
+conio_init      = initconio