Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0026/randu.ssp
There are 2 other files named randu.ssp in the archive. Click here to see a list.
	SUBROUTINE RANDU(IX,IY,YFL)
	CALL SETRAN(IX)
	YFL=RAN(0)
	CALL SAVRAN(IY)
	RETURN
	END