Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0013/rn.mac
There are 2 other files named rn.mac in the archive. Click here to see a list.
	TITLE RN    RANDOM REAL FROM 1.0 TO 131071.
	SUBTTL V.001  J. BURCHFIEL 28 MAY 1969
; Modified to PUSHJ/POPJ calling convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20

	ENTRY RN
	INTERN RN
	EXTERN RANDOM

	P=17

RN:	PUSH P,1
	movei	16,[exp	[1.0]
		    exp [^d131071.]]
	pushj	p,random
	POP	P,1
	popj	p,
	END