randinit.asm

来自「包含几个高效的矢量运算的数学函数」· 汇编 代码 · 共 26 行

 .bss rndnum,1 
 .def rndnum
	
;;
;; DEFINE CONSTANTS:
;;

RNDSEED .set    21845           ; seed value (i.e. rndnum(1) = 21845)
RNDMULT	.set	31821		; Multiplier value
RNDINC	.set	13849		; Increment value

;;
;; Initialize Random Number Generator -	Load the SEED value
;;

	.def	_ti_randinit
	.text

_ti_randinit:
	popd *
	ldp	#rndnum		; set data page to point to rndnum
	splk	#RNDSEED,rndnum	; rndnum = RNDSEED  load seed value
	lacl	rndnum		; ACCL = rndnum, ACCH = 0
	pshd *
        ret