Added kernal replacement routines for RDTIM and SETTIM.

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

diff --git a/libsrc/cbm510/Makefile b/libsrc/cbm510/Makefile
index 4760f297398591a6ba19e273c2bc8cbdcddce8d6..64d453d8a7d36edf2c0718bbfd5b1c9ba6a21dad 100644 (file)
--- a/libsrc/cbm510/Makefile
+++ b/libsrc/cbm510/Makefile
@@ -66,10 +66,12 @@ OBJS =      _scrsize.o      \
         kernal.o        \
        kiobase.o       \
        kopen.o         \
+        krdtim.o        \
         kreadst.o       \
        kscnkey.o       \
        kscreen.o       \
         ksetnam.o       \
+        ksettim.o       \
        kudtim.o        \
         mainargs.o      \
        peeksys.o       \

diff --git a/libsrc/cbm510/krdtim.s b/libsrc/cbm510/krdtim.s
new file mode 100644 (file)
index 0000000..85e2f5a
--- /dev/null
+++ b/libsrc/cbm510/krdtim.s
@@ -0,0 +1,21 @@
+;
+; Ullrich von Bassewitz, 2003-12-19
+;
+; RDTIM kernal call
+;
+
+        .export         RDTIM
+        .import         time : zeropage
+
+
+.proc   RDTIM
+
+       sei
+       lda     time+0
+       ldx     time+1
+       ldy     time+2
+       cli
+       rts
+
+.endproc
+

diff --git a/libsrc/cbm510/ksettim.s b/libsrc/cbm510/ksettim.s
new file mode 100644 (file)
index 0000000..dab570f
--- /dev/null
+++ b/libsrc/cbm510/ksettim.s
@@ -0,0 +1,21 @@
+;
+; Ullrich von Bassewitz, 2003-12-19
+;
+; SETTIM kernal call
+;
+
+        .export         SETTIM
+        .import         time : zeropage
+
+
+.proc   SETTIM
+
+       sei
+       sta     time+0
+       stx     time+1
+       sty     time+2
+       cli
+       rts
+
+.endproc
+