INTERNAL ITBMOV
ITBMOV:	0
	MOVE	0,	@1(16)
	HRRM	0,	SHIFT
	MOVE	0,	@(16)
SHIFT:	LSH	0,	0
	JRA	16,	2(16)
	END