;; #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