random seed initialization added, tweaked sequence generation

2020-02-19 16:55:51 +01:00
1 parent 103325cc53
commit de605cd5ee
@@ -0,0 +1,27 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Initialize random seed using values from FAC1,
+// afterwards generate random number in FAC1
+//
+
+rnd_seed_from_FAC1:
+
+	lda FAC1_mantissa+0
+	sta RNDX+4
+
+	eor FAC1_mantissa+1
+	sta RNDX+3
+
+	eor FAC1_mantissa+2
+	sta RNDX+2
+
+	eor FAC1_mantissa+3
+	sta RNDX+1
+
+	eor FAC1_exponent
+	sta RNDX+0
+
+	jmp rnd_generate