给你一个参考程序，希望对你有帮助
;===============================================================================
; 伪随机数函数的线性叠加
; 计算种子 = 种子 * 69069 + 1
;-------------------------------------------------------------------------------
; 输入:
; R_Seed0 <--- 种子0
; R_Seed1 <--- 种子1
; R_Seed2 <--- 种子2
; R_Seed3 <--- 种子3
; 回返:
; 种子0 ---> R_Seed0
; 种子1 ---> R_Seed1
; 种子2 ---> R_Seed2
; 种子3 ---> R_Seed3
; 重写
; R_Temp,R_Temp+1,R_Temp+2,R_Temp+3
;--------------------------------------------------------------------------------
; 空间: 173个字节
; 速度: F_RandomSeed 326个周期
;================================================================================
F_RandomSeed:
LDA R_Seed0 ; R_Temp= 种子 *2
ASL
STA R_Temp
LDA R_Seed1
ROL
STA R_Temp+1
LDA R_Seed2
ROL
STA R_Temp+2
LDA R_Seed3
ROL
STA R_Temp+3
CLC ; R_Temp= R_Temp+ 种子 (= 种子 *3)
LDA R_Seed0
ADC R_Temp
STA R_Temp
LDA R_Seed1
ADC R_Temp+1
STA R_Temp+1
LDA R_Seed2
ADC R_Temp+2
STA R_Temp+2
LDA R_Seed3
ADC R_Temp+3
STA R_Temp+3
CLC ; 种子 = 种子 +$10000* 种子
LDA R_Seed2
ADC R_Seed0
TAX ; 把字节2保存在X中(利于提高速度)
LDA R_Seed3
ADC R_Seed1
TAY ; 把字节3保存在Y中
CLC ; 种子 = 种子 +$100* 种子
LDA R_Seed1
ADC R_Seed0
PHA ; 压入堆栈字节1
TXA
ADC R_Seed1
TAX
TYA
ADC R_Seed2
TAY
LDA R_Temp ; R_Temp= R_Temp*4(= 旧种子 *$0C)
ASL
ROL R_Temp+1
ROL R_Temp+2
ROL R_Temp+3
ASL
ROL R_Temp+1
ROL R_Temp+2
ROL R_Temp+3
STA R_Temp
CLC ; 种子 = 种子 +R_Temp
ADC R_Seed0
STA R_Seed0
PLA ; 弹出堆栈的字节1
ADC R_Temp+1
STA R_Seed1
TXA
ADC R_Temp+2
TAX
TYA
ADC R_Temp+3
TAY
CLC
LDA R_Temp ; 种子 = 种子 + R_Temp*$100
ADC R_Seed1
STA R_Seed1
|
楼主
