<<<--- % Author M.Ruckert LOC #100 Main IS @ --->>> PREFIX :RandI: X GREG 1 $X_0 \is 1$ a IS 6364136223846793005 (see Section 3.3.4, Table 1, line 26) c IS 2009 k IS $0 Parameter tmp IS $1 :RandI SETH tmp,(a>>48)&#FFFF load constant \.{a} INCMH tmp,(a>>32)&#FFFF INCML tmp,(a>>16)&#FFFF INCL tmp,a&#FFFF MULU X,X,tmp $ X \is a \cdot X $ INCL X,c $ X \is ( a \cdot X + c ) \bmod m$ MULU tmp,X,k $ (\.{rH},\.{tmp}) \is Xk $ GET $0,:rH $\hbox{Return value} \is \lfloor Xk/m \rfloor$. POP 1,0