Fixed the random-seed generators for the Commodore targets.

They use a byte from the time counter; but, it is stored in big-endian order.

diff --git a/libsrc/c128/randomize.s b/libsrc/c128/randomize.s
index 5c57e04be42abb41321933decf6541dd9ed693be..ae63184a48dcd562cd86ac1513c0949346ef4d55 100644 (file)
--- a/libsrc/c128/randomize.s
+++ b/libsrc/c128/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -12,6 +13,6 @@
 
 __randomize:
         ldx     VIC_HLINE       ; Use VIC rasterline as high byte
-        lda     TIME            ; Use 60HZ clock as low byte
+        lda     TIME+2          ; Use 60HZ clock as low byte
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/c16/randomize.s b/libsrc/c16/randomize.s
index 903a0809a24becaa6b74123b5d3dfefc8b32ec9c..796ad118be35966aed24e8cf405f3bd073ed0287 100644 (file)
--- a/libsrc/c16/randomize.s
+++ b/libsrc/c16/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -12,6 +13,6 @@
 
 __randomize:
         ldx     TED_VLINELO     ; Use TED rasterline as high byte
-        lda     TIME            ; Use 60HZ clock as low byte
+        lda     TIME+2          ; Use 60HZ clock as low byte
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/c64/randomize.s b/libsrc/c64/randomize.s
index c77d6b411bde8d373e9b3ff219a85584e8d70709..d74bae91eea67437f19f23a2ef3dc577f7da1f54 100644 (file)
--- a/libsrc/c64/randomize.s
+++ b/libsrc/c64/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -12,6 +13,6 @@
 
 __randomize:              
         ldx     VIC_HLINE       ; Use VIC rasterline as high byte
-        lda     TIME            ; Use 60HZ clock as low byte
+        lda     TIME+2          ; Use 60HZ clock as low byte
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/cbm510/randomize.s b/libsrc/cbm510/randomize.s
index d5420165cb4c16291c20e695796281cd6042c23d..75c419ccbbcf1b7b7c2ba7a3d3958fc0c367dd8c 100644 (file)
--- a/libsrc/cbm510/randomize.s
+++ b/libsrc/cbm510/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -10,7 +11,7 @@
         .importzp       time
 
 __randomize:
-        ldx     time            ; Use 50/60HZ clock
+        ldx     time+2          ; Use 50/60HZ clock
         lda     time+1
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/cbm610/randomize.s b/libsrc/cbm610/randomize.s
index a936f8a2f3c02ce80a4a0428c6174673a8f44f74..d313baa1bfe1a2765d4fdd297d88abae6d939d55 100644 (file)
--- a/libsrc/cbm610/randomize.s
+++ b/libsrc/cbm610/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -10,7 +11,7 @@
         .importzp       time
 
 __randomize:               
-        ldx     time            ; Use 50/60HZ clock
+        ldx     time+2          ; Use 50/60HZ clock
         lda     time+1
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/pet/randomize.s b/libsrc/pet/randomize.s
index fc5f621af5b5c2f4ad91bd02578ac1823bece148..2c0fe722a49e40b8fc0cbf113ecfbd3c6439c5ab 100644 (file)
--- a/libsrc/pet/randomize.s
+++ b/libsrc/pet/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -11,7 +12,7 @@
         .include        "pet.inc"
 
 __randomize:              
-        ldx     TIME
+        ldx     TIME+2
         lda     TIME+1          ; Use 60HZ clock
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/plus4/randomize.s b/libsrc/plus4/randomize.s
index 6c7b863533df3eb4e258deea80a33653ab4ede43..2a7f6a44b7c83728b44903798b2ab10416ed26de 100644 (file)
--- a/libsrc/plus4/randomize.s
+++ b/libsrc/plus4/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -12,6 +13,6 @@
 
 __randomize:              
         ldx     TED_VLINELO     ; Use TED rasterline as high byte
-        lda     TIME            ; Use 60HZ clock as low byte
+        lda     TIME+2          ; Use 60HZ clock as low byte
         jmp     _srand          ; Initialize generator
 

diff --git a/libsrc/vic20/randomize.s b/libsrc/vic20/randomize.s
index 8a1c4eee73764e78e88e3d97901656949e630cb6..69cf07bb317c5a703e30393968e8ed8542935929 100644 (file)
--- a/libsrc/vic20/randomize.s
+++ b/libsrc/vic20/randomize.s
@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 05.11.2002
+; 2002-11-05, Ullrich von Bassewitz
+; 2015-09-11, Greg King
 ;
 ; void _randomize (void);
 ; /* Initialize the random number generator */
@@ -16,6 +17,6 @@ __randomize:
         lda     VIC_HLINE       ; Get bit 1-8 of rasterline
         rol     a               ; Use bit 0-7
         tax                     ; Use VIC rasterline as high byte
-        lda     TIME            ; Use 60HZ clock as low byte
+        lda     TIME+2          ; Use 60HZ clock as low byte
         jmp     _srand          ; Initialize generator