Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0014/sub2.mac
There are 2 other files named sub2.mac in the archive. Click here to see a list.
;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