Added C64 Chameleon accelerator code and documentation.

2024-06-07 23:29:39 +00:00 · 2018-04-25 12:53:29 -07:00 · 2018-04-25 12:53:29 -07:00 · f2e46f0fdf
commit f2e46f0fdf
parent fc61bc79c5
8 changed files with 287 additions and 2 deletions
--- a/asminc/accelerator.inc
+++ b/asminc/accelerator.inc
@ -43,7 +43,20 @@ C64DTV_Fast = $03


 ; ---------------------------------------------------------------------------
-; C128 in C64 mode
+; C128 native and C128 in C64 mode

 C128_VICIIE_CLK := $D030

+
+; ---------------------------------------------------------------------------
+; C64 Chameleon cartridge
+
+CHAMELEON_CFGTUR := $D0F3
+CHAMELEON_CFGENA := $D0FE
+
+CHAMELEON_ENABLE_REGS  = $2A
+CHAMELEON_DISABLE_REGS = $FF
+
+CHAMELEON_CFGTUR_LIMIT_1MHZ = %00001100
+CHAMELEON_CFGTUR_LIMIT_NONE = %10000000
+
--- a/doc/c64.sgml
+++ b/doc/c64.sgml
@ -177,12 +177,15 @@ url="funcref.html" name="function reference"> for declaration and usage.
 <itemize>
 <item>detect_c128
 <item>detect_c64dtv
+<item>detect_chameleon
 <item>detect_scpu
 <item>get_c128_speed
 <item>get_c64dtv_speed
+<item>get_chameleon_speed
 <item>get_scpu_speed
 <item>set_c128_speed
 <item>set_c64dtv_speed
+<item>set_chameleon_speed
 <item>set_scpu_speed
 </itemize>

--- a/doc/funcref.sgml
+++ b/doc/funcref.sgml
@ -70,12 +70,15 @@ function.
 <itemize>
 <item><ref id="detect_c128" name="detect_c128">
 <item><ref id="detect_c64dtv" name="detect_c64dtv">
+<item><ref id="detect_chameleon" name="detect_chameleon">
 <item><ref id="detect_scpu" name="detect_scpu">
 <item><ref id="get_c128_speed" name="get_c128_speed">
 <item><ref id="get_c64dtv_speed" name="get_c64dtv_speed">
+<item><ref id="get_chameleon_speed" name="get_chameleon_speed">
 <item><ref id="get_scpu_speed" name="get_scpu_speed">
 <item><ref id="set_c128_speed" name="set_c128_speed">
 <item><ref id="set_c64dtv_speed" name="set_c64dtv_speed">
+<item><ref id="set_chameleon_speed" name="set_chameleon_speed">
 <item><ref id="set_scpu_speed" name="set_scpu_speed">
 </itemize>

@ -2966,6 +2969,26 @@ used in presence of a prototype.
 </quote>


+<sect1>detect_chameleon<label id="detect_chameleon"><p>
+
+<quote>
+<descrip>
+<tag/Function/Check for the presence of the C64 Chameleon cartridge.
+<tag/Header/<tt/<ref id="accelerator.h" name="accelerator.h">/
+<tag/Declaration/<tt/unsigned char detect_chameleon (void);/
+<tag/Description/The function returns a 1 if a C64 Chameleon cartridge has been detected.
+<tag/Notes/<itemize>
+<item>The function is specific to the C64.
+</itemize>
+<tag/Availability/cc65 (not all platforms)
+<tag/See also/
+<ref id="get_chameleon_speed" name="get_chameleon_speed">,
+<ref id="set_chameleon_speed" name="set_chameleon_speed">,
+<tag/Example/None.
+</descrip>
+</quote>
+
+
 <sect1>detect_scpu<label id="detect_scpu"><p>

 <quote>
@ -3569,6 +3592,28 @@ header files define constants that can be used to check the return code.
 </quote>


+<sect1>get_chameleon_speed<label id="get_chameleon_speed"><p>
+
+<quote>
+<descrip>
+<tag/Function/Get the current speed of the C64 Chameleon cartridge.
+<tag/Header/<tt/<ref id="accelerator.h" name="accelerator.h">/
+<tag/Declaration/<tt/unsigned char get_chameleon_speed (void);/
+<tag/Description/The function returns the current speed of the C64 Chameleon cartridge.
+<tag/Notes/<itemize>
+<item>The function is specific to the C64.
+<item>The function does not check for the presence of the C64 Chameleon cartridge.
+<item>See the accelerator.h header for the speed definitions.
+</itemize>
+<tag/Availability/cc65 (not all platforms)
+<tag/See also/
+<ref id="detect_chameleon" name="detect_chameleon">,
+<ref id="set_chameleon_speed" name="set_chameleon_speed">,
+<tag/Example/None.
+</descrip>
+</quote>
+
+
 <sect1>get_scpu_speed<label id="get_scpu_speed"><p>

 <quote>
