Google
 

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