prepend soft80_ to some more internally used functions

diff --git a/libsrc/c64/soft80_cgetc.s b/libsrc/c64/soft80_cgetc.s
index 7b8a260f1e7a233350d9976d2e1d547ecb550a0b..12b2071a20cef1e9f05ad1022499c19f6857ca95 100644 (file)
--- a/libsrc/c64/soft80_cgetc.s
+++ b/libsrc/c64/soft80_cgetc.s
@@ -4,7 +4,7 @@
 
         .export         soft80_cgetc
         .import         cursor          ; FIX/CHECK
-        .import         putcolor        ; FIX/CHECK
+        .import         soft80_putcolor
 
         .include        "c64.inc"
         .include        "soft80.inc"
@@ -52,7 +52,7 @@ L3:     jsr     KBDREAD         ; Read char and return in A
         lda     #$34
         sta     $01
 
-        jsr     putcolor
+        jsr     soft80_putcolor
 
         ldy     #$00
 

diff --git a/libsrc/c64/soft80_chline.s b/libsrc/c64/soft80_chline.s
index 0fc711870257d4b51b9e7f5f5f9d3de9b3d9584a..de6ab7637a9f5c6cf59ac0c48f3dae854d6acf42 100644 (file)
--- a/libsrc/c64/soft80_chline.s
+++ b/libsrc/c64/soft80_chline.s
@@ -4,21 +4,21 @@
 ;
 
         .export         soft80_chlinexy, soft80_chline
-        .import         popa, _gotoxy, cputdirect ; FIX/CHECK
+        .import         popa, _gotoxy, soft80_cputdirect
         .importzp       tmp1
 
 soft80_chlinexy:
-        pha                     ; Save the length
-        jsr     popa            ; Get y
-        jsr     _gotoxy         ; Call this one, will pop params
-        pla                     ; Restore the length
+        pha                             ; Save the length
+        jsr     popa                    ; Get y
+        jsr     _gotoxy                 ; Call this one, will pop params
+        pla                             ; Restore the length
 
 soft80_chline:
-        cmp     #0              ; Is the length zero?
-        beq     L9              ; Jump if done
+        cmp     #0                      ; Is the length zero?
+        beq     L9                      ; Jump if done
         sta     tmp1
-L1:     lda     #96             ; Horizontal line, screen code
-        jsr     cputdirect      ; Direct output
+L1:     lda     #96                     ; Horizontal line, screen code
+        jsr     soft80_cputdirect       ; Direct output
         dec     tmp1
         bne     L1
 L9:     rts

diff --git a/libsrc/c64/soft80_cputc.s b/libsrc/c64/soft80_cputc.s
index 2e75aa541addc64c9ccecec1ffeb258f1f8978e5..c819134762865dde775dec593d37ddc39c234346 100644 (file)
--- a/libsrc/c64/soft80_cputc.s
+++ b/libsrc/c64/soft80_cputc.s
@@ -5,15 +5,16 @@
 
         .export         soft80_cputcxy, soft80_cputc
         .export         soft80_cputdirect, soft80_putchar
-        .export         putcolor        ; FIX/CHECK
-
+        .export         soft80_putcolor
         .export         soft80_newline, soft80_plot
+
         .import         popa, _gotoxy
         .import         xsize
-        .import         PLOT            ; FIX/CHECK
-        .importzp       tmp4,tmp3
+        .import         soft80_kplot
         .import         __bgcolor               ; FIX/CHECK
 
+        .importzp       tmp4,tmp3
+
         .macpack        longbranch
 
         .include        "c64.inc"
@@ -39,7 +40,7 @@ soft80_plot:
         ldx     CURS_Y
         ldy     CURS_X
         clc
-        jmp     PLOT            ; Set the new cursor
+        jmp     soft80_kplot            ; Set the new cursor
 
 L1:     cmp     #$0D            ; LF?
         beq     soft80_newline         ; Recalculate pointers
@@ -170,7 +171,7 @@ remcolor:
 
 ; put color to cell
 ; y unmodified
-putcolor:
+soft80_putcolor:
 
         ;ldy     #$00            ; is still $00
 
@@ -301,7 +302,7 @@ _space:
 
 _spaceinvers:
 
-        jsr     putcolor
+        jsr     soft80_putcolor
 
         lda     CURS_X
         and     #$01
@@ -344,7 +345,7 @@ soft80_putchar:
         cmp     #' '            ; space is a special (optimized) case
         jeq     _space
 
-        jsr     putcolor
+        jsr     soft80_putcolor
 
 ; output character
 char:

diff --git a/libsrc/c64/soft80_cvline.s b/libsrc/c64/soft80_cvline.s
index 78f92278df9a945f9a89158094fcb54be6e3d228..a24d17c79869b2ca6da100e07a16c42d2f0fcaf6 100644 (file)
--- a/libsrc/c64/soft80_cvline.s
+++ b/libsrc/c64/soft80_cvline.s
@@ -4,7 +4,7 @@
 ;
 
         .export         soft80_cvline, soft80_cvlinexy
-        .import         popa, _gotoxy, putchar, newline ; CHECK/FIX
+        .import         popa, _gotoxy, soft80_putchar, soft80_newline
         .importzp       tmp1
 
 soft80_cvlinexy:
@@ -18,8 +18,8 @@ soft80_cvline:
         beq     L9              ; Jump if done
         sta     tmp1
 L1:     lda     #125            ; Vertical bar
-        jsr     putchar         ; Write, no cursor advance
-        jsr     newline         ; Advance cursor to next line
+        jsr     soft80_putchar  ; Write, no cursor advance
+        jsr     soft80_newline  ; Advance cursor to next line
         dec     tmp1
         bne     L1
 L9:     rts