projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
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 |