1) EXPRS[S,AIL] and 2) EXPRS.OLD[S,AIL]	12-17-76 13:37	pages 4,4

**** File 1) EXPRS[S,AIL], Page 4 line 114
1)		JRST	[		;LSH, ASH, ROT (IMMEDIATE OPERAND NEEDED)
1)			PUSH	P,A
1)			TLNE	TBITS,CNST
1)			 JRST	[
1)	;;#XW# ! (1/2) JFR 12-12-76 IMMEDIATE OPERAND (SHIFT COUNT) IS INTEGER!
1)				GENMOV	(CONV,INSIST,INTEGR)
1)				HRL	C,$VAL(PNT)	;CONSTANT SHIFT AMOUNT
1)				POP	P,A		;RETRIEVE OPCODE
1)				HRRI	A,USADDR!NORLC
1)				JRST	EMGOX]
1)			HRLS	D		;SAVE CURRENT AC IN LH(D)
1)	;;#XW# ! (2/2) JFR 12-12-76 IMMEDIATE OPERAND (SHIFT COUNT) IS INTEGER!
1)			GENMOV	(GET,INDX!POSIT!PROTECT!INSIST,INTEGR)	;SHIFT CNT IS INTEGR
1)			MOVSS	D		;GET BACK AC
1)			HRRZS	ACKTAB(D)	;UNPROTECT ARG1'S
1)			TRNE	TBITS,DBLPRC
1)			 HRRZS	ACKTAB+1(D)	;UNPROTECT 2ND AC OF LONG
1)			POP	P,A		;AND INSTR
1)			HRRI	A,USX!NOADDR
1)			JRST	.+1]
1)	EMGOX:	PUSHJ	P,EMITER	;DO THE EMIT. !! AN ARITHMETIC INSTRUCTION !!
**** File 2) EXPRS.OLD[S,AIL], Page 4 line 114
2)		JRST	[TRO A,USADDR!NORLC	;PREPARE FOR CONSTANT OPERAND.
2)			 HRL C,$VAL(PNT)	;VALUE
2)			 TLNE TBITS,CNST	;WERE WE JUSTIFIED?
2)			 JRST .+1		;YES
2)			 PUSH P,A		;THIS IS FOR ROT AND LSH, ETC.
2)			 HRLS  D		;WE WANT A NEW ACCUMULATOR.
2)			PRINTX PROBABLY WANT 2ND WORD OF LONG INTEGER HERE
2)			 GENMOV (GET,INDX!POSIT!PROTECT);WHILE WE PROTECT THIS ONE
2)			 MOVSS D		;SWAP BACK FOR THE OPERATION.
2)			 HRRZS	ACKTAB	(D)	;UNPROTECT ARG1'S
2)			 POP P,A		;FOR THE OP CODE.
2)			 HRRI A,USX!NOADDR
2)		 	 JRST .+1]
2)	EMGOX:	PUSHJ	P,EMITER	;DO THE EMIT. !! AN ARITHMETIC INSTRUCTION !!
***************