Google
 

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