A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haescr.fi

diff --git a/sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haescr.fi b/sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haescr.fi
new file mode 100644 (file)
index 0000000..2d7a54d
--- /dev/null
+++ b/sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haescr.fi
@@ -0,0 +1,19 @@
+C      -----   H A E S C R . F I   -----\r
+C      * OR 18-OCT-83\r
+C\r
+C      I/O CONTROL COMMON BLOCK FOR UNIT 6/7 INPUT BUFFER\r
+C@\r
+C@     INPREC(1),WFLAG(1) CONTROLS THE FIRST BUFFER LOCATED IN COMMON CBUFR\r
+C@     INPREC(2),WFLAG(2) CONTROLS THE SECOND BUFFER BUFER2 LOCATED IN CDSCR\r
+C@     IF ONE INPUT BUFFER FOR UNIT 6/7: CHANGE THE DIMENSION TO 1 AND\r
+C@     DELETE BUFER2(85) AND CHANGE HAESAM ROUTINE: BUFCNT DATA STATEMENT AND\r
+C@     SOME CODE IN THE DO 15 LOOP.\r
+C@\r
+C\r
+       INTEGER INPREC(2)       @ BLOCK NUMBER ACTUALLY HOLD IN THE BUFFERS\r
+     *  , RECACT               @ HOLDS THE NUMBER OF THE BUFFER LAST USED BY ESAM\r
+     *  , BUFER2(85)           @ THE SECOND INPUT BUFFER\r
+       LOGICAL WFLAG(2)        @ THIS BUFFER WAS CHANGED BY ISAM ROUTINE, SO WE HAVE TO SAVE IT \r
+       COMMON /CDSCR/ RECACT,INPREC,WFLAG,BUFER2\r
+C      -----\r
+\1a
\ No newline at end of file