;converted to pushj/popj convention 11 Oct 1980
;by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20
      TITLE RNG
RNG:      MOVEM 3,SAV3#
      MOVEM 4,SAV4#
      MOVEM 5,SAV5#
      MOVEM 6,SAV6#
     HRRZI 4,0
     HRLZI 3,-20
      MOVE 5,@(16)
 RF1:LSH 5, 13
     ADD 5, CONS1
      ADDB 5,@(16)
     HLRZM 5,6
     ADD 4,6
     AOBJN  3, RF1
     TLO 4, 205000
     FSB 4, CONS2
     FMP 4, CONS3
      MOVEM 4,@1(16)
      MOVE  3,SAV3
      MOVE  4,SAV4
      MOVE  5,SAV5
      MOVE  6,SAV6
	popj	17,
 CONS1:^D12345678901
 CONS2:177777777000
 CONS3:49.3699
   ENTRY RNG
     END