5 * Revision 1.1.1.1 1996/03/06 10:47:11 mclareni
9 #include "zebra/pilot.h"
10 #if defined(CERNLIB_FZALFA)
13 C- Read 80 characters to the card buffer;
14 C- service routine to FZIASC.
16 #include "zebra/zbcd.inc"
17 #include "zebra/zkrakcc.inc"
18 #include "zebra/zstate.inc"
19 #include "zebra/zunit.inc"
20 #include "zebra/mqsysh.inc"
21 #include "zebra/fzci.inc"
22 C-------------- End CDE --------------
24 EQUIVALENCE (LINER,CQHOLK)
26 EQUIVALENCE (LUN,IQUEST(90)), (JSKIP,IQUEST(91))
27 EQUIVALENCE (MRSTA,IQUEST(92)), (MREND,IQUEST(93))
28 EQUIVALENCE (JTKC,IQUEST(96)), (JTKL,IQUEST(97))
32 C-- Save trailing card buffer not yet analysed
39 #if defined(CERNLIB_FQABLANK)
41 CALL UCOPY2 (IQKRAK(JTKC),IQKRAK(JTKC+NSH),NSV)
46 18 IQKRAK(J-79) = IQKRAK(J)
53 #if defined(CERNLIB_QERREND)
54 READ (LUN,8000,END=81,ERR=82) LINER
56 #if !defined(CERNLIB_QERREND)
57 READ (LUN,8000,IOSTAT=JSTAT) LINER
58 IF (JSTAT.NE.0) GO TO 81
60 #if defined(CERNLIB_QDEVZE)
61 IF (LOGLVI.GE.3) WRITE (IQLOG,9821) LINER
62 9821 FORMAT (' FZIALN- Read line=',A)
70 C-- Check special conditions
72 IF (IQCETK(1).NE.45) GO TO 41
73 IF (JSKIP.NE.0) GO TO 51
75 C-- Ready start/end pointers
85 C-- Purge blanks from line, if FQABLANK
87 #if defined(CERNLIB_FQABLANK)
90 IF (IQCETK(J).EQ.45) GO TO 34
91 IQKRAK(JTKE) = IQCETK(J)
98 C---- Control-line read
100 C-- End of physical record
102 41 IF (IQCETK(2).EQ.59) GO TO 45
103 IF (IQCETK(1).NE.60) GO TO 91
104 IF (JSKIP.NE.0) GO TO 21
109 C-- Start of physical record
113 IF (IQCETK(3).NE.27) MRSTA=2
116 IF (IQCETK(1).EQ.59) GO TO 26
117 IF (IQCETK(1).NE.60) GO TO 91
122 C---- Fast skip of trailing record
125 #if defined(CERNLIB_QERREND)
126 READ (LUN,8000,END=81,ERR=82) LINER(1:1)
128 #if !defined(CERNLIB_QERREND)
129 READ (LUN,8000,IOSTAT=JSTAT) LINER(1:1)
130 IF (JSTAT.NE.0) GO TO 81
132 #if defined(CERNLIB_QDEVZE)
133 IF (LOGLVI.GE.4) WRITE (IQLOG,9852)
134 9852 FORMAT (' FZIALN- Skip line')
137 IF (LINER(1:1).EQ.' ') GO TO 51
140 C------ End-of-File, Read Error
142 #if defined(CERNLIB_QERREND)
144 82 IQUEST(1) = IQUEST(1) + 1
146 #if !defined(CERNLIB_QERREND)
156 * ==================================================
157 #include "zebra/qcardl.inc"