poor man's _toascii routine, contributed by Fatih Aygun

[cc65] / libsrc / c128 / cgetc.s

diff --git a/libsrc/c128/cgetc.s b/libsrc/c128/cgetc.s
index 01a5ff0e058187e4af21de1c72f641ab465e4411..f3f62ff53db4146568940a54616c25fba1570edd 100644 (file)
--- a/libsrc/c128/cgetc.s
+++ b/libsrc/c128/cgetc.s
@@ -40,32 +40,31 @@ L2:         lda     KEY_COUNT       ; Check characters again
 .bss
 keyvec:        .res    2
 
-.code
+.segment        "INIT"
 initcgetc:
 
 ; Save the old vector
 
-       lda     KeyStoreVec
-       sta     keyvec
-       lda     KeyStoreVec+1
-       sta     keyvec+1
+       lda     KeyStoreVec
+       sta     keyvec
+       lda     KeyStoreVec+1
+       sta     keyvec+1
 
 ; Set the new vector. I can only hope that this works for other C128
 ; versions...
 
-       lda     #<$C6B7
-       ldx     #>$C6B7
-
-SetVec:        sei
-       sta     KeyStoreVec
-       stx     KeyStoreVec+1
-       cli
-       rts
+       lda     #<$C6B7
+       ldx     #>$C6B7
+        jmp     SetVec
 
+.code
 donecgetc:
-        lda     #$00
-        sta     SCROLL
        lda     keyvec
        ldx     keyvec+1
-       bne     SetVec
+SetVec:        sei
+       sta     KeyStoreVec
+       stx     KeyStoreVec+1
+       cli
+       rts
+