| 1 $JOB ASSEMBLY OF MONITOR, LIBRARY $00000010 $* FORTRAN II PROCESSOR, 7090-FO-928 00000020 $* VERSION 3, MODIFICATION LEVEL 35 (35)00000030 $DATE 121563 $00000040 $* $PAUSE PLEASE MOUNT SOURCE TAPE 3 ON UNIT A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $ATTACH A3 $AS SYSCK1 $ATTACH B3 $AS SYSCK2 $REWIND SYSCK1 $REWIND SYSCK2 $REWIND SYSPP1 $EXECUTE UPDATE 1 12/15/63 PAGE 1 | SYMBOLIC UPDATE DATA | 0 | UPDATE 9,10 | 0 SKPFIL 9 0 SKPFIL 9 | 0 SKPFIL 9 | 0 $JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010 INSERTED | 0 * 32K 709/7090 FORTRAN LIBRARY L1A00030 DELETED | * 32K 709/7090 FORTRAN LIBRARY L1A00030 INSERTED 0 END LXX00130 DELETED | END LXX00130 INSERTED | 0 ENDUP | 1 12/15/63 PAGE 2 | SYMBOLIC UPDATE DATA 0 | UPDATE ,10,U | 0 $IBSYS INSERTED | 0 $ENDFILE SYSPP1 INSERTED | 0 $REWIND SYSPP1 INSERTED 0 $SWITCH SYSPP1,SYSUT3 INSERTED | 0 $REWIND SYSUT4 INSERTED | 0 $EXECUTE FORTRAN INSERTED | 0 $ID EDITLIB INSERTED | 0 * EDIT LIBE INSERTED 0 $IBSYS INSERTED | 0 $ENDFILE SYSUT4 INSERTED | 0 $REWIND SYSUT4 INSERTED | 0 $IBEDT INSERTED | 0 *EDIT MAP,MODS INSERTED 0 FILE *REPLACE 9FL001,SYSUT4 INSERTED | 0 ENDFIL 10 | 0 $IBSYS INSERTED | 0 $* FORTRAN II LIBRARY REBUILT INSERTED | 0 $PAUSE LIBRARY REBUILT INSERTED 0 $STOP INSERTED | 0 ENDFIL 10 | 0 REWIND 10 | 0 UNLOAD 9 | 0 ENDUP 1 12/15/63 PAGE 3 | SYMBOLIC UPDATE DATA | 0 | $IBSYS | LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS | | 5 A2 0 23 0 0 0 0 0 | 6 B1 8 0 0 0 0 0 0 | 9 A3 0 4266 0 0 0 0 0 10 B3 884 0 0 0 0 0 0 | 0 50 LINES OUTPUT. | 1 | $PAUSE PLEASE MOUNT A TAPE FOR NEW SYSTEM ON A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $SWITCH SYSCK2,SYSIN1 | 1 $JOB ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF $00000010 | 1 $JOB ASSEMBLY OF LIBRARY, GEN. DIAG., LIBRARY EDITOR OF $F6Z00003 $* 7090/7094 FORTRAN II PROCESSOR, 7090-FO-928, $F6Z00004 $* VERSION 3, MODIFICATION LEVEL 35 (35)F6Z00005 $EXECUTE IBSFAP (28)F6Z00007 1 * 32K 709/7090 FORTRAN LIBRARY 9FPT L1A00000 * FAP L1A00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT TRAP ROUTINE / 9FPT | | | BINARY CARD NO. 9FPT0000 00000 ENTRY (FPT) L1A00070 | | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L1A00090 | | BINARY CARD NO. 9FPT0001 00000 0634 00 4 00025 (FPT) SXA AXT.,4 SAVE IR4 (28)L1A00100 | 00001 0534 00 4 00000 LXA 0,4 SAVE PROPER RETURN ADDRESS (28)L1A00101 | 00002 0634 00 4 00026 SXA AXT.+1,4 (28)L1A00102 | 00003 0604 00 0 77463 STI IND SAVE INDICATORS (28)L1A00103 | 00004 0441 00 0 00000 LDI 0 PICK UP BIT CODE. L1A00110 00005 -0054 00 000004 LFT 4 SET INDICATOR CELL L1A00120 | 00006 0604 00 0 77462 STI OVFLOW ON OVERFLOW. L1A00130 | 00007 -0056 00 000002 LNT 2 IS IT AC OR MQ. L1A00140 | 00010 0020 00 0 00015 TRA MQ MQ. L1A00150 | 00011 0760 00 0 00000 CLM AC. L1A00160 00012 -0054 00 000004 LFT 4 IS IT OVER OR UNDER. L1A00170 | 00013 0760 00 0 00006 COM OVER. L1A00180 | 00014 0771 00 0 00002 ARS 2 CLEAR P AND Q BITS $L1A00185 | 00015 -0056 00 000001 MQ LNT 1 IS MQ BIT ON $L1A00190 | 00016 0020 00 0 00024 TRA EXIT NO, SO EXIT $L1A00200 00017 0131 00 0 00000 XCA YES, GET THE MQ $L1A00220 | 00020 0760 00 0 00000 CLM CLEAR IT $L1A00230 | 00021 -0054 00 000004 LFT 4 IS IT OVER OR UNDER $L1A00240 | 00022 0760 00 0 00006 COM OVER $L1A00250 | 00023 0131 00 0 00000 XCA MQ=ONES OR ZEROS $L1A00260 | BINARY CARD NO. 9FPT0002 | 00024 0441 00 0 77463 EXIT LDI IND RESTORE INDICATORS $L1A00270 | 00025 0774 00 4 00000 AXT. AXT **,4 RESTORE IR4 (28)L1A00275 | 00026 0020 00 0 00000 TRA ** EXIT TO TRAPPED LOCATION PLUS ONE (28)L1A00280 77463 COMMON -2 L1A00410 | 77463 IND COMMON 1 L1A00420 | 77462 OVFLOW COMMON 1 L1A00430 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L1A00440 | END L1A00450 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77461 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 27 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 15 MQ 10 | 77463 IND 3, 24, 27 | 25 AXT. 0, 2 24 EXIT 16 | 0 (FPT) 0 | 77462 OVFLOW 6, 27 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9XP1 L1E00000 * FAP L1E00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | EXPONENTIAL ROUTINE-FIXED POINT BASE AND EXPONENT / 9XP1 | | | BINARY CARD NO. 9XP10000 00000 ENTRY EXP(1 L1E00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L1E00080 | | BINARY CARD NO. 9XP10001 | 00000 0100 00 4 00001 EXP(1 TZE 1,4 EXIT FOR ZERO BASE L1E00090 00001 0771 00 0 00022 ARS 18 L1E00100 | 00002 0601 00 0 77777 STO POWER SAVE NON-ZERO BASE L1E00110 | 00003 0763 00 0 00021 LLS 17 OBTAIN EXPONENT L1E00120 | 00004 0621 00 0 00042 STA EXP SAVE EXPONENT L1E00130 | 00005 -0520 00 0 00042 NZT EXP TEST FOR ZERO EXPONENT L1E00140 00006 0020 00 0 00036 TRA OUT EXIT FOR ZERO EXPONENT L1E00150 | 00007 0500 00 0 00040 CLA FIXONE L1E00160 | 00010 -0400 00 0 77777 SBM POWER L1E00170 | 00011 0100 00 0 00014 TZE N L1E00180 | 00012 0162 00 0 00014 TQP N L1E00190 00013 0020 00 0 00034 TRA EXIT L1E00200 | 00014 0500 00 0 00040 N CLA FIXONE L1E00210 | 00015 0601 00 0 77776 STO FACTOR L1E00220 | 00016 0500 00 0 00042 CLA1 CLA EXP IS POWER L1E00230 | 00017 0760 00 0 00001 LBT A FACTOR L1E00240 00020 0020 00 0 00024 TRA CLA2 NO L1E00250 | 00021 0560 00 0 77777 LDQ POWER YES L1E00260 | 00022 0200 00 0 77776 MPY FACTOR L1E00270 | 00023 -0600 00 0 77776 STQ FACTOR L1E00280 | BINARY CARD NO. 9XP10002 | 00024 0500 00 0 00042 CLA2 CLA EXP L1E00290 | 00025 0771 00 0 00001 ARS 1 L1E00300 | 00026 0601 00 0 00042 STO EXP L1E00310 | 00027 0100 00 0 00034 TZE EXIT L1E00320 00030 0560 00 0 77777 LDQ POWER COMPUTE L1E00330 | 00031 0200 00 0 77777 MPY POWER NEXT L1E00340 | 00032 -0600 00 0 77777 STQ POWER POWER L1E00350 | 00033 0020 00 0 00016 TRA CLA1 L1E00360 | 00034 0763 00 0 00065 EXIT LLS 53 L1E00370 00035 0020 00 4 00001 TRA 1,4 L1E00380 | 00036 0500 00 0 00041 OUT CLA ONE L1E00390 | 00037 0020 00 4 00001 TRA 1,4 L1E00400 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L1E00410 | 00040 +000000000001 FIXONE DEC 1 L1E00420 00041 0 00001 0 00000 ONE PZE 0,0,1 L1E00430 | 00042 0 00000 0 00000 EXP PZE 0 L1E00440 | WORKING STORAGE L1E00450 | 77777 COMMON -206 L1E00460 | 77777 POWER COMMON 1 L1E00470 77776 FACTOR COMMON 1 L1E00480 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L1E00490 | END L1E00500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77775 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 43 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 14 N 11, 12 | 42 EXP 4, 5, 16, 24, 26 | 41 ONE 36 | 36 OUT 6 | 16 CLA1 33 24 CLA2 20 | 34 EXIT 13, 27 | 0 EXP(1 0 | 77777 POWER 2, 10, 21, 30, 31, 32, 43 | 77776 FACTOR 15, 22, 23, 43 40 FIXONE 7, 14 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9XP2 L2E00000 * FAP L2E00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | EXPONENTIAL ROUTINE - FLPT BASE AND FXPT EXPONENT / 9XP2 | | | BINARY CARD NO. 9XP20000 00000 ENTRY EXP(2 L2E00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L2E00080 | | BINARY CARD NO. 9XP20001 | 00000 0100 00 4 00001 EXP(2 TZE 1,4 EXIT FOR ZERO BASE L2E00090 00001 -0634 00 2 00020 SXD SAVEX,2 L2E00100 | 00002 0162 00 0 00005 TQP MQPOS L2E00110 | 00003 -0534 00 2 00004 LXD NEGONE,2 SET NEGATIVE MQ INDICATOR L2E00120 | 00004 -3 77777 0 00006 NEGONE TXL MQPOS+1,0,-1 L2E00130 | 00005 -0534 00 2 00035 MQPOS LXD TXL,2 SET POSITIVE MQ INDICATOR L2E00140 00006 0601 00 0 77777 STO POWER INITIALIZATION L2E00150 | 00007 -0754 00 0 00000 ZAC L2E00160 | 00010 0763 00 0 00021 LLS 17 X L2E00170 | 00011 0621 00 0 00045 STA EXP X L2E00180 | 00012 0500 00 0 00044 CLA FLOONE L2E00190 00013 -0520 00 0 00045 NZT EXP L2E00200 | 00014 0020 00 0 00042 TRA EXIT L2E00210 | 00015 0601 00 0 77776 STO FACTOR X L2E00220 | 00016 0500 00 0 00045 CLA1 CLA EXP IS POWER L2E00230 | 00017 0760 00 0 00001 LBT A FACTOR L2E00240 00020 -3 00000 0 00024 SAVEX TXL CLA2,0,0 NO L2E00250 | 00021 0560 00 0 77777 LDQ POWER YES L2E00260 | 00022 0260 00 0 77776 FMP FACTOR L2E00270 | 00023 0601 00 0 77776 STO FACTOR L2E00280 | BINARY CARD NO. 9XP20002 | 00024 0500 00 0 00045 CLA2 CLA EXP L2E00290 | 00025 0771 00 0 00001 ARS 1 L2E00300 | 00026 0601 00 0 00045 STO EXP L2E00310 | 00027 0100 00 0 00034 TZE TXL-1 L2E00320 00030 0560 00 0 77777 LDQ POWER L2E00330 | 00031 0260 00 0 77777 FMP POWER L2E00340 | 00032 0601 00 0 77777 STO POWER L2E00350 | 00033 0020 00 0 00016 TRA CLA1 L2E00360 | 00034 0500 00 0 77776 CLA FACTOR L2E00370 00035 -3 00000 2 00042 TXL TXL EXIT,2,0 L2E00380 | 00036 0500 00 0 00044 CLA FLOONE L2E00390 | 00037 0240 00 0 77776 FDH FACTOR L2E00400 | 00040 -0754 00 0 00000 ZAC L2E00410 | 00041 0763 00 0 00043 LLS 35 L2E00420 00042 -0534 00 2 00020 EXIT LXD SAVEX,2 L2E00430 | 00043 0020 00 4 00001 TRA 1,4 L2E00440 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L2E00450 | 00044 +201400000000 FLOONE DEC 1.0 L2E00460 | 00045 0 00000 0 00000 EXP PZE 0 L2E00470 WORKING STORAGE L2E00480 | 77777 COMMON -206 L2E00490 | 77777 POWER COMMON 1 L2E00500 | 77776 FACTOR COMMON 1 L2E00510 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L2E00520 END L2E00530 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77775 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 46 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 45 EXP 11, 13, 16, 24, 26 | 35 TXL 5, 27 16 CLA1 33 | 24 CLA2 20 | 42 EXIT 14, 35 | 0 EXP(2 0 | 5 MQPOS 2, 4 77777 POWER 6, 21, 30, 31, 32, 46 | 20 SAVEX 1, 42 | 77776 FACTOR 15, 22, 23, 34, 37, 46 | 44 FLOONE 12, 36 | 4 NEGONE 3 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9XP3 L3E00000 * FAP L3E00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | EXPONENTIAL ROUTINE-FLOATING PT. BASE AND EXPONENT / 9XP3 | | PROCESS X**Y L3E00070 | X**Y = 2**(Y*LOG2(X)) L3E00080 X IS FOUND IN AC, Y IS IN MQ L3E00090 | L3E00100 | | BINARY CARD NO. 9XP30000 | 00000 ENTRY EXP(3 L3E00110 | | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L3E00112 | | BINARY CARD NO. 9XP30001 00000 0100 00 4 00001 EXP(3 TZE 1,4 L3E00120 | 00001 0760 00 0 00003 SSP L3E00130 | 00002 -0600 00 0 77777 STQ T L3E00140 | BEGIN LOG ROUTINE L3E00150 | LOG PORTION BASED ON IB LOG 3 L3E00160 00003 0560 00 0 00116 LDQ =O243 CLEAR MQ L3E00170 | 00004 0765 00 0 00033 LRS 27 LOG CHAR ...I+128 L3E00180 | CHARACTERISTIC IS RIGHT ADJUSTED IN AC L3E00190 | MANTISSA IS LEFT ADJUSTED IN MQ L3E00200 | 00005 0767 00 0 00001 ALS 1 MULTIPLY CHARACTERISTIC BY 2 L3E00210 00006 0402 00 0 00117 SUB =O401 SUBTRACT .5 FROM I L3E00220 | 00007 -0501 00 0 00131 ORA =O232000000000 FLOAT I 27-1= 32 OCTAL L3E00230 | 00010 0601 00 0 77774 STO INT L3E00240 | 00011 -0754 00 0 00000 ZAC L3E00250 | 00012 0131 00 0 00000 XCA L3E00260 AC HAS MANTISSA OF X LEFT ADJUSTED L3E00270 | 00013 0771 00 0 00001 ARS 1 B1 L3E00280 | 00014 0400 00 0 00125 ADD =.707106781187B1 F+HLFSQ2...B1 L3E00290 | 00015 0601 00 0 77775 STO Z L3E00300 | 00016 0402 00 0 00133 SUB =.707106781187B0 F-HFLSQ2...B1 (NUM-SQRT(2)) L3E00310 00017 0225 35 0 77775 VDP Z,0,29 1-1+35-29...B6,Z L3E00320 | 00020 -0600 00 0 77775 STQ Z B6 L3E00330 | 00021 0204 34 0 77775 VLM Z,0,28 6+6+28-35...B5 Z*Z L3E00340 | 00022 0601 00 0 77776 STO ZSQ L3E00350 | 00023 0560 00 0 00114 LDQ =O31 B28 =.1953125 L3E00360 | BINARY CARD NO. 9XP30002 | 00024 0204 06 0 77776 VLM ZSQ,0,6 28+5+6-35...B4 L3E00370 | 00025 0402 00 0 00120 SUB =.25963855429B4 B4 L3E00380 | 00026 0602 00 0 77776 SLW ZSQ L3E00390 00027 0502 00 0 00135 CLS =-.26455155161B5 L3E00400 | 00030 0225 40 0 77776 VDP ZSQ,0,32 5-4+35...B4 L3E00410 | 00031 0131 00 0 00000 XCA B4 L3E00420 | 00032 0402 00 0 77776 SUB ZSQ L3E00430 | 00033 0400 00 0 00122 ADD =2.126106178B4 B4 L3E00440 00034 0131 00 0 00000 XCA L3E00450 | 00035 0765 00 0 00007 LRS 7 BQ11 L3E00460 | 00036 0204 32 0 77775 VLM Z,0,26 11+6+26-35...B8 MPY BY Z L3E00470 | 00037 -0501 00 0 00126 ORA =O200000000000 L3E00480 | 00040 0300 00 0 77774 FAD INT END OF LOG ROUTINE L3E00490 L3E00500 | 00041 0131 00 0 00000 XCA L3E00510 | 00042 0260 00 0 77777 FMP T Y*LOG(A) L3E00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | EXPONENTIAL ROUTINE-FLOATING PT. BASE AND EXPONENT / 9XP3 | START OF EXP ROUTINE L3E00530 | EXPONENTIAL PORTION BASED ON IB FXP L3E00540 | L3E00550 | ROUTINE TO SEPARATE THE FRACTIONAL PART AND THE L3E00560 INTEGRAL PART L3E00570 | 00043 0560 00 0 00116 LDQ =O243 MQ=0 L3E00580 | 00044 0765 00 0 00033 LRS 27 MQ HAS FRACTIONAL PART L3E00590 | 00045 -0760 00 0 00003 SSM L3E00600 | 00046 0400 00 0 00116 ADD =O243 MAKE INTO A FIXED POINT NUMBER L3E00610 00047 0621 00 0 00053 STA SH1 L3E00620 | TEST FOR NUMBER OUT OF THE RANGE L3E00630 | | BINARY CARD NO. 9XP30003 | 00050 0402 00 0 00115 SUB =28 $L3E00640 00051 -0120 00 0 00107 TMI ERROR L3E00650 | 00052 0131 00 0 00000 XCA L3E00660 | 00053 0765 00 0 00000 SH1 LRS *-* SEPARATE INT. AND FRACT. PART L3E00670 | BINARY POINT IS BETWEEN AC AND MQ L3E00680 | 00054 0767 00 0 00033 ALS 27 L3E00690 00055 0601 00 0 77774 STO INT L3E00700 | 00056 0765 00 0 00004 LRS 4 4,31 SCALING L3E00710 | 00057 -0600 00 0 77775 STQ F L3E00720 | 00060 0200 00 0 77775 MPY F FRACTION SQUARED L3E00730 | 00061 0601 00 0 77776 STO SQ CONTINUED FRACTION COMPUTED L3E00740 00062 0400 00 0 00124 ADD =87.417497202B8 8,27 SCALING L3E00750 | 00063 0601 00 0 77777 STO T 8,27 L3E00760 | 00064 0500 00 0 00123 CLA =617.9722695B12 12,23 L3E00770 | 00065 0221 00 0 77777 DVP T 8,27 4,31 L3E00780 | 00066 -0600 00 0 77777 STQ T 4,31 L3E00790 00067 0560 00 0 77776 LDQ SQ 8,27 L3E00800 | 00070 0200 00 0 00121 MPY =.03465735903B0 0,35 8,27 L3E00810 | 00071 0763 00 0 00004 LLS 4 4,31 L3E00820 | 00072 0402 00 0 77777 SUB T 4,31 L3E00830 | 00073 0400 00 0 00132 ADD =9.9545957821B4 4,31 L3E00840 | BINARY CARD NO. 9XP30004 | 00074 0402 00 0 77775 SUB F 4,31 L3E00850 | 00075 0601 00 0 77777 STO T 4,31 L3E00860 | 00076 0500 00 0 77775 CLA F 5,30 NUM=2F L3E00870 00077 0560 00 0 00130 LDQ =O201400000000 TO GET ZERO INTO LOW ORDER PART OF MQ L3E00880 | 00100 0225 33 0 77777 VDP T,0,27 5-4-27+35=B9 L3E00890 | 00101 0131 00 0 00000 XCA L3E00900 | 00102 -0501 00 0 00127 ORA =O201000000000 L3E00910 | 00103 0300 00 0 00130 FAD =1. L3E00920 00104 0400 00 0 77774 ADD INT L3E00930 | 00105 -0760 00 0 00001 PBT $L3E00935 | 00106 0020 00 4 00001 TRA 1,4 L3E00940 | 00107 -0754 00 0 00000 ERROR ZAC L3E00950 | 00110 0040 00 4 00001 TLQ 1,4 NUMBER TOO SMALL' RETURN WITH ZERO L3E00960 00111 0500 00 0 00134 CLA =O377777777777 NUMBER TOO LARGE' RETURN WITH LARGEST L3E00970 | 00112 0601 00 0 77462 STO CELL PUT FLAG IN AC OVERFLOW CELL L3E00980 | 00113 0020 00 4 00001 TRA 1,4 L3E00990 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | EXPONENTIAL ROUTINE-FLOATING PT. BASE AND EXPONENT / 9XP3 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L3E00992 | | 77462 COMMON -1 L3E01000 | 77462 CELL COMMON 1 L3E01010 77777 COMMON -206 L3E01020 | 77777 T COMMON 1 L3E01030 | 77776 ZSQ COMMON 1 L3E01040 | 77775 Z COMMON 1 L3E01050 | 77774 INT COMMON 1 L3E01060 77775 F EQU Z L3E01070 | 77776 SQ EQU ZSQ L3E01080 | | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L3E01360 | END L3E01370 | LITERALS | 00114 000000000031 | 00115 000000000034 | 00116 000000000243 00117 000000000401 | | BINARY CARD NO. 9XP30005 | 00120 004116753015 | 00121 010676467774 00122 042011037513 | 00123 046477071523 | 00124 127325604305 | 00125 132404746316 | 00126 200000000000 00127 201000000000 | 00130 201400000000 | 00131 232000000000 | 00132 237214030720 | 00133 265011714634 00134 377777777777 | 00135 402073464641 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 77775 F 57, 60, 74, 76, 114 77777 T 2, 42, 63, 65, 66, 72, 75, 100, 114 | 77775 Z 15, 17, 20, 21, 36, 114 | 77776 SQ 61, 67, 114 | 77774 INT 10, 40, 55, 104, 114 | 53 SH1 47 77776 ZSQ 22, 24, 26, 30, 32, 114 | 77462 CELL 112, 114 | 107 ERROR 51 | 0 EXP(3 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9XPF L4E00000 * FAP L4E00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT EXPONENTIAL FUNCTION / 9XPF | | | BINARY CARD NO. 9XPF0000 00000 ENTRY EXP L4E00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L4E00080 | | BINARY CARD NO. 9XPF0001 | 00000 0560 00 0 00060 EXP LDQ =88.028 $L4E00100 00001 0040 00 0 00047 TLQ LARGE $L4E00110 | 00002 0760 00 0 00002 CHS $L4E00120 | 00003 0040 00 0 00045 TLQ SMALL $L4E00130 | 00004 0560 00 0 00052 LDQ =O242 $L4E00131 | 00005 0765 00 0 00033 LRS 27 L4E00140 00006 -0760 00 0 00003 SSM L4E00150 | 00007 0400 00 0 00052 ADD =O242 CONVERT TO FIXED POINT $L4E00160 | 00010 0621 00 0 00012 STA SH1 L4E00170 | 00011 0200 00 0 00063 MPY =-1.4426950409B1 X TIMES LOG E BASE 2 $L4E00180 | 00012 0765 00 0 00000 SH1 LRS ** SEPARATE INTEGER AND FRACTION L4E00190 00013 0767 00 0 00033 ALS 27 L4E00200 | 00014 0601 00 0 77774 STO M L4E00210 | 00015 0765 00 0 00004 LRS 4 L4E00220 | 00016 -0600 00 0 77775 STQ F L4E00230 | 00017 0200 00 0 77775 MPY F COMPUTE FRACTION SQUARED L4E00240 00020 0601 00 0 77776 STO SQ COMPUTE CONTINUED FRACTION L4E00250 | 00021 0400 00 0 00055 ADD =87.417497202B8 8,27 SCALING $L4E00260 | 00022 0601 00 0 77777 STO T 8,27 L4E00270 | 00023 0500 00 0 00054 CLA =617.9722695B12 12,23 $L4E00280 | BINARY CARD NO. 9XPF0002 | 00024 0221 00 0 77777 DVP T 8,27 4,31 L4E00290 | 00025 -0600 00 0 77777 STQ T 4,31 L4E00300 | 00026 0560 00 0 77776 LDQ SQ 8,27 L4E00310 | 00027 0200 00 0 00053 MPY =.03465735903B0 0,35 8,27 $L4E00320 00030 0763 00 0 00004 LLS 4 4,31 L4E00330 | 00031 0402 00 0 77777 SUB T 4,31 L4E00340 | 00032 0400 00 0 00061 ADD =9.9545957821B4 4,31 $L4E00350 | 00033 0402 00 0 77775 SUB F 4,31 L4E00360 | 00034 0601 00 0 77777 STO T 4,31 L4E00370 00035 0500 00 0 77775 CLA F 5,30 NUMERATOR = 2F $L4E00380 | 00036 0560 00 0 00057 LDQ =O201400000000 $L4E00390 | 00037 0225 33 0 77777 VDP T,0,27 L4E00400 | 00040 0131 00 0 00000 XCA L4E00410 | 00041 -0501 00 0 00056 ORA =O201000000000 $L4E00420 00042 0300 00 0 00057 FAD =1. $L4E00430 | 00043 0400 00 0 77774 ADD M $L4E00440 | 00044 0020 00 4 00001 TRA 1,4 RETURN L4E00450 | 00045 -0754 00 0 00000 SMALL ZAC $L4E00451 | 00046 0020 00 4 00001 TRA 1,4 IF TOO SMALL, RETURN WITH ZERO $L4E00452 00047 0500 00 0 00062 LARGE CLA =O377777777777 $L4E00453 | | BINARY CARD NO. 9XPF0003 | 00050 0601 00 0 77462 STO CELL AC OVERFLOW CELL $L4E00454 | 00051 0020 00 4 00001 TRA 1,4 IF TOO LARGE, RETURN WITH LARGEST VALUE $L4E00455 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L4E00460 | * CONSTANTS L4E00470 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | FLOATING POINT EXPONENTIAL FUNCTION / 9XPF | * ERASABLES L4E00570 | 77462 COMMON -1 $L4E00571 | 77462 CELL COMMON 1 $L4E00572 | 77777 COMMON -206 L4E00580 | 77777 T COMMON 1 L4E00590 77776 SQ COMMON 1 L4E00600 | 77775 F COMMON 1 L4E00610 | 77774 M COMMON 1 L4E00620 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L4E00630 | END L4E00640 | LITERALS | 00052 000000000242 | 00053 010676467774 | 00054 046477071523 00055 127325604305 | 00056 201000000000 | 00057 201400000000 | 00060 207540071260 | 00061 237214030720 00062 377777777777 | 00063 670524354513 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 64 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 77775 F 16, 17, 33, 35, 52 77774 M 14, 43, 52 | 77777 T 22, 24, 25, 31, 34, 37, 52 | 77776 SQ 20, 26, 52 | 0 EXP 0 | 12 SH1 10 77462 CELL 50, 52 | 47 LARGE 1 | 45 SMALL 3 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9LOG L4L00000 * FAP L4L00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT NATURAL LOG ROUTINE / LOG | | | BINARY CARD NO. 9LOG0000 00006 ENTRY LOG L4L00070 | 00000 ENTRY LOG10 $L4L00071 | | BINARY CARD NO. 9LOG0001 | 00000 0634 00 4 00004 LOG10 SXA SAVE,4 $L4L00072 00001 0074 00 4 00006 TSX LOG,4 $L4L00073 | 00002 0131 00 0 00000 XCA $L4L00074 | 00003 0260 00 0 00057 FMP =.4342944819 LOGE TO THE BASE 10 $L4L00075 | 00004 0774 00 4 00000 SAVE AXT *-*,4 $L4L00076 | 00005 0020 00 4 00001 TRA 1,4 $L4L00077 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L4L00080 | 00006 0100 00 4 00001 LOG TZE 1,4 L4L00090 | 00007 0760 00 0 00003 SSP L4L00100 | 00010 0560 00 0 00052 LDQ =O200 $L4L00104 | 00011 0765 00 0 00033 LRS 27 CHARACTERISTIC...I+128 L4L00110 00012 0767 00 0 00001 ALS 1 L4L00120 | 00013 0402 00 0 00053 SUB =O401 $L4L00130 | 00014 -0501 00 0 00062 ORA =O232000000000 FLOAT I $L4L00140 | 00015 0601 00 0 77775 STO COMMON L4L00150 | 00016 -0754 00 0 00000 ZAC L4L00160 00017 0131 00 0 00000 XCA L4L00170 | 00020 0771 00 0 00001 ARS 1 B1 L4L00180 | 00021 0400 00 0 00056 ADD =.707106781187B1 F+HLFSQ2....B1 $L4L00190 | 00022 0601 00 0 77776 STO COMMON+1 L4L00200 | 00023 0402 00 0 00063 SUB =.707106781187B0 F-HLFSQ2....B1 $L4L00210 | BINARY CARD NO. 9LOG0002 | 00024 0224 35 0 77776 VDH COMMON+1,0,29 1-1+35-29...B6, Z L4L00220 | 00025 -0600 00 0 77776 STQ COMMON+1 B6 L4L00230 | 00026 0204 34 0 77776 VLM COMMON+1,0,28 6+6+28-35...B5, Z SQUARE L4L00240 00027 0601 00 0 77777 STO COMMON+2 L4L00250 | 00030 0560 00 0 00051 LDQ =O31 B28 $L4L00260 | 00031 0204 06 0 77777 VLM COMMON+2,0,6 28+5+6-35...B4 L4L00270 | 00032 0402 00 0 00054 SUB =.25963855429B4 B4 $L4L00280 | 00033 0602 00 0 77777 SLW COMMON+2 L4L00290 00034 0502 00 0 00064 CLS =-.26455155161B5 $L4L00300 | 00035 0224 40 0 77777 VDH COMMON+2,0,32 5-4+35-32...B4 L4L00310 | 00036 0131 00 0 00000 XCA B4 L4L00320 | 00037 0402 00 0 77777 SUB COMMON+2 L4L00330 | 00040 0400 00 0 00055 ADD =2.126106178B4 B4 $L4L00340 00041 0131 00 0 00000 XCA L4L00350 | 00042 0765 00 0 00007 LRS 7 BQ11 L4L00360 | 00043 0204 32 0 77776 VLM COMMON+1,0,26 11+6+26-35...B8 L4L00370 | 00044 -0501 00 0 00060 ORA =O200000000000 $L4L00380 | 00045 0300 00 0 77775 FAD COMMON L4L00400 00046 0131 00 0 00000 XCA L4L00410 | 00047 0260 00 0 00061 FMP =6.93147180560E-01 $L4L00420 | | BINARY CARD NO. 9LOG0003 | 00050 0020 00 4 00001 TRA 1,4 L4L00430 L4L00440 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L4L00550 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | FLOATING POINT NATURAL LOG ROUTINE / LOG | 77775 COMMON -206+2 L4L00560 | 77775 COMMON COMMON 1 L4L00570 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L4L00580 | END L4L00590 | LITERALS | 00051 000000000031 | 00052 000000000200 | 00053 000000000401 | 00054 004116753015 00055 042011037513 | 00056 132404746316 | 00057 177674557305 | 00060 200000000000 | 00061 200542710277 00062 232000000000 | 00063 265011714634 | 00064 402073464641 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77774 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 65 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 6 LOG 0, 1 | 4 SAVE 0 | 0 LOG10 0 | 77775 COMMON 15, 22, 24, 25, 26, 27, 31, 33, 35, 37, 43, 45, 51 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9ATN L5A00000 * FAP L5A00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT ARCTANGENT ROUTINE / 9ATN | | | BINARY CARD NO. 9ATN0000 00000 ENTRY ATAN L5A00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5A00080 | | BINARY CARD NO. 9ATN0001 | 00000 0634 00 1 00055 ATAN SXA I1,1 SAVE INDEX REGISTER ONE L5A00090 00001 -0120 00 0 00057 TMI T100 SET ARGUMENT POSITIVE L5A00100 | 00002 0601 00 0 77775 T30 STO X STORE ARGUMENT L5A00110 | 00003 0402 00 0 00066 SUB MAX TEST IF OUT OF RANGE L5A00120 | 00004 -0120 00 0 00007 TMI T21 L5A00130 | 00005 0500 00 0 00114 CLA PI0V2 IF TOO LARGE, RETURN WITH PI/2 L5A00140 00006 0020 00 4 00001 TRA 1,4 L5A00150 | 00007 0400 00 0 00065 T21 ADD MIN L5A00160 | 00010 0120 00 0 00013 TPL T22 L5A00170 | 00011 0500 00 0 77775 CLA X L5A00180 | 00012 0020 00 4 00001 TRA 1,4 IF TOO SMALL, RETURN WITH ARGUMENT L5A00190 00013 0774 00 1 00000 T22 AXT 0,1 L5A00200 | 00014 0500 00 0 77775 T17 CLA X TEST FOR INTERVAL CONTAINING X L5A00210 | 00015 0402 00 1 00072 SUB A,1 L5A00220 | 00016 -0120 00 0 00020 TMI T1 L5A00230 | 00017 1 00001 1 00014 TXI T17,1,1 L5A00240 00020 3 00000 1 00024 T1 TXH T2,1,0 IF IN INTERVAL ONE LET Z=9X/55 L5A00250 | 00021 0560 00 0 77775 LDQ X L5A00260 | 00022 0260 00 0 00113 FMP L L5A00270 | 00023 0020 00 0 00035 TRA T11 L5A00280 | BINARY CARD NO. 9ATN0002 | 00024 0754 00 1 00000 T2 PXA 0,1 REARRANGE INDEXING L5A00290 | 00025 0737 00 1 00000 PAC 0,1 TAKE NEGATIVE OF INDEX REGISTER ONE L5A00300 | 00026 0500 00 0 77775 T3 CLA X COMPUTE Z=A-B/C+X FOR PROPER INTERVAL L5A00310 | 00027 0300 00 1 00066 FAD MAX,1 L5A00320 00030 0601 00 0 77776 STO T L5A00330 | 00031 0502 00 1 00076 CLS B,1 L5A00340 | 00032 0241 00 0 77776 FDP T L5A00350 | 00033 0131 00 0 00000 XCA L5A00360 | 00034 0300 00 1 00072 FAD A,1 L5A00370 00035 0601 00 0 77775 T11 STO X L5A00380 | 00036 0131 00 0 00000 XCA L5A00390 | 00037 0260 00 0 77775 FMP X COMPUTE Z SQUARED L5A00400 | 00040 0601 00 0 77777 STO SQ COMPUTE CONTINUED FRACTION L5A00410 | 00041 0300 00 0 00110 FAD C1 L5A00420 00042 0601 00 0 77776 STO T L5A00430 | 00043 0502 00 0 00111 CLS C2 L5A00440 | 00044 0241 00 0 77776 FDP T L5A00450 | 00045 0131 00 0 00000 XCA L5A00460 | 00046 0300 00 0 00112 FAD C3 L5A00470 00047 0300 00 0 77777 FAD SQ L5A00480 | | BINARY CARD NO. 9ATN0003 | 00050 0601 00 0 77776 STO T L5A00490 | 00051 0500 00 0 77775 CLA X L5A00500 00052 0241 00 0 77776 FDP T L5A00510 | 00053 0131 00 0 00000 XCA L5A00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | FLOATING POINT ARCTANGENT ROUTINE / 9ATN | 00054 0300 00 1 00103 FAD N,1 ADD INTERVAL CONSTANT L5A00530 | 00055 0774 00 1 00000 I1 AXT 0,1 L5A00540 | 00056 0020 00 4 00001 TRA 1,4 RETURN L5A00550 | 00057 0634 00 4 00062 T100 SXA I4,4 IF ARGUMENT NEGATIVE, CHANGE SIGN L5A00560 | 00060 0760 00 0 00003 SSP L5A00570 00061 0074 00 4 00002 TSX T30,4 ARRANGE TO SET RETURN NEGATIVE L5A00580 | 00062 0774 00 4 00000 I4 AXT 0,4 L5A00590 | 00063 -0760 00 0 00003 SSM L5A00600 | 00064 0020 00 4 00001 TRA 1,4 L5A00610 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5A00620 * CONSTANTS L5A00630 | 00065 +070000000000 MIN OCT 070000000000 L5A00640 | 00066 +233000000000 MAX OCT 233000000000 L5A00650 | 00067 +202537532534 DEC 2.7474774195 L5A00660 | 00070 +201461055415 DEC 1.1917535926 L5A00670 00071 +200447464721 DEC .57735026919 L5A00680 | 00072 +176551074172 A DEC .17632698071 L5A00690 | 00073 +177714301134 DEC .44958721409 L5A00700 | | BINARY CARD NO. 9ATN0004 00074 +176617307170 DEC .19501422424 L5A00710 | 00075 +175602761366 DEC .94475498595E-1 L5A00720 | 00076 +173730570600 B DEC .288535059E-1 L5A00730 | 00077 +201546070234 DEC 1.398867082 L5A00740 | 00100 +177625431617 DEC .39604526598 L5A00750 00101 +176676654157 DEC .21818181818 L5A00760 | 00102 +176531427747 DEC .1687240152 L5A00770 | 00103 +000000000000 N DEC 0 L5A00780 | 00104 +177545343022 DEC .3490658504 L5A00790 | 00105 +200545343022 DEC .6981317008 L5A00800 00106 +201414052216 DEC 1.047197551 L5A00810 | 00107 +201545343022 DEC 1.396263402 L5A00820 | 00110 +174642612432 C1 DEC .051119459 L5A00830 | 00111 +170543147755 C2 DEC .00270998425 L5A00840 | 00112 +176673545053 C3 DEC .21664913599 L5A00850 00113 +176517101123 L DEC .16363636363 L5A00860 | 00114 +201622077325 PI0V2 DEC 1.57079633 L5A00870 | * ERASABLES L5A00880 | 77777 COMMON -206 L5A00890 | 77777 SQ COMMON 1 L5A00900 77776 T COMMON 1 L5A00910 | 77775 X COMMON 1 L5A00920 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5A00930 | END L5A00940 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77774 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 115 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 72 A 15, 34 | 76 B 31 | 113 L 22 | 103 N 54 77776 T 30, 32, 42, 44, 50, 52, 115 | 77775 X 2, 11, 14, 21, 26, 35, 37, 51, 115 | 110 C1 41 | 111 C2 43 | 112 C3 46 55 I1 0 | 62 I4 57 | 77777 SQ 40, 47, 115 | 20 T1 16 | 24 T2 20 26 T3 | 66 MAX 3, 27 | 65 MIN 7 | 35 T11 23 | 14 T17 17 7 T21 4 | 13 T22 10 | 2 T30 61 | 0 ATAN 0 | 57 T100 1 114 PI0V2 5 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9SCN L5S00000 * FAP L5S00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT SINE AND COSINE ROUTINE / 9SCN | | | BINARY CARD NO. 9SCN0000 00000 ENTRY COS L5S00070 | 00001 ENTRY SIN L5S00080 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5S00090 | | BINARY CARD NO. 9SCN0001 00000 0300 00 0 00150 COS FAD FPHLF COS THETA EQU. SIN THETA+PIHLF L5S00100 | 00001 0601 00 0 77774 SIN STO SPMLT SAVE ARGUMENT L5S00110 | 00002 0560 00 0 00132 LDQ ZERO L5S00120 | 00003 0765 00 0 00011 LRS 9 CHARACTERISTIC TO X.R. 1 L5S00130 | 00004 -0634 00 1 00021 SXD SAVE,1 L5S00140 00005 -0734 00 1 00000 PDX 0,1 X.R. 1 TO DETERMINE LENGTH OF SHIFTS L5S00150 | 00006 -0140 00 0 00123 OVTST TNO NOVFL PRESERVE AC OVERFLOW STATUS L5S00160 | 00007 -0634 00 4 00125 SXD INDIC,4 SET INDICATOR TO NON ZERO L5S00170 | 00010 0763 00 0 00023 LLS 19 FIRST TWO BITS OF FRACTION TO P, Q L5S00180 | 00011 -3 00176 1 00026 TXL SPEC,1,126 S SMALLER THAN -1, ANGLE SMALLER TH. .25 L5S00190 00012 3 00205 1 00037 TXH LNGDV,1,133 S LARGER THAN 5, ANGLE LARGER TH. 32 RAD. L5S00200 | 00013 0765 00 1 00211 LRS 137,1 B7 L5S00210 | 00014 0224 04 0 00133 VARDV VDH PI,0,4 PI B3, BQ 35, BR 3 L5S00220 | 00015 -0773 00 0 00043 RQL 35 TEST LAST BIT OF NO. OF PIS IN THETA L5S00230 | 00016 0162 00 0 00043 TQP FRLAR 0...+SIN L5S00240 00017 0760 00 0 00002 CHS 1...-SIN L5S00250 | 00020 0601 00 0 77774 STO SPMLT L5S00260 | 00021 -3 00000 0 00043 SAVE TXL FRLAR,0, L5S00270 | 00022 0020 00 0 00117 ERR TRA FINI-1 PREPARE ERROR RETURN L5S00280 | 00023 0402 00 0 00134 EQUA SUB PIHLF SIN THETA COMPUTED AS COS PIHLF-THETA L5S00290 | BINARY CARD NO. 9SCN0002 | 00024 0602 00 0 77775 SLW REDA L5S00300 | 00025 1 00002 1 00061 SX TXI COMCA,1,2 COSC...X.R. CONTAINS 4 L5S00310 | 00026 -3 00170 1 00033 SPEC TXL LOW,1,120 SIN REPLACED BY ARGUMENT FOR ANGLES SMALL L5S00320 00027 0765 00 1 00205 LRS 133,1 L5S00330 | 00030 0602 00 0 77775 SLW REDA L5S00340 | 00031 -0534 00 1 00025 LXD SX,1 2 TO X.R. 1 TO INDICATE USE OF SIN FORMULA L5S00350 | 00032 0020 00 0 00061 TRA COMCA L5S00360 | 00033 0760 00 0 00006 LOW COM L5S00370 00034 0767 00 0 00001 ALS 1 L5S00380 | 00035 0500 00 0 77774 CLA SPMLT RETURN WITH ARGUMENT. L5S00390 | 00036 0020 00 0 00117 TRA FINI-1 L5S00400 | 00037 3 00244 1 00022 LNGDV TXH ERR,1,164 S LARGER THAN 36 L5S00410 | 00040 0765 00 1 00250 LRS 168,1 L5S00420 00041 0220 00 0 00133 DVH PI L5S00430 | 00042 0020 00 0 00015 TRA VARDV+1 RETURN TO MAIN CALCULATION L5S00440 | 00043 0760 00 0 00003 FRLAR SSP L5S00450 | 00044 -0534 00 1 00025 LXD SX,1 X.R. TO INDICATE USE OF SIN FORMULA L5S00460 | 00045 0340 00 0 00134 CAS PIHLF REDUCE TO FIST QUADRANT L5S00470 00046 0402 00 0 00133 SUB PI L5S00480 | 00047 0760 00 0 00003 SSP L5S00490 | | BINARY CARD NO. 9SCN0003 | 00050 0560 00 0 00135 LDQ TEST REDUCE TO FIRST OCTANT L5S00500 00051 0040 00 0 00023 TLQ EQUA L5S00510 | 00052 0601 00 0 77775 STO REDA L5S00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | FLOATING POINT SINE AND COSINE ROUTINE / 9SCN | 00053 0765 00 0 00004 FLOAT LRS 4 COMPUTE FLOATING Z FOR SIN FORMULA L5S00530 | 00054 0400 00 0 00136 ADD CHAR L5S00540 | 00055 0300 00 0 00137 FAD CHAR+1 L5S00550 | 00056 0560 00 0 77774 LDQ SPMLT SET FINAL SIGN L5S00560 | 00057 0763 00 0 00000 LLS 0 L5S00570 00060 0601 00 0 77774 STO SPMLT L5S00580 | COMMON CALCULATION FOR SIN AND COS L5S00590 | 00061 0560 00 0 77775 COMCA LDQ Z B3 L5S00600 | 00062 -0200 00 0 77775 MPR Z L5S00610 | 00063 0601 00 0 77777 STO ZSQ B6 L5S00620 00064 0400 00 1 00144 ADD CONST+4,1 24.1B6, 50. B6 L5S00630 | 00065 0601 00 0 77776 STO SOR L5S00640 | 00066 0500 00 1 00145 CLA CONST+5,1 2287B13, 1042B11 L5S00650 | 00067 0220 00 0 77776 DVH SOR L5S00660 | 00070 0131 00 0 00000 XCA L5S00670 00071 0400 00 1 00150 ADD CONST+8,1 82.5B7, -19.B5 L5S00680 | 00072 0767 00 0 00001 ALS 1 B6, BITS IN P,Q L5S00690 | 00073 0400 00 0 77777 ADD ZSQ L5S00700 | | BINARY CARD NO. 9SCN0004 00074 0771 00 1 00006 ARS 6,1 B8 FOR SIN AND COS L5S00710 | 00075 -3 00002 1 00126 TXL S,1,2 TRA TO CALCULATE SIN Z L5S00720 | 00076 0601 00 0 77776 STO SOR CALCULATE COS Z L5S00730 | 00077 0500 00 0 77777 CLA ZSQ L5S00740 | 00100 0765 00 0 00002 LRS 2 L5S00750 00101 0400 00 0 77777 ADD ZSQ L5S00760 | 00102 0763 00 0 00001 LLS 1 L5S00770 | 00103 0400 00 0 00145 ADD CONST+5 -3276B13 L5S00780 | 00104 0220 00 0 77776 DVH SOR L5S00790 | 00105 0131 00 0 00000 XCA L5S00800 00106 0400 00 0 00147 ADD CONST+7 19.477B5 L5S00810 | 00107 0765 00 0 00002 LRS 2 L5S00820 | 00110 0402 00 0 77777 SUB ZSQ L5S00830 | 00111 0560 00 0 77774 LDQ SPMLT SET FINAL SIGN L5S00840 | 00112 0763 00 0 00010 LLS 8 L5S00850 00113 -0760 00 0 00001 PBT L5S00860 | 00114 1 00001 1 00115 TXI RTSH,1,1 XR)..5 FOR COS L5S00870 | 00115 0771 00 1 00015 RTSH ARS 13,1 9 OR 8 L5S00880 | 00116 0361 00 1 00143 ACL CHAR+5,1 127 OR 128 L5S00890 | 00117 -0534 00 1 00021 LXD SAVE,1 L5S00900 | BINARY CARD NO. 9SCN0005 | 00120 -0520 00 0 00125 FINI NZT INDIC L5S00910 | 00121 0140 00 0 00122 TOV FINI+2 TURN OFF OVFL. INDIC. L5S00920 | 00122 0020 00 4 00001 TRA 1,4 L5S00930 00123 0600 00 0 00125 NOVFL STZ INDIC L5S00940 | 00124 0020 00 0 00010 TRA OVTST+2 L5S00950 | 00125 0 00000 0 00000 INDIC IF ZERO...TURN OFF, IF NOT ... LEAVE ON L5S00960 | 00126 0400 00 0 00137 S ADD CHAR+1 128 L5S00970 | 00127 0131 00 0 00000 XCA L5S00980 00130 0260 00 0 77774 FMP SPMLT L5S00990 | 00131 0020 00 0 00117 TRA FINI-1 L5S01000 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5S01010 | CONSTANTS L5S01020 | 00132 0 00000 0 00000 ZERO PZE 0 L5S01030 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | FLOATING POINT SINE AND COSINE ROUTINE / 9SCN | | 00133 +144417665210 PI DEC 3.14159265359B3 L5S01040 | 00134 +062207732503 PIHLF DEC 1.57079632679B3 L5S01050 00135 +011463146314 TEST DEC .3B3 L5S01060 | 00136 +177000000000 CHAR OCT 177000000000 L5S01070 | 00137 +200000000000 OCT 200000000000 L5S01080 | 00140 +140450575062 CONST DEC 24.1448946943B6,2287.443195687B13,50.0302454854B6 L5S01090 | 00141 +107367056521 00142 +310075742536 | 00143 +202273236275 DEC 1042.9267081438B11,82.58030199563B7,-3276.33995164B13 L5S01100 | | BINARY CARD NO. 9SCN0006 | 00144 +245122165275 00145 -146305340704 | 00146 -236610717605 DEC -19.8459242632B5,19.477149451B5 L5S01110 | 00147 +233642316731 | 00150 +201622077325 FPHLF DEC 1.57079632679 L5S01120 | ERASABLE STORAGE L5S01130 77777 COMMON -206 L5S01140 | 77777 ZSQ COMMON 1 L5S01150 | 77776 SOR COMMON 1 L5S01160 | 77775 Z COMMON 1 L5S01170 | 77775 REDA SYN Z L5S01180 77774 SPMLT COMMON 1 L5S01190 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5S01200 | END L5S01210 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 151 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 126 S 75 | 77775 Z 61, 62, 151 | 133 PI 14, 41, 46 | 25 SX 31, 44 | 0 COS 0 22 ERR 37 | 33 LOW 26 | 1 SIN 0 | 77776 SOR 65, 67, 76, 104, 151 | 77777 ZSQ 63, 73, 77, 101, 110, 151 136 CHAR 54, 55, 116, 126 | 23 EQUA 51 | 120 FINI 22, 36, 121, 131 | 77775 REDA 24, 30, 52, 151 | 115 RTSH 114 21 SAVE 4, 117 | 26 SPEC 11 | 135 TEST 50 | 132 ZERO 2 | 61 COMCA 25, 32 140 CONST 64, 66, 71, 103, 106 | 53 FLOAT | 150 FPHLF 0 | 43 FRLAR 16, 21 | 125 INDIC 7, 120, 123 37 LNGDV 12 | 123 NOVFL 6 | 6 OVTST 124 | 134 PIHLF 23, 45 | 77774 SPMLT 1, 20, 35, 56, 60, 111, 130, 151 14 VARDV 42 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9TNH L5T00000 * FAP L5T00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT HYPERBOLIC TANGENT ROUTINE / 9TNH | | | BINARY CARD NO. 9TNH0000 00000 ENTRY TANH L5T00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5T00080 | | BINARY CARD NO. 9TNH0001 | 00000 0601 00 0 77775 TANH STO F L5T00090 00001 0760 00 0 00003 SSP L5T00100 | 00002 0402 00 0 00112 SUB MIN L5T00110 | 00003 0120 00 0 00006 TPL T5 L5T00120 | 00004 0500 00 0 77775 CLA F TEST IF ARGUMENT LESS THAN .00034 L5T00130 | 00005 0020 00 4 00001 TRA 1,4 IF SO LET TANH X EQUAL X L5T00140 00006 0402 00 0 00111 T5 SUB MAX TEST IF ARGUMENT LARGER THAN 12 L5T00150 | 00007 -0120 00 0 00012 TMI T6 L5T00160 | 00010 -0500 00 0 77775 CAL F IF SO LET TANH X EQUAL + OR - ONE L5T00170 | 00011 0020 00 0 00106 TRA T12 L5T00180 | 00012 0500 00 0 77775 T6 CLA F L5T00190 00013 0765 00 0 00033 LRS 27 L5T00200 | 00014 -0760 00 0 00003 SSM L5T00210 | 00015 0400 00 0 00114 ADD CHAR CONVERT TO FIXED POINT L5T00220 | 00016 0621 00 0 00020 STA SH1 L5T00230 | 00017 0200 00 0 00113 MPY LOGE X TIMES LOG E BASE 2 L5T00240 00020 0765 00 0 00000 SH1 LRS ** SEPARATE INTEGER AND FRACTION L5T00250 | 00021 0767 00 0 00033 ALS 27 L5T00260 | 00022 0601 00 0 77774 STO M L5T00270 | 00023 0763 00 0 00002 LLS 2 L5T00280 | BINARY CARD NO. 9TNH0002 | 00024 0100 00 0 00067 TZE T2 IF ARGUMENT LESS THAN .25 TRANSFER L5T00290 | 00025 0765 00 0 00006 LRS 6 IF GREATER COMPUTE E TO THE X L5T00300 | 00026 -0600 00 0 77775 STQ F L5T00310 | 00027 0200 00 0 77775 MPY F COMPUTE FRACTION SQUARED L5T00320 00030 0601 00 0 77776 STO SQ COMPUTE CONTINUED FRACTION L5T00330 | 00031 0400 00 0 00116 ADD A 8,27 SCALING L5T00340 | 00032 0601 00 0 77777 STO T 8,27 L5T00350 | 00033 0500 00 0 00117 CLA B 12,23 L5T00360 | 00034 0221 00 0 77777 DVP T 8,27 4,31 L5T00370 00035 -0600 00 0 77777 STQ T 4,31 L5T00380 | 00036 0560 00 0 77776 LDQ SQ 8,27 L5T00390 | 00037 0200 00 0 00120 MPY C 00,35 8,27 L5T00400 | 00040 0763 00 0 00004 LLS 4 4,31 L5T00410 | 00041 0402 00 0 77777 SUB T 4,31 L5T00420 00042 0400 00 0 00121 ADD D 4,31 L5T00430 | 00043 0402 00 0 77775 SUB F 4,31 L5T00440 | 00044 0601 00 0 77777 STO T 4,31 L5T00450 | 00045 0500 00 0 77775 CLA F 5,31 NUMERATOR EQUALS 2F L5T00460 | 00046 0560 00 0 00115 LDQ CH L5T00470 00047 0225 33 0 77777 VDP T,0,27 L5T00480 | | BINARY CARD NO. 9TNH0003 | 00050 0131 00 0 00000 XCA L5T00490 | 00051 0400 00 0 00115 ADD CH ADD ONE AND CONVERT TO FLOATING POINT L5T00500 00052 0400 00 0 77774 T1 ADD M L5T00510 | 00053 0601 00 0 77774 STO M COMPUTE TANH X FROM E TO THE X L5T00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | FLOATING POINT HYPERBOLIC TANGENT ROUTINE / 9TNH | 00054 0500 00 0 00115 CLA CH L5T00530 | 00055 0241 00 0 77774 FDP M L5T00540 | 00056 -0600 00 0 77775 STQ F L5T00550 | 00057 0500 00 0 77774 CLA M L5T00560 | 00060 0300 00 0 77775 FAD F L5T00570 00061 0601 00 0 77777 STO T L5T00580 | 00062 0500 00 0 77774 CLA M L5T00590 | 00063 0302 00 0 77775 FSB F L5T00600 | 00064 0241 00 0 77777 T10 FDP T L5T00610 | 00065 0131 00 0 00000 XCA L5T00620 00066 0020 00 4 00001 TRA 1,4 RETURN L5T00630 | 00067 0560 00 0 77775 T2 LDQ F COMPUTE TANH 4LOGE IF X SMALL L5T00640 | 00070 0260 00 0 00125 FMP 4LOGE COMPUTE X TIMES 4LOGE L5T00650 | 00071 0601 00 0 77775 STO F L5T00660 | 00072 0131 00 0 00000 XCA L5T00670 00073 0260 00 0 77775 FMP F L5T00680 | | BINARY CARD NO. 9TNH0004 | 00074 0601 00 0 77776 STO SQ L5T00690 | 00075 0300 00 0 00124 FAD D1 COMPUTE CONTINUED FRACTION L5T00700 00076 0601 00 0 77777 STO T L5T00710 | 00077 0500 00 0 00123 CLA C1 L5T00720 | 00100 0241 00 0 77777 FDP T L5T00730 | 00101 0131 00 0 00000 XCA L5T00740 | 00102 0300 00 0 00122 FAD B1 L5T00750 00103 0131 00 0 00000 XCA L5T00760 | 00104 0260 00 0 77776 FMP SQ L5T00770 | 00105 0300 00 0 00125 FAD 4LOGE L5T00780 | 00106 0601 00 0 77777 T12 STO T L5T00790 | 00107 0500 00 0 77775 CLA F L5T00800 00110 0020 00 0 00064 TRA T10 L5T00810 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5T00820 | * CONSTANTS L5T00830 | 00111 +017000000000 MAX OCT 017000000000 L5T00840 | 00112 +165544410070 MIN DEC .00034 L5T00850 00113 +270524354513 LOGE DEC 1.4426950409B1 L5T00860 | 00114 +000000000242 CHAR OCT 242 L5T00870 | 00115 +201400000000 CH OCT 201400000000 L5T00880 | 00116 +127325604305 A DEC 87.417497202B8 L5T00890 | 00117 +046477071523 B DEC 617.9722695B12 L5T00900 | BINARY CARD NO. 9TNH0005 | 00120 +010676467774 C DEC .03465735903B0 L5T00910 | 00121 +237214030720 D DEC 9.9545957821B4 L5T00920 | 00122 +173433723377 B1 DEC .01732867951 L5T00930 00123 +204704333566 C1 DEC 14.1384114018 L5T00940 | 00124 +211535527021 D1 DEC 349.6699888 L5T00950 | 00125 +203561250731 4LOGE DEC 5.7707801636 L5T00960 | * ERASABLES L5T00970 | 77777 COMMON -206 L5T00980 77777 T COMMON 1 L5T00990 | 77776 SQ COMMON 1 L5T01000 | 77775 F COMMON 1 L5T01010 | 77774 M COMMON 1 L5T01020 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L5T01030 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | FLOATING POINT HYPERBOLIC TANGENT ROUTINE / 9TNH | | END L5T01040 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 126 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 116 A 31 | 117 B 33 | 120 C 37 | 121 D 42 77775 F 0, 4, 10, 12, 26, 27, 43, 45, 56, 60, 63, 67, 71, 73, 107, 126 | 77774 M 22, 52, 53, 55, 57, 62, 126 | 77777 T 32, 34, 35, 41, 44, 47, 61, 64, 76, 100, 106, 126 | 122 B1 102 | 123 C1 77 115 CH 46, 51, 54 | 124 D1 75 | 77776 SQ 30, 36, 74, 104, 126 | 52 T1 | 67 T2 24 6 T5 3 | 12 T6 7 | 111 MAX 6 | 112 MIN 2 | 20 SH1 16 64 T10 110 | 106 T12 11 | 114 CHAR 15 | 113 LOGE 17 | 0 TANH 0 125 4LOGE 70, 105 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CAS L6A00000 * FAP L6A00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | COMPLEX ARITHMETIC BASIC SUBROUTINES / 9CAS | | COMPLEX-ARITHMETIC FORTRAN L6A00070 | BASIC OPERATION SUBROUTINE FOR FMP, FDP L6A00080 L6A00090 | CALLING SEQUENCE IS L6A00100 | LOCATION 2 INITIALIZED BY L6A00110 | CAL (....) L6A00120 | SLW 2 L6A00130 AND REMAINS SO UNTIL A DIFFERENT OPERATION IS REQUIREL6A00140 | L6A00150 | EACH USAGE IS CALLED BY L6A00160 | STR ADD1 (REAL PART) L6A00170 | PZE ADD2 (IMAG. PART) L6A00180 LOC 0 CONTAINS THE ADDRESS OF THE IMAGINARY PART L6A00190 | THE ADDRESS OF THE MOST SIGNIFICANT PART IS C(LOC 0)-1 L6A00200 | L6A00210 | | BINARY CARD NO. 9CAS0000 00000 ENTRY (IFMP) L6A00220 | 00027 ENTRY (IFDP) L6A00230 | L6A00240 | 00000 .. EQU 0 L6A00250 | L6A00260 IFMP ROUTINE L6A00270 | | BINARY CARD NO. 9CAS0001 | 00000 -0500 00 0 00000 (IFMP) CAL 0 GET LOCATION STORED BY STR L6A00280 | 00001 0621 00 0 00011 STA IFMP01 IMAGINARY PART L6A00290 00002 0621 00 0 00020 STA IFMP03 L6A00300 | 00003 0402 00 0 00217 SUB L(1) L6A00310 | 00004 0621 00 0 00014 STA IFMP02 REAL PART L6A00320 | 00005 0621 00 0 00023 STA IFMP04 L6A00330 | 00006 0400 00 0 00220 ADD L(2) L6A00340 00007 0621 00 0 00026 STA IFMP05 FOR RETURN L6A00350 | L6A00360 | 00010 0560 00 0 77774 LDQ 4)-3 IMAGINARY MQ L6A00370 | 00011 0260 60 0 00000 IFMP01 FMP* .. * IMAGINARY PART OF VARIABLE L6A00380 | 00012 0601 00 0 00216 STO ERASE1 SAVE PRODUCT L6A00390 00013 0560 00 0 77775 LDQ 4)-2 REAL MQ L6A00400 | 00014 0260 60 0 00000 IFMP02 FMP* .. * REAL PART OF VARIABLE L6A00410 | 00015 0302 00 0 00216 FSB ERASE1 - PREVIOUS PRODUCT OF IMAGINARY PARTS L6A00420 | 00016 0560 00 0 77775 LDQ 4)-2 REAL MQ L6A00430 | 00017 0601 00 0 77777 STO 4) REAL AC L6A00440 00020 0260 60 0 00000 IFMP03 FMP* .. * IMAGINARY PART OF VARIABLE L6A00450 | 00021 0601 00 0 00216 STO ERASE1 L6A00460 | 00022 0560 00 0 77774 LDQ 4)-3 IMAGINARY MQ L6A00470 | 00023 0260 60 0 00000 IFMP04 FMP* .. * REAL PART OF VARIABLE L6A00480 | BINARY CARD NO. 9CAS0002 | 00024 0300 00 0 00216 FAD ERASE1 L6A00490 | 00025 0601 00 0 77776 STO 4)-1 IMAGINARY PART OF ANSWER TO IMAGINARY AC L6A00500 | 00026 0020 00 0 00000 IFMP05 TRA .. RETURN TO CALLING PROGRAM L6A00510 | L6A00520 IFDP ROUTINE L6A00530 | 00027 -0500 00 0 00000 (IFDP) CAL 0 GET LOCATION STORED BY STR L6A00540 | 00030 0621 00 0 00040 STA IFDP02 IMAGINARY PART L6A00550 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | COMPLEX ARITHMETIC BASIC SUBROUTINES / 9CAS | 00031 0402 00 0 00217 SUB L(1) L6A00560 | 00032 0621 00 0 00036 STA IFDP01 REAL PART L6A00570 | 00033 0400 00 0 00220 ADD L(2) L6A00580 | 00034 0621 00 0 00134 STA IFDP09 FOR RETURN L6A00590 L6A00600 | 00035 0634 00 4 00122 SXA IFDP08,4 L6A00610 | 00036 0500 60 0 00000 IFDP01 CLA* .. L6A00620 | 00037 0601 00 0 00205 STO C L6A00630 | 00040 0500 60 0 00000 IFDP02 CLA* .. L6A00640 00041 0601 00 0 00206 STO D L6A00650 | 00042 0560 00 0 77777 LDQ 4) A L6A00660 | 00043 -0600 00 0 00203 STQ A L6A00670 | 00044 0500 00 0 77776 CLA 4)-1 B L6A00680 | 00045 0601 00 0 00204 STO B L6A00690 00046 0760 00 0 00003 SSP L6A00700 | 00047 0765 00 0 00000 LRS 0 L6A00710 | | BINARY CARD NO. 9CAS0003 | 00050 0040 00 0 00066 TLQ CS34 A LESS THAN B L6A00720 00051 0500 00 0 00206 CLA D L6A00730 | 00052 0560 00 0 00205 LDQ C L6A00740 | 00053 0760 00 0 00003 SSP L6A00750 | 00054 0765 00 0 00000 LRS 0 L6A00760 | 00055 0040 00 0 00060 TLQ CASE2 C LESS THAN D L6A00770 00056 0074 00 4 00135 TSX CASE1,4 A AND C LARGEST ABSOLUTE VALUE L6A00780 | 00057 0020 00 0 00116 TRA IFDP07 L6A00790 | L6A00800 | 00060 0502 00 0 00205 CASE2 CLS C A GREATER THAN B, C LESS THAN D L6A00810 | 00061 0560 00 0 00206 LDQ D L6A00820 00062 0601 00 0 00206 STO D L6A00830 | 00063 -0600 00 0 00205 STQ C L6A00840 | 00064 0074 00 4 00135 TSX CASE1,4 L6A00850 | 00065 0020 00 0 00100 TRA IFDP06 L6A00860 | CASE 3 OR 4 L6A00870 00066 0500 00 0 00206 CS34 CLA D COMPARE C AND D L6A00880 | 00067 0560 00 0 00205 LDQ C L6A00890 | 00070 0760 00 0 00003 SSP L6A00900 | 00071 0765 00 0 00000 LRS 0 L6A00910 | 00072 0040 00 0 00105 TLQ CASE4 L6A00920 CASE3 L6A00930 | 00073 0502 00 0 00204 CLS B A LESS THAN B, C GREATER THAN D L6A00940 | | BINARY CARD NO. 9CAS0004 | 00074 0560 00 0 00203 LDQ A L6A00950 00075 0601 00 0 00203 STO A L6A00960 | 00076 -0600 00 0 00204 STQ B L6A00970 | 00077 0074 00 4 00135 TSX CASE1,4 L6A00980 | 00100 0502 00 0 00207 IFDP06 CLS X L6A00990 | 00101 0560 00 0 00210 LDQ Y L6A01000 00102 0601 00 0 77774 STO 4)-3 LEAVE ANSWER IN PSEUDO MQ L6A01010 | 00103 -0600 00 0 77775 STQ 4)-2 L6A01020 | 00104 0020 00 0 00122 TRA IFDP08 L6A01030 | L6A01040 | 00105 0502 00 0 00203 CASE4 CLS A A LESS THAN B, C LESS THAN D L6A01050 00106 0560 00 0 00204 LDQ B L6A01060 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | COMPLEX ARITHMETIC BASIC SUBROUTINES / 9CAS | | 00107 0601 00 0 00204 STO B L6A01070 00110 -0600 00 0 00203 STQ A L6A01080 | 00111 0502 00 0 00205 CLS C L6A01090 | 00112 0560 00 0 00206 LDQ D L6A01100 | 00113 0601 00 0 00206 STO D L6A01110 | 00114 -0600 00 0 00205 STQ C L6A01120 00115 0074 00 4 00135 TSX CASE1,4 L6A01130 | L6A01140 | 00116 0500 00 0 00207 IFDP07 CLA X LEAVE ANSWER IN PSEUDO MQ L6A01150 | 00117 0601 00 0 77775 STO 4)-2 L6A01160 | BINARY CARD NO. 9CAS0005 | 00120 0500 00 0 00210 CLA Y L6A01170 | 00121 0601 00 0 77774 STO 4)-3 L6A01180 | 00122 0774 00 4 00000 IFDP08 AXT ..,4 L6A01190 | 00123 0520 00 0 00205 ZET C TEST FOR DIVIDE CHECK (21)L6A01191 00124 0020 00 0 00127 TRA IFDP10 INDICATOR ERRONEOUSLY (21)L6A01192 | 00125 -0520 00 0 00206 NZT D BEING TURNED (21)L6A01193 | 00126 0020 00 0 00134 TRA IFDP09 ON WHEN (21)L6A01194 | 00127 0520 00 0 00203 IFDP10 ZET A THE DIVIDEND (21)L6A01195 | 00130 0020 00 0 00134 TRA IFDP09 EQUALS ZERO (21)L6A01196 00131 0520 00 0 00204 ZET B AND THE (21)L6A01197 | 00132 0020 00 0 00134 TRA IFDP09 DIVISOR (21)L6A01198 | 00133 0760 00 0 00012 DCT DOES NOT. (21)L6A01199 | 00134 0020 00 0 00000 IFDP09 TRA .. RETURN TO CALLER L6A01200 | L6A01210 00135 0500 00 0 00203 CASE1 CLA A A/C INTO AC L6A01220 | 00136 0241 00 0 00205 FDP C L6A01230 | 00137 -0600 00 0 00211 STQ AC L6A01240 | 00140 0500 00 0 00204 CLA B B/A INTO BA L6A01250 | 00141 0241 00 0 00203 FDP A L6A01260 00142 -0600 00 0 00212 STQ BA L6A01270 | 00143 0500 00 0 00206 CLA D D/C INTO DC L6A01280 | | BINARY CARD NO. 9CAS0006 | 00144 0241 00 0 00205 FDP C L6A01290 00145 -0600 00 0 00213 STQ DC DC SQUARED PLUS ONE INTO DC2 L6A01300 | 00146 0260 00 0 00213 FMP DC L6A01310 | 00147 0300 00 0 00215 FAD FL1 L6A01320 | 00150 0601 00 0 00214 STO DC2 L6A01330 | 00151 0560 00 0 00213 LDQ DC COMPUTE REAL PART OF ANSWER L6A01340 00152 0260 00 0 00212 FMP BA L6A01350 | 00153 0300 00 0 00215 FAD FL1 L6A01360 | 00154 0241 00 0 00214 FDP DC2 L6A01370 | 00155 0260 00 0 00211 FMP AC L6A01380 | 00156 0601 00 0 00207 STO X LEAVE IT IN X L6A01390 00157 -0760 00 0 00004 LFTM PREPARE TO TEST FOR UNDERFLOW CONDITION L6A01400 | 00160 0161 00 0 00161 TQO *+1 TURN LITE OFF L6A01410 | 00161 0500 00 0 00212 CLA BA L6A01420 | 00162 0302 00 0 00213 FSB DC L6A01430 | 00163 0161 00 0 00171 TQO OVFL TEST FOR UNDERFLOW L6A01440 00164 -0760 00 0 00002 EFTM RETURN TO NORMAL MODE L6A01450 | 00165 0241 00 0 00214 FDP DC2 FINISH COMPUTING IMAGINARY PART L6A01460 | 00166 0260 00 0 00211 FMP AC L6A01470 | 00167 0601 00 0 00210 STO Y LEAVE IT IN Y L6A01480 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 COMPLEX ARITHMETIC BASIC SUBROUTINES / 9CAS | | BINARY CARD NO. 9CAS0007 | 00170 0020 00 0 00202 TRA EXIT L6A01490 | 00171 -0760 00 0 00002 OVFL EFTM RETURN TO NORMAL MODE L6A01500 00172 0560 00 0 00211 LDQ AC AVOID UNDERFLOW CAUSING CONDITION L6A01510 | 00173 0260 00 0 00213 FMP DC L6A01520 | 00174 0601 00 0 00213 STO DC L6A01530 | 00175 0560 00 0 00211 LDQ AC L6A01540 | 00176 0260 00 0 00212 FMP BA L6A01550 00177 0302 00 0 00213 FSB DC L6A01560 | 00200 0241 00 0 00214 FDP DC2 L6A01570 | 00201 -0600 00 0 00210 STQ Y LEAVE IMAGINARY PART IN Y L6A01580 | 00202 0020 00 4 00001 EXIT TRA 1,4 RETURN TO CALLER L6A01590 | L6A01600 L6A01610 | 00203 0 00000 0 00000 A PZE 0 L6A01620 | 00204 0 00000 0 00000 B PZE 0 L6A01630 | 00205 0 00000 0 00000 C PZE 0 L6A01640 | 00206 0 00000 0 00000 D PZE 0 L6A01650 00207 0 00000 0 00000 X PZE 0 L6A01660 | 00210 0 00000 0 00000 Y PZE 0 L6A01670 | 00211 0 00000 0 00000 AC PZE 0 L6A01680 | 00212 0 00000 0 00000 BA PZE 0 L6A01690 | 00213 0 00000 0 00000 DC PZE 0 L6A01700 | BINARY CARD NO. 9CAS0008 | 00214 0 00000 0 00000 DC2 PZE 0 L6A01710 | 00215 +201400000000 FL1 DEC 1. L6A01720 | L6A01730 00216 0 00000 0 00000 ERASE1 PZE 0 L6A01740 | L6A01750 | 00217 0 00000 0 00001 L(1) PZE 1 L6A01760 | 00220 0 00000 0 00002 L(2) PZE 2 L6A01770 | 77777 COMMON -206 L6A01780 77777 4) COMMON 1 L6A01790 | END L6A01800 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 221 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 203 A 43, 74, 75, 105, 110, 127, 135, 141 204 B 45, 73, 76, 106, 107, 131, 140 | 205 C 37, 52, 60, 63, 67, 111, 114, 123, 136, 144 | 206 D 41, 51, 61, 62, 66, 112, 113, 125, 143 | 207 X 100, 116, 156 | 210 Y 101, 120, 167, 201 77777 4) 10, 13, 16, 17, 22, 25, 42, 44, 102, 103, 117, 121, 221 | 211 AC 137, 155, 166, 172, 175 | 212 BA 142, 152, 161, 176 | 213 DC 145, 146, 151, 162, 173, 174, 177 | 0 .. 0, 11, 14, 20, 23, 26, 36, 40, 122, 134 214 DC2 150, 154, 165, 200 | 215 FL1 147, 153 | 66 CS34 50 | 202 EXIT 170 | 217 L(1) 3, 31 220 L(2) 6, 33 | 171 OVFL 163 | 135 CASE1 56, 64, 77, 115 | 60 CASE2 55 | 105 CASE4 72 216 ERASE1 12, 15, 21, 24 | 36 IFDP01 32 | 40 IFDP02 30 | 100 IFDP06 65 | 116 IFDP07 57 122 IFDP08 35, 104 | 134 IFDP09 34, 126, 130, 132 | 127 IFDP10 124 | 11 IFMP01 1 | 14 IFMP02 4 20 IFMP03 2 | 23 IFMP04 5 | 26 IFMP05 7 | 27 (IFDP) 0 | 0 (IFMP) 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CAB L6B00000 * FAP L6B00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | COMPLEX ABSOLUTE VALUE FUNCTION / 9CAB | | | *9CAB COMPLEX ABSOLUTE VALUE FUNCTION L6B00080 | ABSF(Z)=L*SQRTF(1+(S/L)*(S/L)) L6B00100 | Z=X+IY, L=LARGER OF X AND Y IN ABSOLUTE VALUE L6B00110 | S=SMALLER OF X AND Y L6B00120 | | BINARY CARD NO. 9CAB0000 | 00001 ENTRY IABS L6B00140 | | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L6B00151 | TRANSFER VECTOR | | BINARY CARD NO. 9CAB0001 | 00000 625051636060 SQRT | 00001 0634 00 4 00022 IABS SXA EXIT,4 L6B00160 | 00002 0500 00 0 77777 CLA 4) X L6B00170 | 00003 0560 00 0 77776 LDQ 4)-1 Y L6B00180 | 00004 -0130 00 0 00000 XCL ABSOLUTE VALUE OF X L6B00190 00005 0131 00 0 00000 XCA ABSOLUTE VALUE OF Y L6B00200 | 00006 0040 00 0 00005 TLQ *-1 TRANSFER IF /X/=L L6B00210 | 00007 -0600 00 0 77773 STQ ERASE1 SAVE L L6B00220 | 00010 0100 00 0 00014 TZE FAD SINCE L MIGHT ALSO BE ZERO L6B00230 | 00011 0241 00 0 77773 FDP ERASE1 S/L L6B00240 00012 -0600 00 0 77777 STQ 4) SAVE S/L L6B00250 | 00013 0260 00 0 77777 FMP 4) (S/L)*(S/L) L6B00260 | 00014 0300 00 0 00024 FAD FAD =1. L6B00270 | 00015 0074 00 4 00000 TSX $SQRT,4 FIND SQUARE ROOT L6B00280 | 00016 0131 00 0 00000 XCA SQUARE ROOT TO MQ L6B00290 00017 0260 00 0 77773 FMP ERASE1 L*SQRT(1+(S/L)*(S/L)) L6B00300 | 00020 0601 00 0 77777 STO 4) LEAVE ABSF(Z) IN REAL AC L6B00310 | 00021 0600 00 0 77776 STZ 4)-1 STORE ZERO IN IMAGINARY AC L6B00320 | 00022 0774 00 4 00000 EXIT AXT **,4 L6B00330 | 00023 0020 00 4 00001 TRA 1,4 RETURN TO CALLER L6B00340 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L6B00349 | 77777 COMMON -206 L6B00350 | 77777 4) COMMON 1 L6B00360 | 77773 COMMON 3 L6B00370 | 77773 ERASE1 COMMON 1 L6B00380 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .L6B00381 | END L6B00390 | | LITERALS | BINARY CARD NO. 9CAB0002 | 00024 201400000000 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77772 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 25 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 77777 4) 2, 3, 12, 13, 20, 21, 24 14 FAD 10 | 22 EXIT 1 | 1 IABS 0 | 0 SQRT 15 | 77773 ERASE1 7, 11, 17, 24 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CXP L6E00000 * FAP L6E00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | COMPLEX EXPONENTIAL FUNCTION / 9CXP | | | BINARY CARD NO. 9CXP0000 00000 ENTRY IEXP L6E00070 | | BINARY CARD NO. 9CXP0001 | 00000 0634 00 4 00016 IEXP SXA IEEXIT,4 L6E00080 | 00001 0500 00 0 77777 CLA 4) L6E00090 00002 0074 00 4 00020 TSX EXP,4 FIND E**(X)=EXPF(X) L6E00100 | 00003 0601 00 0 77773 STO 4)-4 L6E00110 | 00004 0500 00 0 77776 CLA 4)-1 L6E00120 | 00005 0074 00 4 00131 TSX COS,4 COSF(Y) L6E00130 | 00006 0131 00 0 00000 XCA L6E00140 00007 0260 00 0 77773 FMP 4)-4 TIMES EXP(X) = L6E00150 | 00010 0601 00 0 77777 STO 4) REAL PART OF EXP(Z) L6E00160 | 00011 0500 00 0 77776 CLA 4)-1 L6E00170 | 00012 0074 00 4 00132 TSX COS+1,4 SINF(Y) L6E00180 | 00013 0131 00 0 00000 XCA L6E00190 00014 0260 00 0 77773 FMP 4)-4 EXP(X) TIMES SIN(Y) = L6E00200 | 00015 0601 00 0 77776 STO 4)-1 IMAGINARY PART OF EXP(Z) L6E00210 | 00016 0774 00 4 00000 IEEXIT AXT **,4 L6E00220 | 00017 0020 00 4 00001 TRA 1,4 L6E00230 | 00020 0560 00 0 00122 EXP LDQ EXP+66 L6E00240 EXPONENTIAL ROUTINE 73 STORAGES PLUS 5 COMMON L6E00250 | 00021 0040 00 0 00126 TLQ HPRE X LESS THAN -88.02969 ROUTINE RETURNS WITHL6E00260 | 00022 0760 00 0 00002 CHS ZERO AS THE ANSWER L6E00270 | 00023 0040 00 0 00115 TLQ EXP+61 03 L6E00280 | BINARY CARD NO. 9CXP0002 | 00024 0560 00 0 00117 LDQ EXP+63 04 L6E00290 | 00025 -0600 00 0 77767 STQ COMMON 05 L6E00300 | 00026 0765 00 0 00033 LRS 27 06 L6E00310 | 00027 0760 00 0 00003 SSP 07 L6E00320 00030 0402 00 0 00120 SUB EXP+64 08 L6E00330 | 00031 -0120 00 0 00040 TMI EXP+16 09 L6E00340 | 00032 0621 00 0 00034 STA EXP+12 10 L6E00350 | 00033 0760 00 0 00000 CLM 11 L6E00360 | 00034 0763 00 0 00034 LLS * 12 L6E00370 00035 0220 00 0 00123 DVH EXP+67 13 L6E00380 | 00036 -0600 00 0 77767 STQ COMMON 14 L6E00390 | 00037 0020 00 0 00044 TRA EXP+20 15 L6E00400 | 00040 0621 00 0 00043 STA EXP+19 16 L6E00410 | 00041 -0600 00 0 77770 STQ COMMON+1 17 L6E00420 00042 0500 00 0 77770 CLA COMMON+1 18 L6E00430 | 00043 0765 00 0 00043 LRS * 19 L6E00440 | 00044 0601 00 0 77770 STO COMMON+1 20 L6E00450 | 00045 0765 00 0 00002 LRS 2 21 L6E00460 | 00046 0601 00 0 77771 STO COMMON+2 22 L6E00470 00047 0765 00 0 00002 LRS 2 23 L6E00480 | | BINARY CARD NO. 9CXP0003 | 00050 0400 00 0 77771 ADD COMMON+2 24 L6E00490 | 00051 0601 00 0 77771 STO COMMON+2 25 L6E00500 00052 0560 00 0 77770 LDQ COMMON+1 26 L6E00510 | 00053 0200 00 0 77770 MPY COMMON+1 27 L6E00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | COMPLEX EXPONENTIAL FUNCTION / 9CXP | 00054 0765 00 0 00006 LRS 6 28 L6E00530 | 00055 0601 00 0 77770 STO COMMON+1 29 L6E00540 | 00056 0400 00 0 00124 ADD EXP+68 30 L6E00550 | 00057 0601 00 0 77772 STO COMMON+3 31 L6E00560 | 00060 0500 00 0 77770 CLA COMMON+1 32 L6E00570 00061 0763 00 0 00004 LLS 4 33 L6E00580 | 00062 0601 00 0 77773 STO COMMON+4 34 L6E00590 | 00063 0763 00 0 00001 LLS 1 35 L6E00600 | 00064 0400 00 0 77773 ADD COMMON+4 36 L6E00610 | 00065 0400 00 0 77770 ADD COMMON+1 37 L6E00620 00066 0765 00 0 00005 LRS 5 38 L6E00630 | 00067 0220 00 0 77772 DVH COMMON+3 39 L6E00640 | 00070 -0600 00 0 77772 STQ COMMON+3 40 L6E00650 | 00071 0500 00 0 77772 CLA COMMON+3 41 L6E00660 | 00072 0400 00 0 77770 ADD COMMON+1 42 L6E00670 00073 0400 00 0 00125 ADD EXP+69 43 L6E00680 | | BINARY CARD NO. 9CXP0004 | 00074 0601 00 0 77770 STO COMMON+1 44 L6E00690 | 00075 0400 00 0 77771 ADD COMMON+2 45 L6E00700 00076 0601 00 0 77772 STO COMMON+3 46 L6E00710 | 00077 0502 00 0 77771 CLS COMMON+2 47 L6E00720 | 00100 0120 00 0 00106 TPL EXP+54 48 L6E00730 | 00101 0100 00 0 00106 TZE EXP+54 49 L6E00740 | 00102 0400 00 0 77770 ADD COMMON+1 50 L6E00750 00103 0220 00 0 77772 DVH COMMON+3 51 L6E00760 | 00104 0500 00 0 00120 CLA EXP+64 52 L6E00770 | 00105 0020 00 0 00112 TRA EXP+58 53 L6E00780 | 00106 0400 00 0 77770 ADD COMMON+1 54 L6E00790 | 00107 0765 00 0 00001 LRS 1 55 L6E00800 00110 0220 00 0 77772 DVH COMMON+3 56 L6E00810 | 00111 0500 00 0 00121 CLA EXP+65 57 L6E00820 | 00112 0402 00 0 77767 SUB COMMON 58 L6E00830 | 00113 0763 00 0 00033 LLS 27 59 L6E00840 | 00114 0020 00 4 00001 TRA 1,4 L6E00850 00115 0500 00 0 00117 CLA EXP+63 61 L6E00860 | 00116 0020 00 4 00001 TRA 1,4 L6E00870 | 00117 +000000000000 DEC 63 L6E00880 | | BINARY CARD NO. 9CXP0005 00120 +000000000200 DEC 128 64 L6E00890 | 00121 +000000000201 DEC 129 65 L6E00900 | 00122 +207540074634 DEC 88.029690 66 L6E00910 | 00123 +261344137674 DEC .6931471805B0 67 L6E00920 | 00124 +250000000000 DEC 42B6 68 L6E00930 00125 +240000000000 DEC 40B6 69 L6E00940 | 00126 0500 00 0 00130 HPRE CLA MAXNO. L6E00950 | 00127 0020 00 4 00001 TRA 1,4 L6E00960 | 00130 +377777777777 MAXNO. OCT 377777777777 L6E00970 | COSINE ROUTINE 68 STORAGES PLUS NO COMMON L6E00980 00131 0300 00 0 00230 COS FAD COS+0063 L6E00990 | 00132 0601 00 0 00227 STO COS+0062 L6E01000 | 00133 -0634 00 1 00231 SXD COS+0064,1 SAVE IR A L6E01010 | 00134 0760 00 0 00003 SSP L6E01020 | 00135 0402 00 0 00234 SUB COS+0067 CHARACTERISTIC OF 117 L6E01030 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | COMPLEX EXPONENTIAL FUNCTION / 9CXP | | 00136 0120 00 0 00141 TPL COS+0008 ARG GREATER THAN .001 L6E01040 | 00137 0500 00 0 00227 CLA COS+0062 SET SIN X EQUAL X L6E01050 00140 0020 00 4 00001 TRA 1,4 L6E01060 | 00141 0400 00 0 00234 ADD COS+0067 CHARACTERISTIC OF 117 L6E01070 | 00142 0241 00 0 00220 FDP COS+0055 2 PI L6E01080 | 00143 -0600 00 0 00232 STQ COS+0065 STORE I PLUS F L6E01090 | BINARY CARD NO. 9CXP0006 | 00144 0500 00 0 00232 CLA COS+0065 L6E01100 | 00145 0402 00 0 00216 SUB COS+0053 CHARACTERISTIC OF 128 L6E01110 | 00146 0771 00 0 00033 ARS 27 L6E01120 | 00147 0120 00 0 00152 TPL COS+0017 L6E01130 00150 0500 00 0 00232 CLA COS+0065 I EQ O, F LESS THAN .5 L6E01140 | 00151 0020 00 0 00160 TRA COS+0023 L6E01150 | 00152 0401 00 0 00156 ADM COS+0021 ADD 10 TO ADDRESS L6E01160 | 00153 0621 00 0 00155 STA COS+0020 L6E01170 | 00154 0500 00 0 00232 CLA COS+0065 I PLUS F L6E01180 00155 0767 00 0 00155 ALS * L6E01190 | 00156 0771 00 0 00012 ARS 10 L6E01200 | 00157 0400 00 0 00216 ADD COS+0053 CHARACTERISTIC OF 128 L6E01210 | 00160 0302 00 0 00217 FSB COS+0054 PLUS .25 L6E01220 | 00161 -0120 00 0 00173 TMI COS+0034 FIRST QUADRANT L6E01230 00162 0302 00 0 00217 FSB COS+0054 PLUS .25 L6E01240 | 00163 -0120 00 0 00174 TMI COS+0035 SECOND QUADRANT L6E01250 | 00164 0601 00 0 00233 STO COS+0066 L6E01260 | 00165 0502 00 0 00227 CLS COS+0062 CHANGE SIGN OF ARGUMENT L6E01270 | 00166 0601 00 0 00227 STO COS+0062 L6E01280 00167 0500 00 0 00233 CLA COS+0066 L6E01290 | | BINARY CARD NO. 9CXP0007 | 00170 0302 00 0 00217 FSB COS+0054 PLUS .25 L6E01300 | 00171 -0120 00 0 00173 TMI COS+0034 THIRD QUADRANT L6E01310 00172 1 00004 0 00162 TXI COS+0025,0,4 L6E01320 | 00173 0300 00 0 00217 FAD COS+0054 PLUS .25 L6E01330 | 00174 0760 00 0 00003 SSP L6E01340 | 00175 0400 00 0 00221 ADD COS+0056 MULTIPLY BY 4 L6E01350 | 00176 0601 00 0 00232 STO COS+0065 STORE F L6E01360 00177 0560 00 0 00232 LDQ COS+0065 L6E01370 | 00200 0260 00 0 00232 FMP COS+0065 L6E01380 | 00201 0601 00 0 00233 STO COS+0066 STORE F SQUARED L6E01390 | 00202 -0534 00 1 00172 LXD COS+0033,1 SET IR A EQUAL 4 L6E01400 | 00203 0560 00 0 00222 LDQ COS+0057 C9 L6E01410 00204 0260 00 0 00233 FMP COS+0066 F SQUARED L6E01420 | 00205 0300 00 1 00227 FAD COS+0062,1 L6E01430 | 00206 0765 00 0 00043 LRS 35 L6E01440 | 00207 2 00001 1 00204 TIX COS+0043,1,1 CONTINUE LOOP L6E01450 | 00210 0260 00 0 00232 FMP COS+0065 F L6E01460 00211 0560 00 0 00227 LDQ COS+0062 L6E01470 | 00212 0162 00 0 00214 TQP COS+0051 SET SIGN OF ANSWER L6E01480 | 00213 0760 00 0 00002 CHS L6E01490 | | BINARY CARD NO. 9CXP0008 00214 -0534 00 1 00231 LXD COS+0064,1 RESTORE IR A L6E01500 | 00215 0020 00 4 00001 TRA 1,4 L6E01510 | 00216 2 00000 0 00000 TIX **,0,0 CHARACTERISTIC OF 128 L6E01520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | COMPLEX EXPONENTIAL FUNCTION / 9CXP | 00217 +177400000000 DEC +.25 L6E01530 | 00220 +203622077325 DEC +6.283185307 2 PI L6E01540 | 00221 0020 00 0 00000 TRA ** CHARACTERISTIC OF 2 L6E01550 | 00222 +164475536722 DEC +.00015148419 C9 L6E01560 00223 -171462231431 DEC -.00467376557 C7 L6E01570 | 00224 +175506321275 DEC +.07968967928 C5 L6E01580 | 00225 -200512567405 DEC -.64596371106 C3 L6E01590 | 00226 +201622077324 DEC +1.57079631847 C1 L6E01600 | 00227 0 00000 0 00000 PZE TEMPORARY STORAGE L6E01610 00230 +201622077325 DEC +1.5707963268 PI OVER 2 L6E01620 | 00231 0 00000 0 00000 PZE STORAGE FOR IR A L6E01630 | 00232 0 00000 0 00000 PZE TEMPORARY STORAGE L6E01640 | 00233 0 00000 0 00000 PZE TEMPORARY STORAGE L6E01650 | 00234 1 65000 0 00000 TXI 0,0,27136 CHARACTERISTIC OF 117 L6E01660 77777 COMMON -206 L6E01670 | 77777 4) COMMON 1 L6E01680 | 77767 COMMON SYN 4)-8 L6E01690 | END L6E01700 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 235 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 77777 4) 1, 3, 4, 7, 10, 11, 14, 15, 235 | 131 COS 5, 12, 131, 132, 133, 135, 136, 137, 141, 142, 143, 144, 145, 147, 150, 151, 152 | 153, 154, 157, 160, 161, 162, 163, 164, 165, 166, 167, 170, 171, 172, 173, 175, 176 | 177, 200, 201, 202, 203, 204, 205, 207, 210, 211, 212, 214 20 EXP 2, 20, 23, 24, 30, 31, 32, 35, 37, 40, 56, 73, 100, 101, 104, 105, 111 | 115 | 126 HPRE 21 | 0 IEXP 0 | 77767 COMMON 25, 36, 41, 42, 44, 46, 50, 51, 52, 53, 55, 57, 60, 62, 64, 65, 67 70, 71, 72, 74, 75, 76, 77, 102, 103, 106, 110, 112, 235 | 16 IEEXIT 0 | 130 MAXNO. 126 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9CLG L6L00000 * FAP L6L00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | COMPLEX LOG FUNCTION / 9CLG | | | BINARY CARD NO. 9CLG0000 00000 ENTRY ILOG L6L00070 | | BINARY CARD NO. 9CLG0001 | 00000 0634 00 4 00017 ILOG SXA LNEXIT,4 L6L00080 | 00001 0560 00 0 77776 LDQ 4)-1 INAGINARY PART SQUARED L6L00090 00002 0260 00 0 77776 FMP 4)-1 L6L00100 | 00003 0601 00 0 77773 STO 4)-4 L6L00110 | 00004 0560 00 0 77777 LDQ 4) L6L00120 | 00005 0260 00 0 77777 FMP 4) PLUS REAL PART SQUARED L6L00130 | 00006 0300 00 0 77773 FAD 4)-4 L6L00140 00007 0074 00 4 00022 TSX LN,4 LN / 2 = SQRT L6L00150 | 00010 0241 00 0 00021 FDP TWO L6L00160 | 00011 0500 00 0 77777 CLA 4) FOR REAL PART LN L6L00170 | 00012 -0600 00 0 77777 STQ 4) L6L00180 | 00013 0560 00 0 77776 LDQ 4)-1 L6L00190 00014 0131 00 0 00000 XCA L6L00200 | 00015 0074 00 4 00075 TSX RTAN,4 FIND ARCTAN FOR IMAGINARY PART LN L6L00210 | 00016 0601 00 0 77776 STO 4)-1 L6L00220 | 00017 0774 00 4 00000 LNEXIT AXT **,4 L6L00230 | 00020 0020 00 4 00001 TRA 1,4 L6L00240 00021 +202400000000 TWO DEC 2. L6L00250 | NATURAL LOGARITHM ROUTINE 43 STORAGES PLUS 3 COMMON L6L00260 | 00022 0100 00 0 00071 LN TZE HPR0 L6L00270 | 00023 -0120 00 0 00073 TMI HPRM L6L00280 | BINARY CARD NO. 9CLG0002 | 00024 0765 00 0 00033 LRS 27 L6L00290 | 00025 -0600 00 0 77764 STQ COMMON L6L00300 | 00026 0767 00 0 00023 ALS 19 L6L00310 | 00027 -0501 00 0 00060 ORA LN+0030 L6L00320 00030 0302 00 0 00061 FSB LN+0031 L6L00330 | 00031 0601 00 0 77765 STO COMMON+1 L6L00340 | 00032 0500 00 0 77764 CLA COMMON L6L00350 | 00033 0765 00 0 00010 LRS 8 L6L00360 | 00034 -0501 00 0 00062 ORA LN+0032 L6L00370 00035 0300 00 0 00063 FAD LN+0033 L6L00380 | 00036 0601 00 0 77764 STO COMMON L6L00390 | 00037 0302 00 0 00064 FSB LN+0034 L6L00400 | 00040 0240 00 0 77764 FDH COMMON L6L00410 | 00041 -0600 00 0 77764 STQ COMMON L6L00420 00042 0260 00 0 77764 FMP COMMON L6L00430 | 00043 0601 00 0 77766 STO COMMON+2 L6L00440 | 00044 0560 00 0 00067 LDQ LN+0037 L6L00450 | 00045 0260 00 0 77766 FMP COMMON+2 L6L00460 | 00046 0300 00 0 00066 FAD LN+0036 L6L00470 00047 0765 00 0 00043 LRS 35 L6L00480 | | BINARY CARD NO. 9CLG0003 | 00050 0260 00 0 77766 FMP COMMON+2 L6L00490 | 00051 0300 00 0 00065 FAD LN+0035 L6L00500 00052 0765 00 0 00043 LRS 35 L6L00510 | 00053 0260 00 0 77764 FMP COMMON L6L00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | COMPLEX LOG FUNCTION / 9CLG | 00054 0300 00 0 77765 FAD COMMON+1 L6L00530 | 00055 0765 00 0 00043 LRS 35 L6L00540 | 00056 0260 00 0 00070 FMP LN+0038 L6L00550 | 00057 0020 00 4 00001 TRA 1,4 L6L00560 | 00060 +210000000000 OCT 210000000000 L6L00570 00061 +210401000000 DEC 1.28500000000E02 L6L00580 | 00062 +200000000000 OCT 200000000000 L6L00590 | 00063 +200552023631 DEC 7.07106781187E-01 L6L00600 | 00064 +201552023631 DEC 1.41421356237E00 L6L00610 | 00065 +202561251001 DEC 2.88539129030E00 L6L00620 00066 +200754213603 DEC 9.61470632300E-01 L6L00630 | 00067 +200462532521 DEC 5.98978649600E-01 L6L00640 | 00070 +200542710277 DEC 6.93147180560E-01 L6L00650 | 00071 0420 00 0 01021 HPR0 HPR 529 L6L00660 | 00072 0020 00 0 00071 TRA HPR0 L6L00670 00073 0420 00 0 01022 HPRM HPR 530 L6L00680 | | BINARY CARD NO. 9CLG0004 | 00074 0020 00 0 00073 TRA HPRM L6L00690 | 00075 0760 00 0 00012 RTAN DCT RESET DIV CK INDICATOR L6L00700 00076 0761 00 0 00000 NOP L6L00710 | 00077 0140 00 0 00100 TOV RTAN+0003 RESET AC OV L6L00720 | 00100 0161 00 0 00101 TQO RTAN+0004 RESET MQ OV L6L00730 | 00101 1 00000 4 00102 TXI RTAN+0005,4,0 DOES NOTHING L6L00740 | 00102 -0600 00 0 77773 STQ COMMON+7 STORE B L6L00750 00103 -0634 00 4 00115 SXD RTAN+0016,4 STORE RETURN ADD L6L00760 | 00104 0162 00 0 00106 TQP RTAN+0009 TEST SIGN OF B FOR QUADRANT L6L00770 | 00105 0020 00 0 00270 C TRA B L6L00780 | 00106 0241 00 0 77773 FDP COMMON+7 A/B TO MQ L6L00790 | 00107 0760 00 0 00012 DCT L6L00800 00110 -3 00130 0 00137 A TXL RTAN+0034,0,RTAN+0027 L6L00810 | 00111 0140 00 0 00126 TOV RTAN+0025 AC OV OR UNDERFLO L6L00820 | 00112 0161 00 0 00116 TQO RTAN+0017 MQ OV OR UNDERFLO L6L00830 | 00113 -0600 00 0 77773 STQ COMMON+7 L6L00840 | 00114 0500 00 0 77773 CLA COMMON+7 A/B TO AC L6L00850 00115 -3 00000 0 00146 TXL RTAN+0041,0,0 GO TO ARCTN SUBRT L6L00860 | 00116 0560 00 0 77773 LDQ COMMON+7 B TO MQ L6L00870 | 00117 -0773 00 0 00001 RQL 1 PREPARE TEST MAG B L6L00880 | | BINARY CARD NO. 9CLG0005 00120 0760 00 0 00000 CLM SET A/B NO 0 L6L00890 | 00121 0162 00 0 00123 TQP RTAN+0022 ADD PI/2 IF MAG B LESS TH 1 L6L00900 | 00122 0020 00 4 00001 TRA 1,4 EXIT TO ALPHA L6L00910 | 00123 0361 00 0 00144 ACL RTAN+0039 PI/2 WITH SIGN OF A TO AC L6L00920 | 00124 -0534 00 4 00115 LXD RTAN+0016,4 PREPARE TO EXIT L6L00930 00125 0020 00 4 00001 TRA 1,4 NORMAL EXIT L6L00940 | 00126 0161 00 0 00130 TQO RTAN+0027 TRA IF UNDERFLO L6L00950 | 00127 -3 00000 0 00113 TXL RTAN+0014,0,0 PREPARE TO EXIT TO ARTN SUBRT L6L00960 | 00130 0760 00 0 00000 CLM UNDERFLO -SET ARTN NO 0 L6L00970 | 00131 0020 00 4 00001 TRA 1,4 EXIT TO ALPHA L6L00980 00132 -0120 00 0 00135 TMI RTAN+0032 TRA IF 2ND QUADRANT L6L00990 | 00133 0302 00 0 00145 FSB RTAN+0040 -PI+ARTN A/B 3RD QUAD L6L01000 | 00134 -3 00000 0 00124 TXL RTAN+0023,0,0 PREPARE TO EXIT L6L01010 | 00135 0300 00 0 00145 FAD RTAN+0040 +PI+ARTN A/B 2ND QUAD L6L01020 | 00136 -3 00000 0 00124 TXL RTAN+0023,0,0 PREPARE TO EXIT L6L01030 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | COMPLEX LOG FUNCTION / 9CLG | | 00137 0100 00 0 00142 TZE RTAN+0037 L6L01040 | 00140 0760 00 0 00000 CLM L6L01050 00141 -3 00000 0 00123 TXL RTAN+0022,0,0 L6L01060 | 00142 -0534 00 4 00115 LXD RTAN+0016,4 PREPARE TO EXIT L6L01070 | 00143 0020 00 0 00266 TRA HPRER ERROR STOP 0/0 L6L01080 | | BINARY CARD NO. 9CLG0006 00144 +201622077323 DEC 1.5707963,3.1415927 PI/2 PI L6L01090 | 00145 +202622077326 | ARCTANGENT SUBROUTINE L6L01100 | FLOATING NORMALIZED X IN ACCUMULATOR L6L01110 | CALLING SEQUENCE L6L01120 TSX ARCTN,C L6L01130 | RETURN,FLOATING NORMALIZED ARCTAN IN ACC IN RADIAN MEASURE L6L01140 | L6L01150 | L6L01160 | L6L01170 00146 0100 00 4 00001 TZE 1,4 L6L01180 | 00147 0602 00 0 77764 SLW COMMON ABS. X L6L01190 | 00150 0601 00 0 77765 STO COMMON+1 X L6L01200 | 00151 -0634 00 1 77766 SXD COMMON+2,1 SAVE INDEX A L6L01210 | 00152 -0634 00 2 77767 SXD COMMON+3,2 SAVE INDEX B L6L01220 00153 0534 00 1 00255 LXA RTAN+0112,1 L6L01230 | SEE IF X IS GREATER THAN 1 L6L01240 | 00154 0500 00 0 00255 CLA RTAN+0112 L6L01250 | 00155 0402 00 0 77764 SUB COMMON L6L01260 | 00156 0100 00 0 00246 TZE RTAN+0105 X IS 1 L6L01270 00157 0120 00 0 00164 TPL RTAN+0055 X PRIME EQUALS X L6L01280 | FIRST TRANSFORMATION --X GREATER THAN 1 L6L01290 | 00160 0500 00 0 00255 CLA RTAN+0112 L6L01300 | 00161 0241 00 0 77764 FDP COMMON L6L01310 | 00162 -0600 00 0 77764 STQ COMMON X PRIME EQUALS 1/X L6L01320 00163 1 00001 1 00164 TXI RTAN+0055,1,1 L6L01330 | SEE IF X PRIME IS VERY SMALL L6L01340 | 00164 0500 00 0 00265 CLA RTAN+0120 L6L01350 | 00165 0402 00 0 77764 SUB COMMON L6L01360 | 00166 0120 00 0 00226 TPL RTAN+0089 ARCTAN X EQUALS X PRIME L6L01370 SEE IF X PRIME IS GREATER THAN .26794919 L6L01380 | 00167 0500 00 0 00256 CLA RTAN+0113 2-SQRT3 L6L01390 | | BINARY CARD NO. 9CLG0007 | 00170 0402 00 0 77764 SUB COMMON L6L01400 00171 0120 00 0 00203 TPL RTAN+0070 X 2PRIME EQUALS X PRIME L6L01410 | SECOND TRANSFORMATION --XPPRIME GREATER THAN .26794919 L6L01420 | 00172 0500 00 0 77764 CLA COMMON L6L01430 | 00173 0300 00 0 00257 FAD RTAN+0114 SQRT3 L6L01440 | 00174 0241 00 0 00257 FDP RTAN+0114 L6L01450 00175 -0600 00 0 77770 STQ COMMON+4 SQ.RT.3+X/SQ.RT.3 L6L01460 | 00176 0500 00 0 00260 CLA RTAN+0115 1/SQRT3 L6L01470 | 00177 0302 00 0 77764 FSB COMMON L6L01480 | 00200 0241 00 0 77770 FDP COMMON+4 L6L01490 | 00201 -0600 00 0 77764 STQ COMMON EQUALS X 2PRIME L6L01500 00202 1 00002 1 00203 TXI RTAN+0070,1,2 L6L01510 | COMPUTE ARCTAN L6L01520 | 00203 0560 00 0 77764 LDQ COMMON L6L01530 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | COMPLEX LOG FUNCTION / 9CLG | 00204 0260 00 0 77764 FMP COMMON L6L01540 | 00205 0601 00 0 77770 STO COMMON+4 X2 L6L01550 | 00206 0534 00 2 00255 LXA RTAN+0112,2 SET B EQUALS ZERO L6L01560 | 00207 0560 00 0 00254 LDQ RTAN+0111 L6L01570 00210 0260 00 0 77770 FMP COMMON+4 L6L01580 | 00211 0300 00 0 00255 FAD RTAN+0112 L6L01590 | 00212 0601 00 0 77771 STO COMMON+5 L6L01600 | 00213 3 00001 2 00223 TXH RTAN+0086,2,1 L6L01610 | BINARY CARD NO. 9CLG0008 | 00214 0500 00 2 00251 CLA RTAN+0108,2 L6L01620 | 00215 0241 00 0 77771 FDP COMMON+5 L6L01630 | 00216 0260 00 0 77770 FMP COMMON+4 L6L01640 | 00217 0300 00 2 00253 FAD RTAN+0110,2 L6L01650 00220 0601 00 0 77771 STO COMMON+5 L6L01660 | 00221 0560 00 0 77771 LDQ COMMON+5 L6L01670 | 00222 1 00001 2 00210 TXI RTAN+0075,2,1 L6L01680 | 00223 0500 00 0 77764 CLA COMMON L6L01690 | 00224 0241 00 0 77771 FDP COMMON+5 L6L01700 00225 -0600 00 0 77764 STQ COMMON ARCTAN L6L01710 | MAKE PROPER CORRECTION L6L01720 | 00226 0500 00 0 77764 CLA COMMON L6L01730 | 00227 -3 00000 1 00233 TXL RTAN+0094,1,0 TRANSFORMATION L6L01740 | 00230 -3 00001 1 00240 TXL RTAN+0099,1,1 FIRST TRANSFORMATION L6L01750 00231 -3 00002 1 00243 TXL RTAN+0102,1,2 2ND TRANSFORMATION L6L01760 | 00232 0300 00 0 00262 FAD RTAN+0117 BOTH TRANSFORMATION L6L01770 | CORRECT SIGN AND RETURN L6L01780 | 00233 0560 00 0 77765 LDQ COMMON+1 ORGINAL X L6L01790 | 00234 0763 00 0 00000 LLS 0 L6L01800 00235 -0534 00 1 77766 LXD COMMON+2,1 RESTORE A L6L01810 | 00236 -0534 00 2 77767 LXD COMMON+3,2 RESTORE B L6L01820 | 00237 0020 00 4 00001 TRA 1,4 OUT L6L01830 | CORRECT FOR 1ST TRANSFORMATION L6L01840 | BINARY CARD NO. 9CLG0009 | 00240 0760 00 0 00002 CHS L6L01850 | 00241 0300 00 0 00261 FAD RTAN+0116 L6L01860 | 00242 0020 00 0 00233 TRA RTAN+0094 L6L01870 | CORRECT FOR 2ND TRANSFORMATION L6L01880 00243 0760 00 0 00002 CHS L6L01890 | 00244 0300 00 0 00264 FAD RTAN+0119 L6L01900 | 00245 0020 00 0 00233 TRA RTAN+0094 L6L01910 | WHEN X IS 1 L6L01920 | 00246 0500 00 0 00263 CLA RTAN+0118 L6L01930 00247 0020 00 0 00233 TRA RTAN+0094 L6L01940 | CONSTANTS L6L01950 | 00250 -175554055405 OCT -175554055405 4/45 L6L01960 | 00251 -175413374673 OCT -175413374673 16/245 L6L01970 | 00252 +177525252525 OCT 177525252525 1/3 L6L01980 00253 +200414141414 OCT 200414141414 11/21 L6L01990 | 00254 +200403246167 OCT 200403246167 39/77 L6L02000 | 00255 +201400000000 DEC 1. L6L02010 | 00256 +177422302430 OCT 177422302430 2-SQRT3 L6L02020 | 00257 +201673317272 OCT 201673317272 SQRT3 L6L02030 00260 +200447464721 OCT 200447464721 1/SQRT3 L6L02040 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | COMPLEX LOG FUNCTION / 9CLG | | 00261 +201622077324 OCT 201622077324 PI/2 L6L02050 00262 +201414052215 OCT 201414052215 PI/3 L6L02060 | 00263 +200622077325 OCT 200622077325 PI/4 L6L02070 | | BINARY CARD NO. 9CLG0010 | 00264 +200414052216 OCT 200414052216 PI/6 L6L02080 00265 +167400000000 OCT 167400000000 2 TO -10 L6L02090 | L6L02100 | 00266 0420 00 0 01030 HPRER HPR 536 L6L02110 | 00267 0020 00 0 00266 TRA HPRER L6L02120 | 00270 0601 00 0 77772 B STO COMMON+6 L6L02130 00271 0500 00 0 00110 CLA A L6L02140 | 00272 0760 00 0 00006 COM L6L02150 | 00273 -0734 00 4 00000 PDX 0,4 L6L02160 | 00274 0500 00 0 77772 CLA COMMON+6 L6L02170 | 00275 0020 00 0 00106 TRA C+1 L6L02180 77777 COMMON -206 L6L02190 | 77777 4) COMMON 1 L6L02200 | 77764 COMMON SYN 4)-11 L6L02210 | END L6L02220 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 276 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 110 A 271 | 270 B 105 | 105 C 275 | 77777 4) 1, 2, 3, 4, 5, 6, 11, 12, 13, 16, 276 22 LN 7, 27, 30, 34, 35, 37, 44, 46, 51, 56 | 21 TWO 10 | 71 HPR0 22, 72 | 73 HPRM 23, 74 | 0 ILOG 0 75 RTAN 15, 77, 100, 101, 103, 104, 110, 111, 112, 115, 121, 123, 124, 126, 127, 132, 133 | 134, 135, 136, 137, 141, 142, 153, 154, 156, 157, 160, 163, 164, 166, 167, 171, 173 | 174, 176, 202, 206, 207, 211, 213, 214, 217, 222, 227, 230, 231, 232, 241, 242, 244 | 245, 246, 247 | 266 HPRER 143, 267 77764 COMMON 25, 31, 32, 36, 40, 41, 42, 43, 45, 50, 53, 54, 102, 106, 113, 114, 116 | 147, 150, 151, 152, 155, 161, 162, 165, 170, 172, 175, 177, 200, 201, 203, 204, 205 | 210, 212, 215, 216, 220, 221, 223, 224, 225, 226, 233, 235, 236, 270, 274, 276 | 17 LNEXIT 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CSQ L6Q00000 * FAP L6Q00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | COMPLEX SQUARE ROOT FUNCTION / 9CSQ | | | BINARY CARD NO. 9CSQ0000 00000 ENTRY ISQRT L6Q00070 | | BINARY CARD NO. 9CSQ0001 | 00000 0634 00 1 00074 ISQRT SXA EXIT1,1 L6Q00080 | 00001 0634 00 2 00075 SXA EXIT2,2 SAVE INDEX REGISTERS L6Q00090 00002 0500 00 0 77776 CLA 4)-1 TEST LEAST SIGNIFICANT (IMAGINARY) PART L6Q00100 | 00003 -0100 00 0 00016 TNZ USUAL L6Q00110 | 00004 0500 00 0 77777 CLA 4) IF IMAG PART ZERO, TEST REAL PART L6Q00120 | 00005 0074 00 2 00077 TSX SQRT,2 FIND SQUARE ROOT L6Q00130 | 00006 0131 00 0 00000 XCA L6Q00140 00007 -0120 00 0 00013 TMI NEGAT IS IT NEGATIVE L6Q00150 | 00010 -0600 00 0 77777 STQ 4) NO, SO PLACE ANS IN P AC L6Q00160 | 00011 0600 00 0 77776 STZ 4)-1 IMAGPART IS ZERO L6Q00170 | 00012 0020 00 0 00074 TRA EXIT1 L6Q00180 | 00013 -0600 00 0 77776 NEGAT STQ 4)-1 YES, ANS IS IMAG L6Q00190 00014 0600 00 0 77777 STZ 4) REAL PART IS ZERO L6Q00200 | 00015 0020 00 0 00074 TRA EXIT1 L6Q00210 | 00016 0500 00 0 77777 USUAL CLA 4) IS REAL PART NEGATIVE L6Q00220 | 00017 -0120 00 0 00041 TMI LESTH L6Q00230 | 00020 0560 00 0 77777 LDQ 4) NO, FIND THE REAL PART OF THE ROOT L6Q00240 00021 0260 00 0 77777 FMP 4) A**2+B**2 L6Q00250 | 00022 0601 00 0 00125 STO TEMP L6Q00260 | 00023 0560 00 0 77776 LDQ 4)-1 L6Q00270 | | BINARY CARD NO. 9CSQ0002 00024 0260 00 0 77776 FMP 4)-1 L6Q00280 | 00025 0300 00 0 00125 FAD TEMP L6Q00290 | 00026 0074 00 2 00077 TSX SQRT,2 SQRT OF SUM L6Q00300 | 00027 0300 00 0 77777 FAD 4) L6Q00310 | 00030 0131 00 0 00000 XCA L6Q00320 00031 0260 00 0 00124 FMP 1OV2 L6Q00330 | 00032 0074 00 2 00077 TSX SQRT,2 SQRT OF THE WORKS L6Q00340 | 00033 0601 00 0 77777 STO 4) L6Q00350 | 00034 0500 00 0 77776 CLA 4)-1 L6Q00360 | 00035 0241 00 0 77777 FDP 4) 1/2(IMAG/REAL) = IMAG PART L6Q00370 00036 0260 00 0 00124 FMP 1OV2 L6Q00380 | 00037 0601 00 0 77776 STO 4)-1 L6Q00390 | 00040 0020 00 0 00074 TRA EXIT1 L6Q00400 | 00041 0560 00 0 77777 LESTH LDQ 4) REAL PART IS NEGATIVE L6Q00410 | 00042 0260 00 0 77777 FMP 4) L6Q00420 00043 0601 00 0 00125 STO TEMP L6Q00430 | 00044 0560 00 0 77776 LDQ 4)-1 SQRT (A**2+B**2) MINUS A L6Q00440 | 00045 0260 00 0 77776 FMP 4)-1 L6Q00450 | 00046 0300 00 0 00125 FAD TEMP L6Q00460 | 00047 0074 00 2 00077 TSX SQRT,2 L6Q00470 | BINARY CARD NO. 9CSQ0003 | 00050 0302 00 0 77777 FSB 4) MINUS A L6Q00480 | 00051 0131 00 0 00000 XCA L6Q00490 | 00052 0260 00 0 00124 FMP 1OV2 PLUS A / 2 L6Q00500 00053 0074 00 2 00077 TSX SQRT,2 SQUARE ROOT OF RESULT L6Q00510 | 00054 0601 00 0 00125 STO TEMP L6Q00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | COMPLEX SQUARE ROOT FUNCTION / 9CSQ | 00055 0500 00 0 77776 CLA 4)-1 TEST IMAGINARY PART FOR MINUS L6Q00530 | 00056 -0120 00 0 00065 TMI CHANG YES, CHANGE SIGNS L6Q00540 | 00057 0241 00 0 00125 FDP TEMP 1/2 * B / EXPRESSION = REAL PART L6Q00550 | 00060 0260 00 0 00124 FMP 1OV2 L6Q00560 | 00061 0601 00 0 77777 STO 4) L6Q00570 00062 0500 00 0 00125 CLA TEMP L6Q00580 | 00063 0601 00 0 77776 STO 4)-1 L6Q00590 | 00064 0020 00 0 00074 TRA EXIT1 L6Q00600 | 00065 0241 00 0 00125 CHANG FDP TEMP IMAGINARY PART NEGATIVE L6Q00610 | 00066 0260 00 0 00124 FMP 1OV2 L6Q00620 00067 0760 00 0 00002 CHS CHANGE REAL SIGN L6Q00630 | 00070 0601 00 0 77777 STO 4) L6Q00640 | 00071 0500 00 0 00125 CLA TEMP L6Q00650 | 00072 0760 00 0 00002 CHS CHANGE IMAGINARY SIGN L6Q00660 | 00073 0601 00 0 77776 STO 4)-1 L6Q00670 | BINARY CARD NO. 9CSQ0004 | 00074 0774 00 1 00000 EXIT1 AXT 0,1 L6Q00680 | 00075 0774 00 2 00000 EXIT2 AXT 0,2 L6Q00690 | 00076 0020 00 4 00001 TRA 1,4 L6Q00700 00077 0601 00 0 00125 SQRT STO TEMP L6Q00710 | 00100 0760 00 0 00003 A SSP L6Q00720 | 00101 0100 00 0 00120 TZE ZERO L6Q00730 | 00102 0601 00 0 00126 STO TEMP1 L6Q00740 | 00103 -0320 00 0 00122 ANA C TEST FOR ODD CHARACTERISTIC L6Q00750 00104 0765 00 0 00001 LRS 1 IF SO, ADD 1 TO CHAR., .5 TO FRACT. L6Q00760 | 00105 0400 00 0 00126 ADD TEMP1 L6Q00770 | 00106 0765 00 0 00001 LRS 1 DIVIDE NUMBER AND FRACT. BY 2 L6Q00780 | 00107 0400 00 0 00123 ADD C1 ADD 100 TO CHAR., .5 TO FRACT. L6Q00790 | 00110 0534 00 1 00100 LXA A,1 LOAD IR(1) WITH THREE L6Q00800 00111 0601 00 0 00127 A1 STO TEMP2 SUCCESSIVE APPROXIMATION ROUTINE L6Q00810 | 00112 0500 00 0 00126 CLA TEMP1 APPROX= 1/2(NUMBER0APPROX + APPROX) L6Q00820 | 00113 0241 00 0 00127 FDP TEMP2 L6Q00830 | 00114 0131 00 0 00000 XCA L6Q00840 | 00115 0300 00 0 00127 FAD TEMP2 L6Q00850 00116 0402 00 0 00122 SUB C L6Q00860 | 00117 2 00001 1 00111 TIX A1,1,1 L6Q00870 | | BINARY CARD NO. 9CSQ0005 | 00120 0560 00 0 00125 ZERO LDQ TEMP L6Q00880 00121 0020 00 2 00001 TRA 1,2 L6Q00890 | 00122 +001000000000 C OCT 001000000000 L6Q00900 | 00123 +100400000000 C1 OCT 100400000000 L6Q00910 | 00124 +200400000000 1OV2 DEC 0.5 L6Q00920 | 00125 0 00000 0 00000 TEMP PZE $L6Q00930 00126 0 00000 0 00000 TEMP1 PZE $L6Q00940 | 00127 0 00000 0 00000 TEMP2 PZE $L6Q00950 | 77777 COMMON -206 L6Q00960 | 77777 4) COMMON 1 L6Q00970 | END L6Q00980 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 130 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 100 A 110 | 122 C 103, 116 | 77777 4) 2, 4, 10, 11, 13, 14, 16, 20, 21, 23, 24, 27, 33, 34, 35, 37, 41 42, 44, 45, 50, 55, 61, 63, 70, 73, 130 | 111 A1 117 | 123 C1 107 | 124 1OV2 31, 36, 52, 60, 66 | 77 SQRT 5, 26, 32, 47, 53 125 TEMP 22, 25, 43, 46, 54, 57, 62, 65, 71, 77, 120 | 120 ZERO 101 | 65 CHANG 56 | 74 EXIT1 0, 12, 15, 40, 64 | 75 EXIT2 1 0 ISQRT 0 | 41 LESTH 17 | 13 NEGAT 7 | 126 TEMP1 102, 105, 112 | 127 TEMP2 111, 113, 115 16 USUAL 3 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CSC L6S00000 * FAP L6S00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | COMPLEX SINE AND COSINE FUNCTION / 9CSC | | * THIS ROUTINE USES THE EQUATION L6S00070 | * SIN(X+IY)=SIN(X)COSH(Y) + ICOS(X)SINH(Y) L6S00080 * WHERE COSH(Y) = (E**Y+E**(-Y))/2 AND L6S00090 | * SINH(Y) = (E**Y - E**(-Y))/2 L6S00100 | | BINARY CARD NO. 9CSC0000 | 00003 ENTRY ISIN L6S00110 00000 ENTRY ICOS L6S00120 | | BINARY CARD NO. 9CSC0001 | 00000 0500 00 0 77777 ICOS CLA 4) COS Z = SIN(Z+ PI/2) L6S00130 | 00001 0300 00 0 00263 FAD HALFPI L6S00140 00002 0601 00 0 77777 STO 4) L6S00150 | 00003 0634 00 4 00037 ISIN SXA SNEXIT,4 L6S00160 | 00004 0502 00 0 77776 CLS 4)-1 L6S00170 | 00005 0100 00 0 00041 TZE REAL ARG IS REAL, JUST COMPUTE SINX L6S00180 | 00006 0074 00 4 00052 TSX EXP,4 L6S00190 00007 0601 00 0 77773 STO EXPNEG EXP(-Y) L6S00200 | 00010 0100 00 0 00047 TZE ZERO RECIPROCAL OF E**(-Y)=E**Y L6S00210 | 00011 0500 00 0 00163 CLA ONE L6S00220 | 00012 0241 00 0 77773 FDP EXPNEG L6S00230 | 00013 -0600 00 0 77772 STQ EXPOS L6S00240 00014 0500 00 0 77772 CLA EXPOS EXP(Y) L6S00250 | 00015 0300 00 0 77773 FAD EXPNEG L6S00260 | 00016 0402 00 0 00045 ZERO1 SUB DIV2 L6S00270 | 00017 0601 00 0 77770 STO COSHY COSH(Y)=(E**(Y)+E**(-Y))/2 L6S00280 | 00020 0500 00 0 77772 CLA EXPOS L6S00290 00021 0302 00 0 77773 FSB EXPNEG L6S00300 | 00022 0241 00 0 00046 FDP TWO L6S00310 | 00023 -0600 00 0 77771 STQ SINHY SINH(Y)=(E**(Y)-E**(-Y))/2 L6S00320 | | BINARY CARD NO. 9CSC0002 00024 0500 00 0 77777 CLA 4) L6S00330 | 00025 0074 00 4 00165 TSX SIN,4 SIN(X) L6S00340 | 00026 0131 00 0 00000 XCA L6S00350 | 00027 0260 00 0 77770 FMP COSHY L6S00360 | 00030 0560 00 0 77777 LDQ 4) TIMES COSH(Y) L6S00370 00031 0601 00 0 77777 STO 4) = REAL PART OF SIN(Z) L6S00380 | 00032 0131 00 0 00000 XCA L6S00390 | 00033 0074 00 4 00164 TSX COS,4 COS(X) L6S00400 | 00034 0131 00 0 00000 XCA L6S00410 | 00035 0260 00 0 77771 FMP SINHY TIMES SINH(Y) L6S00420 00036 0601 00 0 77776 STO 4)-1 = IMAGINARY PART OF SIN(Z) L6S00430 | 00037 0774 00 4 00000 SNEXIT AXT **,4 L6S00440 | 00040 0020 00 4 00001 TRA 1,4 L6S00450 | 00041 0500 00 0 77777 REAL CLA 4) REAL ARG ONLY L6S00460 | 00042 0074 00 4 00165 TSX SIN,4 L6S00470 00043 0601 00 0 77777 STO 4) ZERO ALREADY IN IMAG PART L6S00480 | 00044 0020 00 0 00037 TRA SNEXIT L6S00490 | 00045 +001000000000 DIV2 OCT 001000000000 L6S00500 | 00046 +202400000000 TWO DEC 2. L6S00510 | 00047 0500 00 0 00162 ZERO CLA MAXNO. L6S00520 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | COMPLEX SINE AND COSINE FUNCTION / 9CSC | | BINARY CARD NO. 9CSC0003 | 00050 0601 00 0 77772 STO EXPOS L6S00530 00051 0020 00 0 00016 TRA ZERO1 L6S00540 | EXPONENTIAL ROUTINE 73 STORAGES PLUS 5 COMMON L6S00550 | 00052 0560 00 0 00154 EXP LDQ EXP+66 00 L6S00560 | 00053 0040 00 0 00160 TLQ HPRE X LESS THAN -88.02969 ROUTINE RETURNS WITHL6S00570 | 00054 0760 00 0 00002 CHS ZERO AS THE ANSWER L6S00580 00055 0040 00 0 00147 TLQ EXP+61 03 L6S00590 | 00056 0560 00 0 00151 LDQ EXP+63 04 L6S00600 | 00057 -0600 00 0 77763 STQ COMMON 05 L6S00610 | 00060 0765 00 0 00033 LRS 27 06 L6S00620 | 00061 0760 00 0 00003 SSP 07 L6S00630 00062 0402 00 0 00152 SUB EXP+64 08 L6S00640 | 00063 -0120 00 0 00072 TMI EXP+16 09 L6S00650 | 00064 0621 00 0 00066 STA EXP+12 10 L6S00660 | 00065 0760 00 0 00000 CLM 11 L6S00670 | 00066 0763 00 0 00066 LLS * 12 L6S00680 00067 0220 00 0 00155 DVH EXP+67 13 L6S00690 | 00070 -0600 00 0 77763 STQ COMMON 14 L6S00700 | 00071 0020 00 0 00076 TRA EXP+20 15 L6S00710 | 00072 0621 00 0 00075 STA EXP+19 16 L6S00720 | 00073 -0600 00 0 77764 STQ COMMON+1 17 L6S00730 | BINARY CARD NO. 9CSC0004 | 00074 0500 00 0 77764 CLA COMMON+1 18 L6S00740 | 00075 0765 00 0 00075 LRS * 19 L6S00750 | 00076 0601 00 0 77764 STO COMMON+1 20 L6S00760 00077 0765 00 0 00002 LRS 2 21 L6S00770 | 00100 0601 00 0 77765 STO COMMON+2 22 L6S00780 | 00101 0765 00 0 00002 LRS 2 23 L6S00790 | 00102 0400 00 0 77765 ADD COMMON+2 24 L6S00800 | 00103 0601 00 0 77765 STO COMMON+2 25 L6S00810 00104 0560 00 0 77764 LDQ COMMON+1 26 L6S00820 | 00105 0200 00 0 77764 MPY COMMON+1 27 L6S00830 | 00106 0765 00 0 00006 LRS 6 28 L6S00840 | 00107 0601 00 0 77764 STO COMMON+1 29 L6S00850 | 00110 0400 00 0 00156 ADD EXP+68 30 L6S00860 00111 0601 00 0 77766 STO COMMON+3 31 L6S00870 | 00112 0500 00 0 77764 CLA COMMON+1 32 L6S00880 | 00113 0763 00 0 00004 LLS 4 33 L6S00890 | 00114 0601 00 0 77767 STO COMMON+4 34 L6S00900 | 00115 0763 00 0 00001 LLS 1 35 L6S00910 00116 0400 00 0 77767 ADD COMMON+4 36 L6S00920 | 00117 0400 00 0 77764 ADD COMMON+1 37 L6S00930 | | BINARY CARD NO. 9CSC0005 | 00120 0765 00 0 00005 LRS 5 38 L6S00940 00121 0220 00 0 77766 DVH COMMON+3 39 L6S00950 | 00122 -0600 00 0 77766 STQ COMMON+3 40 L6S00960 | 00123 0500 00 0 77766 CLA COMMON+3 41 L6S00970 | 00124 0400 00 0 77764 ADD COMMON+1 42 L6S00980 | 00125 0400 00 0 00157 ADD EXP+69 43 L6S00990 00126 0601 00 0 77764 STO COMMON+1 44 L6S01000 | 00127 0400 00 0 77765 ADD COMMON+2 45 L6S01010 | 00130 0601 00 0 77766 STO COMMON+3 46 L6S01020 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | COMPLEX SINE AND COSINE FUNCTION / 9CSC | 00131 0502 00 0 77765 CLS COMMON+2 47 L6S01030 | 00132 0120 00 0 00140 TPL EXP+54 48 L6S01040 | 00133 0100 00 0 00140 TZE EXP+54 49 L6S01050 | 00134 0400 00 0 77764 ADD COMMON+1 50 L6S01060 00135 0220 00 0 77766 DVH COMMON+3 51 L6S01070 | 00136 0500 00 0 00152 CLA EXP+64 52 L6S01080 | 00137 0020 00 0 00144 TRA EXP+58 53 L6S01090 | 00140 0400 00 0 77764 ADD COMMON+1 54 L6S01100 | 00141 0765 00 0 00001 LRS 1 55 L6S01110 00142 0220 00 0 77766 DVH COMMON+3 56 L6S01120 | 00143 0500 00 0 00153 CLA EXP+65 57 L6S01130 | | BINARY CARD NO. 9CSC0006 | 00144 0402 00 0 77763 SUB COMMON 58 L6S01140 00145 0763 00 0 00033 LLS 27 59 L6S01150 | 00146 0020 00 4 00001 TRA 1,4 L6S01160 | 00147 0500 00 0 00151 CLA EXP+63 61 L6S01170 | 00150 0020 00 4 00001 TRA 1,4 L6S01180 | 00151 +000000000000 DEC 63 L6S01190 00152 +000000000200 DEC 128 64 L6S01200 | 00153 +000000000201 DEC 129 65 L6S01210 | 00154 +207540074634 DEC 88.029690 66 L6S01220 | 00155 +261344137674 DEC .6931471805B0 67 L6S01230 | 00156 +250000000000 DEC 42B6 68 L6S01240 00157 +240000000000 DEC 40B6 69 L6S01250 | 00160 0500 00 0 00162 HPRE CLA MAXNO. L6S01260 | 00161 0020 00 4 00001 TRA 1,4 L6S01270 | 00162 +377777777777 MAXNO. OCT 377777777777 L6S01280 | 00163 +201400000000 ONE DEC 1. L6S01290 COSINE ROUTINE 68 STORAGES PLUS NO COMMON L6S01300 | 00164 0300 00 0 00263 COS FAD COS+0063 L6S01310 | 00165 0601 00 0 00262 SIN STO COS+0062 L6S01320 | 00166 -0634 00 1 00264 SXD COS+0064,1 SAVE IR A L6S01330 | 00167 0760 00 0 00003 SSP L6S01340 | BINARY CARD NO. 9CSC0007 | 00170 0402 00 0 00267 SUB COS+0067 CHARACTERISTIC OF 117 L6S01350 | 00171 0120 00 0 00174 TPL COS+0008 ARG GREATER THAN .001 L6S01360 | 00172 0500 00 0 00262 CLA COS+0062 SET SIN X EQUAL X L6S01370 00173 0020 00 4 00001 TRA 1,4 L6S01380 | 00174 0400 00 0 00267 ADD COS+0067 CHARACTERISTIC OF 117 L6S01390 | 00175 0241 00 0 00253 FDP COS+0055 2 PI L6S01400 | 00176 -0600 00 0 00265 STQ COS+0065 STORE I PLUS F L6S01410 | 00177 0500 00 0 00265 CLA COS+0065 L6S01420 00200 0402 00 0 00251 SUB COS+0053 CHARACTERISTIC OF 128 L6S01430 | 00201 0771 00 0 00033 ARS 27 L6S01440 | 00202 0120 00 0 00205 TPL COS+0017 L6S01450 | 00203 0500 00 0 00265 CLA COS+0065 I EQ O, F LESS THAN .5 L6S01460 | 00204 0020 00 0 00213 TRA COS+0023 L6S01470 00205 0401 00 0 00211 ADM COS+0021 ADD 10 TO ADDRESS L6S01480 | 00206 0621 00 0 00210 STA COS+0020 L6S01490 | 00207 0500 00 0 00265 CLA COS+0065 I PLUS F L6S01500 | 00210 0767 00 0 00210 ALS * L6S01510 | 00211 0771 00 0 00012 ARS 10 L6S01520 00212 0400 00 0 00251 ADD COS+0053 CHARACTERISTIC OF 128 L6S01530 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | COMPLEX SINE AND COSINE FUNCTION / 9CSC | | 00213 0302 00 0 00252 FSB COS+0054 PLUS .25 L6S01540 | BINARY CARD NO. 9CSC0008 | 00214 -0120 00 0 00226 TMI COS+0034 FIRST QUADRANT L6S01550 | 00215 0302 00 0 00252 FSB COS+0054 PLUS .25 L6S01560 | 00216 -0120 00 0 00227 TMI COS+0035 SECOND QUADRANT L6S01570 00217 0601 00 0 00266 STO COS+0066 L6S01580 | 00220 0502 00 0 00262 CLS COS+0062 CHANGE SIGN OF ARGUMENT L6S01590 | 00221 0601 00 0 00262 STO COS+0062 L6S01600 | 00222 0500 00 0 00266 CLA COS+0066 L6S01610 | 00223 0302 00 0 00252 FSB COS+0054 PLUS .25 L6S01620 00224 -0120 00 0 00226 TMI COS+0034 THIRD QUADRANT L6S01630 | 00225 1 00004 0 00215 TXI COS+0025,0,4 L6S01640 | 00226 0300 00 0 00252 FAD COS+0054 PLUS .25 L6S01650 | 00227 0760 00 0 00003 SSP L6S01660 | 00230 0400 00 0 00254 ADD COS+0056 MULTIPLY BY 4 L6S01670 00231 0601 00 0 00265 STO COS+0065 STORE F L6S01680 | 00232 0560 00 0 00265 LDQ COS+0065 L6S01690 | 00233 0260 00 0 00265 FMP COS+0065 L6S01700 | 00234 0601 00 0 00266 STO COS+0066 STORE F SQUARED L6S01710 | 00235 -0534 00 1 00225 LXD COS+0033,1 SET IR A EQUAL 4 L6S01720 00236 0560 00 0 00255 LDQ COS+0057 C9 L6S01730 | 00237 0260 00 0 00266 FMP COS+0066 F SQUARED L6S01740 | | BINARY CARD NO. 9CSC0009 | 00240 0300 00 1 00262 FAD COS+0062,1 L6S01750 00241 0765 00 0 00043 LRS 35 L6S01760 | 00242 2 00001 1 00237 TIX COS+0043,1,1 CONTINUE LOOP L6S01770 | 00243 0260 00 0 00265 FMP COS+0065 F L6S01780 | 00244 0560 00 0 00262 LDQ COS+0062 L6S01790 | 00245 0162 00 0 00247 TQP COS+0051 SET SIGN OF ANSWER L6S01800 00246 0760 00 0 00002 CHS L6S01810 | 00247 -0534 00 1 00264 LXD COS+0064,1 RESTORE IR A L6S01820 | 00250 0020 00 4 00001 TRA 1,4 L6S01830 | 00251 2 00000 0 00000 TIX **,0,0 CHARACTERISTIC OF 128 L6S01840 | 00252 +177400000000 DEC +.25 L6S01850 00253 +203622077325 DEC +6.283185307 2 PI L6S01860 | 00254 0020 00 0 00000 TRA ** CHARACTERISTIC OF 2 L6S01870 | 00255 +164475536722 DEC +.00015148419 C9 L6S01880 | 00256 -171462231431 DEC -.00467376557 C7 L6S01890 | 00257 +175506321275 DEC +.07968967928 C5 L6S01900 00260 -200512567405 DEC -.64596371106 C3 L6S01910 | 00261 +201622077324 DEC +1.57079631847 C1 L6S01920 | 00262 0 00000 0 00000 PZE TEMPORARY STORAGE L6S01930 | 00263 +201622077325 HALFPI DEC 1.57079633 L6S01940 | BINARY CARD NO. 9CSC0010 | 00264 0 00000 0 00000 PZE STORAGE FOR IR A L6S01950 | 00265 0 00000 0 00000 PZE TEMPORARY STORAGE L6S01960 | 00266 0 00000 0 00000 PZE TEMPORARY STORAGE L6S01970 | 00267 1 65000 0 00000 TXI 0,0,27136 CHARACTERISTIC OF 117 L6S01980 77777 COMMON -206 L6S01990 | 77777 4) COMMON 1 L6S02000 | 77763 COMMON SYN 4)-12 L6S02010 | 77773 EXPNEG SYN 4)-4 L6S02020 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 COMPLEX SINE AND COSINE FUNCTION / 9CSC | | 77772 EXPOS SYN 4)-5 L6S02030 | 77771 SINHY SYN 4)-6 L6S02040 | 77770 COSHY SYN 4)-7 L6S02050 END L6S02060 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 270 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 77777 4) 0, 2, 4, 24, 30, 31, 36, 41, 43, 270 | 164 COS 33, 164, 165, 166, 170, 171, 172, 174, 175, 176, 177, 200, 202, 203, 204, 205, 206 207, 212, 213, 214, 215, 216, 217, 220, 221, 222, 223, 224, 225, 226, 230, 231, 232 | 233, 234, 235, 236, 237, 240, 242, 243, 244, 245, 247 | 52 EXP 6, 52, 55, 56, 62, 63, 64, 67, 71, 72, 110, 125, 132, 133, 136, 137, 143 | 147 | 163 ONE 11 165 SIN 25, 42 | 46 TWO 22 | 45 DIV2 16 | 160 HPRE 53 | 0 ICOS 0 3 ISIN 0 | 41 REAL 5 | 47 ZERO 10 | 77770 COSHY 17, 27, 270 | 77772 EXPOS 13, 14, 20, 50, 270 77771 SINHY 23, 35, 270 | 16 ZERO1 51 | 77763 COMMON 57, 70, 73, 74, 76, 100, 102, 103, 104, 105, 107, 111, 112, 114, 116, 117, 121 | 122, 123, 124, 126, 127, 130, 131, 134, 135, 140, 142, 144, 270 | 77773 EXPNEG 7, 12, 15, 21, 270 263 HALFPI 1 | 162 MAXNO. 47, 160 | 37 SNEXIT 3, 44 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9DPS L7A00000 * FAP L7A00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION ARITHMETIC BASIC SUBROUTINES / 9DPS | | SUBROUTINE FOR BASIC OPERATIONS FAD, FSB, FMP, FDP L7A00070 | L7A00080 CALLING SEQUENCE IS L7A00090 | LOCATION 2 INITIALIZED BY L7A00100 | CAL (....) L7A00110 | SLW 2 L7A00120 | AND REMAINS SO UNTIL A DIFFERENT OPERATION IS REQUIREL7A00130 L7A00140 | EACH USAGE IS CALLED BY L7A00150 | STR ADD1 (MOST SIGN. PART) L7A00160 | PZE ADD2 (LEAST SIGN. PART) L7A00170 | L7A00180 | BINARY CARD NO. 9DPS0000 | 00000 ENTRY (DFAD) L7A00190 | 00020 ENTRY (DFSB) L7A00200 | 00040 ENTRY (DFMP) L7A00210 00066 ENTRY (DFDP) L7A00220 | L7A00230 | 00000 .. EQU 0 L7A00240 | DFAD ROUTINE L7A00250 | BINARY CARD NO. 9DPS0001 | 00000 -0500 00 0 00000 (DFAD) CAL 0 GET LOCATION STORED BY STR L7A00260 | 00001 0621 00 0 00013 STA DFAD02 L7A00270 | 00002 0402 00 0 00116 SUB L(1) L7A00280 | 00003 0621 00 0 00007 STA DFAD01 L7A00290 00004 0400 00 0 00117 ADD L(2) L7A00300 | 00005 0621 00 0 00017 STA DFAD03 L7A00310 | L7A00320 | 00006 0500 00 0 77777 CLA 4) MOST SIGN. AC L7A00330 | 00007 0300 60 0 00000 DFAD01 FAD* .. MOST SIGN. VARIABLE L7A00340 00010 0601 00 0 77777 STO 4) SAVE MOST SIGN. SUM L7A00350 | 00011 0131 00 0 00000 XCA LEAST SIGN. PART OF SUM TO AC. L7A00360 | 00012 -0300 00 0 77776 UFA 4)-1 L7A00370 | 00013 -0300 60 0 00000 DFAD02 UFA* .. ADD LEAST SIGN. PART OF VARIABLE L7A00380 | 00014 0300 00 0 77777 FAD 4) ADD MOST SIGN. SUM L7A00390 00015 0601 00 0 77777 STO 4) STORE MOST SIGN. PART OF ANSWER L7A00400 | 00016 -0600 00 0 77776 STQ 4)-1 STORE LEAST SIGN. PART OF ANSWER L7A00410 | 00017 0020 00 0 00000 DFAD03 TRA .. RETURN TO CALLING PROGRAM L7A00420 | L7A00430 | DFSB ROUTINE L7A00440 00020 -0500 00 0 00000 (DFSB) CAL 0 GET LOCATION STORED BY STR L7A00450 | 00021 0621 00 0 00033 STA DFSB02 L7A00460 | 00022 0402 00 0 00116 SUB L(1) L7A00470 | 00023 0621 00 0 00027 STA DFSB01 L7A00480 | BINARY CARD NO. 9DPS0002 | 00024 0400 00 0 00117 ADD L(2) L7A00490 | 00025 0621 00 0 00037 STA DFSB03 L7A00500 | L7A00510 | 00026 0500 00 0 77777 CLA 4) MOST SIGN. AC L7A00520 00027 0302 60 0 00000 DFSB01 FSB* .. MOST SIGN. PART OF VARIABLE L7A00530 | 00030 0601 00 0 77777 STO 4) SAVE MOST SIGN. DIFFERENCE L7A00540 | 00031 0131 00 0 00000 XCA LEAST SIGN. DIFFERENCE TO AC L7A00550 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION ARITHMETIC BASIC SUBROUTINES / 9DPS | 00032 -0300 00 0 77776 UFA 4)-1 PLUS LEAST SIGN. AC L7A00560 | 00033 -0302 60 0 00000 DFSB02 UFS* .. LESS LEAST SIGN. PART OF VARIABLE L7A00570 | 00034 0300 00 0 77777 FAD 4) PLUS DIFFERENCE OF MOST SIGN. PARTS L7A00580 | 00035 0601 00 0 77777 STO 4) MOST SIGN. ANSWER TO MOST SIGN. AC L7A00590 00036 -0600 00 0 77776 STQ 4)-1 LEAST SIGN. ANSWER TO LEAST SIGN. AC L7A00600 | 00037 0020 00 0 00000 DFSB03 TRA .. RETURN TO CALLING PROGRAM L7A00610 | L7A00620 | DFMP ROUTINE L7A00630 | 00040 -0500 00 0 00000 (DFMP) CAL 0 GET LOCATION STORED BY STR L7A00640 00041 0621 00 0 00054 STA DFMP02 L7A00650 | 00042 0402 00 0 00116 SUB L(1) L7A00660 | 00043 0621 00 0 00050 STA DFMP01 L7A00670 | 00044 0621 00 0 00057 STA DFMP03 L7A00680 | 00045 0400 00 0 00117 ADD L(2) L7A00690 00046 0621 00 0 00065 STA DFMP04 L7A00700 | L7A00710 | 00047 0560 00 0 77775 LDQ 4)-2 MOST SIGN. MQ L7A00720 | | BINARY CARD NO. 9DPS0003 00050 0260 60 0 00000 DFMP01 FMP* .. MOST SIGN. PART OF VARIABLE L7A00730 | 00051 0601 00 0 00114 STO ERASE1 MOST SIGN. PART OF PRODUCT L7A00740 | 00052 -0600 00 0 00115 STQ ERASE2 LEAST SIGN. PART OF PRODUCT L7A00750 | 00053 0560 00 0 77775 LDQ 4)-2 MOST SIGN. MQ L7A00760 | 00054 0260 60 0 00000 DFMP02 FMP* .. LEAST SIGN. PART OF VARIABLE L7A00770 00055 -0300 00 0 00115 UFA ERASE2 PLUS LEAST SIGN. PART OF FIRST PRODUCT L7A00780 | 00056 0601 00 0 00115 STO ERASE2 SAVE L7A00790 | 00057 0560 60 0 00000 DFMP03 LDQ* .. LEAST SIGN. PART OF VARIABLE L7A00800 | 00060 0260 00 0 77774 FMP 4)-3 LEAST SIGN. MQ L7A00810 | 00061 -0300 00 0 00115 UFA ERASE2 PLUS PREVIOUS PRODUCT OF LEAST PARTS L7A00820 00062 0300 00 0 00114 FAD ERASE1 PLUS PRODUCT OF MOST PARTS L7A00830 | 00063 0601 00 0 77777 STO 4) MOST SIGN. ANSWER TO MOST SIGN. AC L7A00840 | 00064 -0600 00 0 77776 STQ 4)-1 LEAST SIGN. ANSWER TO LEAST SIGN. AC L7A00850 | 00065 0020 00 0 00000 DFMP04 TRA .. RETURN TO CALLING PROGRAM L7A00860 | L7A00870 DFDP ROUTINE L7A00880 | 00066 -0500 00 0 00000 (DFDP) CAL 0 GET LOCATION STORED BY STR L7A00890 | 00067 0621 00 0 00104 STA DFDP03 L7A00900 | 00070 0402 00 0 00116 SUB L(1) L7A00910 | 00071 0621 00 0 00077 STA DFDP01 L7A00920 00072 0621 00 0 00102 STA DFDP02 L7A00930 | 00073 0621 00 0 00105 STA DFDP04 L7A00940 | | BINARY CARD NO. 9DPS0004 | 00074 0400 00 0 00117 ADD L(2) L7A00950 00075 0621 00 0 00113 STA DFDP05 L7A00960 | L7A00970 | 00076 0500 00 0 77777 CLA 4) MOST SIGN. AC L7A00980 | 00077 0241 60 0 00000 DFDP01 FDP* .. / MOST SIGN. PART OF VARIABLE L7A00990 | 00100 -0600 00 0 00114 STQ ERASE1 SAVE MOST SIGN. QUOTIENT L7A01000 00101 -0300 00 0 77776 UFA 4)-1 REMAINDER PLUS LEAST SIGN. PART OF VARIABLEL7A01010 | 00102 0241 60 0 00000 DFDP02 FDP* .. / LEAST SIGN. PART OF VARIABLE L7A01020 | 00103 -0600 00 0 00115 STQ ERASE2 SAVE MOST SIGN. PART L7A01030 | 00104 0502 60 0 00000 DFDP03 CLS* .. L7A01040 | 00105 0241 60 0 00000 DFDP04 FDP* .. L7A01050 00106 0260 00 0 00114 FMP ERASE1 L7A01060 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | DOUBLE PRECISION ARITHMETIC BASIC SUBROUTINES / 9DPS | | 00107 -0300 00 0 00115 UFA ERASE2 L7A01070 00110 0300 00 0 00114 FAD ERASE1 L7A01080 | 00111 0601 00 0 77775 STO 4)-2 MOST SIGN. ANSWER TO MOST SIGN. MQ L7A01090 | 00112 -0600 00 0 77774 STQ 4)-3 LEAST SIGN. ANSWER TO LEAST SIGN. MQ L7A01100 | 00113 0020 00 0 00000 DFDP05 TRA .. RETURN TO CALLING PROGRAM L7A01110 | L7A01120 00114 0 00000 0 00000 ERASE1 PZE 0 L7A01130 | 00115 0 00000 0 00000 ERASE2 PZE 0 L7A01140 | L7A01150 | 00116 0 00000 0 00001 L(1) PZE 1 L7A01160 | 00117 0 00000 0 00002 L(2) PZE 2 L7A01170 77777 COMMON -206 L7A01180 | 77777 4) COMMON 1 L7A01190 | END L7A01200 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 120 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 77777 4) 6, 10, 12, 14, 15, 16, 26, 30, 32, 34, 35, 36, 47, 53, 60, 63, 64 | 76, 101, 111, 112, 120 | 0 .. 0, 7, 13, 17, 27, 33, 37, 50, 54, 57, 65, 77, 102, 104, 105, 113 | 116 L(1) 2, 22, 42, 70 | 117 L(2) 4, 24, 45, 74 7 DFAD01 3 | 13 DFAD02 1 | 17 DFAD03 5 | 77 DFDP01 71 | 102 DFDP02 72 104 DFDP03 67 | 105 DFDP04 73 | 113 DFDP05 75 | 50 DFMP01 43 | 54 DFMP02 41 57 DFMP03 44 | 65 DFMP04 46 | 27 DFSB01 23 | 33 DFSB02 21 | 37 DFSB03 25 114 ERASE1 51, 62, 100, 106, 110 | 115 ERASE2 52, 55, 56, 61, 103, 107 | 0 (DFAD) 0 | 66 (DFDP) 0 | 40 (DFMP) 0 20 (DFSB) 0 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DMD L7B00000 * FAP L7B00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION MOD FUNCTION / 9DMD | | | BINARY CARD NO. 9DMD0000 00000 ENTRY DMOD L7B00070 | L7B00080 | | BINARY CARD NO. 9DMD0001 | 00000 0500 00 0 77777 DMOD CLA 4) MOST SIGN. PART OF AC L7B00090 00001 0241 00 0 77775 FDP 4)-2 MOST SIGN PART OF MQ L7B00100 | 00002 -0600 00 0 00053 STQ ERASE1 DPFDP FOR X/Y L7B00110 | 00003 -0300 00 0 77776 UFA 4)-1 X L7B00120 | 00004 0241 00 0 77775 FDP 4)-2 X $L7B00130 | 00005 -0600 00 0 00054 STQ ERASE2 X L7B00140 00006 0502 00 0 77774 CLS 4)-3 X L7B00150 | 00007 0241 00 0 77775 FDP 4)-2 X L7B00160 | 00010 0260 00 0 00053 FMP ERASE1 X L7B00170 | 00011 -0300 00 0 00054 UFA ERASE2 X L7B00180 | 00012 0300 00 0 00053 FAD ERASE1 X L7B00190 00013 -0600 00 0 00054 STQ ERASE2 X L7B00200 | 00014 -0300 00 0 00057 UFA 6) FINDS INTEGRAL VALUE OF X/Y L7B00210 | 00015 0601 00 0 00053 STO ERASE1 X L7B00220 | 00016 0500 00 0 00054 CLA ERASE2 X L7B00230 | 00017 -0300 00 0 00057 UFA 6) X L7B00240 00020 0300 00 0 00053 FAD ERASE1 X L7B00250 | 00021 0601 00 0 00053 STO ERASE1 X L7B00260 | 00022 -0600 00 0 00054 STQ ERASE2 X L7B00270 | 00023 0560 00 0 77775 LDQ 4)-2 X L7B00280 | BINARY CARD NO. 9DMD0002 | 00024 0260 00 0 00053 FMP ERASE1 INTEGRAL PORTION TIMES Y L7B00290 | 00025 0601 00 0 00055 STO ERASE3 X L7B00300 | 00026 -0600 00 0 00056 STQ ERASE4 X L7B00310 | 00027 0560 00 0 77775 LDQ 4)-2 X L7B00320 00030 0260 00 0 00054 FMP ERASE2 X L7B00330 | 00031 -0300 00 0 00056 UFA ERASE4 X L7B00340 | 00032 0601 00 0 00056 STO ERASE4 X L7B00350 | 00033 0560 00 0 00053 LDQ ERASE1 X L7B00360 | 00034 0260 00 0 77774 FMP 4)-3 X L7B00370 00035 -0300 00 0 00056 UFA ERASE4 X L7B00380 | 00036 0300 00 0 00055 FAD ERASE3 X L7B00390 | 00037 0601 00 0 00053 STO ERASE1 X L7B00400 | 00040 -0600 00 0 00054 STQ ERASE2 X L7B00410 | 00041 0500 00 0 77777 CLA 4) X MINUS INTEGRAL PORTION TIMES Y L7B00420 00042 0302 00 0 00053 FSB ERASE1 X L7B00430 | 00043 0601 00 0 77777 STO 4) X L7B00440 | 00044 0131 00 0 00000 XCA X L7B00450 | 00045 -0300 00 0 77776 UFA 4)-1 X L7B00460 | 00046 -0302 00 0 00054 UFS ERASE2 X L7B00470 00047 0300 00 0 77777 FAD 4) X L7B00480 | | BINARY CARD NO. 9DMD0003 | 00050 0601 00 0 77777 STO 4) X L7B00490 | 00051 -0600 00 0 77776 STQ 4)-1 X L7B00500 00052 0020 00 4 00001 TRA 1,4 L7B00510 | L7B00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION MOD FUNCTION / 9DMD | 00053 0 00000 0 00000 ERASE1 PZE 0 L7B00530 | 00054 0 00000 0 00000 ERASE2 PZE 0 L7B00540 | 00055 0 00000 0 00000 ERASE3 PZE 0 L7B00550 | 00056 0 00000 0 00000 ERASE4 PZE 0 L7B00560 | 00057 +233000000000 6) OCT 233000000000 L7B00570 77777 COMMON -206 L7B00580 | 77777 4) COMMON 1 L7B00590 | END L7B00600 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 60 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 77777 4) 0, 1, 3, 4, 6, 7, 23, 27, 34, 41, 43, 45, 47, 50, 51, 60 | 57 6) 14, 17 | 0 DMOD 0 | 53 ERASE1 2, 10, 12, 15, 20, 21, 24, 33, 37, 42 | 54 ERASE2 5, 11, 13, 16, 22, 30, 40, 46 55 ERASE3 25, 36 | 56 ERASE4 26, 31, 32, 35 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DIN L7C00000 * FAP L7C00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION INTEGER FUNCTION / 9DIN | | *9DIN DOUBLE PRECISION INTEGER FUNCTION L7C00070 | BINARY CARD NO. 9DIN0000 | 00000 ENTRY DINT L7C00080 | | BINARY CARD NO. 9DIN0001 | 00000 0500 00 0 77777 DINT CLA 4) OBTAIN MOST SIGNIFICANT PART L7C00090 00001 -0300 00 0 00011 UFA 6) L7C00100 | 00002 0601 00 0 77777 STO 4) SHIFT FRACTIONAL BITS OUT AND STORE L7C00110 | 00003 0500 00 0 77776 CLA 4)-1 LEAST SIGNIFICANT PART L7C00120 | 00004 -0300 00 0 00011 UFA 6) SHIFT FRACTIONAL BITS OUT, L7C00130 | 00005 0300 00 0 77777 FAD 4) COMBINE WITH MSP, NORMALIZE L7C00140 00006 0601 00 0 77777 STO 4) AND STORE IN P-AC. L7C00150 | 00007 -0600 00 0 77776 STQ 4)-1 L7C00160 | 00010 0020 00 4 00001 TRA 1,4 L7C00170 | 00011 +233000000000 6) OCT 233000000000 L7C00180 | 77777 COMMON -206 L7C00190 77777 4) COMMON 1 L7C00200 | END L7C00210 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 12 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 77777 4) 0, 2, 3, 5, 6, 7, 12 11 6) 1, 4 | 0 DINT 0 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DX2 L7E00000 * FAP L7E00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION AND COMPLEX EXPONENTIAL FUNCTION2 / 9DX2 | | | BINARY CARD NO. 9DX20000 00000 ENTRY IEXP(2 L7E00070 | 00002 ENTRY DEXP(2 L7E00080 | | BINARY CARD NO. 9DX20001 | 00000 -0500 00 0 00223 IEXP(2 CAL SWITCH SET ENTRY SWITCHES TO TRANSFER L7E00090 00001 0020 00 0 00003 TRA BEGIN L7E00100 | 00002 0500 00 0 00223 DEXP(2 CLA SWITCH SET ENTRY SWITCHES TO NOP L7E00110 | 00003 0630 00 0 00042 BEGIN STP L L7E00120 | 00004 0630 00 0 00065 STP SW1 L7E00130 | 00005 0630 00 0 00104 STP V6 L7E00140 00006 0634 00 1 00100 SXA V5,1 L7E00150 | 00007 0634 00 2 00101 SXA V5+1,2 L7E00160 | 00010 0634 00 4 00102 SXA V5+2,4 L7E00170 | 00011 0500 00 0 77777 CLA 4) L7E00180 | 00012 0601 00 0 00230 STO BB INITIALIZE POWER TABLE L7E00190 00013 0500 00 0 77776 CLA 4)-1 L7E00200 | 00014 0601 00 0 00231 STO BB+1 L7E00210 | 00015 0131 00 0 00000 XCA BRING EXPONENT FROM MQ L7E00220 | 00016 0771 00 0 00022 ARS 18 MOVE IT FROM DECREMENT L7E00230 | 00017 0601 00 0 00266 STO N L7E00240 00020 -0340 00 0 00225 LAS BONE TEST FOR ZERO OR ONE L7E00250 | 00021 0020 00 0 00027 TRA USUAL POWER OF TWO OR MORE L7E00260 | 00022 0020 00 0 00076 TRA V4+1 POWER OF 1, + OR - L7E00270 | 00023 0500 00 0 00224 CLA ONE Z**0=1.0 L7E00280 | BINARY CARD NO. 9DX20002 | 00024 0601 00 0 77777 STO 4) L7E00290 | 00025 0600 00 0 77776 STZ 4)-1 L7E00300 | 00026 0020 00 0 00100 TRA V5 EXIT L7E00310 | 00027 0774 00 1 00020 USUAL AXT 16,1 LOAD IR(1) L7E00320 00030 0774 00 2 00017 AXT 15,2 LOAD IR(2) L7E00330 | 00031 1 77777 1 00032 H TXI J,1,-1 LOOK FOR FIRST NON ZERO HIGH ORDER BIT L7E00340 | 00032 0044 00 0 00000 J PAI L7E00350 | 00033 0054 00 040000 RFT 40000 L7E00360 | 00034 0020 00 0 00037 TRA V FOUND L7E00370 00035 0767 00 0 00001 ALS 1 NOT FOUND, SHIFT AND LOOK AGAIN L7E00380 | 00036 2 00001 2 00031 TIX H,2,1 L7E00390 | 00037 0634 00 1 00060 V SXA LL1,1 SAVE COUNT FOR LATER LOOP L7E00400 | 00040 1 77777 1 00041 TXI *+1,1,-1 L7E00410 | 00041 0774 00 2 00000 AXT 0,2 L7E00420 00042 3 00000 0 00045 L TXH *+3,0,0 SET BY ENTRY TO TRA OR NOP L7E00430 | 00043 0074 00 4 00107 TSX DPFMP,4 CREATE POWER TABLE L7E00440 | 00044 0020 00 0 00046 TRA *+2 L7E00450 | 00045 0074 00 4 00126 TSX CAFMP,4 L7E00460 | 00046 1 77776 2 00047 TXI *+1,2,-2 L7E00470 00047 0500 00 0 77777 CLA 4) MOVE RESULTS TO POWER TABLE L7E00480 | | BINARY CARD NO. 9DX20003 | 00050 0601 00 2 00230 STO BB,2 L7E00490 | 00051 0500 00 0 77776 CLA 4)-1 L7E00500 00052 0601 00 2 00231 STO BB+1,2 L7E00510 | 00053 2 00001 1 00042 TIX L,1,1 COMPUTE X**2,X**4,X**8 AS NECESSARY. L7E00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION AND COMPLEX EXPONENTIAL FUNCTION2 / 9DX2 | 00054 0500 00 0 00224 CLA ONE INITIALIZE P-AC FOR ODD POWER L7E00530 | 00055 0601 00 0 77777 STO 4) STORE IN 4) L7E00540 | 00056 0600 00 0 77776 STZ 4)-1 L7E00550 | 00057 0500 00 0 00266 CLA N L7E00560 | 00060 0774 00 1 00000 LL1 AXT 0,1 LOAD IR(1) WITH COUNT OF BIT ENTRIES L7E00570 00061 0774 00 2 00000 AXT 0,2 L7E00580 | 00062 0044 00 0 00000 PAI ABSOLUTE VALUE OF EXP TO INDICATORS L7E00590 | 00063 0056 00 000001 V2 RNT 1 L7E00600 | 00064 0020 00 0 00071 TRA B15 ABSENT, DO NOT MULTIPLY L7E00610 | 00065 3 00000 0 00070 SW1 TXH *+3,0,0 SET TO TRA OR NOP BY ENTRY POINT L7E00620 00066 0074 00 4 00107 TSX DPFMP,4 L7E00630 | 00067 0020 00 0 00071 TRA *+2 L7E00640 | 00070 0074 00 4 00126 TSX CAFMP,4 L7E00650 | 00071 -0046 00 0 00000 B15 PIA EXPONENT TO AC L7E00660 | 00072 0771 00 0 00001 ARS 1 SHIFT ONE L7E00670 00073 0044 00 0 00000 PAI PREPARE TO TEST NEXT BIT L7E00680 | | BINARY CARD NO. 9DX20004 | 00074 1 77776 2 00075 TXI V4,2,-2 L7E00690 | 00075 2 00001 1 00063 V4 TIX V2,1,1 CONTINUE THROUGH EXPONENT L7E00700 00076 0500 00 0 00266 CLA N TEST FOR NEGATIVE EXPONENT L7E00710 | 00077 -0120 00 0 00104 TMI V6 L7E00720 | 00100 0774 00 1 00000 V5 AXT 0,1 L7E00730 | 00101 0774 00 2 00000 AXT 0,2 L7E00740 | 00102 0774 00 4 00000 AXT 0,4 L7E00750 00103 0020 00 4 00001 TRA 1,4 RETURN TO CALLER L7E00760 | 00104 3 00000 0 00106 V6 TXH *+2,0,0 NEGATIVE EXPONENT, FIND RECIPROCAL L7E00770 | 00105 0020 00 0 00145 TRA DPFDP SWITCH SET BY ENTRY POINT L7E00780 | 00106 0020 00 0 00162 TRA CAFDP L7E00790 | 00107 0560 00 0 77777 DPFMP LDQ 4) THIS SUBROUTINE ASSUMES THE L7E00800 00110 0260 00 2 00230 FMP BB,2 MULTIPLIER IN THE PSEUDO-AC L7E00810 | 00111 0601 00 0 00226 STO TEMP1 AND THE MULTIPLICAND IN THE L7E00820 | 00112 -0600 00 0 00227 STQ TEMP2 BB-TABLE L7E00830 | 00113 0560 00 0 77777 LDQ 4) L7E00840 | 00114 0260 00 2 00231 FMP BB+1,2 L7E00850 00115 -0300 00 0 00227 UFA TEMP2 L7E00860 | 00116 0601 00 0 00227 STO TEMP2 L7E00870 | 00117 0560 00 0 77776 LDQ 4)-1 L7E00880 | | BINARY CARD NO. 9DX20005 00120 0260 00 2 00230 FMP BB,2 L7E00890 | 00121 -0300 00 0 00227 UFA TEMP2 L7E00900 | 00122 0300 00 0 00226 FAD TEMP1 L7E00910 | 00123 0601 00 0 77777 STO 4) THE RESULTS ARE LEFT IN THE L7E00920 | 00124 -0600 00 0 77776 STQ 4)-1 PSEUDO AC L7E00930 00125 0020 00 4 00001 TRA 1,4 RETURN TO CALLER L7E00940 | 00126 0560 00 0 77776 CAFMP LDQ 4)-1 THIS SUBROUTINE ASSUMES THE L7E00950 | 00127 0260 00 2 00231 FMP BB+1,2 MULTIPLIER IN THE PSEUDO AC AND L7E00960 | 00130 0601 00 0 00226 STO TEMP1 THE MULTIPLICAND IN THE BB TABLE L7E00970 | 00131 0560 00 0 77777 LDQ 4) L7E00980 00132 0260 00 2 00230 FMP BB,2 L7E00990 | 00133 0302 00 0 00226 FSB TEMP1 L7E01000 | 00134 0560 00 0 77777 LDQ 4) RETRIEVE 4) FOR LAST TIME AND L7E01010 | 00135 0601 00 0 77777 STO 4) THEN STORE FINAL RESULT OVER IT L7E01020 | 00136 0260 00 2 00231 FMP BB+1,2 L7E01030 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | DOUBLE PRECISION AND COMPLEX EXPONENTIAL FUNCTION2 / 9DX2 | | 00137 0601 00 0 00227 STO TEMP2 L7E01040 | 00140 0560 00 0 77776 LDQ 4)-1 L7E01050 00141 0260 00 2 00230 FMP BB,2 L7E01060 | 00142 0300 00 0 00227 FAD TEMP2 L7E01070 | 00143 0601 00 0 77776 STO 4)-1 L7E01080 | | BINARY CARD NO. 9DX20006 00144 0020 00 4 00001 TRA 1,4 RESULTS LEFT IN PSEUDO AC L7E01090 | 00145 0500 00 0 00224 DPFDP CLA ONE THIS ROUTINE RECIEVES THE NUMBER L7E01100 | 00146 0241 00 0 77777 FDP 4) IN THE PSEUDO AC AND LEAVES THE L7E01110 | 00147 -0600 00 0 00226 STQ TEMP1 RECIPROCAL IN THE PSEUDO AC L7E01120 | 00150 0241 00 0 77777 FDP 4) *L7E01130 00151 -0600 00 0 00227 STQ TEMP2 L7E01140 | 00152 0502 00 0 77776 CLS 4)-1 L7E01150 | 00153 0241 00 0 77777 FDP 4) L7E01160 | 00154 0260 00 0 00226 FMP TEMP1 L7E01170 | 00155 -0300 00 0 00227 UFA TEMP2 L7E01180 00156 0300 00 0 00226 FAD TEMP1 L7E01190 | 00157 0601 00 0 77777 STO 4) L7E01200 | 00160 -0600 00 0 77776 STQ 4)-1 L7E01210 | 00161 0020 00 0 00100 TRA V5 GO OUT L7E01220 | 00162 0500 00 0 77777 CAFDP CLA 4) TEST TO FIND $L7E01230 00163 0560 00 0 77776 LDQ 4)-1 THE LARGER OF $L7E01240 | 00164 0760 00 0 00003 SSP A AND B $L7E01250 | 00165 0765 00 0 00000 LRS 0 $L7E01260 | 00166 0040 00 0 00214 TLQ AGRB $L7E01270 | 00167 0131 00 0 00000 XCA $L7E01280 | BINARY CARD NO. 9DX20007 | 00170 0100 00 0 00100 TZE V5 $L7E01290 | 00171 0502 00 0 77777 CLS 4) CASE OF B GREATER $L7E01300 | 00172 0241 00 0 77776 PROCD FDP 4)-1 -A/B $L7E01310 00173 -0600 00 0 00226 STQ TEMP1 $L7E01320 | 00174 0260 00 0 00226 FMP TEMP1 ((A/B)**2) $L7E01330 | 00175 0300 00 0 00224 FAD ONE ((A/B)**2+1) $L7E01340 | 00176 0131 00 0 00000 XCA $L7E01350 | 00177 0260 00 0 77776 FMP 4)-1 B((A/B)**2+1) $L7E01360 00200 0601 00 0 00227 STO TEMP2 $L7E01370 | 00201 0502 00 0 00224 CLS ONE $L7E01380 | 00202 0241 00 0 00227 FDP TEMP2 = IMAG. PART OF ANSWER $L7E01390 | 00203 -0600 00 0 00227 STQ TEMP2 $L7E01400 | 00204 0260 00 0 00226 FMP TEMP1 = REAL PART OF ANSWER $L7E01410 00205 0560 00 0 00227 LDQ TEMP2 $L7E01420 | 00206 0520 00 0 00222 ZET INDIC TEST INDICATOR $L7E01430 | 00207 0131 00 0 00000 XCA REVERSE REAL AND IMAGINARY, IF NECESSARY $L7E01440 | 00210 0601 00 0 77777 STO 4) STORE REAL PART OF ANSWER $L7E01450 | 00211 -0600 00 0 77776 STQ 4)-1 STORE IMAG. PART OF ANSWER $L7E01460 00212 0600 00 0 00222 STZ INDIC REINITIALIZE $L7E01470 | 00213 0020 00 0 00100 TRA V5 RETURN $L7E01480 | | BINARY CARD NO. 9DX20008 | 00214 0502 00 0 77777 AGRB CLS 4) EXCHANGE A AND B $L7E01490 00215 0131 00 0 00000 XCA AND REVERSE THEIR $L7E01500 | 00216 0500 00 0 77776 CLA 4)-1 SIGNS $L7E01510 | 00217 -0600 00 0 77776 STQ 4)-1 $L7E01520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | DOUBLE PRECISION AND COMPLEX EXPONENTIAL FUNCTION2 / 9DX2 | 00220 -0625 00 0 00222 STL INDIC $L7E01530 | 00221 0020 00 0 00172 TRA PROCD $L7E01540 | 00222 +000000000000 INDIC OCT 0 $L7E01550 | 00223 -3 00000 0 00000 SWITCH MTH $L7E01560 00224 +201400000000 ONE DEC 1.0 $L7E01570 | 00225 +000000000001 BONE OCT 1 $L7E01580 | 00226 0 00000 0 00000 TEMP1 PZE $L7E01590 | 00227 0 00000 0 00000 TEMP2 PZE $L7E01600 | 77777 COMMON -206 $L7E01610 77777 4) COMMON 1 $L7E01620 | 00230 BB BSS 30 $L7E01630 | 00266 N BSS 1 $L7E01640 | END $L7E01650 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 267 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 31 H 36 | 32 J 31 | 42 L 3, 53 | 266 N 17, 57, 76 37 V 34 | 77777 4) 11, 13, 24, 25, 47, 51, 55, 56, 107, 113, 117, 123, 124, 126, 131, 134, 135 | 140, 143, 146, 150, 152, 153, 157, 160, 162, 163, 171, 172, 177, 210, 211, 214, 216 | 217, 230 | 230 BB 12, 14, 50, 52, 110, 114, 120, 127, 132, 136, 141 63 V2 75 | 75 V4 22, 74 | 100 V5 6, 7, 10, 26, 161, 170, 213 | 104 V6 5, 77 | 71 B15 64 60 LL1 37 | 224 ONE 23, 54, 145, 175, 201 | 65 SW1 4 | 214 AGRB 166 | 225 BONE 20 3 BEGIN 1 | 162 CAFDP 106 | 126 CAFMP 45, 70 | 145 DPFDP 105 | 107 DPFMP 43, 66 222 INDIC 206, 212, 220 | 172 PROCD 221 | 226 TEMP1 111, 122, 130, 133, 147, 154, 156, 173, 174, 204 | 227 TEMP2 112, 115, 116, 121, 137, 142, 151, 155, 200, 202, 203, 205 | 27 USUAL 21 2 DEXP(2 0 | 0 IEXP(2 0 | 223 SWITCH 0, 2 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9DX3 L7F00000 * FAP L7F00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION EXPONENTIAL FUNCTION 3 / 9DX3 | | *9DX3 DOUBLE PRECISION EXP(3 FUNCTION L7F00070 | BINARY CARD NO. 9DX30000 | 00002 ENTRY DEXP(3 L7F00080 | L7F00090 | | TRANSFER VECTOR | BINARY CARD NO. 9DX30001 | 00000 244346276060 DLOG | 00001 242567476060 DEXP | 00000 .. EQU 0 L7F00100 | L7F00110 | 00002 0634 00 4 00034 DEXP(3 SXA EXIT,4 L7F00120 | 00003 0500 00 0 77777 CLA 4) PUT ARGUMENTS IN WORKING STORAGE L7F00130 | 00004 0100 00 0 00034 TZE EXIT L7F00140 00005 0601 00 0 00036 STO ERASE1 L7F00150 | 00006 0500 00 0 77776 CLA 4)-1 L7F00160 | 00007 0601 00 0 00037 STO ERASE2 L7F00170 | 00010 0500 00 0 77775 CLA 4)-2 L7F00180 | 00011 0601 00 0 00040 STO ERASE3 L7F00190 00012 0500 00 0 77774 CLA 4)-3 L7F00200 | 00013 0601 00 0 00041 STO ERASE4 L7F00210 | 00014 0074 00 4 00000 TSX $DLOG,4 FIND LN OF X L7F00220 | 00015 0560 00 0 77777 LDQ 4) RETURNS WITH DP RESULT IN PSEUDO AC L7F00230 | 00016 0260 00 0 00040 FMP ERASE3 X*Y L7F00240 00017 0601 00 0 00036 STO ERASE1 L7F00250 | 00020 -0600 00 0 00037 STQ ERASE2 L7F00260 | 00021 0560 00 0 77777 LDQ 4) L7F00270 | 00022 0260 00 0 00041 FMP ERASE4 L7F00280 | 00023 -0300 00 0 00037 UFA ERASE2 L7F00290 | BINARY CARD NO. 9DX30002 | 00024 0601 00 0 00037 STO ERASE2 L7F00300 | 00025 0560 00 0 00040 LDQ ERASE3 L7F00310 | 00026 0260 00 0 77776 FMP 4)-1 L7F00320 00027 -0300 00 0 00037 UFA ERASE2 L7F00330 | 00030 0300 00 0 00036 FAD ERASE1 L7F00340 | 00031 0601 00 0 77777 STO 4) PUT LN OF ANS IN PSEUDO AC, THEN GET L7F00350 | 00032 -0600 00 0 77776 STQ 4)-1 ANTI-LOG (EXP) IN PSEUDO AC L7F00360 | 00033 0074 00 4 00001 TSX $DEXP,4 AND L7F00370 00034 0774 00 4 00000 EXIT AXT ..,4 RETURN TO CALLER L7F00380 | 00035 0020 00 4 00001 TRA 1,4 L7F00390 | L7F00400 | 00036 0 00000 0 00000 ERASE1 PZE 0 L7F00410 | 00037 0 00000 0 00000 ERASE2 PZE 0 L7F00420 00040 0 00000 0 00000 ERASE3 PZE 0 L7F00430 | 00041 0 00000 0 00000 ERASE4 PZE 0 L7F00440 | 77777 COMMON -206 L7F00450 | 77777 4) COMMON 1 L7F00460 | END L7F00470 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 42 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 77777 4) 3, 6, 10, 12, 15, 21, 26, 31, 32, 42 | 0 .. 2, 34 | 1 DEXP 33 0 DLOG 14 | 34 EXIT 2, 4 | 2 DEXP(3 0 | 36 ERASE1 5, 17, 30 | 37 ERASE2 7, 20, 23, 24, 27 40 ERASE3 11, 16, 25 | 41 ERASE4 13, 22 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DXP L7G00000 * FAP L7G00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION EXPONENTIAL FUNCTION / 9DXP | | *9DXP DOUBLE PRECISION EXPONENTIAL FUNCTION L7G00070 | * ADAPTED FROM IB-EXD1 FOR THE FORTRAN LIBRARY L7G00080 | BINARY CARD NO. 9DXP0000 | 00001 ENTRY DEXP L7G00090 | | TRANSFER VECTOR | BINARY CARD NO. 9DXP0001 | 00000 742567253460 (EXE) | | 00001 -3 00000 0 00004 DEXP TXL *+3,0,0 L7G00100 00002 0774 00 4 00000 AXT 0,4 L7G00110 | 00003 0020 00 4 00001 TRA 1,4 L7G00120 | 00004 0634 00 4 00002 SXA *-2,4 L7G00130 | 00005 0500 00 0 77777 CLA 4) L7G00140 | 00006 0560 00 0 00225 LDQ MAX L7G00150 00007 0040 00 0 00160 TLQ ERREX TOO LARGE L7G00160 | 00010 0120 00 0 00016 TPL BEGIN L7G00170 | 00011 0765 00 0 00000 LRS 0 L7G00180 | 00012 0040 00 0 00016 TLQ BEGIN L7G00190 | 00013 0600 00 0 77777 STZ 4) TOO LARGE NEGATIVE, RETURN L7G00200 00014 0600 00 0 77776 STZ 4)-1 WITH ZERO L7G00210 | 00015 0020 00 0 00003 TRA DEXP+2 RETURN WITH ZERO L7G00220 | 00016 0534 00 4 00201 BEGIN LXA A,4 L7G00230 | 00017 0560 00 0 77776 LDQ 4)-1 L7G00240 | 00020 -0773 00 0 00010 RQL 8 L7G00250 00021 0765 00 0 00033 LRS 27 200+S, OCTAL L7G00260 | 00022 -0760 00 0 00003 SSM L7G00270 | 00023 0400 00 0 00230 ADD CHAR 34-S L7G00280 | | BINARY CARD NO. 9DXP0002 00024 0621 00 0 00063 STA SHM L7G00290 | 00025 0402 00 0 00227 SUB THRF -S L7G00300 | 00026 0120 00 0 00030 TPL *+2 L7G00310 | 00027 1 00002 4 00030 TXI *+1,4,2 L7G00320 | 00030 0621 00 4 00052 STA SHF+2,4 L7G00330 00031 -0600 00 0 77771 STQ H FRACTION BO, HP L7G00340 | 00032 0200 00 0 00222 MPY LOGE LOGE B1,HP,POS L7G00350 | 00033 0601 00 0 77767 STO H1 L7G00360 | 00034 -0600 00 0 77766 STQ L1 L7G00370 | 00035 0560 00 0 77776 LDQ 4)-1 L7G00410 00036 0204 23 0 00222 VLM LOGE,0,19 L7G00420 | 00037 0601 00 0 77773 STO AH L7G00430 | 00040 0560 00 0 00223 LDQ LOGE+1 L7G00440 | 00041 0204 24 0 77771 VLM H,0,20 L7G00450 | 00042 0400 00 0 77773 ADD AH L7G00460 00043 0400 00 0 77766 ADD L1 L1+L2+L3, OVFL. POSS. L7G00470 | 00044 0765 00 0 00043 LRS 35 L7G00480 | 00045 0400 00 0 77767 ADD H1 LOG2E X ARGUMENT READY FOR SCALING L7G00490 | 00046 0601 00 0 77767 STO H1 $L7G00495 | 00047 -3 00000 4 00052 TXL PSHFT,4,0 L7G00500 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION EXPONENTIAL FUNCTION / 9DXP | | BINARY CARD NO. 9DXP0003 | 00050 0763 00 0 00000 SHF LLS 0 S, TO GET B1 L7G00510 00051 -3 00015 0 00053 THRTN TXL *+2,0,13 L7G00520 | 00052 0765 00 0 00000 PSHFT LRS 0 S, TO GET B1 L7G00530 | 00053 -0320 00 0 00221 ANA MSK L7G00540 | 00054 0763 00 0 00001 LLS 1 B0 L7G00550 | 00055 0601 00 0 77777 STO 4) L7G00560 00056 -0600 00 0 77776 STQ 4)-1 L7G00570 | 00057 0765 00 0 00017 LRS 15 L7G00580 | 00060 0601 00 0 77775 STO VLMF L7G00590 | 00061 -0600 00 0 77776 STQ VLMF+1 L7G00600 | 00062 0500 00 0 77767 CLA H1 $L7G00602 00063 0765 00 0 00000 SHM LRS ** DETERMINE $L7G00604 | 00064 0767 00 0 00033 ALS 27 $L7G00606 | 00065 0601 00 0 77770 STO M INTEGER $L7G00608 | 00066 -0534 00 4 00051 LXD THRTN,4 READY FOR LOOP L7G00610 | 00067 0500 00 4 00216 CLA A+13,4 L7G00620 00070 0560 00 4 00201 LDQ B+13,4 L7G00630 | 00071 0601 00 0 77773 LOOP STO AH L7G00640 | 00072 -0600 00 0 77772 STQ AL L7G00650 | 00073 0560 00 0 77777 LDQ 4) L7G00660 | BINARY CARD NO. 9DXP0004 | 00074 0200 00 0 77773 MPY AH L7G00670 | 00075 0601 00 0 77771 STO H L7G00680 | 00076 -0600 00 0 77766 STQ L1 L7G00690 | 00077 0560 00 0 77775 LDQ VLMF L7G00700 00100 0204 24 0 77772 VLM AL,0,20 L7G00710 | 00101 0601 00 0 77767 STO H1 ...L2 L7G00720 | 00102 0560 00 0 77776 LDQ VLMF+1 L7G00730 | 00103 0204 24 0 77773 VLM AH,0,20 L7G00740 | 00104 0400 00 0 77767 ADD H1 L2+L3 L7G00750 00105 0400 00 0 77766 ADD L1 OVFL POSS L7G00760 | 00106 0765 00 0 00043 LRS 35 L7G00770 | 00107 0400 00 0 77771 ADD H AXF L7G00780 | 00110 0601 00 0 77773 STO AH L7G00790 | 00111 0131 00 0 00000 XCA L7G00800 00112 0400 00 4 00202 ADD B+14,4 L7G00810 | 00113 0765 00 0 00043 LRS 35 L7G00820 | 00114 0400 00 0 77773 ADD AH L7G00830 | 00115 0401 00 4 00217 ADM A+14,4 L7G00840 | 00116 2 00001 4 00071 TIX LOOP,4,1 L7G00850 00117 0763 00 0 00001 EL LLS 1 L7G00860 | | BINARY CARD NO. 9DXP0005 | 00120 -0120 00 0 00140 TMI FINI+1 NOT COMPATIBLE L7G00870 | 00121 -0760 00 0 00001 PBT L7G00880 00122 1 00001 4 00123 TXI *+1,4,1 L7G00890 | 00123 0765 00 4 00012 LRS 10,4 L7G00900 | 00124 0361 00 4 00221 ACL CH+2,4 L7G00910 | 00125 0400 00 0 77770 ADD M PROPER CHAR. FOR LP L7G00920 | 00126 0601 00 0 77773 STO AH L7G00930 00127 0771 00 0 00033 ARS 27 CLOSE UP TO LP L7G00940 | 00130 0765 00 0 00010 LRS 8 LP READY L7G00950 | 00131 0120 00 0 00133 TPL EM L7G00960 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | DOUBLE PRECISION EXPONENTIAL FUNCTION / 9DXP | 00132 0560 00 0 00202 LDQ A+1 CLEAR MQ IF LP UNDERFLOW L7G00970 | 00133 0500 00 0 00226 EM CLA TW7 L7G00980 | 00134 0400 00 0 77773 ADD AH L7G00990 | 00135 0601 00 0 77777 STO 4) L7G01000 00136 -0600 00 0 77776 STQ 4)-1 L7G01010 | 00137 0020 00 0 00002 FINI TRA DEXP+1 L7G01020 | 00140 0340 00 0 00216 CAS CHM L7G01030 | 00141 0020 00 0 00143 TRA *+2 2 TO F LARGER THAN 1/2 L7G01040 | 00142 0560 00 0 00201 LDQ A LESS THAN 1/2, SET TO 1/2 L7G01050 00143 0765 00 0 00001 LRS 1 L7G01060 | | BINARY CARD NO. 9DXP0006 | 00144 0602 00 0 77773 SLW AH + L7G01070 | 00145 -0600 00 0 77772 STQ AL L7G01080 00146 0502 00 0 77772 CLS AL + L7G01090 | 00147 -0100 00 0 00152 TNZ *+3 L7G01100 | 00150 0765 00 0 00000 LRS 0 L7G01110 | 00151 0020 00 0 00156 TRA ERREX-2 L7G01120 | 00152 0760 00 0 00006 COM L7G01130 00153 0400 00 0 00224 ADD ONE L7G01140 | 00154 0131 00 0 00000 XCA L7G01150 | 00155 0502 00 0 00224 CLS ONE L7G01160 | 00156 0400 00 0 77773 ADD AH L7G01170 | 00157 0020 00 0 00117 TRA EL L7G01180 00160 0441 00 0 00162 ERREX LDI *+2 L7G01190 | 00161 0020 60 0 00000 TRA* $(EXE) L7G01200 | 00162 0 00163 7 00001 PZE 1,7,*+1 L7G01210 | 00163 0020 00 0 00002 TRA DEXP+1 L7G01220 | CONSTANTS, B1 IN ACC L7G01230 00164 +006045466274 B OCT 006045466274 A13 131604546627 076373672054 L7G01240 | 00165 +161767176366 OCT 161767176366 A12 135707734771 102726002460 L7G01250 | 00166 +243056254345 OCT 243056254345 A11 141750613453 106071130534 L7G01260 | 00167 +062305671636 OCT 062305671636 A10 145744623056 112716354342 L7G01270 | BINARY CARD NO. 9DXP0007 | 00170 +225010221042 OCT 225010221042 A9 151665112404 116110420624 L7G01280 | 00171 +011425214560 OCT 011425214560 A8 155542600230 122524313370 L7G01290 | 00172 +370525543336 OCT 370525543336 A7 160777627761 125253306674 L7G01300 | 00173 +136552471460 OCT 136552471460 A6 164503022113 131655247146 L7G01310 00174 +170517410400 OCT 170517410400 A5 167535417771 134705174104 L7G01320 | 00175 +335153674000 OCT 335153674000 A4 172473125333 137735153674 L7G01330 | 00176 +011202514000 OCT 011202514000 A3 174706541065 141602240523 L7G01340 | 00177 +026126640000 OCT 026126640000 A2 176753767577 143701305332 L7G01350 | 00200 +107173600000 OCT 107173600000 A1 200542710277 145575071736 L7G01360 00201 +000000000000 A OCT 0 A13 .1380942553937516X10-11 L7G01370 | 00202 +000000000000 OCT 0 A12 .2591671190111412X10-10 L7G01380 | 00203 +000000000007 OCT 000000000007 A11 .4445361131688115X10-9 L7G01390 | 00204 +000000000171 OCT 000000000171 A10 .7054583523083176X10-8 L7G01400 | 00205 +000000003324 OCT 000000003324 A9 .1017808736329201X10-6 L7G01410 00206 +000000054260 OCT 000000054260 A8 .1321548902877208X10-5 L7G01420 | 00207 +000000777627 OCT 000000777627 A7 .1525273379851831X10-4 L7G01430 | 00210 +000012060442 OCT 000012060442 A6 .1540353038554321X10-3 L7G01440 | 00211 +000127303776 OCT 000127303776 A5 .1333355814644007X10-2 L7G01450 | 00212 +001166252667 OCT 001166252667 A4 .9618129107641535X10-2 L7G01460 00213 +007065410656 OCT 007065410656 A3 .5550410866482143X10-1 L7G01470 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | DOUBLE PRECISION EXPONENTIAL FUNCTION / 9DXP | | BINARY CARD NO. 9DXP0008 00214 +036577367774 OCT 036577367774 A2 .2402265069590998 L7G01480 | 00215 +130562057737 OCT 130562057737 A1 .6931471805599453 L7G01490 | 00216 -200000000000 CHM OCT 600000000000 L7G01500 | 00217 +145000000000 CH OCT 145000000000 L7G01510 | 00220 +146000000000 OCT 146000000000 L7G01520 00221 +177777777777 MSK OCT 177777777777 L7G01530 | 00222 +270524354512 LOGE OCT 270524354512 L7G01540 | 00223 +000003405771 OCT 000003405771 LOGE, LP L7G01550 | 00224 0000 00 0 00001 ONE HTR 1 L7G01560 | 00225 +207540071260 MAX DEC 88.028 L7G01570 00226 +033000000000 TW7 OCT 033000000000 L7G01580 | 00227 0000 00 0 00042 THRF HTR 34 L7G01590 | 00230 +000000000242 CHAR OCT 242 L7G01600 | ERASABLE STORAGE L7G01610 | 77777 COMMON -206 L7G01620 77777 4) COMMON 2 L7G01630 | 77775 VLMF COMMON 2 L7G01640 | 77773 AH COMMON 1 L7G01650 | 77772 AL COMMON 1 L7G01660 | 77771 H COMMON 1 L7G01670 77770 M COMMON 1 L7G01680 | 77767 H1 COMMON 1 L7G01690 | 77766 L1 COMMON 1 L7G01700 | END L7G01710 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77765 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 231 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 201 A 16, 67, 115, 132, 142 | 164 B 70, 112 | 77771 H 31, 41, 75, 107, 231 | 77770 M 65, 125, 231 77777 4) 5, 13, 14, 17, 35, 55, 56, 73, 135, 136, 231 | 77773 AH 37, 42, 71, 74, 103, 110, 114, 126, 134, 144, 156, 231 | 77772 AL 72, 100, 145, 146, 231 | 217 CH 124 | 117 EL 157 133 EM 131 | 77767 H1 33, 45, 46, 62, 101, 104, 231 | 77766 L1 34, 43, 76, 105, 231 | 216 CHM 140 | 225 MAX 6 221 MSK 53 | 224 ONE 153, 155 | 50 SHF 30 | 63 SHM 24 | 226 TW7 133 230 CHAR 23 | 1 DEXP 0, 15, 137, 163 | 137 FINI 120 | 222 LOGE 32, 36, 40 | 71 LOOP 116 227 THRF 25 | 77775 VLMF 60, 61, 77, 102, 231 | 16 BEGIN 10, 12 | 160 ERREX 7, 151 | 52 PSHFT 47 51 THRTN 66 | 0 (EXE) 161 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DLG L7L00000 * FAP L7L00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION LOG FUNCTION / 9DLG | | | BINARY CARD NO. 9DLG0000 00003 ENTRY DLOG L7L00070 | 00001 ENTRY DLOG10 L7L00080 | DOUBLE PRECISION L7L00090 | LOG TO BASE E AND L7L00100 | LOG TO BASE 10 L7L00110 | TRANSFER VECTOR | | BINARY CARD NO. 9DLG0001 | 00000 742567253460 (EXE) | 00001 0500 00 0 00306 DLOG10 CLA ADLOG ADDRESS FOR LOG BASE 10 L7L00120 | 00002 0020 00 0 00004 TRA *+2 L7L00130 | 00003 0500 00 0 00307 DLOG CLA ADLN ADDRESS FOR LOG BASE E L7L00140 | 00004 0621 00 0 00246 STA EXIT STORE ADDRESS IN EXIT L7L00150 00005 0634 00 1 00265 SXA ADEX+1,1 L7L00160 | 00006 0634 00 2 00266 SXA ADEX+2,2 L7L00170 | 00007 0500 00 0 77777 CLA 4) L7L00180 | 00010 0100 00 0 00270 TZE ERROR LOG (0) ERROR L7L00190 | 00011 -0120 00 0 00274 TMI NERROR LOG (-VE) ERROR L7L00200 00012 0340 00 0 00351 CAS ONE L7L00210 | 00013 0020 00 0 00015 TRA *+2 L7L00220 | 00014 0020 00 0 00311 TRA ADONE ARG = 1., LOG = 0 L7L00230 | 00015 0765 00 0 00033 AD1 LRS 27 L7L00240 | 00016 0601 00 0 00334 STO YC STO POWER L7L00250 00017 0760 00 0 00000 CLM L7L00260 | 00020 0763 00 0 00033 LLS 27 L7L00270 | 00021 -0501 00 0 00326 ORA OC2 Y L7L00280 | 00022 0300 00 0 00326 FAD OC2 L7L00290 | 00023 0601 00 0 00333 STO Y Y IS FRACTION L7L00300 | BINARY CARD NO. 9DLG0002 | 00024 -0302 00 0 00321 UFS HALF L7L00310 | 00025 0560 00 0 00322 LDQ FIVE ESSENTIALLY ZERO MQ L7L00320 | 00026 0765 00 0 00033 LRS 27 L7L00330 00027 0100 00 0 00031 TZE *+2 L7L00340 | 00030 0402 00 0 00322 SUB FIVE L7L00350 | 00031 0601 00 0 00332 STO C C-5 L7L00360 | 00032 0760 00 0 00000 CLM L7L00370 | 00033 0763 00 0 00005 LLS 5 DIVIDE BY 1/32 L7L00380 00034 0340 00 0 00323 CAS FFTN L7L00390 | 00035 0500 00 0 00323 CLA FFTN L7L00400 | 00036 0761 00 0 00000 NOP I GREATER OR = TO 15, M = 15 L7L00410 | 00037 0601 00 0 00337 STO TEMP L7L00420 | 00040 0400 00 0 00337 ADD TEMP L7L00430 00041 0737 00 1 00000 PAC 0,1 COMPLEMENT OF 2 * M INTO IR1 L7L00440 | 00042 0500 00 0 00332 CLA C L7L00450 | 00043 0763 00 0 00033 LLS 27 L7L00460 | 00044 0601 00 0 77777 STO 4) PUT CHAR - 5 IN P-AC L7L00470 | 00045 0560 00 0 77776 LDQ 4)-1 L7L00480 00046 0763 00 0 00010 LLS 8 L7L00490 | 00047 0500 00 0 00330 CLA C145 L7L00500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION LOG FUNCTION / 9DLG | BINARY CARD NO. 9DLG0003 | 00050 0763 00 0 00033 LLS 27 L7L00510 | 00051 0601 00 0 77776 STO 4)-1 FIX POWER OF LSH AT 145 L7L00520 | 00052 0300 00 0 77777 FAD 4) L7L00530 | 00053 0601 00 0 77775 STO 4)-2 Y-A L7L00540 00054 -0600 00 0 77774 STQ 4)-3 L7L00550 | 00055 0760 00 0 00002 CHS -Y + A L7L00560 | 00056 0765 00 0 00000 LRS 0 L7L00570 | 00057 -0600 00 0 00340 STQ TEMP2 L7L00580 | 00060 0300 00 0 00333 FAD Y L7L00590 00061 0601 00 0 00337 STO TEMP L7L00600 | 00062 0131 00 0 00000 XCA L7L00610 | 00063 -0300 00 0 77776 UFA 4)-1 L7L00620 | 00064 -0300 00 0 00340 UFA TEMP2 L7L00630 | 00065 0300 00 0 00337 FAD TEMP L7L00640 00066 -0600 00 0 00340 STQ TEMP2 L7L00650 | 00067 0300 00 0 00333 FAD Y L7L00660 | 00070 0601 00 0 00337 STO TEMP L7L00670 | 00071 0131 00 0 00000 XCA L7L00680 | 00072 -0300 00 0 77776 UFA 4)-1 L7L00690 00073 -0300 00 0 00340 UFA TEMP2 L7L00700 | | BINARY CARD NO. 9DLG0004 | 00074 0300 00 0 00337 FAD TEMP L7L00710 | 00075 0601 00 0 00335 STO B1 L7L00720 00076 -0600 00 0 00336 STQ B2 L7L00730 | 00077 0500 00 0 77775 CLA 4)-2 L7L00740 | 00100 0241 00 0 00335 FDP B1 L7L00750 | 00101 -0600 00 0 00337 STQ TEMP L7L00760 | 00102 0300 00 0 77774 FAD 4)-3 L7L00770 00103 0241 00 0 00335 FDP B1 L7L00780 | 00104 -0600 00 0 00340 STQ TEMP2 L7L00790 | 00105 0502 00 0 00336 CLS B2 L7L00800 | 00106 0241 00 0 00335 FDP B1 L7L00810 | 00107 0260 00 0 00337 FMP TEMP L7L00820 00110 -0300 00 0 00340 UFA TEMP2 L7L00830 | 00111 0300 00 0 00337 FAD TEMP L7L00840 | 00112 0601 00 0 00353 STO Z1 Z = Y - A / Y + A L7L00850 | 00113 -0600 00 0 00354 STQ Z2 L7L00860 | 00114 0260 00 0 00353 FMP Z1 L7L00870 00115 0601 00 0 00340 STO TEMP2 L7L00880 | 00116 0560 00 0 00353 LDQ Z1 L7L00890 | 00117 0260 00 0 00353 FMP Z1 L7L00900 | | BINARY CARD NO. 9DLG0005 00120 0601 00 0 00337 STO TEMP L7L00910 | 00121 0131 00 0 00000 XCA L7L00920 | 00122 -0300 00 0 00340 UFA TEMP2 L7L00930 | 00123 -0300 00 0 00340 UFA TEMP2 L7L00940 | 00124 0300 00 0 00337 FAD TEMP L7L00950 00125 0601 00 0 77775 STO 4)-2 L7L00960 | 00126 -0600 00 0 77774 STQ 4)-3 L7L00970 | 00127 0534 00 2 00324 LXA EIGHT,2 L7L00980 | 00130 0500 00 2 00351 CLA CC+6,2 L7L00990 | 00131 0601 00 0 00332 STO C L7L01000 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | DOUBLE PRECISION LOG FUNCTION / 9DLG | | 00132 0560 00 2 00352 LDQ CC+7,2 L7L01010 | 00133 0260 00 0 77775 AD4 FMP 4)-2 L7L01020 00134 0601 00 0 00340 STO TEMP2 L7L01030 | 00135 0560 00 0 77774 LDQ 4)-3 L7L01040 | 00136 0260 00 0 00332 FMP C L7L01050 | 00137 0300 00 0 00340 FAD TEMP2 L7L01060 | 00140 0601 00 0 00340 STO TEMP2 L7L01070 00141 0560 00 0 77775 LDQ 4)-2 L7L01080 | 00142 0260 00 0 00332 FMP C L7L01090 | 00143 0601 00 0 00337 STO TEMP L7L01100 | | BINARY CARD NO. 9DLG0006 00144 0131 00 0 00000 XCA L7L01110 | 00145 -0300 00 0 00340 UFA TEMP2 L7L01120 | 00146 0300 00 0 00337 FAD TEMP L7L01130 | 00147 -0600 00 0 00340 STQ TEMP2 L7L01140 | 00150 0300 00 2 00353 FAD CC+8,2 L7L01150 00151 0601 00 0 00332 STO C L7L01160 | 00152 0131 00 0 00000 XCA L7L01170 | 00153 -0300 00 0 00340 UFA TEMP2 L7L01180 | 00154 -0300 00 2 00354 UFA CC+9,2 L7L01190 | 00155 0300 00 0 00332 FAD C L7L01200 00156 0601 00 0 00332 STO C L7L01210 | 00157 2 00002 2 00133 TIX AD4,2,2 L7L01220 | 00160 -0600 00 0 00340 STQ TEMP2 LOOP =1+Z2(1/3+Z2(1/5+Z2(1/7+Z2(1/9))))L7L01230 | 00161 0300 00 0 00332 FAD C L7L01240 | 00162 0601 00 0 00337 STO TEMP L7L01250 00163 0131 00 0 00000 XCA L7L01260 | 00164 -0300 00 0 00340 UFA TEMP2 L7L01270 | 00165 -0300 00 0 00340 UFA TEMP2 L7L01280 | 00166 0300 00 0 00337 FAD TEMP L7L01290 | 00167 0601 00 0 00337 STO TEMP L7L01300 | BINARY CARD NO. 9DLG0007 | 00170 0260 00 0 00353 FMP Z1 L7L01310 | 00171 0601 00 0 00340 STO TEMP2 L7L01320 | 00172 0560 00 0 00354 LDQ Z2 L7L01330 00173 0260 00 0 00337 FMP TEMP L7L01340 | 00174 0300 00 0 00340 FAD TEMP2 L7L01350 | 00175 0601 00 0 00340 STO TEMP2 NUMBER IS MULTIPLIED BY Z L7L01360 | 00176 0560 00 0 00337 LDQ TEMP L7L01370 | 00177 0260 00 0 00353 FMP Z1 NUMBER IS DOUBLED L7L01380 00200 0601 00 0 00337 STO TEMP L7L01390 | 00201 0131 00 0 00000 XCA L7L01400 | 00202 -0300 00 0 00340 UFA TEMP2 L7L01410 | 00203 0300 00 0 00337 FAD TEMP L7L01420 | 00204 0601 00 0 77775 STO 4)-2 SERIES = U L7L01430 00205 -0600 00 0 77774 STQ 4)-3 L7L01440 | 00206 0500 00 0 00334 CLA YC L7L01450 | 00207 0767 00 0 00023 ALS 19 L7L01460 | 00210 -0501 00 0 00327 ORA OC21 L7L01470 | 00211 0302 00 0 00331 FSB D128 L7L01480 00212 0601 00 0 00334 STO YC P L7L01490 | 00213 0260 00 0 00417 FMP LOGE2 L7L01500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | DOUBLE PRECISION LOG FUNCTION / 9DLG | BINARY CARD NO. 9DLG0008 | 00214 0601 00 0 00340 STO TEMP2 L7L01510 | 00215 0560 00 0 00420 LDQ LOGE2+1 L7L01520 | 00216 0260 00 0 00334 FMP YC L7L01530 | 00217 0300 00 0 00340 FAD TEMP2 L7L01540 00220 0601 00 0 00340 STO TEMP2 L7L01550 | 00221 0560 00 0 00417 LDQ LOGE2 L7L01560 | 00222 0260 00 0 00334 FMP YC L7L01570 | 00223 0601 00 0 00337 STO TEMP P * LOG 2 TO THE BASE E L7L01580 | 00224 0131 00 0 00000 XCA L7L01590 00225 -0300 00 0 00340 UFA TEMP2 L7L01600 | 00226 0300 00 0 00337 FAD TEMP L7L01610 | 00227 -0600 00 0 00340 STQ TEMP2 L7L01620 | 00230 0300 00 1 00355 FAD LOG,1 L7L01630 | 00231 0601 00 0 00337 STO TEMP L7L01640 00232 0131 00 0 00000 XCA L7L01650 | 00233 -0300 00 1 00356 UFA LOG+1,1 L7L01660 | 00234 -0300 00 0 00340 UFA TEMP2 L7L01670 | 00235 0300 00 0 00337 FAD TEMP L7L01680 | 00236 -0600 00 0 00336 STQ B2 ADDED LOG (1/2-M*1/32) L7L01690 00237 0300 00 0 77775 FAD 4)-2 L7L01700 | | BINARY CARD NO. 9DLG0009 | 00240 0601 00 0 77777 STO 4) L7L01710 | 00241 0131 00 0 00000 XCA L7L01720 00242 -0300 00 0 77774 UFA 4)-3 L7L01730 | 00243 -0300 00 0 00336 UFA B2 L7L01740 | 00244 0300 00 0 77777 FAD 4) L7L01750 | 00245 0601 00 0 77777 STO 4) ADDED U = 2(Z+1/3Z3+1/5Z5+1/7Z7+1/9Z9) L7L01760 | 00246 0020 00 0 00264 EXIT TRA ADEX L7L01770 00247 0260 00 0 00415 ADLG FMP LGE IF LOG TO THE BASE 10, MULT BY LOG E L7L01780 | 00250 0601 00 0 00340 STO TEMP2 TO THE BASE 10 L7L01790 | 00251 0560 00 0 77777 LDQ 4) L7L01800 | 00252 0260 00 0 00416 FMP LGE+1 L7L01810 | 00253 0300 00 0 00340 FAD TEMP2 L7L01820 00254 0601 00 0 00340 STO TEMP2 L7L01830 | 00255 0560 00 0 77777 LDQ 4) L7L01840 | 00256 0260 00 0 00415 FMP LGE L7L01850 | 00257 0601 00 0 00337 STO TEMP L7L01860 | 00260 0131 00 0 00000 XCA L7L01870 00261 -0300 00 0 00340 UFA TEMP2 L7L01880 | 00262 0300 00 0 00337 FAD TEMP L7L01890 | 00263 0601 00 0 77777 STO 4) L7L01900 | | BINARY CARD NO. 9DLG0010 00264 -0600 00 0 77776 ADEX STQ 4)-1 L7L01910 | 00265 0774 00 1 00000 AXT 0,1 L7L01920 | 00266 0774 00 2 00000 AXT 0,2 L7L01930 | 00267 0020 00 4 00001 TRA 1,4 TRANSFER BACK TO PROGRAM L7L01940 | 00270 0441 00 0 00272 ERROR LDI *+2 L7L01950 00271 0020 60 0 00000 TRA* $(EXE) L7L01960 | 00272 0 00273 7 00003 PZE 3,7,*+1 L7L01970 | 00273 0020 00 0 00265 TRA ADEX+1 L7L01980 | 00274 0441 00 0 00276 NERROR LDI *+2 L7L01990 | 00275 0020 60 0 00000 TRA* $(EXE) L7L02000 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | DOUBLE PRECISION LOG FUNCTION / 9DLG | | 00276 0 00277 7 00003 PZE 3,7,*+1 L7L02010 | 00277 0500 00 0 77777 CLA 4) L7L02020 00300 0560 00 0 77776 LDQ 4)-1 L7L02030 | 00301 0760 00 0 00003 SSP L7L02040 | 00302 0765 00 0 00000 LRS 0 L7L02050 | 00303 0601 00 0 77777 STO 4) L7L02060 | 00304 -0600 00 0 77776 STQ 4)-1 L7L02070 00305 0020 00 0 00012 TRA AD1-3 L7L02080 | 00306 0020 00 0 00247 ADLOG TRA ADLG L7L02090 | 00307 0020 00 0 00264 ADLN TRA ADEX L7L02100 | | BINARY CARD NO. 9DLG0011 00310 +000776000000 AMASK OCT 776000000 (29)L7L02110 | 00311 0500 00 0 77776 ADONE CLA 4)-1 $L7L02120 | 00312 -0320 00 0 00310 ANA AMASK $L7L02130 | 00313 0100 00 0 00316 TZE ADZ L7L02140 | 00314 0500 00 0 77777 CLA 4) L7L02150 00315 0020 00 0 00015 TRA AD1 L7L02160 | 00316 0300 00 0 77776 ADZ FAD 4)-1 (29)L7L02170 | 00317 0601 00 0 77777 STO 4) (29)L7L02180 | 00320 0020 00 0 00246 TRA EXIT (29)L7L02190 | 00321 +200400000000 HALF DEC .5 L7L02200 00322 +000000000005 FIVE DEC 5 L7L02210 | 00323 +000000000017 FFTN DEC 15 L7L02220 | 00324 +000000000010 EIGHT DEC 8 L7L02230 | 00325 +233000000000 OC OCT 233000000000 L7L02240 | 00326 +200000000000 OC2 OCT 200000000000 L7L02250 00327 +210000000000 OC21 OCT 210000000000 L7L02260 | 00330 +000000000145 C145 OCT 000000000145 L7L02270 | 00331 +210400000000 D128 DEC 128. L7L02280 | 00332 0 00000 0 00000 C L7L02290 | 00333 0 00000 0 00000 Y L7L02300 | BINARY CARD NO. 9DLG0012 | 00334 0 00000 0 00000 YC L7L02310 | 00335 0 00000 0 00000 B1 L7L02320 | 00336 0 00000 0 00000 B2 L7L02330 00337 0 00000 0 00000 TEMP L7L02340 | 00340 0 00000 0 00000 TEMP2 L7L02350 | 00341 +175707070707 OCT 175707070707,142070707070 L7L02360 | 00342 +142070707070 | 00343 +176444444444 CC OCT 176444444444,143444444444 L7L02370 00344 +143444444444 | 00345 +176631463146 OCT 176631463146,143314631463 L7L02380 | 00346 +143314631463 | 00347 +177525252525 OCT 177525252525,144252525252 L7L02390 | 00350 +144252525252 00351 +201400000000 ONE OCT 201400000000,0 L7L02400 | 00352 +000000000000 | 00353 0 00000 0 00000 Z1 L7L02410 | 00354 0 00000 0 00000 Z2 L7L02420 | * LOG (1/2+M(1/32)) L7L02430 00355 -200542710277 LOG OCT -200542710277,-145575071736 L7L02440 | 00356 -145575071736 | 00357 -200503663774 OCT -200503663774,-145574443612 L7L02450 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 6 | DOUBLE PRECISION LOG FUNCTION / 9DLG | BINARY CARD NO. 9DLG0013 | 00360 -145574443612 | 00361 -200446454204 OCT -200446454204,-145232333444 L7L02460 | 00362 -145232333444 00363 -200412716670 OCT -200412716670,-145550124765 L7L02470 | 00364 -145550124765 | 00365 -177741221206 OCT -177741221206,-144423446632 L7L02480 | 00366 -144423446632 | 00367 -177657245124 OCT -177657245124,-144444315640 L7L02490 00370 -144444315640 | 00371 -177577537216 OCT -177577537216,-144754025070 L7L02500 | 00372 -144754025070 | 00373 -177522125601 OCT -177522125601,-144634243656 L7L02510 | 00374 -144634243656 00375 -177446454204 OCT -177446454204,-144232333444 L7L02520 | 00376 -144232333444 | 00377 -176771443433 OCT -176771443433,-143131663362 L7L02530 | 00400 -143131663362 | 00401 -176651175517 OCT -176651175517,-143105331706 L7L02540 00402 -143105331706 | 00403 -176533750032 OCT -176533750032,-143652075544 L7L02550 | | BINARY CARD NO. 9DLG0014 | 00404 -143652075544 00405 -176421361640 OCT -176421361640,-143423744366 L7L02560 | 00406 -143423744366 | 00407 -175623153627 OCT -175623153627,-142254511416 L7L02570 | 00410 -142254511416 | 00411 -175410263055 OCT -175410263055,-142317072013 L7L02580 00412 -142317072013 | 00413 -174404053542 OCT -174404053542,-141363504212 L7L02590 | 00414 -141363504212 | 00415 +177674557305 LGE OCT 177674557305,144223345034 L7L02600 | 00416 +144223345034 00417 +200542710277 LOGE2 OCT +200542710277,+145575071736 L7L02610 | 00420 +145575071736 | 77777 COMMON -206 L7L02620 | 77777 4) COMMON 1 L7L02630 | END L7L02640 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 421 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 332 C 31, 42, 131, 136, 142, 151, 155, 156, 161 | 333 Y 23, 60, 67 | 77777 4) 7, 44, 45, 51, 52, 53, 54, 63, 72, 77, 102, 125, 126, 133, 135, 141, 204 205, 237, 240, 242, 244, 245, 251, 255, 263, 264, 277, 300, 303, 304, 311, 314, 316 | 317, 421 | 335 B1 75, 100, 103, 106 | 336 B2 76, 105, 236, 243 | 343 CC 130, 132, 150, 154 325 OC | 334 YC 16, 206, 212, 216, 222 | 353 Z1 112, 114, 116, 117, 170, 177 | 354 Z2 113, 172 | 15 AD1 305, 315 133 AD4 157 | 316 ADZ 313 | 415 LGE 247, 252, 256 | 355 LOG 230, 233 | 326 OC2 21, 22 351 ONE 12 | 264 ADEX 5, 6, 246, 273, 307 | 247 ADLG 306 | 307 ADLN 3 | 330 C145 47 331 D128 211 | 3 DLOG 0 | 246 EXIT 4, 320 | 323 FFTN 34, 35 | 322 FIVE 25, 30 321 HALF 24 | 327 OC21 210 | 337 TEMP 37, 40, 61, 65, 70, 74, 101, 107, 111, 120, 124, 143, 146, 162, 166, 167, 173 | 176, 200, 203, 223, 226, 231, 235, 257, 262 | 306 ADLOG 1 311 ADONE 14 | 310 AMASK 312 | 324 EIGHT 127 | 270 ERROR 10 | 417 LOGE2 213, 215, 221 340 TEMP2 57, 64, 66, 73, 104, 110, 115, 122, 123, 134, 137, 140, 145, 147, 153, 160, 164 | 165, 171, 174, 175, 202, 214, 217, 220, 225, 227, 234, 250, 253, 254, 261 | 0 (EXE) 271, 275 | 1 DLOG10 0 | 274 NERROR 11 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DSQ L7Q00000 * FAP L7Q00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION SQUARE ROOT FUNCTION / 9DSQ | | * THIS PROGRAM IS A MODIFICATION OF L7Q00070 | * IBSQD,A SHARE DISTRIBUTION. L7Q00080 | BINARY CARD NO. 9DSQ0000 | 00001 ENTRY DSQRT L7Q00090 | | TRANSFER VECTOR | BINARY CARD NO. 9DSQ0001 | 00000 742567253460 (EXE) | | 00001 0500 00 0 77777 DSQRT CLA 4) L7Q00100 00002 -0320 00 0 00076 ANA =O1777777777 L7Q00110 | 00003 0771 00 0 00003 ARS 3 L7Q00120 | 00004 0340 00 0 00074 CAS =O77777777 L7Q00130 | 00005 0020 00 0 00017 TRA ODD L7Q00140 | 00006 0020 00 0 00013 TRA L L7Q00150 00007 0100 00 4 00001 TZE 1,4 ZERO RETURN L7Q00160 | 00010 0400 00 0 77777 ADD 4) L7Q00170 | 00011 0361 00 0 00077 ACL =.875 L7Q00180 | 00012 0120 00 0 00022 TPL IT L7Q00190 | 00013 0500 00 0 77777 L CLA 4) L7Q00200 00014 -0120 00 0 00062 TMI ERREX NEGATIVE ARGUMENT L7Q00210 | 00015 0361 00 0 00100 ACL =O201000000000 L7Q00220 | 00016 0020 00 0 00036 TRA F L7Q00230 | 00017 0402 00 0 77777 ODD SUB 4) L7Q00240 | 00020 0361 00 0 00101 ACL =1.375 L7Q00250 00021 0120 00 0 00013 TPL L L7Q00260 | 00022 0771 00 0 00001 IT ARS 1 L7Q00270 | 00023 0602 00 0 77775 SLW 4)-2 L7Q00280 | | BINARY CARD NO. 9DSQ0002 00024 0500 00 0 77777 CLA 4) L7Q00290 | 00025 0241 00 0 77775 FDP 4)-2 L7Q00300 | 00026 0131 00 0 00000 XCA L7Q00310 | 00027 0361 00 0 77775 ACL 4)-2 L7Q00320 | 00030 0771 00 0 00001 ARS 1 L7Q00330 00031 0601 00 0 77775 STO 4)-2 L7Q00340 | 00032 0500 00 0 77777 CLA 4) SQR...1/2(B1+(A1+A2)/B1) L7Q00350 | 00033 0241 00 0 77775 FDP 4)-2 L7Q00360 | 00034 0131 00 0 00000 XCA L7Q00370 | 00035 0361 00 0 77775 ACL 4)-2 B1 L7Q00380 00036 0765 00 0 00001 F LRS 1 L7Q00390 | 00037 0601 00 0 77775 STO 4)-2 L7Q00400 | 00040 0500 00 0 77777 CLA 4) A1 L7Q00410 | 00041 0241 00 0 77775 FDP 4)-2 A1/B1 F L7Q00420 | 00042 -0600 00 0 77774 STQ 4)-3 L7Q00430 00043 0300 00 0 77776 FAD 4)-1 A2+A1S L7Q00440 | 00044 0241 00 0 77775 FDP 4)-2 A1/B1S+A2/B1 F L7Q00450 | 00045 0500 00 0 77775 CLA 4)-2 L7Q00460 | 00046 -0600 00 0 77775 STQ 4)-2 A1/B1S + A2/B1S L7Q00470 | 00047 0300 00 0 77774 FAD 4)-3 A1/B1F + B1 L7Q00480 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION SQUARE ROOT FUNCTION / 9DSQ | | BINARY CARD NO. 9DSQ0003 | 00050 0402 00 0 00075 SUB =O001000000000 DIVIDE BY TWO L7Q00490 00051 0601 00 0 77774 STO 4)-3 L7Q00500 | 00052 0131 00 0 00000 XCA L7Q00510 | 00053 0300 00 0 77775 FAD 4)-2 B1S+A1/B1S+A2/B1F L7Q00520 | 00054 0100 00 0 00056 TZE *+2 L7Q00530 | 00055 0402 00 0 00075 SUB =O001000000000 L7Q00540 00056 0300 00 0 77774 FAD 4)-3 L7Q00550 | 00057 0601 00 0 77777 STO 4) L7Q00560 | 00060 -0600 00 0 77776 STQ 4)-1 L7Q00570 | 00061 0020 00 4 00001 TRA 1,4 L7Q00580 | 00062 0441 00 0 00064 ERREX LDI *+2 L7Q00590 00063 0020 60 0 00000 TRA* $(EXE) L7Q00600 | 00064 0 00065 7 00002 PZE 2,7,*+1 L7Q00610 | 00065 0500 00 0 77777 CLA 4) L7Q00620 | 00066 0760 00 0 00003 SSP L7Q00630 | 00067 0560 00 0 77776 LDQ 4)-1 L7Q00640 00070 0765 00 0 00000 LRS 0 L7Q00650 | 00071 0601 00 0 77777 STO 4) L7Q00660 | 00072 -0600 00 0 77776 STQ 4)-1 L7Q00670 | 00073 0020 00 0 00001 TRA DSQRT L7Q00680 | 77777 COMMON -206 L7Q00690 77777 4) COMMON 1 L7Q00700 | END L7Q00710 | | LITERALS | BINARY CARD NO. 9DSQ0004 | 00074 000077777777 | 00075 001000000000 | 00076 001777777777 | 00077 200700000000 00100 201000000000 | 00101 201540000000 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 102 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 36 F 16 13 L 6, 21 | 77777 4) 1, 10, 13, 17, 23, 24, 25, 27, 31, 32, 33, 35, 37, 40, 41, 42, 43 | 44, 45, 46, 47, 51, 53, 56, 57, 60, 65, 67, 71, 72, 74 | 22 IT 12 | 17 ODD 5 1 DSQRT 0, 73 | 62 ERREX 14 | 0 (EXE) 63 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9DSC L7S00000 * FAP L7S00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION SINE AND COSINE FUNCTIONS / 9DSC | | *9DSC DOUBLE PRECISION SINE AND COSINE FUNCTIONS L7S00070 | BINARY CARD NO. 9DSC0000 | 00012 ENTRY DSIN L7S00080 | 00000 ENTRY DCOS L7S00090 | DOUBLE PRECISION L7S00100 | SIN--COS ROUTINE L7S00110 | BINARY CARD NO. 9DSC0001 | 00000 0500 00 0 77777 DCOS CLA 4) L7S00120 | 00001 0100 00 0 00303 TZE EXITC COS(0) = 1, SET AT EXIT L7S00130 | 00002 0300 00 0 00311 FAD PI2 ADD 90 DEGREES L7S00140 00003 0601 00 0 77777 STO 4) COS ANGLE = SIN (ANGLE + 90) L7S00150 | 00004 0131 00 0 00000 XCA L7S00160 | 00005 -0300 00 0 77776 UFA 4)-1 L7S00170 | 00006 -0300 00 0 00312 UFA PI2+1 L7S00180 | 00007 0300 00 0 77777 FAD 4) L7S00190 00010 0601 00 0 77777 STO 4) L7S00200 | 00011 -0600 00 0 77776 STQ 4)-1 L7S00210 | 00012 0634 00 4 00301 DSIN SXA EXIT,4 L7S00220 | 00013 0500 00 0 77777 CLA 4) SET A PLUS FLAG FOR EXIT L7S00230 | 00014 0560 00 0 00321 LDQ ONE IF THE ANGLE IS PLUS L7S00240 00015 0100 00 0 00301 TZE EXIT SIN(0) = 0 L7S00250 | 00016 0120 00 0 00025 TPL AD1 L7S00260 | 00017 0560 00 0 77776 LDQ 4)-1 L7S00270 | 00020 0760 00 0 00003 SSP WORK ON THE ABSOLUTE VALUE L7S00280 | 00021 0765 00 0 00000 LRS 0 L7S00290 00022 0601 00 0 77777 STO 4) L7S00300 | 00023 -0600 00 0 77776 STQ 4)-1 L7S00310 | | BINARY CARD NO. 9DSC0002 | 00024 0560 00 0 00323 LDQ MONE SET A MINUS FLAG FOR THE EXIT L7S00320 00025 -0600 00 0 00332 AD1 STQ MULT2 L7S00330 | 00026 0241 00 0 00313 FDP PI22 DIVIDE THE ARGUMENT BY 2 PI, L7S00340 | 00027 -0600 00 0 00337 STQ TEMP THAT IS, TREAT IT MODULO 360 DEGREES L7S00350 | 00030 0300 00 0 77776 FAD 4)-1 COMPLETION OF THIS STEP IS THE L7S00360 | 00031 0241 00 0 00313 FDP PI22 MULTIPLICATION BY 2 PI, WHICH L7S00370 00032 -0600 00 0 00340 STQ TEMP2 IS COMBINED WITH THE NEXT STEP L7S00380 | 00033 0502 00 0 00314 CLS PI22+1 L7S00390 | 00034 0241 00 0 00313 FDP PI22 L7S00400 | 00035 0260 00 0 00337 FMP TEMP L7S00410 | 00036 -0300 00 0 00340 UFA TEMP2 L7S00420 00037 0300 00 0 00337 FAD TEMP L7S00430 | 00040 0601 00 0 77775 STO 4)-2 ARG / 2 PI L7S00440 | 00041 -0600 00 0 77774 STQ 4)-3 NOW IN PSEUDO MQ L7S00450 | 00042 0560 00 0 00316 LDQ OC NEXT THE INTEGRAL PORTION IS ELIMINATED L7S00460 | 00043 0040 00 0 00055 TLQ AD2 TRA PWR GREATER THAN OCT 233 IN MSH L7S00470 00044 0560 00 0 00315 LDQ OCC2 L7S00480 | 00045 0040 00 0 00050 TLQ AD12 L7S00490 | 00046 0560 00 0 77774 LDQ 4)-3 L7S00500 | 00047 0020 00 0 00067 TRA AD3 L7S00510 | BINARY CARD NO. 9DSC0003 | 00050 -0300 00 0 00316 AD12 UFA OC L7S00520 | 00051 0760 00 0 00002 CHS L7S00530 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | DOUBLE PRECISION SINE AND COSINE FUNCTIONS / 9DSC | 00052 0300 00 0 77775 FAD 4)-2 L7S00540 | 00053 0300 00 0 77774 FAD 4)-3 L7S00550 | 00054 0020 00 0 00067 TRA AD3 L7S00560 | 00055 0500 00 0 00317 AD2 CLA OC2 EXPONENT OF 233)8 $L7S00565 00056 0560 00 0 77774 LDQ 4)-3 LOW ORDER PART OF ARGUMENT $L7S00570 | 00057 0040 00 0 00063 TLQ *+4 ARG(LOW ORDER) LESS THAN 230)8 $L7S00575 | 00060 0600 00 0 77777 STZ 4) NO, RETURN SIN OR COS OF ZERO $L7S00580 | 00061 0600 00 0 77776 STZ 4)-1 . $L7S00585 | 00062 0020 00 4 00001 TRA 1,4 . $L7S00590 00063 0131 00 0 00000 XCA YES, BRING ARG TO AC FROM MQ $L7S00595 | 00064 -0300 00 0 00316 UFA OC L7S00600 | 00065 0760 00 0 00002 CHS L7S00610 | 00066 0300 00 0 77774 FAD 4)-3 L7S00620 | 00067 0601 00 0 77777 AD3 STO 4) COMPLETE FIRST OPERATION BY L7S00630 00070 -0600 00 0 77776 STQ 4)-1 MULTIPLYING BY 2 PI, BEGIN SEPARATING L7S00640 | 00071 0560 00 0 00320 LDQ ET INTO QUADRANTS BY DIVIDING BY PI / 4 L7S00650 | 00072 0260 00 0 77777 FMP 4) THIS CONVENIENTLY COMPINES INTO THE L7S00660 | 00073 0601 00 0 00340 STO TEMP2 SINGLE STEP OF MULTIPLYING BY EIGHT L7S00670 | BINARY CARD NO. 9DSC0004 | 00074 -0600 00 0 00337 STQ TEMP L7S00680 | 00075 0560 00 0 00320 LDQ ET (FR * 2.PI) / (PI/4) L7S00690 | 00076 0260 00 0 77776 FMP 4)-1 L7S00700 | 00077 -0300 00 0 00337 UFA TEMP L7S00710 00100 0300 00 0 00340 FAD TEMP2 L7S00720 | 00101 0601 00 0 77777 STO 4) L7S00730 | 00102 -0600 00 0 77776 STQ 4)-1 L7S00740 | 00103 0560 00 0 00315 LDQ OCC2 L7S00750 | 00104 0040 00 0 00107 TLQ AD31 L7S00760 00105 0534 00 4 00315 LXA OCC2,4 L7S00770 | 00106 0020 00 0 00127 TRA AD4C L7S00780 | 00107 -0300 00 0 00316 AD31 UFA OC NOW WE TRUNCATE TO A FRACTION AGAIN L7S00790 | 00110 0734 00 4 00000 PAX 0,4 FOR THE REMAINDERING OPERATION OF L7S00800 | 00111 0760 00 0 00002 CHS QUADRANT REDUCTION, BUT AT THE SAME L7S00810 00112 0300 00 0 77777 FAD 4) TIME PRESERVE IN IR(4) WHICH QUADRANT L7S00820 | 00113 0601 00 0 77777 STO 4) AND THUS WHICH OCTANT WE REDUCED FROM L7S00830 | 00114 0754 00 4 00000 PXA 0,4 L7S00840 | 00115 0760 00 0 00001 LBT L7S00850 | 00116 0020 00 0 00127 TRA AD4C L7S00860 00117 0400 00 0 00322 ADD ONE1 1 3 5 7 MAKE ODD ONES EVEN FOR L7S00870 | | BINARY CARD NO. 9DSC0005 | 00120 0734 00 4 00000 PAX 0,4 2 4 6 8 EASE IN HANDLING SERIES L7S00880 | 00121 0500 00 0 77777 CLA 4) L7S00890 00122 0300 00 0 00323 FAD MONE L7S00900 | 00123 0601 00 0 77777 STO 4) L7S00910 | 00124 0131 00 0 00000 XCA L7S00920 | 00125 0300 00 0 77776 FAD 4)-1 L7S00930 | 00126 0601 00 0 77776 STO 4)-1 L7S00940 00127 0560 00 0 00307 AD4C LDQ PI4 FR * (PI/4) L7S00950 | 00130 0260 00 0 77777 FMP 4) THIS WILL COMPLETE THE REDUCTION L7S00960 | 00131 0601 00 0 00337 STO TEMP TO OCTANTS L7S00970 | 00132 -0600 00 0 00340 STQ TEMP2 L7S00980 | 00133 0560 00 0 77777 LDQ 4) L7S00990 00134 0260 00 0 00310 FMP PI4+1 L7S01000 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | DOUBLE PRECISION SINE AND COSINE FUNCTIONS / 9DSC | | 00135 0300 00 0 00340 FAD TEMP2 L7S01010 00136 0601 00 0 00340 STO TEMP2 L7S01020 | 00137 0560 00 0 00307 LDQ PI4 L7S01030 | 00140 0260 00 0 77776 FMP 4)-1 L7S01040 | 00141 -0300 00 0 00340 UFA TEMP2 L7S01050 | 00142 0300 00 0 00337 FAD TEMP L7S01060 00143 0601 00 0 77777 STO 4) L7S01070 | | BINARY CARD NO. 9DSC0006 | 00144 -0600 00 0 77776 STQ 4)-1 L7S01080 | 00145 0500 00 0 00321 CLA ONE L7S01090 00146 -3 00000 4 00153 TXL ADS,4,0 I=0 HERE WE BRANCH DEPENDING ON L7S01100 | 00147 -3 00002 4 00165 TXL ADC,4,2 I=2 THE OCTANT THAT WAS REDUCED L7S01110 | 00150 3 00006 4 00153 TXH ADS,4,6 FROM. IT STARTS THE SERIES TO COMPUTE L7S01120 | 00151 3 00004 4 00164 TXH ADCM,4,4 EITHER THE SINE OR THE COSINE (90- ANGLE) L7S01130 | 00152 0760 00 0 00002 CHS ONE OF WHICH WE HAVE FROM THE REDUCTION. L7S01140 00153 0601 00 0 00331 ADS STO MULT SIN L7S01150 | 00154 0500 00 0 00321 CLA ONE L7S01160 | 00155 0601 00 0 00334 STO N2 L7S01170 | 00156 0500 00 0 77777 CLA 4) L7S01180 | 00157 0560 00 0 77776 LDQ 4)-1 L7S01190 00160 0601 00 0 00327 STO B1 L7S01200 | 00161 -0600 00 0 00330 STQ B2 L7S01210 | 00162 0100 00 0 00272 TZE EX L7S01220 | 00163 0020 00 0 00177 TRA RTN L7S01230 | 00164 0760 00 0 00002 ADCM CHS L7S01240 00165 0601 00 0 00331 ADC STO MULT L7S01250 | 00166 0600 00 0 00330 STZ B2 L7S01260 | 00167 0600 00 0 00334 STZ N2 L7S01270 | | BINARY CARD NO. 9DSC0007 00170 0500 00 0 77777 CLA 4) L7S01280 | 00171 0560 00 0 00321 LDQ ONE L7S01290 | 00172 -0600 00 0 00327 STQ B1 L7S01300 | 00173 -0600 00 0 77777 STQ 4) L7S01310 | 00174 0560 00 0 77776 LDQ 4)-1 L7S01320 00175 0600 00 0 77776 STZ 4)-1 L7S01330 | 00176 0100 00 0 00272 TZE EX L7S01340 | 00177 0601 00 0 00325 RTN STO A1 THIS IS THE START OF THE SERIES. L7S01350 | 00200 0260 00 0 00325 FMP A1 THE CONTENTS OF THE P-AC ARE SQUARED AND L7S01360 | 00201 0601 00 0 00340 STO TEMP2 MADE NEGATIVE. L7S01370 00202 0560 00 0 00325 LDQ A1 L7S01380 | 00203 0260 00 0 00325 FMP A1 L7S01390 | 00204 0601 00 0 00337 STO TEMP L7S01400 | 00205 0131 00 0 00000 XCA L7S01410 | 00206 -0300 00 0 00340 UFA TEMP2 L7S01420 00207 -0300 00 0 00340 UFA TEMP2 L7S01430 | 00210 0300 00 0 00337 FAD TEMP L7S01440 | 00211 0760 00 0 00002 CHS L7S01450 | 00212 0765 00 0 00000 LRS 0 L7S01460 | 00213 0601 00 0 00325 STO A1 L7S01470 | BINARY CARD NO. 9DSC0008 | 00214 -0600 00 0 00326 STQ A2 L7S01480 | 00215 0560 00 0 77777 LDQ 4) L7S01490 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 DOUBLE PRECISION SINE AND COSINE FUNCTIONS / 9DSC | | 00216 0260 00 0 00324 FMP LIMIT THIS PROVIDES A TEST OF HOW MANY TERMS L7S01500 | 00217 0760 00 0 00003 SSP MUST BE COMPUTED. THE SERIES REPEATS, L7S01510 | 00220 0601 00 0 00336 STO TEST ADDING HIGHER POWER TERMS, UNTIL THIS L7S01520 ACCURACY IS REACHED. L7S01530 | 00221 0500 00 0 00334 ADL CLA N2 SERIES LOOP L7S01540 | 00222 0300 00 0 00321 FAD ONE L7S01550 | 00223 0601 00 0 00333 STO N L7S01560 | 00224 0300 00 0 00321 FAD ONE L7S01570 00225 0601 00 0 00334 STO N2 L7S01580 | 00226 0560 00 0 00334 LDQ N2 L7S01590 | 00227 0260 00 0 00333 FMP N L7S01600 | 00230 0601 00 0 00335 STO NN L7S01610 | 00231 0500 00 0 00325 CLA A1 L7S01620 00232 0241 00 0 00335 FDP NN L7S01630 | 00233 -0600 00 0 00337 STQ TEMP L7S01640 | 00234 0300 00 0 00326 FAD A2 L7S01650 | 00235 0241 00 0 00335 FDP NN L7S01660 | 00236 0131 00 0 00000 XCA L7S01670 00237 0300 00 0 00337 FAD TEMP L7S01680 | | BINARY CARD NO. 9DSC0009 | 00240 0601 00 0 77775 STO 4)-2 L7S01690 | 00241 0260 00 0 00327 FMP B1 MULT X(N-1) TERM L7S01700 00242 0601 00 0 00340 STO TEMP2 L7S01710 | 00243 0560 00 0 77775 LDQ 4)-2 L7S01720 | 00244 0260 00 0 00327 FMP B1 L7S01730 | 00245 0601 00 0 00337 STO TEMP L7S01740 | 00246 -0600 00 0 00341 STQ TEMP3 L7S01750 00247 0560 00 0 77775 LDQ 4)-2 L7S01760 | 00250 0260 00 0 00330 FMP B2 L7S01770 | 00251 -0300 00 0 00340 UFA TEMP2 L7S01780 | 00252 -0300 00 0 00341 UFA TEMP3 L7S01790 | 00253 0300 00 0 00337 FAD TEMP L7S01800 00254 0601 00 0 00327 STO B1 L7S01810 | 00255 -0600 00 0 00330 STQ B2 L7S01820 | 00256 0300 00 0 77777 FAD 4) L7S01830 | 00257 0601 00 0 77777 STO 4) L7S01840 | 00260 0131 00 0 00000 XCA L7S01850 00261 -0300 00 0 00330 UFA B2 L7S01860 | 00262 -0300 00 0 77776 UFA 4)-1 L7S01870 | 00263 0300 00 0 77777 FAD 4) L7S01880 | | BINARY CARD NO. 9DSC0010 00264 0601 00 0 77777 STO 4) L7S01890 | 00265 -0600 00 0 77776 STQ 4)-1 L7S01900 | 00266 0500 00 0 00327 CLA B1 L7S01910 | 00267 0760 00 0 00003 SSP L7S01920 | 00270 0560 00 0 00336 LDQ TEST L7S01930 00271 0040 00 0 00221 TLQ ADL L7S01940 | 00272 0560 00 0 00331 EX LDQ MULT L7S01950 | 00273 0260 00 0 00332 FMP MULT2 L7S01960 | 00274 0120 00 0 00301 TPL EXIT L7S01970 | 00275 0502 00 0 77777 CLS 4) L7S01980 00276 0601 00 0 77777 STO 4) L7S01990 | 00277 0502 00 0 77776 CLS 4)-1 L7S02000 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | DOUBLE PRECISION SINE AND COSINE FUNCTIONS / 9DSC | 00300 0601 00 0 77776 STO 4)-1 L7S02010 | 00301 0774 00 4 00000 EXIT AXT 0,4 L7S02020 | 00302 0020 00 4 00001 TRA 1,4 L7S02030 | 00303 0500 00 0 00321 EXITC CLA ONE L7S02040 | 00304 0601 00 0 77777 STO 4) L7S02050 00305 0600 00 0 77776 STZ 4)-1 L7S02060 | 00306 0020 00 4 00001 TRA 1,4 L7S02070 | 00307 +200622077325 PI4 OCT 200622077325,145042055060 L7S02080 | | BINARY CARD NO. 9DSC0011 00310 +145042055060 | 00311 +201622077325 PI2 OCT 201622077325,146042055060 L7S02090 | 00312 +146042055060 | 00313 +203622077325 PI22 OCT 203622077325,150042055060 L7S02100 | 00314 +150042055060 00315 +200000000000 OCC2 OCT 200000000000 L7S02110 | 00316 +233000000000 OC OCT 233000000000 L7S02120 | 00317 +230000000000 OC2 OCT 230000000000 L7S02130 | 00320 +204400000000 ET DEC 8. L7S02140 | 00321 +201400000000 ONE DEC 1. L7S02150 00322 +000000000001 ONE1 DEC 1 L7S02160 | 00323 -201400000000 MONE DEC -1. L7S02170 | 00324 +113715126245 LIMIT DEC 1.E-16 L7S02180 | 00325 0 00000 0 00000 A1 L7S02190 | 00326 0 00000 0 00000 A2 L7S02200 00327 0 00000 0 00000 B1 L7S02210 | 00330 0 00000 0 00000 B2 L7S02220 | 00331 0 00000 0 00000 MULT L7S02230 | 00332 0 00000 0 00000 MULT2 L7S02240 | 00333 0 00000 0 00000 N L7S02250 | BINARY CARD NO. 9DSC0012 | 00334 0 00000 0 00000 N2 L7S02260 | 00335 0 00000 0 00000 NN L7S02270 | 00336 0 00000 0 00000 TEST L7S02280 00337 0 00000 0 00000 TEMP L7S02290 | 00340 0 00000 0 00000 TEMP2 L7S02300 | 00341 0 00000 0 00000 TEMP3 L7S02310 | 77777 COMMON -206 L7S02320 | 77777 4) COMMON 1 L7S02330 END L7S02340 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 342 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 333 N 223, 227 | 77777 4) 0, 3, 5, 7, 10, 11, 13, 17, 22, 23, 30, 40, 41, 46, 52, 53, 56 60, 61, 66, 67, 70, 72, 76, 101, 102, 112, 113, 121, 123, 125, 126, 130, 133 | 140, 143, 144, 156, 157, 170, 173, 174, 175, 215, 240, 243, 247, 256, 257, 262, 263 | 264, 265, 275, 276, 277, 300, 304, 305, 342 | 325 A1 177, 200, 202, 203, 213, 231 | 326 A2 214, 234 327 B1 160, 172, 241, 244, 254, 266 | 330 B2 161, 166, 250, 255, 261 | 320 ET 71, 75 | 272 EX 162, 176 | 334 N2 155, 167, 221, 225, 226 335 NN 230, 232, 235 | 316 OC 42, 50, 64, 107 | 25 AD1 16 | 55 AD2 43 | 67 AD3 47, 54 165 ADC 147 | 221 ADL 271 | 153 ADS 146, 150 | 317 OC2 55 | 321 ONE 14, 145, 154, 171, 222, 224, 303 311 PI2 2, 6 | 307 PI4 127, 134, 137 | 177 RTN 163 | 50 AD12 45 | 107 AD31 104 127 AD4C 106, 116 | 164 ADCM 151 | 0 DCOS 0 | 12 DSIN 0 | 301 EXIT 12, 15, 274 323 MONE 24, 122 | 331 MULT 153, 165, 272 | 315 OCC2 44, 103, 105 | 322 ONE1 117 | 313 PI22 26, 31, 33, 34 337 TEMP 27, 35, 37, 74, 77, 131, 142, 204, 210, 233, 237, 245, 253 | 336 TEST 220, 270 | 303 EXITC 1 | 324 LIMIT 216 | 332 MULT2 25, 273 340 TEMP2 32, 36, 73, 100, 132, 135, 136, 141, 201, 206, 207, 242, 251 | 341 TEMP3 246, 252 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DAT L7T00000 * FAP L7T00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | | | BINARY CARD NO. 9DAT0000 00075 ENTRY DATAN L7T00070 | 00000 ENTRY DATAN2 L7T00080 | DOUBLE PRECISION L7T00090 | ARCTANGENT OF X AND L7T00100 | ARCTANGENT OF Y,X L7T00110 | BINARY CARD NO. 9DAT0001 | 00000 0634 00 1 00063 DATAN2 SXA S4,1 L7T00120 | 00001 0634 00 2 00064 SXA S4+1,2 L7T00130 | 00002 0634 00 4 00065 SXA S4+2,4 L7T00140 00003 0520 00 0 77775 ZET 4)-2 L7T00150 | 00004 0020 00 0 00030 TRA D90 L7T00160 | 00005 0520 00 0 77777 ZET 4) L7T00170 | 00006 0020 00 0 00012 TRA D91 L7T00180 | 00007 0600 00 0 77777 STZ 4) L7T00190 00010 0600 00 0 77776 STZ 4)-1 L7T00200 | 00011 0020 00 0 00063 TRA S4 L7T00210 | 00012 0500 00 0 77777 D91 CLA 4) L7T00220 | 00013 0120 00 0 00023 TPL D92 L7T00230 | 00014 0500 00 0 00477 CLA NN+1 L7T00240 00015 0760 00 0 00002 CHS L7T00250 | 00016 0601 00 0 77777 STO 4) L7T00260 | 00017 0500 00 0 00476 CLA NN L7T00270 | 00020 0760 00 0 00002 CHS L7T00280 | 00021 0601 00 0 77776 STO 4)-1 L7T00290 00022 0020 00 0 00063 TRA S4 L7T00300 | 00023 0500 00 0 00477 D92 CLA NN+1 L7T00310 | | BINARY CARD NO. 9DAT0002 | 00024 0601 00 0 77777 STO 4) L7T00320 00025 0500 00 0 00476 CLA NN L7T00330 | 00026 0601 00 0 77776 STO 4)-1 L7T00340 | 00027 0020 00 0 00063 TRA S4 L7T00350 | 00030 0774 00 2 00000 D90 AXT 0,2 L7T00360 | 00031 0500 00 0 77777 CLA 4) L7T00370 00032 0601 00 0 00070 STO R8+1 L7T00380 | 00033 0500 00 0 77776 CLA 4)-1 L7T00390 | 00034 0601 00 0 00067 STO R8 L7T00400 | 00035 0500 00 0 77775 CLA 4)-2 L7T00410 | 00036 0601 00 0 00072 STO R8+3 L7T00420 00037 0500 00 0 77774 CLA 4)-3 L7T00430 | 00040 0601 00 0 00071 STO R8+2 L7T00440 | 00041 0074 00 4 00632 TSX DPFDP,4 L7T00450 | 00042 0 00000 0 77777 PZE 4) L7T00460 | 00043 0 00000 0 77775 PZE 4)-2 L7T00470 00044 0 00000 0 77777 PZE 4) L7T00480 | 00045 0074 00 4 00075 TSX DATAN,4 L7T00490 | 00046 0500 00 0 00072 CLA R8+3 L7T00500 | 00047 0120 00 0 00063 TPL S4 L7T00510 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | | BINARY CARD NO. 9DAT0003 | 00050 0500 00 0 00070 CLA R8+1 L7T00520 | 00051 0120 00 0 00057 TPL RR9 L7T00530 00052 0074 00 4 00543 TSX DPFSB,4 L7T00540 | 00053 0 00000 0 77777 PZE 4) L7T00550 | 00054 0 00000 0 00074 PZE RR10+1 L7T00560 | 00055 0 00000 0 77777 PZE 4) L7T00570 | 00056 0020 00 0 00063 TRA S4 L7T00580 00057 0074 00 4 00512 RR9 TSX DPFAD,4 L7T00590 | 00060 0 00000 0 77777 PZE 4) L7T00600 | 00061 0 00000 0 00074 PZE RR10+1 L7T00610 | 00062 0 00000 0 77777 PZE 4) L7T00620 | 00063 0774 00 1 00000 S4 AXT 0,1 L7T00630 00064 0774 00 2 00000 AXT 0,2 L7T00640 | 00065 0774 00 4 00000 AXT 0,4 L7T00650 | 00066 0020 00 4 00001 TRA 1,4 L7T00660 | 00067 R8 BSS 4 L7T00670 | BINARY CARD NO. 9DAT0004 | 00073 +147042055060 RR10 OCT 147042055060 L7T00680 | 00074 +202622077325 OCT 202622077325 L7T00690 | 00075 0634 00 1 00316 DATAN SXA D80,1 L7T00700 | 00076 0634 00 2 00317 SXA D80+1,2 L7T00710 00077 0634 00 4 00320 SXA D80+2,4 L7T00720 | 00100 0774 00 2 00000 AXT 0,2 L7T00730 | 00101 0500 00 0 77777 CLA 4) L7T00740 | 00102 0601 00 0 00453 STO D5+1 L7T00750 | 00103 0760 00 0 00003 SSP L7T00760 00104 0601 00 0 77777 STO 4) L7T00770 | 00105 0601 00 0 00502 STO X+1 L7T00780 | 00106 0500 00 0 77776 CLA 4)-1 L7T00790 | 00107 0601 00 0 00452 STO D5 L7T00800 | 00110 0760 00 0 00003 SSP L7T00810 00111 0601 00 0 77776 STO 4)-1 L7T00820 | 00112 0601 00 0 00501 STO X L7T00830 | 00113 0074 00 4 00543 TSX DPFSB,4 L7T00840 | 00114 0 00000 0 77777 PZE 4) L7T00850 | 00115 0 00000 0 00344 PZE AA+12 L7T00860 00116 0 00000 0 00455 PZE D6+1 L7T00870 | | BINARY CARD NO. 9DAT0005 | 00117 0500 00 0 00455 CLA D6+1 L7T00880 | 00120 0120 00 0 00122 TPL D7 L7T00890 00121 0020 00 0 00126 TRA X11 L7T00900 | 00122 0074 00 4 00632 D7 TSX DPFDP,4 L7T00910 | 00123 0 00000 0 00457 PZE D8+1 L7T00920 | 00124 0 00000 0 00502 PZE X+1 L7T00930 | 00125 0 00000 0 00502 PZE X+1 L7T00940 00126 0074 00 4 00543 X11 TSX DPFSB,4 L7T00950 | 00127 0 00000 0 00333 PZE AA+3 L7T00960 | 00130 0 00000 0 00502 PZE X+1 L7T00970 | 00131 0 00000 0 00445 PZE D+1 L7T00980 | 00132 0500 00 0 00445 CLA D+1 L7T00990 00133 0100 00 0 00135 TZE XX3 L7T01000 | 00134 0120 00 0 00136 TPL XX2 L7T01010 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | 00135 1 77776 2 00143 XX3 TXI X1,2,-2 L7T01020 | 00136 0074 00 4 00573 XX2 TSX DPFMP,4 L7T01030 | 00137 0 00000 0 00502 PZE X+1 L7T01040 | 00140 0 00000 0 00355 PZE AL+7 L7T01050 | 00141 0 00000 0 00507 PZE Z+1 L7T01060 00142 0020 00 0 00167 TRA XXX3 L7T01070 | | BINARY CARD NO. 9DAT0006 | 00143 0074 00 4 00543 X1 TSX DPFSB,4 L7T01080 | 00144 0 00000 0 00333 PZE AA+3 L7T01090 00145 0 00000 0 00502 PZE X+1 L7T01100 | 00146 0 00000 0 00445 PZE D+1 L7T01110 | 00147 0500 00 0 00445 CLA D+1 L7T01120 | 00150 0100 00 0 00152 TZE X12 L7T01130 | 00151 0120 00 0 00153 TPL X2 L7T01140 00152 1 77776 2 00143 X12 TXI X1,2,-2 L7T01150 | 00153 0074 00 4 00512 X2 TSX DPFAD,4 L7T01160 | 00154 0 00000 0 00431 PZE G+1 L7T01170 | 00155 0 00000 0 00502 PZE X+1 L7T01180 | 00156 0 00000 0 00445 PZE D+1 L7T01190 00157 0074 00 4 00632 TSX DPFDP,4 L7T01200 | 00160 0 00000 0 00373 PZE BETA+1 L7T01210 | 00161 0 00000 0 00445 PZE D+1 L7T01220 | 00162 0 00000 0 00445 PZE D+1 L7T01230 | 00163 0074 00 4 00543 TSX DPFSB,4 L7T01240 00164 0 00000 0 00347 PZE AL+1 L7T01250 | 00165 0 00000 0 00445 PZE D+1 L7T01260 | 00166 0 00000 0 00507 PZE Z+1 Z L7T01270 | | BINARY CARD NO. 9DAT0007 00167 -0634 00 2 00500 XXX3 SXD S1,2 L7T01280 | 00170 0774 00 2 00000 AXT 0,2 L7T01290 | 00171 0074 00 4 00573 TSX DPFMP,4 L7T01300 | 00172 0 00000 0 00507 PZE Z+1 L7T01310 | 00173 0 00000 0 00507 PZE Z+1 L7T01320 00174 0 00000 0 00511 PZE Z2+1 Z*Z L7T01330 | 00175 0074 00 4 00512 TSX DPFAD,4 L7T01340 | 00176 0 00000 0 00511 PZE Z2+1 L7T01350 | 00177 0 00000 0 00363 PZE B+1 L7T01360 | 00200 0 00000 0 00427 PZE C1+15 L7T01370 00201 0074 00 4 00512 TSX DPFAD,4 L7T01380 | 00202 0 00000 0 00511 PZE Z2+1 L7T01390 | 00203 0 00000 0 00365 PZE B+3 L7T01400 | 00204 0 00000 0 00411 PZE C1+1 L7T01410 | 00205 0074 00 4 00512 TSX DPFAD,4 L7T01420 00206 0 00000 0 00511 PZE Z2+1 L7T01430 | 00207 0 00000 0 00367 PZE B+5 L7T01440 | 00210 0 00000 0 00413 PZE C1+3 L7T01450 | 00211 0074 00 4 00512 TSX DPFAD,4 L7T01460 | 00212 0 00000 0 00511 PZE Z2+1 L7T01470 | BINARY CARD NO. 9DAT0008 | 00213 0 00000 0 00371 PZE B+7 L7T01480 | 00214 0 00000 0 00415 PZE C1+5 L7T01490 | 00215 0074 00 4 00573 TSX DPFMP,4 L7T01500 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | | 00216 0 00000 0 00413 PZE C1+3 L7T01510 | 00217 0 00000 0 00415 PZE C1+5 L7T01520 00220 0 00000 0 00445 PZE D+1 L7T01530 | 00221 0074 00 4 00543 TSX DPFSB,4 L7T01540 | 00222 0 00000 0 00445 PZE D+1 L7T01550 | 00223 0 00000 0 00327 PZE A+5 L7T01560 | 00224 0 00000 0 00417 PZE C1+7 L7T01570 00225 0074 00 4 00573 TSX DPFMP,4 L7T01580 | 00226 0 00000 0 00323 PZE A+1 L7T01590 | 00227 0 00000 0 00417 PZE C1+7 L7T01600 | 00230 0 00000 0 00421 PZE C1+9 L7T01610 | 00231 0074 00 4 00573 TSX DPFMP,4 L7T01620 00232 0 00000 0 00417 PZE C1+7 L7T01630 | 00233 0 00000 0 00411 PZE C1+1 L7T01640 | 00234 0 00000 0 00423 PZE C1+11 L7T01650 | 00235 0074 00 4 00573 TSX DPFMP,4 L7T01660 | 00236 0 00000 0 00325 PZE A+3 L7T01670 | BINARY CARD NO. 9DAT0009 | 00237 0 00000 0 00415 PZE C1+5 L7T01680 | 00240 0 00000 0 00425 PZE C1+13 L7T01690 | 00241 0074 00 4 00543 TSX DPFSB,4 L7T01700 00242 0 00000 0 00423 PZE C1+11 L7T01710 | 00243 0 00000 0 00425 PZE C1+13 L7T01720 | 00244 0 00000 0 00445 PZE D+1 L7T01730 | 00245 0074 00 4 00573 TSX DPFMP,4 L7T01740 | 00246 0 00000 0 00507 PZE Z+1 L7T01750 00247 0 00000 0 00445 PZE D+1 L7T01760 | 00250 0 00000 0 00445 PZE D+1 L7T01770 | 00251 0074 00 4 00543 TSX DPFSB,4 L7T01780 | 00252 0 00000 0 00423 PZE C1+11 L7T01790 | 00253 0 00000 0 00425 PZE C1+13 L7T01800 00254 0 00000 0 00451 PZE D3+1 L7T01810 | 00255 0074 00 4 00573 TSX DPFMP,4 L7T01820 | 00256 0 00000 0 00427 PZE C1+15 L7T01830 | 00257 0 00000 0 00451 PZE D3+1 L7T01840 | 00260 0 00000 0 00451 PZE D3+1 L7T01850 00261 0074 00 4 00543 TSX DPFSB,4 L7T01860 | 00262 0 00000 0 00451 PZE D3+1 L7T01870 | | BINARY CARD NO. 9DAT0010 | 00263 0 00000 0 00421 PZE C1+9 L7T01880 00264 0 00000 0 00451 PZE D3+1 L7T01890 | 00265 0074 00 4 00632 TSX DPFDP,4 L7T01900 | 00266 0 00000 0 00445 PZE D+1 L7T01910 | 00267 0 00000 0 00451 PZE D3+1 L7T01920 | 00270 0 00000 0 00461 PZE F+1 L7T01930 00271 -0534 00 2 00500 LXD S1,2 L7T01940 | 00272 0074 00 4 00512 TSX DPFAD,4 L7T01950 | 00273 0 00000 0 00463 PZE N+1 L7T01960 | 00274 0 00000 0 00461 PZE F+1 L7T01970 | 00275 0 00000 0 77777 PZE 4) L7T01980 00276 0774 00 2 00000 AXT 0,2 L7T01990 | 00277 0500 00 0 00455 CLA D6+1 L7T02000 | 00300 0120 00 0 00302 TPL D9 L7T02010 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | 00301 0020 00 0 00306 TRA D10 L7T02020 | 00302 0074 00 4 00543 D9 TSX DPFSB,4 L7T02030 | 00303 0 00000 0 00477 PZE NN+1 L7T02040 | 00304 0 00000 0 77777 PZE 4) L7T02050 00305 0 00000 0 77777 PZE 4) L7T02060 | 00306 0500 00 0 00453 D10 CLA D5+1 L7T02070 | | BINARY CARD NO. 9DAT0011 | 00307 0120 00 0 00316 TPL D80 L7T02080 00310 0500 00 0 77777 CLA 4) L7T02090 | 00311 0760 00 0 00002 CHS L7T02100 | 00312 0601 00 0 77777 STO 4) L7T02110 | 00313 0500 00 0 77776 CLA 4)-1 L7T02120 | 00314 0760 00 0 00002 CHS L7T02130 00315 0601 00 0 77776 STO 4)-1 L7T02140 | 00316 0774 00 1 00000 D80 AXT 0,1 L7T02150 | 00317 0774 00 2 00000 AXT 0,2 L7T02160 | 00320 0774 00 4 00000 AXT 0,4 L7T02170 | 00321 0020 00 4 00001 TRA 1,4 L7T02180 00322 +135137101713 A OCT 135137101713 L7T02190 | 00323 +170701046154 OCT 170701046154 L7T02200 | 00324 +127031643647 OCT 127031643647 L7T02210 | 00325 +162652155106 OCT 162652155106 L7T02220 | 00326 +123000444015 OCT 123000444015 L7T02230 00327 +156700272070 OCT 156700272070 L7T02240 | 00330 +000000000000 AA OCT 000000000000 L7T02250 | 00331 +000000000000 OCT 000000000000 L7T02260 | 00332 +143344613761 OCT 143344613761 L7T02270 | BINARY CARD NO. 9DAT0012 | 00333 +176415477514 OCT 176415477514 L7T02280 | 00334 +144376357144 OCT 144376357144 L7T02290 | 00335 +177650117146 OCT 177650117146 L7T02300 | 00336 +145753246353 OCT 145753246353 L7T02310 00337 +200610676124 OCT 200610676124 L7T02320 | 00340 +146235271713 OCT 146235271713 L7T02330 | 00341 +201515500266 OCT 201515500266 L7T02340 | 00342 +147637635714 OCT 147637635714 L7T02350 | 00343 +202465011714 OCT 202465011714 L7T02360 00344 +150335162551 OCT 150335162551 L7T02370 | 00345 +203746101527 OCT 203746101527 L7T02380 | 00346 +000000000000 AL OCT 000000000000 L7T02390 | 00347 +000000000000 OCT 000000000000 L7T02400 | 00350 +144577336634 OCT 144577336634 L7T02410 00351 +177464646472 OCT 177464646472 L7T02420 | 00352 +143774604632 OCT 143774604632 L7T02430 | 00353 +176436516152 OCT 176436516152 L7T02440 | 00354 +142402070636 OCT 142402070636 L7T02450 | 00355 +175512777012 OCT 175512777012 L7T02460 00356 +141521006316 OCT 141521006316 L7T02470 | | BINARY CARD NO. 9DAT0013 | 00357 +174576150216 OCT 174576150216 L7T02480 | 00360 +140052640040 OCT 140052640040 L7T02490 00361 +173542606374 OCT 173542606374 L7T02500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 6 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | | 00362 +143145437553 B OCT 143145437553 L7T02510 00363 +176537276310 OCT 176537276310 L7T02520 | 00364 +141640650437 OCT 141640650437 L7T02530 | 00365 +174524354117 OCT 174524354117 L7T02540 | 00366 +137165611122 OCT 137165611122 L7T02550 | 00367 +172702252422 OCT 172702252422 L7T02560 00370 +137256561005 OCT 137256561005 L7T02570 | 00371 +172415224774 OCT 172415224774 L7T02580 | 00372 -146000000000 BETA OCT -146000000000 L7T02590 | 00373 -201400000000 OCT -201400000000 L7T02600 | 00374 +146577336634 OCT 146577336634 L7T02610 00375 +201464646472 OCT 201464646472 L7T02620 | 00376 +144402070636 OCT 144402070636 L7T02630 | 00377 +177512777012 OCT 177512777012 L7T02640 | 00400 +143402070636 OCT 143402070636 L7T02650 | 00401 +176512777012 OCT 176512777012 L7T02660 00402 +142530113576 OCT 142530113576 L7T02670 | | BINARY CARD NO. 9DAT0014 | 00403 +175671251270 OCT 175671251270 L7T02680 | 00404 +142052640040 OCT 142052640040 L7T02690 00405 +175542606374 OCT 175542606374 L7T02700 | 00406 C BSS 2 L7T02710 | 00410 C1 BSS 16 L7T02720 | | BINARY CARD NO. 9DAT0015 00430 +000000000000 G OCT 000000000000 L7T02730 | 00431 +000000000000 OCT 000000000000 L7T02740 | 00432 +147026046252 OCT 147026046252 L7T02750 | 00433 +202735547535 OCT 202735547535 L7T02760 | 00434 +146054114524 OCT 146054114524 L7T02770 00435 +201673317272 OCT 201673317272 L7T02780 | 00436 +146000000000 OCT 146000000000 L7T02790 | 00437 +201400000000 OCT 201400000000 L7T02800 | 00440 +145310063070 OCT 145310063070 L7T02810 | 00441 +200447464721 OCT 200447464721 L7T02820 00442 +144517315254 OCT 144517315254 L7T02830 | 00443 +177422302427 OCT 177422302427 L7T02840 | 00444 D BSS 2 L7T02850 | 00446 D2 BSS 2 L7T02860 | 00450 D3 BSS 2 L7T02870 00452 D5 BSS 2 L7T02880 | 00454 D6 BSS 2 L7T02890 | | BINARY CARD NO. 9DAT0016 | 00456 +146000000000 D8 OCT 146000000000 L7T02900 00457 +201400000000 OCT 201400000000 L7T02910 | 00460 F BSS 2 L7T02920 | | BINARY CARD NO. 9DAT0017 | 00462 +000000000000 N OCT 000000000000 L7T02930 00463 +000000000000 OCT 000000000000 L7T02940 | 00464 +144026563313 OCT 144026563313 L7T02950 | 00465 +177414052216 OCT 177414052216 L7T02960 | 00466 +145026563313 OCT 145026563313 L7T02970 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 7 DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | | 00467 +200414052216 OCT 200414052216 L7T02980 | 00470 +145042055060 OCT 145042055060 L7T02990 | 00471 +200622077325 OCT 200622077325 L7T03000 00472 +146026563313 OCT 146026563313 L7T03010 | 00473 +201414052216 OCT 201414052216 L7T03020 | 00474 +146434320175 OCT 146434320175 L7T03030 | 00475 +201517064661 OCT 201517064661 L7T03040 | 00476 +146042055060 NN OCT 146042055060 L7T03050 00477 +201622077325 OCT 201622077325 L7T03060 | 00500 S1 BSS 1 L7T03070 | 00501 X BSS 2 L7T03080 | 00503 X3 BSS 1 L7T03090 | 00504 Y BSS 2 L7T03100 00506 Z BSS 2 L7T03110 | 00510 Z2 BSS 2 L7T03120 | | BINARY CARD NO. 9DAT0018 | 00512 -0634 00 4 77773 DPFAD SXD COMMON,4 L7T03130 00513 0500 00 4 00001 CLA 1,4 L7T03140 | 00514 0621 00 0 00527 STA DPFAD+13 L7T03150 | 00515 0402 00 0 00542 SUB L(1) L7T03160 | 00516 0621 00 0 00533 STA DPFAD+17 L7T03170 | 00517 0500 00 4 00003 CLA 3,4 L7T03180 00520 0621 00 0 00536 STA DPFAD+20 L7T03190 | 00521 0402 00 0 00542 SUB L(1) L7T03200 | 00522 0621 00 0 00537 STA DPFAD+21 L7T03210 | 00523 0500 00 4 00002 CLA 2,4 L7T03220 | 00524 0621 00 0 00530 STA DPFAD+14 L7T03230 00525 0402 00 0 00542 SUB L(1) L7T03240 | 00526 0621 00 0 00534 STA DPFAD+18 L7T03250 | 00527 0500 00 2 00000 CLA 0,2 L7T03260 | 00530 0300 00 0 00000 FAD ** L7T03270 | 00531 0601 00 0 77777 STO AC1 L7T03280 00532 0131 00 0 00000 XCA L7T03290 | 00533 -0300 00 2 00000 UFA 0,2 L7T03300 | 00534 -0300 00 0 00000 UFA ** L7T03310 | 00535 0300 00 0 77777 FAD AC1 L7T03320 | BINARY CARD NO. 9DAT0019 | 00536 0601 00 0 00000 STO ** L7T03330 | 00537 -0600 00 0 00000 STQ ** L7T03340 | 00540 -0534 00 4 77773 LXD COMMON,4 L7T03350 | 00541 0020 00 4 00004 TRA 4,4 L7T03360 00542 +000000000001 L(1) DEC 1 L7T03370 | 00543 -0634 00 4 77773 DPFSB SXD COMMON,4 L7T03380 | 00544 0500 00 4 00001 CLA 1,4 L7T03390 | 00545 0621 00 0 00560 STA DPFSB+13 L7T03400 | 00546 0402 00 0 00542 SUB L(1) L7T03410 00547 0621 00 0 00564 STA DPFSB+17 L7T03420 | 00550 0500 00 4 00003 CLA 3,4 L7T03430 | 00551 0621 00 0 00567 STA DPFSB+20 L7T03440 | 00552 0402 00 0 00542 SUB L(1) L7T03450 | 00553 0621 00 0 00570 STA DPFSB+21 L7T03460 00554 0500 00 4 00002 CLA 2,4 L7T03470 | 00555 0621 00 0 00561 STA DPFSB+14 L7T03480 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 8 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | 00556 0402 00 0 00542 SUB L(1) L7T03490 | 00557 0621 00 0 00565 STA DPFSB+18 L7T03500 | 00560 0500 00 2 00000 CLA 0,2 L7T03510 | 00561 0302 00 0 00000 FSB ** L7T03520 | BINARY CARD NO. 9DAT0020 | 00562 0601 00 0 77777 STO AC1 L7T03530 | 00563 0131 00 0 00000 XCA L7T03540 | 00564 -0300 00 2 00000 UFA 0,2 L7T03550 | 00565 -0302 00 0 00000 UFS ** L7T03560 00566 0300 00 0 77777 FAD AC1 L7T03570 | 00567 0601 00 0 00000 STO ** L7T03580 | 00570 -0600 00 0 00000 STQ ** L7T03590 | 00571 -0534 00 4 77773 LXD COMMON,4 L7T03600 | 00572 0020 00 4 00004 TRA 4,4 L7T03610 00573 -0634 00 4 77773 DPFMP SXD COMMON,4 L7T03620 | 00574 0500 00 4 00001 CLA 1,4 L7T03630 | 00575 0621 00 0 00613 STA DPFMP+16 L7T03640 | 00576 0621 00 0 00622 STA DPFMP+23 L7T03650 | 00577 0402 00 0 00542 SUB L(1) L7T03660 00600 0621 00 0 00617 STA DPFMP+20 L7T03670 | 00601 0500 00 4 00002 CLA 2,4 L7T03680 | 00602 0621 00 0 00612 STA DPFMP+15 L7T03690 | 00603 0621 00 0 00616 STA DPFMP+19 L7T03700 | 00604 0402 00 0 00542 SUB L(1) L7T03710 00605 0621 00 0 00623 STA DPFMP+24 L7T03720 | | BINARY CARD NO. 9DAT0021 | 00606 0500 00 4 00003 CLA 3,4 L7T03730 | 00607 0621 00 0 00626 STA DPFMP+27 L7T03740 00610 0402 00 0 00542 SUB L(1) L7T03750 | 00611 0621 00 0 00627 STA DPFMP+28 L7T03760 | 00612 0560 00 0 00000 LDQ ** L7T03770 | 00613 0260 00 0 00000 FMP ** L7T03780 | 00614 0601 00 0 77772 STO COMMON-1 L7T03790 00615 -0600 00 0 77771 STQ COMMON-2 L7T03800 | 00616 0560 00 0 00000 LDQ ** L7T03810 | 00617 0260 00 0 00000 FMP ** L7T03820 | 00620 -0300 00 0 77771 UFA COMMON-2 L7T03830 | 00621 0601 00 0 77771 STO COMMON-2 L7T03840 00622 0560 00 0 00000 LDQ ** L7T03850 | 00623 0260 00 0 00000 FMP ** L7T03860 | 00624 -0300 00 0 77771 UFA COMMON-2 L7T03870 | 00625 0300 00 0 77772 FAD COMMON-1 L7T03880 | 00626 0601 00 0 00000 STO ** L7T03890 00627 -0600 00 0 00000 STQ ** L7T03900 | 00630 -0534 00 4 77773 LXD COMMON,4 L7T03910 | 00631 0020 00 4 00004 TRA 4,4 L7T03920 | | BINARY CARD NO. 9DAT0022 00632 -0634 00 4 77771 DPFDP SXD COMMON-2,4 L7T03930 | 00633 0500 00 4 00001 CLA 1,4 L7T03940 | 00634 0621 00 0 00651 STA DPFDP+15 L7T03950 | 00635 0402 00 0 00542 SUB L(1) L7T03960 | 00636 0621 00 0 00654 STA DPFDP+18 L7T03970 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 9 | DOUBLE PRECISION ARCTANGENT FUNCTION / 9DAT | | 00637 0500 00 4 00003 CLA 3,4 L7T03980 | 00640 0621 00 0 00664 STA DPFDP+26 L7T03990 00641 0402 00 0 00542 SUB L(1) L7T04000 | 00642 0621 00 0 00665 STA DPFDP+27 L7T04010 | 00643 0500 00 4 00002 CLA 2,4 L7T04020 | 00644 0621 00 0 00652 STA DPFDP+16 L7T04030 | 00645 0621 00 0 00655 STA DPFDP+19 L7T04040 00646 0621 00 0 00660 STA DPFDP+22 L7T04050 | 00647 0402 00 0 00542 SUB L(1) L7T04060 | 00650 0621 00 0 00657 STA DPFDP+21 L7T04070 | 00651 0500 00 2 00000 CLA 0,2 L7T04080 | 00652 0241 00 0 00000 FDP ** L7T04090 00653 -0600 00 0 77773 STQ COMMON L7T04100 | 00654 -0300 00 2 00000 UFA 0,2 L7T04110 | 00655 0241 00 0 00000 FDP ** L7T04120 | | BINARY CARD NO. 9DAT0023 00656 -0600 00 0 77772 STQ COMMON-1 L7T04130 | 00657 0502 00 0 00000 CLS ** L7T04140 | 00660 0241 00 0 00000 FDP ** L7T04150 | 00661 0260 00 0 77773 FMP COMMON L7T04160 | 00662 -0300 00 0 77772 UFA COMMON-1 L7T04170 00663 0300 00 0 77773 FAD COMMON L7T04180 | 00664 0601 00 0 00000 STO ** L7T04190 | 00665 -0600 00 0 00000 STQ ** L7T04200 | 00666 -0534 00 4 77771 LXD COMMON-2,4 L7T04210 | 00667 0020 00 4 00004 TRA 4,4 L7T04220 77777 COMMON -206 L7T04230 | 77777 4) COMMON 1 L7T04240 | 77777 AC1 SYN 4) L7T04250 | 77773 COMMON SYN 4)-4 L7T04260 | END L7T04270 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 670 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 322 A 223, 226, 236 | 362 B 177, 203, 207, 213 | 406 C 444 D 131, 132, 146, 147, 156, 161, 162, 165, 220, 222, 244, 247, 250, 266 | 460 F 270, 274 | 430 G 154 | 462 N 273 | 501 X 105, 112, 124, 125, 130, 137, 145, 155 504 Y | 506 Z 141, 166, 172, 173, 246 | 77777 4) 3, 5, 7, 10, 12, 16, 21, 24, 26, 31, 33, 35, 37, 42, 43, 44, 53 | 55, 60, 62, 101, 104, 106, 111, 114, 275, 304, 305, 310, 312, 313, 315, 670 | 330 AA 115, 127, 144 346 AL 140, 164 | 410 C1 200, 204, 210, 214, 216, 217, 224, 227, 230, 232, 233, 234, 237, 240, 242, 243, 252 | 253, 256, 263 | 446 D2 | 450 D3 254, 257, 260, 262, 264, 267 452 D5 102, 107, 306 | 454 D6 116, 117, 277 | 122 D7 120 | 456 D8 123 | 302 D9 300 476 NN 14, 17, 23, 25, 303 | 67 R8 32, 34, 36, 40, 46, 50 | 500 S1 167, 271 | 63 S4 0, 1, 2, 11, 22, 27, 47, 56 | 143 X1 135, 152 153 X2 151 | 503 X3 | 510 Z2 174, 176, 202, 206, 212 | 77777 AC1 531, 535, 562, 566, 670 | 306 D10 301 316 D80 75, 76, 77, 307 | 30 D90 4 | 12 D91 6 | 23 D92 13 | 57 RR9 51 126 X11 121 | 152 X12 150 | 136 XX2 134 | 135 XX3 133 | 372 BETA 160 542 L(1) 515, 521, 525, 546, 552, 556, 577, 604, 610, 635, 641, 647 | 73 RR10 54, 61 | 167 XXX3 142 | 75 DATAN 0, 45 | 512 DPFAD 57, 153, 175, 201, 205, 211, 272, 514, 516, 520, 522, 524, 526 632 DPFDP 41, 122, 157, 265, 634, 636, 640, 642, 644, 645, 646, 650 | 573 DPFMP 136, 171, 215, 225, 231, 235, 245, 255, 575, 576, 600, 602, 603, 605, 607, 611 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | 543 DPFSB 52, 113, 126, 143, 163, 221, 241, 251, 261, 302, 545, 547, 551, 553, 555, 557 | 77773 COMMON 512, 540, 543, 571, 573, 614, 615, 620, 621, 624, 625, 630, 632, 653, 656, 661, 662 | 663, 666, 670 | 0 DATAN2 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9SQR L8S00000 * FAP L8S00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | FLOATING POINT SQUARE ROOT ROUTINE / 9SQR | | | BINARY CARD NO. 9SQR0000 00000 ENTRY SQRT L8S00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L8S00080 | | BINARY CARD NO. 9SQR0001 | 00000 0100 00 4 00001 SQRT TZE 1,4 L8S00090 00001 -0120 00 4 00001 TMI 1,4 L8S00100 | 00002 0560 00 0 00046 LDQ A MULTIPLIER FOR EVEN L8S00110 | 00003 0361 00 0 00052 ACL CH COMPUTE NEW CHARACTERISTIC L8S00120 | 00004 -0765 00 0 00034 LGR 28 MQ SIGN 0..ODD,1..EVEN L8S00130 | 00005 0767 00 0 00033 ALS 27 L8S00140 00006 0602 00 0 77775 SLW COMMON+1 NEW CHARACTERISTIC L8S00150 | 00007 0140 00 0 00011 TOV *+2 L8S00160 | 00010 -0760 00 0 00003 SSM L8S00170 | 00011 0601 00 0 77777 STO COMMON+3 L8S00180 | 00012 0162 00 0 00017 TQP ODD L8S00190 00013 -0600 00 0 77774 STQ COMMON FRACTION L8S00200 | 00014 0204 06 0 77774 VLM COMMON,0,6 B...0+29+6-35...0 L8S00210 | 00015 0400 00 0 00050 ADD B L8S00220 | 00016 0020 00 0 00024 TRA ODD+5 L8S00230 | 00017 -0765 00 0 00001 ODD LGR 1 L8S00240 00020 -0600 00 0 77774 STQ COMMON L8S00250 | 00021 0560 00 0 00047 LDQ A+1 B...0+31+4-35...0 L8S00260 | 00022 0204 04 0 77774 VLM COMMON,0,4 L8S00270 | 00023 0400 00 0 00051 ADD B+1 L8S00280 | BINARY CARD NO. 9SQR0002 | 00024 0601 00 0 77776 STO COMMON+2 L8S00290 | 00025 0500 00 0 77774 CLA COMMON L8S00300 | 00026 0225 16 0 77776 VDP COMMON+2,0,14 L8S00310 | 00027 0763 00 0 00025 LLS 21 L8S00320 00030 0131 00 0 00000 XCA L8S00330 | 00031 0361 00 0 77776 ACL COMMON+2 L8S00340 | 00032 0765 00 0 00001 LRS 1 L8S00350 | 00033 -0501 00 0 00053 ORA MASK SET APPROXIMATION LARGER THAN N L8S00360 | 00034 0601 00 0 77776 STO COMMON+2 L8S00370 00035 0500 00 0 77774 CLA COMMON L8S00380 | 00036 0220 00 0 77776 DVH COMMON+2 L8S00390 | 00037 0131 00 0 00000 XCA L8S00400 | 00040 0401 00 0 77776 ADM COMMON+2 L8S00410 | 00041 0765 00 0 00011 LRS 9 L8S00420 00042 0400 00 0 77775 ADD COMMON+1 L8S00430 | 00043 0560 00 0 77777 LDQ COMMON+3 L8S00440 | 00044 0162 00 4 00001 TQP 1,4 LEAVE OVERFLOW ON L8S00450 | 00045 0140 00 4 00001 TOV 1,4 TURN OVERFLOW OFF L8S00460 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L8S00470 00046 +112000000000 A DEC .578125B1 L8S00480 | 00047 +000000000016 DEC .875B31 L8S00490 | | BINARY CARD NO. 9SQR0003 | 00050 +154000000000 B DEC .421875B0 L8S00500 00051 +107250456615 DEC .27863B0 L8S00510 | 00052 +201000000000 CH OCT 201000000000 L8S00520 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | FLOATING POINT SQUARE ROOT ROUTINE / 9SQR | 00053 +000007777777 MASK OCT 000007777777 L8S00530 | 77774 COMMON -206+3 L8S00540 | 77774 COMMON COMMON 1 L8S00550 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . L8S00560 | END L8S00570 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77773 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 54 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 46 A 2, 21 | 50 B 15, 23 | 52 CH 3 17 ODD 12, 16 | 53 MASK 33 | 0 SQRT 0 | 77774 COMMON 6, 11, 13, 14, 20, 22, 24, 25, 26, 31, 34, 35, 36, 40, 42, 43, 54 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9TSB (IOEX VERSION) LBI00000 * FAP LBI00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | TAPE TO STORAGE BINARY / 9TSB | | * READ TAPE N LINKAGE COMPILED BY I/O TRANSLATOR.LBI00070 | * LBI00080 *A CAL N UNIT DESIGNATION. LBI00090 | * TSX (TSB),4 TAPE TO STORAGE BINARY LBI00100 | *A1 ... .. INDEXING LBI00110 | *B STR INPUT LBI00120 | * STQ SYMBOL,TAG LIST. LBI00130 *B1 ... .. INDEXING LBI00140 | *C TSX (RLR),4 READ LAST RECORD. LBI00150 | * LBI00160 | LBI00170 | BINARY CARD NO. 9TSB0000 | 00011 ENTRY (TSB) LBI00180 | 00067 ENTRY (RLR) LBI00190 | | TRANSFER VECTOR | BINARY CARD NO. 9TSB0001 | 00000 743146223460 (IOB) | 00001 745125513460 (RER) | 00002 742264263460 (BUF) 00003 745124623460 (RDS) | 00004 745124233460 (RDC) | 00005 745123303460 (RCH) | 00006 742567253460 (EXE) | 00007 746225633460 (SET) 00010 742567223460 (EXB) | | 00400 BUFSIZ EQU 256 PHYSICAL RECORD SIZE WITH LABEL. LBI00200 | * LBI00210 | 00011 0560 00 0 00013 (TSB) LDQ *+2 PICKUP SWITCH SETTING, AND LBI00220 00012 0020 60 0 00000 TRA* $(IOB) *GO INITIALIZE (IOB). LBI00230 | 00013 0560 00 4 00014 LDQ TSB,4 INPUT / TAPE TO STORAGE BINARY. LBI00240 | * LBI00250 | 00014 0634 00 4 00052 TSB SXA READX,4 SAVE RETURN INDEX. LBI00260 | 00015 0074 00 4 00001 ELRSW TSX $(RER),4 *GO CHECK PREVIOUS READ. LBI00270 00016 0534 00 4 00052 LXA READX,4 EXAMINE LBI00280 | 00017 -0500 60 0 00002 CAL* $(BUF) LABEL OF LBI00290 | 00020 0621 00 0 00021 STA *+1 LAST PHYSICAL RECORD. LBI00300 | 00021 0441 60 0 00000 LDI* .. IF ADDRESS OF LABEL IS LBI00310 | 00022 0054 00 077777 RFT 77777 NON-ZERO LBI00320 00023 0020 00 0 00054 TRA ELR SET END OF LOGICAL RECORD SWITCH. LBI00330 | | BINARY CARD NO. 9TSB0002 | 00024 0522 60 0 00003 XEC* $(RDS) ZERO, SELECT CURRENT TAPE. LBI00340 | 00025 0522 00 4 00001 XEC 1,4 INITIALIZE LBI00350 00026 0754 00 4 00000 PXA ,4 FOR LBI00360 | 00027 0621 60 0 00004 STA* $(RDC) READ LBI00370 | 00030 -0500 00 0 00106 CAL NOP CHECKING LBI00380 | 00031 0622 60 0 00001 STD* $(RER) LBI00390 | 00032 0522 60 0 00005 XEC* $(RCH) START READING NEXT RECORD. LBI00400 00033 -0046 00 0 00000 CHKSZ PIA IF DECREMENT OF LABEL LBI00410 | 00034 0774 00 4 00177 AXT 127,4 IS ZERO, SET PHYSICAL RECORD SIZE LBI00420 | 00035 -0054 00 077777 LFT 77777 TO OLD SIZE (127). LBI00430 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | TAPE TO STORAGE BINARY / 9TSB | 00036 -0734 00 4 00000 PDX 0,4 IF NON-ZERO, PICKUP. LBI00440 | 00037 -3 00377 4 00044 TXL READX-6,4,BUFSIZ-1 IF TOO LARGE, LBI00450 | 00040 0441 00 0 00042 ERR41 LDI *+2 GO LBI00460 | 00041 0020 60 0 00006 TRA* $(EXE) *TO LBI00470 00042 0 00043 4 00001 PZE 1,4,*+1 (EXE). LBI00480 | 00043 0774 00 4 00377 AXT BUFSIZ-1,4 SET PHYSICAL RECORD SIZE BUFSIZ-1. LBI00490 | 00044 0754 00 4 00000 PXA 0,4 PLACE IN AC. LBI00500 | 00045 0621 60 0 00007 STA* $(SET) SET COUNTER IN (IOB). LBI00510 | 00046 1 77401 4 00047 TXI *+1,4,-BUFSIZ+1 RESET LBI00520 00047 0754 00 4 00000 PXA ,4 TOP OF LBI00530 | | BINARY CARD NO. 9TSB0003 | 00050 0401 60 0 00002 ADM* (BUF) BUFFER LBI00540 | 00051 0621 60 0 00002 STA* (BUF) ADDRESS. LBI00550 00052 0774 00 4 00000 READX AXT ..,4 RESTORE RETURN INDEX LBI00560 | 00053 0020 00 4 00002 TRA 2,4 *EXIT TO (IOB). LBI00570 | 00054 -0500 00 0 00057 ELR CAL ELR1 SET LBI00580 | 00055 0602 00 0 00015 SLW ELRSW END OF LOGICAL RECORD LBI00590 | 00056 0020 00 0 00033 TRA CHKSZ SWITCH. LBI00600 00057 0020 00 0 00060 ELR1 TRA ERR42 LIST IS LBI00610 | 00060 0441 00 0 00062 ERR42 LDI *+2 LONGER THAN LBI00620 | 00061 0020 60 0 00006 TRA* (EXE) *LOGICAL RECORD LBI00630 | 00062 0 00063 4 00002 PZE 2,4,*+1 GO TO (EXE). LBI00640 | 00063 0522 00 4 00005 XEC 5,4 RESTORE LIST INDEX. LBI00650 00064 -0625 00 0 00002 STL 2 SET TO ZERO OUT LBI00660 | 00065 -0765 00 0 00111 LGR 73 REMAINING LIST ITEMS. LBI00670 | 00066 0020 60 0 00000 TRA* 0 *RETURN TO LIST. LBI00680 | * LBI00690 | 00067 0634 00 4 00104 (RLR) SXA RLRX,4 SAVE RETURN INDEX. LBI00700 00070 -0500 00 0 00072 CAL *+2 RESET END OF LBI00710 | 00071 0602 00 0 00015 SLW ELRSW LOGICAL RECORD SWITCH. LBI00720 | 00072 0074 00 4 00001 TSX (RER),4 *GO CHECK PREVIOUS READ. LBI00730 | 00073 0522 60 0 00004 XEC* (RDC) CHECK LBI00740 | BINARY CARD NO. 9TSB0004 | 00074 0441 60 4 00000 LDI* 0,4 FOR LBI00750 | 00075 0054 00 077777 RFT 77777 NON-ZERO LBI00760 | 00076 0020 00 0 00104 TRA *+6 LABEL. LBI00770 | 00077 0522 60 0 00003 XEC* (RDS) KEEP READING PHYSICAL RECORDS LBI00780 00100 0522 60 0 00005 XEC* (RCH) UNTIL LAST RECORD HAS BEEN READ. LBI00790 | 00101 -0500 00 0 00106 CAL NOP SET SWITCH FOR LBI00800 | 00102 0622 60 0 00001 STD* (RER) READ CHECKING. LBI00810 | 00103 0020 00 0 00072 TRA *-9 LBI00820 | 00104 0774 00 4 00000 RLRX AXT ..,4 RESTORE RETURN INDEX. LBI00830 00105 0020 60 0 00010 TRA* $(EXB) *EXIT TO (IOB). LBI00840 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LBI00850 | 00106 0761 00 0 00000 NOP NOP LBI00860 | 00000 .. EQU 0 LBI00870 | END LBI00880 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 107 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 21, 52, 104, 107 | 54 ELR 23 | 106 NOP 30, 101 | 14 TSB 13 57 ELR1 54 | 104 RLRX 67 | 33 CHKSZ 56 | 15 ELRSW 55, 71 | 40 ERR41 60 ERR42 57 | 52 READX 14, 16, 37 | 2 (BUF) 17, 50, 51 | 10 (EXB) 105 | 6 (EXE) 41, 61 0 (IOB) 12 | 5 (RCH) 32, 100 | 4 (RDC) 27, 73 | 3 (RDS) 24, 77 | 1 (RER) 15, 31, 72, 102 67 (RLR) 0 | 7 (SET) 45 | 11 (TSB) 0 | 400 BUFSIZ 11, 37, 43, 46 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9STB (IOEX VERSION) LBO00000 * FAP LBO00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | STORAGE TO TAPE BINARY / 9STB | | * WRITE TAPE N LINKAGE COMPILED BY I/O TRANSLATOR.LBO00070 | * LBO00080 *A CAL N UNIT DESIGNATION. LBO00090 | * TSX (STB),4 STORAGE TO TAPE BINARY. LBO00100 | *A1 ... .. INDEXING. LBO00110 | *B LDQ SYMBOL,TAG OUTPUT LBO00120 | * STR LIST. LBO00130 *B1 ... .. INDEXING. LBO00140 | *C TSX (WLR),4 WRITE LAST RECORD. LBO00150 | * LBO00160 | LBO00170 | BINARY CARD NO. 9STB0000 | 00007 ENTRY (STB) LBO00180 | 00033 ENTRY (WLR) LBO00190 | | TRANSFER VECTOR | BINARY CARD NO. 9STB0001 | 00000 743146223460 (IOB) | 00001 746325623460 (TES) | 00002 746651623460 (WRS) 00003 746663233460 (WTC) | 00004 745123303460 (RCH) | 00005 742567223460 (EXB) | 00006 746625513460 (WER) | 00400 BUFSIZ EQU 256 PHYSICAL RECORD SIZE WITH LABEL LBO00200 | * LBO00210 | 00007 0560 00 0 00011 (STB) LDQ *+2 PICKUP SWITCH SETTING, AND LBO00220 | 00010 0020 60 0 00000 TRA* $(IOB) *GO INITIALIZE (IOB) LBO00230 | 00011 -0600 00 4 00012 STQ STB,4 OUTPUT / STORAGE TO TAPE BINARY LBO00240 * LBO00250 | 00012 0634 00 4 00031 STB SXA WRITX,4 SAVE RETURN INDEX. LBO00260 | 00013 -0600 00 0 77777 STQ DATUM SAVE CURRENT DATUM. LBO00270 | 00014 0522 60 0 00001 XEC* $(TES) *CHECK PREVIOUS WRITE. LBO00280 | 00015 0522 60 0 00002 XEC* $(WRS) SELECT CURRENT UNIT LBO00290 00016 0774 00 4 00001 PRC AXT 1,4 INCREASE LBO00300 | 00017 1 00001 4 00020 TXI *+1,4,1 PHYSICAL RECORD COUNT LBO00310 | 00020 0634 00 4 00016 SXA PRC,4 BY ONE. LBO00320 | 00021 0534 00 4 00031 LXA WRITX,4 PICKUP LBO00330 | 00022 0522 00 4 00001 XEC 1,4 -(COMMAND ADDRESS) LBO00340 00023 0754 00 4 00000 PXA ,4 AND INITIALIZE LBO00350 | | BINARY CARD NO. 9STB0002 | 00024 0621 60 0 00003 STA* $(WTC) FOR WRITE CHECKING LBO00360 | 00025 0522 60 0 00004 XEC* $(RCH) START TAPE WRITING LBO00370 00026 -0500 00 0 00072 CAL TES SET (TES) FOR LBO00380 | 00027 0602 60 0 00001 SLW* $(TES) WRITE CHECKING. LBO00390 | 00030 0560 00 0 77777 LDQ DATUM RESTORE CURRENT DATUM. LBO00400 | 00031 0774 00 4 00000 WRITX AXT ..,4 RESTORE RETURN INDEX. LBO00410 | 00032 0020 00 4 00002 TRA 2,4 *EXIT TO (IOB). LBO00420 * LBO00430 | 00033 0634 00 4 00066 (WLR) SXA WLRX,4 SAVE RETURN INDEX. LBO00440 | 00034 0522 60 0 00001 XEC* $(TES) *GO CHECK PREVIOUS WRITE. LBO00450 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | STORAGE TO TAPE BINARY / 9STB | 00035 0522 60 0 00002 XEC* $(WRS) SELECT CURRENT UNIT. LBO00460 | 00036 0535 00 4 00002 LAC 2,4 PICKUP LBO00470 | 00037 -0500 00 4 00015 CAL 13,4 CURRENT LBO00480 | 00040 0621 00 0 00041 STA *+1 BUFFER LBO00490 00041 -0500 00 0 00000 CAL .. ADDRESS LBO00500 | 00042 0621 00 0 00070 STA WRC AND SET WRITE COMMAND. LBO00510 | 00043 -0500 00 4 00001 CAL 1,4 COMPUTE LBO00520 | 00044 0737 00 4 00000 PAC ,4 WORD COUNT LBO00530 | 00045 1 00401 4 00046 TXI *+1,4,BUFSIZ+1 FOR LAST RECORD, LBO00540 00046 -0754 00 4 00000 PXD 0,4 MAKE SURE THAT $LBO00541 | 00047 3 00002 4 00051 TXH *+2,4,2 THERE ARE AT LEAST $LBO00542 | | BINARY CARD NO. 9STB0003 | 00050 1 00001 4 00047 TXI *-1,4,1 THREE WORDS, $LBO00543 00051 -0634 00 4 00070 SXD WRC,4 AND SET WRITE COMMAND. LBO00550 | 00052 0402 00 0 00071 SUB ONE SET WORD COUNT $LBO00560 | 00053 0622 60 0 00070 STD* WRC IN LABEL LBO00580 | 00054 0500 00 0 00016 CLA PRC GET PHYSICAL RECORD COUNT AND LBO00590 | 00055 0621 60 0 00070 STA* WRC PLACE IN LABEL. LBO00600 00056 0774 00 4 00001 AXT 1,4 RESET LBO00610 | 00057 0634 00 4 00016 SXA PRC,4 PRC TO ONE. LBO00620 | 00060 -0774 00 4 00070 AXC WRC,4 THEN LBO00630 | 00061 0522 60 0 00004 XEC* (RCH) START WRITING LAST RECORD. LBO00640 | 00062 0754 00 4 00000 PXA ,4 INITIALIZE LBO00650 00063 0621 60 0 00003 STA* (WTC) FOR LBO00660 | 00064 -0500 00 0 00072 CAL TES WRITE LBO00670 | 00065 0602 60 0 00001 SLW* $(TES) CHECKING LBO00680 | 00066 0774 00 4 00000 WLRX AXT ..,4 RESTORE RETURN INDEX LBO00690 | 00067 0020 60 0 00005 TRA* $(EXB) *EXIT TO (IOB) LBO00700 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LBO00710 | 00070 3 00000 0 00000 WRC IORT ..,,.. LBO00720 | 00071 0 00001 0 00000 ONE PZE ,,1 $LBO00721 | 00072 0074 00 4 00006 TES TSX $(WER),4 WRITE CHECK INSTRUCTION LBO00730 | 77777 COMMON -206 LBO00740 77777 DATUM COMMON 1 LBO00750 | 00000 .. EQU 0 LBO00760 | END LBO00770 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 73 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 0 .. 31, 41, 66, 70, 73 | 71 ONE 52 | 16 PRC 20, 54, 57 | 12 STB 11 | 72 TES 26, 64 70 WRC 42, 51, 53, 55, 60 | 66 WLRX 33 | 77777 DATUM 13, 30, 73 | 31 WRITX 12, 21 | 5 (EXB) 67 0 (IOB) 10 | 4 (RCH) 25, 61 | 7 (STB) 0 | 1 (TES) 14, 27, 34, 65 | 6 (WER) 72 33 (WLR) 0 | 2 (WRS) 15, 35 | 3 (WTC) 24, 63 | 400 BUFSIZ 7, 45 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CSH LHC00000 * FAP LHC00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | CARD TO STORAGE HOLLERITH / 9CSH | | * READ K LINKAGE COMPILED BY I/O TRANSLATOR.LHC00070 | * LHC00080 *A TSX (CSH),4 CARD TO STORAGE HOLLERITH. LHC00090 | * PZE 8)K FORMAT DESIGNATION. LHC00100 | *A1 ... .. INDEXING. LHC00110 | *B STR INPUT LHC00120 | * STQ SYMBOL,TAG LIST. LHC00130 *B1 ... .. INDEXING. LHC00140 | *C TSX (RTN),4 RETURN. LHC00150 | * LHC00160 | | BINARY CARD NO. 9CSH0000 00006 ENTRY (CSH) LHC00170 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHC00180 | | TRANSFER VECTOR | BINARY CARD NO. 9CSH0001 | 00000 743146303460 (IOH) | 00001 746323463460 (TCO) | 00002 746325263460 (TEF) | 00003 745124623460 (RDS) 00004 745123303460 (RCH) | 00005 742567253460 (EXE) | | 00026 BUFSIZ EQU 22 RECORD BUFFER SIZE. LHC00190 | * LHC00200 00006 0560 00 0 00012 (CSH) LDQ *+4 READ HOLLERITH INPUT DATA CARDS LHC00210 | 00007 0500 00 0 00011 CLA *+2 FROM CARD READER. CONVERT LHC00220 | 00010 0020 60 0 00000 TRA* $(IOH) TO BCD. LHC00230 | 00011 -0 00001 0 00000 MZE 0,0,1 UNIT DESIGNATION. LHC00240 | 00012 0761 00 0 00013 NOP CSH INPUT / CARD TO STORAGE HOLLERITH. LHC00250 * LHC00260 | 00013 0634 00 4 00134 CSH SXA X4,4 LHC00270 | 00014 0604 00 0 00173 STI CTJ SAVE SENSE INDICATORS. LHC00280 | 00015 -0774 00 4 00016 CSH1 AXC *+1,4 LHC00290 | 00016 0522 60 0 00001 XEC* $(TCO) LHC00300 00017 -0774 00 4 00021 AXC *+2,4 LHC00310 | 00020 0522 60 0 00002 XEC* $(TEF) LHC00320 | 00021 0522 60 0 00003 XEC* $(RDS) READ DATA CARD. LHC00330 | 00022 -0774 00 4 00145 AXC CTB,4 LHC00340 | 00023 0522 60 0 00004 XEC* $(RCH) LHC00350 | BINARY CARD NO. 9CSH0002 | 00024 0774 00 1 00014 AXT 12,1 CLEAR BCD RECORD AREA. LHC00360 | 00025 0600 00 1 77765 STZ REC+12,1 LHC00370 | 00026 2 00001 1 00025 TIX *-1,1,1 LHC00380 00027 -0774 00 4 00030 AXC *+1,4 LHC00390 | 00030 0522 60 0 00001 XEC* (TCO) LHC00400 | 00031 -0774 00 4 00141 AXC EOF,4 TEST FOR END OF FILE CONDITION LHC00410 | 00032 0522 60 0 00002 XEC* (TEF) LHC00420 | 00033 0774 00 4 00004 AXT 4,4 INITIALIZE LEFT HALF. LHC00430 00034 -0774 00 2 00015 CT9 AXC 13,2 LHC00440 | 00035 0441 00 0 00165 LDI CTG CLEAR SENSE IND. REGISTER. LHC00450 | 00036 -0500 60 4 00161 CT10 CAL* CTD+4,4 3 ROW INTO AC LHC00460 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | CARD TO STORAGE HOLLERITH / 9CSH | 00037 1 00002 2 00040 TXI *+1,2,2 LHC00470 | 00040 -0501 60 4 00161 ORA* CTD+4,4 4 ROW INTO 3 ROW LHC00480 | 00041 0602 00 0 00167 SLW CTH 3 OR 4 ROW TO CTH LHC00490 | 00042 1 77764 2 00043 TXI *+1,2,-12 LHC00500 00043 0441 60 4 00161 LDI* CTD+4,4 Y ROW TO INDICATORS. LHC00510 | 00044 1 00002 2 00045 TXI *+1,2,2 LHC00520 | 00045 0444 60 4 00161 OFT* CTD+4,4 CHECK XROW AGAINST Y ROW LHC00530 | 00046 0020 00 0 00136 CT11 TRA ERR ZONE PUNCH ERROR. LHC00540 | 00047 0442 60 4 00161 OSI* CTD+4,4 LHC00550 | BINARY CARD NO. 9CSH0003 | 00050 0604 00 0 00171 STI CTI STORE X OR Y. LHC00560 | 00051 1 00024 2 00052 TXI *+1,2,20 LHC00570 | 00052 0441 60 4 00161 LDI* CTD+4,4 9 ROW TO INDICATORS LHC00580 00053 1 77760 2 00054 TXI *+1,2,-16 LHC00590 | 00054 0774 00 1 00007 AXT 7,1 LHC00600 | 00055 0444 60 4 00161 CT12 OFT* CTD+4,4 CHECK ROWS 9, 1 THRU 7 LHC00610 | 00056 0020 00 0 00136 CT13 TRA ERR NUMERIC PUNCH ERROR LHC00620 | 00057 0442 60 4 00161 OSI* CTD+4,4 9,1 THRU 7 ORED INTO SIR LHC00630 00060 1 00002 2 00061 TXI *+1,2,2 LHC00640 | 00061 2 00001 1 00055 TIX CT12,1,1 LHC00650 | 00062 0440 00 0 00167 IIS CTH TAKE 3 OR 4 OUT OF INDICATORS LHC00660 | 00063 0444 60 4 00161 OFT* CTD+4,4 CHECK 8 ROW AGAINST 9,7,6,5,2,1 LHC00670 | 00064 0020 00 0 00136 TRA ERR NUMERIC PUNCH ERROR LHC00680 00065 0442 60 4 00161 OSI* CTD+4,4 8 ROW ORED INTO INDICATORS LHC00690 | 00066 0442 00 0 00167 OSI CTH 9 THRU 1 ORED INTO INDICATORS LHC00700 | 00067 1 77760 2 00070 TXI *+1,2,-16 LHC00710 | 00070 -0046 00 0 00000 PIA SIR TO AC LHC00720 | 00071 -0320 60 4 00161 ANA* CTD+4,4 LHC00730 00072 0602 00 0 00167 SLW CTH STORE ZERO ZONES LHC00740 | 00073 -0320 00 0 00171 ANA CTI LHC00750 | | BINARY CARD NO. 9CSH0004 | 00074 -0100 00 0 00136 TNZ ERR ZONE PUNCH ERROR LHC00760 00075 -0500 60 4 00161 CAL* CTD+4,4 LHC00770 | 00076 0043 00 0 00000 OAI LHC00780 | 00077 0442 00 0 00171 OSI CTI ALL PUNCHES ORED INTO SIR LHC00790 | 00100 -0320 00 0 00171 ANA CTI LHC00800 | 00101 0602 60 4 00161 SLW* CTD+4,4 ONLY 0 UNDER X OR Y STORED IN 0 ROWLHC00810 00102 -0046 00 0 00000 PIA LHC00820 | 00103 0760 00 0 00006 COM ALL BLANKS IN AC LHC00830 | 00104 -0501 00 0 00167 ORA CTH ALL ZERO ZONES AS WELL LHC00840 | 00105 1 77772 2 00106 TXI *+1,2,-6 LHC00850 | 00106 0602 60 4 00161 SLW* CTD+4,4 ALL ZERO ZONES AND BLANKS TO Z ROW LHC00860 00107 0774 00 1 00006 CT20 AXT 6,1 LHC00870 | 00110 -0500 60 4 00161 CAL* CTD+4,4 LHC00880 | 00111 0602 00 0 00167 SLW CTH LHC00890 | 00112 0560 00 0 00167 CT21 LDQ CTH LHC00900 | 00113 0634 00 1 00120 SXA X1,1 LHC00910 00114 0774 00 1 00006 AXT 6,1 LHC00920 | 00115 0767 00 0 00005 CT22 ALS 5 LHC00930 | 00116 -0763 00 0 00001 LGL 1 LHC00940 | 00117 2 00001 1 00115 TIX CT22,1,1 LHC00950 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 CARD TO STORAGE HOLLERITH / 9CSH | | BINARY CARD NO. 9CSH0005 | 00120 0774 00 1 00000 X1 AXT ..,1 LHC00960 | 00121 -0600 00 0 00167 STQ CTH LHC00970 00122 -0130 00 0 00000 XCL LHC00980 | 00123 0200 00 2 00143 CT23 MPY CTA-1,2 LHC00990 | 00124 0763 00 0 00043 LLS 35 LHC01000 | 00125 0361 60 4 00165 ACL* CTE+4,4 LHC01010 | 00126 0602 60 4 00165 SLW* CTE+4,4 LHC01020 00127 2 00001 1 00112 TIX CT21,1,1 THRU THIS HALF ROW LHC01030 | 00130 3 77775 2 00132 CT24 TXH CT25,2,-3 YES. THRU THIS HALF ROW LHC01040 | 00131 1 00002 2 00107 TXI CT20,2,2 NO. TAKE NEXT HALF ROW LHC01050 | 00132 2 00002 4 00034 CT25 TIX CT9,4,2 THRU THIS CARD LHC01060 | 00133 0441 00 0 00173 CT26 LDI CTJ RESTORE INDICATORS LHC01070 00134 0774 00 4 00000 X4 AXT ..,4 LHC01080 | 00135 0020 00 4 00001 TRA 1,4 RETURN TO MAIN PROGRAM LHC01090 | 00136 0441 00 0 00140 ERR LDI *+2 LHC01100 | 00137 0020 60 0 00005 TRA* $(EXE) EXECUTION ERROR LHC01110 | 00140 0 00015 2 00000 PZE 0,2,CSH1 ILLEGAL CARD CHARACTER LHC01120 00141 0441 00 0 00143 EOF LDI *+2 LHC01130 | 00142 0020 60 0 00005 TRA* $(EXE) EXECUTION ERROR LHC01140 | 00143 0 00015 2 00001 PZE 1,2,CSH1 END OF FILE LHC01150 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHC01160 | BINARY CARD NO. 9CSH0006 | 00144 +000000000011 CTA OCT 11 CONSTANTS AND WORKING LHC01170 | 00145 0 00030 0 77635 CTB PZE 9ROWL,0,24 STORAGE FOLLOW.... LHC01180 | 00146 +000000000010 OCT 10 LHC01190 | 00147 0 00000 0 00000 PZE LHC01200 00150 +000000000007 OCT 7 LHC01210 | 00151 0 00000 0 00000 PZE LHC01220 | 00152 +000000000006 OCT 6 LHC01230 | 00153 0 00000 0 00000 PZE LHC01240 | 00154 +000000000005 OCT 5 LHC01250 00155 0 00000 2 77634 CTD PZE 9ROWL-1,2 LHC01260 | 00156 +000000000004 OCT 4 LHC01270 | 00157 0 00000 2 77635 PZE 9ROWL,2 LHC01280 | 00160 +000000000003 OCT 3 LHC01290 | 00161 0 00000 1 77757 CTE PZE REC+6,1 LHC01300 00162 +000000000002 OCT 2 LHC01310 | 00163 0 00000 1 77765 PZE REC+12,1 LHC01320 | 00164 +000000000001 CTF OCT 1 LHC01330 | 00165 0 00000 0 00000 CTG PZE LHC01340 | 00166 +000000000012 OCT 12 LHC01350 00167 0 00000 0 00000 CTH PZE LHC01360 | | BINARY CARD NO. 9CSH0007 | 00170 +000000000040 OCT 40 LHC01370 | 00171 0 00000 0 00000 CTI PZE LHC01380 00172 +000000000020 OCT 20 LHC01390 | 00173 0 00000 0 00000 CTJ PZE LHC01400 | 00174 +000000000060 OCT 60 LHC01410 | 77751 COMMON -206+BUFSIZ LHC01420 | 77751 REC COMMON 76 BCD RECORD BUFFER. LHC01430 77635 9ROWL COMMON 1 HOLLERITH INPUT BUFFER. LHC01440 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHC01450 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | CARD TO STORAGE HOLLERITH / 9CSH | 00000 .. EQU 0 LHC01460 | END LHC01470 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77634 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 175 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 120, 134, 175 120 X1 113 | 134 X4 13 | 13 CSH 12 | 34 CT9 132 | 144 CTA 123 145 CTB 22 | 155 CTD 36, 40, 43, 45, 47, 52, 55, 57, 63, 65, 71, 75, 101, 106, 110 | 161 CTE 125, 126 | 164 CTF | 165 CTG 35 167 CTH 41, 62, 66, 72, 104, 111, 112, 121 | 171 CTI 50, 73, 77, 100 | 173 CTJ 14, 133 | 141 EOF 31 | 136 ERR 46, 56, 64, 74 77751 REC 25, 161, 163, 175 | 15 CSH1 140, 143 | 36 CT10 | 46 CT11 | 55 CT12 61 56 CT13 | 107 CT20 131 | 112 CT21 127 | 115 CT22 117 | 123 CT23 130 CT24 | 132 CT25 130 | 133 CT26 | 77635 9ROWL 145, 155, 157, 175 | 6 (CSH) 0 5 (EXE) 137, 142 | 0 (IOH) 10 | 4 (RCH) 23 | 3 (RDS) 21 | 1 (TCO) 16, 30 2 (TEF) 20, 32 | 26 BUFSIZ 6, 175 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9TSH (IOEX VERSION) LHI00000 * FAP LHI00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | TAPE TO STORAGE HOLLERITH / 9TSH | | * READ INPUT TAPE N,K LINKAGE COMPILED BY I/O TRANSLATOR.LHI00070 | * LHI00080 *A CAL N UNIT DESIGNATION LHI00090 | * TSX (TSH),4 TAPE TO STORAGE HOLLERITH LHI00100 | * PZE 8)K FORMAT DESIGNATION. LHI00110 | *A1 ... .. INDEXING. LHI00120 | *B STR INPUT. LHI00130 * STQ SYMBOL,TAG LIST. LHI00140 | *B1 ... .. INDEXING. LHI00150 | *C TSX (RTN),4 RETURN LHI00160 | * LHI00170 | BINARY CARD NO. 9TSH0000 | 00005 ENTRY (TSH) LHI00175 | 00005 ENTRY (TSHM) SET BY MONITOR AT OBJECT TIME LHI00180 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LHI00190 | TRANSFER VECTOR | | BINARY CARD NO. 9TSH0001 | 00000 743146303460 (IOH) | 00001 745124623460 (RDS) 00002 745124233460 (RDC) | 00003 745123303460 (RCH) | 00004 745125513460 (RER) | | 00026 BUFSIZ EQU 22 RECORD BUFFER SIZE LHI00200 00005 (TSH) SYN * LHI00205 | 00005 0560 00 0 00007 (TSHM) LDQ *+2 PICKUP SWITCH SETTING,AND LHI00210 | 00006 0020 60 0 00000 TRA* $(IOH) *GO INITIALIZE (IOH). LHI00220 | 00007 0761 00 0 00010 NOP TSH INPUT/TAPE TO STORAGE HOLLERITH LHI00230 | * REENTRY FROM (IOH) LHI00240 00010 0634 00 4 00020 TSH SXA TSHX,4 SAVE RETURN INDEX. LHI00250 | 00011 0522 60 0 00001 XEC* $(RDS) SELECT CURRENT UNIT LHI00260 | 00012 -0774 00 4 00022 AXC TSHC,4 INITIALIZE LHI00270 | 00013 0754 00 4 00000 PXA ,4 FOR LHI00280 | 00014 0621 60 0 00002 STA* $(RDC) READ CHECKING. LHI00290 00015 0522 60 0 00003 XEC* $(RCH) READ ONE TAPE RECORD LHI00300 | 00016 -0500 00 0 00007 CAL (TSHM)+2 SET SWITCH (RER) LHI00310 | 00017 0622 60 0 00004 STD* $(RER) TO CHECK READING. LHI00320 | 00020 0774 00 4 00000 TSHX AXT ..,4 RESTORE RETURN INDEX LHI00330 | 00021 0020 60 0 00004 TRA* $(RER) *EXIT TO CHECK READING LHI00340 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LHI00350 | 00022 3 00026 0 77751 TSHC IORT REC,,BUFSIZ READ 1 20 WORD RECORD LHI00360 | 77751 COMMON -206+BUFSIZ LHI00370 | 77751 REC COMMON 1 INPUT BUFFER LHI00380 | 00000 .. EQU 0 LHI00390 END LHI00400 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77750 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 23 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 20, 23 | 77751 REC 22, 23 10 TSH 7 | 22 TSHC 12 | 20 TSHX 10 | 0 (IOH) 6 | 3 (RCH) 15 2 (RDC) 14 | 1 (RDS) 11 | 4 (RER) 17, 21 | 5 (TSH) 0, 5 | 26 BUFSIZ 5, 22, 23 5 (TSHM) 0, 16 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9STH (IOEX VERSION) LHO00000 * FAP LHO00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | STORAGE TO TAPE HOLLERITH / 9STH | | SST FORTRAN $LHO00060 | * WRITE OUTPUT TAPE N,K LINKAGE COMPILED BY I/O TRANSLATOR.LHO00080 * LHO00090 | *A CAL N UNIT DESIGNATION LHO00100 | * TSX (STH),4 STORAGE TO TAPE HOLLERITH. LHO00110 | * PZE 8)K FORMAT DESIGNATION. LHO00120 | *A1 ... .. INDEXING. LHO00130 *B LDQ SYMBOL,TAG OUTPUT LHO00140 | * STR LIST. LHO00150 | *B1 ... .. INDEXING LHO00160 | *C TSX (FIL),4 FILL OUT RECORD LHO00170 | * LHO00180 | BINARY CARD NO. 9STH0000 | 00006 ENTRY (STH) LHO00190 | 00011 ENTRY (STHM) LHO00200 | 00014 ENTRY (STHD) LHO00210 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LHO00220 | | TRANSFER VECTOR | | BINARY CARD NO. 9STH0001 00000 743146303460 (IOH) | 00001 746325623460 (TES) | 00002 746651623460 (WRS) | 00003 745123303460 (RCH) | 00004 746663233460 (WTC) 00005 746625513460 (WER) | | 00026 BUFSIZ EQU 22 RECORD BUFFER SIZE LHO00230 | * LHO00240 | 00006 0560 00 0 00010 (STH) LDQ *+2 PICKUP SWITCH SETTING,AND LHO00250 00007 0020 60 0 00000 TRA* $(IOH) *GO INITIALIZE (IOH). LHO00260 | 00010 0020 00 0 00030 TRA STH OUTPUT / STORAGE TO TAPE HOLLERITH.LHO00270 | * LHO00280 | 00011 0560 00 0 00013 (STHM) LDQ *+2 PICKUP SWITCH SETTING,AND LHO00290 | 00012 0020 60 0 00000 TRA* $(IOH) *GO INITIALIZE (IOH). LHO00300 00013 0020 00 0 00025 TRA STHM OUTPUT / TAPE MONITOR. LHO00310 | * LHO00320 | 00014 0560 00 0 00016 (STHD) LDQ *+2 PICKUP SWITCH SETTING,AND LHO00330 | 00015 0020 60 0 00000 TRA* $(IOH) *GO INITIALIZE (IOH). LHO00340 | 00016 0020 00 0 00056 TRA STHD OUTPUT / DEBUG. LHO00350 * LHO00360 | 00017 0441 00 0 00072 STHDA LDI SIND RESTORE INDICATORS. LHO00370 | 00020 0774 00 4 00000 AXT 0,4 COUNT OF DEBUG LINES PRINTED. LHO00380 | 00021 3 01750 4 00054 TXH STHX,4,1000 LEAVE IF NUMBER EXCEEDED. LHO00390 | 00022 1 00001 4 00023 TXI *+1,4,1 UPDATE LINE COUNT LHO00400 00023 0634 00 4 00020 SXA *-3,4 AND SAVE. LHO00410 | | BINARY CARD NO. 9STH0002 | 00024 0534 00 4 00054 LXA STHX,4 RESTORE RETURN INDEX. LHO00420 | * LHO00430 00025 -0500 00 0 03731 STHM CAL LINECT INCREASE LHO00440 | 00026 0401 00 0 00033 ADM *+5 LINE COUNT LHO00450 | 00027 0621 00 0 03731 STA LINECT BY ONE. LHO00460 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | STORAGE TO TAPE HOLLERITH / 9STH | * LHO00470 | 00030 0634 00 4 00054 STH SXA STHX,4 SAVE RETURN INDEX. LHO00480 | 00031 0522 60 0 00001 XEC* $(TES) *GO CHECK PREVIOUS WRITE. LHO00490 | 00032 0534 00 4 00054 LXA STHX,4 SET LHO00500 00033 -0500 00 4 00001 CAL 1,4 WORD COUNT LHO00510 | 00034 0622 00 0 00075 STD STHC OF WRITE COMMAND. LHO00520 | 00035 0774 00 4 00000 AXT 0,4 MOVE LHO00530 | 00036 0634 00 2 00044 SXA *+6,2 RECORD LHO00540 | 00037 -0734 00 2 00000 PDX ,2 INTO LHO00550 00040 -0500 00 4 77751 CAL REC,4 LHO00560 | 00041 0602 00 4 00076 SLW OUTPUT,4 BUFFER. LHO00570 | 00042 1 77777 4 00043 TXI *+1,4,-1 .. LHO00580 | 00043 2 00001 2 00040 TIX *-3,2,1 .. LHO00590 | 00044 0774 00 2 00000 AXT ..,2 .. LHO00600 00045 0522 60 0 00002 XEC* $(WRS) SELECT CURRENT UNIT. LHO00610 | 00046 -0774 00 4 00075 AXC STHC,4 LHO00620 | 00047 0522 60 0 00003 XEC* $(RCH) WRITE ONE TAPE RECORD. LHO00630 | | BINARY CARD NO. 9STH0003 00050 0754 00 4 00000 PXA ,4 INITIALIZE LHO00640 | 00051 0621 60 0 00004 STA* $(WTC) FOR LHO00650 | 00052 -0500 00 0 00074 CAL TES WRITE LHO00660 | 00053 0602 60 0 00001 SLW* $(TES) CHECKING. LHO00670 | 00054 0774 00 4 00000 STHX AXT ..,4 RESTORE RETURN INDEX. LHO00680 00055 0020 00 4 00002 TRA 2,4 EXIT TO (IOH). LHO00690 | 00056 0604 00 0 00072 STHD STI SIND SAVE INDICATORS. LHO00700 | 00057 0441 00 0 00073 LDI BLKS LOAD INDICATORS WITH BLANKS. LHO00710 | 00060 0634 00 4 00054 SXA STHX,4 SAVE RETURN INDEX. LHO00720 | 00061 -0500 00 4 00001 CAL 1,4 PUT 2S COMPLEMENT OF NUMBER OF LHO00730 00062 -0737 00 4 00000 PDC 0,4 WORDS IN OUTPUT RECORD INTO IR C LHO00740 | 00063 1 00003 4 00064 TXI *+1,4,3 AND REDUCE BY 3 LHO00750 | 00064 0446 00 4 77752 ONT REC+1,4 CHECK FOR NON ZERO AND NON BLANK. LHO00760 | 00065 0020 00 0 00017 TRA STHDA FOUND (PRINT THIS LINE). LHO00770 | 00066 1 00001 4 00067 TXI *+1,4,1 EXAMINE NEXT WORD LHO00780 00067 3 00000 4 00064 TXH *-3,4,0 OF OUTPUT RECORD. LHO00790 | 00070 0441 00 0 00072 LDI SIND ENTIRE LINE HAS ONLY ZERO NUMERICS,LHO00800 | 00071 0020 00 0 00054 TRA STHX CONSEQUENTLY DO NOT PRINT. LHO00810 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LHO00820 | 00072 0 00000 0 00000 SIND PZE LHO00830 00073 606060606060 BLKS BCI 1 LHO00840 | | BINARY CARD NO. 9STH0004 | 00074 0074 00 4 00005 TES TSX $(WER),4 WRITE CHECKING INSTRUCTION LHO00850 | 00075 -3 00000 0 00076 STHC IOST OUTPUT,,.. WRITE COMMAND LHO00860 00076 OUTPUT BSS BUFSIZ LHO00870 | 77751 COMMON -206+BUFSIZ LHO00880 | 77751 REC COMMON 1 RECORD BUFFER LHO00890 | 00000 .. EQU 0 LHO00900 | END LHO00910 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77750 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 124 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 44, 54, 75, 124 | 77751 REC 40, 64, 124 | 30 STH 10 74 TES 52 | 73 BLKS 57 | 72 SIND 17, 56, 70 | 75 STHC 34, 46 | 56 STHD 16 25 STHM 13 | 54 STHX 21, 24, 30, 32, 60, 71 | 17 STHDA 65 | 0 (IOH) 7, 12, 15 | 3 (RCH) 47 6 (STH) 0 | 1 (TES) 31, 53 | 5 (WER) 74 | 2 (WRS) 45 | 4 (WTC) 51 73600 BOTIOP | 3734 BOTTOM | 26 BUFSIZ 6, 76, 124 | 3732 DATEBX | 2 FINTAP 3730 FLAGBX | 134 .CHEXI | 135 .MODSW | 1 LIBTAP | 3731 LINECT 25, 27 7 MBNTAP | 10 MCHTAP | 5 MINTAP | 6 MLSTAP | 76 OUTPUT 41, 75 3 SINTAP | 11 SNPTAP | 122 SYSACC | 114 SYSCEM | 155 SYSCK1 156 SYSCK2 | 120 SYSCOR | 144 SYSCRD | 102 SYSCUR | 124 SYSCYD 101 SYSDAT | 115 SYSDMP | 77777 SYSEND | 132 SYSGET | 117 SYSIDR 151 SYSIN1 | 152 SYSIN2 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | 116 SYSIOX | 133 SYSJOB | 104 SYSKEY | 140 SYSLB1 | 141 SYSLB2 142 SYSLB3 | 143 SYSLB4 | 121 SYSLDR | 3720 SYSORG | 147 SYSOU1 150 SYSOU2 | 146 SYSPCH | 123 SYSPID | 106 SYSPOS | 153 SYSPP1 154 SYSPP2 | 145 SYSPRT | 103 SYSRET | 113 SYSRPT | 126 SYSSLD 105 SYSSWS | 1 SYSTAP | 127 SYSTCH | 100 SYSTRA | 131 SYSTWT 111 SYSUAV | 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 160 SYSUT2 | 161 SYSUT3 | 162 SYSUT4 | 4 TINTAP | 77677 TOPMEM 702 (ACTIV | 703 (ACTVX | 720 (BCD5R | 721 (BCD5X | 10000 (CHKU) 741 (CHPSW | 724 (CHXAC | 750 (CHXSP | 717 (CKWAT | 746 (COMMD 736 (COMMM | 722 (CVPRT | 73662 (DATE) | 716 (DECVA | 715 (DECVD 73645 (DGLD) | 73603 (DIAG) | 710 (ENBSW | 73665 (ENDS) | 732 (ETTXI 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | | 743 (FDAMT | 73660 (FGBX) 747 (IBCDZ | 740 (IOXSI | 73667 (LBLD) | 73652 (LIBT) | 73661 (LNCT) 73600 (LOAD) | 73666 (LODR) | 737 (LTPOS | 73644 (MECL) | 73664 (MSLN) 704 (NDATA | 705 (NDSLX | 712 (PAUSE | 711 (PAWSX | 3733 (PCBK) 73651 (PGCT) | 73614 (PNCH) | 73611 (PRNT) | 706 (PROUT | 707 (PUNCH 40014 (RBEC) | 40004 (RBEP) | 40010 (RBNC) | 40000 (RBNP) | 727 (RCHXI 726 (RCTXI | 40016 (RDEC) | 40006 (RDEP) | 40012 (RDNC) | 40002 (RDNP) 73622 (REST) | 73672 (SCHU) | 744 (SDCXI | 73643 (SECL) | 20010 (SKBC) 20000 (SKBP) | 20012 (SKDC) | 20002 (SKDP) | 1000 (SNAP) | 73663 (SNCT) 73617 (STAT) | 745 (STCXI | 73626 (STDN) | 14 (STHD) 0 | 11 (STHM) 0 723 (STOPD | 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) | 714 (SYMUN 73606 (TAPE) | 730 (TCOXI | 733 (TEFXI | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | 4000 (TPER) | 735 (TRAPS | 734 (TRAPX | 731 (TRCXI 742 (TRPSW | 725 (URRXI | 40011 (WBNC) | 40001 (WBNP) | 40013 (WDNC) 40003 (WDNP) | 40015 (WEFC) | 40005 (WEFP) | 40031 (WROW) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9SCH LHP00000 * FAP LHP00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | STORAGE TO CARD HOLLERITH / 9SCH | | * PUNCH K LINKAGE COMPILED BY I/O TRANSLATOR.LHP00070 | * LHP00080 *A TSX (SCH),4 STORAGE TO CARD HOLLERITH. LHP00090 | * PZE 8)K FORMAT DESIGNATION. LHP00100 | *A1 ... .. INDEXING. LHP00110 | *B LDQ SYMBOL,TAG OUTPUT LHP00120 | * STR LIST. LHP00130 *B1 ... .. INDEXING. LHP00140 | *C TSX (FIL),4 FILL OUT CARD. LHP00150 | * LHP00160 | | BINARY CARD NO. 9SCH0000 00004 ENTRY (SCH) LHP00170 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHP00180 | | TRANSFER VECTOR | BINARY CARD NO. 9SCH0001 | 00000 743146303460 (IOH) | 00001 746323463460 (TCO) | 00002 746651623460 (WRS) | 00003 745123303460 (RCH) | 00026 BUFSIZ EQU 22 RECORD BUFFER SIZE. LHP00190 | * LHP00200 | 00004 0560 00 0 00010 (SCH) LDQ *+4 (SCH) CONVERTS BCD RECORD LHP00210 | 00005 0500 00 0 00007 CLA *+2 TO PUNCH IMAGE AND PUNCHES LHP00220 00006 0020 60 0 00000 TRA* $(IOH) OUT HOLLERITH OUTPUT DATA CARDS. LHP00230 | 00007 -0 00002 0 00000 MZE 0,0,2 UNIT DESIGNATION. LHP00240 | 00010 0020 00 0 00011 TRA SCH OUTPUT / STORAGE TO CARD HOLLERITH.LHP00250 | * LHP00260 | 00011 0500 00 4 00001 SCH CLA 1,4 OBTAIN BCD RECORD BEGINNING LHP00270 00012 0771 00 0 00022 ARS 18 LHP00280 | 00013 0400 00 4 00001 ADD 1,4 OBTAIN WORD COUNT LHP00290 | 00014 0634 00 1 00125 SXA P1,1 LHP00300 | 00015 0634 00 2 00126 SXA P2,2 LHP00310 | 00016 0634 00 4 00127 SXA P4,4 LHP00320 00017 -0734 00 4 00000 PDX ,4 LHP00330 | 00020 0634 00 4 00033 SXA SAVE,4 SAVE WORD COUNT LHP00340 | 00021 0621 00 0 00025 STA PR2 LHP00350 | 00022 0621 00 0 00042 STA CIG LHP00360 | 00023 0500 00 0 00131 CLA BLNKS FIND LAST NON-BLANK WORD LHP00370 | BINARY CARD NO. 9SCH0002 | 00024 0774 00 4 00001 AXT 1,4 LHP00380 | 00025 0340 00 4 00000 PR2 CAS ..,4 LHP00390 | 00026 1 77777 4 00031 TXI PR1,4,-1 LHP00400 00027 1 00001 4 00025 TXI PR2,4,1 LHP00410 | 00030 1 77777 4 00031 TXI PR1,4,-1 LHP00420 | 00031 -0634 00 4 00074 PR1 SXD CI6,4 STORE END TEST LHP00430 | 00032 -0634 00 4 00110 SXD CI8,4 LHP00440 | 00033 0774 00 4 00000 SAVE AXT ..,4 LHP00450 00034 0774 00 1 00040 AXT 32,1 CLEAR PUNCH IMAGE BUFFER LHP00460 | 00035 0600 00 1 77667 STZ CDIM+7,1 LHP00470 | 00036 2 00001 1 00035 TIX *-1,1,1 LHP00480 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | STORAGE TO CARD HOLLERITH / 9SCH | 00037 0774 00 1 00001 AXT 1,1 CONVERT LEFT HALF OF PUNCH IMAGE LHP00490 | 00040 -0500 00 0 00140 CIR CAL COL1 INITIALIZE BIT INDICATOR LHP00500 | 00041 0602 00 0 00141 CI2 SLW COL LHP00510 | 00042 0560 00 4 00000 CIG LDQ ..,4 LHP00520 00043 0634 00 4 00072 SXA WC,4 LHP00530 | 00044 -0754 00 0 00000 LOOP ZAC LHP00540 | 00045 -0763 00 0 00006 LGL 6 LHP00550 | 00046 0340 00 0 00132 CAS BNK TEST IF CHARACTER IS BLANK LHP00560 | 00047 0020 00 0 00051 TRA *+2 NO. LHP00570 | BINARY CARD NO. 9SCH0003 | 00050 0020 00 0 00114 TRA SKIPR YES. SKIP BLANK CHARACTER LHP00580 | 00051 -0765 00 0 00004 LGR 4 LHP00590 | 00052 0322 00 0 00143 ERA ZNR TEST FOR ZONE PUNCH LHP00600 00053 0767 00 0 00001 ALS 1 LHP00610 | 00054 0737 00 4 00000 PAC 0,4 LHP00620 | 00055 0760 00 0 00000 CLM LHP00630 | 00056 -0763 00 0 00004 LGL 4 LHP00640 | 00057 0767 00 0 00001 ALS 1 LHP00650 00060 0734 00 2 00000 PAX 0,2 LHP00660 | 00061 -0500 00 0 00141 CAL COL LHP00670 | 00062 3 00000 2 00064 TXH *+2,2,0 TEST FOR LHP00680 | 00063 3 77772 4 00065 TXH *+2,4,-6 PLUS AND MINUS SIGNS LHP00690 | 00064 -0602 60 1 00135 ORS* MTTA+1,1 SET UP TO $LHP00700 00065 -0602 60 1 00137 ORS* MTTB+1,1 CONVERT CHARACTERS. $LHP00710 | 00066 0771 00 0 00001 SKIP1 ARS 1 ADVANCE BIT INDICATOR LHP00720 | 00067 0602 00 0 00141 SLW COL LHP00730 | 00070 -0320 00 0 00142 ANA WDMSK LHP00740 | 00071 -0100 00 0 00044 TNZ LOOP END OF CHARACTER TEST LHP00750 00072 0774 00 4 00000 WC AXT ..,4 OBTAIN NEXT WORD LHP00760 | 00073 1 77777 4 00074 TXI CI6,4,-1 LHP00770 | | BINARY CARD NO. 9SCH0004 | 00074 -3 00000 4 00077 CI6 TXL HFCD,4,.. LAST NON-BLANK WORD END TEST LHP00780 00075 -0500 00 0 00141 CAL COL LHP00790 | 00076 -0100 00 0 00041 TNZ CI2 LHP00800 | 00077 -0500 00 1 77630 HFCD CAL CDIM-24,1 LEFT,RIGHT HALF BCD BITS SOTRED LHP00810 | 00100 -0602 00 1 77640 ORS CDIM-16,1 AS PUNCH IMAGE BITS LHP00820 | 00101 -0602 00 1 77650 ORS CDIM-8,1 IX1=1 FOR LEFT HALF CONVERSION LHP00830 00102 -0500 00 1 77632 CAL CDIM-22,1 IX1=0 FOR RIGHT HALF CONVERSION LHP00840 | 00103 -0602 00 1 77640 ORS CDIM-16,1 LHP00850 | 00104 -0602 00 1 77652 ORS CDIM-6,1 LHP00860 | 00105 -0500 00 1 77634 CAL CDIM-20,1 LHP00870 | 00106 -0602 00 1 77640 ORS CDIM-16,1 LHP00880 00107 -0602 00 1 77654 ORS CDIM-4,1 LHP00890 | 00110 -3 00000 4 00116 CI8 TXL CARD,4,.. IS IMAGE CONVERSION COMPLETE LHP00900 | 00111 -3 00000 1 00116 TXL CARD,1,0 NO. IS RIGHT HALF COMPLETED LHP00910 | 00112 0774 00 1 00000 AXT 0,1 NO. RETURN FOR RIGHT HALF LHP00920 | 00113 0020 00 0 00040 TRA CIR OF PUNCH IMAGE. LHP00930 00114 -0500 00 0 00141 SKIPR CAL COL SKIP BLANK CHARACTER LHP00940 | 00115 0020 00 0 00066 TRA SKIP1 AND ADVANCE BIT INDICATOR LHP00950 | 00116 -0774 00 4 00117 CARD AXC *+1,4 PUNCH OUT HOLLERITH CARD LHP00960 | 00117 0522 60 0 00001 XEC* $(TCO) LHP00970 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 STORAGE TO CARD HOLLERITH / 9SCH | | BINARY CARD NO. 9SCH0005 | 00120 0522 60 0 00002 XEC* $(WRS) LHP00980 | 00121 -0774 00 4 00133 AXC WTCD,4 LHP00990 00122 0522 60 0 00003 XEC* $(RCH) LHP01000 | 00123 -0774 00 4 00124 AXC *+1,4 LHP01010 | 00124 0522 60 0 00001 XEC* (TCO) LHP01020 | 00125 0774 00 1 00000 P1 AXT ..,1 LHP01030 | 00126 0774 00 2 00000 P2 AXT ..,2 LHP01040 00127 0774 00 4 00000 P4 AXT ..,4 LHP01050 | 00130 0020 00 4 00002 TRA 2,4 RETURN TO MAIN PROGRAM LHP01060 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHP01070 | 00131 606060606060 BLNKS BCI 1, LHP01080 | 00132 000000000060 BNK BCI 1,00000 LHP01090 00133 0 00030 0 77635 WTCD PZE CDIM-19,0,24 LHP01100 | 00134 0 00000 2 77657 MTTA PZE CDIM-1,2 MULTIPLE TAG TABLES $LHP01105 | 00135 0 00000 2 77660 PZE CDIM-0,2 . $LHP01106 | 00136 0 00000 4 77657 MTTB PZE CDIM-1,4 . $LHP01107 | 00137 0 00000 4 77660 PZE CDIM-0,4 . $LHP01108 00140 -0 00000 0 00000 COL1 MZE LHP01110 | 00141 0 00000 0 00000 COL PZE LHP01120 | 00142 -373737373737 WDMSK OCT 773737373737 LHP01130 | 00143 +000000000003 ZNR OCT 3 LHP01140 | * LHP01150 77751 COMMON -206+BUFSIZ LHP01160 | 77751 REC COMMON 57 BCD RECORD BUFFER LHP01170 | 77660 CDIM COMMON 26 PUNCH IMAGE BUFFER LHP01180 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHP01190 | 00000 .. EQU 0 LHP01200 END LHP01210 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77626 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 144 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 25, 33, 42, 72, 74, 110, 125, 126, 127, 144 | 125 P1 14 126 P2 15 | 127 P4 16 | 72 WC 43 | 132 BNK 46 | 41 CI2 76 74 CI6 31, 73 | 110 CI8 32 | 42 CIG 22 | 40 CIR 113 | 141 COL 41, 61, 67, 75, 114 31 PR1 26, 30 | 25 PR2 21, 27 | 77751 REC 144 | 11 SCH 10 | 143 ZNR 52 116 CARD 110, 111 | 77660 CDIM 35, 77, 100, 101, 102, 103, 104, 105, 106, 107, 133, 134, 135, 136, 137, 144 | 140 COL1 40 | 77 HFCD 74 | 44 LOOP 71 134 MTTA 64 | 136 MTTB 65 | 33 SAVE 20 | 133 WTCD 121 | 131 BLNKS 23 66 SKIP1 115 | 114 SKIPR 50 | 142 WDMSK 70 | 0 (IOH) 6 | 3 (RCH) 122 4 (SCH) 0 | 1 (TCO) 117, 124 | 2 (WRS) 120 | 26 BUFSIZ 4, 144 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9SPH LHR00000 * FAP LHR00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | STORAGE TO PRINTER HOLLERITH / 9SPH | | * PRINT K LINKAGE COMPILED BY I/O TRANSLATOR.LHR00070 | * LHR00080 *A TSX (SPH),4 STORAGE TO PRINTER HOLLERITH. LHR00090 | * PZE 8)K FORMAT DESIGNATION. LHR00100 | *A1 ... .. INDEXING. LHR00110 | *B LDQ SYMBOL,TAG OUTPUT LIST. LHR00120 | * STR .. LHR00130 *B1 ... .. INDEXING. LHR00140 | *C TSX (FIL),4 FILL OUT LINE. LHR00150 | * LHR00160 | | BINARY CARD NO. 9SPH0000 00004 ENTRY (SPH) LHR00170 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHR00180 | | TRANSFER VECTOR | BINARY CARD NO. 9SPH0001 | 00000 743146303460 (IOH) | 00001 746651623460 (WRS) | 00002 746323463460 (TCO) | 00003 745123303460 (RCH) | 00026 BUFSIZ EQU 22 RECORD BUFFER SIZE. LHR00190 | * LHR00200 | 00004 0560 00 0 00010 (SPH) LDQ *+4 (SPH) CONVERTS BCD RECORD LHR00210 | 00005 0500 00 0 00007 CLA *+2 TO LINE IMAGE AND PRINTS LHR00220 00006 0020 60 0 00000 TRA* $(IOH) OUTPUT DATA ON LINE. LHR00230 | 00007 -0 00003 0 00000 MZE 0,0,3 UNIT DESIGNATION. LHR00240 | 00010 0020 00 0 00011 TRA SPH OUTPUT / PRINTER HOLLERITH. LHR00250 | * LHR00260 | 00011 0634 00 1 00237 SPH SXA P1,1 LHR00270 00012 0634 00 2 00240 SXA P2,2 LHR00280 | 00013 0634 00 4 00241 SXA P4,4 LHR00290 | 00014 -0500 60 0 00001 CAL* $(WRS) DETERMINE DS CHANNEL LHR00300 | 00015 -0320 00 0 00272 ANA SENMSK INITIALIZE SPECIFIED LHR00310 | 00016 0602 00 0 77666 SLW WORK CHANNEL SENSE HUB SETTINGS LHR00320 00017 0774 00 1 00012 AXT 10,1 LHR00330 | 00020 -0754 00 0 00000 PXD ,0 LHR00340 | 00021 -0500 00 0 77666 CAL WORK LHR00350 | 00022 0361 00 1 00272 ACL SP1+10,1 LHR00360 | 00023 0602 00 1 77666 SLW SPP1+10,1 LHR00370 | BINARY CARD NO. 9SPH0002 | 00024 2 00001 1 00020 TIX *-4,1,1 LHR00380 | 00025 0500 00 4 00001 CLA 1,4 OBTAIN BCD RECORD BEGINNING. LHR00390 | 00026 0621 00 0 00040 STA T5 LHR00400 00027 0621 00 0 00202 STA PRC LHR00410 | 00030 0771 00 0 00022 ARS 18 LHR00420 | 00031 0400 00 4 00001 ADD 1,4 OBTAIN WORD COUNT LHR00430 | 00032 -0734 00 4 00000 PDX ,4 LHR00440 | 00033 0621 00 0 00060 STA PR2 LHR00450 00034 0621 00 0 00104 STA CIG LHR00460 | 00035 0634 00 4 00070 SXA WC,4 SAVE WORD COUNT LHR00470 | 00036 -0500 00 0 00201 CAL TRA LHR00480 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | STORAGE TO PRINTER HOLLERITH / 9SPH | 00037 0622 00 0 00110 STD 1ST LHR00490 | 00040 -0500 00 0 00000 T5 CAL .. OBTAIN PROGRAM CONTROL LHR00500 | 00041 0771 00 0 00036 ARS 30 CHARACTER LHR00510 | 00042 -0100 00 0 00046 TNZ *+4 SET PRINTER CONTROL PANEL LHR00520 00043 -0500 00 0 77657 SSP4 CAL SPP4 SENSE HUBS SPP4(DOUBLE SPACE) LHR00530 | 00044 0602 00 0 00164 SLW LINE+4 LHR00540 | 00045 0020 00 0 00056 TRA BK+5 LHR00550 | 00046 0340 00 0 00244 CAS YZONE LHR00560 | 00047 0020 00 0 00051 TRA BK LHR00570 | BINARY CARD NO. 9SPH0003 | 00050 0020 00 0 00230 TRA SSP5 (SSP5) NO SPACE BEFORE PRINTING LHR00580 | 00051 0340 00 0 00246 BK CAS BNK TEST FOR SINGLE SPACE LHR00590 | 00052 0020 00 0 00054 TRA *+2 LHR00600 00053 0020 00 0 00056 TRA *+3 YES. SINGLE SPACE BEFORE PRINT LHR00610 | 00054 -0500 00 0 00201 CAL TRA INITIALIZE FOR CHANNEL SKIP LHR00620 | 00055 0622 00 0 00163 STD LINE+3 CHARACTER LHR00630 | 00056 0500 00 0 00245 CLA BLNKS FIND LAST NON-BLANK WORD LHR00640 | 00057 0774 00 4 00001 AXT 1,4 LHR00650 00060 0340 00 4 00000 PR2 CAS ..,4 LHR00660 | 00061 1 77777 4 00064 TXI PR1,4,-1 LHR00670 | 00062 1 00001 4 00060 TXI PR2,4,1 LHR00680 | 00063 1 77777 4 00064 TXI PR1,4,-1 LHR00690 | 00064 -0634 00 4 00137 PR1 SXD CI6,4 STORE END TEST LHR00700 00065 -0634 00 4 00153 SXD CI8,4 LHR00710 | 00066 -0634 00 4 00071 SXD PR8,4 LHR00720 | 00067 -0634 00 4 00173 SXD WP4,4 LHR00730 | 00070 0774 00 4 00000 WC AXT ..,4 LHR00740 | 00071 -2 00000 4 00076 PR8 TNX CARD1,4,.. LHR00750 00072 -3 00014 4 00075 TXL PR3,4,12 TEST FOR MORE THAN 72 CHARACTERS LHR00760 | 00073 -0500 00 0 77663 CAL SPP8 YES. SUPPRESS SPACING. LHR00770 | | BINARY CARD NO. 9SPH0004 | 00074 0602 00 0 00165 SLW LINE+5 LHR00780 00075 0534 00 4 00070 PR3 LXA WC,4 LHR00790 | 00076 0774 00 1 00040 CARD1 AXT 32,1 CLEAR IMAGE BUFFER LHR00800 | 00077 0600 00 1 77654 STZ CDIM+7,1 LHR00810 | 00100 2 00001 1 00077 TIX *-1,1,1 LHR00820 | 00101 0774 00 1 00001 AXT 1,1 CONVERT LEFT HALF OF PRINT IMAGE LHR00830 00102 -0500 00 0 00254 CIR CAL COL1 INITIALIZE BIT INDICATOR LHR00840 | 00103 0602 00 0 00255 CI2 SLW COL LHR00850 | 00104 0560 00 4 00000 CIG LDQ ..,4 BEGIN CONVERSION LHR00860 | 00105 0634 00 4 00135 SXA SAVE,4 LHR00870 | 00106 -0754 00 0 00000 LOOP PXD ,0 LHR00880 00107 -0763 00 0 00006 LGL 6 LHR00890 | 00110 0761 00 0 00224 1ST NOP FIX LHR00900 | 00111 0340 00 0 00246 CAS BNK TEST IF CHARACTER IS BLANK LHR00910 | 00112 0020 00 0 00114 TRA *+2 NO. LHR00920 | 00113 0020 00 0 00222 TRA SKIPR YES. SKIP BLANK CHARACTER LHR00930 00114 -0765 00 0 00004 LGR 4 LHR00940 | 00115 0322 00 0 00257 ERA ZNR TEST FOR ZONE PUNCH LHR00950 | 00116 0767 00 0 00001 ALS 1 LHR00960 | 00117 0737 00 4 00000 PAC ,4 LHR00970 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 STORAGE TO PRINTER HOLLERITH / 9SPH | | BINARY CARD NO. 9SPH0005 | 00120 0760 00 0 00000 CLM LHR00980 | 00121 -0763 00 0 00004 LGL 4 LHR00990 00122 0767 00 0 00001 ALS 1 LHR01000 | 00123 0734 00 2 00000 PAX ,2 LHR01010 | 00124 -0500 00 0 00255 CAL COL LHR01020 | 00125 3 00000 2 00127 TXH *+2,2,0 TEST FOR LHR01030 | 00126 3 77772 4 00130 TXH *+2,4,-6 PLUS AND MINUS SIGNS LHR01040 00127 -0602 60 1 00251 ORS* MTTA+1,1 SET UP TO $LHR01050 | 00130 -0602 60 1 00253 ORS* MTTB+1,1 CHARACTERS. $LHR01060 | 00131 0771 00 0 00001 SKIP1 ARS 1 ADVANCE BIT INDICATOR LHR01070 | 00132 0602 00 0 00255 SLW COL LHR01080 | 00133 -0320 00 0 00256 ANA WDMSK LHR01090 00134 -0100 00 0 00106 TNZ LOOP END OF CHARACTER TEST LHR01100 | 00135 0774 00 4 00000 SAVE AXT ..,4 OBTAIN NEXT WORD LHR01110 | 00136 1 77777 4 00137 TXI CI6,4,-1 LHR01120 | 00137 -3 00000 4 00142 CI6 TXL HFCD,4,.. LAST NON-BLANK WORD END TEST LHR01130 | 00140 -0500 00 0 00255 CAL COL LHR01140 00141 -0100 00 0 00103 TNZ CI2 LHR01150 | 00142 -0500 00 1 77615 HFCD CAL CDIM-24,1 LEFT,RIGHT HALF BCD BITS STORED LHR01160 | 00143 -0602 00 1 77625 ORS CDIM-16,1 AS LINE IMAGE BITS LHR01170 | | BINARY CARD NO. 9SPH0006 00144 -0602 00 1 77635 ORS CDIM-8,1 IX1=1 FOR LEFT HALF CONVERSION LHR01180 | 00145 -0500 00 1 77617 CAL CDIM-22,1 IX1=0 FOR RIGHT HALF CONVERSION LHR01190 | 00146 -0602 00 1 77625 ORS CDIM-16,1 LHR01200 | 00147 -0602 00 1 77637 ORS CDIM-6,1 LHR01210 | 00150 -0500 00 1 77621 CAL CDIM-20,1 LHR01220 00151 -0602 00 1 77625 ORS CDIM-16,1 LHR01230 | 00152 -0602 00 1 77641 ORS CDIM-4,1 LHR01240 | 00153 -3 00000 4 00157 CI8 TXL LINE-1,4,.. TEST FOR END LHR01250 | 00154 -3 00000 1 00157 TXL LINE-1,1,0 TEST FOR RIGHT HALF LHR01260 | 00155 0774 00 1 00000 AXT 0,1 RETURN FOR RIGHT HALF OF LINE IMAGELHR01270 00156 0020 00 0 00102 TRA CIR LHR01280 | 00157 0634 00 4 00172 SXA XR4,4 LHR01290 | 00160 -0774 00 4 00161 LINE AXC *+1,4 PRINT OUT LINE IMAGE LHR01300 | 00161 0522 60 0 00002 XEC* $(TCO) LHR01310 | 00162 0522 60 0 00001 XEC* (WRS) LHR01320 00163 0761 00 0 00202 NOP PRC SENSE HUB SETTINGS LHR01330 | 00164 0761 00 0 00000 NOP .. X LHR01340 | 00165 0761 00 0 00000 NOP .. X LHR01350 | 00166 -0774 00 4 00247 AXC WTCD,4 LHR01360 | 00167 0522 60 0 00003 XEC* $(RCH) LHR01370 | BINARY CARD NO. 9SPH0007 | 00170 -0774 00 4 00171 AXC *+1,4 LHR01380 | 00171 0522 60 0 00002 XEC* (TCO) LHR01390 | 00172 0774 00 4 00000 XR4 AXT ..,4 LHR01400 00173 -3 00000 4 00233 WP4 TXL EXIT,4,.. TEST FOR SECOND CYCLE LHR01410 | 00174 -0500 00 0 77664 WP5 CAL SPP9 SECOND PRINT CYCLE LHR01420 | 00175 0602 00 0 00164 SLW LINE+4 SUPPRESS LINE SPACING LHR01430 | 00176 -0500 00 0 00243 CAL NOP LHR01440 | 00177 0622 00 0 00163 STD LINE+3 LHR01450 00200 0622 00 0 00165 STD LINE+5 LHR01460 | 00201 0020 00 0 00076 TRA TRA CARD1 RETURN FOR SECOND CYCLE LHR01470 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | STORAGE TO PRINTER HOLLERITH / 9SPH | 00202 -0500 00 0 00000 PRC CAL .. SENSE HUB SETTINGS FOR LHR01480 | 00203 0771 00 0 00036 ARS 30 PROGRAM CONTROL CHARACTER LHR01490 | 00204 -0320 00 0 00205 ANA MK OTHER THAN BLANK, ZERO OR PLUS. LHR01500 | 00205 0734 00 1 00017 MK PAX 15,1 LHR01510 | 00206 1 00001 1 00207 TXI N2,1,1 LHR01520 00207 -2 00010 1 00211 N2 TNX N3,1,8 LHR01530 | 00210 0522 00 0 77663 XEC SPP8 EXECUTE SENSE HUB IMPULSES LHR01540 | 00211 -2 00004 1 00213 N3 TNX N4,1,4 FOR CHANNEL SKIP LHR01550 | 00212 0522 00 0 77657 XEC SPP4 LHR01560 | 00213 -2 00002 1 00215 N4 TNX N5,1,2 LHR01570 | BINARY CARD NO. 9SPH0008 | 00214 0522 00 0 77655 XEC SPP2 LHR01580 | 00215 -2 00001 1 00217 N5 TNX *+2,1,1 LHR01590 | 00216 0522 00 0 77654 XEC SPP1 LHR01600 00217 0522 60 0 00001 RPR XEC* (WRS) LHR01610 | 00220 0522 00 0 77660 XEC SPP5 LHR01620 | 00221 0020 00 0 00164 TRA LINE+4 LHR01630 | 00222 -0500 00 0 00255 SKIPR CAL COL SKIP BLANK CHARACTER LHR01640 | 00223 0020 00 0 00131 TRA SKIP1 AND ADVANCE BIT INDICATOR LHR01650 00224 -0500 00 0 00243 FIX CAL NOP LHR01660 | 00225 0622 00 0 00110 STD 1ST LHR01670 | 00226 -0500 00 0 00255 CAL COL LHR01680 | 00227 0020 00 0 00131 TRA SKIP1 LHR01690 | 00230 -0500 00 0 77660 SSP5 CAL SPP5 NO SPACE BEFORE PRINTING LHR01700 00231 0602 00 0 00164 SLW LINE+4 LHR01710 | 00232 0020 00 0 00056 TRA BK+5 LHR01720 | 00233 -0500 00 0 00243 EXIT CAL NOP LHR01730 | 00234 0622 00 0 00163 STD LINE+3 LHR01740 | 00235 0622 00 0 00164 STD LINE+4 LHR01750 00236 0622 00 0 00165 STD LINE+5 LHR01760 | 00237 0774 00 1 00000 P1 AXT ..,1 LHR01770 | | BINARY CARD NO. 9SPH0009 | 00240 0774 00 2 00000 P2 AXT ..,2 LHR01780 00241 0774 00 4 00000 P4 AXT ..,4 LHR01790 | 00242 0020 00 4 00002 TRA 2,4 RETURN TO MAIN PROGRAM LHR01800 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHR01810 | 00243 0761 00 0 00000 NOP NOP LHR01820 | 00244 +000000000020 YZONE OCT 20 LHR01830 00245 606060606060 BLNKS BCI 1, LHR01840 | 00246 000000000060 BNK BCI 1,00000 LHR01850 | 00247 0 00030 0 77622 WTCD PZE CDIM-19,0,24 LHR01860 | 00250 0 00000 2 77644 MTTA PZE CDIM-1,2 MULTIPLE TAG TABLES $LHR01865 | 00251 0 00000 2 77645 PZE CDIM-0,2 . $LHR01866 00252 0 00000 4 77644 MTTB PZE CDIM-1,4 . $LHR01867 | 00253 0 00000 4 77645 PZE CDIM-0,4 . $LHR01868 | 00254 -0 00000 0 00000 COL1 MZE LHR01870 | 00255 0 00000 0 00000 COL PZE LHR01880 | 00256 -373737373737 WDMSK OCT 773737373737 LHR01890 00257 +000000000003 ZNR OCT 3 LHR01900 | 00260 +076000000361 SP1 OCT 076000000361 SENSE HUB CONSTANTS LHR01910 | 00261 +076000000362 SP2 OCT 076000000362 MINUS THE CHANNEL BIT LHR01920 | 00262 +076000000363 SP3 OCT 076000000363 LHR01930 | 00263 +076000000364 SP4 OCT 076000000364 LHR01940 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | STORAGE TO PRINTER HOLLERITH / 9SPH | | BINARY CARD NO. 9SPH0010 | 00264 +076000000365 SP5 OCT 076000000365 LHR01950 00265 +076000000366 SP6 OCT 076000000366 LHR01960 | 00266 +076000000367 SP7 OCT 076000000367 LHR01970 | 00267 +076000000370 SP8 OCT 076000000370 LHR01980 | 00270 +076000000371 SP9 OCT 076000000371 LHR01990 | 00271 +076000000372 SP10 OCT 076000000372 LHR02000 00272 +000000007000 SENMSK OCT 000000007000 LHR02010 | 77751 COMMON -206+BUFSIZ LHR02020 | 77751 REC COMMON 51 BCD RECORD BUFFER LHR02030 | 77666 WORK COMMON 1 LHR02040 | 77665 SPP10 COMMON 1 LHR02050 77664 SPP9 COMMON 1 LHR02060 | 77663 SPP8 COMMON 1 LHR02070 | 77662 SPP7 COMMON 1 LHR02080 | 77661 SPP6 COMMON 1 LHR02090 | 77660 SPP5 COMMON 1 LHR02100 77657 SPP4 COMMON 1 LHR02110 | 77656 SPP3 COMMON 1 LHR02120 | 77655 SPP2 COMMON 1 LHR02130 | 77654 SPP1 COMMON 7 LHR02140 | 77645 CDIM COMMON 26 LINE IMAGE BUFFER. LHR02150 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LHR02160 | 00000 .. EQU 0 LHR02170 | END LHR02180 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77613 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 273 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 51 BK 45, 47, 232 | 0 .. 40, 60, 70, 71, 104, 135, 137, 153, 164, 165, 172, 173, 202, 237, 240, 241, 273 | 205 MK 204 | 207 N2 206 | 211 N3 207 213 N4 211 | 215 N5 213 | 237 P1 11 | 240 P2 12 | 241 P4 13 40 T5 26 | 70 WC 35, 75 | 110 1ST 37, 225 | 246 BNK 51, 111 | 103 CI2 141 137 CI6 64, 136 | 153 CI8 65 | 104 CIG 34 | 102 CIR 156 | 255 COL 103, 124, 132, 140, 222, 226 224 FIX 110 | 243 NOP 176, 224, 233 | 64 PR1 61, 63 | 60 PR2 33, 62 | 75 PR3 72 71 PR8 66 | 202 PRC 27, 163 | 77751 REC 273 | 217 RPR | 260 SP1 22 261 SP2 | 262 SP3 | 263 SP4 | 264 SP5 | 265 SP6 266 SP7 | 267 SP8 | 270 SP9 | 11 SPH 10 | 201 TRA 36, 54 173 WP4 67 | 174 WP5 | 172 XR4 157 | 257 ZNR 115 | 77645 CDIM 77, 142, 143, 144, 145, 146, 147, 150, 151, 152, 247, 250, 251, 252, 253, 273 254 COL1 102 | 233 EXIT 173 | 142 HFCD 137 | 160 LINE 44, 55, 74, 153, 154, 175, 177, 200, 221, 231, 234, 235, 236 | 106 LOOP 134 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | | 250 MTTA 127 | 252 MTTB 130 135 SAVE 105 | 271 SP10 | 77654 SPP1 23, 216, 273 | 77655 SPP2 214, 273 | 77656 SPP3 273 77657 SPP4 43, 212, 273 | 77660 SPP5 220, 230, 273 | 77661 SPP6 273 | 77662 SPP7 273 | 77663 SPP8 73, 210, 273 77664 SPP9 174, 273 | 43 SSP4 | 230 SSP5 50 | 77666 WORK 16, 21, 273 | 247 WTCD 166 245 BLNKS 56 | 76 CARD1 71, 201 | 131 SKIP1 223, 227 | 222 SKIPR 113 | 77665 SPP10 273 256 WDMSK 133 | 244 YZONE 46 | 0 (IOH) 6 | 3 (RCH) 167 | 4 (SPH) 0 2 (TCO) 161, 171 | 1 (WRS) 14, 162, 217 | 26 BUFSIZ 4, 273 | 272 SENMSK 15 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9BST (IOEX VERSION) LJB00000 * FAP LJB00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | BACKSPACE TAPE / 9BST | | * BACKSPACE N LINKAGE COMPILED BY I/O TRANSLATOR LJB00070 | * LJB00080 *A CAL N UNIT DESIGNATION LJB00090 | * TSX (BST),4 BACKSPACE TAPE LJB00100 | * LJB00110 | | BINARY CARD NO. 9BST0000 00010 ENTRY (BST) LJB00120 | LJB00130 | | TRANSFER VECTOR | BINARY CARD NO. 9BST0001 | 00000 743146623460 (IOS) | 00001 742262513460 (BSR) | 00002 745124623460 (RDS) | 00003 745123303460 (RCH) 00004 746323463460 (TCO) | 00005 746351233460 (TRC) | 00006 746325263460 (TEF) | 00007 746423223460 (UCB) | 00010 0634 00 4 00037 (BST) SXA BSTX,4 SAVE RETURN INDEX LJB00140 | 00011 -0501 00 0 00043 ORA BINARY TRY LJB00150 | 00012 0074 00 4 00000 TSX $(IOS),4 *READING LJB00160 | 00013 0522 60 0 00001 XEC* $(BSR) LAST LJB00170 | 00014 0522 60 0 00002 XEC* $(RDS) RECORD LJB00180 00015 -0774 00 4 00044 AXC BSTC,4 IN THE LJB00190 | 00016 0522 60 0 00003 XEC* $(RCH) BINARY LJB00200 | 00017 -0774 00 4 00020 AXC *+1,4 MODE. LJB00210 | 00020 0522 60 0 00004 XEC* $(TCO) IF NO LJB00220 | 00021 -0774 00 4 00041 AXC BCD,4 REDUNDANCY LJB00230 00022 0522 60 0 00005 XEC* $(TRC) CHECK, LJB00240 | 00023 0522 60 0 00006 XEC* $(TEF) AND NOT EOF LJB00250 | | BINARY CARD NO. 9BST0002 | 00024 0534 00 4 77777 LXA LABEL,4 LOAD RECORD COUNT FROM LABEL LJB00260 00025 0754 00 4 00000 BST PXA ,4 AND CLEAR LABEL EXCEPT LJB00270 | 00026 0601 00 0 77777 STO LABEL FOR RECORD COUNT LJB00280 | 00027 0522 60 0 00001 XEC* (BSR) THEN BACKSPACE NUMBER OF LJB00290 | 00030 2 00001 4 00027 TIX *-1,4,1 RECORDS INDICATED LJB00300 | 00031 -0500 60 0 00007 CAL* $(UCB) GET ADDRESS OF LJB00310 00032 0737 00 4 00000 PAC ,4 UCB WORD 3 FROM IOS LJB00320 | 00033 -0500 00 4 00002 CAL 2,4 PUT UCB WORD3 INTO AC LJB00330 | 00034 0402 00 0 77777 SUB LABEL SUBTRACT RECORD COUNT LJB00340 | 00035 0621 00 4 00002 STA 2,4 AND STORE RECORD LJB00350 | 00036 0622 00 4 00002 STD 2,4 COUNT AND FILE COUNT LJB00360 00037 0774 00 4 00000 BSTX AXT ..,4 RESTORE RETURN INDEX LJB00370 | 00040 0020 00 4 00001 TRA 1,4 EXIT TO CALLER LJB00380 | 00041 0774 00 4 00001 BCD AXT 1,4 SET RECORD COUNT TO ONE LJB00390 | 00042 0020 00 0 00025 TRA BST AND BACKSPACE LJB00400 | LJB00410 00043 +000000000020 BINARY OCT 20 BINARY MODE LJB00420 | 00044 3 00001 0 77777 BSTC IORT LABEL,,1 READ COMMAND LJB00430 | 77777 COMMON -206 LJB00440 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | BACKSPACE TAPE / 9BST | 77777 LABEL COMMON 1 LJB00450 | 00000 .. EQU 0 LJB00460 | END LJB00470 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77776 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 45 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 37, 45 | 41 BCD 21 | 25 BST 42 | 44 BSTC 15 37 BSTX 10 | 77777 LABEL 24, 26, 34, 44, 45 | 1 (BSR) 13, 27 | 10 (BST) 0 | 0 (IOS) 12 3 (RCH) 16 | 2 (RDS) 14 | 4 (TCO) 20 | 6 (TEF) 23 | 5 (TRC) 22 7 (UCB) 31 | 43 BINARY 11 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DRM LJD00000 * FAP LJD00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | WRITE AND READ DRUM / 9DRM | | * LJD00070 | * WRITE DRUM N,J LINKAGE COMPILED BY I/O TRANSLATOR.LJD00080 *A CAL N UNIT DESIGNATION. LJD00090 | * TSX (SDR),4 STORAGE TO DRUM. LJD00100 | * CAL J DRUM ADDRESS. LJD00110 | * LDA .. SET BY SUBROUTINE. LJD00120 | * LXD 2)K,TAG INDEXING. LJD00130 *B CPY SYMBOL,TAG OUTPUT LIST. LJD00140 | * TIX B,TAG,1 INDEXING. LJD00150 | * CPY SYMBOL LAST ELEMENT. LJD00160 | * LJD00170 | * LJD00180 * READ DRUM N,J LINKAGE COMPILED BY I/O TRANSLATOR.LJD00190 | * LJD00200 | *A CAL N UNIT DESIGNATION. LJD00210 | * TSX (DRS),4 DRUM TO STORAGE. LJD00220 | * CAL J DRUM ADDRESS. LJD00230 * LDA .. SET BY SUBROUTINE. LJD00240 | * LXD 2)K,TAG INDEXING. LJD00250 | *B CPY SYMBOL,TAG INPUT LIST. LJD00260 | * TIX B,TAG,1 INDEXING. LJD00270 | * CPY SYMBOL LAST ELEMENT. LJD00280 * LJD00290 | | BINARY CARD NO. 9DRM0000 | 00000 ENTRY (SDR) LJD00300 | 00005 ENTRY (DRS) LJD00310 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LJD00320 | | BINARY CARD NO. 9DRM0001 | 00000 0771 00 0 00022 (SDR) ARS 18 ADD DRUM CONSTANT LJD00330 | 00001 0400 00 0 00003 ADD *+2 TO WRITE SELECT, LJD00340 00002 0020 00 0 00007 TRA *+5 AND CONTINUE BELOW. LJD00350 | 00003 0766 00 0 00300 WRS 192 WRITE DRUM. LJD00360 | 00004 0762 00 0 00300 RDS 192 READ DRUM. LJD00370 | * LJD00380 | 00005 0771 00 0 00022 (DRS) ARS 18 ADD DRUM CONSTANT LJD00390 00006 0400 00 0 00004 ADD *-2 TO READ SELECT. LJD00400 | 00007 0601 00 0 00010 STO *+1 SELECT LJD00410 | 00010 0766 00 0 00000 WRS .. CURRENT DRUM. LJD00420 | 00011 0522 00 4 00001 XEC 1,4 MOVE LJD00430 | 00012 0771 00 0 00022 ARS 18 DRUM ADDRESS LJD00440 00013 0621 00 0 00015 STA *+2 INTO PXD. LJD00450 | 00014 -0625 00 4 00002 STL 2,4 SET LDA ADDRESS LJD00460 | 00015 -0754 00 0 00000 PXD ..,0 IN MAIN PROGRAM. LJD00470 | 00016 0020 00 4 00002 TRA 2,4 * EXIT TO MAIN PROGRAM. LJD00480 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LJD00490 00000 .. EQU 0 LJD00500 | END LJD00510 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 17 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 10, 15, 17 | 5 (DRS) 0 0 (SDR) 0 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9EFT (IOEX VERSION) LJF00000 * FAP LJF00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | ENDFILE TAPE / 9EFT | | * ENDFILE N LINKAGE COMPILED BY I/O TRANSLATOR LJF00070 | * LJF00080 *A CAL N UNIT DESIGNATION LJF00090 | * TSX (EFT),4 END OF FILE ON TAPE LJF00100 | | BINARY CARD NO. 9EFT0000 | 00007 ENTRY (EFT) LJF00110 | TRANSFER VECTOR | | BINARY CARD NO. 9EFT0001 | 00000 743146623460 (IOS) 00001 746625263460 (WEF) | 00002 746323463460 (TCO) | 00003 746351233460 (TRC) | 00004 746423223460 (UCB) | 00005 742262513460 (BSR) 00006 742567253460 (EXE) | | 00007 0634 00 4 00026 (EFT) SXA EFTX,4 LJF00120 | 00010 0634 00 1 00027 SXA EFTX+1,1 LJF00130 | 00011 0074 00 4 00000 TSX $(IOS),4 *INITIALIZE I/O INST'S. LJF00140 00012 0774 00 1 00005 AXT NWEF,1 NWEF EQU NO OF TIMES TO TRY REWRITELJF00150 | 00013 0522 60 0 00001 WREOF XEC* $(WEF) ON RED, WRITE EOF LJF00160 | 00014 -0774 00 4 00015 AXC *+1,4 LJF00170 | 00015 0522 60 0 00002 XEC* $(TCO) WAIT LJF00180 | 00016 -0774 00 4 00031 AXC RCK,4 LJF00190 00017 0522 60 0 00003 XEC* $(TRC) CHECK FOR RED. LJF00200 | 00020 0500 60 0 00004 UPD CLA* $(UCB) NO RED., GET ADD. OF UCB WD 1 LJF00210 | 00021 0737 00 4 00000 PAC 0,4 LJF00220 | 00022 -0500 00 4 00002 CAL 2,4 GET 3RD WD OF UCB LJF00230 | 00023 -0501 00 0 00036 ORA RHMSK LJF00240 | BINARY CARD NO. 9EFT0002 | 00024 0400 00 0 00037 ADD ONE ADD ONE TO FILE COUNT LJF00250 | 00025 0602 00 4 00002 SLW 2,4 LJF00260 | 00026 0774 00 4 00000 EFTX AXT **,4 RESTORE INDEXES LJF00270 00027 0774 00 1 00000 AXT ..,1 LJF00280 | 00030 0020 00 4 00001 TRA 1,4 RETURN LJF00290 | 00031 0522 60 0 00005 RCK XEC* $(BSR) BACKSPACE AND TRY AGN LJF00300 | 00032 2 00001 1 00013 TIX WREOF,1,1 LJF00310 | 00033 0441 00 0 00035 LDI *+2 CANNOT WEF, EXECUTION ERROR, 5 WRITE LJF00320 00034 0020 60 0 00006 TRA* $(EXE) FAILURES, SAME AS EXEC. ERROR IN WER LJF00322 | 00035 0 00012 5 00001 PZE 1,5,WREOF-1 RETURN FROM EXE WILL CAUSE 5 MORE TRIESLJF00324 | 00036 +000000777777 RHMSK OCT 777777 LJF00330 | 00037 0 00000 0 00001 ONE PZE 1 LJF00340 | 00005 NWEF EQU 5 FOR A RED EOF TRY REWRITE 5 TIMES LJF00350 00000 .. EQU 0 LJF00360 | END LJF00370 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 40 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 27, 40 | 37 ONE 24 31 RCK 16 | 20 UPD | 26 EFTX 7, 10 | 5 NWEF 12, 40 | 36 RHMSK 23 13 WREOF 32, 35 | 5 (BSR) 31 | 7 (EFT) 0 | 6 (EXE) 34 | 0 (IOS) 11 2 (TCO) 15 | 3 (TRC) 17 | 4 (UCB) 20 | 1 (WEF) 13 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9RWT (IOEX VERSION) LJR00000 * FAP LJR00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | REWIND TAPE / 9RWT | | * REWIND N LINKAGE COMPILED BY I/O TRANSLATOR LJR00070 | * LJR00080 *A CAL N UNIT DESIGNATION LJR00090 | * TSX (RWT),4 LJR00100 | | BINARY CARD NO. 9RWT0000 | 00003 ENTRY (RWT) LJR00110 | TRANSFER VECTOR | | BINARY CARD NO. 9RWT0001 | 00000 743146623460 (IOS) 00001 745125663460 (REW) | 00002 746423223460 (UCB) | | 00003 0634 00 4 00014 (RWT) SXA GEX,4 SAVE IX LJR00120 | 00004 0074 00 4 00000 TSX $(IOS),4 INITIALIZE I/O INSTS FOR UNIT LJR00130 00005 0522 60 0 00001 XEC* $(REW) REWIND TAPE LJR00140 | 00006 0500 60 0 00002 CLA* $(UCB) GET ADDR. OF UCB WD 1 LJR00150 | 00007 0737 00 4 00000 PAC 0,4 LJR00160 | 00010 0441 00 4 00000 LDI 0,4 GET UCB WD 1 LJR00170 | 00011 0600 00 4 00002 STZ 2,4 CLEAR UCB WD 3 LJR00180 00012 0057 00 400000 RIR 400000 CLEAR EOT BIT LJR00210 | 00013 0604 00 4 00000 STI 0,4 LJR00260 | 00014 0774 00 4 00000 GEX AXT ..,4 LJR00270 | 00015 0020 00 4 00001 TRA 1,4 LJR00280 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LJR00290 00000 .. EQU 0 LJR00300 | END LJR00310 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 16 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 14, 16 | 14 GEX 3 0 (IOS) 4 | 1 (REW) 5 | 3 (RWT) 0 | 2 (UCB) 6 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9SLI LLI00000 * FAP LLI00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | SHORT LIST INPUT / 9SLI | | * SHORT LIST INPUT LINKAGE COMPILED BY I/O TRANSLATOR.LLI00070 | * LLI00080 * TSX (SLI),4 FOR INPUT OF NON-SUBSCRIPTED LIST. LLI00090 | * PZE SYMBOL+1 LOCATION OF THE ARRAY +1. LLI00100 | * PZE N NUMBER OF ELEMENTS. LLI00110 | * LLI00120 | BINARY CARD NO. 9SLI0000 | 00000 ENTRY (SLI) LLI00130 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LLI00140 | | BINARY CARD NO. 9SLI0001 00000 0634 00 4 00013 (SLI) SXA SLIX,4 SAVE RETURN INDEX. LLI00150 | 00001 -0500 00 4 00001 CAL 1,4 INITIALIZE LLI00160 | 00002 0621 00 0 00010 STA *+6 LDQ ADDRESS. LLI00170 | 00003 -0500 00 4 00002 CAL 2,4 INITIALIZE LLI00180 | 00004 0734 00 4 00000 PAX ,4 TXL LLI00190 00005 -0634 00 4 00012 SXD *+5,4 DECREMENT. LLI00200 | 00006 0774 00 4 00001 AXT 1,4 INITIALIZE XR4. LLI00210 | 00007 -1 00000 0 00000 STR * TRAP TO (IOH) OR (IOB). LLI00220 | 00010 -0600 00 4 00000 STQ ..,4 STORE ELEMENT. LLI00230 | 00011 1 00001 4 00012 TXI *+1,4,1 MOVE DOWNWARDS LLI00240 00012 -3 00000 4 00007 TXL *-3,4,.. THROUGH ARRAY. LLI00250 | 00013 0774 00 4 00000 SLIX AXT ..,4 RESTORE RETURN INDEX. LLI00260 | 00014 0020 00 4 00003 TRA 3,4 * EXIT TO MAIN PROGRAM. LLI00270 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LLI00280 | 00000 .. EQU 0 LLI00290 END LLI00300 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 15 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 10, 12, 13, 15 | 13 SLIX 0 | 0 (SLI) 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9SLO LLO00000 * FAP LLO00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | SHORT LIST OUTPUT / 9SLO | | * SHORT LIST OUTPUT LINKAGE COMPILED BY I/O TRANSLATOR.LLO00070 | * LLO00080 * TSX (SLO),4 FOR OUTPUT OF NON-SUBSCRIPTED LIST.LLO00090 | * PZE SYMBOL+1 LOCATION OF THE ARRAY +1. LLO00100 | * PZE N NUMBER OF ELEMENTS. LLO00110 | * LLO00120 | BINARY CARD NO. 9SLO0000 | 00000 ENTRY (SLO) LLO00130 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LLO00140 | | BINARY CARD NO. 9SLO0001 00000 0634 00 4 00013 (SLO) SXA SLOX,4 SAVE RETURN INDEX. LLO00150 | 00001 -0500 00 4 00001 CAL 1,4 INITIALIZE LLO00160 | 00002 0621 00 0 00007 STA *+5 LDQ ADDRESS. LLO00170 | 00003 -0500 00 4 00002 CAL 2,4 INITIALIZE LLO00180 | 00004 0734 00 4 00000 PAX ,4 TXL LLO00190 00005 -0634 00 4 00012 SXD *+5,4 DECREMENT. LLO00200 | 00006 0774 00 4 00001 AXT 1,4 INITIALIZE XR4. LLO00210 | 00007 0560 00 4 00000 LDQ ..,4 PICKUP ELEMENT. LLO00220 | 00010 -1 00000 0 00000 STR * TRAP TO (IOH) OR (IOB). LLO00230 | 00011 1 00001 4 00012 TXI *+1,4,1 MOVE DOWNWARDS LLO00240 00012 -3 00000 4 00007 TXL *-3,4,.. THROUGH ARRAY. LLO00250 | 00013 0774 00 4 00000 SLOX AXT ..,4 RESTORE RETURN INDEX. LLO00260 | 00014 0020 00 4 00003 TRA 3,4 * EXIT TO MAIN PROGRAM. LLO00270 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LLO00280 | 00000 .. EQU 0 LLO00290 END LLO00300 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 15 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 7, 12, 13, 15 | 13 SLOX 0 | 0 (SLO) 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9RER (IOEX VERSION) LLR00000 * FAP LLR00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | TAPE READ ERROR / 9RER | | | BINARY CARD NO. 9RER0000 00011 ENTRY (RER) LLR00070 | 00056 ENTRY -(RDC) LLR00080 | LLR00090 | | TRANSFER VECTOR | BINARY CARD NO. 9RER0001 | 00000 746323463460 (TCO) | 00001 746325263460 (TEF) | 00002 746351233460 (TRC) 00003 746263233460 (STC) | 00004 746423223460 (UCB) | 00005 742262513460 (BSR) | 00006 745124623460 (RDS) | 00007 745123303460 (RCH) 00010 742567253460 (EXE) | | 00013 TERC EQU 11 TAPE ERROR COUNT LLR00100 | * LLR00110 | 00011 0020 00 4 00001 (RER) TRA 1,4 BYPASS UNLESS SET NOP BY A READ. LLR00120 00012 -0500 00 0 00050 CAL RETRN RESET SWITCH LLR00130 | 00013 0622 00 0 00011 STD *-2 TO TRANSFER. LLR00140 | 00014 0634 00 4 00047 SXA RERX,4 SAVE RETURN INDEX. LLR00150 | 00015 0774 00 4 00013 AXT TERC,4 INITIALIZE LLR00160 | 00016 0634 00 4 00051 SXA COUNT,4 ERROR COUNT LLR00170 00017 -0774 00 4 00020 TEST AXC *+1,4 EXECUTE LLR00180 | 00020 0522 60 0 00000 XEC* $(TCO) DELAY LLR00190 | 00021 0760 00 0 00005 IOT STOP, LLR00200 | 00022 0020 00 0 00061 IOT TRA ERR30 IF I/O TRIGGER IS ON LLR00210 | 00023 -0774 00 4 00067 AXC ERR32,4 WAS EOF $LLR00211 | BINARY CARD NO. 9RER0002 | 00024 0522 60 0 00001 XEC* $(TEF) ENCOUNTERED $LLR00212 | 00025 -0774 00 4 00030 AXC *+3,4 NO, TEST IF REDUNDANCY $LLR00213 | 00026 0522 60 0 00002 XEC* $(TRC) INDICATOR ON $LLR00214 00027 0020 00 0 00042 TRA CHKRC NO, GO AHEAD $LLR00215 | 00030 -0520 60 0 00003 NZT* $(STC) TEST TO ACCEPT $LLR00216 | 00031 0020 00 0 00051 TRA COUNT REDUNDANT NOISE RECORD $LLR00217 | 00032 -0774 00 4 00101 AXC HOLE,4 STORE CHANNEL $LLR00218 | 00033 0522 60 0 00003 XEC* $(STC) CHECK IF REDUNDANT $LLR00219 00034 -0500 00 0 00101 CAL HOLE RECORD HAS $LLR00220 | 00035 0534 00 4 00056 LXA (RDC),4 WORD COUNT $LLR00221 | 00036 -0400 00 4 00000 SBM 0,4 GREATER THAN $LLR00222 | 00037 0734 00 4 00000 PAX 0,4 TWO $LLR00230 | 00040 3 00002 4 00051 TXH COUNT,4,2 YES, TRY AGAIN $LLR00240 00041 0020 00 0 00055 TRA COUNT+4 NO, IGNORE RECORD $LLR00250 | 00042 -0500 60 0 00004 CHKRC CAL* $(UCB) INCREASE $LLR00260 | 00043 0737 00 4 00000 PAC 0,4 RECORD LLR00270 | 00044 -0500 00 4 00002 CAL 2,4 COUNT LLR00280 | 00045 0361 00 0 00050 ACL RETRN IN UCB WORD 3 LLR00290 00046 0621 00 4 00002 STA 2,4 AND RESTORE LLR00300 | 00047 0774 00 4 00000 RERX AXT ..,4 RETURN INDEX LLR00310 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | TAPE READ ERROR / 9RER | BINARY CARD NO. 9RER0003 | 00050 0020 00 4 00001 RETRN TRA 1,4 *EXIT TO CALLER LLR00320 | 00051 0774 00 4 00000 COUNT AXT ..,4 IF ERROR COUNT LLR00330 | 00052 -2 00001 4 00064 TNX ERR31,4,1 IS EXHAUSTED, GO TO STOP, LLR00340 | 00053 0634 00 4 00051 SXA *-2,4 OTHERWISE LLR00350 00054 0522 60 0 00005 XEC* $(BSR) BACKSPACE LLR00360 | 00055 0522 60 0 00006 XEC* $(RDS) AND REREAD LLR00370 | 00056 0774 00 4 00000 (RDC) AXT ..,4 PREVIOUS LLR00380 | 00057 0522 60 0 00007 XEC* $(RCH) RECORD LLR00390 | 00060 0020 00 0 00017 TRA TEST GO CHECK READING LLR00400 00061 0441 00 0 00063 ERR30 LDI *+2 EXIT FOR LLR00410 | 00062 0020 60 0 00010 TRA* $(EXE) *EXECUTION ERROR LLR00420 | 00063 0 00023 3 00000 PZE 0,3,IOT+1 IF I/O TRIGGER ON LLR00430 | 00064 0441 00 0 00066 ERR31 LDI *+2 EXIT FOR LLR00440 | 00065 0020 60 0 00010 TRA* $(EXE) *EXECUTION ERROR LLR00450 00066 0 00054 3 00001 PZE 1,3,(RDC)-2 IF TEN READ FAILURES. LLR00460 | 00067 -0500 60 0 00004 ERR32 CAL* $(UCB) INCREASE FILE COUNT LLR00470 | 00070 0737 00 4 00000 PAC ,4 AND CLEAR RECORD COUNT LLR00480 | 00071 -0500 00 4 00002 CAL 2,4 IN UCB WORD THREE. LLR00490 | 00072 0361 00 0 00052 ACL COUNT+1 LLR00500 00073 0622 00 4 00002 STD 2,4 LLR00510 | | BINARY CARD NO. 9RER0004 | 00074 0754 00 0 00000 PXA ,0 LLR00520 | 00075 0621 00 4 00002 STA 2,4 LLR00530 00076 0441 00 0 00100 LDI *+2 EXIT FOR LLR00540 | 00077 0020 60 0 00010 TRA* $(EXE) *EXECUTION ERROR LLR00550 | 00100 0 00055 3 00002 PZE 2,3,(RDC)-1 END OF FILE LLR00560 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LLR00570 | 00000 .. EQU 0 LLR00580 00101 HOLE BSS 1 STORAGE FOR CHAN. COMD. $LLR00581 | END LLR00590 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 102 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 47, 51, 56, 101 | 22 IOT 63 101 HOLE 32, 34 | 47 RERX 14 | 13 TERC 11, 15 | 17 TEST 60 | 42 CHKRC 27 51 COUNT 16, 31, 40, 41, 72 | 61 ERR30 22 | 64 ERR31 52 | 67 ERR32 23 | 50 RETRN 12, 45 5 (BSR) 54 | 10 (EXE) 62, 65, 77 | 7 (RCH) 57 | 56 (RDC) 0, 35, 66, 100 | 6 (RDS) 55 11 (RER) 0 | 3 (STC) 30, 33 | 0 (TCO) 20 | 1 (TEF) 24 | 2 (TRC) 26 4 (UCB) 42, 67 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9WER (IOEX VERSION) LLW00000 * FAP LLW00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | TAPE WRITE ERROR / 9WER | | | BINARY CARD NO. 9WER0000 00013 ENTRY (WER) LLW00070 | 00051 ENTRY -(WTC) LLW00080 | LLW00090 | | TRANSFER VECTOR | BINARY CARD NO. 9WER0001 | 00000 746323463460 (TCO) | 00001 742563633460 (ETT) | 00002 746351233460 (TRC) 00003 746325623460 (TES) | 00004 746423223460 (UCB) | 00005 742262513460 (BSR) | 00006 746651623460 (WRS) | 00007 745123303460 (RCH) 00010 742567253460 (EXE) | 00011 746625263460 (WEF) | 00012 745125663460 (REW) | | 00006 TERC EQU 6 TAPE ERROR COUNT LLW00100 * LLW00110 | 00013 0634 00 4 00035 (WER) SXA WERX,4 SAVE RETURN INDEX LLW00120 | 00014 0774 00 4 00006 AXT TERC,4 INITIALIZE LLW00130 | 00015 0634 00 4 00037 SXA COUNT,4 ERROR COUNT LLW00140 | 00016 -0774 00 4 00017 TEST AXC *+1,4 EXECUTE LLW00150 00017 0522 60 0 00000 XEC* $(TCO) DELAY LLW00160 | 00020 0522 60 0 00001 XEC* $(ETT) IF END OF TAPE, LLW00170 | 00021 0020 00 0 00065 TRA ET WRITE RECORD ON NEW TAPE LLW00180 | 00022 0760 00 0 00005 IOT STOP, LLW00190 | 00023 0020 00 0 00054 IOT TRA ERR50 IF I/O TRIGGER IS ON LLW00200 | BINARY CARD NO. 9WER0002 | 00024 -0774 00 4 00037 AXC COUNT,4 IF NO LLW00210 | 00025 0522 60 0 00002 XEC* $(TRC) REDUNDANCY CHECK, LLW00220 | 00026 0560 00 0 00112 LDQ NOP RESET SWITCH LLW00230 00027 -0600 60 0 00003 STQ* $(TES) IN (TES) LLW00240 | 00030 -0500 60 0 00004 CAL* $(UCB) GET ADDRESS OF UCW LLW00250 | 00031 0737 00 4 00000 PAC ..,4 FROM IOS LLW00260 | 00032 -0500 00 4 00002 CAL 2,4 INCREASE RECORD LLW00270 | 00033 0361 00 0 00036 ACL WERX+1 COUNT BY ONE LLW00280 00034 0621 00 4 00002 STA 2,4 AND STORE IN UCW LLW00290 | 00035 0774 00 4 00000 WERX AXT **,4 RESTORE RETURN INDEX LLW00300 | 00036 0020 00 4 00001 TRA 1,4 *EXIT TO CALLER LLW00310 | 00037 0774 00 4 00000 COUNT AXT ..,4 IF ERROR COUNT LLW00320 | 00040 -2 00001 4 00057 TNX ERR51,4,1 IS EXHAOUSTED, GO TO STOP. LLW00330 00041 0634 00 4 00037 SXA *-2,4 OTHERWISE, LLW00340 | 00042 0522 60 0 00005 ERASE XEC* $(BSR) BACKSPACE LLW00350 | 00043 0522 60 0 00006 XEC* $(WRS) AND ERASE LLW00360 | 00044 -0774 00 4 00045 AXC *+1,4 PREVIOUS LLW00370 | 00045 0522 60 0 00000 XEC* (TCO) RECORD LLW00380 00046 -0774 00 4 00062 AXC ERR52,4 IF NO REDUNDANCY LLW00390 | 00047 0522 60 0 00002 XEC* (TRC) CHECK WHILE ERASING, LLW00400 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | TAPE WRITE ERROR / 9WER | BINARY CARD NO. 9WER0003 | 00050 0522 60 0 00006 AGAIN XEC* (WRS) REWRITE LLW00410 | 00051 0774 00 4 00000 (WTC) AXT ..,4 PREVIOUS LLW00420 | 00052 0522 60 0 00007 XEC* $(RCH) RECORD LLW00430 | 00053 0020 00 0 00016 TRA TEST AND GO CHECK WRITING. LLW00440 00054 0441 00 0 00056 ERR50 LDI *+2 EXIT FOR LLW00450 | 00055 0020 60 0 00010 TRA* $(EXE) *EXECUTION ERROR LLW00460 | 00056 0 00024 5 00000 PZE 0,5,IOT+1 I/O TRIGGER ON LLW00470 | 00057 0441 00 0 00061 ERR51 LDI *+2 EXIT FOR LLW00480 | 00060 0020 60 0 00010 TRA* $(EXE) *EXECUTION ERROR LLW00490 00061 0 00042 5 00001 PZE 1,5,ERASE 5 WRITE FAILURES LLW00500 | 00062 0441 00 0 00064 ERR52 LDI *+2 EXIT FOR LLW00510 | 00063 0020 60 0 00010 TRA* $(EXE) EXECUTION ERROR LLW00520 | 00064 0 00042 5 00002 PZE 2,5,ERASE ERASE FAILURE LLW00530 | 00065 0774 00 4 00031 ET AXT WEFCT,4 ERROR COUNT FOR WEF LLW00540 00066 0634 00 4 00114 SXA ENDFL,4 LLW00550 | 00067 0522 60 0 00005 WEF XEC* $(BSR) BACKSPACE LLW00560 | 00070 0522 60 0 00011 XEC* $(WEF) WRITE END OF FILE LLW00570 | 00071 -0774 00 4 00072 AXC *+1,4 LLW00580 | 00072 0522 60 0 00000 XEC* $(TCO) DELAY LLW00590 00073 -0774 00 4 00114 AXC ENDFL,4 LLW00600 | | BINARY CARD NO. 9WER0004 | 00074 0522 60 0 00002 XEC* $(TRC) CHECK WEF REDUNDANCY LLW00610 | 00075 0522 60 0 00012 REW XEC* $(REW) REWIND LLW00620 00076 0560 60 0 00012 LDQ* $(REW) LOAD MQ WITH TAPE ADDRESS LLW00630 | 00077 0441 00 0 00101 ERR53 LDI *+2 EXIT FOR LLW00640 | 00100 0020 60 0 00010 TRA* $(EXE) *EXECUTION ERROR LLW00650 | 00101 0 00102 5 00003 PZE 3,5,*+1 STOP TO DIAL NEW UNIT LLW00660 | 00102 -0500 60 0 00004 CAL* $(UCB) CLEAR FILE COUNT LLW00670 00103 0737 00 4 00000 PAC ,4 AND RECORD COUNT LLW00680 | 00104 0754 00 0 00000 PXA 0,0 IN UCB WORD 3 LLW00690 | 00105 0601 00 4 00002 STO 2,4 LLW00700 | 00106 0441 00 4 00000 LDI 0,4 CLEAR EOT BIT LLW00710 | 00107 0057 00 400000 RIR 400000 IN UCB WORD 1 LLW00720 00110 0604 00 4 00000 STI 0,4 LLW00730 | 00111 0522 60 0 00001 XEC* $(ETT) MAKE SURE ETT IS OF LLW00740 | 00112 0761 00 0 00000 NOP NOP SWITCH SETTING FOR (TES) LLW00750 | 00113 0020 00 0 00050 TRA AGAIN WRITE RECORD ON NEW TAPE LLW00760 | 00114 0774 00 4 00000 ENDFL AXT ..,4 IF WEF ERROR COUNT IS LLW00770 00115 -2 00001 4 00075 TNX REW,4,1 EXHAUSTED REWIND AND LLW00780 | 00116 0634 00 4 00114 SXA *-2,4 CONTINUE,OTHERWISE BACKSPACE LLW00790 | 00117 0020 00 0 00067 TRA WEF AND TRY WEF AGAIN. LLW00800 | 00031 WEFCT EQU 25 LLW00810 | 00000 .. EQU 0 LLW00820 END LLW00830 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 120 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 65 ET 21 | 0 .. 31, 37, 51, 114, 120 | 23 IOT 56 112 NOP 26 | 75 REW 115 | 67 WEF 117 | 6 TERC 13, 14 | 16 TEST 53 35 WERX 13, 33 | 50 AGAIN 113 | 37 COUNT 15, 24 | 114 ENDFL 66, 73 | 42 ERASE 61, 64 54 ERR50 23 | 57 ERR51 40 | 62 ERR52 46 | 77 ERR53 | 31 WEFCT 65, 120 5 (BSR) 42, 67 | 1 (ETT) 20, 111 | 10 (EXE) 55, 60, 63, 100 | 7 (RCH) 52 | 12 (REW) 75, 76 0 (TCO) 17, 45, 72 | 3 (TES) 27 | 2 (TRC) 25, 47, 74 | 4 (UCB) 30, 102 | 11 (WEF) 70 13 (WER) 0 | 6 (WRS) 43, 50 | 51 (WTC) 0 | | 0 NO ERROR IN ABOVE ASSEMBLY. 1 * 32K 709/7090 FORTRAN LIBRARY 9IOB LMB00000 * FAP LMB00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | INPUT-OUTPUT BINARY / 9IOB | | *(IOB) INPUT-OUTPUT BINARY USED BY (STB), (TSB). LMB00070 | * LMB00080 | BINARY CARD NO. 9IOB0000 | 00001 ENTRY (IOB) LMB00090 | 00062 ENTRY -(EXB) LMB00100 | 00057 ENTRY -(BUF) LMB00110 00055 ENTRY -(SET) LMB00120 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMB00130 | | TRANSFER VECTOR | BINARY CARD NO. 9IOB0001 | 00000 743146623460 (IOS) | | 00400 BUFSIZ EQU 256 MAXIMUM PHYSICAL RECORD SIZE. LMB00140 | * LMB00150 00001 0634 00 4 00037 (IOB) SXA IOBX1,4 SAVE RETURN INDEX. LMB00160 | 00002 -0600 00 0 00057 STQ (BUF) SET STQ OR LDQ. LMB00170 | 00003 0401 00 0 01071 ADM BINARY PICKUP BINARY INDICATOR. LMB00180 | 00004 0074 00 4 00000 TSX $(IOS),4 * GO SET UP I/O INSTRUCTIONS. LMB00190 | 00005 0600 00 0 00067 STZ LABEL1 CLEAR LMB00200 00006 0600 00 0 00470 STZ LABEL2 LABELS. LMB00210 | 00007 0500 00 0 00057 CLA (BUF) SET TSX ADDRESS LMB00220 | 00010 0621 00 0 00053 STA TYPE FOR INPUT OR OUTPUT. LMB00230 | 00011 0774 00 4 01070 AXT BUF2,4 SET ADDRESS LMB00240 | 00012 0634 00 4 00057 SXA (BUF),4 OF WORKING BUFFER. LMB00250 00013 0774 00 4 00467 AXT BUF1,4 SET ADDRESS LMB00260 | 00014 0634 00 4 00054 SXA IOC,4 OF I/O COMMAND. LMB00270 | 00015 -0120 00 0 00022 TMI *+5 IF INPUT, LMB00280 | 00016 0522 00 0 00053 XEC TYPE * READ ONE PHYSICAL RECORD. LMB00290 | 00017 -0774 00 4 00467 AXC BUF1,4 INTO 1ST BUFFER. LMB00300 00020 0774 00 4 00001 AXT 1,4 PICKUP 1, AND LMB00310 | 00021 0020 00 0 00027 TRA *+6 BYPASS LABELS FOR INPUT. LMB00320 | 00022 0774 00 4 00377 AXT BUFSIZ-1,4 PLACE LMB00330 | 00023 -0634 00 4 00067 SXD LABEL1,4 RECORD LMB00340 | BINARY CARD NO. 9IOB0002 | 00024 -0634 00 4 00470 SXD LABEL2,4 LENGTH LMB00350 | 00025 0634 00 4 00055 SXA (SET),4 IN LABELS AND LMB00360 | 00026 0774 00 4 00400 AXT BUFSIZ,4 IN COUNTER. LMB00370 | 00027 0634 00 4 00043 SXA COUNT,4 SET COUNT. LMB00380 00030 -0500 00 0 00000 CAL 0 SAVE LMB00390 | 00031 0602 00 0 77776 SLW C(0) C(0) LMB00400 | 00032 0600 00 0 00000 STZ 0 CLEAR 0. LMB00410 | 00033 -0500 00 0 00002 CAL 2 SAVE LMB00420 | 00034 0602 00 0 77775 SLW C(2) C(2). LMB00430 00035 -0500 00 0 00041 CAL IOBIN SET LMB00440 | 00036 0602 00 0 00002 SLW 2 LIST TRAP. LMB00450 | 00037 0774 00 4 00000 IOBX1 AXT ..,4 RESTORE RETURN INDEX. LMB00460 | 00040 0020 00 4 00001 TRA 1,4 * EXIT TO MAIN PROGRAM. LMB00470 | REENTRY FROM MAIN PROGRAM WITH LIST. LMB00480 00041 0020 00 0 00042 IOBIN TRA *+1 SAVE LMB00490 | 00042 0634 00 4 00060 SXA IOBX,4 RETURN INDEX. LMB00500 | 00043 0774 00 4 00000 COUNT AXT ..,4 IF THE CURRENT LMB00510 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | INPUT-OUTPUT BINARY / 9IOB | 00044 2 00001 4 00056 TIX (BUF)-1,4,1 BUFFER IS FULL, LMB00520 | 00045 0534 00 4 00054 LXA IOC,4 SWITCH LMB00530 | 00046 0634 00 4 00057 SXA (BUF),4 BUFFER LMB00540 | 00047 3 00467 4 00051 TXH *+2,4,BUF1 ADDRESS LMB00550 | BINARY CARD NO. 9IOB0003 | 00050 1 00401 4 00052 TXI *+2,4,BUFSIZ+1 AND LMB00560 | 00051 0774 00 4 00467 AXT BUF1,4 IO COMMAND LMB00561 | 00052 0634 00 4 00054 SXA IOC,4 ADDRESS. LMB00562 00053 0074 00 4 00000 TYPE TSX ..,4 * GO INPUT OR OUTPUT 1 RECORD. LMB00570 | 00054 -0774 00 4 00000 IOC AXC ..,4 I/O COMMAND PARAMETER. LMB00580 | 00055 0774 00 4 00000 (SET) AXT ..,4 RESET LMB00590 | 00056 0634 00 4 00043 SXA COUNT,4 COUNT. LMB00600 | 00057 -0600 00 4 00000 (BUF) STQ ..,4 LDQ OR STQ IN CURRENT BUFFER. LMB00610 00060 0774 00 4 00000 IOBX AXT ..,4 RESTORE RETURN INDEX. LMB00620 | 00061 0020 60 0 00000 TRA* 0 * EXIT TO MAIN PROGRAM. LMB00630 | REENTRY FROM MAIN PROGRAM WHEN LIST IS SATISFIED. LMB00640 | 00062 -0500 00 0 77776 (EXB) CAL C(0) RESTORE LMB00650 | 00063 0602 00 0 00000 SLW 0 C(0), LMB00660 00064 -0500 00 0 77775 CAL C(2) C(2), LMB00670 | 00065 0602 00 0 00002 SLW 2 AND LMB00680 | 00066 0020 00 4 00001 TRA 1,4 * EXIT TO MAIN PROGRAM. LMB00690 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMB00700 | 00067 0 00000 0 00000 LABEL1 PZE 0 TAPE RECORD LABEL. LMB00710 00467 BUF1 BES BUFSIZ-1 1ST BUFFER. LMB00720 | | BINARY CARD NO. 9IOB0004 | 00467 3 00400 0 00067 IORT LABEL1,,BUFSIZ 1ST I/O COMMAND. LMB00730 | 00470 0 00000 0 00000 LABEL2 PZE 0 TAPE RECORD LABEL. LMB00740 01070 BUF2 BES BUFSIZ-1 2ND BUFFER. LMB00750 | | BINARY CARD NO. 9IOB0005 | 01070 3 00400 0 00470 IORT LABEL2,,BUFSIZ 2ND I/O COMMAND. LMB00760 | 01071 +000000000020 BINARY OCT 20 BINARY MODE INDICATOR. LMB00770 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMB00780 | 77776 COMMON -206+1 LMB00790 | 77776 C(0) COMMON 1 ERASABLE USED BY (IOB). LMB00800 | 77775 C(2) COMMON 1 ERASABLE USED BY (IOB). LMB00810 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMB00820 00000 .. EQU 0 LMB00830 | END LMB00840 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77774 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 1072 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 37, 43, 53, 54, 55, 57, 60, 1072 54 IOC 14, 45, 52 | 467 BUF1 13, 17, 47, 51 | 1070 BUF2 11 | 77776 C(0) 31, 62, 1072 | 77775 C(2) 34, 64, 1072 60 IOBX 42 | 53 TYPE 10, 16 | 43 COUNT 27, 56 | 41 IOBIN 35 | 37 IOBX1 1 57 (BUF) 0, 2, 7, 12, 44, 46 | 62 (EXB) 0 | 1 (IOB) 0 | 0 (IOS) 4 | 55 (SET) 0, 25 1071 BINARY 3 | 400 BUFSIZ 1, 22, 26, 50, 70, 467, 471, 1070 | 67 LABEL1 5, 23, 467 | 470 LABEL2 6, 24, 1070 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9IOH LMH00000 * FAP LMH00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | INPUT-OUTPUT HOLLERITH / 9IOH | | * LMH00070 | *(IOH) INPUT-OUTPUT HOLLERITH USED BY (TSH),(STH),(CSH),(SCH), LMH00080 * AND (SPH). LMH00090 | | BINARY CARD NO. 9IOH0000 | 00002 ENTRY (IOH) LMH00100 | 01526 ENTRY (FIL) LMH00110 01537 ENTRY (RTN) LMH00120 | PCC LMH00130 | LBL 9IOH0000,X LMH00140 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH00150 | TRANSFER VECTOR | | BINARY CARD NO. 9IOH0001 | 00000 743146623460 (IOS) | 00001 742567253460 (EXE) | 00026 BUFSIZ EQU 22 (IOH) RECORD BUFFER SIZE. LMH00160 | 00026 LIMIT EQU 22 (IOH) LINE LENGTH TEST, 1401 LINE. LMH00170 | 00002 0131 00 0 00000 (IOH) XCA INITIALIZATION = LMH00180 | 00003 -0600 00 0 77726 STQ UNIT SAVE FOR LATER ACTION OF (IOS) LMH00190 00004 0634 00 1 01522 SXA AX1,1 SAVE LMH00200 | 00005 0634 00 2 01523 SXA AX2,2 INDEX LMH00210 | 00006 0634 00 4 01524 SXA AX4,4 REGISTERS. LMH00220 | 00007 0621 00 0 00265 STA TYPE SET ADDRESS FOR TYPE OF I/O. LMH00230 | 00010 0622 00 0 00041 STD INITSW SET SWITCHES ( INPUT / NOP, LMH00240 00011 0622 00 0 00304 STD CCOCTL OUTPUT / TRA). LMH00250 | 00012 0622 00 0 00364 STD CCINTG .. LMH00260 | 00013 0622 00 0 00376 STD CCHOLL+1 .. LMH00270 | 00014 0622 00 0 00550 STD CCFFXD+2 .. LMH00280 | 00015 0622 00 0 00563 STD CCEFLT .. LMH00290 00016 0622 00 0 00514 STD SKIP .. LMH00300 | 00017 0622 00 0 00543 STD CCALPH .. LMH00310 | 00020 0622 00 0 00236 STD IOSW .. LMH00320 | 00021 0622 00 0 00610 STD CNVSW .. LMH00330 | 00022 0500 00 0 00224 CLA DONE RESET TO AXT ,0 (NOP). LMH00340 00023 0622 00 0 00231 STD UNITSW SPECIAL ONE-TIME (IOS) GATE, LMH00350 | | BINARY CARD NO. 9IOH0002 | 00024 0622 00 0 00606 STD ENDFSW END OF FORMAT SWITCH. LMH00360 | 00025 0500 00 0 00043 CLA TRA ASSURE EXIT IN CASE OF UNUSUAL LMH00370 00026 0622 00 0 00220 STD EXITSW FORMAT ERROR. LMH00380 | 00027 -0500 00 0 00002 CAL 2 SAVE LMH00390 | 00030 0602 00 0 77727 SLW C(2) C(2). LMH00400 | 00031 0535 00 4 01524 LAC AX4,4 SETUP RETURN ADDRESS LMH00410 | 00032 1 00002 4 00033 TXI *+1,4,2 (TSX+2) LMH00420 00033 0634 00 4 01525 SXA EXIT,4 INTO LOC LIST RETURN LMH00430 | 00034 -0500 00 0 00577 CAL IOCNV SETUP LIST TRAP ADDRESS LMH00440 | 00035 0602 00 0 00002 SLW 2 IN LOCATION 2. LMH00450 | 00036 0600 00 0 77730 STZ INT RESET INT. LMH00460 | 00037 0600 00 0 77733 STZ PEX RESET PEX. LMH00470 00040 0634 00 0 00315 SXA ENDX,0 RESET END PAREN COUNT. LMH00480 | 00041 0761 00 0 00044 INITSW NOP *+3 IF INPUT, LMH00490 | 00042 0074 00 4 00230 TSX INOUT,4 * GO READ FIRST RECORD. LMH00500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | INPUT-OUTPUT HOLLERITH / 9IOH | 00043 0020 00 0 00045 TRA TRA *+2 IF OUTPUT, LMH00510 | 00044 0074 00 4 00270 TSX RESET,4 * GO RESET. LMH00520 | 00045 0534 00 4 01524 LXA AX4,4 PREPARE LMH00530 | 00046 0500 00 4 00001 CLA 1,4 TO SCAN LMH00540 00047 0737 00 2 00000 PAC ,2 FORMAT STATEMENT. LMH00550 | | BINARY CARD NO. 9IOH0003 | 00050 -0734 00 1 00000 PDX ,1 SET LMH00560 | 00051 0774 00 4 00001 AXT 1,4 DIRECTION LMH00570 00052 -3 00000 1 00054 TXL *+2,1,0 OF FORMAT LMH00580 | 00053 0774 00 4 77777 AXT -1,4 SCAN LMH00590 | 00054 -0634 00 4 00074 SXD FSET1,4 EITHER LMH00600 | 00055 -0634 00 4 00421 SXD HSET1,4 FORWARDS LMH00610 | 00056 -0634 00 4 00446 SXD HSET2,4 OR BACKWARDS. LMH00620 00057 -0634 00 4 00476 SXD HSET3,4 .. LMH00630 | FORMAT SCAN. LMH00640 | 00060 0560 00 2 00000 SCAN1 LDQ 0,2 EXAMINE LMH00650 | 00061 0774 00 1 00044 AXT 36,1 NEXT LMH00660 | 00062 -0754 00 0 00000 SCAN2 PXD ,0 FORMAT LMH00670 00063 -0763 00 0 00006 LGL 6 CHARACTER, LMH00680 | 00064 0734 00 4 00000 PAX ,4 AND LMH00690 | 00065 0522 00 4 00174 SCAN3 XEC FRMTR,4 * TAKE INDICATED TRANSFER. LMH00700 | 00066 0401 00 0 77730 ADM INT CONTROL COMES HERE ON ANY DIGIT. LMH00710 | 00067 -0763 00 0 00003 LGL 3 MULTIPLY PREVIOUS INT BY 10, LMH00720 00070 0401 00 0 77730 ADM INT AND ADD IN LMH00730 | 00071 0361 00 0 77730 ACL INT CURRENT DIGIT. LMH00740 | 00072 0602 00 0 77730 SCAN4 SLW INT SET INT. LMH00750 | ENTRY FROM CCRPAR, CCDCPT. LMH00760 | 00073 2 00006 1 00062 SCAN5 TIX SCAN2,1,6 * IF CHARACTER COUNT IS EXHAUSTED, LMH00770 | BINARY CARD NO. 9IOH0004 | 00074 1 00000 2 00060 FSET1 TXI SCAN1,2,** * EXAMINE NEXT FORMAT WORD. LMH00780 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH00790 | FORMAT TRANSFER TABLE. LMH00800 00075 0020 00 0 00326 TRA STOP 77 LMH00810 | 00076 0020 00 0 00326 TRA STOP 76 LMH00820 | 00077 0020 00 0 00326 TRA STOP 75 LMH00830 | 00100 0020 00 0 00175 TRA CCLPAR 74 LMH00840 | 00101 0020 00 0 00210 TRA CCCMMA 73 LMH00850 00102 0020 00 0 00326 TRA STOP 72 LMH00860 | 00103 0020 00 0 00326 TRA STOP 71 LMH00870 | 00104 0020 00 0 00326 TRA STOP 70 LMH00880 | 00105 0020 00 0 00510 TRA CCBLNK 67 LMH00890 | 00106 0020 00 0 00326 TRA STOP 66 LMH00900 00107 0020 00 0 00326 TRA STOP 65 LMH00910 | 00110 0020 00 0 00326 TRA STOP 64 LMH00920 | 00111 0020 00 0 00326 TRA STOP 63 LMH00930 | 00112 0020 00 0 00326 TRA STOP 62 LMH00940 | 00113 0020 00 0 00226 TRA CCSLSH 61 LMH00950 00114 0020 00 0 00073 TRA SCAN5 60 LMH00960 | 00115 0020 00 0 00326 TRA STOP 57 LMH00970 | 00116 0020 00 0 00326 TRA STOP 56 LMH00980 | 00117 0020 00 0 00326 TRA STOP 55 LMH00990 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 INPUT-OUTPUT HOLLERITH / 9IOH | | BINARY CARD NO. 9IOH0005 | 00120 0020 00 0 00326 TRA STOP 54 LMH01000 | 00121 0020 00 0 00326 TRA STOP 53 LMH01010 00122 0020 00 0 00326 TRA STOP 52 LMH01020 | 00123 0020 00 0 00326 TRA STOP 51 LMH01030 | 00124 0020 00 0 00326 TRA STOP 50 LMH01040 | 00125 0020 00 0 00301 TRA CCSCFP 47 LMH01050 | 00126 0020 00 0 00304 TRA CCOCTL 46 LMH01060 00127 0020 00 0 00326 TRA STOP 45 LMH01070 | 00130 0020 00 0 00326 TRA STOP 44 LMH01080 | 00131 0020 00 0 00326 TRA STOP 43 LMH01090 | 00132 0020 00 0 00326 TRA STOP 42 LMH01100 | 00133 0020 00 0 00326 TRA STOP 41 LMH01110 00134 0020 00 0 00307 TRA CCSCFM 40 LMH01120 | 00135 0020 00 0 00326 TRA STOP 37 LMH01130 | 00136 0020 00 0 00326 TRA STOP 36 LMH01140 | 00137 0020 00 0 00326 TRA STOP 35 LMH01150 | 00140 0020 00 0 00312 TRA CCRPAR 34 LMH01160 00141 0020 00 0 00350 TRA CCDCPT 33 LMH01170 | 00142 0020 00 0 00326 TRA STOP 32 LMH01180 | 00143 0020 00 0 00364 TRA CCINTG 31 LMH01190 | | BINARY CARD NO. 9IOH0006 00144 0020 00 0 00375 TRA CCHOLL 30 LMH01200 | 00145 0020 00 0 00563 TRA CCEFLT 27 DUPLICATE ENTRY FOR E AND G LMH01210 | 00146 0020 00 0 00546 TRA CCFFXD 26 LMH01220 | 00147 0020 00 0 00563 TRA CCEFLT 25 LMH01230 | 00150 0020 00 0 00326 TRA STOP 24 LMH01240 00151 0020 00 0 00326 TRA STOP 23 LMH01250 | 00152 0020 00 0 00326 TRA STOP 22 LMH01260 | 00153 0020 00 0 00543 TRA CCALPH 21 LMH01270 | 00154 0020 00 0 00326 TRA STOP 20 LMH01280 | 00155 0020 00 0 00326 TRA STOP 17 LMH01290 00156 0020 00 0 00326 TRA STOP 16 LMH01300 | 00157 0020 00 0 00326 TRA STOP 15 LMH01310 | 00160 0020 00 0 00326 TRA STOP 14 LMH01320 | 00161 0020 00 0 00326 TRA STOP 13 LMH01330 | 00162 0020 00 0 00326 TRA STOP 12 LMH01340 00163 -0765 00 0 00003 LGR 3 11 - DIGIT 9 LMH01350 | 00164 -0765 00 0 00003 LGR 3 10 - DIGIT 8 LMH01360 | 00165 -0765 00 0 00003 LGR 3 7 - DIGIT 7 LMH01370 | 00166 -0765 00 0 00003 LGR 3 6 - DIGIT 6 LMH01380 | 00167 -0765 00 0 00003 LGR 3 5 - DIGIT 5 LMH01390 | BINARY CARD NO. 9IOH0007 | 00170 -0765 00 0 00003 LGR 3 4 - DIGIT 4 LMH01400 | 00171 -0765 00 0 00003 LGR 3 3 - DIGIT 3 LMH01410 | 00172 -0765 00 0 00003 LGR 3 2 - DIGIT 2 LMH01420 00173 -0765 00 0 00003 LGR 3 1 - DIGIT 1 LMH01430 | 00174 -0765 00 0 00003 FRMTR LGR 3 0 - DIGIT 0 LMH01440 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH01450 | ENTRY FROM FORMAT SCAN ON LEFT PARENTHESIS. LMH01460 | 00175 0634 00 1 00344 CCLPAR SXA BX1,1 SAVE CURRENT LMH01470 00176 0634 00 2 00345 SXA BX2,2 SCAN POSITION LMH01480 | 00177 -0600 00 0 77735 STQ MQR FOR POSSIBLE RESCAN. LMH01490 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | INPUT-OUTPUT HOLLERITH / 9IOH | 00200 0534 00 4 77730 LXA INT,4 SAVE LMH01500 | 00201 0634 00 4 00313 SXA BX4,4 GROUP COUNT, AND LMH01510 | 00202 0634 00 4 00342 SXA GROUPX,4 GROUP INDEX. LMH01520 | 00203 0534 00 4 00315 LXA ENDX,4 ADD 1 TO LMH01530 | 00204 1 00001 4 00205 TXI *+1,4,1 END PAREN COUNT LMH01540 00205 0634 00 4 00315 SXA ENDX,4 TO DETERMINE END OF FORMAT. LMH01550 | 00206 0634 00 4 00340 SXA PARX,4 SAVE PAREN INDEX FOR RESCAN. LMH01560 | 00207 0020 00 0 00323 TRA SCAN * THEN CONTINUE SCAN. LMH01570 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH01580 | ENTRY FROM FORMAT SCAN ON COMMA. LMH01590 00210 -0774 00 4 00317 CCCMMA AXC RESUME-1,4 PROCESS CURRENT FIELD. LMH01600 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH01610 | FIELD,4 / CALLERS= CCCMMA, CCSLSH, CCRPAR, CCBLNK. LMH01620 | 00211 0634 00 4 00224 FIELD SXA DONE,4 SAVE RETURN INDEX. LMH01630 | 00212 0634 00 2 00322 SXA CX2,2 SAVE LMH01640 00213 0634 00 1 00321 SXA CX1,1 CURRENT POSITION LMH01650 | | BINARY CARD NO. 9IOH0008 | 00214 -0600 00 0 77736 STQ MQ OF FORMAT SCAN. LMH01660 | 00215 0534 00 4 77730 LXA INT,4 PICKUP FIELD WIDTH, LMH01670 00216 -3 00000 4 00224 TXL DONE,4,0 IF NON-ZERO, LMH01680 | 00217 0634 00 4 01457 SXA WIDTH,4 SET WIDTH, AND LMH01690 | 00220 0020 00 0 01521 EXITSW TRA LIST * EXIT TO LIST CONTROL. LMH01700 | 00221 0500 00 0 00043 CLA TRA RESET SWITCH, IF THE END LMH01710 | 00222 0622 00 0 00220 STD *-2 OF FORMAT WAS JUST ENCOUNTERED. LMH01720 00223 0020 00 0 00607 TRA ENDFSW+1 * EXIT TO CONVERSION. LMH01730 | REENTRY FROM COUNT IN IOCNV. LMH01740 | 00224 0774 00 4 00000 DONE AXT ..,4 RESTORE RETURN INDEX, LMH01750 | 00225 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. LMH01760 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH01770 ENTRY FROM FORMAT SCAN ON SLASH. LMH01780 | 00226 0074 00 4 00211 CCSLSH TSX FIELD,4 * GO PROCESS CURRENT FIELD. LMH01790 | 00227 -0774 00 4 00317 AXC RESUME-1,4 PREPARE FOR NEXT LINE OF I/O LMH01800 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH01810 | INOUT,4 / CALLERS= INIT, CCSLSH, CCRPAR. LMH01820 00230 0634 00 4 00267 INOUT SXA IOX4,4 SAVE RETURN INDEX. LMH01830 | 00231 0761 00 0 00236 UNITSW NOP *+5 IOS ONE-TIME GATE LMH01840 | 00232 0500 00 0 77726 CLA UNIT I/O REQUEST UNIT. LMH01850 | 00233 0074 00 4 00000 TSX $(IOS),4 * GO SET UP I-O INSTRUCTIONS. LMH01860 | 00234 0500 00 0 00043 CLA TRA CLOSE ONE-TIME IOS GATE. LMH01870 00235 0622 00 0 00231 STD UNITSW .. LMH01880 | 00236 0761 00 0 00245 IOSW NOP OUTPUT IF INPUT, LMH01890 | 00237 0522 00 0 00265 XEC TYPE * GO READ ONE RECORD. LMH01900 | | BINARY CARD NO. 9IOH0009 00240 0774 00 4 00001 AXT 1,4 RESET LMH01910 | 00241 0634 00 4 00614 SXA DX1,4 BUFFER LMH01920 | 00242 0634 00 4 00615 SXA DX2,4 INDEXES. LMH01930 | 00243 0534 00 4 00267 LXA IOX4,4 RESTORE RETURN INDEX. LMH01940 | 00244 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. LMH01950 00245 0534 00 4 01464 OUTPUT LXA PACK,4 IF OUTPUT, LMH01960 | 00246 -0500 00 0 77777 CAL WORD FILL OUT LMH01970 | 00247 0402 00 0 01703 SUB L(1) THE LMH01980 | 00250 0100 00 0 00261 TZE FILL2 REMAINING LMH01990 | 00251 -0500 00 0 77777 CAL WORD WITH LMH02000 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | INPUT-OUTPUT HOLLERITH / 9IOH | | 00252 0140 00 0 00253 TOV *+1 BLANKS LMH02010 | 00253 0560 00 0 01545 LDQ BLANKS AND LMH02020 00254 -0763 00 0 00006 LGL 6 STORE INTO LMH02030 | 00255 -0140 00 0 00254 TNO *-1 THE OUTPUT LMH02040 | 00256 0522 00 0 01464 XEC PACK BUFFER. LMH02050 | 00257 3 77776 4 00325 TXH OVER,4,REC+LIMIT-1 (HAS LINE FORMATTING OVERFLOWED) $LMH02051 | 00260 1 00001 4 00261 TXI *+1,4,1 COMPUTE LMH02060 00261 -2 77751 4 00263 FILL2 TNX *+2,4,REC THE LMH02070 | 00262 3 00002 4 00264 TXH *+2,4,2 OUTPUT LMH02080 | 00263 0774 00 4 00003 AXT 3,4 WORD LMH02090 | | BINARY CARD NO. 9IOH0010 00264 -0634 00 4 00266 SXD FILL,4 COUNT, MAKE IT AT LEAST THREE. LMH02100 | 00265 0074 00 4 00000 TYPE TSX ..,4 (TSH, STH, CSH, SCH, SPH) LMH02110 | 00266 0 00000 0 77751 FILL PZE REC,,.. BUFFER ADDRESS,,WORD COUNT. LMH02120 | 00267 0774 00 4 00000 IOX4 AXT ..,4 RESTORE RETURN INDEX. LMH02130 | ENTRY FROM INITIALIZATION. LMH02140 00270 -0500 00 0 01545 RESET CAL BLANKS RESET LMH02150 | 00271 0602 00 0 77751 FILT SLW REC FOR LMH02160 | 00272 0602 00 0 77752 SLW REC+1 MINIMUM LMH02170 | 00273 0602 00 0 77753 SLW REC+2 THREE WORD LMH02180 | 00274 -0500 00 0 00266 CAL FILL NEXT LMH02190 00275 0621 00 0 01464 STA PACK LINE. LMH02200 | ENTRY FROM CCRPAR ON OVERFLOW. LMH02201 | 00276 -0500 00 0 01703 SETWRD CAL L(1) RESET LMH02210 | 00277 0602 00 0 77777 SLW WORD WORD. LMH02220 | 00300 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. LMH02230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH02240 | ENTRY FROM FORMAT SCAN ON P. LMH02250 | 00301 0500 00 0 77730 CCSCFP CLA INT MOVE SCALE FACTOR LMH02260 | 00302 0601 00 0 77733 STO PEX INTO PEX. LMH02270 | 00303 0020 00 0 00323 TRA SCAN * GO CONTINUE SCAN. LMH02280 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH02290 | ENTRY FROM FORMAT SCAN ON O. LMH02300 | 00304 0761 00 0 00306 CCOCTL NOP *+2 (INPUT/NOP, OUTPUT/TRA). LMH02310 | 00305 1 01031 4 00370 TXI SETAD,4,ONPT-38 ADJUST FOR ONPT ENTRY, OR FOR LMH02320 | 00306 1 01107 4 00370 TXI SETAD,4,OOUT-38 OOUT. EXIT TO SET CNVSW. LMH02330 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH02340 | ENTRY FROM FORMAT SCAN ON MINUS. LMH02350 | 00307 0502 00 0 77730 CCSCFM CLS INT SET SIGN OF SCALE FACTOR NEGATIVE, LMH02360 | | BINARY CARD NO. 9IOH0011 00310 0601 00 0 77730 STO INT LMH02361 | 00311 0020 00 0 00073 TRA SCAN5 * AND GO CONTINUE SCAN. LMH02370 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH02380 | ENTRY FROM FORMAT SCAN ON RIGHT PARENTHESIS. LMH02390 | 00312 0074 00 4 00211 CCRPAR TSX FIELD,4 * GO PROCESS CURRENT FIELD. LMH02400 00313 0774 00 4 00000 BX4 AXT ..,4 TEST GROUP COUNT, AND LMH02410 | 00314 2 00001 4 00343 TIX GROUP,4,1 PROCESS GROUP UNTIL EXHAUSTED. LMH02420 | 00315 0774 00 4 00000 ENDX AXT ..,4 THEN TEST END COUNT, AND LMH02430 | 00316 -2 00001 4 00331 TNX ENDFMT,4,1 IF NOT EXHAUSTED, LMH02440 | 00317 0634 00 4 00315 SXA ENDX,4 REDUCE COUNT, AND LMH02450 ENTRY FROM CCSLSH, CCCMMA, CCHOLL, CCBLNK. LMH02460 | 00320 0560 00 0 77736 RESUME LDQ MQ RESTORE LMH02470 | 00321 0774 00 1 00000 CX1 AXT ..,1 CURRENT LMH02480 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 6 | INPUT-OUTPUT HOLLERITH / 9IOH | 00322 0774 00 2 00000 CX2 AXT ..,2 POSITION OF FORMAT SCAN, LMH02490 | ENTRY FROM CCLPAR,CCSCFP,CCRPAR,CCINTG,CCHOLL. LMH02500 | 00323 0600 00 0 77730 SCAN STZ INT CLEAR INT, AND LMH02510 | 00324 0020 00 0 00073 TRA SCAN5 * CONTINUE FORMAT SCAN. LMH02520 ENTRY FROM TOPACK ON LINE OVERFLOW. LMH02530 | 00325 0074 00 4 00270 OVER TSX RESET,4 * RESET WORD AND PACK FOR OUTPUT $LMH02540 | ENTRY FROM FORMAT SCAN ON ILLEGAL CONTROL CHARACTER. LMH02550 | 00326 0441 00 0 00330 STOP LDI *+2 EXIT FOR LMH02560 | 00327 0020 60 0 00001 TRA* $(EXE) * EXECUTION ERROR. LMH02570 00330 0 00331 1 00000 PZE 0,1,*+1 INCORRECT FORMAT STATEMENT. LMH02580 | 00331 0500 00 0 00043 ENDFMT CLA TRA SET SWITCH IN IOCNV LMH02590 | 00332 0622 00 0 00606 STD ENDFSW FOR END OF FORMAT, AND LMH02600 | 00333 0020 00 0 01521 TRA LIST * GO SEE IF LIST IS EXHAUSTED. LMH02610 | REENTRY FROM IOCNV AFTER END OF FORMAT. LMH02620 | BINARY CARD NO. 9IOH0012 | 00334 0500 00 0 00224 RESCAN CLA DONE RESET TO AXT ,0 (NOP). LMH02630 | 00335 0622 00 0 00606 STD ENDFSW END OF FORMAT SWITCH. LMH02640 | 00336 0622 00 0 00220 STD EXITSW SET EXIT SWITCH IN FIELD. LMH02650 00337 0074 00 4 00230 TSX INOUT,4 * GO PREPARE FOR NEXT LINE OF I-O. LMH02660 | 00340 0774 00 4 00000 PARX AXT ..,4 PICKUP PAREN INDEX TO LMH02670 | 00341 0634 00 4 00315 SXA ENDX,4 RESET END COUNT. LMH02680 | 00342 0774 00 4 00000 GROUPX AXT ..,4 PICKUP GROUP INDEX TO LMH02690 | 00343 0634 00 4 00313 GROUP SXA BX4,4 SET GROUP COUNT. LMH02700 00344 0774 00 1 00000 BX1 AXT ..,1 RESET FORMAT POSITION LMH02710 | 00345 0774 00 2 00000 BX2 AXT ..,2 TO BEGINNING OF LMH02720 | 00346 0560 00 0 77735 LDQ MQR LAST GROUP, AND LMH02730 | 00347 0020 00 0 00323 TRA SCAN * GO CONTINUE SCAN. LMH02740 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH02750 ENTRY FROM FORMAT SCAN ON DECIMAL POINT. LMH02760 | 00350 -0500 00 0 00355 CCDCPT CAL DCPT MODIFY LMH02770 | 00351 0602 00 0 00065 SLW SCAN3 SCAN. LMH02780 | 00352 -0754 00 0 00000 PXD ,0 CLEAR OR STORE DEC. SCALE LMH02790 | 00353 0601 00 0 77731 DCPT1 STO DIG .. LMH02800 00354 0020 00 0 00073 TRA SCAN5 * GO CONTINUE SCAN. LMH02810 | REENTRY FROM FORMAT SCAN. LMH02820 | 00355 0020 00 0 00356 DCPT TRA *+1 COLLECT LMH02830 | 00356 -3 00011 4 00353 TXL DCPT1,4,9 DECIMAL POSITION. LMH02840 | 00357 0402 00 0 01546 SUB BLANK ON NEXT LMH02850 | BINARY CARD NO. 9IOH0013 | 00360 0100 00 0 00073 TZE SCAN5 * CONTROL CHARACTER, LMH02860 | 00361 -0500 00 0 00363 CAL *+2 RESET LMH02870 | 00362 0602 00 0 00065 SLW SCAN3 FORMAT SCAN LMH02880 00363 0522 00 4 00174 XEC FRMTR,4 * AND GO CONTINUE SCAN. LMH02890 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH02900 | ENTRY FROM FORMAT SCAN ON I. LMH02910 | 00364 0761 00 0 00374 CCINTG NOP SETAD1 IF INPUT, LMH02920 | 00365 0500 00 0 00043 CLA TRA PICKUP TRA, AND LMH02930 ENTRY FROM CCFFXD. LMH02940 | 00366 0622 00 0 01006 SETFX STD FIXSW SET FIXSW, AND LMH02950 | 00367 0774 00 4 00617 AXT DBC,4 PICKUP DBC TO LMH02960 | ENTRY FROM CCFFXD, CCEFLT, CCOCTL, CCALPH. LMH02970 | 00370 0634 00 4 00610 SETAD SXA CNVSW,4 SET CNVSW. LMH02980 00371 0534 00 4 77730 LXA INT,4 PICKUP INT, AND LMH02990 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 7 | INPUT-OUTPUT HOLLERITH / 9IOH | | 00372 0634 00 4 01516 SXA COUNT,4 SET COUNT. LMH03000 00373 0020 00 0 00323 TRA SCAN * GO CONTINUE SCAN. LMH03010 | 00374 1 01403 4 00370 SETAD1 TXI SETAD,4,INTG-25 OUTPUT INTEGER, SET CNVSW. LMH03020 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH03030 | ENTRY FROM FORMAT SCAN ON H. LMH03040 | 00375 0534 00 4 77730 CCHOLL LXA INT,4 REPLACE LMH03050 00376 0761 00 0 00442 NOP HOUT IF INPUT, THE LMH03060 | 00377 0560 00 0 77734 LDQ MQD HOLLERITH LMH03070 | 00400 0634 00 2 00322 SXA CX2,2 FIELD LMH03080 | 00401 -0500 00 2 00000 CAL 0,2 IN LMH03090 | 00402 0534 00 2 00614 LXA DX1,2 FORMAT LMH03100 00403 -2 00006 1 00417 TNX HNPT3,1,6 STATEMENT LMH03110 | | BINARY CARD NO. 9IOH0014 | 00404 0634 00 1 00405 SXA *+1,1 WITH THE SPECIFIED NO. LMH03120 | 00405 0771 00 0 00000 ARS .. .. LMH03130 00406 2 00001 2 00414 HNPT1 TIX HNPT2,2,1 OF LMH03140 | 00407 0534 00 2 00615 LXA DX2,2 BCD LMH03150 | 00410 1 77777 2 00411 TXI *+1,2,-1 CHARACTERS LMH03160 | 00411 0560 00 2 77751 LDQ REC,2 FROM LMH03170 | 00412 0634 00 2 00615 SXA DX2,2 THE LMH03180 00413 0774 00 2 00006 AXT 6,2 INPUT LMH03190 | 00414 -0763 00 0 00006 HNPT2 LGL 6 BUFFER. LMH03200 | 00415 -2 00001 4 00425 TNX HNPT4,4,1 .. LMH03210 | 00416 2 00006 1 00406 TIX HNPT1,1,6 .. LMH03220 | 00417 0534 00 1 00322 HNPT3 LXA CX2,1 .. LMH03230 00420 0602 00 1 00000 SLW 0,1 .. LMH03240 | 00421 1 00000 1 00422 HSET1 TXI *+1,1,.. .. LMH03250 | 00422 0634 00 1 00322 SXA CX2,1 .. LMH03260 | 00423 0774 00 1 00044 AXT 36,1 .. LMH03270 | 00424 0020 00 0 00406 TRA HNPT1 .. LMH03280 00425 0634 00 2 00614 HNPT4 SXA DX1,2 .. LMH03290 | 00426 0534 00 2 00322 LXA CX2,2 .. LMH03300 | 00427 -0600 00 0 77734 STQ MQD .. LMH03310 | | BINARY CARD NO. 9IOH0015 00430 0634 00 1 00321 SXA CX1,1 .. LMH03320 | 00431 -3 00006 1 00440 TXL HNPT5,1,6 .. LMH03330 | 00432 0560 00 2 00000 LDQ 0,2 .. LMH03340 | 00433 -0773 00 1 00052 RQL 42,1 .. LMH03350 | 00434 -0600 00 0 77736 STQ MQ .. LMH03360 00435 -2 00006 1 00440 TNX HNPT5,1,6 .. LMH03370 | 00436 0634 00 1 00437 SXA *+1,1 .. LMH03380 | 00437 -0763 00 0 00000 LGL .. .. LMH03390 | 00440 0602 00 2 00000 HNPT5 SLW 0,2 .. LMH03400 | 00441 0020 00 0 00320 TRA RESUME * GO RESUME FORMAT SCAN. LMH03410 ENTRY FROM CCBLNK. LMH03420 | 00442 -0500 00 0 77777 HOUT CAL WORD MOVE OUT THE SPECIFIED LMH03430 | 00443 -0140 00 0 00444 TNO *+1 NUMBER LMH03440 | 00444 2 00006 1 00450 HOUT1 TIX HOUT2,1,6 OF LMH03450 | 00445 0774 00 1 00044 HOUTA AXT 36,1 FORMAT LMH03460 00446 1 00000 2 00447 HSET2 TXI *+1,2,.. CHARACTERS LMH03470 | 00447 0560 00 2 00000 LDQ 0,2 (OR BLANKS) LMH03480 | 00450 -0763 00 0 00006 HOUT2 LGL 6 INTO LMH03490 | 00451 -0140 00 0 00505 TNO HOUT6 THE LMH03500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 8 INPUT-OUTPUT HOLLERITH / 9IOH | | 00452 1 77777 4 00453 TXI *+1,4,-1 OUTPUT LMH03510 | 00453 0522 00 0 01464 XEC PACK BUFFER LMH03520 | BINARY CARD NO. 9IOH0016 | 00454 0634 00 1 00504 SXA HOUT5+1,1 A LMH03530 | 00455 -3 00005 4 00463 TXL HOUT21,4,5 WORD LMH03540 | 00456 1 77772 1 00457 TXI *+1,1,-6 AT A TIME LMH03550 | 00457 0754 00 1 00000 PXA ,1 AFTER THE PENDING LMH03560 00460 0621 00 0 00475 STA HOUT3 WORD LMH03570 | 00461 0402 00 0 00445 SUB HOUTA .. LMH03580 | 00462 0621 00 0 00500 STA HOUT4 .. LMH03590 | 00463 0534 00 1 01464 HOUT21 LXA PACK,1 .. LMH03600 | 00464 0522 00 0 01465 XEC TEST (HAS LINE FORMATTING OVERFLOWED) LMH03610 00465 1 00001 1 00466 TXI *+1,1,1 .. LMH03620 | 00466 0634 00 1 01464 SXA PACK,1 .. LMH03630 | 00467 2 00006 4 00475 TIX HOUT3,4,6 .. LMH03640 | 00470 1 00001 4 00471 TXI *+1,4,1 .. LMH03650 | 00471 -3 00006 4 00473 TXL *+2,4,6 .. LMH03660 00472 1 77771 4 00475 TXI HOUT3,4,-7 .. LMH03670 | 00473 -0500 00 0 01703 CAL L(1) .. LMH03680 | 00474 0020 00 0 00503 TRA HOUT5 .. LMH03690 | 00475 -0763 00 0 00000 HOUT3 LGL .. .. LMH03700 | 00476 1 00000 2 00477 HSET3 TXI *+1,2,.. .. LMH03710 00477 0560 00 2 00000 LDQ ,2 .. LMH03720 | | BINARY CARD NO. 9IOH0017 | 00500 -0763 00 0 00000 HOUT4 LGL .. .. LMH03730 | 00501 0522 00 0 01464 XEC PACK .. LMH03740 00502 0020 00 0 00464 TRA HOUT21+1 .. LMH03750 | 00503 -0140 00 0 00504 HOUT5 TNO *+1 .. LMH03760 | 00504 0774 00 1 00000 AXT ..,1 .. LMH03770 | 00505 2 00001 4 00444 HOUT6 TIX HOUT1,4,1 .. LMH03780 | 00506 0602 00 0 77777 SLW WORD .. LMH03790 00507 0020 00 0 00323 TRA SCAN * EXIT TO SCAN. LMH03800 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH03810 | ENTRY FROM FORMAT SCAN ON X. LMH03820 | 00510 0534 00 4 77730 CCBLNK LXA INT,4 SET TO SKIP INT BLANKS CHARS. LMH03830 | 00511 -0600 00 0 77736 STQ MQ IN DATA OR OUTPUT BUFFER LMH03840 00512 0634 00 1 00321 SXA CX1,1 .. LMH03850 | 00513 0634 00 2 00322 SXA CX2,2 .. LMH03860 | 00514 0761 00 0 00533 SKIP NOP BOUT IF INPUT. SKIP THE SPECIFIED LMH03870 | 00515 0560 00 0 77734 LDQ MQD BCD LMH03880 | 00516 0534 00 1 00614 LXA DX1,1 CHARACTERS LMH03890 00517 2 00001 1 00526 SKIP1 TIX SKIP2,1,1 IN LMH03900 | 00520 0534 00 2 00615 LXA DX2,2 THE LMH03910 | 00521 1 77777 2 00522 TXI *+1,2,-1 INPUT LMH03920 | 00522 2 00006 4 00521 TIX *-1,4,6 BUFFER. LMH03930 | 00523 0560 00 2 77751 LDQ REC,2 .. LMH03940 | BINARY CARD NO. 9IOH0018 | 00524 0634 00 2 00615 SXA DX2,2 .. LMH03950 | 00525 0774 00 1 00006 AXT 6,1 .. LMH03960 | 00526 -0763 00 0 00006 SKIP2 LGL 6 .. LMH03970 00527 2 00001 4 00517 TIX SKIP1,4,1 .. LMH03980 | 00530 0634 00 1 00614 SXA DX1,1 .. LMH03990 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 9 | INPUT-OUTPUT HOLLERITH / 9IOH | 00531 -0600 00 0 77734 STQ MQD .. LMH04000 | 00532 0020 00 0 00320 TRA RESUME * GO RESUME FORMAT SCAN. LMH04010 | 00533 0634 00 0 01516 BOUT SXA COUNT,0 PLACE BLANKS INTO THE OUTPUT LMH04020 | 00534 -0774 00 2 00317 AXC RESUME-1,2 BUFFER LMH04030 | 00535 0634 00 2 00224 SXA DONE,2 USING THE TOPACK ROUTINE LMH04040 00536 3 00000 4 00540 TXH *+2,4,0 .. LMH04050 | 00537 0774 00 4 00001 AXT 1,4 .. LMH04060 | 00540 0634 00 4 01457 SXA WIDTH,4 AND LMH04070 | 00541 0774 00 4 00000 AXT 0,4 RESUME LMH04080 | 00542 0020 00 0 01453 TRA TOPACK * THE FORMAT SCAN. LMH04090 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH04100 | ENTRY FROM FORMAT SCAN ON A. LMH04110 | 00543 0761 00 0 00545 CCALPH NOP *+2 IF INPUT, ADJUST FOR LMH04120 | 00544 1 01041 4 00370 TXI SETAD,4,ANPT-17 * ANPT ENTRY, OR FOR LMH04130 | 00545 1 01123 4 00370 TXI SETAD,4,AOUT-17 * AOUT. EXIT TO SET CNVSW. LMH04140 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH04150 | ENTRY FROM FORMAT SCAN ON F. LMH04160 | 00546 0502 00 0 77733 CCFFXD CLS PEX MOVE NEGATIVE OF LMH04170 | 00547 0601 00 0 77732 STO EXP SCALE FACTOR INTO EXP. LMH04180 | BINARY CARD NO. 9IOH0019 | 00550 0761 00 0 00553 NOP *+3 IF INPUT, LMH04190 | ENTRY FROM CCEFLT. LMH04200 | 00551 0500 00 0 00224 FXPT CLA DONE PICK UP NOP (AXT ,0), AND LMH04210 | 00552 0020 00 0 00366 TRA SETFX * GO SET FIXSW. LMH04220 00553 0774 00 4 01421 AXT FXD,4 PICKUP FXD, AND LMH04230 | 00554 0634 00 4 00610 SXA CNVSW,4 SET GATE AT CNVSW. LMH04240 | 00555 0774 00 4 77725 AXT CHAR,4 IF OUTPUT, LMH04250 | 00556 0634 00 4 01415 SXA FXFL1,4 SET LMH04260 | 00557 0774 00 4 00001 AXT 1,4 FXFL1,2,3 LMH04270 ENTRY FROM CCEFLT. LMH04280 | 00560 -0634 00 4 01424 FXPT1 SXD FXFL2,4 IN CONVERSION ROUTINE LMH04290 | 00561 -0634 00 4 01430 SXD FXFL3,4 FOR FIXED POINT, LMH04300 | 00562 0020 00 0 00371 TRA SETAD+1 * GO SET COUNT. LMH04310 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH04320 ENTRY FROM FORMAT SCAN ON E OR G. LMH04330 | 00563 0761 00 0 00566 CCEFLT NOP *+3 IF INPUT, LMH04340 | 00564 0600 00 0 77732 STZ EXP CLEAR EXP, AND LMH04350 | 00565 0020 00 0 00551 TRA FXPT * EXIT TO CCFFXD. LMH04360 | 00566 3 00025 4 00571 TXH CCGOUT,4,21 SET G OUT GATE IN CNVSW. LMH04370 00567 0774 00 4 01310 AXT FLT,4 PICKUP FLT, AND LMH04380 | 00570 0020 00 0 00572 TRA *+2 .. LMH04390 | 00571 0774 00 4 01204 CCGOUT AXT GOUT,4 SET RETURN GATE. LMH04400 | 00572 0634 00 4 00610 SXA CNVSW,4 .. LMH04410 | 00573 0774 00 4 77721 AXT CHAR-4,4 IF OUTPUT, LMH04420 | BINARY CARD NO. 9IOH0020 | 00574 0634 00 4 01415 SXA FXFL1,4 SET LMH04430 | 00575 0774 00 4 00005 AXT 5,4 FXFL1,2,3 LMH04440 | 00576 0020 00 0 00560 TRA FXPT1 * EXIT TO CCFFXD. LMH04450 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .LMH04460 | REENTRY FROM MAIN PROGRAM LIST. LMH04470 | 00577 0021 00 0 00600 IOCNV TTR *+1 INPUT / OUTPUT CONVERSION. $LMH04480 | 00600 0634 00 1 01522 SXA AX1,1 SAVE LMH04490 | 00601 0634 00 2 01523 SXA AX2,2 INDEX LMH04500 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 10 | INPUT-OUTPUT HOLLERITH / 9IOH | | 00602 0634 00 4 01524 SXA AX4,4 REGISTERS. LMH04510 | 00603 0534 00 4 00000 LXA 0,4 SET EXIT TO LIST, FPT USES L(0) LMH04520 00604 0634 00 4 01525 SXA EXIT,4 INTO LOC LIST RETURN LMH04530 | 00605 -0600 00 0 77750 STQ DATUM SAVE DATUM. LMH04540 | 00606 0761 00 0 00334 ENDFSW NOP RESCAN * RESCAN FORMAT, IF NECESSARY. LMH04550 | REENTRY FROM FIELD. LMH04560 | 00607 0500 00 0 77750 CLA DATUM PICKUP DATUM, AND TRA= (DBC, ANPT, LMH04570 00610 0020 00 0 00326 CNVSW TRA STOP * ONPT, AOUT, OOUT, FLT, FXD, INTG) LMH04580 | G OUTPUT ALSO FOR DEBUG. LMH04590 | 00611 0534 00 4 01457 LXA WIDTH,4 IR(4) = DESIRED FIELD WIDTH. LMH04600 | 00612 0600 00 0 77737 STZ DG INITIALIZE. LMH04610 | 00613 0560 00 0 77734 LDQ MQD .. LMH04620 00614 0774 00 1 00000 DX1 AXT ..,1 CHARACTER COUNT - REC BUFFER. LMH04630 | 00615 0774 00 2 00000 DX2 AXT ..,2 WORD COUNT - REC BUFFER. LMH04640 | 00616 0020 60 0 00610 TRA* CNVSW * EXIT THRU CNVSW. LMH04650 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH04660 | DBC / DECIMAL TO BINARY CONVERSION ROUTINE. LMH04670 00617 0500 00 0 01551 DBC CLA MZE INITIALIZE. LMH04680 | | BINARY CARD NO. 9IOH0021 | 00620 0601 00 0 77745 STO N .. LMH04690 | 00621 0600 00 0 77747 STZ V .. LMH04700 00622 0502 00 0 77731 CLS DIG .. LMH04710 | 00623 0601 00 0 77742 STO D .. LMH04720 | 00624 0500 00 0 77732 CLA EXP .. LMH04730 | 00625 0601 00 0 77743 STO E .. LMH04740 | 00626 -0140 00 0 00631 TNO DBC1 TURN OFF LMH04750 00627 0020 00 0 00631 TRA DBC1 OVERFLOW LIGHT. LMH04760 | 00630 -2 00001 4 01001 DBC2 TNX DBC15,4,1 BUMP WIDTH. LMH04770 | 00631 2 00001 1 00635 DBC1 TIX *+4,1,1 BUMP CHARACTER COUNT, IF EXHAUSTED LMH04780 | 00632 1 77777 2 00633 TXI *+1,2,-1 GET NEXT WORD. LMH04790 | 00633 0774 00 1 00006 AXT 6,1 .. LMH04800 00634 0560 00 2 77751 LDQ REC,2 .. LMH04810 | 00635 -0754 00 0 00000 PXD ,0 TAKE A LMH04820 | 00636 -0763 00 0 00006 LGL 6 CHARACTER. LMH04830 | 00637 0340 00 0 01546 CAS BLANK IF IT IS BLANK LMH04840 | 00640 0020 00 0 01045 TRA STOP1 IGNORE IT. LMH04850 00641 0020 00 0 00630 TRA DBC2 TAKE LMH04860 | 00642 0340 00 0 01542 CAS MINUS APPROPRIATE LMH04870 | 00643 0020 00 0 01045 TRA STOP1 * ACTION LMH04880 | | BINARY CARD NO. 9IOH0022 00644 0020 00 0 00652 TRA *+6 ON LMH04890 | 00645 0340 00 0 01547 CAS PLUS ERRORS, I.E. STOP. LMH04900 | 00646 0020 00 0 00742 TRA DBC9 FOR LEGAL LMH04910 | 00647 0020 00 0 00655 TRA *+6 + AND - LMH04920 | 00650 0340 00 0 01550 CAS NEGAT SIGNS LMH04930 00651 0020 00 0 01045 TRA STOP1 * SET LMH04940 | 00652 0500 00 0 01551 CLA MZE THE LMH04950 | 00653 0340 00 0 01552 CAS TEN SIGN LMH04960 | 00654 0020 00 0 01045 TRA STOP1 * OF LMH04970 | 00655 -0754 00 0 00000 DBCS1 PXD ,0 THE LMH04980 00656 0601 00 0 77737 STO DG RESULT. LMH04990 | 00657 0601 00 0 77745 DBC13 STO N .. LMH05000 | 00660 -2 00001 4 01001 DBC14 TNX DBC15,4,1 BUMP WIDTH. LMH05010 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 11 | INPUT-OUTPUT HOLLERITH / 9IOH | 00661 2 00001 1 00761 DBC11 TIX DBC98,1,1 BUMP CHARACTER COUNT, IF EXHAUSTED LMH05020 | 00662 1 77777 2 00757 TXI DBC99,2,-1 GET ANOTHER WORD. LMH05030 | 00663 -2 00001 4 00711 DBC3 TNX DBC6,4,1 ENTRY ON E OR E BLANK, BUMP WIDTH. LMH05040 | 00664 2 00001 1 00670 TIX DBC93,1,1 BUMP CHARACTER COUNT, IF EXHAUSTED,LMH05050 00665 1 77777 2 00666 TXI DBC94,2,-1 GET ANOTHER WORD. LMH05060 | 00666 0774 00 1 00006 DBC94 AXT 6,1 .. LMH05070 | 00667 0560 00 2 77751 LDQ REC,2 .. LMH05080 | | BINARY CARD NO. 9IOH0023 00670 -0754 00 0 00000 DBC93 PXD ,0 TAKE A LMH05090 | 00671 -0763 00 0 00006 LGL 6 CHARACTER. LMH05100 | 00672 0340 00 0 01546 CAS BLANK IF IT IS LMH05110 | 00673 0020 00 0 01051 TRA STOP2 * BLANK LMH05120 | 00674 0020 00 0 00663 TRA DBC3 IGNORE IT. LMH05130 00675 -0634 00 4 01050 SXD ER,4 ILLEGAL LMH05140 | 00676 0340 00 0 01542 DBC4 CAS MINUS CHARACTERS LMH05150 | 00677 0020 00 0 01050 TRA ER * CAUSE AN EXIT. LMH05160 | 00700 0020 00 0 00706 TRA DBC92 A LEGAL LMH05170 | 00701 0340 00 0 01547 DBC5 CAS PLUS + OR - LMH05180 00702 0020 00 0 01050 TRA ER * SIGN LMH05190 | 00703 0020 00 0 00711 TRA DBC6 IS LMH05200 | 00704 0340 00 0 01550 CAS NEGAT USED LMH05210 | 00705 0020 00 0 01050 TRA ER * TO LMH05220 | 00706 0500 00 0 01551 DBC92 CLA MZE SET LMH05230 00707 0340 00 0 01552 CAS TEN THE LMH05240 | 00710 0020 00 0 01051 TRA STOP2 * SIGN LMH05250 | 00711 -0754 00 0 00000 DBC6 PXD ,0 OF LMH05260 | 00712 0601 00 0 77743 DBC95 STO E E, THEN LMH05270 | 00713 -2 00001 4 01001 TNX DBC15,4,1 BUMP WIDTH, EXIT WHEN EXHAUSTED. LMH05280 | BINARY CARD NO. 9IOH0024 | 00714 2 00001 1 00720 TIX DBC96,1,1 BUMP CHARACTER COUNT, IF EXHAUSTED LMH05290 | 00715 1 77777 2 00716 TXI DBC97,2,-1 GET ANOTHER WORD AND CONVERT E. LMH05300 | 00716 0774 00 1 00006 DBC97 AXT 6,1 GET A NEW WORD FOR LMH05310 00717 0560 00 2 77751 LDQ REC,2 E FIELD. LMH05320 | 00720 -0754 00 0 00000 DBC96 PXD ,0 TAKE A LMH05330 | 00721 -0763 00 0 00006 LGL 6 CHARACTER. LMH05340 | 00722 0340 00 0 01546 CAS BLANK TREAT BLANK LMH05350 | 00723 0020 00 0 01054 TRA STOP3 * ZERO. LMH05360 00724 0020 00 0 00727 TRA *+3 EXIT FOR LMH05370 | 00725 0340 00 0 01552 CAS TEN ILLEGAL CHARACTERS. LMH05380 | 00726 0020 00 0 01054 ER3 TRA STOP3 * CONVERT LMH05390 | 00727 -0754 00 0 00000 PXD ,0 E FIELD LMH05400 | 00730 0601 00 0 77737 STO DG AND LMH05410 00731 0500 00 0 77743 CLA E STORE LMH05420 | 00732 0767 00 0 00002 ALS 2 IN LMH05430 | 00733 0400 00 0 77743 ADD E E LMH05440 | 00734 0767 00 0 00001 ALS 1 AND LMH05450 | 00735 0361 00 0 77737 ACL DG GO LMH05460 00736 0020 00 0 00712 TRA DBC95 BUMP WIDTH. LMH05470 | 00737 0340 00 0 01546 DBC8 CAS BLANK EXAMINE NON-NUMERIC LMH05480 | | BINARY CARD NO. 9IOH0025 | 00740 0020 00 0 01057 TRA STOP4 * CHARACTER. LMH05490 00741 0020 00 0 00765 TRA DBC12 TREAT BLANK AS ZERO. LMH05500 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 12 | INPUT-OUTPUT HOLLERITH / 9IOH | | 00742 -0634 00 4 77746 DBC9 SXD U,4 IF A LMH05510 00743 0622 00 0 01050 STD ER DECIMAL LMH05520 | 00744 0340 00 0 01543 CAS POINT POINT, RECORD LMH05530 | 00745 0020 00 0 00676 TRA DBC4 FIELD LMH05540 | 00746 1 77777 4 00753 TXI *+5,4,-1 WIDTH. LMH05550 | 00747 0340 00 0 01544 CAS EXPON ON AN E LMH05560 00750 0020 00 0 01057 TRA STOP4 * GO CONVERT LMH05570 | 00751 0020 00 0 00663 TRA DBC3 E FIELD. LMH05580 | 00752 0020 00 0 00701 TRA DBC5 ANYTHING ELSE CONTINUE ABOVE. LMH05590 | 00753 0754 00 4 00000 PXA ,4 DECIMAL POINT FIELD POSITION LMH05600 | 00754 0601 00 0 77746 STO U IS SET LMH05610 00755 0601 00 0 77742 STO D HERE. LMH05620 | 00756 1 00001 4 00660 TXI DBC14,4,1 EXIT TO CONTINUE. LMH05630 | 00757 0774 00 1 00006 DBC99 AXT 6,1 GET A LMH05640 | 00760 0560 00 2 77751 LDQ REC,2 NEW WORD. LMH05650 | 00761 -0754 00 0 00000 DBC98 PXD ,0 TAKE A LMH05660 00762 -0763 00 0 00006 LGL 6 CHARACTER. LMH05670 | 00763 0340 00 0 01552 CAS TEN TREAT BLANK LMH05680 | | BINARY CARD NO. 9IOH0026 | 00764 0020 00 0 00737 TRA DBC8 AS ZERO, EXAMINE LMH05690 00765 -0754 00 0 00000 DBC12 PXD ,0 OTHER NON-NUMERICS AT DBC8. LMH05700 | 00766 0621 00 0 77737 STA DG CONVERT LMH05710 | 00767 0500 00 0 77745 CLA N BCD LMH05720 | 00770 0767 00 0 00002 ALS 2 TO LMH05730 | 00771 0400 00 0 77745 ADD N BINARY LMH05740 00772 0767 00 0 00001 ALS 1 AND LMH05750 | 00773 0400 00 0 77737 ADD DG IF LMH05760 | 00774 -0140 00 0 00657 TNO DBC13 NO OVERFLOW CONTINUE. LMH05770 | 00775 0500 00 0 77747 CLA V IF OVERFLOW, IGNORE LMH05780 | 00776 0400 00 0 01703 ADD L(1) CONVERTED RESULT, BUT LMH05790 00777 0601 00 0 77747 STO V ADD ONE TO V. LMH05800 | 01000 2 00001 4 00661 TIX DBC11,4,1 BUMP WIDTH. LMH05810 | 01001 0500 00 0 77745 DBC15 CLA N PICK UP CONVERTED N. LMH05820 | 01002 -0600 00 0 77734 STQ MQD SAVE REMAINING REC BUFFER LMH05830 | 01003 0634 00 1 00614 SXA DX1,1 CHARACTERS AND LMH05840 01004 0634 00 2 00615 SXA DX2,2 COUNTS. LMH05850 | 01005 0100 00 0 01043 TZE DBEXIT EXIT ON N = 0. LMH05860 | 01006 0761 00 0 01042 FIXSW NOP DBEXIT-1 SWITCH SET FOR I OR F CONVERT. LMH05870 | 01007 0765 00 0 00010 LRS 8 SHIFT BIN. INTGR. FROM DBC LMH05880 | BINARY CARD NO. 9IOH0027 | 01010 -0501 00 0 01707 ORA =163B8 243.- LMH05890 | 01011 0601 00 0 77744 STO F SAVE LARGER UNNORM. +/- NO. LMH05900 | 01012 0500 00 0 01705 CLA =136 FORM SMALLER UNNORM. NO. 210.- LMH05910 | 01013 0763 00 0 00010 LLS 8 AND LMH05920 01014 0767 00 0 00023 ALS 19 LEAVE IN AC FOR NORMALIZING LMH05930 | 01015 0300 00 0 77744 FAD F NORMALIZE TWO PARTS, SIGNS ALIKE LMH05940 | 01016 0760 00 0 00011 FRN .. LMH05950 | 01017 0131 00 0 00000 XCA SAVE LMH05960 | 01020 0500 00 0 77742 CLA D -DIG FROM FORMAT SPEC. LMH05970 01021 -0120 00 0 01025 TMI *+4 WAS DEC. PT. SPECIFIED. -- NO. LMH05980 | 01022 0500 00 0 77746 CLA U YES. LEFT MOST DEC POS WILL LMH05990 | 01023 0771 00 0 00022 ARS 18 OVERRIDE DIG SPEC.-F FLD. LMH06000 | 01024 0402 00 0 77742 SUB D SCALE IS -D.-E FLD. IS -(D-U). LMH06010 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 13 INPUT-OUTPUT HOLLERITH / 9IOH | | 01025 0400 00 0 77743 ADD E -(+/- PEX. IF F. OR E+/-NN, IF E. LMH06020 | 01026 0400 00 0 77747 ADD V OVERFLOW COUNT . IF ANY LMH06030 | 01027 0734 00 4 00000 PAX 0,4 TABLE INDEX FOR SCALING. LMH06040 01030 -0120 00 0 01033 TMI *+3 USE FDP TO SCALE LMH06050 | 01031 0260 00 4 01634 FMP L(1E0),4 NUMBER HIGHER. LMH06060 | 01032 0020 00 0 01043 TRA DBEXIT EXIT WITHOUT ROUNDING AGAIN. LMH06070 | 01033 0131 00 0 00000 DBC16 XCA NORMALIZE. UNSCALED DATA TO AC. LMH06080 | BINARY CARD NO. 9IOH0028 | 01034 3 00046 4 01040 TXH *+4,4,38 REQUIRES TWO DIVIDES. LMH06090 | 01035 0241 00 4 01634 FDP L(1E0),4 SCALE NUMBER LOWER. LMH06100 | 01036 0131 00 0 00000 XCA RETURN TO AC. LMH06110 | 01037 0020 00 0 01043 TRA DBEXIT EXIT. LMH06120 01040 0241 00 0 01566 FDP L(1E0)-38 SCALE DOWN TO RANGE OF TABLE. LMH06130 | 01041 2 00046 4 01033 TIX DBC16,4,38 GO DO FINAL SCALING DIVIDE. LMH06140 | 01042 0767 00 0 00022 ALS 18 .. LMH06200 | 01043 0601 00 0 77750 DBEXIT STO DATUM SAVE CONVERTED INPUT, AND LMH06210 | 01044 0020 00 0 01516 TRA COUNT * GO TEST FIELD COUNT. LMH06220 ILLEGAL INPUT DATA. LMH06230 | 01045 0441 00 0 01047 STOP1 LDI *+2 LMH06240 | 01046 0020 60 0 00001 TRA* $(EXE) * EXECUTION ERROR. LMH06250 | 01047 0 00655 1 00001 PZE 1,1,DBCS1 LMH06260 | 01050 3 00000 4 01057 ER TXH STOP4,4,.. LMH06270 01051 0441 00 0 01053 STOP2 LDI *+2 LMH06280 | 01052 0020 60 0 00001 TRA* $(EXE) * EXECUTION ERROR. LMH06290 | 01053 0 00711 1 00002 PZE 2,1,DBC6 LMH06300 | 01054 0441 00 0 01056 STOP3 LDI *+2 LMH06310 | 01055 0020 60 0 00001 TRA* $(EXE) * EXECUTION ERROR. LMH06320 01056 0 00727 1 00003 PZE 3,1,ER3+1 LMH06330 | 01057 0441 00 0 01061 STOP4 LDI *+2 LMH06340 | | BINARY CARD NO. 9IOH0029 | 01060 0020 60 0 00001 TRA* $(EXE) * EXECUTION ERROR. LMH06350 01061 0 00765 1 00004 PZE 4,1,DBC12 LMH06360 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH06370 | ENTRY FROM IOCNV FOR ALPHANUMERIC INPUT. LMH06380 | 01062 2 00001 1 01066 ANPT TIX ANPT1,1,1 SCAN THE CURRENT INPUT FIELD. LMH06390 | 01063 1 77777 2 01064 TXI *+1,2,-1 IF WIDTH LMH06400 01064 0560 00 2 77751 LDQ REC,2 IS GREATER THAN OR EQUAL TO SIX, LMH06410 | 01065 0774 00 1 00006 AXT 6,1 OBTAIN LMH06420 | 01066 -0763 00 0 00006 ANPT1 LGL 6 THE SIX LMH06430 | 01067 2 00001 4 01062 TIX ANPT,4,1 RIGHTMOST LMH06440 | 01070 0634 00 2 00615 SXA DX2,2 CHARACTERS. LMH06450 01071 -0600 00 0 77734 STQ MQD .. LMH06460 | 01072 0534 00 4 01457 LXA WIDTH,4 LEFT ADJUST, IF LESS THAN SIX LMH06470 | 01073 0560 00 0 01545 LDQ BLANKS AND LMH06480 | 01074 3 00005 4 01141 TXH ONPT4,4,5 * FILL OUT LMH06490 | 01075 -0763 00 0 00006 LGL 6 WORD LMH06500 01076 1 00001 4 01074 TXI *-2,4,1 WITH BLANKS. LMH06510 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH06520 | ENTRY FROM IOCNV FOR OCTAL INPUT. LMH06530 | 01077 0600 00 0 77745 ONPT STZ N CONVERT LMH06540 | 01100 2 00001 1 01106 ONPT1 TIX *+6,1,1 FROM LMH06550 01101 0534 00 2 00615 LXA DX2,2 OCTAL LMH06560 | 01102 1 77777 2 01103 TXI *+1,2,-1 TO LMH06570 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 14 | INPUT-OUTPUT HOLLERITH / 9IOH | 01103 0560 00 2 77751 LDQ REC,2 BINARY. LMH06580 | | BINARY CARD NO. 9IOH0030 | 01104 0634 00 2 00615 SXA DX2,2 IF FIELD LMH06590 | 01105 0774 00 1 00006 AXT 6,1 WIDTH IS LMH06600 01106 -0754 00 0 00000 PXD ,0 GREATER THAN 12 LMH06610 | 01107 -0763 00 0 00006 LGL 6 ONLY THE 12 LMH06620 | 01110 0734 00 2 00000 PAX ,2 RIGHTMOST LMH06630 | 01111 -3 00007 2 01131 TXL ONPT3,2,7 DIGITS ARE LMH06640 | 01112 0402 00 0 01546 SUB BLANK SIGNIFICANT. LMH06650 01113 0100 00 0 01131 TZE ONPT3 IF LESS LMH06660 | 01114 0500 00 0 01551 CLA MZE THAN 12, LMH06670 | 01115 -3 00013 2 01123 TXL STOP5,2,11 RIGHT-ADJUST LMH06680 | 01116 -3 00014 2 01126 TXL ONPT2,2,12 AND FILLOUT LMH06690 | 01117 3 00040 2 01123 TXH STOP5,2,32 WITH LMH06700 01120 3 00037 2 01126 TXH ONPT2,2,32-1 ZEROS. LMH06710 | 01121 3 00020 2 01123 TXH STOP5,2,16 TREAT BLANKS LMH06720 | 01122 3 00017 2 01131 TXH ONPT3,2,16-1 AS ZEROS. LMH06730 | 01123 0441 00 0 01125 STOP5 LDI *+2 EXIT FOR LMH06740 | 01124 0020 60 0 00001 TRA* $(EXE) * EXECUTION ERROR. LMH06750 01125 0 01131 1 00005 PZE 5,1,ONPT3 ILLEGAL INPUT DATA. LMH06760 | 01126 0520 00 0 77745 ONPT2 ZET N .. LMH06770 | 01127 0020 00 0 01123 TRA STOP5 .. LMH06780 | | BINARY CARD NO. 9IOH0031 01130 0601 00 0 77737 STO DG .. LMH06790 | 01131 0621 00 0 77737 ONPT3 STA DG .. LMH06800 | 01132 -0500 00 0 77745 CAL N .. LMH06810 | 01133 0767 00 0 00003 ALS 3 .. LMH06820 | 01134 0401 00 0 77737 ADM DG .. LMH06830 01135 0602 00 0 77745 SLW N .. LMH06840 | 01136 2 00001 4 01100 TIX ONPT1,4,1 .. LMH06850 | 01137 -0501 00 0 77737 ORA DG .. LMH06860 | 01140 -0600 00 0 77734 STQ MQD .. LMH06870 | ENTRY FROM ANPT. LMH06880 01141 0602 00 0 77750 ONPT4 SLW DATUM .. LMH06890 | 01142 0634 00 1 00614 SXA DX1,1 .. LMH06900 | 01143 0020 00 0 01516 TRA COUNT * EXIT TO TEST FIELD COUNT. LMH06910 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH06920 | ENTRY FROM IOCNV FOR ALPHANUMERIC OUTPUT. LMH06930 01144 0534 00 4 01457 AOUT LXA WIDTH,4 STARTING ON THE LEFT, LMH06940 | 01145 0131 00 0 00000 XCA MOVE THE SPECIFIED NUMBER LMH06950 | 01146 -3 00006 4 01150 TXL *+2,4,6 OF ALPHANUMERICS LMH06960 | 01147 0774 00 4 00006 AXT 6,4 FROM THE CURRENT WORD LMH06970 | 01150 -0754 00 0 00000 PXD ,0 INTO THE LMH06980 01151 -0763 00 0 00006 LGL 6 CHARACTER BUFFER. LMH06990 | 01152 0602 00 4 77725 SLW CHAR,4 THEN GO LMH07000 | 01153 2 00001 4 01150 TIX *-3,4,1 FILL OUT THE FIELD LMH07010 | | BINARY CARD NO. 9IOH0032 01154 1 00005 4 01453 TXI TOPACK,4,5 * WITH LEADING BLANKS. LMH07020 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH07030 | ENTRY FROM IOCNV FOR OCTAL OUTPUT. LMH07040 | 01155 0131 00 0 00000 OOUT XCA STARTING ON THE RIGHT, LMH07050 | 01156 0774 00 4 00014 AXT 12,4 CONVERT THE LMH07060 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 15 | INPUT-OUTPUT HOLLERITH / 9IOH | | 01157 -0754 00 0 00000 PXD ,0 CURRENT LMH07070 | 01160 -0763 00 0 00003 LGL 3 WORD LMH07080 01161 0602 00 4 77725 SLW CHAR,4 FROM LMH07090 | 01162 2 00001 4 01157 TIX *-3,4,1 BINARY LMH07100 | 01163 0534 00 4 01457 LXA WIDTH,4 TO LMH07110 | 01164 3 00013 4 01202 TXH OUTEX,4,11 OCTAL LMH07120 | 01165 0560 00 0 77750 LDQ DATUM AND LMH07130 01166 -0754 00 0 00000 PXD ,0 MOVE LMH07140 | 01167 0763 00 0 00002 LLS 2 INTO LMH07150 | 01170 -0100 00 0 01202 TNZ OUTEX CHARACTER LMH07160 | 01171 -0500 00 0 01546 CAL BLANK BUFFER. LMH07170 | 01172 0774 00 4 00012 AXT 10,4 CONVERT LMH07180 01173 0520 00 4 77724 ZET CHAR-1,4 LEADING LMH07190 | 01174 1 00001 4 01177 TXI *+3,4,1 ZEROS LMH07200 | 01175 0602 00 4 77724 SLW CHAR-1,4 TO BLANKS. LMH07210 | 01176 2 00001 4 01173 TIX *-3,4,1 SIGN LMH07220 | 01177 0162 00 0 01202 TQP *+3 THE NUMBER, LMH07230 | BINARY CARD NO. 9IOH0033 | 01200 -0500 00 0 01542 CAL MINUS IF LMH07240 | 01201 0602 00 4 77724 SLW CHAR-1,4 NEGATIVE LMH07250 | 01202 0774 00 4 00014 OUTEX AXT 12,4 AND WITHIN FIELD SIZE. LMH07260 01203 0020 00 0 01453 TRA TOPACK * GO FILL OUT FIELD WITH BLANKS. LMH07270 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH07280 | ENTRY FROM I/O LIST THRU CNVSW. LMH07290 | 01204 -0320 00 0 01710 GOUT ANA =O300000777777 ASSUME I CNV. BITS 1,2,18-35 OFF LMH07300 | 01205 -0100 00 0 01212 TNZ GOUT1 ASSUME NO. IS FLOATING LMH07310 01206 0774 00 4 01251 AXT GOUT3,4 SET RETURN TO PACK LMH07320 | 01207 0634 00 4 01452 SXA INTGSW,4 I FIELD FIRST. LMH07330 | 01210 0500 00 0 77750 CLA DATUM GO LMH07340 | 01211 0020 00 0 01434 TRA INTG * CONVERT I FIELD AND RETURN. LMH07350 | 01212 0500 00 0 77750 GOUT1 CLA DATUM DETERMINE E OR F CNV. LMH07360 01213 0534 00 4 77731 LXA DIG,4 NO. IS BETWEEN LMH07370 | 01214 -0634 00 4 01222 SXD GOUT2,4 .1 - 10** (D+1) FOR F LMH07380 | 01215 -0340 00 0 01635 LAS L(1E0)+1 .1 LMH07390 | 01216 1 00001 4 01221 TXI *+3,4,1 .. LMH07400 | 01217 1 00001 4 01221 TXI *+2,4,1 .. LMH07410 01220 0020 00 0 01310 TRA FLT * OUT OF RANGE, GO TO E CONVERT. LMH07420 | 01221 -0340 00 4 01635 LAS L(1E0)+1,4 10**(D+1) LMH07430 | 01222 3 00000 4 01310 GOUT2 TXH FLT,4,.. * ALSO OUT OF RANGE, GO E CONVERT. LMH07440 | 01223 1 77777 4 01226 TXI *+3,4,-1 REDUCE SCALE FOR ROUNDING LMH07450 | BINARY CARD NO. 9IOH0034 | 01224 2 00001 4 01221 TIX *-3,4,1 .. LMH07460 | 01225 1 77777 4 01226 TXI *+1,4,-1 .. LMH07470 | 01226 0754 00 4 00000 PXA ,4 .. LMH07480 | 01227 0402 00 0 77731 SUB DIG FINAL ROUNDING SCALE LMH07490 01230 0621 00 0 77731 STA DIG .. LMH07500 | 01231 0600 00 0 77732 STZ EXP NO. WILL BE FIXED W/O SCALING LMH07510 | 01232 -0500 00 0 01546 CAL BLANK BLANK RIGHT PART OF F FIELD LMH07520 | 01233 0774 00 4 00004 AXT 4,4 .. LMH07530 | 01234 0601 00 4 77725 STO CHAR,4 .. LMH07540 01235 2 00001 4 01234 TIX *-1,4,1 .. LMH07550 | 01236 -0500 00 0 01242 CAL *+4 SET RETURN FROM TOPACK LMH07560 | 01237 0602 00 0 01515 SLW TOPSW2 .. LMH07570 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 16 | INPUT-OUTPUT HOLLERITH / 9IOH | 01240 0500 00 0 77750 CLA DATUM PICKUP DATA AND GO F CNVT. LMH07580 | 01241 0020 00 0 01421 TRA FXD * TESTING FOR ZERO FIRST. LMH07590 | 01242 0020 00 0 01243 TRA *+1 RETURN TRANSFER LMH07600 | RENTRY FROM TOPACK. LMH07610 01243 0602 00 0 77777 SLW WORD SAVE PARTIAL WORD LMH07620 | 01244 -0534 00 4 01222 LXD GOUT2,4 RESTORE ORIGINAL LMH07630 | 01245 0634 00 4 77731 SXA DIG,4 ROUNDING SCALE LMH07640 | 01246 -0500 00 0 01243 CAL *-3 RESTORE TOPACKS SLW LMH07650 | 01247 0602 00 0 01515 SLW TOPSW2 .. LMH07660 | BINARY CARD NO. 9IOH0035 | 01250 0020 00 0 01516 TRA COUNT * RESUME FIELD PROCESSING. LMH07670 | RENTRY FROM INTG. LMH07680 | 01251 0774 00 2 01453 GOUT3 AXT TOPACK,2 RESTORE TOPACK ENTRY TO INTSW. LMH07690 01252 0634 00 2 01452 SXA INTGSW,2 .. LMH07700 | 01253 -0634 00 4 01257 SXD *+4,4 SAVE THE NUMBER OF CHARACTERS. LMH07710 | 01254 0535 00 2 77731 LAC DIG,2 COMPUTE THE LMH07720 | 01255 -0634 00 2 01260 SXD *+3,2 NUMBER LMH07730 | 01256 0534 00 2 01457 LXA WIDTH,2 OF LMH07740 01257 -2 00000 2 01270 TNX GOUT30,2,.. LEADING LMH07750 | 01260 1 00000 2 01261 TXI *+1,2,.. BLANKS, LMH07760 | 01261 1 77773 2 01262 TXI *+1,2,-5 IF ANY, LMH07770 | 01262 3 00310 2 01270 TXH *+6,2,200 TRANSFER IF A NEGATIVE NUMBER. LMH07780 | 01263 -3 00000 2 01270 TXL *+5,2,0 TRANSFER IF NO BLANKS. LMH07790 01264 0560 00 0 01546 LDQ BLANK OTHERWISE, FILL THE LMH07800 | 01265 -0600 00 4 77724 STQ CHAR-1,4 CHARACTER BUFFER LMH07810 | 01266 1 00001 4 01267 TXI *+1,4,1 WITH ENOUGH BLANKS LMH07820 | 01267 2 00001 2 01265 TIX *-2,2,1 AND GO PACK WHEN DONE. LMH07830 | 01270 -0634 00 4 01272 GOUT30 SXD *+2,4 SAVE THE ACTUAL FIELD SIZE. LMH07840 01271 0534 00 4 01457 LXA WIDTH,4 IS ACTUAL FLD LGR OR EQUAL TO LMH07850 | 01272 -2 00000 4 01453 GOUT31 TNX TOPACK,4,.. * SPECIFIED WIDTH, YES. LMH07860 | 01273 0774 00 2 01302 AXT GOUT4,2 NO. SET RETURN FROM I FIELD PACK LMH07870 | | BINARY CARD NO. 9IOH0036 01274 0634 00 2 01472 SXA TOPSW1,2 .. LMH07880 | 01275 0634 00 4 01305 SXA GOUT41,4 SAVE REMAINING FIELD TOPACK BLANKS.LMH07890 | 01276 -0534 00 4 01272 LXD GOUT31,4 SET TOPACK PACKING THE LMH07900 | 01277 0441 00 0 01457 LDI WIDTH RECORD BUFFER WITH LMH07910 | 01300 0634 00 4 01457 SXA WIDTH,4 THE ACTUAL I FIELD. LMH07920 01301 0020 00 0 01453 TRA TOPACK * PACKEM. LMH07930 | RENTRY FROM TOPACK. LMH07940 | 01302 0604 00 0 01457 GOUT4 STI WIDTH RESTORE WIDTH. LMH07950 | 01303 0774 00 2 01515 AXT TOPSW2,2 RESTORE TOPACK EXIT. LMH07960 | 01304 0634 00 2 01472 SXA TOPSW1,2 .. LMH07970 01305 0774 00 4 00000 GOUT41 AXT ..,4 RESTORE BLANKS REMAINING. LMH07980 | 01306 -0634 00 0 01460 SXD WIDTH+1,0 RESET DECREMENT. LMH07990 | 01307 0020 00 0 01473 TRA TOPC * GO PACK BLANKS. LMH08000 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH08010 | BDC / BINARY TO DECIMAL CONVERSION. LMH08020 ENTRY FROM IOCNV, GOUT, FOR FLOATING POINT. LMH08030 | 01310 0100 00 0 01422 FLT TZE BDC1 EXIT ON ZERO. LMH08040 | 01311 -0130 00 0 00000 XCL P, Q BITS ASSUMED OFF LMH08050 | 01312 -0754 00 0 00000 PXD ,0 .. LMH08060 | 01313 0763 00 0 00010 LLS 8 .. LMH08070 01314 0402 00 0 01704 SUB =128 MODULO 128 LMH08080 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 17 | INPUT-OUTPUT HOLLERITH / 9IOH | | 01315 0131 00 0 00000 XCA FORM APPROX. OF DEC. SCALE LMH08090 01316 0204 14 0 01553 VLM LOG2,,12 BY * LOG2 AT Q OF 23 LMH08100 | 01317 0734 00 2 00000 PAX ,2 0-38 POSSIBLE IN IR2 LMH08110 | | BINARY CARD NO. 9IOH0037 | 01320 0120 00 0 01327 TPL FLT1 NO. IS E OR GT MOD. 128 LMH08120 01321 0737 00 4 00000 PAC ,4 ADJUST SCALE UP TO -38 LMH08130 | 01322 0500 00 0 77750 CLA DATUM LOGICAL CP. DATA WITH BASE LMH08140 | 01323 -0340 00 4 01635 LAS L(1E0)+1,4 1E-1, AND APPROX. DEC. SCALE LMH08150 | 01324 0020 00 0 01333 TRA FLT2 TRUE SCALE LMH08160 | 01325 0020 00 0 01333 TRA FLT2 TRUE SCALE LMH08170 01326 1 00001 2 01333 TXI FLT2,2,1 ADJUST EXP. UP LMH08180 | 01327 0500 00 0 77750 FLT1 CLA DATUM ADJUST SCALE UP TO +38 LMH08190 | 01330 -0340 00 2 01634 LAS L(1E0),2 .. LMH08200 | 01331 1 00001 2 01333 TXI *+2,2,1 ADJUST EXP. UP LMH08210 | 01332 1 00001 2 01333 TXI *+1,2,1 .. LMH08220 01333 0754 00 2 00000 FLT2 PXA ,2 TRUE EXP. LMH08230 | 01334 0763 00 0 00000 LLS 0 GIVE TRUE SIGN LMH08240 | 01335 0402 00 0 77733 SUB PEX ADJUST EXP. BY SCALE FACTOR LMH08250 | 01336 0601 00 0 77732 STO EXP .. LMH08260 | 01337 0560 00 0 01544 LDQ EXPON .. LMH08270 01340 -0600 00 0 77721 STQ CHAR-4 .. LMH08280 | 01341 0441 00 0 01546 LDI BLANK .. LMH08290 | 01342 0120 00 0 01344 TPL *+2 .. LMH08300 | 01343 0057 00 000020 RIR 20 .. LMH08310 | BINARY CARD NO. 9IOH0038 | 01344 0604 00 0 77722 STI CHAR-3 LMH08320 | 01345 0560 00 0 01703 LDQ L(1) FORM BCD EXPONENT LMH08330 | 01346 0765 00 0 00003 LRS 3 .. LMH08340 | 01347 0225 03 0 01552 VDP TEN,,3 MAX. CHAR. = 63 LMH08350 01350 -0600 00 0 77723 STQ CHAR-2 .. LMH08360 | 01351 0602 00 0 77724 SLW CHAR-1 .. LMH08370 | 01352 0500 00 0 77750 CLA DATUM .. LMH08380 | 01353 0534 00 4 77732 FXD1 LXA EXP,4 IF EXP. IS ZERO LMH08390 | 01354 -3 00000 4 01374 TXL FXD3,4,0 FIX, SCALING NOT NEEDED. LMH08400 01355 0131 00 0 00000 XCA SAVE DATUM LMH08410 | 01356 0500 00 0 77732 CLA EXP -(+/-PEX, F. OR ADJ. FROM E CONV. LMH08420 | 01357 -3 00046 4 01371 TXL FXD2,4,38 NO. CAN BE SCALED BY 1 MULT. LMH08430 | 01360 2 00046 4 01361 TIX *+1,4,38 ADJUST FOR LAST MULT. LMH08440 | 01361 0120 00 0 01365 TPL *+4 .. LMH08450 01362 0260 00 0 01566 FMP NEWTAB-76 * BY 10 TO +38 LMH08460 | 01363 0131 00 0 00000 XCA .. LMH08470 | 01364 0020 00 0 01373 TRA FXD21 DO SECOND MULT. LMH08480 | 01365 0260 00 0 01702 FMP NEWTAB * BY 10 TO -38 LMH08490 | 01366 0131 00 0 00000 XCA .. LMH08500 01367 0754 00 4 00000 PXA ,4 SET EFF. DIVIDE LMH08510 | | BINARY CARD NO. 9IOH0039 | 01370 0020 00 0 01372 TRA *+2 DO SECOND MULT. LMH08520 | 01371 -0120 00 0 01373 FXD2 TMI *+2 ONE MULT. NEEDED TO SCALE LMH08530 01372 0737 00 4 00000 PAC ,4 .. LMH08540 | 01373 0260 00 4 01634 FXD21 FMP NEWTAB-38,4 FIRST OR FINAL SCALING FACTOR LMH08550 | 01374 -0300 00 0 01706 FXD3 UFA =155B8 FIX NO. (SPILL MAY OCCUR ON F CONV.LMH08610 | 01375 0763 00 0 00010 LLS 8 NO SCALING LMH08620 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 18 INPUT-OUTPUT HOLLERITH / 9IOH | | 01376 0767 00 0 00002 ALS 2 NEEDED, DISCARD LMH08630 | 01377 0771 00 0 00012 ARS 10 CHARACTERISTIC. LMH08640 | 01400 0601 00 0 77741 FXD31 STO ND .. LMH08650 01401 0131 00 0 00000 XCA GET LMH08660 | 01402 0534 00 4 77731 LXA DIG,4 FRACTION, LMH08670 | 01403 0361 00 4 01565 ACL RND,4 ADD APPROPRIATE ROUNDING FACTOR, LMH08680 | 01404 0765 00 0 00043 LRS 35 .. LMH08690 | 01405 0400 00 0 77741 ADD ND .. LMH08700 01406 0601 00 0 77741 STO ND .. LMH08710 | 01407 -3 00000 4 01427 TXL BDC2,4,0 EXIT IS DIG = 0. LMH08720 | 01410 -0600 00 0 77740 STQ FD CONVERT FRACTION. LMH08730 | 01411 0767 00 0 00004 ALS 4 4 BITS, 1 LMH08740 | 01412 0763 00 0 00041 LLS 33 CHARACTER LMH08750 01413 0400 00 0 77740 ADD FD AT LMH08760 | | BINARY CARD NO. 9IOH0040 | 01414 0765 00 0 00040 LRS 32 A TIME. LMH08770 | 01415 0602 00 4 00000 FXFL1 SLW ..,4 STORE LMH08780 01416 2 00001 4 01410 TIX *-6,4,1 AND REPEAT UNTIL DONE. LMH08790 | 01417 0500 00 0 77741 CLA ND GET INTEGER AND LMH08800 | 01420 0020 00 0 01427 TRA BDC2 TO TO CONVERT. LMH08810 | ENTRY FROM IOCNV, GOUT, FOR FIXED POINT. LMH08820 | 01421 -0100 00 0 01353 FXD TNZ FXD1 DO F CONVERSION. LMH08830 01422 0534 00 4 77731 BDC1 LXA DIG,4 IF ZERO, FILL LMH08840 | 01423 0560 00 0 01546 LDQ BLANK IN LMH08850 | 01424 1 00000 4 01425 FXFL2 TXI *+1,4,.. BLANKS. LMH08860 | 01425 -0600 00 4 77725 STQ CHAR,4 .. LMH08870 | 01426 2 00001 4 01425 TIX *-1,4,1 .. LMH08880 01427 0534 00 4 77731 BDC2 LXA DIG,4 .. LMH08890 | 01430 1 00000 4 01431 FXFL3 TXI *+1,4,.. .. LMH08900 | 01431 0560 00 0 01543 LDQ POINT AND A LMH08910 | 01432 -0600 00 4 77725 STQ CHAR,4 POINT. LMH08920 | 01433 0020 00 0 01436 TRA *+3 .. LMH08930 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH08940 | ENTRY FROM IOCNV, GOUT, FOR INTEGER. LMH08950 | 01434 0774 00 4 00000 INTG AXT 0,4 .. LMH08960 | 01435 0771 00 0 00022 ARS 18 .. LMH08970 | 01436 0131 00 0 00000 XCA INTEGER PART FROM I, E, F. LMH08980 01437 -0754 00 0 00000 PXD ,0 .. LMH08990 | | BINARY CARD NO. 9IOH0041 | 01440 0221 00 0 01552 DVP TEN .. LMH09000 | 01441 0602 00 4 77724 SLW CHAR-1,4 STRING CHARACTERS FROM LOW TO HIGH.LMH09010 01442 0131 00 0 00000 XCA .. LMH09020 | 01443 0100 00 0 01445 TZE *+2 NO MORE. LMH09030 | 01444 1 00001 4 01436 TXI *-6,4,1 .. LMH09040 | 01445 0560 00 0 77750 LDQ DATUM SET SIGN OF THIS FIELD. LMH09050 | 01446 0441 00 0 01546 LDI BLANK .. LMH09060 01447 0162 00 0 01451 TQP *+2 .. LMH09070 | 01450 0057 00 000020 RIR 20 .. LMH09080 | 01451 0604 00 4 77723 STI CHAR-2,4 .. LMH09090 | 01452 1 00002 4 01453 INTGSW TXI TOPACK,4,2 * ADJ. FLD. SIZ FOR SIGN AND 1 CHAR. LMH09100 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH09110 ENTRY FROM BDC, AOUT, OOUT, BOUT, GOUT. LMH09120 | 01453 -0500 00 0 77777 TOPACK CAL WORD FILL OUTPUT LMH09130 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 19 | INPUT-OUTPUT HOLLERITH / 9IOH | 01454 -0140 00 0 01455 TNO *+1 BUFFER LMH09140 | 01455 0534 00 1 01464 LXA PACK,1 WITH LMH09150 | 01456 -0634 00 4 01460 SXD *+2,4 LEADING LMH09160 | 01457 0774 00 4 00000 WIDTH AXT ..,4 BLANKS LMH09170 | 01460 2 00000 4 01473 TIX TOPC,4,.. A WORD LMH09180 01461 0767 00 0 00006 TOPA ALS 6 AT A TIME, IF POSSIBLE LMH09190 | 01462 0401 00 4 77725 ADM CHAR,4 AFTER THE LMH09200 | 01463 -0140 00 0 01471 TNO TOPB PENDING LMH09210 | | BINARY CARD NO. 9IOH0042 01464 0602 00 0 00000 PACK SLW .. WORD LMH09220 | 01465 3 77776 1 00325 TEST TXH OVER,1,REC+LIMIT-1 * (HAS LINE FORMATTING OVERFLOWED) LMH09230 | 01466 1 00001 1 01467 TXI *+1,1,1 IS READY LMH09240 | 01467 0634 00 1 01464 SXA PACK,1 THEN, LMH09250 | 01470 -0500 00 0 01703 CAL L(1) COMPLETE LMH09260 01471 2 00001 4 01461 TOPB TIX TOPA,4,1 THE LMH09270 | 01472 0020 00 0 01515 TOPSW1 TRA TOPSW2 * FIELD LMH09280 | ENTRY FROM GOUT. LMH09290 | 01473 0560 00 0 01545 TOPC LDQ BLANKS BY LMH09300 | 01474 -0763 00 0 00006 TOPD LGL 6 PACKING LMH09310 01475 -0140 00 0 01512 TNO TOPF FROM LMH09320 | 01476 0560 00 0 01545 LDQ BLANKS THE LMH09330 | 01477 0522 00 0 01464 XEC PACK CHARACTER LMH09340 | 01500 1 77777 4 01502 TXI *+2,4,-1 BUFFER LMH09350 | 01501 -0600 60 0 01464 TOPE STQ* PACK INTO LMH09360 01502 0522 00 0 01465 XEC TEST * (HAS LINE FORMATTING OVERFLOWED) LMH09370 | 01503 1 00001 1 01504 TXI *+1,1,1 THE LMH09380 | 01504 0634 00 1 01464 SXA PACK,1 BUFFER LMH09390 | 01505 2 00006 4 01501 TIX TOPE,4,6 THE LMH09400 | 01506 1 00001 4 01507 TXI *+1,4,1 REMAINING LMH09410 01507 -3 00006 4 01511 TXL *+2,4,6 TRUE LMH09420 | | BINARY CARD NO. 9IOH0043 | 01510 1 77771 4 01501 TXI TOPE,4,-7 FIELD LMH09430 | 01511 -0500 00 0 01703 CAL L(1) CHARACTERS LMH09440 01512 2 00001 4 01474 TOPF TIX TOPD,4,1 AND LMH09450 | 01513 -0534 00 4 01460 LXD WIDTH+1,4 SAVE LMH09460 | 01514 2 00000 4 01461 TIX TOPA,4,0 PARTIAL LMH09470 | 01515 0602 00 0 77777 TOPSW2 SLW WORD * WORD. LMH09480 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH09490 ENTRY FROM DBC, ANPT, ONPT, TOPACK, GOUT. LMH09500 | 01516 0774 00 4 00000 COUNT AXT ..,4 TEST FIELD COUNT, LMH09510 | 01517 -2 00001 4 00224 TNX DONE,4,1 IF NOT DONE, LMH09520 | 01520 0634 00 4 01516 SXA *-2,4 RESET COUNT, AND LMH09530 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH09540 ENTRY FROM CCRPAR, FIELD. LMH09550 | 01521 0560 00 0 77750 LIST LDQ DATUM PICKUP INPUT DATUM. LMH09560 | 01522 0774 00 1 00000 AX1 AXT ..,1 RESTORE LMH09570 | 01523 0774 00 2 00000 AX2 AXT ..,2 INDEX LMH09580 | 01524 0774 00 4 00000 AX4 AXT ..,4 REGISTERS. LMH09590 01525 0020 00 0 00000 EXIT TRA .. * EXIT TO PROGRAMS I/O LIST. LMH09600 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH09610 | ENTRY FROM MAIN PROGRAM. LMH09620 | 01526 0500 00 0 01464 (FIL) CLA PACK WHEN LMH09630 | 01527 0402 00 0 00271 SUB FILT LIST LMH09640 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 20 | INPUT-OUTPUT HOLLERITH / 9IOH | | 01530 -0100 00 0 01534 TNZ *+4 HAS LMH09650 | 01531 0500 00 0 77777 CLA WORD BEEN LMH09660 01532 0402 00 0 01703 SUB L(1) SATISFIED, LMH09670 | 01533 0100 00 0 01537 TZE (RTN) PROCESS LMH09680 | | BINARY CARD NO. 9IOH0044 | 01534 0634 00 4 01536 SXA *+2,4 ANY REMAINING LMH09690 01535 0074 00 4 00230 TSX INOUT,4 * OUTPUT. LMH09700 | 01536 0774 00 4 00000 AXT ..,4 THEN, LMH09710 | ENTRY FROM MAIN PROGRAM. LMH09720 | 01537 (RTN) BSS 0 RESTORE LMH09730 | 01537 -0500 00 0 77727 CAL C(2) L(2), LMH09740 01540 0602 00 0 00002 SLW 2 .. LMH09750 | 01541 0020 00 4 00001 TRA 1,4 * TAKE FINAL EXIT TO MAIN PROGRAM. LMH09760 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH09770 | 01542 000000000040 MINUS BCI 1,00000- CONSTANT USED BY (IOH). LMH09780 | 01543 000000000033 POINT BCI 1,00000. CONSTANT USED BY (IOH). LMH09790 01544 000000000025 EXPON BCI 1,00000E CONSTANT USED BY (IOH). LMH09800 | 01545 606060606060 BLANKS BCI 1, CONSTANT USED BY (IOH). LMH09810 | 01546 000000000060 BLANK BCI 1,00000 CONSTANT USED BY (IOH). LMH09820 | 01547 000000000020 PLUS BCI 1,00000+ CONSTANT USED BY (IOH). LMH09830 | 01550 000000000014 NEGAT BCI 1,00000' CONSTANT USED BY (IOH). LMH09840 01551 -0 00000 0 00000 MZE MZE CONSTANT USED BY (IOH). LMH09850 | 01552 0 00000 0 00012 TEN PZE 10 CONSTANT USED BY (IOH). LMH09860 | 01553 +000000002321 LOG2 OCT 2321 LOG 2 BINARY 23. LMH09870 | TABLE OF ROUNDED ROUNDING CONSTANTS FOR E AND F CNV. LMH09880 | 01554 +000000000021 DEC .5BE-9 09-TABLE USED BY (IOH). LMH09890 01555 +000000000254 OCT 254 .5BE-8 LMH09900 | 01556 +000000003266 OCT 3266 .5BE-7 LMH09910 | 01557 +000000041434 OCT 41434 .5BE-6 LMH09920 | | BINARY CARD NO. 9IOH0045 01560 +000000517427 OCT 517427 .5BE-5 LMH09930 | 01561 +000006433343 OCT 6433343 .5BE-4 LMH09940 | 01562 +000101422335 DEC .5BE-3 03-TABLE USED BY (IOH). LMH09950 | 01563 +001217270244 OCT 1217270244 .5BE-2 LMH09960 | 01564 +014631463146 DEC .5BE-1 01-TABLE USED BY (IOH). LMH09970 01565 +200000000000 RND DEC .5B 00-TABLE USED BY (IOH). LMH09980 | TABLE OF POWERS OF TEN ROUNDED UP TO 9 DIGIT ACCURACY LMH09990 | 01566 +377454732313 OCT 377454732313 1E38 LMH10000 | 01567 +373741367021 OCT 373741367021 1E37 LMH10010 | 01570 +370601137164 OCT 370601137164 1E36 LMH10020 01571 +365464114135 OCT 365464114135 1E35 LMH10030 | 01572 +361755023373 OCT 361755023373 1E34 LMH10040 | 01573 +356612334311 OCT 356612334311 1E33 LMH10050 | 01574 +353473426555 OCT 353473426555 1E32 LMH10060 | 01575 +347770675742 OCT 347770675742 1E31 LMH10070 01576 +344623713116 OCT 344623713116 1E30 LMH10080 | 01577 +341503074077 OCT 341503074077 1E29 LMH10090 | 01600 +336402374714 OCT 336402374714 1E28 LMH10100 | 01601 +332635456171 OCT 332635456171 1E27 LMH10110 | 01602 +327512676456 OCT 327512676456 1E26 LMH10120 01603 +324410545213 OCT 324410545213 1E25 LMH10130 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 21 | INPUT-OUTPUT HOLLERITH / 9IOH | | BINARY CARD NO. 9IOH0046 01604 +320647410336 OCT 320647410336 1E24 LMH10140 | 01605 +315522640262 OCT 315522640262 1E23 LMH10150 | 01606 +312417031702 OCT 312417031702 1E22 LMH10160 | 01607 +306661534466 OCT 306661534466 1E21 LMH10170 | 01610 +303532743536 OCT 303532743536 1E20 LMH10180 01611 +300425434430 OCT 300425434430 1E19 LMH10190 | 01612 +274674055532 OCT 274674055532 1E18 LMH10200 | 01613 +271543212741 OCT 271543212741 1E17 LMH10210 | 01614 +266434157116 OCT 266434157116 1E16 LMH10220 | 01615 +262706576512 OCT 262706576512 1E15 LMH10230 01616 +257553630410 OCT 257553630410 1E14 LMH10240 | 01617 +254443023471 OCT 254443023471 1E13 LMH10250 | 01620 +250721522451 OCT 250721522451 1E12 LMH10260 | 01621 +245564416672 OCT 245564416672 1E11 LMH10270 | 01622 +242452013710 OCT 242452013710 1E10 LMH10280 01623 +236734654500 OCT 236734654500 1E9 LMH10290 | 01624 +233575360400 OCT 233575360400 1E8 LMH10300 | 01625 +230461132000 OCT 230461132000 1E7 LMH10310 | 01626 +224750220000 OCT 224750220000 1E6 LMH10320 | 01627 +221606500000 OCT 221606500000 1E5 LMH10330 | BINARY CARD NO. 9IOH0047 | 01630 +216470400000 OCT 216470400000 1E4 LMH10340 | 01631 +212764000000 OCT 212764000000 1E3 LMH10350 | 01632 +207620000000 OCT 207620000000 1E2 LMH10360 01633 +204500000000 OCT 204500000000 1E1 LMH10370 | 01634 +201400000000 L(1E0) OCT 201400000000 1E0 LMH10380 | 01635 +175631463146 OCT 175631463146 1E-1 LMH10390 | 01636 +172507534122 OCT 172507534122 1E-2 LMH10400 | 01637 +167406111565 OCT 167406111565 1E-3 LMH10410 01640 +163643334273 OCT 163643334273 1E-4 LMH10420 | 01641 +160517426542 OCT 160517426542 1E-5 LMH10430 | 01642 +155414336750 OCT 155414336750 1E-6 LMH10440 | 01643 +151655376247 OCT 151655376247 1E-7 LMH10450 | 01644 +146527461671 OCT 146527461671 1E-8 LMH10460 01645 +143422701372 OCT 143422701372 1E-9 LMH10470 | 01646 +137667633766 OCT 137667633766 1E-10 LMH10480 | 01647 +134537657770 OCT 134537657770 1E-11 LMH10490 | 01650 +131431363140 OCT 131431363140 1E-12 LMH10500 | 01651 +125702270232 OCT 125702270232 1E-13 LMH10510 01652 +122550223342 OCT 122550223342 1E-14 LMH10520 | 01653 +117440165750 OCT 117440165750 1E-15 LMH10530 | | BINARY CARD NO. 9IOH0048 | 01654 +113715126246 OCT 113715126246 1E-16 LMH10540 01655 +110560736522 OCT 110560736522 1E-17 LMH10550 | 01656 +105447113564 OCT 105447113564 1E-18 LMH10560 | 01657 +101730171124 OCT 101730171124 1E-19 LMH10570 | 01660 +076571624103 OCT 076571624103 1E-20 LMH10580 | 01661 +073456166403 OCT 073456166403 1E-21 LMH10590 01662 +067743444004 OCT 067743444004 1E-22 LMH10600 | 01663 +064602666320 OCT 064602666320 1E-23 LMH10610 | 01664 +061465370246 OCT 061465370246 1E-24 LMH10620 | 01665 +055757132075 OCT 055757132075 1E-25 LMH10630 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 22 INPUT-OUTPUT HOLLERITH / 9IOH | | 01666 +052614110061 OCT 052614110061 1E-26 LMH10640 | 01667 +047474723216 OCT 047474723216 1E-27 LMH10650 | 01670 +043773036660 OCT 043773036660 1E-28 LMH10660 01671 +040625513700 OCT 040625513700 1E-29 LMH10670 | 01672 +035504411400 OCT 035504411400 1E-30 LMH10680 | 01673 +032403472631 OCT 032403472631 1E-31 LMH10690 | 01674 +026637304365 OCT 026637304365 1E-32 LMH10700 | 01675 +023514235136 OCT 023514235136 1E-33 LMH10710 01676 +020411660745 OCT 020411660745 1E-34 LMH10720 | 01677 +014651264556 OCT 014651264556 1E-35 LMH10730 | | BINARY CARD NO. 9IOH0049 | 01700 +011524220445 OCT 011524220445 1E-36 LMH10740 01701 +006420163521 OCT 006420163521 1E-37 LMH10750 | 01702 +002663437347 NEWTAB OCT 002663437347 1E-38 LMH10760 | 01703 0 00000 0 00001 L(1) PZE 1 CONSTANT USED BY (IOH). LMH10770 | 77777 COMMON -206 LMH10780 | 77777 WORD COMMON BUFSIZ ERASABLE USED BY (IOH). LMH10790 77751 REC COMMON 1 ERASABLE USED BY (IOH). LMH10800 | 77750 DATUM COMMON 1 ERASABLE USED BY (IOH). LMH10810 | 77747 V COMMON 1 ERASABLE USED BY (IOH). LMH10820 | 77746 U COMMON 1 ERASABLE USED BY (IOH). LMH10830 | 77745 N COMMON 1 ERASABLE USED BY (IOH). LMH10840 77744 F COMMON 1 ERASABLE USED BY (IOH). LMH10850 | 77743 E COMMON 1 ERASABLE USED BY (IOH). LMH10860 | 77742 D COMMON 1 ERASABLE USED BY (IOH). LMH10870 | 77741 ND COMMON 1 ERASABLE USED BY (IOH). LMH10880 | 77740 FD COMMON 1 ERASABLE USED BY (IOH). LMH10890 77737 DG COMMON 1 ERASABLE USED BY (IOH). LMH10900 | 77736 MQ COMMON 1 ERASABLE USED BY (IOH). LMH10910 | 77735 MQR COMMON 1 ERASABLE USED BY (IOH). LMH10920 | 77734 MQD COMMON 1 ERASABLE USED BY (IOH). LMH10930 | 77733 PEX COMMON 1 ERASABLE USED BY (IOH). LMH10940 77732 EXP COMMON 1 ERASABLE USED BY (IOH). LMH10950 | 77731 DIG COMMON 1 ERASABLE USED BY (IOH). LMH10960 | 77730 INT COMMON 1 ERASABLE USED BY (IOH). LMH10970 | 77727 C(2) COMMON 1 ERASABLE USED BY (IOH). LMH10980 | 77726 UNIT COMMON 1 ERASABLE USED BY (IOH). LMH10990 77725 CHAR COMMON BUFSIZ*6 ERASABLE USED BY (IOH). LMH11000 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMH11010 | 00000 .. EQU 0 MODIFICATION SYMBOL. LMH11020 | END LMH11030 | LITERALS | 01704 000000000200 | 01705 000000000210 | 01706 233000000000 | 01707 243000000000 01710 300000777777 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 77521 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 1711 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 77742 D 623, 755, 1020, 1024, 1704 | 77743 E 625, 712, 731, 733, 1025, 1704 77744 F 1011, 1015, 1704 | 77745 N 620, 657, 767, 771, 1001, 1077, 1126, 1132, 1135, 1704 | 77746 U 742, 754, 1022, 1704 | 77747 V 621, 775, 777, 1026, 1704 | 77737 DG 612, 656, 730, 735, 766, 773, 1130, 1131, 1134, 1137, 1704 1050 ER 675, 677, 702, 705, 743 | 77740 FD 1410, 1413, 1704 | 0 .. 224, 265, 266, 267, 313, 315, 321, 322, 340, 342, 344, 345, 405, 421, 437, 446, 475 | 476, 500, 504, 614, 615, 1050, 1222, 1257, 1260, 1272, 1305, 1415, 1424, 1430, 1457, 1460, 1464 | 1516, 1522, 1523, 1524, 1525, 1536, 1704 77736 MQ 214, 320, 434, 511, 1704 | 77741 ND 1400, 1405, 1406, 1417, 1704 | 1522 AX1 4, 600 | 1523 AX2 5, 601 | 1524 AX4 6, 31, 45, 602 344 BX1 175 | 345 BX2 176 | 313 BX4 201, 343 | 321 CX1 213, 430, 512 | 322 CX2 212, 400, 417, 422, 426, 513 617 DBC 367 | 77731 DIG 353, 622, 1213, 1227, 1230, 1245, 1254, 1402, 1422, 1427, 1704 | 614 DX1 241, 402, 425, 516, 530, 1003, 1142 | 615 DX2 242, 407, 412, 520, 524, 1004, 1070, 1101, 1104 | 726 ER3 1056 77732 EXP 547, 564, 624, 1231, 1336, 1353, 1356, 1704 | 1310 FLT 567, 1220, 1222 | 1421 FXD 553, 1241 | 77730 INT 36, 66, 70, 71, 72, 200, 215, 301, 307, 310, 323, 371, 375, 510, 1704 | 77734 MQD 377, 427, 515, 531, 613, 1002, 1071, 1140, 1704 77735 MQR 177, 346, 1704 | 1551 MZE 617, 652, 706, 1114 | 77733 PEX 37, 302, 546, 1335, 1704 | 77751 REC 257, 261, 266, 271, 272, 273, 411, 523, 634, 667, 717, 760, 1064, 1103, 1465, 1704 | 1565 RND 1403 1552 TEN 653, 707, 725, 763, 1347, 1440 | 43 TRA 25, 221, 234, 331, 365 | 1062 ANPT 544, 1067 | 1144 AOUT 545 | 1422 BDC1 1310 1427 BDC2 1407, 1420 | 533 BOUT 514 | 77725 CHAR 555, 573, 1152, 1161, 1173, 1175, 1201, 1234, 1265, 1340, 1344, 1350, 1351, 1425, 1432, 1441, 1451 | 1462, 1704 | 77727 C(2) 30, 1537, 1704 631 DBC1 626, 627 | 630 DBC2 641 | 663 DBC3 674, 751 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | 676 DBC4 745 | 701 DBC5 752 | 711 DBC6 663, 703, 1053 | 737 DBC8 764 742 DBC9 646 | 355 DCPT 350 | 224 DONE 22, 211, 216, 334, 535, 551, 1517 | 315 ENDX 40, 203, 205, 317, 341 | 1525 EXIT 33, 604 266 FILL 264, 274 | 271 FILT 1527 | 1327 FLT1 1320 | 1333 FLT2 1324, 1325, 1326 | 1353 FXD1 1421 1371 FXD2 1357 | 1374 FXD3 1354 | 551 FXPT 565 | 1204 GOUT 571 | 442 HOUT 376 1434 INTG 374, 1211 | 236 IOSW 20 | 267 IOX4 230, 243 | 1521 LIST 220, 333 | 1553 LOG2 1316 1703 L(1) 247, 276, 473, 776, 1345, 1470, 1511, 1532 | 1077 ONPT 305 | 1155 OOUT 306 | 325 OVER 257, 1465 | 1464 PACK 245, 256, 275, 453, 463, 466, 501, 1455, 1467, 1477, 1501, 1504, 1526 340 PARX 206 | 1547 PLUS 645, 701 | 323 SCAN 207, 303, 347, 373, 507 | 514 SKIP 16 | 326 STOP 75, 76, 77, 102, 103, 104, 106, 107, 110, 111, 112, 115, 116, 117, 120, 121, 122 123, 124, 127, 130, 131, 132, 133, 135, 136, 137, 142, 150, 151, 152, 154, 155, 156 | 157, 160, 161, 162, 610 | 1465 TEST 464, 1502 | 1461 TOPA 1471, 1514 | 1471 TOPB 1463 1473 TOPC 1307, 1460 | 1474 TOPD 1512 | 1501 TOPE 1505, 1510 | 1512 TOPF 1475 | 265 TYPE 7, 237 77726 UNIT 3, 232, 1704 | 77777 WORD 246, 251, 277, 442, 506, 1243, 1453, 1515, 1531, 1704 | 1066 ANPT1 1062 | 1546 BLANK 357, 637, 672, 722, 737, 1112, 1171, 1232, 1264, 1341, 1423, 1446 | 610 CNVSW 21, 370, 554, 572, 616 1516 COUNT 372, 533, 1044, 1143, 1250 | 77750 DATUM 605, 607, 1043, 1141, 1165, 1210, 1212, 1240, 1322, 1327, 1352, 1445, 1521, 1704 | 661 DBC11 1000 | 765 DBC12 741, 1061 | 657 DBC13 774 660 DBC14 756 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | | 1001 DBC15 630, 660, 713 1033 DBC16 1041 | 706 DBC92 700 | 670 DBC93 664 | 666 DBC94 665 | 712 DBC95 736 720 DBC96 714 | 716 DBC97 715 | 761 DBC98 661 | 757 DBC99 662 | 655 DBCS1 1047 353 DCPT1 356 | 1544 EXPON 747, 1337 | 211 FIELD 226, 312 | 261 FILL2 250 | 1006 FIXSW 366 174 FRMTR 65, 363 | 74 FSET1 54 | 1373 FXD21 1364 | 1400 FXD31 | 1415 FXFL1 556, 574 1424 FXFL2 560 | 1430 FXFL3 561 | 560 FXPT1 576 | 1212 GOUT1 1205 | 1222 GOUT2 1214, 1244 1251 GOUT3 1206 | 1302 GOUT4 1273 | 343 GROUP 314 | 406 HNPT1 416, 424 | 414 HNPT2 406 417 HNPT3 403 | 425 HNPT4 415 | 440 HNPT5 431, 435 | 444 HOUT1 505 | 450 HOUT2 444 475 HOUT3 460, 467, 472 | 500 HOUT4 462 | 503 HOUT5 454, 474 | 505 HOUT6 451 | 445 HOUTA 461 421 HSET1 55 | 446 HSET2 56 | 476 HSET3 57 | 230 INOUT 42, 337, 1535 | 577 IOCNV 34 26 LIMIT 2, 257, 1465 | 1542 MINUS 642, 676, 1200 | 1550 NEGAT 650, 704 | 1100 ONPT1 1136 | 1126 ONPT2 1116, 1120 1131 ONPT3 1111, 1113, 1122, 1125 | 1141 ONPT4 1074 | 1202 OUTEX 1164, 1170 | 1543 POINT 744, 1431 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 POST PROCESSOR ASSEMBLY DATA | | 270 RESET 44, 325 | 60 SCAN1 74 | 62 SCAN2 73 65 SCAN3 351, 362 | 72 SCAN4 | 73 SCAN5 114, 311, 324, 354, 360 | 370 SETAD 305, 306, 374, 544, 545, 562 | 366 SETFX 552 517 SKIP1 527 | 526 SKIP2 517 | 1045 STOP1 640, 643, 651, 654 | 1051 STOP2 673, 710 | 1054 STOP3 723, 726 1057 STOP4 740, 750, 1050 | 1123 STOP5 1115, 1117, 1121, 1127 | 1457 WIDTH 217, 540, 611, 1072, 1144, 1163, 1256, 1271, 1277, 1300, 1302, 1306, 1513 | 1 (EXE) 327, 1046, 1052, 1055, 1060, 1124 | 1526 (FIL) 0 2 (IOH) 0 | 0 (IOS) 233 | 1537 (RTN) 0, 1533 | 1545 BLANKS 253, 270, 1073, 1473, 1476 | 26 BUFSIZ 2, 1704 543 CCALPH 17, 153 | 510 CCBLNK 105 | 210 CCCMMA 101 | 350 CCDCPT 141 | 563 CCEFLT 15, 145, 147 546 CCFFXD 14, 146 | 571 CCGOUT 566 | 375 CCHOLL 13, 144 | 364 CCINTG 12, 143 | 175 CCLPAR 100 304 CCOCTL 11, 126 | 312 CCRPAR 140 | 307 CCSCFM 134 | 301 CCSCFP 125 | 226 CCSLSH 113 1043 DBEXIT 1005, 1006, 1032, 1037 | 331 ENDFMT 316 | 606 ENDFSW 24, 223, 332, 335 | 220 EXITSW 26, 336 | 1270 GOUT30 1257 1272 GOUT31 1276 | 1305 GOUT41 1275 | 342 GROUPX 202 | 463 HOUT21 455, 502 | 41 INITSW 10 1452 INTGSW 1207, 1252 | 1634 L(1E0) 1031, 1035, 1040, 1215, 1221, 1323, 1330 | 1702 NEWTAB 1362, 1365, 1373 | 245 OUTPUT 236 | 334 RESCAN 606 320 RESUME 210, 227, 441, 532, 534 | 374 SETAD1 364 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | 276 SETWRD | 1453 TOPACK 542, 1154, 1203, 1251, 1272, 1301, 1452 | 1472 TOPSW1 1274, 1304 | 1515 TOPSW2 1237, 1247, 1303, 1472 | 231 UNITSW 23, 235 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9IOS (IOEX VERSION) LMS00000 * FAP LMS00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | INPUT-OUTPUT SUPERVISOR / 9IOS | | | BINARY CARD NO. 9IOS0000 00004 ENTRY (IOS) LMS00070 | 00151 ENTRY -(RDS) LMS00080 | 00152 ENTRY -(WRS) LMS00090 | 00153 ENTRY -(BSR) LMS00100 | 00154 ENTRY -(WEF) LMS00110 00155 ENTRY -(REW) LMS00120 | 00156 ENTRY -(ETT) LMS00130 | 00157 ENTRY -(RCH) LMS00140 | 00160 ENTRY -(TEF) LMS00150 | 00161 ENTRY -(TCO) LMS00160 | BINARY CARD NO. 9IOS0001 | 00162 ENTRY -(TRC) LMS00170 | 00051 ENTRY -(UCB) LMS00180 | 00163 ENTRY -(STC) $LMS00181 | TRANSFER VECTOR | | BINARY CARD NO. 9IOS0002 | 00000 746325623460 (TES) 00001 743146643460 (IOU) | 00002 742567253460 (EXE) | 00003 256731636060 EXIT | | 00004 M EQU 4 NUMBER OF CHANNELS (23)LMS00190 * LMS00200 | 00004 0634 00 4 00127 (IOS) SXA IOSX,4 SAVE RETURN INDEX LMS00210 | 00005 0601 00 0 00213 STO AC SAVE MODE,,UNIT DESIGNATION LMS00220 | 00006 0634 00 1 00130 SXA IOSX1,1 LMS00230 | 00007 0564 00 0 00166 ENB L(0) MAKE SURE TRAPS ARE DISABLED LMS00250 00010 0522 60 0 00000 XEC* $(TES) *GO CHECK PREVIOUS WRITE LMS00260 | 00011 0500 00 0 00213 CLA AC COMPARE LMS00270 | 00012 0340 00 0 00164 CAS UNIT CURRENT UNIT LMS00280 | 00013 0020 00 0 00015 TRA *+2 WITH LAST UNIT LMS00290 | 00014 0020 00 0 00127 TRA IOSX IF DIFFERENT, LMS00300 00015 -0734 00 4 00000 PDX ,4 CHECK FOR ZERO DESIGNATION LMS00310 | 00016 -3 00000 4 00032 TXL STOP,4,0 IF NON-ZERO, LMS00320 | 00017 0601 00 0 00164 STO UNIT COMPARE LMS00330 | 00020 0771 00 0 00022 ARS 18 WITH NTAPES LMS00340 | 00021 0340 60 0 00001 CAS* $(IOU) IN IOU TABLE. LMS00350 00022 0020 00 0 00032 TRA STOP STOP IF LENGTH OF IOU EXCEEDED. LMS00360 | 00023 0761 00 0 00000 NOP OTHERWISE. LMS00370 | | BINARY CARD NO. 9IOS0003 | 00024 0400 00 0 00001 ADD (IOU) PICK UP LMS00380 00025 0621 00 0 00026 STA *+1 IOU TABLE LMS00390 | 00026 -0500 00 0 00000 CAL ** WORD (27)LMS00400 | 00027 0621 00 0 00142 STA IOUT SAVE IT (23)LMS00410 | 00030 0630 00 0 00142 STP IOUT PREFIX NEG. FOR MONITOR INPUT. (27)LMS00415 | 00031 -0100 00 0 00035 TNZ *+4 STOP IF ENTRY IS ZERO (23)LMS00420 00032 0441 00 0 00034 STOP LDI *+2 EXIT FOR LMS00430 | 00033 0020 60 0 00002 TRA* $(EXE) *EXECUTION ERROR LMS00440 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | INPUT-OUTPUT SUPERVISOR / 9IOS | 00034 0 00003 6 00000 PZE 0,6,EXIT IOU TABLE ENTRY NOT FOUND (23)LMS00450 | 00035 -0734 00 4 00000 PDX 0,4 GET ENTRY WANTED (23)LMS00460 | 00036 -0320 00 0 00214 ANA =O777777 GET CHANNEL (23)LMS00470 | 00037 0767 00 0 00003 ALS 3 (23)LMS00480 | 00040 -0737 00 1 00000 PDC 0,1 SAVE (23)LMS00490 00041 0500 60 0 00142 CLA* IOUT GET SYSUNI/SYSUAV TABLE ENTRY (23)LMS00500 | 00042 0100 00 0 00143 TZE UNIE IS IT ASSIGNED (23)LMS00510 | 00043 -3 00000 4 00061 TXL IOU1,4,0 YES, IS IT A SYSUAV ENTRY (23)LMS00520 | 00044 0621 00 0 00045 STA *+1 YES, STORE L(SYSUAV) TABLE (23)LMS00530 | 00045 0500 00 1 00000 CHNW CLA **,1 GET LOC OF THE FIRST AVAILABLE (23)LMS00540 00046 -0320 00 0 00214 ANA =O777777 UNIT ON THAT CHANNEL (23)LMS00550 | 00047 0100 00 0 00056 TZE NEXT NOTHING IN CHANNEL, GET NEXT (23)LMS00560 | | BINARY CARD NO. 9IOS0004 | 00050 0621 00 0 00051 STA *+1 (23)LMS00570 00051 -0500 00 0 00000 (UCB) CAL ** UCB WORD 1 (23)LMS00580 | 00052 0044 00 0 00000 PAI (23)LMS00590 | 00053 -2 00001 4 00064 TNX FOUND,4,1 IS THIS THE ENTRY WANTED (23)LMS00600 | 00054 0054 00 077777 RFT 77777 NO, ANY ANOTHER ENTRY IN CHAIN (23)LMS00610 | 00055 0020 00 0 00050 TRA (UCB)-1 YES, GET IT (23)LMS00620 00056 1 77777 1 00057 NEXT TXI *+1,1,-1 NO. STEP TO NEXT CHANNEL (23)LMS00630 | 00057 -3 77774 1 00143 TXL UNIE,1,-M EXCEEDS NO. OF CHANNELS (23)LMS00640 | 00060 0020 00 0 00045 TRA CHNW (23)LMS00650 | 00061 0621 00 0 00051 IOU1 STA (UCB) ADDR. OF UCB FOR SYSUNI ENTRY LMS00680 | 00062 -0500 60 0 00051 CAL* (UCB) LMS00690 00063 0044 00 0 00000 PAI LMS00700 | 00064 -0054 00 020000 FOUND LFT 20000 CHECK FOR DISK CHAN. LMS00710 | 00065 0020 00 0 00146 TRA DISKE LMS00720 | 00066 0767 00 0 00005 ALS 5 LMS00730 | 00067 0771 00 0 00027 ARS 23 GET UNIT ADD LMS00740 00070 -0634 00 0 00213 SXD AC,0 LMS00750 | 00071 0401 00 0 00213 ADM AC SET MODE, AND LMS00760 | 00072 0621 00 0 00151 STA (RDS) INITIALIZE SELECT LMS00770 | 00073 0621 00 0 00152 STA (WRS) INSTURCTION LMS00780 | BINARY CARD NO. 9IOS0005 | 00074 0621 00 0 00153 STA (BSR) ADDRESSES LMS00790 | 00075 0621 00 0 00154 STA (WEF) FOR THIS LMS00800 | 00076 0621 00 0 00155 STA (REW) UNIT. LMS00810 | 00077 0771 00 0 00011 ARS 9 LMS00820 00100 0734 00 4 00000 PAX 0,4 LMS00830 | 00101 0560 00 4 00203 LDQ TEF,4 RESET TEF INSTRUCTION LMS00840 | 00102 -0600 00 0 00160 STQ (TEF) LMS00850 | 00103 -0340 00 0 00165 LAS CHAN IF CURRENT CHANNEL DIFFERS LMS00860 | 00104 0020 00 0 00106 TRA *+2 FROM LAST LMS00870 00105 0020 00 0 00122 TRA INCK LMS00880 | 00106 0621 00 0 00165 STA CHAN RESET ALL CHANNEL INSTRUCTIONS LMS00890 | 00107 0767 00 0 00011 ALS 9 LMS00900 | 00110 0621 00 0 00156 STA (ETT) LMS00910 | 00111 0560 00 4 00177 LDQ RCH,4 LMS00920 00112 -0620 00 0 00157 SLQ (RCH) LMS00930 | 00113 0560 00 4 00207 LDQ TCO,4 LMS00940 | 00114 -0620 00 0 00161 SLQ (TCO) LMS00950 | 00115 0560 00 4 00213 LDQ TRC,4 AFTER I/O INSTS HAVE BEEN LMS00960 | 00116 -0620 00 0 00162 SLQ (TRC) INITIALIZED, LMS00970 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 3 | INPUT-OUTPUT SUPERVISOR / 9IOS | | 00117 0560 00 4 00173 LDQ STC,4 $LMS00971 | BINARY CARD NO. 9IOS0006 | 00120 0520 00 0 00163 ZET (STC) $LMS00972 | 00121 -0620 00 0 00163 SLQ (STC) $LMS00973 | 00122 0500 00 0 00142 INCK CLA IOUT CHECK TO SEE IF UNIT LMS00980 | 00123 0120 00 0 00127 TPL IOSX IS INPUT LMS00990 00124 0500 00 0 00141 CLA TEF1 IF INPUT, SET TEF LMS01000 | 00125 0625 00 0 00160 STT (TEF) TO TRANS LMS01010 | 00126 0621 00 0 00160 STA (TEF) TO EXIT, TEST MADE IN RER LMS01020 | 00127 0774 00 4 00000 IOSX AXT ..,4 RESTORE LMS01030 | 00130 0774 00 1 00000 IOSX1 AXT ..,1 INDEXES LMS01040 00131 0020 00 4 00001 TRA 1,4 *EXIT TO CALLER LMS01060 | 00132 0535 00 4 00051 INT LAC (UCB),4 INCREASE FILE COUNT $LMS01061 | 00133 -0500 00 4 00002 CAL 2,4 $LMS01062 | 00134 0361 00 0 00053 ACL (UCB)+2 $LMS01063 | 00135 0622 00 4 00002 STD 2,4 $LMS01064 00136 -0754 00 0 00000 ZAC AND CLEAR RECORD COUNT $LMS01065 | 00137 0621 00 4 00002 STA 2,4 IN UCB WORD 3 $LMS01066 | 00140 0020 00 0 00003 TRA $EXIT $LMS01067 | 00141 0 00000 0 00132 TEF1 PZE INT $LMS01070 | 00142 0 00000 0 00000 IOUT PZE 0 LMS01080 00143 0441 00 0 00145 UNIE LDI *+2 EXIT FOR LMS01090 | | BINARY CARD NO. 9IOS0007 | 00144 0020 60 0 00002 TRA* $(EXE) *EXECUTION ERROR LMS01100 | 00145 0 00003 6 00001 PZE 1,6,EXIT SYSUNI OR SYSUAV FUNCTION (23)LMS01110 00146 0441 00 0 00150 DISKE LDI *+2 EXIT FOR ERROR LMS01130 | 00147 0020 60 0 00002 TRA* $(EXE) *USE OF DISK UNIT LMS01140 | 00150 0 00003 6 00002 PZE 2,6,EXIT IS ILLEGAL (23)LMS01150 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMS01160 | 00151 0762 00 0 01202 (RDS) RTDA 2 LMS01170 00152 0766 00 0 01202 (WRS) WTDA 2 LMS01180 | 00153 0764 00 0 01202 (BSR) BSRA 2 LMS01190 | 00154 0770 00 0 01202 (WEF) WEFA 2 LMS01200 | 00155 0772 00 0 01202 (REW) REWA 2 LMS01210 | 00156 -0760 00 0 01000 (ETT) ETTA LMS01220 00157 0540 00 4 00000 (RCH) RCHA 0,4 LMS01230 | 00160 0030 00 4 00000 (TEF) TEFA 0,4 LMS01240 | 00161 0060 00 4 00000 (TCO) TCOA 0,4 LMS01250 | 00162 0022 00 4 00000 (TRC) TRCA 0,4 LMS01260 | 00163 0640 00 4 00000 (STC) SCHA 0,4 $LMS01261 * LMS01270 | 00164 0 77777 0 00000 UNIT PZE ..,,-1 LMS01280 | 00165 0 00000 0 00001 CHAN PZE 1 LMS01290 | 00166 0 00000 0 00000 L(0) PZE 0 LMS01300 | * LMS01310 00167 DUP 2,M/2 $LMS01311 | 00167 464100000000 VFD O9/464,9/STC*32-**32-64 $LMS01312 | | BINARY CARD NO. 9IOS0008 | 00170 064100000000 VFD O9/064,9/STC*32-**32-32 $LMS01313 00171 464000000000 | 00172 064000000000 | 00173 STC DUP 2,M/2 $LMS01320 | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 4 | INPUT-OUTPUT SUPERVISOR / 9IOS | 00173 454100000000 VFD O9/454,9/RCH*32-**32-64 LMS01330 | 00174 054100000000 VFD O9/054,9/RCH*32-**32-32 LMS01340 | 00175 454000000000 | 00176 054000000000 00177 RCH DUP 2,M/2 LMS01350 | 00177 403100400000 VFD O9/403,9/TEF*32-**32-64,O3/4 LMS01360 | 00200 003100400000 VFD O9/003,9/TEF*32-**32-32,O3/4 LMS01370 | 00201 403000400000 | 00202 003000400000 00203 TEF DUP 1,M LMS01380 | 00203 006300400000 VFD O9/006,9/TCO*64-**64-64,O3/4 LMS01390 | 00204 006200400000 | 00205 006100400000 | 00206 006000400000 00207 TCO DUP 2,M/2 LMS01400 | 00207 402400000000 VFD O9/402,3/TRC-* LMS01410 | 00210 002400000000 VFD O9/002,3/TRC-*+1 LMS01420 | 00211 402200000000 | 00212 002200000000 00213 TRC SYN TCO+M LMS01430 | 00213 0 00000 0 00000 AC (23)LMS01440 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMS01450 | 00000 .. EQU 0 LMS01460 | END LMS01470 | LITERALS | | BINARY CARD NO. 9IOS0009 | 00214 000000777777 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 215 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 4 M 4, 57, 167, 173, 177, 203, 207, 213 | 213 AC 5, 11, 70, 71 | 0 .. 127, 130, 164, 214 | 132 INT 141 177 RCH 111, 173, 174, 175, 176 | 173 STC 117, 167, 170, 171, 172 | 207 TCO 113, 203, 204, 205, 206, 213 | 203 TEF 101, 177, 200, 201, 202 | 213 TRC 115, 207, 210, 211, 212, 213 165 CHAN 103, 106 | 45 CHNW 60 | 3 EXIT 34, 140, 145, 150 | 122 INCK 105 | 127 IOSX 4, 14, 123 61 IOU1 43 | 142 IOUT 27, 30, 41, 122 | 166 L(0) 7 | 56 NEXT 47 | 32 STOP 16, 22 141 TEF1 124 | 143 UNIE 42, 57 | 164 UNIT 12, 17 | 146 DISKE 65 | 64 FOUND 53 130 IOSX1 6 | 153 (BSR) 0, 74 | 156 (ETT) 0, 110 | 2 (EXE) 33, 144, 147 | 4 (IOS) 0 1 (IOU) 21, 24 | 157 (RCH) 0, 112 | 151 (RDS) 0, 72 | 155 (REW) 0, 76 | 163 (STC) 0, 120, 121 161 (TCO) 0, 114 | 160 (TEF) 0, 102, 125, 126 | 0 (TES) 10 | 162 (TRC) 0, 116 | 51 (UCB) 0, 55, 61, 62, 132, 134 154 (WEF) 0, 75 | 152 (WRS) 0, 73 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9IOU (IOEX VERSION) LMU00000 * FAP LMU00020 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | INPUT-OUTPUT CHANNEL UNIT TABLE / 9IOU | | SST FORTRAN $LMU00070 | BINARY CARD NO. 9IOU0000 | 00003 ENTRY (IOU) LMU00080 | | BINARY CARD NO. 9IOU0001 | 00000 0 00000 0 00145 PZE SYSPRT LMU00090 00001 0 00000 0 00146 PZE SYSPCH LMU00100 | 00002 0 00000 0 00144 PZE SYSCRD LMU00110 | 00003 0 00000 0 00010 (IOU) PZE NTAPES LMU00120 | 00004 0 00000 0 00140 PZE SYSLB1 LMU00130 | 00005 0 00000 0 00161 PZE SYSUT3 LMU00140 00006 0 00000 0 00162 PZE SYSUT4 LMU00150 | 00007 0 00000 0 00157 PZE SYSUT1 LMU00160 | 00010 -0 00000 0 00151 MZE SYSIN1 LMU00170 | 00011 0 00000 0 00147 PZE SYSOU1 LMU00180 | 00012 0 00000 0 00153 PZE SYSPP1 LMU00190 00013 0 00000 0 00160 PZE SYSUT2 LMU00200 | * INSERTIONS AND/OR DELETIONS SHOULD BE MADE BETWEEN NTAPES AND (IOU) LMU00210 | 00010 NTAPES EQU *-(IOU)-1 LMU00220 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LMU00230 | END LMU00240 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 14 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 3 (IOU) 0, 14 | 73600 BOTIOP | 3734 BOTTOM | 3732 DATEBX 2 FINTAP | 3730 FLAGBX | 134 .CHEXI | 135 .MODSW | 1 LIBTAP 3731 LINECT | 7 MBNTAP | 10 MCHTAP | 5 MINTAP | 6 MLSTAP 10 NTAPES 3, 14 | 3 SINTAP | 11 SNPTAP | 122 SYSACC | 114 SYSCEM 155 SYSCK1 | 156 SYSCK2 | 120 SYSCOR | 144 SYSCRD 2 | 102 SYSCUR 124 SYSCYD | 101 SYSDAT | 115 SYSDMP | 77777 SYSEND | 132 SYSGET 117 SYSIDR | 151 SYSIN1 10 | 152 SYSIN2 | 116 SYSIOX | 133 SYSJOB 104 SYSKEY | 140 SYSLB1 4 | 141 SYSLB2 | 142 SYSLB3 | 143 SYSLB4 121 SYSLDR | 3720 SYSORG | 147 SYSOU1 11 | 150 SYSOU2 | 146 SYSPCH 1 123 SYSPID | 106 SYSPOS | 153 SYSPP1 12 | 154 SYSPP2 | 145 SYSPRT 0 103 SYSRET | 113 SYSRPT | 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | 126 SYSSLD | 105 SYSSWS | 1 SYSTAP | 127 SYSTCH | 100 SYSTRA 131 SYSTWT | 111 SYSUAV | 110 SYSUBC | 112 SYSUCW | 107 SYSUNI 157 SYSUT1 7 | 160 SYSUT2 13 | 161 SYSUT3 5 | 162 SYSUT4 6 | 4 TINTAP 77677 TOPMEM | 702 (ACTIV | 703 (ACTVX | 720 (BCD5R | 721 (BCD5X 10000 (CHKU) | 741 (CHPSW | 724 (CHXAC | 750 (CHXSP | 717 (CKWAT 746 (COMMD | 736 (COMMM | 722 (CVPRT | 73662 (DATE) | 716 (DECVA 715 (DECVD | 73645 (DGLD) | 73603 (DIAG) | 710 (ENBSW | 73665 (ENDS) 732 (ETTXI | 743 (FDAMT | 73660 (FGBX) | 747 (IBCDZ | 740 (IOXSI 73667 (LBLD) | 73652 (LIBT) | 73661 (LNCT) | 73600 (LOAD) | 73666 (LODR) 737 (LTPOS | 73644 (MECL) | 73664 (MSLN) | 704 (NDATA | 705 (NDSLX 712 (PAUSE | 711 (PAWSX | 3733 (PCBK) | 73651 (PGCT) | 73614 (PNCH) 1 32K 709/7090 FORTRAN LIBRARY (IOEX VERSION) 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | | 73611 (PRNT) | 706 (PROUT 707 (PUNCH | 40014 (RBEC) | 40004 (RBEP) | 40010 (RBNC) | 40000 (RBNP) 727 (RCHXI | 726 (RCTXI | 40016 (RDEC) | 40006 (RDEP) | 40012 (RDNC) 40002 (RDNP) | 73622 (REST) | 73672 (SCHU) | 744 (SDCXI | 73643 (SECL) 20010 (SKBC) | 20000 (SKBP) | 20012 (SKDC) | 20002 (SKDP) | 1000 (SNAP) 73663 (SNCT) | 73617 (STAT) | 745 (STCXI | 73626 (STDN) | 723 (STOPD 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) | 714 (SYMUN | 73606 (TAPE) 730 (TCOXI | 733 (TEFXI | 4000 (TPER) | 735 (TRAPS | 734 (TRAPX 731 (TRCXI | 742 (TRPSW | 725 (URRXI | 40011 (WBNC) | 40001 (WBNP) 40013 (WDNC) | 40003 (WDNP) | 40015 (WEFC) | 40005 (WEFP) | 40031 (WROW) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9CHN LUC00000 * FAP LUC00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | MONITOR CHAIN ROUTINE / 9CHN | | | BINARY CARD NO. 9CHN0000 00002 ENTRY CHAIN LUC00070 | SST FORTRAN $LUC00080 | | TRANSFER VECTOR | BINARY CARD NO. 9CHN0001 | 00000 746325623460 (TES) | 00001 256762254360 EXSEL | | 00002 -0760 00 0 00007 CHAIN LTM LUC00090 00003 0500 60 4 00001 CLA* 1,4 LUC00130 | 00004 0622 00 0 00063 STD CHWRD LUC00140 | 00005 0500 60 4 00002 CLA* 2,4 LUC00150 | 00006 -0734 00 1 00000 PDX ,1 TAPE NUMBER TO IRA. LUC00160 | 00007 -3 00004 1 00011 TXL *+2,1,4 DON'T PERMIT TAPES LARGER THAN 4 (29)LUC00170 00010 0774 00 1 00004 AXT 4,1 MAKE IT 4 (29)LUC00180 | 00011 -3 00001 1 00010 TXL *-1,1,1 DON'T PERMIT THE TAPE SYSTEM (29)LUC00190 | 00012 0500 00 1 00064 CLA UNI,1 PICK UP SYSUNI POINTER (29)LUC00200 | 00013 0634 00 1 00063 SXA CHWRD,1 SET TAPE IN LABEL (29)LUC00201 | 00014 0622 00 0 00025 STD TAP1 TO LABEL READ (29)LUC00210 00015 0621 00 0 00113 STA XLC+1 TO LINK READ (29)LUC00220 | 00016 0621 00 0 00051 STA TAP3 TO BACKSPACE FILE (29)LUC00230 | 00017 0522 60 0 00000 XEC* $(TES) CHECK LAST WRITE (29)LUC00240 | 00020 0774 00 1 00137 AXT XEND-X,1 LENGTH OF LOAD ROUTINE (29)LUC00250 | 00021 0500 00 1 00226 CLA XEND,1 MOVE LINK LOADER TO PRIVATE (29)LUC00260 00022 0601 00 1 77621 STO .X+XEND-X,1 COMMON (29)LUC00270 | 00023 2 00001 1 00021 TIX *-2,1,1 (29)LUC00280 | | BINARY CARD NO. 9CHN0002 | 00024 0074 00 4 00001 CHC TSX $EXSEL,4 LUC00490 00025 0 00000 0 00064 TAP1 PZE CHSEL1,,** LUC00500 | 00026 -0 77464 0 00045 MZE CHE,,.XXA LUC00510 | 00027 0500 00 0 00063 CLA CHWRD LUC00520 | 00030 0534 00 2 77531 LXA .XA3,2 WHAT TAPE DOES IT THINK IT IS... (29)LUC00530 | 00031 3 00004 2 00033 TXH *+2,2,4 LUC00540 00032 3 00001 2 00035 TXH *+3,2,1 LUC00550 | 00033 0774 00 2 00004 AXT 4,2 ANY TAPE EXCEPT 2 OR 3 MAKE 4 LUC00560 | 00034 0634 00 2 77531 SXA .XA3,2 STORE CORRECTED LABEL (29)LUC00570 | 00035 0402 00 0 77531 SUB .XA3 IS THIS THE CORRECT LINK (29)LUC00580 | 00036 -0100 00 0 00024 TNZ CHC NOT THIS ONE LUC00590 00037 -0500 00 0 77533 CAL .XGO 3RD WORD OF LABEL (29)LUC00620 | 00040 0322 00 0 00140 ERA XGO LUC00630 | 00041 -0734 00 1 00000 PDX ,1 LUC00640 | 00042 3 00000 1 77464 TXH .XXA,1,0 MAKE SURE 3RD WORD IS TRA TO SOMEWHERE LUC00650 | 00043 0100 00 0 77464 TZE .XXA IF NOT, COMMENT BAD TAPE LUC00660 00044 0020 00 0 77505 TRA .XLC LUC00690 | 00045 -0520 00 0 00002 CHE NZT CHAIN LUC00700 | 00046 0020 00 0 00053 TRA NGD SECOND EOF NO GOOD LUC00710 | 00047 0600 00 0 00002 STZ CHAIN LUC00720 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 MONITOR CHAIN ROUTINE / 9CHN | | BINARY CARD NO. 9CHN0003 | 00050 0074 00 4 00704 TSX (NDATA,4 LUC00760 | 00051 0 00003 0 00000 TAP3 PZE **,,3 LUC00770 00052 0020 00 0 00024 TRA CHC LUC00780 | 00053 0500 00 0 00065 NGD CLA COM1 SET UP (29)LUC00790 | 00054 0601 00 0 77524 STO .XCI+2 LINK MISSING (29)LUC00800 | 00055 0500 00 0 00066 CLA COM1+1 MESSAGE AND (29)LUC00810 | 00056 0601 00 0 77525 STO .XCI+3 PRINT IT AND (29)LUC00820 00057 0020 00 0 77464 TRA .XXA PROCEED TO NEXT P/A (29)LUC00830 | 00060 0 00157 0 00157 L(UT1) PZE SYSUT1,,SYSUT1 LUC00860 | 00061 0 00162 0 00162 PZE SYSUT4,,SYSUT4 LOGICAL 3 (29)LUC00870 | 00062 0 00161 0 00161 PZE SYSUT3,,SYSUT3 LOGICAL 2 (29)LUC00880 | 00063 0 00000 0 00000 CHWRD PZE LUC00900 00064 UNI EQU * BASE ADDRESS FOR UNITS (29)LUC00905 | 00064 3 00003 0 77531 CHSEL1 IORT .XA3,,3 (29)LUC00910 | 00065 433145426044 COM1 BCI 2,LINK MISSING (29)LUC00960 | 00066 316262314527 | LINK LOADER RESIDES IN COMMON. (29)LUC00961 00067 X EQU * LOADED HERE (29)LUC00962 | 00067 0500 00 0 77521 CLA .XLB1+1 CHANGE MESSAGE FOR (29)LUC00965 | 00070 0601 00 0 77524 STO .XCI+2 EOF ERROR (29)LUC00966 | 00071 0535 00 4 77506 XXA LAC .XLC+1,4 TAPE CHECK,CANNOT PROCEED (29)LUC00970 | 00072 0560 60 4 00000 LDQ* 0,4 PREPARE MESSAGE (29)LUC00980 00073 0074 00 4 00714 TSX (SYMUN,4 (29)LUC00990 | | BINARY CARD NO. 9CHN0004 | 00074 0602 00 0 77523 SLW .XCI+1 (29)LUC01000 | 00075 0074 00 4 00141 TSX (IOXRW,4 SO STATE OFFLINE (29)LUC01010 00076 -0 77475 1 00147 MZE SYSOU1,1,.XLX (29)LUC01020 | 00077 0 77473 0 77473 PZE .XXA1-3,,.XXA1-3 (29)LUC01030 | 00100 0074 00 4 00706 TSX (PROUT,4 AND ONLINE (29)LUC01040 | 00101 0 00000 0 00001 PZE 1 (29)LUC01050 | 00102 3 00007 0 77522 XLX IORT .XCI,,7 (29)LUC01060 00103 0500 00 0 77503 XXA1 CLA .XLB INDICATE WE BOMBED (29)LUC01070 | 00104 -0602 00 0 00133 ORS SYSJOB (29)LUC01080 | 00105 0500 00 0 77504 CLA .XLB+1 TELL IBSYS TO DO NEXT P/A (29)LUC01090 | 00106 0601 00 0 00132 STO SYSGET (29)LUC01100 | 00107 0020 00 0 00103 TRA SYSRET RETURN TO IBSYS (29)LUC01110 00110 +000001000000 XLB DEC 1B17 (29)LUC01120 | 00111 312262672523 BCI 1,IBSXEC (29)LUC01130 | HERE TO READ LINK (29)LUC01140 | 00112 0074 00 4 77534 XLC TSX IOXRW,4 READ IN LINK LUC01380 | 00113 0 77532 0 00000 PZE **,,.XLZ LUC01390 00114 0 77464 0 77462 PZE .XXA-2,,.XXA (29)LUC01400 | 00115 0535 00 2 00736 XLC1 LAC (COMMM,2 LUC01410 | 00116 0500 60 0 77532 CLA* .XLZ LUC01420 | 00117 0622 00 0 77513 STD .XLD1 LUC01430 | BINARY CARD NO. 9CHN0005 | 00120 1 00000 2 77514 XLD1 TXI .XLD1+1,2,** LUC01440 | 00121 -3 00000 2 77533 TXL .XGO,2,0 OK,GO TO LINK (29)LUC01450 | 00122 0500 00 0 77520 CLA .XLB1 CHANGE MESSAGE (29)LUC01460 | 00123 0601 00 0 77524 STO .XCI+2 FOR LENGTH ERROR (29)LUC01470 00124 0020 00 0 77464 TRA .XXA COMPLAIN (29)LUC01480 | CONSTANTS (29)LUC01490 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | MONITOR CHAIN ROUTINE / 9CHN | 00125 432545276330 XLB1 BCI 1,LENGTH (29)LUC01500 | 00126 254626606060 BCI 1,EOF (29)LUC01510 | 00127 016064453163 XCI BCI 1,1 UNIT (29)LUC01520 | 00130 0 00000 0 00000 PZE (29)LUC01530 | 00131 602330252342 BCI 2, CHECK ERROR (29)LUC01540 00132 602551514651 | 00133 336041462260 BCI 3,. JOB TERMINATED. (29)LUC01550 | 00134 632551443145 | 00135 216325243360 | 00136 0 00000 0 00000 XA3 PZE LINK LABEL (29)LUC01570 00137 3 00000 0 00000 XLZ IORT **,,** READ (29)LUC01580 | 00140 0020 00 0 00000 XGO TRA ** HERE (29)LUC01590 | LUC01650 | 00141 0634 00 4 77562 (IOXRW SXA IOXS4,4 SAVE IR4. LUC01660 | 00142 0500 00 4 00002 CLA 2,4 LUC01670 00143 0621 00 0 77564 STA IOXEF SET EOF EXIT LUC01680 | | BINARY CARD NO. 9CHN0006 | 00144 0771 00 0 00022 ARS 18 LUC01690 | 00145 0621 00 0 77566 STA IOXER SET PERMANENT REDUNDANCY EXIT LUC01700 00146 -0500 00 4 00001 CAL 1,4 GET FIRST WORD OF CALL SEQUENCE LUC01710 | 00147 0625 00 0 77570 STT IOXSLL SAVE MODE FOR SELECT LUC01720 | 00150 0630 00 0 77570 STP IOXSLL SAVE PREFIX FOR SELECT TYPE LUC01730 | 00151 0621 00 0 77556 STA IOXND PUT LOC IN ACTIVE CALLING SEQUENCE LUC01740 | 00152 0621 00 0 77546 STA IOXUC SET TO PICK UP UCB LUC01750 00153 0535 00 2 00000 (IOXUC LAC **,2 UCB1 (29)LUC01760 | 00154 0771 00 0 00022 ARS 18 I/O COMMANDS LOC TO ADDRESS LUC01770 | 00155 0621 00 0 77570 STA IOXSLL PUT IN SELECT WORD LUC01780 | 00156 0500 00 0 77570 CLA IOXSLL GET SELECT WORD LUC01790 | 00157 0520 00 2 00001 ZET 1,2 TEST FOR UNIT IN USE (29)LUC01800 00160 0020 00 0 77552 TRA IOXUC+4 WAIT UNTIL THEY ARE THROUGH LUC01810 | 00161 0601 00 2 00001 STO 1,2 CONTROL WORD FOR SELECT (29)LUC01820 | 00162 0074 00 4 00702 TSX (ACTIV,4 GO ACTIVATE LUC01840 | 00163 0 00000 0 00000 (IOXND PZE ** UNIT LUC01850 | 00164 0520 00 2 00001 ZET 1,2 ARE WE DONE... (29)LUC01860 00165 0020 00 0 77557 TRA IOXND+1 NOT DONE, WAIT LUC01870 | 00166 0441 00 0 77571 LDI IOXIN PICK UP COMPLETION BITS SET BY IOXSEL (-) LUC01880 | 00167 0774 00 4 00000 (IOXS4 AXT **,4 SET FOR EXIT LUC01890 | | BINARY CARD NO. 9CHN0007 00170 -0054 00 200000 LFT 200000 TEST EOF, EOT LUC01900 | 00171 0020 00 0 00000 (IOXEF TRA ** EOF EXIT LUC01910 | 00172 -0054 00 100000 LFT 100000 TEST FOR PERM. RTT LUC01920 | 00173 0020 00 0 00000 (IOXER TRA ** YES, ERROR EXIT LUC01930 | 00174 0020 00 4 00003 TRA 3,4 NORMAL RETURN LUC01940 00175 0 77573 0 00000 (IXSLL PZE **,,IOXSEL LOCATION OF SEL (SELECT) ROUTINE LUC01960 | 00176 0 00000 0 00000 (IOXIN PZE ** IN OPERATION CELL LUC01970 | 00177 0 00000 0 00000 (IOXMD PZE ** MODE SWITCH LUC01980 | IOXSEL -- ROUTINE ENTERED BY IOEX TWICE LUC01990 | 00200 0634 00 4 77611 (IXSEL SXA IOXSS4,4 SAVE IR 4 LUC02000 00201 0737 00 4 00000 PAC 0,4 -L(UCB) LUC02010 | 00202 -0120 00 0 77616 TMI IOXPST SEL (-) OR POSTING ENTRY LUC02020 | 00203 0500 00 4 00000 CLA 0,4 UCB WORD 1 LUC02030 | 00204 -0734 00 2 00000 PDX 0,2 UNIT TO IR 2 LUC02040 | 00205 0500 00 4 00001 CLA 1,4 UCB WORD 2 LUC02050 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | MONITOR CHAIN ROUTINE / 9CHN | | 00206 0621 60 0 00727 STA* (RCHXI STORE LOC TO RCHX LUC02060 | 00207 0625 00 0 77572 STT IOXMD SAVE MODE FLAG LUC02070 00210 -0520 00 0 77572 NZT IOXMD TEST MODE LUC02080 | 00211 1 00020 2 77605 TXI IOXSEL+10,2,16 BINARY, BUMP TO BINARY MODE LUC02090 | 00212 -0120 00 0 77613 TMI IOXWR WRITE LUC02100 | 00213 0634 00 2 77607 SXA IOXSEL+12,2 PLACE READ SELECT ADDRESS LUC02110 | BINARY CARD NO. 9CHN0008 | 00214 0762 00 0 00000 RDS ** READ SELECT LUC02120 | 00215 0522 60 0 00727 XEC* (RCHXI ISSUE RESET LOAD CHANNEL LUC02130 | 00216 0774 00 4 00000 (IXSS4 AXT **,4 RESTORE IR 4 LUC02140 | 00217 0020 00 4 00001 TRA 1,4 AND EXIT IOXSEL LUC02150 00220 0634 00 2 77614 (IOXWR SXA IOXWR+1,2 WRITE, PLACE SELECT ADDRESS LUC02160 | 00221 0766 00 0 00000 WRS ** WRITE SELECT LUC02170 | 00222 0020 00 0 77610 TRA IOXSS4-1 GO TO ISSUE CHANNEL INSTR LUC02180 | 00223 0604 00 0 77571 (IXPST STI IOXIN POST TIME, SAVE ERROR FLAGS, IF ANY LUC02190 | 00224 0600 00 4 00001 STZ 1,4 SET UCB WORD 2 ZERO LUC02210 00225 0020 00 0 77611 TRA IOXSS4 GO EXIT LUC02220 | 00226 XEND EQU * END OF LOADER (29)LUC02230 | 77462 COMMON -1 (29)LUC02240 | 77462 .X COMMON 0 LUC02250 | 77464 .XXA EQU .X+XXA-X (29)LUC02260 77476 .XXA1 EQU .X+XXA1-X (29)LUC02270 | 77503 .XLB EQU .X+XLB-X (29)LUC02280 | 77520 .XLB1 EQU .X+XLB1-X (29)LUC02290 | 77505 .XLC EQU .X+XLC-X (29)LUC02300 | 77513 .XLD1 EQU .X+XLD1-X (29)LUC02320 77533 .XGO EQU .X+XGO-X (29)LUC02330 | 77522 .XCI EQU .X+XCI-X (29)LUC02340 | 77531 .XA3 EQU .X+XA3-X (29)LUC02350 | 77475 .XLX EQU .X+XLX-X (29)LUC02360 | 77532 .XLZ EQU .X+XLZ-X (29)LUC02380 77534 IOXRW EQU .X+(IOXRW-X (29)LUC02400 | 77546 IOXUC EQU .X+(IOXUC-X (29)LUC02410 | 77556 IOXND EQU .X+(IOXND-X (29)LUC02420 | 77562 IOXS4 EQU .X+(IOXS4-X (29)LUC02430 | 77564 IOXEF EQU .X+(IOXEF-X (29)LUC02440 77566 IOXER EQU .X+(IOXER-X (29)LUC02450 | 77570 IOXSLL EQU .X+(IXSLL-X (29)LUC02460 | 77571 IOXIN EQU .X+(IOXIN-X (29)LUC02470 | 77572 IOXMD EQU .X+(IOXMD-X (29)LUC02480 | 77573 IOXSEL EQU .X+(IXSEL-X (29)LUC02490 77611 IOXSS4 EQU .X+(IXSS4-X (29)LUC02500 | 77613 IOXWR EQU .X+(IOXWR-X (29)LUC02510 | 77616 IOXPST EQU .X+(IXPST-X (29)LUC02520 | END LUC02570 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 77462 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 226 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 67 X 20, 22, 67, 226 | 77462 .X 22, 226 | 24 CHC 36, 52 | 45 CHE 26 53 NGD 46 | 64 UNI 12, 64 | 136 XA3 226 | 127 XCI 226 | 140 XGO 40, 226 110 XLB 226 | 112 XLC 15, 226 | 102 XLX 226 | 137 XLZ 226 | 71 XXA 226 65 COM1 53, 55 | 77531 .XA3 30, 34, 35, 64, 226 | 77522 .XCI 54, 56, 70, 74, 102, 123, 226 | 77533 .XGO 37, 121, 226 | 77503 .XLB 103, 105, 226 77505 .XLC 44, 71, 226 | 77475 .XLX 76, 226 | 77532 .XLZ 113, 116, 226 | 77464 .XXA 26, 42, 43, 57, 114, 124, 226 | 25 TAP1 14 51 TAP3 16 | 226 XEND 20, 21, 22, 226 | 125 XLB1 226 | 115 XLC1 | 120 XLD1 226 103 XXA1 226 | 2 CHAIN 0, 45, 47 | 63 CHWRD 4, 13, 27 | 1 EXSEL 24 | 77564 IOXEF 143, 226 77566 IOXER 145, 226 | 77571 IOXIN 166, 223, 226 | 77572 IOXMD 207, 210, 226 | 77556 IOXND 151, 165, 226 | 77534 IOXRW 112, 226 77562 IOXS4 141, 226 | 77546 IOXUC 152, 160, 226 | 77613 IOXWR 212, 220, 226 | 77520 .XLB1 67, 122, 226 | 77513 .XLD1 117, 120, 226 77476 .XXA1 77, 226 | 0 (TES) 17 | 73600 BOTIOP | 3734 BOTTOM | 64 CHSEL1 25 3732 DATEBX | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | | 2 FINTAP 3730 FLAGBX | 77616 IOXPST 202, 226 | 77573 IOXSEL 175, 211, 213, 226 | 77570 IOXSLL 147, 150, 155, 156, 226 | 77611 IOXSS4 200, 222, 225, 226 134 .CHEXI | 135 .MODSW | 1 LIBTAP | 3731 LINECT | 60 L(UT1) 7 MBNTAP | 10 MCHTAP | 5 MINTAP | 6 MLSTAP | 3 SINTAP 11 SNPTAP | 122 SYSACC | 114 SYSCEM | 155 SYSCK1 | 156 SYSCK2 120 SYSCOR | 144 SYSCRD | 102 SYSCUR | 124 SYSCYD | 101 SYSDAT 115 SYSDMP | 77777 SYSEND | 132 SYSGET 106 | 117 SYSIDR | 151 SYSIN1 152 SYSIN2 | 116 SYSIOX | 133 SYSJOB 104 | 104 SYSKEY | 140 SYSLB1 141 SYSLB2 | 142 SYSLB3 | 143 SYSLB4 | 121 SYSLDR | 3720 SYSORG 147 SYSOU1 76 | 150 SYSOU2 | 146 SYSPCH | 123 SYSPID | 106 SYSPOS 153 SYSPP1 | 154 SYSPP2 | 145 SYSPRT | 103 SYSRET 107 | 113 SYSRPT 126 SYSSLD | 105 SYSSWS | 1 SYSTAP | 127 SYSTCH | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 POST PROCESSOR ASSEMBLY DATA | | 100 SYSTRA | 131 SYSTWT | 111 SYSUAV 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 60 | 160 SYSUT2 161 SYSUT3 62 | 162 SYSUT4 61 | 4 TINTAP | 77677 TOPMEM | 702 (ACTIV 162 703 (ACTVX | 720 (BCD5R | 721 (BCD5X | 10000 (CHKU) | 741 (CHPSW 724 (CHXAC | 750 (CHXSP | 717 (CKWAT | 746 (COMMD | 736 (COMMM 115 722 (CVPRT | 73662 (DATE) | 716 (DECVA | 715 (DECVD | 73645 (DGLD) 73603 (DIAG) | 710 (ENBSW | 73665 (ENDS) | 732 (ETTXI | 743 (FDAMT 73660 (FGBX) | 747 (IBCDZ | 171 (IOXEF 226 | 173 (IOXER 226 | 176 (IOXIN 226 177 (IOXMD 226 | 163 (IOXND 226 | 141 (IOXRW 75, 226 | 167 (IOXS4 226 | 740 (IOXSI 153 (IOXUC 226 | 220 (IOXWR 226 | 223 (IXPST 226 | 200 (IXSEL 226 | 175 (IXSLL 226 216 (IXSS4 226 | 73667 (LBLD) | 73652 (LIBT) | 73661 (LNCT) | 73600 (LOAD) 73666 (LODR) | 737 (LTPOS | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | 73644 (MECL) | 73664 (MSLN) | 704 (NDATA 50 | 705 (NDSLX | 712 (PAUSE 711 (PAWSX | 3733 (PCBK) | 73651 (PGCT) | 73614 (PNCH) | 73611 (PRNT) 706 (PROUT 100 | 707 (PUNCH | 40014 (RBEC) | 40004 (RBEP) | 40010 (RBNC) 40000 (RBNP) | 727 (RCHXI 206, 215 | 726 (RCTXI | 40016 (RDEC) | 40006 (RDEP) 40012 (RDNC) | 40002 (RDNP) | 73622 (REST) | 73672 (SCHU) | 744 (SDCXI 73643 (SECL) | 20010 (SKBC) | 20000 (SKBP) | 20012 (SKDC) | 20002 (SKDP) 1000 (SNAP) | 73663 (SNCT) | 73617 (STAT) | 745 (STCXI | 73626 (STDN) 723 (STOPD | 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) | 714 (SYMUN 73 73606 (TAPE) | 730 (TCOXI | 733 (TEFXI | 4000 (TPER) | 735 (TRAPS 734 (TRAPX | 731 (TRCXI | 742 (TRPSW | 725 (URRXI | 40011 (WBNC) 40001 (WBNP) | 40013 (WDNC) | 40003 (WDNP) | 40015 (WEFC) | 40005 (WEFP) 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 | POST PROCESSOR ASSEMBLY DATA | | 40031 (WROW) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9DMP LUD00000 * FAP LUD00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | MONITOR DUMP ROUTINE / 9DMP | | SST FORTRAN $LUD00060 | BINARY CARD NO. 9DMP0000 | 00004 ENTRY DUMP LUD00080 | 00005 ENTRY PDUMP LUD00090 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LUD00100 | TRANSFER VECTOR | | BINARY CARD NO. 9DMP0001 | 00000 256762254360 EXSEL | 00001 746325623460 (TES) 00002 256731632645 EXITFN | 00003 256731636060 EXIT | | 00037 SIZE EQU 31 10 DUMPS PER CALL (22)LUD00110 | 70500 ORGDP EQU BOTIOP-1600 LUD00120 * LUD00130 | 00004 -0625 00 0 00146 DUMP STL DP SET DUMP FLAG. LUD00140 | 00005 -0634 00 1 03726 PDUMP SXD BOTTOM-6,1 LUD00150 | 00006 0634 00 2 03724 SXA BOTTOM-8,2 LUD00160 | 00007 0604 00 0 03721 STI BOTTOM-11 LUD00180 00010 -0600 00 0 03722 STQ BOTTOM-10 SAVE THE MQ (22)LUD00185 | 00011 0601 00 0 03723 STO BOTTOM-9 SAVE THE ACCUMULATOR SIGN AND BITS 1'35 LUD00190 | 00012 0771 00 0 00002 ARS 2 MOVE THE SIGN + P BITS OVER LUD00200 | 00013 0630 00 0 03724 STP BOTTOM-8 SAVE Q AND P BITS (22)LUD00210 | 00014 0500 00 0 00000 CLA 0 (25)LUD00220 00015 0601 00 0 03725 STO BOTTOM-7 SAVE LOCATION 0 FOR DUMP RECORD (25)LUD00225 | 00016 0600 00 0 00000 STZ 0 SET TM LUD00230 | 00017 3 00000 0 00000 TXH ,,0 NON-ZERO LUD00240 | 00020 -0760 00 0 00007 LTM AVOID TRANSFER TRAP (22)LUD00250 | 00021 0534 00 2 00000 LXA 0,2 LUD00260 00022 0441 00 0 00153 LDI TXIRT START INDICATORS (22)LUD00262 | 00023 -0140 00 0 00025 TNO *+2 SET TO INDICATE... (22)LUD00263 | | BINARY CARD NO. 9DMP0002 | 00024 -0055 00 000001 SIL 1 OVERFLOW (22)LUD00264 00025 0760 00 0 00005 IOT (22)LUD00265 | 00026 -0055 00 000002 SIL 2 I/O CHECK (22)LUD00270 | 00027 0760 00 0 00012 DCT (22)LUD00280 | 00030 -0055 00 000004 SIL 4 DIVIDE CHECK, OR (22)LUD00290 | 00031 -3 00000 2 00033 TXL *+2,2,0 (22)LUD00293 00032 -0055 00 000010 SIL 10 TRAP MODE (22)LUD00294 | 00033 0604 00 0 03727 STI BOTTOM-5 SAVE BITS (22)LUD00295 | 00034 0500 00 0 00000 CLA $EXSEL INITIALIZE SEL CALL AGAINST POSSIBLE (22)LUD00297 | 00035 0621 00 0 00101 STA BACK OVERLAYING OF TR. VECTOR DURING RESTORE(22)LUD00298 | 00036 -0634 00 4 03724 ARG SXD BOTTOM-8,4 UPDATED VALUE OF INDEX REGISTER 4 IS SAVED.LUD00300 00037 0774 00 2 00001 AXT 1,2 TABLE. LUD00310 | 00040 0774 00 1 00003 AXT 3,1 LUD00320 | 00041 0441 00 4 00001 CAL LDI 1,4 IF NEXT WORD IS NOT LUD00330 | 00042 0604 00 2 00223 STI END,2 A TSX, LUD00340 | 00043 -0051 00 007400 IIL 7400 ALL ARGUMENTS LUD00350 00044 0444 00 0 00224 OFT =O777777700000 HAVE BEEN (22)LUD00360 | 00045 0020 00 0 00061 TRA ALL PROCESSED. LUD00370 | 00046 -2 00001 1 00053 TNX FORMT,1,1 IF FORMAT ARG, GO OUT. LUD00380 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | MONITOR DUMP ROUTINE / 9DMP | 00047 1 00001 2 00050 T TXI *+1,2,1 LUD00390 | | BINARY CARD NO. 9DMP0003 | 00050 1 77777 4 00051 TXI *+1,4,-1 (26)LUD00400 00051 -3 00036 2 00041 TXL CAL,2,SIZE-1 BACK FOR NEXT WORD IF ARG BUFF.NON-FULL(26)LUD00410 | 00052 0020 00 0 00061 TRA ALL (26)LUD00411 | 00053 0054 00 077774 FORMT RFT 77774 IF FORMAT ARGUMENT IS LUD00420 | 00054 1 00002 1 00056 TXI *+2,1,2 GREATER THAN 3, PICK UP THE CELL LUD00430 | 00055 1 00002 1 00047 TXI T,1,2 IN ADDRESS OF ARG AND LUD00440 00056 0442 60 4 00001 OSI* 1,4 USE IT AS ARGUMENT. LUD00450 | 00057 0604 00 2 00223 STI END,2 LUD00460 | 00060 1 00001 2 00050 TXI T+1,2,1 LUD00470 | 00061 0600 00 2 00223 ALL STZ END,2 SET END-OF-ARGUMENTS SIGNAL. LUD00480 | 00062 0634 00 4 00140 SXA XR4,4 SAVE XR4 FOR EXIT (22)LUD00490 00063 0522 60 0 00001 XEC* $(TES) LUD00500 | * SAVE MEMORY ON B2. LUD00510 | 00064 0074 00 4 00000 CALL EXSEL UPPER CORES WHERE DUMP (22)LUD00545 | 00065 -0 00161 0 00150 MZE IORP+1,,SYSUT3 RECORD SITS (22)LUD00550 | 00066 -0 00142 0 00142 MZE PRTMS,,PRTMS (22)LUD00555 00067 0 07400 4 00000 CALL EXSEL PARAMETERS (22)LUD00560 | 00070 -0 00161 0 00151 MZE IORP+2,,SYSUT3 (22)LUD00561 | 00071 -0 00142 0 00142 MZE PRTMS,,PRTMS (22)LUD00562 | * EXIT TO MONITOR DUMP. LUD00570 | 00072 -0500 00 0 00223 RIOP CAL =-0 PREPARE TO STATE (22)LUD00580 00073 0520 00 0 00146 ZET DP WHETHER DUMP OR PDUMP (22)LUD00590 | | BINARY CARD NO. 9DMP0004 | 00074 -0602 00 0 03724 ORS BOTTOM-8 DUMP, SO STATE (22)LUD00600 | 00075 0441 00 0 03730 LDI FLAGBX LUD00670 00076 -0055 00 000040 SIL 40 DUMP BIT = 12. LUD00680 | 00077 0604 00 0 03730 STI FLAGBX LUD00690 | 00100 0074 00 4 00002 TSX $EXITFN,4 LUD00700 | 00101 0074 00 4 00000 BACK TSX **,4 RESTORE LOWER CORES (22)LUD00750 | 00102 0 00161 0 00147 PZE IORP,,SYSUT3 (22)LUD00760 00103 -0 00142 0 00142 MZE PRTMS,,PRTMS (22)LUD00770 | 00104 0074 00 4 00704 TSX (NDATA,4 REPOSITION SAVE TAPE (22)LUD00780 | 00105 0 00005 0 00161 PZE SYSUT3,,5 (22)LUD00790 | 00106 0534 00 4 00140 LXA XR4,4 PICK UP RETURN (22)LUD00800 | 00107 0441 00 4 00001 LDI 1,4 CHECK FOR STILL MORE DUMPS (26)LUD00810 00110 -0051 00 007400 IIL 7400 (22)LUD00820 | 00111 0444 00 0 00224 OFT =O777777700000 (22)LUD00830 | 00112 0020 00 0 00114 TRA *+2 OKAY TO RETURN (22)LUD00840 | 00113 0020 00 0 00037 TRA ARG+1 GOOD GRIEF, WHAT A GLUTTON (26)LUD00850 | 00114 0441 00 0 03721 LDI BOTTOM-11 RESTORE INDICATORS. LUD01020 00115 -0534 00 1 03726 LXD BOTTOM-6,1 INDEX ONE, LUD01040 | 00116 0534 00 2 03724 LXA BOTTOM-8,2 INDEX TWO LUD01050 | 00117 0441 00 0 03727 LDI BOTTOM-5 PREPARE FOR TRIGGER SETTING (22)LUD01051 | | BINARY CARD NO. 9DMP0005 00120 0500 00 0 00120 CLA * TURN ON OVERFLOW (22)LUD01052 | 00121 0767 00 0 00005 ALS 5 (22)LUD01053 | 00122 0560 00 0 03723 LDQ BOTTOM-9 AC TO MQ. LUD01060 | 00123 0500 00 0 03724 CLA BOTTOM-8 GET Q AND P BITS (22)LUD01070 | 00124 0771 00 0 00041 ARS 33 AT RIGHT END OF AC LUD01080 00125 0763 00 0 00043 LLS 35 SETS AC SIGN AND MOVES AC FROM MQ. LUD01090 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | MONITOR DUMP ROUTINE / 9DMP | | 00126 0560 00 0 03722 LDQ BOTTOM-10 RESTORE MQ. LUD01100 00127 -0056 00 000001 LNT 1 WAS THERE OVERFLOW (22)LUD01105 | 00130 0140 00 0 00131 TOV *+1 NO, TURN IT OFF (22)LUD01106 | 00131 -0054 00 000002 LFT 2 WAS THERE AN I/O CHECK (22)LUD01107 | 00132 0544 00 0 00223 LCHA =-0 CAUSE ONE (22)LUD01108 | 00133 -0054 00 000004 LFT 4 HOW ABOUT DIVIDE CHECK (22)LUD01109 00134 0221 00 0 00223 DVP =-0 CAUSE ONE (22)LUD01110 | 00135 -0054 00 000010 LFT 10 TRAP MODE (22)LUD01111 | 00136 0760 00 0 00007 ETM YES (22)LUD01112 | 00137 0441 00 0 03721 LDI BOTTOM-11 RESTORE INDICATORS (22)LUD01113 | 00140 0774 00 4 00000 XR4 AXT **,4 (22)LUD01114 00141 0021 00 4 00001 TTR 1,4 RETURN (22)LUD01117 | 00142 0074 00 4 00000 PRTMS CALL EXSEL SAY WE CANT SAVE MEMORY (22)LUD01140 | 00143 -0 00147 0 00154 MZE TERIO,,SYSOU1 (22)LUD01150 | | BINARY CARD NO. 9DMP0006 00144 0 00145 0 00145 PZE *+1,,*+1 LUD01160 | 00145 0 07400 4 00003 CALL EXIT LUD01170 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LUD01180 | * CONSTANTS + VARIABLES. LUD01190 | 00146 0 00000 0 00000 DP PZE ** LUD01200 00147 3 00062 0 03734 IORP IORT BOTTOM,,50 (22)LUD01230 | 00150 3 07300 0 70500 IORT ORGDP,,SYSEND+1-ORGDP (30)LUD01240 | 00151 -0 00062 0 03734 IOCP BOTTOM,,50 (22)LUD01250 | 00152 3 00037 0 00164 IORT END-SIZE,,SIZE (22)LUD01260 | 00153 1 00000 0 00101 TXIRT TXI BACK,, LUD01280 00154 3 00007 0 00155 TERIO IORT *+1,,7 (22)LUD01290 | 00155 602551514651 BCI 7, ERROR ON SAVE TAPE (SYSUT3). JOB ENDED. (22)LUD01300 | 00156 604645606221 | 00157 652560632147 | 00160 256074627062 00161 646303343360 | 00162 414622602545 | 00163 242524336060 | 00223 END BES SIZE LUD01310 | END LUD01320 | LITERALS | | BINARY CARD NO. 9DMP0007 | 00223 400000000000 00224 777777700000 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 225 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 47 T 55, 60 | 146 DP 4, 73 | 61 ALL 45, 52 36 ARG 113 | 41 CAL 51 | 223 END 42, 57, 61, 152 | 140 XR4 62, 106 | 101 BACK 35, 153 4 DUMP 0 | 3 EXIT 145 | 147 IORP 65, 70, 102 | 72 RIOP | 37 SIZE 4, 51, 152, 164 0 EXSEL 34, 64, 67, 142 | 53 FORMT 46 | 70500 ORGDP 4, 150 | 5 PDUMP 0 | 142 PRTMS 66, 71, 103 154 TERIO 143 | 153 TXIRT 22 | 1 (TES) 63 | 73600 BOTIOP 4 | 3734 BOTTOM 5, 6, 7, 10, 11, 13, 15, 33, 36, 74, 114, 115, 116, 117, 122, 123, 126 137, 147, 151 | 3732 DATEBX | 2 EXITFN 100 | 2 FINTAP | 3730 FLAGBX 75, 77 134 .CHEXI | 135 .MODSW | 1 LIBTAP | 3731 LINECT | 7 MBNTAP 10 MCHTAP | 5 MINTAP | 6 MLSTAP | 3 SINTAP | 11 SNPTAP 122 SYSACC | 114 SYSCEM | 155 SYSCK1 | 156 SYSCK2 | 120 SYSCOR 144 SYSCRD | 102 SYSCUR | 124 SYSCYD | 101 SYSDAT | 115 SYSDMP 77777 SYSEND 150 | 132 SYSGET | 117 SYSIDR | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | 151 SYSIN1 | 152 SYSIN2 | 116 SYSIOX | 133 SYSJOB 104 SYSKEY | 140 SYSLB1 | 141 SYSLB2 | 142 SYSLB3 | 143 SYSLB4 121 SYSLDR | 3720 SYSORG | 147 SYSOU1 143 | 150 SYSOU2 | 146 SYSPCH 123 SYSPID | 106 SYSPOS | 153 SYSPP1 | 154 SYSPP2 | 145 SYSPRT 103 SYSRET | 113 SYSRPT | 126 SYSSLD | 105 SYSSWS | 1 SYSTAP 127 SYSTCH | 100 SYSTRA | 131 SYSTWT | 111 SYSUAV | 110 SYSUBC 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 | 160 SYSUT2 | 161 SYSUT3 65, 70, 102, 105 162 SYSUT4 | 4 TINTAP | 77677 TOPMEM | 702 (ACTIV | 703 (ACTVX 720 (BCD5R | 721 (BCD5X | 10000 (CHKU) | 741 (CHPSW | 724 (CHXAC 750 (CHXSP | 717 (CKWAT | 746 (COMMD | 736 (COMMM | 722 (CVPRT 73662 (DATE) | 716 (DECVA | 715 (DECVD | 73645 (DGLD) | 73603 (DIAG) 710 (ENBSW | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | | 73665 (ENDS) 732 (ETTXI | 743 (FDAMT | 73660 (FGBX) | 747 (IBCDZ | 740 (IOXSI 73667 (LBLD) | 73652 (LIBT) | 73661 (LNCT) | 73600 (LOAD) | 73666 (LODR) 737 (LTPOS | 73644 (MECL) | 73664 (MSLN) | 704 (NDATA 104 | 705 (NDSLX 712 (PAUSE | 711 (PAWSX | 3733 (PCBK) | 73651 (PGCT) | 73614 (PNCH) 73611 (PRNT) | 706 (PROUT | 707 (PUNCH | 40014 (RBEC) | 40004 (RBEP) 40010 (RBNC) | 40000 (RBNP) | 727 (RCHXI | 726 (RCTXI | 40016 (RDEC) 40006 (RDEP) | 40012 (RDNC) | 40002 (RDNP) | 73622 (REST) | 73672 (SCHU) 744 (SDCXI | 73643 (SECL) | 20010 (SKBC) | 20000 (SKBP) | 20012 (SKDC) 20002 (SKDP) | 1000 (SNAP) | 73663 (SNCT) | 73617 (STAT) | 745 (STCXI 73626 (STDN) | 723 (STOPD | 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) 714 (SYMUN | 73606 (TAPE) | 730 (TCOXI | 733 (TEFXI | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 POST PROCESSOR ASSEMBLY DATA | | 4000 (TPER) | 735 (TRAPS | 734 (TRAPX 731 (TRCXI | 742 (TRPSW | 725 (URRXI | 40011 (WBNC) | 40001 (WBNP) 40013 (WDNC) | 40003 (WDNP) | 40015 (WEFC) | 40005 (WEFP) | 40031 (WROW) | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9XLO LUL00000 * FAP LUL00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | RELOCATED LOCATION FUNCTION ROUTINE / 9XLO | | | BINARY CARD NO. 9XLO0000 00000 ENTRY XLOC LUL00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LUL00080 | | BINARY CARD NO. 9XLO0001 | 00000 0634 00 4 00017 XLOC SXA EXIT,4 SAVE FOR EXIT. (21)LUL00090 00001 -0500 00 4 77777 XLOC1 CAL -1,4 SEARCH (21)LUL00100 | 00002 0621 00 0 00012 STA XLOC3 EITHER 6)+4 OR GARBAGE. (26)LUL00110 | 00003 0621 00 0 00013 XLOC2 STA XLOC4 SEARCH (26)LUL00120 | 00004 0625 00 0 00013 STT XLOC4 FOR (26)LUL00130 | 00005 0322 00 0 00001 ERA XLOC1 PRECEDING (26)LUL00140 00006 -0320 00 0 00021 ANA =O77777000000 CLA N,T. (26)LUL00150 | 00007 0100 00 0 00012 TZE XLOC3 IF CLA N,T IS FOUND. (26)LUL00160 | 00010 -0500 00 4 77776 CAL -2,4 (26)LUL00170 | 00011 1 00001 4 00003 TXI XLOC2,4,1 (26)LUL00180 | 00012 -0534 00 4 00000 XLOC3 LXD **,4 LXD 6)+4,4 OR GARBAGE. (26)LUL00190 00013 0754 00 0 00000 XLOC4 PXA **,** PLACE N MINUS CONTENTS (26)LUL00200 | 00014 0402 00 0 00013 SUB XLOC4 OF INDEX REGISTER T (26)LUL00210 | 00015 0767 00 0 00022 ALS 18 IN AC (21)LUL00250 | 00016 -0320 00 0 00021 ANA =O77777000000 DECREMENT. (21)LUL00260 | 00017 0774 00 4 00000 EXIT AXT **,4 (21)LUL00270 00020 0020 00 4 00001 TRA 1,4 * EXIT TO CALLER. (21)LUL00280 | END LUL00290 | | LITERALS | 00021 077777000000 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | | 22 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | 0REFERENCES TO DEFINED SYMBOLS | 17 EXIT 0 | 0 XLOC 0 | 1 XLOC1 5 | 3 XLOC2 11 12 XLOC3 2, 7 | 13 XLOC4 3, 4, 14 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9EXE LXE00000 * FAP LXE00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | EXECUTION ERROR ROUTINE / 9EXE | | | BINARY CARD NO. 9EXE0000 00000 ENTRY (EXE) LXE00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LXE00080 | | BINARY CARD NO. 9EXE0001 | 00000 0604 00 0 00007 (EXE) STI HALT SET ADDRESS AND TAG OF HPR. LXE00090 00001 0634 00 4 00006 SXA XR4,4 SAVE C(XR4). LXE00100 | 00002 -0534 00 4 00007 LXD HALT,4 SET EXIT ADDRESS LXE00110 | 00003 0634 00 4 00010 SXA EXIT,4 TO RESUME EXECUTION. LXE00120 | 00004 0774 00 4 42000 AXT HPR,4 PICKUP HPR OP LXE00130 | 00005 -0634 00 4 00007 SXD HALT,4 TO SET HALT. LXE00140 00006 0774 00 4 00000 XR4 AXT ..,4 RESTORE C(XR4). LXE00150 | 00007 0420 00 0 00000 HALT HPR ..,.. EXECUTION ERROR STOP. LXE00160 | 00010 0020 00 0 00000 EXIT TRA .. * EXIT TO RESUME EXECUTION. LXE00170 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LXE00180 | 042000 HPR BOOL 42000 HPR OP. LXE00190 00000 .. EQU 0 MODIFICATION SYMBOL. LXE00200 | END LXE00210 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 11 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 0 .. 6, 7, 10, 11 | 42000 HPR 4, 11 6 XR4 1 | 10 EXIT 3 | 7 HALT 0, 2, 5 | 0 (EXE) 0 | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9XEM LXM00000 * FAP LXM00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | MONITOR EXECUTION ERROR ROUTINE / 9XEM | | SST FORTRAN $LXM00060 | BINARY CARD NO. 9XEM0000 | 00005 ENTRY (EXEM) LXM00080 | | TRANSFER VECTOR | BINARY CARD NO. 9XEM0001 | 00000 742262513460 (BSR) | 00001 256762254360 EXSEL | 00002 256731636060 EXIT | 00003 256731632645 EXITFN 00004 743146623460 (IOS) | | 00706 MWR SYN (PROUT LXM00090 | 00005 0604 00 0 03721 (EXEM) STI BOTTOM-11 SAVE SENSE INDICATORS, LXM00100 | 00006 -0600 00 0 03722 STQ BOTTOM-10 MQ LXM00110 00007 0634 00 1 00062 SXA XR1,1 INDEX REGISTERS, LXM00120 | 00010 0634 00 2 00063 SXA XR2,2 LXM00130 | 00011 0634 00 4 00064 SXA XR4,4 LXM00140 | 00012 0602 00 0 03723 SLW BOTTOM-9 LOGICAL ACC. LXM00150 | 00013 0771 00 0 00002 ARS 2 LXM00160 00014 0601 00 0 03724 STO BOTTOM-8 LXM00170 | 00015 -0500 00 0 03721 CAL BOTTOM-11 PUT ERROR CODE IN FORM TO LXM00180 | 00016 -0320 00 0 00172 ANA MASK1 COMPARE WITH TABLE OF LXM00190 | 00017 0765 00 0 00003 LRS 3 ERROR CODES. LXM00200 | 00020 0771 00 0 00014 ARS 12 LXM00210 00021 0763 00 0 00003 LLS 3 LXM00220 | 00022 0774 00 1 00027 AXT 23,1 LENGTH OF TABLES = 23 RECOGNIZED ERRORS. LXM00230 | 00023 0774 00 2 00000 AXT 0,2 LXM00240 | | BINARY CARD NO. 9XEM0002 00024 0402 00 2 00266 EX1 SUB TBL,2 LXM00250 | 00025 0100 00 0 00032 TZE EX2 ERROR CODE FOUND. LXM00260 | 00026 0400 00 2 00266 ADD TBL,2 LXM00270 | 00027 1 77777 2 00030 TXI *+1,2,-1 LXM00280 | 00030 2 00001 1 00024 TIX EX1,1,1 LXM00290 00031 0020 00 0 00124 TRA NSTER ERROR CODE NOT FOUND IN TABLE. LXM00300 | 00032 0020 60 2 00315 EX2 TRA* CODE,2 LXM00310 | 00033 0500 60 0 00000 EOFR CLA* $(BSR) EOF READING. LXM00320 | 00034 0601 00 0 00166 STO TAPE LXM00330 | 00035 0074 00 4 00072 TSX CNVT,4 CONVERT BINARY TAPE NUMBER TO BCD. LXM00340 00036 0604 00 0 00213 STI COM+3 STORE PHYSICAL TAPE NO. IN COMMENT. LXM00350 | 00037 0074 00 4 00706 TSX MWR,4 PRINT ERROR COMMENT AND LXM00360 | 00040 0 00000 0 00002 PZE 2 OPTIONS TO CONTINUE THE JOB LXM00370 | 00041 0 04012 0 00210 PZE COM,,10+512*4 OR DELETE AND GO TO THE NEXT LXM00380 | 00042 0 04011 0 00222 PZE COM2,,9+512*4 JOB. LXM00390 00043 0074 00 4 00712 TSX (PAUSE,4 SYSTEM PAUSE $LXM00400 | 00044 0760 00 0 00004 ENK LXM00410 | 00045 0162 00 0 00060 TQP CONT CONTINUE. LXM00420 | 00046 0500 00 0 00147 CLA SYSOU1 PICK UP CELL FOR THIS TAPE AND LXM00430 | 00047 0621 00 0 00164 STA OSUCB PUT ITS UCB START INTO OSUCB AND LXM00440 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | MONITOR EXECUTION ERROR ROUTINE / 9XEM | | BINARY CARD NO. 9XEM0003 | 00050 0074 00 4 00001 TSX $EXSEL,4 THEN GO TO IO ROUTINE LXM00450 00051 -0 00164 0 00170 MZE CMT,,OSUCB PRINT END OF FILE ON TAPE. LXM00460 | 00052 0 00053 0 00053 PZE *+1,,*+1 LXM00470 | 00053 0500 00 0 03731 CLA LINECT LXM00480 | 00054 0400 00 0 00165 ADD L(1) LXM00490 | 00055 0601 00 0 03731 STO LINECT LXM00500 00056 0074 00 4 00002 TSX $EXIT,4 LXM00510 | 00057 0074 00 4 00003 CALL TSX $EXITFN,4 GO TO SUBROUTINE TO READ IN IO PACKAGE. LXM00520 | 00060 -0534 00 4 03721 CONT LXD BOTTOM-11,4 CONTINUE JOB. SET RETURN. LXM00530 | 00061 0634 00 4 00071 SXA OUT,4 ADDRESS. LXM00540 | 00062 0774 00 1 00000 XR1 AXT **,1 RESTORE LXM00550 00063 0774 00 2 00000 XR2 AXT **,2 INDEX LXM00560 | 00064 0774 00 4 00000 XR4 AXT **,4 REGISTERS, LXM00570 | 00065 0560 00 0 03722 LDQ BOTTOM-10 MQ LXM00580 | 00066 0500 00 0 03724 CLA BOTTOM-8 ACC. LXM00590 | 00067 0767 00 0 00002 ALS 2 LXM00600 00070 -0501 00 0 03723 ORA BOTTOM-9 LXM00610 | 00071 0020 00 0 00000 OUT TRA ** LXM00620 | 00072 0765 00 0 00011 CNVT LRS 9 LXM00630 | 00073 0402 00 0 00165 SUB L(1) TO BCD. LXM00640 | BINARY CARD NO. 9XEM0004 | 00074 0737 00 1 00000 PAC 0,1 LXM00650 | 00075 0763 00 0 00005 LLS 5 LXM00660 | 00076 0754 00 0 00000 PXA 0,0 LXM00670 | 00077 0044 00 0 00000 PAI LXM00680 00100 0763 00 0 00004 LLS 4 LXM00690 | 00101 0402 00 0 00165 SUB L(1) LXM00700 | 00102 0737 00 2 00000 PAC 0,2 LXM00710 | 00103 -0500 00 1 00244 CAL LET,1 LXM00720 | 00104 0043 00 0 00000 OAI LXM00730 00105 -0500 00 2 00254 CAL NUM,2 LXM00740 | 00106 0043 00 0 00000 OAI LXM00750 | 00107 0020 00 4 00001 TRA 1,4 LXM00760 | 00110 0441 00 0 03730 SRCER LDI FLAGBX PICK UP FLAGBX AND SET BIT TO LXM00770 | 00111 -0055 00 000010 SIL 10 INDICATE CONTROL GOES TO SOURCE LXM00780 00112 0604 00 0 03730 STI FLAGBX ERROR RECORD LXM00790 | 00113 0020 00 0 00121 TRA MCHER1 LXM00800 | 00114 0441 00 0 03730 MCHER LDI FLAGBX PICK UP FLAGBX AND SET BIT TO LXM00810 | 00115 -0055 00 000020 SIL 20 INDICATE CONTROL GOES TO MACHINE LXM00820 | 00116 0604 00 0 03730 STI FLAGBX ERROR RECORD LXM00830 00117 0560 60 0 00000 LDQ* $(BSR) LXM00840 | | BINARY CARD NO. 9XEM0005 | 00120 -0600 00 0 03722 STQ BOTTOM-10 PSEUDO MQ LXM00850 | 00121 0760 00 0 00140 MCHER1 SLF MAKE SURE ALL SENSE LIGHTS ARE OFF, LXM00860 00122 0760 00 0 00143 SLN 3 THEN TURN PROPER SENSE LIGHT ON. LXM00870 | 00123 0020 00 0 00057 TRA CALL GO TO PROPER ERROR RECORD. LXM00880 | 00124 0500 00 0 00171 NSTER CLA NST1 ERROR NOT FOUND IN TABLE. LXM00890 | 00125 0601 00 0 03721 STO BOTTOM-11 SET CODE FOR THIS IN INDICATOR SAVE. LXM00900 | 00126 0020 00 0 00110 TRA SRCER LXM00910 00127 0500 00 0 00004 NOUNIT CLA $(IOS) UNIT ADDRESS NOT FOUND IN UNIT TABLE. LXM00920 | 00130 0400 00 0 00165 ADD L(1) PUT UNIT ADDRESS IN LXM00930 | 00131 0621 00 0 00132 STA *+1 MQ FOR TRANSMISSION LXM00940 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | MONITOR EXECUTION ERROR ROUTINE / 9XEM | 00132 0560 60 0 00000 LDQ* ** TO SOURCE ERROR LXM00950 | 00133 -0600 00 0 03722 STQ BOTTOM-10 PSEUDO MQ FOR PASSING INFORMATION. LXM00960 | 00134 0020 00 0 00110 TRA SRCER RECORD. LXM00970 | 00135 0774 00 1 00014 ILDAT AXT 12,1 ILLEGAL CHARACTER IN DATA FIELD. LXM00980 00136 0560 00 1 77765 LDQ REC+12,1 LXM00990 | 00137 -0600 00 1 00210 STQ BUF+12,1 LXM01000 | 00140 2 00001 1 00136 TIX *-2,1,1 LXM01010 | 00141 0500 00 0 00147 CLA SYSOU1 PICK UP CELL FOR THIS TAPE AND LXM01020 | 00142 0621 00 0 00164 STA OSUCB PUT ITS UCB START INTO OSUCB AND LXM01030 00143 0737 00 2 00000 PAC ,2 THE COMPLEMENT OF THIS INTO I.R.2. LXM01040 | | BINARY CARD NO. 9XEM0006 | 00144 0074 00 4 00001 TSX $EXSEL,4 TAPE, THEN WRITE THE BCD BUFFER LXM01050 | 00145 -0 00164 0 00167 MZE DATA,,OSUCB CONTAINING THE ILLEGAL CHARACTER. LXM01060 00146 0 00147 0 00147 PZE *+1,,*+1 LXM01070 | 00147 0500 00 0 03731 ILDAT1 CLA LINECT LXM01080 | 00150 0400 00 0 00165 ADD L(1) LXM01090 | 00151 0601 00 0 03731 STO LINECT LXM01100 | 00152 0020 00 0 00110 TRA SRCER LXM01110 00153 0500 60 0 00000 EOTW CLA* $(BSR) EOT WRITING. LXM01120 | 00154 0601 00 0 00166 STO TAPE LXM01130 | 00155 0074 00 4 00072 TSX CNVT,4 CONVERT BINARY TAPE NUMBER TO BCD. LXM01140 | 00156 0604 00 0 00237 STI COM4+4 LXM01150 | 00157 0074 00 4 00706 TSX MWR,4 PRINT COMMENT ABOUT END OF TAPE LXM01160 00160 0 00000 0 00001 PZE 1 WRITING. LXM01170 | 00161 0 04011 0 00233 PZE COM4,,9+512*4 LXM01180 | 00162 0074 00 4 00712 TSX (PAUSE,4 SYSTEM PAUSE $LXM01190 | 00163 0020 00 0 00060 TRA CONT LXM01200 | 00164 0 00000 0 00000 OSUCB PZE LXM01210 00165 0 00000 0 00001 L(1) PZE 1 LXM01220 | 00166 0 00000 0 00000 TAPE PZE LXM01230 | 00167 3 00015 0 00173 DATA IORT BUF1,,13 LXM01240 | | BINARY CARD NO. 9XEM0007 00170 3 00004 0 00210 CMT IORT COM,,4 LXM01250 | 00171 0 00000 6 00003 NST1 PZE 3,6 CHANGED FROM 1,6 DUE TO NEW IOEX LIBRARY LXM01260 | 00172 0 00000 7 77777 MASK1 PZE -1,7 LXM01270 | 00173 006060606060 BUF1 BCI 1,0 LXM01280 | 00174 BUF BSS 12 LXM01290 | BINARY CARD NO. 9XEM0008 | 00210 602545246046 COM BCI 4, END OF FILE TAPE LXM01300 | 00211 266026314325 | 00212 606321472560 00213 606060606060 | 00214 606346602346 BCI 6, TO CONTINUE THIS JOB, PUSH START. LXM01310 | 00215 456331456425 | 00216 606330316260 | 00217 414622736047 00220 646230606263 | 00221 215163336060 | 00222 606346602746 COM2 BCI 9, TO GO TO NEXT JOB, DEPRESS SIGN KEY AND PUSH START. LXM01320 | 00223 606346604525 | 00224 676360414622 00225 736024254751 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | MONITOR EXECUTION ERROR ROUTINE / 9XEM | | 00226 256262606231 00227 274560422570 | 00230 602145246047 | 00231 646230606263 | 00232 215163336060 | 00233 602545246046 COM4 BCI 9, END OF TAPE WRITING . CHANGE AND PUSH START. LXM01330 | BINARY CARD NO. 9XEM0009 | 00234 266063214725 | 00235 606651316331 | 00236 452760606060 00237 606060606060 | 00240 336023302145 | 00241 272560214524 | 00242 604764623060 | 00243 626321516333 00244 210000000000 LET BCI 8,A00000B00000C00000D00000E00000F00000G00000H00000 LXM01340 | 00245 220000000000 | 00246 230000000000 | 00247 240000000000 | 00250 250000000000 00251 260000000000 | 00252 270000000000 | 00253 300000000000 | 00254 006001606060 NUM BCI 9,0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 LXM01350 | 00255 006002606060 00256 006003606060 | 00257 006004606060 | | BINARY CARD NO. 9XEM0010 | 00260 006005606060 00261 006006606060 | 00262 006007606060 | 00263 006010606060 | 00264 006011606060 | 00265 000100606060 BCI 1,010 LXM01360 00266 +000000000010 TBL DEC 8,9,10,11,12,13,16,17,24,25,26,33,34,40,41,42,43,48 LXM01370 | 00267 +000000000011 | 00270 +000000000012 | 00271 +000000000013 | 00272 +000000000014 00273 +000000000015 | 00274 +000000000020 | 00275 +000000000021 | 00276 +000000000030 | 00277 +000000000031 00300 +000000000032 | 00301 +000000000041 | 00302 +000000000042 | 00303 +000000000050 | BINARY CARD NO. 9XEM0011 | 00304 +000000000051 | 00305 +000000000052 | 00306 +000000000053 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 5 MONITOR EXECUTION ERROR ROUTINE / 9XEM | | 00307 +000000000060 | 00310 +000000000061 DEC 49,50,57,58,59 LXM01380 | 00311 +000000000062 00312 +000000000071 | 00313 +000000000072 | 00314 +000000000073 | 00315 0 00000 0 00147 CODE PZE ILDAT1 TRANSFER FOR HPR (0,1) STOP. LXM01390 | 00316 0 00000 0 00135 PZE ILDAT TRANSFER FOR HPR(1,1) STOP. LXM01400 00317 0 00000 0 00135 PZE ILDAT TRANSFER FOR HPR(2,1) STOP. LXM01410 | 00320 0 00000 0 00135 PZE ILDAT TRANSFER FOR HPR(3,1) STOP. LXM01420 | 00321 0 00000 0 00135 PZE ILDAT TRANSFER FOR HPR(4,1) STOP. LXM01430 | 00322 0 00000 0 00135 PZE ILDAT TRANSFER FOR HPR(5,1) STOP. LXM01440 | 00323 0 00000 0 00110 PZE SRCER TRANSFER FOR HPR(0,2) STOP. LXM01450 00324 0 00000 0 00110 PZE SRCER TRANSFER FOR HPR(1,2) STOP. LXM01460 | 00325 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR(0,3) STOP. LXM01470 | 00326 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR(1,3) STOP. LXM01480 | 00327 0 00000 0 00033 PZE EOFR TRANSFER FOR HPR(2,3) STOP. LXM01490 | BINARY CARD NO. 9XEM0012 | 00330 0 00000 0 00110 PZE SRCER TRANSFER FOR HPR(1,4) STOP. LXM01500 | 00331 0 00000 0 00110 PZE SRCER TRANSFER FOR HPR(2,4) STOP. LXM01510 | 00332 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR(0,5) STOP. LXM01520 | 00333 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR(1,5) STOP. LXM01530 00334 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR(2,5) STOP. LXM01540 | 00335 0 00000 0 00153 PZE EOTW TRANSFER FOR HPR(3,5) STOP. LXM01550 | 00336 0 00000 0 00127 PZE NOUNIT TRANSFER FOR HPR(0,6) STOP. LXM01560 | 00337 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR (1,6) STOP. LXM01570 | 00340 0 00000 0 00114 PZE MCHER TRANSFER FOR HPR (2,6) STOP. LXM01580 00341 0 00000 0 00110 PZE SRCER LXM01590 | 00342 0 00000 0 00110 PZE SRCER LXM01600 | 00343 0 00000 0 00110 PZE SRCER LXM01610 | 00026 BUFSIZ EQU 22 LXM01620 | 77751 COMMON -206+BUFSIZ LXM01630 77751 REC COMMON 1 LXM01640 | END LXM01650 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 77750 IS THE LAST LOCATION NOT USED BY THIS PROGRAM | 344 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 174 BUF 137 170 CMT 51 | 210 COM 36, 41, 170 | 24 EX1 30 | 32 EX2 25 | 244 LET 103 706 MWR 5, 37, 157 | 254 NUM 105 | 71 OUT 61 | 77751 REC 136, 344 | 266 TBL 24, 26 62 XR1 7 | 63 XR2 10 | 64 XR4 11 | 173 BUF1 167 | 57 CALL 123 72 CNVT 35, 155 | 315 CODE 32 | 222 COM2 42 | 233 COM4 156, 161 | 60 CONT 45, 163 167 DATA 145 | 33 EOFR 327 | 153 EOTW 335 | 2 EXIT 56 | 165 L(1) 54, 73, 101, 130, 150 171 NST1 124 | 166 TAPE 34, 154 | 1 EXSEL 50, 144 | 135 ILDAT 316, 317, 320, 321, 322 | 172 MASK1 16 114 MCHER 325, 326, 332, 333, 334, 337, 340 | 124 NSTER 31 | 164 OSUCB 47, 51, 142, 145 | 110 SRCER 126, 134, 152, 323, 324, 330, 331, 341, 342, 343 | 0 (BSR) 33, 117, 153 4 (IOS) 127 | 73600 BOTIOP | 3734 BOTTOM 5, 6, 12, 14, 15, 60, 65, 66, 70, 120, 125, 133 | 26 BUFSIZ 344 | 3732 DATEBX 3 EXITFN 57 | 2 FINTAP | 3730 FLAGBX 110, 112, 114, 116 | 147 ILDAT1 315 | 134 .CHEXI 135 .MODSW | 1 LIBTAP | 3731 LINECT 53, 55, 147, 151 | 7 MBNTAP | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 2 POST PROCESSOR ASSEMBLY DATA | | 121 MCHER1 113 | 10 MCHTAP | 5 MINTAP 6 MLSTAP | 127 NOUNIT 336 | 3 SINTAP | 11 SNPTAP | 122 SYSACC 114 SYSCEM | 155 SYSCK1 | 156 SYSCK2 | 120 SYSCOR | 144 SYSCRD 102 SYSCUR | 124 SYSCYD | 101 SYSDAT | 115 SYSDMP | 77777 SYSEND 132 SYSGET | 117 SYSIDR | 151 SYSIN1 | 152 SYSIN2 | 116 SYSIOX 133 SYSJOB | 104 SYSKEY | 140 SYSLB1 | 141 SYSLB2 | 142 SYSLB3 143 SYSLB4 | 121 SYSLDR | 3720 SYSORG | 147 SYSOU1 46, 141 | 150 SYSOU2 146 SYSPCH | 123 SYSPID | 106 SYSPOS | 153 SYSPP1 | 154 SYSPP2 145 SYSPRT | 103 SYSRET | 113 SYSRPT | 126 SYSSLD | 105 SYSSWS 1 SYSTAP | 127 SYSTCH | 100 SYSTRA | 131 SYSTWT | 111 SYSUAV 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 | 160 SYSUT2 161 SYSUT3 | 162 SYSUT4 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | 4 TINTAP | 77677 TOPMEM | 702 (ACTIV | 703 (ACTVX | 720 (BCD5R 721 (BCD5X | 10000 (CHKU) | 741 (CHPSW | 724 (CHXAC | 750 (CHXSP 717 (CKWAT | 746 (COMMD | 736 (COMMM | 722 (CVPRT | 73662 (DATE) 716 (DECVA | 715 (DECVD | 73645 (DGLD) | 73603 (DIAG) | 710 (ENBSW 73665 (ENDS) | 732 (ETTXI | 5 (EXEM) 0 | 743 (FDAMT | 73660 (FGBX) 747 (IBCDZ | 740 (IOXSI | 73667 (LBLD) | 73652 (LIBT) | 73661 (LNCT) 73600 (LOAD) | 73666 (LODR) | 737 (LTPOS | 73644 (MECL) | 73664 (MSLN) 704 (NDATA | 705 (NDSLX | 712 (PAUSE 43, 162 | 711 (PAWSX | 3733 (PCBK) 73651 (PGCT) | 73614 (PNCH) | 73611 (PRNT) | 706 (PROUT 5 | 707 (PUNCH 40014 (RBEC) | 40004 (RBEP) | 40010 (RBNC) | 40000 (RBNP) | 727 (RCHXI 726 (RCTXI | 40016 (RDEC) | 40006 (RDEP) | 40012 (RDNC) | 40002 (RDNP) 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | | 73622 (REST) | 73672 (SCHU) 744 (SDCXI | 73643 (SECL) | 20010 (SKBC) | 20000 (SKBP) | 20012 (SKDC) 20002 (SKDP) | 1000 (SNAP) | 73663 (SNCT) | 73617 (STAT) | 745 (STCXI 73626 (STDN) | 723 (STOPD | 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) 714 (SYMUN | 73606 (TAPE) | 730 (TCOXI | 733 (TEFXI | 4000 (TPER) 735 (TRAPS | 734 (TRAPX | 731 (TRCXI | 742 (TRPSW | 725 (URRXI 40011 (WBNC) | 40001 (WBNP) | 40013 (WDNC) | 40003 (WDNP) | 40015 (WEFC) 40005 (WEFP) | 40031 (WROW) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709 / 7090 FORTRAN LIBRARY 9XIT LXT00000 * FAP LXT00020 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | MONITOR EXIT ROUTINE / 9XIT | | SST FORTRAN $LXT00060 | BINARY CARD NO. 9XIT0000 | 00001 ENTRY EXIT TO SIGN ON RECORD OF MONITOR AT OBJECT TIMELXT00080 | 00100 ENTRY EXSEL LXT00090 | 00006 ENTRY EXITFN LXT00100 | TRANSFER VECTOR | | BINARY CARD NO. 9XIT0001 | 00000 746325623460 (TES) | 00001 -0760 00 0 00007 EXIT LTM AFTER CHECKING FOR CORRECT COMPLETION LXT00110 | 00002 -0760 00 0 00016 EMTM ENTER MULTIPLE TAG MODE $LXT00120 | 00003 0522 60 0 00000 XEC* $(TES) CHECK FOR CORRECT COMPLETION $LXT00130 | 00004 0441 00 0 03730 LDI FLAGBX OF LAST WRITE $LXT00140 | 00005 0020 00 0 00200 TRA PATCH EXIT FOR MONITOR SETTING $LXT00150 00006 0441 00 0 03730 EXITFN LDI FLAGBX DETERMINE IF SYSTEM IS ON DISKS. LXT00160 | 00007 -0054 00 000100 LFT 100 LXT00170 | 00010 0020 00 0 00042 TRA RIOP YES, NO TAPE POSITIONING. LXT00180 | 00011 -0534 00 1 00106 BTP LXD SYSPOS,1 THE NUMBER OF FILES BEFORE FORTRAN IS TAKENLXT00190 | 00012 0600 00 0 00174 STZ TEMP LXT00200 00013 -0634 00 1 00174 SXD TEMP,1 FROM DECREMENT OF SYSPOS FOR LATER USE. LXT00210 | 00014 0535 00 1 00106 LAC SYSPOS,1 LXT00220 | 00015 0500 00 1 00137 CLA SYSLB1-1,1 GET SYSUNI ENTRY FOR FORTRAN SYSTEM TAPE. LXT00230 | 00016 0737 00 2 00000 PAC ,2 PLACE LOCATION OF UNIT CONTROL BLOCK IN LXT00240 | 00017 0621 00 0 00175 STA OSUCB STORAGE AND COMPLEMENTED INTO INDEX TWO. LXT00250 00020 0500 00 2 00002 CLA 2,2 GET THE 3RD WORD OF THE UNIT CONTROL BLOCK.LXT00260 | 00021 0760 00 0 00003 SSP TURN OFF NOISE RECORDS INDICATOR LXT00270 | 00022 0402 00 0 00174 SUB TEMP SUBTRACT TAPE POSITION-FORTRAN'S POSITION. LXT00280 | 00023 0100 00 0 00042 TZE RIOP TEST FOR POSITIONED CORRECTLY NOW. LXT00290 | BINARY CARD NO. 9XIT0002 | 00024 0120 00 0 00026 TPL *+2 TEST FOR BACKSPACING NEEDED. LXT00300 | 00025 0020 00 0 00071 TRA SKFF NO, GO HANDLE FORWARD SKIPPING. LXT00310 | 00026 0734 00 4 00000 PAX ,4 CHECK FOR EXTRA RECORDS. IF THEY LXT00320 | 00027 -3 00000 4 00031 TXL SSKR,4,0 EXIST ADD ONE TO THE NUMBER OF LXT00330 00030 0400 00 0 00176 ADD 1INDEC FILES TO BACK OVER. PLACE LXT00340 | 00031 -0734 00 1 00000 SSKR PDX ,1 FILES TO BACK OVER IN INDEX ONE. LXT00350 | 00032 0520 00 2 00001 ZETS ZET 1,2 CHECK TO BE SURE THE TAPE IS LXT00360 | 00033 0020 00 0 00032 TRA *-1 FREE, IF NOT DELAY UNTIL IT IS. LXT00370 | 00034 0074 00 4 00704 TSX (NDATA,4 GO TO IOEX TO BACKSPACE LXT00380 00035 0 00006 0 00175 PZE OSUCB,,6 OVER ONE FILE, THEN USE FILE COUNT LXT00390 | 00036 2 00001 1 00032 TIX ZETS,1,1 TO CHECK, BUMP, RETURN, OR CONTINUE. LXT00400 | 00037 0074 00 4 00100 TSX EXSEL,4 LXT00410 | 00040 0 00175 0 00172 PZE RDREC,,OSUCB LXT00420 | 00041 -0 00042 0 00042 MZE RIOP,,RIOP LXT00430 00042 0441 00 0 03730 RIOP LDI FLAGBX TEST IF *IOP $LXT00440 | 00043 0054 00 040000 RFT 40000 $LXT00442 | 00044 0020 00 0 00047 TRA IOPSPC YES, DO NOT READ IOP ,SPACE TO 9F0100 $LXT00444 | D 00045 0074 01 4 00121 TSX SYSLDR,4,1 READ IN THE I/O PACKAGE $LXT00446 | 00046 264651635121 BCI 1,FORTRA $LXT00448 00047 0074 00 4 73606 IOPSPC TSX (TAPE),4 SKIP $LXT00450 | 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | MONITOR EXIT ROUTINE / 9XIT | | BINARY CARD NO. 9XIT0003 00050 0 20000 0 00177 PZE LOC1,,(SKBP) OVER $LXT00451 | 00051 0 00001 0 00000 PZE ,,SYSTAP IOP $LXT00452 | 00052 -0500 00 0 00106 CAL SYSPOS ADJUST FILE COUNT $LXT00453 | 00053 0535 00 4 00140 LAC SYSLB1,4 $LXT00454 | 00054 0441 00 4 00000 LDI 0,4 $LXT00455 00055 -0056 00 020000 LNT 020000 SYSTEM ON TAPE, STORE FILE COUNT $LXT00456 | 00056 0622 00 4 00002 STD 2,4 IN SYSLB1 (UCW) 3 $LXT00457 | D 00057 0074 01 4 73600 TSX (LOAD),4,1 $LXT00458 | 00060 112600010000 BCI 1,9F0100 $LXT00459 | 00061 0520 00 2 00001 ROVF ZET 1,2 DELAY IF THE TAPE IS IN USE. LXT00460 00062 0020 00 0 00061 TRA *-1 LXT00470 | 00063 0074 00 4 00100 TSX EXSEL,4 SKIP OVER A FILE BY READING LXT00480 | 00064 0 00175 0 00170 PZE RDFL,,OSUCB LXT00490 | 00065 -0 00066 0 00067 MZE OKOUT,,*+1 LXT00500 | 00066 0020 00 0 00061 TRA ROVF ERROR NOT EOF, CONTINUE READING. LXT00510 00067 2 00001 1 00061 OKOUT TIX ROVF,1,1 END OF FILE. LAST ONE TO SKIP. LXT00520 | 00070 0020 00 0 00042 TRA RIOP GO TO READ THE IO PACKAGE. LXT00530 | 00071 0500 00 0 00174 SKFF CLA TEMP PLACE FORTRAN'S POSITION IN AC LXT00540 | 00072 0441 00 2 00002 LDI 2,2 PICK UP TAPE'S CURRENT POSITION LXT00550 | 00073 0057 00 777777 RIR 777777 ZERO OUT THE RECORD COUNT, LXT00560 | BINARY CARD NO. 9XIT0004 | 00074 0604 00 0 00174 STI TEMP IF ANY, THEN SUBTRACT TO DE- LXT00570 | 00075 -0400 00 0 00174 SBM TEMP TERMINE THE NUMBER OF FILES TO LXT00580 | 00076 -0734 00 1 00000 PDX ,1 SKIP. LOAD THIS INTO SKIP REGISTER LXT00590 00077 0020 00 0 00061 TRA ROVF THEN GO TO SKIP FILES. LXT00600 | 00100 0634 00 4 00132 EXSEL SXA RX4,4 SAVE THE CALLING LOCATION. LXT00610 | 00101 0634 00 2 00131 SXA RX2,2 SAVE INDEX TWO. LXT00620 | 00102 0500 00 4 00002 CLA 2,4 PICK UP THE ERROR RETURNS LXT00630 | 00103 0120 00 0 00105 TPL *+2 IF SIGN IS PLUS, TAPE IS DECIMAL. LXT00640 00104 -0625 00 0 00173 STL IOXIN INDICATE TAPE IS BINARY. LXT00650 | 00105 0621 00 0 00134 STA EF SAVE END OF FILE RETURN LXT00660 | 00106 0771 00 0 00022 ARS 18 LXT00670 | 00107 0621 00 0 00136 STA OE SAVE OTHER ERROR RETURN LXT00680 | 00110 0500 00 4 00001 CLA 1,4 PICK UP ADDRESS OF IO COMMANDS LXT00690 00111 0621 00 0 00141 STA SEL COMBINE IT WITH THE SELECT ROUTINE LXT00700 | 00112 -0734 00 4 00000 PDX ,4 ADDRESS, THEN STORE SELECT ROUTINES ADDRESSLXT00710 | 00113 0634 00 4 00125 SXA LOC,4 AND COMMAND START IN THE SECOND WORD OF LXT00720 | 00114 0560 00 0 00141 LDQ SEL THE UNIT CONTROL BLOCK OF THE PROPER TAPE LXT00730 | 00115 0765 00 0 00000 LRS 0 FORCE SIGN OF MQ TO AGREE WITH SIGN OF AC. LXT00740 00116 0500 60 0 00125 CLA* LOC LXT00750 | 00117 0737 00 2 00000 PAC ,2 LXT00760 | | BINARY CARD NO. 9XIT0005 | 00120 0520 00 2 00001 ZET 1,2 CHECK U.C.B FOR UNIT IDLE LXT00770 00121 0020 00 0 00120 TRA *-1 BUSY, DELAY UNTIL FREE. LXT00780 | 00122 -0600 00 2 00001 STQ 1,2 RESET TO INDICATE UNIT IS BUSY. LXT00790 | 00123 0600 00 0 00142 STZ IOND TURN ON PLUS INDICATOR. LXT00800 | 00124 0074 00 4 00702 TSX (ACTIV,4 GO TO ACTIVATE UNITS AND SET LXT00810 | 00125 0 00000 0 00000 LOC PZE ADDRESS IS SET TO CELL WITH START OF UCB. LXT00820 00126 -0520 00 0 00142 NZT IOND IS UNIT STILL FUNCTIONING. LXT00830 | 00127 0020 00 0 00126 TRA *-1 YES DELAY UNTIL IT'S DONE. LXT00840 | 00130 0441 00 0 00142 LDI IOND PICK UP ERROR INDICATORS LXT00850 | 00131 0774 00 2 00000 RX2 AXT **,2 RESTORE INDEX TWO. LXT00860 | 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 3 MONITOR EXIT ROUTINE / 9XIT | | 00132 0774 00 4 00000 RX4 AXT **,4 RESET INDEX REGISTER FOR RETURN LXT00870 | 00133 -0054 00 200000 LFT 200000 LXT00880 | 00134 0020 00 0 00000 EF TRA ** END OF FILE RETURN SET HERE LXT00890 00135 -0054 00 100000 LFT 100000 LXT00900 | 00136 0020 00 0 00000 OE TRA ** OTHER ERROR RETURN SET HERE. LXT00910 | 00137 0020 00 4 00003 TRA 3,4 NORMAL RETURN. LXT00920 | 00140 +000000000020 ABMB OCT 000000000020 RESETS TAPES BY ADDING BINARY BIT INDICATORLXT00930 | 00141 0 00143 0 00000 SEL PZE ,,SLRTN SELECT LOCATION IN DECREMENT LXT00940 00142 0 00000 0 00000 IOND PZE INDICATES UNIT BEING USED. LXT00950 | 00143 0737 00 2 00000 SLRTN PAC 0,2 RESTORE -L(UCB) TO INDEX REGISTER 2 LXT00960 | | BINARY CARD NO. 9XIT0006 | 00144 -0120 00 0 00163 TMI IOXPST IF ENTRY ON SEL-, SKIP TO RESET LXT00970 00145 0500 00 2 00000 CLA 0,2 PICK UP 1ST WORD OF UNIT CONTROL BLOCK LXT00980 | 00146 0771 00 0 00022 ARS 18 SHIFT UNIT ADDRESS TO THE ADDRESS LXT00990 | 00147 0520 00 0 00173 ZET IOXIN IF CELL IS ZERO, TAPE IS DECIMAL. LXT01000 | 00150 -0501 00 0 00140 ORA ABMB NON ZERO. ADD BINARY MODE BIT. LXT01010 | 00151 0621 00 0 00156 STA STRD AND THEN SET THE TWO SELECTS LXT01030 00152 0621 00 0 00161 STA STWR CORRECTLY. LXT01040 | 00153 0500 00 2 00001 CLA 1,2 PICK UP ADDRESS OF INSTRUCTIONS LXT01050 | 00154 0621 60 0 00727 STA* (RCHXI + STORE IT TO RESET CHANNEL CORRECTLY. LXT01060 | 00155 -0120 00 0 00161 TMI STWR IF SIGN IS MINUS WANT TO WRITE. LXT01070 | 00156 0762 00 0 00000 STRD RDS ** GIVE PROPER READ SELECT LXT01080 00157 0522 60 0 00727 XEC* (RCHXI AND LOAD CHANNEL LXT01090 | 00160 0020 00 4 00001 XIT TRA 1,4 THEN RETURN TO ROUTINE LXT01100 | 00161 0766 00 0 00000 STWR WRS ** IF WRITE, GIVE WRITE SELECT, LXT01110 | 00162 0020 00 0 00157 TRA XIT-1 RESET CHANNEL, AND RETURN TO ROUTINE LXT01120 | 00163 0604 00 0 00142 IOXPST STI IOND PICK UP ERROR BITS IF ANY LXT01130 00164 -0625 00 0 00142 STL IOND MAKE SURE IOND NON ZERO (22)LXT01140 | 00165 0600 00 0 00173 STZ IOXIN (22)LXT01141 | 00166 0600 00 2 00001 STZ 1,2 RESET UCB+1 TO INDICATE FREE. LXT01150 | 00167 0020 00 4 00001 TRA 1,4 RETURN TO ROUTINE. LXT01160 | BINARY CARD NO. 9XIT0007 | 00170 2 77777 2 00000 RDFL IORPN ,,-1 GOMMAND TO SKIP A FILE. LXT01170 | 00171 1 00000 0 00170 TCH *-1 LXT01180 | 00172 3 00000 2 00000 RDREC IORTN 0,,0 LXT01190 | 00173 0 00000 0 00000 IOXIN PZE LXT01200 00174 0 00000 0 00000 TEMP PZE LXT01210 | 00175 0 00000 0 00000 OSUCB PZE LXT01220 | 00176 0 00001 0 00000 1INDEC PZE ,,1 LXT01230 | 00177 0 00000 0 00001 LOC1 PZE 1,,0 $LXT01233 | 00200 -0057 00 000070 PATCH RIL 70 FLAGBX TO EXIT TO SIGNON $LXT01421 00201 0604 00 0 03730 STI FLAGBX RESET SPACING INDICATORS $LXT01422 | 00202 0020 00 0 00006 TRA EXIT+5 FOR SIGNON CALL $LXT01423 | END LXT01430 | 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | POST PROCESSOR ASSEMBLY DATA | 203 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS | 134 EF 105 136 OE 107 | 11 BTP | 125 LOC 113, 116 | 131 RX2 101 | 132 RX4 100 141 SEL 111, 114 | 160 XIT 162 | 140 ABMB 150 | 1 EXIT 0, 202 | 142 IOND 123, 126, 130, 163, 164 177 LOC1 50 | 170 RDFL 64 | 42 RIOP 10, 23, 41, 70 | 61 ROVF 66, 67, 77 | 71 SKFF 25 31 SSKR 27 | 156 STRD 151 | 161 STWR 152, 155 | 174 TEMP 12, 13, 22, 71, 74, 75 | 32 ZETS 36 100 EXSEL 0, 37, 63 | 173 IOXIN 104, 147, 165 | 67 OKOUT 65 | 175 OSUCB 17, 35, 40, 64 | 200 PATCH 5 172 RDREC 40 | 143 SLRTN 141 | 0 (TES) 3 | 176 1INDEC 30 | 73600 BOTIOP 3734 BOTTOM | 3732 DATEBX | 6 EXITFN 0 | 2 FINTAP | 3730 FLAGBX 4, 6, 42, 201 47 IOPSPC 44 | 163 IOXPST 144 | 134 .CHEXI | 135 .MODSW | 1 LIBTAP 3731 LINECT | 7 MBNTAP | 10 MCHTAP | 5 MINTAP | 6 MLSTAP 3 SINTAP | 11 SNPTAP | 122 SYSACC | 114 SYSCEM | 155 SYSCK1 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 2 | POST PROCESSOR ASSEMBLY DATA | | 156 SYSCK2 | 120 SYSCOR 144 SYSCRD | 102 SYSCUR | 124 SYSCYD | 101 SYSDAT | 115 SYSDMP 77777 SYSEND | 132 SYSGET | 117 SYSIDR | 151 SYSIN1 | 152 SYSIN2 116 SYSIOX | 133 SYSJOB | 104 SYSKEY | 140 SYSLB1 15, 53 | 141 SYSLB2 142 SYSLB3 | 143 SYSLB4 | 121 SYSLDR 45 | 3720 SYSORG | 147 SYSOU1 150 SYSOU2 | 146 SYSPCH | 123 SYSPID | 106 SYSPOS 11, 14, 52 | 153 SYSPP1 154 SYSPP2 | 145 SYSPRT | 103 SYSRET | 113 SYSRPT | 126 SYSSLD 105 SYSSWS | 1 SYSTAP 51 | 127 SYSTCH | 100 SYSTRA | 131 SYSTWT 111 SYSUAV | 110 SYSUBC | 112 SYSUCW | 107 SYSUNI | 157 SYSUT1 160 SYSUT2 | 161 SYSUT3 | 162 SYSUT4 | 4 TINTAP | 77677 TOPMEM 702 (ACTIV 124 | 703 (ACTVX | 720 (BCD5R | 721 (BCD5X | 10000 (CHKU) 741 (CHPSW | 724 (CHXAC | 750 (CHXSP | 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 3 | POST PROCESSOR ASSEMBLY DATA | 717 (CKWAT | 746 (COMMD | 736 (COMMM | 722 (CVPRT 73662 (DATE) | 716 (DECVA | 715 (DECVD | 73645 (DGLD) | 73603 (DIAG) 710 (ENBSW | 73665 (ENDS) | 732 (ETTXI | 743 (FDAMT | 73660 (FGBX) 747 (IBCDZ | 740 (IOXSI | 73667 (LBLD) | 73652 (LIBT) | 73661 (LNCT) 73600 (LOAD) 57 | 73666 (LODR) | 737 (LTPOS | 73644 (MECL) | 73664 (MSLN) 704 (NDATA 34 | 705 (NDSLX | 712 (PAUSE | 711 (PAWSX | 3733 (PCBK) 73651 (PGCT) | 73614 (PNCH) | 73611 (PRNT) | 706 (PROUT | 707 (PUNCH 40014 (RBEC) | 40004 (RBEP) | 40010 (RBNC) | 40000 (RBNP) | 727 (RCHXI 154, 157 726 (RCTXI | 40016 (RDEC) | 40006 (RDEP) | 40012 (RDNC) | 40002 (RDNP) 73622 (REST) | 73672 (SCHU) | 744 (SDCXI | 73643 (SECL) | 20010 (SKBC) 20000 (SKBP) 50 | 20012 (SKDC) | 20002 (SKDP) | 1000 (SNAP) | 73663 (SNCT) 73617 (STAT) | 1 32 K 709 / 7090 FORTRAN LIBRARY 12/15/63 PAGE 4 | POST PROCESSOR ASSEMBLY DATA | | 745 (STCXI 73626 (STDN) | 723 (STOPD | 713 (STOPX | 10003 (SUAV) | 10002 (SUNV) 714 (SYMUN | 73606 (TAPE) 47 | 730 (TCOXI | 733 (TEFXI | 4000 (TPER) 735 (TRAPS | 734 (TRAPX | 731 (TRCXI | 742 (TRPSW | 725 (URRXI 40011 (WBNC) | 40001 (WBNP) | 40013 (WDNC) | 40003 (WDNP) | 40015 (WEFC) 40005 (WEFP) | 40031 (WROW) | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 * 32K 709/7090 FORTRAN LIBRARY 9TES LXX00000 * FAP LXX00020 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 | TEST LAST WRITE / 9TES | | | BINARY CARD NO. 9TES0000 00000 ENTRY (TES) LXX00070 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LXX00080 | | BINARY CARD NO. 9TES0001 | 00000 0761 00 0 00000 (TES) NOP SET TO TSX (WER),4 BY STH AND STB, LXX00090 WHEN INITIATING A TAPE WRITE. RESET TO NOP BY (WER) AFTERLXX00100 | CHECKING LAST WRITE. LXX00110 | . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LXX00120 | END LXX00130 | 1 32K 709/7090 FORTRAN LIBRARY 12/15/63 PAGE 1 POST PROCESSOR ASSEMBLY DATA | | 1 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM | | 0REFERENCES TO DEFINED SYMBOLS 0 (TES) 0 | | 0 NO ERROR IN ABOVE ASSEMBLY. | 1 1 LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 2 A 4 277 277 0 0 0 0 0 3 B 4 285 270 0 0 0 0 0 5 B 3 0 966 0 0 0 0 0 6 B 1 2274 0 0 0 0 0 0 7 B 2 360 0 0 0 0 0 0 10544 LINES OUTPUT THIS JOB. 0 FORTRAN MONITOR RETURNING TO IBSYS $ENDFILE SYSPP1 $REWIND SYSPP1 $SWITCH SYSPP1,SYSUT3 $REWIND SYSUT4 $EXECUTE FORTRAN 1 $ID EDITLIB 1 * EDIT LIBE 1 2 LINES OUTPUT THIS JOB. 0 FORTRAN MONITOR RETURNING TO IBSYS $ENDFILE SYSUT4 $REWIND SYSUT4 $IBEDT 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 1 0 NEW IBSYS EDIT WILL BE DONE ON A3 , HIGH DENSITY. 0 FILE 1 0 RECORD 1 5U0002 7 WORDS 0 RECORD 2 IBSYS 5250 WORDS 0 RECORD 3 SYSDMP 2091 WORDS 0 ......FILE MARK...... 0 FILE 2 0 RECORD 1 IBJOB 853 WORDS 0 RECORD 2 JDUMP 739 WORDS 0 RECORD 3 DMPREC 2139 WORDS 0 RECORD 4 IOCSB 1469 WORDS 0 RECORD 5 IBJOBB 3403 WORDS 0 RECORD 6 IBJOBC 1429 WORDS 0 RECORD 7 IBDBLV 10021 WORDS 0 RECORD 8 IBDPPW 2068 WORDS 0 RECORD 9 IBDPPX 3943 WORDS 0 ......FILE MARK...... 0 FILE 3 0 RECORD 1 IBCBCZ 7629 WORDS 0 RECORD 2 IBCBC0 120 WORDS 0 RECORD 3 IBCBC1 1636 WORDS 0 RECORD 4 IBCBC2 3871 WORDS 0 RECORD 5 IBCBC3 2940 WORDS 0 RECORD 6 IBCBC4 3200 WORDS 0 RECORD 7 IBCBC5 2619 WORDS 0 RECORD 8 IBCBC6 2768 WORDS 0 RECORD 9 IBCBC7 1894 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 2 0 RECORD 10 IBCBC8 8769 WORDS 0 RECORD 11 IBCBC9 5803 WORDS 0 ......FILE MARK...... 0 FILE 4 0 RECORD 1 IBFTCE 16152 WORDS 0 RECORD 2 IBFTCF 11321 WORDS 0 RECORD 3 IBFTCG 4980 WORDS 0 ......FILE MARK...... 0 FILE 5 0 RECORD 1 IBMAPJ 11908 WORDS 0 RECORD 2 IBMAPK 7526 WORDS 0 ......FILE MARK...... 0 FILE 6 0 RECORD 1 IBLDRM 3745 WORDS 0 RECORD 2 IBLDRN 3742 WORDS 0 RECORD 3 IBLDRO 3352 WORDS 0 RECORD 4 CIFSR 5 WORDS 0 RECORD 5 XSRNT 464 WORDS 0 RECORD 6 SRNT 463 WORDS 0 RECORD 7 SRNT 463 WORDS 0 RECORD 8 SRNT 183 WORDS 0 RECORD 9 SRDT 463 WORDS 0 RECORD 10 SRDT 28 WORDS 0 RECORD 11 .IBSYS 461 WORDS 0 RECORD 12 .LOVRY 462 WORDS 0 RECORD 13 FOUT 463 WORDS 0 RECORD 14 FRDD 462 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 3 0 RECORD 15 FBIN. 464 WORDS 0 RECORD 16 UN07 450 WORDS 0 RECORD 17 FDMP 461 WORDS 0 RECORD 18 FDSQ 445 WORDS 0 RECORD 19 .IOCS 453 WORDS 0 RECORD 20 CMPAK 463 WORDS 0 RECORD 21 CCDTY 455 WORDS 0 RECORD 22 .CDXP1 439 WORDS 0 ......FILE MARK...... 0 FILE 7 0 RECORD 1 IBLDRP 5283 WORDS 0 RECORD 2 IBLDRQ 3995 WORDS 0 RECORD 3 TIFSR 3 WORDS 0 RECORD 4 .IBSYS 445 WORDS 0 RECORD 5 .LXCON 443 WORDS 0 RECORD 6 .IOCSF 463 WORDS 0 RECORD 7 .IOCSF 463 WORDS 0 RECORD 8 .IOCSF 463 WORDS 0 RECORD 9 .IOCSF 463 WORDS 0 RECORD 10 .IOCSF 463 WORDS 0 RECORD 11 .IOCSF 443 WORDS 0 RECORD 12 .LOVRY 455 WORDS 0 RECORD 13 .LXSL 451 WORDS 0 RECORD 14 .IBDBI 463 WORDS 0 RECORD 15 .IBDBI 463 WORDS 0 RECORD 16 .IBDBI 463 WORDS 0 RECORD 17 .IBDBI 452 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 4 0 RECORD 18 .DSTRN 444 WORDS 0 RECORD 19 FXEM 442 WORDS 0 RECORD 20 FCNV 463 WORDS 0 RECORD 21 FCNV 463 WORDS 0 RECORD 22 FCNV 463 WORDS 0 RECORD 23 FCNV 449 WORDS 0 RECORD 24 FIOB 462 WORDS 0 RECORD 25 FIOS 452 WORDS 0 RECORD 26 FIOH 444 WORDS 0 RECORD 27 FRDB 462 WORDS 0 RECORD 28 FWRO 463 WORDS 0 RECORD 29 FIOS. 462 WORDS 0 RECORD 30 FBST. 451 WORDS 0 RECORD 31 FIOU 463 WORDS 0 RECORD 32 FIOU 463 WORDS 0 RECORD 33 FIOU 463 WORDS 0 RECORD 34 FIOU 461 WORDS 0 RECORD 35 FSQR 443 WORDS 0 RECORD 36 FXP2 451 WORDS 0 RECORD 37 FEFT 457 WORDS 0 RECORD 38 FDMP 457 WORDS 0 RECORD 39 FSLDI 444 WORDS 0 RECORD 40 FCXP 442 WORDS 0 RECORD 41 FCSQ 457 WORDS 0 RECORD 42 FDMD 455 WORDS 0 RECORD 43 FDAT 462 WORDS 0 RECORD 44 FDX2 456 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 5 0 RECORD 45 FSCH 445 WORDS 0 RECORD 46 FGAM 463 WORDS 0 RECORD 47 FDVCHK 462 WORDS 0 RECORD 48 .IOCS 463 WORDS 0 RECORD 49 .IOCS 463 WORDS 0 RECORD 50 .IOCS 463 WORDS 0 RECORD 51 .IOCS 463 WORDS 0 RECORD 52 .IOCS 463 WORDS 0 RECORD 53 .IOCS 463 WORDS 0 RECORD 54 .IOCS 463 WORDS 0 RECORD 55 .IOCS 463 WORDS 0 RECORD 56 .IOCS 463 WORDS 0 RECORD 57 .IOCS 463 WORDS 0 RECORD 58 .IOCS 463 WORDS 0 RECORD 59 .IOCS 463 WORDS 0 RECORD 60 .IOCS 463 WORDS 0 RECORD 61 .IOCS 462 WORDS 0 RECORD 62 CMPAK 463 WORDS 0 RECORD 63 CMPAK 463 WORDS 0 RECORD 64 CMPAK 463 WORDS 0 RECORD 65 CMPAK 447 WORDS 0 RECORD 66 CEOBP 455 WORDS 0 RECORD 67 CCOMP 451 WORDS 0 RECORD 68 CHBCD 445 WORDS 0 RECORD 69 CAR14 442 WORDS 0 RECORD 70 CFPAK 463 WORDS 0 RECORD 71 CFPAK 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 6 0 RECORD 72 CFPAK 461 WORDS 0 RECORD 73 CBDCV 460 WORDS 0 RECORD 74 .CGOGO 452 WORDS 0 RECORD 75 .CBBLE 447 WORDS 0 RECORD 76 .RAND 463 WORDS 0 RECORD 77 .RAND 463 WORDS 0 RECORD 78 .RAND 463 WORDS 0 RECORD 79 .RAND 162 WORDS 0 ......FILE MARK...... 0 FILE 8 0 RECORD 1 IBLDRS 4534 WORDS 0 ......FILE MARK...... 0 FILE 9 0 RECORD 1 IBSFAP 8 WORDS 0 ......FILE MARK...... 0 FILE 10 0 RECORD 1 FORTRA 2377 WORDS 0 RECORD 2 9F0100 37 WORDS 0 RECORD 3 9F0200 1509 WORDS 0 RECORD 4 9F0300 1580 WORDS 0 RECORD 5 9F0400 7326 WORDS 0 RECORD 6 9F0500 2770 WORDS 0 RECORD 7 9F0600 1053 WORDS 0 RECORD 8 9F0700 2699 WORDS 0 RECORD 9 9F0800 863 WORDS 0 RECORD 10 9F0900 247 WORDS 0 RECORD 11 9F1000 735 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 7 0 RECORD 12 9F1100 347 WORDS 0 RECORD 13 9F1200 12 WORDS 0 ......FILE MARK...... 0 FILE 11 0 RECORD 1 9F1300 1822 WORDS 0 RECORD 2 9F1400 5583 WORDS 0 RECORD 3 9F1500 1207 WORDS 0 RECORD 4 9F1600 952 WORDS 0 RECORD 5 9F1700 464 WORDS 0 RECORD 6 9F1800 1038 WORDS 0 RECORD 7 9F1900 2001 WORDS 0 RECORD 8 9F2000 727 WORDS 0 RECORD 9 9F2100 3012 WORDS 0 RECORD 10 9F2200 2839 WORDS 0 RECORD 11 9F2300 561 WORDS 0 RECORD 12 9F2400 628 WORDS 0 RECORD 13 9F2500 484 WORDS 0 RECORD 14 9F2600 2429 WORDS 0 RECORD 15 9F2700 181 WORDS 0 RECORD 16 9F2800 164 WORDS 0 RECORD 17 9F2900 1461 WORDS 0 RECORD 18 9F3000 1581 WORDS 0 RECORD 19 9F3100 3382 WORDS 0 RECORD 20 9F3200 2699 WORDS 0 RECORD 21 9F3300 863 WORDS 0 RECORD 22 9F3400 247 WORDS 0 ......FILE MARK...... 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 8 0 FILE 12 0 FILE *REPLACE 9FL001,SYSUT4 0 RECORD 1 9FL001 292 WORDS 0 RECORD 2 9FL002 292 WORDS 0 RECORD 3 9FL003 292 WORDS 0 RECORD 4 9FL004 292 WORDS 0 RECORD 5 9FL005 292 WORDS 0 RECORD 6 9FL006 292 WORDS 0 RECORD 7 9FL007 292 WORDS 0 RECORD 8 9FL008 292 WORDS 0 RECORD 9 9FL009 292 WORDS 0 RECORD 10 9FL010 292 WORDS 0 RECORD 11 9FL011 292 WORDS 0 RECORD 12 9FL012 292 WORDS 0 RECORD 13 9FL013 292 WORDS 0 RECORD 14 9FL014 292 WORDS 0 RECORD 15 9FL015 292 WORDS 0 RECORD 16 9FL016 292 WORDS 0 RECORD 17 9FL017 292 WORDS 0 RECORD 18 9FL018 292 WORDS 0 RECORD 19 9FL019 292 WORDS 0 RECORD 20 9FL020 292 WORDS 0 RECORD 21 9FL021 292 WORDS 0 RECORD 22 9FL022 292 WORDS 0 RECORD 23 9FL023 292 WORDS 0 RECORD 24 9FL024 292 WORDS 0 RECORD 25 9FL025 292 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 9 0 RECORD 26 9FL026 292 WORDS 0 RECORD 27 9FL027 292 WORDS 0 RECORD 28 9FL028 292 WORDS 0 RECORD 29 9FL029 292 WORDS 0 RECORD 30 9FL030 292 WORDS 0 RECORD 31 9FLEND 5 WORDS 0 ......FILE MARK...... 0 FILE 13 0 RECORD 1 9D0000 4630 WORDS 0 ......FILE MARK...... 0 FILE 14 0 RECORD 1 9LEDIT 371 WORDS 0 ......FILE MARK...... 0 FILE 15 0 RECORD 1 IOCS 339 WORDS 0 ......FILE MARK...... 0 FILE 16 0 RECORD 1 POST 38 WORDS 0 RECORD 2 PREP 8460 WORDS 0 RECORD 3 IOBB 28 WORDS 0 RECORD 4 IOBM 61 WORDS 0 RECORD 5 NOBS 51 WORDS 0 ......FILE MARK...... 0 FILE 17 0 RECORD 1 RANDOM 1758 WORDS 0 ......FILE MARK...... 0 FILE 18 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 10 0 RECORD 1 SORT 818 WORDS 0 ......FILE MARK...... 0 FILE 19 0 RECORD 1 HYSTAR 294 WORDS 0 RECORD 2 IOPEN 1566 WORDS 0 RECORD 3 LABEL 558 WORDS 0 RECORD 4 BTD 126 WORDS 0 RECORD 5 CALC 2478 WORDS 0 RECORD 6 EP001 5742 WORDS 0 RECORD 7 RB01 246 WORDS 0 RECORD 8 RELEAS 150 WORDS 0 RECORD 9 SK001 534 WORDS 0 RECORD 10 VXS 1110 WORDS 0 RECORD 11 MRGIO 1086 WORDS 0 RECORD 12 BUFRD 654 WORDS 0 RECORD 13 XTRACT 414 WORDS 0 RECORD 14 FXS 1158 WORDS 0 RECORD 15 GET 1062 WORDS 0 RECORD 16 PUT 534 WORDS 0 RECORD 17 READ 966 WORDS 0 RECORD 18 WRITE 558 WORDS 0 RECORD 19 WTFIX 102 WORDS 0 RECORD 20 DEBLK 414 WORDS 0 RECORD 21 FIMRG 2022 WORDS 0 RECORD 22 MERGE 2166 WORDS 0 RECORD 23 POSTP 462 WORDS 0 RECORD 24 CKPT 174 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 11 0 RECORD 25 DELETE 126 WORDS 0 RECORD 26 HYFIMR 2310 WORDS 0 RECORD 27 MRGHYO 1350 WORDS 0 RECORD 28 HYMERG 2478 WORDS 0 RECORD 29 HYOPEN 1878 WORDS 0 RECORD 30 HYGET 1182 WORDS 0 ......FILE MARK...... 0 FILE 20 0 RECORD 1 DK90UT 929 WORDS 0 RECORD 2 DK90FA 1514 WORDS 0 RECORD 3 DK90D 1006 WORDS 0 RECORD 4 DK90C 624 WORDS 0 RECORD 5 DK90R 678 WORDS 0 RECORD 6 DK90L 1065 WORDS 0 RECORD 7 HT90D 2156 WORDS 0 ......FILE MARK...... 0 FILE 21 0 RECORD 1 RESTAR 1026 WORDS 0 ......FILE MARK...... 0 FILE 22 0 RECORD 1 UPDATE 3374 WORDS 0 ......FILE MARK...... 0 FILE 23 0 RECORD 1 EDITOR 5492 WORDS 0 ......FILE MARK...... 0 FILE 24 0 RECORD 1 *EOT 5 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/15/63 PAGE 12 0 ......FILE MARK...... 0 SYSTEM NAME TABLE CONTENTS 0 PHYS. FILES INDEX FIRST FILE 0 IBJOB 4 1 2 0 IBLDRM 3 1 6 0 IBSFAP 1 1 9 0 FORTRA 5 1 10 0 IOCS 3 1 15 0 SORT 2 1 18 0 DK90UT 1 1 20 0 RESTAR 1 1 21 0 UPDATE 1 1 22 0 EDITOR 1 1 23 0 IBSYS SYSTEMS EDIT COMPLETED. $* FORTRAN II LIBRARY REBUILT $PAUSE LIBRARY REBUILT OPER. ACTION PAUSE| 1