File SHIFT.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

	SUBROUTINE SHIFT(IN,IOUT,NSHIFT)
C SHIFTS THE INPUT "IN" BY THE ARGUMENT "NSHIFT"
C IF NSHIFT IS	: 0	IOUT=IN
C		> 0	IOUT IS "IN" SHIFTED RIGHT NSHIFT BITS
C			ZEROS FILLED FROM THE LEFT
C		< 0	IOUT IS "IN" SHIFTED LEFT NSHIFT BITS
C			ZEROS FILLED FROM THE RIGHT
C FORTRAN II
	IT=IN
	IF(NSHIFT)1000,1010,1020
1000	N=-NSHIFT
1002	DO 1005 J=1,N
S	CLA CLL
S	TAD \IT
S	RAL
S	DCA \IT
1005	CONTINUE
1010	IOUT=IT
	RETURN
1020	DO 1025 J=1,NSHIFT
S	CLA CLL
S	TAD \IT
S	RAR
S	DCA \IT
1025	CONTINUE
	GOTO 1010
	END

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search