| 1 $JOB 0,5,5000 SO-POTTS,4920,D $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB MAP | $IBFTC PROG1 FULIST 1 12/01/64 PAGE 1 | PROG1 - EFN SOURCE STATEMENT - IFN(S) - | 0| C | C PROG1 - ELECTRON PROBE MICROANALYSIS - CALCULATE WEIGHT FRACTIONS C | C NCONT = CONTINUATION CODE - 0 - START A NEW PROBLEM | C 1 - CONTINUE FROM LAST PROBLEM | C | C C NFLCD = FLUORESCENCE CODE - 0 FOR NO FLUORESCENCE CORRECTION | C 1 FOR FLUORESCENCE CORRECTION | C NBKCD = BACKGROUND CODE - 0 FOR SIMPLE BACKGROUND | C 1 FOR BACKGROUND DEPENDS ON COMPOSITION | C CTCD = COMPOUND STANDARD CODE - 0 FOR SIMPLE STANDARD C 1 FOR COMPOUND STANDARD | C NSFCD = COMPOUND STANDARD FLUORESCENCE CORRECTION CODE | C 0 NO CORRECTION | C 1 WITH CORRECTION | DIMENSION ATNO(4),ATWT(4),ABC(4,4),CSC(4),SPI(4),SBI(4),PSI(4), 1 SPF(4),SBF(4),PS1(4),PS2(4),PD1(4),BD1(4),RINT(4), | 2 CONC(4),CON1(4),CON2(4),FSTD(4),SCON(4),SABS(4), | 3 SATNO(4),SATWT(4),ABSAM(4),BK1(4,4),BK2(4,4), | 4 SB3(4),SB4(4),BD2(4),DT(4),EXC(4,4),SINT(50,4), | 5 ABSS(4),EAB(4,4),RELINT(4),CTCD(4),SVO(4),VO(4) C | C INPUT DATA | C | 1 READ (5,2) NCONT,NPROB,NC,NS,NFLCD,NBKCD,SIGMA,THETA 1 | 2 FORMAT (6I5,2F10.3) WRITE (6,3) NPROB,NC,NS,NFLCD,NBKCD,SIGMA,THETA 8 | 3 FORMAT (1H1,16H PROBLEM NUMBER I6 // 5X,12H INPUT DATA // 10X, | 1 20H NO. OF COMPONENTS = I3,10X,22H NO. OF OBSERVATIONS = | 2 I3,10X,19H FLUORESCENT CODE = I3 // 10X, | 3 18H BACKGROUND CODE = I3,12X,21H LENARD COEFFICIENT = 4 F7.1 // 10X,8H THETA = F6.2 //) | IF (NCONT) 305,305,105 | 305 READ (5,4) (ATNO(I),ATWT(I),CTCD(I),DT(I),PSI(I),I=1,NC) 10 | 4 FORMAT (5F10.4) | WRITE (6,5) 21 5 FORMAT (1H0,10X,9H AT. NO. ,11X,9H AT. WT. ,8X,15H COMP. ST. CODE, | 1 8X,11H DEAD TIME , 8X,11H T.O. ANGLE //) | WRITE (6,6) (ATNO(I),ATWT(I),CTCD(I),DT(I),PSI(I),I=1,NC) 22 | 6 FORMAT (5F20.5) | DO 7 I = 1,NC 7 READ (5,8) (ABC(I,J),J=1,NC) 36 | 8 FORMAT (7F10.3) | WRITE (6,9) 42 | 9 FORMAT (1H0,10X,30H MASS ABSORPTION COEFFICIENTS //) | DO 10 I = 1,NC 10 WRITE (6,6) (ABC(I,J),J=1,NC) 46 | 105 READ (5,11) (SPI(I),SBI(I),SPF(I),SBF(I),I=1,NC) 53 | 11 FORMAT (4F10.3) | WRITE (6,12) 63 | 12 FORMAT (1H0,10X,41H STANDARD INTENSITIES, INITIAL AND FINAL //) WRITE (6,121) (SPI(I),SBI(I),SPF(I),SBF(I),I=1,NC) 64 | 121 FORMAT (4F20.5) | DO 13 I = 1,NS | 1 12/01/64 PAGE 2 | PROG1 - EFN SOURCE STATEMENT - IFN(S) - 0 13 READ (5,8) (SINT(I,J),J=1,NC) 77 | WRITE (6,131) 83 | 131 FORMAT (1H0,10X,29H SETS OF SPECIMEN INTENSITIES //) | DO 132 I = 1,NS | 132 WRITE (6,6) (SINT(I,J),J=1,NC) 87 IF (NCONT) 1323,1323,1329 | 1323 IF (NFLCD) 1329,1329,1324 | 1324 READ (5,8) V,(VO(I),I=1,NC) 97 | WRITE (6,1325) V,(VO(I),I=1,NC) 104 | 1325 FORMAT (1H0,10X,39H INCIDENT ELECTRON BEAM VOLTAGE IN KV = F6.2, 1 // 11X,36H CRITICAL EXCITATION POTENTIAL IN KV // 4F20.5) | 1326 WRITE (6,1327) 111 | 1327 FORMAT (1H0,10X,27H EXCITATION EFFICIENCY EAB //) | DO 1328 I = 1,NC | READ (5,8) (EAB(I,J),J=1,NC) 114 WRITE (6,6) (EAB(I,J),J=1,NC) 119 | 1328 CONTINUE | 1329 IF (NBKCD) 137,137,133 | 133 DO 134 I = 1,NC | READ (5,8) (BK1(I,J),J=1,NC) 133 134 READ (5,8) (BK2(I,J),J=1,NC) 138 | WRITE (6,135) 144 | 135 FORMAT (1H0,10X,47H BACKGROUND INTENSITIES DEPENDED ON COMPOSITION | 1 //) | DO 136 I = 1,NC WRITE (6,6) (BK1(I,J),J=1,NC) 147 | 136 WRITE (6,6) (BK2(I,J),J=1,NC) | C | C DEAD TIME CORRECTION | C 152 137 DO 14 I = 1,NC | IF (DT(I)) 14,14,138 | 138 SPI(I) = SPI(I)/(1.0-(SPI(I)*DT(I)/1000000.0)) | SPF(I) = SPF(I)/(1.0-(SPF(I)*DT(I)/1000000.0)) | SBI(I) = SBI(I)/(1.0-(SBI(I)*DT(I)/1000000.0)) SBF(I) = SBF(I)/(1.0-(SBF(I)*DT(I)/1000000.0)) | DO 139 J = 1,NS | SINT(J,I) = SINT(J,I)/(1.0-(SINT(J,I)*DT(I)/1000000.0)) | 139 CONTINUE | IF (NBKCD) 14,14,1395 1395 DO 1396 J = 1,NC | BK1(I,J) = BK1(I,J)/(1.0-(BK1(I,J)*DT(I)/1000000.0)) | BK2(I,J) = BK2(I,J)/(1.0-(BK2(I,J)*DT(I)/1000000.0)) | 1396 CONTINUE | 14 CONTINUE C | C STANDARD INTENSITIES CORRECTED FROM THE BACKGROUND | C | DO 15 I = 1,NC | PS1(I) = SPI(I) - SBI(I) PS2(I) = SPF(I) - SBF(I) | PD1(I) = PS1(I) - PS2(I) | 15 BD1(I) = SBI(I) - SBF(I) | C | C ABSORPTION CORRECTION C | 1 12/01/64 PAGE 3 | PROG1 - EFN SOURCE STATEMENT - IFN(S) - | 0C CALCULATE THE STANDARD F(CHI) FOR EACH ELEMENT | C DO 151 I = 1,NC | CSC(I) = COS(THETA/57.2958) / SIN(PSI(I)/57.2958) 228 230 | CHI = ABC(I,I) * CSC(I) | H = 1.2 * ATWT(I) / (ATNO(I)**2) | FSTD(I) = 1.0/((1.0+CHI/SIGMA) * (1.0+H*(1.0+CHI/SIGMA))) 151 CONTINUE | C | C COMPOUND STANDARD | C | DO 23 I = 1,NC NCTCD = CTCD(I) | IF (NCTCD) 23,23,16 | 16 READ (5,17) NELT,NPOST,NSFCD,(SATNO(J),SATWT(J),SABS(J),SCON(J), | 1 J = 1,NELT) 247 | 17 FORMAT (3I5/(4F10.4)) WRITE (6,171) 258 | 171 FORMAT (1H0,10X,18H COMPOUND STANDARD //) | WRITE (6,172) NELT,NPOST,NSFCD,(SATNO(J),SATWT(J),SABS(J),SCON(J), | 1 J = 1,NELT) 259 | 172 FORMAT (11X,18H NO. OF ELEMENTS = I3,10X,32H POSITION OF STANDARD 1 ELEMENT = I3 //11X,59H CODE FOR COMPOUND STANDARD WITH FLUORESCE | 2NCE CORRECTION = I3 //(4F20.5)) | ATNS = 0.0 | ATWS = 0.0 | SSABS = 0.0 DO 18 K = 1,NELT | ATNS = ATNS + SATNO(K)*SCON(K) | ATWS = ATWS + SATWT(K)*SCON(K) | 18 SSABS = SSABS + SABS(K)*SCON(K) | H = 1.2*ATWS/(ATNS**2) CHIS = SSABS*CSC(I) | FSAM = 1.0/((1.0+CHIS/SIGMA) * (1.0+H*(1.0+CHIS/SIGMA))) | C | C FLUORESCENCE CORRECTION,COMPOUND STANDARD | C IF (NSFCD) 21,21,19 | 19 READ (5,8) (SVO(J),J=1,NELT) 279 | WRITE (6,191) (SVO(J),J=1,NELT) 284 | 191 FORMAT (1H0,10X,39H EXCITATION ENERGY OF STANDARD ELEMENTS // | 1 4F20.5) WRITE (6,192) 289 | 192 FORMAT (1H0,10X,41H EXCITATION EFFICIENCY, COMPOUND STANDARD //) | DO 194 J = 1,NELT | READ (5,8) (EXC(J,K),K=1,NELT) 291 | WRITE (6,6) (EXC(J,K),K=1,NELT) 296 194 CONTINUE | RATIO = 0.0 | DO 20 J = 1,NELT | DO 20 K = 1,NELT | RATIO = RATIO + 0.6*EXC(J,K)*SCON(K)*(SABS(K) /SSABS)*(V-SVO(K)) 1 **1.65/(V-SVO(J))**1.65 310 311 | 20 CONTINUE | STDCO = SCON(NPOST)*FSAM*(1.0+RATIO)/FSTD(I) | GO TO 22 | 1 12/01/64 PAGE 4 PROG1 - EFN SOURCE STATEMENT - IFN(S) - | 0 21 STDCO = SCON(NPOST)*FSAM/FSTD(I) | 22 PS1(I) = PS1(I) / STDCO | PS2(I) = PS2(I) / STDCO | PD1(I) = PS1(I) - PS2(I) 23 CONTINUE | N = 0 | ANC = NC | ANS = NS | 25 N = N + 1 AN = N | NITN = 0 | KK = 0 | SRINT = 0.0 | C C RELATIVE INTENSITY CALCULATION | C | DO 26 I = 1,NC | AI = I | FAC = (AN+ANC-AI) / (ANC+ANS) RINT(I) = (SINT(N,I)-SBI(I)+BD1(I)*FAC)/(PS1(I)-PD1(I)*FAC) | IF (RINT(I)) 26,26,255 | 255 SRINT = SRINT + RINT(I) | 26 CONTINUE | DO 31 I = 1,NC IF (RINT(I)) 29,29,31 | 29 RINT(I) = 1.0 - SRINT | KK = I | DO 30 J = 1,NC | 30 CONC(J) = RINT(J) GO TO 34 | 31 CONTINUE | 32 FACT = 1.0 / SRINT | DO 33 I = 1,NC | CONC(I) = RINT(I) * FACT 33 CONTINUE | C | C BACKGROUND DEPENDENT ON COMPOSITION | C | 34 IF (NBKCD) 43,43,39 39 DO 41 I = 1,NC | SB3(I) = 0.0 | SB4(I) = 0.0 | DO 40 J = 1,NC | SB3(I) = SB3(I) + CONC(J)*BK1(J,I) 40 SB4(I) = SB4(I) + CONC(J)*BK2(J,I) | BD2(I) = SB3(I) - SB4(I) | AI = I | FAC = (AN+ANC-AI) / (ANC+ANS) | 41 RINT(I) = (SINT(N,I)-SB3(I)+BD2(I)*FAC)/(PS1(I)-PD1(I)*FAC) DO 422 I = 1,NC | IF (RINT(I)) 42,42,422 | 42 SR = 0.0 | KK = I | DO 421 J = 1,NC IF (KK - J) 420,421,420 | 420 SR = SR + RINT(J) | 1 12/01/64 PAGE 5 | PROG1 - EFN SOURCE STATEMENT - IFN(S) - | 0 421 CONTINUE RINT(I) = 1.0 - SR | 422 CONTINUE | 43 NITN = NITN + 1 | C | C CALCULATE FI(CHI) FOR EACH ELEMENT IN THE SPECIMEN C | DO 44 J = 1,NC | ABSAM(J) = 0.0 | DO 44 K = 1,NC | ABSAM(J) = ABSAM(J) + CONC(K) * ABC(K,J) 44 CONTINUE | ATNS = 0.0 | ATWS = 0.0 | DO 45 K = 1,NC | ATNS = ATNS + ATNO(K) * CONC(K) 45 ATWS = ATWS + ATWT(K) * CONC(K) | H = 1.2 * ATWS / (ATNS**2) | DO 51 I = 1,NC | CHIS = ABSAM(I) * CSC(I) | FSAM = 1.0/((1.0+CHIS/SIGMA) * (1.0+H*(1.0+CHIS/SIGMA))) C | C WEIGHT FRACTIONS (ABSORPTION CORRECTION ONLY) | C | CON1(I) = RINT(I) * FSTD(I) / FSAM | IF (NFLCD) 51,51,48 48 RATIO = 0.0 | DO 49 J = 1,NC | 49 RATIO = RATIO + 0.6*EAB(I,J)*CONC(J)*(ABC(I,J)/ABSAM(J))*(V-VO(J)) | 1 **1.65 / (V-VO(I))**1.65 | C C WEIGHT FRACTIONS (ABSORPTION AND FLUORESCENCE CORRECTIONS) | C 475 476 | CON2(I) = RINT(I) * FSTD(I) / ((1.0+RATIO) * FSAM) | 51 CONTINUE | SUMC1 = 0.0 SUMC2 = 0.0 | DO 517 I = 1,NC | IF (KK - I) 516,513,516 | 513 SCON4 = 0.0 | SCON5 = 0.0 DO 515 J = 1,NC | IF (KK - J) 514,515,514 | 514 SCON4 = SCON4 + CON1(J) | SCON5 = SCON5 + CON2(J) | 515 CONTINUE CON1(I) = 1.0 - SCON4 | CON2(I) = 1.0 - SCON5 | 516 SUMC1 = SUMC1 + CON1(I) | SUMC2 = SUMC2 + CON2(I) | 517 CONTINUE C | C OUTPUT | C | IF (NITN - 1) 62,59,62 | 59 IF (N - 1) 593,591,593 1 12/01/64 PAGE 6 | PROG1 - EFN SOURCE STATEMENT - IFN(S) - | 0 591 WRITE (6,592) 510 | 592 FORMAT (1H1,12H OUTPUT DATA //) | 593 WRITE (6,60) N,(ATNO(I),I=1,NC) 511 60 FORMAT (1H0,5X,11H SET NUMBER I3 // 16H ATOMIC NUMBERS,28X, | 1 4H SUM,1X,4F20.1 //) | SUMRIN = 0.0 | DO 605 J = 1,NC | RELINT(J) = RINT(J) * 100.0 605 SUMRIN = SUMRIN + RELINT(J) | WRITE (6,61) SUMRIN,(RELINT(J),J=1,NC) 526 | 61 FORMAT (1H0,26H MEASURED REL. INTENSITIES,4X,5F20.5) | 62 DO 63 I = 1,NC | IF (NFLCD) 625,625,626 625 CON2(I) = CON1(I) | 626 ERROR = ABS((CON2(I)-CONC(I))*100.0/CON2(I)) | IF (ERROR - 0.1) 63,63,68 | 63 CONTINUE | 635 WRITE (6,64) SUMC1,(CON1(J),J=1,NC) 549 64 FORMAT (1H0,30H UNNORMALIZED WEIGHT FRACTIONS // 6X, | 1 17H ABSORPTION COR., 8X,5F20.5 //) | IF (NFLCD) 67,67,65 | 65 WRITE (6,66) SUMC2,(CON2(J),J=1,NC) 557 | 66 FORMAT (1H0,5X,22H ABS. AND FLUOR. CORS.,3X,5F20.5 //) 67 IF (N - NS) 25,1,1 | 68 IF (NFLCD) 685,685,686 | 685 CONC(I) = CON1(I) | GO TO 687 | 686 CONC(I) = CON2(I) 687 IF (NITN - 20) 34,71,71 | 71 WRITE (6,72) 577 | 72 FORMAT (1H0,93H***WARNING*** WEIGHT FRACTIONS DO NOT CONVERGE AFTE | 1R 20 ITERATIONS -- GO TO NEXT SET OF DATA ) | GO TO 635 END | 1 12/01/64 PAGE 7 | PROG1 STORAGE MAP | 0 MAIN PROGRAM | - DIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | ATNO 00001 R ATWT 00005 R ABC 00011 R | CSC 00031 R SPI 00035 R SBI 00041 R | PSI 00045 R SPF 00051 R SBF 00055 R | PS1 00061 R PS2 00065 R PD1 00071 R BD1 00075 R RINT 00101 R CONC 00105 R | CON1 00111 R CON2 00115 R FSTD 00121 R | SCON 00125 R SABS 00131 R SATNO 00135 R | SATWT 00141 R ABSAM 00145 R BK1 00151 R | BK2 00171 R SB3 00211 R SB4 00215 R BD2 00221 R DT 00225 R EXC 00231 R | SINT 00251 R ABSS 00561 R EAB 00565 R | RELINT 00605 R CTCD 00611 R SVO 00615 R | VO 00621 R | - UNDIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NCONT 00625 I NPROB 00626 I NC 00627 I | NS 00630 I NFLCD 00631 I NBKCD 00632 I | SIGMA 00633 R THETA 00634 R I 00635 I | J 00636 I V 00637 R CHI 00640 R H 00641 R NCTCD 00642 I NELT 00643 I | NPOST 00644 I NSFCD 00645 I ATNS 00646 R | ATWS 00647 R SSABS 00650 R CHIS 00651 R | FSAM 00652 R RATIO 00653 R STDCO 00654 R | N 00655 I ANC 00656 R ANS 00657 R AN 00660 R NITN 00661 I KK 00662 I | SRINT 00663 R AI 00664 R FAC 00665 R | FACT 00666 R SR 00667 R SUMC1 00670 R | SUMC2 00671 R SCON4 00672 R SCON5 00673 R | SUMRIN 00674 R ERROR 00675 R - ENTRY POINTS | 0 ...... SECTION 2 | - SUBROUTINES CALLED | 0 .FRDD. SECTION 3 .FWRD. SECTION 4 COS SECTION 5 | SIN SECTION 6 .XP3. SECTION 7 .UN05. SECTION 8 .FRTN. SECTION 9 .FCNV. SECTION 10 .UN06. SECTION 11 | .FFIL. SECTION 12 E.1 SECTION 13 E.2 SECTION 14 | E.3 SECTION 15 E.4 SECTION 16 CC.1 SECTION 17 | CC.2 SECTION 18 CC.3 SECTION 19 CC.4 SECTION 20 | SYSLOC SECTION 21 1 12/01/64 PAGE 8 | PROG1 STORAGE MAP | 0 EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 1 1A 01351 2 FORMAT 00724 3 FORMAT 00726 305 10A 01426 105 53A 01612 4 FORMAT 01010 | 5 FORMAT 01012 6 FORMAT 01034 7 36A 01523 | 8 FORMAT 01036 9 FORMAT 01040 10 46A 01567 | 11 FORMAT 01050 12 FORMAT 01052 121 FORMAT 01064 | 13 77A 01703 131 FORMAT 01066 132 87A 01747 1323 95A 01775 1329 128A 02130 1324 97A 02000 | 1325 FORMAT 01076 1326 111A 02040 1327 FORMAT 01123 | 1328 125A 02126 137 159A 02305 133 130A 02133 | 134 138A 02172 135 FORMAT 01133 136 152A 02262 | 14 204A 02500 138 165A 02326 139 188A 02423 1395 191A 02430 1396 202A 02474 15 219A 02517 | 151 238A 02604 23 331A 03254 16 247A 02627 | 17 FORMAT 01147 171 FORMAT 01152 172 FORMAT 01160 | 18 273A 02740 21 320A 03234 19 279A 03001 | 191 FORMAT 01213 192 FORMAT 01230 194 301A 03123 20 314A 03211 22 323A 03243 25 335A 03277 | 26 352A 03376 255 350A 03373 31 370A 03432 | 29 360A 03417 30 365A 03425 34 382A 03450 | 32 373A 03434 33 379A 03446 43 432A 03640 | 39 384A 03453 41 405A 03555 40 396A 03521 422 429A 03636 42 419A 03613 421 426A 03631 | 420 424A 03626 44 444A 03675 45 453A 03713 | 51 483A 04063 48 467A 03773 49 470A 04007 | 517 504A 04143 516 501A 04135 513 490A 04105 | 515 497A 04125 514 494A 04117 62 533A 04236 59 508A 04150 593 511A 04161 591 510A 04153 | 592 FORMAT 01242 60 FORMAT 01247 605 523A 04211 | 61 FORMAT 01266 63 546A 04270 625 538A 04251 | 626 541A 04253 68 566A 04342 635 549A 04272 | 64 FORMAT 01276 67 564A 04335 65 557A 04315 66 FORMAT 01317 685 568A 04345 686 572A 04351 | 687 575A 04354 71 577A 04360 72 FORMAT 01327 | | 1 12/01/64 PAGE 9 | PROG1 ASSEMBLY LISTING 0| 0$IBLDR PROG1 12/01/64 PROG0000 | 0$TEXT PROG1 12/01/64 PROG0001 | 00000 002000002000 10011 TRA ...... | 00676 100000000676 00001 ORG 446 00676 000000000001 10000 C.0 OCT 000000000001 | 00677 000000000000 10000 C.1 OCT 000000000000 | 00700 000000000000 10000 C.2 OCT 000000000000 | 00701 000000000001 10000 C.3 OCT 000000000001 | 00702 201400000000 10000 C.4 OCT 201400000000 00703 224750220000 10000 C.5 OCT 224750220000 | 00704 000006200000 10000 C.6 OCT 000006200000 | 00705 206712273462 10000 C.7 OCT 206712273462 | 00706 201463146315 10000 C.8 OCT 201463146315 | 00707 000000000002 10000 C.9 OCT 000000000002 00710 200463146315 10000 C.10 OCT 200463146315 | 00711 201646314632 10000 C.11 OCT 201646314632 | 00712 000000000000 10000 C.12 OCT 000000000000 | 00713 000000400000 10000 C.13 OCT 000000400000 | 00714 207620000000 10000 C.14 OCT 207620000000 00715 175631463146 10000 C.15 OCT 175631463146 | 00716 000000000024 10000 C.16 OCT 000000000024 | 00717 000000000000 10000 RD. OCT 000000000000 | 00720 000000000000 10000 OCT 000000000000 | 00721 200000000003 00001 N. BSS 3 00724 740631057302 10000 2. BCI 1,(6I5,2 | 00725 260100330334 10000 BCI 1,F10.3) | 00726 740130017301 10000 3. BCI 1,(1H1,1 | 00727 063060475146 10000 BCI 1,6H PRO | 00730 224325446045 10000 BCI 1,BLEM N 00731 644422255160 10000 BCI 1,UMBER | 00732 310660616160 10000 BCI 1,I6 // | 00733 056773010230 10000 BCI 1,5X,12H | 00734 603145476463 10000 BCI 1, INPUT | 00735 602421632160 10000 BCI 1, DATA 00736 606161600100 10000 BCI 1, // 10 | 00737 677360606060 10000 BCI 1,X, | 00740 606060606060 10000 BCI 1, | 00741 020030604546 10000 BCI 1,20H NO | 00742 336046266023 10000 BCI 1,. OF C 00743 464447464525 10000 BCI 1,OMPONE | 00744 456362601360 10000 BCI 1,NTS = | 00745 310373010067 10000 BCI 1,I3,10X | 00746 730202306045 10000 BCI 1,,22H N | 00747 463360462660 10000 BCI 1,O. OF 00750 462262255165 10000 BCI 1,OBSERV | 00751 216331464562 10000 BCI 1,ATIONS | 00752 601360606060 10000 BCI 1, = | 00753 606060606060 10000 BCI 1, | 00754 310373010067 10000 BCI 1,I3,10X 00755 730111306026 10000 BCI 1,,19H F | 00756 436446512562 10000 BCI 1,LUORES | 00757 232545636023 10000 BCI 1,CENT C | 00760 462425601360 10000 BCI 1,ODE = | 1 12/01/64 PAGE 10 PROG1 ASSEMBLY LISTING | 0 00761 310360606161 10000 BCI 1,I3 // | 00762 600100677360 10000 BCI 1, 10X, | 00763 606060606060 10000 BCI 1, | 00764 606060606060 10000 BCI 1, 00765 606060606060 10000 BCI 1, | 00766 606060606060 10000 BCI 1, | 00767 011030602221 10000 BCI 1,18H BA | 00770 234227514664 10000 BCI 1,CKGROU | 00771 452460234624 10000 BCI 1,ND COD 00772 256013606031 10000 BCI 1,E = I | 00773 037301026773 10000 BCI 1,3,12X, | 00774 020130604325 10000 BCI 1,21H LE | 00775 452151246023 10000 BCI 1,NARD C | 00776 462526263123 10000 BCI 1,OEFFIC 00777 312545636013 10000 BCI 1,IENT = | 01000 606060606060 10000 BCI 1, | 01001 606060606060 10000 BCI 1, | 01002 260733016061 10000 BCI 1,F7.1 / | 01003 616001006773 10000 BCI 1,/ 10X, 01004 103060633025 10000 BCI 1,8H THE | 01005 632160136026 10000 BCI 1,TA = F | 01006 063302606061 10000 BCI 1,6.2 / | 01007 613460606060 10000 BCI 1,/) | 01010 740526010033 10000 4. BCI 1,(5F10. 01011 043460606060 10000 BCI 1,4) | 01012 740130007301 10000 5. BCI 1,(1H0,1 | 01013 006773113060 10000 BCI 1,0X,9H | 01014 216333604546 10000 BCI 1,AT. NO | 01015 336073010167 10000 BCI 1,. ,11X 01016 731130602163 10000 BCI 1,,9H AT | 01017 336066633360 10000 BCI 1,. WT. | 01020 731067730105 10000 BCI 1,,8X,15 | 01021 306023464447 10000 BCI 1,H COMP | 01022 336062633360 10000 BCI 1,. ST. 01023 234624257360 10000 BCI 1,CODE, | 01024 606060106773 10000 BCI 1, 8X, | 01025 010130602425 10000 BCI 1,11H DE | 01026 212460633144 10000 BCI 1,AD TIM | 01027 256073601067 10000 BCI 1,E , 8X 01030 730101306063 10000 BCI 1,,11H T | 01031 334633602145 10000 BCI 1,.O. AN | 01032 274325606061 10000 BCI 1,GLE / | 01033 613460606060 10000 BCI 1,/) | 01034 740526020033 10000 6. BCI 1,(5F20. 01035 053460606060 10000 BCI 1,5) | 01036 740726010033 10000 8. BCI 1,(7F10. | 01037 033460606060 10000 BCI 1,3) | 01040 740130007301 10000 9. BCI 1,(1H0,1 | 01041 006773030030 10000 BCI 1,0X,30H 01042 604421626260 10000 BCI 1, MASS | 01043 212262465147 10000 BCI 1,ABSORP | 01044 633146456023 10000 BCI 1,TION C | 01045 462526263123 10000 BCI 1,OEFFIC | 01046 312545636260 10000 BCI 1,IENTS 01047 606161346060 10000 BCI 1, //) | 01050 740426010033 10000 11. BCI 1,(4F10. | 1 12/01/64 PAGE 11 | PROG1 ASSEMBLY LISTING | 0 01051 033460606060 10000 BCI 1,3) 01052 740130007301 10000 12. BCI 1,(1H0,1 | 01053 006773040130 10000 BCI 1,0X,41H | 01054 606263214524 10000 BCI 1, STAND | 01055 215124603145 10000 BCI 1,ARD IN | 01056 632545623163 10000 BCI 1,TENSIT 01057 312562736031 10000 BCI 1,IES, I | 01060 453163312143 10000 BCI 1,NITIAL | 01061 602145246026 10000 BCI 1, AND F | 01062 314521436060 10000 BCI 1,INAL | 01063 616134606060 10000 BCI 1,//) 01064 740426020033 10000 121. BCI 1,(4F20. | 01065 053460606060 10000 BCI 1,5) | 01066 740130007301 10000 131. BCI 1,(1H0,1 | 01067 006773021130 10000 BCI 1,0X,29H | 01070 606225636260 10000 BCI 1, SETS 01071 462660624725 10000 BCI 1,OF SPE | 01072 233144254560 10000 BCI 1,CIMEN | 01073 314563254562 10000 BCI 1,INTENS | 01074 316331256260 10000 BCI 1,ITIES | 01075 606161346060 10000 BCI 1, //) 01076 740130007301 10000 1325. BCI 1,(1H0,1 | 01077 006773031130 10000 BCI 1,0X,39H | 01100 603145233124 10000 BCI 1, INCID | 01101 254563602543 10000 BCI 1,ENT EL | 01102 252363514645 10000 BCI 1,ECTRON 01103 602225214460 10000 BCI 1, BEAM | 01104 654643632127 10000 BCI 1,VOLTAG | 01105 256031456042 10000 BCI 1,E IN K | 01106 656013602606 10000 BCI 1,V = F6 | 01107 330273606060 10000 BCI 1,.2, 01110 606060606060 10000 BCI 1, | 01111 606161600101 10000 BCI 1, // 11 | 01112 677303063060 10000 BCI 1,X,36H | 01113 235131633123 10000 BCI 1,CRITIC | 01114 214360256723 10000 BCI 1,AL EXC 01115 316321633146 10000 BCI 1,ITATIO | 01116 456047466325 10000 BCI 1,N POTE | 01117 456331214360 10000 BCI 1,NTIAL | 01120 314560426560 10000 BCI 1,IN KV | 01121 616160042602 10000 BCI 1,// 4F2 01122 003305346060 10000 BCI 1,0.5) | 01123 740130007301 10000 1327. BCI 1,(1H0,1 | 01124 006773020730 10000 BCI 1,0X,27H | 01125 602567233163 10000 BCI 1, EXCIT | 01126 216331464560 10000 BCI 1,ATION 01127 252626312331 10000 BCI 1,EFFICI | 01130 254523706025 10000 BCI 1,ENCY E | 01131 212260606161 10000 BCI 1,AB // | 01132 346060606060 10000 BCI 1,) | 01133 740130007301 10000 135. BCI 1,(1H0,1 01134 006773040730 10000 BCI 1,0X,47H | 01135 602221234227 10000 BCI 1, BACKG | 01136 514664452460 10000 BCI 1,ROUND | 01137 314563254562 10000 BCI 1,INTENS | 01140 316331256260 10000 BCI 1,ITIES 1 12/01/64 PAGE 12 | PROG1 ASSEMBLY LISTING | 0 01141 242547254524 10000 BCI 1,DEPEND | 01142 252460464560 10000 BCI 1,ED ON | 01143 234644474662 10000 BCI 1,COMPOS 01144 316331464560 10000 BCI 1,ITION | 01145 606060606060 10000 BCI 1, | 01146 606161346060 10000 BCI 1, //) | 01147 740331056174 10000 17. BCI 1,(3I5/( | 01150 042601003304 10000 BCI 1,4F10.4 01151 343460606060 10000 BCI 1,)) | 01152 740130007301 10000 171. BCI 1,(1H0,1 | 01153 006773011030 10000 BCI 1,0X,18H | 01154 602346444746 10000 BCI 1, COMPO | 01155 644524606263 10000 BCI 1,UND ST 01156 214524215124 10000 BCI 1,ANDARD | 01157 606061613460 10000 BCI 1, //) | 01160 740101677301 10000 172. BCI 1,(11X,1 | 01161 103060454633 10000 BCI 1,8H NO. | 01162 604626602543 10000 BCI 1, OF EL 01163 254425456362 10000 BCI 1,EMENTS | 01164 601360603103 10000 BCI 1, = I3 | 01165 730100677303 10000 BCI 1,,10X,3 | 01166 023060474662 10000 BCI 1,2H POS | 01167 316331464560 10000 BCI 1,ITION 01170 462660626321 10000 BCI 1,OF STA | 01171 452421512460 10000 BCI 1,NDARD | 01172 254325442545 10000 BCI 1,ELEMEN | 01173 636013606031 10000 BCI 1,T = I | 01174 036061610101 10000 BCI 1,3 //11 01175 677305113060 10000 BCI 1,X,59H | 01176 234624256026 10000 BCI 1,CODE F | 01177 465160234644 10000 BCI 1,OR COM | 01200 474664452460 10000 BCI 1,POUND | 01201 626321452421 10000 BCI 1,STANDA 01202 512460663163 10000 BCI 1,RD WIT | 01203 306026436446 10000 BCI 1,H FLUO | 01204 512562232545 10000 BCI 1,RESCEN | 01205 232560234651 10000 BCI 1,CE COR | 01206 512523633146 10000 BCI 1,RECTIO 01207 456013606031 10000 BCI 1,N = I | 01210 036061617404 10000 BCI 1,3 //(4 | 01211 260200330534 10000 BCI 1,F20.5) | 01212 346060606060 10000 BCI 1,) | 01213 740130007301 10000 191. BCI 1,(1H0,1 01214 006773031130 10000 BCI 1,0X,39H | 01215 602567233163 10000 BCI 1, EXCIT | 01216 216331464560 10000 BCI 1,ATION | 01217 254525512770 10000 BCI 1,ENERGY | 01220 604626606263 10000 BCI 1, OF ST 01221 214524215124 10000 BCI 1,ANDARD | 01222 602543254425 10000 BCI 1, ELEME | 01223 456362606161 10000 BCI 1,NTS // | 01224 606060606060 10000 BCI 1, | 01225 606060606060 10000 BCI 1, 01226 600426020033 10000 BCI 1, 4F20. | 01227 053460606060 10000 BCI 1,5) | 01230 740130007301 10000 192. BCI 1,(1H0,1 | 1 12/01/64 PAGE 13 | PROG1 ASSEMBLY LISTING 0 01231 006773040130 10000 BCI 1,0X,41H | 01232 602567233163 10000 BCI 1, EXCIT | 01233 216331464560 10000 BCI 1,ATION | 01234 252626312331 10000 BCI 1,EFFICI | 01235 254523707360 10000 BCI 1,ENCY, 01236 234644474664 10000 BCI 1,COMPOU | 01237 452460626321 10000 BCI 1,ND STA | 01240 452421512460 10000 BCI 1,NDARD | 01241 606161346060 10000 BCI 1, //) | 01242 740130017301 10000 592. BCI 1,(1H1,1 01243 023060466463 10000 BCI 1,2H OUT | 01244 476463602421 10000 BCI 1,PUT DA | 01245 632160606161 10000 BCI 1,TA // | 01246 346060606060 10000 BCI 1,) | 01247 740130007305 10000 60. BCI 1,(1H0,5 01250 677301013060 10000 BCI 1,X,11H | 01251 622563604564 10000 BCI 1,SET NU | 01252 442225516060 10000 BCI 1,MBER | 01253 603103606161 10000 BCI 1, I3 // | 01254 600106306060 10000 BCI 1, 16H 01255 216346443123 10000 BCI 1,ATOMIC | 01256 604564442225 10000 BCI 1, NUMBE | 01257 516273021067 10000 BCI 1,RS,28X | 01260 736060606060 10000 BCI 1,, | 01261 606060606060 10000 BCI 1, 01262 600430606264 10000 BCI 1, 4H SU | 01263 447301677304 10000 BCI 1,M,1X,4 | 01264 260200330160 10000 BCI 1,F20.1 | 01265 606161346060 10000 BCI 1, //) | 01266 740130007302 10000 61. BCI 1,(1H0,2 01267 063060442521 10000 BCI 1,6H MEA | 01270 626451252460 10000 BCI 1,SURED | 01271 512543336031 10000 BCI 1,REL. I | 01272 456325456231 10000 BCI 1,NTENSI | 01273 633125627304 10000 BCI 1,TIES,4 01274 677305260200 10000 BCI 1,X,5F20 | 01275 330534606060 10000 BCI 1,.5) | 01276 740130007303 10000 64. BCI 1,(1H0,3 | 01277 003060644545 10000 BCI 1,0H UNN | 01300 465144214331 10000 BCI 1,ORMALI 01301 712524606625 10000 BCI 1,ZED WE | 01302 312730636026 10000 BCI 1,IGHT F | 01303 512123633146 10000 BCI 1,RACTIO | 01304 456260606161 10000 BCI 1,NS // | 01305 600667736060 10000 BCI 1, 6X, 01306 606060606060 10000 BCI 1, | 01307 606060606060 10000 BCI 1, | 01310 606060606060 10000 BCI 1, | 01311 010730606021 10000 BCI 1,17H A | 01312 226246514763 10000 BCI 1,BSORPT 01313 314645602346 10000 BCI 1,ION CO | 01314 513373601067 10000 BCI 1,R., 8X | 01315 730526020033 10000 BCI 1,,5F20. | 01316 056060616134 10000 BCI 1,5 //) | 01317 740130007305 10000 66. BCI 1,(1H0,5 01320 677302023060 10000 BCI 1,X,22H | 1 12/01/64 PAGE 14 | PROG1 ASSEMBLY LISTING | 0 01321 212262336021 10000 BCI 1,ABS. A | 01322 452460264364 10000 BCI 1,ND FLU 01323 465133602346 10000 BCI 1,OR. CO | 01324 516233730367 10000 BCI 1,RS.,3X | 01325 730526020033 10000 BCI 1,,5F20. | 01326 056060616134 10000 BCI 1,5 //) | 01327 740130007311 10000 72. BCI 1,(1H0,9 01330 033054545466 10000 BCI 1,3H***W | 01331 215145314527 10000 BCI 1,ARNING | 01332 545454606625 10000 BCI 1,*** WE | 01333 312730636026 10000 BCI 1,IGHT F | 01334 512123633146 10000 BCI 1,RACTIO 01335 456260244660 10000 BCI 1,NS DO | 01336 454663602346 10000 BCI 1,NOT CO | 01337 456525512725 10000 BCI 1,NVERGE | 01340 602126632551 10000 BCI 1, AFTER | 01341 600200603163 10000 BCI 1, 20 IT 01342 255121633146 10000 BCI 1,ERATIO | 01343 456260404060 10000 BCI 1,NS -- | 01344 274660634660 10000 BCI 1,GO TO | 01345 452567636062 10000 BCI 1,NEXT S | 01346 256360462660 10000 BCI 1,ET OF 01347 242163216060 10000 BCI 1,DATA | 01350 346060606060 10000 BCI 1,) | 01351 007400403000 10011 1A TSX .FRDD.,4 | 01352 100002001356 10001 TXI *+4,,2 | 01353 004367000001 10100 PZE 1,,LK.DR 01354 000000010000 10011 PZE .UN05. | 01355 000000000724 10001 PZE 2. | 01356 007400412000 10011 TSX .FCNV.,4 | 01357 060100000625 10001 STO NCONT | 01360 007400412000 10011 2A TSX .FCNV.,4 01361 060100000626 10001 STO NPROB | 01362 007400412000 10011 3A TSX .FCNV.,4 | 01363 060100000627 10001 STO NC | 01364 007400412000 10011 4A TSX .FCNV.,4 | 01365 060100000630 10001 STO NS 01366 007400412000 10011 5A TSX .FCNV.,4 | 01367 060100000631 10001 STO NFLCD | 01370 007400412000 10011 6A TSX .FCNV.,4 | 01371 060100000632 10001 STO NBKCD | 01372 007400412000 10011 7A TSX .FCNV.,4 01373 060100000633 10001 STO SIGMA | 01374 007400412000 10011 TSX .FCNV.,4 | 01375 060100000634 10001 STO THETA | 01376 007400411000 10011 TSX .FRTN.,4 | 01377 007400404000 10011 8A TSX .FWRD.,4 01400 100002001404 10001 TXI *+4,,2 | 01401 004367000010 10100 PZE 8,,LK.DR | 01402 000000013000 10011 PZE .UN06. | 01403 000000000726 10001 PZE 3. | 01404 050000000626 10001 CLA NPROB 01405 007400412000 10011 TSX .FCNV.,4 | 01406 050000000627 10001 CLA NC | 01407 007400412000 10011 TSX .FCNV.,4 | 01410 050000000630 10001 CLA NS | 1 12/01/64 PAGE 15 PROG1 ASSEMBLY LISTING | 0 01411 007400412000 10011 TSX .FCNV.,4 | 01412 050000000631 10001 CLA NFLCD | 01413 007400412000 10011 TSX .FCNV.,4 | 01414 050000000632 10001 CLA NBKCD 01415 007400412000 10011 TSX .FCNV.,4 | 01416 050000000633 10001 CLA SIGMA | 01417 007400412000 10011 TSX .FCNV.,4 | 01420 050000000634 10001 CLA THETA | 01421 007400412000 10011 TSX .FCNV.,4 01422 007400414000 10011 TSX .FFIL.,4 | 01423 050000000625 10001 CLA NCONT | 01424 010000001426 10001 9A TZE 10A | 01425 012000001612 10001 TPL 53A | 01426 007400403000 10011 10A TSX .FRDD.,4 01427 100002001433 10001 TXI *+4,,2 | 01430 004367000012 10100 PZE 10,,LK.DR | 01431 000000010000 10011 PZE .UN05. | 01432 000000001010 10001 PZE 4. | 01433 11A NULL 01433 053500400627 10001 12A LAC NC,4 | 01434 177777401435 10001 TXI *+1,4,-1 | 01435 463400401452 10001 SXD 19A+1,4 | 01436 477400100001 10000 13A AXC 1,1 | 01437 007400412000 10011 TSX .FCNV.,4 01440 060100100000 10011 14A STO ATNO-1,1 | 100001700001 10001 | 01441 007400412000 10011 TSX .FCNV.,4 | 01442 060100100004 10001 15A STO ATWT-1,1 | 01443 007400412000 10011 TSX .FCNV.,4 01444 060100100610 10001 16A STO CTCD-1,1 | 01445 007400412000 10011 TSX .FCNV.,4 | 01446 060100100224 10001 17A STO DT-1,1 | 01447 007400412000 10011 TSX .FCNV.,4 | 01450 060100100044 10001 18A STO PSI-1,1 01451 177777101452 10001 19A TXI *+1,1,-1 | 01452 300000101437 10001 TXH 13A+1,1,** | 01453 007400411000 10011 20A TSX .FRTN.,4 | 01454 007400404000 10011 21A TSX .FWRD.,4 | 01455 100002001461 10001 TXI *+4,,2 01456 004367000025 10100 PZE 21,,LK.DR | 01457 000000013000 10011 PZE .UN06. | 01460 000000001012 10001 PZE 5. | 01461 007400414000 10011 TSX .FFIL.,4 | 01462 007400404000 10011 22A TSX .FWRD.,4 01463 100002001467 10001 TXI *+4,,2 | 01464 004367000026 10100 PZE 22,,LK.DR | 01465 000000013000 10011 PZE .UN06. | 01466 000000001034 10001 PZE 6. | 01467 23A NULL 01467 053500400627 10001 24A LAC NC,4 | 01470 177777401471 10001 TXI *+1,4,-1 | 01471 463400401506 10001 SXD 31A+1,4 | 01472 477400100001 10000 25A AXC 1,1 | 01473 050000100000 10011 26A CLA ATNO-1,1 100001700001 10001 | 01474 007400412000 10011 TSX .FCNV.,4 | 1 12/01/64 PAGE 16 | PROG1 ASSEMBLY LISTING | 0 01475 050000100004 10001 27A CLA ATWT-1,1 01476 007400412000 10011 TSX .FCNV.,4 | 01477 050000100610 10001 28A CLA CTCD-1,1 | 01500 007400412000 10011 TSX .FCNV.,4 | 01501 050000100224 10001 29A CLA DT-1,1 | 01502 007400412000 10011 TSX .FCNV.,4 01503 050000100044 10001 30A CLA PSI-1,1 | 01504 007400412000 10011 TSX .FCNV.,4 | 01505 177777101506 10001 31A TXI *+1,1,-1 | 01506 300000101473 10001 TXH 25A+1,1,** | 01507 007400414000 10011 32A TSX .FFIL.,4 01510 33A NULL | 01510 053500400627 10001 34A LAC NC,4 | 01511 177777401512 10001 TXI *+1,4,-1 | 01512 463400401545 10001 SXD 41A+1,4 | 01513 053500400627 10001 LAC NC,4 01514 177777401515 10001 TXI *+1,4,-1 | 01515 463400401541 10001 SXD 40A+2,4 | 01516 477400100001 10000 35A AXC 1,1 | 01517 060000000635 10001 STZ I | 01520 063400101521 10001 SXA *+1,1 01521 477400400000 10000 AXC **,4 | 01522 063400400635 10001 SXA I,4 | 01523 007400403000 10011 36A TSX .FRDD.,4 | 01524 100002001530 10001 TXI *+4,,2 | 01525 004367000044 10100 PZE 36,,LK.DR 01526 000000010000 10011 PZE .UN05. | 01527 000000001036 10001 PZE 8. | 01530 053400400635 10001 37A LXA I,4 | 01531 100004401532 10101 TXI *+1,4,ABC-5 | 01532 063400401536 10001 SXA 39A,4 01533 477400200001 10000 38A AXC 1,2 | 01534 477400100004 10000 AXC 4,1 | 01535 007400412000 10011 TSX .FCNV.,4 | 01536 060100100000 10000 39A STO **,1 | 01537 177777201540 10001 40A TXI *+1,2,-1 01540 177774101541 10001 TXI *+1,1,-4 | 01541 300000201535 10001 TXH 38A+2,2,** | 01542 053500100635 10001 LAC I,1 | 01543 007400411000 10011 TSX .FRTN.,4 | 01544 177777101545 10001 41A TXI *+1,1,-1 01545 300000101520 10001 TXH 35A+2,1,** | 01546 007400404000 10011 42A TSX .FWRD.,4 | 01547 100002001553 10001 TXI *+4,,2 | 01550 004367000052 10100 PZE 42,,LK.DR | 01551 000000013000 10011 PZE .UN06. 01552 000000001040 10001 PZE 9. | 01553 007400414000 10011 TSX .FFIL.,4 | 01554 43A NULL | 01554 053500400627 10001 44A LAC NC,4 | 01555 177777401556 10001 TXI *+1,4,-1 01556 463400401611 10001 SXD 51A+1,4 | 01557 053500400627 10001 LAC NC,4 | 01560 177777401561 10001 TXI *+1,4,-1 | 01561 463400401605 10001 SXD 50A+2,4 | 01562 477400100001 10000 45A AXC 1,1 1 12/01/64 PAGE 17 | PROG1 ASSEMBLY LISTING | 0 01563 060000000635 10001 STZ I | 01564 063400101565 10001 SXA *+1,1 | 01565 477400400000 10000 AXC **,4 01566 063400400635 10001 SXA I,4 | 01567 007400404000 10011 46A TSX .FWRD.,4 | 01570 100002001574 10001 TXI *+4,,2 | 01571 004367000056 10100 PZE 46,,LK.DR | 01572 000000013000 10011 PZE .UN06. 01573 000000001034 10001 PZE 6. | 01574 053400400635 10001 47A LXA I,4 | 01575 100004401576 10101 TXI *+1,4,ABC-5 | 01576 063400401601 10001 SXA 49A,4 | 01577 477400200001 10000 48A AXC 1,2 01600 477400100004 10000 AXC 4,1 | 01601 050000100000 10000 49A CLA **,1 | 01602 007400412000 10011 TSX .FCNV.,4 | 01603 177777201604 10001 50A TXI *+1,2,-1 | 01604 177774101605 10001 TXI *+1,1,-4 01605 300000201601 10001 TXH 48A+2,2,** | 01606 053500100635 10001 LAC I,1 | 01607 007400414000 10011 TSX .FFIL.,4 | 01610 177777101611 10001 51A TXI *+1,1,-1 | 01611 300000101564 10001 TXH 45A+2,1,** 01612 52A NULL | 01612 007400403000 10011 53A TSX .FRDD.,4 | 01613 100002001617 10001 TXI *+4,,2 | 01614 004367000065 10100 PZE 53,,LK.DR | 01615 000000010000 10011 PZE .UN05. 01616 000000001050 10001 PZE 11. | 01617 54A NULL | 01617 053500400627 10001 55A LAC NC,4 | 01620 177777401621 10001 TXI *+1,4,-1 | 01621 463400401634 10001 SXD 61A+1,4 01622 477400100001 10000 56A AXC 1,1 | 01623 007400412000 10011 TSX .FCNV.,4 | 01624 060100100034 10001 57A STO SPI-1,1 | 01625 007400412000 10011 TSX .FCNV.,4 | 01626 060100100040 10001 58A STO SBI-1,1 01627 007400412000 10011 TSX .FCNV.,4 | 01630 060100100050 10001 59A STO SPF-1,1 | 01631 007400412000 10011 TSX .FCNV.,4 | 01632 060100100054 10001 60A STO SBF-1,1 | 01633 177777101634 10001 61A TXI *+1,1,-1 01634 300000101623 10001 TXH 56A+1,1,** | 01635 007400411000 10011 62A TSX .FRTN.,4 | 01636 007400404000 10011 63A TSX .FWRD.,4 | 01637 100002001643 10001 TXI *+4,,2 | 01640 004367000077 10100 PZE 63,,LK.DR 01641 000000013000 10011 PZE .UN06. | 01642 000000001052 10001 PZE 12. | 01643 007400414000 10011 TSX .FFIL.,4 | 01644 007400404000 10011 64A TSX .FWRD.,4 | 01645 100002001651 10001 TXI *+4,,2 01646 004367000100 10100 PZE 64,,LK.DR | 01647 000000013000 10011 PZE .UN06. | 01650 000000001064 10001 PZE 121. | 1 12/01/64 PAGE 18 | PROG1 ASSEMBLY LISTING 0 01651 65A NULL | 01651 053500400627 10001 66A LAC NC,4 | 01652 177777401653 10001 TXI *+1,4,-1 | 01653 463400401666 10001 SXD 72A+1,4 | 01654 477400100001 10000 67A AXC 1,1 01655 050000100034 10001 68A CLA SPI-1,1 | 01656 007400412000 10011 TSX .FCNV.,4 | 01657 050000100040 10001 69A CLA SBI-1,1 | 01660 007400412000 10011 TSX .FCNV.,4 | 01661 050000100050 10001 70A CLA SPF-1,1 01662 007400412000 10011 TSX .FCNV.,4 | 01663 050000100054 10001 71A CLA SBF-1,1 | 01664 007400412000 10011 TSX .FCNV.,4 | 01665 177777101666 10001 72A TXI *+1,1,-1 | 01666 300000101655 10001 TXH 67A+1,1,** 01667 007400414000 10011 73A TSX .FFIL.,4 | 01670 74A NULL | 01670 053500400630 10001 75A LAC NS,4 | 01671 177777401672 10001 TXI *+1,4,-1 | 01672 463400401725 10001 SXD 82A+1,4 01673 053500400627 10001 LAC NC,4 | 01674 177777401675 10001 TXI *+1,4,-1 | 01675 463400401721 10001 SXD 81A+2,4 | 01676 477400100001 10000 76A AXC 1,1 | 01677 060000000635 10001 STZ I 01700 063400101701 10001 SXA *+1,1 | 01701 477400400000 10000 AXC **,4 | 01702 063400400635 10001 SXA I,4 | 01703 007400403000 10011 77A TSX .FRDD.,4 | 01704 100002001710 10001 TXI *+4,,2 01705 004367000115 10100 PZE 77,,LK.DR | 01706 000000010000 10011 PZE .UN05. | 01707 000000001036 10001 PZE 8. | 01710 053400400635 10001 78A LXA I,4 | 01711 100166401712 10101 TXI *+1,4,SINT-51 01712 063400401716 10001 SXA 80A,4 | 01713 477400200001 10000 79A AXC 1,2 | 01714 477400100062 10000 AXC 50,1 | 01715 007400412000 10011 TSX .FCNV.,4 | 01716 060100100000 10000 80A STO **,1 01717 177777201720 10001 81A TXI *+1,2,-1 | 01720 177716101721 10001 TXI *+1,1,-50 | 01721 300000201715 10001 TXH 79A+2,2,** | 01722 053500100635 10001 LAC I,1 | 01723 007400411000 10011 TSX .FRTN.,4 01724 177777101725 10001 82A TXI *+1,1,-1 | 01725 300000101700 10001 TXH 76A+2,1,** | 01726 007400404000 10011 83A TSX .FWRD.,4 | 01727 100002001733 10001 TXI *+4,,2 | 01730 004367000123 10100 PZE 83,,LK.DR 01731 000000013000 10011 PZE .UN06. | 01732 000000001066 10001 PZE 131. | 01733 007400414000 10011 TSX .FFIL.,4 | 01734 84A NULL | 01734 053500400630 10001 85A LAC NS,4 01735 177777401736 10001 TXI *+1,4,-1 | 1 12/01/64 PAGE 19 | PROG1 ASSEMBLY LISTING | 0 01736 463400401771 10001 SXD 92A+1,4 | 01737 053500400627 10001 LAC NC,4 01740 177777401741 10001 TXI *+1,4,-1 | 01741 463400401765 10001 SXD 91A+2,4 | 01742 477400100001 10000 86A AXC 1,1 | 01743 060000000635 10001 STZ I | 01744 063400101745 10001 SXA *+1,1 01745 477400400000 10000 AXC **,4 | 01746 063400400635 10001 SXA I,4 | 01747 007400404000 10011 87A TSX .FWRD.,4 | 01750 100002001754 10001 TXI *+4,,2 | 01751 004367000127 10100 PZE 87,,LK.DR 01752 000000013000 10011 PZE .UN06. | 01753 000000001034 10001 PZE 6. | 01754 053400400635 10001 88A LXA I,4 | 01755 100166401756 10101 TXI *+1,4,SINT-51 | 01756 063400401761 10001 SXA 90A,4 01757 477400200001 10000 89A AXC 1,2 | 01760 477400100062 10000 AXC 50,1 | 01761 050000100000 10000 90A CLA **,1 | 01762 007400412000 10011 TSX .FCNV.,4 | 01763 177777201764 10001 91A TXI *+1,2,-1 01764 177716101765 10001 TXI *+1,1,-50 | 01765 300000201761 10001 TXH 89A+2,2,** | 01766 053500100635 10001 LAC I,1 | 01767 007400414000 10011 TSX .FFIL.,4 | 01770 177777101771 10001 92A TXI *+1,1,-1 01771 300000101744 10001 TXH 86A+2,1,** | 01772 050000000625 10001 93A CLA NCONT | 01773 010000001775 10001 94A TZE 95A | 01774 012000002130 10001 TPL 128A | 01775 050000000631 10001 95A CLA NFLCD 01776 010000002130 10001 96A TZE 128A | 01777 412000002130 10001 TMI 128A | 02000 007400403000 10011 97A TSX .FRDD.,4 | 02001 100002002005 10001 TXI *+4,,2 | 02002 004367000141 10100 PZE 97,,LK.DR 02003 000000010000 10011 PZE .UN05. | 02004 000000001036 10001 PZE 8. | 02005 007400412000 10011 TSX .FCNV.,4 | 02006 060100000637 10001 STO V | 02007 98A NULL 02007 053500400627 10001 99A LAC NC,4 | 02010 177777402011 10001 TXI *+1,4,-1 | 02011 463400402016 10001 SXD 102A+1,4 | 02012 477400100001 10000 100A AXC 1,1 | 02013 007400412000 10011 TSX .FCNV.,4 02014 060100100620 10001 101A STO VO-1,1 | 02015 177777102016 10001 102A TXI *+1,1,-1 | 02016 300000102013 10001 TXH 100A+1,1,** | 02017 007400411000 10011 103A TSX .FRTN.,4 | 02020 007400404000 10011 104A TSX .FWRD.,4 02021 100002002025 10001 TXI *+4,,2 | 02022 004367000150 10100 PZE 104,,LK.DR | 02023 000000013000 10011 PZE .UN06. | 02024 000000001076 10001 PZE 1325. | 1 12/01/64 PAGE 20 PROG1 ASSEMBLY LISTING | 0 02025 050000000637 10001 CLA V | 02026 007400412000 10011 TSX .FCNV.,4 | 02027 105A NULL | 02027 053500400627 10001 106A LAC NC,4 02030 177777402031 10001 TXI *+1,4,-1 | 02031 463400402036 10001 SXD 109A+1,4 | 02032 477400100001 10000 107A AXC 1,1 | 02033 050000100620 10001 108A CLA VO-1,1 | 02034 007400412000 10011 TSX .FCNV.,4 02035 177777102036 10001 109A TXI *+1,1,-1 | 02036 300000102033 10001 TXH 107A+1,1,** | 02037 007400414000 10011 110A TSX .FFIL.,4 | 02040 007400404000 10011 111A TSX .FWRD.,4 | 02041 100002002045 10001 TXI *+4,,2 02042 004367000157 10100 PZE 111,,LK.DR | 02043 000000013000 10011 PZE .UN06. | 02044 000000001123 10001 PZE 1327. | 02045 007400414000 10011 TSX .FFIL.,4 | 02046 112A NULL 02046 053500400627 10001 113A LAC NC,4 | 02047 177777402050 10001 TXI *+1,4,-1 | 02050 463400402127 10001 SXD 126A+1,4 | 02051 053500400627 10001 LAC NC,4 | 02052 177777402053 10001 TXI *+1,4,-1 02053 463400402102 10001 SXD 118A+2,4 | 02054 053500400627 10001 LAC NC,4 | 02055 177777402056 10001 TXI *+1,4,-1 | 02056 463400402123 10001 SXD 124A+2,4 | 02057 477400100001 10000 114A AXC 1,1 02060 060000000635 10001 STZ I | 02061 063400102062 10001 SXA *+1,1 | 02062 477400400000 10000 AXC **,4 | 02063 063400400635 10001 SXA I,4 | 02064 007400403000 10011 TSX .FRDD.,4 02065 100002002071 10001 TXI *+4,,2 | 02066 004367000162 10100 PZE 114,,LK.DR | 02067 000000010000 10011 PZE .UN05. | 02070 000000001036 10001 PZE 8. | 02071 053400400635 10001 115A LXA I,4 02072 100560402073 10101 TXI *+1,4,EAB-5 | 02073 063400402077 10001 SXA 117A,4 | 02074 477400200001 10000 116A AXC 1,2 | 02075 477400100004 10000 AXC 4,1 | 02076 007400412000 10011 TSX .FCNV.,4 02077 060100100000 10000 117A STO **,1 | 02100 177777202101 10001 118A TXI *+1,2,-1 | 02101 177774102102 10001 TXI *+1,1,-4 | 02102 300000202076 10001 TXH 116A+2,2,** | 02103 053500100635 10001 LAC I,1 02104 007400411000 10011 TSX .FRTN.,4 | 02105 007400404000 10011 119A TSX .FWRD.,4 | 02106 100002002112 10001 TXI *+4,,2 | 02107 004367000167 10100 PZE 119,,LK.DR | 02110 000000013000 10011 PZE .UN06. 02111 000000001034 10001 PZE 6. | 02112 120A NULL | 1 12/01/64 PAGE 21 | PROG1 ASSEMBLY LISTING | 0 02112 053400400635 10001 121A LXA I,4 02113 100560402114 10101 TXI *+1,4,EAB-5 | 02114 063400402117 10001 SXA 123A,4 | 02115 477400200001 10000 122A AXC 1,2 | 02116 477400100004 10000 AXC 4,1 | 02117 050000100000 10000 123A CLA **,1 02120 007400412000 10011 TSX .FCNV.,4 | 02121 177777202122 10001 124A TXI *+1,2,-1 | 02122 177774102123 10001 TXI *+1,1,-4 | 02123 300000202117 10001 TXH 122A+2,2,** | 02124 053500100635 10001 LAC I,1 02125 007400414000 10011 TSX .FFIL.,4 | 02126 125A NULL | 02126 177777102127 10001 126A TXI *+1,1,-1 | 02127 300000102061 10001 TXH 114A+2,1,** | 02130 127A NULL 02130 050000000632 10001 128A CLA NBKCD | 02131 010000002305 10001 129A TZE 159A | 02132 412000002305 10001 TMI 159A | 02133 130A NULL | 02133 131A NULL 02133 053500400627 10001 132A LAC NC,4 | 02134 177777402135 10001 TXI *+1,4,-1 | 02135 463400402214 10001 SXD 143A+1,4 | 02136 053500400627 10001 LAC NC,4 | 02137 177777402140 10001 TXI *+1,4,-1 02140 463400402167 10001 SXD 137A+2,4 | 02141 053500400627 10001 LAC NC,4 | 02142 177777402143 10001 TXI *+1,4,-1 | 02143 463400402210 10001 SXD 142A+2,4 | 02144 477400100001 10000 133A AXC 1,1 02145 060000000635 10001 STZ I | 02146 063400102147 10001 SXA *+1,1 | 02147 477400400000 10000 AXC **,4 | 02150 063400400635 10001 SXA I,4 | 02151 007400403000 10011 TSX .FRDD.,4 02152 100002002156 10001 TXI *+4,,2 | 02153 004367000205 10100 PZE 133,,LK.DR | 02154 000000010000 10011 PZE .UN05. | 02155 000000001036 10001 PZE 8. | 02156 053400400635 10001 134A LXA I,4 02157 100144402160 10101 TXI *+1,4,BK1-5 | 02160 063400402164 10001 SXA 136A,4 | 02161 477400200001 10000 135A AXC 1,2 | 02162 477400100004 10000 AXC 4,1 | 02163 007400412000 10011 TSX .FCNV.,4 02164 060100100000 10000 136A STO **,1 | 02165 177777202166 10001 137A TXI *+1,2,-1 | 02166 177774102167 10001 TXI *+1,1,-4 | 02167 300000202163 10001 TXH 135A+2,2,** | 02170 053500100635 10001 LAC I,1 02171 007400411000 10011 TSX .FRTN.,4 | 02172 007400403000 10011 138A TSX .FRDD.,4 | 02173 100002002177 10001 TXI *+4,,2 | 02174 004367000212 10100 PZE 138,,LK.DR | 02175 000000010000 10011 PZE .UN05. 1 12/01/64 PAGE 22 | PROG1 ASSEMBLY LISTING | 0 02176 000000001036 10001 PZE 8. | 02177 053400400635 10001 139A LXA I,4 | 02200 100164402201 10101 TXI *+1,4,BK2-5 02201 063400402205 10001 SXA 141A,4 | 02202 477400200001 10000 140A AXC 1,2 | 02203 477400100004 10000 AXC 4,1 | 02204 007400412000 10011 TSX .FCNV.,4 | 02205 060100100000 10000 141A STO **,1 02206 177777202207 10001 142A TXI *+1,2,-1 | 02207 177774102210 10001 TXI *+1,1,-4 | 02210 300000202204 10001 TXH 140A+2,2,** | 02211 053500100635 10001 LAC I,1 | 02212 007400411000 10011 TSX .FRTN.,4 02213 177777102214 10001 143A TXI *+1,1,-1 | 02214 300000102146 10001 TXH 133A+2,1,** | 02215 007400404000 10011 144A TSX .FWRD.,4 | 02216 100002002222 10001 TXI *+4,,2 | 02217 004367000220 10100 PZE 144,,LK.DR 02220 000000013000 10011 PZE .UN06. | 02221 000000001133 10001 PZE 135. | 02222 007400414000 10011 TSX .FFIL.,4 | 02223 145A NULL | 02223 053500400627 10001 146A LAC NC,4 02224 177777402225 10001 TXI *+1,4,-1 | 02225 463400402304 10001 SXD 157A+1,4 | 02226 053500400627 10001 LAC NC,4 | 02227 177777402230 10001 TXI *+1,4,-1 | 02230 463400402257 10001 SXD 151A+2,4 02231 053500400627 10001 LAC NC,4 | 02232 177777402233 10001 TXI *+1,4,-1 | 02233 463400402300 10001 SXD 156A+2,4 | 02234 477400100001 10000 147A AXC 1,1 | 02235 060000000635 10001 STZ I 02236 063400102237 10001 SXA *+1,1 | 02237 477400400000 10000 AXC **,4 | 02240 063400400635 10001 SXA I,4 | 02241 007400404000 10011 TSX .FWRD.,4 | 02242 100002002246 10001 TXI *+4,,2 02243 004367000223 10100 PZE 147,,LK.DR | 02244 000000013000 10011 PZE .UN06. | 02245 000000001034 10001 PZE 6. | 02246 053400400635 10001 148A LXA I,4 | 02247 100144402250 10101 TXI *+1,4,BK1-5 02250 063400402253 10001 SXA 150A,4 | 02251 477400200001 10000 149A AXC 1,2 | 02252 477400100004 10000 AXC 4,1 | 02253 050000100000 10000 150A CLA **,1 | 02254 007400412000 10011 TSX .FCNV.,4 02255 177777202256 10001 151A TXI *+1,2,-1 | 02256 177774102257 10001 TXI *+1,1,-4 | 02257 300000202253 10001 TXH 149A+2,2,** | 02260 053500100635 10001 LAC I,1 | 02261 007400414000 10011 TSX .FFIL.,4 02262 007400404000 10011 152A TSX .FWRD.,4 | 02263 100002002267 10001 TXI *+4,,2 | 02264 004367000230 10100 PZE 152,,LK.DR | 1 12/01/64 PAGE 23 | PROG1 ASSEMBLY LISTING 0 02265 000000013000 10011 PZE .UN06. | 02266 000000001034 10001 PZE 6. | 02267 053400400635 10001 153A LXA I,4 | 02270 100164402271 10101 TXI *+1,4,BK2-5 | 02271 063400402274 10001 SXA 155A,4 02272 477400200001 10000 154A AXC 1,2 | 02273 477400100004 10000 AXC 4,1 | 02274 050000100000 10000 155A CLA **,1 | 02275 007400412000 10011 TSX .FCNV.,4 | 02276 177777202277 10001 156A TXI *+1,2,-1 02277 177774102300 10001 TXI *+1,1,-4 | 02300 300000202274 10001 TXH 154A+2,2,** | 02301 053500100635 10001 LAC I,1 | 02302 007400414000 10011 TSX .FFIL.,4 | 02303 177777102304 10001 157A TXI *+1,1,-1 02304 300000102236 10001 TXH 147A+2,1,** | 02305 158A NULL | 02305 159A NULL | 02305 160A NULL | 02305 053500400627 10001 161A LAC NC,4 02306 177777402307 10001 TXI *+1,4,-1 | 02307 463400402501 10001 SXD 205A+1,4 | 02310 053500400630 10001 LAC NS,4 | 02311 177777402312 10001 TXI *+1,4,-1 | 02312 463400402424 10001 SXD 189A+1,4 02313 053500400627 10001 LAC NC,4 | 02314 177777402315 10001 TXI *+1,4,-1 | 02315 463400402476 10001 SXD 203A+2,4 | 02316 477400100001 10000 162A AXC 1,1 | 02317 060000000635 10001 STZ I 02320 063400102321 10001 SXA *+1,1 | 02321 477400400000 10000 AXC **,4 | 02322 063400400635 10001 SXA I,4 | 02323 050000100224 10001 163A CLA DT-1,1 | 02324 010000002500 10001 164A TZE 204A 02325 412000002500 10001 TMI 204A | 02326 165A NULL | 02326 056000100224 10001 166A LDQ DT-1,1 | 02327 026000100034 10001 167A FMP SPI-1,1 | 02330 024100000703 10001 FDP C.5 02331 013100000000 10000 XCA | 02332 076000000002 10000 CHS | 02333 030000000702 10001 FAD C.4 | 02334 060100000721 10001 STO N. | 02335 050000100034 10001 168A CLA SPI-1,1 02336 024100000721 10001 FDP N. | 02337 460000100034 10001 169A STQ SPI-1,1 | 02340 056000100224 10001 170A LDQ DT-1,1 | 02341 026000100050 10001 171A FMP SPF-1,1 | 02342 024100000703 10001 FDP C.5 02343 013100000000 10000 XCA | 02344 076000000002 10000 CHS | 02345 030000000702 10001 FAD C.4 | 02346 060100000721 10001 STO N. | 02347 050000100050 10001 172A CLA SPF-1,1 02350 024100000721 10001 FDP N. | 1 12/01/64 PAGE 24 | PROG1 ASSEMBLY LISTING | 0 02351 460000100050 10001 173A STQ SPF-1,1 | 02352 056000100224 10001 174A LDQ DT-1,1 02353 026000100040 10001 175A FMP SBI-1,1 | 02354 024100000703 10001 FDP C.5 | 02355 013100000000 10000 XCA | 02356 076000000002 10000 CHS | 02357 030000000702 10001 FAD C.4 02360 060100000721 10001 STO N. | 02361 050000100040 10001 176A CLA SBI-1,1 | 02362 024100000721 10001 FDP N. | 02363 460000100040 10001 177A STQ SBI-1,1 | 02364 056000100224 10001 178A LDQ DT-1,1 02365 026000100054 10001 179A FMP SBF-1,1 | 02366 024100000703 10001 FDP C.5 | 02367 013100000000 10000 XCA | 02370 076000000002 10000 CHS | 02371 030000000702 10001 FAD C.4 02372 060100000721 10001 STO N. | 02373 050000100054 10001 180A CLA SBF-1,1 | 02374 024100000721 10001 FDP N. | 02375 460000100054 10001 181A STQ SBF-1,1 | 02376 056000000635 10001 182A LDQ I 02377 020417000704 10001 VLM C.6,,15 | 02400 073400400000 10000 PAX 0,4 | 02401 100166402402 10101 TXI *+1,4,SINT-51 | 02402 063400402411 10001 SXA 184A,4 | 02403 063400402420 10001 SXA 186A,4 02404 063400402422 10001 SXA 187A,4 | 02405 053400400635 10001 LXA I,4 | 02406 100224402407 10101 TXI *+1,4,DT-1 | 02407 063400402412 10001 SXA 185A,4 | 02410 477400200001 10000 183A AXC 1,2 02411 056000200000 10000 184A LDQ **,2 | 02412 026000000000 10000 185A FMP ** | 02413 024100000703 10001 FDP C.5 | 02414 013100000000 10000 XCA | 02415 076000000002 10000 CHS 02416 030000000702 10001 FAD C.4 | 02417 060100000721 10001 STO N. | 02420 050000200000 10000 186A CLA **,2 | 02421 024100000721 10001 FDP N. | 02422 460000200000 10000 187A STQ **,2 02423 188A NULL | 02423 177777202424 10001 189A TXI *+1,2,-1 | 02424 300000202411 10001 TXH 183A+1,2,** | 02425 050000000632 10001 CLA NBKCD | 02426 010000002500 10001 190A TZE 204A 02427 412000002500 10001 TMI 204A | 02430 191A NULL | 02430 053400400635 10001 192A LXA I,4 | 02431 100224402432 10101 TXI *+1,4,DT-1 | 02432 063400402451 10001 SXA 195A,4 02433 063400402463 10001 SXA 199A,4 | 02434 053400400635 10001 LXA I,4 | 02435 100164402436 10101 TXI *+1,4,BK2-5 | 02436 063400402462 10001 SXA 198A,4 | 1 12/01/64 PAGE 25 PROG1 ASSEMBLY LISTING | 0 02437 063400402471 10001 SXA 200A,4 | 02440 063400402473 10001 SXA 201A,4 | 02441 053400400635 10001 LXA I,4 | 02442 100144402443 10101 TXI *+1,4,BK1-5 02443 063400402450 10001 SXA 194A,4 | 02444 063400402457 10001 SXA 196A,4 | 02445 063400402461 10001 SXA 197A,4 | 02446 477400200001 10000 193A AXC 1,2 | 02447 477400100004 10000 AXC 4,1 02450 056000100000 10000 194A LDQ **,1 | 02451 026000000000 10000 195A FMP ** | 02452 024100000703 10001 FDP C.5 | 02453 013100000000 10000 XCA | 02454 076000000002 10000 CHS 02455 030000000702 10001 FAD C.4 | 02456 060100000721 10001 STO N. | 02457 050000100000 10000 196A CLA **,1 | 02460 024100000721 10001 FDP N. | 02461 460000100000 10000 197A STQ **,1 02462 056000100000 10000 198A LDQ **,1 | 02463 026000000000 10000 199A FMP ** | 02464 024100000703 10001 FDP C.5 | 02465 013100000000 10000 XCA | 02466 076000000002 10000 CHS 02467 030000000702 10001 FAD C.4 | 02470 060100000721 10001 STO N. | 02471 050000100000 10000 200A CLA **,1 | 02472 024100000721 10001 FDP N. | 02473 460000100000 10000 201A STQ **,1 02474 202A NULL | 02474 177777202475 10001 203A TXI *+1,2,-1 | 02475 177774102476 10001 TXI *+1,1,-4 | 02476 300000202450 10001 TXH 193A+2,2,** | 02477 053500100635 10001 LAC I,1 02500 204A NULL | 02500 177777102501 10001 205A TXI *+1,1,-1 | 02501 300000102320 10001 TXH 162A+2,1,** | 02502 206A NULL | 02502 207A NULL 02502 053500400627 10001 208A LAC NC,4 | 02503 177777402504 10001 TXI *+1,4,-1 | 02504 463400402523 10001 SXD 223A+1,4 | 02505 477400100001 10000 209A AXC 1,1 | 02506 050000100034 10001 210A CLA SPI-1,1 02507 030200100040 10001 211A FSB SBI-1,1 | 02510 060100100060 10001 212A STO PS1-1,1 | 02511 050000100050 10001 213A CLA SPF-1,1 | 02512 030200100054 10001 214A FSB SBF-1,1 | 02513 060100100064 10001 215A STO PS2-1,1 02514 050000100060 10001 216A CLA PS1-1,1 | 02515 030200100064 10001 217A FSB PS2-1,1 | 02516 060100100070 10001 218A STO PD1-1,1 | 02517 219A NULL | 02517 050000100040 10001 220A CLA SBI-1,1 02520 030200100054 10001 221A FSB SBF-1,1 | 02521 060100100074 10001 222A STO BD1-1,1 | 1 12/01/64 PAGE 26 | PROG1 ASSEMBLY LISTING | 0 02522 177777102523 10001 223A TXI *+1,1,-1 02523 300000102506 10001 TXH 209A+1,1,** | 02524 224A NULL | 02524 225A NULL | 02524 053500400627 10001 226A LAC NC,4 | 02525 177777402526 10001 TXI *+1,4,-1 02526 463400402606 10001 SXD 239A+2,4 | 02527 477400100001 10000 227A AXC 1,1 | 02530 477400200005 10000 AXC 5,2 | 02531 050000000634 10001 CLA THETA | 02532 024100000705 10001 FDP C.7 02533 460000000721 10001 STQ N. | 02534 007400405000 10011 228A TSX COS,4 | 02535 100001002540 10001 TXI *+3,,1 | 02536 004367000344 10100 PZE 228,,LK.DR | 02537 000000000721 10001 PZE N. 02540 060100000721 10001 STO N. | 02541 050000100044 10001 229A CLA PSI-1,1 | 02542 024100000705 10001 FDP C.7 | 02543 460000000722 10001 STQ N.+1 | 02544 007400406000 10011 230A TSX SIN,4 02545 100001002550 10001 TXI *+3,,1 | 02546 004367000346 10100 PZE 230,,LK.DR | 02547 000000000722 10001 PZE N.+1 | 02550 060100000722 10001 STO N.+1 | 02551 050000000721 10001 CLA N. 02552 024100000722 10001 FDP N.+1 | 02553 460000100030 10001 231A STQ CSC-1,1 | 02554 056000200004 10001 232A LDQ ABC-5,2 | 02555 026000100030 10001 233A FMP CSC-1,1 | 02556 060100000640 10001 STO CHI 02557 056000100000 10011 234A LDQ ATNO-1,1 | 100001700001 10001 | 02560 026000100000 10011 235A FMP ATNO-1,1 | 100001700001 10001 | 02561 060100000721 10001 STO N. 02562 056000100004 10001 236A LDQ ATWT-1,1 | 02563 026000000706 10001 FMP C.8 | 02564 024100000721 10001 FDP N. | 02565 460000000641 10001 STQ H | 02566 050000000640 10001 CLA CHI 02567 024100000633 10001 FDP SIGMA | 02570 013100000000 10000 XCA | 02571 030000000702 10001 FAD C.4 | 02572 060100000721 10001 STO N. | 02573 013100000000 10000 XCA 02574 026000000641 10001 FMP H | 02575 030000000702 10001 FAD C.4 | 02576 013100000000 10000 XCA | 02577 026000000721 10001 FMP N. | 02600 060100000721 10001 STO N. 02601 050000000702 10001 CLA C.4 | 02602 024100000721 10001 FDP N. | 02603 460000100120 10001 237A STQ FSTD-1,1 | 02604 238A NULL | 02604 177777102605 10001 239A TXI *+1,1,-1 1 12/01/64 PAGE 27 | PROG1 ASSEMBLY LISTING | 0 02605 177773202606 10001 TXI *+1,2,-5 | 02606 300000102531 10001 TXH 227A+2,1,** | 02607 240A NULL 02607 241A NULL | 02607 053500400627 10001 242A LAC NC,4 | 02610 177777402611 10001 TXI *+1,4,-1 | 02611 463400403255 10001 SXD 332A+1,4 | 02612 477400100001 10000 243A AXC 1,1 02613 060000000635 10001 STZ I | 02614 063400102615 10001 SXA *+1,1 | 02615 477400400000 10000 AXC **,4 | 02616 063400400635 10001 SXA I,4 | 02617 050000100610 10001 244A CLA CTCD-1,1 02620 430000024000 10011 UFA CC.4 | 02621 477300000010 10000 RQL 8 | 02622 076500000010 10000 LRS 8 | 02623 460000000642 10001 STQ NCTCD | 02624 050000000642 10001 245A CLA NCTCD 02625 010000003254 10001 246A TZE 331A | 02626 412000003254 10001 TMI 331A | 02627 007400403000 10011 247A TSX .FRDD.,4 | 02630 100002002634 10001 TXI *+4,,2 | 02631 004367000367 10100 PZE 247,,LK.DR 02632 000000010000 10011 PZE .UN05. | 02633 000000001147 10001 PZE 17. | 02634 007400412000 10011 TSX .FCNV.,4 | 02635 060100000643 10001 STO NELT | 02636 007400412000 10011 248A TSX .FCNV.,4 02637 060100000644 10001 STO NPOST | 02640 007400412000 10011 249A TSX .FCNV.,4 | 02641 060100000645 10001 STO NSFCD | 02642 250A NULL | 02642 053500400643 10001 251A LAC NELT,4 02643 177777402644 10001 TXI *+1,4,-1 | 02644 463400402657 10001 SXD 257A+1,4 | 02645 477400200001 10000 252A AXC 1,2 | 02646 007400412000 10011 TSX .FCNV.,4 | 02647 060100200134 10001 253A STO SATNO-1,2 02650 007400412000 10011 TSX .FCNV.,4 | 02651 060100200140 10001 254A STO SATWT-1,2 | 02652 007400412000 10011 TSX .FCNV.,4 | 02653 060100200130 10001 255A STO SABS-1,2 | 02654 007400412000 10011 TSX .FCNV.,4 02655 060100200124 10001 256A STO SCON-1,2 | 02656 177777202657 10001 257A TXI *+1,2,-1 | 02657 300000202646 10001 TXH 252A+1,2,** | 02660 007400411000 10011 TSX .FRTN.,4 | 02661 007400404000 10011 258A TSX .FWRD.,4 02662 100002002666 10001 TXI *+4,,2 | 02663 004367000402 10100 PZE 258,,LK.DR | 02664 000000013000 10011 PZE .UN06. | 02665 000000001152 10001 PZE 171. | 02666 007400414000 10011 TSX .FFIL.,4 02667 007400404000 10011 259A TSX .FWRD.,4 | 02670 100002002674 10001 TXI *+4,,2 | 02671 004367000403 10100 PZE 259,,LK.DR | 1 12/01/64 PAGE 28 | PROG1 ASSEMBLY LISTING 0 02672 000000013000 10011 PZE .UN06. | 02673 000000001160 10001 PZE 172. | 02674 050000000643 10001 CLA NELT | 02675 007400412000 10011 TSX .FCNV.,4 | 02676 050000000644 10001 CLA NPOST 02677 007400412000 10011 TSX .FCNV.,4 | 02700 050000000645 10001 CLA NSFCD | 02701 007400412000 10011 TSX .FCNV.,4 | 02702 053500400643 10001 260A LAC NELT,4 | 02703 177777402704 10001 TXI *+1,4,-1 02704 463400402717 10001 SXD 266A+1,4 | 02705 477400200001 10000 261A AXC 1,2 | 02706 050000200134 10001 262A CLA SATNO-1,2 | 02707 007400412000 10011 TSX .FCNV.,4 | 02710 050000200140 10001 263A CLA SATWT-1,2 02711 007400412000 10011 TSX .FCNV.,4 | 02712 050000200130 10001 264A CLA SABS-1,2 | 02713 007400412000 10011 TSX .FCNV.,4 | 02714 050000200124 10001 265A CLA SCON-1,2 | 02715 007400412000 10011 TSX .FCNV.,4 02716 177777202717 10001 266A TXI *+1,2,-1 | 02717 300000202706 10001 TXH 261A+1,2,** | 02720 007400414000 10011 TSX .FFIL.,4 | 02721 060000000646 10001 STZ ATNS | 02722 060000000647 10001 STZ ATWS 02723 060000000650 10001 STZ SSABS | 02724 053500400643 10001 267A LAC NELT,4 | 02725 177777402726 10001 TXI *+1,4,-1 | 02726 463400402745 10001 SXD 276A+1,4 | 02727 477400200001 10000 268A AXC 1,2 02730 056000200124 10001 269A LDQ SCON-1,2 | 02731 026000200134 10001 270A FMP SATNO-1,2 | 02732 030000000646 10001 FAD ATNS | 02733 060100000646 10001 STO ATNS | 02734 056000200124 10001 271A LDQ SCON-1,2 02735 026000200140 10001 272A FMP SATWT-1,2 | 02736 030000000647 10001 FAD ATWS | 02737 060100000647 10001 STO ATWS | 02740 273A NULL | 02740 056000200124 10001 274A LDQ SCON-1,2 02741 026000200130 10001 275A FMP SABS-1,2 | 02742 030000000650 10001 FAD SSABS | 02743 060100000650 10001 STO SSABS | 02744 177777202745 10001 276A TXI *+1,2,-1 | 02745 300000202730 10001 TXH 268A+1,2,** 02746 056000000646 10001 LDQ ATNS | 02747 026000000646 10001 FMP ATNS | 02750 060100000721 10001 STO N. | 02751 056000000647 10001 LDQ ATWS | 02752 026000000706 10001 FMP C.8 02753 024100000721 10001 FDP N. | 02754 460000000641 10001 STQ H | 02755 056000000650 10001 LDQ SSABS | 02756 026000100030 10001 277A FMP CSC-1,1 | 02757 060100000651 10001 STO CHIS 02760 050000000651 10001 CLA CHIS | 1 12/01/64 PAGE 29 | PROG1 ASSEMBLY LISTING | 0 02761 024100000633 10001 FDP SIGMA | 02762 013100000000 10000 XCA 02763 030000000702 10001 FAD C.4 | 02764 060100000721 10001 STO N. | 02765 013100000000 10000 XCA | 02766 026000000641 10001 FMP H | 02767 030000000702 10001 FAD C.4 02770 013100000000 10000 XCA | 02771 026000000721 10001 FMP N. | 02772 060100000721 10001 STO N. | 02773 050000000702 10001 CLA C.4 | 02774 024100000721 10001 FDP N. 02775 460000000652 10001 STQ FSAM | 02776 050000000645 10001 CLA NSFCD | 02777 010000003234 10001 278A TZE 320A | 03000 412000003234 10001 TMI 320A | 03001 007400403000 10011 279A TSX .FRDD.,4 03002 100002003006 10001 TXI *+4,,2 | 03003 004367000427 10100 PZE 279,,LK.DR | 03004 000000010000 10011 PZE .UN05. | 03005 000000001036 10001 PZE 8. | 03006 053500400643 10001 280A LAC NELT,4 03007 177777403010 10001 TXI *+1,4,-1 | 03010 463400403015 10001 SXD 283A+1,4 | 03011 477400200001 10000 281A AXC 1,2 | 03012 007400412000 10011 TSX .FCNV.,4 | 03013 060100200614 10001 282A STO SVO-1,2 03014 177777203015 10001 283A TXI *+1,2,-1 | 03015 300000203012 10001 TXH 281A+1,2,** | 03016 007400411000 10011 TSX .FRTN.,4 | 03017 007400404000 10011 284A TSX .FWRD.,4 | 03020 100002003024 10001 TXI *+4,,2 03021 004367000434 10100 PZE 284,,LK.DR | 03022 000000013000 10011 PZE .UN06. | 03023 000000001213 10001 PZE 191. | 03024 053500400643 10001 285A LAC NELT,4 | 03025 177777403026 10001 TXI *+1,4,-1 03026 463400403033 10001 SXD 288A+1,4 | 03027 477400200001 10000 286A AXC 1,2 | 03030 050000200614 10001 287A CLA SVO-1,2 | 03031 007400412000 10011 TSX .FCNV.,4 | 03032 177777203033 10001 288A TXI *+1,2,-1 03033 300000203030 10001 TXH 286A+1,2,** | 03034 007400414000 10011 TSX .FFIL.,4 | 03035 007400404000 10011 289A TSX .FWRD.,4 | 03036 100002003042 10001 TXI *+4,,2 | 03037 004367000441 10100 PZE 289,,LK.DR 03040 000000013000 10011 PZE .UN06. | 03041 000000001230 10001 PZE 192. | 03042 007400414000 10011 TSX .FFIL.,4 | 03043 053500400643 10001 290A LAC NELT,4 | 03044 177777403045 10001 TXI *+1,4,-1 03045 463400403124 10001 SXD 302A+1,4 | 03046 053500400643 10001 LAC NELT,4 | 03047 177777403050 10001 TXI *+1,4,-1 | 03050 463400403077 10001 SXD 295A+2,4 | 1 12/01/64 PAGE 30 PROG1 ASSEMBLY LISTING | 0 03051 053500400643 10001 LAC NELT,4 | 03052 177777403053 10001 TXI *+1,4,-1 | 03053 463400403120 10001 SXD 300A+2,4 | 03054 477400200001 10000 291A AXC 1,2 03055 060000000636 10001 STZ J | 03056 063400203057 10001 SXA *+1,2 | 03057 477400400000 10000 AXC **,4 | 03060 063400400636 10001 SXA J,4 | 03061 007400403000 10011 TSX .FRDD.,4 03062 100002003066 10001 TXI *+4,,2 | 03063 004367000443 10100 PZE 291,,LK.DR | 03064 000000010000 10011 PZE .UN05. | 03065 000000001036 10001 PZE 8. | 03066 053400400636 10001 292A LXA J,4 03067 100224403070 10101 TXI *+1,4,EXC-5 | 03070 063400403074 10001 SXA 294A,4 | 03071 477400100001 10000 293A AXC 1,1 | 03072 477400200004 10000 AXC 4,2 | 03073 007400412000 10011 TSX .FCNV.,4 03074 060100200000 10000 294A STO **,2 | 03075 177777103076 10001 295A TXI *+1,1,-1 | 03076 177774203077 10001 TXI *+1,2,-4 | 03077 300000103073 10001 TXH 293A+2,1,** | 03100 053500200636 10001 LAC J,2 03101 007400411000 10011 TSX .FRTN.,4 | 03102 007400404000 10011 296A TSX .FWRD.,4 | 03103 100002003107 10001 TXI *+4,,2 | 03104 004367000450 10100 PZE 296,,LK.DR | 03105 000000013000 10011 PZE .UN06. 03106 000000001034 10001 PZE 6. | 03107 053400400636 10001 297A LXA J,4 | 03110 100224403111 10101 TXI *+1,4,EXC-5 | 03111 063400403114 10001 SXA 299A,4 | 03112 477400100001 10000 298A AXC 1,1 03113 477400200004 10000 AXC 4,2 | 03114 050000200000 10000 299A CLA **,2 | 03115 007400412000 10011 TSX .FCNV.,4 | 03116 177777103117 10001 300A TXI *+1,1,-1 | 03117 177774203120 10001 TXI *+1,2,-4 03120 300000103114 10001 TXH 298A+2,1,** | 03121 053500200636 10001 LAC J,2 | 03122 007400414000 10011 TSX .FFIL.,4 | 03123 301A NULL | 03123 177777203124 10001 302A TXI *+1,2,-1 03124 300000203056 10001 TXH 291A+2,2,** | 03125 053500100635 10001 LAC I,1 | 03126 060000000653 10001 STZ RATIO | 03127 053500400643 10001 303A LAC NELT,4 | 03130 177777403131 10001 TXI *+1,4,-1 03131 463400403216 10001 SXD 316A+1,4 | 03132 053500400643 10001 LAC NELT,4 | 03133 177777403134 10001 TXI *+1,4,-1 | 03134 463400403213 10001 SXD 315A+2,4 | 03135 477400200001 10000 304A AXC 1,2 03136 060000000636 10001 STZ J | 03137 063400203140 10001 SXA *+1,2 | 1 12/01/64 PAGE 31 | PROG1 ASSEMBLY LISTING | 0 03140 477400400000 10000 AXC **,4 03141 063400400636 10001 SXA J,4 | 03142 053400400636 10001 305A LXA J,4 | 03143 100224403144 10101 TXI *+1,4,EXC-5 | 03144 063400403177 10001 SXA 312A,4 | 03145 053400400636 10001 LXA J,4 03146 100614403147 10101 TXI *+1,4,SVO-1 | 03147 063400403161 10001 SXA 309A,4 | 03150 477400100001 10000 306A AXC 1,1 | 03151 477400200004 10000 AXC 4,2 | 03152 050000100130 10001 307A CLA SABS-1,1 03153 024100000650 10001 FDP SSABS | 03154 460000000721 10001 STQ N. | 03155 050000000637 10001 CLA V | 03156 030200100614 10001 308A FSB SVO-1,1 | 03157 060100000722 10001 STO N.+1 03160 050000000637 10001 CLA V | 03161 030200000000 10000 309A FSB ** | 03162 060100000723 10001 STO N.+2 | 03163 007400407000 10011 310A TSX .XP3.,4 | 03164 100002003170 10001 TXI *+4,,2 03165 004367000466 10100 PZE 310,,LK.DR | 03166 000000000723 10001 PZE N.+2 | 03167 000000000711 10001 PZE C.11 | 03170 060100000723 10001 STO N.+2 | 03171 007400407000 10011 311A TSX .XP3.,4 03172 100002003176 10001 TXI *+4,,2 | 03173 004367000467 10100 PZE 311,,LK.DR | 03174 000000000722 10001 PZE N.+1 | 03175 000000000711 10001 PZE C.11 | 03176 060100000722 10001 STO N.+1 03177 056000200000 10000 312A LDQ **,2 | 03200 026000000710 10001 FMP C.10 | 03201 024100000723 10001 FDP N.+2 | 03202 026000000721 10001 FMP N. | 03203 013100000000 10000 XCA 03204 026000000722 10001 FMP N.+1 | 03205 013100000000 10000 XCA | 03206 026000100124 10001 313A FMP SCON-1,1 | 03207 030000000653 10001 FAD RATIO | 03210 060100000653 10001 STO RATIO 03211 314A NULL | 03211 177777103212 10001 315A TXI *+1,1,-1 | 03212 177774203213 10001 TXI *+1,2,-4 | 03213 300000103152 10001 TXH 306A+2,1,** | 03214 053500200636 10001 LAC J,2 03215 177777203216 10001 316A TXI *+1,2,-1 | 03216 300000203137 10001 TXH 304A+2,2,** | 03217 053500100635 10001 LAC I,1 | 03220 053400400644 10001 LXA NPOST,4 | 03221 100124403222 10101 TXI *+1,4,SCON-1 03222 063400403227 10001 SXA 317A,4 | 03223 050000000653 10001 CLA RATIO | 03224 030000000702 10001 FAD C.4 | 03225 060100000721 10001 STO N. | 03226 056000000652 10001 LDQ FSAM 1 12/01/64 PAGE 32 | PROG1 ASSEMBLY LISTING | 0 03227 026000000000 10000 317A FMP ** | 03230 024100100120 10001 318A FDP FSTD-1,1 | 03231 026000000721 10001 FMP N. 03232 060100000654 10001 STO STDCO | 03233 002000003243 10001 319A TRA 323A | 03234 053400400644 10001 320A LXA NPOST,4 | 03235 100124403236 10101 TXI *+1,4,SCON-1 | 03236 063400403240 10001 SXA 321A,4 03237 056000000652 10001 LDQ FSAM | 03240 026000000000 10000 321A FMP ** | 03241 024100100120 10001 322A FDP FSTD-1,1 | 03242 460000000654 10001 STQ STDCO | 03243 323A NULL 03243 050000100060 10001 324A CLA PS1-1,1 | 03244 024100000654 10001 FDP STDCO | 03245 460000100060 10001 325A STQ PS1-1,1 | 03246 050000100064 10001 326A CLA PS2-1,1 | 03247 024100000654 10001 FDP STDCO 03250 460000100064 10001 327A STQ PS2-1,1 | 03251 050000100060 10001 328A CLA PS1-1,1 | 03252 030200100064 10001 329A FSB PS2-1,1 | 03253 060100100070 10001 330A STO PD1-1,1 | 03254 331A NULL 03254 177777103255 10001 332A TXI *+1,1,-1 | 03255 300000102614 10001 TXH 243A+2,1,** | 03256 060000000655 10001 333A STZ N | 03257 050000000627 10001 334A CLA NC | 03260 076500000010 10000 LRS 8 03261 450100022000 10011 ORA CC.2 | 03262 060100015000 10011 STO E.1 | 03263 050000023000 10011 CLA CC.3 | 03264 076300000010 10000 LLS 8 | 03265 030000015000 10011 FAD E.1 03266 060100000656 10001 STO ANC | 03267 050000000630 10001 CLA NS | 03270 076500000010 10000 LRS 8 | 03271 450100022000 10011 ORA CC.2 | 03272 060100015000 10011 STO E.1 03273 050000023000 10011 CLA CC.3 | 03274 076300000010 10000 LLS 8 | 03275 030000015000 10011 FAD E.1 | 03276 060100000657 10001 STO ANS | 03277 050000000655 10001 335A CLA N 03300 040000000701 10001 ADD C.3 | 03301 060100000655 10001 STO N | 03302 050000000655 10001 336A CLA N | 03303 076500000010 10000 LRS 8 | 03304 450100022000 10011 ORA CC.2 03305 060100015000 10011 STO E.1 | 03306 050000023000 10011 CLA CC.3 | 03307 076300000010 10000 LLS 8 | 03310 030000015000 10011 FAD E.1 | 03311 060100000660 10001 STO AN 03312 060000000661 10001 STZ NITN | 03313 060000000662 10001 337A STZ KK | 03314 060000000663 10001 338A STZ SRINT | 1 12/01/64 PAGE 33 | PROG1 ASSEMBLY LISTING 0 03315 339A NULL | 03315 053500400627 10001 340A LAC NC,4 | 03316 177777403317 10001 TXI *+1,4,-1 | 03317 463400403400 10001 SXD 353A+2,4 | 03320 053400400655 10001 LXA N,4 03321 100166403322 10101 TXI *+1,4,SINT-51 | 03322 063400403356 10001 SXA 344A,4 | 03323 477400100001 10000 341A AXC 1,1 | 03324 477400200062 10000 AXC 50,2 | 03325 060000000635 10001 STZ I 03326 063400103327 10001 SXA *+1,1 | 03327 477400400000 10000 AXC **,4 | 03330 063400400635 10001 SXA I,4 | 03331 050000000635 10001 CLA I | 03332 076500000010 10000 LRS 8 03333 450100022000 10011 ORA CC.2 | 03334 060100015000 10011 STO E.1 | 03335 050000023000 10011 CLA CC.3 | 03336 076300000010 10000 LLS 8 | 03337 030000015000 10011 FAD E.1 03340 060100000664 10001 STO AI | 03341 050000000660 10001 CLA AN | 03342 030000000656 10001 FAD ANC | 03343 030200000664 10001 FSB AI | 03344 060100000721 10001 STO N. 03345 050000000656 10001 CLA ANC | 03346 030000000657 10001 FAD ANS | 03347 060100000722 10001 STO N.+1 | 03350 050000000721 10001 CLA N. | 03351 024100000722 10001 FDP N.+1 03352 460000000665 10001 STQ FAC | 03353 056000000665 10001 LDQ FAC | 03354 026000100074 10001 342A FMP BD1-1,1 | 03355 030200100040 10001 343A FSB SBI-1,1 | 03356 030000200000 10000 344A FAD **,2 03357 060100000721 10001 STO N. | 03360 056000000665 10001 LDQ FAC | 03361 026000100070 10001 345A FMP PD1-1,1 | 03362 076000000002 10000 CHS | 03363 030000100060 10001 346A FAD PS1-1,1 03364 060100000722 10001 STO N.+1 | 03365 050000000721 10001 CLA N. | 03366 024100000722 10001 FDP N.+1 | 03367 460000100100 10001 347A STQ RINT-1,1 | 03370 050000100100 10001 348A CLA RINT-1,1 03371 010000003376 10001 349A TZE 352A | 03372 412000003376 10001 TMI 352A | 03373 050000000663 10001 350A CLA SRINT | 03374 030000100100 10001 351A FAD RINT-1,1 | 03375 060100000663 10001 STO SRINT 03376 352A NULL | 03376 177777103377 10001 353A TXI *+1,1,-1 | 03377 177716203400 10001 TXI *+1,2,-50 | 03400 300000103326 10001 TXH 341A+3,1,** | 03401 354A NULL 03401 355A NULL | 1 12/01/64 PAGE 34 | PROG1 ASSEMBLY LISTING | 0 03401 053500400627 10001 356A LAC NC,4 | 03402 177777403403 10001 TXI *+1,4,-1 03403 463400403433 10001 SXD 371A+1,4 | 03404 053500400627 10001 LAC NC,4 | 03405 177777403406 10001 TXI *+1,4,-1 | 03406 463400403430 10001 SXD 368A+1,4 | 03407 477400100001 10000 357A AXC 1,1 03410 060000000635 10001 STZ I | 03411 063400103412 10001 SXA *+1,1 | 03412 477400400000 10000 AXC **,4 | 03413 063400400635 10001 SXA I,4 | 03414 050000100100 10001 358A CLA RINT-1,1 03415 010000003417 10001 359A TZE 360A | 03416 012000003432 10001 TPL 370A | 03417 050000000702 10001 360A CLA C.4 | 03420 030200000663 10001 FSB SRINT | 03421 060100100100 10001 361A STO RINT-1,1 03422 050000000635 10001 CLA I | 03423 060100000662 10001 STO KK | 03424 362A NULL | 03424 363A NULL | 03424 477400200001 10000 364A AXC 1,2 03425 365A NULL | 03425 050000200100 10001 366A CLA RINT-1,2 | 03426 060100200104 10001 367A STO CONC-1,2 | 03427 177777203430 10001 368A TXI *+1,2,-1 | 03430 300000203425 10001 TXH 364A+1,2,** 03431 002000003450 10001 369A TRA 382A | 03432 370A NULL | 03432 177777103433 10001 371A TXI *+1,1,-1 | 03433 300000103411 10001 TXH 357A+2,1,** | 03434 372A NULL 03434 050000000702 10001 373A CLA C.4 | 03435 024100000663 10001 FDP SRINT | 03436 460000000666 10001 STQ FACT | 03437 374A NULL | 03437 053500400627 10001 375A LAC NC,4 03440 177777403441 10001 TXI *+1,4,-1 | 03441 463400403447 10001 SXD 380A+1,4 | 03442 477400100001 10000 376A AXC 1,1 | 03443 056000000666 10001 LDQ FACT | 03444 026000100100 10001 377A FMP RINT-1,1 03445 060100100104 10001 378A STO CONC-1,1 | 03446 379A NULL | 03446 177777103447 10001 380A TXI *+1,1,-1 | 03447 300000103443 10001 TXH 376A+1,1,** | 03450 381A NULL 03450 050000000632 10001 382A CLA NBKCD | 03451 010000003640 10001 383A TZE 432A | 03452 412000003640 10001 TMI 432A | 03453 384A NULL | 03453 385A NULL 03453 053500400627 10001 386A LAC NC,4 | 03454 177777403455 10001 TXI *+1,4,-1 | 03455 463400403574 10001 SXD 412A+2,4 | 03456 053500400627 10001 LAC NC,4 | 1 12/01/64 PAGE 35 PROG1 ASSEMBLY LISTING | 0 03457 177777403460 10001 TXI *+1,4,-1 | 03460 463400403526 10001 SXD 401A+1,4 | 03461 053400400655 10001 LXA N,4 | 03462 100166403463 10101 TXI *+1,4,SINT-51 03463 063400403560 10001 SXA 408A,4 | 03464 477400100001 10000 387A AXC 1,1 | 03465 477400200062 10000 AXC 50,2 | 03466 060000000635 10001 STZ I | 03467 063400103470 10001 SXA *+1,1 03470 477400400000 10000 AXC **,4 | 03471 063400400635 10001 SXA I,4 | 03472 060000100210 10001 388A STZ SB3-1,1 | 03473 060000100214 10001 389A STZ SB4-1,1 | 03474 053400400635 10001 390A LXA I,4 03475 100214403476 10101 TXI *+1,4,SB4-1 | 03476 063400403523 10001 SXA 399A,4 | 03477 063400403524 10001 SXA 400A,4 | 03500 053400400635 10001 LXA I,4 | 03501 100210403502 10101 TXI *+1,4,SB3-1 03502 063400403517 10001 SXA 394A,4 | 03503 063400403520 10001 SXA 395A,4 | 03504 056000000635 10001 LDQ I | 03505 020417000713 10001 VLM C.13,,15 | 03506 073400400000 10000 PAX 0,4 03507 100164403510 10101 TXI *+1,4,BK2-5 | 03510 063400403521 10001 SXA 397A,4 | 03511 073400400000 10000 PAX 0,4 | 03512 100144403513 10101 TXI *+1,4,BK1-5 | 03513 063400403515 10001 SXA 392A,4 03514 477400100001 10000 391A AXC 1,1 | 03515 056000100000 10000 392A LDQ **,1 | 03516 026000100104 10001 393A FMP CONC-1,1 | 03517 030000000000 10000 394A FAD ** | 03520 060100000000 10000 395A STO ** 03521 396A NULL | 03521 056000100000 10000 397A LDQ **,1 | 03522 026000100104 10001 398A FMP CONC-1,1 | 03523 030000000000 10000 399A FAD ** | 03524 060100000000 10000 400A STO ** 03525 177777103526 10001 401A TXI *+1,1,-1 | 03526 300000103515 10001 TXH 391A+1,1,** | 03527 053500100635 10001 LAC I,1 | 03530 050000100210 10001 402A CLA SB3-1,1 | 03531 030200100214 10001 403A FSB SB4-1,1 03532 060100100220 10001 404A STO BD2-1,1 | 03533 050000000635 10001 CLA I | 03534 076500000010 10000 LRS 8 | 03535 450100022000 10011 ORA CC.2 | 03536 060100015000 10011 STO E.1 03537 050000023000 10011 CLA CC.3 | 03540 076300000010 10000 LLS 8 | 03541 030000015000 10011 FAD E.1 | 03542 060100000664 10001 STO AI | 03543 050000000660 10001 CLA AN 03544 030000000656 10001 FAD ANC | 03545 030200000664 10001 FSB AI | 1 12/01/64 PAGE 36 | PROG1 ASSEMBLY LISTING | 0 03546 060100000721 10001 STO N. 03547 050000000656 10001 CLA ANC | 03550 030000000657 10001 FAD ANS | 03551 060100000722 10001 STO N.+1 | 03552 050000000721 10001 CLA N. | 03553 024100000722 10001 FDP N.+1 03554 460000000665 10001 STQ FAC | 03555 056000000665 10001 405A LDQ FAC | 03556 026000100220 10001 406A FMP BD2-1,1 | 03557 030200100210 10001 407A FSB SB3-1,1 | 03560 030000200000 10000 408A FAD **,2 03561 060100000721 10001 STO N. | 03562 056000000665 10001 LDQ FAC | 03563 026000100070 10001 409A FMP PD1-1,1 | 03564 076000000002 10000 CHS | 03565 030000100060 10001 410A FAD PS1-1,1 03566 060100000722 10001 STO N.+1 | 03567 050000000721 10001 CLA N. | 03570 024100000722 10001 FDP N.+1 | 03571 460000100100 10001 411A STQ RINT-1,1 | 03572 177777103573 10001 412A TXI *+1,1,-1 03573 177716203574 10001 TXI *+1,2,-50 | 03574 300000103467 10001 TXH 387A+3,1,** | 03575 413A NULL | 03575 414A NULL | 03575 053500400627 10001 415A LAC NC,4 03576 177777403577 10001 TXI *+1,4,-1 | 03577 463400403637 10001 SXD 430A+1,4 | 03600 053500400627 10001 LAC NC,4 | 03601 177777403602 10001 TXI *+1,4,-1 | 03602 463400403632 10001 SXD 427A+1,4 03603 477400100001 10000 416A AXC 1,1 | 03604 060000000635 10001 STZ I | 03605 063400103606 10001 SXA *+1,1 | 03606 477400400000 10000 AXC **,4 | 03607 063400400635 10001 SXA I,4 03610 050000100100 10001 417A CLA RINT-1,1 | 03611 010000003613 10001 418A TZE 419A | 03612 012000003636 10001 TPL 429A | 03613 060000000667 10001 419A STZ SR | 03614 050000000635 10001 CLA I 03615 060100000662 10001 STO KK | 03616 420A NULL | 03616 421A NULL | 03616 477400200001 10000 422A AXC 1,2 | 03617 060000000636 10001 STZ J 03620 063400203621 10001 SXA *+1,2 | 03621 477400400000 10000 AXC **,4 | 03622 063400400636 10001 SXA J,4 | 03623 050000000662 10001 CLA KK | 03624 040200000636 10001 SUB J 03625 010000003631 10001 423A TZE 426A | 03626 050000000667 10001 424A CLA SR | 03627 030000200100 10001 425A FAD RINT-1,2 | 03630 060100000667 10001 STO SR | 03631 426A NULL 1 12/01/64 PAGE 37 | PROG1 ASSEMBLY LISTING | 0 03631 177777203632 10001 427A TXI *+1,2,-1 | 03632 300000203620 10001 TXH 422A+2,2,** | 03633 050000000702 10001 CLA C.4 03634 030200000667 10001 FSB SR | 03635 060100100100 10001 428A STO RINT-1,1 | 03636 429A NULL | 03636 177777103637 10001 430A TXI *+1,1,-1 | 03637 300000103605 10001 TXH 416A+2,1,** 03640 431A NULL | 03640 050000000661 10001 432A CLA NITN | 03641 040000000701 10001 ADD C.3 | 03642 060100000661 10001 STO NITN | 03643 433A NULL 03643 434A NULL | 03643 053500400627 10001 435A LAC NC,4 | 03644 177777403645 10001 TXI *+1,4,-1 | 03645 463400403700 10001 SXD 446A+1,4 | 03646 053500400627 10001 LAC NC,4 03647 177777403650 10001 TXI *+1,4,-1 | 03650 463400403676 10001 SXD 445A+1,4 | 03651 477400100001 10000 436A AXC 1,1 | 03652 060000000636 10001 STZ J | 03653 063400103654 10001 SXA *+1,1 03654 477400400000 10000 AXC **,4 | 03655 063400400636 10001 SXA J,4 | 03656 060000100144 10001 437A STZ ABSAM-1,1 | 03657 053400400636 10001 438A LXA J,4 | 03660 100144403661 10101 TXI *+1,4,ABSAM-1 03661 063400403673 10001 SXA 442A,4 | 03662 063400403674 10001 SXA 443A,4 | 03663 056000000636 10001 LDQ J | 03664 020417000713 10001 VLM C.13,,15 | 03665 073400400000 10000 PAX 0,4 03666 100004403667 10101 TXI *+1,4,ABC-5 | 03667 063400403671 10001 SXA 440A,4 | 03670 477400200001 10000 439A AXC 1,2 | 03671 056000200000 10000 440A LDQ **,2 | 03672 026000200104 10001 441A FMP CONC-1,2 03673 030000000000 10000 442A FAD ** | 03674 060100000000 10000 443A STO ** | 03675 444A NULL | 03675 177777203676 10001 445A TXI *+1,2,-1 | 03676 300000203671 10001 TXH 439A+1,2,** 03677 177777103700 10001 446A TXI *+1,1,-1 | 03700 300000103653 10001 TXH 436A+2,1,** | 03701 060000000646 10001 447A STZ ATNS | 03702 060000000647 10001 STZ ATWS | 03703 448A NULL 03703 053500400627 10001 449A LAC NC,4 | 03704 177777403705 10001 TXI *+1,4,-1 | 03705 463400403720 10001 SXD 456A+1,4 | 03706 477400100001 10000 450A AXC 1,1 | 03707 056000100000 10011 451A LDQ ATNO-1,1 100001700001 10001 | 03710 026000100104 10001 452A FMP CONC-1,1 | 03711 030000000646 10001 FAD ATNS | 1 12/01/64 PAGE 38 | PROG1 ASSEMBLY LISTING 0 03712 060100000646 10001 STO ATNS | 03713 453A NULL | 03713 056000100004 10001 454A LDQ ATWT-1,1 | 03714 026000100104 10001 455A FMP CONC-1,1 | 03715 030000000647 10001 FAD ATWS 03716 060100000647 10001 STO ATWS | 03717 177777103720 10001 456A TXI *+1,1,-1 | 03720 300000103707 10001 TXH 450A+1,1,** | 03721 056000000646 10001 457A LDQ ATNS | 03722 026000000646 10001 FMP ATNS 03723 060100000721 10001 STO N. | 03724 056000000647 10001 LDQ ATWS | 03725 026000000706 10001 FMP C.8 | 03726 024100000721 10001 FDP N. | 03727 460000000641 10001 STQ H 03730 458A NULL | 03730 053500400627 10001 459A LAC NC,4 | 03731 177777403732 10001 TXI *+1,4,-1 | 03732 463400404064 10001 SXD 484A+1,4 | 03733 053500400627 10001 LAC NC,4 03734 177777403735 10001 TXI *+1,4,-1 | 03735 463400404050 10001 SXD 479A+2,4 | 03736 477400100001 10000 460A AXC 1,1 | 03737 060000000635 10001 STZ I | 03740 063400103741 10001 SXA *+1,1 03741 477400400000 10000 AXC **,4 | 03742 063400400635 10001 SXA I,4 | 03743 056000100144 10001 461A LDQ ABSAM-1,1 | 03744 026000100030 10001 462A FMP CSC-1,1 | 03745 060100000651 10001 STO CHIS 03746 050000000651 10001 CLA CHIS | 03747 024100000633 10001 FDP SIGMA | 03750 013100000000 10000 XCA | 03751 030000000702 10001 FAD C.4 | 03752 060100000721 10001 STO N. 03753 013100000000 10000 XCA | 03754 026000000641 10001 FMP H | 03755 030000000702 10001 FAD C.4 | 03756 013100000000 10000 XCA | 03757 026000000721 10001 FMP N. 03760 060100000721 10001 STO N. | 03761 050000000702 10001 CLA C.4 | 03762 024100000721 10001 FDP N. | 03763 460000000652 10001 STQ FSAM | 03764 056000100120 10001 463A LDQ FSTD-1,1 03765 026000100100 10001 464A FMP RINT-1,1 | 03766 024100000652 10001 FDP FSAM | 03767 460000100110 10001 465A STQ CON1-1,1 | 03770 050000000631 10001 CLA NFLCD | 03771 010000004063 10001 466A TZE 483A 03772 412000004063 10001 TMI 483A | 03773 060000000653 10001 467A STZ RATIO | 03774 053400400635 10001 468A LXA I,4 | 03775 100004403776 10101 TXI *+1,4,ABC-5 | 03776 063400404007 10001 SXA 471A,4 03777 053400400635 10001 LXA I,4 | 1 12/01/64 PAGE 39 | PROG1 ASSEMBLY LISTING | 0 04000 100620404001 10101 TXI *+1,4,VO-1 | 04001 063400404016 10001 SXA 474A,4 04002 053400400635 10001 LXA I,4 | 04003 100560404004 10101 TXI *+1,4,EAB-5 | 04004 063400404034 10001 SXA 477A,4 | 04005 477400200001 10000 469A AXC 1,2 | 04006 477400100004 10000 AXC 4,1 04007 470A NULL | 04007 050000100000 10000 471A CLA **,1 | 04010 024100200144 10001 472A FDP ABSAM-1,2 | 04011 460000000721 10001 STQ N. | 04012 050000000637 10001 CLA V 04013 030200200620 10001 473A FSB VO-1,2 | 04014 060100000722 10001 STO N.+1 | 04015 050000000637 10001 CLA V | 04016 030200000000 10000 474A FSB ** | 04017 060100000723 10001 STO N.+2 04020 007400407000 10011 475A TSX .XP3.,4 | 04021 100002004025 10001 TXI *+4,,2 | 04022 004367000733 10100 PZE 475,,LK.DR | 04023 000000000723 10001 PZE N.+2 | 04024 000000000711 10001 PZE C.11 04025 060100000723 10001 STO N.+2 | 04026 007400407000 10011 476A TSX .XP3.,4 | 04027 100002004033 10001 TXI *+4,,2 | 04030 004367000734 10100 PZE 476,,LK.DR | 04031 000000000722 10001 PZE N.+1 04032 000000000711 10001 PZE C.11 | 04033 060100000722 10001 STO N.+1 | 04034 056000100000 10000 477A LDQ **,1 | 04035 026000000710 10001 FMP C.10 | 04036 024100000723 10001 FDP N.+2 04037 026000000721 10001 FMP N. | 04040 013100000000 10000 XCA | 04041 026000000722 10001 FMP N.+1 | 04042 013100000000 10000 XCA | 04043 026000200104 10001 478A FMP CONC-1,2 04044 030000000653 10001 FAD RATIO | 04045 060100000653 10001 STO RATIO | 04046 177777204047 10001 479A TXI *+1,2,-1 | 04047 177774104050 10001 TXI *+1,1,-4 | 04050 300000204007 10001 TXH 469A+2,2,** 04051 053500100635 10001 LAC I,1 | 04052 050000000653 10001 CLA RATIO | 04053 030000000702 10001 FAD C.4 | 04054 013100000000 10000 XCA | 04055 026000000652 10001 FMP FSAM 04056 060100000721 10001 STO N. | 04057 056000100120 10001 480A LDQ FSTD-1,1 | 04060 026000100100 10001 481A FMP RINT-1,1 | 04061 024100000721 10001 FDP N. | 04062 460000100114 10001 482A STQ CON2-1,1 04063 483A NULL | 04063 177777104064 10001 484A TXI *+1,1,-1 | 04064 300000103740 10001 TXH 460A+2,1,** | 04065 060000000670 10001 485A STZ SUMC1 | 1 12/01/64 PAGE 40 PROG1 ASSEMBLY LISTING | 0 04066 060000000671 10001 STZ SUMC2 | 04067 486A NULL | 04067 053500400627 10001 487A LAC NC,4 | 04070 177777404071 10001 TXI *+1,4,-1 04071 463400404144 10001 SXD 505A+1,4 | 04072 053500400627 10001 LAC NC,4 | 04073 177777404074 10001 TXI *+1,4,-1 | 04074 463400404126 10001 SXD 498A+1,4 | 04075 477400100001 10000 488A AXC 1,1 04076 060000000635 10001 STZ I | 04077 063400104100 10001 SXA *+1,1 | 04100 477400400000 10000 AXC **,4 | 04101 063400400635 10001 SXA I,4 | 04102 050000000662 10001 CLA KK 04103 040200000635 10001 SUB I | 04104 410000004135 10001 489A TNZ 501A | 04105 060000000672 10001 490A STZ SCON4 | 04106 060000000673 10001 STZ SCON5 | 04107 491A NULL 04107 477400200001 10000 492A AXC 1,2 | 04110 060000000636 10001 STZ J | 04111 063400204112 10001 SXA *+1,2 | 04112 477400400000 10000 AXC **,4 | 04113 063400400636 10001 SXA J,4 04114 050000000662 10001 CLA KK | 04115 040200000636 10001 SUB J | 04116 010000004125 10001 493A TZE 497A | 04117 050000000672 10001 494A CLA SCON4 | 04120 030000200110 10001 495A FAD CON1-1,2 04121 060100000672 10001 STO SCON4 | 04122 050000000673 10001 CLA SCON5 | 04123 030000200114 10001 496A FAD CON2-1,2 | 04124 060100000673 10001 STO SCON5 | 04125 497A NULL 04125 177777204126 10001 498A TXI *+1,2,-1 | 04126 300000204111 10001 TXH 492A+2,2,** | 04127 050000000702 10001 CLA C.4 | 04130 030200000672 10001 FSB SCON4 | 04131 060100100110 10001 499A STO CON1-1,1 04132 050000000702 10001 CLA C.4 | 04133 030200000673 10001 FSB SCON5 | 04134 060100100114 10001 500A STO CON2-1,1 | 04135 050000000670 10001 501A CLA SUMC1 | 04136 030000100110 10001 502A FAD CON1-1,1 04137 060100000670 10001 STO SUMC1 | 04140 050000000671 10001 CLA SUMC2 | 04141 030000100114 10001 503A FAD CON2-1,1 | 04142 060100000671 10001 STO SUMC2 | 04143 504A NULL 04143 177777104144 10001 505A TXI *+1,1,-1 | 04144 300000104077 10001 TXH 488A+2,1,** | 04145 050000000661 10001 506A CLA NITN | 04146 040200000701 10001 SUB C.3 | 04147 410000004236 10001 507A TNZ 533A 04150 050000000655 10001 508A CLA N | 04151 040200000701 10001 SUB C.3 | 1 12/01/64 PAGE 41 | PROG1 ASSEMBLY LISTING | 0 04152 410000004161 10001 509A TNZ 511A 04153 007400404000 10011 510A TSX .FWRD.,4 | 04154 100002004160 10001 TXI *+4,,2 | 04155 004367000776 10100 PZE 510,,LK.DR | 04156 000000013000 10011 PZE .UN06. | 04157 000000001242 10001 PZE 592. 04160 007400414000 10011 TSX .FFIL.,4 | 04161 007400404000 10011 511A TSX .FWRD.,4 | 04162 100002004166 10001 TXI *+4,,2 | 04163 004367000777 10100 PZE 511,,LK.DR | 04164 000000013000 10011 PZE .UN06. 04165 000000001247 10001 PZE 60. | 04166 050000000655 10001 CLA N | 04167 007400412000 10011 TSX .FCNV.,4 | 04170 512A NULL | 04170 053500400627 10001 513A LAC NC,4 04171 177777404172 10001 TXI *+1,4,-1 | 04172 463400404177 10001 SXD 516A+1,4 | 04173 477400100001 10000 514A AXC 1,1 | 04174 050000100000 10011 515A CLA ATNO-1,1 | 100001700001 10001 04175 007400412000 10011 TSX .FCNV.,4 | 04176 177777104177 10001 516A TXI *+1,1,-1 | 04177 300000104174 10001 TXH 514A+1,1,** | 04200 007400414000 10011 517A TSX .FFIL.,4 | 04201 060000000674 10001 STZ SUMRIN 04202 518A NULL | 04202 053500400627 10001 519A LAC NC,4 | 04203 177777404204 10001 TXI *+1,4,-1 | 04204 463400404215 10001 SXD 525A+1,4 | 04205 477400100001 10000 520A AXC 1,1 04206 056000100100 10001 521A LDQ RINT-1,1 | 04207 026000000714 10001 FMP C.14 | 04210 060100100604 10001 522A STO RELINT-1,1 | 04211 050000000674 10001 523A CLA SUMRIN | 04212 030000100604 10001 524A FAD RELINT-1,1 04213 060100000674 10001 STO SUMRIN | 04214 177777104215 10001 525A TXI *+1,1,-1 | 04215 300000104206 10001 TXH 520A+1,1,** | 04216 007400404000 10011 526A TSX .FWRD.,4 | 04217 100002004223 10001 TXI *+4,,2 04220 004367001016 10100 PZE 526,,LK.DR | 04221 000000013000 10011 PZE .UN06. | 04222 000000001266 10001 PZE 61. | 04223 050000000674 10001 CLA SUMRIN | 04224 007400412000 10011 TSX .FCNV.,4 04225 527A NULL | 04225 053500400627 10001 528A LAC NC,4 | 04226 177777404227 10001 TXI *+1,4,-1 | 04227 463400404234 10001 SXD 531A+1,4 | 04230 477400100001 10000 529A AXC 1,1 04231 050000100604 10001 530A CLA RELINT-1,1 | 04232 007400412000 10011 TSX .FCNV.,4 | 04233 177777104234 10001 531A TXI *+1,1,-1 | 04234 300000104231 10001 TXH 529A+1,1,** | 04235 007400414000 10011 532A TSX .FFIL.,4 1 12/01/64 PAGE 42 | PROG1 ASSEMBLY LISTING | 0 04236 533A NULL | 04236 534A NULL | 04236 053500400627 10001 535A LAC NC,4 04237 177777404240 10001 TXI *+1,4,-1 | 04240 463400404271 10001 SXD 547A+1,4 | 04241 477400100001 10000 536A AXC 1,1 | 04242 060000000635 10001 STZ I | 04243 063400104244 10001 SXA *+1,1 04244 477400400000 10000 AXC **,4 | 04245 063400400635 10001 SXA I,4 | 04246 050000000631 10001 CLA NFLCD | 04247 010000004251 10001 537A TZE 538A | 04250 012000004253 10001 TPL 541A 04251 538A NULL | 04251 050000100110 10001 539A CLA CON1-1,1 | 04252 060100100114 10001 540A STO CON2-1,1 | 04253 541A NULL | 04253 050000100114 10001 542A CLA CON2-1,1 04254 030200100104 10001 543A FSB CONC-1,1 | 04255 013100000000 10000 XCA | 04256 026000000714 10001 FMP C.14 | 04257 024100100114 10001 544A FDP CON2-1,1 | 04260 460000000721 10001 STQ N. 04261 050000000721 10001 CLA N. | 04262 076000000003 10000 SSP | 04263 060100000675 10001 STO ERROR | 04264 050000000675 10001 CLA ERROR | 04265 030200000715 10001 FSB C.15 04266 010000004270 10001 545A TZE 546A | 04267 012000004342 10001 TPL 566A | 04270 546A NULL | 04270 177777104271 10001 547A TXI *+1,1,-1 | 04271 300000104243 10001 TXH 536A+2,1,** 04272 548A NULL | 04272 007400404000 10011 549A TSX .FWRD.,4 | 04273 100002004277 10001 TXI *+4,,2 | 04274 004367001045 10100 PZE 549,,LK.DR | 04275 000000013000 10011 PZE .UN06. 04276 000000001276 10001 PZE 64. | 04277 050000000670 10001 CLA SUMC1 | 04300 007400412000 10011 TSX .FCNV.,4 | 04301 550A NULL | 04301 053500400627 10001 551A LAC NC,4 04302 177777404303 10001 TXI *+1,4,-1 | 04303 463400404310 10001 SXD 554A+1,4 | 04304 477400100001 10000 552A AXC 1,1 | 04305 050000100110 10001 553A CLA CON1-1,1 | 04306 007400412000 10011 TSX .FCNV.,4 04307 177777104310 10001 554A TXI *+1,1,-1 | 04310 300000104305 10001 TXH 552A+1,1,** | 04311 007400414000 10011 555A TSX .FFIL.,4 | 04312 050000000631 10001 CLA NFLCD | 04313 010000004335 10001 556A TZE 564A 04314 412000004335 10001 TMI 564A | 04315 007400404000 10011 557A TSX .FWRD.,4 | 04316 100002004322 10001 TXI *+4,,2 | 1 12/01/64 PAGE 43 | PROG1 ASSEMBLY LISTING 0 04317 004367001055 10100 PZE 557,,LK.DR | 04320 000000013000 10011 PZE .UN06. | 04321 000000001317 10001 PZE 66. | 04322 050000000671 10001 CLA SUMC2 | 04323 007400412000 10011 TSX .FCNV.,4 04324 558A NULL | 04324 053500400627 10001 559A LAC NC,4 | 04325 177777404326 10001 TXI *+1,4,-1 | 04326 463400404333 10001 SXD 562A+1,4 | 04327 477400100001 10000 560A AXC 1,1 04330 050000100114 10001 561A CLA CON2-1,1 | 04331 007400412000 10011 TSX .FCNV.,4 | 04332 177777104333 10001 562A TXI *+1,1,-1 | 04333 300000104330 10001 TXH 560A+1,1,** | 04334 007400414000 10011 563A TSX .FFIL.,4 04335 050000000655 10001 564A CLA N | 04336 040200000630 10001 SUB NS | 04337 010000001351 10001 565A TZE 1A | 04340 412000003277 10001 TMI 335A | 04341 002000001351 10001 TRA 1A 04342 050000000631 10001 566A CLA NFLCD | 04343 010000004345 10001 567A TZE 568A | 04344 012000004351 10001 TPL 572A | 04345 053500100635 10001 568A LAC I,1 | 04346 050000100110 10001 569A CLA CON1-1,1 04347 060100100104 10001 570A STO CONC-1,1 | 04350 002000004354 10001 571A TRA 575A | 04351 053500100635 10001 572A LAC I,1 | 04352 050000100114 10001 573A CLA CON2-1,1 | 04353 060100100104 10001 574A STO CONC-1,1 04354 050000000661 10001 575A CLA NITN | 04355 040200000716 10001 SUB C.16 | 04356 010000004360 10001 576A TZE 577A | 04357 412000003450 10001 TMI 382A | 04360 007400404000 10011 577A TSX .FWRD.,4 04361 100002004365 10001 TXI *+4,,2 | 04362 004367001101 10100 PZE 577,,LK.DR | 04363 000000013000 10011 PZE .UN06. | 04364 000000001327 10001 PZE 72. | 04365 007400414000 10011 TSX .FFIL.,4 04366 002000004272 10001 578A TRA 549A | 04367 000000000000 10000 LK.DR PZE ** | 04370 475146270160 10000 BCI 1,PROG1 | 04371 100000004400 10001 ...... TXI *+7,,** | 04372 077400200000 10000 AXT **,2 04373 077400100000 10000 AXT **,1 | 04374 077400400000 10000 AXT **,4 | 04375 044100004377 10001 LDI *+2 | 04376 002000400001 10000 TRA 1,4 | 04377 000000000000 10000 PZE ** 04400 060400004377 10001 STI *-1 | 04401 063400425000 10011 SXA SYSLOC,4 | 04402 063400404367 10001 SXA LK.DR,4 | 04403 063400404374 10001 SXA *-7,4 | 04404 063400104373 10001 SXA *-9,1 04405 063400204372 10001 SXA *-11,2 | 1 12/01/64 PAGE 44 | PROG1 ASSEMBLY LISTING | 0 04406 002000001351 10001 TRA 1A | 1 12/01/64 PAGE 45 PROG1 ASSEMBLY LISTING | 0| 0$CDICT PROG1 12/01/64 PROG0103 | 004407004371 PREFACE START=2297,LENGTH=2311,TYPE=7090,CMPLX=5 | 000000000005 475146270160 PROG1 DECK LOC=0,LENGTH=2311 | 004407000000 | 333333333333 ...... REAL LOC=2297,LENGTH=0 | 000000004371 | 332651242433 .FRDD. VIRTUAL SECT. 3,CALL 200000100000 | 332666512433 .FWRD. VIRTUAL SECT. 4,CALL | 200000100000 | 234662606060 COS VIRTUAL SECT. 5,CALL | 200000100000 623145606060 SIN VIRTUAL SECT. 6,CALL | 200000100000 | 336747033360 .XP3. VIRTUAL SECT. 7,CALL | 200000100000 | 336445000533 .UN05. VIRTUAL SECT. 8 200000000000 | 332651634533 .FRTN. VIRTUAL SECT. 9 | 200000000000 | 332623456533 .FCNV. VIRTUAL SECT. 10 | 200000000000 336445000633 .UN06. VIRTUAL SECT. 11 | 200000000000 | 332626314333 .FFIL. VIRTUAL SECT. 12 | 200000000000 | 253301606060 E.1 VIRTUAL SECT. 13 200000000000 | 253302606060 E.2 VIRTUAL SECT. 14 | 200000000000 | 253303606060 E.3 VIRTUAL SECT. 15 | 200000000000 253304606060 E.4 VIRTUAL SECT. 16 | 200000000000 | 232333016060 CC.1 VIRTUAL SECT. 17 | 200000000000 | 232333026060 CC.2 VIRTUAL SECT. 18 200000000000 | 232333036060 CC.3 VIRTUAL SECT. 19 | 200000000000 | 232333046060 CC.4 VIRTUAL SECT. 20 | 200000000000 627062434623 SYSLOC VIRTUAL SECT. 21 | 200000000000 | 0$DKEND PROG1 12/01/64 PROG0106 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 04407. 1 12/01/64 PAGE 46 | | 0$DATA 1 IBLDR 12/01/64 PAGE 47 | * MEMORY MAP * | 0 | 0SYSTEM 00000 THRU 02717| FILE BLOCK ORIGIN 02720 FILES 1. UNIT05 | 2. UNIT06 | FILE LIST ORIGIN 02750| PRE-EXECUTION INITIALIZATION 02754| CALL ON OBJECT PROGRAM 02777 OBJECT PROGRAM 03004 THRU 23057| 0 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)| | 1. PROG1 03004 ...... 07375 * | 2. .LXCON 07413 .LXSTR 07413 * .LXSTP 07416 .LXOUT 07464 * .LXERR 07473 .LXCAL 07476 * .LXRTN 07476 IBEXIT 07476 * .DBCLS 07660 * .LXARG 10027 * .L0 10052 * | .CLSE 10060 .LFBL 10061 * .LUNB 10062 .DFOUT 10063 | 3. .IODEF 10067 .DEFIN 10067 .ATTAC 10073 * .CLOSE 10075 .OPEN 10077 .READ 10101 | .WRITE 10103 .BSR 10113 * .READR 10123 .RELES 10125 * .LAREA 10136 | .LFBLK 10154 .LTSX 10157 * .RLHLD 10167 * .AREA1 10172 .LUNBL 10200 .ENTRY 10204 .GOA 10241 .GO 10245 .DERR 10261 .NOPXI 10262 | .COMXI 10264 .EX34 10306 | 4. .LXSL 10313 .LXSLB 10313 * .LXSEL 10314 .LXSL1 10315 .LXTST 10320 * .LXOVL 10363 * | .LXMOD 10425 * .LXIND 10451 * .LXDIS 10454 * .LXFLG 10455 * .LTCH 10456 | 5. .FPTRP 10465 .FFPT. 10465 * .FPOUT 10614 * .FPARG 10622 * /.COUNT/ 10624 * OVFLOW 10670 * 6. .ERAS. 10675 E.1 10675 E.2 10676 E.3 10677 E.4 10700 | 7. .XCC. 10701 CC.1 10701 CC.2 10702 CC.3 10703 CC.4 10704 | 8. FXEM 10705 .FXEM. 10705 TRACE 10713 * /.OPTW./ 11250 * | 9. FCOM 11264 .FCOM. 11264 /FORCOM/ 11367 * | 10. FRDD 11401 .FRDD. 11401 .FWRD. 11404 11. FIOS 11516 .FIOS. 11516 .FSEL. 11705 .FRTB. 11722 .FRTD. 11737 /.FBF1./ 12171 * | 12. FIOH 12175 .FIOH. 12175 .FCNV. 12754 .FFIL. 13051 .FRTN. 13051 | 13. FCNV 13170 .FCON. 13170 | 14. FIOT 16256 .FIOT. 16256 .FIOE. 16347 | 15. UN05 16375 .UN05. 16375 16. UN06 16376 .UN06. 16376 ..UN06 16376 * | 17. FLOG 16377 ALOG10 16377 * ALOG 16400 | 18. FXPF 16603 EXP 16603 | 19. FSCN 16724 COS 16724 SIN 16725 | 20. FXP3 17120 .XP3. 17120 21. .IOCS 17245 .L(0) 17245 .MONSW 17265 .TEOR 17334 .DEFI. 17414 .JOINX 17460 * | .CLOS. 17477 .ATTC. 17512 .SH1 17724 * .SH9 17766 * .OPEN. 20007 | .OP4 20035 * .OP7 20066 * .OP9.2 20102 * .RLSE. 20154 .RER2. 20154 | .READ. 20155 .RER1. 20200 .WRIT. 20202 .MNT1A 20372 * .EOFEX 20453 * | .FEEIT 20523 .GTIOX 20544 .RW7 20662 * .RE7 21301 * .ENDTR 21742 .SEL59 21744 * .BSR. 22363 .EOTOF 22510 .ETOF3 22516 * .SWITC 22545 | .TCHEX 23052 .BASIO 23055 * | 22. .IOCSM 23060 | 0I/O BUFFERS 23060 THRU 77771| 0UNUSED CORE 77772 THRU 77777 0 1 PROBLEM NUMBER 1 INPUT DATA NO. OF COMPONENTS = 2 NO. OF OBSERVATIONS = 3 FLUORESCENT CODE = 1 BACKGROUND CODE = 0 LENARD COEFFICIENT = 1820.0 THETA = 27.50 0 AT. NO. AT. WT. COMP. ST. CODE DEAD TIME T.O. ANGLE 26.00000 55.85000 0. 0. 35.00000 28.00000 58.71000 0. 0. 35.00000 0 MASS ABSORPTION COEFFICIENTS 71.40000 379.60000 90.00000 58.90000 0 STANDARD INTENSITIES, INITIAL AND FINAL 5833.40002 20.30000 5833.40002 20.30000 31383.50000 61.10000 31383.50000 61.10000 0 SETS OF SPECIMEN INTENSITIES 832.10000 27065.39990 845.70000 27196.30005 0. 27196.30005 0 INCIDENT ELECTRON BEAM VOLTAGE IN KV = 30.00 CRITICAL EXCITATION POTENTIAL IN KV 7.10000 8.30000 0 EXCITATION EFFICIENCY EAB 0. 0.21500 0. 0. 1 OUTPUT DATA 0 SET NUMBER 1 ATOMIC NUMBERS SUM 26.0 28.0 0 MEASURED REL. INTENSITIES 100.17903 13.96501 86.21402 0 UNNORMALIZED WEIGHT FRACTIONS ABSORPTION COR. 1.02769 0.14058 0.88711 0 ABS. AND FLUOR. CORS. 0.98435 0.09724 0.88711 0 SET NUMBER 2 ATOMIC NUMBERS SUM 26.0 28.0 0 MEASURED REL. INTENSITIES 100.83089 14.19896 86.63193 0 UNNORMALIZED WEIGHT FRACTIONS ABSORPTION COR. 1.03455 0.14292 0.89164 0 ABS. AND FLUOR. CORS. 0.99066 0.09902 0.89164 0 SET NUMBER 3 ATOMIC NUMBERS SUM 26.0 28.0 0 MEASURED REL. INTENSITIES 100.00000 13.36807 86.63193 0 UNNORMALIZED WEIGHT FRACTIONS ABSORPTION COR. 1.00000 0.10679 0.89321 0 ABS. AND FLUOR. CORS. 1.00000 0.10679 0.89321 1 PROBLEM NUMBER 2 INPUT DATA NO. OF COMPONENTS = 2 NO. OF OBSERVATIONS = 3 FLUORESCENT CODE = 1 BACKGROUND CODE = 0 LENARD COEFFICIENT = 1820.0 THETA = 27.50 0 STANDARD INTENSITIES, INITIAL AND FINAL 5825.00000 15.30000 5825.00000 15.30000 28814.00000 55.60000 28814.00000 55.60000 0 SETS OF SPECIMEN INTENSITIES 2925.29999 14353.80005 2898.89999 14053.00000 0. 14053.00000 1 OUTPUT DATA 0 SET NUMBER 1 ATOMIC NUMBERS SUM 26.0 28.0 0 MEASURED REL. INTENSITIES 99.80699 50.08864 49.71834 0 UNNORMALIZED WEIGHT FRACTIONS ABSORPTION COR. 1.06517 0.50272 0.56245 0 ABS. AND FLUOR. CORS. 1.00961 0.44716 0.56245 0 SET NUMBER 2 ATOMIC NUMBERS SUM 26.0 28.0 0 MEASURED REL. INTENSITIES 98.30662 49.63423 48.67239 0 UNNORMALIZED WEIGHT FRACTIONS ABSORPTION COR. 1.04894 0.49830 0.55064 0 ABS. AND FLUOR. CORS. 0.99446 0.44382 0.55064 0 SET NUMBER 3 ATOMIC NUMBERS SUM 26.0 28.0 0 MEASURED REL. INTENSITIES 100.00000 51.32761 48.67239 0 UNNORMALIZED WEIGHT FRACTIONS ABSORPTION COR. 1.00000 0.44879 0.55121 0 ABS. AND FLUOR. CORS. 1.00000 0.44879 0.55121 1 2663 LINES OUTPUT. | 1 $JOB 0,5,5000 SO-POTTS,4920,D $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB MAP | $IBFTC PROG2 FULIST 1 12/01/64 PAGE 1 | PROG2 - EFN SOURCE STATEMENT - IFN(S) - | 0| C | C PROG2 C ELECTRON PROBE MICROANALYSIS - KNOWN COMPOSITIONS | C | C NPROB = PROBLEM NUMBER | C NCOMP = NUMBER OF COMPONENTS IN THE SPECIMEN | C NSPOT = NUMBER OF SPOTS C SIGMA = LENARD COEFFICIENT | C THETA = INCIDENT ELECTRON BEAM ANGLE | C NFLCD = FLUORESCENCE CORRECTION - 0 NO CORRECTION | C - 1 WITH CORRECTION | C V = ACCELERATING VOLTAGE C ATNO = ATOMIC NUMBER | C ATWT = ATOMIC WEIGHT | C VO = CRITICAL EXCITATION POTENTIAL | C PSI = TAKE OFF ANGLE | C ABSCO = MASS ABSORPTION COEFFICIENT C WTFTN = WEIGHT FRACTION OF EACH COMPONENT | C EAB = EXCITATION EFFICIENCY | DIMENSION ATNO(10),ATWT(10),VO(10),PSI(10),ABSCO(10,10), | 1 WTFTN(50,10),CSC(10),F100A(10),SABSC(10),FA(10),FCT(10), | 2 RINT1(10),RINT2(10),EAB(10,10) C | C INPUT DATA | C | 1 READ (5,2) NPROB,NCOMP,NSPOT,SIGMA,THETA,V,NFLCD 1 | 2 FORMAT (5X,3I5,3F10.3,I5) READ (5,3) (ATNO(I),ATWT(I),PSI(I),I=1,NCOMP) 6 | 3 FORMAT (3F10.3) | DO 5 I = 1,NCOMP | READ (5,4) (ABSCO(I,J),J=1,NCOMP) 17 | 4 FORMAT (7F10.3) 5 CONTINUE | DO 6 I = 1,NSPOT | READ (5,4) (WTFTN(I,J),J=1,NCOMP) 27 | 6 CONTINUE | IF (NFLCD) 10,10,7 7 READ (5,4) (VO(I),I=1,NCOMP) 36 | DO 9 I = 1,NCOMP | READ (5,4) (EAB(I,J),J=1,NCOMP) 45 | 9 CONTINUE | C C CALCULATE ABSORPTION CORRECTION TERMS | C | C | C CALCULATE F100A(CHI) OF EACH ELEMENT IN THE STANDARD | C 10 DO 11 I = 1,NCOMP | CSC(I) = COS(THETA/57.2958) / SIN(PSI(I)/57.2958) 57 59 | CHI = ABSCO(I,I) * CSC(I) | H = 1.2 * ATWT(I) / (ATNO(I)**2) | F100A(I) = 1.0/((1.0+CHI/SIGMA) * (1.0+H*(1.0+CHI/SIGMA))) 11 CONTINUE | C | C ITERATION FOR EACH SPOT | 1 12/01/64 PAGE 2 | PROG2 - EFN SOURCE STATEMENT - IFN(S) - 0C | DO 50 L = 1,NSPOT | C | C CALCULATE FA(CHI) OF EACH ELEMENT IN THE SPECIMEN | C DO 14 I = 1,NCOMP | SABSC(I) = 0.0 | DO 12 J = 1,NCOMP | SABSC(I) = SABSC(I) + WTFTN(L,J)*ABSCO(J,I) | 12 CONTINUE SATNO = 0.0 | SATWT = 0.0 | DO 13 J = 1,NCOMP | SATNO = SATNO + ATNO(J) * WTFTN(L,J) | SATWT = SATWT + ATWT(J) * WTFTN(L,J) 13 CONTINUE | H = 1.2 * SATWT/ (SATNO**2) | SCHI = SABSC(I) * CSC(I) | FA(I) = 1.0/((1.0+SCHI/SIGMA) * (1.0+H*(1.0+SCHI/SIGMA))) | 14 CONTINUE C | C CALCULATE FLUORESCENCE CORRECTION TERM - FCT(I) | C | IF (NFLCD) 19,19,16 | 16 DO 18 I = 1,NCOMP FCT(I) = 0.0 | DO 18 J = 1,NCOMP | FCT(I) = FCT(I) + 0.6*EAB(I,J)*WTFTN(L,J)*(ABSCO(I,J)/SABSC(J)) | 1 *(V-VO(J))**1.65/((V-VO(I))**1.65) 108 109 | 18 CONTINUE C | C CALCULATE MEASURED RELATIVE INTENSITIES | C | 19 SRIN1 = 0.0 | SRIN2 = 0.0 SWTFT = 0.0 | DO 20 I = 1,NCOMP | RINT1(I) = WTFTN(L,I) * FA(I) * 100.0 / F100A(I) | RINT2(I) = WTFTN(L,I) * (1.0+FCT(I)) * FA(I) * 100.0 / F100A(I) | SRIN1 = SRIN1 + RINT1(I) SRIN2 = SRIN2 + RINT2(I) | SWTFT = SWTFT + WTFTN(L,I) | 20 CONTINUE | C | C OUTPUT C | IF (L - 1) 25,25,38 | 25 WRITE (6,26) NPROB,NCOMP,NSPOT,SIGMA,THETA,V,NFLCD 135 | 26 FORMAT (1H1,16H PROBLEM NUMBER I6 // 5X,12H INPUT DATA // 10X, | 1 23H NUMBER OF COMPONENTS = I4 // 10X,18H NUMBER OF SPOTS = 2 I4 // 10X,28H LENARD COEFFICIENT, SIGMA = F7.1 // 10X, | 3 31H INCIDENT ELECTRON BEAM ANGLE = F6.2 // | 4 10X,24H ELECTRON BEAM VOLTAGE = F6.2 // 10X, | 5 31H FLUORESCENCE CORRECTION CODE = I3 //) | WRITE (6,27) 136 27 FORMAT (1H0,12X,9H AT. NO. ,11X,9H AT. WT. ,10X,11H T.O. ANGLE //) | 1 12/01/64 PAGE 3 | PROG2 - EFN SOURCE STATEMENT - IFN(S) - | 0 WRITE (6,28) (ATNO(I),ATWT(I),PSI(I),I=1,NCOMP) 137 | 28 FORMAT (3F20.2) WRITE (6,29) 144 | 29 FORMAT (1H0,10X,30H MASS ABSORPTION COEFFICIENTS //) | DO 31 I = 1,NCOMP | WRITE (6,30) (ABSCO(I,J),J=1,NCOMP) 146 | 30 FORMAT (5F20.5) 31 CONTINUE | WRITE (6,32) 152 | 32 FORMAT (1H0,10X,34H WEIGHT FRACTION OF EACH COMPONENT //) | DO 33 I = 1,NSPOT | WRITE (6,30) (WTFTN(I,J),J=1,NCOMP) 154 33 CONTINUE | IF (NFLCD) 355,355,34 | 34 WRITE (6,342) (VO(I),I=1,NCOMP) 162 | 342 FORMAT (1H0,10X,37H CRITICAL EXCITATION POTENTIALS IN KV // | 1 6F20.2 ) WRITE (6,344) 167 | 344 FORMAT (1H0,10X,22H EXCITATION EFFICIENCY //) | DO 35 I = 1,NCOMP | WRITE (6,30) (EAB(I,J),J=1,NCOMP) 169 | 35 CONTINUE 355 WRITE (6,36) 176 | 36 FORMAT (1H1,12H OUTPUT DATA //) | 38 WRITE (6,39) L 177 | 39 FORMAT (1H0,5X,12H SPOT NUMBER I3) | 40 WRITE (6,41) (ATNO(I),I=1,NCOMP) 178 41 FORMAT (1H0, 15H ATOMIC NUMBERS,34X,4F20.1 // | 1 51X,4F20.5 // 51X,2F20.5 //) | WRITE (6,46) SWTFT,(WTFTN(L,I),I=1,NCOMP) 183 | 46 FORMAT (1H0,16H WEIGHT FRACTION,14X, 5F20.5 // 51X,4F20.5 // | 1 51X,2F20.5 //) WRITE (6,47) SRIN1,(RINT1(I),I=1,NCOMP) 188 | 47 FORMAT (1H0,21H REL. INT., ABS. COR.,9X,5F20.3 // 51X, 4F20.3 // | 1 51X,2F20.3 //) | IF (NFLCD) 50,50,48 | 48 WRITE (6,49) SRIN2,(RINT2(I),I=1,NCOMP) 194 49 FORMAT (1H0,30H REL. INT., ABS. AND FL. CORS.,5F20.3 // 51X,4F20.3 | 1 // 51X,2F20.3 ////) | 50 CONTINUE | GO TO 1 | END 1 12/01/64 PAGE 4 | PROG2 STORAGE MAP | 0 MAIN PROGRAM | - DIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE ATNO 00001 R ATWT 00013 R VO 00025 R | PSI 00037 R ABSCO 00051 R WTFTN 00215 R | CSC 01201 R F100A 01213 R SABSC 01225 R | FA 01237 R FCT 01251 R RINT1 01263 R | RINT2 01275 R EAB 01307 R - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NPROB 01453 I NCOMP 01454 I NSPOT 01455 I | SIGMA 01456 R THETA 01457 R V 01460 R | NFLCD 01461 I I 01462 I CHI 01463 R H 01464 R L 01465 I SATNO 01466 R | SATWT 01467 R SCHI 01470 R SRIN1 01471 R | SRIN2 01472 R SWTFT 01473 R | - ENTRY POINTS | 0 ...... SECTION 2 - SUBROUTINES CALLED | 0 .FRDD. SECTION 3 COS SECTION 4 SIN SECTION 5 | .XP3. SECTION 6 .FWRD. SECTION 7 .UN05. SECTION 8 | .FRTN. SECTION 9 .FCNV. SECTION 10 .UN06. SECTION 11 | .FFIL. SECTION 12 SYSLOC SECTION 13 - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 1 1A 02012 2 FORMAT 01515 3 FORMAT 01520 | 5 22A 02114 4 FORMAT 01522 6 32A 02152 | 10 53A 02233 7 36A 02157 9 50A 02231 11 67A 02313 50 199A 03242 14 95A 02522 | 12 82A 02446 13 90A 02466 19 117A 02634 | 16 98A 02530 18 114A 02622 20 132A 02675 | 25 135A 02705 38 177A 03137 26 FORMAT 01524 | 27 FORMAT 01622 28 FORMAT 01634 29 FORMAT 01636 31 151A 03012 30 FORMAT 01646 32 FORMAT 01650 | 33 159A 03051 355 176A 03131 34 162A 03057 | 342 FORMAT 01661 344 FORMAT 01676 35 174A 03126 | 36 FORMAT 01705 39 FORMAT 01712 40 178A 03147 | 41 FORMAT 01717 46 FORMAT 01737 47 FORMAT 01755 48 194A 03225 49 FORMAT 01773 | 1 12/01/64 PAGE 5 | PROG2 ASSEMBLY LISTING | 0| 0$IBLDR PROG2 12/01/64 PROG0000 0$TEXT PROG2 12/01/64 PROG0001 | 00000 002000002000 10011 TRA ...... | 01474 100000001474 00001 ORG 828 | 01474 000000000001 10000 C.0 OCT 000000000001 | 01475 000000000000 10000 C.1 OCT 000000000000 01476 000000000000 10000 C.2 OCT 000000000000 | 01477 000000000001 10000 C.3 OCT 000000000001 | 01500 206712273462 10000 C.4 OCT 206712273462 | 01501 201463146315 10000 C.5 OCT 201463146315 | 01502 000000000002 10000 C.6 OCT 000000000002 01503 201400000000 10000 C.7 OCT 201400000000 | 01504 200463146315 10000 C.8 OCT 200463146315 | 01505 201646314632 10000 C.9 OCT 201646314632 | 01506 207620000000 10000 C.10 OCT 207620000000 | 01507 000001200000 10000 C.11 OCT 000001200000 01510 000000000000 10000 RD. OCT 000000000000 | 01511 000000000000 10000 OCT 000000000000 | 01512 200000000003 00001 N. BSS 3 | 01515 740567730331 10000 2. BCI 1,(5X,3I | 01516 057303260100 10000 BCI 1,5,3F10 01517 330373310534 10000 BCI 1,.3,I5) | 01520 740326010033 10000 3. BCI 1,(3F10. | 01521 033460606060 10000 BCI 1,3) | 01522 740726010033 10000 4. BCI 1,(7F10. | 01523 033460606060 10000 BCI 1,3) 01524 740130017301 10000 26. BCI 1,(1H1,1 | 01525 063060475146 10000 BCI 1,6H PRO | 01526 224325446045 10000 BCI 1,BLEM N | 01527 644422255160 10000 BCI 1,UMBER | 01530 310660616160 10000 BCI 1,I6 // 01531 056773010230 10000 BCI 1,5X,12H | 01532 603145476463 10000 BCI 1, INPUT | 01533 602421632160 10000 BCI 1, DATA | 01534 616160010067 10000 BCI 1,// 10X | 01535 736060606060 10000 BCI 1,, 01536 606060606060 10000 BCI 1, | 01537 020330604564 10000 BCI 1,23H NU | 01540 442225516046 10000 BCI 1,MBER O | 01541 266023464447 10000 BCI 1,F COMP | 01542 464525456362 10000 BCI 1,ONENTS 01543 601360310460 10000 BCI 1, = I4 | 01544 616160010067 10000 BCI 1,// 10X | 01545 730110306045 10000 BCI 1,,18H N | 01546 644422255160 10000 BCI 1,UMBER | 01547 462660624746 10000 BCI 1,OF SPO 01550 636260136060 10000 BCI 1,TS = | 01551 606060606060 10000 BCI 1, | 01552 310460616160 10000 BCI 1,I4 // | 01553 010067730210 10000 BCI 1,10X,28 | 01554 306043254521 10000 BCI 1,H LENA 01555 512460234625 10000 BCI 1,RD COE | 01556 262631233125 10000 BCI 1,FFICIE | 1 12/01/64 PAGE 6 | PROG2 ASSEMBLY LISTING | 0 01557 456373606231 10000 BCI 1,NT, SI 01560 274421601360 10000 BCI 1,GMA = | 01561 260733016061 10000 BCI 1,F7.1 / | 01562 616001006773 10000 BCI 1,/ 10X, | 01563 606060606060 10000 BCI 1, | 01564 606060606060 10000 BCI 1, 01565 030130603145 10000 BCI 1,31H IN | 01566 233124254563 10000 BCI 1,CIDENT | 01567 602543252363 10000 BCI 1, ELECT | 01570 514645602225 10000 BCI 1,RON BE | 01571 214460214527 10000 BCI 1,AM ANG 01572 432560136026 10000 BCI 1,LE = F | 01573 063302606161 10000 BCI 1,6.2 // | 01574 606060606060 10000 BCI 1, | 01575 606060606060 10000 BCI 1, | 01576 606060606060 10000 BCI 1, 01577 606060606060 10000 BCI 1, | 01600 010067730204 10000 BCI 1,10X,24 | 01601 306025432523 10000 BCI 1,H ELEC | 01602 635146456022 10000 BCI 1,TRON B | 01603 252144606546 10000 BCI 1,EAM VO 01604 436321272560 10000 BCI 1,LTAGE | 01605 136026063302 10000 BCI 1,= F6.2 | 01606 606061616001 10000 BCI 1, // 1 | 01607 006773606060 10000 BCI 1,0X, | 01610 606060606060 10000 BCI 1, 01611 606060606060 10000 BCI 1, | 01612 606060606060 10000 BCI 1, | 01613 030130602643 10000 BCI 1,31H FL | 01614 644651256223 10000 BCI 1,UORESC | 01615 254523256023 10000 BCI 1,ENCE C 01616 465151252363 10000 BCI 1,ORRECT | 01617 314645602346 10000 BCI 1,ION CO | 01620 242560136031 10000 BCI 1,DE = I | 01621 036061613460 10000 BCI 1,3 //) | 01622 740130007301 10000 27. BCI 1,(1H0,1 01623 026773113060 10000 BCI 1,2X,9H | 01624 216333604546 10000 BCI 1,AT. NO | 01625 336073010167 10000 BCI 1,. ,11X | 01626 731130602163 10000 BCI 1,,9H AT | 01627 336066633360 10000 BCI 1,. WT. 01630 730100677301 10000 BCI 1,,10X,1 | 01631 013060633346 10000 BCI 1,1H T.O | 01632 336021452743 10000 BCI 1,. ANGL | 01633 256061613460 10000 BCI 1,E //) | 01634 740326020033 10000 28. BCI 1,(3F20. 01635 023460606060 10000 BCI 1,2) | 01636 740130007301 10000 29. BCI 1,(1H0,1 | 01637 006773030030 10000 BCI 1,0X,30H | 01640 604421626260 10000 BCI 1, MASS | 01641 212262465147 10000 BCI 1,ABSORP 01642 633146456023 10000 BCI 1,TION C | 01643 462526263123 10000 BCI 1,OEFFIC | 01644 312545636260 10000 BCI 1,IENTS | 01645 606161346060 10000 BCI 1, //) | 01646 740526020033 10000 30. BCI 1,(5F20. 1 12/01/64 PAGE 7 | PROG2 ASSEMBLY LISTING | 0 01647 053460606060 10000 BCI 1,5) | 01650 740130007301 10000 32. BCI 1,(1H0,1 | 01651 006773030430 10000 BCI 1,0X,34H 01652 606625312730 10000 BCI 1, WEIGH | 01653 636026512123 10000 BCI 1,T FRAC | 01654 633146456046 10000 BCI 1,TION O | 01655 266025212330 10000 BCI 1,F EACH | 01656 602346444746 10000 BCI 1, COMPO 01657 452545636060 10000 BCI 1,NENT | 01660 616134606060 10000 BCI 1,//) | 01661 740130007301 10000 342. BCI 1,(1H0,1 | 01662 006773030730 10000 BCI 1,0X,37H | 01663 602351316331 10000 BCI 1, CRITI 01664 232143602567 10000 BCI 1,CAL EX | 01665 233163216331 10000 BCI 1,CITATI | 01666 464560474663 10000 BCI 1,ON POT | 01667 254563312143 10000 BCI 1,ENTIAL | 01670 626031456042 10000 BCI 1,S IN K 01671 656061616060 10000 BCI 1,V // | 01672 606060606060 10000 BCI 1, | 01673 606060606060 10000 BCI 1, | 01674 600626020033 10000 BCI 1, 6F20. | 01675 026034606060 10000 BCI 1,2 ) 01676 740130007301 10000 344. BCI 1,(1H0,1 | 01677 006773020230 10000 BCI 1,0X,22H | 01700 602567233163 10000 BCI 1, EXCIT | 01701 216331464560 10000 BCI 1,ATION | 01702 252626312331 10000 BCI 1,EFFICI 01703 254523706060 10000 BCI 1,ENCY | 01704 616134606060 10000 BCI 1,//) | 01705 740130017301 10000 36. BCI 1,(1H1,1 | 01706 023060466463 10000 BCI 1,2H OUT | 01707 476463602421 10000 BCI 1,PUT DA 01710 632160606161 10000 BCI 1,TA // | 01711 346060606060 10000 BCI 1,) | 01712 740130007305 10000 39. BCI 1,(1H0,5 | 01713 677301023060 10000 BCI 1,X,12H | 01714 624746636045 10000 BCI 1,SPOT N 01715 644422255160 10000 BCI 1,UMBER | 01716 310334606060 10000 BCI 1,I3) | 01717 740130007360 10000 41. BCI 1,(1H0, | 01720 606001053060 10000 BCI 1, 15H | 01721 216346443123 10000 BCI 1,ATOMIC 01722 604564442225 10000 BCI 1, NUMBE | 01723 516273030467 10000 BCI 1,RS,34X | 01724 730426020033 10000 BCI 1,,4F20. | 01725 016061616060 10000 BCI 1,1 // | 01726 606060606060 10000 BCI 1, 01727 606060606060 10000 BCI 1, | 01730 606060606060 10000 BCI 1, | 01731 606060606060 10000 BCI 1, | 01732 600501677304 10000 BCI 1, 51X,4 | 01733 260200330560 10000 BCI 1,F20.5 01734 616160050167 10000 BCI 1,// 51X | 01735 730226020033 10000 BCI 1,,2F20. | 01736 056060616134 10000 BCI 1,5 //) | 1 12/01/64 PAGE 8 | PROG2 ASSEMBLY LISTING 0 01737 740130007301 10000 46. BCI 1,(1H0,1 | 01740 063060662531 10000 BCI 1,6H WEI | 01741 273063602651 10000 BCI 1,GHT FR | 01742 212363314645 10000 BCI 1,ACTION | 01743 730104677360 10000 BCI 1,,14X, 01744 606005260200 10000 BCI 1, 5F20 | 01745 330560616160 10000 BCI 1,.5 // | 01746 050167730426 10000 BCI 1,51X,4F | 01747 020033056061 10000 BCI 1,20.5 / | 01750 616060606060 10000 BCI 1,/ 01751 606060606060 10000 BCI 1, | 01752 050167730226 10000 BCI 1,51X,2F | 01753 020033056060 10000 BCI 1,20.5 | 01754 616134606060 10000 BCI 1,//) | 01755 740130007302 10000 47. BCI 1,(1H0,2 01756 013060512543 10000 BCI 1,1H REL | 01757 336031456333 10000 BCI 1,. INT. | 01760 736021226233 10000 BCI 1,, ABS. | 01761 602346513373 10000 BCI 1, COR., | 01762 116773052602 10000 BCI 1,9X,5F2 01763 003303606161 10000 BCI 1,0.3 // | 01764 600501677360 10000 BCI 1, 51X, | 01765 042602003303 10000 BCI 1,4F20.3 | 01766 606161606060 10000 BCI 1, // | 01767 606060606060 10000 BCI 1, 01770 600501677302 10000 BCI 1, 51X,2 | 01771 260200330360 10000 BCI 1,F20.3 | 01772 606161346060 10000 BCI 1, //) | 01773 740130007303 10000 49. BCI 1,(1H0,3 | 01774 003060512543 10000 BCI 1,0H REL 01775 336031456333 10000 BCI 1,. INT. | 01776 736021226233 10000 BCI 1,, ABS. | 01777 602145246026 10000 BCI 1, AND F | 02000 433360234651 10000 BCI 1,L. COR | 02001 623373052602 10000 BCI 1,S.,5F2 02002 003303606161 10000 BCI 1,0.3 // | 02003 600501677304 10000 BCI 1, 51X,4 | 02004 260200330360 10000 BCI 1,F20.3 | 02005 606060606060 10000 BCI 1, | 02006 606161600501 10000 BCI 1, // 51 02007 677302260200 10000 BCI 1,X,2F20 | 02010 330360606161 10000 BCI 1,.3 // | 02011 616134606060 10000 BCI 1,//) | 02012 007400403000 10011 1A TSX .FRDD.,4 | 02013 100002002017 10001 TXI *+4,,2 02014 003245000001 10100 PZE 1,,LK.DR | 02015 000000010000 10011 PZE .UN05. | 02016 000000001515 10001 PZE 2. | 02017 007400412000 10011 TSX .FCNV.,4 | 02020 060100001453 10001 STO NPROB 02021 007400412000 10011 2A TSX .FCNV.,4 | 02022 060100001454 10001 STO NCOMP | 02023 007400412000 10011 3A TSX .FCNV.,4 | 02024 060100001455 10001 STO NSPOT | 02025 007400412000 10011 4A TSX .FCNV.,4 02026 060100001456 10001 STO SIGMA | 1 12/01/64 PAGE 9 | PROG2 ASSEMBLY LISTING | 0 02027 007400412000 10011 TSX .FCNV.,4 | 02030 060100001457 10001 STO THETA 02031 007400412000 10011 TSX .FCNV.,4 | 02032 060100001460 10001 STO V | 02033 007400412000 10011 TSX .FCNV.,4 | 02034 060100001461 10001 STO NFLCD | 02035 007400411000 10011 5A TSX .FRTN.,4 02036 007400403000 10011 6A TSX .FRDD.,4 | 02037 100002002043 10001 TXI *+4,,2 | 02040 003245000006 10100 PZE 6,,LK.DR | 02041 000000010000 10011 PZE .UN05. | 02042 000000001520 10001 PZE 3. 02043 7A NULL | 02043 053500401454 10001 8A LAC NCOMP,4 | 02044 177777402045 10001 TXI *+1,4,-1 | 02045 463400402056 10001 SXD 13A+1,4 | 02046 477400100001 10000 9A AXC 1,1 02047 007400412000 10011 TSX .FCNV.,4 | 02050 060100100000 10011 10A STO ATNO-1,1 | 100001700001 10001 | 02051 007400412000 10011 TSX .FCNV.,4 | 02052 060100100012 10001 11A STO ATWT-1,1 02053 007400412000 10011 TSX .FCNV.,4 | 02054 060100100036 10001 12A STO PSI-1,1 | 02055 177777102056 10001 13A TXI *+1,1,-1 | 02056 300000102047 10001 TXH 9A+1,1,** | 02057 007400411000 10011 14A TSX .FRTN.,4 02060 15A NULL | 02060 053500401454 10001 16A LAC NCOMP,4 | 02061 177777402062 10001 TXI *+1,4,-1 | 02062 463400402115 10001 SXD 23A+1,4 | 02063 053500401454 10001 LAC NCOMP,4 02064 177777402065 10001 TXI *+1,4,-1 | 02065 463400402111 10001 SXD 21A+2,4 | 02066 477400100001 10000 17A AXC 1,1 | 02067 060000001462 10001 STZ I | 02070 063400102071 10001 SXA *+1,1 02071 477400400000 10000 AXC **,4 | 02072 063400401462 10001 SXA I,4 | 02073 007400403000 10011 TSX .FRDD.,4 | 02074 100002002100 10001 TXI *+4,,2 | 02075 003245000021 10100 PZE 17,,LK.DR 02076 000000010000 10011 PZE .UN05. | 02077 000000001522 10001 PZE 4. | 02100 053400401462 10001 18A LXA I,4 | 02101 100036402102 10101 TXI *+1,4,ABSCO-11 | 02102 063400402106 10001 SXA 20A,4 02103 477400200001 10000 19A AXC 1,2 | 02104 477400100012 10000 AXC 10,1 | 02105 007400412000 10011 TSX .FCNV.,4 | 02106 060100100000 10000 20A STO **,1 | 02107 177777202110 10001 21A TXI *+1,2,-1 02110 177766102111 10001 TXI *+1,1,-10 | 02111 300000202105 10001 TXH 19A+2,2,** | 02112 053500101462 10001 LAC I,1 | 02113 007400411000 10011 TSX .FRTN.,4 | 1 12/01/64 PAGE 10 PROG2 ASSEMBLY LISTING | 0 02114 22A NULL | 02114 177777102115 10001 23A TXI *+1,1,-1 | 02115 300000102070 10001 TXH 17A+2,1,** | 02116 24A NULL 02116 25A NULL | 02116 053500401455 10001 26A LAC NSPOT,4 | 02117 177777402120 10001 TXI *+1,4,-1 | 02120 463400402153 10001 SXD 33A+1,4 | 02121 053500401454 10001 LAC NCOMP,4 02122 177777402123 10001 TXI *+1,4,-1 | 02123 463400402147 10001 SXD 31A+2,4 | 02124 477400100001 10000 27A AXC 1,1 | 02125 060000001462 10001 STZ I | 02126 063400102127 10001 SXA *+1,1 02127 477400400000 10000 AXC **,4 | 02130 063400401462 10001 SXA I,4 | 02131 007400403000 10011 TSX .FRDD.,4 | 02132 100002002136 10001 TXI *+4,,2 | 02133 003245000033 10100 PZE 27,,LK.DR 02134 000000010000 10011 PZE .UN05. | 02135 000000001522 10001 PZE 4. | 02136 053400401462 10001 28A LXA I,4 | 02137 100132402140 10101 TXI *+1,4,WTFTN-51 | 02140 063400402144 10001 SXA 30A,4 02141 477400200001 10000 29A AXC 1,2 | 02142 477400100062 10000 AXC 50,1 | 02143 007400412000 10011 TSX .FCNV.,4 | 02144 060100100000 10000 30A STO **,1 | 02145 177777202146 10001 31A TXI *+1,2,-1 02146 177716102147 10001 TXI *+1,1,-50 | 02147 300000202143 10001 TXH 29A+2,2,** | 02150 053500101462 10001 LAC I,1 | 02151 007400411000 10011 TSX .FRTN.,4 | 02152 32A NULL 02152 177777102153 10001 33A TXI *+1,1,-1 | 02153 300000102126 10001 TXH 27A+2,1,** | 02154 050000001461 10001 34A CLA NFLCD | 02155 010000002233 10001 35A TZE 53A | 02156 412000002233 10001 TMI 53A 02157 007400403000 10011 36A TSX .FRDD.,4 | 02160 100002002164 10001 TXI *+4,,2 | 02161 003245000044 10100 PZE 36,,LK.DR | 02162 000000010000 10011 PZE .UN05. | 02163 000000001522 10001 PZE 4. 02164 37A NULL | 02164 053500401454 10001 38A LAC NCOMP,4 | 02165 177777402166 10001 TXI *+1,4,-1 | 02166 463400402173 10001 SXD 41A+1,4 | 02167 477400100001 10000 39A AXC 1,1 02170 007400412000 10011 TSX .FCNV.,4 | 02171 060100100024 10001 40A STO VO-1,1 | 02172 177777102173 10001 41A TXI *+1,1,-1 | 02173 300000102170 10001 TXH 39A+1,1,** | 02174 007400411000 10011 42A TSX .FRTN.,4 02175 43A NULL | 02175 053500401454 10001 44A LAC NCOMP,4 | 1 12/01/64 PAGE 11 | PROG2 ASSEMBLY LISTING | 0 02176 177777402177 10001 TXI *+1,4,-1 02177 463400402232 10001 SXD 51A+1,4 | 02200 053500401454 10001 LAC NCOMP,4 | 02201 177777402202 10001 TXI *+1,4,-1 | 02202 463400402226 10001 SXD 49A+2,4 | 02203 477400100001 10000 45A AXC 1,1 02204 060000001462 10001 STZ I | 02205 063400102206 10001 SXA *+1,1 | 02206 477400400000 10000 AXC **,4 | 02207 063400401462 10001 SXA I,4 | 02210 007400403000 10011 TSX .FRDD.,4 02211 100002002215 10001 TXI *+4,,2 | 02212 003245000055 10100 PZE 45,,LK.DR | 02213 000000010000 10011 PZE .UN05. | 02214 000000001522 10001 PZE 4. | 02215 053400401462 10001 46A LXA I,4 02216 101274402217 10101 TXI *+1,4,EAB-11 | 02217 063400402223 10001 SXA 48A,4 | 02220 477400200001 10000 47A AXC 1,2 | 02221 477400100012 10000 AXC 10,1 | 02222 007400412000 10011 TSX .FCNV.,4 02223 060100100000 10000 48A STO **,1 | 02224 177777202225 10001 49A TXI *+1,2,-1 | 02225 177766102226 10001 TXI *+1,1,-10 | 02226 300000202222 10001 TXH 47A+2,2,** | 02227 053500101462 10001 LAC I,1 02230 007400411000 10011 TSX .FRTN.,4 | 02231 50A NULL | 02231 177777102232 10001 51A TXI *+1,1,-1 | 02232 300000102205 10001 TXH 45A+2,1,** | 02233 52A NULL 02233 53A NULL | 02233 54A NULL | 02233 053500401454 10001 55A LAC NCOMP,4 | 02234 177777402235 10001 TXI *+1,4,-1 | 02235 463400402315 10001 SXD 68A+2,4 02236 477400100001 10000 56A AXC 1,1 | 02237 477400200013 10000 AXC 11,2 | 02240 050000001457 10001 CLA THETA | 02241 024100001500 10001 FDP C.4 | 02242 460000001512 10001 STQ N. 02243 007400404000 10011 57A TSX COS,4 | 02244 100001002247 10001 TXI *+3,,1 | 02245 003245000071 10100 PZE 57,,LK.DR | 02246 000000001512 10001 PZE N. | 02247 060100001512 10001 STO N. 02250 050000100036 10001 58A CLA PSI-1,1 | 02251 024100001500 10001 FDP C.4 | 02252 460000001513 10001 STQ N.+1 | 02253 007400405000 10011 59A TSX SIN,4 | 02254 100001002257 10001 TXI *+3,,1 02255 003245000073 10100 PZE 59,,LK.DR | 02256 000000001513 10001 PZE N.+1 | 02257 060100001513 10001 STO N.+1 | 02260 050000001512 10001 CLA N. | 02261 024100001513 10001 FDP N.+1 1 12/01/64 PAGE 12 | PROG2 ASSEMBLY LISTING | 0 02262 460000101200 10001 60A STQ CSC-1,1 | 02263 056000200036 10001 61A LDQ ABSCO-11,2 | 02264 026000101200 10001 62A FMP CSC-1,1 02265 060100001463 10001 STO CHI | 02266 056000100000 10011 63A LDQ ATNO-1,1 | 100001700001 10001 | 02267 026000100000 10011 64A FMP ATNO-1,1 | 100001700001 10001 02270 060100001512 10001 STO N. | 02271 056000100012 10001 65A LDQ ATWT-1,1 | 02272 026000001501 10001 FMP C.5 | 02273 024100001512 10001 FDP N. | 02274 460000001464 10001 STQ H 02275 050000001463 10001 CLA CHI | 02276 024100001456 10001 FDP SIGMA | 02277 013100000000 10000 XCA | 02300 030000001503 10001 FAD C.7 | 02301 060100001512 10001 STO N. 02302 013100000000 10000 XCA | 02303 026000001464 10001 FMP H | 02304 030000001503 10001 FAD C.7 | 02305 013100000000 10000 XCA | 02306 026000001512 10001 FMP N. 02307 060100001512 10001 STO N. | 02310 050000001503 10001 CLA C.7 | 02311 024100001512 10001 FDP N. | 02312 460000101212 10001 66A STQ F100A-1,1 | 02313 67A NULL 02313 177777102314 10001 68A TXI *+1,1,-1 | 02314 177765202315 10001 TXI *+1,2,-11 | 02315 300000102240 10001 TXH 56A+2,1,** | 02316 69A NULL | 02316 70A NULL 02316 053500401455 10001 71A LAC NSPOT,4 | 02317 177777402320 10001 TXI *+1,4,-1 | 02320 463400403243 10001 SXD 200A+1,4 | 02321 053500401454 10001 LAC NCOMP,4 | 02322 177777402323 10001 TXI *+1,4,-1 02323 463400402523 10001 SXD 96A+1,4 | 02324 053500401454 10001 LAC NCOMP,4 | 02325 177777402326 10001 TXI *+1,4,-1 | 02326 463400402450 10001 SXD 83A+2,4 | 02327 053500401454 10001 LAC NCOMP,4 02330 177777402331 10001 TXI *+1,4,-1 | 02331 463400402470 10001 SXD 91A+2,4 | 02332 053500401454 10001 LAC NCOMP,4 | 02333 177777402334 10001 TXI *+1,4,-1 | 02334 463400402632 10001 SXD 116A+1,4 02335 053500401454 10001 LAC NCOMP,4 | 02336 177777402337 10001 TXI *+1,4,-1 | 02337 463400402627 10001 SXD 115A+5,4 | 02340 053500401454 10001 LAC NCOMP,4 | 02341 177777402342 10001 TXI *+1,4,-1 02342 463400402677 10001 SXD 133A+2,4 | 02343 053500401454 10001 LAC NCOMP,4 | 02344 177777402345 10001 TXI *+1,4,-1 | 1 12/01/64 PAGE 13 | PROG2 ASSEMBLY LISTING 0 02345 463400402754 10001 SXD 143A+1,4 | 02346 053500401454 10001 LAC NCOMP,4 | 02347 177777402350 10001 TXI *+1,4,-1 | 02350 463400403013 10001 SXD 152A+1,4 | 02351 053500401454 10001 LAC NCOMP,4 02352 177777402353 10001 TXI *+1,4,-1 | 02353 463400403007 10001 SXD 150A+2,4 | 02354 053500401455 10001 LAC NSPOT,4 | 02355 177777402356 10001 TXI *+1,4,-1 | 02356 463400403052 10001 SXD 160A+1,4 02357 053500401454 10001 LAC NCOMP,4 | 02360 177777402361 10001 TXI *+1,4,-1 | 02361 463400403046 10001 SXD 158A+2,4 | 02362 053500401454 10001 LAC NCOMP,4 | 02363 177777402364 10001 TXI *+1,4,-1 02364 463400403070 10001 SXD 166A+1,4 | 02365 053500401454 10001 LAC NCOMP,4 | 02366 177777402367 10001 TXI *+1,4,-1 | 02367 463400403127 10001 SXD 175A+1,4 | 02370 053500401454 10001 LAC NCOMP,4 02371 177777402372 10001 TXI *+1,4,-1 | 02372 463400403123 10001 SXD 173A+2,4 | 02373 053500401454 10001 LAC NCOMP,4 | 02374 177777402375 10001 TXI *+1,4,-1 | 02375 463400403160 10001 SXD 182A+1,4 02376 053500401454 10001 LAC NCOMP,4 | 02377 177777402400 10001 TXI *+1,4,-1 | 02400 463400403202 10001 SXD 187A+2,4 | 02401 053500401454 10001 LAC NCOMP,4 | 02402 177777402403 10001 TXI *+1,4,-1 02403 463400403220 10001 SXD 192A+1,4 | 02404 053500401454 10001 LAC NCOMP,4 | 02405 177777402406 10001 TXI *+1,4,-1 | 02406 463400403240 10001 SXD 198A+1,4 | 02407 477400100001 10000 72A AXC 1,1 02410 060000001465 10001 STZ L | 02411 063400102412 10001 SXA *+1,1 | 02412 477400400000 10000 AXC **,4 | 02413 063400401465 10001 SXA L,4 | 02414 053400401465 10001 73A LXA L,4 02415 100132402416 10101 TXI *+1,4,WTFTN-51 | 02416 063400402443 10001 SXA 79A,4 | 02417 063400402457 10001 SXA 87A,4 | 02420 063400402463 10001 SXA 89A,4 | 02421 477400200001 10000 74A AXC 1,2 02422 060000001462 10001 STZ I | 02423 063400202424 10001 SXA *+1,2 | 02424 477400400000 10000 AXC **,4 | 02425 063400401462 10001 SXA I,4 | 02426 060000201224 10001 75A STZ SABSC-1,2 02427 053400401462 10001 76A LXA I,4 | 02430 101224402431 10101 TXI *+1,4,SABSC-1 | 02431 063400402444 10001 SXA 80A,4 | 02432 063400402445 10001 SXA 81A,4 | 02433 056000001462 10001 LDQ I 02434 020417001507 10001 VLM C.11,,15 | 1 12/01/64 PAGE 14 | PROG2 ASSEMBLY LISTING | 0 02435 073400400000 10000 PAX 0,4 | 02436 100036402437 10101 TXI *+1,4,ABSCO-11 02437 063400402442 10001 SXA 78A,4 | 02440 477400100001 10000 77A AXC 1,1 | 02441 477400200062 10000 AXC 50,2 | 02442 056000100000 10000 78A LDQ **,1 | 02443 026000200000 10000 79A FMP **,2 02444 030000000000 10000 80A FAD ** | 02445 060100000000 10000 81A STO ** | 02446 82A NULL | 02446 177777102447 10001 83A TXI *+1,1,-1 | 02447 177716202450 10001 TXI *+1,2,-50 02450 300000102442 10001 TXH 77A+2,1,** | 02451 053500201462 10001 LAC I,2 | 02452 060000001466 10001 STZ SATNO | 02453 060000001467 10001 STZ SATWT | 02454 84A NULL 02454 477400100001 10000 85A AXC 1,1 | 02455 477400200062 10000 AXC 50,2 | 02456 056000100000 10011 86A LDQ ATNO-1,1 | 100001700001 10001 | 02457 026000200000 10000 87A FMP **,2 02460 030000001466 10001 FAD SATNO | 02461 060100001466 10001 STO SATNO | 02462 056000100012 10001 88A LDQ ATWT-1,1 | 02463 026000200000 10000 89A FMP **,2 | 02464 030000001467 10001 FAD SATWT 02465 060100001467 10001 STO SATWT | 02466 90A NULL | 02466 177777102467 10001 91A TXI *+1,1,-1 | 02467 177716202470 10001 TXI *+1,2,-50 | 02470 300000102456 10001 TXH 85A+2,1,** 02471 053500201462 10001 LAC I,2 | 02472 056000001466 10001 LDQ SATNO | 02473 026000001466 10001 FMP SATNO | 02474 060100001512 10001 STO N. | 02475 056000001467 10001 LDQ SATWT 02476 026000001501 10001 FMP C.5 | 02477 024100001512 10001 FDP N. | 02500 460000001464 10001 STQ H | 02501 056000201200 10001 92A LDQ CSC-1,2 | 02502 026000201224 10001 93A FMP SABSC-1,2 02503 060100001470 10001 STO SCHI | 02504 050000001470 10001 CLA SCHI | 02505 024100001456 10001 FDP SIGMA | 02506 013100000000 10000 XCA | 02507 030000001503 10001 FAD C.7 02510 060100001512 10001 STO N. | 02511 013100000000 10000 XCA | 02512 026000001464 10001 FMP H | 02513 030000001503 10001 FAD C.7 | 02514 013100000000 10000 XCA 02515 026000001512 10001 FMP N. | 02516 060100001512 10001 STO N. | 02517 050000001503 10001 CLA C.7 | 02520 024100001512 10001 FDP N. | 1 12/01/64 PAGE 15 PROG2 ASSEMBLY LISTING | 0 02521 460000201236 10001 94A STQ FA-1,2 | 02522 95A NULL | 02522 177777202523 10001 96A TXI *+1,2,-1 | 02523 300000202423 10001 TXH 74A+2,2,** 02524 053500101465 10001 LAC L,1 | 02525 050000001461 10001 CLA NFLCD | 02526 010000002634 10001 97A TZE 117A | 02527 412000002634 10001 TMI 117A | 02530 98A NULL 02530 053400401465 10001 99A LXA L,4 | 02531 100132402532 10101 TXI *+1,4,WTFTN-51 | 02532 063400402617 10001 SXA 111A+1,4 | 02533 477400200001 10000 100A AXC 1,2 | 02534 060000001462 10001 STZ I 02535 063400202536 10001 SXA *+1,2 | 02536 477400400000 10000 AXC **,4 | 02537 063400401462 10001 SXA I,4 | 02540 060000201250 10001 101A STZ FCT-1,2 | 02541 053400401462 10001 102A LXA I,4 02542 101274402543 10101 TXI *+1,4,EAB-11 | 02543 063400402607 10001 SXA 110A,4 | 02544 053400401462 10001 LXA I,4 | 02545 101250402546 10101 TXI *+1,4,FCT-1 | 02546 063400402620 10001 SXA 112A,4 02547 063400402621 10001 SXA 113A,4 | 02550 053400401462 10001 LXA I,4 | 02551 100036402552 10101 TXI *+1,4,ABSCO-11 | 02552 063400402562 10001 SXA 104A,4 | 02553 053400401462 10001 LXA I,4 02554 100024402555 10101 TXI *+1,4,VO-1 | 02555 063400402571 10001 SXA 107A,4 | 02556 477400100001 10000 103A AXC 1,1 | 02557 477400200012 10000 AXC 10,2 | 02560 477400400062 10000 AXC 50,4 02561 063400402624 10001 SXA 115A+2,4 | 02562 050000200000 10000 104A CLA **,2 | 02563 024100101224 10001 105A FDP SABSC-1,1 | 02564 460000001512 10001 STQ N. | 02565 050000001460 10001 CLA V 02566 030200100024 10001 106A FSB VO-1,1 | 02567 060100001513 10001 STO N.+1 | 02570 050000001460 10001 CLA V | 02571 030200000000 10000 107A FSB ** | 02572 060100001514 10001 STO N.+2 02573 007400406000 10011 108A TSX .XP3.,4 | 02574 100002002600 10001 TXI *+4,,2 | 02575 003245000154 10100 PZE 108,,LK.DR | 02576 000000001514 10001 PZE N.+2 | 02577 000000001505 10001 PZE C.9 02600 060100001514 10001 STO N.+2 | 02601 007400406000 10011 109A TSX .XP3.,4 | 02602 100002002606 10001 TXI *+4,,2 | 02603 003245000155 10100 PZE 109,,LK.DR | 02604 000000001513 10001 PZE N.+1 02605 000000001505 10001 PZE C.9 | 02606 060100001513 10001 STO N.+1 | 1 12/01/64 PAGE 16 | PROG2 ASSEMBLY LISTING | 0 02607 056000200000 10000 110A LDQ **,2 02610 026000001504 10001 FMP C.8 | 02611 024100001514 10001 FDP N.+2 | 02612 026000001512 10001 FMP N. | 02613 013100000000 10000 XCA | 02614 026000001513 10001 FMP N.+1 02615 013100000000 10000 XCA | 02616 053400402624 10001 111A LXA 115A+2,4 | 02617 026000400000 10000 FMP **,4 | 02620 030000000000 10000 112A FAD ** | 02621 060100000000 10000 113A STO ** 02622 114A NULL | 02622 177777102623 10001 115A TXI *+1,1,-1 | 02623 177766202624 10001 TXI *+1,2,-10 | 02624 077400400000 10000 AXT **,4 | 02625 177716402626 10001 TXI *+1,4,-50 02626 063400402624 10001 SXA *-2,4 | 02627 300000102562 10001 TXH 103A+4,1,** | 02630 053500201462 10001 LAC I,2 | 02631 177777202632 10001 116A TXI *+1,2,-1 | 02632 300000202535 10001 TXH 100A+2,2,** 02633 053500101465 10001 LAC L,1 | 02634 060000001471 10001 117A STZ SRIN1 | 02635 060000001472 10001 STZ SRIN2 | 02636 060000001473 10001 STZ SWTFT | 02637 053400401465 10001 118A LXA L,4 02640 100132402641 10101 TXI *+1,4,WTFTN-51 | 02641 063400402646 10001 SXA 120A,4 | 02642 063400402656 10001 SXA 125A,4 | 02643 063400402673 10001 SXA 131A,4 | 02644 477400200001 10000 119A AXC 1,2 02645 477400100062 10000 AXC 50,1 | 02646 056000100000 10000 120A LDQ **,1 | 02647 026000201236 10001 121A FMP FA-1,2 | 02650 024100201212 10001 122A FDP F100A-1,2 | 02651 026000001506 10001 FMP C.10 02652 060100201262 10001 123A STO RINT1-1,2 | 02653 050000201250 10001 124A CLA FCT-1,2 | 02654 030000001503 10001 FAD C.7 | 02655 013100000000 10000 XCA | 02656 026000100000 10000 125A FMP **,1 02657 024100201212 10001 126A FDP F100A-1,2 | 02660 026000001506 10001 FMP C.10 | 02661 013100000000 10000 XCA | 02662 026000201236 10001 127A FMP FA-1,2 | 02663 060100201274 10001 128A STO RINT2-1,2 02664 050000001471 10001 CLA SRIN1 | 02665 030000201262 10001 129A FAD RINT1-1,2 | 02666 060100001471 10001 STO SRIN1 | 02667 050000001472 10001 CLA SRIN2 | 02670 030000201274 10001 130A FAD RINT2-1,2 02671 060100001472 10001 STO SRIN2 | 02672 050000001473 10001 CLA SWTFT | 02673 030000100000 10000 131A FAD **,1 | 02674 060100001473 10001 STO SWTFT | 02675 132A NULL 1 12/01/64 PAGE 17 | PROG2 ASSEMBLY LISTING | 0 02675 177777202676 10001 133A TXI *+1,2,-1 | 02676 177716102677 10001 TXI *+1,1,-50 | 02677 300000202646 10001 TXH 119A+2,2,** 02700 053500101465 10001 LAC L,1 | 02701 050000001465 10001 CLA L | 02702 040200001477 10001 SUB C.3 | 02703 010000002705 10001 134A TZE 135A | 02704 012000003137 10001 TPL 177A 02705 007400407000 10011 135A TSX .FWRD.,4 | 02706 100002002712 10001 TXI *+4,,2 | 02707 003245000207 10100 PZE 135,,LK.DR | 02710 000000013000 10011 PZE .UN06. | 02711 000000001524 10001 PZE 26. 02712 050000001453 10001 CLA NPROB | 02713 007400412000 10011 TSX .FCNV.,4 | 02714 050000001454 10001 CLA NCOMP | 02715 007400412000 10011 TSX .FCNV.,4 | 02716 050000001455 10001 CLA NSPOT 02717 007400412000 10011 TSX .FCNV.,4 | 02720 050000001456 10001 CLA SIGMA | 02721 007400412000 10011 TSX .FCNV.,4 | 02722 050000001457 10001 CLA THETA | 02723 007400412000 10011 TSX .FCNV.,4 02724 050000001460 10001 CLA V | 02725 007400412000 10011 TSX .FCNV.,4 | 02726 050000001461 10001 CLA NFLCD | 02727 007400412000 10011 TSX .FCNV.,4 | 02730 007400414000 10011 TSX .FFIL.,4 02731 007400407000 10011 136A TSX .FWRD.,4 | 02732 100002002736 10001 TXI *+4,,2 | 02733 003245000210 10100 PZE 136,,LK.DR | 02734 000000013000 10011 PZE .UN06. | 02735 000000001622 10001 PZE 27. 02736 007400414000 10011 TSX .FFIL.,4 | 02737 007400407000 10011 137A TSX .FWRD.,4 | 02740 100002002744 10001 TXI *+4,,2 | 02741 003245000211 10100 PZE 137,,LK.DR | 02742 000000013000 10011 PZE .UN06. 02743 000000001634 10001 PZE 28. | 02744 138A NULL | 02744 477400200001 10000 139A AXC 1,2 | 02745 050000200000 10011 140A CLA ATNO-1,2 | 100001700001 10001 02746 007400412000 10011 TSX .FCNV.,4 | 02747 050000200012 10001 141A CLA ATWT-1,2 | 02750 007400412000 10011 TSX .FCNV.,4 | 02751 050000200036 10001 142A CLA PSI-1,2 | 02752 007400412000 10011 TSX .FCNV.,4 02753 177777202754 10001 143A TXI *+1,2,-1 | 02754 300000202745 10001 TXH 139A+1,2,** | 02755 007400414000 10011 TSX .FFIL.,4 | 02756 007400407000 10011 144A TSX .FWRD.,4 | 02757 100002002763 10001 TXI *+4,,2 02760 003245000220 10100 PZE 144,,LK.DR | 02761 000000013000 10011 PZE .UN06. | 02762 000000001636 10001 PZE 29. | 1 12/01/64 PAGE 18 | PROG2 ASSEMBLY LISTING 0 02763 007400414000 10011 TSX .FFIL.,4 | 02764 145A NULL | 02764 477400200001 10000 146A AXC 1,2 | 02765 060000001462 10001 STZ I | 02766 063400202767 10001 SXA *+1,2 02767 477400400000 10000 AXC **,4 | 02770 063400401462 10001 SXA I,4 | 02771 007400407000 10011 TSX .FWRD.,4 | 02772 100002002776 10001 TXI *+4,,2 | 02773 003245000222 10100 PZE 146,,LK.DR 02774 000000013000 10011 PZE .UN06. | 02775 000000001646 10001 PZE 30. | 02776 053400401462 10001 147A LXA I,4 | 02777 100036403000 10101 TXI *+1,4,ABSCO-11 | 03000 063400403003 10001 SXA 149A,4 03001 477400100001 10000 148A AXC 1,1 | 03002 477400200012 10000 AXC 10,2 | 03003 050000200000 10000 149A CLA **,2 | 03004 007400412000 10011 TSX .FCNV.,4 | 03005 177777103006 10001 150A TXI *+1,1,-1 03006 177766203007 10001 TXI *+1,2,-10 | 03007 300000103003 10001 TXH 148A+2,1,** | 03010 053500201462 10001 LAC I,2 | 03011 007400414000 10011 TSX .FFIL.,4 | 03012 151A NULL 03012 177777203013 10001 152A TXI *+1,2,-1 | 03013 300000202766 10001 TXH 146A+2,2,** | 03014 053500101465 10001 LAC L,1 | 03015 007400407000 10011 TSX .FWRD.,4 | 03016 100002003022 10001 TXI *+4,,2 03017 003245000230 10100 PZE 152,,LK.DR | 03020 000000013000 10011 PZE .UN06. | 03021 000000001650 10001 PZE 32. | 03022 007400414000 10011 TSX .FFIL.,4 | 03023 153A NULL 03023 477400200001 10000 154A AXC 1,2 | 03024 060000001462 10001 STZ I | 03025 063400203026 10001 SXA *+1,2 | 03026 477400400000 10000 AXC **,4 | 03027 063400401462 10001 SXA I,4 03030 007400407000 10011 TSX .FWRD.,4 | 03031 100002003035 10001 TXI *+4,,2 | 03032 003245000232 10100 PZE 154,,LK.DR | 03033 000000013000 10011 PZE .UN06. | 03034 000000001646 10001 PZE 30. 03035 053400401462 10001 155A LXA I,4 | 03036 100132403037 10101 TXI *+1,4,WTFTN-51 | 03037 063400403042 10001 SXA 157A,4 | 03040 477400100001 10000 156A AXC 1,1 | 03041 477400200062 10000 AXC 50,2 03042 050000200000 10000 157A CLA **,2 | 03043 007400412000 10011 TSX .FCNV.,4 | 03044 177777103045 10001 158A TXI *+1,1,-1 | 03045 177716203046 10001 TXI *+1,2,-50 | 03046 300000103042 10001 TXH 156A+2,1,** 03047 053500201462 10001 LAC I,2 | 1 12/01/64 PAGE 19 | PROG2 ASSEMBLY LISTING | 0 03050 007400414000 10011 TSX .FFIL.,4 | 03051 159A NULL 03051 177777203052 10001 160A TXI *+1,2,-1 | 03052 300000203025 10001 TXH 154A+2,2,** | 03053 053500101465 10001 LAC L,1 | 03054 050000001461 10001 CLA NFLCD | 03055 010000003131 10001 161A TZE 176A 03056 412000003131 10001 TMI 176A | 03057 007400407000 10011 162A TSX .FWRD.,4 | 03060 100002003064 10001 TXI *+4,,2 | 03061 003245000242 10100 PZE 162,,LK.DR | 03062 000000013000 10011 PZE .UN06. 03063 000000001661 10001 PZE 342. | 03064 163A NULL | 03064 477400200001 10000 164A AXC 1,2 | 03065 050000200024 10001 165A CLA VO-1,2 | 03066 007400412000 10011 TSX .FCNV.,4 03067 177777203070 10001 166A TXI *+1,2,-1 | 03070 300000203065 10001 TXH 164A+1,2,** | 03071 007400414000 10011 TSX .FFIL.,4 | 03072 007400407000 10011 167A TSX .FWRD.,4 | 03073 100002003077 10001 TXI *+4,,2 03074 003245000247 10100 PZE 167,,LK.DR | 03075 000000013000 10011 PZE .UN06. | 03076 000000001676 10001 PZE 344. | 03077 007400414000 10011 TSX .FFIL.,4 | 03100 168A NULL 03100 477400200001 10000 169A AXC 1,2 | 03101 060000001462 10001 STZ I | 03102 063400203103 10001 SXA *+1,2 | 03103 477400400000 10000 AXC **,4 | 03104 063400401462 10001 SXA I,4 03105 007400407000 10011 TSX .FWRD.,4 | 03106 100002003112 10001 TXI *+4,,2 | 03107 003245000251 10100 PZE 169,,LK.DR | 03110 000000013000 10011 PZE .UN06. | 03111 000000001646 10001 PZE 30. 03112 053400401462 10001 170A LXA I,4 | 03113 101274403114 10101 TXI *+1,4,EAB-11 | 03114 063400403117 10001 SXA 172A,4 | 03115 477400100001 10000 171A AXC 1,1 | 03116 477400200012 10000 AXC 10,2 03117 050000200000 10000 172A CLA **,2 | 03120 007400412000 10011 TSX .FCNV.,4 | 03121 177777103122 10001 173A TXI *+1,1,-1 | 03122 177766203123 10001 TXI *+1,2,-10 | 03123 300000103117 10001 TXH 171A+2,1,** 03124 053500201462 10001 LAC I,2 | 03125 007400414000 10011 TSX .FFIL.,4 | 03126 174A NULL | 03126 177777203127 10001 175A TXI *+1,2,-1 | 03127 300000203102 10001 TXH 169A+2,2,** 03130 053500101465 10001 LAC L,1 | 03131 007400407000 10011 176A TSX .FWRD.,4 | 03132 100002003136 10001 TXI *+4,,2 | 03133 003245000260 10100 PZE 176,,LK.DR | 1 12/01/64 PAGE 20 PROG2 ASSEMBLY LISTING | 0 03134 000000013000 10011 PZE .UN06. | 03135 000000001705 10001 PZE 36. | 03136 007400414000 10011 TSX .FFIL.,4 | 03137 007400407000 10011 177A TSX .FWRD.,4 03140 100002003144 10001 TXI *+4,,2 | 03141 003245000261 10100 PZE 177,,LK.DR | 03142 000000013000 10011 PZE .UN06. | 03143 000000001712 10001 PZE 39. | 03144 050000001465 10001 CLA L 03145 007400412000 10011 TSX .FCNV.,4 | 03146 007400414000 10011 TSX .FFIL.,4 | 03147 007400407000 10011 178A TSX .FWRD.,4 | 03150 100002003154 10001 TXI *+4,,2 | 03151 003245000262 10100 PZE 178,,LK.DR 03152 000000013000 10011 PZE .UN06. | 03153 000000001717 10001 PZE 41. | 03154 179A NULL | 03154 477400200001 10000 180A AXC 1,2 | 03155 050000200000 10011 181A CLA ATNO-1,2 100001700001 10001 | 03156 007400412000 10011 TSX .FCNV.,4 | 03157 177777203160 10001 182A TXI *+1,2,-1 | 03160 300000203155 10001 TXH 180A+1,2,** | 03161 007400414000 10011 TSX .FFIL.,4 03162 007400407000 10011 183A TSX .FWRD.,4 | 03163 100002003167 10001 TXI *+4,,2 | 03164 003245000267 10100 PZE 183,,LK.DR | 03165 000000013000 10011 PZE .UN06. | 03166 000000001737 10001 PZE 46. 03167 050000001473 10001 CLA SWTFT | 03170 007400412000 10011 TSX .FCNV.,4 | 03171 053400401465 10001 184A LXA L,4 | 03172 100132403173 10101 TXI *+1,4,WTFTN-51 | 03173 063400403176 10001 SXA 186A,4 03174 477400200001 10000 185A AXC 1,2 | 03175 477400100062 10000 AXC 50,1 | 03176 050000100000 10000 186A CLA **,1 | 03177 007400412000 10011 TSX .FCNV.,4 | 03200 177777203201 10001 187A TXI *+1,2,-1 03201 177716103202 10001 TXI *+1,1,-50 | 03202 300000203176 10001 TXH 185A+2,2,** | 03203 053500101465 10001 LAC L,1 | 03204 007400414000 10011 TSX .FFIL.,4 | 03205 007400407000 10011 188A TSX .FWRD.,4 03206 100002003212 10001 TXI *+4,,2 | 03207 003245000274 10100 PZE 188,,LK.DR | 03210 000000013000 10011 PZE .UN06. | 03211 000000001755 10001 PZE 47. | 03212 050000001471 10001 CLA SRIN1 03213 007400412000 10011 TSX .FCNV.,4 | 03214 189A NULL | 03214 477400200001 10000 190A AXC 1,2 | 03215 050000201262 10001 191A CLA RINT1-1,2 | 03216 007400412000 10011 TSX .FCNV.,4 03217 177777203220 10001 192A TXI *+1,2,-1 | 03220 300000203215 10001 TXH 190A+1,2,** | 1 12/01/64 PAGE 21 | PROG2 ASSEMBLY LISTING | 0 03221 007400414000 10011 TSX .FFIL.,4 03222 050000001461 10001 CLA NFLCD | 03223 010000003242 10001 193A TZE 199A | 03224 412000003242 10001 TMI 199A | 03225 007400407000 10011 194A TSX .FWRD.,4 | 03226 100002003232 10001 TXI *+4,,2 03227 003245000302 10100 PZE 194,,LK.DR | 03230 000000013000 10011 PZE .UN06. | 03231 000000001773 10001 PZE 49. | 03232 050000001472 10001 CLA SRIN2 | 03233 007400412000 10011 TSX .FCNV.,4 03234 195A NULL | 03234 477400200001 10000 196A AXC 1,2 | 03235 050000201274 10001 197A CLA RINT2-1,2 | 03236 007400412000 10011 TSX .FCNV.,4 | 03237 177777203240 10001 198A TXI *+1,2,-1 03240 300000203235 10001 TXH 196A+1,2,** | 03241 007400414000 10011 TSX .FFIL.,4 | 03242 199A NULL | 03242 177777103243 10001 200A TXI *+1,1,-1 | 03243 300000102411 10001 TXH 72A+2,1,** 03244 201A NULL | 03244 002000002012 10001 202A TRA 1A | 03245 000000000000 10000 LK.DR PZE ** | 03246 475146270260 10000 BCI 1,PROG2 | 03247 100000003256 10001 ...... TXI *+7,,** 03250 077400200000 10000 AXT **,2 | 03251 077400100000 10000 AXT **,1 | 03252 077400400000 10000 AXT **,4 | 03253 044100003255 10001 LDI *+2 | 03254 002000400001 10000 TRA 1,4 03255 000000000000 10000 PZE ** | 03256 060400003255 10001 STI *-1 | 03257 063400415000 10011 SXA SYSLOC,4 | 03260 063400403245 10001 SXA LK.DR,4 | 03261 063400403252 10001 SXA *-7,4 03262 063400103251 10001 SXA *-9,1 | 03263 063400203250 10001 SXA *-11,2 | 03264 002000002012 10001 TRA 1A | 1 12/01/64 PAGE 22 | PROG2 ASSEMBLY LISTING 0| 0$CDICT PROG2 12/01/64 PROG0051 | 003265003247 PREFACE START=1703,LENGTH=1717,TYPE=7090,CMPLX=5 | 000000000005 | 475146270260 PROG2 DECK LOC=0,LENGTH=1717 003265000000 | 333333333333 ...... REAL LOC=1703,LENGTH=0 | 000000003247 | 332651242433 .FRDD. VIRTUAL SECT. 3,CALL | 200000100000 234662606060 COS VIRTUAL SECT. 4,CALL | 200000100000 | 623145606060 SIN VIRTUAL SECT. 5,CALL | 200000100000 | 336747033360 .XP3. VIRTUAL SECT. 6,CALL 200000100000 | 332666512433 .FWRD. VIRTUAL SECT. 7,CALL | 200000100000 | 336445000533 .UN05. VIRTUAL SECT. 8 | 200000000000 332651634533 .FRTN. VIRTUAL SECT. 9 | 200000000000 | 332623456533 .FCNV. VIRTUAL SECT. 10 | 200000000000 | 336445000633 .UN06. VIRTUAL SECT. 11 200000000000 | 332626314333 .FFIL. VIRTUAL SECT. 12 | 200000000000 | 627062434623 SYSLOC VIRTUAL SECT. 13 | 200000000000 0$DKEND PROG2 12/01/64 PROG0054 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 03265. 1 12/01/64 PAGE 23 | | 0$DATA 1 IBLDR 12/01/64 PAGE 24 | * MEMORY MAP * | 0 | 0SYSTEM 00000 THRU 02717| FILE BLOCK ORIGIN 02720 FILES 1. UNIT05 | 2. UNIT06 | FILE LIST ORIGIN 02750| PRE-EXECUTION INITIALIZATION 02754| CALL ON OBJECT PROGRAM 02777 OBJECT PROGRAM 03004 THRU 21725| 0 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)| | 1. PROG2 03004 ...... 06253 * | 2. .LXCON 06271 .LXSTR 06271 * .LXSTP 06274 .LXOUT 06342 * .LXERR 06351 .LXCAL 06354 * .LXRTN 06354 IBEXIT 06354 * .DBCLS 06536 * .LXARG 06705 * .L0 06730 * | .CLSE 06736 .LFBL 06737 * .LUNB 06740 .DFOUT 06741 | 3. .IODEF 06745 .DEFIN 06745 .ATTAC 06751 * .CLOSE 06753 .OPEN 06755 .READ 06757 | .WRITE 06761 .BSR 06771 * .READR 07001 .RELES 07003 * .LAREA 07014 | .LFBLK 07032 .LTSX 07035 * .RLHLD 07045 * .AREA1 07050 .LUNBL 07056 .ENTRY 07062 .GOA 07117 .GO 07123 .DERR 07137 .NOPXI 07140 | .COMXI 07142 .EX34 07164 | 4. .LXSL 07171 .LXSLB 07171 * .LXSEL 07172 .LXSL1 07173 .LXTST 07176 * .LXOVL 07241 * | .LXMOD 07303 * .LXIND 07327 * .LXDIS 07332 * .LXFLG 07333 * .LTCH 07334 | 5. .FPTRP 07343 .FFPT. 07343 * .FPOUT 07472 * .FPARG 07500 * /.COUNT/ 07502 * OVFLOW 07546 * 6. FXEM 07553 .FXEM. 07553 TRACE 07561 * /.OPTW./ 10116 * | 7. FCOM 10132 .FCOM. 10132 /FORCOM/ 10235 * | 8. FRDD 10247 .FRDD. 10247 .FWRD. 10252 | 9. FIOS 10364 .FIOS. 10364 .FSEL. 10553 .FRTB. 10570 .FRTD. 10605 /.FBF1./ 11037 * | 10. FIOH 11043 .FIOH. 11043 .FCNV. 11622 .FFIL. 11717 .FRTN. 11717 11. FCNV 12036 .FCON. 12036 | 12. FIOT 15124 .FIOT. 15124 .FIOE. 15215 | 13. UN05 15243 .UN05. 15243 | 14. UN06 15244 .UN06. 15244 ..UN06 15244 * | 15. FLOG 15245 ALOG10 15245 * ALOG 15246 16. FXPF 15451 EXP 15451 | 17. FSCN 15572 COS 15572 SIN 15573 | 18. FXP3 15766 .XP3. 15766 | 19. .IOCS 16113 .L(0) 16113 .MONSW 16133 .TEOR 16202 .DEFI. 16262 .JOINX 16326 * | .CLOS. 16345 .ATTC. 16360 .SH1 16572 * .SH9 16634 * .OPEN. 16655 .OP4 16703 * .OP7 16734 * .OP9.2 16750 * .RLSE. 17022 .RER2. 17022 | .READ. 17023 .RER1. 17046 .WRIT. 17050 .MNT1A 17240 * .EOFEX 17321 * | .FEEIT 17371 .GTIOX 17412 .RW7 17530 * .RE7 20147 * .ENDTR 20610 | .SEL59 20612 * .BSR. 21231 .EOTOF 21356 .ETOF3 21364 * .SWITC 21413 | .TCHEX 21720 .BASIO 21723 * 20. .IOCSM 21726 | 0I/O BUFFERS 21726 THRU 77767| 0UNUSED CORE 77770 THRU 77777| 0 1 PROBLEM NUMBER 3 INPUT DATA NUMBER OF COMPONENTS = 3 NUMBER OF SPOTS = 4 LENARD COEFFICIENT, SIGMA = 1820.0 INCIDENT ELECTRON BEAM ANGLE = 27.50 ELECTRON BEAM VOLTAGE = 30.00 FLUORESCENCE CORRECTION CODE = 1 0 AT. NO. AT. WT. T.O. ANGLE 48.00 112.41 35.00 52.00 127.61 35.00 80.00 200.61 35.00 0 MASS ABSORPTION COEFFICIENTS 491.50000 1529.10001 127.50000 632.90000 391.60000 158.50000 1800.10001 1559.10001 123.70000 0 WEIGHT FRACTION OF EACH COMPONENT 0.34902 0.49527 0.15572 0.24499 0.46353 0.29148 0.15349 0.43562 0.41089 0.07239 0.41088 0.51674 0 CRITICAL EXCITATION POTENTIALS IN KV 4.00 5.00 14.80 0 EXCITATION EFFICIENCY 0. 0. 0.00800 0. 0. 0.01000 0. 0. 0. 1 OUTPUT DATA 0 SPOT NUMBER 1 0 ATOMIC NUMBERS 48.0 52.0 80.0 0 WEIGHT FRACTION 1.00001 0.34902 0.49527 0.15572 0 REL. INT., ABS. COR. 80.418 29.854 35.471 15.093 0 REL. INT., ABS. AND FL. CORS. 80.442 29.862 35.487 15.093 0 SPOT NUMBER 2 0 ATOMIC NUMBERS 48.0 52.0 80.0 0 WEIGHT FRACTION 1.00000 0.24499 0.46353 0.29148 0 REL. INT., ABS. COR. 80.315 19.209 32.720 28.386 0 REL. INT., ABS. AND FL. CORS. 80.354 19.219 32.749 28.386 0 SPOT NUMBER 3 0 ATOMIC NUMBERS 48.0 52.0 80.0 0 WEIGHT FRACTION 1.00000 0.15349 0.43562 0.41089 0 REL. INT., ABS. COR. 81.739 11.212 30.358 40.169 0 REL. INT., ABS. AND FL. CORS. 81.785 11.221 30.395 40.169 0 SPOT NUMBER 4 0 ATOMIC NUMBERS 48.0 52.0 80.0 0 WEIGHT FRACTION 1.00001 0.07239 0.41088 0.51674 0 REL. INT., ABS. COR. 83.971 4.986 28.308 50.677 0 REL. INT., ABS. AND FL. CORS. 84.020 4.990 28.353 50.677 1 1321 LINES OUTPUT. $IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00164, FILE 00000 SYSOU1 IS B1 REC. 00960, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00002| 1 END OF JOBS | 1