$EXECUTE FORTRAN 1 * ID TRAN 1 * XEQ * LIST 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) TR000001 EQUIVALENCE (IS,S),(MASK,ASK),(EIM,IM),(DEL,IDEL),(ADD,IADD) TR000002 COMMON IS TR000003 DIMENSION LB(100),LC(101),IS(100,101),IV(101),IU(100),IA(100,101),TR000004 1LU(100),LV(101),S(100,101) TR000005 EQUIVALENCE (FMLT,MLT) TR000006 NOTP=0 TR000007 IF(JE)301,301,302 TR000008 302 NOTP=JE TR000009 301 JE=0 TR000010 M=MM TR000011 N=NN TR000012 ISM1=0 TR000013 ISM2=0 TR000014 DO 400 I=1,M TR000015 400 ISM1=ISM1+LB(I) TR000016 DO 401 J=1,N TR000017 401 ISM2=ISM2+LC(J) TR000018 IF(ISM1-ISM2)402,403,402 TR000019 402 PRINT 404,ISM1,ISM2 TR000020 404 FORMAT(13H0SUM OF B(I)=I6,14H, SUM OF C(J)=I6) TR000021 JE=2 TR000022 RETURN TR000023 407 JE=3 TR000024 RETURN TR000025 403 CONTINUE TR000026 NSTEP=0 TR000027 NP1=N+1 TR000028 L2=NP1 TR000029 LIMSTG=N TR000030 B ASK=000000000077 TR000031 B ASKN=777777000000 TR000032 IOBJ=0 TR000033 NSTAGE=0 TR000034 C TR000035 C DENNIS METHOD TR000036 LG=32767 TR000037 DO 196 I=1,M TR000038 IU(I)=LB(I) TR000039 DO 196 J=1,N TR000040 196 IS(I,J)=0 TR000041 DO 255 J=1,N TR000042 255 IV(J)=LC(J) TR000043 DO 262 J=1,N TR000044 269 MIN=LG TR000045 DO 263 I=1,M TR000046 IF(MIN-IA(I,J))263,263,264 TR000047 264 IF(IU(I))263,263,266 TR000048 266 II=I TR000049 MIN=IA(I,J) TR000050 263 CONTINUE TR000051 I=II TR000052 IF(IV(J)-IU(I))267,267,268 TR000053 267 IS(I,J)=IV(J) TR000054 B S(I,J)=S(I,J)+ASK TR000055 IU(I)=IU(I)-IV(J) TR000056 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 2 IV(J)=0 TR000057 GO TO 262 TR000058 268 IS(I,J)=IU(I) TR000059 B S(I,J)=S(I,J)+ASK TR000060 IV(J)=IV(J)-IU(I) TR000061 IU(I)=0 TR000062 GO TO 269 TR000063 262 CONTINUE TR000064 C CALCULATE U(I) AND V(J) TR000065 500 DO 600 I=1,M TR000066 600 LU(I)=-2 TR000067 DO 601 J=1,N TR000068 601 LV(J)=-2 TR000069 I=1 TR000070 LU(I)=0 TR000071 IU(I)=0 TR000072 610 DO 602 J=1,N TR000073 J=J TR000074 B IF(S(I,J)*ASK)603,602,603 TR000075 603 IF(LV(J))604,602,602 TR000076 602 CONTINUE TR000077 GO TO 631 TR000078 604 LV(J)=0 TR000079 IV(J)=IA(I,J)-IU(I) TR000080 DO 605 I=1,M TR000081 I=I TR000082 B IF(S(I,J)*ASK)607,605,607 TR000083 607 IF(LU(I))608,605,605 TR000084 605 CONTINUE TR000085 GO TO 631 TR000086 608 LU(I)=0 TR000087 IU(I)=IA(I,J)-IV(J) TR000088 GO TO 610 TR000089 631 DO 638 I=1,M TR000090 I=I TR000091 IF(LU(I))638,633,633 TR000092 633 DO 632 J=1,N TR000093 J=J TR000094 B IF(S(I,J)*ASK)640,632,640 TR000095 640 IF(LV(J))604,632,632 TR000096 632 CONTINUE TR000097 638 CONTINUE TR000098 DO 639 J=1,N TR000099 J=J TR000100 IF(LV(J))639,635,635 TR000101 635 DO 634 I=1,M TR000102 I=I TR000103 B IF(S(I,J)*ASK)641,634,641 TR000104 641 IF(LU(I))608,634,634 TR000105 634 CONTINUE TR000106 639 CONTINUE TR000107 606 DO 611 J=1,N TR000108 J=J TR000109 IF (LV(J))612,611,611 TR000110 611 CONTINUE TR000111 DO 613 I=1,M TR000112 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 3 I=I TR000113 IF(LU(I))643,613,613 TR000114 643 DO 642 J=1,N TR000115 J=J TR000116 B IF(S(I,J)*ASK)614,642,614 TR000117 642 CONTINUE TR000118 614 LU(I)=0 TR000119 IU(I)=IA(I,J)-IV(J) TR000120 613 CONTINUE TR000121 C END OF INITIAL DUAL CALC. TR000122 GO TO 17 TR000123 612 ISWCH=1 TR000124 DO 615 I=1,M TR000125 I=I TR000126 B IF(S(I,J) *ASK)616,615,616 TR000127 616 IF(LU(I))628,604,604 TR000128 628 GO TO(617,615),ISWCH TR000129 617 ISWCH=2 TR000130 IK=I TR000131 615 CONTINUE TR000132 GO TO(618,619),ISWCH TR000133 618 PRINT 620,I,J TR000134 620 FORMAT(3H0I=I6,4H, J=I6) TR000135 GO TO 407 TR000136 619 I=IK TR000137 IU(I)=0 TR000138 LU(I)=0 TR000139 GO TO 604 TR000140 17 CONTINUE TR000141 IPL=1 TR000142 DO 622 J=1,N TR000143 DO 622 I=1,M TR000144 B IF(S(I,J)*ASK)623,622,623 TR000145 623 IF(IA(I,J)-IU(I)-IV(J))624,622,624 TR000146 622 CONTINUE TR000147 GO TO 629 TR000148 624 PRINT 625,IPL TR000149 625 FORMAT(12H0INFEASIBLE-I4) TR000150 GO TO 407 TR000151 629 CONTINUE TR000152 C TR000153 C CALCULATE OTHER X MATRIX ENTRIES TR000154 IMIN=0 TR000155 DO 19 J=1,N TR000156 DO 19 I=1,M TR000157 IF(IS(I,J))20,20,19 TR000158 20 IS(I,J)=IA(I,J)-IU(I)-IV(J) TR000159 IF(IS(I,J))256,257,256 TR000160 257 IS(I,J)=0 TR000161 256 CONTINUE TR000162 IF(IMIN-IS(I,J))19,19,21 TR000163 21 IMIN=IS(I,J) TR000164 KK=I TR000165 L1=J TR000166 19 CONTINUE TR000167 C IS MINIMUM ENTRY NEGATIVE TR000168 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 4 IF(IMIN)206,184,184 TR000169 C TR000170 C BEGINNING OF A STAGE L TR000171 206 CONTINUE TR000172 NSTAGE=NSTAGE+1 TR000173 IF(LIMSTG-NSTAGE)245,246,246 TR000174 245 PRINT 247,NSTAGE,LIMSTG TR000175 247 FORMAT(18H0NUMBER OF STAGES,I6,16H, EXCEEDS BOUND,I6) TR000176 GO TO 407 TR000177 246 CONTINUE TR000178 241 NSTEP=0 TR000179 IV(L2)=IV(L1) TR000180 IV(L1)=IA(KK,L1)-IU(KK) TR000181 DO 203 I=1,M TR000182 IS(I,L2)=IS(I,L1) TR000183 IA(I,L2)=IA(I,L1) TR000184 IS(I,L1)=IA(I,L1)-IU(I)-IV(L1) TR000185 IF(IS(I,L1))203,258,203 TR000186 258 IS(I,L1)=0 TR000187 203 CONTINUE TR000188 ICL1=0 TR000189 ICL2=LC(L1) TR000190 LIMSTP=M*ICL2 TR000191 254 DO 252 I=1,M TR000192 252 LU(I)=0 TR000193 DO 253 J=1,NP1 TR000194 253 LV(J)=0 TR000195 C TR000196 C BEGINNING OF A STEP TR000197 22 LV(L2)=KK TR000198 NSTEP=NSTEP+1 TR000199 IF(LIMSTP-NSTEP)248,249,249 TR000200 248 PRINT 250,NSTEP,L1,LIMSTP TR000201 250 FORMAT(17H0NUMBER OF STEPS,I6,10H, IN STAGEI6,16H, EXCEEDS BOUND,ITR000202 16) TR000203 GO TO 407 TR000204 249 CONTINUE TR000205 C TR000206 C LABELLING TR000207 125 IE=2 TR000208 DO 127 J=1,NP1 TR000209 IF(LV(J))127,127,128 TR000210 128 DO 25 I=1,M TR000211 B IF(S(I,J)*ASK)25,25,26 TR000212 26 IF(LU(I))25,27,25 TR000213 27 LU(I)=J TR000214 IE=1 TR000215 25 CONTINUE TR000216 127 CONTINUE TR000217 GO TO(129,126),IE TR000218 129 IE=2 TR000219 DO 28 I=1,M TR000220 IF(LU(I))28,28,30 TR000221 30 IF(I-KK)251,34,251 TR000222 251 DO 31 J=1,NP1 TR000223 B IF(S(I,J)*ASK)202,202,32 TR000224 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 5 202 IF(S(I,J))31,32,31 TR000225 32 IF(LV(J))31,33,31 TR000226 33 LV(J)=I TR000227 IE=1 TR000228 31 CONTINUE TR000229 28 CONTINUE TR000230 GO TO(125,126),IE TR000231 C TR000232 C IS U(K) LABELLED - CASE 2 OR 3 TR000233 126 IF(LU(KK))34,35,34 TR000234 C TR000235 C CASE 3 TR000236 35 LT1=1 TR000237 DO 36 J=1,NP1 TR000238 DO 36 I=1,M TR000239 B IF(S(I,J)*400000000077)36,38,36 TR000240 38 IF(LU(I))36,36,37 TR000241 37 IF(LV(J))39,39,36 TR000242 39 GO TO(40,41),LT1 TR000243 40 IM=IS(I,J) TR000244 LT1=2 TR000245 GO TO 36 TR000246 41 IF(IM-IS(I,J))36,36,42 TR000247 42 IM=IS(I,J) TR000248 36 CONTINUE TR000249 44 IF(IM)209,209,207 TR000250 207 IF(IM+IS(KK,L2))208,208,209 TR000251 209 IM=-IS(KK,L2) TR000252 B 208 EIM=EIM*ASKN TR000253 C TR000254 46 DO 47 I=1,M TR000255 IF(LU(I))47,47,48 TR000256 48 IU(I)=IU(I)+IM TR000257 47 CONTINUE TR000258 DO 49 J=1,NP1 TR000259 IF(LV(J))49,49,50 TR000260 50 IV(J)=IV(J)-IM TR000261 49 CONTINUE TR000262 C TR000263 C RECALCULATE MATRIX ENTRIES TR000264 DO 130 J=1,NP1 TR000265 DO 130 I=1,M TR000266 B IF(S(I,J)*ASK)130,131,130 TR000267 131 IS(I,J)=IA(I,J)-IU(I)-IV(J) TR000268 IF(IS(I,J))130,259,130 TR000269 259 IS(I,J)=0 TR000270 130 CONTINUE TR000271 MIN=0 TR000272 DO 210 I=1,M TR000273 IF(IS(I,L2))211,210,210 TR000274 211 IF(MIN-IS(I,L2))210,210,212 TR000275 212 MIN=IS(I,L2) TR000276 KK=I TR000277 210 CONTINUE TR000278 IF(MIN)254,214,214 TR000279 C TR000280 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 6 C START ANOTHER STEP IF MIN NEGATIVE TR000281 C TR000282 C END OF STAGE TR000283 214 CONTINUE TR000284 IF(IV(L1)-IV(L2))215,216,215 TR000285 215 PRINT 217,L1,NSTAGE TR000286 217 FORMAT(13H0END OF STAGEI6,23H. V(L1) IS NOT = V(L2).I6,8H STAGES.)TR000287 GO TO 407 TR000288 216 DO 218 I=1,M TR000289 B IF(S(I,L1)*ASK)219,219,220 TR000290 B 220 ADD=S(I,L2)*ASKN TR000291 IS(I,L1)=IS(I,L1)+IADD TR000292 GO TO 218 TR000293 B 219 IF(S(I,L2)*ASK)218,218,221 TR000294 221 IS(I,L1)=IS(I,L1)+IS(I,L2) TR000295 218 CONTINUE TR000296 C TR000297 C END OF STAGE TR000298 225 MIN=0 TR000299 DO 222 J=1,N TR000300 DO 222 I=1,M TR000301 IF(IS(I,J))223,222,222 TR000302 223 IF(MIN-IS(I,J))222,222,224 TR000303 224 MIN=IS(I,J) TR000304 KK=I TR000305 L1=J TR000306 222 CONTINUE TR000307 IF(MIN)206,184,184 TR000308 C START A NEW STAGE IF MIN NEGATIVE TR000309 C TR000310 C TR000311 C CASE 2 TR000312 34 I=KK TR000313 J=LU(I) TR000314 IDEL=IS(I,J) TR000315 B S(I,J)=S(I,J)+ASK TR000316 147 I=LV(J) TR000317 IF(I-KK)148,149,148 TR000318 149 IF(J-L2)148,144,148 TR000319 B 148 S(I,J)=S(I,J)+ASK TR000320 J=LU(I) TR000321 IF(I-KK)142,143,142 TR000322 143 IF(J-L2)142,144,142 TR000323 142 IF(IDEL-IS(I,J))145,145,146 TR000324 146 IDEL=IS(I,J) TR000325 B 145 S(I,J)=S(I,J)+ASK TR000326 GO TO 147 TR000327 B 144 DEL=DEL*ASKN TR000328 I=KK TR000329 J=L2 TR000330 GO TO 172 TR000331 170 IS(I,J)=IS(I,J)+IDEL TR000332 B CK=S(I,J)*ASKN TR000333 IF(CK)172,173,172 TR000334 173 IS(I,J)=0 TR000335 172 J=LU(I) TR000336 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 7 IF(XABSF(I-KK)+XABSF(J-L2))167,169,167 TR000337 167 IS(I,J)=IS(I,J)-IDEL TR000338 B CK=S(I,J)*ASKN TR000339 IF(CK)168,171,168 TR000340 171 IS(I,J)=0 TR000341 168 I=LV(J) TR000342 IF(XABSF(I-KK)+XABSF(J-L2))170,169,170 TR000343 C TR000344 169 CONTINUE TR000345 IS(KK,L1)=IS(KK,L1)+IDEL TR000346 B CK=S(KK,L1)*ASKN TR000347 IF(CK)228,229,228 TR000348 229 IS(KK,L1)=0 TR000349 GO TO 230 TR000350 B 228 S(KK,L1)=S(KK,L1)+ASK TR000351 230 CONTINUE TR000352 C TR000353 ICL1=ICL1+IDEL TR000354 ICL2=ICL2-IDEL TR000355 IF(ICL2)231,225,233 TR000356 231 PRINT 234,ICL2 TR000357 234 FORMAT(7H0CL(2)=I6) TR000358 GO TO 407 TR000359 C TR000360 C START A NEW STEP TR000361 233 MIN=0 TR000362 DO 235 I=1,M TR000363 IF(IS(I,L2))236,235,235 TR000364 236 IF(MIN-IS(I,L2))235,235,237 TR000365 237 MIN=IS(I,L2) TR000366 KK=I TR000367 235 CONTINUE TR000368 IF(MIN)254,238,238 TR000369 238 PRINT 239,L1,MIN,ICL2 TR000370 239 FORMAT(6H0STAGEI6,6H. MIN=I6,8H, CL(2)=I6) TR000371 GO TO 407 TR000372 C TR000373 C END - ALL ENTRIES NON-NEGATIVE TR000374 184 DO 194 I=1,M TR000375 DO 194 J=1,N TR000376 B IF(S(I,J)*ASK)193,304,193 TR000377 304 IS(I,J)=0 TR000378 GO TO 194 TR000379 B 193 FMLT=S(I,J)*(-ASK) TR000380 IOBJ=IOBJ+MLT*IA(I,J) TR000381 194 CONTINUE TR000382 C TR000383 C BEGINNING OF OUTPUT TR000384 IF(NOTP)406,406,405 TR000385 405 WRITE OUTPUT TAPE NOTP,417,M,N,IOBJ TR000386 417 FORMAT(3H1M=I4,4H, N=I4,21H, OBJECTIVE FUNCTION=I6///9H COLUMN J4XTR000387 15HROW I5X6HX(I,J)5X6HA(I,J)//) TR000388 DO 409 J=1,N TR000389 DO 409 I=1,M TR000390 IF(IS(I,J))410,409,410 TR000391 410 WRITE OUTPUT TAPE NOTP,411,J,I,IS(I,J),IA(I,J) TR000392 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 8 411 FORMAT(I8,I10,2I11) TR000393 409 CONTINUE TR000394 IDIF=N-M TR000395 IF(IDIF)420,421,422 TR000396 420 LIM=N TR000397 LM2=M TR000398 ISW=1 TR000399 GO TO 423 TR000400 421 ISW=2 TR000401 LIM=N TR000402 GO TO 423 TR000403 422 LIM=M TR000404 LM2=N TR000405 ISW=3 TR000406 423 WRITE OUTPUT TAPE NOTP,424 TR000407 424 FORMAT(15H1DUAL VARIABLES///3X4HV(J)6X13HCOL., ROW NO.6X4HU(I)//) TR000408 LP=LIM+1 TR000409 DO 425 L=1,LIM TR000410 425 WRITE OUTPUT TAPE NOTP,426,IV(L),L,IU(L) TR000411 426 FORMAT(I7,2I14) TR000412 GO TO(427,406,429),ISW TR000413 427 DO 430 I=LP,LM2 TR000414 430 WRITE OUTPUT TAPE NOTP,431,I,IU(I) TR000415 431 FORMAT(15XI6,I14) TR000416 GO TO 406 TR000417 429 DO 432 J=LP,LM2 TR000418 432 WRITE OUTPUT TAPE NOTP,426,IV(J),J TR000419 C TR000420 C END OF OUTPUT TR000421 406 JE=1 TR000422 IPL=2 TR000423 DO 626 J=1,N TR000424 DO 626 I=1,M TR000425 B IF(S(I,J)*ASK) 627,626,627 TR000426 627 IF(IA(I,J)-IU(I)-IV(J))624,626,624 TR000427 626 CONTINUE TR000428 RETURN TR000429 END(1,1,0,0,0,0,1,0,0,1,0,0,0,0,0) 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 9 | | 0 STORAGE NOT USED BY PROGRAM | 0 DEC OCT DEC OCT | 2323 04423 22461 53675 0 STORAGE LOCATIONS FOR VARIABLES APPEARING IN COMMON STATEMENTS | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | IS 32561 77461 S 32561 77461 | 0 STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMENSION AND EQUIVALENCE STATEMENTS | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT ADD 2319 04417 ASK 2322 04422 DEL 2320 04420 EIM 2321 04421 FMLT 2318 04416 | IADD 2319 04417 IDEL 2320 04420 IM 2321 04421 LU 2317 04415 LV 2217 04251 | MASK 2322 04422 MLT 2318 04416 | 0 STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN COMMON, DIMENSION, OR EQUIVALENCE STATEMENT | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT ASKN 2116 04104 CK 2115 04103 ICL1 2114 04102 ICL2 2113 04101 IDIF 2112 04100 | IE 2111 04077 II 2110 04076 IK 2109 04075 IMIN 2108 04074 IPL 2107 04073 | I 2106 04072 ISM1 2105 04071 ISM2 2104 04070 ISWCH 2103 04067 ISW 2102 04066 | J 2101 04065 KK 2100 04064 L1 2099 04063 L2 2098 04062 LG 2097 04061 | LIM 2096 04060 LIMSTG 2095 04057 LIMSTP 2094 04056 LM2 2093 04055 LP 2092 04054 L 2091 04053 LT1 2090 04052 MIN 2089 04051 M 2088 04050 NOTP 2087 04047 | NP1 2086 04046 N 2085 04045 NSTAGE 2084 04044 NSTEP 2083 04043 | 0 SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS | 0 EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC | 8)6P 217 03744 8)7A 234 03732 8)7F 239 03727 8)7N 247 03767 8)7Q 250 03757 8)CK 404 04005 8)CR 411 03702 8)D1 417 03721 8)D8 424 03677 8)DA 426 03665 | 8)DF 431 03663 8)JC 620 03776 8)JH 625 03773 | 0 LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | 1) 2055 04007 2) 1955 03643 3) 1961 03651 6) 1964 03654 9) 2054 04006 A)100 1890 03542 A)101 1929 03611 A)104 1942 03626 A)200 1903 03557 A)202 1916 03574 | C)G0 2059 04013 C)G1 2060 04014 C)G2 2061 04015 C)G3 2062 04016 C)G4 2063 04017 | C)G5 2064 04020 C)G6 2065 04021 C)G7 2066 04022 C)G9 2067 04023 C)100 2068 04024 | C)101 2069 04025 C)102 2070 04026 C)103 2071 04027 C)104 2072 04030 C)200 2073 04031 | C)201 2074 04032 C)202 2075 04033 C)203 2076 04034 C)204 2077 04035 C)205 2078 04036 C)206 2079 04037 C)207 2080 04040 C)209 2081 04041 C)900 2082 04042 D)208 157 00235 | D)20G 228 00344 D)213 349 00535 D)219 401 00621 D)21G 444 00674 D)225 591 01117 | D)24A 1068 02054 D)24F 1103 02117 D)24K 1126 02146 D)429 630 01166 D)43C 903 01607 | D)43R 987 01733 D)44O 1148 02174 D)45N 1339 02473 D)45O 1355 02513 D)46K 1610 03112 | D)47L 1837 03455 D)608 156 00234 D)629 629 01165 D)813 353 00541 D)818 394 00612 D)82S 746 01352 D)832 799 01437 D)838 871 01547 D)84D 1093 02105 D)859 1236 02324 | D)85P 1363 02523 D)A4D 1092 02104 D)C13 352 00540 D)C18 393 00611 D)C38 870 01546 | D)C5P 1362 02522 D)E08 155 00233 E)I 241 00361 E)11 337 00521 E)12 344 00530 | E)13 346 00532 E)16 384 00600 E)18 392 00610 E)1B 420 00644 E)1D 433 00661 | E)1L 477 00735 E)1R 506 00772 E)20 550 01046 E)26 600 01130 E)2D 648 01210 E)2E 655 01217 E)2I 686 01256 E)2L 700 01274 E)2N 713 01311 E)32 801 01441 | E)39 885 01565 E)3L 957 01675 E)3P 978 01722 E)3Q 984 01730 E)3U 1011 01763 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 10 | | E)44 1039 02017 E)47 1058 02042 E)4C 1086 02076 E)4H 1109 02125 E)4K 1128 02150 E)52 1187 02243 E)56 1209 02271 E)5C 1257 02351 E)5I 1313 02441 E)5O 1353 02511 | E)5S 1391 02557 E)61 1438 02636 E)64 1461 02665 E)65 1467 02673 E)6D 1536 03000 | E)6E 1554 03022 E)6N 1632 03140 E)7P 1862 03506 E)7Q 1869 03515 E)7R 1876 03524 | E)AS 748 01354 E)B0 771 01403 E)B2 797 01435 E)B8 868 01544 E)BK 951 01667 | E)BP 978 01722 E)C6 1052 02034 E)EA 1505 02741 E)EE 1554 03022 E)EN 1632 03140 E)ID 648 01210 E)KK 1128 02150 E)L6 1209 02271 E)LC 1257 02351 E)LL 1332 02464 | E)LS 1391 02557 E)P3 351 00537 E)S6 1052 02034 E)1CK 1125 02145 E)1SK 1125 02145 | 0 LOCATIONS OF NAMES IN TRANSFER VECTOR | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | (FIL) 1 00001 (SPH) 0 00000 (STH) 2 00002 0 ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY | | (FIL) (SPH) (STH) | 0 EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS | 0 EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC 302 22 00157 301 23 00161 400 29 00176 401 31 00206 402 33 00216 | 407 38 00236 403 41 00244 196 54 00311 255 56 00324 269 58 00345 | 264 61 00363 266 62 00367 263 64 00373 267 67 00413 268 72 00426 | 262 77 00441 500 78 00450 600 79 00453 601 81 00462 610 85 00500 | 603 88 00515 602 89 00524 604 91 00542 607 96 00574 605 97 00603 608 99 00613 631 102 00622 633 105 00645 640 108 00662 632 109 00666 | 638 110 00675 635 114 00721 641 117 00736 634 118 00742 639 119 00750 | 606 120 00756 611 123 00776 643 127 01035 642 130 01107 614 131 01120 | 613 133 01131 612 135 01141 616 139 01175 628 140 01200 617 141 01202 | 615 143 01213 618 145 01222 619 148 01232 17 152 01245 623 157 01266 622 158 01314 624 160 01324 629 163 01336 20 168 01367 257 170 01400 | 256 171 01405 21 173 01412 19 176 01443 206 178 01460 245 181 01467 | 246 184 01503 241 185 01503 258 193 01567 203 194 01571 254 198 01610 | 252 199 01613 253 201 01622 22 202 01626 248 205 01640 249 208 01652 | 125 209 01652 128 212 01677 26 214 01710 27 215 01714 25 217 01725 127 218 01734 129 220 01742 30 223 01771 251 224 02003 202 226 02013 | 32 227 02022 33 228 02026 31 230 02037 28 231 02044 126 233 02055 | 35 234 02061 38 238 02113 37 239 02120 39 240 02123 40 241 02126 | 41 244 02135 42 245 02142 36 246 02151 44 247 02162 207 248 02166 | 209 249 02175 208 250 02177 46 251 02202 48 253 02211 47 254 02214 50 257 02225 49 258 02230 131 262 02256 259 264 02266 130 265 02273 | 211 269 02330 212 270 02335 210 272 02353 214 274 02363 215 276 02370 | 216 279 02404 220 281 02444 219 284 02453 221 285 02460 218 286 02467 | 225 287 02474 223 291 02527 224 292 02534 222 295 02561 34 297 02577 | 147 301 02624 149 303 02637 148 304 02642 143 307 02662 142 308 02666 146 309 02674 145 310 02676 144 312 02702 170 316 02724 173 319 02736 | 172 320 02743 167 322 02763 171 325 02775 168 326 03002 169 328 03024 | 229 332 03037 228 334 03042 230 335 03045 231 339 03056 233 342 03070 | 236 345 03116 237 346 03123 235 348 03142 238 350 03152 184 353 03164 | 304 356 03204 193 358 03207 194 360 03220 405 362 03231 410 367 03270 409 369 03310 420 372 03327 421 376 03340 422 379 03347 423 382 03357 | 425 385 03373 427 388 03413 430 389 03420 429 392 03434 432 393 03441 | 406 395 03456 627 400 03500 626 401 03526 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 11 | 00000 (SPH) BCD 1(SPH) 00070 STA 1A+592 00160 STO NOTP | 00001 (FIL) BCD 1(FIL) 00071 STA 1A+570 00161 23A CLA 2) | 00002 (STH) BCD 1(STH) 00072 STA 1A+495 00162 STO JE | 00003 $ PZE 00073 STA 1A+296 00163 24A CLA MM | 00004 PZE 00074 STA 1A+254 00164 STO M 00005 PZE 00075 STA 1A+216 00165 25A CLA NN | 00006 BCD 1TRAN 00076 STA 1A+184 00166 STO N | 00007 SXD $,1 00077 STA 1A+181 00167 26A CLA 2) | 00010 SXD $+1,2 00100 STA 1A+175 00170 STO ISM1 | 00011 SXD $+2,4 00101 STA 1A+171 00171 27A CLA 2) 00012 CLA 1,4 00102 STA 1A+169 00172 STO ISM2 | 00013 ADD 9) 00103 STA 1A+161 00173 28A LXD 2)+3,1 | 00014 STA 1A+1753 00104 STA 1A+140 00174 CLA M | 00015 STA 1A+1628 00105 STA 1A+97 00175 STD 29A2 | 00016 STA 1A+1573 00106 CLA 8,4 00176 29A CLA ISM1 00017 STA 1A+1095 00107 ADD 9) 00177 ADD LB+1,1 | 00020 STA 1A+773 00110 STA 1A+1755 00200 STO ISM1 | 00021 STA 1A+772 00111 STA 1A+1725 00201 29A1 TXI *+1,1,1 | 00022 STA 1A+771 00112 STA 1A+1687 00202 29A2 TXL 29A,1 | 00023 STA 1A+738 00113 STA 1A+1167 00203 30A LXD 2)+3,1 00024 STA 1A+656 00114 STA 1A+1165 00204 CLA N | 00025 STA 1A+591 00115 STA 1A+1097 00205 STD 31A2 | 00026 STA 1A+492 00116 STA 1A+1072 00206 31A CLA ISM2 | 00027 STA 1A+294 00117 STA 1A+1070 00207 ADD LC+1,1 | 00030 STA 1A+253 00120 STA 1A+776 00210 STO ISM2 00031 STA 1A+146 00121 STA 1A+741 00211 31A1 TXI *+1,1,1 | 00032 STA 1A+134 00122 STA 1A+736 00212 31A2 TXL 31A,1 | 00033 CLA 2,4 00123 STA 1A+734 00213 32A CLA ISM1 | 00034 ADD 9) 00124 STA 1A+659 00214 SUB ISM2 | 00035 STA 1A+96 00125 STA 1A+593 00215 32A1 TZE 41A 00036 STA 1A+24 00126 STA 1A+494 33A BSS | 00037 CLA 3,4 00127 STA 1A+295 00216 TSX (SPH),4 | 00040 ADD 9) 00130 STA 1A+255 00217 PZE 8)CK | 00041 STA 1A+794 00131 STA 1A+182 00220 34A LDQ ISM1 | 00042 STA 1A+109 00132 STA 1A+180 00221 STR 00043 STA 1A+32 00133 STA 1A+173 00222 LDQ ISM2 | 00044 CLA 4,4 00134 STA 1A+170 00223 STR | 00045 STA 1A+12 00135 STA 1A+164 00224 TSX (FIL),4 | 00046 CLA 5,4 00136 STA 1A+160 00225 35A CLA 2)+1 | 00047 STA 1A+14 00137 STA 1A+110 00226 STO JE 00050 CLA 6,4 00140 CLA 9,4 00227 36A LXD $,1 | 00051 STA 1A+1595 00141 STA 1A+1736 00230 LXD $+1,2 | 00052 STA 1A+1576 00142 STA 1A+56 00231 LXD $+2,4 | 00053 STA 1A+1575 00143 STA 1A+47 00232 TRA 10,4 | 00054 STA 1A+79 00144 STA 1A+11 00233 D)E08 LXD C)G1,4 00055 CLA 7,4 00145 STA 1A+8 00234 D)608 LXD C)G0,2 | 00056 ADD 9) 00146 STA 1A+4 00235 D)208 LXD C)100,1 | 00057 STA 1A+1754 00147 1A CLA 2 00236 38A CLA 2)+2 | 00060 STA 1A+1710 00150 STO 6)+5 00237 STO JE | 00061 STA 1A+1691 00151 20A CLA 2) 00240 39A LXD $,1 00062 STA 1A+1096 00152 STO NOTP 00241 LXD $+1,2 | 00063 STA 1A+1060 00153 21A CLA JE 00242 LXD $+2,4 | 00064 STA 1A+1058 00154 21A1 TZE 23A 00243 TRA 10,4 | 00065 STA 1A+774 00155 TPL 22A 41A BSS | 00066 STA 1A+740 00156 TRA 23A 00244 42A CLA 2) 00067 STA 1A+657 00157 22A CLA JE 00245 STO NSTEP | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 12 | | 00246 43A CLA N 00335 CLA N 00424 STO IV+1,2 | 00247 ADD 2)+3 00336 STD 77A2 00425 71A TRA 77A 00250 STO NP1 00337 PXD 0,2 00426 72A CLA IU+1,1 | 00251 44A CLA NP1 00340 STO J 00427 STO IS+1,4 | 00252 STO L2 00341 LXD I,4 00430 73A CAL S+1,4 | 00253 TSX A)104,4 00342 SXD C)200,4 00431 ORA ASK | 00254 LXD C)104,1 00343 TRA 58A 00432 SLW S+1,4 00255 LXD L2,4 00344 D)20G LXD C)100,1 00433 74A CLA IV+1,2 | 00256 SXD C)G3,4 00345 58A CLA LG 00434 SUB IU+1,1 | 00257 45A CLA N 00346 STO MIN 00435 STO IV+1,2 | 00260 STO LIMSTG 00347 59A LXD 2)+3,4 00436 75A CLA 2) | 00261 46A CAL 3) 00350 CLA M 00437 STO IU+1,1 00262 SLW ASK 00351 STD 64A2 00440 76A TRA D)20G | 00263 47A CAL 3)+1 00352 PXD 0,4 77A BSS | 00264 SLW ASKN 00353 STO I 00441 LXD C)100,1 | 00265 48A CLA 2) 00354 60A CLA MIN 00442 77A1 TXI *+1,1,100 | 00266 STO IOBJ 00355 SUB IA+1,1 00443 TXI *+1,2,1 00267 49A CLA 2) 00356 60A1 TZE 64A 00444 SXD J,2 | 00270 STO NSTAGE 00357 TPL E)I 00445 TXI *+1,4,100 | 00271 50A CLA 2)+4 00360 TRA 64A 00446 SXD C)200,4 | 00272 STO LG 00361 E)I SXD C)G0,4 00447 77A2 TXL 58A,2 | 00273 51A LXD 2)+3,2 00362 SXD C)100,1 00450 78A LXD 2)+3,1 00274 LDQ N 00363 61A CLA IU+1,4 00451 CLA M | 00275 MPY 2)+5 00364 61A1 TZE 64A 00452 STD 79A2 | 00276 ALS 17 00365 TPL 62A 00453 79A CLS 2)+1 | 00277 STD 54A2 00366 TRA 64A 00454 STO LU+1,1 | 00300 LDQ N 00367 62A CLA I 00455 79A1 TXI *+1,1,1 00301 MPY 2)+5 00370 STO II 00456 79A2 TXL 79A,1 | 00302 ALS 17 00371 63A CLA IA+1,1 00457 80A LXD 2)+3,1 | 00303 STD 54A3 00372 STO MIN 00460 CLA N | 00304 LXD 2)+3,1 64A BSS 00461 STD 81A2 | 00305 CLA M 00373 64A1 TXI *+1,1,1 00462 81A CLS 2)+1 00306 STD 54A4 00374 TXI *+1,4,1 00463 STO LV+1,1 | 00307 52A CLA LB+1,1 00375 SXD I,4 00464 81A1 TXI *+1,1,1 | 00310 STO IU+1,1 00376 64A2 TXL 60A,4 00465 81A2 TXL 81A,1 | 53A BSS 00377 64A3 TIX *+1,1 00466 82A CLA 2)+3 | 00311 54A CLA 2) 00400 SXD C)100,1 00467 STO I 00312 STO IS+1,2 00401 65A CLA II 00470 TSX A)100,4 | 00313 54A1 TXI *+1,2,100 00402 STO I 00471 LXD C)100,1 | 00314 54A2 TXL 54A,2 00403 TSX A)200,4 00472 LXD I,4 | 00315 54A3 TIX *+1,2 00404 LXD C)200,4 00473 SXD C)G0,4 | 00316 TXI *+1,2,1 00405 LXD I,1 00474 83A CLA 2) 00317 TXI *+1,1,1 00406 SXD C)G0,1 00475 STO LU+1,4 | 00320 54A4 TXL 52A,1 00407 66A CLA IV+1,2 00476 84A CLA 2) | 00321 55A LXD 2)+3,1 00410 SUB IU+1,1 00477 STO IU+1,4 | 00322 CLA N 00411 66A1 TZE 67A 00500 85A LXD I,2 | 00323 STD 56A2 00412 TPL 72A 00501 LXD 2)+3,1 00324 56A CLA LC+1,1 00413 67A CLA IV+1,2 00502 SXD C)G1,1 | 00325 STO IV+1,1 00414 STO IS+1,4 00503 CLA N | 00326 56A1 TXI *+1,1,1 00415 68A CAL S+1,4 00504 STD 89A2 | 00327 56A2 TXL 56A,1 00416 ORA ASK 00505 PXD 0,1 | 00330 57A LXD 2)+3,1 00417 SLW S+1,4 00506 STO J 00331 SXD C)100,1 00420 69A CLA IU+1,1 00507 86A CLA J | 00332 CLA M 00421 SUB IV+1,2 00510 STO J | 00333 STD 64A3 00422 STO IU+1,1 00511 LXD J,1 | 00334 LXD 2)+3,2 00423 70A CLA 2) 00512 87A CAL S+1,2 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 13 | 00513 ANA ASK 00602 SXD C)G1,1 00670 SXD J,1 | 00514 87A1 TZE 89A 97A BSS 00671 109A2 TXL 106A,1 | 00515 88A CLA LV+1,1 00603 97A1 TXI *+1,2,1 00672 109A3 TIX *+1,4 | 00516 88A1 TZE E)11 00604 TXI *+1,4,1 00673 SXD C)100,4 00517 TPL E)11 00605 SXD I,4 00674 D)21G LXD C)G1,1 | 00520 TRA 91A 00606 97A2 TXL 94A,4 110A BSS | 00521 E)11 SXD C)G0,4 00607 98A TRA 102A 00675 110A1 TXI *+1,4,1 | 00522 SXD C)100,2 00610 E)18 SXD C)100,4 00676 TXI *+1,2,1 | 00523 SXD C)G1,1 00611 D)C18 LXD C)100,2 00677 SXD I,2 89A BSS 00612 D)818 LXD C)G0,4 00700 110A2 TXL 103A,2 | 00524 89A1 TXI *+1,2,100 00613 99A CLA 2) 00701 111A LXD 2)+3,4 | 00525 TXI *+1,1,1 00614 STO LU+1,4 00702 CLA M | 00526 SXD J,1 00615 100A CLA IA+1,2 00703 STD 118A3 | 00527 89A2 TXL 86A,1 00616 SUB IV+1,1 00704 LXD 2)+3,1 00530 E)12 SXD C)G0,4 00617 STO IU+1,4 00705 CLA N | 00531 90A TRA D)219 00620 101A TRA 85A 00706 STD 119A2 | 00532 E)13 SXD C)G0,4 00621 D)219 LXD C)G1,1 00707 PXD 0,1 | 00533 SXD C)100,2 00622 102A LXD 2)+3,4 00710 STO J | 00534 SXD C)G2,1 00623 LDQ N 00711 112A CLA J 00535 D)213 LXD C)G1,1 00624 MPY 2)+5 00712 STO J | 00536 TRA 91A 00625 ALS 17 00713 LXD J,1 | 00537 E)P3 SXD C)100,4 00626 STD 109A3 00714 SXD C)G1,1 | 00540 D)C13 LXD C)100,2 00627 LXD 2)+3,2 00715 113A CLA LV+1,1 | 00541 D)813 LXD C)G0,4 00630 SXD C)G0,2 00716 113A1 TZE 114A 00542 91A CLA 2) 00631 CLA M 00717 TPL 114A | 00543 STO LV+1,1 00632 STD 110A2 00720 TRA 119A | 00544 92A CLA IA+1,2 00633 PXD 0,2 00721 114A LXD 2)+3,2 | 00545 SUB IU+1,4 00634 STO I 00722 SXD C)G0,2 | 00546 STO IV+1,1 00635 103A CLA I 00723 CLA M 00547 93A CLA 6)+3 00636 STO I 00724 STD 118A2 | 00550 STO 1)+3 00637 LXD I,2 00725 PXD 0,2 | 00551 LDQ J 00640 104A CLA LU+1,2 00726 STO I | 00552 MPY 2)+5 00641 104A1 TZE E)1B 00727 115A CLA I | 00553 ALS 17 00642 TPL E)1B 00730 STO I 00554 SUB 2)+5 00643 TRA 110A 00731 LXD I,2 | 00555 ADD 1)+3 00644 E)1B SXD C)G0,2 00732 116A CAL S+1,4 | 00556 STO 1)+3 00645 105A LXD 2)+3,1 00733 ANA ASK | 00557 LXD 1)+3,2 00646 SXD C)G1,1 00734 116A1 TZE 118A | 00560 LXD 2)+3,4 00647 CLA N 00735 E)1L SXD C)G0,2 00561 SXD C)G0,4 00650 STD 109A2 00736 117A CLA LU+1,2 | 00562 CLA M 00651 PXD 0,1 00737 117A1 TZE 118A | 00563 STD 97A2 00652 STO J 00740 TPL 118A | 00564 PXD 0,4 00653 106A CLA J 00741 TRA E)18 | 00565 STO I 00654 STO J 118A BSS 00566 94A CLA I 00655 LXD J,1 00742 118A1 TXI *+1,4,1 | 00567 STO I 00656 107A CAL S+1,4 00743 TXI *+1,2,1 | 00570 LXD I,4 00657 ANA ASK 00744 SXD I,2 | 00571 95A CAL S+1,2 00660 107A1 TZE 109A 00745 118A2 TXL 115A,2 | 00572 ANA ASK 00661 E)1D SXD C)G1,1 00746 118A3 TIX *+1,4 00573 95A1 TZE 97A 00662 108A CLA LV+1,1 00747 SXD C)100,4 | 00574 96A CLA LU+1,4 00663 108A1 TZE 109A 119A BSS | 00575 96A1 TZE E)16 00664 TPL 109A 00750 119A1 TXI *+1,4,100 | 00576 TPL E)16 00665 TRA E)P3 00751 SXD C)100,4 | 00577 TRA 99A 109A BSS 00752 TXI *+1,1,1 00600 E)16 SXD C)G0,4 00666 109A1 TXI *+1,4,100 00753 SXD C)G1,1 | 00601 SXD C)100,2 00667 TXI *+1,1,1 00754 SXD J,1 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 14 | | 00755 119A2 TXL 112A,1 01043 LXD 6)+2,1 01131 133A1 TXI *+1,4,1 00756 120A LXD 2)+3,4 01044 SXD C)900,1 01132 TXI *+1,2,1 | 00757 SXD C)G1,4 01045 TRA 128A 01133 SXD I,2 | 00760 CLA N 01046 E)20 SXD C)100,4 01134 LXD C)202,1 | 00761 STD 123A2 01047 SXD C)201,2 01135 TXI *+1,1,1 | 00762 PXD 0,4 01050 SXD C)900,1 01136 SXD C)202,1 00763 STO J 01051 128A CLA J 01137 133A2 TXL 125A,2 | 00764 121A CLA J 01052 STO J 01140 134A TRA 152A | 00765 STO J 01053 SXD 6)+4,4 01141 135A CLA 2)+3 | 00766 LXD J,2 01054 TSX A)202,4 01142 STO ISWCH | 00767 122A CLA LV+1,2 01055 LXD C)202,1 01143 LXD ISWCH,4 00770 122A1 TZE 123A 01056 LXD 6)+4,4 01144 SXD C)G2,4 | 00771 TPL 123A 01057 LXD J,1 01145 136A CLA 6)+3 | 00772 E)1R SXD C)G1,2 01060 SXD C)G1,1 01146 STO 1)+3 | 122A2 BSS 01061 129A CAL S+1,4 01147 LDQ J | 00773 TSX A)100,4 01062 ANA ASK 01150 MPY 2)+5 00774 LXD C)100,1 01063 129A1 TZE 130A 01151 ALS 17 | 00775 TRA 135A 01064 TPL 129A2 01152 SUB 2)+5 | 123A BSS 01065 TRA 129A4 01153 ADD 1)+3 | 00776 123A1 TXI *+1,2,1 01066 129A2 SXD C)202,4 01154 STO 1)+3 | 00777 SXD J,2 01067 LXD C)202,1 01155 LXD 1)+3,1 01000 123A2 TXL 121A,2 01070 SXD C)G1,2 01156 SXD C)100,1 | 01001 124A LXD 2)+3,4 01071 LXD C)G1,2 01157 LXD 2)+3,2 | 01002 LDQ N 01072 LXD C)900,2 01160 SXD C)G0,2 | 01003 MPY 2)+5 01073 SXD 129A3,2 01161 CLA M | 01004 ALS 17 01074 129A3 TIX *+1,4 01162 STD 143A2 01005 STD 130A3 01075 TRA 131A 01163 PXD 0,2 | 01006 LXD 2)+3,2 01076 129A4 SXD C)202,4 01164 STO I | 01007 SXD C)G0,2 01077 LXD C)202,1 01165 D)629 LXD C)G2,1 | 01010 CLA M 01100 SXD C)G1,2 01166 D)429 LXD C)100,2 | 01011 STD 133A2 01101 LXD C)G1,2 01167 137A CLA I 01012 PXD 0,2 01102 LXD C)900,2 01170 STO I | 01013 STO I 01103 SXD 129A5,2 01171 LXD I,4 | 01014 CLA 6)+3 01104 129A5 TIX *+1,4 01172 138A CAL S+1,2 | 01015 STO 1)+3 01105 SXD C)100,4 01173 ANA ASK | 01016 LDQ J 01106 TRA 131A 01174 138A1 TZE E)ID 01017 MPY 2)+5 130A BSS 01175 139A CLA LU+1,4 | 01020 ALS 17 01107 130A1 TXI *+1,4,100 01176 139A1 TZE E)13 | 01021 SUB 2)+5 01110 TXI *+1,2,1 01177 TPL E)13 | 01022 ADD 1)+3 01111 SXD J,2 01200 140A TRA 140A+3,1 | 01023 STO 1)+3 01112 LXD C)900,1 01201 TRA E)2D 01024 LXD 1)+3,1 01113 TXI *+1,1,100 01202 141A CLA 2)+1 | 01025 SXD C)202,1 01114 130A2 TXL E)20,2 01203 STO ISWCH | 01026 125A CLA I 01115 130A3 TIX *+1,4 01204 LXD ISWCH,1 | 01027 STO I 01116 SXD C)100,4 01205 142A CLA I | 01030 LXD I,2 01117 D)225 LXD C)202,1 01206 STO IK 01031 SXD C)G0,2 01120 131A CLA 2) 01207 TRA 143A | 01032 126A CLA LU+1,2 01121 LXD C)G0,2 01210 E)2D SXD C)G0,4 | 01033 126A1 TZE E)26 01122 STO LU+1,2 01211 SXD C)100,2 | 01034 TPL E)26 01123 132A CLA IA+1,1 01212 SXD C)G2,1 | 01035 127A LXD 2)+3,2 01124 LXD C)G1,1 E)ID SYN E)2D 01036 SXD C)201,2 01125 SUB IV+1,1 143A BSS | 01037 CLA N 01126 STO IU+1,2 01213 143A1 TXI *+1,2,1 | 01040 STD 130A2 01127 TRA 133A 01214 TXI *+1,4,1 | 01041 PXD 0,2 01130 E)26 SXD C)100,4 01215 SXD I,4 | 01042 STO J 133A BSS 01216 143A2 TXL 137A,4 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 15 | | 01217 E)2E SXD C)G2,1 01305 STO I 01373 STO IS+1,1 | 01220 144A TRA 144A+3,1 01306 PXD 0,4 01374 169A CLA IS+1,1 | 01221 TRA 148A 01307 STO J 01375 169A1 TZE 170A 145A BSS 01310 TRA 160A 01376 TPL E)B0 | 01222 TSX (SPH),4 01311 E)2N SXD C)G1,4 01377 TRA E)B0 | 01223 PZE 8)JC 01312 SXD C)G0,2 01400 170A CLA 2) | 01224 146A LDQ I 01313 SXD C)100,1 01401 STO IS+1,1 | 01225 STR 158A BSS 01402 TRA 171A 01226 LDQ J 01314 158A1 TXI *+1,1,1 01403 E)B0 SXD C)G0,2 | 01227 STR 01315 TXI *+1,2,1 01404 SXD C)100,1 | 01230 TSX (FIL),4 01316 158A2 TXL 156A,2 171A BSS | 01231 147A TRA D)E08 01317 158A3 TIX *+1,1 01405 172A CLA IMIN | 01232 148A CLA IK 01320 TXI *+1,1,100 01406 SUB IS+1,1 01233 STO I 01321 TXI *+1,4,1 01407 172A1 TZE E)B2 | 01234 TSX A)100,4 01322 158A4 TXL E)2I,4 01410 TPL 173A | 01235 LXD C)100,2 01323 159A TRA 163A 01411 TRA E)B2 | 01236 LXD I,4 01324 160A SXD 6)+4,4 01412 173A CLA IS+1,1 | 01237 SXD C)G0,4 01325 TSX (SPH),4 01413 STO IMIN 01240 149A CLA 2) 01326 PZE 8)JH 01414 174A CLA I | 01241 STO IU+1,4 01327 LXD 6)+4,4 01415 STO KK | 01242 150A CLA 2) 01330 161A LDQ IPL 01416 TSX A)101,4 | 01243 STO LU+1,4 01331 STR 01417 LXD C)101,4 | 01244 151A TRA D)213 01332 SXD 6)+4,4 01420 SXD 6)+4,4 152A BSS 01333 TSX (FIL),4 01421 TSX A)104,4 | 01245 153A CLA 2)+3 01334 LXD 6)+4,4 01422 LXD C)104,4 | 01246 STO IPL 01335 162A TRA 38A 01423 LXD KK,4 | 01247 154A LXD 2)+3,1 163A BSS 01424 SXD C)G5,4 | 01250 CLA M 01336 164A CLA 2) 01425 175A CLA J 01251 STD 158A3 01337 STO IMIN 01426 STO L1 | 01252 LXD 2)+3,4 01340 165A LXD 2)+3,1 01427 SXD 6)+4,4 | 01253 CLA N 01341 SXD C)100,1 01430 TSX A)101,4 | 01254 STD 158A4 01342 CLA M 01431 LXD C)101,4 | 01255 TRA 155A 01343 STD 176A3 01432 LXD L1,4 01256 E)2I SXD C)G1,4 01344 LXD 2)+3,2 01433 SXD C)G4,4 | 01257 SXD C)100,1 01345 SXD C)G1,2 01434 TRA 176A | 01260 155A LXD 2)+3,2 01346 CLA N 01435 E)B2 SXD C)G0,2 | 01261 CLA M 01347 STD 176A4 01436 SXD C)100,1 | 01262 STD 158A2 01350 PXD 0,2 01437 D)832 LXD C)G4,4 01263 156A CAL S+1,1 01351 STO J 01440 TRA 176A | 01264 ANA ASK 01352 D)82S LXD C)G4,4 01441 E)32 SXD C)G0,2 | 01265 156A1 TZE E)2N 01353 TRA 166A 01442 SXD C)100,1 | 01266 157A CLA IA+1,1 01354 E)AS SXD C)G1,2 176A BSS | 01267 SUB IU+1,2 01355 SXD C)100,1 01443 176A1 TXI *+1,1,1 01270 SUB IV+1,4 01356 166A LXD 2)+3,2 01444 TXI *+1,2,1 | 01271 157A1 TZE 158A 01357 SXD C)G0,2 01445 SXD I,2 | 01272 TPL E)2L 01360 CLA M 01446 176A2 TXL 167A,2 | 01273 TRA 157A3 01361 STD 176A2 01447 176A3 TIX *+1,1 | 01274 E)2L SXD C)G1,4 01362 PXD 0,2 01450 TXI *+1,1,100 01275 SXD C)G0,2 01363 STO I 01451 LXD C)G1,2 | 01276 SXD C)100,1 01364 167A CLA IS+1,1 01452 TXI *+1,2,1 | 01277 157A2 PXD 0,2 01365 167A1 TZE 168A 01453 SXD J,2 | 01300 STO I 01366 TPL E)32 01454 176A4 TXL E)AS,2 | 01301 PXD 0,4 01367 168A CLA IA+1,1 01455 177A CLA IMIN 01302 STO J 01370 SUB IU+1,2 01456 177A1 TZE 353A | 01303 TRA 160A 01371 LXD C)G1,4 01457 TPL 353A | 01304 157A3 PXD 0,2 01372 SUB IV+1,4 178A BSS | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 16 | 01460 179A CLA NSTAGE 01547 D)838 LXD C)G0,4 01636 204A1 TZE 208A | 01461 ADD 2)+3 01550 189A CLA IS+1,2 01637 TPL 208A | 01462 STO NSTAGE 01551 STO IS+1,1 205A BSS | 01463 180A CLA LIMSTG 01552 190A CLA IA+1,2 01640 TSX (SPH),4 | 01464 SUB NSTAGE 01553 STO IA+1,1 01641 PZE 8)7Q 01465 180A1 TZE 184A 01554 191A CLA IA+1,2 01642 206A LDQ NSTEP | 01466 TPL 184A 01555 SUB IU+1,4 01643 STR | 01467 181A SXD 6)+4,4 01556 LXD C)G4,4 01644 LDQ L1 | 01470 TSX (SPH),4 01557 SUB IV+1,4 01645 STR | 01471 PZE 8)7N 01560 STO IS+1,2 01646 LDQ LIMSTP 01472 LXD 6)+4,4 01561 192A CLA IS+1,2 01647 STR | 01473 182A LDQ NSTAGE 01562 192A1 TZE E)39 01650 TSX (FIL),4 | 01474 STR 01563 TPL 194A 01651 207A TRA D)E08 | 01475 LDQ LIMSTG 01564 TRA 194A 208A BSS | 01476 STR 01565 E)39 SXD C)103,2 01652 209A CLA 2)+1 01477 SXD 6)+4,4 01566 SXD C)102,1 01653 STO IE | 01500 TSX (FIL),4 01567 193A CLA 2) 01654 LXD IE,4 | 01501 LXD 6)+4,4 01570 STO IS+1,2 01655 SXD C)G6,4 | 01502 183A TRA D)E08 194A BSS 01656 210A LXD 2)+3,1 | 184A BSS 01571 194A1 TXI *+1,2,1 01657 CLA M 01503 185A CLA 2) 01572 SXD C)103,2 01660 STD 217A3 | 01504 STO NSTEP 01573 TXI *+1,1,1 01661 LXD 2)+3,2 | 01505 186A CLA IV+1,4 01574 LXD C)G0,2 01662 CLA NP1 | 01506 LXD C)G3,1 01575 TXI *+1,2,1 01663 STD 218A2 | 01507 STO IV+1,1 01576 194A2 TXL E)B8,2 01664 PXD 0,2 01510 LXD C)101,2 01577 195A CLA 2) 01665 STO J | 01511 187A CLA IA+1,2 01600 STO ICL1 01666 TRA 211A | 01512 LXD C)G5,1 01601 196A CLA LC+1,4 01667 E)BK SXD C)G1,2 | 01513 SUB IU+1,1 01602 STO ICL2 01670 SXD C)100,1 | 01514 STO IV+1,4 01603 197A LDQ M 01671 211A CLA LV+1,2 01515 188A CLA 6)+3 01604 MPY ICL2 01672 211A1 TZE 218A | 01516 STO 1)+3 01605 ALS 17 01673 TPL E)3L | 01517 LDQ L1 01606 STO LIMSTP 01674 TRA 218A | 01520 MPY 2)+5 01607 D)43C LXD C)G5,2 01675 E)3L SXD C)G1,2 | 01521 ALS 17 01610 198A LXD 2)+3,1 01676 SXD C)100,1 01522 SUB 2)+5 01611 CLA M 01677 212A LXD 2)+3,2 | 01523 ADD 1)+3 01612 STD 199A2 01700 SXD C)G0,2 | 01524 STO 1)+3 01613 199A CLA 2) 01701 CLA M | 01525 LXD 1)+3,2 01614 STO LU+1,1 01702 STD 217A2 | 01526 CLA 6)+3 01615 199A1 TXI *+1,1,1 01703 213A CAL S+1,1 01527 STO 1)+3 01616 199A2 TXL 199A,1 01704 ANA ASK | 01530 LDQ L2 01617 200A LXD 2)+3,1 01705 213A1 TZE E)3P | 01531 MPY 2)+5 01620 CLA NP1 01706 TPL 214A | 01532 ALS 17 01621 STD 201A2 01707 TRA E)3P | 01533 SUB 2)+5 01622 201A CLA 2) 01710 214A CLA LU+1,2 01534 ADD 1)+3 01623 STO LV+1,1 01711 214A1 TZE 215A | 01535 STO 1)+3 01624 201A1 TXI *+1,1,1 01712 TPL E)BP | 01536 LXD 1)+3,1 01625 201A2 TXL 201A,1 01713 TRA E)BP | 01537 LXD 2)+3,4 01626 202A CLA KK 01714 215A CLA J | 01540 SXD C)G0,4 01627 LXD C)G3,1 01715 STO LU+1,2 01541 CLA M 01630 STO LV+1,1 01716 216A CLA 2)+3 | 01542 STD 194A2 01631 203A CLA NSTEP 01717 STO IE | 01543 TRA 189A 01632 ADD 2)+3 01720 LXD IE,4 | 01544 E)B8 SXD C)G0,2 01633 STO NSTEP 01721 TRA 217A | 01545 SXD C)102,1 01634 204A CLA LIMSTP 01722 E)3P SXD C)G6,4 01546 D)C38 LXD C)103,2 01635 SUB NSTEP 01723 SXD C)G0,2 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 17 | | 01724 SXD C)100,1 02011 225A1 TZE 226A 02076 E)4C SXD C)100,2 | E)BP SYN E)3P 02012 TPL E)44 02077 SXD C)G1,1 217A BSS 02013 226A CLA S+1,2 02100 236A LXD 2)+3,4 | 01725 217A1 TXI *+1,1,1 02014 226A1 TZE 227A 02101 SXD C)G0,4 | 01726 TXI *+1,2,1 02015 TPL E)C6 02102 CLA M | 01727 217A2 TXL 213A,2 02016 TRA E)C6 02103 STD 246A2 | 01730 E)3Q SXD C)G6,4 02017 E)44 SXD C)G6,4 02104 D)A4D LXD C)G0,1 01731 217A3 TIX *+1,1 02020 SXD C)100,2 02105 D)84D LXD C)G7,4 | 01732 SXD C)100,1 02021 SXD C)G1,1 02106 237A CAL S+1,2 | 01733 D)43R LXD C)G1,2 02022 227A CLA LV+1,1 02107 ANA 3)+2 | 218A BSS 02023 227A1 TZE 228A 02110 237A1 TZE 238A | 01734 218A1 TXI *+1,1,100 02024 TPL E)S6 02111 TPL E)1CK 01735 TXI *+1,2,1 02025 TRA E)S6 02112 TRA E)1CK | 01736 SXD J,2 02026 228A CLA I 02113 238A CLA LU+1,1 | 01737 218A2 TXL E)BK,2 02027 STO LV+1,1 02114 238A1 TZE E)1SK | 01740 219A TRA 219A+3,4 02030 229A CLA 2)+3 02115 TPL D)24F | 01741 TRA D)24A 02031 STO IE 02116 TRA E)1SK 01742 220A CLA 2)+1 02032 LXD IE,4 02117 D)24F LXD C)G1,1 | 01743 STO IE 02033 TRA 230A 02120 239A CLA LV+1,1 | 01744 LXD IE,4 02034 E)C6 SXD C)G6,4 02121 239A1 TZE 240A | 01745 SXD C)G6,4 02035 SXD C)100,2 02122 TPL E)4K | 01746 221A LXD 2)+3,2 02036 SXD C)G1,1 02123 240A TRA 240A+3,4 01747 SXD C)100,2 E)S6 SYN E)C6 02124 TRA 244A | 01750 LDQ NP1 230A BSS 02125 E)4H SXD C)100,2 | 01751 MPY 2)+5 02037 230A1 TXI *+1,2,100 02126 241A CLA IS+1,2 | 01752 ALS 17 02040 TXI *+1,1,1 02127 STO IM | 01753 STD 230A3 02041 230A2 TXL 225A,1 02130 242A CLA 2)+1 01754 LXD 2)+3,1 02042 E)47 SXD C)G6,4 02131 STO LT1 | 01755 SXD C)G0,1 02043 230A3 TIX *+1,2 02132 LXD LT1,4 | 01756 CLA M 231A BSS 02133 SXD C)G7,4 | 01757 STD 231A2 02044 231A1 TXI *+1,2,1 02134 243A TRA 246A | 01760 PXD 0,1 02045 LXD C)G0,1 02135 244A CLA IM 01761 STO I 02046 TXI *+1,1,1 02136 SUB IS+1,2 | 01762 TRA 222A 02047 SXD I,1 02137 244A1 TZE E)KK | 01763 E)3U SXD C)100,2 02050 231A2 TXL E)3U,1 02140 TPL 245A | 01764 SXD C)G0,1 02051 232A TRA 232A+3,4 02141 TRA E)KK | 01765 222A CLA LU+1,1 02052 TRA D)24A 02142 245A CLA IS+1,2 01766 222A1 TZE 231A 02053 TRA 209A 02143 STO IM | 01767 TPL 223A 02054 D)24A LXD C)G5,1 02144 TRA 246A | 01770 TRA 231A 02055 233A CLA LU+1,1 02145 E)1CK SXD C)100,2 | 01771 223A CLA I 02056 233A1 TZE 234A 02146 D)24K LXD C)G1,1 | 01772 SUB KK 02057 TPL 297A 02147 TRA 246A 01773 223A1 TZE 223A2 02060 TRA 297A 02150 E)4K SXD C)100,2 | 01774 TPL 224A 02061 234A CLA 2)+3 E)1SK SYN E)1CK | 01775 TRA 224A 02062 STO LT1 E)KK SYN E)4K | 01776 223A2 SXD 6)+4,4 02063 LXD LT1,2 246A BSS | 01777 TSX A)100,4 02064 SXD C)G7,2 02151 246A1 TXI *+1,2,1 02000 LXD C)100,2 02065 235A LXD 2)+3,2 02152 LXD C)G0,4 | 02001 LXD 6)+4,4 02066 SXD C)100,2 02153 TXI *+1,4,1 | 02002 TRA 297A 02067 CLA M 02154 SXD C)G0,4 | 02003 224A LXD 2)+3,1 02070 STD 246A3 02155 246A2 TXL D)A4D,4 | 02004 SXD C)G1,1 02071 LXD 2)+3,1 02156 246A3 TIX *+1,2 02005 CLA NP1 02072 SXD C)G1,1 02157 TXI *+1,2,100 | 02006 STD 230A2 02073 CLA NP1 02160 TXI *+1,1,1 | 02007 225A CAL S+1,2 02074 STD 246A4 02161 246A4 TXL E)4C,1 | 02010 ANA ASK 02075 TRA 236A 02162 247A CLA IM | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 18 | 02163 247A1 TZE D)44O 02251 261A CAL S+1,1 02337 271A CLA I | 02164 TPL 248A 02252 ANA ASK 02340 STO KK | 02165 TRA D)44O 02253 261A1 TZE 262A 02341 TSX A)101,4 | 02166 248A CLA IM 02254 TPL E)56 02342 LXD C)101,4 02167 LXD C)104,2 02255 TRA E)56 02343 SXD 6)+4,4 | 02170 ADD IS+1,2 02256 262A CLA IA+1,1 02344 TSX A)104,4 | 02171 248A1 TZE 250A 02257 SUB IU+1,2 02345 LXD C)104,4 | 02172 TPL 249A 02260 SUB IV+1,4 02346 LXD KK,4 | 02173 TRA 250A 02261 STO IS+1,1 02347 SXD C)G5,4 02174 D)44O LXD C)104,2 02262 263A CLA IS+1,1 02350 TRA 272A | 02175 249A CLS IS+1,2 02263 263A1 TZE 264A 02351 E)5C SXD C)203,2 | 02176 STO IM 02264 TPL E)L6 02352 SXD C)102,1 | 02177 250A CAL EIM 02265 TRA E)L6 E)LC SYN E)5C | 02200 ANA ASKN 02266 264A CLA 2) 272A BSS 02201 SLW EIM 02267 STO IS+1,1 02353 272A1 TXI *+1,1,1 | 02202 251A LXD 2)+3,1 02270 TRA 265A 02354 TXI *+1,2,1 | 02203 CLA M 02271 E)56 SXD C)G0,2 02355 SXD I,2 | 02204 STD 254A2 02272 SXD C)100,1 02356 272A2 TXL 268A,2 | 02205 252A CLA LU+1,1 E)L6 SYN E)56 02357 273A CLA MIN 02206 252A1 TZE 254A 265A BSS 02360 273A1 TZE 274A | 02207 TPL 253A 02273 265A1 TXI *+1,1,1 02361 TPL 274A | 02210 TRA 254A 02274 TXI *+1,2,1 02362 TRA D)43C | 02211 253A CLA IU+1,1 02275 265A2 TXL 261A,2 274A BSS | 02212 ADD IM 02276 265A3 TIX *+1,1 02363 LXD C)G4,1 02213 STO IU+1,1 02277 TXI *+1,1,100 02364 275A CLA IV+1,1 | 254A BSS 02300 TXI *+1,4,1 02365 LXD C)G3,2 | 02214 254A1 TXI *+1,1,1 02301 265A4 TXL E)52,4 02366 SUB IV+1,2 | 02215 254A2 TXL 252A,1 02302 266A CLA 2) 02367 275A1 TZE 279A | 02216 255A LXD 2)+3,1 02303 STO MIN 02370 276A SXD 6)+4,4 02217 CLA NP1 02304 267A CLA 6)+3 02371 TSX (SPH),4 | 02220 STD 258A2 02305 STO 1)+3 02372 PZE 8)6P | 02221 256A CLA LV+1,1 02306 LDQ L2 02373 LXD 6)+4,4 | 02222 256A1 TZE 258A 02307 MPY 2)+5 02374 277A LDQ L1 | 02223 TPL 257A 02310 ALS 17 02375 STR 02224 TRA 258A 02311 SUB 2)+5 02376 LDQ NSTAGE | 02225 257A CLA IV+1,1 02312 ADD 1)+3 02377 STR | 02226 SUB IM 02313 STO 1)+3 02400 SXD 6)+4,4 | 02227 STO IV+1,1 02314 LXD 1)+3,1 02401 TSX (FIL),4 | 258A BSS 02315 SXD C)102,1 02402 LXD 6)+4,4 02230 258A1 TXI *+1,1,1 02316 LXD 2)+3,2 02403 278A TRA D)E08 | 02231 258A2 TXL 256A,1 02317 SXD C)203,2 02404 279A CLA 6)+3 | 02232 259A LXD 2)+3,1 02320 CLA M 02405 STO 1)+3 | 02233 SXD C)100,1 02321 STD 272A2 02406 LDQ L1 | 02234 CLA M 02322 PXD 0,2 02407 MPY 2)+5 02235 STD 265A3 02323 STO I 02410 ALS 17 | 02236 LXD 2)+3,4 02324 D)859 LXD C)G5,4 02411 SUB 2)+5 | 02237 SXD C)G1,4 02325 268A CLA IS+1,1 02412 ADD 1)+3 | 02240 CLA NP1 02326 268A1 TZE E)5C 02413 STO 1)+3 | 02241 STD 265A4 02327 TPL E)5C 02414 LXD 1)+3,1 02242 TRA 260A 02330 269A CLA MIN 02415 SXD C)103,1 | 02243 E)52 SXD C)G1,4 02331 SUB IS+1,1 02416 CLA 6)+3 | 02244 SXD C)100,1 02332 269A1 TZE E)LC 02417 STO 1)+3 | 02245 260A LXD 2)+3,2 02333 TPL 270A 02420 LDQ L2 | 02246 SXD C)G0,2 02334 TRA E)LC 02421 MPY 2)+5 02247 CLA M 02335 270A CLA IS+1,1 02422 ALS 17 | 02250 STD 265A2 02336 STO MIN 02423 SUB 2)+5 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 19 | | 02424 ADD 1)+3 02513 D)45O LXD C)G1,2 02601 SXD 6)+4,4 02425 STO 1)+3 02514 289A LXD 2)+3,4 02602 TSX A)100,4 | 02426 LXD 1)+3,4 02515 SXD C)205,4 02603 LXD C)100,2 | 02427 SXD C)102,4 02516 CLA M 02604 LXD 6)+4,4 | 02430 LXD 2)+3,2 02517 STD 295A2 02605 LXD I,2 | 02431 SXD C)204,2 02520 PXD 0,4 02606 SXD C)G0,2 02432 CLA M 02521 STO I 02607 298A CLA LU+1,2 | 02433 STD 286A2 02522 D)C5P LXD C)205,2 02610 STO J | 02434 280A CAL S+1,1 02523 D)85P LXD C)G4,4 02611 SXD 6)+4,4 | 02435 ANA ASK 02524 290A CLA IS+1,1 02612 TSX A)100,4 | 02436 280A1 TZE 284A 02525 290A1 TZE E)5S 02613 LXD C)100,1 02437 TPL E)5I 02526 TPL E)5S 02614 LXD 6)+4,4 | 02440 TRA 284A 02527 291A CLA MIN 02615 LXD J,2 | 02441 E)5I SXD C)102,4 02530 SUB IS+1,1 02616 SXD C)G1,2 | 02442 SXD C)204,2 02531 291A1 TZE E)LS 02617 299A CLA IS+1,1 | 02443 SXD C)103,1 02532 TPL 292A 02620 STO IDEL 02444 281A CAL S+1,4 02533 TRA E)LS 02621 300A CAL S+1,1 | 02445 ANA ASKN 02534 292A CLA IS+1,1 02622 ORA ASK | 02446 SLW ADD 02535 STO MIN 02623 SLW S+1,1 | 02447 282A CLA IS+1,1 02536 293A CLA I 02624 301A CLA LV+1,2 | 02450 ADD IADD 02537 STO KK 02625 STO I 02451 STO IS+1,1 02540 TSX A)101,4 02626 TSX A)100,4 | 02452 283A TRA 286A 02541 LXD C)101,4 02627 LXD C)100,1 | 02453 284A CAL S+1,4 02542 SXD 6)+4,4 02630 LXD I,4 | 02454 ANA ASK 02543 TSX A)104,4 02631 302A CLA I | 02455 284A1 TZE E)LL 02544 LXD C)104,4 02632 SUB KK 02456 TPL 285A 02545 LXD KK,4 02633 302A1 TZE E)61 | 02457 TRA E)LL 02546 SXD C)G5,4 02634 TPL 304A | 02460 285A CLA IS+1,1 02547 294A CLA J 02635 TRA 304A | 02461 ADD IS+1,4 02550 STO L1 02636 E)61 SXD C)G0,4 | 02462 STO IS+1,1 02551 SXD 6)+4,4 02637 303A CLA J 02463 TRA 286A 02552 TSX A)101,4 02640 SUB L2 | 02464 E)LL SXD C)102,4 02553 LXD C)101,4 02641 303A1 TZE 312A | 02465 SXD C)204,2 02554 LXD L1,4 02642 304A CAL S+1,1 | 02466 SXD C)103,1 02555 SXD C)G4,4 02643 ORA ASK | 286A BSS 02556 TRA 295A 02644 SLW S+1,1 02467 286A1 TXI *+1,1,1 02557 E)5S SXD C)205,2 02645 305A CLA LU+1,4 | 02470 TXI *+1,4,1 02560 SXD C)100,1 02646 STO J | 02471 TXI *+1,2,1 E)LS SYN E)5S 02647 SXD 6)+4,4 | 02472 286A2 TXL 280A,2 295A BSS 02650 TSX A)100,4 | 02473 D)45N LXD C)G1,2 02561 295A1 TXI *+1,1,1 02651 LXD C)100,1 02474 287A CLA 2) 02562 TXI *+1,2,1 02652 LXD 6)+4,4 | 02475 STO MIN 02563 SXD I,2 02653 LXD J,2 | 02476 288A LXD 2)+3,1 02564 295A2 TXL 290A,2 02654 SXD C)G1,2 | 02477 SXD C)100,1 02565 295A3 TIX *+1,1 02655 306A CLA I | 02500 CLA M 02566 TXI *+1,1,100 02656 SUB KK 02501 STD 295A3 02567 LXD C)206,2 02657 306A1 TZE 307A | 02502 LXD 2)+3,4 02570 TXI *+1,2,1 02660 TPL 308A | 02503 SXD C)206,4 02571 SXD J,2 02661 TRA 308A | 02504 CLA N 02572 295A4 TXL E)5O,2 02662 307A CLA J | 02505 STD 295A4 02573 296A CLA MIN 02663 SUB L2 02506 PXD 0,4 02574 296A1 TZE 353A 02664 307A1 TZE 312A | 02507 STO J 02575 TPL 353A 02665 E)64 SXD C)G0,4 | 02510 TRA 289A 02576 TRA 178A 02666 308A CLA IDEL | 02511 E)5O SXD C)206,2 02577 297A CLA KK 02667 SUB IS+1,1 | 02512 SXD C)100,1 02600 STO I 02670 308A1 TZE 310A 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 20 | | 02671 TPL E)65 02761 ADD 1)+1 03046 ADD IDEL | 02672 TRA 310A 02762 321A1 TZE E)6E 03047 STO ICL1 | 02673 E)65 SXD C)G0,4 02763 322A CLA IS+1,1 03050 337A CLA ICL2 02674 309A CLA IS+1,1 02764 SUB IDEL 03051 SUB IDEL | 02675 STO IDEL 02765 STO IS+1,1 03052 STO ICL2 | 02676 310A CAL S+1,1 02766 323A CAL S+1,1 03053 338A CLA ICL2 | 02677 ORA ASK 02767 ANA ASKN 03054 338A1 TZE 287A | 02700 SLW S+1,1 02770 SLW CK 03055 TPL 342A 02701 311A TRA 301A 02771 324A CLA CK 03056 339A SXD 6)+4,4 | 02702 312A CAL DEL 02772 324A1 TZE 325A 03057 TSX (SPH),4 | 02703 ANA ASKN 02773 TPL E)6D 03060 PZE 8)7A | 02704 SLW DEL 02774 TRA E)6D 03061 LXD 6)+4,4 | 02705 313A CLA KK 02775 325A CLA 2) 03062 340A LDQ ICL2 02706 STO I 02776 STO IS+1,1 03063 STR | 02707 TSX A)100,4 02777 TRA 326A 03064 SXD 6)+4,4 | 02710 LXD C)100,1 03000 E)6D SXD C)G0,4 03065 TSX (FIL),4 | 02711 LXD I,4 03001 SXD C)G1,2 03066 LXD 6)+4,4 | 02712 SXD C)G0,4 03002 326A CLA LV+1,2 03067 341A TRA D)E08 02713 314A CLA L2 03003 STO I 03070 342A CLA 2) | 02714 STO J 03004 TSX A)100,4 03071 STO MIN | 02715 SXD 6)+4,4 03005 LXD C)100,1 03072 343A CLA 6)+3 | 02716 TSX A)100,4 03006 LXD I,4 03073 STO 1)+3 | 02717 LXD C)100,1 03007 327A CLA J 03074 LDQ L2 02720 LXD 6)+4,4 03010 SUB L2 03075 MPY 2)+5 | 02721 LXD J,2 03011 SSP 03076 ALS 17 | 02722 SXD C)G1,2 03012 STO 1)+1 03077 SUB 2)+5 | 02723 315A TRA 320A 03013 CLA I 03100 ADD 1)+3 | 02724 316A CLA IS+1,1 03014 SUB KK 03101 STO 1)+3 02725 ADD IDEL 03015 SSP 03102 LXD 1)+3,1 | 02726 STO IS+1,1 03016 ADD 1)+1 03103 SXD C)102,1 | 02727 317A CAL S+1,1 03017 327A1 TZE E)EE 03104 LXD 2)+3,4 | 02730 ANA ASKN 03020 TPL 316A 03105 SXD C)207,4 | 02731 SLW CK 03021 TRA 316A 03106 CLA M 02732 318A CLA CK 03022 E)6E SXD C)G0,4 03107 STD 348A2 | 02733 318A1 TZE 319A 03023 SXD C)G1,2 03110 PXD 0,4 | 02734 TPL E)EA E)EE SYN E)6E 03111 STO I | 02735 TRA E)EA 328A BSS 03112 D)46K LXD C)G5,2 | 02736 319A CLA 2) 03024 LXD C)101,1 03113 344A CLA IS+1,1 02737 STO IS+1,1 03025 329A CLA IS+1,1 03114 344A1 TZE E)6N | 02740 TRA 320A 03026 ADD IDEL 03115 TPL E)6N | 02741 E)EA SXD C)G0,4 03027 STO IS+1,1 03116 345A CLA MIN | 02742 SXD C)G1,2 03030 330A CAL S+1,1 03117 SUB IS+1,1 | 02743 320A CLA LU+1,4 03031 ANA ASKN 03120 345A1 TZE E)EN 02744 STO J 03032 SLW CK 03121 TPL 346A | 02745 SXD 6)+4,4 03033 331A CLA CK 03122 TRA E)EN | 02746 TSX A)100,4 03034 331A1 TZE 332A 03123 346A CLA IS+1,1 | 02747 LXD C)100,1 03035 TPL 334A 03124 STO MIN | 02750 LXD 6)+4,4 03036 TRA 334A 03125 347A CLA I 02751 LXD J,2 03037 332A CLA 2) 03126 STO KK | 02752 321A CLA J 03040 STO IS+1,1 03127 SXD 6)+4,4 | 02753 SUB L2 03041 333A TRA 335A 03130 TSX A)101,4 | 02754 SSP 03042 334A CAL S+1,1 03131 LXD C)101,2 | 02755 STO 1)+1 03043 ORA ASK 03132 TSX A)104,4 02756 CLA I 03044 SLW S+1,1 03133 LXD C)104,2 | 02757 SUB KK 335A BSS 03134 LXD 6)+4,4 | 02760 SSP 03045 336A CLA ICL1 03135 LXD KK,2 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 21 | 03136 SXD C)G5,2 03221 360A2 TXL 355A,1 03310 369A1 TXI *+1,1,1 | 03137 TRA 348A 03222 360A3 TIX *+1,1 03311 TXI *+1,4,1 | 03140 E)6N SXD C)207,4 03223 TXI *+1,1,1 03312 SXD I,4 | 03141 SXD C)102,1 03224 360A4 TXL 354A,1 03313 369A2 TXL 366A,4 | E)EN SYN E)6N 03225 361A CLA NOTP 03314 369A3 TIX *+1,1 348A BSS 03226 361A1 TZE D)47L 03315 TXI *+1,1,100 | 03142 348A1 TXI *+1,1,1 03227 TPL 362A 03316 TXI *+1,2,1 | 03143 TXI *+1,4,1 03230 TRA D)47L 03317 SXD J,2 | 03144 SXD I,4 03231 362A CAL NOTP 03320 369A4 TXL 365A,2 | 03145 348A2 TXL 344A,4 03232 SXD 6)+4,4 03321 370A CLA N 03146 349A CLA MIN 03233 TSX (STH),4 03322 SUB M | 03147 349A1 TZE 350A 03234 PZE 8)D1 03323 STO IDIF | 03150 TPL 350A 03235 LXD 6)+4,4 03324 371A CLA IDIF | 03151 TRA 198A 03236 363A LDQ M 03325 371A1 TZE 376A | 350A BSS 03237 STR 03326 TPL 379A 03152 TSX (SPH),4 03240 LDQ N 03327 372A CLA N | 03153 PZE 8)7F 03241 STR 03330 STO LIM | 03154 351A LDQ L1 03242 LDQ IOBJ 03331 373A CLA M | 03155 STR 03243 STR 03332 STO LM2 | 03156 LDQ MIN 03244 SXD 6)+4,4 03333 374A CLA 2)+3 03157 STR 03245 TSX (FIL),4 03334 STO ISW | 03160 LDQ ICL2 03246 LXD 6)+4,4 03335 LXD ISW,2 | 03161 STR 03247 364A LXD 2)+3,1 03336 SXD C)G9,2 | 03162 TSX (FIL),4 03250 SXD C)100,1 03337 375A TRA 382A | 03163 352A TRA D)E08 03251 CLA M 03340 376A CLA 2)+1 03164 353A LXD 2)+3,1 03252 STD 369A3 03341 STO ISW | 03165 CLA M 03253 LXD 2)+3,2 03342 LXD ISW,2 | 03166 STD 360A4 03254 SXD C)209,2 03343 SXD C)G9,2 | 03167 LDQ N 03255 CLA N 03344 377A CLA N | 03170 MPY 2)+5 03256 STD 369A4 03345 STO LIM 03171 ALS 17 03257 PXD 0,2 03346 378A TRA 382A | 03172 STD 360A2 03260 STO J 03347 379A CLA M | 03173 LDQ N 03261 365A LXD 2)+3,4 03350 STO LIM | 03174 MPY 2)+5 03262 CLA M 03351 380A CLA N | 03175 ALS 17 03263 STD 369A2 03352 STO LM2 03176 STD 360A3 03264 PXD 0,4 03353 381A CLA 2)+2 | 354A BSS 03265 STO I 03354 STO ISW | 03177 355A CAL S+1,1 03266 366A CLA IS+1,1 03355 LXD ISW,2 | 03200 ANA ASK 03267 366A1 TZE 369A 03356 SXD C)G9,2 | 03201 355A1 TZE 356A 03270 367A CAL NOTP 03357 382A CAL NOTP 03202 TPL 358A 03271 SXD 6)+4,4 03360 TSX (STH),4 | 03203 TRA 358A 03272 TSX (STH),4 03361 PZE 8)D8 | 03204 356A CLA 2) 03273 PZE 8)CR 03362 TSX (FIL),4 | 03205 STO IS+1,1 03274 LXD 6)+4,4 03363 383A CLA LIM | 03206 357A TRA 360A 03275 368A LDQ J 03364 ADD 2)+3 03207 358A CAL ASK 03276 STR 03365 STO LP | 03210 COM 03277 LDQ I 03366 384A LXD 2)+3,1 | 03211 ANA S+1,1 03300 STR 03367 CLA LIM | 03212 SLW FMLT 03301 LDQ IS+1,1 03370 STD 386A2 | 03213 359A LDQ MLT 03302 STR 03371 PXD 0,1 03214 MPY IA+1,1 03303 LDQ IA+1,1 03372 STO L | 03215 ALS 17 03304 STR 03373 385A CAL NOTP | 03216 ADD IOBJ 03305 SXD 6)+4,4 03374 TSX (STH),4 | 03217 STO IOBJ 03306 TSX (FIL),4 03375 PZE 8)DA | 360A BSS 03307 LXD 6)+4,4 03376 386A LDQ IV+1,1 03220 360A1 TXI *+1,1,100 369A BSS 03377 STR | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 22 | | 03400 LDQ L 03470 CLA N 03557 A)200 CLA 6)+3 | 03401 STR 03471 STD 401A4 03560 STO 1)+3 03402 LDQ IU+1,1 03472 398A LXD 2)+3,2 03561 CLA I | 03403 STR 03473 CLA M 03562 SUB 6)+3 | 03404 TSX (FIL),4 03474 STD 401A2 03563 ADD 1)+3 | 03405 386A1 TXI *+1,1,1 03475 399A CAL S+1,1 03564 STO 1)+3 | 03406 SXD L,1 03476 ANA ASK 03565 LDQ J 03407 386A2 TXL 385A,1 03477 399A1 TZE E)7R 03566 MPY 2)+5 | 03410 387A TRA 387A+4,2 03500 400A CLA IA+1,1 03567 ALS 17 | 03411 TRA 392A 03501 SUB IU+1,2 03570 SUB 2)+5 | 03412 TRA 395A 03502 SUB IV+1,4 03571 ADD 1)+3 | 03413 388A LXD LP,1 03503 400A1 TZE 401A 03572 STO C)200 03414 CLA LM2 03504 TPL E)7P 03573 TRA 1,4 | 03415 STD 390A2 03505 TRA E)7Q 03574 A)202 CLA 6)+3 | 03416 PXD 0,1 03506 E)7P SXD C)G0,2 03575 STO 1)+3 | 03417 STO I 03507 SXD C)100,1 03576 CLA I | 03420 389A CAL NOTP 03510 400A2 PXD 0,2 03577 SUB 6)+3 03421 TSX (STH),4 03511 STO I 03600 ADD 1)+3 | 03422 PZE 8)DF 03512 PXD 0,4 03601 STO 1)+3 | 03423 390A LDQ I 03513 STO J 03602 LDQ J | 03424 STR 03514 TRA 160A 03603 MPY 2)+5 | 03425 LDQ IU+1,1 03515 E)7Q SXD C)G0,2 03604 ALS 17 03426 STR 03516 SXD C)100,1 03605 SUB 2)+5 | 03427 TSX (FIL),4 03517 400A3 PXD 0,2 03606 ADD 1)+3 | 03430 390A1 TXI *+1,1,1 03520 STO I 03607 STO C)202 | 03431 SXD I,1 03521 PXD 0,4 03610 TRA 1,4 | 03432 390A2 TXL 389A,1 03522 STO J 03611 A)101 CLA 6)+3 03433 391A TRA 395A 03523 TRA 160A 03612 STO 1)+3 | 03434 392A LXD LP,1 03524 E)7R SXD C)G0,2 03613 CLA KK | 03435 CLA LM2 03525 SXD C)100,1 03614 SUB 6)+3 | 03436 STD 394A2 401A BSS 03615 ADD 1)+3 | 03437 PXD 0,1 03526 401A1 TXI *+1,1,1 03616 STO 1)+3 03440 STO J 03527 TXI *+1,2,1 03617 LDQ L1 | 03441 393A CAL NOTP 03530 401A2 TXL 399A,2 03620 MPY 2)+5 | 03442 TSX (STH),4 03531 401A3 TIX *+1,1 03621 ALS 17 | 03443 PZE 8)DA 03532 TXI *+1,1,100 03622 SUB 2)+5 | 03444 394A LDQ IV+1,1 03533 TXI *+1,4,1 03623 ADD 1)+3 03445 STR 03534 SXD C)G1,4 03624 STO C)101 | 03446 LDQ J 03535 401A4 TXL 398A,4 03625 TRA 1,4 | 03447 STR 03536 402A LXD $,1 03626 A)104 CLA 6)+3 | 03450 TSX (FIL),4 03537 LXD $+1,2 03627 STO 1)+3 | 03451 394A1 TXI *+1,1,1 03540 LXD $+2,4 03630 CLA KK 03452 SXD J,1 03541 TRA 10,4 03631 SUB 6)+3 | 03453 394A2 TXL 393A,1 03542 A)100 CLA 6)+3 03632 ADD 1)+3 | 03454 TRA 395A 03543 STO 1)+3 03633 STO 1)+3 | 03455 D)47L LXD C)G9,2 03544 CLA I 03634 LDQ L2 | 03456 395A CLA 2)+3 03545 SUB 6)+3 03635 MPY 2)+5 03457 STO JE 03546 ADD 1)+3 03636 ALS 17 | 03460 396A CLA 2)+1 03547 STO 1)+3 03637 SUB 2)+5 | 03461 STO IPL 03550 LDQ J 03640 ADD 1)+3 | 03462 397A LXD 2)+3,1 03551 MPY 2)+5 03641 STO C)104 | 03463 SXD C)100,1 03552 ALS 17 03642 TRA 1,4 03464 CLA M 03553 SUB 2)+5 03643 2) OCT +000000000000 | 03465 STD 401A3 03554 ADD 1)+3 03644 OCT +000002000000 | 03466 LXD 2)+3,4 03555 STO C)100 03645 OCT +000003000000 | 03467 SXD C)G1,4 03556 TRA 1,4 03646 OCT +000001000000 | 1 SUBROUTINE TRAN(IA,LB,LC,MM,NN,IOBJ,IU,IV,JE) 12/01/64 PAGE 23 | 03647 OCT +077777000000 03737 BCD 1 IS NO | 03650 OCT +000144000000 03740 BCD 1 V(L1) | 03651 3) OCT +000000000077 03741 BCD 16,23H. | 03652 OCT -377777000000 03742 BCD 1STAGEI 03653 OCT -000000000077 03743 BCD 1ND OF | 03654 6) OCT +233000000000 03744 8)6P BCD 1(13H0E | 03655 OCT +000000377777 03745 BCD 16) | 03656 OCT +000000000000 03746 BCD 1OUND,I | 03657 OCT +000001000000 03747 BCD 1EEDS B 03660 OCT +000000000000 03750 BCD 1H, EXC | 03661 OCT +000000000000 03751 BCD 1EI6,16 | 03662 BCD 1,I14) 03752 BCD 1N STAG | 03663 8)DF BCD 1(15XI6 03753 BCD 110H, I | 03664 BCD 114) 03754 BCD 1PS,I6, 03665 8)DA BCD 1(I7,2I 03755 BCD 1OF STE | 03666 BCD 1I)//) 03756 BCD 1UMBER | 03667 BCD 16X4HU( 03757 8)7Q BCD 1(17H0N | 03670 BCD 1OW NO. 03760 BCD 1D,I6) | 03671 BCD 1OL., R 03761 BCD 1S BOUN 03672 BCD 16X13HC 03762 BCD 1EXCEED | 03673 BCD 14HV(J) 03763 BCD 1,16H, | 03674 BCD 1S///3X 03764 BCD 1GES,I6 | 03675 BCD 1RIABLE 03765 BCD 1OF STA | 03676 BCD 1UAL VA 03766 BCD 1UMBER 03677 8)D8 BCD 1(15H1D 03767 8)7N BCD 1(18H0N | 03700 BCD 1) 03770 BCD 1) | 03701 BCD 10,2I11 03771 BCD 1BLE-I4 | 03702 8)CR BCD 1(I8,I1 03772 BCD 1NFEASI | 03703 BCD 1,J)//) 03773 8)JH BCD 1(12H0I 03704 BCD 1X6HA(I 03774 BCD 1 J=I6) | 03705 BCD 1(I,J)5 03775 BCD 1I6,4H, | 03706 BCD 1I5X6HX 03776 8)JC BCD 1(3H0I= | 03707 BCD 15HROW 03777 BCD 1=I6) | 03710 BCD 1MN J4X 04000 BCD 1F C(J) 03711 BCD 1H COLU 04001 BCD 1 SUM O | 03712 BCD 1I6///9 04002 BCD 16,14H, | 03713 BCD 1CTION= 04003 BCD 1B(I)=I | 03714 BCD 1VE FUN 04004 BCD 1UM OF | 03715 BCD 1BJECTI 04005 8)CK BCD 1(13H0S 03716 BCD 121H, O 04006 9) OCT +000000000001 | 03717 BCD 1 N=I4, | 03720 BCD 1I4,4H, | 03721 8)D1 BCD 1(3H1M= | 03722 BCD 12)=I6) 03723 BCD 1H, CL( | 03724 BCD 1N=I6,8 | 03725 BCD 16H. MI | 03726 BCD 1AGEI6, | 03727 8)7F BCD 1(6H0ST 03730 BCD 1) | 03731 BCD 1(2)=I6 | 03732 8)7A BCD 1(7H0CL | 03733 BCD 1AGES.) | 03734 BCD 1,8H ST 03735 BCD 1L2).I6 | 03736 BCD 1T = V( | 1 * LABEL CP000001 * LIST8 CP000002 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1CP000003 101),IU(100),IV(101),LSROW(100),IFNAM(100) CP000004 EQUIVALENCE (ROWN,IROWN),(IFNAM,FNAM),(ICOLN,COLN) CP000005 COMMON IS CP000006 B ASK=000000000077 CP000007 M=0 CP000008 32 READ INPUT TAPE 5,33,K,NO CP000009 33 FORMAT(I2,I6) CP000010 JCT=0 CP000011 NROW=0 CP000012 GO TO(34,35),K CP000013 34 NO=5 CP000014 GO TO 35 CP000015 35 READ INPUT TAPE NO,1,TITLE CP000016 1 FORMAT(12A6) CP000017 WRITE OUTPUT TAPE 6,2,TITLE CP000018 2 FORMAT(1H112A6) CP000019 10 READ INPUT TAPE NO,3,WD1,WD2,COLN,ROWN,VAL CP000020 3 FORMAT(A1,A5,A6,A6,F12.0) CP000021 IF(WD1-6H )4,5,4 CP000022 4 IF(WD2-5HATRIX)6,7,6 CP000023 6 IF(WD2-5HIRST )8,9,8 CP000024 8 IF(WD2-2HOF)10,11,10 CP000025 C S11 END OF INPUT CP000026 C CP000027 9 ISW=2 CP000028 GO TO 10 CP000029 7 ISW=1 CP000030 GO TO 10 CP000031 5 GO TO(12,13),ISW CP000032 12 IF(JCT)14,14,15 CP000033 15 IF(IFNAM(JCT)-ICOLN)14,17,14 CP000034 14 JCT=JCT+1 CP000035 FNAM(JCT)=COLN CP000036 IC(JCT)=VAL CP000037 GO TO 10 CP000038 17 IF(NROW)40,40,41 CP000039 41 DO 42 I=1,NROW CP000040 II=I CP000041 IF(IROWN-LSROW(I))42,43,42 CP000042 42 CONTINUE CP000043 40 NROW=NROW+1 CP000044 II=NROW CP000045 LSROW(NROW)=IROWN CP000046 43 IA(II,JCT)=VAL CP000047 GO TO 10 CP000048 C RHS CP000049 C CP000050 13 DO 44 I=1,NROW CP000051 II=I CP000052 IF(IROWN-LSROW(I))44,45,44 CP000053 44 CONTINUE CP000054 GO TO 10 CP000055 45 IB(II)=VAL CP000056 GO TO 10 CP000057 C CP000058 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 2 11 M=NROW CP000059 N=JCT CP000060 IE=0 CP000061 CALL TRAN(IA,IB,IC,M,N,IOBJ,IU,IV,IE) CP000062 GO TO(46,47,47),IE CP000063 47 WRITE OUTPUT TAPE 6,48,IE CP000064 48 FORMAT(19H0ERROR RETURN. IE=I2) CP000065 GO TO 32 CP000066 46 IDIF=N-M CP000067 IF(IDIF)49,50,51 CP000068 49 LIM=N CP000069 ISW=1 CP000070 LM2=M CP000071 GO TO 53 CP000072 50 ISW=2 CP000073 LIM=N CP000074 GO TO 53 CP000075 51 ISW=3 CP000076 LM2=N CP000077 LIM=M CP000078 53 WRITE OUTPUT TAPE 6,52,M,N,IOBJ CP000079 52 FORMAT(3H0M=I4,4H, N=I4,21H, OBJECTIVE FUNCTION=I6///9H COLUMN J4XCP000080 15HROW I7X6HX(I,J)5X6HA(I,J)//) CP000081 DO 54 J=1,N CP000082 DO 54 I=1,M CP000083 IF(IS(I,J))55,54,55 CP000084 55 WRITE OUTPUT TAPE 6,56,FNAM(J),LSROW(I),IS(I,J),IA(I,J) CP000085 56 FORMAT(2XA6,4XA6,2I11) CP000086 54 CONTINUE CP000087 WRITE OUTPUT TAPE 6,57 CP000088 57 FORMAT(15H1DUAL VARIABLES///9H COLUMN J5X4HV(J)9X5HROW I5X4HU(I)//CP000089 1) CP000090 LP=LIM+1 CP000091 DO 58 L=1,LIM CP000092 58 WRITE OUTPUT TAPE 6,59,FNAM(L),IV(L),LSROW(L),IU(L) CP000093 59 FORMAT(2XA6,I10,8XA6,I9) CP000094 GO TO(60,61,62),ISW CP000095 60 DO 63 I=LP,LM2 CP000096 63 WRITE OUTPUT TAPE 6,64,LSROW(I),IU(I) CP000097 64 FORMAT(26XA6,3XI6) CP000098 GO TO 61 CP000099 62 DO 65 J=LP,LM2 CP000100 65 WRITE OUTPUT TAPE 6,59,FNAM(J),IV(J) CP000101 61 GO TO 32 CP000102 END(1,1,0,0,0,0,1,1,0,1,0,0,0,0,0) 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 3 | | 0 STORAGE NOT USED BY PROGRAM | 0 DEC OCT DEC OCT | 11218 25722 22461 53675 0 STORAGE LOCATIONS FOR VARIABLES APPEARING IN COMMON STATEMENTS | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | IS 32561 77461 | 0 STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMENSION AND EQUIVALENCE STATEMENTS | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT COLN 11116 25554 FNAM 11216 25720 IA 10601 24551 IB 11002 25372 ICOLN 11116 25554 | IC 11103 25537 IFNAM 11216 25720 IROWN 11217 25721 IU 10902 25226 IV 10802 25062 | LSROW 10701 24715 ROWN 11217 25721 TITLE 11115 25553 | 0 STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN COMMON, DIMENSION, OR EQUIVALENCE STATEMENT | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT ASK 501 00765 IDIF 500 00764 IE 499 00763 II 498 00762 IOBJ 497 00761 | I 496 00760 ISW 495 00757 JCT 494 00756 K 493 00755 LIM 492 00754 | LM2 491 00753 LP 490 00752 M 489 00751 NO 488 00750 NROW 487 00747 | N 486 00746 VAL 485 00745 WD1 484 00744 WD2 483 00743 | 0 SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS 0 EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC | 8)1 1 00723 8)2 2 00722 8)3 3 00720 8)11 33 00725 8)1G 48 00714 | 8)1K 52 00707 8)1O 56 00670 8)1P 57 00665 8)1R 59 00652 8)20 64 00647 | 0 LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT 1) 470 00726 2) 400 00620 3) 415 00637 4) 32767 77777 6) 416 00640 | A)100 387 00603 B) 407 00627 C)G0 474 00732 C)G1 475 00733 C)G2 476 00734 | C)G3 477 00735 C)G4 478 00736 C)G5 479 00737 C)G6 480 00740 C)G7 481 00741 | C)100 482 00742 D)201 17 00021 D)40K 174 00256 D)804 66 00102 D)C04 65 00101 | D)E04 64 00100 E)7 94 00136 E)A 110 00156 E)C 117 00165 E)I 157 00235 E)K 172 00254 E)L 183 00267 E)O 200 00310 E)P 202 00312 | 0 LOCATIONS OF NAMES IN TRANSFER VECTOR | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | TRAN 7 00007 (FIL) 6 00006 (FPT) 0 00000 (RTN) 2 00002 (SLI) 3 00003 | (SLO) 5 00005 (STH) 4 00004 (TSH) 1 00001 0 ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY | | TRAN (FIL) (FPT) (RTN) (SLI) (SLO) (STH) (TSH) | 0 EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS | 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 4 | 0 EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC | 32 17 00022 34 22 00052 35 24 00055 10 28 00103 4 31 00130 | 6 32 00133 8 33 00140 9 34 00145 7 36 00151 5 38 00157 | 12 39 00161 15 40 00166 14 41 00171 17 45 00211 41 46 00215 42 49 00232 40 50 00236 43 53 00257 13 55 00270 44 58 00305 | 45 60 00314 11 62 00324 47 67 00355 46 70 00370 49 72 00376 | 50 76 00407 51 79 00416 53 82 00426 55 87 00453 54 89 00473 | 58 93 00515 60 96 00537 63 97 00542 62 100 00561 65 101 00564 | 61 103 00602 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 5 | | 00000 -342647633460 00 (FPT) BCD 1(FPT) 00067 -063400400644 010 SXD 6)+4,4 | 00001 -346362303460 00 (TSH) BCD 1(TSH) 00070 +007400400004 010 TSX (STH),4 | 00002 -345163453460 00 (RTN) BCD 1(RTN) 00071 +000000000722 010 PZE 8)2 00003 -346243313460 00 (SLI) BCD 1(SLI) 27A BSS | 00004 -346263303460 00 (STH) BCD 1(STH) 00072 +007400400005 010 TSX (SLO),4 | 00005 -346243463460 00 (SLO) BCD 1(SLO) 00073 +000000025554 010 PZE TITLE+1 | 00006 -342631433460 00 (FIL) BCD 1(FIL) 00074 +000000000014 00 PZE 12 | 00007 -235121456060 00 TRAN BCD 1TRAN 00075 +007400400006 010 TSX (FIL),4 00010 +050000000002 00 $$ CLA 2 00076 -053400400644 010 LXD 6)+4,4 | 00011 +060100000645 010 STO 6)+5 00077 +002000000101 010 TRA D)C04 | 00012 +050000000000 010 CLA (FPT) 00100 -053400100733 010 D)E04 LXD C)G1,1 | 00013 +060100000010 00 STO 8 00101 -053400200742 010 D)C04 LXD C)100,2 | 00014 +060000077462 010 STZ 4)-205 00102 -053400400734 010 D)804 LXD C)G2,4 00015 -050000000637 010 15A CAL 3) 00103 -050000000750 010 28A CAL NO | 00016 +060200000765 010 SLW ASK 00104 -063400400644 010 SXD 6)+4,4 | 00017 +050000000620 010 16A CLA 2) 00105 +007400400001 010 TSX (TSH),4 | 00020 +060100000751 010 STO M 00106 +000000000720 010 PZE 8)3 | 00021 -053400100733 010 D)201 LXD C)G1,1 00107 -053400400644 010 LXD 6)+4,4 00022 -050000000621 010 17A CAL 2)+1 00110 -100000000000 00 29A STR | 00023 +007400400001 010 TSX (TSH),4 00111 -060000000744 010 STQ WD1 | 00024 +000000000725 010 PZE 8)11 00112 -100000000000 00 STR | 00025 -100000000000 00 18A STR 00113 -060000000743 010 STQ WD2 | 00026 -060000000755 010 STQ K 00114 -100000000000 00 STR 00027 -100000000000 00 STR 00115 -060000025554 010 STQ COLN | 00030 -060000000750 010 STQ NO 00116 -100000000000 00 STR | 00031 +007400400002 010 TSX (RTN),4 00117 -060000025721 010 STQ ROWN | 00032 -053400400755 010 LXD K,4 00120 -100000000000 00 STR | 00033 -063400400732 010 SXD C)G0,4 00121 -060000000745 010 STQ VAL 00034 +050000000620 010 19A CLA 2) 00122 -063400400644 010 SXD 6)+4,4 | 00035 +060100000756 010 STO JCT 00123 +007400400002 010 TSX (RTN),4 | 00036 -063400400644 010 SXD 6)+4,4 00124 -053400400644 010 LXD 6)+4,4 | 00037 +007400400603 010 TSX A)100,4 00125 +050000000744 010 30A CLA WD1 | 00040 -053400200742 010 LXD C)100,2 00126 +030200000627 010 FSB B) 00041 -053400400644 010 LXD 6)+4,4 00127 +010000000156 010 30A1 TZE E)A | 00042 -053400200756 010 LXD JCT,2 00130 +050000000743 010 31A CLA WD2 | 00043 -063400200734 010 SXD C)G2,2 00131 +030200000631 010 FSB B)+2 | 00044 +050000000620 010 20A CLA 2) 00132 +010000000151 010 31A1 TZE 36A | 00045 +060100000747 010 STO NROW 00133 +050000000743 010 32A CLA WD2 00046 -053400200747 010 LXD NROW,2 00134 +030200000633 010 FSB B)+4 | 00047 -063400200736 010 SXD C)G4,2 00135 +010000000145 010 32A1 TZE 34A | 00050 +002000400053 010 21A TRA 21A+3,4 00136 -063400400734 010 E)7 SXD C)G2,4 | 00051 +002000000055 010 TRA 24A 00137 -063400100733 010 SXD C)G1,1 | 00052 +050000000621 010 22A CLA 2)+1 00140 +050000000743 010 33A CLA WD2 00053 +060100000750 010 STO NO 00141 +030200000635 010 FSB B)+6 | 00054 +002000000055 010 23A TRA 24A 00142 +010000000324 010 33A1 TZE 62A | 00055 -050000000750 010 24A CAL NO 00143 +012000000103 010 TPL 28A | 00056 -063400400644 010 SXD 6)+4,4 00144 +002000000103 010 TRA 28A | 00057 +007400400001 010 TSX (TSH),4 00145 +050000000623 010 34A CLA 2)+3 00060 +000000000723 010 PZE 8)1 00146 +060100000757 010 STO ISW | 25A BSS 00147 -053400100757 010 LXD ISW,1 | 00061 +007400400003 010 TSX (SLI),4 00150 +002000000103 010 35A TRA 28A | 00062 +000000025554 010 PZE TITLE+1 00151 +050000000624 010 36A CLA 2)+4 | 00063 +000000000014 00 PZE 12 00152 +060100000757 010 STO ISW 00064 +007400400002 010 TSX (RTN),4 00153 -053400100757 010 LXD ISW,1 | 00065 -053400400644 010 LXD 6)+4,4 00154 -063400100733 010 SXD C)G1,1 | 00066 -050000000622 010 26A CAL 2)+2 00155 +002000000103 010 37A TRA 28A | 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 6 | 00156 -063400100733 010 E)A SXD C)G1,1 00245 +007400400603 010 TSX A)100,4 | 00157 +002000100162 010 38A TRA 38A+3,1 00246 -053400400742 010 LXD C)100,4 | 00160 +002000000267 010 TRA E)L 00247 -053400100762 010 LXD II,1 | 00161 +050000000756 010 39A CLA JCT 00250 -063400100737 010 SXD C)G5,1 | 00162 +010000000171 010 39A1 TZE 41A 00251 +050000025721 010 52A CLA IROWN 00163 +012000000165 010 TPL E)C 00252 +060100224716 010 STO LSROW+1,2 | 00164 +002000000171 010 TRA 41A 00253 +002000000257 010 TRA 53A | 00165 -063400400734 010 E)C SXD C)G2,4 00254 -063400200735 010 E)K SXD C)G3,2 | 00166 +050000425721 010 40A CLA IFNAM+1,4 00255 -063400100737 010 SXD C)G5,1 | 00167 +040200025554 010 SUB ICOLN 00256 -053400200736 010 D)40K LXD C)G4,2 00170 +010000000211 010 40A1 TZE 45A 00257 +050000000745 010 53A CLA VAL | 00171 +050000000756 010 41A CLA JCT 00260 -030000000640 010 UFA 6) | 00172 +040000000624 010 ADD 2)+4 00261 +076500000000 00 LRS | 00173 +060100000756 010 STO JCT 00262 -032000000641 010 ANA 6)+1 | 00174 +007400400603 010 TSX A)100,4 00263 +076300000000 00 LLS 00175 -053400200742 010 LXD C)100,2 00264 +076700000022 00 ALS 18 | 00176 -053400400756 010 LXD JCT,4 00265 +060100424552 010 STO IA+1,4 | 00177 +050000025554 010 42A CLA COLN 00266 +002000000100 010 54A TRA D)E04 | 00200 +060100425721 010 STO FNAM+1,4 00267 -063400400734 010 E)L SXD C)G2,4 | 00201 +050000000745 010 43A CLA VAL 00270 -053400200624 010 55A LXD 2)+4,2 00202 -030000000640 010 UFA 6) 00271 +050000000747 010 CLA NROW | 00203 +076500000000 00 LRS 00272 +062200000307 010 STD 58A2 | 00204 -032000000641 010 ANA 6)+1 00273 -075400200000 00 PXD 0,2 | 00205 +076300000000 00 LLS 00274 +060100000760 010 STO I | 00206 +076700000022 00 ALS 18 00275 +050000000760 010 56A CLA I 00207 +060100425540 010 STO IC+1,4 00276 +060100000762 010 STO II | 00210 +002000000103 010 44A TRA 28A 00277 +007400400603 010 TSX A)100,4 | 00211 +050000000747 010 45A CLA NROW 00300 -053400400742 010 LXD C)100,4 | 00212 +010000000236 010 45A1 TZE 50A 00301 -053400100762 010 LXD II,1 | 00213 +012000000215 010 TPL 46A 00302 +050000025721 010 57A CLA IROWN 00214 +002000000236 010 TRA 50A 00303 +040200224716 010 SUB LSROW+1,2 | 00215 -053400200624 010 46A LXD 2)+4,2 00304 +010000000312 010 57A1 TZE E)P | 00216 +050000000747 010 CLA NROW 58A BSS | 00217 +062200000234 010 STD 49A2 00305 +100001200306 010 58A1 TXI *+1,2,1 | 00220 -075400200000 00 PXD 0,2 00306 -063400200760 010 SXD I,2 00221 +060100000760 010 STO I 00307 -300000200275 010 58A2 TXL 56A,2 | 00222 +050000000760 010 47A CLA I 00310 -063400100737 010 E)O SXD C)G5,1 | 00223 +060100000762 010 STO II 00311 +002000000100 010 59A TRA D)E04 | 00224 +007400400603 010 TSX A)100,4 00312 -063400200735 010 E)P SXD C)G3,2 | 00225 -053400400742 010 LXD C)100,4 00313 -063400100737 010 SXD C)G5,1 00226 -053400100762 010 LXD II,1 00314 +050000000745 010 60A CLA VAL | 00227 +050000025721 010 48A CLA IROWN 00315 -030000000640 010 UFA 6) | 00230 +040200224716 010 SUB LSROW+1,2 00316 +076500000000 00 LRS | 00231 +010000000254 010 48A1 TZE E)K 00317 -032000000641 010 ANA 6)+1 | 49A BSS 00320 +076300000000 00 LLS 00232 +100001200233 010 49A1 TXI *+1,2,1 00321 +076700000022 00 ALS 18 | 00233 -063400200760 010 SXD I,2 00322 +060100125373 010 STO IB+1,1 | 00234 -300000200222 010 49A2 TXL 47A,2 00323 +002000000100 010 61A TRA D)E04 | 00235 -063400100737 010 E)I SXD C)G5,1 00324 +050000000747 010 62A CLA NROW | 00236 +050000000747 010 50A CLA NROW 00325 +060100000751 010 STO M 00237 +040000000624 010 ADD 2)+4 00326 +050000000756 010 63A CLA JCT | 00240 +060100000747 010 STO NROW 00327 +060100000746 010 STO N | 00241 -053400200747 010 LXD NROW,2 00330 +050000000620 010 64A CLA 2) | 00242 -063400200736 010 SXD C)G4,2 00331 +060100000763 010 STO IE | 00243 +050000000747 010 51A CLA NROW 00332 -053400200763 010 LXD IE,2 00244 +060100000762 010 STO II 00333 -063400400644 010 65A SXD 6)+4,4 | 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 7 | | 00334 +007400400007 010 TSX TRAN,4 00424 +050000000751 010 81A CLA M | 00335 +007400024551 010 TSX IA 00425 +060100000754 010 STO LIM 00336 +007400025372 010 TSX IB 00426 -050000000622 010 82A CAL 2)+2 | 00337 +007400025537 010 TSX IC 00427 +007400400004 010 TSX (STH),4 | 00340 +007400000751 010 TSX M 00430 +000000000707 010 PZE 8)1K | 00341 +007400000746 010 TSX N 00431 +056000000751 010 83A LDQ M | 00342 +007400000761 010 TSX IOBJ 00432 -100000000000 00 STR 00343 +007400025226 010 TSX IU 00433 +056000000746 010 LDQ N | 00344 +007400025062 010 TSX IV 00434 -100000000000 00 STR | 00345 +007400000763 010 TSX IE 00435 +056000000761 010 LDQ IOBJ | 00346 -053400400644 010 LXD 6)+4,4 00436 -100000000000 00 STR | 00347 -053400200763 010 LXD IE,2 00437 +007400400006 010 TSX (FIL),4 00350 -063400200740 010 SXD C)G6,2 00440 -053400200624 010 84A LXD 2)+4,2 | 00351 +002000200355 010 66A TRA 66A+4,2 00441 +050000000751 010 CLA M | 00352 +002000000355 010 TRA 67A 00442 +062200000476 010 STD 89A3 | 00353 +002000000355 010 TRA 67A 00443 -053400400624 010 LXD 2)+4,4 | 00354 +002000000370 010 TRA 70A 00444 +050000000746 010 CLA N 00355 -050000000622 010 67A CAL 2)+2 00445 +062200000502 010 STD 89A4 | 00356 -063400400644 010 SXD 6)+4,4 00446 -053400100624 010 85A LXD 2)+4,1 | 00357 +007400400004 010 TSX (STH),4 00447 +050000000751 010 CLA M | 00360 +000000000714 010 PZE 8)1G 00450 +062200000475 010 STD 89A2 | 00361 -053400400644 010 LXD 6)+4,4 00451 +050000277462 010 86A CLA IS+1,2 00362 +056000000763 010 68A LDQ IE 00452 +010000000473 010 86A1 TZE 89A | 00363 -100000000000 00 STR 00453 -050000000622 010 87A CAL 2)+2 | 00364 -063400400644 010 SXD 6)+4,4 00454 -063400400644 010 SXD 6)+4,4 | 00365 +007400400006 010 TSX (FIL),4 00455 +007400400004 010 TSX (STH),4 | 00366 -053400400644 010 LXD 6)+4,4 00456 +000000000670 010 PZE 8)1O 00367 +002000000022 010 69A TRA 17A 00457 -053400400644 010 LXD 6)+4,4 | 00370 +050000000746 010 70A CLA N 00460 +056000425721 010 88A LDQ FNAM+1,4 | 00371 +040200000751 010 SUB M 00461 -100000000000 00 STR | 00372 +060100000764 010 STO IDIF 00462 +056000124716 010 LDQ LSROW+1,1 | 00373 +050000000764 010 71A CLA IDIF 00463 -100000000000 00 STR 00374 +010000000407 010 71A1 TZE 76A 00464 +056000277462 010 LDQ IS+1,2 | 00375 +012000000416 010 TPL 79A 00465 -100000000000 00 STR | 00376 +050000000746 010 72A CLA N 00466 +056000224552 010 LDQ IA+1,2 | 00377 +060100000754 010 STO LIM 00467 -100000000000 00 STR | 00400 +050000000624 010 73A CLA 2)+4 00470 -063400400644 010 SXD 6)+4,4 00401 +060100000757 010 STO ISW 00471 +007400400006 010 TSX (FIL),4 | 00402 -053400100757 010 LXD ISW,1 00472 -053400400644 010 LXD 6)+4,4 | 00403 -063400100733 010 SXD C)G1,1 89A BSS | 00404 +050000000751 010 74A CLA M 00473 +100001200474 010 89A1 TXI *+1,2,1 | 00405 +060100000753 010 STO LM2 00474 +100001100475 010 TXI *+1,1,1 00406 +002000000426 010 75A TRA 82A 00475 -300000100451 010 89A2 TXL 86A,1 | 00407 +050000000623 010 76A CLA 2)+3 00476 +200000200477 010 89A3 TIX *+1,2 | 00410 +060100000757 010 STO ISW 00477 +100144200500 010 TXI *+1,2,100 | 00411 -053400100757 010 LXD ISW,1 00500 +100001400501 010 TXI *+1,4,1 | 00412 -063400100733 010 SXD C)G1,1 00501 -063400400741 010 SXD C)G7,4 00413 +050000000746 010 77A CLA N 00502 -300000400446 010 89A4 TXL 85A,4 | 00414 +060100000754 010 STO LIM 00503 -050000000622 010 90A CAL 2)+2 | 00415 +002000000426 010 78A TRA 82A 00504 +007400400004 010 TSX (STH),4 | 00416 +050000000625 010 79A CLA 2)+5 00505 +000000000665 010 PZE 8)1P | 00417 +060100000757 010 STO ISW 00506 +007400400006 010 TSX (FIL),4 00420 -053400100757 010 LXD ISW,1 00507 +050000000754 010 91A CLA LIM | 00421 -063400100733 010 SXD C)G1,1 00510 +040000000624 010 ADD 2)+4 | 00422 +050000000746 010 80A CLA N 00511 +060100000752 010 STO LP | 00423 +060100000753 010 STO LM2 00512 -053400200624 010 92A LXD 2)+4,2 | 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 8 | 00513 +050000000754 010 CLA LIM 00603 +050000000643 010 A)100 CLA 6)+3 | 00514 +062200000532 010 STD 94A2 00604 +060100000731 010 STO 1)+3 | 00515 -050000000622 010 93A CAL 2)+2 00605 +050000000762 010 CLA II | 00516 +007400400004 010 TSX (STH),4 00606 +040200000643 010 SUB 6)+3 00517 +000000000652 010 PZE 8)1R 00607 +040000000731 010 ADD 1)+3 | 00520 +056000225721 010 94A LDQ FNAM+1,2 00610 +060100000731 010 STO 1)+3 | 00521 -100000000000 00 STR 00611 +056000000756 010 LDQ JCT | 00522 +056000225063 010 LDQ IV+1,2 00612 +020000000626 010 MPY 2)+6 | 00523 -100000000000 00 STR 00613 +076700000021 00 ALS 17 00524 +056000224716 010 LDQ LSROW+1,2 00614 +040200000626 010 SUB 2)+6 | 00525 -100000000000 00 STR 00615 +040000000731 010 ADD 1)+3 | 00526 +056000225227 010 LDQ IU+1,2 00616 +060100000742 010 STO C)100 | 00527 -100000000000 00 STR 00617 +002000400001 00 TRA 1,4 | 00530 +007400400006 010 TSX (FIL),4 00620 +000000000000 00 2) OCT +000000000000 00531 +100001200532 010 94A1 TXI *+1,2,1 00621 +000005000000 00 OCT +000005000000 | 00532 -300000200515 010 94A2 TXL 93A,2 00622 +000006000000 00 OCT +000006000000 | 00533 -053400200733 010 LXD C)G1,2 00623 +000002000000 00 OCT +000002000000 | 00534 +002000200540 010 95A TRA 95A+4,2 00624 +000001000000 00 OCT +000001000000 | 00535 +002000000561 010 TRA 100A 00625 +000003000000 00 OCT +000003000000 00536 +002000000602 010 TRA 103A 00626 +000144000000 00 OCT +000144000000 | 00537 -053400400752 010 96A LXD LP,4 00627 -206060606060 00 B) BCD 1 | 00540 +050000000753 010 CLA LM2 00630 -377777777777 00 OCT -377777777777 | 00541 +062200000557 010 STD 98A2 00631 +216351316760 00 BCD 1ATRIX | 00542 -050000000622 010 97A CAL 2)+2 00632 -377777777777 00 OCT -377777777777 00543 -063400400644 010 SXD 6)+4,4 00633 +315162636060 00 BCD 1IRST | 00544 +007400400004 010 TSX (STH),4 00634 -377777777777 00 OCT -377777777777 | 00545 +000000000647 010 PZE 8)20 00635 -062660606060 00 BCD 1OF | 00546 -053400400644 010 LXD 6)+4,4 00636 -377777777777 00 OCT -377777777777 | 00547 +056000424716 010 98A LDQ LSROW+1,4 00637 +000000000077 00 3) OCT +000000000077 00550 -100000000000 00 STR 00640 +233000000000 00 6) OCT +233000000000 | 00551 +056000425227 010 LDQ IU+1,4 00641 +000000377777 00 OCT +000000377777 | 00552 -100000000000 00 STR 00642 +000000000000 00 OCT +000000000000 | 00553 -063400400644 010 SXD 6)+4,4 00643 +000001000000 00 OCT +000001000000 | 00554 +007400400006 010 TSX (FIL),4 00644 +000000000000 00 OCT +000000000000 00555 -053400400644 010 LXD 6)+4,4 00645 +000000000000 00 OCT +000000000000 | 00556 +100001400557 010 98A1 TXI *+1,4,1 00646 -330367310634 00 BCD 1,3XI6) | 00557 -300000400542 010 98A2 TXL 97A,4 00647 -340206672106 00 8)20 BCD 1(26XA6 | 00560 +002000000602 010 99A TRA 103A 00650 +210673311134 00 BCD 1A6,I9) | 00561 -053400400752 010 100A LXD LP,4 00651 +310100731067 00 BCD 1I10,8X 00562 +050000000753 010 CLA LM2 00652 -340267210673 00 8)1R BCD 1(2XA6, | 00563 +062200000601 010 STD 102A2 00653 +346060606060 00 BCD 1) | 00564 -050000000622 010 101A CAL 2)+2 00654 -247431346161 00 BCD 1U(I)// | 00565 -063400400644 010 SXD 6)+4,4 00655 -203105670430 00 BCD 1 I5X4H | 00566 +007400400004 010 TSX (STH),4 00656 -270530514666 00 BCD 1X5HROW 00567 +000000000652 010 PZE 8)1R 00657 +306574413411 00 BCD 1HV(J)9 | 00570 -053400400644 010 LXD 6)+4,4 00660 -056041056704 00 BCD 1N J5X4 | 00571 +056000425721 010 102A LDQ FNAM+1,4 00661 -202346436444 00 BCD 1 COLUM | 00572 -100000000000 00 STR 00662 -226161611130 00 BCD 1S///9H | 00573 +056000425063 010 LDQ IV+1,4 00663 -113121224325 00 BCD 1RIABLE 00574 -100000000000 00 STR 00664 -242143606521 00 BCD 1UAL VA | 00575 -063400400644 010 SXD 6)+4,4 00665 -340105300124 00 8)1P BCD 1(15H1D | 00576 +007400400006 010 TSX (FIL),4 00666 +310101346060 00 BCD 1I11) | 00577 -053400400644 010 LXD 6)+4,4 00667 +046721067302 00 BCD 14XA6,2 | 00600 +100001400601 010 102A1 TXI *+1,4,1 00670 -340267210673 00 8)1O BCD 1(2XA6, 00601 -300000400564 010 102A2 TXL 101A,4 00671 -334134616134 00 BCD 1,J)//) | 00602 +002000000021 010 103A TRA D)201 00672 -270630217431 00 BCD 1X6HA(I | 1 DIMENSION TITLE(12),FNAM(100),IC(101),IB(100),IA(100,101),IS(100,1 12/01/64 PAGE 9 | | 00673 -343173413405 00 BCD 1(I,J)5 00674 +310767063067 00 BCD 1I7X6HX | 00675 +053051466660 00 BCD 15HROW | 00676 -044560410467 00 BCD 1MN J4X | 00677 +306023464364 00 BCD 1H COLU | 00700 +310661616111 00 BCD 1I6///9 00701 +236331464513 00 BCD 1CTION= | 00702 -252560266445 00 BCD 1VE FUN | 00703 +224125236331 00 BCD 1BJECTI | 00704 +020130736046 00 BCD 121H, O | 00705 -204513310473 00 BCD 1 N=I4, 00706 +310473043073 00 BCD 1I4,4H, | 00707 -340330004413 00 8)1K BCD 1(3H0M= | 00710 +023460606060 00 BCD 12) | 00711 -206031251331 00 BCD 1 IE=I | 00712 +256364514533 00 BCD 1ETURN. 00713 -115146516051 00 BCD 1RROR R | 00714 -340111300025 00 8)1G BCD 1(19H0E | 00715 +346060606060 00 BCD 1) | 00716 -332601023300 00 BCD 1,F12.0 | 00717 -332106732106 00 BCD 1,A6,A6 00720 -342101732105 00 8)3 BCD 1(A1,A5 | 00721 +210634606060 00 BCD 1A6) | 00722 -340130010102 00 8)2 BCD 1(1H112 | 00723 -340102210634 00 8)1 BCD 1(12A6) | 00724 +346060606060 00 BCD 1) 00725 -343102733106 00 8)11 BCD 1(I2,I6 | 1 0LIBRARY ENTRY POINTS, (SPH) (FIL) (STHM) (FPT) (TSHM) (RTN) (SLI) (SLO) 0LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 1 A1 0 31 0 0 0 0 0 2 A4 653 727 0 0 0 0 0 3 B4 112 151 0 0 0 0 0 4 A3 583 623 0 0 0 0 0 5 A2 0 541 0 0 0 0 0 6 B1 805 2 0 0 0 0 0 7 B2 133 130 0 0 0 0 0 0 EXECUTION 1EXAMPLE IN PAPER 0M= 3, N= 5, OBJECTIVE FUNCTION= 23 COLUMN J ROW I X(I,J) A(I,J) COL 1 ROW 2 1 2 COL 1 ROW 3 1 1 COL 2 ROW 3 2 1 COL 3 ROW 3 3 2 COL 4 ROW 2 4 2 COL 5 ROW 1 4 1 1DUAL VARIABLES COLUMN J V(J) ROW I U(I) COL 1 1 ROW 1 0 COL 2 1 ROW 2 1 COL 3 2 ROW 3 -0 COL 4 1 COL 5 1 1 1751 LINES OUTPUT THIS JOB. 1 0 FORTRAN MONITOR RETURNING TO IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00000, FILE 00002 SYSOU1 IS B1 REC. 00834, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001| 1 END OF JOBS | 1