Change random number handling

Author: willisblackburn

basic.s

@@ -102,6 +102,7 @@ S1 = FPX+2
 .include "poke.s"
 .include "print.s"
 .include "program.s"
+.include "random.s"
 .include "read.s"
 .include "run.s"
 .include "statements.s"

basic_ac6502.s

@@ -4,7 +4,6 @@
 
 .include "basic.s"
 .include "main.s"
-.include "random.s"
 .include "ac6502/ac6502.inc"
 .include "ac6502/ac6502_startup.s"
 .include "ac6502/ac6502_init.s"

basic_apple2.s

@@ -6,7 +6,6 @@ initialize_target = initialize_target_apple2
 
 .include "basic.s"
 .include "main.s"
-.include "random.s"
 .include "apple2/apple2.inc"
 .include "apple2/apple2_startup.s"
 .include "apple2/apple2_init.s"

basic_apple2_lc.s

@@ -6,7 +6,6 @@ initialize_target = initialize_target_apple2_lc
 
 .include "basic.s"
 .include "main.s"
-.include "random.s"
 .include "apple2/apple2.inc"
 .include "apple2/apple2_startup.s"
 .include "apple2/apple2_init.s"

basic_atari.s

@@ -4,7 +4,6 @@
 
 .include "basic.s"
 .include "main.s"
-.include "random.s"
 .include "atari/atari.inc"
 .include "atari/atari_startup.s"
 .include "atari/atari_init.s"

basic_sim6502.s

@@ -4,7 +4,6 @@
 
 .include "basic.s"
 .include "main.s"
-.include "random.s"
 .include "sim6502/sim6502_startup.s"
 .include "sim6502/sim6502_init.s"
 .include "sim6502/sim6502_io.s"

basic_tests.s

@@ -3,7 +3,6 @@
 ; SPDX-License-Identifier: MIT
 
 .include "basic.s"
-.include "random.s"
 .include "sim6502/sim6502_init.s"
 .include "sim6502/sim6502_io.s"
 .include "sim6502/sim6502_extension.s"

expect_tests/functions.exp

@@ -228,9 +228,9 @@ PRINT RND(0)=RND(0)
 1
 }
 
-# test {
-# PRINT RND(-1)<>RND(-2)
-# } {
-# 1
-# }
-# TODO: RND(-1) and RND(-2) produce the same seed because they have the same normalized mantissa.
+# RND(-1) and RND(-2) produce the same seed because they have the same normalized mantissa.
+test {
+PRINT RND(-1)=RND(-2)
+} {
+1
+}