/RANDOM-NUMBER GENERATOR
        /I(N+1)=(2**18)*I(N)+3*I(N)	(MOD 2**35)
        /RND(0)=I(N)/2**35

        ENTRY RND
        ENTRY RANDM

        OPDEF BSW  7002
	OPDEF CIF0 6202
	OPDEF RIF  6224
        LAP

P3,     0
P2,     0
P1,     0
MASK1,  3400
MASK2,  0377
MASK3,  7400
MASK4,  7700
EXP,    2340
DIV,    2354;0;0
ZAEHL,  0
PSYS,	7607

RND,    BLOCK 2
        CLA CLL CMA RTL
        DCA ZAEHL
        TAD I3
        SNA
        TAD I2
        SNA
        TAD I1
        SNA CLA
        ISZ I2
        TAD I1
        BSW
        AND MASK4
        DCA P2
        TAD I2
        BSW
        AND MASK4
        DCA P1
        TAD I1
        AND MASK4
        BSW
        TAD P1
        DCA P3
        DCA P1
ADD,    CLL
        TAD P1
        TAD I1
        DCA P1
        RAL
        TAD P2
        TAD I2
        DCA P2
        RAL
        TAD P3
        TAD I3
        DCA P3
        ISZ ZAEHL
        JMP ADD
        CALL 0,CLEAR
        TAD P3
        AND MASK1
	CLL BSW;RTR
        TAD EXP
        DCA ACH
        TAD P3
        AND MASK2
        RTL;RTL
        DCA ZAEHL
        TAD P2
        AND MASK3
        BSW;RTR
        TAD ZAEHL
        DCA ACM
        TAD P2
        AND MASK2
        RTL;RTL
        DCA ZAEHL
        TAD P1
        AND MASK3
        BSW;RTR
        TAD ZAEHL
        DCA ACL
        CALL 1,FDV
        ARG DIV
	TAD P1
	DCA I1
	TAD P2
	DCA I2
	TAD P3
	DCA I3
        INC RND#
        INC RND#
        RETRN RND

RANDM,	BLOCK 2
	CLA CLL
	TAD ARG1
	AND MASK4
	RIF
	DCA ARG1
	CIF0
	JMS I PSYS
ARG1,	100
ARG2,	I3
	6
	HLT CLA
	TAD ARG1
	CLL RAL
	CLL CML RAR
	DCA ARG1
	RETRN RANDM

	PAGE
I3,	1011
I2,	-3564
I1,	2011

	END