@ -6186,6 +6231,28 @@ clean-up when exitting the program.
 </quote>


+<sect1>set_chameleon_speed<label id="set_chameleon_speed"><p>
+
+<quote>
+<descrip>
+<tag/Function/Set the current speed of the C64 Chameleon cartridge.
+<tag/Header/<tt/<ref id="accelerator.h" name="accelerator.h">/
+<tag/Declaration/<tt/unsigned char __fastcall__ set_chameleon_speed (unsigned char speed);/
+<tag/Description/The function returns the speed after trying to set the speed of the C64 Chameleon cartridge.
+<tag/Notes/<itemize>
+<item>The function is specific to the C64.
+<item>The function does not check for the presence of the C64 Chameleon cartridge.
+<item>See the accelerator.h header for the speed definitions.
+</itemize>
+<tag/Availability/cc65 (not all platforms)
+<tag/See also/
+<ref id="detect_chameleon" name="detect_chameleon">,
+<ref id="get_chameleon_speed" name="get_chameleon_speed">,
+<tag/Example/None.
+</descrip>
+</quote>
+
+
 <sect1>set_scpu_speed<label id="set_scpu_speed"><p>

 <quote>
--- a/include/accelerator.h
+++ b/include/accelerator.h
@ -174,6 +174,58 @@ extern unsigned char detect_c128 (void);
 * 0x01  : C128 CPU is the current CPU
 */

+
+/* C64 Chameleon cartridge */
+
+extern unsigned char __fastcall__ set_chameleon_speed (unsigned char speed);
+
+/* Set the speed of the C64 Chameleon cartridge, the following inputs
+ * are accepted: 
+ * SPEED_SLOW : 1 Mhz mode
+ * SPEED_1X   : 1 Mhz mode
+ * SPEED_2X   : 2 Mhz mode
+ * SPEED_3X   : 3 Mhz mode
+ * SPEED_4X   : 4 Mhz mode
+ * SPEED_5X   : 5 Mhz mode
+ * SPEED_6X   : 6 Mhz mode
+ * SPEED_FAST : Maximum speed mode
+ *
+ * Note that any value higher or equal to SPEED_7X will switch to maximum
+ * speed mode.
+ *
+ * This function will return the actual speed the CPU is at after trying
+ * to set the requested speed, to my knowledge the switching should not fail.
+ *
+ * This function does not check for the presence of the C64 Chameleon cartridge,
+ * make sure you use 'detect_chameleon();' before using.
+ */
+
+extern unsigned char get_chameleon_speed (void);
+
+;/* Get the speed of the C64 Chameleon cartridge.
+; *
+; * Possible return values:
+; * SPEED_SLOW  : Slow mode
+; * SPEED_2X    : 2Mhz mode
+; * SPEED_3X    : 3Mhz mode
+; * SPEED_4X    : 4Mhz mode
+; * SPEED_5X    : 5Mhz mode
+; * SPEED_6X    : 6Mhz mode
+; * SPEED_FAST  : Maximum speed mode
+; *
+; * This function does not check for the presence of the C64 Chameleon cartridge,
+; * make sure you use 'detect_chameleon();' before using.
+; */
+
+extern unsigned char detect_chameleon (void);
+
+/* Check for the presence of the C64 Chameleon cartridge.
+ *
+ * Possible return values:
+ * 0x00  : C64 Chameleon cartridge not present
+ * 0x01  : C64 Chameleon cartridge present
+ */
+
 /* End of accelerator.h */
 #endif

