Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0050/tblmac.mac
There are 2 other files named tblmac.mac in the archive. Click here to see a list.
;I=ITBMOV(J,K)
;RETURNS J SHIFTED K BITS (K POS=LEFT, NEG=RIGHT)
INTERNAL ITBMOV
ITBMOV: MOVE 0, @1(16)
HRRM 0, SHIFT
MOVE 0, @(16)
SHIFT: LSH 0, 0
POPJ 17,
END