.TITLE	LSHIFT		
; JEFFREY KODOSKY	ARL	AUG76
;
; SUBR
; ENTRY:	2 ARGS		<N1>;<N2>
; EXIT:		1 ARG		<INTEGER>
; ERRORS:	NONE
; CALLS:	ATM2N
;		RI
;		I2ATM
	.GLOBL	LSHIFT,ZLSHIFT,QATM2N,QRI,QI2ATM
LSHIFT:	QATM2N		;GET N1 (SHIFTEE)
	BCC	.+4
	QRI
	QATM2N		;GET N2 (SHIFTER)
	BCC	.+4
	QRI
	MOV	(SP)+,R0
	BEQ	SHIFTED	;JUMP IF NO SHIFTING TO DO
	BPL	4$	;JUMP IF LEFT SHIFT
1$:	ASR	@SP	;RIGHT SHIFT
	INC	R0
	BMI	1$
	BR	SHIFTED
4$:	ASL	@SP
	ADC	@SP
	DEC	R0
	BGT	4$
SHIFTED:QI2ATM
	.WORD	0
ZLSHIFT=.-LSHIFT
	.END