SUBROUTINE LIST 00047 INTEGER NUMLIN !830307 MAO 00101 LOGICAL CNTALL !830307 MAO 00102 COMMON/FLINE/CNTALL,NUMLIN !830307 MAO 00103 INTEGER DTYPE !22-JUN-81 00105 COMMON/DIR/DTYPE 00106 LOGICAL PASFLG !30JUN81MAO 00108 INTEGER CNDLVL !30JUN81MAO 00109 INTEGER OFFLVL !30JUN81MAO 00110 INTEGER COND !30JUN81MAO 00111 INTEGER CNDVAL !30JUN81MAO 00112 COMMON/COND/PASFLG,CNDLVL,OFFLVL,COND,CNDVAL(4,10) !30JUN81MAO 00113 LOGICAL*2 ALECS,LSTFUL !22-JUN-81 00116 INTEGER*2 TYPIN,TYPLST,TYPOUT,CHCMNT !22-JUN-81 00117 COMMON/MACVAL/ALECS,TYPIN,TYPLST,TYPOUT,CHCMNT,LSTFUL!22-JUN-81 00118 INTEGER ERR1,ERR2 !821129MAO 00121 COMMON/IOERR/ERR1,ERR2 !821129MAO 00122 INTEGER FORMFD !22-JUN-81 00127 INTEGER DPAGE !22-JUN-81 00128 INTEGER DINCL !29JUN81MAO 00129 INTEGER DPEND,DPIF,DPUNL !30JUN81MAO 00130 INTEGER DNAME !30JUN81MAO 00131 INTEGER DIMP !840307MAO 00132 INTEGER SNEST,SFNAM,SOPN !29JUN81MAO 00133 INTEGER SFCONT !830308MAO 00134 INTEGER SEPE,SNONAM,STRUN,SMPE !30JUN81MAO 00135 INTEGER TDIR !22-JUN-81 00136 INTEGER TOFF !30JUN81MAO 00137 INTEGER SPAGE 00140 INTEGER BLN , CHC , CHSPAC, CHZERO, CLASS , ERRCL 00143 INTEGER CINLIN !25-JAN-80 00144 INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO 00145 INTEGER FORTCL, HOLDNO, I , LEVEL , LINENO 00146 INTEGER LISTCL, LSTLEV 00147 INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P 00148 INTEGER PTABLE, QP , READ , REFNO , RETRY 00149 INTEGER SB , SB2 , SB4 , SB6 , SB7 , SCOND 00150 INTEGER SDASH , SELSE , SENDER, SETUP , SFIN , SFLX 00151 INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2 00152 INTEGER SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER 00153 INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE 00154 INTEGER SPINV , SPUTGO, SRDERR, SRP , SSPACR, SST , SSTMAX 00155 INTEGER STABH , STACK , STODUM, SVER , SWHEN , SXER1 00156 INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP 00157 INTEGER TELSE , TEND , TEXEC , TFIN , TOP , TTO 00158 INTEGER ULEN , USTART, UTYPE , WWIDTH 00159 LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER 00166 LOGICAL NDERR , NIERR , NOPGM , PASS , SAVED 00167 DIMENSION UTYPE(3), USTART(3), ULEN(3) 00175 DIMENSION STACK(2000) 00178 DIMENSION ERRSTK(5) 00181 COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST 00190 COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO 00191 COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT 00192 COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP 00193 COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE 00194 COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN 00195 COMMON USTART, UTYPE , WWIDTH 00196 COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC, CINLIN !25-JAN-80 00232 DIMENSION SFLX (51) 00245 DIMENSION SHOLD (51) 00247 DIMENSION SLIST (101) 00249 DIMENSION SPINV (41) 00251 DIMENSION SPUTGO (11) 00253 DIMENSION SST (101) 00255 DIMENSION SB (2) 00261 DIMENSION SB2 (2) 00264 DIMENSION SB4 (3) 00267 DIMENSION SB6 (4) 00270 DIMENSION SB7 (5) 00273 DIMENSION SCOND (10) 00276 DIMENSION SDASH (21) 00280 DIMENSION SELSE (11) 00285 DIMENSION SENDER (16) 00289 DIMENSION SEPE(15) !30JUN81MAO 00293 DIMENSION SFCONT(26) !830308MAO 00297 DIMENSION SFIN (6) 00303 DIMENSION SFNAM(16) !29JUN81MAO 00306 DIMENSION SFSPCR (3) 00310 DIMENSION SICOND (28) 00313 DIMENSION SIELSE (21) 00319 DIMENSION SIFIN (20) 00324 DIMENSION SIFIN2 (8) 00329 DIMENSION SIGN (24) 00332 DIMENSION SINSRT (20) 00337 DIMENSION SINS2 (8) 00342 DIMENSION SITODM (26) 00345 DIMENSION SIWHEN (21) 00351 DIMENSION SMPE(12) !30JUN81MAO 00356 DIMENSION SMULER (23) 00360 DIMENSION SNDER1 (22) 00365 DIMENSION SNDER2 (23) 00370 DIMENSION SNIER1 (24) 00375 DIMENSION SNIER2 (23) 00380 DIMENSION SNEST(19) !29JUN81MAO 00385 DIMENSION SNONAM(17) !30JUN81MAO 00390 DIMENSION SOPN(17) !29JUN81MAO 00394 DIMENSION SPAGE(7) 00400 DIMENSION SRDERR(18) !821129MAO 00405 DIMENSION SRP (2) 00410 DIMENSION SSPACR (3) 00413 DIMENSION STABH (20) 00416 DIMENSION STODUM (13) 00421 DIMENSION STRUN(25) 00425 DIMENSION SVER (12) 00431 DIMENSION SWHEN (16) 00435 DIMENSION SXER1 (28) 00439 DIMENSION SXER2 (28) 00445 DIMENSION SXER3 (26) 00451 DIMENSION SXER4 (16) 00457 DIMENSION SXER5 (26) 00461 DATA FORMFD /"14/ !22-JUN-81 00472 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 00473 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 00474 DATA TDIR/7/ !22-JUN-81 00475 DATA TOFF/8/ !30JUN81MAO 00476 DATA DPAGE/1/ !22-JUN-81 00477 DATA DINCL/2/ !29JUN81MAO 00478 DATA DPIF/3/, DPUNL/4/, DPEND/5/ !29JUN81MAO 00479 DATA DNAME /6/ !30JUN81MAO 00480 DATA DIMP /7/ !840307MAO 00481 DATA SETUP /1/, RETRY /2/, READ /3/ 00482 DATA SSTMAX /200/ 00483 DATA SB / 1, 1H / 00484 DATA SB2 / 2, 2H / 00485 DATA SB4 / 4, 2H , 2H / 00486 DATA SB6 / 6, 2H , 2H , 2H / 00487 DATA SB7 / 7, 2H , 2H , 2H , 1H / 00488 DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 00489 1 , 1HL/ 00490 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 00491 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 00492 1 , 2H--, 2H--, 2H--, 2H--/ 00493 DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 00494 1 , 2HNU, 1HE/ 00495 DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 00496 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ 00497 DATA SEPE /28, 2H**, 2H**, 2H* ,2HEX, 2HTR, 2HA ,2H.P, !30JUN81 00498 1 2HAS, 2HSE, 2HND, 2H--, 2HIG, 2HOR, 2HED/ !30JUN81 00499 DATA SFCONT /49, 2H**, 2H**, 2H* ,2HWA, 2HRN, 2H--, !830308 00500 1 2HIN, 2HPU, 2HT , 2HFO, 2HRC, 2HED, 2H O, 2HUT, 2HPU, !830308 00501 2 2HT , 2HCO, 2HNT, 2HIN, 2HUA, 2HTI, 2HON, 2H L, 2HIN, !830308 00502 3 1HE/ 00503 DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ 00504 DATA SFNAM /30, 2H**, 2H**, 2H* ,2H.I, 2HNC, 2HLU, 2HDE, !29JUN81 00505 1 2H F, 2HIL, 2HE , 2HNA, 2HME, 2H E, 2HRR, 2HOR/ !29JUN81 00506 DATA SFSPCR / 3, 2H.., 1H./ 00507 DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 00508 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 00509 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 00510 1 , 2HSS, 2HIN, 2HG)/ 00511 DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 00512 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 00513 1 , 2HH , 2HLI, 2HNE, 1H / 00514 DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 00515 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 00516 1 , 2H L, 2HIN, 2HE / 00517 DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ 00518 DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 00519 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 00520 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ 00521 DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 00522 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 00523 1 , 2H L, 2HIN, 2HE / 00524 DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ 00525 DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 00526 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 00527 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 00528 1 , 2HT)/ 00529 DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 00530 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 00531 1 , 2HG , 2HEL, 2HSE, 1H)/ 00532 DATA SMPE / 22, 2H**, 2H**, 2H* , 2HMI, 2HSS, 2HIN, !30JUN81 00533 1 2HG , 2H.P, 2HAS, 2HSE, 2HND/ !30JUN81 00534 DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 00535 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 00536 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / 00537 DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 00538 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 00539 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ 00540 DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 00541 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 00542 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ 00543 DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 00544 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 00545 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ 00546 DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 00547 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 00548 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ 00549 DATA SNEST /36, 2H**, 2H**, 2H* ,2H.I, 2HNC, 2HLU, 2HDE, !29JUN81 00550 1 2H F, 2HIL, 2HES, 2H N, 2HES, 2HTE, 2HD ,2HTO, 2HO , !29JUN81 00551 2 2HDE, 2HEP/ !29JUN81 00552 DATA SNONAM /31, 2H**, 2H**, 2H* ,2HNO, 2H N, 2HAM, !30JUN81 00553 1 2HE , 2HGI, 2HVE, 2HN ,2HWI, 2HTH, 2H ., 2HPA, !30JUN81 00554 2 2HSS, 1H_/ 00555 DATA SOPN /32, 2H**, 2H**, 2H* ,2HOP, 2HEN, 2H F, 2HAI, !29JUN81 00556 1 2HL ,2HON, 2H ., 2HIN, 2HCL, 2HUD, 2HE , 2HFI, 2HLE/ !29JUN81 00557 DATA SPAGE /11, 2H ,2H ,2H ,2H.P ,2HAG ,1HE/ 00560 DATA SRDERR /33, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, !821129 00563 1 2HAD, 2H E, 2HRR, 2H O, 2HN , 2HIN, !821129 00564 2 2HPU, 2HT , 2HLI, 2HNE, 1H)/ !821129 00565 DATA SRP / 1, 1H)/ 00566 DATA SSPACR / 3, 2H. , 1H / 00567 DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 00568 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 00569 1 , 2HTA, 2HBL, 1HE/ 00570 DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 00571 1 , 2HRO, 2HCE, 2HDU, 2HRE/ 00572 DATA STRUN / 47, 2H**, 2H**, 2H* ,2H.P, 2HAS, 2HS_, !30JUN81 00573 1 2H N, 2HAM, 2HE , 2HHA, 2HS ,2H> , 2H6 ,2HCH, !30JUN81 00574 2 2HAR, 2HAC, 2HTE, 2HRS, 2H--, 2HTR, 2HUN, 2HCA, !30JUN81 00575 3 2HTE, 1HD/ !30JUN81 00576 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 00577 1 , 2H2., 2H38, 1H)/ 00578 DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 00579 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 00580 DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 00581 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 00582 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 00583 1 , 2HFI, 2HEL, 2HD)/ 00584 DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 00585 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 00586 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 00587 1 , 2HBA, 2HGE, 1H)/ 00588 DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 00589 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 00590 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 00591 1 , 2HD)/ 00592 DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 00593 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ 00594 DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 00595 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 00596 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 00597 1 , 2HO)/ 00598 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32757 00605 SOURCE=RETRY 00605 GO TO 32758 00606 32757 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32756 00606 SOURCE=READ !IF NO ERROR, GET NEXT LINE FROM FLX FILE 00607 ASSIGN 32754 TO I32755 00608 GO TO 32755 00608 32754 GO TO 32758 00610 32756 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 00611 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) 00612 MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)).OR.(ERROR.EQ.25) 00613 1 .OR. (ERROR.EQ.404) .OR. (ERROR.EQ.500) 00614 IF(.NOT.(MINER)) GO TO 32752 00615 MINCNT=MINCNT+1 !INC WARNING COUNT 00615 GO TO 32753 00615 32752 MAJCNT=MAJCNT+1 !INC ERROR COUNT 00616 32753 IF(.NOT.(ERROR.EQ.0)) GO TO 32750 00617 ERTYPE=1 00617 GO TO 32751 00617 32750 IF(.NOT.(ERROR.LE.3)) GO TO 32748 00620 ASSIGN 32746 TO I32747 00620 GO TO 32747 00620 32746 GO TO 32749 00621 32748 IF(.NOT.(ERROR.EQ.4)) GO TO 32745 00621 ASSIGN 32743 TO I32744 00621 GO TO 32744 00621 32743 GO TO 32749 00622 32745 IF(.NOT.(ERROR.LE.6)) GO TO 32742 00622 ERTYPE=3 00622 GO TO 32749 00623 32742 IF(.NOT.(ERROR.EQ.7)) GO TO 32741 00623 ASSIGN 32740 TO I32744 00623 GO TO 32744 00623 32740 GO TO 32749 00624 32741 IF(.NOT.(ERROR.EQ.8)) GO TO 32739 00624 ASSIGN 32737 TO I32738 00624 GO TO 32738 00624 32737 GO TO 32749 00625 32739 IF(.NOT.(ERROR.EQ.9)) GO TO 32736 00625 ASSIGN 32734 TO I32735 00625 GO TO 32735 00625 32734 GO TO 32749 00626 32736 IF(.NOT.(ERROR.EQ.10)) GO TO 32733 00626 ASSIGN 32731 TO I32732 00626 GO TO 32732 00626 32731 GO TO 32749 00627 32733 IF(.NOT.(ERROR.LE.12)) GO TO 32730 00627 ASSIGN 32729 TO I32747 00627 GO TO 32747 00627 32729 GO TO 32749 00628 32730 IF(.NOT.(ERROR.LE.15)) GO TO 32728 00628 ASSIGN 32727 TO I32747 00628 GO TO 32747 00628 32727 GO TO 32749 00629 32728 IF(.NOT.(ERROR.EQ.16)) GO TO 32726 00629 ASSIGN 32725 TO I32744 00629 GO TO 32744 00629 32725 GO TO 32749 00630 32726 IF(.NOT.(ERROR.EQ.17)) GO TO 32724 00630 ASSIGN 32722 TO I32723 00630 GO TO 32723 00630 32722 GO TO 32749 00631 32724 IF(.NOT.(ERROR.EQ.18)) GO TO 32721 00631 ASSIGN 32720 TO I32735 00631 GO TO 32735 00631 32720 GO TO 32749 00632 32721 IF(.NOT.(ERROR.LE.19)) GO TO 32719 00632 ASSIGN 32718 TO I32723 00632 GO TO 32723 00632 32718 GO TO 32749 00633 32719 IF(.NOT.(ERROR.EQ.20)) GO TO 32717 00633 ASSIGN 32716 TO I32744 00633 GO TO 32744 00633 32716 GO TO 32749 00634 32717 IF(.NOT.(ERROR.EQ.21)) GO TO 32715 00634 ASSIGN 32714 TO I32735 00634 GO TO 32735 00634 32714 GO TO 32749 00635 32715 IF(.NOT.(ERROR.LE.23)) GO TO 32713 00635 ASSIGN 32712 TO I32747 00635 GO TO 32747 00635 32712 GO TO 32749 00636 32713 IF(.NOT.(ERROR.EQ.24)) GO TO 32711 00636 ASSIGN 32710 TO I32744 00636 GO TO 32744 00636 32710 GO TO 32749 00637 32711 IF(.NOT.(ERROR.EQ.25)) GO TO 32709 00637 ERTYPE=4 00637 GO TO 32749 00638 32709 IF(.NOT.(ERROR.EQ.26)) GO TO 32708 00638 ERTYPE=5 00638 GO TO 32749 00639 32708 IF(.NOT.(ERROR.GT.300 .AND. ERROR.LE.303)) GO TO 32707 00639 ERTYPE=6 !29JUN81 MAO 00639 GO TO 32749 00640 32707 IF(.NOT.(ERROR.GT.400 .AND. ERROR.LE.403)) GO TO 32706 00640 ERTYPE=7 !30JUN81MAO 00640 GO TO 32749 00641 32706 IF(.NOT.(ERROR.EQ.404)) GO TO 32705 00641 ASSIGN 32703 TO I32704 00641 GO TO 32704 00641 32703 GO TO 32749 00642 32705 IF(.NOT.(ERROR.EQ.500)) GO TO 32702 00642 ASSIGN 32701 TO I32755 00643 GO TO 32755 00643 32701 CALL PUT(0,SFCONT,ERRCL) !WARNING MSG !830308MAO 00644 32702 CONTINUE 00646 32749 CONTINUE 00647 32751 SOURCE=READ 00648 IF((1).NE.(ERTYPE)) GO TO 32699 00650 CALL PUT(-LINENO,SHOLD,ERRCL) 00651 DO 32698 I=1,ERSTOP 00652 IF((1).NE.(ERRSTK(I))) GO TO 32696 00654 CALL PUT(0,SXER1,ERRCL) 00654 GO TO 32697 00655 32696 IF((2).NE.(ERRSTK(I))) GO TO 32695 00655 CALL PUT(0,SXER2,ERRCL) 00655 GO TO 32697 00656 32695 IF((3).NE.(ERRSTK(I))) GO TO 32694 00656 CALL PUT(0,SXER3,ERRCL) 00656 GO TO 32697 00657 32694 IF((4).NE.(ERRSTK(I))) GO TO 32693 00657 CALL PUT(0,SXER4,ERRCL) 00657 GO TO 32697 00658 32693 IF((5).NE.(ERRSTK(I))) GO TO 32692 00658 CALL PUT(0,SXER5,ERRCL) 00658 32692 CONTINUE 00659 32697 CONTINUE 00660 32698 CONTINUE 00660 GO TO 32700 00662 32699 IF((2).NE.(ERTYPE)) GO TO 32691 00662 SOURCE=SETUP !MISSING STATEMENT INSERTED 00662 GO TO 32700 00663 32691 IF((3).NE.(ERTYPE)) GO TO 32690 00663 CALL PUT(-LINENO,SFLX,ERRCL) !EXTRA FIN 00664 CALL PUT(0,SIGN,ERRCL) 00665 GO TO 32700 00667 32690 IF((4).NE.(ERTYPE)) GO TO 32689 00667 CALL PUT(0,SENDER,ERRCL) !MISSING END 00667 GO TO 32700 00668 32689 IF((5).NE.(ERTYPE)) GO TO 32688 00668 CALL PUT(LINENO,SFLX,ERRCL) !PROCEDURE ALREADY DEFINED 00669 CALL CPYSTR(SST,SMULER) 00670 CALL CATNUM(SST,MLINE) 00671 CALL CATSTR(SST,SRP) 00672 CALL PUT(0,SST,ERRCL) 00673 GO TO 32700 00675 32688 IF((6).NE.(ERTYPE)) GO TO 32687 00675 CALL PUT (-LINENO,SFLX,ERRCL) 00676 IF((301).NE.(ERROR)) GO TO 32685 00678 CALL PUT (0,SNEST,ERRCL) !MAX NESTING DEPTH EXCEEDED 00678 GO TO 32686 00679 32685 IF((302).NE.(ERROR)) GO TO 32684 00679 CALL PUT (0,SFNAM,ERRCL) !FILE NAME ERROR 00679 GO TO 32686 00680 32684 IF((303).NE.(ERROR)) GO TO 32683 00680 CALL PUT (0,SOPN,ERRCL) !FILE OPEN ERROR 00680 32683 CONTINUE 00681 32686 GO TO 32700 00683 32687 IF((7).NE.(ERTYPE)) GO TO 32682 00683 CALL PUT (-LINENO,SFLX,ERRCL) 00684 IF((401).NE.(ERROR)) GO TO 32680 00686 CALL PUT (0,SEPE,ERRCL) !excess .PASSEND 00686 GO TO 32681 00687 32680 IF((402).NE.(ERROR)) GO TO 32679 00687 CALL PUT (0,STRUN,ERRCL) !>6 char in name 00687 GO TO 32681 00688 32679 IF((403).NE.(ERROR)) GO TO 32678 00688 CALL PUT (0,SNONAM,ERRCL) !name not given 00688 32678 CONTINUE 00689 32681 GO TO 32700 00691 32682 IF((8).NE.(ERTYPE)) GO TO 32677 00691 SOURCE=RETRY 00691 32677 CONTINUE 00692 32700 CONTINUE 00694 32758 IF(.NOT.(ERR1.NE.0)) GO TO 32676 00695 CALL PUT(0,SRDERR,ERRCL) !821129MAO 00699 MINCNT=MINCNT+1 !INC WARNING COUNTER !821129MAO 00700 32676 IF(.NOT.(ENDPGM)) GO TO 32675 00703 ASSIGN 32673 TO I32674 00704 GO TO 32674 00704 32673 ASSIGN 32671 TO I32672 00705 GO TO 32672 00705 32671 CALL PUT(0,SVER,LISTCL) 00706 32675 RETURN 00708 32723 CONTINUE 00709 ASSIGN 32669 TO I32670 00710 GO TO 32670 00710 32669 CALL CPYSTR(SFLX,SCOND) 00711 CALL PUT(0,SICOND,ERRCL) 00712 GO TO I32723 00713 32744 CONTINUE 00714 ASSIGN 32668 TO I32670 00715 GO TO 32670 00715 32668 CALL CPYSTR(SFLX,SELSE) 00716 CALL CPYSTR(SLIST,SIELSE) 00717 CALL CATNUM(SLIST,STACK(TOP-1)) 00718 CALL CATSTR(SLIST,SRP) 00719 CALL PUT(0,SLIST,ERRCL) 00720 GO TO I32744 00721 32747 CONTINUE 00722 ASSIGN 32667 TO I32670 00723 GO TO 32670 00723 32667 CALL CPYSTR(SFLX,SFIN) 00724 CALL CPYSTR(SLIST,SIFIN) 00725 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32665 00726 CALL CATSTR(SLIST,SIFIN2) 00726 GO TO 32666 00726 32665 CALL CATNUM(SLIST,STACK(TOP-1)) 00728 CALL CATSTR(SLIST,SRP) 00729 32666 CALL PUT(0,SLIST,ERRCL) 00731 GO TO I32747 00732 32704 CONTINUE 00733 ASSIGN 32664 TO I32670 00734 GO TO 32670 00734 32664 ERTYPE=8 00735 DO 32663 I=1,CNDLVL 00736 CALL PUT (0,SMPE,ERRCL) 00737 32663 CONTINUE 00738 CNDLVL=0 00739 PASFLG=.TRUE. 00740 GO TO I32704 00741 32735 CONTINUE 00742 ASSIGN 32662 TO I32670 00743 GO TO 32670 00743 32662 CALL CPYSTR(SFLX,STODUM) 00744 CALL PUT(0,SITODM,ERRCL) 00745 GO TO I32735 00746 32738 CONTINUE 00747 ASSIGN 32661 TO I32670 00748 GO TO 32670 00748 32661 CALL CPYSTR(SFLX,SWHEN) 00749 CALL PUT(0,SIWHEN,ERRCL) 00750 GO TO I32738 00751 32732 CONTINUE 00752 IF(.NOT.(TOP.LE.7)) GO TO 32659 00754 ASSIGN 32658 TO I32738 00754 GO TO 32738 00754 32658 GO TO 32660 00755 32659 IF(.NOT.(STACK(TOP-6).EQ.TELSE)) GO TO 32657 00755 ASSIGN 32656 TO I32747 00755 GO TO 32747 00755 32656 GO TO 32660 00756 32657 ASSIGN 32655 TO I32738 00756 GO TO 32738 00756 32655 CONTINUE 00757 32660 GO TO I32732 00758 32672 CONTINUE 00759 LSTLEV=LEVEL 00760 IF(.NOT.(LSTLEV.EQ.0)) GO TO 32653 00761 CALL PUT(BLN,SB,LISTCL) 00761 GO TO 32654 00761 32653 CALL CPYSTR(SLIST,SB6) 00763 DO 32652 I=1,LSTLEV 00764 CALL CATSTR(SLIST,SSPACR) 00764 32652 CONTINUE 00764 IF(.NOT.(SLIST(1).GT.WWIDTH)) GO TO 32650 00765 CALL PUT(BLN,SB,LISTCL) 00765 GO TO 32651 00765 32650 CALL PUT(BLN,SLIST,LISTCL) 00766 32651 CONTINUE 00767 32654 BLN=0 00768 GO TO I32672 00769 32649 CONTINUE 00770 CALL PUT(0,SB,LISTCL) 00771 CALL PUT(0,SDASH,LISTCL) 00772 CALL PUT(0,SB,LISTCL) 00773 GO TO I32649 00774 32755 CONTINUE 00775 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32648 00776 ASSIGN 32647 TO I32649 00776 GO TO 32649 00776 32647 CONTINUE 00776 32648 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) 00777 CALL CPYSUB(SLIST,SFLX,1,6) 00778 IF(LSTLEV.EQ.0) GO TO 32646 00779 DO 32645 I=1,LSTLEV 00780 CALL CATSTR(SLIST,SSPACR) 00780 32645 CONTINUE 00780 32646 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32644 00782 SLIST(1)=SLIST(1)-SSPACR(1) 00783 CALL CATSTR(SLIST,SFSPCR) 00784 32644 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) 00786 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) 00790 IF(.NOT.(ERLST)) GO TO 32642 00791 CALL PUT(LINENO,SLIST,ERRCL) 00792 ERLST=.FALSE. 00793 GO TO 32643 00794 32642 CALL PUT(LINENO,SLIST,LISTCL) 00795 32643 IF(.NOT.(CLASS.EQ.TDIR)) GO TO 32641 00799 IF(.NOT.( DTYPE.EQ.DPAGE .AND. LSTFUL)) GO TO 32640 00800 CALL PUTCH (SLIST(2),1,FORMFD) !put in formfeed !22-JUN-81 00805 SLIST(1)=1 !22-JUN-81 00806 CALL PUT (LINENO,SLIST,FORTCL) !22-JUN-81 00807 IF(.NOT.(CNTALL)) NUMLIN=NUMLIN-1 !USUALLY DONT COUNT !830307 00808 32640 CONTINUE 00811 32641 GO TO I32755 00812 32670 CONTINUE 00813 ERTYPE=2 00814 ASSIGN 32638 TO I32639 00815 GO TO 32639 00815 32638 LINENO=0 00816 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32637 00817 CALL CPYSTR(SST,SINSRT) 00818 IF(.NOT.(HOLDNO.GT.0)) GO TO 32635 00819 CALL CATNUM(SST,HOLDNO) 00819 GO TO 32636 00819 32635 CALL CATSTR(SST,SINS2) 00820 32636 CALL PUT(0,SST,ERRCL) 00821 32637 GO TO I32670 00823 32674 CONTINUE 00824 IF(PTABLE.EQ.0) GO TO 32634 00825 TABLCL=LISTCL 00826 ASSIGN 32633 TO I32649 00827 GO TO 32649 00827 32633 CALL PUT(0,STABH,LISTCL) 00828 CALL PUT(0,SB,LISTCL) 00829 P=PTABLE 00830 NDERR=.FALSE. 00831 NIERR=.FALSE. 00832 GO TO 32631 00833 32632 IF(P.EQ.0) GO TO 32630 00833 32631 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32629 00834 NDERR=.TRUE. 00835 MAJCNT=MAJCNT+1 00836 32629 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32628 00838 NIERR=.TRUE. 00839 MINCNT=MINCNT+1 00840 32628 ASSIGN 32626 TO I32627 00842 GO TO 32627 00842 32626 P=STACK(P) 00843 GO TO 32632 00844 32630 IF(.NOT.(NDERR)) GO TO 32625 00845 CALL PUT(0,SNDER1,ERRCL) 00846 CALL PUT(0,SNDER2,ERRCL) 00847 ASSIGN 32624 TO I32672 00848 GO TO 32672 00848 32624 P=PTABLE 00849 TABLCL=ERRCL 00850 GO TO 32622 00851 32623 IF(P.EQ.0) GO TO 32621 00851 32622 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32620 00852 ASSIGN 32619 TO I32627 00852 GO TO 32627 00852 32619 CONTINUE 00852 32620 P=STACK(P) 00853 GO TO 32623 00854 32621 CONTINUE 00855 32625 IF(.NOT.(NIERR)) GO TO 32618 00856 CALL PUT(0,SNIER1,ERRCL) 00857 CALL PUT(0,SNIER2,ERRCL) 00858 ASSIGN 32617 TO I32672 00859 GO TO 32672 00859 32617 P=PTABLE 00860 TABLCL=ERRCL 00861 GO TO 32615 00862 32616 IF(P.EQ.0) GO TO 32614 00862 32615 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32613 00863 ASSIGN 32612 TO I32627 00863 GO TO 32627 00863 32612 CONTINUE 00863 32613 P=STACK(P) 00864 GO TO 32616 00865 32614 CONTINUE 00866 32618 CONTINUE 00867 32634 GO TO I32674 00868 32627 CONTINUE 00869 CALL CPYSTR(SST,SB6) 00870 IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2)) 00871 CALL CATSTR(SST,STACK(P+4)) 00872 CALL PUT(0,SST,TABLCL) 00873 QP=STACK(P+3) 00874 32611 IF(QP.EQ.0) GO TO 32610 00875 CALL CPYSTR(SST,SB4) 00876 I=1 00877 32609 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32608 00878 CALL CATSTR(SST,SB2) 00879 CALL CATNUM(SST,STACK(QP+1)) 00880 I=I+1 00881 QP=STACK(QP) 00882 GO TO 32609 00883 32608 CALL PUT(0,SST,TABLCL) 00884 GO TO 32611 00885 32610 CALL PUT(0,SB,LISTCL) 00886 GO TO I32627 00887 32639 CONTINUE 00888 IF(SAVED) GO TO 32607 00889 SAVED=.TRUE. 00890 HOLDNO=LINENO 00891 CALL CPYSTR(SHOLD,SFLX) 00892 32607 GO TO I32639 00894 END 00895