.TITLE	IISHFT
;+
;IISHFT---SHIFT INTEGER N BITS LEFT
;
;CREATED FROM ANALYSIS OF SOURCE (FORTRAN) CALL
;F. BORGER
;MICHAEL REESE MEDICAL CENTER
;DEPT OF MEDICAL PHYSICS
;
;ROUTINE USED BY 'ENTER' ROUTINE TO SHIFT 'ICLASS' TO UPPER
;BITS (15:11) OF 16 BIT FIELD
;
;CALL SEQUENCE	(THIS IS A FUNCTION !!!)
;
;	IXXX=IISHFT(IWORD,ICOUNT)
;
;	IWORD IS INTEGER VARIABLE TO BE SHIFTED
;	ICOUNT IS AMOUNT TO SHIFT (LEFT)
;
;
IISHFT:: MOV	@2(R5),R0	;GET WORD TO BE SHIFTED IN R0
	ASH	@4(R5),R0	;SHIFT HIM
	CLC			;JUST IN CASE (WE HOPE!)
	RTS	PC		;AND RETURN
	.END