Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50053/grand.mac
There are 2 other files named grand.mac in the archive. Click here to see a list.
TITLE GRAND GAUSSIAN RANDOM NUMBER GENERATOR
SUBTTL V.001 R.S.TOMLINSON 20 AUG 68
ENTRY GRAND
INTERN GRAND
EXTERN RANDOM,ALOG,SIN,SQRT
; CALL: JSA 16,GRAND
; ARG 02,<MEAN>
; ARG 02,<VARIANCE>
; RESULTS IN AC0
GRAND: 0
JSA 16,RANDOM
JUMP 2,[0]
JUMP 2,[1.0]
MOVEM 0,T1#
JSA 16,RANDOM
JUMP 2,[0]
JUMP 2,[6.28318531]
MOVEM 0,T2#
JSA 16,ALOG
JUMP 2,T1
FSC 0,1
MOVNM 0,T1
JSA 16,SQRT
JUMP 2,T1
MOVEM 0,T1
JSA 16,SIN
JUMP 2,T2
FMPR 0,T1
FMPR 0,@1(16)
FADR 0,@0(16)
JRA 16,2(16)
END