convert to petscii

diff --git a/libsrc/c64/soft80_cpeekc.s b/libsrc/c64/soft80_cpeekc.s
index 63ad635e7194d4d87a09d028a40d3a6799ceab19..576d50fc1d1424d3d73858f4f3a33591fbf7c366 100644 (file)
--- a/libsrc/c64/soft80_cpeekc.s
+++ b/libsrc/c64/soft80_cpeekc.s
@@ -15,6 +15,13 @@
 
 soft80_cpeekc:
         jsr     soft80_cpeekchar
+        ;  0-1F -> A0-BF
+        ; 20-7F -> 20-7F
+        cmp     #$20
+        bcs     @sk
+        ;clc
+        adc     #$a0
+@sk:
         ldx     #0
         rts