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

git-svn-id: svn://svn.cc65.org/cc65/trunk@1982 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/include/c128.h b/include/c128.h
index 205febd26711a6579a555eb978211ad7204c3b8b..746215a480b2dfd1e75d3b592d0a0fa790515954 100644 (file)
--- a/include/c128.h
+++ b/include/c128.h
@@ -98,6 +98,17 @@
 void toggle_videomode (void);
 /* 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 */

diff --git a/libsrc/c128/Makefile b/libsrc/c128/Makefile
index cad101c5900fd2d38629baa86ec0358c612ba3bf..36310200b0a3ddcc3f87eb3f13feed7a55c586f8 100644 (file)
--- a/libsrc/c128/Makefile
+++ b/libsrc/c128/Makefile
@@ -28,12 +28,14 @@
 
 OBJS = _scrsize.o              \
        break.o                 \
+       c64mode.o               \
        cgetc.o                 \
                clrscr.o                \
        conio.o                 \
        crt0.o                  \
                color.o                 \
        cputc.o                 \
+       fast.o                  \
         get_tv.o               \
        joy_stddrv.o            \
        kbhit.o                 \
@@ -42,6 +44,7 @@ OBJS =        _scrsize.o              \
         randomize.o            \
         revers.o               \
        rs232.o                 \
+       slow.o                  \
        tgi_mode_table.o        \
        toggle_videomode.o
 

diff --git a/libsrc/c128/c128.inc b/libsrc/c128/c128.inc
index e30c3b9b73a1e5c46d3a480a1b43f249bb665d80..aed393980133dcf93b00400ca8c4935af3e502de 100644 (file)
--- a/libsrc/c128/c128.inc
+++ b/libsrc/c128/c128.inc
@@ -47,7 +47,8 @@ KBDREAD               = $C006
 NEWLINE                = $C363
 PRINT          = $C322
 
-; Extended jump table
+; Extended jump table  
+C64MODE                = $FF4D
 SWAPPER                = $FF5F
 SETBNK          = $FF68
 

diff --git a/libsrc/c128/c64mode.s b/libsrc/c128/c64mode.s
new file mode 100644 (file)
index 0000000..88a632d
--- /dev/null
+++ b/libsrc/c128/c64mode.s
@@ -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
+

diff --git a/libsrc/c128/fast.s b/libsrc/c128/fast.s
new file mode 100644 (file)
index 0000000..abb32d2
--- /dev/null
+++ b/libsrc/c128/fast.s
@@ -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
+
+

diff --git a/libsrc/c128/slow.s b/libsrc/c128/slow.s
new file mode 100644 (file)
index 0000000..0c265ee
--- /dev/null
+++ b/libsrc/c128/slow.s
@@ -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
+
+