.TITLE LSHIFT ; JEFFREY KODOSKY ARL AUG76 ; ; SUBR ; ENTRY: 2 ARGS ; ; EXIT: 1 ARG ; 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