;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