bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Added fast(), slow() and c64mode()

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1982 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2003-02-13 21:29:12 +00:00
parent 332c37fa04
commit 8c7400c26e
6 changed files with 74 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
include/c128.h
View File

@@ -98,6 +98,17 @@
void toggle_videomode (void); void toggle_videomode (void);
/* Toggle the video mode between 40 and 80 chars (calls SWAPPER) */ /* Toggle the video mode between 40 and 80 chars (calls SWAPPER) */
void c64mode (void);
/* Switch the C128 into C64 mode. Note: This function will not return! */
void fast (void);
/* Switch the CPU into 2MHz mode. Note: This will disable video when in
* 40 column mode.
*/
void slow (void);
/* Switch the CPU into 1MHz mode. */
/* End of c128.h */ /* End of c128.h */

3
libsrc/c128/Makefile
View File

@@ -28,12 +28,14 @@
OBJS = _scrsize.o \ OBJS = _scrsize.o \
break.o \ break.o \
c64mode.o \
cgetc.o \ cgetc.o \
clrscr.o \ clrscr.o \
conio.o \ conio.o \
crt0.o \ crt0.o \
color.o \ color.o \
cputc.o \ cputc.o \
fast.o \
get_tv.o \ get_tv.o \
joy_stddrv.o \ joy_stddrv.o \
kbhit.o \ kbhit.o \
@@ -42,6 +44,7 @@ OBJS = _scrsize.o \
randomize.o \ randomize.o \
revers.o \ revers.o \
rs232.o \ rs232.o \
slow.o \
tgi_mode_table.o \ tgi_mode_table.o \
toggle_videomode.o toggle_videomode.o

1
libsrc/c128/c128.inc
View File

@@ -48,6 +48,7 @@ NEWLINE = $C363
PRINT = $C322 PRINT = $C322
; Extended jump table ; Extended jump table
C64MODE = $FF4D
SWAPPER = $FF5F SWAPPER = $FF5F
SETBNK = $FF68 SETBNK = $FF68

13
libsrc/c128/c64mode.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Ullrich von Bassewitz, 2003-02-13
;
; void c64mode (void);
; /* Switch the C128 into C64 mode. Note: This function will not return! */
;
.export _c64mode
.include "c128.inc"
_c64mode = C64MODE

23
libsrc/c128/fast.s Normal file
View File

@@ -0,0 +1,23 @@
;
; Ullrich von Bassewitz, 2003-02-13
;
; void fast (void);
; /* Switch the CPU into 2MHz mode. Note: This will disable video when in
; * 40 column mode.
; */
;
.export _fast
.include "c128.inc"
.proc _fast
lda #$01
sta VIC_CLK_128
rts
.endproc

22
libsrc/c128/slow.s Normal file
View File

@@ -0,0 +1,22 @@
;
; Ullrich von Bassewitz, 2003-02-13
;
; void slow (void);
; /* Switch the CPU into 1MHz mode. */
; */
;
.export _slow
.include "c128.inc"
.proc _slow
lda #$00
sta VIC_CLK_128
rts
.endproc