A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / hpfld.ft

C	-+-+-+-+-+ \ e  H P F L D . F T  \ e -+-+-+-+-+\r
	INTEGER FUNCTION FLD(IPA1,IPA2,IPA3)\r
C	FLD:  EXTRACT THE IPA2 BITS STARTING WITH BIT # IPA1 OF THE \r
C	 VARIABLE IPA3. THE BITS ARE NUMBERED FROM LEFT TO THE RIGHT STARTING\r
C	 WITH BIT 0.\r
C	I=FLD(0,6,VAR) @ RETURNS THE FIRST CHARACTER PLACED IN VAR\r
C	I=FLD(0,12,VAR) @ RETURNS THE FIRST WORD OF VAR\r
C	THE RESULT IS R.J.Z.F. .\r
	INTEGER SHIFT\r
	EXTERNAL SHIFT\r
	FLD=SHIFT(36-IPA2,SHIFT(-1*IPA1,IPA3))\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0