| 1 | C -+-+-+-+-+ \ e H P I F L D . F T \ e -+-+-+-+-+\r |
| 2 | SUBROUTINE IFLD(START,LENG,OUT,INP)\r |
| 3 | C IFLD: INSERT INTO THE LENG BITS STARTING AT START THE RIGHTMOST \r |
| 4 | C BITS OF INP\r |
| 5 | C THE BITS ARE NUMBERED FROM LEFT TO THE RIGHT STARTING WITH BIT 0.\r |
| 6 | C\r |
| 7 | INTEGER START,LENG,OUT,INP\r |
| 8 | INTEGER SHIFT,IOR,IAND,INOT\r |
| 9 | EXTERNAL SHIFT,IOR,IAND,INOT\r |
| 10 | C\r |
| 11 | INTEGER MASK\r |
| 12 | MASK=SHIFT(-36+START+LENG,SHIFT(36-LENG,6H??????))\r |
| 13 | OUT=IOR(IAND(INOT(MASK),OUT), \r |
| 14 | * IAND(MASK,SHIFT(-36+START+LENG,INP)))\r |
| 15 | END\r |
| 16 | \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 |