X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Frescue%2Flab8e_goettingen%2Fdisk4_5%2Frka%2Fparoff%2Fhaescr.fi;fp=sw%2Frescue%2Flab8e_goettingen%2Fdisk4_5%2Frka%2Fparoff%2Fhaescr.fi;h=2d7a54d60dad71b21c69a947570b8803303b729a;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

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
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   -----
+C	* OR 18-OCT-83
+C
+C	I/O CONTROL COMMON BLOCK FOR UNIT 6/7 INPUT BUFFER
+C@
+C@	INPREC(1),WFLAG(1) CONTROLS THE FIRST BUFFER LOCATED IN COMMON CBUFR
+C@	INPREC(2),WFLAG(2) CONTROLS THE SECOND BUFFER BUFER2 LOCATED IN CDSCR
+C@	IF ONE INPUT BUFFER FOR UNIT 6/7: CHANGE THE DIMENSION TO 1 AND
+C@	DELETE BUFER2(85) AND CHANGE HAESAM ROUTINE: BUFCNT DATA STATEMENT AND
+C@	SOME CODE IN THE DO 15 LOOP.
+C@
+C
+	INTEGER INPREC(2)	@ BLOCK NUMBER ACTUALLY HOLD IN THE BUFFERS
+     *  , RECACT		@ HOLDS THE NUMBER OF THE BUFFER LAST USED BY ESAM
+     *  , BUFER2(85)		@ THE SECOND INPUT BUFFER
+	LOGICAL WFLAG(2)	@ THIS BUFFER WAS CHANGED BY ISAM ROUTINE, SO WE HAVE TO SAVE IT 
+	COMMON /CDSCR/ RECACT,INPREC,WFLAG,BUFER2
+C	-----
+
\ No newline at end of file