TITLE ISHIFT ENTRY ISHIFT N=1 WORD=0 ISHIFT: 0 MOVE WORD,@(16) MOVE N,@1(16) HRRZ N,N LSH WORD,@N JRA 16,(16) END