projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C ----- H A E S C R . F I -----\r |
| 2 | C * OR 18-OCT-83\r | |
| 3 | C\r | |
| 4 | C I/O CONTROL COMMON BLOCK FOR UNIT 6/7 INPUT BUFFER\r | |
| 5 | C@\r | |
| 6 | C@ INPREC(1),WFLAG(1) CONTROLS THE FIRST BUFFER LOCATED IN COMMON CBUFR\r | |
| 7 | C@ INPREC(2),WFLAG(2) CONTROLS THE SECOND BUFFER BUFER2 LOCATED IN CDSCR\r | |
| 8 | C@ IF ONE INPUT BUFFER FOR UNIT 6/7: CHANGE THE DIMENSION TO 1 AND\r | |
| 9 | C@ DELETE BUFER2(85) AND CHANGE HAESAM ROUTINE: BUFCNT DATA STATEMENT AND\r | |
| 10 | C@ SOME CODE IN THE DO 15 LOOP.\r | |
| 11 | C@\r | |
| 12 | C\r | |
| 13 | INTEGER INPREC(2) @ BLOCK NUMBER ACTUALLY HOLD IN THE BUFFERS\r | |
| 14 | * , RECACT @ HOLDS THE NUMBER OF THE BUFFER LAST USED BY ESAM\r | |
| 15 | * , BUFER2(85) @ THE SECOND INPUT BUFFER\r | |
| 16 | LOGICAL WFLAG(2) @ THIS BUFFER WAS CHANGED BY ISAM ROUTINE, SO WE HAVE TO SAVE IT \r | |
| 17 | COMMON /CDSCR/ RECACT,INPREC,WFLAG,BUFER2\r | |
| 18 | C -----\r | |
| 19 | \1a |