From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 25 Nov 2010 20:39:46 +0000 (+0000)
Subject: Added kernal replacement routines for RDTIM and SETTIM.
X-Git-Tag: V2.13.3~574
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=e907b57e9c16cff8406d1c340eb845aabe47a2a8;p=cc65

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 4760f2973..64d453d8a 100644
--- 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
index 000000000..85e2f5a0c
--- /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
index 000000000..dab570fe6
--- /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
+