Added isfast function which returns a 1 when the C128 is in 2MHz mode.

2018-03-20 13:11:24 -07:00
parent b7a5dd76e9
commit 5d4116f05f
4 changed files with 50 additions and 1 deletions
--- a/libsrc/c128/isfast.s
+++ b/libsrc/c128/isfast.s
@@ -0,0 +1,20 @@
+;
+; Marco van den Heuvel, 2018-03-19
+;
+; unsigned char isfast (void);
+; /* Returns 1 if the CPU is in 2MHz mode. */
+;
+
+        .export         _isfast
+
+        .include        "c128.inc"
+
+
+.proc   _isfast
+
+        lda     VIC_CLK_128
+        and     #$01
+        rts
+
+.endproc
+