Added C64 Chameleon accelerator code and documentation.
; ---------------------------------------------------------------------------
-; 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
+
<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>
<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>
</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>
</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>
</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>
* make sure you use 'detect_scpu();' before using.
*/
-extern unsigned char get_scpu_speed (void);
+unsigned char get_scpu_speed (void);
/* Get the speed of the SuperCPU cartridge.
*
* make sure you use 'detect_scpu();' before using.
*/
-extern unsigned char detect_scpu (void);
+unsigned char detect_scpu (void);
/* Check for the presence of the SuperCPU cartridge.
*
/* C64DTV */
-extern unsigned char __fastcall__ set_c64dtv_speed (unsigned char speed);
+unsigned char __fastcall__ set_c64dtv_speed (unsigned char speed);
/* Set the speed of the C64DTV, using SPEED_SLOW will switch to
* slow mode, SPEED_2X or SPEED_FAST will switch to fast mode.
* make sure you use 'detect_c64dtv();' before using.
*/
-extern unsigned char get_c64dtv_speed (void);
+unsigned char get_c64dtv_speed (void);
/* Get the speed of the C64DTV.
*
* make sure you use 'detect_c64dtv();' before using.
*/
-extern unsigned char detect_c64dtv (void);
+unsigned char detect_c64dtv (void);
/* Check for the presence of the C64DTV.
*
/* C128 8502 CPU */
-extern unsigned char __fastcall__ set_c128_speed (unsigned char speed);
+unsigned char __fastcall__ set_c128_speed (unsigned char speed);
/* Set the speed of the C128 8502 CPU, using SPEED_SLOW will switch to
* 1 Mhz (slow) mode, SPEED_2X or SPEED_FAST will switch to 2Mhz (fast) mode.
* you use 'detect_c128();' before using.
*/
-extern unsigned char get_c128_speed (void);
+unsigned char get_c128_speed (void);
/* Get the speed of the C128 8502 CPU.
*
* you use 'detect_c128();' before using.
*/
-extern unsigned char detect_c128 (void);
+unsigned char detect_c128 (void);
/* Check if the C128 CPU is the current CPU.
*
* 0x01 : C128 CPU is the current CPU
*/
+
+/* C64 Chameleon cartridge */
+
+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.
+ */
+
+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.
+; */
+
+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
; 2018-04-26, Greg King
;
-; extern unsigned char __fastcall__ set_c128_speed (unsigned char speed);
+; unsigned char __fastcall__ set_c128_speed (unsigned char speed);
;
;/* Set the speed of the C128 8502 CPU; using SPEED_SLOW will switch to
; * 1 Mhz (slow) mode, SPEED_2X or SPEED_FAST will switch to 2Mhz (fast) mode.
; * For C128 programs, no detect function call is needed.
; */
-; extern unsigned char get_c128_speed (void);
+; unsigned char get_c128_speed (void);
;
;/* Get the speed of the C128 8502 CPU.
; *
; Marco van den Heuvel, 2018-04-09
;
-; extern unsigned char __fastcall__ set_scpu_speed (unsigned char speed);
+; unsigned char __fastcall__ set_scpu_speed (unsigned char speed);
;
;/* Set the speed of the SuperCPU cartridge, using SPEED_SLOW will switch to
; * 1 Mhz mode, SPEED_20X or SPEED_FAST will switch to 20 Mhz mode.
; * make sure you use 'detect_scpu();' before using.
; */
-; extern unsigned char get_scpu_speed (void);
+; unsigned char get_scpu_speed (void);
;
;/* Get the speed of the SuperCPU cartridge.
; *
; Marco van den Heuvel, 2018-04-14
;
-; extern unsigned char __fastcall__ set_c64dtv_speed (unsigned char speed);
+; unsigned char __fastcall__ set_c64dtv_speed (unsigned char speed);
;
;/* Set the speed of the C64DTV, using SPEED_SLOW will switch to
; * slow mode, SPEED_2X or SPEED_FAST will switch to fast mode.
; * make sure you use 'detect_c64dtv();' before using.
; */
-; extern unsigned char get_c64dtv_speed (void);
+; unsigned char get_c64dtv_speed (void);
;
;/* Get the speed of the C64DTV.
; *
--- /dev/null
+;
+; Marco van den Heuvel, 2018-04-25
+;
+
+; 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.
+; */
+
+; 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
+
--- /dev/null
+;
+; 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 $24
+not_found:
+ txa
+ rts
+
; Marco van den Heuvel, 2018-04-09
;
-; extern unsigned char __fastcall__ set_scpu_speed (unsigned char speed);
+; unsigned char __fastcall__ set_scpu_speed (unsigned char speed);
;
;/* Set the speed of the SuperCPU cartridge, using SPEED_SLOW will switch to
; * 1 Mhz mode, SPEED_20X or SPEED_FAST will switch to 20 Mhz mode.
; * make sure you use 'detect_scpu();' before using.
; */
-; extern unsigned char get_scpu_speed (void);
+; unsigned char get_scpu_speed (void);
;
;/* Get the speed of the SuperCPU cartridge.
; *
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
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
--- /dev/null
+/* 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"
projects / cc65 / commitdiff