$IBFTC DETABT DIMENSION IA(6,5), IB(6,5), IC(72), IC1(140) 1 DATA IB/30*1H / 2 INTEGER FORMT1(8),FORMT2(12),FORMT3(17),FORMT4(8) DATA FORMT1/6H(6X,8H,6HINTEGE,3HR ,,0,6HA1,1H(,2H,I,0,5H,1H))/ 4 DATA FORMT2/6H(6X,13,6HHEQUIV,6HALENCE,3H (,,0,6HA1,1H(,2H,I,0,6H, 5 12H),,,0,6HA1,1H),1H)/ 6 DATA FORMT3/6H(6X,5H,6HDATA ,,0,6HA1,1H(,2H,I,0,6H,2H),,,0,6HA1,1H 7 1(,2H,I,0,6H,2H),,,0,6HA1,1H(,2H,I,0,6H,2H)/)/ 8 DATA FORMT4 /6H(6X,5H,6HDATA ,,0,6HA1,4H(,5H1)/,I,0,5H,1H/)/ DATA ICTL,ICC,IDC,ILP,IRP,IY,IN,IDASH,ICOMMA/6HCTL ,1HC,1HD,1H(, 9 11H),1HY,1HN,1H-,1H,/ 10 DATA IBK/1H / 11 DIMENSION N(5) 12 DATA N/5*0/ 13 INTEGER ALS,ORA,ARS 14 EXTERNAL ALS,ORA,ARS 15 10 READ (5,320) ITEST,NR,IA 16 IF (ITEST.EQ.ICTL) GO TO 20 17 WRITE (6,330) ITEST,NR,IA 18 GO TO 10 19 C 20 C PACK UP NAMES AND COUNT NON BLANK CHARACTERS. COMPUTE FORMATS. 21 C 22 20 WRITE (6,340) ITEST,NR,IA 23 ISIZE=4*NR+1 24 IMM=NR+2 25 IAM=NR+IMM 26 ISEQ=NR+IAM 27 X=ISIZE 28 L1=ALOG10(X)+1. 29 X=NR 30 L2=ALOG10(X)+1. 31 X=IMM 32 L3=ALOG10(X)+1. 33 X=IAM 34 L4=ALOG10(X)+1. 35 X=ISEQ 36 L5=ALOG10(X)+1. 37 K=0 38 DO 40 J=1,5 39 DO 30 I=1,6 40 IF (IA(I,J).EQ.IBK) GO TO 30 41 K=K+1 42 IB(K,J)=IA(I,J) 43 30 CONTINUE 44 N(J)=K 45 K=0 46 40 CONTINUE 47 C 48 C PUNCH 'INTEGER' CARDS. 49 C 50 DO 70 I=1,5 51 FORMT1(4)=N(I) 52 IF (I.NE.1) GO TO 50 53 FORMT1(7)=L1 54 J=ISIZE 55 GO TO 60 56 50 FORMT1(7)=L2 57 J=NR 58 60 M=N(I) 59 PUNCH FORMT1, (IB(K,I),K=1,M),J 60 70 CONTINUE 61 C 62 C PUNCH 'EQUIVALENCE' CARDS. 63 C 64 M1=N(1) 65 FORMT2(5)=M1 66 DO 130 I=2,5 67 I1=I-1 68 GO TO (80,90,100,110), I1 69 80 ISPOT=2 70 FORMT2(8)=1 71 GO TO 120 72 90 ISPOT=IMM 73 FORMT2(8)=L3 74 GO TO 120 75 100 ISPOT=IAM 76 FORMT2(8)=L4 77 GO TO 120 78 110 ISPOT=ISEQ 79 FORMT2(8)=L5 80 120 FORMT2(10)=N(I) 81 M2=N(I) 82 PUNCH FORMT2, (IB(K,1),K=1,M1),ISPOT,(IB(K,I),K=1,M2) 83 130 CONTINUE 84 C 85 C READ DECISION TABLE AND PUNCH DATA CARDS. 86 C 87 FORMT4(3)=M1 X=NR FORMT4(6)=ALOG10(X)+1. PUNCH FORMT4, (IB(K,1),K=1,M1),NR NRULE=-1 88 M1=N(2) 89 FORMT3(3)=M1 90 M2=N(3) 91 FORMT3(8)=M2 92 M3=N(4) 93 FORMT3(13)=M3 94 GO TO 170 95 140 K=0 96 150 DO 160 I=7,72 97 IF (IC(I).EQ.IBK) GO TO 160 98 K=K+1 99 IC1(K)=IC(I) 100 160 CONTINUE 101 IF (NR.EQ.NRULE+1) GO TO 200 102 170 READ (5,350) IC 103 WRITE (6,360) IC 104 IF (IC(1).NE.ICC) GO TO 180 105 PUNCH 350, IC 106 GO TO 170 107 180 IF (IC(1).EQ.IDC) GO TO 190 108 WRITE (6,370) 109 GO TO 170 110 190 IF (IC(6).NE.IBK) GO TO 150 111 200 NRULE=NRULE+1 112 IF (NRULE.EQ.0) GO TO 140 113 IF (IC1(1).EQ.ILP) GO TO 210 114 WRITE (6,380) 115 GO TO 140 116 210 ICV=0 117 IMV=0 118 IAV=0 119 DO 240 I=2,37 120 JSH=37-I 121 IBIT=ALS(JSH,1) 122 IF (IC1(I).EQ.IRP) GO TO 260 123 IF (IC1(I).EQ.IY) GO TO 220 124 IF (IC1(I).EQ.IN) GO TO 230 125 IF (IC1(I).EQ.IDASH) GO TO 240 126 WRITE (6,380) 127 GO TO 140 128 220 ICV=ORA(ICV,IBIT) 129 230 IMV=ORA(IMV,IBIT) 130 240 CONTINUE 131 IF (IC1(38).EQ.IRP) GO TO 250 132 WRITE (6,380) 133 GO TO 140 134 250 I=38 135 260 I=I+1 136 IF (I.GT.K) GO TO 290 137 IAN=0 138 270 IF (IC1(I).EQ.ICOMMA.AND.IAN.EQ.0) GO TO 260 139 IF (IC1(I).EQ.ICOMMA) GO TO 290 140 IC1(I)=ARS(30,IC1(I)) 141 IF (IC1(I).LE.9) GO TO 280 142 WRITE (6,380) 143 GO TO 140 144 280 IAN=IC1(I)+10*IAN 145 I=I+1 146 IF (I.LE.K) GO TO 270 147 290 JSH=36-IAN 148 IF (JSH.GE.0) GO TO 300 149 WRITE (6,390) 150 GO TO 310 151 300 IBIT=ALS(JSH,1) 152 IAV=ORA(IAV,IBIT) 153 IF (I.LT.K) GO TO 260 154 X=NRULE 155 L=ALOG10(X)+1. 156 FORMT3(6)=L 157 FORMT3(11)=L 158 FORMT3(16)=L 159 PUNCH FORMT3, (IB(J,2),J=1,M1),NRULE,(IB(J,3),J=1,M2),NRULE,(IB(J, 160 14),J=1,M3),NRULE 161 PUNCH 400, ICV,IMV,IAV 162 310 IF (NRULE.LT.NR) GO TO 140 163 PUNCH 410 164 GO TO 10 165 C 166 320 FORMAT (A6,1X,I6,5(1X,6A1)) 167 330 FORMAT (1H0,A6,1X,I6,5(1X,6A1),31H IS NOT A RECOGNIZABLE CONTROL , 168 15HCARD.) 169 340 FORMAT (1H1,A6,1X,I6,5(1X,6A1)) 170 350 FORMAT (72A1) 171 360 FORMAT (1X,72A1) 172 370 FORMAT (45H0ABOVE CARD DOES NOT HAVE C OR D IN COLUMN 1.) 173 380 FORMAT (25H0ABOVE CARD HAS AN ERROR.) 174 390 FORMAT (47H0ABOVE CARD SPECIFIES AN INVALID ACTION NUMBER.) 175 400 FORMAT (5X,1H*,4X,1HO,O12,2H,O,O12,2H,O,O12,1H/) 176 410 FORMAT (1HC,5X,47HUSER MUST PUNCH A DATA CARD FOR SEQUENCE VECTOR/ 177 1) 178 END 179- CTL 109 DETAB CM MM AM F D 0 (-YNNNNN) 1 D 1 (Y-YNNNNN----N-N) 2,4 D 2 (Y-NYNNNN----N-N) 2,6 D 3 (Y-NNYNNN----N-N) 2,4 D 4 (Y-NNNYNN----N-N) 2,4 D 5 (Y-YNNNNN----Y-N) 2,4 D 6 (Y-NYNNNN----Y-N) 2,4 D 7 (Y-NNYNNN----Y-N) 2,4 D 8 (Y-NNNYNN----Y-N) 2,4 D 9 (Y-YNNNNN----N-Y) 3,4 D 10 (Y-NYNNNN----N-Y) 3,6 D 11 (Y-NNYNNN----N-Y) 3,4 D 12 (Y-NNNYNN----N-Y) 3,4 D 13 (Y-YNNNNN----Y-Y) 3,4 D 14 (Y-NYNNNN----Y-Y) 3,4 D 15 (Y-NNYNNN----Y-Y) 3,4 D 16 (Y-NNNYNN----Y-Y) 3,4 D 17 (Y) 10 D 18 (N-----Y) 11 D 19 (N------Y) 11 D 20 (NNYNNN------N-N) 2,4 D 21 (NNNYNN------N-N) 2,4 D 22 (NNNNYN------N-N) 2,4 D 23 (NNNNNY------N-N) 2,4 D 24 (NYYNNN------N) 1,2,4 D 25 (NYNYNN------N) 1,2,4 D 26 (NYNNYN------N) 1,2,4 D 27 (NYNNNY------N) 1,2,4 D 28 (NNYNNN------YNN) 2,4 D 29 (NNNYNN------YNN) 2,4,7,14 D 30 (NNNNYN------YNN) 2,4,7,14 D 31 (NNNNNY------YNN) 2,4 D 32 (NNYNNN------YYN) 2,4,8 D 33 (NNNYNN------YYN) 2,4,7,8,14 D 34 (NNNNYN------YYN) 2,4,7,8,14 D 35 (NNNNNY------YYN) 2,4,8 D 36 (NYYNNN------YN) 1,2,4 D 37 (NYNYNN------YN) 1,2,4,7,14 D 38 (NYNNYN------YN) 1,2,4,7,14 D 39 (NYNNNY------YN) 1,2,4 D 40 (NYYNNN------YY) 1,2,4,8 D 41 (NYNYNN------YY) 1,2,4,7,8,14 D 42 (NYNNYN------YY) 1,2,4,7,8,14 D 43 (NYNNNY------YY) 1,2,4,8 D 44 (NNYNNN------N-Y) 3,4 D 45 (NNNYNN------N-Y) 3,6 D 46 (NNNNYN------N-Y) 3,4 D 47 (NNNNNY------N-Y) 3,4 D 48 (NNYNNN-----NYNYYNNN) 3,4,7,14 D 49 (NNNYNN-----NYNYYNNN) 3,4,7,14 D 50 (NNNNYN-----NYNYYNNN) 3,4,7,14 D 51 (NNNNNY-----NYNYYNNN) 3,4,7,14 D 52 (NNYNNN-----YYNYYNNN) 3,6,13 D 53 (NNNYNN--NN-YYNYYNNN) 3,6 D 54 (NNNNYN--NN-YYNYYNNN) 3,4 D 55 (NNNNNY-----YYNYYNNN) 3,4,7,14 D 56 (NNYNNN-----NYYYYNNN) 3,4,7,8,14 D 57 (NNNYNN-----NYYYYNNN) 3,4,7,8,14 D 58 (NNNNYN-----NYYYYNNN) 3,4,7,8,14 D 59 (NNNNNY-----NYYYYNNN) 3,4,7,8,14 D 60 (NNYNNN-----YYYYYNNN) 6,13 D 61 (NNNYNN--NN-YYYYYNNN) 3,6,8 D 62 (NNNNYN--NN-YYYYYNNN) 3,6,8 D 63 (NNNNNY-----YYYYYNNN) 3,4,7,8,14 D 64 (NNYNNN-----NYNYNYNN) 3,4,7,14 D 65 (NNNYNN-----NYNYNYNN) 3,4,7,14 D 66 (NNNNYN-----NYNYNYNN) 3,4,7,14 D 67 (NNNNNY-----NYNYNYNN) 3,4,7,14 D 68 (NNYNNN-----YY-YNYNN) 6,13 D 69 (NNNYNN--NN-YYNYNYNN) 3,6 D 70 (NNNNYN--NN-YYNYNYNN) 3,4 D 71 (NNNNNY-----YYNYNYNN) 3,4,7,14 D 72 (NNYNNN-----NYYYNYNN) 3,4,7,8,14 D 73 (NNNYNN-----NYYYNYNN) 3,4,7,8,14 D 74 (NNNNYN-----NYYYNYNN) 3,4,7,8,14 D 75 (NNNNNY------YYYNYNN) 3,4,7,8,14 D 76 (NNNYNN--NN-YYYYNYNN) 3,6,8 D 77 (NNNNYN--NN-YYYYNYNN) 3,4,8 D 78 (NNYNNN-----NYNYNNYN) 3,4 D 79 (NNNYNN-----NYNYNNYN) 3,4,7,14 D 80 (NNNNYN-----NYNYNNYN) 3,4,7,14 D 81 (NNNNNY------YNYNNYN) 3,4 D 82 (NNYNNN-----YY-YNNYN) 6,13 D 83 (NNNYNN-----YY-YNNYN) 6,13 D 84 (NNNNYN-----YY-YNNYN) 6,13 D 85 (NNYNNN-----NYYYNNYN) 3,4,8 D 86 (NNNYNN-----NYYYNNYN) 3,4,7,8,14 D 87 (NNNNYN-----NYYYNNYN) 3,4,7,8,14 D 88 (NNNNNY------YYYNNYN) 3,4,8 D 89 (NNYNNN------YNYNNNY) 3,4 D 90 (NNNYNN------YNYNNNY) 3,4,7,14 D 91 (NNNNYN------YNYNNNY) 3,4,7,14 D 92 (NNNNNY------YNYNNNY) 3,4 D 93 (NNYNNN------YYYNNNY) 3,4,8 D 94 (NNNYNN------YYYNNNY) 3,4,7,8,14 D 95 (NNNNYN------YYYNNNY) 3,4,7,8,14 D 96 (NNNNNY------YYYNNNY) 3,4,8 D 97 (NNNYNN--YN-YYNYYNNN) 3,6,12 D 98 (NNNYNN--NY-YY-YYNNN) 6,9 D 99 (NNNNYN--YN-YYNYYNNN) 3,4,12 D 100 (NNNNYN--NY-YY-YYNNN) 6,9 D 101 (NNNYNN--YN-YYYYYNNN) 3,6,8,12 D 102 (NNNNYN--YN-YYYYYNNN) 3,4,8,12 D 103 (NNNYNN--YN-YYNYNYNN) 3,6,12 D 104 (NNNYNN--NY-YY-YNYNN) 6,9 D 105 (NNNNYN--YN-YYNYNYNN) 3,4,12 D 106 (NNNNYN--NY-YY-YNYNN) 6,9 D 107 (NNNYNN--YN-YYYYNYNN) 3,6,8,12 D 108 (NNNNYN--YN-YYYYNYNN) 3,4,8,12