Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50053/crand.mac
There are 2 other files named crand.mac in the archive. Click here to see a list.
TITLE CRAND COMPLEX RANDOM NUMBER
SUBTTL V.001 R.S.TOMLINSON 19 AUG 68
ENTRY CRAND
INTERN CRAND
EXTERN RANDOM
CRAND: 0
MOVEI 0,@0(16) ; GET LOCATION OF LOWER LIMIT
HRRM 0,CRAND1
AOS 0
HRRM 0,CRAND2
MOVEI 0,@1(16) ; GET LOCATION OF UPPER LIMIT
HRRM 0,CRAND1+1
AOS 0
HRRM 0,CRAND2+1
JSA 16,RANDOM
CRAND2: JUMP 02,.
JUMP 02,.
MOVEM 0,CRANDT#
JSA 16,RANDOM
CRAND1: JUMP 02,.
JUMP 02,.
MOVE 1,CRANDT
JRA 16,2(16)
END