--- a/libsrc/c64/acc_chameleon_speed.s
+++ b/libsrc/c64/acc_chameleon_speed.s
@ -0,0 +1,100 @@
+;
+; Marco van den Heuvel, 2018-04-25
+;
+
+; extern unsigned char __fastcall__ set_chameleon_speed (unsigned char speed);
+;
+;/* Set the speed of the Chameleon cartridge, the following inputs
+; * are accepted: 
+; * SPEED_SLOW : 1 Mhz mode
+; * SPEED_1X   : 1 Mhz mode
+; * SPEED_2X   : 2 Mhz mode
+; * SPEED_3X   : 3 Mhz mode
+; * SPEED_4X   : 4 Mhz mode
+; * SPEED_5X   : 5 Mhz mode
+; * SPEED_6X   : 6 Mhz mode
+; * SPEED_FAST : Maximum speed mode
+; *
+; * Note that any value higher or equal to SPEED_7X will switch to maximum
+; * speed mode.
+; *
+; * This function will return the actual speed the CPU is at after trying
+; * to set the requested speed, to my knowledge the switching should not fail.
+; *
+; * This function does not check for the presence of the Chameleon cartridge,
+; * make sure you use 'detect_chameleon();' before using.
+; */
+
+; extern unsigned char get_chameleon_speed (void);
+;
+;/* Get the speed of the Chameleon cartridge.
+; *
+; * Possible return values:
+; * SPEED_SLOW  : Slow mode
+; * SPEED_2X    : 2Mhz mode
+; * SPEED_3X    : 3Mhz mode
+; * SPEED_4X    : 4Mhz mode
+; * SPEED_5X    : 5Mhz mode
+; * SPEED_6X    : 6Mhz mode
+; * SPEED_FAST  : Maximum speed mode
+; *
+; * This function does not check for the presence of the Chameleon cartridge,
+; * make sure you use 'detect_chameleon();' before using.
+; */
+
+        .export         _set_chameleon_speed
+        .export         _get_chameleon_speed
+
+        .include        "accelerator.inc"
+
+_set_chameleon_speed:
+        cmp     #SPEED_7X
+        bcs     maximum_speed
+        cmp     #SPEED_1X
+        beq     low_speed
+        ora     #$80
+set_speed:
+        jsr     activate_regs
+        sta     CHAMELEON_CFGTUR
+        jmp     return_speed
+
+low_speed:
+        lda     #CHAMELEON_CFGTUR_LIMIT_1MHZ
+        bne     set_speed
+
+maximum_speed:
+        lda     #CHAMELEON_CFGTUR_LIMIT_NONE
+        bne     set_speed
+
+_get_chameleon_speed:
+        jsr     activate_regs
+return_speed:
+        ldx     #$00
+        lda     CHAMELEON_CFGTUR
+        tay
+        and     #%10000000
+        beq     return_value
+        tya
+        and     #%00001000
+        bne     is_slow_mode
+        tya
+        and     #%00000111
+        beq     is_max_mode
+return_value:
+        ldy     #CHAMELEON_DISABLE_REGS
+        sty     CHAMELEON_CFGENA
+        rts
+
+is_slow_mode:
+        txa
+        bne     return_value
+
+is_max_mode:
+        lda     #SPEED_FAST
+        bne     return_value
+
+activate_regs:
+        ldy     #CHAMELEON_ENABLE_REGS
+        sty     CHAMELEON_CFGENA
+        rts
+
--- a/libsrc/c64/acc_detect_chameleon.s
+++ b/libsrc/c64/acc_detect_chameleon.s
@ -0,0 +1,39 @@
+;
+; Marco van den Heuvel, 2018-04-25
+;
+
+; unsigned char detect_chameleon (void);
+;
+;/* Check for the presence of the Chameleon cartridge.
+; *
+; * Possible return values:
+; * 0x00  : Chameleon cartridge not present
+; * 0x01  : Chameleon cartridge present
+; */
+
+        .export         _detect_chameleon
+
+        .include        "accelerator.inc"
+
+_detect_chameleon:
+        lda     #$00
+        tax
+
+; Make sure the CPU is a 6510
+        .byte   $1A                   ; NOP on 6510, INA on 65(S)C(E)02, 4510 and 65816
+        bne     not_found
+
+        ldy     CHAMELEON_CFGENA
+        lda     #CHAMELEON_ENABLE_REGS
+        sta     CHAMELEON_CFGENA
+        lda     CHAMELEON_CFGENA
+        sty     CHAMELEON_CFGENA
+        cmp     #$FF
+        beq     not_found
+found:
+        lda     #$01
+        .byte   $2C
+not_found:
+        lda     #$00
+        rts
+
--- a/testcode/lib/accelerator/Makefile
+++ b/testcode/lib/accelerator/Makefile
@ -1,7 +1,7 @@
 CL ?= cl65

 all:	c64-scpu-test.prg c128-scpu-test.prg c64dtv-test.prg \
-	c64-c128-test.prg c128-test.prg
+	c64-c128-test.prg c128-test.prg chameleon-test.prg

 c64-scpu-test.prg: c64-c128-scpu-test.c
 	$(CL) -t c64 c64-c128-scpu-test.c -o c64-scpu-test.prg
@ -17,3 +17,6 @@ c64-c128-test.prg: c64-c128-test.c

 c128-test.prg: c64-c128-test.c
 	$(CL) -t c128 c64-c128-test.c -o c128-test.prg
+
+chameleon-test.prg: chameleon-test.c
+	$(CL) -t c64 chameleon-test.c -o chameleon-test.prg
--- a/testcode/lib/accelerator/chameleon-test.c
+++ b/testcode/lib/accelerator/chameleon-test.c
@ -0,0 +1,8 @@
+/* C64 Chameleon accelerator test code. */
+
+#define ACC_DETECT      detect_chameleon
+#define ACC_GET_SPEED   get_chameleon_speed
+#define ACC_SET_SPEED   set_chameleon_speed
+#define ACC_NAME        "Chameleon cartridge"
+
+#include "turbo-test.c"