| 1 | C -+-+-+-+-+ \ e H P F L D . F T \ e -+-+-+-+-+\r |
| 2 | INTEGER FUNCTION FLD(IPA1,IPA2,IPA3)\r |
| 3 | C FLD: EXTRACT THE IPA2 BITS STARTING WITH BIT # IPA1 OF THE \r |
| 4 | C VARIABLE IPA3. THE BITS ARE NUMBERED FROM LEFT TO THE RIGHT STARTING\r |
| 5 | C WITH BIT 0.\r |
| 6 | C I=FLD(0,6,VAR) @ RETURNS THE FIRST CHARACTER PLACED IN VAR\r |
| 7 | C I=FLD(0,12,VAR) @ RETURNS THE FIRST WORD OF VAR\r |
| 8 | C THE RESULT IS R.J.Z.F. .\r |
| 9 | INTEGER SHIFT\r |
| 10 | EXTERNAL SHIFT\r |
| 11 | FLD=SHIFT(36-IPA2,SHIFT(-1*IPA1,IPA3))\r |
| 12 | END\r |
| 13 | \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 |