Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |