empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added C64 Chameleon accelerator code and documentation.

Browse source
This commit is contained in:
Marco van den Heuvel 2018-04-25 12:53:29 -07:00
parent fc61bc79c5
commit f2e46f0fdf
8 changed files with 287 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
asminc/accelerator.inc
View file

@ -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

3
doc/c64.sgml
View file

@ -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>

67
doc/funcref.sgml
View file

@ -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>

52
include/accelerator.h
View file

@ -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

100
libsrc/c64/acc_chameleon_speed.s Executable file
View file

@ -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

39
libsrc/c64/acc_detect_chameleon.s Executable file
View file

@ -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

5
testcode/lib/accelerator/Makefile
View file

@ -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

8
testcode/lib/accelerator/chameleon-test.c Executable file
View file

@ -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"