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