New randomize() function for nearly all platforms

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

libsrc/plus4/Makefile

@@ -20,6 +20,7 @@ OBJS =	_scrsize.o	\
 	cputc.o		\
 	crt0.o		\
 	kbhit.o		\
+        randomize.o     \
 	readjoy.o	\
 	tgi_mode_table.o
 

libsrc/plus4/plus4.inc

@@ -8,6 +8,7 @@
 
 ST   		= $90	     	; IEC status byte
 
+TIME            = $A3           ; 60HZ clock
 FNAM_LEN       	= $AB	     	; Length of filename
 SECADR		= $AD	     	; Secondary address
 DEVNUM		= $AE	     	; Device number

libsrc/plus4/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	"plus4.inc"
+
+_randomize:
+        ldx     TED_VLINELO     ; Use TED rasterline as high byte
+        lda     TIME            ; Use 60HZ clock as low byte
+        jmp     _srand          ; Initialize generator
+