LAP
	ENTRY SRAND
	ENTRY IRAND
	ENTRY RAND
SRAND,  BLOCK 2
IR1,    CLA IAC
        DCA R3
        DCA R2
        DCA R1
        RETRN SRAND
IRAND,  BLOCK 2
        JMS RN
        INC IRAND#
        INC IRAND#
        RETRN IRAND
RAND,   BLOCK 2
        JMS RN
        JMS SHL3
        DCA ACM
        TAD T1
        RAL
        AND K7
        TAD K2000
        DCA ACH
        TAD R2
        JMS SHL3
        DCA ACL
        TAD T1
        RAL
        AND K7
        TAD ACM
        DCA ACM
        TAD R3
        CLL RTL
        RTL
        AND K7
        TAD ACL
         DCA ACL
        INC RAND#
        INC RAND#
        RETRN RAND
SHL3,   HLT
        CLL RTL
        RAL
        DCA T1
        TAD T1
        AND K7770
        JMP I SHL3
RN,     HLT
        CLA
        TAD R3
        RAL
        AND K7400
        DCA T3
        TAD R2
        AND K177
        TAD T3
        RTL
        RTL
        RAL
        DCA T1
        TAD R3
        AND K177
        RTL
        RTL
         RAL
        TAD R2
        DCA T2
        SZL
        ISZ T1
        NOP
        TAD R3
        CLL RAL
        SZL
        ISZ T2
        SKP
        ISZ T1
        NOP
        CLL
        TAD R3
        DCA R3
         TAD R2
        RAL
        SZL
        ISZ T1
        NOP
        CLL
        TAD T2
        DCA R2
        TAD R1
        RAL
        TAD R1
         TAD T1
        DCA R1
        TAD R1
        JMP I RN
K7,      7
K177,     177
K2000,   2000
K7400,   7400
K7770,   7770
T1,      0
T2,      0
T3,      0
R1,       0
R2,      0
R3,      0
         END