From e907b57e9c16cff8406d1c340eb845aabe47a2a8 Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 25 Nov 2010 20:39:46 +0000
Subject: [PATCH] Added kernal replacement routines for RDTIM and SETTIM.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4882 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm510/Makefile  |  2 ++
 libsrc/cbm510/krdtim.s  | 21 +++++++++++++++++++++
 libsrc/cbm510/ksettim.s | 21 +++++++++++++++++++++
 3 files changed, 44 insertions(+)
 create mode 100644 libsrc/cbm510/krdtim.s
 create mode 100644 libsrc/cbm510/ksettim.s

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