Updated c128 accelerator code and documentation.

libsrc/c64/acc_c128_speed.s

@@ -38,13 +38,12 @@ _set_c128_speed:
         bcs     high_speed
 store_speed:
         sta     C128_VICIIE_CLK
-        jmp     _get_c128_speed
 
+        .byte   $2C              ; skip over the lda #$01
 high_speed:
         lda     #$01
         bne     store_speed
 
-
 _get_c128_speed:
         lda     C128_VICIIE_CLK
         and     #$01

libsrc/c64/acc_detect_c128.s

@@ -21,13 +21,16 @@ _detect_c128:
 
 ; Make sure the CPU is a 8502
         .byte   $1A                   ; NOP on 8502, INA on 65(S)C(E)02, 4510 and 65816
-        bne     not_found
+        beq     found
+        .byte   $3A                   ; decrement A again, so a #$00 can be returned
+        rts
+
+found:
 
 ; Make sure a C128 VICIIe is present
         ldy     C128_VICIIE_CLK
         cpy     #$FF
         beq     not_found
-found:
         lda     #$01
 not_found:
         rts