New randomize() function for nearly all platforms

git-svn-id: svn://svn.cc65.org/cc65/trunk@1487 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-05 10:48:20 +00:00
parent 444aa7c944
commit 3fae969b5b
19 changed files with 142 additions and 7 deletions
--- a/libsrc/cbm610/Makefile
+++ b/libsrc/cbm610/Makefile
@@ -27,6 +27,7 @@ OBJS =	_scrsize.o	\
 	kudtim.o	\
 	peeksys.o	\
 	pokesys.o	\
+        randomize.o     \
 	rs232.o

 all:	$(OBJS)
--- a/libsrc/cbm610/randomize.s
+++ b/libsrc/cbm610/randomize.s
@@ -0,0 +1,16 @@
+;
+; Ullrich von Bassewitz, 05.11.2002
+;
+; void randomize (void);
+; /* Initialize the random number generator */
+;
+
+    	.export	       	_randomize
+	.import		_srand
+        .importzp       time
+
+_randomize:
+        ldx     time            ; Use 50/60HZ clock
+        lda     time+1
+        jmp     _srand          ; Initialize generator
+