SUBROUTINE LIST 01550 INTEGER AELSE 10840 INTEGER BLN , CHC , CHSPAC, CHZERO, CLASS , ERRCL 10850 INTEGER ERROR , ERRSTK, ERSTOP, ERTYPE, EXTYPE, FLXNO 10900 INTEGER FORTCL, HOLDNO, I , LEVEL , LINENO 10950 INTEGER LISTCL, LSTLEV 11000 INTEGER MAJCNT, MINCNT, MLINE , NCHPWD, NUNITS, P 11050 INTEGER PTABLE, QP , READ , REFNO , RETRY 11100 INTEGER SB , SB2 , SB4 , SB6 , SB7 , SCOND 11150 INTEGER SDASH , SELSE , SENDER, SETUP , SFIN , SFLX 11200 INTEGER SFSPCR, SHOLD , SICOND, SIELSE, SIFIN , SIFIN2 11250 INTEGER SIGN , SINSRT, SINS2 , SITODM, SIWHEN, SLIST , SMULER 11300 INTEGER SNDER1, SNDER2, SNIER1, SNIER2, SOURCE, SP 11350 INTEGER SPINV , SPUTGO, SRP , SSPACR, SST , SSTMAX 11400 INTEGER STABH , STACK , STODUM, SVER , SWHEN , SXER1 11450 INTEGER SXER2 , SXER3 , SXER4 , SXER5 , TABLCL, TCEXP 11500 INTEGER TELSE , TEND , TEXEC , TFIN , TOP , TTO 11550 INTEGER ULEN , USTART, UTYPE , WWIDTH 11600 LOGICAL DONE , ENDFIL, ENDPGM, ERLST , FIRST , FOUND ,MINER 12600 LOGICAL NDERR , NIERR , NOPGM , PASS , SAVED 12625 DIMENSION UTYPE(3), USTART(3), ULEN(3) 13050 DIMENSION STACK(2000) 13200 DIMENSION ERRSTK(5) 13350 COMMON BLN , CLASS , DONE , ENDFIL, ENDPGM, ERLST 13850 COMMON ERROR , ERRSTK, ERSTOP, EXTYPE, FIRST , FLXNO 13900 COMMON FOUND , HOLDNO, LEVEL , LINENO, LSTLEV, MAJCNT 13950 COMMON MINCNT, MLINE , NOPGM , NUNITS, PASS , PTABLE, QP 14000 COMMON REFNO , SAVED , SFLX , SHOLD , SLIST , SOURCE 14050 COMMON SPINV , SPUTGO, SST , STACK , TOP , ULEN 14100 COMMON USTART, UTYPE , WWIDTH 14150 COMMON /PARAM/ NCHPWD, CHZERO, CHSPAC, CHC 20900 DIMENSION SFLX (51) 21601 DIMENSION SHOLD (51) 21651 DIMENSION SLIST (101) 21701 DIMENSION SPINV (41) 21751 DIMENSION SPUTGO (11) 21801 DIMENSION SST (101) 21851 DIMENSION SB (2) 22301 DIMENSION SB2 (2) 22401 DIMENSION SB4 (3) 22451 DIMENSION SB6 (4) 22801 DIMENSION SB7 (5) 22851 DIMENSION SCOND (10) 23101 DIMENSION SDASH (21) 23401 DIMENSION SELSE (11) 23601 DIMENSION SENDER (16) 23801 DIMENSION SFIN (6) 23851 DIMENSION SFSPCR (3) 24051 DIMENSION SICOND (28) 24401 DIMENSION SIELSE (21) 24501 DIMENSION SIFIN (20) 24701 DIMENSION SIFIN2 (8) 24751 DIMENSION SIGN (24) 25001 DIMENSION SINSRT (20) 25051 DIMENSION SINS2 (8) 25101 DIMENSION SITODM (26) 25151 DIMENSION SIWHEN (21) 25201 DIMENSION SMULER (23) 25801 DIMENSION SNDER1 (22) 25851 DIMENSION SNDER2 (23) 25901 DIMENSION SNIER1 (24) 26001 DIMENSION SNIER2 (23) 26051 DIMENSION SRP (2) 26201 DIMENSION SSPACR (3) 26401 DIMENSION STABH (20) 26501 DIMENSION STODUM (13) 26551 DIMENSION SVER (12) 26951 DIMENSION SWHEN (16) 27201 DIMENSION SXER1 (28) 27351 DIMENSION SXER2 (28) 27401 DIMENSION SXER3 (26) 27451 DIMENSION SXER4 (16) 27501 DIMENSION SXER5 (26) 27551 DATA FORTCL /1/, LISTCL /2/, ERRCL /3/ 30001 DATA AELSE/2/ 30002 DATA TCEXP/1/, TELSE/2/, TEND/3/, TEXEC/4/, TFIN/5/, TTO/6/ 30003 DATA SETUP /1/, RETRY /2/, READ /3/ 30004 DATA SSTMAX /200/ 30005 DATA SB / 1, 1H / 30006 DATA SB2 / 2, 2H / 30007 DATA SB4 / 4, 2H , 2H / 30008 DATA SB6 / 6, 2H , 2H , 2H / 30009 DATA SB7 / 7, 2H , 2H , 2H , 1H / 30010 DATA SCOND / 17, 2H , 2H , 2H , 2HCO, 2HND, 2HIT, 2HIO, 2HNA 30011 1 , 1HL/ 30012 DATA SDASH / 40, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30013 1 , 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H--, 2H-- 30014 1 , 2H--, 2H--, 2H--, 2H--/ 30015 DATA SELSE / 19, 2H , 2H , 2H , 2HEL, 2HSE, 2H C, 2HON, 2HTI 30016 1 , 2HNU, 1HE/ 30017 DATA SENDER / 30, 2H**, 2H**, 2H* , 2HEN, 2HD , 2HST, 2HAT, 2HEM 30018 1 , 2HEN, 2HT , 2HIS, 2H M, 2HIS, 2HSI, 2HNG/ 30019 DATA SFIN / 9, 2H , 2H , 2H , 2HFI, 1HN/ 30020 DATA SFSPCR / 3, 2H.., 1H./ 30021 DATA SICOND / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HCO, 2HND, 2HIT 30022 1 , 2HIO, 2HNA, 2HL , 2HOR, 2H S, 2HEL, 2HEC, 2HT 30023 1 , 2HIS, 2H A, 2HPP, 2HAR, 2HEN, 2HTL, 2HY , 2HMI 30024 1 , 2HSS, 2HIN, 2HG)/ 30025 DATA SIELSE / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HEL, 2HSE, 2H N 30026 1 , 2HEC, 2HES, 2HSA, 2HRY, 2H T, 2HO , 2HMA, 2HTC 30027 1 , 2HH , 2HLI, 2HNE, 1H / 30028 DATA SIFIN / 38, 2H**, 2H**, 2H* , 2H , 2H (, 2HFI, 2HN , 2HNE 30029 1 , 2HCE, 2HSS, 2HAR, 2HY , 2HTO, 2H M, 2HAT, 2HCH 30030 1 , 2H L, 2HIN, 2HE / 30031 DATA SIFIN2 / 14, 2HAS, 2HSU, 2HME, 2HD , 2HAB, 2HOV, 2HE)/ 30032 DATA SIGN / 45, 2H**, 2H**, 2H* , 2H , 2H (, 2HNO, 2H C, 2HON 30033 1 , 2HTR, 2HOL, 2H P, 2HHR, 2HAS, 2HE , 2HFO, 2HR 30034 1 , 2HFI, 2HN , 2HTO, 2H M, 2HAT, 2HCH, 1H)/ 30035 DATA SINSRT / 38, 2H**, 2H**, 2H* , 2HST, 2HAT, 2HEM, 2HEN, 2HT( 30036 1 , 2HS), 2H N, 2HEE, 2HDE, 2HD , 2HBE, 2HFO, 2HRE 30037 1 , 2H L, 2HIN, 2HE / 30038 DATA SINS2 / 13, 2HAS, 2HSU, 2HME, 2HD , 2HBE, 2HLO, 1HW/ 30039 DATA SITODM / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HON, 2HLY, 2H T 30040 1 , 2HO , 2HAN, 2HD , 2HEN, 2HD , 2HAR, 2HE , 2HVA 30041 1 , 2HLI, 2HD , 2HAT, 2H T, 2HHI, 2HS , 2HPO, 2HIN 30042 1 , 2HT)/ 30043 DATA SIWHEN / 39, 2H**, 2H**, 2H* , 2H , 2H (, 2HWH, 2HEN, 2H T 30044 1 , 2HO , 2HMA, 2HTC, 2HH , 2HFO, 2HLL, 2HOW, 2HIN 30045 1 , 2HG , 2HEL, 2HSE, 1H)/ 30046 DATA SMULER / 44, 2H**, 2H**, 2H* , 2H , 2H (, 2HPR, 2HOC, 2HED 30047 1 , 2HUR, 2HE , 2HAL, 2HRE, 2HAD, 2HY , 2HDE, 2HFI 30048 1 , 2HNE, 2HD , 2HON, 2H L, 2HIN, 2HE / 30049 DATA SNDER1 / 42, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HNE, 2HXT, 2H 30050 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W, 2HER, 2HE 30051 1 , 2HIN, 2HVO, 2HKE, 2HD , 2HON/ 30052 DATA SNDER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 30053 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 30054 1 , 2HEV, 2HER, 2H D, 2HEF, 2HIN, 2HED/ 30055 DATA SNIER1 / 46, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HFO, 2HLL, 2HOW 30056 1 , 2HIN, 2HG , 2HPR, 2HOC, 2HED, 2HUR, 2HES, 2H W 30057 1 , 2HER, 2HE , 2HDE, 2HFI, 2HNE, 2HD , 2HON/ 30058 DATA SNIER2 / 44, 2H**, 2H**, 2H* , 2HTH, 2HE , 2HLI, 2HNE, 2HS 30059 1 , 2HGI, 2HVE, 2HN , 2HBU, 2HT , 2HWE, 2HRE, 2H N 30060 1 , 2HEV, 2HER, 2H I, 2HNV, 2HOK, 2HED/ 30061 DATA SRP / 1, 1H)/ 30062 DATA SSPACR / 3, 2H. , 1H / 30063 DATA STABH / 37, 2H , 2H , 2H , 2HPR, 2HOC, 2HED, 2HUR, 2HE 30064 1 , 2HCR, 2HOS, 2HS-, 2HRE, 2HFE, 2HRE, 2HNC, 2HE 30065 1 , 2HTA, 2HBL, 1HE/ 30066 DATA STODUM / 24, 2H , 2H , 2H , 2HTO, 2H D, 2HUM, 2HMY, 2H-P 30067 1 , 2HRO, 2HCE, 2HDU, 2HRE/ 30068 DATA SVER / 21, 2H(F, 2HLE, 2HCS, 2H V, 2HER, 2HSI, 2HON, 2H 2 30069 1 , 2H2., 2H54, 1H)/ 30070 DATA SWHEN / 29, 2H , 2H , 2H , 2HWH, 2HEN, 2H (, 2H.T, 2HRU 30071 1 , 2HE., 2H) , 2HCA, 2HLL, 2H E, 2HXI, 1HT/ 30072 DATA SXER1 / 54, 2H**, 2H**, 2H* , 2H , 2H (, 2HIN, 2HVA, 2HLI 30073 1 , 2HD , 2HCH, 2HAR, 2HAC, 2HTE, 2HR , 2HIN, 2H S 30074 1 , 2HTA, 2HTE, 2HME, 2HNT, 2H N, 2HUM, 2HBE, 2HR 30075 1 , 2HFI, 2HEL, 2HD)/ 30076 DATA SXER2 / 53, 2H**, 2H**, 2H* , 2H , 2H (, 2HRE, 2HCO, 2HGN 30077 1 , 2HIZ, 2HAB, 2HLE, 2H S, 2HTA, 2HTE, 2HME, 2HNT 30078 1 , 2H F, 2HOL, 2HLO, 2HWE, 2HD , 2HBY, 2H G, 2HAR 30079 1 , 2HBA, 2HGE, 1H)/ 30080 DATA SXER3 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HLE, 2HFT, 2H P 30081 1 , 2HAR, 2HEN, 2H D, 2HOE, 2HS , 2HNO, 2HT , 2HFO 30082 1 , 2HLL, 2HOW, 2H C, 2HON, 2HTR, 2HOL, 2H W, 2HOR 30083 1 , 2HD)/ 30084 DATA SXER4 / 30, 2H**, 2H**, 2H* , 2H , 2H (, 2HMI, 2HSS, 2HIN 30085 1 , 2HG , 2HRI, 2HGH, 2HT , 2HPA, 2HRE, 2HN)/ 30086 DATA SXER5 / 50, 2H**, 2H**, 2H* , 2H , 2H (, 2HVA, 2HLI, 2HD 30087 1 , 2HPR, 2HOC, 2HED, 2HUR, 2HE , 2HNA, 2HME, 2H D 30088 1 , 2HOE, 2HS , 2HNO, 2HT , 2HFO, 2HLL, 2HOW, 2H T 30089 1 , 2HO)/ 30090 IF(.NOT.(SOURCE.EQ.SETUP)) GO TO 32758 31850 SOURCE=RETRY 31851 GO TO 32759 31900 32758 IF(.NOT.(ERROR.EQ.0.AND.ERSTOP.EQ.0)) GO TO 32757 31901 SOURCE=READ 31950 ASSIGN 32755 TO I32756 32000 GO TO 32756 32001 32755 GO TO 32759 32100 32757 MINER=(((ERROR.GE.5).AND.(ERROR.LE.6)).OR. 32150 1 ((ERROR.GE.13).AND.(ERROR.LE.15))) 32200 MINER=MINER.OR.((ERROR.GE.1).AND.(ERROR.LE.3)) 32225 2 .OR.(ERROR.EQ.25) 32227 IF(.NOT.(MINER)) GO TO 32753 32250 MINCNT=MINCNT+1 32251 GO TO 32754 32252 32753 MAJCNT=MAJCNT+1 32300 32754 IF(.NOT.(ERROR.EQ.0)) GO TO 32751 32350 ERTYPE=1 32351 GO TO 32752 32352 32751 IF(.NOT.(ERROR.LE.3)) GO TO 32749 32500 ASSIGN 32747 TO I32748 32501 GO TO 32748 32502 32747 GO TO 32750 32550 32749 IF(.NOT.(ERROR.EQ.4)) GO TO 32746 32551 ASSIGN 32744 TO I32745 32552 GO TO 32745 32553 32744 GO TO 32750 32600 32746 IF(.NOT.(ERROR.LE.6)) GO TO 32743 32601 ERTYPE=3 32602 GO TO 32750 32650 32743 IF(.NOT.(ERROR.EQ.7)) GO TO 32742 32651 ASSIGN 32741 TO I32745 32652 GO TO 32745 32653 32741 GO TO 32750 32700 32742 IF(.NOT.(ERROR.EQ.8)) GO TO 32740 32701 ASSIGN 32738 TO I32739 32702 GO TO 32739 32703 32738 GO TO 32750 32750 32740 IF(.NOT.(ERROR.EQ.9)) GO TO 32737 32751 ASSIGN 32735 TO I32736 32752 GO TO 32736 32753 32735 GO TO 32750 32800 32737 IF(.NOT.(ERROR.EQ.10)) GO TO 32734 32801 ASSIGN 32732 TO I32733 32802 GO TO 32733 32803 32732 GO TO 32750 32850 32734 IF(.NOT.(ERROR.LE.12)) GO TO 32731 32851 ASSIGN 32730 TO I32748 32852 GO TO 32748 32853 32730 GO TO 32750 32900 32731 IF(.NOT.(ERROR.LE.15)) GO TO 32729 32901 ASSIGN 32728 TO I32748 32902 GO TO 32748 32903 32728 GO TO 32750 32950 32729 IF(.NOT.(ERROR.EQ.16)) GO TO 32727 32951 ASSIGN 32726 TO I32745 32952 GO TO 32745 32953 32726 GO TO 32750 33000 32727 IF(.NOT.(ERROR.EQ.17)) GO TO 32725 33001 ASSIGN 32723 TO I32724 33002 GO TO 32724 33003 32723 GO TO 32750 33050 32725 IF(.NOT.(ERROR.EQ.18)) GO TO 32722 33051 ASSIGN 32721 TO I32736 33052 GO TO 32736 33053 32721 GO TO 32750 33100 32722 IF(.NOT.(ERROR.LE.19)) GO TO 32720 33101 ASSIGN 32719 TO I32724 33102 GO TO 32724 33103 32719 GO TO 32750 33150 32720 IF(.NOT.(ERROR.EQ.20)) GO TO 32718 33151 ASSIGN 32717 TO I32745 33152 GO TO 32745 33153 32717 GO TO 32750 33200 32718 IF(.NOT.(ERROR.EQ.21)) GO TO 32716 33201 ASSIGN 32715 TO I32736 33202 GO TO 32736 33203 32715 GO TO 32750 33250 32716 IF(.NOT.(ERROR.LE.23)) GO TO 32714 33251 ASSIGN 32713 TO I32748 33252 GO TO 32748 33253 32713 GO TO 32750 33300 32714 IF(.NOT.(ERROR.EQ.24)) GO TO 32712 33301 ASSIGN 32711 TO I32745 33302 GO TO 32745 33303 32711 GO TO 32750 33350 32712 IF(.NOT.(ERROR.EQ.25)) GO TO 32710 33351 ERTYPE=4 33352 GO TO 32750 33400 32710 IF(.NOT.(ERROR.EQ.26)) GO TO 32709 33401 ERTYPE=5 33402 32709 CONTINUE 33450 32750 CONTINUE 33500 32752 SOURCE=READ 33550 IF((1).NE.(ERTYPE)) GO TO 32707 33650 CALL PUT(-LINENO,SHOLD,ERRCL) 33700 DO 32706 I=1,ERSTOP 33750 IF((1).NE.(ERRSTK(I))) GO TO 32704 33850 CALL PUT(0,SXER1,ERRCL) 33851 GO TO 32705 33900 32704 IF((2).NE.(ERRSTK(I))) GO TO 32703 33901 CALL PUT(0,SXER2,ERRCL) 33902 GO TO 32705 33950 32703 IF((3).NE.(ERRSTK(I))) GO TO 32702 33951 CALL PUT(0,SXER3,ERRCL) 33952 GO TO 32705 34000 32702 IF((4).NE.(ERRSTK(I))) GO TO 32701 34001 CALL PUT(0,SXER4,ERRCL) 34002 GO TO 32705 34050 32701 IF((5).NE.(ERRSTK(I))) GO TO 32700 34051 CALL PUT(0,SXER5,ERRCL) 34052 32700 CONTINUE 34100 32705 CONTINUE 34150 32706 CONTINUE 34151 GO TO 32708 34250 32707 IF((2).NE.(ERTYPE)) GO TO 32699 34251 SOURCE=SETUP 34252 GO TO 32708 34300 32699 IF((3).NE.(ERTYPE)) GO TO 32698 34301 CALL PUT(-LINENO,SFLX,ERRCL) 34350 CALL PUT(0,SIGN,ERRCL) 34400 GO TO 32708 34500 32698 IF((4).NE.(ERTYPE)) GO TO 32697 34501 CALL PUT(0,SENDER,ERRCL) 34502 GO TO 32708 34550 32697 IF((5).NE.(ERTYPE)) GO TO 32696 34551 CALL PUT(LINENO,SFLX,ERRCL) 34600 CALL CPYSTR(SST,SMULER) 34650 CALL CATNUM(SST,MLINE) 34700 CALL CATSTR(SST,SRP) 34750 CALL PUT(0,SST,ERRCL) 34800 32696 CONTINUE 34900 32708 CONTINUE 35000 32759 IF(.NOT.(ENDPGM)) GO TO 32695 35050 ASSIGN 32693 TO I32694 35100 GO TO 32694 35101 32693 ASSIGN 32691 TO I32692 35150 GO TO 32692 35151 32691 CALL PUT(0,SVER,LISTCL) 35200 32695 RETURN 35360 32724 CONTINUE 60450 ASSIGN 32689 TO I32690 60500 GO TO 32690 60501 32689 CALL CPYSTR(SFLX,SCOND) 60550 CALL PUT(0,SICOND,ERRCL) 60600 GO TO I32724 60650 32745 CONTINUE 60700 ASSIGN 32688 TO I32690 60750 GO TO 32690 60751 32688 CALL CPYSTR(SFLX,SELSE) 60800 CALL CPYSTR(SLIST,SIELSE) 60850 CALL CATNUM(SLIST,STACK(TOP-1)) 60900 CALL CATSTR(SLIST,SRP) 60950 CALL PUT(0,SLIST,ERRCL) 61000 GO TO I32745 61050 32748 CONTINUE 61100 ASSIGN 32687 TO I32690 61150 GO TO 32690 61151 32687 CALL CPYSTR(SFLX,SFIN) 61200 CALL CPYSTR(SLIST,SIFIN) 61250 IF(.NOT.(STACK(TOP-1).EQ.0)) GO TO 32685 61300 CALL CATSTR(SLIST,SIFIN2) 61301 GO TO 32686 61302 32685 CALL CATNUM(SLIST,STACK(TOP-1)) 61400 CALL CATSTR(SLIST,SRP) 61450 32686 CALL PUT(0,SLIST,ERRCL) 61550 GO TO I32748 61600 32736 CONTINUE 61650 ASSIGN 32684 TO I32690 61700 GO TO 32690 61701 32684 CALL CPYSTR(SFLX,STODUM) 61750 CALL PUT(0,SITODM,ERRCL) 61800 GO TO I32736 61850 32739 CONTINUE 61900 ASSIGN 32683 TO I32690 61950 GO TO 32690 61951 32683 CALL CPYSTR(SFLX,SWHEN) 62000 CALL PUT(0,SIWHEN,ERRCL) 62050 GO TO I32739 62100 32733 CONTINUE 62105 IF(.NOT.(TOP.LE.7)) GO TO 32681 62107 ASSIGN 32680 TO I32739 62108 GO TO 32739 62109 32680 GO TO 32682 62110 32681 IF(.NOT.(STACK(TOP-6).EQ.AELSE)) GO TO 32679 62111 ASSIGN 32678 TO I32748 62112 GO TO 32748 62113 32678 GO TO 32682 62114 32679 ASSIGN 32677 TO I32739 62115 GO TO 32739 62116 32677 CONTINUE 62117 32682 GO TO I32733 62118 32692 CONTINUE 62200 LSTLEV=LEVEL 62220 IF(.NOT.(LSTLEV.EQ.0.OR.(SSPACR(1)*LSTLEV+SB6(1).GT.WWIDTH))) GO T 62250 1O 32675 62251 CALL PUT(BLN,SB,LISTCL) 62260 GO TO 32676 62270 32675 CALL CPYSTR(SLIST,SB6) 62350 DO 32674 I=1,LSTLEV 62400 CALL CATSTR(SLIST,SSPACR) 62401 32674 CONTINUE 62402 CALL PUT(BLN,SLIST,LISTCL) 62500 32676 BLN=0 62600 GO TO I32692 62650 32673 CONTINUE 63650 CALL PUT(0,SB,LISTCL) 63700 CALL PUT(0,SDASH,LISTCL) 63750 CALL PUT(0,SB,LISTCL) 63800 GO TO I32673 63850 32756 CONTINUE 63950 IF(.NOT.(CLASS.EQ.TTO)) GO TO 32672 64000 ASSIGN 32671 TO I32673 64001 GO TO 32673 64002 32671 CONTINUE 64003 32672 IF (SFLX(1).LT.7) CALL CATSTR(SFLX,SB7) 64050 CALL CPYSUB(SLIST,SFLX,1,6) 64100 IF(LSTLEV.EQ.0.OR.(SSPACR(1)*LSTLEV+SFLX(1).GT.WWIDTH)) GO TO 3267 64150 10 64151 DO 32669 I=1,LSTLEV 64200 CALL CATSTR(SLIST,SSPACR) 64201 32669 CONTINUE 64202 IF(.NOT.(CLASS.EQ.TFIN)) GO TO 32668 64300 SLIST(1)=SLIST(1)-SSPACR(1) 64350 CALL CATSTR(SLIST,SFSPCR) 64400 32668 CONTINUE 64460 32670 CALL CATSUB(SLIST,SFLX,7,SFLX(1)-6) 64500 IF (SLIST(1).GT.WWIDTH) CALL CPYSTR(SLIST,SFLX) 64550 IF(.NOT.(ERLST)) GO TO 32666 64600 CALL PUT(LINENO,SLIST,ERRCL) 64650 ERLST=.FALSE. 64700 GO TO 32667 64750 32666 CALL PUT(LINENO,SLIST,LISTCL) 64800 32667 GO TO I32756 64850 32690 CONTINUE 66850 ERTYPE=2 66900 ASSIGN 32664 TO I32665 66950 GO TO 32665 66951 32664 LINENO=0 67000 IF(.NOT.(SOURCE.EQ.READ)) GO TO 32663 67050 CALL CPYSTR(SST,SINSRT) 67100 IF(.NOT.(HOLDNO.GT.0)) GO TO 32661 67150 CALL CATNUM(SST,HOLDNO) 67151 GO TO 32662 67152 32661 CALL CATSTR(SST,SINS2) 67200 32662 CALL PUT(0,SST,ERRCL) 67250 32663 GO TO I32690 67350 32694 CONTINUE 73050 IF(PTABLE.EQ.0) GO TO 32660 73100 TABLCL=LISTCL 73150 ASSIGN 32659 TO I32673 73200 GO TO 32673 73201 32659 CALL PUT(0,STABH,LISTCL) 73250 CALL PUT(0,SB,LISTCL) 73300 P=PTABLE 73350 NDERR=.FALSE. 73400 NIERR=.FALSE. 73450 GO TO 32657 73500 32658 IF(P.EQ.0) GO TO 32656 73501 32657 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32655 73551 NDERR=.TRUE. 73552 MAJCNT=MAJCNT+1 73553 32655 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32654 73601 NIERR=.TRUE. 73602 MINCNT=MINCNT+1 73603 32654 ASSIGN 32652 TO I32653 73750 GO TO 32653 73751 32652 P=STACK(P) 73800 GO TO 32658 73850 32656 IF(.NOT.(NDERR)) GO TO 32651 73900 CALL PUT(0,SNDER1,ERRCL) 73950 CALL PUT(0,SNDER2,ERRCL) 74000 ASSIGN 32650 TO I32692 74050 GO TO 32692 74051 32650 P=PTABLE 74100 TABLCL=ERRCL 74150 GO TO 32648 74200 32649 IF(P.EQ.0) GO TO 32647 74201 32648 IF(.NOT.(STACK(P+2).EQ.0)) GO TO 32646 74250 ASSIGN 32645 TO I32653 74251 GO TO 32653 74252 32645 CONTINUE 74253 32646 P=STACK(P) 74300 GO TO 32649 74350 32647 CONTINUE 74400 32651 IF(.NOT.(NIERR)) GO TO 32644 74450 CALL PUT(0,SNIER1,ERRCL) 74500 CALL PUT(0,SNIER2,ERRCL) 74550 ASSIGN 32643 TO I32692 74600 GO TO 32692 74601 32643 P=PTABLE 74650 TABLCL=ERRCL 74700 GO TO 32641 74750 32642 IF(P.EQ.0) GO TO 32640 74751 32641 IF(.NOT.(STACK(P+3).EQ.0)) GO TO 32639 74800 ASSIGN 32638 TO I32653 74801 GO TO 32653 74802 32638 CONTINUE 74803 32639 P=STACK(P) 74850 GO TO 32642 74900 32640 CONTINUE 74950 32644 CONTINUE 75000 32660 GO TO I32694 75050 32653 CONTINUE 75100 CALL CPYSTR(SST,SB6) 75150 IF(.NOT.(STACK(P+2).EQ.0)) CALL PUTNUM(SST,STACK(P+2)) 75200 CALL CATSTR(SST,STACK(P+4)) 75250 CALL PUT(0,SST,TABLCL) 75300 QP=STACK(P+3) 75350 32637 IF(QP.EQ.0) GO TO 32636 75400 CALL CPYSTR(SST,SB4) 75450 I=1 75500 32635 IF(QP.EQ.0.OR.I.GT.REFNO) GO TO 32634 75550 CALL CATSTR(SST,SB2) 75600 CALL CATNUM(SST,STACK(QP+1)) 75650 I=I+1 75700 QP=STACK(QP) 75750 GO TO 32635 75800 32634 CALL PUT(0,SST,TABLCL) 75850 GO TO 32637 75900 32636 CALL PUT(0,SB,LISTCL) 75950 GO TO I32653 76000 32665 CONTINUE 82800 IF(SAVED) GO TO 32633 82850 SAVED=.TRUE. 82900 HOLDNO=LINENO 82950 CALL CPYSTR(SHOLD,SFLX) 83000 32633 GO TO I32665 83100 END 95400 END 95400