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/pet/Makefile
+++ b/libsrc/pet/Makefile
@@ -19,7 +19,8 @@ OBJS =	_scrsize.o	\
 	conio.o		\
 	cputc.o		\
 	crt0.o		\
-	kbhit.o
+	kbhit.o         \
+        randomize.o     

 all:	$(OBJS)

--- a/libsrc/pet/pet.inc
+++ b/libsrc/pet/pet.inc
@@ -6,6 +6,7 @@
 ; ---------------------------------------------------------------------------
 ; Zero page, Commodore stuff

+TIME            = $8D           ; 60HZ clock
 MEMSIZE		= $34		; Size of memory installed
 ST     	       	= $96  	       	; IEC status byte
 SECADR		= $D3  	       	; Secondary address
--- a/libsrc/pet/randomize.s
+++ b/libsrc/pet/randomize.s
@@ -0,0 +1,17 @@
+;
+; Ullrich von Bassewitz, 05.11.2002
+;
+; void randomize (void);
+; /* Initialize the random number generator */
+;
+
+    	.export	       	_randomize
+	.import		_srand
+
+	.include	"pet.inc"
+
+_randomize:
+        ldx     TIME
+        lda     TIME+1          ; Use 60HZ clock
+        jmp     _srand          ; Initialize generator
+