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

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

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 */

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
 

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
 

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
+

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

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