9 REM 704 FORTRAN SELF LOADING RECORD 1 TO CS. 1 704 FORTRAN SELF LOADING RECORD 1 TO CS. 00000 0 53400 1 00000 LXA 0,1 00001 0 70000 1 00002 CPY 2,1 00002 1 00001 1 00001 TXI 1,1,1 00003 0 70000 1 00031 CPY 25,1 00004 0 00000 0 00003 HTR 3 00005 0 10000 0 00000 TZE 0 00006 0 76000 0 00006 COM 00007 0 36100 0 00002 ACL 2 00010 0 76000 0 00006 COM 00011 0 02000 0 00027 TRA 23 00012 -0 76000 0 00012 RTT 00013 0 76600 0 00333 IOD 00014 0 00000 0 00000 HTR 0 00015 1 77777 1 00015 TXI 13,1,-1 00016 -0 70000 1 00000 CAD 0,1 00017 -0 50000 0 00017 CAL 15 00020 0 62100 0 00026 STA 22 00021 0 77100 0 00022 ARS 18 00022 0 62100 0 00015 STA 13 00023 -0 50000 0 00017 CAL 15 00024 0 70000 0 00017 CPY 15 00025 0 70000 0 00002 CPY 2 00026 0 76200 0 00221 RTB 1 00027 -0 53400 1 00027 LXD 23,1 00030 0 70000 0 00003 CPY 3 00031 -0 76000 0 00007 LTM 00032 0 76400 0 00221 BST 145 A 00000 END 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 30 0 0 0 0 LIB 0 0 0 0 0 COL 30 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 38 0NUMBER OF SYMBOLS, DEF 1,DEFOP 0,UNDEF 0 9 REM FORTRAN II CARD-TO-TAPE 1 FORTRAN II CARD-TO-TAPE 00110 ORG 72 00110 0 76200 0 00321 BEGIN RCD 1 00111 -0 53400 1 00125 LXD ADD01,1 00112 -0 53400 2 00127 LXD ADD02,2 00113 0 70000 0 00340 ADD23 CPY L9ROW COPY 92 TD 00114 -3 00000 0 00116 TXL ADD03, 00115 0 02000 4 00002 TRA 2,4 EOF TR 00116 -0 60000 0 00332 ADD03 STQ DATA1 STORE 9L 00117 -0 63400 1 00125 SXD ADD01,1 00120 -0 63400 2 00127 SXD ADD02,2 00121 -0 53400 1 00135 LXD ADD04,1 00122 0 70000 0 00341 CPY R9ROW COPY 9R 00123 -0 60000 0 00333 STQ DATA2 STORE 9R 00124 0 07400 2 00265 TSX SUB1,2 EXIT ENTRY1 SUB1 TD 00125 -3 00000 0 00130 ADD01 TXL ADD05 RETURN1 00126 0 76700 0 00001 ALS 1 RETURN2 TD 00127 -3 00000 0 00317 ADD02 TXL ADD06 EXIT TO ENTRY2 SUB1 00130 0 70000 0 00334 ADD05 CPY DATA3 00131 -0 60000 0 00332 STQ DATA1 00132 0 70000 0 00335 CPY DATA4 COPY RIGHT 00133 -0 60000 0 00333 STQ DATA2 00134 0 07400 2 00265 TSX SUB1,2 00135 -3 00010 0 00140 ADD04 TXL ADD07,0,8 RETURN1 00136 0 76700 0 00003 ALS 3 RETURN2 TD 00137 -3 00000 0 00316 TXL ADD08 00140 -0 50000 0 00340 ADD07 CAL L9ROW 00141 0 60200 0 00332 SLW DATA1 00142 -0 50000 0 00341 CAL R9ROW 00143 0 60200 0 00333 SLW DATA2 00144 -3 00001 1 00170 ADD14 TXL ADD09,1,1 00145 0 70000 0 00340 ADD15 CPY L9ROW TD 00146 -3 00000 0 00151 TXL ADD10 00147 0 00000 0 00110 ADD12 HTR BEGIN EOF TD 00150 -3 00000 0 00210 TXL ADD11 EOR 00151 -0 50000 0 00340 ADD10 CAL L9ROW 00152 -0 32000 0 00332 ANA DATA1 00153 -0 10000 0 00147 TNZ ADD12 00154 -0 50000 0 00340 CAL L9ROW 00155 -0 60200 0 00332 ORS DATA1 00156 0 70000 0 00341 CPY R9ROW 00157 -0 50000 0 00341 CAL R9ROW 00160 -0 32000 0 00333 ANA DATA2 00161 -0 10000 0 00147 TNZ ADD12 00162 -0 50000 0 00341 CAL R9ROW 00163 -0 60200 0 00333 ORS DATA2 00164 -2 00001 1 00204 TNX ADD13,1,1 00165 0 07400 2 00265 TSX SUB1,2 TD 00166 -3 00000 0 00144 TXL ADD14 RETURN1 TD 00167 -3 00000 0 00316 TXL ADD08 RETURN2 00170 -0 50000 0 00334 ADD09 CAL DATA3 00171 -0 50100 0 00332 ORA DATA1 00172 0 60200 0 00334 SLW DATA3 00173 0 70000 0 00336 CPY DATA5 00174 -0 32000 0 00336 ANA DATA5 00175 0 60200 0 00332 SLW DATA1 00176 -0 50000 0 00335 CAL DATA4 00177 -0 50100 0 00333 ORA DATA2 00200 0 60200 0 00335 SLW DATA4 00201 0 70000 0 00337 CPY DATA6 00202 -0 32000 0 00337 ANA DATA6 00203 0 60200 0 00333 SLW DATA2 00204 0 07400 2 00265 ADD13 TSX SUB1,2 TD 00205 -3 00000 0 00145 TXL ADD15 RETURN1 00206 0 76700 0 00004 ALS 4 RETURN2 TD 00207 -3 00000 0 00316 TXL ADD08 00210 -0 50000 0 00332 ADD11 CAL DATA1 00211 0 60200 0 00340 SLW L9ROW 00212 -0 50000 0 00334 CAL DATA3 00213 0 76000 0 00006 COM 00214 -0 32000 0 00336 ANA DATA5 00215 0 32000 0 00332 ANS DATA1 00216 -0 50000 0 00333 CAL DATA2 00217 0 60200 0 00341 SLW R9ROW 00220 -0 50000 0 00335 CAL DATA4 00221 0 76000 0 00006 COM 00222 -0 32000 0 00337 ANA DATA6 00223 0 32000 0 00333 ANS DATA2 00224 0 07400 2 00265 TSX SUB1,2 TD 00225 -3 00000 0 00233 TXL ADD16 RETURN1 00226 0 60200 0 00331 SLW DATA0 RETURN2 00227 0 76700 0 00002 ALS 2 00230 0 36100 0 00331 ACL DATA0 00231 0 76700 0 00001 ALS 1 TD 00232 -3 00000 0 00316 TXL ADD08 00233 -0 50000 0 00334 ADD16 CAL DATA3 00234 0 76000 0 00166 SWT 6 00235 0 02000 0 00241 TRA ADD34 TD 00236 -3 00000 0 00407 ADD32 TXL ADD31 00237 0 76600 0 00205 ADD33 WTD 5 00240 0 02000 0 00242 TRA ADD29 00241 0 76600 0 00202 ADD34 WTD 2 00242 -0 50100 0 00336 ADD29 ORA DATA5 00243 -0 50100 0 00340 ORA L9ROW 00244 0 76000 0 00006 COM 00245 0 60200 0 00332 SLW DATA1 00246 -0 50000 0 00335 CAL DATA4 00247 -0 50100 0 00337 ORA DATA6 00250 -0 50100 0 00341 ORA R9ROW 00251 0 76000 0 00006 COM 00252 0 60200 0 00333 SLW DATA2 00253 0 07400 2 00265 TSX SUB1,2 TD 00254 -3 00000 0 00262 TXL ADD17 RETURN1 00255 0 60200 0 00331 SLW DATA0 RETURN2 00256 0 76700 0 00001 ALS 1 00257 0 36100 0 00331 ACL DATA0 00260 0 76700 0 00004 ALS 4 TD 00261 -3 00000 0 00316 TXL ADD08 00262 -0 53400 1 00125 ADD17 LXD ADD01,1 00263 -0 53400 2 00127 LXD ADD02,2 00264 0 02000 4 00003 TRA 3,4 00265 -0 63400 1 00327 SUB1 SXD ADD18,1 00266 0 76000 0 00141 SLN 1 00267 -0 50000 4 00001 CAL 1,4 00270 0 40000 0 00330 ADD CONS1 00271 0 56000 0 00332 LDQ DATA1 00272 0 62100 0 00317 ADD22 STA ADD06 00273 0 62100 0 00316 STA ADD08 00274 3 00001 1 00300 TXH ADD19,1,1 00275 -0 60000 0 00331 STQ DATA0 INDEX=1 00276 -0 50000 0 00331 CAL DATA0 00277 0 10000 0 00322 TZE ADD20 00300 0 53400 1 00330 ADD19 LXA CONS1,1 T 00301 -0 75400 0 00014 ADD21 PXD 12 CLEAN ACC 00302 -0 76300 0 00001 LGL 1 1ST IN ACC 00303 0 76700 0 00005 ALS 5 100000 00304 -0 76300 0 00001 LGL 1 1000001 00305 0 76700 0 00005 ALS 5 100000100000 00306 -0 76300 0 00001 LGL 1 1000001000001 00307 0 76700 0 00005 ALS 5 00310 -0 76300 0 00001 LGL 1 00311 0 76700 0 00005 ALS 5 00312 -0 76300 0 00001 LGL 1 00313 0 76700 0 00005 ALS 5 00314 -0 76300 0 00001 LGL 1 00315 0 02000 2 00002 TRA 2,2 1000001000001000001000001000001 00316 0 36100 1 00000 ADD08 ACL 0,1 ADDRESS COMPUTED AT ADD22 IN ADDRESS 00317 0 60200 1 00000 ADD06 SLW 0,1 ENTRY2 ADDRESS PREV. COMPUTED AT ADD22 00320 2 00001 1 00301 TIX ADD21,1,1 00321 -0 53400 1 00327 LXD ADD18,1 00322 -0 76000 0 00141 ADD20 SLT 1 00323 0 02000 2 00001 TRA 1,2 OFF 00324 0 56000 0 00333 LDQ DATA2 SENSE LIGHT ON 00325 -0 50000 4 00001 CAL 1,4 00326 0 40100 0 00301 ADM ADD21 00327 -3 00000 0 00272 ADD18 TXL ADD22,0,** IR1 STORED IN DECREMENT 00330 0 00000 0 00006 CONS1 HTR 6 A 00331 0 00000 0 00000 DATA0 HTR A 00332 0 00000 0 00000 DATA1 HTR 9L ROW A 00333 0 00000 0 00000 DATA2 HTR 9R ROW A 00334 0 00000 0 00000 DATA3 HTR A 00335 0 00000 0 00000 DATA4 HTR A 00336 0 00000 0 00000 DATA5 HTR A 00337 0 00000 0 00000 DATA6 HTR A 00340 0 00000 0 00000 L9ROW HTR A 00341 0 00000 0 00000 R9ROW HTR 00342 0 77200 0 00202 START REW 2 00343 0 76000 0 00140 SLN 0 00344 0 76200 0 00321 ADD27 RCD 1 00345 0 07400 4 00113 TSX ADD23,4 00346 0 00000 0 00373 HTR RECOR TD 00347 -3 00000 0 00355 TXL ADD24 RETURN3 00350 0 76000 0 00142 SLN 2 RETURN4 00351 -0 53400 4 00354 LXD ADD25,4 00352 0 70000 4 00407 ADD26 CPY BLOCK,4 00353 2 00001 4 00352 TIX ADD26,4,1 00354 -3 00014 0 00344 ADD25 TXL ADD27,0,12 00355 -0 76000 0 00142 ADD24 SLT 2 00356 0 02000 0 00363 TRA ADD28 OFF 00357 0 76000 0 00166 SWT 6 00360 0 02000 0 00414 TRA ADD30 00361 0 77000 0 00205 WEF 5 00362 0 77200 0 00205 REW 5 00363 0 76200 0 00221 ADD28 RTB 1 00364 0 70000 0 00373 CPY RECOR 00365 0 02000 0 00363 TRA ADD28 00366 0 02000 0 00004 TRA 4 EOF 00367 0 77200 0 00201 REW 1 00370 0 76200 0 00221 RTB 1 00371 0 76200 0 00221 RTB 1 00372 0 07400 4 00004 TSX 4,4 A 00373 0 00000 0 00000 RECOR HTR 00407 BLOCK BES 11 00407 0 77200 0 00205 ADD31 REW 5 00410 0 50200 0 00236 CLS ADD32 00411 0 60100 0 00236 STO ADD32 00412 -0 50000 0 00334 CAL DATA3 00413 0 02000 0 00237 TRA ADD33 00414 0 77000 0 00202 ADD30 WEF 2 00415 0 77200 0 00202 REW 2 00416 0 02000 0 00363 TRA ADD28 A 00000 END 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 192 0 0 0 0 LIB 0 0 0 0 0 COL 192 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 201 0NUMBER OF SYMBOLS, DEF 49,DEFOP 0,UNDEF 0 9 REM AST 1 AST ************* FORTRAN II SECTION SIX ************************F6R00010 FORTRAN 2 RECORD 0003 - CIT TO SAP CONVERSION. F6R00011 F6R00012 CIT TO SAP CONVERSION F6R00020 00161 ZERO EQU 113 F6R00030 00162 ONE EQU 114 F6R00040 00177 SW1 EQU 127 F6R00050 00200 SW2 EQU 128 F6R00060 00201 SW3 EQU 129 00202 SW4 EQU 130 00210 ORG 136 F6R00030 00210 0 50000 0 00162 START CLA ONE F6R00040 00211 0 34000 0 00200 CAS SW2 F6R00050 00212 0 02000 0 00700 TRA ADD01 SW2 EQUAL ZERO, ASSUME SWITCH TWO UP, F6R00060 00213 0 02000 0 00216 TRA LIB1 SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN, F6R00070 00214 0 76000 0 00162 SWT 2 EQUAL TWO. TEST SWITCH TWO F6R00080 00215 0 02000 0 00700 TRA ADD01 F6R00090 00216 0 77200 0 00204 LIB1 REW 4 SW TWO DOWN. F6R00100 00217 0 77000 0 00202 WEF 2 F6R00110 00220 -0 53400 2 00221 LXD ADD02,2 SET READ ERROR COUNTER. F6R00120 00221 1 00005 0 00223 ADD02 TXI ADD03,0,5 F6R00130 00222 0 76400 0 00204 ADD05 BST 4 F6R00140 00223 0 76200 0 00224 ADD03 RTB 4 READ TAPE 4 F6R00150 00224 0 53400 1 00726 LXA DATA1,1 F6R00160 00225 0 70000 1 01162 ADD04 CPY RECO3,1 CPY INTO REC-1, REC-2,--- F6R00170 00226 1 00001 1 00225 TXI ADD04,1,1 F6R00180 00227 0 02000 0 00700 TRA ADD01 END OF FILE ON TAPE 4. F6R00190 00230 0 77100 0 00377 ARS 255 F6R00200 00231 0 77100 0 00377 ARS 0255 F6R00210 00232 -0 76000 0 00012 RTT F6R00220 00233 2 00001 2 00222 TIX ADD05,2,1 IF ERROR. F6R00230 00234 -0 63400 1 00440 SXD ADD06,1 SAVE COUNT OF NO. OF WORDS READ IN. F6R00240 00235 0 53400 1 00677 LXA ADD07,1 SET XR1=0 F6R00250 00236 -0 63400 1 00442 IN207 SXD ADD08,1 SAVE XR1. F6R00260 00237 -0 50000 1 01163 CAL RECOR,1 STORE SL IN DATA2 F6R00270 00240 0 60200 0 00775 SLW DATA2 STORE OP IN DATA3 F6R00280 00241 -0 50000 1 01162 CAL RECO3,1 F6R00290 00242 0 60200 0 00776 SLW DATA3 F6R00300 00243 -0 50000 1 01161 CAL RECO2,1 STORE SA IN DATA4 F6R00310 00244 0 60200 0 00777 SLW DATA4 F6R00320 00245 -0 50000 1 01160 CAL REC01,1 STORE RA IN DATA5 F6R00330 00246 0 60200 0 01000 SLW DATA5 F6R00340 00247 0 56000 0 00710 LDQ DATA6 F6R00350 00250 -0 60000 0 01007 STQ E1005 STORE BLANKS IN E1006,1007,1010,1005 F6R00360 00251 -0 60000 0 01010 STQ E1006 F6R00370 00252 -0 60000 0 01011 STQ E1007 F6R00380 00253 -0 60000 0 01012 STQ E1010 F6R00390 00254 -0 50000 0 00775 CAL DATA2 TEST SYMBOLIC LOCATION. F6R00400 00255 0 10000 0 00305 TZE ADD09 IF ZERO, GO TO ADD09. F6R00410 00256 0 76500 0 00036 LRS 30 NOT ZERO. SEE IF SL(1) EQUAL ZERO. F6R00420 00257 0 10000 0 00303 TZE ADD10 SL(1) EQUAL ZERO, GO TO ADD10. F6R00430 00260 0 40200 0 00722 SUB DATA7 SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15. F6R00440 00261 -0 10000 0 00264 TNZ ADD11 SL(1) NOT EQUAL 15, GO TO ADD11 F6R00450 00262 -0 50000 0 00710 CAL DATA6 SL(1) EQUAL 15. PUT BLANKS IN AC AND F6R00460 00263 0 02000 0 00306 TRA ADD12 GO TO ADD12 F6R00470 00264 0 40000 0 00722 ADD11 ADD DATA7 RESOTRE SL(1) IN AC. F6R00480 00265 0 40200 0 00614 SUB LIB3 F6R00490 00266 0 10000 0 00612 TZE LIB2 IF SL(1)=$, GO TO LIB2 F6R00500 00267 0 40000 0 00614 ADD LIB3 F6R00510 00270 0 40200 0 00616 SUB LIB5 F6R00520 00271 0 10000 0 00617 TZE LIB6 IF SL(1)=(, GO TO LIB6 F6R00530 00272 0 40000 0 00616 ADD LIB5 F6R00540 00273 0 40200 0 00722 SUB DATA7 F6R00550 00274 0 12000 0 00301 TPL ME1 GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-F6R00560 00275 0 40000 0 00722 ADD DATA7 F6R00570 00276 -0 77300 0 00001 RQL 1 SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL. F6R00580 00277 0 07400 1 00603 TSX SUB1,1 AND GO TO SUB1 (TIV TYPE ENTRY). F6R00590 00300 0 02000 0 00306 TRA ADD12 F6R00600 00301 -0 50000 0 00775 ME1 CAL DATA2 F6R00610 00302 0 02000 0 00306 TRA ADD12 F6R00620 00303 -0 76300 0 00015 ADD10 LGL 13 IFN. ASSEMBLE SYMBOL AND GO TO SUB2. F6R00630 00304 0 07400 1 00654 TSX SUB2,1 F6R00640 00305 -0 76300 0 00044 ADD09 LGL 36 SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC. F6R00650 00306 0 60200 0 01005 ADD12 SLW E1003 STORE ACC. IN E1003. F6R00660 00307 0 56000 0 00776 IN245 LDQ DATA3 SELECT OP IN MQ. F6R00670 00310 0 50200 0 00717 CLS DATA8 F6R00680 00311 -0 76300 0 00022 LGL 18 F6R00690 00312 -0 60000 0 01001 STQ E0777 STORE DECREMENT IN E0777. F6R00700 00313 0 56000 0 00710 LDQ DATA6 LOAD MQ WITH BLANKS F6R00710 00314 -0 76300 0 00006 LGL 6 F6R00720 00315 0 76700 0 00006 ALS 6 F6R00730 00316 0 60100 0 01006 STO E1004 STORE IN E1004. F6R00740 00317 0 34000 0 00707 CAS DATA9 IS OP EQUAL OCT. F6R00750 00320 0 02000 0 00325 TRA ADD13 OP LESS THEN OCT F6R00760 00321 0 02000 0 00566 TRA ADD14 OP EQUAL OCT. GO TO ADD14. F6R00770 00322 0 34000 0 00706 CAS DAT10 OP GREATER THEN OCT. SEE IF OP=BCD. F6R00780 00323 0 02000 0 00325 TRA ADD13 F6R00790 00324 0 02000 0 00525 TRA ADD15 OP EQUAL BCD. GO TO ADD15. F6R00800 00325 0 56000 0 00777 ADD13 LDQ DATA4 OP NOT BCD OR OCT. F6R00810 T 00326 -0 75400 0 00000 PXD SELECT SA IN MQ. F6R00820 00327 -0 76300 0 00006 LGL 6 F6R00830 00330 -0 10000 0 00343 TNZ IN301 SA(1) NOT EQUAL ZERO. GO TO IN301. F6R00840 00331 -0 76300 0 00014 LGL 12 SA(1) EQUAL ZERO. TEST FOR INTERNAL F6R00850 00332 -0 10000 0 00352 TNZ IN310 FORMULA NUMBER TYPE. IF YES, GO TO IN310. F6R00860 00333 0 56000 0 00710 LDQ DATA6 SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH F6R00870 00334 0 50000 0 01000 CLA DATA5 TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS. F6R00880 00335 -0 10000 0 00510 TNZ IN446 NOT EQUAL ZERO. GO TO IN446 F6R00890 00336 0 50000 0 01001 CLA E0777 RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT. F6R00900 00337 -0 10000 0 00362 TNZ IN320 NOT ZERO, GO TO IN320 F6R00910 00340 -0 50000 0 00715 CAL DT713 ZERO, OR A BLANK TO RT-HAND END OF E1004. F6R00920 00341 -0 60200 0 01006 ORS E1004 F6R00930 00342 0 02000 0 00431 TRA IN367 F6R00940 00343 0 34000 0 00717 IN301 CAS DATA8 TEST IF SA(1)=16. F6R00950 00344 0 02000 0 00355 TRA IN313 GREATER THEN 16(TRUE SYMBOL). GO TO IN313. F6R00960 00345 0 07400 4 00004 TSX 4,4 EQUAL IS ERROR. F6R00970 00346 0 07400 1 00603 TSX SUB1,1 LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1. F6R00980 00347 0 76500 0 00036 LRS 30 RETURN FROM SUB1. F6R00990 00350 -0 77300 0 00001 RQL 1 F6R01000 00351 0 02000 0 00355 TRA IN313 F6R01010 00352 0 07400 1 00654 IN310 TSX SUB2,1 INTERNAL FORMULA NO. TYPE. F6R01020 T 00353 -0 75400 0 00000 PXD F6R01030 00354 -0 76300 0 00006 LGL 6 F6R01040 00355 -0 60200 0 01006 IN313 ORS E1004 F6R01050 00356 -0 60000 0 01002 STQ E1000 F6R01060 00357 -0 50000 0 00715 CAL DT713 F6R01070 00360 -0 60200 0 01002 ORS E1000 F6R01080 00361 0 56000 0 01002 LDQ E1000 F6R01090 00362 -0 50000 0 00355 IN320 CAL IN313 F6R01100 00363 0 07400 1 00445 TSX IN403,1 F6R01110 00364 0 50000 0 01000 CLA DATA5 SELECT RELATIVE ADDRESS. F6R01120 00365 0 77100 0 00022 ARS 18 F6R01130 00366 0 10000 0 00377 TZE IN335 RA EQUAL ZERO, GO TO IN335 F6R01140 00367 0 56000 0 00710 LDQ DATA6 RA NOT EQUAL ZERO, LOAD MQ WITH BLANKS AND F6R01150 00370 0 07400 1 00464 TSX IN422,1 GO TO IN422 F6R01160 00371 0 50000 0 01000 CLA DATA5 SET ACC. EQUAL RA. F6R01170 00372 0 12000 0 00375 TPL IN333 IF RA POSITIVE, GO TO IN333. F6R01180 00373 -0 50000 0 00716 CAL DT714 IF RA NEGATIVE, SELECT OCTAL 40 (MINUS) F6R01190 00374 0 02000 0 00376 TRA IN334 AND GO TO IN334. F6R01200 00375 -0 50000 0 00717 IN333 CAL DATA8 SELECT OCTAL 20 (PLUS) F6R01210 00376 0 07400 1 00460 IN334 TSX IN416,1 F6R01220 00377 0 50000 0 01000 IN335 CLA DATA5 SET ACC. EQUAL RA. ANA OCTAL 77777 F6R01230 00400 -0 32000 0 00726 ANA DATA1 F6R01240 00401 -0 10000 0 00406 TNZ IN344 IF NOT ZERO, GO TO IN344. F6R01250 00402 0 50000 0 01001 CLA E0777 ZERO. TEST IF E0777 EQUAL ZERO. F6R01260 00403 0 10000 0 00425 TZE IN363 IF ZERO, GO TO IN363. F6R01270 00404 0 56000 0 00713 LDQ DT711 NOT ZERO, LOAD MQ WITH 0 IN 1ST CHARAC, REST F6R01280 00405 0 02000 0 00414 TRA IN352 AND GO TO IN 352 F6R01290 00406 0 56000 0 00712 IN344 LDQ DT710 F6R01300 00407 0 34000 0 00724 CAS DT722 F6R01310 00410 0 02000 0 00413 TRA IN351 F6R01320 00411 0 02000 0 00413 TRA IN351 F6R01330 00412 0 56000 0 00710 LDQ DATA6 F6R01340 00413 0 07400 1 00464 IN351 TSX IN422,1 F6R01350 00414 0 50000 0 00714 IN352 CLA DT712 F6R01360 00415 0 07400 1 00460 TSX IN416,1 F6R01370 00416 0 50000 0 01001 CLA E0777 F6R01380 00417 0 10000 0 00425 TZE IN363 F6R01390 00420 0 77100 0 00022 ARS 18 F6R01400 00421 0 56000 0 00710 LDQ DATA6 F6R01410 00422 0 07400 1 00464 TSX IN422,1 F6R01420 00423 0 50000 0 00714 CLA DT712 F6R01430 00424 0 07400 1 00460 TSX IN416,1 F6R01440 T 00425 -0 75400 0 00006 IN363 PXD 6 F6R01450 00426 0 56000 0 00710 LDQ DATA6 F6R01460 00427 -0 76300 2 00044 LGL 36,2 F6R01470 00430 -0 60200 0 00430 IN366 ORS * F6R01480 00431 0 76600 0 00202 IN367 WTD 2 F6R01490 00432 0 53400 1 00425 LXA IN363,1 F6R01500 00433 0 70000 1 01013 IN371 CPY E1011,1 F6R01510 00434 2 00001 1 00433 TIX IN371,1,1 F6R01520 00435 0 76600 0 00333 IOD F6R01530 00436 -0 53400 1 00442 LXD ADD08,1 F6R01540 00437 1 00004 1 00440 TXI ADD06,1,4 F6R01550 00440 -3 00440 1 00236 ADD06 TXL IN207,1,* F6R01560 00441 -0 53400 2 00221 LXD ADD02,2 F6R01570 00442 1 00442 0 00223 ADD08 TXI ADD03,0,* F6R01580 00443 -3 00036 2 00454 IN401 TXL IN412,2,30 IF SHIFT LESS THEN OR EQUAL 30, GO TO SELECT F6R01590 00444 -0 50000 0 00461 CAL IN417 SHIFT GREATER THEN 30. PREPARE TO MODIFY ADDRES F6R01600 00445 0 40000 0 00725 IN403 ADD DT723 COMPUTE ADDRESS FOR STORING WORD. F6R01610 00446 0 62100 0 00461 STA IN417 F6R01620 00447 0 62100 0 00430 STA IN366 F6R01630 00450 0 62100 0 00452 STA IN410 F6R01640 T 00451 -0 75400 0 00000 PXD CLEAR ACC. F6R01650 00452 0 60200 0 00452 IN410 SLW * STORE ZERO IN WORD. F6R01660 00453 -0 73400 2 00000 PDX 0,2 SET XR2 EQUAL TO ZERO F6R01670 00454 -0 76300 0 00006 IN412 LGL 6 SELECT CHARACTER F6R01680 00455 0 34000 0 00715 CAS DT713 IS CHARACTER BLANK. F6R01690 00456 0 02000 0 00460 TRA IN416 NO. F6R01700 00457 0 02000 1 00001 TRA 1,1 YES, RETURN TO PROGRAM F6R01710 00460 0 76700 2 00036 IN416 ALS 30,2 NO, SHIFT CHARACTER F6R01720 00461 -0 60200 0 00461 IN417 ORS * F6R01730 T 00462 -0 75400 0 00000 PXD F6R01740 00463 1 00006 2 00443 TXI IN401,2,6 ADJUST XR2 SHIFT AND GO TO IN401. F6R01750 00464 -0 60000 0 01004 IN422 STQ E1002 F6R01760 00465 -0 63400 1 00774 SXD DT772,1 F6R01770 00466 0 76500 0 00043 IN424 LRS 35 F6R01780 00467 -0 73400 1 00000 PDX 0,1 F6R01790 00470 0 60200 0 01003 SLW E1001 F6R01800 00471 0 22100 0 00723 IN427 DVP DT721 F6R01810 00472 0 76700 1 00000 ALS 0,1 F6R01820 00473 -0 60200 0 01003 ORS E1001 F6R01830 00474 -0 60000 0 01002 STQ E1000 F6R01840 00475 0 50000 0 01002 CLA E1000 F6R01850 00476 0 10000 0 00501 TZE IN437 F6R01860 00477 0 76000 0 00000 CLM 0 F6R01870 00500 1 77772 1 00471 TXI IN427,1,-6 F6R01880 00501 -0 50000 0 01003 IN437 CAL E1001 F6R01890 00502 0 56000 0 01004 LDQ E1002 F6R01900 00503 -0 76300 0 00001 LGL 1 F6R01910 00504 0 56000 0 01004 IN442 LDQ E1002 F6R01920 00505 0 76500 1 00006 LRS 6,1 F6R01930 00506 -0 53400 1 00774 LXD DT772,1 F6R01940 00507 0 02000 1 00001 TRA 1,1 F6R01950 00510 0 77100 0 00022 IN446 ARS 18 F6R01960 00511 0 10000 0 00362 TZE IN320 F6R01970 00512 0 07400 1 00464 TSX IN422,1 F6R01980 00513 0 50000 0 01000 CLA DATA5 F6R01990 00514 0 12000 0 00517 TPL IN455 F6R02000 00515 -0 50000 0 00716 CAL DT714 F6R02010 00516 0 02000 0 00521 TRA IN457 F6R02020 T 00517 -0 75400 0 00000 IN455 PXD F6R02030 00520 -0 76300 0 00006 LGL 6 F6R02040 00521 -0 60200 0 01006 IN457 ORS E1004 F6R02050 00522 -0 50000 0 00355 CAL IN313 F6R02060 00523 0 07400 1 00445 TSX IN403,1 F6R02070 00524 0 02000 0 00377 TRA IN335 F6R02080 00525 0 56000 0 00777 ADD15 LDQ DATA4 F6R02090 00526 -0 50000 0 00717 CAL DATA8 F6R02100 00527 0 16200 0 00532 TQP IN470 F6R02110 00530 0 40000 0 00717 ADD DATA8 F6R02120 00531 0 76500 0 00000 LRS 0 F6R02130 00532 -0 60200 0 01006 IN470 ORS E1004 F6R02140 00533 0 76700 0 00003 ALS 3 F6R02150 00534 -0 76300 0 00003 LGL 3 F6R02160 00535 0 76700 0 00003 ALS 3 F6R02170 00536 -0 76300 0 00003 LGL 3 F6R02180 00537 0 76700 0 00003 ALS 3 F6R02190 00540 -0 76300 0 00003 LGL 3 F6R02200 00541 0 76700 0 00003 ALS 3 F6R02210 00542 -0 76300 0 00003 LGL 3 F6R02220 00543 0 76700 0 00003 ALS 3 F6R02230 00544 -0 76300 0 00003 LGL 3 F6R02240 00545 0 76700 0 00003 ALS 3 F6R02250 00546 -0 76300 0 00003 LGL 3 F6R02260 00547 0 60200 0 01007 SLW E1005 F6R02270 00550 0 76700 0 00003 ALS 3 F6R02280 00551 -0 76300 0 00003 LGL 3 F6R02290 00552 0 76700 0 00003 ALS 3 F6R02300 00553 -0 76300 0 00003 LGL 3 F6R02310 00554 0 76700 0 00003 ALS 3 F6R02320 00555 -0 76300 0 00003 LGL 3 F6R02330 00556 0 76700 0 00003 ALS 3 F6R02340 00557 -0 76300 0 00003 LGL 3 F6R02350 00560 0 76700 0 00003 ALS 3 F6R02360 00561 -0 76300 0 00003 LGL 3 F6R02370 00562 0 76700 0 00003 ALS 3 F6R02380 00563 -0 76300 0 00003 LGL 3 F6R02390 00564 0 60200 0 01010 SLW E1006 F6R02400 00565 0 02000 0 00431 TRA IN367 F6R02410 00566 0 50000 0 00777 ADD14 CLA DATA4 F6R02420 00567 0 40200 0 00721 SUB DT717 F6R02430 00570 -0 10000 0 00574 TNZ IN532 F6R02440 00571 -0 50000 0 00706 CAL DAT10 F6R02450 00572 0 60200 0 01006 SLW E1004 F6R02460 00573 0 02000 0 00525 TRA ADD15 F6R02470 00574 -0 50000 0 00725 IN532 CAL DT723 F6R02480 00575 -0 60200 0 01006 ORS E1004 F6R02490 00576 -0 50000 0 00777 CAL DATA4 F6R02500 00577 0 60200 0 01007 SLW E1005 F6R02510 00600 -0 50000 0 00710 CAL DATA6 F6R02520 00601 0 60200 0 01010 SLW E1006 F6R02530 00602 0 02000 0 00431 TRA IN367 F6R02540 00603 -0 63400 1 00705 SUB1 SXD DT703,1 SAVE XR1 FOR RETURN F6R02550 00604 0 73400 4 00000 PAX 0,4 STORE CHARACTER IN XR4 F6R02560 00605 0 40200 0 00722 SUB DATA7 IS CHARACTER *. F6R02570 00606 -0 10000 0 00621 TNZ IN550 NO, GO TO IN 550. F6R02580 00607 -0 50000 0 00720 CAL DT716 YES, SELECT *. F6R02590 00610 0 56000 0 00710 LDQ DATA6 LOAD MQ WITH BLANKS. F6R02600 00611 0 02000 0 00355 TRA IN313 GO TO IN 313. F6R02610 00612 0 02000 0 01164 LIB2 TRA RPCH1 F6R02620 00613 0 02000 0 00306 TRA ADD12 F6R02630 00614 000000000053 LIB3 BCD 100000$ F6R02640 00615 536060606060 LIB4 BCD 1$ F6R02650 00616 000000000074 LIB5 BCD 100000( F6R02660 00617 -0 50000 0 00775 LIB6 CAL DATA2 F6R02670 00620 0 02000 0 00306 TRA ADD12 F6R02680 00621 -0 50000 4 00772 IN550 CAL DT770,4 SELECT APPROPRIATE NUMERIC OR ALPHABETIC F6R02690 00622 0 76700 0 00006 ALS 6 CHARACTER. F6R02700 00623 -0 50100 0 00773 ORA DT771 FOLLOWED BY LEFT PARENTHESIS F6R02710 00624 0 76700 0 00030 ALS 24 AND SHIFT INTO PROPER POSITION. F6R02720 00625 0 60200 0 01002 SLW E1000 F6R02730 00626 0 53400 3 00636 LXA IN565,3 F6R02740 00627 -0 77300 0 00014 RQL 12 F6R02750 T 00630 -0 75400 0 00000 PXD 0 F6R02760 00631 -0 76300 0 00003 LGL 3 TAG BITS INTO ACC. ADDRESS F6R02770 00632 -0 10000 0 00636 TNZ IN565 TAG BITS EQUAL ZERO. NO, GO TO IN565 F6R02780 00633 -2 00001 1 00646 IN562 TNX IN575,1,1 YES. IF FINISHED WITH WORD, GO TO IN 575 F6R02790 00634 -0 76300 0 00005 LGL 5 NOT FINISHED WITH WORD. TEST ADDRESS BITS F6R02800 00635 0 10000 0 00633 TZE IN562 ADDRESS BITS ZERO. F6R02810 00636 0 73400 4 00004 IN565 PAX 4,4 ADDRESS BITS NOT ZERO. F6R02820 00637 -0 50000 4 00772 CAL DT770,4 SELECT CHARACTER. F6R02830 00640 -2 00001 1 00647 TNX IN576,1,1 F6R02840 00641 0 76700 2 00026 ALS 22,2 SHIFT INTO PROPER POSITION . F6R02850 00642 -0 60200 0 01002 ORS E1000 F6R02860 T 00643 -0 75400 0 00000 PXD F6R02870 00644 -0 76300 0 00005 LGL 5 F6R02880 00645 1 00006 2 00636 TXI IN565,2,6 ADJUST SHIFT. F6R02890 00646 -0 50000 0 00715 IN575 CAL DT713 F6R02900 00647 0 56000 0 00710 IN576 LDQ DATA6 F6R02910 00650 -0 76300 2 00026 LGL 22,2 F6R02920 00651 -0 50100 0 01002 ORA E1000 F6R02930 00652 -0 53400 1 00705 LXD DT703,1 F6R02940 00653 0 02000 1 00001 TRA 1,1 F6R02950 00654 0 60100 0 01002 SUB2 STO E1000 F6R02960 00655 -0 76300 0 00010 LGL 8 F6R02970 T 00656 -0 75400 0 00000 PXD 0 F6R02980 00657 0 76500 0 00035 LRS 29 F6R02990 00660 0 22100 0 00723 DVP DT721 F6R03000 00661 -0 10000 0 00663 TNZ IN612 F6R03010 00662 -0 50000 0 00715 CAL DT713 IF SUBSIDIARY NO. IS ZERO, SELECT A BLANK F6R03020 00663 0 60200 0 01004 IN612 SLW E1002 F6R03030 00664 -0 76300 0 00044 LGL 36 F6R03040 00665 -0 63400 1 00774 SXD DT772,1 F6R03050 00666 0 73400 1 00000 PAX 0,1 F6R03060 00667 -0 50000 1 00760 CAL IN756,1 SELECT ALPHABETIC CHARACTER. F6R03070 00670 0 76700 0 00006 ALS 6 F6R03080 00671 -0 50100 0 01004 ORA E1002 F6R03090 00672 0 56000 0 00710 LDQ DATA6 F6R03100 00673 -0 76300 0 00030 LGL 24 F6R03110 00674 0 60200 0 01004 SLW E1002 F6R03120 00675 0 50000 0 01002 CLA E1000 F6R03130 00676 0 02000 0 00466 TRA IN424 F6R03140 00677 0 00000 0 00000 ADD07 HTR 0 F6R03150 00700 0 77000 0 00202 ADD01 WEF 2 F6R03160 00701 0 77200 0 00204 REW 4 F6R03170 00702 0 77200 0 00202 REW 2 F6R03180 00703 0 76200 0 00221 RTB 1 F6R03190 00704 0 02000 0 00004 TRA 4 F6R03200 00705 0 00000 0 00000 DT703 HTR 0 F6R03210 00706 -204623636000 DAT10 OCT 604623636000 F6R03220 00707 -202223246000 DATA9 OCT 602223246000 F6R03230 00710 -206060606060 DATA6 OCT 606060606060 F6R03240 00711 +336060606060 DT707 OCT 336060606060 F6R03250 00712 -236060606060 DT710 OCT 636060606060 F6R03260 00713 +006060606060 DT711 OCT 006060606060 F6R03270 00714 +000000000073 DT712 OCT 73 F6R03280 00715 +000000000060 DT713 OCT 60 F6R03290 00716 +000000000040 DT714 OCT 40 F6R03300 00717 +000000000020 DATA8 OCT 20 F6R03310 00720 +000000000054 DT716 OCT 54 F6R03320 00721 -377777777777 DT717 OCT 777777777777 F6R03330 00722 +000000000017 DATA7 OCT 17 F6R03340 00723 +000000000012 DT721 OCT 12 F6R03350 00724 +000000000005 DT722 OCT 5 F6R03360 00725 +000000000001 DT723 OCT 1 F6R03370 00726 +000000077777 DATA1 OCT 77777 F6R03380 00727 +000000000071 DT725 OCT 71 F6R03390 00730 +000000000070 OCT 70 F6R03400 00731 +000000000067 OCT 67 F6R03410 00732 +000000000066 OCT 66 F6R03420 00733 +000000000065 OCT 65 F6R03430 00734 +000000000064 OCT 64 F6R03440 00735 +000000000063 OCT 63 F6R03450 00736 +000000000062 OCT 62 F6R03460 00737 +000000000051 DT735 OCT 51 F6R03470 00740 +000000000050 OCT 50 F6R03480 00741 +000000000047 OCT 47 F6R03490 00742 +000000000046 OCT 46 F6R03500 00743 +000000000045 OCT 45 F6R03510 00744 +000000000044 OCT 44 F6R03520 00745 +000000000043 OCT 43 F6R03530 00746 +000000000042 OCT 42 F6R03540 00747 +000000000041 OCT 41 F6R03550 00750 +000000000031 OCT 31 F6R03560 00751 +000000000030 OCT 30 F6R03570 00752 +000000000027 OCT 27 F6R03580 00753 +000000000026 OCT 26 F6R03590 00754 +000000000025 OCT 25 F6R03600 00755 +000000000024 OCT 24 F6R03610 00756 +000000000023 OCT 23 F6R03620 00757 +000000000022 OCT 22 F6R03630 00760 +000000000021 IN756 OCT 21 F6R03640 00761 +000000000011 OCT 11 F6R03650 00762 +000000000010 OCT 10 F6R03660 00763 +000000000007 OCT 7 F6R03670 00764 +000000000006 OCT 6 F6R03680 00765 +000000000005 OCT 5 F6R03690 00766 +000000000004 OCT 4 F6R03700 00767 +000000000003 OCT 3 F6R03710 00770 +000000000002 OCT 2 F6R03720 00771 +000000000001 OCT 1 F6R03730 00772 +000000000000 DT770 OCT 0 F6R03740 00773 +000000000034 DT771 OCT 34 F6R03750 00774 0 00000 0 00000 DT772 HTR 0 F6R03760 00775 0 00000 0 00000 DATA2 HTR 0 F6R03770 00776 0 00000 0 00000 DATA3 HTR 0 F6R03780 00777 0 00000 0 00000 DATA4 HTR 0 F6R03790 01000 0 00000 0 00000 DATA5 HTR 0 F6R03800 01001 0 00000 0 00000 E0777 HTR 0 F6R03810 01002 0 00000 0 00000 E1000 HTR 0 F6R03820 01003 0 00000 0 00000 E1001 HTR 0 F6R03830 01004 0 00000 0 00000 E1002 HTR 0 F6R03840 01005 0 00000 0 00000 E1003 HTR 0 F6R03850 01006 0 00000 0 00000 E1004 HTR 0 F6R03860 01007 0 00000 0 00000 E1005 HTR 0 F6R03870 01010 0 00000 0 00000 E1006 HTR 0 F6R03880 01011 0 00000 0 00000 E1007 HTR 0 F6R03890 01012 0 00000 0 00000 E1010 HTR 0 F6R03900 01013 0 00000 0 00000 E1011 HTR 0 F6R03910 01014 0 00000 0 00000 HTR 0 F6R03920 01015 0 00000 0 00000 HTR 0 F6R03930 01016 0 00000 0 00000 HTR 0 F6R03940 01017 0 00000 0 00000 E1015 HTR 0 F6R03950 01164 REC BES 100 F6R03960 01164 0 76300 0 00006 RPCH1 LLS 6 F6R03961 01165 0 40200 0 00614 SUB LIB3 F6R03962 01166 0 10000 0 01171 TZE LIB2A F6R03963 01167 -0 50000 0 00615 CAL LIB4 SINGLE DOLLAR SIGN F6R03964 01170 0 02000 0 00306 TRA ADD12 F6R03965 01171 -0 50000 0 01173 LIB2A CAL DOL2 DOUBLE DOLLAR SIGN. F6R03966 01172 0 02000 0 00306 TRA ADD12 F6R03967 01173 535360606060 DOL2 BCD 1$$ F6R03968 01160 REC01 SYN REC-4 F6R03979 01161 RECO2 SYN REC-3 F6R03980 01162 RECO3 SYN REC-2 F6R03990 01163 RECOR SYN REC-1 F6R04000 A 00000 END F6R04001 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 419 0 0 0 0 LIB 0 0 0 0 0 COL 419 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 427 0NUMBER OF SYMBOLS, DEF 117,DEFOP 0,UNDEF 0 9 REM F6R04011 1 F6R04011 ************* FORTRAN II SECTION SIX ************************F6S00010 FORTRAN 2 RECORD 005 - ON-LINE PRINT. F6S00011 F6S00012 MODIFICATIONS TO TPH1 TO PRINT WITH F6S00020 SENSE SWITCH CHANGES F6S00030 00210 ORG 136 F6S00040 00210 0 77200 0 00202 REW 2 F6S00050 00211 -0 53400 1 00225 LXD FILES,1 F6S00060 00212 0 50000 0 00162 CLA ONE F6S00070 00213 0 34000 0 00200 CAS SW2 TEST SENSE SWITCH TWO. F6S00080 M 00214 0 02000 0 00217 TRA LIB1 UP F6S00090 00215 0 02000 0 00220 TRA ASKER DOWN F6S00100 00216 0 76000 0 00162 SWT 2 F6S00110 M 00217 -2 00001 1 00234 LIB1 TNX CARDS,1,1 UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120 00220 0 50000 0 00162 ASKER CLA ONE SWITCH 2 DOWN (OR UP BUT FILES TO DO) F6S00130 00221 0 34000 0 00201 CAS SW3 TEST SENSE SWITCH THREE. F6S00140 00222 0 02000 0 00225 TRA FILES UP, GO TO RETURN TO LOADER F6S00150 M 00223 0 02000 0 00226 TRA LIB2 DOWN F6S00160 00224 0 76000 0 00163 SWT 3 F6S00170 00225 1 00003 0 00234 FILES TXI CARDS,,3 UP, GO RETURN TO LOADER F6S00180 M 00226 -0 63400 1 00231 LIB2 SXD COUNT,1 SWITCH THREE DOWN. F6S00190 00227 0 76600 0 00361 WPR TO PRINT FILE OF TAPE TWO. F6S00200 00230 0 76000 0 00361 SPR 1 F6S00210 TD 00231 1 00000 0 00237 COUNT TXI PRINT F6S00220 00232 -0 53400 1 00231 PARTS LXD COUNT,1 F6S00230 00233 2 00001 1 00220 TIX ASKER,1,1 F6S00240 00234 0 76200 0 00221 CARDS RTB 1 RETURN TO LOADER F6S00250 00235 0 02000 0 00004 TRA 4 F6S00260 00236 0 00000 0 00005 ME8 HTR 5 F6S00270 00237 -0 76000 0 00012 PRINT RTT F6S00280 00240 0 76100 0 00000 NOP F6S00290 00241 -0 53400 4 00236 ME9 LXD ME8,4 F6S00300 00242 -0 53400 2 00246 I113 LXD I117,2 SET RECORD LENGTH EQUAL 20 F6S00310 00243 0 76000 0 00141 SLN 1 TURN ON SENSE LIGHT 1 F6S00320 00244 0 76200 0 00202 RTD 2 SELECT TAPE TWO IN BCD MODE F6S00330 00245 0 70000 2 00551 I116 CPY D65,2 AND COPY RECORD. F6S00340 00246 -3 00024 0 00261 I117 TXL I132,,20 F6S00350 00247 0 02000 0 00232 TRA PARTS END OF FILE. F6S00360 00250 1 00001 2 00251 I121 TXI I122,2,1 F6S00370 00251 -0 75400 2 00000 I122 PXD 0,2 F6S00380 00252 -0 76000 0 00012 RTT TEST TAPE CHECK. F6S00390 00253 -3 00000 0 00263 TXL I134,0,0 ERROR. F6S00400 00254 0 40000 0 00260 I125 ADD I131 PRINT THIS RECORD. F6S00410 00255 0 62200 0 00257 STD I130 F6S00420 00256 0 07400 4 00267 TSX I143,4 F6S00430 00257 0 00000 0 00525 I130 HTR D41+1 F6S00440 00260 -3 00551 0 00241 I131 TXL ME9,0,D65 F6S00450 00261 2 00001 2 00245 I132 TIX I116,2,1 NEXT WORD BUT NO F6S00460 00262 -3 00000 0 00251 TXL I122,0,0 MORE THEN 20. F6S00470 00263 2 00001 4 00265 I134 TIX I136,4,1 TEST FOR ANOTHER TRY. F6S00480 00264 0 07400 4 00004 TSX 4,4 F6S00490 00265 0 76400 0 00202 I136 BST 2 TRY AGAIN. F6S00500 00266 -3 00000 0 00242 TXL I113,0,0 F6S00510 00267 0 50000 4 00001 I143 CLA 1,4 SUBSTITUTE CODING. F6S00520 00270 0 62200 0 00432 STD I302 F6S00530 00271 0 77100 0 00022 ARS 18 F6S00540 00272 0 40000 0 00432 ADD I302 F6S00550 00273 0 62100 0 00305 STA I161 F6S00560 00274 0 62100 0 00341 STA I211 F6S00570 00275 0 40200 4 00001 SUB 1,4 F6S00580 00276 -0 63400 4 00432 SXD I302,4 F6S00590 00277 0 73400 4 00000 PAX 0,4 F6S00600 00300 -0 63400 4 00301 SXD I155,4 F6S00610 00301 3 00301 0 00000 I155 TXH 0,0,* F6S00620 00302 0 76600 0 00361 WPR SELECT PRINTER F6S00630 00303 0 50000 0 00431 CLA I301 FIND LAST NON-BLANK GROUP. F6S00640 00304 -0 53400 4 00354 LXD I224,4 F6S00650 00305 0 34000 4 00305 I161 CAS *,4 F6S00660 00306 1 77777 4 00311 TXI I165,4,-1 F6S00670 00307 1 00001 4 00305 I163 TXI I161,4,1 F6S00680 00310 1 77777 4 00311 TXI I165,4,-1 F6S00690 00311 -0 63400 4 00360 I165 SXD I230,4 STORE END TEST. F6S00700 00312 -0 63400 4 00372 SXD I242,4 F6S00710 00313 -0 63400 4 00316 SXD I172,4 F6S00720 00314 -0 63400 4 00421 SXD I271,4 F6S00730 00315 -0 53400 4 00301 LXD I155,4 F6S00740 D 00316 -2 00000 4 00322 I172 TNX I176,4 F6S00750 00317 -3 00014 4 00321 TXL I175,4,12 F6S00760 00320 0 76000 0 00370 SPR 8 FIRST CYCLE. F6S00770 00321 -0 53400 4 00301 I175 LXD I155,4 INITIALIZE GROUP COUNT. F6S00780 00322 0 53400 2 00333 I176 LXA I203,2 INITIALIZE LEFT SETUP. F6S00790 00323 -0 53400 1 00375 LXD I245,1 F6S00800 00324 0 50000 0 00162 CLA ONE F6S00810 00325 0 34000 0 00202 CAS SW4 F6S00820 00326 0 02000 0 00331 TRA I201 F6S00830 M 00327 0 02000 0 00332 TRA LIB5 F6S00840 00330 0 76000 0 00164 SWT 4 F6S00850 00331 -3 00331 0 00333 I201 TXL I203,0,* F6S00860 M 00332 0 76100 0 00000 LIB5 NOP F6S00870 T 00333 -0 75400 0 00000 I203 PXD F6S00880 00334 0 60200 1 00524 I204 SLW D41,1 CLEAR CARD IMAGE. F6S00890 00335 0 60200 1 00504 SLW D21,1 F6S00900 00336 2 00001 1 00334 TIX I204,1,1 F6S00910 00337 -0 50000 0 00433 I207 CAL I303 INITIALIZE COLUMN INDICATOR. F6S00920 00340 0 60200 0 00000 I210 SLW 0 F6S00930 00341 0 56000 4 00341 I211 LDQ *,4 OBTAIN GROUP. F6S00940 00342 -0 63400 4 00331 SXD I201,4 STORE GROUP COUNT. F6S00950 00343 0 53400 4 00345 LXA I215,4 SET CHARACTER COUNT. F6S00960 T 00344 -0 75400 0 00000 I214 PXD F6S00970 00345 -0 76300 0 00006 I215 LGL 6 F6S00980 00346 0 73400 1 00000 PAX 0,1 F6S00990 00347 -0 50000 0 00000 CAL 0 POSITION COLUMN INDICATOR. F6S01000 00350 0 77100 4 00006 ARS 6,4 F6S01010 00351 2 00020 1 00375 TIX I245,1,16 TEST FOR DIGIT. F6S01020 00352 3 00017 1 00400 TXH I250,1,15 TEST FOR Y-Z ONE F6S01030 00353 -0 60200 3 00521 ORS D36,3 STORE DIGIT. F6S01040 00354 2 00001 4 00344 I224 TIX I214,4,1 COUNT CHARACTERS. F6S01050 00355 0 77100 0 00001 I225 ARS 1 SHIFT AND TEST COLUMN. F6S01060 00356 -0 53400 4 00331 LXD I201,4 RESTORE GROUP COUNT. F6S01070 00357 1 77777 4 00360 TXI I230,4,-1 COUNT GROUPS. F6S01080 D 00360 -3 00000 4 00362 I230 TXL I232,4 TEST FOR LAST NON-BLANK GROUP. F6S01090 00361 -0 10000 0 00340 TNZ I210 TEST FOR END OF ROW. F6S01100 00362 -0 50000 2 00506 I232 CAL D23,2 FORM TRUE 8,4 F6S01110 00363 -0 60200 2 00511 ORS D26,2 AND 3 ROWS AND F6S01120 00364 -0 60200 2 00516 ORS D33,2 MOVE 8,4 AND 8,3 F6S01130 00365 0 60200 2 00507 SLW D24,2 ROWS. F6S01140 00366 -0 50000 2 00505 CAL D22,2 F6S01150 00367 -0 60200 2 00511 ORS D26,2 F6S01160 00370 -0 60200 2 00515 ORS D32,2 F6S01170 00371 0 60200 2 00506 SLW D23,2 F6S01180 D 00372 -3 00000 4 00415 I242 TXL I265,4 TEST FOR END. F6S01190 00373 3 00017 2 00415 TXH I265,2,15 TEST FOR RIGHT HALF. F6S01200 00374 1 00020 2 00337 TXI I207,2,16 INITIALIZE RIGHT HALF. F6S01210 00375 2 00020 1 00403 I245 TIX I253,1,16 TEST FOR 16/CH/32 F6S01220 00376 3 00017 1 00406 TXH I256,1,15 TEST FOR X-ZONE F6S01230 00377 -0 60200 3 00521 ORS D36,3 STORE DIGIT. F6S01240 00400 -0 60200 2 00523 I250 ORS D40,2 STORE Y-ZONE. F6S01250 00401 2 00001 4 00344 TIX I214,4,1 COUNT CHARACTERS. F6S01260 TD 00402 -3 00000 0 00355 I252 TXL I225 OBTAIN NEXT GROUP. F6S01270 00403 2 00020 1 00411 I253 TIX I261,1,16 TEST FOR 32/CH/48. F6S01280 00404 3 00017 1 00354 TXH I224,1,15 TEST FOR BLANK. F6S01290 00405 -0 60200 3 00521 ORS D36,3 STORE DIGIT. F6S01300 00406 -0 60200 2 00522 I256 ORS D37,2 STORE X-ZONE. F6S01310 00407 2 00001 4 00344 TIX I214,4,1 COUNT CHARACTERS. F6S01320 TD 00410 -3 00000 0 00355 I260 TXL I225 OBTAIN NEXT GROUP. F6S01330 00411 -0 60200 2 00521 I261 ORS D36,2 STORE 0-ZONE. F6S01340 00412 -0 60200 3 00521 ORS D36,3 STORE DIGIT. F6S01350 00413 2 00001 4 00344 TIX I214,4,1 COUNT CHARACTERS. F6S01360 TD 00414 -3 00000 0 00355 TXL I225 F6S01370 00415 -0 53400 1 00430 I265 LXD I300,1 COPY LOOP. F6S01380 00416 0 70000 1 00524 I266 CPY D41,1 CARD IMAGE COPIES. F6S01390 00417 0 70000 1 00504 CPY D21,1 F6S01400 00420 2 00001 1 00416 TIX I266,1,1 COUNT COPIES. F6S01410 D 00421 3 00000 4 00426 I271 TXH I276,4 TEST FOR SECOND CYCLE. F6S01420 00422 -0 53400 1 00402 LXD I252,1 NO, RELOAD INDEX REGISTERS F6S01430 00423 -0 53400 2 00410 LXD I260,2 AND RETURN. F6S01440 00424 -0 53400 4 00432 LXD I302,4 F6S01450 00425 0 02000 4 00002 TRA 2,4 F6S01460 00426 0 76600 0 00361 I276 WPR SELECT PRINTER AGAIN. F6S01470 00427 0 76000 0 00371 SPR 9 SECOND CYCLE. F6S01480 00430 -3 00014 0 00322 I300 TXL I176,0,12 CONVERT REST OF LINE F6S01490 00431 606060606060 I301 BCD 1 F6S01500 00432 0 00000 0 00001 I302 HTR 1 F6S01510 00433 -0 00000 0 00000 I303 MZE F6S01520 00504 BES 40 F6S01530 00504 0 00000 0 00000 D21 HTR 0 F6S01540 00505 0 00000 0 00000 D22 HTR 0 F6S01550 00506 0 00000 0 00000 D23 HTR 0 F6S01560 00507 0 00000 0 00000 D24 HTR 0 F6S01570 00510 0 00000 0 00000 D25 HTR 0 F6S01580 00511 0 00000 0 00000 D26 HTR 0 F6S01590 00512 0 00000 0 00000 D27 HTR 0 F6S01600 00513 0 00000 0 00000 D30 HTR 0 F6S01610 00514 0 00000 0 00000 D31 HTR 0 F6S01620 00515 0 00000 0 00000 D32 HTR 0 F6S01630 00516 0 00000 0 00000 D33 HTR 0 F6S01640 00517 0 00000 0 00000 D34 HTR 0 F6S01650 00520 0 00000 0 00000 D35 HTR 0 F6S01660 00521 0 00000 0 00000 D36 HTR 0 F6S01670 00522 0 00000 0 00000 D37 HTR 0 F6S01680 00523 0 00000 0 00000 D40 HTR 0 F6S01690 00524 0 00000 0 00000 D41 HTR 0 F6S01700 00551 D65 BES 20 F6S01710 A 00000 END F6S01720 0 LIB1 00216,00217 0 LIB2 00612,00226 0 LIB5 00616,00332 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 176 0 0 0 0 LIB 0 0 0 0 0 COL 176 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 187 0NUMBER OF SYMBOLS, DEF 193,DEFOP 0,UNDEF 0 9 REM ************* FORTRAN II SECTION SIX ************************F6T00010 1 ************* FORTRAN II SECTION SIX ************************F6T00010 FORTRAN 2 RECORD 007 - TAPE 3,7 TO 2,6. F6T00011 F6T00012 00161 ZERO EQU 113 00162 ONE EQU 114 00177 SW1 EQU 127 00200 SW2 EQU 128 00201 SW3 EQU 129 00202 SW4 EQU 130 DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO F6T00020 TAPE7 IF BATCH COMPILING F6T00030 00210 ORG 136 F6T00030 00210 0 77200 0 00202 REW 2 REWIND TAPES TWO AND THREE. F6T00040 00211 0 77200 0 00203 REW 3 F6T00050 00212 -0 53400 1 00161 LXD ZERO,1 F6T00060 00213 0 76000 0 00166 SWT 6 TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.F6T00070 00214 0 02000 0 00317 TRA FINI UP. DO NOT DUMP TAPES BUT GO TO FINI. F6T00080 00215 -0 76000 0 00012 A11 RTT F6T00090 00216 0 76100 0 00000 NOP F6T00100 00217 -0 53400 4 00242 A6 LXD SEVEN,4 SET READ ERROR COUNTER. F6T00110 00220 -0 53400 2 00161 A2 LXD ZERO,2 F6T00120 00221 0 76200 0 00202 RTD 2 READ A RECORD OF TAPE TWO. F6T00130 00222 0 70000 2 01371 A1 CPY REC-1,2 F6T00140 00223 1 00001 2 00222 TXI A1,2,1 F6T00150 00224 0 02000 0 00247 TRA EOF EOF F6T00160 00225 0 77100 0 00377 ARS 255 F6T00170 00226 0 77100 0 00377 ARS 255 F6T00180 00227 -0 76000 0 00012 RTT F6T00190 00230 0 02000 0 00243 TRA ERROR ERROR F6T00200 00231 1 77777 2 00232 TXI NEXT2,2,-1 F6T00210 00232 -0 63400 2 00237 NEXT2 SXD A4,2 SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.F6T00220 00233 -0 53400 2 00161 LXD ZERO,2 ONTO TAPE6 F6T00230 00234 0 76600 0 00206 WTD 6 WRITE RECORD JUST READ ONTO TAPE SIZE F6T00240 00235 0 70000 2 01371 A3 CPY REC-1,2 F6T00250 00236 1 00001 2 00237 TXI A4,2,1 F6T00260 00237 -3 00237 2 00235 A4 TXL A3,2,* F6T00270 00240 0 76600 0 00333 IOD F6T00280 00241 0 02000 0 00215 TRA A11 GO READ NEXT RECORD FROM TAPE TWO. F6T00290 00242 0 00005 0 00000 SEVEN 0,0,5 F6T00300 00243 0 76400 0 00202 ERROR BST 2 READ ERROR PROCEDURE. F6T00310 00244 2 00001 4 00220 TIX A2,4,1 F6T00320 00245 0 07400 4 00004 TSX 4,4 F6T00330 00246 0 00000 0 00246 ER HTR ER F6T00340 00247 0 77000 0 00206 EOF WEF 6 AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.F6T00350 00250 1 00001 1 00251 TXI A5,1,1 F6T00360 ON TAPE SIX. F6T00370 00251 3 00001 1 00324 A5 TXH TEST2,1,1 TWO FILES DONE. YES, GO TEST SWITCH TWO. F6T00380 00252 0 76200 0 00202 RTD 2 NO F6T00390 00253 0 02000 0 00217 TRA A6 F6T00400 00254 0 50000 0 00162 TAPE7 CLA ONE TEST SENSE SWITCH ONE. F6T00410 00255 0 34000 0 00177 CAS SW1 F6T00420 00256 0 02000 0 00314 TRA EOF3+1 F6T00430 00257 0 02000 0 00262 TRA A7 F6T00440 00260 0 76000 0 00161 SWT 1 F6T00450 00261 0 02000 0 00314 TRA EOF3+1 F6T00460 00262 -0 53400 4 00242 A7 LXD SEVEN,4 DOWN. SET READ ERROR COUNTER. F6T00470 00263 -0 53400 2 00161 A12 LXD ZERO,2 ONTO TAPE7 F6T00480 00264 0 76200 0 00223 RTB 3 READ A RECORD FROM TAPE THREE F6T00490 00265 0 70000 2 01371 A8 CPY REC-1,2 F6T00500 00266 1 00001 2 00265 TXI A8,2,1 F6T00510 00267 0 02000 0 00313 TRA EOF3 EOF OF FILE. F6T00520 00270 0 77100 0 00377 ARS 255 F6T00530 00271 0 77100 0 00377 ARS 255 F6T00540 00272 -0 76000 0 00012 RTT F6T00550 00273 0 02000 0 00307 TRA ERR3 ERROR. F6T00560 00274 1 77777 2 00275 TXI NEXT1,2,-1 F6T00570 00275 -0 63400 2 00302 NEXT1 SXD A10,2 SAVE WORD COUNT OF RECORD. F6T00580 00276 -0 53400 2 00161 LXD ZERO,2 F6T00590 00277 0 76600 0 00227 WTB 7 WRITE THE RECORD ONTO TAPE SEVEN. F6T00600 00300 0 70000 2 01371 A9 CPY REC-1,2 F6T00610 00301 1 00001 2 00302 TXI A10,2,1 F6T00620 00302 -3 00302 2 00300 A10 TXL A9,2,* TEST END OF RECORD. F6T00630 00303 0 76600 0 00333 IOD F6T00640 00304 -0 76000 0 00012 RTT F6T00650 00305 0 76100 0 00000 NOP F6T00660 00306 0 02000 0 00262 TRA A7 GO READ NEXT RECORD. F6T00670 00307 0 76400 0 00203 ERR3 BST 3 F6T00680 00310 2 00001 4 00263 TIX A12,4,1 READ ERROR PROCEDURE. F6T00690 00311 0 07400 4 00004 TSX 4,4 F6T00700 00312 0 00000 0 00312 ERR4 HTR ERR4 F6T00710 00313 0 77000 0 00207 EOF3 WEF 7 AT EOF ON 3, WRITE EOF ON 7. F6T00720 00314 0 76200 0 00221 RTB 1 F6T00730 00315 0 76200 0 00221 RTB 1 F6T00740 00316 0 76200 0 00221 RTB 1 F6T00750 00317 0 77200 0 00202 FINI REW 2 REWINDS TAPES 2,3, AND 4 AND F6T00760 00320 0 77200 0 00203 REW 3 RETURNS TO LOADER, F6T00770 00321 0 77200 0 00204 REW 4 F6T00780 00322 0 76200 0 00221 RTB 1 F6T00790 00323 0 02000 0 00004 TRA 4 F6T00800 00324 0 50000 0 00162 TEST2 CLA ONE AFTER 2ND FILE FROM 2 TO 6, F6T00810 00325 0 34000 0 00200 CAS SW2 TEST SENSE SWITCH 2. F6T00820 00326 0 02000 0 00254 TRA TAPE7 F6T00830 00327 0 02000 0 00332 TRA WT3 F6T00840 00330 0 76000 0 00162 SWT 2 F6T00850 00331 0 02000 0 00254 TRA TAPE7 UP. GO TEST SWITCH 1. F6T00860 00332 -0 53400 1 00251 WT3 LXD A5,1 DOWN. RESET INDEX REGISTER 1 TO 1. F6T00870 00333 0 50000 0 00331 CLA WT3-1 CHANGE A5 TRANSFER ADDRESS TO TAPE7. F6T00880 00334 0 62100 0 00251 STA A5 F6T00890 00335 0 02000 0 00217 TRA A6 F6T00900 00336 BSS 40 F6T00910 01372 REC BES 500 F6T00920 A 00000 END F6T00930 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 102 0 0 0 0 LIB 0 0 0 0 0 COL 102 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 111 0NUMBER OF SYMBOLS, DEF 32,DEFOP 0,UNDEF 0 9 REM SUCCESSFUL COMPILATION RECORD F1SC0010 1 SUCCESSFUL COMPILATION RECORD F1SC0010 CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A F1SC0020 SINGLE PROBLEM COMPILATION, OR AT THE END OF BATCH F1SC0030 COMPILATION. TAPE 1 IS REWOUND AND A LOAD BUTTON F1SC0040 SEQUENCE IS EXECUTED AT THE CARD READER. F1SC0050 AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN F1SC0060 OPERATING NEEDS. F1SC0070 F1SC0080 MASTER RECORD CARD = F0090000. F1SC0090 00030 ORG 24 F1SC0100 00030 -0 76000 0 00007 START LTM F1SC0110 00031 0 77200 0 00201 REW 1 F1SC0120 00032 0 76200 0 00321 RCD 209 CARD READER LOAD BUTTON SEQUENCE. F1SC0130 00033 0 70000 0 00000 CPY 0 F1SC0140 00034 0 02000 0 00036 TRA SECCPY F1SC0150 00035 0 00000 0 77777 HTR 32767 CARD READER EMPTY, HALT. F1SC0160 00036 0 70000 0 00001 SECCPY CPY 1 F1SC0170 00037 0 02000 0 00000 TRA 0 F1SC0180 00030 END 24 F1SC0190 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 19 0 0 0 0 LIB 0 0 0 0 0 COL 19 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 28 0NUMBER OF SYMBOLS, DEF 2,DEFOP 0,UNDEF 0 9 REM SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 F1SPE010 1 SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 F1SPE010 TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE F1SPE020 EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED. SL3-ON F1SPE030 IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD F1SPE040 IS FOUND. SS6-ON IF IN BATCH COMPILE MODE. F1SPE050 F1SPE060 MASTER RECORD CARD = F0100000. F1SPE070 00030 ORG 24 F1SPE080 00030 -0 76000 0 00007 LTM F1SPE090 00031 -0 76000 0 00141 SLT 1 SL1-ON IF PROGRAM TO BE RE-TRIED. F1SPE100 00032 0 02000 0 00034 TRA SS6TST F1SPE110 00033 0 02000 0 00053 TRA SKIPCM SKIP TO COMMON RECORD F1SPE120 00034 0 76000 0 00166 SS6TST SWT 6 SS6-ON IF IN BATCH MODE. F1SPE130 00035 0 02000 0 00041 TRA READCD SINGLE COMPILATION. READ CARD READER SEQ. F1SPE140 00036 -0 76000 0 00143 SLT 3 ON IF END CARD ERROR FOUND BY BATCH MONITOR F1SPE150 00037 0 02000 0 00055 TRA SKIPBM SKIP TO BATCH MONITOR RECORD F1SPE160 00040 0 77200 0 00206 REW 6 F1SPE170 00041 0 77200 0 00204 READCD REW 4 F1SPE180 00042 0 77200 0 00203 REW 3 F1SPE190 00043 0 77200 0 00202 REW 2 F1SPE200 00044 0 77200 0 00201 REW 1 F1SPE210 00045 0 76200 0 00321 RCD 209 CARD READER LOAD BUTTON SEQUENCE. F1SPE220 00046 0 70000 0 00000 CPY 0 F1SPE230 00047 0 02000 0 00051 TRA SECCPY F1SPE240 00050 0 00000 0 77777 HTR 32767 CARD READ EMPTY. F1SPE250 00051 0 70000 0 00001 SECCPY CPY 1 F1SPE260 00052 0 02000 0 00000 TRA 0 F1SPE270 00053 0 76200 0 00221 SKIPCM RTB 1 SKIP OVER FILE 1 MARK TO BATCH MONITOR. F1SPE280 00054 0 76200 0 00221 RTB 1 SKIP OVER BATCH MONITOR RECORD F1SPE290 00055 0 76200 0 00221 SKIPBM RTB 1 AND/OR SKIP MACHINE ERROR RECORD F1SPE300 00056 0 02000 0 00004 TRA 4 TO 1-CS TO READ NEXT RECORD F1SPE310 00030 END 24 F1SPE320 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 32 0 0 0 0 LIB 0 0 0 0 0 COL 32 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 41 0NUMBER OF SYMBOLS, DEF 5,DEFOP 0,UNDEF 0 9 REM MONITOR PROGRAM FOR BATCH COMPILATION F1BM0010 1 MONITOR PROGRAM FOR BATCH COMPILATION F1BM0010 MASTER RECORD CARD F0120000 F1BM0020 00030 ORG 24 F1BM0030 00030 0 76000 0 00166 START SWT 6 TEST SW6, UP = SINGLE PROBLEM, F1BM0040 00031 0 02000 0 00146 TRA ADD93+1 SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050 00032 0 76000 0 00140 SLN 0 TURN OFF LIGHTS F1BM0060 00033 0 53400 4 00237 ADD01 LXA L(5),4 COUNTER FOR 5 TRIES TO READ TAPE 5. F1BM0070 00034 -0 50000 0 00245 CAL BLANKS F1BM0080 00035 0 60200 0 00233 SLW BUFFER-1 F1BM0090 00036 0 60200 0 00232 SLW BUFFER-2 F1BM0100 00037 -0 76000 0 00012 RTT TURN OFF INDICATOR F1BM0110 00040 0 76100 0 00000 NOP F1BM0120 00041 0 76200 0 00205 ADD015 RTD 5 F1BM0130 00042 0 53400 3 00243 LXA L(14),3 ASSUME 14 WORDS PER RECORD F1BM0140 00043 0 70000 1 00234 ADD02 CPY BUFFER,1 F1BM0150 00044 0 02000 0 00047 TRA ADD03 F1BM0160 00045 0 02000 0 00161 TRA ADD90 EOF F1BM0170 00046 0 02000 0 00050 TRA ADD04 EOR F1BM0180 00047 2 00001 1 00043 ADD03 TIX ADD02,1,1 F1BM0190 00050 0 77100 0 00377 ADD04 ARS 255 F1BM0200 00051 0 77100 0 00377 ARS 255 F1BM0210 00052 -0 76000 0 00012 RTT TEST TAPE INDICATOR F1BM0220 00053 0 02000 0 00150 TRA ADD80 ON, PREPARE TO READ AGAIN F1BM0230 00054 0 76600 0 00202 WTD 2 OFF, WRITE THIS RECORD ON TAPE 2 F1BM0240 00055 0 70000 2 00234 ADD05 CPY BUFFER,2 F1BM0250 00056 2 00001 2 00055 TIX ADD05,2,1 F1BM0260 00057 0 76600 0 00333 IOD F1BM0270 00060 -0 76000 0 00012 RTT F1BM0280 00061 0 76100 0 00000 NOP F1BM0290 D 00062 3 00000 0 00074 ADD70 TXH ADD71,0 ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300 00063 0 07400 4 00332 TSX PRINT,C FIRST STATEMENT OF CURRENT SOURCE PROGRAM F1BM0310 00064 0 00234 0 00215 PZE RESTR,0,BUFFER F1BM0320 00065 0 76600 0 00361 WPR F1BM0330 00066 0 76600 0 00361 WPR F1BM0330 00067 0 76600 0 00361 WPR F1BM0330 00070 0 76600 0 00361 WPR F1BM0330 00071 0 76600 0 00361 WPR F1BM0330 00072 0 50200 0 00062 CLS ADD70 CHANGE TXH TO TXL F1BM0350 00073 0 60100 0 00062 STO ADD70 F1BM0360 00074 0 76000 0 00141 ADD71 SLN 1 SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370 00075 -0 75400 0 00000 PXD 0,0 EXITS F1BM0380 00076 0 56000 0 00216 LDQ BUFFER-14 TEST FOR COMMENT CARD F1BM0390 00077 -0 76300 0 00006 LGL 6 F1BM0400 00100 0 40200 0 00244 SUB L(C) F1BM0410 00101 0 10000 0 00033 TZE ADD01 YES, GO READ NEXT TAPE RECORD F1BM0420 00102 -0 76300 0 00030 LGL 24 DISCARD FORMULA NUMBER F1BM0430 00103 -0 75400 0 00000 PXD 0,0 F1BM0440 00104 -0 76300 0 00006 LGL 6 F1BM0450 00105 0 10000 0 00110 TZE ADD06 TEST FOR CONTINUATION CARD F1BM0460 00106 0 40200 0 00246 SUB BLANK F1BM0470 00107 -0 10000 0 00033 TNZ ADD01 YES, GO READ NEXT TAPE RECORD F1BM0480 00110 0 53400 1 00242 ADD06 LXA L(12),1 THIS RECORD IS OF FIRST CARD OF F1BM0490 00111 0 53400 2 00241 LXA L(7),2 FORTRAN STATEMENT. PREPARE TO TEST F1BM0500 00112 0 50000 0 00234 CLA BUFFER FOR END(..,..,..,..,..) CARD F1BM0510 00113 0 60100 0 00232 STO BUFFER-2 POSITION ENDMARK F1BM0520 00114 0 56000 0 00217 LDQ BUFFER-13 F1BM0530 00115 0 07400 4 00200 TSX SUB1,4 F1BM0540 00116 0 40200 0 00247 SUB L(E) TEST FIRST CHAR FOR E F1BM0550 00117 -0 10000 0 00033 TNZ ADD01 F1BM0560 00120 0 07400 4 00200 TSX SUB1,4 F1BM0570 00121 0 40200 0 00250 SUB L(N) TEST SECOND CHAR FOR N F1BM0580 00122 -0 10000 0 00033 TNZ ADD01 F1BM0590 00123 0 07400 4 00200 TSX SUB1,4 F1BM0600 00124 0 40200 0 00251 SUB L(D) TEST THIRD CHAR FOR D F1BM0610 00125 -0 10000 0 00033 TNZ ADD01 F1BM0620 00126 0 07400 4 00200 TSX SUB1,4 F1BM0630 00127 0 40200 0 00252 SUB L(() TEST FOURTH CHAR FOR ( F1BM0640 00130 -0 10000 0 00033 TNZ ADD01 F1BM0650 00131 0 07400 4 00200 TSX SUB1,4 F1BM0660 00132 0 07400 4 00200 TSX SUB1,4 F1BM0670 00133 0 40200 0 00253 SUB COMMA TEST SIXTH CHAR FOR , F1BM0680 00134 -0 10000 0 00033 TNZ ADD01 F1BM0690 00135 0 07400 4 00200 TSX SUB1,4 F1BM0700 00136 0 07400 4 00200 TSX SUB1,4 F1BM0710 00137 0 40200 0 00253 SUB COMMA TEST EIGHTH CHAR FOR , F1BM0720 00140 -0 10000 0 00033 TNZ ADD01 F1BM0730 00141 0 07400 4 00200 TSX SUB1,4 F1BM0740 00142 0 07400 4 00200 TSX SUB1,4 F1BM0750 00143 0 40200 0 00253 SUB COMMA TEST TENTH CHAR FOR , F1BM0760 00144 -0 10000 0 00033 TNZ ADD01 F1BM0770 00145 0 77000 0 00202 ADD93 WEF 2 THIS IS END CARD, TERMINATE FILE F1BM0780 00146 0 76200 0 00221 RTB 1 SKIP OVER MACHINE ERROR RECORD. F1BM0790 00147 0 02000 0 00004 TRA 4 GO TO 1-CS FOR SECTION ONE F1BM0800 00150 0 76400 0 00205 ADD80 BST 5 TAPE ERROR F1BM0810 00151 2 00001 4 00041 TIX ADD015,4,1 F1BM0820 00152 0 07400 4 00332 TSX PRINT,4 F1BM0830 00153 0 00301 0 00254 TP5ERR,0,TP5END F1BM0840 00154 0 76000 0 00143 SPROER SLN 3 SL3-ON IF TAPE CANNOT BE READ OR END CARD F1BM0850 00155 0 76400 0 00201 BSTRTN BST 1 TROUBLE. F1BM0860 00156 0 76400 0 00201 BST 1 BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870 00157 0 76400 0 00201 BST 1 RECORD. F1BM0880 00160 0 02000 0 00004 TRA 4 CALL IN 1 - CS. F1BM0890 00161 -0 76000 0 00141 ADD90 SLT 1 IS THERE A PROBLEM TO BE COMPILED F1BM0900 00162 0 02000 0 00167 TRA ADD91 FINISHED, REWIND ALL TYPES F1BM0910 00163 0 07400 4 00332 TSX PRINT,4 F1BM0920 00164 0 00315 0 00301 ENDCD,0,CDTEND F1BM0930 00165 0 77200 0 00205 REW 5 F1BM0940 00166 0 02000 0 00154 TRA SPROER F1BM0950 00167 0 76400 0 00201 ADD91 BST 1 F1BM0970 00170 0 77200 0 00206 REW 6 F1BM0974 00171 0 77200 0 00205 REW 5 F1BM0976 00172 0 07400 4 00332 TSX PRINT,C F1BM0980 00173 0 00332 0 00315 REMA,0,ENDA F1BM0990 00174 0 07400 4 00332 TSX PRINT,C F1BM1000 00175 0 00216 0 00215 HTR RESTR,0,RESTR+1 F1BM1010 00176 0 16100 0 00177 TQO *+1 F1BM1020 00177 0 02000 0 00155 TRA BSTRTN F1BM1030 00200 -0 75400 0 00000 SUB1 PXD 0,0 SUBROUTINE TO BRING NEXT NON BLANK F1BM1040 00201 2 00001 2 00205 TIX ADD50,2,1 CHAR OF BUFFER REGION TO AC. F1BM1050 00202 0 53400 2 00240 LXA L(6),2 F1BM1060 00203 0 56000 1 00234 LDQ BUFFER,1 F1BM1070 00204 1 77777 1 00205 TXI ADD50,1,-1 F1BM1080 00205 -0 76300 0 00006 ADD50 LGL 6 F1BM1090 00206 0 34000 0 00246 CAS BLANK F1BM1100 00207 0 02000 0 00211 TRA ADD51 F1BM1110 00210 0 02000 0 00200 TRA SUB1 F1BM1120 00211 0 34000 0 00235 ADD51 CAS ENDMK F1BM1130 00212 0 02000 4 00001 TRA 1,4 F1BM1140 00213 0 02000 0 00033 TRA ADD01 F1BM1150 00214 0 02000 4 00001 TRA 1,4 F1BM1160 00215 016060606060 RESTR BCD 11 F1BM1165 00234 BUFFER BES 14 F1BM1170 00234 -377777777777 OCT 777777777777 F1BM1180 00235 +000000000077 ENDMK OCT 77 F1BM1190 00236 0 00000 0 00003 L(3) 3 F1BM1200 00237 0 00000 0 00005 L(5) 5 F1BM1210 00240 0 00000 0 00006 L(6) 6 F1BM1220 00241 0 00000 0 00007 L(7) 7 F1BM1230 00242 0 00000 0 00014 L(12) 12 F1BM1240 00243 0 00000 0 00016 L(14) 14 F1BM1250 00244 000000000023 L(C) BCD 100000C F1BM1260 00245 606060606060 BLANKS BCD 1 F1BM1270 00246 000000000060 BLANK BCD 100000 F1BM1280 00247 000000000025 L(E) BCD 100000E F1BM1290 00250 000000000045 L(N) BCD 100000N F1BM1300 00251 000000000024 L(D) BCD 100000D F1BM1310 00252 000000000074 L(() BCD 100000( F1BM1320 00253 000000000073 COMMA BCD 100000, F1BM1330 00254 006060606060 TP5ERR BCD 90 TAPE 5 CONTAINING SOURCE SUBPROGRAM READ 5 TIMES F1BM1340 00255 632147256005 00256 602346456321 00257 314531452760 00260 624664512325 00261 606264224751 00262 462751214460 00263 512521246005 00264 606331442562 00265 606445626423 BCD 9 UNSUCCESSFULLY. TAPE 5 NOW POSITIONED AT RECORD WHICH F1BM1350 00266 232562622664 00267 434370336063 00270 214725600560 00271 454666604746 00272 623163314645 00273 252460216360 00274 512523465124 00275 606630312330 00276 602321454546 BCD 3 CANNOT BE READ. F1BM1360 00277 636022256060 00300 512521243360 00301 TP5END BSS 0 F1BM1370 00301 006060606060 ENDCD BCD 90 END CARD MISSING OR MISPUNCHED FOR LAST SUBPROGR F1BM1380 00302 254524602321 00303 512460443162 00304 623145276046 00305 516044316247 00306 644523302524 00307 602646516043 00310 216263606264 00311 224751462751 00312 214460222531 BCD 3AM BEING COMPILED. F1BM1390 00313 452760234644 00314 473143252433 00315 CDTEND BSS 0 F1BM1400 00315 016060606060 REMA BCD 71 F1BM1410 00316 606060606060 00317 606060606060 00320 606060606060 00321 606060606060 00322 606060606060 00323 606060606060 00324 606330256043 BCD 6 THE LAST PROBLEM HAS BEEN PROCESSED. F1BM1420 00325 216263604751 00326 462243254460 00327 302162602225 00330 254560475146 00331 232562622524 00332 ENDA BSS 0 F1BM1430 F1BM1450 PRINT CONTROL SUBROUTINE. F1BM1460 00001 A EQU 1 F1BM1470 00002 B EQU 2 F1BM1480 00004 C EQU 4 F1BM1490 00332 PRINT BSS 0 F1BM1500 00332 0 50000 4 00001 RAN CLA 1,4 F1BM1510 00333 0 62100 0 00374 STA RNA F1BM1520 00334 0 77100 0 00022 ARS 18 F1BM1530 00335 0 60100 0 00375 STO RNB F1BM1540 00336 -0 63400 4 00376 SXD RNC,4 F1BM1550 00337 0 50000 0 00374 RN40 CLA RNA F1BM1560 00340 0 40000 0 00377 ADD RND F1BM1570 00341 0 34000 0 00375 CAS RNB F1BM1580 00342 0 76100 0 00000 NOP F1BM1590 00343 0 02000 0 00364 TRA RN50 F1BM1600 00344 0 76700 0 00022 ALS 18 F1BM1610 00345 0 40000 0 00374 ADD RNA F1BM1620 00346 0 60100 0 00350 STO RAN10 F1BM1630 00347 0 07400 4 00401 TSX WOT,C F1BM1640 A 00350 0 00000 0 00000 RAN10 HTR F1BM1650 00351 0 50000 0 00350 CLA RAN10 F1BM1660 00352 0 77100 0 00022 ARS 18 F1BM1670 00353 0 40200 0 00400 SUB RNE F1BM1680 00354 0 62100 0 00361 STA RN20 F1BM1690 00355 0 40200 0 00400 SUB RNE F1BM1700 00356 0 62100 0 00362 STA RN30 F1BM1710 00357 0 62100 0 00374 STA RNA F1BM1720 00360 0 50000 0 00613 CLA BLNKS F1BM1730 A 00361 0 60100 0 00000 RN20 STO F1BM1740 A 00362 0 60100 0 00000 RN30 STO F1BM1750 00363 0 02000 0 00337 TRA RN40 F1BM1760 00364 0 50000 0 00375 RN50 CLA RNB F1BM1770 00365 0 76700 0 00022 ALS 18 F1BM1780 00366 0 40000 0 00374 ADD RNA F1BM1790 00367 0 60100 0 00371 STO RN60 F1BM1800 00370 0 07400 4 00401 TSX WOT,C F1BM1810 A 00371 0 00000 0 00000 RN60 HTR F1BM1820 00372 -0 53400 4 00376 LXD RNC,C F1BM1830 00373 0 02000 4 00002 TRA 2,C F1BM1840 A 00374 0 00000 0 00000 RNA HTR F1BM1850 A 00375 0 00000 0 00000 RNB HTR F1BM1860 A 00376 0 00000 0 00000 RNC HTR F1BM1870 00377 0 00000 0 00024 RND HTR 20 F1BM1880 00400 0 00000 0 00001 RNE HTR 1 F1BM1890 F1BM1900 PRINT SUBROUTINE. F1BM1910 00401 -0 63400 1 00551 WOT SXD X1,1 F1BM1920 00402 -0 63400 2 00557 SXD X2,2 F1BM1930 00403 0 50000 4 00001 CLA 1,4 PRINT ROUTINE F1BM1940 00404 0 62100 0 00432 STA T5 X F1BM1950 00405 0 62200 0 00614 STD X4 X F1BM1960 00406 0 77100 0 00022 ARS 18 X F1BM1970 00407 0 40000 0 00614 ADD X4 X F1BM1980 00410 0 62100 0 00463 STA PR2 X F1BM1990 00411 0 62100 0 00510 STA CI9 X F1BM2000 00412 0 40200 4 00001 SUB 1,4 B-A+1 IN AC F1BM2010 00413 0 10000 4 00002 TZE 2,4 F1BM2020 00414 -0 12000 4 00002 TMI 2,4 F1BM2030 00415 -0 63400 4 00614 SXD X4,4 F1BM2040 00416 0 73400 4 00013 L11 PAX 11,4 F1BM2050 00417 -0 63400 4 00422 SXD PR6,4 F1BM2060 00420 -0 50000 0 00564 CAL WP INITIALIZE SWITCH F1BM2070 00421 0 60100 0 00564 STO WP X F1BM2080 TD 00422 3 00000 0 00423 PR6 TXH T4 F1BM2090 00423 0 76600 0 00361 T4 WPR F1BM2100 TD 00424 -3 00000 0 00430 Z2 TXL S3 F1BM2110 ATD 00425 -3 00000 0 00000 OZ2 TXL F1BM2120 00426 0 76000 0 00364 SP4 SPR 4 F1BM2130 TD 00427 -3 00000 0 00461 TXL RPR+2 F1BM2140 00430 0 50200 0 00564 S3 CLS WP SET SWITCH FOR MASKING F1BM2150 00431 0 60100 0 00564 STO WP CHARACTER FROM TYPE WHEEL 1 F1BM2160 00432 -0 50000 0 00432 T5 CAL * OBTAIN FIRST CHARACTER F1BM2170 00433 0 77100 0 00036 ARS 30 X F1BM2180 00434 0 10000 0 00426 TZE SP4 DOUBLE SPACE IF ZERO F1BM2190 00435 0 34000 0 00615 CAS YZONE TEST FOR SPACE SUPPRESS F1BM2200 TD 00436 -3 00000 0 00440 TXL BK NO F1BM2210 TD 00437 -3 00000 0 00460 TXL RPR+1 SUPPRESS SPACE F1BM2220 00440 0 34000 0 00616 BK CAS BNK TEST FOR BLANK F1BM2230 TD 00441 -3 00000 0 00443 TXL DIGF NO F1BM2240 TD 00442 -3 00000 0 00461 TXL RPR+2 BLANK F1BM2250 00443 0 76000 0 00372 DIGF SPR 10 SET CHANNEL SKIP F1BM2260 00444 -0 32000 0 00445 ANA MK MASK OUT ZONE F1BM2270 00445 0 73400 1 00017 MK PAX 15,1 OBTAIN SPR COMBINATION F1BM2280 00446 1 00001 1 00447 TXI N2,1,1 X F1BM2290 00447 -2 00010 1 00451 N2 TNX N3,1,8 X F1BM2300 00450 0 76000 0 00370 SPR 8 X F1BM2310 00451 -2 00004 1 00453 N3 TNX N4,1,4 X F1BM2320 00452 0 76000 0 00364 SPR 4 X F1BM2330 00453 -2 00002 1 00455 N4 TNX N5,1,2 X F1BM2340 00454 0 76000 0 00362 SPR 2 X F1BM2350 00455 -2 00001 1 00457 N5 TNX RPR,1,1 X F1BM2360 00456 0 76000 0 00361 SPR 1 X F1BM2370 00457 0 76600 0 00361 RPR WPR F1BM2380 00460 0 76000 0 00365 SPR 5 SUPPRESS SPACE F1BM2390 00461 0 50000 0 00613 CLA BLNKS FIND LAST NON-BLANK GROUP F1BM2400 00462 -0 53400 4 00523 LXD CI4,4 X F1BM2410 00463 0 34000 4 00000 PR2 CAS 0,4 X F1BM2420 00464 1 77777 4 00467 TXI PR1,4,-1 X F1BM2430 00465 1 00001 4 00463 TXI PR2,4,1 X F1BM2440 00466 1 77777 4 00467 TXI PR1,4,-1 X F1BM2450 00467 -0 63400 4 00527 PR1 SXD CI6,4 STORE END TEST F1BM2460 00470 -0 63400 4 00541 SXD CI8,4 X F1BM2470 00471 -0 63400 4 00474 SXD PR8,4 X F1BM2480 00472 -0 63400 4 00601 SXD WP4,4 X F1BM2490 00473 -0 53400 4 00422 LXD PR6,4 X F1BM2500 D 00474 -2 00000 4 00500 PR8 TNX PR5,4 F1BM2510 00475 -3 00014 4 00477 TXL PR3,4,12 F1BM2520 00476 0 76000 0 00370 SPR 8 FIRST CYCLE F1BM2530 00477 -0 53400 4 00422 PR3 LXD PR6,4 INITIALIZE GROUP COUNT F1BM2540 00500 0 53400 2 00502 PR5 LXA PR7,2 INITIALIZE LEFT SETUP F1BM2550 00501 -0 53400 1 00544 LXD YZ1,1 CLEAR CARD IMAGE F1BM2560 T 00502 -0 75400 0 00000 PR7 PXD X F1BM2570 00503 0 60200 1 00662 PR4 SLW LT,1 X F1BM2580 00504 0 60200 1 00642 SLW RT,1 X F1BM2590 00505 2 00001 1 00503 TIX PR4,1,1 X F1BM2600 00506 -0 50000 0 00620 CIR CAL COL1 INITIALIZE COLUMN INDICATOR F1BM2610 00507 0 60200 0 00621 CI2 SLW COL X F1BM2620 00510 0 56000 4 00000 CI9 LDQ 0,4 OBTAIN GROUP F1BM2630 00511 -0 63400 4 00425 SXD OZ2,4 STORE GROUP COUNT F1BM2640 00512 0 53400 4 00514 LXA Q6,4 SET CHARACTER COUNT F1BM2650 T 00513 -0 75400 0 00000 CI1 PXD F1BM2660 00514 -0 76300 0 00006 Q6 LGL 6 F1BM2670 00515 0 73400 1 00000 PAX 0,1 F1BM2680 00516 -0 50000 0 00621 CAL COL POSITION COLUMN INDICATOR F1BM2690 00517 0 77100 4 00006 ARS 6,4 X F1BM2700 00520 2 00020 1 00544 TIX YZ1,1,16 TEST FOR DIGIT F1BM2710 00521 3 00017 1 00547 TXH YZ2,1,15 TEST FOR Y-ZONE F1BM2720 00522 -0 60200 3 00657 CI5 ORS D,3 STORE DIGIT F1BM2730 00523 2 00001 4 00513 CI4 TIX CI1,4,1 COUNT CHARACTERS F1BM2740 00524 0 77100 0 00001 CI3 ARS 1 SHIFT AND TEST COLUMN F1BM2750 00525 -0 53400 4 00425 LXD OZ2,4 RESTORE GROUP COUNT F1BM2760 00526 1 77777 4 00527 TXI CI6,4,-1 COUNT GROUPS F1BM2770 D 00527 -3 00000 4 00531 CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP F1BM2780 00530 -0 10000 0 00507 TNZ CI2 TEST FOR END OF ROW F1BM2790 00531 -0 50000 2 00644 CI7 CAL 8.3,2 FORM TRUE 8.4 F1BM2800 00532 -0 60200 2 00647 ORS D-8,2 AND 3 ROWS AND F1BM2810 00533 -0 60200 2 00654 ORS D-3,2 MOVE 8.4 AND 8.3 F1BM2820 00534 0 60200 2 00645 SLW 8.2,2 ROWS F1BM2830 00535 -0 50000 2 00643 CAL 8.4,2 FORM TRUE 8.4 F1BM2840 00536 -0 60200 2 00647 ORS D-8,2 X F1BM2850 00537 -0 60200 2 00653 ORS D-4,2 X F1BM2860 00540 0 60200 2 00644 SLW 8.3,2 X F1BM2870 D 00541 -3 00000 4 00564 CI8 TXL WP,4 TEST FOR END F1BM2880 00542 3 00017 2 00564 TXH WP,2,15 TEST FOR RIGHT HALF F1BM2890 00543 1 00020 2 00506 TXI CIR,2,16 INITIALIZE RIGHT HALF F1BM2900 00544 2 00020 1 00552 YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 F1BM2910 00545 3 00017 1 00555 TXH XZ2,1,15 TEST FOR X-ZONE F1BM2920 00546 -0 60200 3 00657 ORS D,3 STORE DIGIT F1BM2930 00547 -0 60200 2 00661 YZ2 ORS Y,2 STORE Y-ZONE F1BM2940 00550 2 00001 4 00513 TIX CI1,4,1 COUNT CHARACTERS F1BM2950 TD 00551 -3 00000 0 00524 X1 TXL CI3 OBTAIN NEXT GROUP F1BM2960 00552 2 00020 1 00560 XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 F1BM2970 00553 3 00017 1 00523 TXH CI4,1,15 TEST FOR BLANK F1BM2980 00554 -0 60200 3 00657 ORS D,3 STORE DIGIT F1BM2990 00555 -0 60200 2 00660 XZ2 ORS X,2 STORE X-ZONE F1BM3000 00556 2 00001 4 00513 TIX CI1,4,1 COUNT CHARACTERS F1BM3010 TD 00557 -3 00000 0 00524 X2 TXL CI3 OBTAIN NEXT GROUP F1BM3020 00560 -0 60200 2 00657 OZ1 ORS Z,2 STORE 0-ZONE F1BM3030 00561 -0 60200 3 00657 ORS D,3 STORE DIGIT F1BM3040 00562 2 00001 4 00513 TIX CI1,4,1 COUNT CHARACTERS F1BM3050 TD 00563 -3 00000 0 00524 TXL CI3 F1BM3060 TD 00564 3 00000 0 00566 WP TXH WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL F1BM3070 TD 00565 -3 00000 0 00572 TXL WP7 NO PROGRAM F1BM3080 00566 -0 53400 1 00612 WP9 LXD WP2,1 MASK OUT FIRST COL. OF CARD IMAGE F1BM3090 00567 -0 50000 0 00617 CAL MK2 X F1BM3100 00570 0 32000 1 00662 ANS ANS LT,1 X F1BM3110 00571 2 00001 1 00570 TIX ANS,1,1 X F1BM3120 00572 -0 53400 1 00424 WP7 LXD Z2,1 COPY LOOP F1BM3130 00573 0 70000 1 00646 CRAN CPY LT-12,1 F1BM3140 00574 0 70000 1 00626 CPY RT-12,1 X F1BM3150 00575 1 77777 1 00576 TXI T2,1,-1 F1BM3160 00576 3 77764 1 00573 T2 TXH CRAN,1,-12 F1BM3170 00577 -0 50000 0 00564 CAL WP RESET SWITCH FOR SECOND CYCLE F1BM3180 00600 0 60100 0 00564 STO WP X F1BM3190 D 00601 3 00000 4 00610 WP4 TXH WP5,4 F1BM3200 00602 -0 53400 1 00551 LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN F1BM3210 00603 -0 53400 2 00557 LXD X2,2 X F1BM3220 00604 -0 53400 4 00614 WT2 LXD X4,4 X F1BM3230 00605 0 02000 4 00002 L2 TRA 2,4 X F1BM3240 00606 0 76600 0 00361 RPR2 WPR F1BM3250 TD 00607 -3 00000 0 00461 TXL PR2-2 F1BM3260 00610 0 76600 0 00361 WP5 WPR F1BM3270 00611 0 76000 0 00371 SPR 9 SECOND CYCLE F1BM3280 00612 -3 00014 0 00500 WP2 TXL PR5,0,12 CONVERT REST OF LINE F1BM3290 00613 606060606060 BLNKS BCD 1 F1BM3300 A 00614 0 00000 0 00000 X4 HTR F1BM3310 00615 +000000000020 YZONE OCT 20 F1BM3320 00616 +000000000060 BNK OCT 60 F1BM3330 00617 +377777777777 MK2 OCT 377777777777 F1BM3340 00620 -0 00000 0 00000 COL1 MZE F1BM3350 00621 COL BSS 1 F1BM3360 00642 RT BES 16 F1BM3370 00642 8.5 BSS 1 F1BM3380 00643 8.4 BSS 1 F1BM3390 00644 8.3 BSS 1 F1BM3400 00645 8.2 BSS 1 F1BM3410 00657 D BES 9 F1BM3420 00657 Z BSS 1 F1BM3430 00660 X BSS 1 F1BM3440 00661 Y BSS 1 F1BM3450 00662 LT SYN Y+1 F1BM3460 00644 8.4L SYN LT-14 F1BM3470 00624 8.4R SYN RT-14 F1BM3480 00662 BSS 27 F1BM3490 00030 END 24 F1BM3500 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 354 0 0 0 0 LIB 0 0 0 0 0 COL 354 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 402 0NUMBER OF SYMBOLS, DEF 131,DEFOP 0,UNDEF 0 9 REM MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR F1ME0010 1 MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR F1ME0010 INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED, F1ME0020 OPERATOR SHOULD PRESS START. IF NEXT SOURCE PROGRAM IS TO BEF1ME0030 COMPILED, THE OPERATOR MUST MANUALLY TURN SL1-ON, AND PRESS F1ME0040 START. F1ME0050 F1ME0060 MASTER RECORD CARD = F0130000. F1ME0070 00030 ORG 24 F1ME0080 00030 0 00000 0 00031 HTR NEXTIN F1ME0090 00031 -0 76000 0 00141 NEXTIN SLT 1 F1ME0100 00032 0 02000 0 00004 TRA 4 GO TO 1 - CS TO REPEAT PROBLEM. F1ME0110 00033 0 76400 0 00201 BST 1 BACKSPACE OVER MACHINE ERROR RECORD. F1ME0120 00034 0 76400 0 00201 BST 1 BACKSPACE OVER BATCH MONITOR F1ME0130 00035 0 02000 0 00004 TRA 4 TO 1-CS TO READ NEXT RECORD. F1ME0160 00030 END 24 F1ME0170 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 15 0 0 0 0 LIB 0 0 0 0 0 COL 15 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 24 0NUMBER OF SYMBOLS, DEF 1,DEFOP 0,UNDEF 0 9 REM PST 1 PST APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR. 704 FORTRAN II / SECTONR ONE. 29 OCT 58 SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000 FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR 4F10001 NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A 4F10002 PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION 4F10003 IN TABLES. 4F10004 THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= 4F10005 COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006 THROUGHTOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL 4F10007 STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B, 4F10008 C, AND D TREAT ARITHMETIC FORMULAS. 4F10009 4F10010 SECTION 1 / COMMON = 4F10011 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000. 4F10012 00000 ORG 0 4F100121 00000 0 00004 0 00030 PZE ORGCOM,,1TOCS 4F100122 00001 0 00000 0 03437 PZE ORGA-1 4F100123 4F10013 PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10014 EIFNO AND SENSE SWITCH SIMULATORS. 4F10015 TAPE TABLE BUFFERS. 4F10016 TAPE TABLE PARAMETERS - INTET. 4F10017 DRUM TABLE PARAMETERS. 4F10018 FORSUB COUNT AND BUFFER. 4F10019 CIB BUFFER AND PARAMETERS. 4F10020 REMAINING WORKING STORAGE. 4F10021 PART 2 / CONSTANTS USED BY SECTION ONE. 4F10022 PART 3 / SUBROUTINES USED BY SECTION ONE= 4F10023 NAME FUNCTION 4F10024 C0150,2 SCAN, AND CONVERT NUMERICS. 4F10025 C0160,2 SCAN CHARACTERS. 4F10026 C0180,2 CONVERT NUMERICS. 4F10027 C0190X,4 INITIALIZE C0190 TO 1ST WORD OF F. 4F10028 C0390,4 INSERT CHARACTER. 4F10029 C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC. 4F10030 CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES.4F10031 DIM.SR,4 DIMENSION TABLE SEARCH. 4F10032 DRTABS(,4) DRUM TABLE ENTRIES. 4F10033 GETIFN,4 GET INTERNAL FORMULA NUMBER. 4F10034 JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL. 4F10035 MTR000 MONITOR STATES FROM DRUM. 4F10036 RA000,4 COMPUTER RELATIVE ADDRESS. 4F10037 RDRX,4 READ DRUM INTO BUFR. 4F10038 SR6DC1,1 CONVERT 6 BCD DIGITS TO 1 BINARY. 4F10039 SS000,4 SCAN AND PROCESS SUBSCRIPTS. 4F10040 SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES. 4F10041 TESTFX,1 TEST FOR FIXED OR FLOATING POINT. 4F10042 TEST..,4 TEST CHARACTER IN AC. 4F10043 TET00,1 TAPE TABLE ENTRIES. 4F10044 4F10045 DIAG DIAGNOSTIC CALLERS. 4F10046 4F10047 THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F10048 4F10049 ** IN THE ADDRES, TAG, OR DECREMENT OF AN INSTRUCTION 4F10050 INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F10051 * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F10052 THIS LOGICAL BLOCK OR SUBROUTINE. 4F10053 C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F10054 P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F10055 4F10056 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10057 4F10058 COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= 4F10059 00030 ORGCOM ORG 24 4F10060 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10061 4F10062 EIFNO AND SENSE SWITCH SIMULATORS. 4F10063 00030 0 00000 0 00000 EIFNO PZE **,,** EXTERNAL,,INTERAL FORMULA NUMBER. 4F10064 00031 0 00000 0 00002 ENDI1 PZE 2 SIMULATOR FOR SENSE SWITCH 1. 4F10065 00032 0 00000 0 00002 ENDI2 PZE 2 SIMULATOR FOR SENSE SWITCH 2. 4F10066 00033 0 00000 0 00002 ENDI3 PZE 2 SIMULATOR FOR SENSE SWITCH 3. 4F10067 00034 0 00000 0 00002 ENDI4 PZE 2 SIMULATOR FOR SENSE SWITCH 4. 4F10068 00035 0 00000 0 00002 ENDI5 PZE 2 SIMULATOR FOR SENSE SWITCH 5. 4F10069 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10070 4F10071 BUFFERS USED BY TET00 FOR THE TAPE TABLES. 4F10072 00036 TEIFNO BSS 10 EXTERNAL,,INTERNAL FORMULA NUMBERS.4F10073 00050 TDO BSS 10 DO STATEMENTS. 4F10074 00062 TIFGO BSS 10 IF AND GO TO STATEMENTS. 4F10075 00074 TRAD BSS 10 IF AND GO TO TRANSFER ADDRESSES. 4F10076 00106 FORTAG BSS 10 INDEXES TO TAU AND SIGMA TABLES. 4F10077 00120 FORVAR BSS 10 RIGHT - NON-SUB. FX. PT. VARIABLES.4F10078 00132 FORVAL BSS 10 LEFT - NON-SUB. FX. PT. VARIABLES.4F10079 00144 FRET BSS 10 FREQUENCY STATEMENTS. 4F10080 00156 EQUIT BSS 10 EQUIVALENCE STATEMENTS. 4F10081 00170 CLOSUB BSS 10 NAMES OF SUBROUTINES. 4F10082 00202 FORMAT BSS 10 FORMAT STATEMENTS. 4F10083 00214 SUBDEF BSS 10 SUBROUTINE DEFINITION STATEMENTS. 4F10084 00226 COMMON BSS 10 UPPER MEMORY STORAGE STATEMENTS. 4F10085 00240 HOLARG BSS 10 HOLLERITH ARGUMENTS FOR SUBROUTINE.4F10086 00252 NONEXC BSS 10 NON-EXECUTED STATEMENTS. 4F10087 00264 TSTOPS BSS 10 STOP STATEMENTS. 4F10088 00276 CALLFN BSS 10 1ST / LAST IFN FOR CALL STATEMENTS.4F10089 00310 FMTEFN BSS 10 TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090 END OF THE TAPE TABLE BUFFERS. 4F10091 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10092 4F10093 INTET/ TABLE PARAMETERS USED BY TET00, WHERE 4F10094 O = ORIGIN OF TABLE BUFFER, 4F10095 B = BUFFER CAPACITY, 4F10096 A = ADDRESS OF TABLE ENTRY, 4F10097 E = ENTRY LENGTH IN WORDS, 4F10098 C = COUNT OF BLOCKS PUT ON TAPE, 4F10099 P = PORTION OF BUFFER THAT IS FULL,4F10100 4F10101 00322 0 00012 0 00036 INTET PZE TEIFNO,,10 00) 0,,B. 4F10102 00323 0 00001 0 00030 PZE EIFNO,,1 A,,E. 4F10103 00324 0 00000 0 00000 PZE **,,** C,,P. 4F10104 4F10105 00325 0 00012 0 00050 PZE TDO,,10 01) 0,,B. 4F10106 00326 0 00005 0 01105 PZE 1C,,5 A,,E. 4F10107 00327 0 00000 0 00000 PZE **,,** C,,P. 4F10108 4F10109 00330 0 00012 0 00062 PZE TIFGO,,10 02) 0,,B. 4F10110 00331 0 00002 0 01105 PZE 1C,,2 A,,E. 4F10111 00332 0 00000 0 00000 PZE **,,** C,,P. 4F10112 4F10113 00333 0 00012 0 00074 PZE TRAD,,10 03) 0,,B. 4F10114 00334 0 00001 0 01112 PZE 1G,,1 A,,E. 4F10115 00335 0 00000 0 00000 PZE **,,** C,,P. 4F10116 4F10117 00336 0 00012 0 00106 PZE FORTAG,,10 04) 0,,B. 4F10118 00337 0 00001 0 01347 PZE G,,1 A,,E. 4F10119 00340 0 00000 0 00000 PZE **,,** C,,P. 4F10120 4F10121 00341 0 00012 0 00120 PZE FORVAR,,10 05) 0,,B. 4F10122 00342 0 00002 0 01347 PZE G,,2 A,,E. 4F10123 00343 0 00000 0 00000 PZE **,,** C,,P. 4F10124 4F10125 00344 0 00012 0 00132 PZE FORVAL,,10 06) 0,,B. 4F10126 00345 0 00002 0 01347 PZE G,,2 A,,E. 4F10127 00346 0 00000 0 00000 PZE **,,** C,,P. 4F10128 4F10129 00347 0 00012 0 00144 PZE FRET,,10 07) 0,,B. 4F10130 00350 0 00001 0 01112 PZE 1G,,1 A,,E. 4F10131 00351 0 00000 0 00000 PZE **,,** C,,P. 4F10132 4F10133 00352 0 00012 0 00156 PZE EQUIT,,10 08) 0,,B. 4F10134 00353 0 00002 0 01105 PZE 1C,,2 A,,E. 4F10135 00354 0 00000 0 00000 PZE **,,** C,,P. 4F10136 4F10137 00355 0 00012 0 00170 PZE CLOSUB,,10 09) 0,,B. 4F10138 00356 0 00001 0 01347 PZE G,,1 A,,E. 4F10139 00357 0 00000 0 00000 PZE **,,** C,,P. 4F10140 4F10141 00360 0 00012 0 00202 PZE FORMAT,,10 10) 0,,B. 4F10142 00361 0 00002 0 01347 PZE G,,2 A,,E. 4F10143 00362 0 00000 0 00000 PZE **,,** C,,P. 4F10144 4F10145 00363 0 00012 0 00214 PZE SUBDEF,,10 11) 0,,B. 4F10146 00364 0 00001 0 01112 PZE 1G,,1 A,,E. 4F10147 00365 0 00000 0 00000 SBDFCN PZE **,,** C,,P. 4F10148 4F10149 00366 0 00012 0 00226 PZE COMMON,,10 12) 0,,B. 4F10150 00367 0 00001 0 01112 PZE 1G,,1 A,,E. 4F10151 00370 0 00000 0 00000 PZE **,,** C,,P. 4F10152 4F10153 00371 0 00012 0 00240 PZE HOLARG,,10 13) 0,,B. 4F10154 00372 0 00001 0 01112 PZE 1G,,1 A,,E. 4F10155 00373 0 00000 0 00000 PZE **,,** C,,P. 4F10156 4F10157 00374 0 00012 0 00252 PZE NONEXC,,10 14) 0,,B. 4F10158 00375 0 00001 0 00030 PZE EIFNO,,1 A,,E. 4F10159 00376 0 00000 0 00000 PZE **,,** C,,P. 4F10160 4F10161 00377 0 00012 0 00264 PZE TSTOPS,,10 15) 0,,B. 4F10162 00400 0 00001 0 00030 PZE EIFNO,,1 A,,E. 4F10163 00401 0 00000 0 00000 PZE **,,** C,,P. 4F10164 4F10165 00402 0 00012 0 00276 PZE CALLFN,,10 16) 0,,B. 4F10166 00403 0 00001 0 01123 PZE CALLNM,,1 A,,E. 4F10167 00404 0 00000 0 00000 PZE **,,** C,,P. 4F10168 4F10169 00405 0 00012 0 00310 PZE FMTEFN,,10 17) 0,,B. 4F10170 00406 0 00001 0 01366 PZE SET,,1 A,,E. 4F10171 00407 0 00000 0 00000 PZE **,,** C,,P. 4F10172 4F10173 00410 BSS 3 EXPANSION SPACE INTET. 4F10174 END OF TAPE TABLE PARAMETERS. 4F10175 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10176 4F10177 ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE 4F10178 ARG1 = 1ST LOCATION OF ARGUMENT, 4F10179 L = LENGTH OF ARGUMENT IN WORDS,4F10180 TDA = LOC. OF NEXT DRUM ENTRY, 4F10181 N = NO. OF ENTRIES ON DRUM, 4F10182 *** = TXL FOR ENTRY SUM TABLES, 4F10183 *** = TXH FOR BLOCK SUM TAB(FLCN),4F10184 FDA = LOC. OF 1ST DRUM ENTRY, 4F10185 K = BUFFER CAPACITY IN ENTRIES, 4F10186 DBL = K*(L+1) FOR ENTRY SUM TABLE,4F10187 DBL = K*L+1 FOR BLOCK SUM TABLE,4F10188 J = DRUM CAPACITY IN ENTRIES, 4F10189 I = 5 - DRUM NUMBER. 4F10190 4F10191 00413 0 00001 0 01350 PZE G+1,,1 FIXCON) ARG1+L,,L 4F10192 00414 0 00000 0 00002 PZE FIXCON,,** TDA,,N 4F10193 00415 -3 00062 0 00002 TXLOP TXL FIXCON,,50*1 *** FDA,,K*L 4F10194 00416 0 00144 0 00144 PZE 50*2,,100 DBL,,J 4F10195 00417 1 00003 0 02073 FXCNIX TXI ALT,,5-2 TXI ALT,,I 4F10196 4F10197 00420 0 00001 0 01350 PZE G+1,,1 FLOCON) ARG1+L,,L 4F10198 00421 0 00000 0 00312 PZE FLOCON,,** TDA,,N 4F10199 00422 3 00062 0 00312 TXHOP TXH FLOCON,,50*1 *** FDA,,K*L 4F10200 00423 0 00702 0 00063 PZE 50*1+1,,450 DBL,,J 4F10201 00424 1 00003 0 02073 FLCNIX TXI ALT,,5-2 TXI ALT,,I 4F10202 4F10203 00425 0 00002 0 01133 PZE E+3+2,,2 TAU1 ) ARG1+L,,L 4F10204 00426 0 00000 0 00000 PZE TAU1,,** TDA,,N 4F10205 00427 -3 00062 0 00000 TXL TAU1,,25*2 *** FDA,,K*L 4F10206 00430 0 00144 0 00113 PZE 25*3,,100 DBL,,J 4F10207 00431 1 00001 0 02073 TAU1IX TXI ALT,,5-4 TXI ALT,,I 4F10208 4F10209 00432 0 00004 0 01135 PZE E+3+4,,4 TAU2 ) ARG1+L,,L 4F10210 00433 0 00000 0 00454 PZE TAU2,,** TDA,,N 4F10211 00434 -3 00060 0 00454 TXL TAU2,,12*4 *** FDA,,K*L 4F10212 00435 0 00132 0 00074 PZE 12*5,,90 DBL,,J 4F10213 00436 1 00001 0 02073 TAU2IX TXI ALT,,5-4 TXI ALT,,I 4F10214 4F10215 00437 0 00006 0 01137 PZE E+3+6,,6 TAU3 ) ARG1+L,,L 4F10216 00440 0 00000 0 01356 PZE TAU3,,** TDA,,N 4F10217 00441 -3 00060 0 01356 TXL TAU3,,8*6 *** FDA,,K*L 4F10218 00442 0 00113 0 00070 PZE 8*7,,75 DBL,,J 4F10219 00443 1 00001 0 02073 TAU3IX TXI ALT,,5-4 TXI ALT,,I 4F10220 4F10221 00444 0 00001 0 01142 PZE E+11+1,,1 SIGMA1) ARG1+L,,L 4F10222 00445 0 00001 0 01230 PZE SIGMA1+2,,1 TDA,,N 4F10223 00446 -3 00036 0 01226 TXL SIGMA1,,30,* *** FDA,,K*L 4F10224 00447 0 00036 0 00074 PZE 30*2,,30 DBL,,J 4F10225 00450 1 00003 0 02073 SIG1IX TXI ALT,,5-2 TXI ALT,,I 4F10226 4F10227 00451 0 00002 0 01107 PZE 1C+2,,2 DIM1 ) ARG1+L,,L 4F10228 00452 0 00000 0 00310 PZE DIM1,,** TDA,,N 4F10229 00453 -3 00000 0 00310 ORGDM1 TXL DIM1,,0 *** FDA,,K*L 4F10230 00454 0 00144 0 00000 PZE 0,,100 DBL,,J 4F10231 00455 1 00002 0 02071 DIM1IX TXI DIMALT,,5-3 TXI ALT,,I 4F10232 4F10233 00456 0 00002 0 01107 PZE 1C+2,,2 DIM2 ) ARG1+L,,L 4F10234 00457 0 00000 0 00764 PZE DIM2,,** TDA,,N 4F10235 00460 -3 00000 0 00764 ORGDM2 TXL DIM2,,0 *** FDA,,K*L 4F10236 00461 0 00144 0 00000 PZE 0,,100 DBL,,J 4F10237 00462 1 00002 0 02071 DIM2IX TXI DIMALT,,5-3 TXI ALT,,I 4F10238 4F10239 00463 0 00003 0 01110 PZE 1C+3,,3 DIM3 ) ARG1+L,,L 4F10240 00464 0 00000 0 01440 PZE DIM3,,** TDA,,N 4F10241 00465 -3 00000 0 01440 ORGDM3 TXL DIM3,,0 *** FDA,,K*L 4F10242 00466 0 00132 0 00000 PZE 0,,90 DBL,,J 4F10243 00467 1 00002 0 02071 DIM3IX TXI DIMALT,,5-3 TXI ALT,,I 4F10244 END OF DRUM TABLE PARAMETERS. 4F10245 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10246 4F10247 COUNT AND BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES. 4F10248 00470 BK BSS 1 FORSUB COUNTER. 4F10249 00471 FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS. 4F10250 END OF FUNCTION COUNT AND BUFFER. 4F10251 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10252 4F10253 PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE. 4F10254 00635 0 00144 0 00000 BS PZE ,,100 CIB CAPACITY (4 * 25). 4F10255 00636 0 00000 0 00000 EC PZE ,,** ENTRY COUNT = NO. WORDS IN CIB. 4F10256 00637 0 00000 0 00000 BBOX PZE ,,** 2S COMPLEMENT OF THE ENTRY COUNT. 4F10257 00640 CIB BSS 100 COMPILED INSTRUCTION BUFFER. 4F10258 END OF CIT PARAMETERS AND BUFFER. 4F10259 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10260 4F10261 ALL OF THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 4F10262 01100 ORG 576 4F102625 01100 ERASE BSS 5 COMMON WORKING STORAGE. 4F10263 01105 1C BSS 5 COMMON WORKING STORAGE. 4F10264 01112 1G BSS 1 COMMON WORKING STORAGE. 4F10265 01113 2G BSS 1 COMMON WORKING STORAGE FOR STATE A.4F10266 01114 3G BSS 1 4F10267 01115 1H BSS 1 4F10268 01116 2H BSS 1 4F10269 01117 3LBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10270 01120 ARERAS BSS 1 STORAGE USED BY ARITHMETIC. 4F10271 01121 -0 00001 0 00004 ARGCNT MZE 4,,1 ARGUMENT COUNTER USED BY C30,C32. 4F10272 01122 ARGCTR BSS 1 STORAGE USED BY ARITHMETIC. 4F10273 01123 0 00000 0 00000 CALLNM PZE **,,** 4F10274 01124 CHSAVE BSS 1 WORKING STORAGE USED BY ROYCNV. 4F10275 01125 DIMSAV BSS 1 WORKING STORAGE USED BY SS000. 4F10276 01126 E BSS 14 WORKING STORAGE USED BY SS000. 4F10277 01144 EPSM3 BSS 3 4F10278 01147 EPS BSS 1 EPSILON - VARIABLE USED BY RA000. 4F10279 01150 E1C BSS 1 COMMON WORKING STORAGE. 4F10280 01151 EFN BSS 1 EXTERNAL FORMULA NUMBER (F-1). 4F10281 01152 F BSS 111 ASSEMBLED STATEMENT REGION. 4F10282 01331 FIRSTC BSS 1 USED BY SS000,TESTFX,C3000. 4F10283 01332 FSNAME BSS 1 NAME OF FUNCTION. 4F10284 01333 FT BSS 12 SOURCE PROGRAM INPUT BUFFER. 4F10285 01347 G BSS 2 4F10286 01351 GTAG BSS 1 VARIABLE USED BY IOT, RA. 4F10287 01352 307400000000 HOLCNT BCD 1H(0000 WORKING STORAGE USED BY C3300. 4F10288 01353 I BSS 1 4F10289 01354 LEFT BSS 3 STORAGE USED BY ARITHMETIC. 4F10290 01357 0 00000 0 00000 LENGTH PZE **,,** 4F10291 01360 NBAR BSS 1 STORAGE USED BY ARITHMETIC. 4F10292 01361 N2 BSS 1 4F10293 01362 OPNWRD BSS 1 ERASEABLE USED BY STATE D. 4F10294 01363 0 00000 0 00000 PHI(I) PZE **,,** 4F10295 01364 0 00000 0 00010 RAT PZE 8,,** VARIABLE USED BY IOT. 4F10296 01365 RESIDU BSS 1 REMAINDER OF F-REGION WORD.(C0190) 4F10297 01366 1 00000 0 00000 SET PON ** 4F10298 01367 SL BSS 1 4F10299 01370 SYMBOL BSS 1 WORKING STORAGE USED BY SS000. 4F10300 01371 0 00000 0 00370 TL PZE 31*8,,** 4F10301 01372 0 00000 0 00000 TLINE PZE ** VARIABLE USED BY IOT. 4F10302 END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS. 4F10303 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10304 4F10305 COMMON/2-CONSTANTS USED BY SECTION ONE= 4F10306 4F10307 01373 +000000000012 TEN OCT 12 (1010) - CTEST-11 4F10308 01374 +000000000077 ENDMK OCT 77 111111 - CTEST-10 4F10309 01375 +000000000074 OPEN OCT 74 ( - CTEST-9 4F10310 01376 +000000000073 COMMA OCT 73 , - CTEST-8 4F10311 01377 +000000000034 CLOS OCT 34 ) - CTEST-7 4F10312 01400 +000000000013 EQUAL OCT 13 = - CTEST-6 4F10313 01401 +000000000040 11Z OCT 40 - - CTEST-5 4F10314 01402 +000000000061 SLASH OCT 61 / - CTEST-4 4F10315 01403 +000000000033 POINT OCT 33 . - CTEST-3 4F10316 01404 +000000000020 12Z OCT 20 + - CTEST-2 4F10317 01405 +000000000054 STAR OCT 54 * - CTEST-1 4F10318 01406 CTEST BSS 0 ADDRESS USED FOR INDEXING ABOVE. 4F10319 4F10320 01406 000000000000 L(0) BCD 1000000 0 4F10321 01407 000000000001 L(1) BCD 1000001 1 4F10322 01410 000000000002 L(2) BCD 1000002 2 4F10323 01411 000000000003 L(3) BCD 1000003 3 4F10324 01412 000000000004 L(4) BCD 1000004 4 4F10325 01413 000000000005 L(5) BCD 1000005 5 4F10326 01414 000000000006 L(6) BCD 1000006 6 4F10327 01415 000000000007 L(7) BCD 1000007 7 4F10328 01416 000000000010 L(8) BCD 1000008 8 4F10329 01417 000000000011 L(9) BCD 1000009 9 4F10330 01420 +000000000014 MINUS OCT 14 - 4F10331 01421 000000000023 L(C) BCD 100000C C 4F10332 01422 000000000026 L(F) BCD 100000F F 4F10333 01423 000000000030 L(H) BCD 100000H H 4F10334 01424 +000000000032 CHAR2 OCT 32 CONSTANT USED BY CD000. 4F10335 01425 000000000046 L(O) BCD 100000O O (ALPHABETIC) 4F10336 01426 +000000000052 CHAR3 OCT 52 CONSTANT USED BY CD000. 4F10337 01427 +000000000053 SPECOP OCT 53 00000$ 4F10338 01430 +000000000060 BLANK OCT 60 0000000000060 4F10339 01431 000000000062 L(S) BCD 100000S S 4F10340 01432 000000000063 L(T) BCD 100000T T 4F10341 01433 000000000067 L(X) BCD 100000X X 4F10342 01434 000000000071 L(Z) BCD 100000Z Z 4F10343 01435 +000000000072 PM OCT 72 RECORD MARK (ILLEGAL) -CD000 4F10344 01436 +000000000100 BIT29 OCT 100 4F10345 01437 +000000000121 A81 DEC 81 CONSTANT USED BY IOT. 4F10346 01440 +000000000140 L(96) OCT 140 USED BY C0500. 4F10347 01441 +000000000160 L(112) OCT 160 USED BY C0400. 4F10348 01442 +000000000777 MASK3 OCT 777 -ARITHMETIC. 4F10349 01443 +000000001000 1E9 OCT 1000 ADDRESS=8 4F10350 01444 000000002174 L(A() BCD 10000A( INTERNAL FLO-PT VARIABLE PREFIX. 4F10351 01445 000000003074 L(H() BCD 10000H( 4F10352 01446 000000003174 L(I() BCD 10000I( INTERNAL FXD-PT VARIABLE PREFIX. 4F10353 01447 +000000006212 SAPSYM OCT 6212 4F10354 01450 +000000006712 IFSYM OCT 6712 4F10355 01451 +000000007112 CALLER OCT 7112 4F10356 01452 +000000077777 MASK2 OCT 77777 2**15-1 -ARITHMETIC. 4F10357 01453 +000000400000 2E17 OCT 400000 TAG=4 4F10358 01454 +000001000000 2E18 OCT 1000000 DECREMENT=1 4F10359 01455 0 00001 0 00001 DECR1 PZE 1,,1 CONSTANT USED BY DRTABS. 4F10360 01456 +000001000002 ABTAG2 OCT 1000002 CONSTANT USED BY C3200. 4F10361 01457 0 00002 0 00000 D2 PZE ,,2 CONSTANT USED BY IOT. 4F10362 01460 +000002000004 ABTAG3 OCT 2000004 CONSTANT USED BY C3200. 4F10363 01461 0 00003 0 00000 D3CN PZE ,,3 CONSTANT USED BY IOT. 4F10364 01462 +000003077775 BETAD2 OCT 3077775 3*2**18+(-3) -ARITHMETIC. 4F10365 01463 0 00006 0 00000 D6 PZE ,,6 CONSTATN USED BY IOT. 4F10366 01464 0 00020 0 00000 FSIND PZE ,,16 4F10367 01465 0 00021 0 00000 DEC17 PZE ,,17 4F10368 01466 0 00022 0 00000 DEC18 PZE ,,18 4F10369 01467 +000032000000 PZ OCT 32000000 PLUS ZERO -CD000. 4F10370 01470 +000037777600 MASK5 OCT 37777600 -ARITHMETIC. 4F10371 01471 0 00040 0 00000 FNIND PZE ,,32 4F10372 01472 0 00043 0 00000 DEC35 PZE ,,35 4F10373 01473 +000052000000 MZ OCT 52000000 MINUS ZERO -CD000. 4F10374 01474 +000200000000 NGTBIT OCT 000200000000 4F10375 01475 0 00220 0 00000 BTA PZE ,,144 CONSTANT USED BY IOT. 4F10376 01476 0 00300 0 00000 BDA PZE 0,0,192 CONSTANT USED BY IOT. 4F10377 01477 006060606060 5BLANS BCD 10 006060606060 4F10378 01500 010000000000 E( BCD 1100000 -ARITHMETIC. 4F10379 01501 020000000000 I( BCD 1200000 -ARITHMETIC. 4F10380 01502 030000000000 A( BCD 1300000 -ARITHMETIC. 4F10381 01503 040000000000 P( BCD 1400000 -ARITHMETIC. 4F10382 01504 060000000000 O( BCD 1600000 -ARITHMETIC. 4F10383 01505 070000000000 X( BCD 1700000 -ARITHMETIC. 4F10384 01506 +077775077775 BETAD1 OCT 77775077775 (-3(*2**18+(-3) -ARITHMETIC. 4F10385 01507 +077777000000 1BAR OCT 77777000000 (2**15-1)*2**18DECREMENT MASK. 4F10386 01510 +170000000000 15P DEC 15B5 CONSTANT USED BY IOT. 4F10387 01511 +176060606060 PROCTR OCT 176060606060 4F10388 01512 +200000000000 ADPLUS OCT 200000000000 ADDITION SIGN -ARITHMETIC. 4F10389 01513 217400000000 FLOVAR BCD 1A(0000 A( INTERNAL FLOATING PT. 4F10390 01514 256747740160 FXFX BCD 1EXP(1 4F10391 01515 256747740260 FLFX BCD 1EXP(2 4F10392 01516 256747740360 FLFL BCD 1EXP(3 4F10393 01517 317400000000 FIXVAR BCD 1I(0000 I( INTERNAL FIXED PT. VARIABLE. 4F10394 01520 -0 00000 0 00000 MINUS0 MZE 0 4F10395 01521 -0 00002 0 00000 DECMI2 MZE ,,2 4F10396 01522 -130000000000 ADSPOP OCT 530000000000 $00000 4F10397 01523 -136000000000 DOLSGN OCT 536000000000 CONSTANT USED BY C32000 4F10398 01524 -140000000000 ADSTAR OCT -140000000000 MULTIPLUCATION SIGN -ARITHMETIC. 4F10399 01525 -145400000000 STRSTR OCT -145400000000 EXPONENTIATION SIGN -ARITHMETIC. 4F10400 01526 606060606060 BLANKS BCD 1 606060606060 4F10401 01527 -377777700000 MASK1 OCT -377777700000 -(2**20-U.***15 -ARITHMETIC. 4F10402 01530 -377777777737 MASK4 OCT -377777777737 -ARITHMETIC 4F10403 01531 -377777777777 ALL1 OCT -377777777777 END OF STATMENT WORD. 4F10404 4F10405 01532 212424000000 L(ADD) BCD 1ADD000 SYMBOLIC OPERATION CODE. 4F10406 01533 214362000000 L(ALS) BCD 1ALS000 SYMBOLIC OPERATION CODE. 4F10407 01534 214521000000 L(ANA) BCD 1ANA000 SYMBOLIC OPERATION CODE. 4F10408 01535 215162000000 L(ARS) BCD 1ARS000 SYMBOLIC OPERATION CODE. 4F10409 01536 226262000000 L(BSS) BCD 1BSS000 SYMBOLIC OPERATION CODE. 4F10410 01537 232143000000 L(CAL) BCD 1CAL000 4F10411 01540 233062000000 L(CHS) BCD 1CHS000 SYMBOLIC OPERATION CODE. 4F10412 01541 234321000000 L(CLA) BCD 1CLA000 SYMBOLIC OPERATION CODE. 4F10413 01542 234344000000 L(CLM) BCD 1CLM000 SYMBOLIC OPERATION CODE. 4F10414 01543 234362000000 L(CLS) BCD 1CLS000 SYMBOLIC OPERATION CODE. 4F10415 01544 234770000000 L(CPY) BCD 1CPY000 4F10416 01545 242363000000 L(DCT) BCD 1DCT000 SYMBOLIC OPERATION CODE. 4F10417 01546 242524000000 L(DED) BCD 1DED000 4F10418 01547 246547000000 L(DVP) BCD 1DVP000 SYMBOLIC OPERATION CODE. 4F10419 01550 262124000000 L(FAD) BCD 1FAD000 SYMBOLIC OPERATION CODE. 4F10420 01551 262447000000 L(FDP) BCD 1FDP000 SYMBOLIC OPERATION CODE. 4F10421 01552 264447000000 L(FMP) BCD 1FMP000 SYMBOLIC OPERATION CODE. 4F10422 01553 266222000000 L(FSB) BCD 1FSB000 SYMBOLIC OPERATION CODE. 4F10423 01554 304751000000 L(HPR) BCD 1HPR000 SYMBOLIC OPERATION CODE. 4F10424 01555 432421000000 L(LDA) BCD 1LDA000 4F10425 01556 432450000000 L(LDQ) BCD 1LDQ000 SYMBOLIC OPERATION CODE. 4F10426 01557 434362000000 L(LLS) BCD 1LLS000 SYMBOLIC OPERATION CODE. 4F10427 01560 435162000000 L(LRS) BCD 1LRS000 SYMBOLIC OPERATION CODE. 4F10428 01561 436724000000 L(LXD) BCD 1LXD000 SYMBOLIC OPERATION CODE. 4F10429 01562 444770000000 L(MPY) BCD 1MPY000 SYMBOLIC OPERATION CODE. 4F10430 01563 446225000000 L(MSE) BCD 1MSE000 SYMBOLIC OPERATION CODE. 4F10431 01564 465121000000 L(ORA) BCD 1ORA000 SYMBOLIC OPERATION CODE. 4F10432 01565 476225000000 L(PSE) BCD 1PSE000 SYMBOLIC OPERATION CODE. 4F10433 01566 476724000000 L(PXD) BCD 1PXD000 SYMBOLIC OPERATION CODE. 4F10434 01567 504751000000 L(QPR) BCD 1QPR000 CONSTANT USED BY C3200. 4F10435 01570 506724000000 L(QXD) BCD 1QXD000 CONSTANT USED BY C3200. 4F10436 01571 626321000000 L(STA) BCD 1STA000 SYMBOLIC OPERATION CODE. 4F10437 01572 626346000000 L(STO) BCD 1STO000 SYMBOLIC OPERATION CODE. 4F10438 01573 626350000000 L(STQ) BCD 1STQ000 SYMBOLIC OPERATION CODE. 4F10439 01574 626422000000 L(SUB) BCD 1SUB000 SYMBOLIC OPERATION CODE. 4F10440 01575 626724000000 L(SXD) BCD 1SXD000 SYMBOLIC OPERATION CODE. 4F10441 01576 633167000001 L(TIX) BCD 1TIX001 4F10442 01577 634665000000 L(TOV) BCD 1TOV000 SYMBOLIC OPERATION CODE. 4F10443 01600 635046000000 L(TQO) BCD 1TQO000 SYMBOLIC OPERATION CODE. 4F10444 01601 635121000000 L(TRA) BCD 1TRA000 SYMBOLIC OPERATION CODE. 4F10445 01602 636267000000 L(TSX) BCD 1TSX000 SYMBOLIC OPERATION CODE. 4F10446 01603 642621000000 L(UFA) BCD 1UFA000 SYMBOLIC OPERATION CODE. 4F10447 END OF COMMON CONSTANTS USED BY SECTION ONE. 4F10448 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449 4F10450 COMMON/3-SUBROUTINES USED BY SECTION ONE= 4F10451 4F10452 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453 4F10454 C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100. 4F10455 C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456 = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- 4F10457 NUMERIC, SETS I = -O, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458 UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC. 4F10459 01604 -0 63400 2 01607 C0150 SXD C015X,2 SAVE THE C(XR2). 4F10460 01605 0 07400 4 01707 TSX C0190,4 * TEST 1ST NON-BLANK CHARACTER 4F10461 01606 0 34000 0 01417 CAS L(9) FOR NUMERIC OR NON-NUMERIC. 4F10462 01607 1 00000 0 01615 C015X TXI C0151,0,** IF NON-NUMERIC, TRANSFER. 4F10463 01610 0 76100 0 00000 NOP IF NUMERIC, THEN 4F10464 01611 0 07400 2 01655 TSX C0180,2 * GO CONVERT TO BINARY. 4F10465 01612 0 60100 0 01113 STO 2G SAVE NEXT NON-NUERIC CHARACTER. 4F10466 01613 0 50000 0 01406 CLA L(0) PREPARE TO SET I TO +0. 4F10467 01614 1 00000 0 01620 FWA TXI C0152,0,** GO SET I FOR NUMERIC. 4F10468 01615 0 07400 2 01624 C0151 TSX C0160,2 * ASSEMBLE NON-NUMERICS IN 1G. 4F10469 01616 0 60100 0 01113 STO 2G SAVE PUNCTUATION MARK, AND 4F10470 01617 0 50200 0 01406 CLS L(0) PREPARE TO SET I TO -0. 4F10471 01620 0 60100 0 01353 C0152 STO I SET I = +0, OR -0. 4F10472 01621 0 50000 0 01113 CLA 2G PICKUP NEXT CHARACTER, 4F10473 01622 -0 53400 2 01607 LXD C015X,2 RESTORE THE C(XR2), AND 4F10474 01623 0 02000 2 00001 TRA 1,2 * RETURN TO CALLER. 4F10475 END OF PROGRAM C0150. 4F10476 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477 4F10478 C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200, 4F10479 C1500,C3000,C3100,C0150. 4F10480 C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND 4F10481 SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482 IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A 4F10483 BLANK, IF LESS THEN 6 CHARACTERS. 4F10484 01624 -0 63400 2 01631 C0160 SXD C016X,2 SAVE THE C(XR2), AND 4F10485 01625 0 53400 2 01406 LXA L(0),2 SET XR2 TO CONTROL SHIFTING. 4F10486 01626 0 60000 0 01112 STZ 1G CLEAR WORKING STORAGE. 4F10487 01627 0 53400 4 02652 C0161 LXA CTESTX,4 TEST 4F10488 01630 0 34000 4 01406 C0162 CAS CTEST,4 CHARACTER 4F10489 01631 1 00000 0 01633 C016X TXI C0163,0,** IN THE AC 4F10490 D 01632 1 00000 0 01642 TXI C0165,0 AGAINST 4F10491 01633 2 00001 4 01630 C0163 TIX C0162,4,1 ALL PUNCTUATIONS. 4F10492 01634 -3 00036 2 01636 TXL C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, 4F10493 01635 0 07400 4 03400 TSX DIAG,4 * GO TO THE DIAGNOSTIC. 4F10494 01636 0 76700 2 00036 C0164 ALS 30,2 BUILD LEFT-ADJUSTED 4F10495 01637 -0 60200 0 01112 ORS 1G SYMBOL IN WORKING STORAGE. 4F10496 01640 0 07400 4 01707 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F10497 01641 1 00006 2 01627 TXI C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. 4F10498 01642 3 00000 2 01644 C0165 TXH C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER. 4F10499 01643 0 07400 4 03400 C0166 TSX DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. 4F10500 01644 -3 00005 4 01643 C0167 TXL C0166,4,5 IF LEGAL PUNCTUATION, THEN 4F10501 01645 0 60100 0 01115 STO 1H SAVE, AND 4F10502 01646 0 50000 0 01430 CLA BLANK ADD A BLANK 4F10503 01647 0 76700 2 00036 ALS 30,2 TO SYMBOLS THAT ARE LESS 4F10504 01650 -0 60200 0 01112 ORS 1G THEN 6 CHARACTERS IN LENGTH. 4F10505 01651 0 50000 0 01115 CLA 1H PICKUP PUNCTUATION MARK, 4F10506 01652 -0 53400 2 01631 LXD C016X,2 RESTORE THE C(XR2), AND 4F10507 01653 0 02000 2 00001 TRA 1,2 * RETURN TO CALLER. 4F10508 END OF PROGRAM C0160. 4F10509 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510 4F10511 C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400, 4F10512 C1000,C1100,C1200,C1400,C1500,C0150. 4F10513 C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO 4F10514 BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN 4F10515 THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC. 4F10516 01654 0 07400 4 01707 C0180X TSX C0190,4 * OBTAIN 1ST NUMERIC IN THE AC. 4F105165 01655 0 60100 0 01112 C0180 STO 1G PLACE 1ST NUMERIC IN 1G. 4F10517 01656 0 07400 4 01707 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F10518 01657 0 34000 0 01417 CAS L(9) AND IF NON-NUMERIC, THEN 4F10519 01660 0 02000 2 00001 TRA 1,2 * RETURN TO CALLER. 4F10520 01661 0 76100 0 00000 NOP IF NUMERIC, THEN 4F10521 01662 0 60100 0 01113 STO 2G SAVE DIGIT IN 2G. 4F10522 01663 0 50000 0 01112 CLA 1G MULTIPLY 4F10523 01664 0 76700 0 00002 ALS 2 C(1G) 4F10524 01665 0 40000 0 01112 ADD 1G BY 4F10525 01666 0 76700 0 00001 ALS 1 10, 4F10526 01667 0 40000 0 01113 ADD 2G AND ADD CURRENT DIGIT. 4F10527 01670 1 76626 0 01655 DCF TXI C0180,0,-F REPEAT PROCESS FOR NEXT CHARACTER. 4F10528 END OF PROGRAM C0180. 4F10529 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530 4F10531 C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300. 4F10532 C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F. 4F10533 01671 0 50000 0 01670 C0190X CLA DCF SET FORMULA WORD 4F10534 01672 0 62200 0 01614 STD FWA ADDRESS = -(F-REGION ADDRESS), 4F10535 01673 -0 63400 0 01724 SXD CHCTR,0 SET CHARACTER COUNT = 0, 4F10536 01674 0 02000 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10537 END OF PROGRAM C0190X. 4F10538 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539 4F10540 C0390,4/ CALLERS=C0300,C3300. 4F10541 C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION 4F10542 TO THE LEFT OF THAT DEFINED BY FWA AND XR1 4F10543 01675 0 50000 0 01374 C0390 CLA ENDMK PREPARE TO CHANGE 4F10544 01676 -0 53400 2 01614 LXD FWA,2 THE PROPER CHARACTER 4F10545 01677 -0 53400 1 01724 LXD CHCTR,1 IN THE F-REGION. 4F10546 01700 -2 00001 1 01703 TNX C0393,1,1 ADJUST MASK 4F10547 01701 -0 76300 0 00006 C0392 LGL 6 TO POSITION 4F10548 01702 2 00001 1 01701 TIX C0392,1,1 CHARACTER 4F10549 01703 0 76000 0 00006 C0393 COM INVERT MASK, AND 4F10550 01704 0 32000 2 77777 ANS -1,2 ERASE PROPER CHARACTER. 4F10551 01705 -0 76300 0 00044 LGL 36 ADJUST CHARACTER, AND 4F10552 01706 -0 60200 2 77777 ORS -1,2 INSERT IN ERASED POSITION. 4F10553 C0390 CONTINUES BY USING C0190. 4F10554 4F10555 C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C200,C00300,C0400, 4F10556 C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557 C3300,C3400,C0150,C0160,C0190,SS000,ROYCNV,RSC,LPR. 4F10558 C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559 01707 -0 63400 1 01723 C0190 SXD C0194,1 SAVE THE C(XR1), AND 4F10560 01710 -0 53400 1 01724 LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F10561 01711 0 56000 0 01365 LDQ RESIDU PICK UP ANY REMAINING CHARACTERS. 4F10562 01712 2 00001 1 01720 C0191 TIX C0193,1,1 IF NONE, 4F10563 01713 -0 53400 1 01614 LXD FWA,1 PICK UP NEXT FORMULA 4F10564 01714 0 56000 1 00000 LDQ 0,1 WORD FROM F-REGION, 4F10565 01715 1 77777 1 01716 TXI C0192,1,-1 AND INCREASE 4F10566 01716 -0 63400 1 01614 C0192 SXD FWA,1 FORMULA WORD ADDRESS BY 1. 4F10567 01717 0 53400 1 01414 LXA L(6),1 RESET XR1 FOR 6 NEW CHARACTERS. 4F10568 01720 -0 75400 0 00000 C0193 PXD ,0 EXAMINE 4F10569 01721 -0 76300 0 00006 LGL 6 NEXT CHARACTER 4F10570 01722 0 34000 0 01430 CAS BLANK AND COMPARE WITH A BLANK. 4F10571 01723 1 00000 0 01725 C0194 TXI C0195,0,** IF BLANK, 4F10572 01724 1 00000 0 01712 CHCTR TXI C0191,0,** GO EXAMINE NEXT CHARACTER. 4F10573 01725 -0 63400 1 01724 C0195 SXD CHCTR,1 IF NOT BLANK, RESET CHAR COUNT, 4F10574 01726 -0 60000 0 01365 STQ RESIDU SAVE ANY REMAINING CHARACTERS, 4F10575 01727 -0 53400 1 01723 LXD C0194,1 RESTORE THE C(XR1), AND 4F10576 01730 0 02000 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10577 END OF PROGRAM C0190. 4F10578 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579 4F10580 CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600, 4F10581 C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT), 4F10582 ETMSW(LTMSW),LIB,VRA(VRD). 4F10583 CIT00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN 4F10584 THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. 4F10585 01731 -0 63400 2 01102 CIT00 SXD CITXR2,2 SAVE THE C(XR2). 4F10586 01732 -0 63400 1 01101 SXD CITXR1,1 SAVE THE C(XR1). 4F10587 01733 -0 60000 0 01150 STQ CITMQR SAVE THE C(MQR). 4F10588 01734 -0 53400 2 00637 LXD BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589 01735 0 50000 0 00635 CLA BS COMPARE BLOCK SIZE 4F10590 01736 0 40200 0 00636 SUB EC WITH ENTRY COUNT. 4F10591 01737 -0 10000 0 01747 TNZ CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592 01740 0 76600 0 00223 WRS CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593 01741 0 73400 1 00000 PAX ,1 SET XR1 = 0, AND 4F10594 01742 0 70000 1 00640 CIT01 CPY CIB,1 COPY SUCCESSIVE 4F10595 01743 1 77777 1 01744 TXI CIT02,1,-1 WORDS OF BLOCK 4F10596 01744 1 00001 2 01745 CIT02 TXI CIT03,2,1 AND CONTINUE 4F10597 01745 3 00001 2 01742 CIT03 TXH CIT01,2,1 UNTIL XR2 = 0. 4F10598 01746 0 76600 0 00333 IOD WHEN DONE, 4F10599 01747 0 53400 1 01412 CIT04 LXA L(4),1 SET XR1 = ENTRY SIZE. 4F10600 01750 1 77777 4 01751 CIT05 TXI CIT05+1,4,-1 SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601 01751 0 50000 4 00000 CLA 0,4 AND PICK UP ADDRESS OF NEXT ENTRY 4F10602 01752 0 62100 0 01753 STA CIT06 TO SET NEXT ADDRESS. 4F10603 01753 0 50000 0 00000 CIT06 CLA ** MOVE ENTRY 4F10604 01754 0 60100 2 00640 STO CIB,2 INTO CIB BUFFER, 4F10605 01755 1 77777 2 01756 TXI CIT07,2,-1 AND COUNT 1 FOR EACH WORD ENTERED. 4F10606 01756 2 00001 1 01750 CIT07 TIX CIT05,1,1 WHEN DOEN, 4F10607 01757 -0 63400 2 00637 SXD BBOX,2 SAVE THE C(XR2), AND 4F10608 01760 -0 75400 2 02032 DMSR99 PXD DMSR05+1,2 COMPUTE THE 4F10609 01761 0 76000 0 00006 COM REAL NUMBER 4F10610 01762 0 40000 0 01454 ADD 2E18 OF WORDS ENTERED 4F10611 01763 -0 73400 2 02031 DMSR98 PDX DMSR05,2 IN CIB BUFFER, AND 4F10612 01764 -0 63400 2 00636 SXD EC,2 SAVE IN EC. 4F10613 01765 0 56000 0 01150 LDQ CITMQR RESTORE THE C(MQR), 4F10614 01766 -0 53400 1 01101 LXD CITXR1,1 RESTORE THE C(XR1), 4F10615 01767 -0 53400 2 01102 LXD CITXR2,2 RESTORE THE C(XR2), AND 4F10616 01770 0 02000 4 00001 TRA 1,4 * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617 END OF PROGRAM CIT00. 4F10618 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619 4F10620 DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA. 4F10621 DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR, 4F10622 DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. 4F10623 DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. 4F10624 01771 -0 63400 4 01774 DIM1SR SXD DMSR00,4 SAVE THE C(XR4) FOR RETURN, 4F10625 01772 -0 53400 4 00452 LXD DIM1IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM14F10626 01773 0 50000 0 00453 CLA ORGDM1 AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627 01774 1 00000 0 02000 DMSR00 TXI DMSR01,0,** GO SET DRUM ADDRESS. 4F10628 DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE. 4F10629 01775 -0 63400 4 01774 DIM2SR SXD DMSR00,4 SAVE THE C(XR) FRO RETURN. 4F10630 01776 -0 53400 4 00457 LXD DIM2IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM24F10631 01777 0 50000 0 00460 CLA ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632 02000 0 62100 0 01104 DMSR01 STA DRMADR SET DRUM ADDRESS. 4F10633 02001 0 50000 0 01760 CLA DMSR99 SET LOOP ADDRESS TO 4F10634 02002 0 62100 0 02041 STA DMSR15 DMSR05+1 FOR DIM1 AND DIM2. 4F10635 02003 -0 50000 0 02065 CAL DMCN12 (STZ D3) 4F10636 02004 1 00000 0 02014 DMSR11 TXI DMSR02,0,** GO SET OP FRO DIM1 AND DIM2. 4F10637 DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. 4F10638 02005 -0 63400 4 01774 DIM3SR SXD DMSR00,4 SAVE THE C(XR4) FRO RETURN, 4F10639 02006 -0 53400 4 00464 LXD DIM3IX-3,4 SET XR4 = NUMBER OF ENTRIES IN DIM34F10640 02007 0 50000 0 00465 CLA ORGDM3 AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641 02010 0 62100 0 01104 STA DRMADR SET DRUM ADDRESS. 4F10642 02011 0 50000 0 01763 CLA DMSR98 SET LOOP ADDRESS TO 4F10643 02012 0 62100 0 02041 STA DMSR15 DMSR05 FOR DIM3. 4F10644 02013 -0 50000 0 02066 CAL DMCN3 (CPY D3) 4F10645 02014 0 60200 0 02031 DMSR02 SLW DMSR05 SET OP CODES ACCORDING 4F10646 02015 0 60200 0 02044 SLW DMSR07 TO DIMENSION. 4F10647 02016 -3 00000 4 02047 TXL DMSR08,4,0 IF TABLE IS EMPTY, GO OUT. 4F10648 02017 -0 63400 4 02004 SXD DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649 02020 0 53400 4 01413 DMSR14 LXA L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. 4F10650 02021 -0 63400 4 02035 DMSR13 SXD DMSR12,4 SAVE ERROR COUNTER, AND 4F10651 02022 -0 53400 4 02004 LXD DMSR11,4 RESET ENTRY COUNT. 4F10652 02023 0 76200 0 00303 RDR 3 SELECT DRUM. 4F10653 02024 0 50000 0 01130 CLA E+2 GET NAME OF VARIABLE. 4F10654 02025 0 46000 0 01104 LDA DRMADR LOAD CURRENT DRUM ADDRESS, AND 4F10655 02026 0 70000 0 01100 DMSR04 CPY DRSYM COPY DRUM SYMBOL. 4F10656 02027 0 04000 0 02043 TLQ DMSR06 COMPARE WITH NAME OF VARIABLE, AND 4F10657 02030 0 70000 0 01101 CPY D12 IF NOT LESS, COPY N1 AND N2. 4F10658 02031 0 00000 0 01102 DMSR05 PZE D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY).4F10659 02032 0 70000 0 01103 CPY DRCKSM COPY CHECKSUM. 4F10660 02033 0 34000 0 01100 CAS DRSYM COMPARE DRUM SYMBOL WITH ANEM OF V.4F10661 02034 0 07400 4 03400 TSX DIAG,4 * GO TO DIGNOSTIC - MACHINE ERROR. 4F10662 02035 1 00000 0 02051 DMSR12 TXI DMSR09,0,** IF NOT EQUAL, THEN 4F10663 02036 0 70000 0 01100 CPY DRSYM CONTINUE 4F10664 02037 0 04000 0 02043 TLQ DMSR06 PROCESS 4F10665 02040 0 70000 0 01101 CPY D12 UNTIL 4F10666 02041 2 00001 4 00000 DMSR15 TIX **,4,1 TABLE 4F10667 D 02042 1 00000 0 02047 TXI DMSR08,0 IS EXHAUSTED. 4F10668 02043 0 70000 0 01101 DMSR06 CPY D12 PASS OVER ENTRY 4F10669 02044 0 00000 0 01102 DMSR07 PZE D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY) 4F10670 02045 0 70000 0 01103 CPY DRCKSM AND CHECKSUM, AND 4F10671 02046 2 00001 4 02026 TIX DMSR04,4,1 REPEAT LOOP. 4F10672 02047 -0 53400 4 01774 DMSR08 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10673 02050 0 02000 4 00001 TRA 1,4 * TAKE NOT FOUND EXIT. 4F10674 02051 -0 50000 0 01100 DMSR09 CAL DRSYM COMPUTE A 4F10675 02052 0 36100 0 01101 ACL D12 NEW 4F10676 02053 0 36100 0 01102 ACL D3 LOGICAL CHECKSUM 4F10677 02054 0 76000 0 00006 COM FOR ENTRY. AND 4F10678 02055 0 36100 0 01103 ACL DRCKSM COMPARE WITH 4F10679 02056 0 76000 0 00006 COM DRUM CHECKSUM. 4F10680 02057 0 10000 0 02063 TZE DMSR10 IF NOT EQUAL, THEN 4F10681 02060 -0 53400 4 02035 LXD DMSR12,4 REPEAT ATTEMPT, 4F10682 02061 2 00001 4 02021 TIX DMSR13,4,1 UNLESS PROCESS 4F10683 02062 0 07400 4 03400 TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F10684 02063 -0 53400 4 01774 DMSR10 LXD DMSR00,4 RESTORE THE C(XR4), AND 4F10685 02064 0 02000 4 00002 TRA 2,4 * TAKE FOUND EXIT TO MAIN ROTUINE. 4F10686 4F10687 02065 0 60000 0 01102 DMCN12 STZ D3 CONSTANT USED BY DIM.SR. 4F10688 02066 0 70000 0 01102 DMCN3 CPY D3 CONSTANT USED BY DIM.SR. 4F10689 02067 456351000000 ENT BCD 1NTR000 VARIABLE USED BY IO AND FL. 4F10690 02070 477125000000 NZE BCD 1PZE000 VARIABLE USED BY FL. 4F10691 END OF PROGRAM DIM.SR. 4F10692 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10693 4F10694 DRTABS(,4)/ CALLS RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, 4F10695 VRA(VRD). 4F10696 DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF 4F10697 THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 4F10698 TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFOMATION. 4F10699 DIMALT= ENTRY POINT FOR DIMENSION TABLES. 4F10700 02071 -0 50000 0 00415 DIMALT CAL TXLOP PICK UP SWITCH CONTROL, 4F10701 D 02072 1 00000 0 02074 TXI DRTABS,0 AND GO SET SWITCH FOR DIM TABLES. 4F10702 ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES. 4F10703 02073 0 50000 0 00422 ALT CLA TXHOP PICK UP SWITCH CONTROL, 4F10704 02074 0 63000 0 02135 DRTABS STP DIMSW SET SWITCH. 4F10705 02075 0 50000 4 00000 CLA 0,4 GET CALLER (TSX ....IX,4) IN AC. 4F10706 02076 -0 63400 1 02535 SXD XR1,1 SAVE THE C(XR1), 4F10707 02077 -0 63400 2 02173 SXD XR2,2 SAVE THE C(XR2), 4F10708 02100 -0 63400 4 02215 SXD XR4,4 SAVE THE C(XR4), AND 4F10709 02101 -0 60000 0 02357 STQ MQ SAVE THE C(MQR). 4F10710 02102 0 40000 0 01407 ADD L(1) PREPARE TO MOVE PARAMETERRS 4F10711 02103 0 62100 0 02107 STA MOVE INTO WORKING STORAGE. 4F10712 02104 0 40200 0 01412 SUB L(4) PREPARE TO UPDATE 4F10713 02105 0 62100 0 02213 STA UPDATE PERMANENT PARAMETER. 4F10714 02106 0 53400 1 01413 LXA L(5),1 MOVE 5 WORDS 4F10715 02107 -0 50000 1 00000 MOVE CAL **,1 (....IX+1) 4F10716 02110 0 60200 1 02365 SLW TEMP,1 OF PARAMETERS 4F10717 02111 2 00001 1 02107 TIX MOVE,1,1 INTO WORKING STORAGE. 4F10718 02112 0 50200 0 02360 CLS NAR INITIALIZE 4F10719 02113 0 62100 0 02221 STA TRY ALL 4F10720 02114 0 40000 0 01407 ADD L(1) GENERAL 4F10721 02115 0 62100 0 02200 STA ESUM1 INSTRUCTIONS= 4F10722 02116 0 62100 0 02202 STA ESUM2 X 4F10723 02117 0 77100 0 00021 ARS 17 X 4F10724 02120 0 40100 0 02526 ADM BIAS X 4F10725 02121 0 62100 0 02530 STA JUMP1 X 4F10726 02122 0 62100 0 02555 STA JUMP2 X 4F10727 02123 -0 50000 0 02362 CAL FDA X 4F10728 02124 0 62200 0 02235 STD COMPR X 4F10729 02125 0 63000 0 02530 STP JUMP1 X 4F10730 02126 0 63000 0 02152 STP SW X 4F10731 02127 0 63000 0 02210 STP RX4 X 4F10732 02130 0 50000 0 02533 CLA LBUF X 4F10733 02131 0 62100 0 02222 STA BUFL X 4F10734 02132 0 50000 0 02361 CLA TDA X 4F10735 02133 -0 53400 2 02361 LXD TDA,2 X 4F10736 02134 -0 63400 2 02146 SXD BUFF+1,2 X 4F10737 D 02135 -3 00000 0 02145 DIMSW TXL BUFF,0 IF DIM TABLE, SKIP SEARCH. 4F10738 02136 -3 00000 2 02150 TXL XERR01+1,2,0 SKIP IF TABLE IS EMPTY. 4F10739 02137 -0 53400 1 02360 LXD NAR,1 4F10740 02140 -0 63400 2 02223 SXD NC,2 4F10741 02141 -0 63400 2 02143 SXD ADD01,2 4F10742 02142 -2 00001 1 02235 ADD02 TNX COMPR,1,1 COMPUTES (N*L). 4F10743 02143 1 00000 2 02142 ADD01 TXI ADD02,2,** (N) 4F10744 02144 -0 53400 2 02362 BUFFM1 LXD FDA,2 4F10745 02145 -0 53400 1 02363 BUFF LXD DBL,1 L(J) 4F10746 02146 2 00000 1 02150 TIX BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW. 4F10747 D 02147 1 00000 0 02256 XERR01 TXI WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED.4F10748 02150 -0 53400 1 02364 LXD DI,1 4F10749 02151 0 76600 1 00305 WDR 5,1 4F10750 D 02152 -3 00000 0 02174 SW TXL EBLK,0 ENTER SUM=TXL, BLOCK SUM=TXH. 4F10751 02153 -3 00000 2 02156 TXL ADD04,2,0 SKIP IF TABLE IS EMPTY. 4F10752 02154 1 00001 2 02155 TXI ADD03,2,1 4F10753 02155 -2 00062 2 02163 ADD03 TNX ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. 4F10754 02156 0 60000 0 02365 ADD04 STZ DUMP START NEW BLOCK CHECKSUM. 4F10755 02157 0 50000 0 02361 CLA TDA CHANGE CHECKSUM ADDRESS. 4F10756 02160 0 62100 0 02362 STA FDA 4F10757 02161 0 40000 0 01407 ADD L(1) SET ENTRY ADDR = CHECKSUM ADD +1. 4F10758 02162 0 62100 0 02361 STA TDA 4F10759 02163 -0 50000 0 02365 ADD05 CAL DUMP 4F10760 02164 0 36100 0 01347 ACL G ADD NEW FLOCON TO 4F10761 02165 0 60200 0 02365 SLW DUMP CHECKSUM FOR THIS BLOCK. 4F10762 02166 0 46000 0 02362 LDA FDA 4F10763 02167 0 70000 0 02365 CPY DUMP WRITE BLOCK CHECKSUM ON DRUM. 4F10764 02170 0 76600 1 00305 WDR 5,1 4F10765 02171 0 46000 0 02361 LDA TDA 4F10766 02172 0 70000 0 01347 CPY G WRITE NEW FLOCON ON DRUM. 4F10767 02173 1 00000 0 02205 XR2 TXI NOWIN,0,** GO UPDATE FLOCON PARAMETER. 4F10768 02174 -0 75400 0 00000 EBLK PXD ,0 FOR ALL TABLES EXCEPT FLOCON= 4F10769 02175 -0 53400 2 02360 LXD NAR,2 (L) 4F10770 02176 0 46000 0 02361 LDA TDA NEXT DRUM ENTRY ADDRESS. 4F10771 02177 -2 00001 2 02202 TNX ESUM2,2,1 IF L = 1, 4F10772 02200 -0 70000 2 00000 ESUM1 CAD **,2 (ARG1+L-1) WRITE NEW 4F10773 02201 2 00001 2 02200 TIX ESUM1,2,1 ENTRY ON DRUM. 4F10774 02202 -0 70000 0 00000 ESUM2 CAD ** (ARG1+L-1) 4F10775 02203 0 60200 0 02365 SLW DUMP COMPUTE AND 4F10776 02204 0 70000 0 02365 CPY DUMP WRITE CHECKSUM FOR NEW ENTRY. 4F10777 02205 -0 50000 0 02360 NOWIN CAL NAR UPDATE PERMANENT 4F10778 02206 0 77100 0 00022 ARS 18 PARAMETERS FOR ENTRY 4F10779 02207 0 40000 0 01455 ADD DECR1 JUST ADD TO TABLE. 4F10780 02210 -3 00000 0 02212 RX4 TXL RX4+2,0,** IF TABLE WAS FLOCON, 4F10781 02211 0 40200 0 01407 SUB L(1) READJUST. 4F10782 02212 0 40100 0 02361 ADM TDA N=N+1,TDA=TDA+(L+1) OR (L). 4F10783 02213 0 60100 0 00000 UPDATE STO ** (....IX-3) 4F10784 02214 -0 53400 2 02361 LXD TDA,2 L(N) 4F10785 02215 1 00000 0 02247 XR4 TXI OUT,0,** GET TAG AND EXIT. 4F10786 02216 -0 53400 4 02223 NXBLK LXD NC,4 4F10787 02217 -0 53400 2 02362 LXD FDA,2 L(K*L),K=K. 4F10788 02220 -0 53400 1 02360 NEW LXD NAR,1 L(L) 4F10789 02221 0 50000 1 00000 TRY CLA **,1 (ARG1+L) 4F10790 02222 0 34000 2 00000 BUFL CAS **,2 (BUFR OR CTABL) 4F10791 02223 1 00000 0 02225 NC TXI NC+2,0,** NOT FOUND. 4F10792 02224 1 77777 2 02242 TXI YEA,2,-1 K*L = K*L-1. 4F10793 02225 -2 00001 4 02144 TNX BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. 4F10794 02226 -0 63400 1 02227 SXD NC+4,1 4F10795 02227 2 00000 2 02220 TIX NEW,2,** K = K-1. 4F10796 02230 -0 63400 4 02223 SXD NC,4 SAVE CURRENT VALUE OF N, 4F10797 02231 -0 50000 0 02363 CAL DBL AND GET NEW BLOCK. 4F10798 02232 0 40100 0 02362 ADM FDA 4F10799 02233 0 62100 0 02362 STA FDA 4F10800 02234 -0 53400 2 02241 LXD NTL,2 4F10801 02235 2 00000 2 02237 COMPR TIX COMPR+2,2,** (K*L) 4F10802 02236 -0 63400 2 02362 SXD FDA,2 K*L = (N*L)MOD K*L IF N*L IS 4F10803 02237 -0 63400 2 02241 SXD NTL,2 LESS THAN K*L, OTHERWISE K*L = K*L,4F10804 02240 0 07400 4 02520 TSX RDRX,4 * GO READ NEXT BLOCK INTO BUFFER. 4F10805 02241 1 00000 0 02216 NTL TXI NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806 02242 2 00001 1 02221 YEA TIX TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807 02243 -0 53400 2 02361 LXD TDA,2 (N) 4F10808 02244 -0 63400 4 02245 SXD YEA+3,4 4F10809 02245 2 00000 2 02247 TIX OUT,2,** COMPUTE TAG. 4F10810 02246 0 53400 2 01406 LXA L(0),2 4F10811 02247 -0 75400 2 00000 OUT PXD ,2 EXIT WITH TAG IN THE AC. 4F10812 02250 0 77100 0 00022 ARS 18 (TAG = NUMBER OF ENTRIES 4F10813 02251 -0 53400 2 02173 LXD XR2,2 WHICH PRECEED THE ENTRY 4F10814 02252 -0 53400 4 02215 LXD XR4,4 WHICH EQUALS THE ARGUMENT. 4F10815 02253 -0 53400 1 02535 LXD XR1,1 RESTORE THE C(XR1,XR2,XR4), 4F10816 02254 0 56000 0 02357 LDQ MQ RESTORE THE C(MQR), AND 4F10817 02255 0 02000 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F10818 02256 -0 53400 4 02215 WHICH LXD XR4,4 GET ALPHA BAR, AND 4F10819 02257 0 50000 4 00000 CLA 0,4 AND PICK UP ALPHA (TSX ...NIX,4). 4F10820 02260 -0 32000 0 01452 ANA MASK2 BLANK ALL BUT ...NIX. 4F10821 02261 0 40200 0 02274 SUB CONX (...NIX) - (ADDR OF FIXCNIX-5). 4F10822 02262 0 53400 4 01417 LXA L(9),4 SET XR4 FOR 9 TABLES. 4F10823 02263 0 40200 0 01413 COMPUT SUB L(5) COMPUTE WHICH 4F10824 02264 0 10000 0 02267 TZE WHICHX TABLE OVERFLOWED. 4F10825 02265 2 00001 4 02263 TIX COMPUT,4,1 IF TABLE IS NOT FOUND. 4F10826 02266 0 07400 4 03400 TSX DIAG,4 * GOT TO DIAGNOSTIC. 4F10827 02267 -0 75400 4 00000 WHICHX PXD ,4 OTHERWISE, 4F10828 02270 0 76000 0 00006 COM CONVERT 2S COMPLEMENT 4F10829 02271 0 40000 0 01454 ADD 2E18 OF NUMBER, 4F10830 02272 -0 73400 4 00000 PDX ,4 PLACE IN XR4, AND 4F10831 D 02273 1 00000 0 03400 TXI DIAG,0 * GO TO DIAGNOSTIC. 4F10832 4F10833 02274 0 00000 0 00412 CONX PZE FXCNIX-5 CONSTANT USED BY DRTABS. 4F10834 02357 BUFR BES 50 DRUM TABLE BUFFER. 4F10835 02357 MQ BSS 1 WORKING STORAGE USED BY DRTABS. 4F10836 02360 NAR BSS 1 WORKING STORAGE USED BY DRTABS. 4F10837 02361 TDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10838 02362 FDA BSS 1 WORKING STORAGE USED BY DRTABS. 4F10839 02363 DBL BSS 1 WORKING STORAGE USED BY DRTABS. 4F10840 02364 DI BSS 1 WORKING STORAGE USED BY DRTABS. 4F10841 02365 TEMP BSS 0 INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842 02365 DUMP BSS 1 WORKING STORAGE USED BY DRTABS. 4F10843 END OF PROGRAM DRTABS. 4F10844 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845 4F10846 GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200. 4F10847 GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. 4F10848 02366 -0 53400 1 00030 GETIFN LXD EIFNO,1 PLACE THE INTERNAL FORMULA 4F10849 02367 -0 75400 1 00000 PXD ,1 NUMBER IN XR1, IN THE DECREMENT 4F10850 02370 0 60100 0 01105 STO 1C OF THE AC, AND IN 1C. THEN 4F10851 02371 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F10852 END OF PROGRAM GETIFN. 4F10853 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854 4F10855 JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT), 4F10856 VRA(VRD),C3200. 4F10857 JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858 02372 -0 50000 0 00030 JIF CAL EIFNO INCREASE THE 4F10859 02373 0 40000 0 01454 ADD D1 INTERNAL FORMULA NUMBER 4F10860 02374 0 62200 0 00030 STD EIFNO BY 1. 4F10861 GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT). 4F10862 02375 -0 50000 0 00030 GIF CAL EIFNO PICKUP IFN, 4F10863 02376 -0 32000 0 01507 ANA 1BAR CLEAR SL, AND 4F10864 02377 0 60200 0 01367 L(SL) SLW SL PLACE IFN IN THE DECREMENTS 4F10865 02400 0 62200 0 01371 L(TL) STD TL OF SL AND TL. 4F10866 02401 0 02000 4 00001 TRA 1,4 * EXIT TO CALLER. 4F10867 END OF PROGRAM JIF(GIF). 4F10868 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869 4F10870 MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM. 4F10871 STATEA= ENTRY POINT FOR STATE A. 4F10872 02402 0 53400 4 01412 STATEA LXA L(4),4 SET C(XR4) = 4, THEN 4F10873 D 02403 1 00000 0 02411 TXI MTR1,0 GO GET PARAMETERS. 4F10874 STATEB= ENTRY POINT FOR STATE B. 4F10875 02404 0 53400 4 01410 STATEB LXA L(2),4 SET C(XR4) = 2, THEN 4F10876 D 02405 1 00000 0 02411 TXI MTR1,0 GO GET PARAMETERS. 4F10877 STATEC= ENTRY POINT FOR STATE C. 4F10878 02406 0 53400 4 01407 STATEC LXA L(1),4 SET C(XR4) = 1, THEN 4F10879 02407 1 00000 0 02411 MTRCSL TXI MTR1,0,** GO GET PARAMETERS. 4F10880 STATED= ENTRY POINT FOR STATE D. 4F10881 02410 0 53400 4 01411 STATED LXA L(3),4 SET C(XR4) = 3, THEN 4F10882 02411 0 50000 4 02437 MTR1 CLA ZETA+4,4 OBTAIN THE NUMBER OF WORDS IN THE 4F10883 02412 0 62200 0 02407 STD MTRCSL CURRENT STATE, AND SAVE. 4F10884 02413 0 77100 0 00022 ARS 18 ADD THE NUMBER OF WORDS IN THE 4F10885 02414 0 40000 0 02430 ADD MTR3 CURRENT STATE TO THE MEMORY ORIGIN 4F10886 02415 0 62100 0 02425 STA MTR2 TO SET ADDRESS OF COPY LOOP. 4F10887 02416 0 53400 1 01413 LXA DRMERC,1 SET FOR FIVE ATTEMPTS. 4F10888 02417 0 76200 4 00305 MTR15 RDR 5,4 READ SELECT CURRENT LOGICAL DRUM. 4F10889 02420 -0 53400 2 02407 LXD MTRCSL,2 LENGTH OF CURRENT STATE TO XR2. 4F10890 02421 0 46000 4 02437 LDA ZETA+4,4 THEN COPY 4F10891 02422 -0 75400 0 00000 PXD ,0 CURRENT STATE 4F10892 02423 -0 70000 0 01103 CAD DRCKSM FROM DRUM 4F10893 02424 0 76000 0 00006 COM INTO MEMORY 4F10894 02425 -0 70000 2 00000 MTR2 CAD **,2 WHILE COMPUTING 4F10895 02426 2 00001 2 02425 TIX MTR2,2,1 LOGICAL CHECKSUM. 4F10896 02427 0 76000 0 00006 COM IF THIS EQUALS DRUM CHECKSUM, 4F10897 02430 0 10000 0 03440 MTR3 TZE MEMORG * THEN ENTER CURRENT STATE. 4F10898 02431 2 00001 1 02417 TIX MTR15,1,1 CHECKSUM FAILED, TRY UP TO 5 TIMES.4F10899 02432 1 75346 4 03400 MTRERR TXI DIAG,4,-MTRERR * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900 4F10901 02433 0 02663 0 00000 ZETA PZE DEL(A),,ENDADR-ORGA 4F10902 02434 0 01607 0 01322 PZE DEL(D),,ENDDDR-ORGD 4F10903 02435 0 01302 0 02210 PZE DEL(B),,ENDBDR-ORGB 4F10904 02436 0 01330 0 02373 PZE DEL(C),,ENDCDR-ORGC 4F10905 END OF PROGRAM MTR000. 4F10906 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907 4F10908 RA000,4/ CALLERS=LPR,ARITH. 4F10909 RA000 COMPUTES RELATIVE ADDRESS. 4F10910 02437 -0 63400 4 01100 RA000 SXD RAXR4,4 SAVE THE C(XR4) FOR RETURN. 4F10911 02440 0 60000 0 01147 STZ EPS CLEAR EPSILON (WORKING STORAGE). 4F10912 02441 0 50000 0 01125 CLA DIMSAV EXAMINE THE 4F10913 02442 0 73400 4 01132 ED2 PAX E+4,4 DIMENSION COUNT, AND 4F10914 02443 -3 00002 4 02445 TXL ED1,4,2 IF 3 DIMENSION, 4F10915 02444 0 40000 0 01407 ADD L(1) INCREASE IT 1. 4F10916 02445 0 40100 0 02442 ED1 ADM ED2 THEN SET 4F10917 02446 0 62100 0 02447 STA ED3 ED3 ADDRESS TO 4F10918 02447 0 50000 4 00000 ED3 CLA **,4 EXAMINE SUCCESSIVE 4F10919 02450 0 56000 0 01454 LDQ D1 SUBSCRIPT 4F10920 02451 0 10000 0 02454 TZE ED4 VARIABLES, AND 4F10921 02452 -0 60000 0 01147 STQ EPS ACCORDINGLY SET 4F10922 02453 0 56000 0 01406 LDQ L(0) EPSILON AND 4F10923 02454 -0 60000 4 01147 ED4 STQ EPS,4 EPSILON SUB I 4F10924 02455 2 00001 4 02447 TIX ED3,4,1 TO 1 OR TO 0. WHEN DONE, 4F10925 02456 0 50000 0 01454 CLA D1 IF 1 DIMENSION, PICKUP DECREMENT1, 4F10926 02457 0 53400 4 01125 LXA DIMSAV,4 AND GO SUBTRACT ADDEND 1. 4F10927 02460 -3 00001 4 02511 TXL 1D1,4,1 IF 2 OR 3 DIMENSION, THEN 4F10928 02461 0 56000 0 01141 LDQ E+11 PICKUP ADDENDS 1 AND 2, 4F10929 02462 0 60000 0 01141 STZ E+11 CLEAR E+11, AND 4F10930 02463 -0 62000 0 01141 SLQ E+11 RESTORE ADDEND 1 TO E+11. 4F10931 02464 -0 76300 0 00022 LGL 18 ADJUST AND PLACE 4F10932 02465 -0 60000 0 01361 STQ N2 ADDEND 2 IN N2. 4F10933 02466 0 56000 0 01134 LDQ E+6 AND, IF 2 DIMENSION 4F10934 02467 0 50000 0 01146 CLA EPS-1 PICKUP EPSILON SUB 1, 4F10935 02470 -3 00002 4 02503 TXL 2D1,4,2 AND GO SUBTRACT ADDEND 2. 4F10936 02471 0 40200 0 01142 SUB E+12 IF 3 DIMENSION, SET GTAG 4F10937 02472 0 60100 0 01351 STO GTAG TO EPSILON SUB 1 - ADDEND 3. 4F10938 02473 0 56000 0 01136 LDQ E+8 PICKUP DIMESNIONS 1 AND 2. 4F10939 02474 0 60000 0 01136 STZ E+8 CLEAR E+8, AND 4F10940 02475 -0 62000 0 01136 SLQ E+8 RESTORE DIMENSION 1 TO E+8. 4F10941 02476 -0 76300 0 00022 LGL 18 ADJUST, AND MULTIPLY 4F10942 02477 0 20000 0 01351 MPY GTAG DIMENSION 2 TIMES GTAG. 4F10943 02500 0 76700 0 00021 ALS 17 THEN ADD 4F10944 02501 0 40000 0 01145 ADD EPS-2 EPSILON SUB 2 4F10945 02502 0 56000 0 01136 LDQ E+8 TO THE PRODUCT, AND 4F10946 02503 0 40200 0 01361 2D1 SUB N2 SUBTRACT ADDEND 2. 4F10947 02504 0 60100 0 01351 STO GTAG MULTIPLY 4F10948 02505 0 20000 0 01351 MPY GTAG THE RESULT 4F10949 02506 0 76700 0 00021 ALS 17 TIMES 4F10950 02507 0 40000 4 01147 ADD EPS,4 DIMENSION 1, AND ADD IN EPSILON 4F10951 02510 0 40000 0 01147 ADD EPS SUB I AND EPSILON. 4F10952 02511 0 40200 0 01141 1D1 SUB E+11 SUBTRACT ADDEND 1, 4F10953 02512 0 60100 0 01351 STO GTAG AND PLACE THE RESULT 4F10954 02513 -0 50000 0 01126 CAL E IN THE DECREMENT OF GTAG, 4F10955 02514 0 77100 0 00030 ARS 24 WITH 1-TAUTAG 4F10956 02515 0 62100 0 01351 STA GTAG IN THE ADDRESS. 4F10957 02516 -0 53400 4 01100 LXD RAXR4,4 RESTORE THE C(XR4), AND 4F10958 02517 0 02000 4 00001 TRA 1,4 * EXIT TO CALLER. 4F10959 END OF PROGRAM RAD00. 4F10960 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10961 4F10962 RDRX,4 CALLS=DIAG. CALLER=DRTABS. 4F10963 RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR. 4F10964 02520 0 53400 1 01413 RDRX LXA DRMERC,1 SET FOR 5 ATTEMPTS TO READ DRUM. 4F10965 02521 -0 53400 2 02364 REP LXD DI,2 SET XR2 * (5-DRUM NUMBER). 4F10966 02522 3 00000 2 02524 TXH BIAS-2,2,0 IF NOT GREATER THEN ZERO. 4F10967 02523 0 07400 4 03400 TSX DIAG,4 * GO TO DIAGNOSTIC. 4F10968 02524 0 76200 2 00305 RDR 5,2 SELECT CURRENT DRUM. 4F10969 02525 -0 53400 2 02362 LXD FDA,2 SET XR2 = NO. OF WORDS TO COPY. 4F10970 02526 -0 75400 0 02554 BIAS PXD ETSUM,0 CLEAR THE AC. 4F10971 02527 0 46000 0 02362 LDA FDA DRUM ORIGIN OF CURRENT BLOCK. 4F10972 TD 02530 -3 00000 0 00000 JUMP1 TXL ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. 4F10973 02531 -0 70000 0 02365 CAD DUMP READ 4F10974 02532 0 76000 0 00006 COM FLOCON BLOCK 4F10975 02533 -0 70000 2 02357 LBUF CAD BUFR,2 AND COMPUTE 4F10976 02534 2 00001 2 02533 TIX LBUF,2,1 LOGICAL CHECKSUM. 4F10977 02535 1 00000 0 02562 XR1 TXI PROVE,0,** GO TEST CHECKSUM. 4F10978 02536 0 70000 2 02357 CPY BUFR,2 COPY LOOP 4F10979 02537 -2 00001 2 02564 TNX ERR,2,1 FOR ALL 4F10980 02540 0 70000 2 02357 CPY BUFR,2 COPY LOOP 4F10981 02541 -2 00001 2 02564 TNX ERR,2,1 TABLES 4F10982 02542 0 70000 2 02357 CPY BUFR,2 EXCEPT 4F10983 02543 -2 00001 2 02564 TNX ERR,2,1 FLOCON* 4F10984 02544 0 70000 2 02357 CPY BUFR,2 X 4F10985 02545 -2 00001 2 02564 TNX ERR,2,1 X 4F10986 02546 0 70000 2 02357 CPY BUFR,2 X 4F10987 02547 -2 00001 2 02564 TNX ERR,2,1 X 4F10988 02550 0 70000 2 02357 CPY BUFR,2 X 4F10989 02551 -2 00001 2 02564 TNX ERR,2,1 X 4F10990 02552 0 70000 2 02357 CPY BUFR,2 X 4F10991 02553 0 76100 0 00000 NOP X 4F10992 02554 -0 70000 0 02365 ETSUM CAD DUMP SUM CHECKSUMS. 4F10993 02555 2 00001 2 00000 JUMP2 TIX **,2,1 (ETSUM-2*L) TEST END OF BLOCK. 4F10994 02556 -0 53400 2 02362 RDRXCR LXD FDA,2 COMPUTE 4F10995 02557 0 76000 0 00006 COM NEW 4F10996 02560 0 36100 2 02357 ACL BUFR,2 LOGICAL 4F10997 02561 2 00001 2 02560 TIX RDRXCR+2,2,1 CHECKSUM, AND 4F10998 02562 0 76000 0 00006 PROVE COM IF CHECKSUMS COMPARE 4F10999 02563 0 10000 4 00001 TZE 1,4 * RETURN TO MAIN ROUTINE. 4F11000 02564 2 00001 1 02521 ERR TIX REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001 02565 0 07400 4 03400 TSX DIAG,4 * FAILED 5 TIMES IN READING DRUM. 4F11002 END OF PROGRAM RDRX. 4F11003 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11004 4F11005 SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000. 4F11006 SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV. 4F11007 02566 -0 63400 2 02574 SR6DC1 SXD SR6XR2,2 SAVE THE C(XR2), AND 4F11008 02567 0 53400 2 01414 LXA L(6),2 SET TO COUNT 6 CHARACTERS. 4F11009 02570 0 60000 0 01101 STZ SR6WRK INITIALIZE OUTPUT CELL TO 0. 4F11010 02571 -0 75400 0 00000 SR6DC2 PXD ,0 OBTAIN NEXT CHARACTER 4F11011 02572 -0 76300 0 00006 LGL 6 IN AC AND 4F11012 02573 0 34000 0 01430 CAS ABLANK TEST FOR BLANK. 4F11013 02574 1 00000 0 02576 SR6XR2 TXI SR6DC3,0,** IF NOT BLANK, 4F11014 02575 1 77777 0 02610 ENDWRD TXI SR6DC4,0,-1 (DECR= END OF PROBLEM INDICATOR) 4F11015 02576 0 34000 0 01417 SR6DC3 CAS L(9) TEST FOR NUMERIC. 4F11016 02577 0 07400 4 03400 TSX DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017 02600 0 76100 0 00000 NOP NOP IF NUMERIC, 4F11018 02601 0 60100 0 01102 STO SR6WRK+1 SAVE DIGIT, AND 4F11019 02602 0 50000 0 01101 CLA SR6WRK MULTIPLY PREVIOUS PARTIAL 4F11020 02603 0 76700 0 00002 ALS 2 RESULT BY 10, 4F11021 02604 0 40000 0 01101 ADD SR6WRK AND ADD IN 4F11022 02605 0 76700 0 00001 ALS 1 CURRENT DIGIT, SAVING 4F11023 02606 0 40000 0 01102 ADD SR6WRK+1 NEW PARTIAL RESULT. 4F11024 02607 0 60100 0 01101 STO SR6WRK THEN ADJUST COUNT, AND 4F11025 02610 2 00001 2 02571 SR6DC4 TIX SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, 4F11026 02611 0 50000 0 01101 CLA SR6WRK LEAVE OUTPUT IN AC, 4F11027 02612 -0 53400 2 02574 LXD SR6XR2,2 RESTORE THE C(XR2), AND 4F11028 02613 0 02000 1 00001 TRA TRA 1,1 * EXIT TO MAIN ROUTINE. 4F11029 END OF PROGRAM SR6DC1. 4F11030 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11031 4F11032 SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM,SR,DRTABS,TET00,TESTFX. 4F11033 CALLERS=ARITH,LPR,C0200. 4F11034 SS000 SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES. 4F11035 02614 -0 63400 2 02731 SS000 SXD SXR2,2 SAVE C(XR2), 4F11036 02615 -0 63400 1 02730 SXD SXR1,1 SAVE C(XR1), 4F11037 02616 -0 63400 4 02732 SXD SXR4,4 SAVE C(XR4), AND 4F11038 02617 0 60000 0 01100 STZ DIMCTR SET DIMCTR = 0. 4F11039 02620 0 53400 4 01414 LXA L(6),4 INITIALIZE 4F11040 02621 -0 63400 4 02726 SXD SBS2,4 FOR EACH SUBSCRIPT MEMBER. 4F11041 02622 -0 50000 0 00422 CAL TXHOP PICK UP TXH OP, AND 4F11042 02623 0 63000 0 02776 STP SBC6 SET OP 4F11043 02624 0 63000 0 02777 STP SBC8 SWITCHES. 4F11044 02625 -0 50000 0 00415 CAL TXLOP PICK UP TXL OP, AND 4F11045 02626 0 63000 0 03014 STP SBC4 SET OP SWITCH. 4F11046 02627 0 53400 3 01414 SS001 LXA L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047 02630 0 60000 0 01370 STZ SYMBOL CLEAR WORKING STORAGE. 4F11048 02631 0 07400 4 01707 TSX C0190,4 * GET FIRST NON BLANK CHAR IN THE AC.4F11049 02632 0 34000 0 01417 CAS L(9) COMPARE IT WITH 9. 4F11050 D 02633 1 00000 0 02704 TXI SS0045,0 RETURN TO EXPLICIT CODING. 4F11051 02634 0 76100 0 00000 NOP IF NUMERIC, 4F11052 02635 0 60100 0 01331 STO FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND 4F11053 02636 0 76700 2 00044 SS0012 ALS 36,2 LEFT-ADJUST DIGIT TO 4F11054 02637 -0 60200 0 01370 ORS SYMBOL BUILD SYMBOL. 4F11055 02640 1 00006 2 02641 TXI SS0013,2,6 UPDATE SHIFT DECREMENT, AND 4F11056 02641 1 77777 1 02642 SS0013 TXI SS0014,1,-1 UPDATE COUNT OF CHARS COLLECTED. 4F11057 02642 0 07400 4 01707 SS0014 TSX C0190,4 * GET NEXT NB CHARACTER IN THE AC. 4F11058 02643 0 53400 4 02652 LXA CTESTX,4 SET XR4 = NO. OF PUNCTUATION MARKS.4F11059 02644 0 34000 4 01406 SS0015 CAS CTEST,4 TEST THIS CHARACTER AGAINTT 4F11060 D 02645 1 00000 0 02647 TXI SS0016,0 ALL PUNCTUATION. 4F11061 02646 0 02000 4 02733 TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11062 02647 2 00001 4 02644 SS0016 TIX SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11063 02650 0 34000 0 01417 CAS L(9) TEST FOR NUMERIC 4F11064 D 02651 1 00000 0 02655 TXI SS0017,0 AND IF 4F11065 02652 0 76100 0 00012 CTESTX NOP CTEST-ENDMK FOUND TO BE NUMERIC 4F11066 02653 3 00000 1 02636 TXH SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF 4F11067 D 02654 1 00000 0 02720 TXI STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC. 4F11068 02655 0 07400 1 03242 SS0017 TSX TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. 4F11069 02656 0 07400 4 03400 TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11070 02657 -0 76300 0 00036 LGL 30 RESTORE FIXED POINT VARIABLE 4F11071 02660 0 60200 0 01365 SLW RESIDU TO RESUDU, AND 4F11072 02661 -0 53400 4 01724 LXD CHCTR,4 RESET CHARACTER COUNTER 4F11073 02662 1 00001 4 02663 TXI SS0018,4,1 TO BEGIN PROCESSING 4F11074 02663 -0 63400 4 01724 SS0018 SXD CHCTR,4 SUBSCRIPT MULTIPLIER. 4F11075 02664 0 50200 0 02776 SBX CLS SBC6 TEST FOR 4F11076 02665 -0 12000 0 02667 TMI SBX1 PREVIOUS MULTIPLIER. 4F11077 02666 0 07400 4 03400 TSX DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT. 4F11078 02667 0 60100 0 02776 SBX1 STO SBC6 RESET MULTIPLIER SWITCH. 4F11079 02670 0 50000 0 01331 CLA FIRSTC TEST 4F11080 02671 0 40200 0 01373 SUB L(10) MULTIPLIER 4F11081 02672 -0 12000 0 02674 TMI SBX2 FOR CONSTANT. 4F11082 02673 0 07400 4 03400 TSX DIAG,4 * SUBS-MULTIPLER NOT A CONSTANT. 4F11083 02674 -0 50000 0 01370 SBX2 CAL SYMBOL ADJUST MULTIPLIER 4F11084 02675 0 77100 2 00052 ARS 42,2 TO LOW ORDER POSITION. 4F11085 02676 -0 53400 4 02726 LXD SBS2,4 GET STORING TAG, 4F11086 02677 0 60200 4 01137 SLW E+9,4 AND STORE MULTIPLIER. 4F11087 02700 0 60000 4 01145 STZ E+15,4 SET ADDEND = 0. 4F11088 02701 0 53400 3 01414 SS003 LXA L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND.4F11089 02702 0 60000 0 01370 STZ SYMBOL CLEAR WORKING STORAGE. 4F11090 02703 0 07400 4 01707 SS004 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC.4F11091 02704 0 53400 4 02652 SS0045 LXA CTESTX,4 COMPARE CHARACTER 4F11092 02705 0 34000 4 01406 SS005 CAS CTEST,4 TO ALL 4F11093 D 02706 1 00000 0 02710 TXI SS006,0 PUNCTUATION. 4F11094 02707 0 02000 4 02733 TRA SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. 4F11095 02710 2 00001 4 02705 SS006 TIX SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, 4F11096 02711 -3 00005 1 02713 TXL SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR 4F11097 02712 0 60100 0 01331 STO FIRSTC ADDEND, SAVE FOR LATER TEST. 4F11098 02713 0 76700 2 00044 SS008 ALS 36,2 POSITION EACH CHARACTER. BUT 4F11099 02714 -3 00000 1 02720 SS009 TXL STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. 4F11100 02715 -0 60200 0 01370 ORS SYMBOL BUILD SYMBOL. 4F11101 02716 1 00006 2 02717 TXI SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102 02717 1 77777 1 02703 SS007 TXI SS004,1,-1 UPDAT FOR ANOTHER CHAR COLLECTED. 4F11103 02720 0 07400 4 03400 STOP49 TSX DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F11104 SUBSTR/ CONTROL TRANSFERS FOR SUBSCRIPT SCAN= 4F11105 D 02721 1 00000 0 02722 TXI ISC,0 ENK (ILLEGAL IN LIST SUBSCRIPT). 4F11106 02722 0 07400 4 03400 ISC TSX DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). 4F11107 D 02723 1 00000 0 02772 TXI SBC,0 , 4F11108 D 02724 1 00000 0 02770 TXI SBR,0 ) 4F11109 D 02725 1 00000 0 02722 TXI ISC,0 = (ILLEGAL IN LIST SUBSCRIPT). 4F11110 02726 1 00000 0 02733 SBS2 TXI SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER, 4F11111 D 02727 1 00000 0 02722 TXI ISC,0 / (ILLEGAL IN LIST SUBSCRIPT). 4F11112 02730 1 00000 0 02722 SXR1 TXI ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). 4F11113 02731 1 00000 0 02734 SXR2 TXI SBP,0,** + 4F11114 02732 1 00000 0 02664 SXR4 TXI SBX,0,** * 4F11115 02733 SUBTR BSS 0 INDEXING ADDRESS FOR ABOVE LIST. 4F11116 02733 -0 76000 0 00003 SBM SSM MINUS ADDEND. 4F11117 02734 0 76000 0 00000 SBP CLM PLUS ADDEND. 4F11118 02735 -0 53400 4 02726 LXD SBS2,4 GET STORING TAG, AND 4F11119 02736 0 60100 4 01145 STO E+15,4 STORE SIGN OF ADDEND. 4F11120 02737 0 50200 0 02777 CLS SBC8 TEST SWITCH 4F11121 02740 -0 12000 0 02742 TMI SBP1 FOR PREVIOUS ADDEND. 4F11122 02741 0 07400 4 03400 TSX DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT, 4F11123 02742 0 60100 0 02777 SBP1 STO SBC8 RESET ADDEND SWITCH. 4F11124 02743 0 07400 1 03241 TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11125 02744 0 07400 4 03400 TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11126 02745 -0 53400 4 02726 LXD SBS2,4 GET STORING TAG, AND 4F11127 02746 0 50200 0 02776 CLS SBC6 TEST SWITCH 4F11128 02747 0 12000 0 02754 TPL SBP2 FOR PREVIOUS MULTIPLIER. 4F11129 02750 0 50000 0 01407 CLA L(1) IF NONE, 4F11130 02751 0 60100 4 01137 STO E+9,4 SET MULTIPLIER 4F11131 D 02752 1 00000 0 02755 TXI SBP4,0 TO 1, AND CONTINUE. 4F11132 02753 0 50200 0 02776 SBC1 CLS SBC6 RESET MULTIPLIER 4F11133 02754 0 60100 0 02776 SBP2 STO SBC6 OP SWITCH. 4F11134 02755 -0 50000 0 01370 SBP4 CAL SYMBOL IF VARIABLE SUBSCRIPT. 4F11135 02756 3 00044 2 02762 TXH SBP41,2,36 ADD A BLANK 4F11136 02757 -0 50000 0 01430 CAL BLANK IF LESS 4F11137 02760 0 76700 2 00044 ALS 36,2 THAN 6 4F11138 02761 -0 50100 0 01370 ORA SYMBOL CHARACTERS, AND 4F11139 02762 0 60200 4 01140 SBP41 SLW E+10,4 PLACE IN E-REGION. 4F11140 02763 0 07400 1 03241 TSX TESTFX,1 * GO TO TEST FOR FIXED POINT. 4F11141 02764 0 07400 4 03400 TSX DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC.4F11142 02765 0 50000 0 02777 CLA SBC8 IF THERE IS AN ADDEND, 4F11143 02766 -0 12000 0 02701 TMI SS003 GO COLLECT, OTHERWISE 4F11144 D 02767 1 00000 0 03012 TXI SBC7,0 GO UPDATE STORING TAG. 4F11145 02770 0 50200 0 03014 SBR CLS SBC4 SET SWITCH 4F11146 02771 0 60100 0 03014 STO SBC4 FOR CLOSING PARENTHESIS. 4F11147 02772 -0 50000 0 01100 SBC CAL DIMCTR UPDATE 4F11148 02773 0 40000 0 01407 ADD L(1) DIMENSION COUNTER 4F11149 02774 0 62100 0 01100 STA DIMCTR BY 1. 4F11150 02775 -0 53400 4 02726 LXD SBS2,4 GET STORING TAG. 4F11151 D 02776 3 00000 0 02753 SBC6 TXH SBC1,0 SWITCH-IF NO MULTIPLIER, AND 4F11152 D 02777 3 00000 0 03016 SBC8 TXH SBC2,0 SWITCH-IF NO ADDEND, THEN 4F11153 03000 0 50000 0 01407 CLA L(1) SET 4F11154 03001 0 60100 4 01137 STO E+9,4 MULTIPLIER = 1. 4F11155 03002 0 60000 4 01145 STZ E+15,4 SET ADDEND = 0. 4F11156 03003 0 50000 0 01331 CLA FIRSTC TEST FOR 4F11157 03004 0 40200 0 01373 SUB L(10) CONSTANT OR VARIABLE. 4F11158 03005 0 12000 0 02755 TPL SBP4 IF CONSTANT, THEN 4F11159 03006 0 60000 4 01140 STZ E+10,4 SET VARIABLE = 0. 4F11160 03007 -0 50000 0 01370 SBC9 CAL SYMBOL ADJUST 4F11161 03010 0 77100 2 00052 ARS 42,2 CONSTANT 4F11162 03011 -0 60200 4 01145 ORS E+15,4 TO LOW ORDER POSITION. 4F11163 03012 -2 00002 4 03024 SBC7 TNX SBC3,4,2 UPDATE STORING TAG 4F11164 03013 -0 63400 4 02726 SXD SBS2,4 BY -2, AND SAVE. 4F11165 D 03014 -3 00000 0 02627 SBC4 TXL SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166 D 03015 1 00000 0 03030 TXI SA000,0 GO MAKE TABLE ENTRIES AND GET TAG. 4F11167 03016 0 50200 0 02777 SBC2 CLS SBC8 RESET ADDEND 4F11168 03017 0 60100 0 02777 STO SBC8 OP SWITCH. 4F11169 03020 0 50200 0 01373 CLS L(10) TEST 4F11170 03021 0 40000 0 01331 ADD FIRSTC ADDEND 4F11171 03022 -0 12000 0 03007 TMI SBC9 FOR CONSTANT. 4F11172 03023 0 07400 4 03400 TSX DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT. 4F11173 03024 0 50200 0 03014 SBC3 CLS SBC4 AFTER SCANNING 3 SUBSCRIPTS. 4F11174 03025 -0 12000 0 03030 TMI SA000 GO MAKE TABLE ENTRIES AND GET TAG. 4F11175 03026 0 07400 4 03400 TSX DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS. 4F11176 CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). 4F11177 03027 -0 63400 4 02732 CSA000 SXD SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. 4F11178 03030 0 50000 0 01100 SA000 CLA DIMCTR SAVE 4F11179 03031 0 60100 0 01125 STO DIMSAV THE CONTENTS OF DIMCTR 4F11180 03032 0 76700 0 00041 ALS 33 POSITION AND 4F11181 03033 0 60100 0 01126 STO E STORE I TAG. 4F11182 03034 0 50000 0 01141 CLA E+11 MOVE SUBSCRIPT ADDENDS 4F11183 03035 0 60100 0 01142 STO E+12 INTO POSITION 4F11184 03036 0 50000 0 01137 CLA E+9 FOR FOLLOWING 4F11185 03037 0 60100 0 01141 STO E+11 PROGRAM. 4F11186 03040 0 50000 0 01410 CLA L(2) EXAMINE DIMCTR 4F11187 03041 0 34000 0 01100 CAS DIMCTR TO DETERMINE 4F11188 D 03042 1 00000 0 03174 TXI 1D0000,0 WHETHER DIMESNION OF 4F11189 D 03043 1 00000 0 03131 TXI 2D0000,0 VARIABLE IS 1, 2, OR 3. 4F11190 03044 0 53400 4 01414 3D0000 LXA L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. 4F11191 03045 0 56000 4 01137 3D0001 LDQ E+9,4 CONVERT THEM FROM BCD TO BINARY 4F11192 03046 0 07400 1 02566 TSX SR6DC1,1 * IN E+3,5,7, AND 4F11193 03047 0 60100 4 01137 STO E+9,4 STORE BACK IN E+3,5,7, 4F11194 03050 2 00002 4 03045 TIX 3D0001,4,2 WHEN DONE, PREPARE 4F11195 03051 0 53400 4 01411 LXA L(3),4 TO PICK UP 3 ADDENDS. 4F11196 03052 0 50000 4 01144 3D0002 CLA E+14,4 CONVERT ADDENS (BCD TO BINARY)= 4F11197 03053 0 60200 0 01347 SLW G STRIP OFF 4F11198 03054 0 56000 0 01347 LDQ G SIGN. 4F11199 03055 0 07400 1 02566 TSX SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13, 4F11200 03056 0 56000 4 01144 LDQ E+14,4 PUT SIGN IN S-BIT OF MQ, AND 4F11201 03057 0 16200 0 03061 TQP 3D0040 IF PLUS--SKIP NEXT, 4F11202 03060 -0 50100 0 01453 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11203 03061 0 60100 4 01144 3D0040 STO E+14,4 AND STORE BACK INTO E+11,12,13, 4F11204 03062 2 00001 4 03052 TIX 3D0002,4,1 WHEN DONE, 4F11205 03063 0 07400 4 02005 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE, 4F11206 03064 0 07400 4 03400 TSX DIAG,4 * --ERROR...NOT ON DRUM, 4F11207 03065 0 50000 0 01131 3D0060 CLA E+3 REFORMATIZE E-STRING = 4F11208 03066 0 76700 0 00022 ALS 18 PACK TOGETHER COEFFICIENTS 1 AND 2 4F11209 03067 0 40000 0 01133 ADD E+5 AND STORE THEM 4F11210 03070 0 60100 0 01131 STO E+3 IN E+3. 4F11211 03071 0 50000 0 01132 CLA E+4 MOVE SUBSCRIPT 1 4F11212 03072 0 60100 0 01133 STO E+5 TO E+5. 4F11213 03073 0 50000 0 01135 CLA E+7 AND MOVE 4F11214 03074 0 76700 0 00022 ALS 18 COEFFICIENT 3 4F11215 03075 0 60100 0 01132 STO E+4 INTO E+4. 4F11216 03076 0 50000 0 01136 CLA E+8 MOVE SUBSCRIPT 3 INTO E+7, 4F11217 03077 0 60100 0 01135 STO E+7 NEXT SUBSCRIPT 2 IN E+6. 4F11218 03100 0 50000 0 01101 CLA D12 MOVE DIMESIONS 1 AND 2 4F11219 03101 0 60100 0 01136 STO E+8 INTO E+8. 4F11220 03102 -0 50000 0 01141 CAL E+11 PACK TOGETHER 4F11221 03103 0 76700 0 00022 ALS 18 ADDENDS 1 AND 2 4F11222 03104 -0 50100 0 01142 ORA E+12 AND 4F11223 03105 0 60200 0 01141 SLW E+11 STORE THEM IN E+11. 4F11224 03106 -0 50000 0 01143 CAL E+13 MOVE 4F11225 03107 0 76700 0 00022 ALS 18 ADDEND 3 4F11226 03110 0 60200 0 01142 SLW E+12 INTO E+12. 4F11227 03111 0 07400 4 00443 TSX TAU3IX,4 * GO SEARCH TAU3 TABLE. 4F11228 03112 0 76700 0 00030 ALS 24 POSITION TAU3 TAG, AND 4F11229 03113 -0 60200 0 01126 ORS E PLACE TAU3 TAG IN TAG WORD. 4F11230 03114 -0 50000 0 01135 CAL E+7 COMBINE 4F11231 03115 -0 50100 0 01134 ORA E+6 SUBSCRIPTS 3,2, AND 1, 4F11232 03116 -0 50100 0 01133 3D0340 ORA E+5 AND IF THEY ARE ALL ZERO, 4F11233 03117 0 10000 0 03216 3D0350 TZE NOTAG --DON,T ENTER FORTAG. 4F11234 03120 -0 50000 0 00030 FTG000 CAL EIFNO ENTER FORTAG= 4F11235 03121 -0 32000 0 01527 ANA MASK1 BRING UP ALPHA (INTFORMNO) 4F11236 03122 0 60200 0 01347 SLW G AND STORE IN G. 4F11237 03123 -0 50000 0 01126 CAL E BRING UP TAUTAG FOR I, 4F11238 03124 0 77100 0 00030 ARS 24 ADJUST, AND 4F11239 03125 -0 60200 0 01347 ORS G PLACE IN G WITH ALPHA. THEN 4F11240 03126 0 07400 1 03321 TSX TET00,1 * ENTER INTO FORTAG TABLE 4F11241 03127 0 00000 0 00004 PZE 4 (TET TABLE 4). 4F11242 D 03130 1 00000 0 03220 TXI SAEXIT,0 GO TO EXIT. 4F11243 03131 0 53400 4 01412 2D0000 LXA L(4),4 THEN PICKUP AND 4F11244 03132 0 56000 4 01135 2D0001 LDQ E+7,4 CONVERT COEFFICIENTS 4F11245 03133 0 07400 1 02566 TSX SR6DC1,1 * (BCD TO BINARY), 4F11246 03134 0 60100 4 01135 STO E+7,4 AND STORE BACK IN E+3 AND E+5, 4F11247 03135 2 00002 4 03132 TIX 2D0001,4,2 WHEN DONE, 4F11248 03136 0 53400 4 01410 LXA L(2),4 PREPARE TO 4F11249 03137 0 50000 4 01143 2D0002 CLA E+13,4 PICKUP THE TWO ADDENDS. 4F11250 03140 0 60200 0 01347 SLW G STRIP OFF 4F11251 03141 0 56000 0 01347 LDQ G THEIR SIGNS, 4F11252 03142 0 07400 1 02566 TSX SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY, 4F11253 03143 0 56000 4 01143 LDQ E+13,4 PUT SIGN IN S-BIT OF MQ, AND 4F11254 03144 0 16200 0 03146 TQP 2D0040 IF PLUS--SKIP NEXT, 4F11255 03145 -0 50100 0 01453 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18, 4F11256 03146 0 60100 4 01143 2D0040 STO E+13,4 AND STORE BACK IN E+11 AND E+12. 4F11257 03147 2 00001 4 03137 TIX 2D0002,4,1 WHEN DONE, 4F11258 03150 0 07400 4 01775 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F11259 03151 0 07400 4 03400 TSX DIAG,4 * --ERROR...NOT ON DRUM. 4F11260 03152 0 50000 0 01131 2D0060 CLA E+3 REFORMATIZE E-STRING = 4F11261 03153 0 76700 0 00022 ALS 18 PACK TOGETHER 4F11262 03154 0 40000 0 01133 ADD E+5 COEFFICENTS 1 AND 2, 4F11263 03155 0 60100 0 01131 STO E+3 AND STORE THEM IN E+3, 4F11264 03156 0 50000 0 01134 CLA E+6 MOVE SUBSCRIPT 2 INTO E+5 4F11265 03157 0 60100 0 01133 STO E+5 (NEXT TO SUBSCRIPT 1 IN E+4), 4F11266 03160 0 50000 0 01101 CLA D12 OBTAIN 4F11267 03161 -0 32000 0 01527 ANA MASK1 DIMENSION 1, AND MOVE IT 4F11268 03162 0 60100 0 01134 STO E+6 INTO E+6. 4F11269 03163 -0 50000 0 01141 CAL E+11 PACK TOGETHER 4F11270 03164 0 76700 0 00022 ALS 18 ADDENDS 1 AND 2, 4F11271 03165 -0 50100 0 01142 ORA E+12 AND STORE THEM 4F11272 03166 0 60200 0 01141 SLW E+11 IN E+11. 4F11273 03167 0 07400 4 00436 TSX TAU2IX,4 * GO SEATCH TAU2 TABLE. 4F11274 03170 0 76700 0 00030 ALS 24 POSITION TAU2 TAG, AND 4F11275 03171 -0 60200 0 01126 ORS E PLACE TAU2 TAG IN TAG WORD. 4F11276 03172 -0 50000 0 01132 CAL E+4 COMBINE SUBSCRIPTS 1 AND 2, AND 4F11277 D 03173 1 00000 0 03116 TXI 3D0340,0 GO TO FORTAG SECTION. 4F11278 03174 0 56000 0 01131 1D0000 LDQ E+3 PICKUP AND CONVERT COEFFICIENTS 4F11279 03175 0 07400 1 02566 TSX SR6DC1,1 * (BCD TO BINARY), AND 4F11280 03176 0 76700 0 00022 ALS 18 THEN ADJUST THEM, 4F11281 03177 0 60100 0 01131 STO E+3 AND STORE THEM BACK IN E+3. 4F11282 03200 0 50000 0 01141 CLA E+11 PICKUP ADDEND, 4F11283 03201 0 60200 0 01347 SLW G STRIP OFF SIGN, 4F11284 03202 0 56000 0 01347 LDQ G CONVERT ADDEND 4F11285 03203 0 07400 1 02566 TSX SR6DC1,1 * (BCD TO BINARY), AND THEN 4F11286 03204 0 56000 0 01141 LDQ E+11 PUT SIGN IN S-BIT OF MQ, 4F11287 03205 0 16200 0 03207 TQP 1D0001 IF PLUS--SKIP NEXT, 4F11288 03206 -0 50100 0 01453 ORA 2E17 IF MINUS--OR SIGN INTO BIT 18. 4F11289 03207 0 76700 0 00022 1D0001 ALS 18 THEN ADJUST AND STORE 4F11290 03210 0 60200 0 01141 SLW E+11 BACK INTO E+11. 4F11291 03211 0 07400 4 00431 TSX TAU1IX,4 * GO SEARCH TAU1 TABLE. 4F11292 03212 0 76700 0 00030 ALS 24 POSITION TAU1 TAG, AND 4F11293 03213 -0 60200 0 01126 ORS E PLACE TAU1 TAG IN TAG WORD. 4F11294 03214 -0 50000 0 01132 CAL E+4 TAKE SUBSCRIPT, AND 4F11295 D 03215 1 00000 0 03117 TXI 3D0350,0 GO TO FORTAG SECTION. 4F11296 03216 -0 50000 0 01471 NOTAG CAL FNIND POSITION SIGMA1 TAG, AND 4F11297 03217 -0 60200 0 01126 ORS E PLACE SIGMA1 TAG IN TAGE WORD. 4F11298 03220 -0 53400 1 02730 SAEXIT LXD SXR1,1 RESTORE THE C(XR1) 4F11299 03221 -0 53400 2 02731 LXD SXR2,2 RESTORE THE C(XR2) 4F11200 03222 -0 53400 4 02732 LXD SXR4,4 RESTORE THE C(XR4) 4F11301 03223 0 02000 4 00001 TRA 1,4 * EXIT TO MAIN ROUTINE. 4F11302 END OF PROGRAM SS000. 4F11303 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11304 4F11305 SUBX00,4/ CALLERS=C3000,C3300. 4F11306 SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES. 4F11307 03224 0 53400 3 01414 SUBX00 LXA L(6),3 PREPARE TO COUNT CHARS AND SHIFTS. 4F11308 03225 0 56000 0 01112 LDQ 1G PICKUP SUBROUTINE NAME. 4F11309 03226 -0 75400 0 00000 SUBX01 PXD ,0 CLEAR THE AC, AND 4F11310 03227 -0 76300 0 00006 LGL 6 SEARCH FOR A BLANK 4F11311 03230 0 40200 0 01430 SUB BLANK CHARACTER IN THIS NAME. 4F11312 03231 0 10000 0 03235 TZE SUBX03 IF NOT BLANK, THEN 4F11313 03232 1 00006 1 03233 TXI SUBX02,1,6 UPDATE SHIFT COUNT, AND 4F11314 03233 2 00001 2 03226 SUBX02 TIX SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315 03234 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER AFTER 6TH CHAR. 4F11316 03235 0 56000 0 01526 SUBX03 LDQ BLANKS IF LESS THEN 6 CHARACTERRS IN NAME,4F11317 03236 -0 76300 1 00044 LGL 36,1 SHIFT ENOUGH BLANKS INTO THE AC, 4F11318 03237 -0 60200 0 01112 ORS 1G AND FILL OUT NAME WITH BLANKS. 4F11319 03240 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11320 END OF PROGRAM SUBX00. 4F11321 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11322 4F11323 TESTFX,1/ CALLERS=SS000,C3000,IFFIX. 4F11324 TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES. 4F11325 03241 -0 50000 0 01331 TESTFX CAL FIRSTC COMPARE FIRST CHARACTER 4F11326 03242 0 34000 0 01423 CAS L(H) WITH H. 4F11327 03243 0 34000 0 01425 CAS L(O) IF GREATER THEN H, COMPARE WITH O. 4F11328 03244 0 02000 1 00001 TRA 1,1 * IF NOT GREATER THEN H, LESS THEN O,4F11329 03245 0 02000 1 00001 TRA 1,1 * THEN TAKE FLOATING POINT EXIT. 4F11330 03246 0 02000 1 00002 TRA 2,1 * OTHERWISE, TAKE FIXED POINT EXIT. 4F11331 END OF PROGRAM TESTFX. 4F11332 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11333 4F11334 TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11335 C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR. 4F11336 TEST.. TESTS THE CHARACTER IN THE AC(30-35). 4F11337 TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. 4F11338 03247 0 34000 0 01376 TESTA0 CAS COMMA 4F11339 03250 0 02000 0 03252 TRA TESTA1 4F11340 03251 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11341 03252 0 40200 0 01374 TESTA1 SUB ENDMK 4F11342 03253 0 10000 4 00001 TZE 1,4 * RETURN TO CALLER. 4F11343 03254 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11344 TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 4F11345 03255 0 34000 0 01376 TESTB0 CAS COMMA 4F11346 03256 0 02000 0 03260 TRA TESTB1 4F11347 03257 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11348 03260 0 40200 0 01377 TESTB1 SUB CLOS 4F11349 03261 0 10000 4 00001 TZE 1,4 * RETURN TO CALLER. 4F11350 03262 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11351 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 4F11352 03263 0 34000 0 01375 TESTC0 CAS OPEN 4F11353 03264 0 02000 0 03266 TRA TESTC1 4F11354 03265 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11355 03266 0 40200 0 01374 TESTC1 SUB ENDMK 4F11356 03267 0 10000 4 00001 TZE 1,4 * RETURN TO CALLER. 4F11357 03270 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11358 TEST CHARACTER IN THE AC FOR ENDMARK. 4F11359 03271 0 34000 0 01374 TESTD0 CAS ENDMK 4F11360 03272 0 07400 4 03400 ERR77P TSX DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11361 03273 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11362 03274 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11363 TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 4F11364 03275 0 34000 0 01375 TESTE0 CAS OPEN 4F11365 03276 0 02000 0 03300 TRA TESTE1 4F11366 03277 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11367 03300 0 07400 4 03400 TESTE1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11368 TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 4F11369 03301 0 34000 0 01377 TESTF0 CAS CLOS 4F11370 03302 0 02000 0 03304 TRA TESTF1 4F11371 03303 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11372 03304 0 07400 4 03400 TESTF1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11373 TEST CHARACTER IN THE AC FOR COMMA. 4F11374 03305 0 34000 0 01376 TESTG0 CAS COMMA 4F11375 03306 0 02000 0 03310 TRA TESTG1 4F11376 03307 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11377 03310 0 07400 4 03400 TESTG1 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11378 TEST CHARACTER IN THE AC FOR NON-NUMERIC. 4F11379 03311 0 34000 0 01417 TESTH0 CAS L(9) 4F11380 03312 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11381 03313 0 76100 0 00000 NOP 4F11382 03314 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11383 TEST CHARACTER IN THE AC FOR NUMERIC. 4F11384 03315 0 34000 0 01417 TESTI0 CAS L(9) 4F11385 03316 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11386 03317 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11387 03320 0 02000 4 00001 TRA 1,4 * RETURN TO CALLER. 4F11388 END OF PROGRAM TEST... 4F11389 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11390 4F11391 TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400, 4F11392 C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD). 4F11393 TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS 4F11394 FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4. 4F11395 03321 -0 63400 2 01100 TET00 SXD TETXR2,2 SAVE THE C(XR2), 4F11396 03322 -0 63400 4 01101 SXD TETXR4,4 SAVE THE C(XR4), AND 4F11397 03323 -0 60000 0 01103 STQ TETMQR SAVE THE C(MQR). 4F11398 03324 0 50000 1 00001 CLA 1,1 COMPUTE TABLE NUMBER 4F11399 03325 0 76700 0 00001 ALS 1 TIMES 3 4F11400 03326 0 40000 1 00001 ADD 1,1 AND 4F11401 03327 0 76000 0 00006 COM PLACE THE 2S COMPLEMENT 4F11402 03330 0 40000 0 01407 ADD L(1) OF THIS 4F11403 03331 0 73400 2 00000 PAX ,2 IN XR2 4F11404 03332 0 50000 2 00322 CLA INTET,2 OBTAIN THE CURRENT 4F11405 03333 0 77100 0 00022 ARS 18 B (BUFFER CAPACITY), 4F11406 03334 0 60100 0 01102 STO TETWRK AND SAVE IT. THEN 4F11407 03335 0 50000 2 00324 CLA INTET+2,2 GET P (PORTION OF BUFFER FULL), 4F11408 03336 0 77100 0 00022 ARS 18 AND 4F11409 03337 0 40200 0 01102 SUB TETWRK COMPARE TO B. 4F11410 03340 -0 10000 0 03356 TNZ TET03 IF BUFFER IS FULL, 4F11411 03341 0 62200 2 00324 STD INTET+2,2 SET P = 0, AND 4F11412 03342 0 76600 0 00224 TET01 WRS TABTAP PREPARE TO WRITE BLOCK ON TABTAP. 4F11413 03343 0 53400 4 01102 LXA TETWRK,4 SET XR4 = BLOCK SIZE (B). 4F11414 03344 0 50000 0 01102 CLA TETWRK ADD BLOCK SIZE TO 4F11415 03345 0 40000 2 00322 ADD INTET,2 ORGIN OF CURRENT BLOCK (O). 4F11416 03346 0 62100 0 03350 STA TET02 AND SET ADDRESS OF COPY LOOP (O+B).4F11417 03347 0 70000 1 00001 CPY 1,1 COPY TABLE NUM FOR IDENTIFICATION. 4F11418 03350 0 70000 4 00000 TET02 CPY **,4 WRITE BLOCK ONTO 4F11419 03351 2 00001 4 03350 TIX TET02,4,1 TABLE TAPE, AND 4F11420 03352 0 76600 0 00333 IOD WHEN DONE, 4F11421 03353 0 50000 2 00324 CLA INTET+2,2 INCREASE C (BLOCK COUNT) 4F11422 03354 0 40000 0 01407 ADD L(1) BY 1 FOR 4F11423 03355 0 62100 2 00324 STA INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE. 4F11424 03356 0 50000 2 00324 TET03 CLA INTET+2,2 ADD P (PORTION OF BUFFER FULL) 4F11425 03357 0 77100 0 00022 ARS 18 TO O (ORIGIN OF CURRENT TABLE 4F11426 03360 0 40000 2 00322 ADD INTET,2 BUFFER) TO SET 4F11427 03361 0 62100 0 03371 STA TET05 ADDRESS OF ENTRY LOOP (P+O). 4F11428 03362 0 50000 2 00323 CLA INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS), 4F11429 03363 0 62100 0 03370 STA TET04 AND SET ADDRESS OF ENTRY LOOP. 4F11430 03364 -0 73400 4 00000 PDX ,4 SET XR4 = E (ENTRY LENGTH IN WRDS).4F11431 03365 0 40000 2 00324 ADD INTET+2,2 INCREASE P BY E TO ACCOUNT 4F11432 03366 0 62200 2 00324 STD INTET+2,2 FOR FOLLOWING ENTRY. 4F11433 03367 -0 53400 2 01406 LXD L(0),2 SET XR2 = 0. THEN 4F11434 03370 0 50000 2 00000 TET04 CLA **,2 MOVE THE CURRENT ENTRY 4F11435 03371 0 60100 2 00000 TET05 STO **,2 INTO THE CURRENT TABLE BUFFER, AND 4F11436 03372 1 77777 2 03373 TXI TET06,2,-1 WHEN 4F11437 03373 2 00001 4 03370 TET06 TIX TET04,4,1 DONE, 4F11438 03374 0 56000 0 01103 LDQ TETMQR RESTORE ORIGINAL C(MQR), 4F11439 03375 -0 53400 2 01100 LXD TETXR2,2 RESTORE ORIGINAL C(XR2), 4F11440 03376 -0 53400 4 01101 LXD TETXR4,4 RESTORE ORIGINAL C(XR4), AND 4F11441 03377 0 02000 1 00002 TRA 2,1 * EXIT TO MAIN ROUTINE. 4F11442 END OF PROGRAM TET00. 4F11443 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11444 4F11445 DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11446 C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11447 SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR, 4F11448 CMA,EMK,BEG(TYP),VRA(VRD). 4F11449 (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE 4F11450 BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO 4F11451 THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.) 4F11452 D 03400 1 00000 0 00004 DIAG TXI 4,0 * GO GET THE DIAGNOSTIC. 4F11453 END OF PROGRAM DIAG. 4F11454 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11455 4F11456 ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. 4F11457 03401 -0 63400 4 03437 FLTR00 SXD FLTR05,4 SAVE CALLING TAG. 4F114571 03402 0 50000 0 00030 CLA EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572 03403 0 62100 0 02067 STA ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION. 4F114573 03404 0 77100 0 00022 ARS 18 4F114574 03405 0 62100 0 02070 STA NZE PLACE LAST IFN IN DEC OF PZE 4F114575 03406 -0 53400 4 01122 LXD ARGCTR,4 4F114576 03407 -3 00000 4 03413 TXL FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. 4F114577 03410 0 60000 0 01107 STZ 1C+2 4F114578 03411 0 50200 0 01454 CLS 2E18 SET ADDRESS TO -1 4F114579 03412 0 02000 0 03423 TRA FLTR03 4F11457A 03413 0 50000 0 00365 FLTR01 CLA SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. 4F11457B 03414 -0 10000 0 03420 TNZ FLTR02 SKIP ON SUBPROGRAM 4F11457C 03415 0 60000 0 01107 STZ 1C+2 SET ADDRESS TO 0 4F11457D 03416 0 60000 0 01110 STZ 1C+3 4F11457E 03417 0 02000 0 03424 TRA FLTR04 4F11457F 03420 0 50000 0 01523 FLTR02 CLA DOLSGN SET ADDRESS TO $+2 4F11457G 03421 0 60100 0 01107 STO 1C+2 4F11457H 03422 0 50000 0 01457 CLA D2 4F11457I 03423 0 60100 0 01110 FLTR03 STO 1C+3 SET RELATIVE ADDRESS WORD OF CIT. 4F11457J 03424 0 07400 4 01731 FLTR04 TSX CIT00,4 4F11457K 03425 0 00000 0 01406 PZE L(0) COMPILE NTR *+2,0,EFN 4F11457L 03426 0 00000 0 02067 PZE ENT 4F11457M 03427 0 00000 0 01510 PZE 15P 4F11457N 03430 0 00000 0 01457 PZE D2 4F11457O 03431 0 07400 4 01731 TSX CIT00,4 4F11457P 03432 0 00000 0 01406 PZE L(0) COMPILE PZE ALPHA,0,IFN 4F11457Q 03433 0 00000 0 02070 PZE NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R 03434 0 00000 0 01107 PZE 1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S 03435 0 00000 0 01110 PZE 1C+3 MAIN OR SUBPROGRAM. 4F11457T 03436 -0 53400 4 03437 LXD FLTR05,4 4F11457U 03437 1 00000 0 01731 FLTR05 TXI CIT00,0,** GO COMPILE LXD M(,4 OR 7(TYPE=,4 4F11457V 4F11457W 4F11458 END OF THE COMMON PART OF SECTION ONE. 4F11459 4F11460 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461 4F11462 SECTION 1 / INITIALIZATION = 4F11463 704 FORTRAN MASTER RECORD CARD / INITIZLIZATION = F0150000. 4F11464 00000 ORG 0 4F114641 00000 0 00004 0 00471 PZE FORSUB,,1TOCS 4F114642 00001 0 00000 0 00600 PZE DMWR98 4F114643 00471 ORG FORSUB 4F11465 INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER 4F11466 BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE 4F11467 PROGRAM. 4F11468 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11469 4F11470 PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 = 4F11471 00471 0 53400 1 00575 CLDR00 LXA CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0. 4F11472 00472 0 76600 1 00305 CLDR01 WRS 197,1 X 4F11473 00473 -0 53400 2 00575 LXD CLDR07,2 X 4F11474 00474 0 70000 0 00576 CLDR03 CPY CLDR08 X 4F11475 00475 2 00001 2 00474 TIX CLDR03,2,1 X 4F11476 00476 2 00001 1 00472 TIX CLDR01,1,1 X 4F11477 00477 0 77200 0 00222 REW 146 REWIND WORKING TAPES 2,3,4. 4F11478 00500 0 77200 0 00223 REW 147 X 4F11479 00501 0 77200 0 00224 REW 148 X 4F11480 END OF INITIALIZATION / PART 1. 4F11481 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11482 4F11483 PART 2 / WRITE STATES A,B,C,D ON DRUMS1,3,4,2= 4F11484 00502 0 53400 4 01411 DMWR01 LXA L(3),4 PREPARE TO WRITE STATE D ON DRUM 2.4F11485 00503 0 02000 0 00513 TRA DMWR11 X 4F11486 00504 0 53400 4 01407 DMWR03 LXA L(1),4 PREPARE TO WRITE STATE C ON DRUM 4.4F11487 00505 0 02000 0 00513 TRA DMWR11 X 4F11488 00506 0 53400 4 01410 DMWR06 LXA L(2),4 PREPARE TO WRITE STATE B ON DRUM 3.4F11489 00507 0 02000 0 00513 TRA DMWR11 X 4F11490 00510 0 53400 4 01412 DMWR09 LXA L(4),4 PREPARE TO WRITE STATE A ON DRUM 1.4F11491 00511 0 50000 0 00600 CLA DMWR98 THIS IS FINAL STATE TO BE WRITTEN, 4F11492 00512 0 62100 0 00546 STA DMWR40 CHANGE ADDRESS TO GET OUT OF LOOP. 4F11493 00513 0 50000 4 02437 DMWR11 CLA ZETA+4,4 GET LENGTH OF CURRENT STATE. 4F11494 00514 -0 73400 2 00000 PDX ,2 LENGTH OF CURRENT STATE. 4F11495 00515 -0 63400 2 00574 SXD CHECK,2 SAVE LENGTH. 4F11496 00516 0 77100 0 00022 ARS 18 LENGTH + ORIGIN TO PREPARE FOR CK 4F11497 00517 0 40000 0 02430 ADD MTR3 SUM AND COPY LOOPS. 4F11498 00520 0 62100 0 00523 STA DMWR20 X 4F11499 00521 0 62100 0 00533 STA DMWR26 X 4F11500 00522 -0 75400 0 00000 PXD ,0 CLEAR AC AND COMPUTE CK SUM. 4F11501 00523 0 36100 2 00000 DMWR20 ACL **,2 X 4F11502 00524 2 00001 2 00523 TIX DMWR20,2,1 X 4F11503 00525 0 60200 0 01103 SLW DRCKSM X 4F11504 00526 0 53400 1 01413 LXA DRMERC,1 SET FOR FIVE ATTEMPTS. 4F11505 00527 0 76600 4 00305 DMWR23 WDR 5,4 PREPARE TO WRITE DRUM. 4F11506 00530 -0 53400 2 00574 LXD CHECK,2 X 4F11507 00531 0 46000 4 02437 LDA ZETA+4,4 X 4F11508 00532 0 70000 0 01103 CPY DRCKSM WRITE CK SUM ON DRUM. 4F11509 00533 0 70000 2 00000 DMWR26 CPY **,2 WRITE STATE ON DRUM. 4F11510 00534 2 00001 2 00533 TIX DMWR26,2,1 X 4F11511 00535 0 76200 4 00305 RDR 5,4 PREPARE TO READ STATE BACK. 4F11512 00536 -0 53400 2 00574 LXD CHECK,2 X 4F11513 00537 0 46000 4 02437 LDA ZETA+4,4 X 4F11514 00540 -0 75400 0 00000 PXD ,0 CLEAR AC AND READ BACK CK SUM AND 4F11515 00541 -0 70000 0 00573 CAD GARBGE STATE. 4F11516 00542 0 76000 0 00006 COM X 4F11517 00543 -0 70000 0 00573 DMWR32 CAD GARBGE RECOMPUTE CK SUM. 4F11518 00544 2 00001 2 00543 TIX DMWR32,2,1 X 4F11519 00545 0 76000 0 00006 COM X 4F11520 00546 0 10000 0 00004 DMWR40 TZE 1TOCS * CK SUM AGREE, GO GET NEXT STATE. 4F11521 00547 2 00001 1 00527 TIX DMWR23,1,1 CK SUM FAILED, TRY UP TO 5 TIMES. 4F11522 00550 0 50000 0 00577 CLA DMWR89 SET MONITOR TO RETURN TO THIS 4F11523 00551 0 60100 0 02402 STO STATEA PROGRAM INSTEAD OF TO STATE A. 4F11524 00552 -3 00003 4 00554 TXL DMWR80,4,3 TEST FOR STATE A IN PROGRESS. 4F11525 00553 0 07400 4 03400 TSX DIAG,4 * STATE A CANNOT BE WRITTEN ON DRUM1.4F11526 00554 -3 00002 4 00561 DMWR80 TXL DMWR82,4,2 TEST FOR STATE D IN PROGRESS. 4F11527 00555 0 76200 0 00221 RTB 1 SPACE OVER STATE C RECORD. 4F11528 00556 0 76200 0 00221 RTB 1 SPACE OVER STATE B RECORD. 4F11529 00557 0 76200 0 00221 RTB 1 SPACE OVER STATE A RECORD. 4F11530 00560 0 07400 4 03400 TSX DIAG,4 * STATE D CANNOT BE WRITTEN ON DRUM2.4F11531 00561 -3 00001 4 00564 DMWR82 TXL DMWR84,4,1 TEST FOR SET B IN PROGRESS. 4F11532 00562 0 76200 0 00221 RTB 1 SPACE OVER STATE A RECORD. 4F11533 00563 0 07400 4 03400 TSX DIAG,4 * STATE B CANNOT BE WRITTEN ON DRUM3.4F11534 00564 0 76200 0 00221 DMWR84 RTB 1 SPACE OVER STATE B RECORD. 4F11535 00565 0 76200 0 00221 RTB 1 SPACE OVER STATE A RECORD. 4F11536 00566 0 07400 4 03400 TSX DIAG,4 * STATE C CANNOT BE WRITTEN ON DRUM4.4F11537 00567 0 53400 4 01406 DMWR88 LXA L(0),4 SET IR4 TO 0 TO CAUSE DIAGNOSTIC TO4F11538 00570 0 02000 0 03400 TRA DIAG * PRINT END LINE AND STOP 4F11539 00571 0 07400 4 05702 DMWR99 TSX CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION.4F11540 00572 0 02000 0 03440 TRA CA010 * GO BEGIN STATE A OF SECTION ONE. 4F11541 END OF INITIALIZATION / PART 2. 4F11542 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11543 4F11544 PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION= 4F11545 00573 GARBGE BSS 1 ERASEABLE STORAGE. 4F11546 00574 0 00000 0 00000 CHECK PZE ,,** SAVING CELL FOR LENGTH OF STATE. 4F11547 00575 0 04000 0 00004 CLDR07 PZE 4,,2048 CONSTANT FOR CLEARING DRUMS. 4F11548 00576 0 00000 0 00000 CLDR08 PZE 0 CONSTANT FOR CLEARING DRUMS. 4F11549 00577 0 02000 0 00567 DMWR89 TRA DMWR88 CONSTANT FOR ERROR ROUTINE. 4F11550 00600 0 00000 0 00571 DMWR98 PZE DMWR99 CONSTANT FOR ADDRESS MODIFICATION. 4F11551 END OF INITIALIZATION / PART 3. 4F11552 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11553 4F11554 4F11555 SECTION 1 / STATEA = 4F11556 704 FORTRAN MASTER RECORD CARD / STATE A = F0190000. 4F11557 00000 ORG 0 4F115571 00000 0 00510 0 03440 PZE ORGA,,DMWR09 4F115572 00001 0 00000 0 07306 PZE ENDA-1 4F115573 4F11558 NAME FUNCTION 4F11559 PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11560 CA000 ASSEMBLE STATEMENT. 4F11561 CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562 CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC.4F11563 CC000 CLASSIFY=WHICH NON-ARITHMETIC. 4F11564 PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS. 4F11565 C0100 DO. 4F11566 C0200 GO TO. 4F11567 C0300 IF. 4F11568 C0400 IF (SENSE SWITCH. 4F11569 C0500 IF (SENSE LIGHT. 4F11570 C0600 IF DIVIDE CHECK. 4F11571 C0700 IF AC OVERFLOW. 4F11572 C0800 IF MQ OVERFLOW. 4F11573 C0900 PAUSE. 4F11574 C1000 ASSIGN. 4F11575 C1100 SENSE LIGHT. 4F11576 C1200 DIMENSION. 4F11577 C1300 STOP. 4F11578 C1400 FREQUENCY. 4F11579 C1500 EQUIVALENCE. 4F11580 C1600 CONTINUE. 4F11581 C3000(C3500) SUBROUTINE / FUNCTION. 4F11582 C3100 COMMON. 4F11583 C3200 RETURN. 4F11584 C3300 CALL. 4F11585 C3400 END. 4F11586 PART 3 / PROCESS INPUT-OUTPUT STATEMENTS= 4F11587 RDC READ CARD 4F11588 RIT READ INPUT TAPE. 4F11589 RDP PRINT. 4F11590 WOT WRITE OUTPUT TAPE. 4F11591 PDC PUNCH. 4F11592 WBT WRITE TAPE. 4F11593 RBT READ TAPE. 4F11594 WRD WRITE DRUM. 4F11595 RDD READ DRUM. 4F11596 EFT END FILE. 4F11597 RWN REWIND. 4F11598 BSP BACKSPACE. 4F11599 FOR FORMAT. 4F11600 RSC RESET AND SCAN. 4F11601 LISTR CONTROL FOR LIST SCAN. 4F11602 LPR LEFT PARENTHESES IN LIST SCAN. 4F11603 EOS EQUAL SIGN IN LIST SCAN. 4F11604 SPCTR CONTROL FOR SPECIFICATION SCAN. 4F11605 SPC SUBSCRIPT SPECIFICATIONS. 4F11606 RPR RIGHT PARENTHESIS IN LIST SCAN. 4F11607 CMA COMMA IN LIST SCAN. 4F11608 EMK ENDMARK IN LIST SCAN. 4F11609 PART 4 / SUBROUTINES USED BY STATE A= 4F11610 BEG(TYP),4 BEGIN SCAN AND TYPE TEST. 4F11611 BEGTR CONTROL FOR BEGINNING SCAN. 4F11612 BRW,4 BINARY READ OR WRITE COMPILER. 4F11613 BSS,2 COMPILES= IFN BSS 0. 4F11614 CA100,4 READ SOURCE PROGRAM TAPE. 4F11615 CC500,4 SCAN DICTIONARY. 4F11616 ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0.4F11617 IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY. 4F11618 IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV). 4F11619 LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT. 4F11620 VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES. 4F11621 PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. 4F11622 DIC DICTIONARY. 4F11623 T TRANSFER TABLE. 4F11624 4F11625 THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 4F11626 4F11627 ** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION 4F11628 INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 4F11629 * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 4F11630 THIS LOGICAL BLOCK OR SUBROUTINE. 4F11631 C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 4F11632 P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 4F11633 4F11634 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635 4F11636 STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11637 03440 ORGA ORG 1824 4F11638 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639 4F11640 CA000/ CALLS=CA100,SR6DC1,TET00,DIAG. 4F11641 CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.4F11642 03440 -0 53400 4 02575 CA010 LXD ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN 4F11643 03441 -3 00000 4 03400 TXL DIAG,4,0 * PROCESSED, THE GO CALL DIAGNOSTIC. 4F11644 03442 -0 53400 1 00030 LXD EIFNO,1 KEEP INTERAL FORMULA NUMBER 4F11645 03443 1 00001 1 03444 TXI CA013,1,1 (DECR PART OF EIFNO) 4F11646 03444 -0 63400 1 00030 CA013 SXD EIFNO,1 UP TO DATE BY ADDING 1. 4F11647 03445 -0 50000 0 01333 CAL FT OBTAIN HOLLERITH CODED 5-DIGIT 4F11648 03446 0 77100 0 00006 ARS 6 EXTERNAL FORMULA NO IN ACC. 4F11649 03447 0 60200 0 01151 SLW F-1 AND RETAIN IN F-01. 4F11650 03450 -0 53400 1 01670 LXD DCF,1 INITIALIZE INDEX A TO COMPL OF F. 4F11651 03451 0 53400 2 01400 CA018 LXA L(11),2 SET UP LOOP FOR 11 CYCLES. 4F11652 03452 0 56000 2 01347 CA019 LDQ FT+12,2 MOVE WORD FROM REGION FT 4F11653 03453 -0 60000 1 00000 STQ 0,1 TO REGION F. 4F11654 03454 2 00001 1 03455 TIX CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE. 4F11655 03455 2 00001 2 03452 CA020 TIX CA019,2,1 TEST END OF LOOP. 4F11656 03456 0 07400 4 05702 TSX CA100,4 * GO READ NEXT NON-BLANK CARD. 4F11657 03457 -0 50000 0 01333 CAL FT TEST RIGHTMOST CHARACTER OF 4F11658 03460 -0 32000 0 01374 ANA L(63) FIRST WORD FOR CONTINUATION MARK, 4F11659 03461 0 10000 0 03464 TZE CA021 IF ZERO OR BLANK, 4F11660 03462 0 40200 0 01430 SUB ABLANK DISCONTINUE READING, 4F11661 03463 -0 10000 0 03451 TNZ CA018 OTHERWISE CONTINUE. 4F11662 03464 0 50000 0 01526 CA021 CLA BLANKS BEGIN SCANNING REGION F BACKWARDS 4F11663 03465 0 34000 1 77777 CA022 CAS -1,1 TO FIND FIRST NON BLANK WORD. 4F11664 03466 0 02000 0 03470 TRA CA023 NOT BLANK. 4F11665 03467 1 00001 1 03465 TXI CA022,1,1 BLANK, SO CONTINUE SCAN. 4F11666 03470 0 56000 0 01531 CA023 LDQ 36ONES PLACE BINARY ONES IN FIRST WORD 4F11667 03471 -0 60000 1 00000 STQ 0,1 FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668 03472 -0 50000 0 01151 CAL F-1 PICK UP EXTERNAL FORMULA NUMBER AND4F11669 03473 0 34000 0 01477 CAS 5BLANS COMPARE WITH /0 /. 4F11670 03474 0 02000 0 03476 TRA CA015 NOT COMPARE. 4F11671 03475 0 02000 0 03503 TRA CD000 * TAKE EXTFORMNO, IF ANY AND 4F11672 03476 0 76500 0 00043 CA015 LRS 35 GO TO CONVERSION SUBROUTINE AND 4F11673 03477 0 07400 1 02566 TSX SR6DC1,1 * RETURN HERE WITH RESULT IN ACC. 4F11674 03500 0 62100 0 00030 STA EIFNO STORE RESULT IN ADDRESS OF EIFNO. 4F11675 03501 0 07400 1 03321 TSX TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO 4F11676 03502 0 00000 0 00000 PZE 0 INTO TABLE TEIFNO (TABLE O). 4F11677 END OF PROGRAM CA000. 4F11678 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679 4F11680 CD000/ CALLS=C0190X,C0190,DIAG. 4F11681 CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. 4F11682 03503 0 07400 4 01671 CD000 TSX C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683 03504 0 07400 1 03534 CD001 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684 03505 0 34000 0 01376 CAS COMMA SCAN 4F11685 D 03506 1 00000 0 03510 TXI CD002,0 FOR 4F11686 D 03507 1 00000 0 03512 TXI CD003,0 HOLLERITH 4F11687 03510 0 40200 0 01375 CD002 SUB OPEN SPECIFICATION 4F11688 03511 -0 10000 0 03504 TNZ CD001 WHICH 4F11689 03512 0 07400 1 03534 CD003 TSX CD900,1 * CAN BE= 4F11690 03513 0 40200 0 01373 SUB L(10) , N H 4F11691 03514 0 12000 0 03504 TPL CD001 OR = ( N H. 4F11692 03515 0 07400 1 03534 CD004 TSX CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693 03516 0 34000 0 01417 CAS L(9) CONTINUE SCAN. 4F11694 D 03517 1 00000 0 03522 TXI CD005,0 N 4F11695 D 03520 1 00000 0 03515 TXI CD004,0 IS 4F11696 D 03521 1 00000 0 03515 TXI CD004,0 A 4F11697 03522 0 34000 0 01423 CD005 CAS L(H) FIXED 4F11698 D 03523 1 00000 0 03505 TXI CD001+1,0 POINT 4F11699 D 03524 1 00000 0 03526 TXI CD700,0 INTEGER. 4F11700 D 03525 1 00000 0 03505 TXI CD001+1,0 X 4F11701 03526 0 07400 4 01707 CD700 TSX C0190,4 * GO GET NEXT NONBLANK CHARACTER, 4F11702 03527 0 34000 0 01374 CAS ENDMK AND IF ENDMARK, 4F11703 D 03530 1 00000 0 03532 TXI CD701,0 THEN SKIP 4F11704 D 03531 1 00000 0 03616 TXI CC000,0 * TO NON-ARITHMETIC CLASSIFICATION. 4F11705 03532 0 07400 1 03543 CD701 TSX CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, 4F11706 D 03533 1 00000 0 03526 TXI CD700,0 THEN $ IS LEGAL IN FORMAT TEST. 4F11707 03534 0 07400 4 01707 CD900 TSX C0190,4 * OBTAIN NEXT NONBLANK CHARACTER, 4F11708 03535 0 34000 0 01374 CAS ENDMK AND IF NOT 4F11709 D 03536 1 00000 0 03540 TXI CD800,0 ENDMARK, THEN SKIP 4F11710 D 03537 1 00000 0 03562 TXI CB000,0 * EXIT TO ARITH/NON-ARITH SCAN. 4F11711 03540 0 34000 0 01427 CD800 CAS SPECOP CHECK FOR $ 4F11712 D 03541 1 00000 0 03546 TXI CD601,0 WHICH, UNLESS HOLERITH, IS AN 4F11713 03542 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11714 03543 0 34000 0 01435 CD600 CAS PM CHECK FOR RECORD MARK 4F11715 03544 0 02000 1 00001 TRA 1,1 WHICH IS AN 4F11716 03545 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11717 03546 0 34000 0 01426 CD601 CAS CHAR3 CHECK FOR MINUS ZERO 4F11718 03547 0 02000 1 00001 TRA 1,1 WHICH IS AN 4F11719 03550 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11720 03551 0 34000 0 01424 CAS CHAR2 CHECK FOR PLUS ZERO 4F11721 03552 0 02000 1 00001 TRA 1,1 WHICH IS AN 4F11722 03553 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11723 03554 0 34000 0 01420 CAS MINUS CHECK FOR MINUS SIGN 4F11724 03555 0 02000 1 00001 TRA 1,1 WHICH IS AN 4F11725 03556 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11726 03557 0 40200 0 01373 SUB TEN CHECK FOR TEN 4F11727 03560 -0 10000 1 00001 TNZ 1,1 WHICH IS AN 4F11728 03561 0 07400 4 03400 TSX DIAG,4 * ERROR -- GO TO DIAGNOSTIC. 4F11729 END OF PROGRAM CD000. 4F11730 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731 4F11732 CB000/ CALLS=C0190X,C0190,DIAG. 4F11733 CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC. 4F11734 03562 0 53400 1 01407 CB000 LXA L(1),1 SET XR TO COUNT PARENTHESES. 4F11735 03563 0 07400 4 01671 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736 03564 0 07400 4 01707 CB001 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F11737 03565 0 34000 0 01400 CAS AEQUAL IF AN EQUAL SIGN, 4F11738 D 03566 1 00000 0 03570 TXI CB005,0 THEN 4F11739 D 03567 1 00000 0 03601 TXI CB200,0 GO TEST PAREN-COUNT. 4F11740 03570 0 34000 0 01375 CB005 CAS ALPAR IF A LEFT PARENTHESIS, 4F11741 D 03571 1 00000 0 03573 TXI CB006,0 THEN 4F11742 03572 1 00001 1 03564 TXI CB001,1,1 UPDATE PAREN-COUNT BY 1. 4F11743 03573 0 34000 0 01377 CB006 CAS ARPAR IF A RIGHT PARENTHESIS, 4F11744 D 03574 1 00000 0 03576 TXI CB007,0 THEN 4F11745 D 03575 1 00000 0 03614 TXI CB500,0 GO TEST PAREN-COUNT. 4F11746 03576 0 40200 0 01374 CB007 SUB ENDMK IF NOT ENDMARK, THEN 4F11747 03577 -0 10000 0 03564 TNZ CB001 GO EXAMINE NEXT CHARACTER. 4F11748 D 03600 1 00000 0 03616 TXI CC000,0 * OTHERWISE, GO TO DIC LOOK-UP. 4F11749 03601 2 00001 1 03616 CB200 TIX CC000,1,1 * IF EQUAL WAS NOT WITHIN PARENS, 4F11750 03602 0 07400 4 01707 CB201 TSX C0190,4 * THEN EXAMINE NEXT CHARACTER. 4F11751 03603 0 34000 0 01375 CAS ALPAR IF LEFT PARENTHESIS, 4F11752 D 03604 1 00000 0 03606 TXI CB205,0 THEN 4F11753 D 03605 1 00000 0 02404 TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11754 03606 0 34000 0 01376 CB205 CAS ACOMMA IF A COMMA, 4F11755 D 03607 1 00000 0 03611 TXI CB206,0 THEN 4F11756 D 03610 1 00000 0 03616 TXI CC000,0 * GO TO NON-ARITHMETIC DIC LOOK-UP. 4F11757 03611 0 40200 0 01374 CB206 SUB ENDMK IF NOT ENDMARK, THEN 4F11758 03612 -0 10000 0 03602 TNZ CB201 GO EXAMINE NEXT CHARACTER. 4F11759 D 03613 1 00000 0 02404 TXI ARITH,0 * THIS IS AN ARITHMETIC FORMULA. 4F11760 03614 2 00001 1 03564 CB500 TIX CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE, 4F11761 03615 0 07400 4 03400 TSX DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE. 4F11762 END OF PROGRAM CB000. 4F11763 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11764 4F11765 CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00. 4F11766 CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC. 4F11767 03616 0 60000 0 01113 CC000 STZ 2G SET DICTIONARY WORD TAG, AND 4F11768 03617 0 53400 3 01406 LXA L(0),3 CHARACTER COUNT AND ENTRY COUNT. 4F11769 03620 0 07400 4 01671 CC001 TSX C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770 03621 0 07400 4 05743 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11771 03622 0 34000 0 01374 CAS ENDMK TEST FOR CONSECUTIVE ENDMARKS. 4F11772 03623 0 02000 0 03272 TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11773 03624 0 07400 4 03400 TSX DIAG,4 * ERROR = NOT FOUND IN DICTIONARY. 4F11774 D 03625 1 00000 4 03632 TXI CC004,4 GO BEGIN COMARISION. 4F11775 03626 0 07400 4 05743 CC002 TSX CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776 03627 0 34000 0 01374 CAS ENDMK TEST FOR END OF DIC ENTRY. 4F11777 D 03630 1 00000 0 03272 TXI ERR77P,0 * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11778 D 03631 1 00000 0 03644 TXI CC007,0 IF END OF ENTRY, LOOK NO FURTHER. 4F11779 03632 0 60100 0 01105 CC004 STO 1C OTHERWISE, SAVE CHARACTER 4F11780 03633 -0 60000 0 01106 STQ 1C+1 AND REMAINDER OF DICTIOANRY WORD. 4F11781 03634 0 07400 4 01707 TSX C0190,4 * GO GET NEXT FORMULA CHARACTER, 4F11782 03635 0 56000 0 01106 LDQ 1C+1 AND RESTORE DICTIONARY WORD. 4F11783 03636 0 40200 0 01105 SUB 1C IF CHARCATERS ARE EQUAL, 4F11784 03637 0 10000 0 03626 TZE CC002 THEN GO COMPARE NEXT CHARACTER. 4F11785 03640 0 07400 4 05743 CC005 TSX CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. 4F11786 03641 0 40200 0 01374 SUB ENDMK CONTINUE UNTIL AN ENDMARK IS 4F11787 03642 -0 10000 0 03640 TNZ CC005 FOUND, THEN 4F11788 03643 1 77777 1 03620 TXI CC001,1,-1 COUNT ENTRY, AND BEGIN AGAIN. 4F11789 03644 0 50000 1 06246 CC007 CLA T,1 IF THE CURRENT STATEMENT IS 4F11790 03645 0 12000 1 06246 TPL T,1 OF THE NON-EXCUTABLE TYPE, 4F11791 03646 -0 63400 1 01107 SXD 1C+2,1 THEN 4F11792 03647 0 07400 1 03321 TSX TET00,1 * GO ENTER EIFNO IN THE 4F11793 03650 0 00000 0 00016 PZE 14 NONEXC TABLE. 4F11794 03651 -0 53400 1 01107 LXD 1C+2,1 AND THEN 4F11795 03652 0 02000 1 06246 CC008 TRA T,1 * TAKE INDICATED TRANSFER. 4F11796 END OF PROGRAM CC000. 4F11797 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798 4F11799 STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS= 4F11800 4F11801 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802 4F11803 C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00. 4F11804 C0100 PROCESSES DO STATEMENTS. 4F11805 03653 0 07400 4 02366 C0100 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806 03654 0 07400 4 01707 TSX C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER 4F11807 03655 0 07400 4 03315 TSX TESTI0,4 * WHICH SHOULD BE NUMERIC. 4F11808 03656 0 07400 2 01655 TSX C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809 03657 0 60100 0 01113 STO 2G SAVE THE 1ST CHAR OF SUBSCRIPT. 4F11810 03660 0 50000 0 01112 CLA 1G TAKE CONVERTED RESULT FOR BETA 4F11811 03661 0 62100 0 01105 STA 1C AND STORE IN ADDR OF 1C. 4F11812 03662 0 50000 0 01113 CLA 2G 1C IS NOW COMPETE EXCEPT FOR TAG. 4F11813 03663 0 07400 2 01624 TSX C0160,2 * OBTAIN IN 1G THE SUBSCRIPT. 4F11814 03664 0 50000 0 01112 CLA 1G STORE SUBSCRIPT 4F11815 03665 0 60100 0 01106 STO 1C+1 IN 1C+1. 4F11816 03666 0 07400 2 01604 TSX C0150,2 * OBTIAN IN 1G THE PROPER N1. 4F11817 03667 0 50000 0 01112 CLA 1G STORE N1 4F11818 03670 0 60100 0 01107 STO 1C+2 IN 1C+2. 4F11819 03671 -0 50000 0 01353 CAL I OBTAIN I IN LOGICAL ACC AND 4F11820 03672 0 77100 0 00022 ARS 18 STORE IN POS 18 OF 1C 4F11821 03673 -0 60200 0 01105 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11822 03674 0 07400 2 01604 TSX C0150,2 * OBTAIN IN 1G THE PROPER N2. 4F11823 03675 0 07400 4 03247 TSX TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK. 4F11824 03676 -0 10000 0 03701 TNZ C0113 IF ENDMARK, THEN 4F11825 03677 -0 77300 0 00037 RQL 31 CREATE ONE IN MQ FOR N3 4F11826 03700 -0 60000 0 01365 STQ RESIDU AND PLACE IN RESIDU. 4F11827 03701 0 50000 0 01112 C0113 CLA 1G STORE N2 4F11828 03702 0 60100 0 01110 STO 1C+3 IN 1C+3. 4F11829 03703 -0 50000 0 01353 CAL I OBTAIN I IN LOG ACC AND 4F11830 03704 0 77100 0 00023 ARS 19 STORE IN POS 19 OF 1C 4F11831 03705 -0 60200 0 01105 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832 03706 0 07400 2 01604 TSX C0150,2 * OBTAIN IN 1G THE PROPER N3. 4F11833 03707 0 07400 4 03271 TSX TESTD0,4 * THE AC SHOULD CONTIAN AN ENDMARK. 4F11834 03710 0 50000 0 01112 CLA 1G STORE N3 4F11835 03711 0 60100 0 01111 STO 1C+4 IN 1C+4. 4F11836 03712 -0 50000 0 01353 CAL I OBTAIN I IN LOG ACC AND 4F11837 03713 0 77100 0 00024 ARS 20 STORE IN POS 20 OF 1C 4F11838 03714 -0 60200 0 01105 ORS 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839 03715 0 07400 1 03321 TSX TET00,1 * GO TO TET PROGRAM TO ENTER 4F11840 03716 0 00000 0 00001 PZE 1 1C,1C+1,..1C+4 IN TDO TABLE 1. 4F11841 D 03717 1 00000 0 03440 TXI CA010,0 * EXTI TO PROCESS NEXT STATEMENT. 4F11842 END OF PROGRAM C0100. 4F11843 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844 4F11845 C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160, 4F11846 CIT00,SS000(CSA000). 4F11847 C0200 PROCESSES GO TO STATEMENTS. 4F11848 03720 0 07400 4 02366 C0200 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F11849 03721 0 60100 0 01107 STO 1C+2 AND IN 1C+2. 4F11850 03722 0 07400 4 01707 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER 4F11851 03723 0 34000 0 01417 CAS L(9) AND COMPARE IT WITH 9. 4F11852 D 03724 1 00000 0 03733 TXI C0205,0 IF NON-NUMERIC, GO COMPARE WITH (. 4F11853 03725 0 76100 0 00000 NOP IF NUMERIC, THEN 4F11854 03726 0 07400 2 01655 TSX C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855 03727 0 07400 4 03271 TSX TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. 4F11856 03730 0 50000 0 01112 CLA 1G STORE BETA IN 1C+1 TO CONSTRUCT 4F11857 03731 0 60100 0 01106 STO 1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858 D 03732 1 00000 0 04030 TXI C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11859 03733 0 34000 0 01375 C0205 CAS ALPAR TEST CHARACTER FOR ALPHABETIC. 4F11860 D 03734 1 00000 0 03736 TXI C0210,0 IF NOT ALPHABETIC, THEN 4F11861 D 03735 1 00000 0 03746 TXI C0212,0 THIS IS TYPE= GO TO ( ), I. 4F11862 03736 0 07400 2 01624 C0210 TSX C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863 03737 0 07400 4 03305 TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864 03740 0 50000 0 01112 CLA 1G SAVE THE SYMBOL N IN 1C+3 4F11865 03741 0 60100 0 01110 STO 1C+3 FOR COMPILED INSTRUCTION. 4F11866 03742 0 07400 4 01707 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER, 4F11867 03743 0 07400 4 03275 TSX TESTE0,4 * WHICH SHOULD BE A LPARAN. 4F11868 03744 0 50000 0 01407 CLA L(1) PREPARE TO SET ADDRESS PART OF 1C 4F11869 03745 0 02000 0 03747 TRA C0213 TO 1 TO INDICATE CLASS OF TRANSFER.4F11870 03746 0 50000 0 01410 C0212 CLA L(2) PREPARE TO SET ADDR OF 1C TO 2. 4F11871 03747 0 62100 0 01105 C0213 STA 1C STORE 1 OR 2 IN ADDR OF 1C. 4F11872 03750 -0 53400 2 04032 LXD CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873 03751 -0 75400 2 00000 PXD ,2 PLACE IN THE DECREMENT OF THE AC 4F11874 03752 0 60100 0 01106 STO 1C+1 AND STORE IN 1C+1. 4F11875 03753 0 07400 4 01707 C0215 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR. 4F11876 03754 0 07400 2 01655 TSX C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA. 4F11877 03755 0 60100 0 01113 STO 2G SAVE CHAR IN ACC. 4F11878 03756 0 07400 1 03321 TSX TET00,1 * GO TO ENTER 1G 4F11879 03757 0 00000 0 00003 PZE 3 INTO TRAD TABLE (TABLE 3). 4F11880 03760 -0 53400 2 04032 LXD CTRAD,2 REDUCE COUNTER 4F11881 03761 2 00001 2 03762 TIX C0216,2,1 CTRAD 4F11882 03762 -0 63400 2 04032 C0216 SXD CTRAD,2 BY 1. 4F11883 03763 0 50000 0 01113 CLA 2G RESTORE CHAR TO ACC. 4F11884 03764 0 07400 4 03255 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F11885 03765 -0 10000 0 03753 TNZ C0215 IF RIGHT PARENTHESIS, THEN 4F11886 03766 0 50000 0 04032 CLA CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF 4F11887 03767 0 77100 0 00022 ARS 18 ENTRIES IN TRAD TABLE,AND STORE 4F11888 03770 0 62100 0 01106 STA 1C+1 IN ADDR OF 1C+1. 4F11889 03771 0 50000 0 01105 CLA 1C OBTAIN 1C IN ACC 4F11890 03772 0 76000 0 00001 LBT AND TEST LOW ORDER BIT. 4F11891 03773 0 02000 0 04004 TRA C0220 THIS IS A TYPE GO TO (),I FORMULA. 4F11892 03774 0 07400 4 01707 TSX C0190,4 * OBTAIN NEXT NB CHAR AND 4F11893 03775 0 07400 4 03271 TSX TESTD0,4 * TEST FOR ENDMK. 4F11894 03776 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11895 03777 0 00000 0 01107 PZE 1C+2 WORD 1--DECR= INTFORMNN (LOCATION) 4F11896 04000 0 00000 0 01601 PZE L(TRA) WORD 2--TRA00P (OP AND DECR) 4F11897 04001 0 00000 0 01110 PZE 1C+3 WORD 3--VARIABLE N (ADDRESS) 4F11898 04002 0 00000 0 01406 PZE L(0) WORD 4--00000 (REL ADDR AND TAG). 4F11899 04003 0 02000 0 04030 TRA C0202 GO TO ENTER 1C,1C+1 INTO TIFGO. 4F11900 04004 0 07400 4 01707 C0220 TSX C0190,4 * EXAMINE NEXT NB CHARACTER, 4F11901 04005 0 07400 4 03305 TSX TESTG0,4 * WHICH SHOULD BE A COMMA. 4F11902 04006 0 07400 4 01707 TSX C0190,4 * OBTAIN IN ACC NEXT NB CHAR, AND 4F11903 04007 0 07400 2 01624 TSX C0160,2 * OBTAIN IN 1G THE FXF-PT. VARIABLE. 4F11904 04010 0 07400 4 03271 TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905 04011 0 50000 0 01407 CLA L(1) PREPARE PROPER FORM OF SUBSCRIPT 4F11906 04012 0 60100 0 01131 STO E+3 COMBINATION AS 4F11907 04013 0 60100 0 01100 STO DIMCTR INPUT TO SUBSCRIPT ANALYSIS= 4F11908 04014 0 50000 0 01112 CLA 1G E+3 = 1ST COEFFICIENT. 4F11909 04015 0 60100 0 01132 STO E+4 E+4 = 1ST SUBSCRIPT VARIABLE, 4F11910 04016 0 60000 0 01137 STZ E+9 E+9 = ADDEND OF SUBSCRIPT, 4F11911 04017 0 07400 4 03027 TSX CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. 4F11912 04020 0 50000 0 01126 CLA E OUTPUT FROM CSA IS FOUND IN 4F11913 04021 0 77100 0 00030 ARS 24 E = I--TAUTAG (GENERAL TAG) 1-11. 4F11914 04022 0 60100 0 01113 STO 2G ADJUST AND SAVE FOR COMP. INSTR. 4F11915 04023 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F11916 04024 0 00000 0 01107 PZE 1C+2 WORD 1--DECR-INTFORMNO(LOCATION) 4F11917 04025 0 00000 0 01601 PZE L(TRA) WORD 2--TRA000(OP AND DECR) 4F11918 04026 0 00000 0 01406 PZE L(0) WORD 3--000000(ADDRESS) 4F11919 04027 0 00000 0 01113 PZE 2G WORD 4--ADDR = TAUTAG FOR I 4F11920 C0200= ENTRY POINT USED BY C0400,C1000. 4F11921 04030 0 07400 1 03321 C0202 TSX TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 4F11922 04031 0 00000 0 00002 PZE 2 INTO TIFGO TABLE (TABLE 2). 4F11923 04032 1 00372 0 03440 CTRAD TXI CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. 4F11924 END OF PROGRAM C0200. 4F11925 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926 4F11927 C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00, 4F11928 STATEB. 4F11929 C0300 PROCESSES IF STATEMENTS. 4F11930 04033 -0 53400 4 00030 C0300 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11931 04034 -0 75400 4 00000 PXD ,4 NUMBER IN THE DECREMENT OF 1C 4F11932 04035 -0 76000 0 00003 SSM WITH SIGN SET TO MINUS 4F11933 04036 0 60100 0 01105 STO 1C FOR FUTURE TIFGO ENTRY. 4F11934 04037 0 07400 4 01671 TSX C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN. 4F11935 04040 0 07400 4 01707 TSX C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I). 4F11936 04041 0 56000 0 01433 LDQ L(X) REPLACW THE CHARACTER I 4F11937 04042 0 07400 4 01675 TSX C0390,4 * WITH THE CHARACTER X. 4F11938 04043 0 56000 0 01373 LDQ L(10) REPALCE THE CHARACTER F 4F11939 04044 0 07400 4 01675 TSX C0390,4 * WITH THE CHARACTER 001010. 4F11940 04045 0 07400 4 03275 TSX TESTE0,4 * IF NOT LPAREN -- THEN ERROR. 4F11941 04046 0 56000 0 01400 LDQ AEQUAL REPLACE THE CHARACTER LPARAN 4F11942 04047 0 07400 4 01675 TSX C0390,4 * WITH THE CHARACTER EQUAL. 4F11943 04050 0 53400 2 01407 LXA L(1),2 SET XR2 FOR COUNTING PARENTHESES. 4F11944 04051 0 02000 0 04053 TRA *+2 4F11945 04052 0 07400 4 01707 C0302 TSX C0190,4 * MAKE SURE THAT NEXT NB CHARACTER 4F11946 04053 0 34000 0 01374 CAS ENDMK IS NOT AN ENDMARK. 4F11947 04054 0 02000 0 03272 TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F11948 04055 0 07400 4 03400 TSX DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC. 4F11949 04056 0 34000 0 01375 CAS ALPAR IF IT IS A LPAREN, 4F11950 D 04057 1 00000 0 04061 TXI C0303,0 THEN ADD 1 TO PAREN COUNT, AND 4F11951 04060 1 00001 2 04052 TXI C0302,2,1 GO EXAMINE NEXT CHARACTER. 4F11952 04061 0 40200 0 01377 C0303 SUB ARPAR IF IT IS A RPAREN, 4F11953 04062 -0 10000 0 04052 TNZ C0302 THE TEST PAREN COUNT, AND IF IT 4F11954 04063 2 00001 2 04052 TIX C0302,2,1 CAN NOT BE REDUCED,MATE IS FOUND. 4F11955 04064 0 56000 0 01374 LDQ ENDMK SO REPLACE THE CHARACTER RPAREN 4F11956 04065 0 07400 4 01675 TSX C0390,4 * WITH THE CHARACTER ENDMK. 4F11957 04066 0 07400 2 01655 TSX C0180,2 * BINARY EQUIVALENT OF BETA 1. 4F11958 04067 0 07400 4 03305 TSX TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959 04070 0 50000 0 01112 CLA 1G MOVE BETA1 4F11960 04071 0 62100 0 01105 STA 1C TO ADDRESS OF 1C. 4F11961 04072 0 07400 4 01707 TSX C0190,4 * AND PROCEED TO FORM 4F11962 04073 0 07400 2 01655 TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 2. 4F11963 04074 0 07400 4 03305 TSX TESTG0,4 * THIS SHOULD BE FOLLWED BY A COMMA. 4F11964 04075 0 50000 0 01112 CLA 1G MOVE BETA2 4F11965 04076 0 76700 0 00022 ALS 18 TO DECR PART 4F11966 04077 0 60100 0 01106 STO 1C+1 OF 1C+1. 4F11967 04100 0 07400 4 01707 TSX C0190,4 * AND PROCEED TO FORM 4F11968 04101 0 07400 2 01655 TSX C0180,2 * THE BINARY EQUIVALENT OF BETA 3. 4F11969 04102 0 07400 4 03271 TSX TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970 04103 0 50000 0 01112 CLA 1G MOVE BETA3 4F11971 04104 0 62100 0 01106 STA 1C+1 TO ADDRESS OF 1C+1. 4F11972 D 04105 1 00000 0 02404 TXI ARITH,0 * EXIT TO ARITH FOR FINAL PROCESSING.4F11973 END OF PROGRAM C0300. 4F11974 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975 4F11976 C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200. 4F11977 C0400 PROCESSES IF (SENSE SWITCH STATEMENTS. 4F11978 04106 0 50000 0 01441 C0400 CLA L(112) FOR SENSE SWITCH 4F11979 04107 0 60100 0 01115 STO 1H SET 1H TO 112, AND PREPARE TO 4F11980 04110 0 50000 0 01565 CLA L(PSE) SET 2H TO PSE. 4F11981 C0401= ENTRY POINT USED BY C0500. 4F11982 04111 0 60100 0 01116 C0401 STO 2H SET 2H FOR SENSE SWITCH OR LIGHT. 4F11983 04112 0 07400 4 01707 TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11984 04113 0 07400 2 01655 TSX C0180,2 * EQUIVALENT OF SW OR SL NUMBER. 4F11985 04114 0 07400 4 03301 TSX TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986 04115 0 50000 0 01411 CLA L(3) STORE 3 4F11987 04116 0 60100 0 01105 STO 1C IN ADDRESS OF 1C. 4F11988 04117 0 50000 0 01112 CLA 1G ADD THE PROPER INCREMENT TO THE 4F11989 04120 0 40000 0 01115 ADD 1H NUMBER OF SENSE SWITCH OR LIGHT, 4F11990 04121 0 76700 0 00022 ALS 18 AND ADJUST TO THE DECREMENT. 4F11991 C0402= ENTRY POINT USED BY C0600. 4F11992 04122 0 60100 0 01110 C0402 STO 1C+3 SET 1C+3 FOR CIT ENTRY. 4F11993 04123 -0 53400 4 00030 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F11994 04124 -0 75400 4 00000 PXD ,4 NUMBER IN THE DECREMENT OF 4F11995 04125 0 62200 0 01105 STD 1C 1C FOR FUTURE TIFGO ENTRY, AND 4F11996 04126 0 60100 0 01107 STO 1C+2 1C+2 FOR FUTURE CIT ENTRY. 4F11997 04127 0 07400 4 01707 TSX C0190,4 * PROCEED TO FORM THE BINARY 4F11998 04130 0 07400 2 01655 TSX C0180,2 * EQUIVALENT OF BETA 1, 4F11999 04131 0 07400 4 03305 TSX TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000 04132 0 50000 0 01112 CLA 1G BRING UP, 4F12001 04133 0 76700 0 00022 ALS 18 ADJUST AND 4F12002 04134 0 60100 0 01106 STO 1C+1 STORE BETA1 IN DECR OF 1C+1. 4F12003 04135 0 07400 4 01707 TSX C0190,4 * PROCEED TO FORM THE BINARY 4F12004 04136 0 07400 2 01655 TSX C0180,2 * EQUIVALENT OF BETA 2, 4F12005 04137 0 07400 4 03271 TSX TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006 04140 0 50000 0 01112 CLA 1G BRING UP AND 4F12007 04141 0 62100 0 01106 STA 1C+1 STORE BETA2 IN ADDR OF 1C+1. 4F12008 04142 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12009 04143 0 00000 0 01107 PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12010 04144 0 00000 0 01116 PZE 2H WORD2--PSE,MSE,DCT,TOV,OR TQO. 4F12011 04145 0 00000 0 01406 PZE L(0) WORD3--000000 (ADDRESS) 4F12012 04146 0 00000 0 01110 PZE 1C+3 WORD4--DECR=SS OR SL NO., OR 0000004F12013 D 04147 1 00000 0 04030 TXI C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014 END OF PROGRAM C0400. 4F12015 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016 4F12017 C0500/ USES=C0400. 4F12018 C0500 PROCESSES IF (SENSE LIGHT STATMENTS. 4F12019 04150 0 50000 0 01440 C0500 CLA L(96) STORE 96 IN 4F12020 04151 0 60100 0 01115 STO 1H 1H AND 4F12021 04152 0 50000 0 01563 CLA L(MSE) OBTAIN (MSE000) IN ACC. 4F12022 04153 0 02000 0 04111 TRA C0401 * AND CONTINUE BY USING PROGRAM C04. 4F12023 END OF PROGRAM C0500. 4F12024 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025 4F12026 C0600/ USES=C0400. 4F12027 C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. 4F12028 04154 0 50000 0 01545 C0600 CLA L(DCT) STORE (DCT000) 4F12029 04155 0 60100 0 01116 STO 2H IN 2H 4F12030 04156 0 50000 0 01412 CLA L(4) AND PICK UP 4 TO SET 1C. 4F12031 C0601= ENTRY POINT USED BY C0700. 4F12032 04157 0 60100 0 01105 C0601 STO 1C SET 1C FOR FUTURE TIFGO ENTRY. 4F12033 04160 -0 75400 0 00000 PXD ,0 CLEAR THE AC, 4F12034 04161 0 02000 0 04122 TRA C0402 * AND CONTINUE BY USING PROGRAM C04. 4F12035 END OF PROGRAM C0600. 4F12036 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037 4F12038 C0700/ USES C0600. 4F12039 C0700 PROCESSES IF AC OVERFLOW STATEMENTS. 4F12040 04162 0 50000 0 01577 C0700 CLA L(TOV) PICKUP TOV000 TO SET 2H. 4F12041 C0701= ENTRY POINT USED BY C0800. 4F12042 04163 0 60100 0 01116 C0701 STO 2H SET 2H FOR FUTURE CIT ENTRY. 4F12043 04164 0 50000 0 01413 CLA L(5) PICKUP 5 TO SET 1C, AND 4F12044 04165 0 02000 0 04157 TRA C0601 * CONTINUE BY USING PROGRAM C06. 4F12045 END OF PROGRAM C0700. 4F12046 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047 4F12048 C0800/ USES=C0700. 4F12049 C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. 4F12050 04166 0 50000 0 01600 C0800 CLA L(TQO) PICKUP TQO000 TO SET 2H, 4F12051 04167 0 02000 0 04163 TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052 END OF PROGRAM C0800. 4F12053 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054 4F12055 C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300. 4F12056 C0900 PROCESSES PAUSE STATEMENTS. 4F12057 04170 -0 53400 2 04175 C0900 LXD C090X,2 SET XR2 FOR EXIT TO CA000. 4F12058 C0901= ENTRY POINT USED BY C1300. 4F12059 04171 0 60000 0 01112 C0901 STZ 1G CLEAR 1G. 4F12060 04172 0 07400 4 01707 C0902 TSX C0190,4 * TEST NEXT NON-BLANK CHARACTER 4F12061 04173 0 34000 0 01374 CAS ENDMK FOR END OF STATEMENT MARK. 4F12062 04174 0 02000 0 03272 TRA ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. 4F12063 04175 1 74341 0 04202 C090X TXI C0903,0,-CA010+1 IF NOT END OF STATEMENT, THEN 4F12064 04176 0 40000 0 01112 ADD 1G ADD 1G TO DIGIT, 4F12065 04177 0 76700 0 00003 ALS 3 MULTIPLY BY 8. 4F12066 04200 0 60100 0 01112 STO 1G AND STORE BACK IN 1G. 4F12067 D 04201 1 00000 0 04172 TXI C0902,0 CONTINUE UNTIL END OF STATEMENT. 4F12068 04202 0 50000 0 01112 C0903 CLA 1G THEN PLACE OCTAL ALPHA 4F12069 04203 0 76700 0 00017 ALS 15 IN THE DECREMENT 4F12070 04204 0 60100 0 01105 STO 1C OF 1C FOR FUTURE CIT ENTRY. 4F12071 04205 -0 53400 4 00030 LXD EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA 4F12072 04206 -0 75400 4 00000 PXD ,4 NUMBER IN THE DECREMENT 4F12073 04207 0 60100 0 01106 STO 1C+1 OF 1C+1,WITH ZEROS ELSEWHERE. 4F12074 04210 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12075 04211 0 00000 0 01106 PZE 1C+1 WORD1--DECR = INTFORMNO (LOCATION) 4F12076 04212 0 00000 0 01554 PZE L(HPR) WORD2--HPR000 (OP AND DECR) 4F12077 04213 0 00000 0 01406 PZE L(0) WORD3--000000 (ADDRESS) 4F12078 04214 0 00000 0 01105 PZE 1C WORD4--DECR = ALPHA, REST ZEROS. 4F12079 04215 0 02000 2 00001 TRA 1,2 * EXIT TO CA000, OR TO C1300. 4F12080 END OF PROGRAM C0900. 4F12081 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082 4F12083 C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..4F12084 CIT00. 4F12085 C1000 PROCESSES ASSIGN STATEMENTS. 4F12086 04216 0 07400 4 02366 C1000 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C 4F12087 04217 0 60100 0 01107 STO 1C+2 AND 1C+2,WITH ZEROS ELSEWHERE. 4F12088 04220 0 50000 0 01414 CLA L(6) STORE 6 IN 4F12089 04221 0 62100 0 01105 STA 1C ADDRESS OF 1C. 4F12090 04222 0 07400 2 01654 TSX C0180X,2 * GO FORM BINARY EQUIV OF ALPHA. 4F12091 04223 0 40200 0 01432 SUB L(T) IF NEXT CHARACTER IS NOT T, THEN 4F12093 04224 0 10000 0 04226 TZE *+2 THIS IS AN 4F12094 04225 0 07400 4 03400 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12095 04226 0 07400 4 01707 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12096 04227 0 40200 0 01425 SUB L(O) AND IF IT IS NOT 0, THEN 4F12097 04230 -0 10000 0 04225 TNZ *-3 ERROR, GO TO DIAGNOSTIC. 4F12098 04231 0 50000 0 01112 CLA 1G PUT BIN EQUIV OF ALPHA 4F12099 04232 0 60100 0 01106 STO 1C+1 IN ADDRESS OF 1C+1. 4F12100 04233 0 07400 4 01707 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12101 04234 0 07400 2 01624 TSX C0160,2 * THE SYMBOL N. 4F12102 04235 0 07400 4 03271 TSX TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK. 4F12103 04236 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12104 04237 0 00000 0 01107 PZE 1C+2 WORD1--DECR = INTFORMNO (LOCATION) 4F12105 04240 0 00000 0 01541 PZE L(CLA) WORD2--CLA000 (OP AND DECR) 4F12106 04241 0 00000 0 01406 PZE L(0) WORD3--000000 (ADDRESS) 4F12107 04242 0 00000 0 01406 PZE L(0) WORD4--000000 (RELADDR AND TAG). 4F12108 04243 0 07400 4 01731 TSX CIT00,4 * STORE SECOND COMPILED INSTRUCTION= 4F12109 04244 0 00000 0 01406 PZE L(0) WORD1--000000 (ALL ZEROS) 4F12110 04245 0 00000 0 01572 PZE L(STO) WORD2--STO000 (OP AND DECR) 4F12111 04246 0 00000 0 01112 PZE 1G WORD3--SYMBOL N (ADDRESS) 4F12112 04247 0 00000 0 01406 PZE L(0) WORD4--000000 (REL ADDR AND TAG). 4F12113 04250 0 02000 0 04030 TRA C0202 * CONTINUE BY USING PROGRAM C02. 4F12114 END OF PROGRAM C1000. 4F12115 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116 4F12117 C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00. 4F12118 C1100 PROCESSES SENSE LIGHT STATMENTS. 4F12119 04251 0 07400 2 01654 C1100 TSX C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120 04252 0 07400 4 03271 TSX TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122 04253 0 50000 0 01112 CLA 1G STORE SENSE LIGHT NUMBER 4F12123 04254 0 40000 0 01440 ADD L(96) PLUS 96 4F12124 04255 0 76700 0 00022 ALS 18 IN DECR 4F12125 04256 0 60100 0 01112 STO 1G OF 1G. 4F12126 04257 0 07400 4 02366 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127 04260 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F12128 04261 0 00000 0 01105 PZE 1C WORD1--DECR = INTFORMNO (LOCATION) 4F12129 04262 0 00000 0 01565 PZE L(PSE) WORD2--PSE000 (OP AND DECREMENT) 4F12130 04263 0 00000 0 01406 PZE L(0) WORD3--000000 (ADDRESS PART) 4F12131 04264 0 00000 0 01112 PZE 1G WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132 D 04265 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12133 END OF PROGRAM C1100. 4F12134 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135 4F12136 C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS. 4F12137 C1200 PROCESSES DIMENSION STATEMENTS. 4F12138 04266 0 07400 4 01707 C1200 TSX C0190,4 * PROCEED TO ASSEMBLE IN 1G 4F12139 04267 0 07400 2 01624 TSX C0160,2 * THE VARIABLE SYMBOL. 4F12140 04270 0 07400 4 03275 TSX TESTE0,4 * NEXT NB CHARACTER SHOULD BE LPAREN.4F12141 04271 0 50000 0 01112 CLA 1G PUT VARIABLE SYMBOL 4F12142 04272 0 60100 0 01105 STO 1C IN 1C. 4F12143 04273 0 60100 0 01130 STO E+2 ALSO IN E+2. THEN 4F12144 04274 0 07400 4 01771 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE. 4F12145 04275 0 02000 0 04277 TRA C1280 THEN IF NOT 4F12146 04276 0 02000 0 04304 TRA C1299 FOUND, 4F12147 04277 0 07400 4 01775 C1280 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12148 04300 0 02000 0 04302 TRA C1281 THEN IF NOT 4F12149 04301 0 02000 0 04304 TRA C1299 FOUND, 4F12150 04302 0 07400 4 02005 C1281 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12151 04303 0 02000 0 04305 TRA C1282 DO NOT CONTUINUE IF 4F12152 04304 0 07400 4 03400 C1299 TSX DIAG,4 * VARIABLE PREVIOUSLY APPEARED. 4F12153 04305 0 07400 2 01654 C1282 TSX C0180X,2 * GO FORM BINARY EQUIV OF D1. 4F12154 04306 0 40200 0 01377 SUB CLOS IF NOT 1 DIMENSION, 4F12155 04307 0 10000 0 04330 TZE C1210 THEN 4F12156 04310 0 50000 0 01112 CLA 1G PUT D1 4F12157 04311 0 76700 0 00022 ALS 18 IN DECR 4F12158 04312 0 60100 0 01106 STO 1C+1 OF 1C+1. 4F12159 04313 0 07400 2 01654 TSX C0180X,2 * GO FORM BINARY EQUIV OF D2. 4F12160 04314 0 40200 0 01377 SUB CLOS IF NOT 2 DIMENSION, 4F12163 04315 0 10000 0 04334 TZE C1220 THEN 4F12164 04316 0 50000 0 01112 CLA 1G PUT D2 4F12165 04317 0 62100 0 01106 STA 1C+1 IN ADDRESS OF 1C+1. 4F12166 04320 0 07400 2 01654 TSX C0180X,2 * GO FORM BINARY EQUIV OF D3. 4F12168 04321 0 40200 0 01377 SUB CLOS IF MORE THAN 3 DIMENSIONS, 4F12169 04322 0 10000 0 04324 TZE *+2 THIS IS AN 4F12170 04323 0 07400 4 03400 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12171 04324 0 50000 0 01112 CLA 1G IF 3 DIMENSION, PUT D3 4F12172 04325 0 60100 0 01107 STO 1C+2 IN 1C+2, AND 4F12173 04326 0 07400 4 00467 TSX DIM3IX,4 * GO MAKE DIM3 ENTRY. 4F12174 D 04327 1 00000 0 04337 TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12175 04330 0 50000 0 01112 C1210 CLA 1G IF 1 DIMENSION, PUT D1 4F12176 04331 0 60100 0 01106 STO 1C+1 IN 1C+1, AND 4F12177 04332 0 07400 4 00455 TSX DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN 4F12178 D 04333 1 00000 0 04337 TXI C1201,0 GO TO TEST FOR END OF STATEMENT. 4F12179 04334 0 50000 0 01112 C1220 CLA 1G IF 2 DIMENSIONS, PUT D2 IN 4F12180 04335 0 62100 0 01106 STA 1C+1 ADDRESS PART OF 1C+1. AND 4F12181 04336 0 07400 4 00462 TSX DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN 4F12182 04337 0 07400 4 01707 C1201 TSX C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN. 4F12183 04340 0 07400 4 03247 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12184 04341 -0 10000 0 04266 TNZ C1200 IF CHARACTER IS ENDMAKR, THEN 4F12185 D 04342 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATMENT. 4F12186 END OF PROGRAM C1200. 4F12187 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188 4F12189 C1300/ CALLS=C0901,TET00,CIT00. 4F12190 C1300 PROCESSES STOP STATEMENTS. 4F12191 04343 0 07400 1 03321 C1300 TSX TET00,1 * GO MAKE EIFNO ENTRY 4F12192 04344 0 00000 0 00017 PZE 15 IN TSTOP TABLE. 4F12193 04345 0 07400 2 04171 TSX C0901,2 * USE C0900 TO BEGIN PROCESSING. 4F12194 04346 0 07400 4 01731 TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F12195 04347 0 00000 0 01406 PZE L(0) WORD1--ALL ZEROS 4F12196 04350 0 00000 0 01601 PZE L(TRA) WORD2--TRA000 (OP+DECR) 4F12197 04351 0 00000 0 01106 PZE 1C+1 WORD3--DECR = INTFORMNO (SYMBOL) 4F12198 04352 0 00000 0 01406 PZE L(0) WORD4--ZEROS (REL ADDR AND TAG) 4F12199 D 04353 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12200 END OF PROGRAM C1300. 4F12201 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202 4F12203 C1400/ CALLS=C0190,C0180,TEST..,TET00. 4F12204 C1400 PROCESS FREQUENCY STATEMENTS. 4F12205 04354 0 07400 2 01654 C1400 TSX C0180X,2 * GO FORM BINARY EQUIV OF EFN. 4F12206 04355 0 07400 4 03275 TSX TESTE0,4 * CHARACTER SHOULD BE A LPAREN. 4F12208 04356 0 50200 0 01112 CLS 1G CHANGE SIGN OF SYMBOL 4F12209 04357 0 60100 0 01112 STO 1G TO MINUS. 4F12210 04360 0 07400 1 03321 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 4F12211 04361 0 00000 0 00007 PZE 7 4F12212 04362 0 07400 2 01654 C1401 TSX C0180X,2 * GO FORM BINARY EQUIV OF M(1). 4F12213 04363 0 60100 0 01105 STO 1C SAVE CHAR IN ACC. 4F12215 04364 0 07400 1 03321 TSX TET00,1 * GO TO PROGRAM TET TO ENTER M(1) 4F12216 04365 0 00000 0 00007 PZE 7 INTO TABLE FRET (TABLE7), AND 4F12217 04366 0 50000 0 01105 CLA 1C RESTORE CHAR IN ACC, AND 4F12218 04367 0 07400 4 03255 TSX TESTB0,4 * TEST FOR , OR ). 4F12219 04370 -0 10000 0 04362 TNZ C1401 IF RIGHT PARENTHESIS, THEN 4F12220 04371 0 07400 4 01707 TSX C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND 4F12221 04372 0 07400 4 03247 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12222 04373 -0 10000 0 04354 TNZ C1400 IF ENDMAKE, THIS STATEMENT IS DONE.4F12223 D 04374 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12224 END OF PROGRAM C1400. 4F12225 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226 4F12227 C1500/ CALLS=C0190,TEST..,C0160,C0180,TET00. 4F12228 C1500 PROCESSES EQUIVALENCE STATEMENTS. 4F12229 04375 0 07400 4 01707 C1500 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12230 04376 0 07400 4 03275 TSX TESTE0,4 * CHARACTER SHOULD BE A LPARAN. 4F12231 04377 0 50000 0 01407 C1501 CLA L(1) INITIALIZE 1C 4F12232 04400 0 60100 0 01106 STO 1C+1 TO 1. 4F12233 04401 0 07400 4 01707 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND 4F12234 04402 0 07400 2 01624 TSX C0160,2 * OBTAIN IN 1G THE SYMBOL V. 4F12235 04403 0 56000 0 01112 LDQ 1G MOVE V 4F12236 04404 -0 60000 0 01105 STQ 1C INTO 1C. 4F12237 04405 0 34000 0 01375 CAS ALPAR EXAMINE CHARACTER LEFT IN THE AC, 4F12238 D 04406 1 00000 0 04416 TXI C1503,0 AND IF 4F12239 D 04407 1 00000 0 04411 TXI C1502,0 CHARACTER IS A LEFT PARENTHESIS, 4F12240 D 04410 2 00000 0 04416 TIX C1503,0 THEN 4F12241 04411 0 07400 2 01654 C1502 TSX C0180X,2 * GO FORM BINARY EQUIV OF N. 4F12242 04412 0 07400 4 03301 TSX TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN.4F12244 04413 0 50000 0 01112 CLA 1G PUT BIN EQUIV OF N 4F12245 04414 0 60100 0 01106 STO 1C+1 IN 1C+1. 4F12246 04415 0 07400 4 01707 TSX C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND 4F12247 04416 0 07400 4 03255 C1503 TSX TESTB0,4 * TEST FOR COMMA OR RPAREN. 4F12248 04417 0 10000 0 04423 TZE C1504 IF COMMA, THEN 4F12249 04420 0 07400 1 03321 TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12250 04421 0 00000 0 00010 PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12251 D 04422 1 00000 0 04377 TXI C1501,0 RETURN TO CONTINUE PROCESSING X. 4F12252 04423 0 50200 0 01106 C1504 CLS 1C+1 MAKE SIGN OF N MINUS SINCE 4F12253 04424 0 60100 0 01106 STO 1C+1 THIS IS LAST ITEM. 4F12254 04425 0 07400 1 03321 TSX TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL 4F12255 04426 0 00000 0 00010 PZE 8 AND N IN EQUIT (TABLE 8), AND 4F12256 04427 0 07400 4 01707 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND 4F12257 04430 0 07400 4 03247 TSX TESTA0,4 * TEST FOR COMMA OR ENDMARK. 4F12258 04431 -0 10000 0 04375 TNZ C1500 IF ENDMARK, THEN 4F12259 D 04432 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12260 END OF PROGRAM C1500. 4F12261 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12262 4F12263 C1600/ CALLS=C0190,TEST..,GIF,BSS. 4F12264 C1600 PROCESSES CONTINUE STATEMENTS. 4F12265 04433 0 07400 4 01707 C1600 TSX C0190,4 * OBTAIN NEXT NBCHAR IN ACC. 4F12266 04434 0 07400 4 03271 TSX TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. 4F12267 04435 0 07400 4 02375 TSX GIF,4 * GET INTERNAL FORMULA NUMBER, AND 4F12268 04436 0 07400 2 05674 TSX BSS,2 * GO COMPILE= IFN BSS 0. 4F12269 D 04437 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12270 END OF PROGRAM C1500. 4F12271 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12272 4F12273 C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX. 4F12274 C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. 4F12275 04440 -0 50000 0 00422 C3500 CAL TXHOP 4F12276 04441 0 63000 0 04454 STP C3003 4F12277 04442 -0 53400 4 00030 C3000 LXD EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND 4F12278 04443 -3 00001 4 04445 TXL *+2,4,1 IF NOT THE 1ST STATEMENT, THEN 4F12279 04444 0 07400 4 03400 TSX DIAG,4 * ERROR - GO TO DIAGNOSTIC. 4F12280 04445 0 50000 0 01121 CLA ARGCNT SET ARGCNT TO INDICATE TO LATER 4F12281 04446 0 76000 0 00003 SSP RETURN THAT THERE WAS A PRECEEDING 4F12282 04447 0 60100 0 01121 STO ARGCNT SUBROUTINE OR FUNCTION STATEMENT. 4F12283 04450 0 07400 4 01707 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12284 04451 0 07400 4 03311 TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285 04452 0 07400 2 01624 TSX C0160,2 * ASSEMBLE NAME IN 1G. 4F12286 04453 0 07400 4 03263 TSX TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287 D 04454 -3 00000 0 04457 C3003 TXL *+3,0 4F12288 04455 0 50000 0 01112 CLA 1G 4F12289 04456 0 60100 0 01332 STO FSNAME 4F12290 04457 0 07400 4 03224 TSX SUBX00,4 * FILL OUT NAME WITH BLANKS. 4F12291 04460 0 07400 1 03321 TSX TET00,1 * GO ENTER NAME 4F12292 04461 0 00000 0 00013 PZE 11 IN SUBDEF TABLE. 4F12293 04462 -0 53400 4 00030 LXD EIFNO,4 PLACE 4F12294 04463 -0 75400 4 00000 PXD ,4 INTERNAL FORMULA NUMBER 4F12295 04464 0 60100 0 01347 STO G IN G. 4F12296 D 04465 1 00000 0 04506 TXI C3002,0 GO TEST FOR END OF STATEMENT. 4F12297 04466 0 40000 0 01374 C3001 ADD ENDMK IF NOT ENDMARK, RESTOERE CHARACTER 4F12298 04467 0 07400 4 03311 TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC 4F12299 04470 0 60100 0 01331 STO FIRSTC 1ST CHARACTER OF ARGUMENT. 4F12300 04471 0 07400 2 01624 TSX C0160,2 * ASSEMBLE ARGUMENT IN 1G. 4F12301 04472 0 07400 4 03255 TSX TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPARAN. 4F12302 04473 0 50000 0 01112 CLA 1G MOVE ARGUMENT 4F12303 04474 0 60100 0 01350 STO G+1 INTO G+1. 4F12304 04475 0 07400 1 03241 TSX TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT. 4F12305 D 04476 1 00000 0 04501 TXI C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY.4F12306 04477 0 07400 1 03321 TSX TET00,1 * IF FIXED POINT, GO MAKE ENTRY 4F12307 04500 0 00000 0 00006 PZE 6 IN FORVAL TABLE. 4F12308 04501 0 07400 1 03321 C3004 TSX TET00,1 * IN BOTH CASES, MAKE ENTRIES IN 4F12309 04502 0 00000 0 00013 PZE 11 SUBDEF TABLE. 4F12310 04503 0 50000 0 01121 CLA ARGCNT UPDATE 4F12311 04504 0 40000 0 01454 ADD D1 ARGUMENT COUNT 4F12312 04505 0 60100 0 01121 STO ARGCNT BY 1. AND 4F12313 04506 0 07400 4 01707 C3002 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. 4F12314 04507 0 40200 0 01374 SUB ENDMK IF NOT ENDMARK, THEN 4F12315 04510 -0 10000 0 04466 TNZ C3001 GO PROCESS NEXT ARGUMENT. 4F12316 D 04511 1 00000 0 03440 TXI CA010,0 * OTHERWISE, EXIT TO CA000. 4F12317 END OF PROGRAM C3000. 4F12318 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319 4F12320 C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00. 4F12321 C3100 PROCESSES COMMON STATEMENTS. 4F12322 04512 0 07400 4 01707 C3100 TSX C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323 04513 0 07400 4 03311 TSX TESTH0,4 * WHICH SHOULD BE NON-NUMERIC. 4F12324 04514 0 07400 2 01624 TSX C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST 4F12325 04515 0 07400 4 03247 TSX TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326 04516 0 73400 4 00000 PAX ,4 SAVE RESULT OF TEST IN XR4, AND 4F12327 04517 0 07400 1 03321 TSX TET00,1 * GO ENTER THIS SYMBOL 4F12328 04520 0 00000 0 00014 PZE 12 IN COMMON TABLE. 4F12329 04521 0 50000 0 00365 CLA SBDFCN ANY ENTRIES IN SUBDEF 4F123291 04522 0 10000 0 04534 TZE C3101 INDICATE THIS IS NOT A 4F123292 04523 0 50000 0 01454 CLA 2E18 MAIN PROGRAM. SINCE THIS 4F123293 04524 0 60100 0 01347 STO G IS A COMMON 4F123294 04525 -0 50000 0 01112 CAL 1G STATEMENT WHICH 4F123296 04526 0 60200 0 01350 SLW G+1 APPEARS IN A SUBPROGRAM 4F123297 04527 0 77100 0 00036 ARS 30 ENTER ANY 4F123298 04530 0 07400 1 03242 TSX TESTFX+1,1 * FIXED POINT 4F123299 04531 0 02000 0 04534 TRA C3101 VARIABLES 4F12330 04532 0 07400 1 03321 TSX TET00,1 * IN 4F123301 04533 0 00000 0 00006 PZE 6 FORVAL TABLE. 4F123302 04534 3 00000 4 04512 C3101 TXH C3100,4,0 IF CHARACTER WAS COMMA, REPEAT. 4F123303 D 04535 1 00000 0 03440 TXI CA010,0 * IF ENDMK, EXIT TO CA000. 4F12331 END OF PROGRAM C3100. 4F12332 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333 4F12334 C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF). 4F12335 C3200 PROCESSES RETURN STATEMENTS. 4F12336 04536 0 07400 4 01707 C3200 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12337 04537 0 07400 4 03271 TSX TESTD0,4 * WHICH SHOULD BE AN ENDMARK. 4F12338 04540 0 07400 4 02366 TSX GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339 04541 0 07400 4 02372 TSX JIF,4 * SET SL TO ALPHA+1. 4F12340 04542 0 50000 0 01121 CLA ARGCNT TEST ARGCNT FOR PRECEEDING 4F12341 04543 0 12000 0 04545 TPL *+2 SUBROUTINE - IF NONE, THEN 4F12342 04544 0 07400 4 03400 TSX DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. 4F12343 04545 0 50000 0 01332 CLA FSNAME 4F12344 04546 0 10000 0 04555 TZE *+7 4F12345 04547 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12346 04550 0 00000 0 01105 PZE 1C WORD1--0(IFN)000 4F12347 04551 0 00000 0 01541 PZE L(CLA) WORD2--CLA000 4F12348 04552 0 00000 0 01332 PZE FSNAME WORD3--NAME OF FUNCTION 4F12349 04553 0 00000 0 01406 PZE L(0) WORD4--000000 4F12350 04554 0 60000 0 01105 STZ 1C CLEAR 1C. 4F12351 04555 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12352 04556 0 00000 0 01105 PZE 1C WORD1--0(IFN)000 4F12353 04557 0 00000 0 01561 PZE L(LXD) WORD2--LXD000 4F12354 04560 0 00000 0 01523 PZE DOLSGN WORD3--$ 4F12355 04561 0 00000 0 01407 PZE L(1) WORD4--000001 4F12356 04562 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12357 04563 0 00000 0 01406 PZE L(0) WORD1--000000 4F12358 04564 0 00000 0 01561 PZE L(LXD) WORD2--LXD000 4F12359 04565 0 00000 0 01523 PZE DOLSGN WORD3--$ 4F12360 04566 0 00000 0 01456 PZE ABTAG2 WORD4--001002 4F12361 04567 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12362 04570 0 00000 0 01406 PZE L(0) WORD1--000000 4F12363 04571 0 00000 0 01570 PZE L(QXD) WORD2--QXD000 4F12364 04572 0 00000 0 01523 PZE DOLSGN WORD3--$ 4F12365 04573 0 00000 0 01460 PZE ABTAG3 WORD4--002000 4F12366 04574 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12367 04575 0 00000 0 01367 PZE SL WORD1--0(IFN+1)000 4F12368 04576 0 00000 0 01567 PZE L(QPR) WORD2--QPR000 4F12369 04577 0 00000 0 01406 PZE L(0) WORD3--000000 4F12370 04600 0 00000 0 01121 PZE ARGCNT WORD4--0(N+1)004 4F12371 04601 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12372 04602 0 00000 0 01406 PZE L(0) WORD1--000000 4F12373 04603 0 00000 0 01601 PZE L(TRA) WORD2--TRA000 4F12374 04604 0 00000 0 01367 PZE SL WORD3--0(IFN+1)000 4F12375 04605 0 00000 0 01406 PZE L(0) WORD4--000000 4F12376 D 04606 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12377 END OF PROGRAM C3200. 4F12378 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379 4F12380 C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00. 4F12381 C3300 PROCESSES CALL STATEMENTS. 4F12382 04607 0 07400 4 01707 C3300 TSX C0190,4 * IF 1ST CHARACTER OF NAME IS 4F12383 04610 0 07400 4 03311 TSX TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384 04611 0 07400 2 01624 TSX C0160,2 * COLLECT THE REST OF THE NAME, WHICH4F12385 04612 0 07400 4 03263 TSX TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386 04613 0 10000 0 04632 TZE C3301 IF LPAREN, THEN CHANGE CALL TO A 4F12387 04614 0 07400 4 01671 TSX C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=). 4F12388 04615 0 07400 4 01707 TSX C0190,4 * PICKUP THE CHARACTER C, 4F12389 04616 0 56000 0 01434 LDQ L(Z) AND 4F12390 04617 0 07400 4 01675 TSX C0390,4 * REPLACE C WITH Z. 4F12391 04620 0 56000 0 01373 LDQ L(10) AND 4F12392 04621 0 07400 4 01675 TSX C0390,4 * REPLACE A WITH TEN. 4F12393 04622 0 56000 0 01400 LDQ EQUAL AND 4F12394 04623 0 07400 4 01675 TSX C0390,4 * REPLACE FIRST L WITH =. 4F12395 04624 0 56000 0 01430 LDQ BLANK AND 4F12396 04625 0 07400 4 01675 TSX C0390,4 * REPLACE SECOND L WITH BLANK. 4F12397 04626 0 50000 0 00030 CLA EIFNO PUT 1ST IFN OF THIS CAL IN CALLNM 4F12398 04627 0 77100 0 00022 ARS 18 FOR LATER TABLE ENTRY FO 4F12399 04630 0 62100 0 01123 STA CALLNM FIRST / LAST NUMBERS OF CALLS. 4F12400 D 04631 1 00000 0 02404 TXI ARITH,0 * THEN EXIT TO ARITH TO PROCESS. 4F12401 04632 0 07400 4 03224 C3301 TSX SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN 4F12402 04633 0 50000 0 01112 CLA 1G AFTER COMPLETING NAME WITH BLANKS, 4F12403 04634 0 60100 0 01347 STO G MOVE IT INTO G, AND 4F12404 04635 0 07400 1 03321 TSX TET00,1 * GO ENTER NAME 4F12405 04636 0 00000 0 00011 PZE 9 INTO CLOSUB TABLE. 4F12406 04637 0 07400 4 02366 TSX GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407 04640 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12408 04641 0 00000 0 01105 PZE 1C WORD1--0(IFN)000 4F12409 04642 0 00000 0 01575 PZE L(SXD) WORD2--SXD000 4F12410 04643 0 00000 0 01505 PZE X( WORD3--700000 4F12411 04644 0 00000 0 01412 PZE L(4) WORD4--000004 4F12412 04645 0 07400 4 01731 TSX CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12413 04646 0 00000 0 01406 PZE L(0) WORD1--000000 4F12414 04647 0 00000 0 01602 PZE L(TSX) WORD2--TSX000 4F12415 04650 0 00000 0 01112 PZE 1G WORD3--(NAME) 4F12416 04651 0 00000 0 01412 PZE L(4) WORD4--000004 4F12417 04652 0 07400 4 03401 TSX FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418 04653 0 00000 0 01406 PZE L(0) WORD1--000000 4F12419 04654 0 00000 0 01561 PZE L(LXD) WORD2--LXD000 4F12420 04655 0 00000 0 01505 PZE X( WORD3--700000 4F12421 04656 0 00000 0 01412 PZE L(4) WORD4--000004 4F12422 D 04657 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12423 END OF PROGRAM C3300. 4F12424 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425 4F12426 C3400/ CALLS=C0190,DIAG,TEST... 4F12427 C3400 PROCESSES END STATEMENTS. 4F12428 04660 0 53400 2 01413 C3400 LXA L(5),2 PREPARE TO SET 5 SS SIMULATORS. 4F12429 04661 0 07400 4 01707 C3405 TSX C0190,4 * PICKUP CONSTANT, 4F12430 04662 0 34000 0 01410 CAS L(2) WHICH SHOULD BE 0,1, OR 2. 4F12431 04663 0 07400 4 03400 TSX DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC. 4F12432 D 04664 1 00000 0 04666 TXI C3410,0 SIMULATOR IS PRESET TO 2. 4F12433 04665 0 60100 2 00036 STO ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. 4F12434 04666 0 07400 4 01707 C3410 TSX C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435 04667 2 00001 2 04661 TIX C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS. 4F12436 04670 0 07400 4 01707 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, 4F12437 04671 0 07400 4 03271 TSX TESTD0,4 * WHICH SHOULD BE AN ENDMK. 4F12438 D 04672 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F12439 END OF PROGRAM C3400. 4F12440 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441 4F12442 STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS= 4F12443 4F12444 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445 4F12446 RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF. 4F12447 RDC PROCESSES READ STATEMENTS. 4F12448 04673 0 50000 0 01437 RDC CLA A81 SET THE ADDRESS FIELD OF 4F12449 04674 0 62100 0 02067 STA ENT ENT (NTR000) TO 81. 4F12450 04675 0 07400 2 06002 TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12451 04676 0 50000 0 06127 CLA CSH PICKUP (CSH) TO 4F12452 TSC= ENTRY POINT USED BY RIT. 4F12453 04677 0 60100 0 06143 TSC STO TSA SET TSA. 4F12454 04700 -0 50000 0 06133 CAL RTN MOVE (RTN) 4F12455 04701 0 60200 0 06141 SLW END INTO END. 4F12456 04702 0 50000 0 06130 CLA DBC PICKUP (DBC) TO 4F12457 TTC= ENTRY POINT USED BY RDP. 4F12458 04703 0 60100 0 06144 TTC STO TTA SET TTA. 4F12459 04704 0 07400 4 05603 TSX BEG,4 * CONVERT CONSTANT FORMULA NUMBER. 4F12460 04705 0 07400 4 03400 TSX DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461 04706 -0 10000 4 00004 TNZ 4,4 GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462 04707 0 07400 4 03400 TSX DIAG,4 * NO FORMAT NUMBER GIVEN. 4F12463 04710 0 62100 0 01366 STA SET MOVE BINARY FORMAT NUMBER INTO SET.4F12464 04711 -0 50000 0 06114 CAL NTR MOVE NTR000 4F12465 04712 0 60200 0 07401 SLW OP INTO OP. 4F12466 04713 -0 50000 0 00415 CAL TXLOP SET OP-SWITCHES. 4F12467 04714 0 63000 0 05754 STP ETMSW ETMSW AND LTMSW, 4F12468 04715 0 63000 0 05757 STP LTMSW TO NO TRANSFER CASE. 4F12469 04716 0 07400 4 05754 TSX ETMSW,4 * GO COMPILE ETM. 4F12470 04717 0 07400 4 06023 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12471 04720 0 00000 0 01406 PZE L(0) WORD1--000000 4F12472 04721 0 00000 0 01537 PZE CAL WORD2--CAL000 4F12473 04722 0 00000 0 06144 PZE TTA WORD3--(DBC) OR (BDC) 4F12474 04723 0 00000 0 01406 PZE L(0) WORD4--000000 4F12475 04724 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12476 04725 0 00000 0 01406 PZE L(0) WORD1--000000 4F12477 04726 0 00000 0 06120 PZE SLW WORD2--SLW000 4F12478 04727 0 00000 0 01406 PZE L(0) WORD3--000000 4F12479 04730 0 00000 0 01454 PZE D1 WORD4--001000 4F12480 04731 0 07400 4 06023 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F12481 04732 0 00000 0 01406 PZE L(0) WORD1--000000 4F12482 04733 0 00000 0 01537 PZE CAL WORD2--CAL000 4F12483 04734 0 00000 0 06143 PZE TSA WORD3--(CSH) OR (TSH) 4F12484 04735 0 00000 0 01406 PZE L(0) WORD4--000000 4F12485 04736 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12486 04737 0 00000 0 01371 PZE TL WORD1--0(IFN)0(248) 4F12487 04740 0 00000 0 02067 PZE ENT WORD2--NTR0(81, OR UNIT, OR 00) 4F12488 04741 0 00000 0 01366 PZE SET WORD3--800(FORMAT NUMBER) 4F12489 04742 0 00000 0 01406 PZE L(0) WORD4--000000 4F12490 04743 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12491 BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD. 4F12492 D 04744 1 00000 0 05141 BXT TXI RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493 END OF PROGRAM RDC. 4F12494 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495 4F12496 RIT/ CALLS=INPUT,BEG,VRD. USES=RDC. 4F12497 RIT PROCESSES READ INPUT TAPE STATEMENTS. 4F12498 04745 0 07400 2 06002 RIT TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12499 04746 0 07400 4 05603 TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500 04747 0 07400 4 06036 TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12501 04750 0 62100 0 02067 STA ENT IF CONSTANT, SET ENT= NTRO(UNIT). 4F12502 04751 0 50000 0 06137 CLA TSH PICKUP (TSH) TO SET TSA, AND 4F12503 D 04752 1 00000 0 04677 TXI TSC,0 * CONTINUE BY USING PROGRAM RDC. 4F12504 END OF PROGRAM RIT. 4F12505 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506 4F12507 RDP/ CALLS=OUTPUT. USES=RDC. 4F12508 RDP PROCESSES PRINT STATEMENTS. 4F12509 04753 -0 75400 0 00000 RDP PXD ,0 RESET ENT 4F12510 04754 0 62100 0 02067 STA ENT TO NTR000. 4F12511 04755 0 07400 2 06004 TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12512 04756 0 50000 0 06135 CLA SPH PICKUP (SPH), AND 4F12513 TSD = ENTRY POINT USED BY WOT, PDC. 4F12514 04757 0 60100 0 06143 TSD STO TSA SET TSA. 4F12515 04760 -0 50000 0 06131 CAL FIL MOVE (FIL) 4F12516 04761 0 60200 0 06141 SLW END INTO END. 4F12517 04762 0 50000 0 06126 CLA BDC PICKUP (BDC) TO SET TTA, AND 4F12518 D 04763 1 00000 0 04703 TXI TTC,0 * CONTINUE BY USING PROGRAM RDC. 4F12519 END OF PROGRAM RDP, 4F12520 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521 4F12522 WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP. 4F12523 PROCESSES WRITE OUTPUT TAPE STATEMENTS. 4F12524 04764 0 07400 2 06004 WOT TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12525 04765 0 07400 4 05603 TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526 04766 0 07400 4 06036 TSX VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F12527 04767 0 62100 0 02067 STA ENT IF CONSTANT, SET ENT= NTRO(UNIT). 4F12528 04770 0 50000 0 06136 CLA STH PICKUP (STH) TO SET TSA, AND 4F12529 D 04771 1 00000 0 04757 TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12530 END OF PROGRAM WOT. 4F12531 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532 4F12533 PDC/ CALLS=OUTPUT. USES=RDP. 4F12534 PROCESSES PUNCH STATEMENTS. 4F12535 04772 -0 75400 0 00000 PDC PXD ,0 RESET ENT 4F12536 04773 0 62100 0 02067 STA ENT TO NTR000. 4F12537 04774 0 07400 2 06004 TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). 4F12538 04775 0 50000 0 06134 CLA SCH PICKUP (SCH) TO SET TSA. AND 4F12539 D 04776 1 00000 0 04757 TXI TSD,0 * CONTINUE BY USING PROGRAM RDP. 4F12540 END OF PROGRAM PDC. 4F12541 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12542 4F12543 WBT/ CALLS=OUTPUT,BRW,CIT, 4F12544 WBT PROCESSES WRITE TAPE STATEMENTS, 4F12545 04777 -0 50000 0 06124 WBT CAL WTB MOVE WTB000 4F12546 05000 0 60200 0 07401 SLW OP INTO OP. 4F12547 05001 0 07400 2 06004 TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12548 05002 -0 50000 0 01475 CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12549 05003 0 07400 4 05646 TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12550 05004 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12551 05005 0 00000 0 01406 PZE L(0) WORD1-000000 4F12552 05006 0 00000 0 01544 PZE CPY WORD2-CPY000 4F12553 05007 0 00000 0 01504 PZE ZER WORD3-600000 4F12554 05010 0 00000 0 01457 PZE D2 WORD4-002000 4F12555 D 05011 1 00000 0 04744 TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE,4F12556 END OF PROGRAM WBT, 4F12557 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12558 4F12559 RBT/ CALLS=INPUT,BRW,CIT, 4F12560 RBT PROCESSES READ TAPE STATEMENTS. 4F12561 05012 -0 50000 0 06117 RBT CAL RTB MOVE RTB000 4F12562 05013 0 60200 0 07401 SLW OP INT OP. 4F12563 05014 0 07400 2 06002 TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12564 05015 -0 50000 0 01475 CAL BTA PICKUP BINARY TAPE ADDRESS, AND 4F12565 05016 0 07400 4 05646 TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12566 05017 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12567 05020 0 00000 0 01406 PZE L(0) WORD1-000000 4F12568 05021 0 00000 0 01544 PZE CPY WORD2-CPY000 4F12569 05022 0 00000 0 01500 PZE DMP WORD3-100000 4F12570 05023 0 00000 0 01406 PZE L(0) WORD4-000000 4F12571 05024 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12572 05025 0 00000 0 01406 PZE L(0) WORD1-000000 4F12573 05026 0 00000 0 06125 PZE XIT WORD2-XIT000 4F12574 05027 0 00000 0 01510 PZE 15P WORD3-*00000 4F12575 05030 0 00000 0 01461 PZE D3CN WORD4-003000 4F12576 05031 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12577 05032 0 00000 0 01406 PZE L(0) WORD1-000000 4F12578 05033 0 00000 0 01554 PZE HPR WORD2-HPR000 4F12579 05034 0 00000 0 01406 PZE L(0) WORD3-000000 4F12580 05035 0 00000 0 01406 PZE L(0) WORD4-000000 4F12581 05036 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12582 05037 0 00000 0 01406 PZE L(0) WORD1-000000 4F12583 05040 0 00000 0 06125 PZE XIT WORD2-XIT000 4F12584 05041 0 00000 0 01371 PZE TL WORD3-0(IFN)0(248) 4F12585 05042 0 00000 0 01406 PZE L(0) WORD4-000000 4F12586 D 05043 1 00000 0 04744 TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS 0N4F12587 END OF PROGRAM RBT. 4F12588 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12589 4F12590 WRD/ CALLS=OUTPUT,BRW,CIT, 4F12591 WRD PROCESSES WRITE DRUM STATEMENTS. 4F12592 05044 0 07400 2 06004 WRD TSX OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12593 05045 -0 50000 0 06122 CAL WDR PICKUP WDR000, AND 4F12594 XDR= ENTRY POINT USED BY RDD. 4F12595 05046 0 60200 0 07401 XDR SLW OP SET OP. 4F12596 05047 -0 50000 0 01476 CAL BDA PICKUP BINARY DRUM ADDRESS, AND 4F12597 05050 0 07400 4 05646 TSX BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. 4F12598 05051 -0 50000 0 01566 CAL PXD MOVE PXD000 4F12599 05052 0 60200 0 07401 SLW OP INTO OP. 4F12600 05053 -0 75400 0 00000 PXD ,0 CLEAR THE AC AND 4F12601 05054 0 07400 4 05646 TSX BRW,4 * COMPILE INSTRS TO SET DRUM LOC. 4F12602 05055 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12603 05056 0 00000 0 01406 PZE L(0) WORD1--000000 4F12604 05057 0 00000 0 01555 PZE LDA WORD2--LDA000 4F12605 05060 0 00000 0 01371 PZE TL WORD3--0(IFN)0(248) 4F12606 05061 0 00000 0 01406 PZE L(0) WORD4--000000 4F12607 D 05062 1 00000 0 04744 TXI BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE.4F12608 END OF PROGRAM WRD. 4F12609 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12610 4F12611 RDD/ CALLS=INPUT. USES=WRD, 4F12612 RDD PROCESSES READ DRUM STATEMENTS. 4F12613 05063 0 07400 2 06002 RDD TSX INPUT,2 * GO COMPILE CAL *, AND XIT (LEV), 4F12614 05064 -0 50000 0 06115 CAL RDR PICKUP RDR000 TO SET OP, AND 4F12615 D 05065 1 00000 0 05046 TXI XDR,0 * CONTINUE BY USING PROGRAM WRD. 4F12616 END OF PROGRAM RDD. 4F12617 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12618 4F12619 EFT/ CALLS=GIF,BEG,VRAX,CIT, 4F12620 EFT PROCESSES WRITE END OF FILE STATEMENTS. 4F12621 05066 -0 50000 0 06123 EFT CAL WEF PICKUP WEF000, AND 4F12622 TPO= ENTRY POINT USED BY RWN, BSP, 4F12623 05067 0 60200 0 07401 TPO SLW OP SET OP. 4F12624 05070 -0 50000 0 01475 CAL BTA MOVE BINARY TAPE ADDRESS 4F12625 05071 0 60200 0 06140 SLW CON INTO CON. 4F12626 05072 0 07400 4 02375 TSX GIF,4 * GET IFN INTO SL AND TL, 4F12627 05073 0 50000 0 02377 CLA L(SL) RESET TPOA ADDRESS 4F12628 05074 0 62100 0 05102 STA TPOA TO SL. 4F12629 05075 0 07400 4 05603 TSX BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630 05076 0 07400 4 06032 TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS. 4F12631 05077 0 76700 0 00022 ALS 18 IF CONSTANT, ADJUST AND 4F12632 05100 0 60100 0 07402 STO RA PLACE IN THE DECREMENT OF RA. 4F12633 05101 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12634 05102 0 00000 0 01367 TPOA PZE SL WORD1--0(IFN)000 OR 0(IFN)0(248) 4F12635 05103 0 00000 0 07401 PZE OP WORD2--(WEF,REW,OR BSP)000 4F12636 05104 0 00000 0 01406 PZE L(0) WORD3--000000 4F12637 05105 0 00000 0 07402 PZE RA WORD4--0(CON)000 OR 000000 4F12638 D 05106 1 00000 0 05567 TXI FINI,0 * GO RESET BXT, AND TEST FOR EFN. 4F12639 END OF PROGRAM EFT. 4F12640 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12641 4F12642 RWN/ USES=EFT, 4F12643 RWN PROCESSES REWIND TAPE STATEMENTS. 4F12644 05107 -0 50000 0 06116 RWN CAL REW PICKUP REW000 TO SET OP, AND 4F12645 D 05110 1 00000 0 05067 TXI TPO,0 * CONTINUE BY USING PROGRAM EFT. 4F12646 END OF PROGRAM RWN. 4F12647 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12648 4F12649 BSP/ USES=EFT, 4F12650 BSP PROCESSES BACKSPACE TAPE STATEMENTS. 4F12651 05111 -0 50000 0 06111 BSP CAL BST PICKUP BST000 TO SET OP, AND 4F12652 D 05112 1 00000 0 05067 TXI TPO,0 * CONTINUE BY USING PROGRAM EFT, 4F12653 END OF PROGRAM BSP. 4F12654 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655 FOR/ CALLS=TET00, 4F12657 FOR PROCESSES FORMAT STATEMENTS. 4F12658 05113 -0 50000 0 00030 FOR CAL EIFNO MOVE EXTERNAL FORMULA NUMBER 4F12659 05114 0 62100 0 01366 STA SET INTO THE ADDRESS OF SET, 4F12660 05115 -0 50000 0 01366 CAL SET AND MOVE SET (8000(EFN)) 4F12661 05116 0 60200 0 01347 SLW G INTO G. 4F12662 05117 -0 53400 1 01724 LXD CHCTR,1 SET XR1 = CHARACTER COUNT. 4F12663 05120 -0 53400 2 01614 LXD FWA,2 SET XR2 = -(CURRENT F-WORD ADDR), 4F12664 05121 -3 00001 1 05137 TXL NFFW,1,1 UNLESS POSITIONED AT THE 4F12665 05122 1 77777 1 05123 TXI *+1,1,-1 BEGINNING OF A FORMAT WORD, 4F12666 05123 0 56000 0 01365 LDQ RESIDU THEN PICKUP AND 4F12667 05124 -0 50000 0 01526 CAL BLANKS PRECEED WITH BLANKS ANY 4F12668 05125 -0 76300 0 00006 NFC LGL 6 CHARACTERS 4F12669 05126 2 00001 1 05125 TIX NFC,1,1 REMAINING IN THE MO, AND 4F12670 05127 0 60200 0 01350 NFW SLW G+1 MOVE FORMAT WORDS INTO G+1. 4F12671 05130 0 07400 1 03321 TSX TET00,1 * GO ENTER THEN IN 4F12672 05131 0 00000 0 00012 PZE 10 THE FORMAT TABLE. 4F12673 05132 -0 50000 0 01350 CAL G+1 WHEN THE 4F12674 05133 -0 32000 0 01374 ANA ENDMK END OF STATEMENT MARK 4F12675 05134 0 40200 0 01374 SUB ENDMK HAS BEEN ENTERED. 4F12676 05135 0 10000 0 03440 TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F12677 05136 0 60000 0 01347 STZ G PRECEED ALL BUT 1ST ENTRY WITH 0. 4F12678 05137 -0 50000 2 00000 NFFW CAL 0,2 PICKUP NEXT FORMAT WORD, 4F12679 05140 1 77777 2 05127 TXI NFW,2,-1 UPDATE SCAN INDEX, AND CONTINUE. 4F12680 END OF PROGRAM FOR. 4F12681 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682 4F12683 RSC/ CALLS=C0190,DIAG, 4F12684 RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS 4F12685 FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN 4F12686 COMMON. THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF 4F12687 CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT. 4F12688 RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC. 4F12689 05141 -0 50000 0 05361 RSC CAL FLINE RESET TEMPORARY 4F12690 05142 0 62100 0 01372 STA TLINE TABLE LINE COUNTER. 4F12691 05143 0 60000 0 07400 STZ DOLEV CLEAR DO LEVEL COUNTER. 4F12692 05144 0 60000 0 01351 STZ GTAG CLEAR GENERALIZED TAG. 4F12693 LSC = ENTRY POINT FROM SPC. 4F12694 05145 -0 50000 0 05204 LSC CAL LISTR SET CONTROL TRANSFER 4F12695 CXS = ENTRY POINT FROM EOS, BEG. 4F12696 05146 0 62100 0 05156 CXS STA CEXIT FOR LIST SCAN. 4F12697 NXS = ENTRY POINT FROM LPR, SPC, CMA. 4F12698 05147 0 53400 2 01414 NXS LXA L(6),2 RESET SYMBOL CHARACTER COUNT 4F12699 05150 -0 63400 2 05637 SXD CSJ,2 AND SHIFT COUNT. 4F12700 05151 0 60000 0 07404 STZ SYM CLEAR SYMBOL WORKING STORAGE. 4F12701 NXC = ENTRY POINT FROM CMA. 4F12702 05152 0 07400 4 01707 NXC TSX C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703 05153 0 53400 4 02652 CLOAD LXA CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704 05154 0 34000 4 01406 CCOMP CAS CTEST,4 COMPARE CHARACTER WITH CONSTANTS. 4F12705 D 05155 -3 00000 0 05160 TXL BUILD,0 IF EQUALITY IS FOUND ON SOME 4F12706 05156 0 02000 4 00000 CEXIT TRA **,4 * CONTROL CHAR, EXIT TO TRA LIST. 4F12707 05157 2 00001 4 05154 TIX CCOMP,4,1 CONTINUE THROUGH PUNCTUATION. 4F12708 05160 -0 53400 4 05637 BUILD LXD CSJ,4 BUILD A 4F12709 05161 0 60100 4 07316 STO CHR,4 SYMBOL 4F12710 05162 -2 00001 4 05167 TNX LCT,4,1 COMPOSED OF 4F12711 05163 0 76700 2 00044 ALS 36,2 SIX OR LESS CHARACTERS. 4F12712 05164 -0 63400 4 05637 CSZ SXD CSJ,4 SAVE SYMBOL CHARACTER COUNT, 4F12713 05165 -0 60200 0 07404 ORS SYM ALSO, SAVE EACH 4F12714 05166 1 00006 2 05152 TXI NXC,2,6 CHARACTER SEPARATELY. 4F12715 05167 -3 00044 2 05171 LCT TXL LCS,2,36 GO TO DIAGNOSTIC IF 4F12716 05170 0 07400 4 03400 TSX DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL, 4F12717 05171 1 77777 4 05164 LCS TXI CSZ,4,-1 ADJUST COUNT, AND CONTINUE SCAN. 4F12718 END OF PROGRAM RSC. 4F12719 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12720 4F12721 LISTR/ CONTROL TRANSFERS FOR LIST SCAN= 4F12722 D 05172 1 00000 0 05547 TXI EMK,0 * ENDMARK 4F12723 D 05173 1 00000 0 05205 TXI LPR,0 * ( 4F12724 D 05174 1 00000 0 05413 TXI CMA,0 * , 4F12725 D 05175 1 00000 0 05377 TXI RPR,0 * ) 4F12726 D 05176 1 00000 0 05261 TXI EQS,0 * * 4F12727 D 05177 1 00000 0 05200 TXI ILC,0 - (ILLEGAL CHARACTER IN I/O LIST). 4F12728 05200 0 07400 4 03400 ILC TSX DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST). 4F12729 D 05201 1 00000 0 05200 TXI ILC,0 . (ILLEGAL CHARACTER IN I/O LIST). 4F12730 D 05202 1 00000 0 05200 TXI ILC,0 + (ILLEGAL CHARACTER IN I/O LIST). 4F12731 D 05203 1 00000 0 05200 TXI ILC,0 * (ILLEGAL CHARACTER IN I/O LIST). 4F12732 05204 0 00000 0 05204 LISTR PZE LISTR INDEXING ADDRESS FOR ABOVE LIST. 4F12733 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12734 4F12735 LPR/ CALLS=TYP,SS000,RA000,C0190,TEST,.,LTMSW,CIT,JIF,DIAG, 4F12736 BSS. USES=CMA,RSC, 4F12737 LPR * ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. 4F12738 05205 -0 50000 0 07404 LPR CAL SYM TEST FOR SUBSCRIPT OR DO NEST. 4F12739 05206 0 10000 0 05230 TZE LPRD IF SUBSCRIPT, THEN 4F12740 05207 0 07400 4 05624 TSX TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS 4F12741 05210 0 02000 4 00003 TRA 3,4 THAN 6 CHARACTERS, ADD A BLANK, 4F12742 D 05211 1 00000 0 05416 TXI ERRC,0 * ON CONSTANT RETURN, GO TO DIAG, 4F12743 05212 -0 50000 0 07404 CAL SYM MOVE SYMBOL 4F12744 05213 0 60200 0 01130 SLW E+2 INTO E+2, AND 4F12745 05214 0 60200 0 07403 SLW SA COMPILE SYMBOLIC ADDRESS, 4F12746 05215 0 07400 4 02614 TSX SS000,4 * GO SCAN AND PROCESS SUBSCRIPT. 4F12747 05216 0 07400 4 02437 TSX RA000,4 * THEN GO COMPUTE RELATIVE ADDRESS. 4F12748 05217 0 07400 4 01707 TSX C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER 4F12749 05220 0 34000 0 01377 CAS CLOS 4F12750 05221 0 02000 0 05226 TRA *+5 4F12751 05222 0 02000 0 05224 TRA *+2 4F12752 05223 0 02000 0 05226 TRA *+3 4F12753 05224 0 60000 0 07400 STZ DOLEV 4F12754 05225 0 07400 4 01707 TSX C0190,4 4F12755 05226 0 07400 4 03247 TSX TESTA0,4 * FOR EITHER COMMA OR ENDMARK. 4F12756 D 05227 1 00000 0 05421 TXI CMA7,0 * AND CONTINUE BY USING PROGRAM CMA. 4F12757 05230 -0 50000 0 07400 LPRD CAL DOLEV IF THE BEGINNING OF A DO NEST, 4F12758 05231 0 10000 0 05242 TZE LPR3 AND DOLEV IS NOT ZERO, THEN 4F12759 05232 0 53400 4 07400 LXA DOLEV,4 TEST FOR NULL FORMULA. 4F12760 05233 -3 00000 4 05236 TXL LPRE,4,0 IF NULL, GO ESTABLISH POSITION. 4F12761 05234 0 07400 4 05757 TSX LTMSW,4 * OTHERWISE, COMPILE LTM, AND 4F12762 D 05235 1 00000 0 05241 TXI LPR4,0 AND GO JUMP IFN. 4F12763 05236 -0 50000 0 01367 LPRE CAL SL IF C(SL) DO NOT = 0, 4F12764 05237 0 10000 0 05241 TZE *+2 THEN 4F12765 05240 0 07400 2 05674 TSX BSS,2 * GO COMPILE= IFN BSS 0, 4F12766 05241 0 07400 4 02372 LPR4 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12767 05242 -0 53400 4 07400 LPR3 LXD DOLEV,4 INCREASE THE C(DOLEV D) 4F12768 05243 1 00001 4 05244 TXI LPR1,4,1 BY 1, AND 4F12769 05244 -0 75400 4 00000 LPR1 PXD ,4 SET THE C(DOLEV A) 4F12770 05245 0 60200 0 07400 SLW DOLEV TO ZERO, 4F12771 05246 -0 50000 0 01372 CAL TLINE NOTE AT 4F12772 05247 0 62100 0 05254 STA LPR2 THIS LEVEL 4F12773 05250 0 60100 4 07400 STO DOLEV,4 THE LOCATION IN TLDO 4F12774 05251 0 40000 0 01413 ADD L(5) OF THIS DO FORMULA 4F12775 05252 0 62100 0 01372 STA TLINE AND INCREASE LINE IN TLINE. 4F12776 05253 0 50200 0 01371 CLS TL MOVE -(0(IFN)0(248)) INTO THE 4F12777 05254 0 60100 0 00000 LPR2 STO ** LOCATION WORD OF CURRENT TEMP DO. 4F12778 05255 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12779 05256 -0 53400 4 07400 LXD DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO, 4F12780 05257 -3 00003 4 05147 TXL NXS,4,3 * RETURN TO LIST SCAN. 4F12781 05260 0 07400 4 03400 TSX DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC 4F12782 END OF PROGRAM LPR. 4F12783 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12784 4F12785 EQS/ CALLS=DIAG, USES=RSC 4F12786 EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN, 4F12787 05261 -0 53400 4 07400 EQS LXD DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN, 4F12788 05262 3 00000 4 05264 TXH EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO 4F12789 05263 0 07400 4 03400 TSX DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (. 4F12790 05264 -0 50000 4 07400 EQS2 CAL DOLEV,4 INITIALIZE SPECIFICATION 4F12791 05265 0 62100 0 05331 STA SPC2 OF GENERATED DO FORMULA 4F12792 05266 0 62100 0 05345 STA SPC5 AT CURRENT LEVEL. 4F12793 05267 0 40000 0 01407 ADD L(1) PREPARE TO ENTER FORMULA NUMBERS 4F12794 05270 0 62100 0 05302 STA EQS1 IN LOCATION WORD*SUBSCRIPT IN 4F12795 05271 0 40000 0 01412 ADD L(4) SYMBOL WORD, AND SUBSCRIPT SPECS 4F12796 05272 0 62100 0 05333 STA SPC3 IN TEMPDO ENTRY. 4F12797 05273 0 53400 4 01411 LXA L(3),4 PREPARE TO COUNT THE 4F12798 05274 -0 63400 4 05304 SXD NSJ,4 NUMBER OF SPECIFICATIONS. 4F12799 05275 -0 50000 0 07404 CAL SYM OBTAIN SUBSCRIPT 4F12800 05276 3 00044 2 05302 TXH EQS1,2,36 FOR THIS DO, AND 4F12801 05277 -0 50000 0 01430 CAL BLANK STORE IN PROPER 4F12802 05300 0 76700 2 00044 ALS 36,2 LINE OF TEMPORARY 4F12803 05301 -0 50100 0 07404 ORA SYM LIST DO TABLE. 4F12804 05302 0 60200 0 00000 EQS1 SLW ** (SUBSCRIPT SYMBOL WORD) 4F12805 05303 -0 50000 0 05317 CAL SPCTR SET CONTROL LOOP FOR 4F12806 05304 1 00000 0 05146 NSJ TXI CXS,0,** * EXIT TO SPECIFICATION 4F12807 END OF PROGRAM EQS. 4F12608 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12809 4F12810 SPCTR/ CONTROL TRANSFERS FOR SPECIFICATION SCAN= 4F12811 05305 0 07400 4 03400 TSX DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO). 4F12812 05306 0 07400 4 03400 ICC TSX DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO). 4F12813 D 05307 1 00000 0 05322 TXI SPC,0 * , 4F12814 D 05310 1 00000 0 05320 TXI SPCX,0 * ) 4F12815 D 05311 1 00000 0 05306 TXI ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO). 4F12816 D 05312 1 00000 0 05306 TXI ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO). 4F12817 D 05313 1 00000 0 05306 TXI ICC,0 / (ILLEGAL IN CONTROL FOR LIST DO). 4F12818 D 05314 1 00000 0 05306 TXI ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO). 4F12819 D 05315 1 00000 0 05306 TXI ICC,0 + (ILLEGAL IN CONTROL FOR LIST DO). 4F12820 D 05316 1 00000 0 05306 TXI ICC,0 * (ILLEGAL IN CONTROL FOR LIST DO). 4F12821 05317 0 00000 0 05317 SPCTR PZE SPCTR INDEXING ADDRESS FOR ABOVE LIST. 4F12822 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823 4F12824 SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C 4F12825 SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826 05320 -0 50000 0 05336 SPCX CAL SPC1 PREPARE FOR END OF SPECIFICATION. 4F12827 05321 0 60100 0 05336 STO SPC1 SET SPC1 OP-SWITCH TO NOP CASE. 4F12828 SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN. 4F12829 05322 0 07400 4 05624 SPC TSX TYP,4 * GO TEST TYPE OF SUBSCRIPT SPEC. 4F12830 D 05323 1 00000 0 05326 TXI SPCS,0 IF FIXED POINT CONSTANT, 4F12831 05324 -0 53400 4 05304 LXD NSJ,4 SET C(XR4) = SPECIFICATION COUNT, 4F12832 D 05325 1 00000 0 05333 TXI SPC3,0 AND GO ENTER CONSTANT IN TABLE. 4F12833 05326 -0 53400 4 05304 SPCS LXD NSJ,4 OTHERWISE, SET SPEC COUNT AND 4F12834 05327 -0 50000 0 01453 CAL TAG4 IF VARIABLE, NOTE BY 4F12835 05330 0 77100 4 00003 ARS 3,4 PLACING BIT IN TAG FIELD 4F12636 05331 -0 60200 0 00000 SPC2 ORS ** OF TABLE ENTRY. 4F12837 05332 -0 50000 0 07404 CAL SYM PICKUP VARIABLE SYMBOL AND 4F12838 05333 0 60200 4 00000 SPC3 SLW **,4 ENTER N SUB J IN TABLE. 4F12839 05334 -2 00001 4 05341 TNX SPC4,4,1 REDUCE J. 4F12840 05335 -0 63400 4 05304 SXD NSJ,4 SAVE SPEC COUNT, AND 4F12841 D 05336 -3 00000 0 05147 SPC1 TXL NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL. 4F12842 05337 -0 50000 0 01407 CAL L(1) SET N SUB 3 = 1 IF NOT 4F12843 D 05340 1 00000 0 05333 TXI SPC3,0 OTHERWISE SPECIFIED. 4F12844 05341 0 50200 0 05336 SPC4 CLS SPC1 RESTORE SPC1 EXIT. 4F12845 05342 0 60100 0 05336 STO SPC1 (3 SPECS HAVE BEEN TREATED) 4F12846 05343 -0 50000 0 00030 CAL EIFNO ALSO RESTORE INTERNAL FORMULA NO. 4F12847 05344 0 77100 0 00022 ARS 18 (PUT BETA IN TEMPDO TABLE) 4F12848 SPC5 = ENTRY POINT USED BY RPR. 4F12849 05345 0 62100 0 00000 SPC5 STA ** SET BETA EQUAL TO IFNO. 4F12850 05346 0 53400 4 07400 LXA DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO 4F12851 05347 -3 00000 4 05352 TXL SPCR,4,0 TEST NEED FOR LTM, JLF AFTER ). 4F12352 05350 0 07400 4 05757 TSX LTMSW,4 * GO COMPILE LTM. 4F12853 05351 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12654 05352 -0 53400 4 07400 SPCR LXD DOLEV,4 DECREASE DOLEV D 4F12855 05353 1 77777 4 05354 TXI SPC6,4,-1 BY 1, AND INDICATE A TREATED LEVEL. 4F12656 05354 -0 75400 4 00000 SPC6 PXD ,4 IF NOT ZERO, 4F12857 05355 0 60200 0 07400 SLW DOLEV THEN ALL LEVELS ARE NOT TREATED. 4F12858 05356 3 00000 4 05145 TXH LSC,4,0 * RETURN TO SCAN NEXT LEVEL. 4F12659 05357 0 50000 0 01372 CLA TLINE IF LEVEL IS ZERO 4F12860 05360 0 62100 0 05364 STA SPC7 ENTER GENERATED 4F12861 05361 0 73400 2 07405 FLINE PAX TLDOS,2 DO FORMULAS IN TDO BY 4F12862 05362 1 70373 2 05363 TXI *+1,2,-TLDOS SUBROUTINE TET. 4F12663 05363 0 53400 4 01413 SPC9 LXA L(5),4 (MOVE EACH 4F12864 05364 0 50000 2 00000 SPC7 CLA **,2 TEMPDO TABLE ENTRY 4F12865 05365 0 60100 4 01112 STO 1C+5,4 INTO 1C...1C+4, 4F12866 05366 -2 00001 2 05370 TNX SPC8,2,1 AND THEN 4F12867 05367 2 00001 4 05364 TIX SPC7,4,1 WHEN DONE, 4F12868 05370 0 53400 4 01105 SPC8 LXA 1C,4 TEST TO SKIP 4F12869 05371 -3 00000 4 05374 TXL SPCT,4,0 NULL DO, 4F12870 05372 0 07400 1 03321 TSX TET00,1 * GO MAKE AN ENTRY 4F12871 05373 0 00000 0 00001 PZE 1 IN TDO TABLE.)AND WHEN THE WHOLE 4F12872 05374 3 00001 2 05363 SPCT TXH SPC9,2,1 DO NEST HAS BEEN ENTERED, 4F12873 05375 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12874 D 05376 1 00000 0 05141 RESET TXI RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. 4F12875 END OF PROGRAM SPC, 4F12876 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12877 4F12878 RPR/ CALLS=DIAG,USES=CMA,SPC 4F12879 RPR = ENTRY POINT WHEN RPAREN IS MET IN LIST SCAN. 4F12880 05377 -0 53400 4 07400 RPR LXD DOLEV,4 TEST LEGALITY OF ), 4F12881 05400 3 00000 4 05402 TXH RPS,4,0 IF THERE ARE TOO MANY I IN LIST, 4F12882 05401 0 07400 4 03400 TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F12883 05402 -0 50000 4 07400 RPS CAL DOLEV,4 NULLIFY DO AT CURRENT LEVEL. 4F12884 05403 0 62100 0 05345 STA SPC5 SET SPC5 ADDRESS, 4F12885 05404 0 50000 0 05411 CLA RPA SET CMA3 SWITCH TO RETURN TO 4F12886 05405 0 62100 0 05546 STA CMA3 RPT, AND IF ANY CHARACTERS 4F12887 05406 3 00006 2 05414 TXH CMA1,2,6 * WERE COLLECTED, EXIT TO CMA. 4F12888 RPT = REENTRY POINT USED BY CMA. 4F12889 05407 0 50000 0 05336 RPT CLA SPC1 RESET CMA3 SWITCH 4F12890 05410 0 62100 0 05546 STA CMA3 TO NXS, 4F12891 05411 -0 75400 0 05407 RPA PXD RPT,0 CLEAR THE AC AND 4F12892 D 05412 1 00000 0 05345 TXI SPC5,0 * CONTINUE BY USING PROGRAM SPC. 4F12893 END OF PROGRAM RPR. 4F12894 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12895 4F12896 CMA/ CALLS=TYP,DIAG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, 4F12897 LTMSW. USES=RSC 4F12898 CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. 4F12899 05413 -3 00006 2 05152 CMA TXL NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN. 4F12900 CMA1 = ENTRY POINT USED BY EMK. 4F12901 05414 0 07400 4 05624 CMA1 TSX TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR. 4F12902 05415 0 02000 4 00003 TRA 3,4 ILLEGAL USE OF CONSTANT IN LIST, 4F12903 05416 0 07400 4 03400 ERRC TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F12904 05417 -0 50000 0 07404 CAL SYM MOVE VARIABLE SYMBOL 4F12905 05420 0 60200 0 07403 CMA4 SLW SA INTO SA. AND 4F12906 CMA7 = ENTRY POINT USED BY LPR. 4F12907 05421 0 53400 4 07400 CMA7 LXA DOLEV,4 IF DOLEV ADDRESS = 0, AND IF 4F12908 05422 3 00000 4 05424 TXH CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE), 4F12909 05423 0 07400 4 05754 TSX ETMSW,4 * GO COMPILE ETM, AND CLEAR SL. 4F12910 05424 -0 50000 0 07400 CMA6 CAL DOLEV IN ANY CASE, 4F12911 05425 0 40000 0 01407 ADD L(1) UPDATE DOLEV ADDRESS 4F12912 05426 0 60100 0 07400 STO DOLEV BY 1, AND THEN 4F12913 05427 0 50000 0 01351 CLA GTAG SET GENERALIZED TAG* 4F12914 05430 0 60100 0 07402 STO RA (RELATIVE ADDRESS) 4F12915 05431 0 10000 0 05436 TZE DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, 4F12916 05432 0 50000 0 01147 CLA EPS AND IF SUBSCRIPT 4F12917 05433 -0 10000 0 05537 TNZ CMA5 IS A CONSTANT, 4F12918 05434 0 62100 0 07402 STA RA THEN CLEAR THE ADDRESS OF RA. 4F12919 D 05435 1 00000 0 05537 TXI CMA5,0 THEN GO MAKE CIT ENTRY. 4F12920 05436 -0 50000 0 07403 DIMSR CAL SA IF THIS VARIABLE 4F12921 05437 0 60200 0 01130 SLW E+2 DOES NOT HAVE A SUBSCRIPT, THEN 4F12922 05440 0 07400 4 01771 RD1 TSX DIM1SR,4 * GO SEARCH DIM1 TABLE, 4F12923 D 05441 1 00000 0 05444 TXI RD2,0 IF FOUND, THEN 4F12924 05442 0 50000 0 01101 CS1 CLA D12 PICKUP DIMENSION 1 4F12925 D 05443 1 00000 0 05467 TXI DVS,0 AND GO TEST SIZE. OTHERWISE, 4F12926 05444 0 07400 4 01775 RD2 TSX DIM2SR,4 * GO SEARCH DIM2 TABLE. 4F12927 D 05445 1 00000 0 05455 TXI RD3,0 AND IF FOUND, 4F12928 05446 0 56000 0 01101 CS2 LDQ D12 PICKUP 4F12929 05447 0 60000 0 01361 STZ N2 DIMENSION 1 AND 4F12930 05450 -0 62000 0 01361 SLQ N2 DIMENSION 2 4F12931 05451 -0 76300 0 00022 LGL 18 AND MULTIPLY 4F12932 05452 0 20000 0 01361 MPY N2 THEM TOGETHER. 4F12933 05453 0 77100 0 00001 ARS 1 THEN 4F12934 D 05454 1 00000 0 05467 TXI DVS,0 GO TEST THE PRODUCT. OTHERWISE, 4F12935 05455 0 07400 4 02005 RD3 TSX DIM3SR,4 * GO SEARCH DIM3 TABLE. 4F12936 D 05456 1 00000 0 05533 TXI NODIM,0 AND IF FOUND, 4F12937 05457 0 56000 0 01101 CS3 LDQ D12 PICKUP 4F12938 05460 0 60000 0 01361 STZ N2 DIMENSION 1, 4F12939 05461 -0 62000 0 01361 SLQ N2 DIMENSION 2, 4F12940 05462 -0 76300 0 00022 LGL 18 AND DIMENSION 3. 4F12941 05463 0 20000 0 01361 MPY N2 MULTIPLY 4F12942 05464 0 76500 0 00022 LRS 18 THEM TOGETHER, 4F12943 05465 0 20000 0 01102 MPY D3 AND IF 4F12944 05466 0 76300 0 00021 LLS 17 THEIR 4F12945 05467 0 40200 0 01407 DVS SUB L(1) PRODUCT IS 4F12946 05470 0 10000 0 05533 TZE NODIM GREATER THAN 1, THEN 4F12947 05471 0 76700 0 00022 ALS 18 PLACE DIMENSION-1 IN THE 4F12948 05472 0 60100 0 01347 STO G DECREMENT OF G, AND 4F12949 05473 0 07400 4 00417 TSX FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG. 4F12950 05474 0 76700 0 00022 ALS 18 ADJUST, AND STORE TAG IN THE 4F12951 05475 0 62200 0 01364 STD RAT DECREMENT OF RAT. THEN 4F12952 05476 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12953 05477 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12954 05500 0 00000 0 01367 PZE SL WORD1--0(IFN)000 4F12955 05501 0 00000 0 01561 PZE LXD WORD2--LXD000 4F12956 05502 0 00000 0 01501 PZE 2P WORD3--200000 4F12957 05503 0 00000 0 01364 PZE RAT WORD4--0(FIXCON TAG)008 4F12958 05504 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F12959 05505 0 07400 4 05754 TSX ETMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12960 05506 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12961 05507 0 00000 0 01367 PZE SL WORD1--0(IFN)000 OR 000000 4F12962 05510 0 00000 0 07401 PZE OP WORD2--(OPERATION CODE) 4F12963 05511 0 00000 0 07403 PZE SA WORD3--(SYMBOLIC ADDRESS) 4F12964 05512 0 00000 0 01416 PZE ST WORD4--000008 4F12965 05513 0 60000 0 01367 STZ SL CLEAR SL, AND 4F12966 05514 0 07400 4 05757 TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F12967 05515 0 07400 4 02375 TSX GIF,4 * GET IFN IN SL AND TL. 4F12968 05516 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12969 05517 0 00000 0 01406 PZE L(0) WORD1--000000 4F12970 05520 0 00000 0 01576 PZE TIX WORD2--TIX001 4F12971 05521 0 00000 0 01367 PZE SL WORD3--0(IFN)000 4F12972 05522 0 00000 0 01416 PZE ST WORD4--000008 4F12973 05523 0 60000 0 01367 STZ SL CLEAR SL, AND 4F12974 05524 0 07400 4 05754 TSX ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. 4F12975 05525 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12976 05526 0 00000 0 01406 PZE L(0) WORD1--000000 4F12977 05527 0 00000 0 01546 PZE DED WORD2--DED000 4F12978 05530 0 00000 0 01406 PZE L(0) WORD3--000000 4F12979 05531 0 00000 0 01416 PZE ST WORD4--000008 4F12980 D 05532 1 00000 0 05537 TXI CMA5,0 IF THE PRODUCT OF DIMENSIONS IS 4F12981 05533 0 07400 1 05773 NODIM TSX IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982 D 05534 1 00000 0 05537 TXI CMA5,0 AND IF FIXED POINT, 4F12983 05535 0 07400 1 03321 TSX TET00,1 * GO ENTER VARIABLE IN 4F12984 05536 0 00000 0 00000 INOUT PZE ** EITHER FORVAL OR FORVAR TABLE. 4F12985 05537 0 07400 4 01731 CMA5 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12986 05540 0 00000 0 01367 PZE SL WORD1--0(IFN)000 OR 000000 4F12987 05541 0 00000 0 07401 PZE OP WORD2--NTR000 OR CPY000 4F12988 05542 0 00000 0 07403 PZE SA WORD3--(SYMBOL) 4F12989 05543 0 00000 0 07402 PZE RA WORD4--(RELATIVE ADDRESS) 4F12990 05544 0 60000 0 01367 STZ SL CLEAR SL, AND 4F12991 05545 0 60000 0 01351 STZ GTAG CLEAR GTAG. THEN TAKE EXIT 4F12992 D 05546 1 00000 0 05147 CMA3 TXI NXS,0 * SWITCH TO RPT OR NXS, 4F12993 END OF PROGRAM CMA. 4F12994 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12995 4F12996 EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00, USES=CMA, 4F12997 EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN. 4F12998 05547 3 00006 2 05414 EMK TXH CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN 4F12999 05550 -0 53400 4 07400 LXD DOLEV,4 CHECK THE NUMBER OF PARENTHESES. 4F13000 05551 -3 00000 4 05553 TXL FIN,4,0 IF THERE ARE TOO MANY LPARENS, 4F13001 05552 0 07400 4 03400 TSX DIAG,4 * GO TO THE DIAGNOSTIC OTHERWISE, 4F13002 05553 0 07400 4 05757 FIN TSX LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. 4F13003 05554 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13004 LAST = ENTRY POINT SET BY BXT SWITCH. 4F13005 05555 0 07400 4 01731 LAST TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13006 05556 0 00000 0 01367 PZE SL WORD1--0(IFN)000 4F13007 05557 0 00000 0 01537 PZE CAL WORD2--CAL000 4F13008 05560 0 00000 0 01510 PZE 15P WORD3--*00000 4F13009 05561 0 00000 0 01406 PZE L(0) WORD4--000000 4F13010 05562 0 07400 4 06023 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13011 05563 0 00000 0 01406 PZE L(0) WORD1--000000 4F13012 05564 0 00000 0 06125 PZE XIT WORD2--XIT000 4F13013 05565 0 00000 0 06141 PZE END WORD3--(RTN) OR (FIL) 4F13014 05566 0 00000 0 01406 PZE L(0) WORD4--000000 4F13015 FINI = ENTRY POINT USED BY EFT. 4F13016 05567 0 50000 0 05376 FINI CLA RESET RESET BXT SWITCH 4F13017 05570 0 62100 0 04744 STA BXT TO RSC. 4F13018 05571 0 50000 0 01151 CLA F-1 TEST FOR AN EXTERNAL 4F13019 05572 0 40200 0 01477 SUB 5BLANS STATEMENT NUMBER, AND IF NONE, 4F13020 05573 0 10000 0 03440 TZE CA010 * EXIT TO PROCESS NEXT STATEMENT. 4F13021 05574 -0 50000 0 01520 CAL MINUS0 OTHERWISE, SET THE SIGN 4F13022 05575 -0 60200 0 00030 ORS EIFNO OF EIFNO TO MINUS, AND 4F13023 05576 0 07400 1 03321 TSX TET00,1 * GO ENTER -(EIFNO) 4F13024 05577 0 00000 0 00000 PZE 0 IN THE TEIFNO TABLE. 4F13025 05600 -0 50000 0 00030 CAL EIFNO THEN RESTORE 4F13026 05601 0 60100 0 00030 STO EIFNO EIFNO, AND 4F13027 D 05602 1 00000 0 03440 TXI CA010,0 * EXIT TO PROCESS NEXT STATEMENT. 4F13028 END OF PROGRAM EMK. 4F13029 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030 4F13031 STATEA/ 4-SUBROUTINES USED BY STATE A= 4F13032 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4F13033 BEG(TYP),4/ CALLS=DIAG. USES RSC. 4F13034 BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT, 4F13035 05603 -0 63400 4 05605 BEG SXD BEX,4 SAVE C(XR4) FOR RETURN, 4F13036 05604 -0 50000 0 05620 CAL BEGTR SET CONTROL TRANSFER 4F13037 05605 1 00000 0 05146 BEX TXI CXS,0,** * AND GO EXECUTE BEGINNING SCAN. 4F13038 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13039 4F13040 BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN= 4F13041 D 05606 1 00000 0 05621 TXI NLS,0 * ENDMARK (NO LIST SCAN) 4F13042 05607 0 07400 4 03400 IBC TSX DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13043 D 05610 1 00000 0 05623 TXI CMB,0 * , 4F13044 D 05611 1 00000 0 05607 TXI IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045 D 05612 1 00000 0 05607 TXI IBC,0 = (ILLEGAL CHARACTER IN I/O SETUP).4F13046 D 05613 1 00000 0 05607 TXI IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP).4F13047 D 05614 1 00000 0 05607 TXI IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP).4F13048 D 05615 1 00000 0 05607 TXI IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP).4F13049 D 05616 1 00000 0 05607 TXI IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP).4F13050 D 05617 1 00000 0 05607 TXI IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP).4F13051 05620 0 00000 0 05620 BEGTR PZE BEGTR INDEXING ADDRESS FOR ABOVE LIST. 4F13052 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053 4F13054 NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN. 4F13055 05621 0 50000 0 06105 NLS CLA NLA IF ENDMARK IS MET, 4F13056 05622 0 62100 0 04744 STA BXT SET BXT SWITCH TO LAST. 4F13057 CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. 4F13058 05623 -0 53400 4 05605 CMB LXD BEX,4 RESTORE THE C(XR4), AND 4F13059 TYP = ENTRY POINT USED BY LPR,SPC,CMA, 4F13060 05624 0 50000 0 07310 TYP CLA CHR-6 TEST FIRST CHARACTER 4F13061 05625 0 40200 0 01404 SUB PLUS FOR VARIABLE 4F13062 05626 -0 12000 0 05634 TMI ABS OR CONSTANT. 4F13063 05627 3 00044 2 05633 TXH SMB,2,36 IF VARIABLE. 4F13064 05630 -0 50000 0 01430 CAL BLANK ADD A BLANK 4F13065 05631 0 76700 2 00044 ALS 36,2 IF SYMBOL CONTAINS 4F13066 05632 -0 60200 0 07404 ORS SYM LESS THAN 6 CHARACTERS, AND 4F13067 05633 0 02000 4 00001 SMB TRA 1,4 * TAKE VARIABLE EXIT TO CALLER. 4F13068 05634 0 53400 2 01413 ABS LXA L(5),2 IF CONSTANT* 4F13069 05635 0 50000 2 07315 CLA CHR-1,2 THEN 4F13070 05636 0 60100 0 07307 STO BIN CONVERT 4F13071 05637 -3 00000 2 05645 CSJ TXL INT,2,** BCD 4F13072 05640 0 76700 0 00002 ALS 2 DIGITS 4F13073 05641 0 40000 0 07307 ADD BIN TO THEIR 4F13074 05642 0 76700 0 00001 ALS 1 BINARY 4F13075 05643 0 40000 2 07316 ADD CHR,2 EQUIVALENT, 4F13076 05644 1 77777 2 05636 TXI CSJ-1,2,-1 AND WHEN DONE, 4F13077 05645 0 02000 4 00002 INT TRA 2,4 * TAKE CONSTANT EXIT TO CALLER. 4F13078 END OF PROGRAM BEG(TYP), 4F13079 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080 4F13081 BRW,4/ CALLS=JIF,BEG,VRA,CIT, CALLERS=WBT,RBT,WRD, 4F13082 05646 -0 63400 4 06054 BRW SXD XRW,4 SAVE THE C(XR4), AND 4F13083 05647 0 60200 0 06140 SLW CON SET CON = 0 OR ,,144 OR ,,192, 4F13084 05650 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL. 4F13085 05651 0 07400 4 05603 TSX BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL. 4F13086 05652 0 07400 4 06032 TSX VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS.4F13087 05653 0 76700 0 00022 ALS 18 IF CONSTANT, ADJUST CONVERTED 4F13088 05654 0 60100 0 07402 STO RA NUMBER, AND SET RA. 4F13089 05655 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13090 05656 0 00000 0 01371 PZE TL WORD1--0(IFN)0(248) 4F13091 05657 0 00000 0 07401 PZE OP WORD2--(WTB,RBT,WRD,RDD)000 4F13092 05660 0 00000 0 01406 PZE L(0) WORD3--000000 4F13093 05661 0 00000 0 07402 PZE RA WORD4--000000 OR 0(UNIT)000 4F13094 05662 -0 50000 0 01544 CAL CPY MOVE CPY000 4F13095 05663 0 60200 0 07401 SLW OP INTO OP. 4F13096 05664 -0 50000 0 00415 CAL TXLOP SET OP-SWITCHES, 4F13097 05665 0 63000 0 05754 STP ETMSW ETMSW AND LTMSW, 4F13098 05666 0 63000 0 05757 STP LTMSW TO THE TRA CASE. 4F13099 05667 -0 50000 0 06133 CAL RTN MOVE (RTN) 4F13100 05670 0 60200 0 06141 SLW END INTO END. 4F13101 05671 0 60000 0 01367 STZ SL CLEAR SL, 4F13102 05672 -0 53400 4 06054 LXD XRW,4 RESTORE THE C(XR4), AND 4F13103 05673 0 02000 4 00001 TRA 1,4 * EXIT TO CALLER. 4F13104 END OF PROGRAM BRW. 4F13105 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13106 4F13107 BSS,2/ CALLS=CIT00, CALLERS=LPR,C1600, 4F13108 BSS COMPILES= IFN BSS 0. 4F13109 05674 0 07400 4 01731 BSS TSX CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= 4F13110 05675 0 00000 0 01367 PZE SL WORD1--0(IFN)000 4F13111 05676 0 00000 0 01536 PZE L(BSS) WORD2--BSS000 4F13112 05677 0 00000 0 01406 PZE L(0) WORD3--000000 4F13113 05700 0 00000 0 01406 PZE L(0) WORD4--000000 4F13114 05701 0 02000 2 00001 TRA 1,2 * EXIT TO CALLER+1. 4F13115 END OF PROGRAM BSS, 4F13116 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13117 4F13118 CA100,4 / CALLS=DIAG, CALLER=CA000, 4F13119 CA100 READS NEXT SOURCE PROGRAM CARD (1 TAPE RECORD), 4F13120 05702 0 53400 2 01413 CA100 LXA TERC,2 PREPARE TO COUNT 4F13121 05703 -0 63400 2 01112 SXD 1G,2 TAPE READING ERRORS. 4F13122 05704 -0 76000 0 00012 RTT TURN OFF TAPE CHECK INDICATOR. 4F13123 05705 0 76100 0 00000 NOP PROCEED TO NEXT INSTRUCTION. 4F13124 05706 0 76200 0 00202 CA101 RDS 130 SELECT SOURCE TAPE FOR READING, 4F13125 05707 0 53400 2 01420 LXA L(12),2 INITIALIZE INDEX B FOR 12 CYCLES OF4F13126 COPY LOOP. 4F13127 05710 0 70000 2 01347 CA102 CPY FT+12,2 COPY INTO FT REGION 4F13128 05711 0 02000 0 05721 TRA CA103 NEXT SOURCE PROGRAM CARD. 4F13129 05712 0 02000 0 05740 TRA CA120 END OF FILE, GO FINISH LAST STATEM.4F13130 05713 -0 53400 2 01112 CA130 LXD 1G,2 TEST TAPE ERROR COUNTER 4F13131 05714 2 00001 2 05716 TIX CA131,2,1 BY TRYING TO REDUCE BY 1. 4F13132 05715 0 07400 4 03400 TSX DIAG,4 * FAILED 5 TIMES IN READING TAPE 2. 4F13133 05716 -0 63400 2 01112 CA131 SXD 1G,2 SAVE REDUCED VALUE IN COUNTER, 4F13134 05717 0 76400 0 00202 BST 130 BACKSPACE FORMULA TAPE, 4F13135 05720 0 02000 0 05706 TRA CA101 AND GO BACK TO READ AGAIN. 4F13136 05721 2 00001 2 05710 CA103 TIX CA102,2,1 TEST EXIT FROM LOOP. 4F13137 05722 0 76600 0 00333 IOD DELAY UNTIL TAPE DISCONNECTS. 4F13138 05723 -0 76000 0 00012 RTT CHECK READING OF TAPE. 4F13139 D 05724 1 00000 0 05713 TXI CA130,0 IF INCORRECT, GO CHECK ERROR COUNT,4F13140 05725 0 53400 2 01420 LXA L(12),2 PREPARE TO SCAN 12 WORDS OF CARD. 4F13141 05726 0 50000 0 01526 CA112 CLA BLANKS TEST 4F13142 05727 0 40200 2 01347 SUB FT+12,2 FOR 4F13143 05730 -0 10000 0 05733 TNZ CA113 BLANK 4F13144 05731 2 00001 2 05726 TIX CA112,2,1 CARD. 4F13145 05732 0 02000 0 05702 TRA CA100 IF BLANK, GO TO READ NEXT CARD. 4F13146 05733 -0 50000 0 01333 CA113 CAL FT IF NOT BLANK, 4F13147 05734 0 77100 0 00036 ARS 30 EXAMINE FIRST 4F13148 05735 0 40200 0 01421 SUB L(C) CHARACTER TO 4F13149 05736 0 10000 0 05702 TZE CA100 TEST FOR COMMENT CARD. 4F13150 05737 0 02000 4 00001 TRA 1,4 * EXIT IF NEITHER BLANK NOR COMMENT, 4F13151 05740 0 60000 0 01333 CA120 STZ FT INDICATE THAT FINAL 4F13152 05741 -0 63400 0 02575 SXD ENDWRD,0 STATEMENT HAS BEEN READ IN. 4F13153 05742 0 02000 4 00001 TRA 1,4 * EXIT TO MAIN ROUTINE TO FINISH. 4F13154 END OF PROGRAM CA100. 4F13155 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13156 4F13157 CC500,4/ CALLER=CC000, 4F13156 CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35), 4F13159 05743 -0 75400 0 00000 CC500 PXD ,0 CLEAR THE AC 4F13160 05744 2 00001 2 05752 TIX CC502,2,1 IF NO DICTIONARY CHARACTERS 4F13161 05745 -0 53400 2 01113 LXD 2G,2 REMAIN IN THE MO, THEN 4F13162 05746 0 56000 2 06145 LDQ DIC,2 REFILL WITH NEXT DICTIONARY WORD, 4F13163 05747 1 77777 2 05750 TXI CC501,2,-1 RESET THE 4F13164 05750 -0 63400 2 01113 CC501 SXD 2G,2 DICTIONARY WORD TAG, AND 4F13165 05751 0 53400 2 01414 LXA L(6),2 SET THE CHARACTER COUNT = 6. 4F13166 05752 -0 76300 0 00006 CC502 LGL 6 SHIFT CHAR INTO AC(30-35), 4F13167 05753 0 02000 4 00001 TRA 1,4 * AND RETURN TO CALLER. 4F13168 END OF PROGRAM CC500. 4F13169 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13170 4F13171 ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK, 4F13172 ETMSW = ENTRY POINT USED BY RDC,CMA. 4F13173 D 05754 -3 00000 0 05772 ETMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13174 05755 -0 50000 0 06112 CAL ETM PICKUP ETM00, AND 4F13175 05756 1 00000 0 05761 XR4X TXI SETOP,0,** GO SET OP. 4F13176 LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK, 4F13177 D 05757 -3 00000 0 05772 LTMSW TXL NOTTM,0 SWITCH (TXL=TRA, TXH=NOP), 4F13178 05760 -0 50000 0 06113 CAL LTM PICKUP LTM000, AND 4F13179 05761 0 60200 0 06142 SETOP SLW TOP SET TOP. 4F13160 05762 -0 63400 4 05756 SXD XR4X,4 SAVE THE C(XR4), AND 4F13161 05763 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13182 05764 0 00000 0 01367 PZE SL WORD1--0(IFN)000 4F13183 05765 0 00000 0 06142 PZE TOP WORD2--ETM000 OR LTM000 4F13184 05766 0 00000 0 01406 PZE L(0) WORD3--000000 4F13165 05767 0 00000 0 01406 PZE L(0) WORD4--000000 4F13186 05770 0 60000 0 01367 STZ SL CLEAR SL, 4F13187 05771 -0 53400 4 05756 LXD XR4X,4 RESTORE THE C(XR4), AND 4F13188 05772 0 02000 4 00001 NOTTM TRA 1,4 * EXIT TO CALLER. 4F13189 END OF PROGRAM ETMSW(LTMSW). 4F13190 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13191 4F13192 IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD), 4F13193 05773 -0 50000 0 00030 IFFIX CAL EIFNO SET 4F13194 05774 0 60000 0 01347 STZ G G TO 4F13195 05775 0 62200 0 01347 STD G (0(IFN)000), 4F13196 05776 -0 50000 0 07404 CAL SYM MOVE SYMBOL 4F13197 05777 0 60200 0 01350 SLW G+1 INTO G+1. 4F13198 06000 -0 50000 0 07310 CAL CHR-6 PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199 D 06001 1 00000 0 03242 TXI TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT. 4F13200 END OF PROGRAM IFFIX. 4F13201 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13202 4F13203 INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB, 4F13204 CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD. 4F13205 INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD, 4F13206 06002 0 50000 0 01414 INPUT CLA L(6) PICKUP 6 TO 4F13207 TD 06003 1 00000 0 06005 TXI OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY. 4F13208 OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. 4F13209 06004 0 50000 0 01413 OUTPUT CLA L(5) PICKUP 5 TO 4F13210 06005 0 60100 0 05536 STO INOUT SET INOUT FOR FORVAR ENTRY. 4F13211 06006 0 07400 4 02375 TSX GIF,4 * SET SL = IFN,000. 4F13212 06007 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13213 06010 0 00000 0 01367 PZE SL WORD1--0(IFN)000 4F13214 06011 0 00000 0 01537 PZE CAL WORD2--CAL000 4F13215 06012 0 00000 0 01510 PZE 15P WORD3--*00000 4F13216 06013 0 00000 0 01406 PZE L(0) WORD4--000000 4F13217 06014 0 07400 4 06023 TSX LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= 4F13218 06015 0 00000 0 01406 PZE L(0) WORD1--000000 4F13219 06016 0 00000 0 06125 PZE XIT WORD2--XIT000 4F13220 06017 0 00000 0 06132 PZE LEV WORD3--(LEV) 4F13221 06020 0 00000 0 01406 PZE L(0) WORD4--000000 4F13222 06021 0 60000 0 01367 STZ SL CLEAR SL, AND 4F13223 06022 0 02000 2 00001 TRA 1,2 * EXIT TO CALLER. 4F13224 END OF PROGRAM INPUT(OUTPUT), 4F13225 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13226 4F13227 LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT), 4F13228 06023 -0 50000 4 00003 LIB CAL 3,4 MOVE NAME OF SUBROUTINE, 4F13229 06024 0 62100 0 06025 STA LIC ADDRESS OF WHICH 4F13230 06025 -0 50000 0 00000 LIC CAL ** IS IN WORD3 OF CALLING SEQ, 4F13231 06026 0 60200 0 01347 SLW G INTO G, AND 4F13232 06027 0 07400 1 03321 TSX TET00,1 * GO ENTER IN THE 4F13233 06030 0 00000 0 00011 PZE 9 CLOSUB TABLE. 4F13234 D 06031 1 00000 0 01731 TXI CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235 END OF PROGRAM LIB. 4F13236 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13237 4F13238 VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF, 4F13239 CALLERS =RIT,WOT,EFT, 4F13240 VRA = ENTRY POINT USED BY EFT. 4F13241 06032 0 50000 0 02400 VRA CLA L(TL) RESET TPOA ADDRESS 4F13242 06033 0 62100 0 05102 STA TPOA TO TL. 4F13243 06034 -0 50000 0 00415 CAL TXLOP PREPARE TO SET OP-SWITCH TO TRA. 4F13244 06035 1 77777 4 06037 TXI VRD1,4,-1 SET RETURN TO TSX+2, AND GO SET OP.4F13245 VRD = ENTRY POINT USED BY RIT,WOT, 4F13246 06036 0 50000 0 00415 VRD CLA TXLOP PREPARE TO SET OP-SWITCH TO NOP. 4F13247 06037 0 63000 0 06052 VRD1 STP VRX SET VRX OP-SWITCH. 4F13248 06040 -0 63400 4 06052 SXD VRX,4 SAVE THE C(XR4) FOR RETURN. 4F13249 06041 0 07400 1 05773 TSX IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR. 4F13250 06042 0 07400 4 03400 TSX DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE. 4F13251 06043 0 07400 1 03321 TSX TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE 4F13252 06044 0 00000 0 00005 PZE 5 ENTRY IN FORVAR TABLE. 4F13253 06045 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13254 06046 0 00000 0 01367 PZE SL WORD1-0(IFN)000 4F13255 06047 0 00000 0 01537 PZE CAL WORD2-CAL000 4F13256 06050 0 00000 0 07404 PZE SYM WORD3-(FXD-PT SYMBOL) 4F13257 06051 0 00000 0 01406 PZE L(0) WORD4-000000 4F13258 06052 3 00000 0 06055 VRX TXH VDA,0,** SWITCH ITXL=TRA, TXH=NOP), 4F13259 06053 -0 50000 0 06121 CAL STD PICKUP STD000, AND 4F13260 06054 1 00000 0 06076 XRW TXI RVX,0,** GO SET TOP. 4F13261 06055 0 50000 0 06140 VDA CLA CON IF CON 4F13262 06056 0 10000 0 06070 TZE SDA IS NOT ZERO, 4F13263 06057 0 60100 0 01347 STO G THEN 4F13264 06060 0 07400 4 00417 TSX FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG, 4F13265 06061 0 76700 0 00022 ALS 18 ADJUST TAG, AND 4F13266 06062 0 60100 0 07402 STO RA SET RA. 4F13267 06063 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY. 4F13268 06064 0 00000 0 01406 PZE L(0) WORD1-000000 4F13269 06065 0 00000 0 01532 PZE ADD WORD2-ADD000 4F13270 06066 0 00000 0 01501 PZE 2P WORD3-200000 4F13271 06067 0 00000 0 07402 PZE RA WORD4-(FIXCON TAG) 4F13272 06070 0 07400 4 01731 SDA TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13273 06071 0 00000 0 01406 PZE L(0) WORD1-000000 4F13274 06072 0 00000 0 01535 PZE ARS WORD2-ARSOOO 4F13275 06073 0 00000 0 01406 PZE L(0) WORD3-000000 4F13276 06074 0 00000 0 01466 PZE D18 WORD4-0(18)000 4F13277 06075 -0 50000 0 01571 CAL STA PICKUP STAOOO, AND 4F13278 06076 0 60200 0 06142 RVX SLW TOP SET TOP TO STA OR STD. 4F13279 06077 0 07400 4 02372 TSX JIF,4 * GO JUMP IFN, AND SET SL AND TL, 4F13280 06100 0 07400 4 01731 TSX CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F13281 06101 0 00000 0 01406 PZE L(0) WORD1- 00600 4F13282 06102 0 00000 0 06142 PZE TOP WORD2-STA000 OR STD000 4F13283 06103 0 00000 0 01371 PZE TL WORD3-0(IFN)000 4F13264 06104 0 00000 0 01406 PZE L(0) WORD4-000000 4F13285 06105 -0 75400 0 05555 NLA PXD LAST,0 CLEAR THE AC 4F13286 06106 -0 53400 4 06052 LXD VRX,4 RESTORE THE C(XR4), AND 4F13287 06107 0 02000 4 00001 TRA 1,4 * EXIT TO CALLER. 4F13288 END OF PROGRAM VRA(VRD), 4F13289 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290 4F13291 STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= 4F13292 4F13293 06110 222324000000 BCD BCD 1BCD000 CONSTANT USED BY IOT. 4F13294 06111 226263000000 BST BCD 1BST000 CONSTANT USED BY IOT. 4F13295 06112 256344000000 ETM BCD 1ETM000 CONSTANT USED BY IOT, 4F13296 06113 436344000000 LTM BCD 1LTM000 CONSTANT USED BY IOT. 4F13297 06114 456351000000 NTR BCD 1NTR000 CONSTANT USED BY IOT. 4F13298 06115 512451000000 RDR BCD 1RDR000 CONSTANT USED BY IOT. 4F13299 06116 512566000000 REW BCD 1REW000 CONSTANT USED BY IOT. 4F13300 06117 516322000000 RTB BCD 1RTB000 CONSTANT USED BY IOT. 4F13301 06120 624366000000 SLW BCD 1SLW000 CONSTANT USED BY IOT. 4F13302 06121 626324000000 STD BCD 1STD000 CONSTANT USED BY IOT. 4F13303 06122 662451000000 WDR BCD 1WDR000 CONSTANT USED BY IOT. 4F13304 06123 662526000000 WEF BCD 1WEF000 CONSTANT USED BY IOT. 4F13305 06124 666322000000 WTB BCD 1WTB000 CONSTANT USED BY IOT. 4F13306 06125 673163000000 XIT BCD 1XIT000 CONSTANT USED BY IOT. 4F13307 06126 742224233460 BDC BCD 1(BDC) CONSTANT USED BY IOT. 4F13308 06127 742362303460 CSH BCD 1(CSH) CONSTANT USED BY IOT. 4F13309 06130 742422233460 DBC BCD 1(DBC) CONSTANT USED BY IOT. 4F13310 06131 742631433460 FIL BCD 1(FIL) CONSTANT USED BY IOT. 4F13311 06132 744325653460 LEV BCD 1(LEV) CONSTANT USED BY IOT. 4F13312 06133 745163453460 RTN BCD 1(RTN) CONSTANT USED BY IOT. 4F13313 06134 746223303460 SCH BCD 1(SCH) CONSTANT USED BY IOT. 4F13314 06135 746247303460 SPH BCD 1(SPH) CONSTANT USED BY IOT. 4F13315 06136 746263303460 STH BCD 1(STH) CONSTANT USED BY IOT. 4F13316 06137 746362303460 TSH BCD 1(TSH) CONSTANT USED BY IOT. 4F13317 4F13318 06140 CON BSS 1 VARIABLE USED BY IOT. 4F13319 06141 0 00000 0 00000 END PZE ** VARIABLE USED BY IOT. 4F13320 06142 TOP BSS 1 VARIABLE USED BY IOT. 4F13322 06143 0 00000 0 00000 TSA PZE ** VARIABLE USED BY IOT. 4F13323 06144 0 00000 0 00000 TTA PZE ** VARIABLE USED BY IOT. 4F13324 4F13325 DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500).4F13326 06145 +244677274663 DIC OCT 244677274663 DO-GOT 4F13327 06146 -067731267462 OCT -67731267462 O-IF(S 4F13328 06147 +254562256266 OCT 254562256266 ENSESW 4F13329 06150 +316323307731 OCT 316323307731 ITCH-I 4F13330 06151 +267462254562 OCT 267462254562 F(SENS 4F13331 06152 +254331273063 OCT 254331273063 ELIGHT 4F13332 06153 -373126243165 OCT -373126243165 -IFDIV 4F13333 06154 +312425233025 OCT 312425233025 IDECHE 4F13334 06155 +234277312621 OCT 234277312621 CK-IFA 4F13335 06156 +232364446443 OCT 232364446443 CCUMUL 4F13336 06157 +216346514665 OCT 216346514665 ATOROV 4F13337 06160 +255126434666 OCT 255126434666 ERFLOW 4F13338 06161 -373126506446 OCT -373126506446 -IFQUO 4F13339 06162 -233125456346 OCT -233125456346 TIENTO 4F13340 06163 -252551264346 OCT -252551264346 VERFLO 4F13341 06164 -267731267721 OCT -267731267721 W-IF-A 4F13342 06165 -226231274577 OCT -226231274577 SSIGN- 4F13343 06166 -226346477747 OCT -226346477747 STOP-P 4F13344 06167 +216462257762 OCT 216462257762 AUSE-S 4F13345 06170 +254562254331 OCT 254562254331 ENSELI 4F13346 06171 +273063772431 OCT 273063772431 GHT-DI 4F13347 06172 -042545623146 OCT -42545623146 MENSIO 4F13348 06173 -057725506431 OCT -57725506431 N-EQUI 4F13349 06174 -252143254523 OCT -252143254523 VALENC 4F13350 06175 +257726512550 OCT 257726512550 E-FREQ 4F13351 06176 -242545237077 OCT -242545237077 UENCY- 4F13352 06177 +234645633145 OCT 234645633145 CONTIN 4F13353 06200 -242577512521 OCT -242577512521 UE-REA 4F13354 06201 +246321472577 OCT 246321472577 DTAPE- 4F13355 06202 -112521243145 OCT -112521243145 READIN 4F13356 06203 -076463632147 OCT -76463632147 PUTTAP 4F13357 06204 +257751252124 OCT 257751252124 E-READ 4F13358 06205 +245164447751 OCT 245164447751 DRUM-R 4F13359 06206 +252124776651 OCT 252124776651 EAD-WR 4F13360 06207 +316325632147 OCT 316325632147 ITETAP 4F13361 06210 +257766513163 OCT 257766513163 E-WRIT 4F13362 06211 +254664634764 OCT 254664634764 EOUTPU 4F13363 06212 -236321472577 OCT -236321472577 TTAPE- 4F13364 06213 -265131632524 OCT -265131632524 WRITED 4F13365 06214 -116444774751 OCT -116444774751 RUM-PR 4F13366 06215 +314563774764 OCT 314563774764 INT-PU 4F13367 06216 -052330775125 OCT -52330775125 NCH-RE 4F13368 06217 -263145247722 OCT -263145247722 WIND-B 4F13369 06220 +212342624721 OCT 212342624721 ACKSPA 4F13370 06221 +232577254524 OCT 232577254524 CE-END 4F13371 06222 +263143257726 OCT 263143257726 FILE-F 4F13372 06223 -065144216377 OCT -65144216377 ORMAT- 4F13373 06224 -226422514664 OCT -226422514664 SUBROU 4F13374 06225 -233145257723 OCT -233145257723 TINE-C 4F13375 06226 -064444464577 OCT -064444464577 OMMON- 4F13376 06227 -112563645145 OCT -112563645145 RETURN 4F13377 06230 -372321434377 OCT -372321434377 -CALL- 4F13378 06231 +254524747726 OCT 254524747726 END(-F 4F13379 06232 -244523633146 OCT -244523633146 UNCTIO 4F13360 06233 -057777777777 OCT -057777777777 N----- 4F13361 06234 BSS 10 4F133815 END OF DICTIONARY. 4F13382 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13383 4F13384 T/ TRANSFER TABLE IUSED BY CC000), 4F13385 D 06246 1 00000 0 03653 T TXI C0100,0 DO, 4F13386 D 06247 1 00000 0 03720 TXI C0200,0 GO TO. 4F13387 D 06250 1 00000 0 04106 TXI C0400,0 IF ISENSE SWITCH. 4F13388 D 06251 1 00000 0 04150 TXI C0500,0 IF (SENSE LIGHT. 4F13389 D 06252 1 00000 0 04154 TXI C0600,0 IF DIVIDE CHECK. 4F13390 D 06253 1 00000 0 04162 TXI C0700,0 IF AC OVERFLOW, 4F13391 D 06254 1 00000 0 04166 TXI C0800,0 IF MO OVERFLOW. 4F13392 D 06255 1 00000 0 04033 TXI C0300,0 IF. 4F13393 D 06256 1 00000 0 04216 TXI C1000,0 A5SIGN. 4F13394 D 06257 1 00000 0 04343 TXI C1300,0 STOP. 4F13395 D 06260 1 00000 0 04170 TXI C0900,0 PAUSE. 4F13396 D 06261 1 00000 0 04251 TXI C1100,0 SENSE LIGHT, 4F13397 D 06262 -3 00000 0 04266 TXL C1200,0 DIMENSION* 4F13398 D 06263 -3 00000 0 04375 TXL C1500,0 EOUIVALENCE. 4F13399 D 06264 -3 00000 0 04354 TXL C1400,0 FREOUENCY, 4F13400 D 06265 1 00000 0 04433 TXI C1600,0 CONTINUE. 4F13401 D 06266 1 00000 0 05012 TXI RBT,0 READ TAPE. 4F13402 D 06267 1 00000 0 04745 TXI RIT,0 READ INPUT TAPE. 4F13403 D 06270 1 00000 0 05063 TXI RDD,0 READ DRUM. 4F13404 D 06271 1 00000 0 04673 TXI RDC,0 READ CARD. 4F13405 D 06272 1 00000 0 04777 TXI WBT,0 WRITE TAPE. 4F13406 D 06273 1 00000 0 04764 TXI WOT,0 WRITE OUTPUT TAPE. 4F13407 D 06274 1 00000 0 05044 TXI WRD,0 WRITE DRUM, 4F13408 D 06275 1 00000 0 04753 TXI RDP,0 PRINT. 4F13409 D 06276 1 00000 0 04772 TXI PDC,0 PUNCH. 4F13410 D 06277 1 00000 0 05107 TXI RWN,0 REWIND. 4F13411 D 06300 1 00000 0 05111 TXI BSP,0 BACKSPACE. 4F13412 D 06301 1 00000 0 05066 TXI EFT,0 END FILE. 4F13413 D 06302 -3 00000 0 05113 TXL FOR,0 FORMAT. 4F13414 D 06303 -3 00000 0 04442 TXL C3000,0 SUBROUTINE. 4F13415 D 06304 -3 00000 0 04512 TXL C3100,0 COMMON. 4F13416 D 06305 1 00000 0 04536 TXI C3200,0 RETURN. 4F13417 D 06306 1 00000 0 04607 TXI C3300,0 CALL. 4F13418 D 06307 -3 00000 0 04660 TXL C3400,0 END. 4F13419 D 06310 -3 00000 0 04440 TXL C3500,0 FUNCTION. 4F13420 06311 BSS 10 4F134205 END OF TRANSFER TABLE. 4F13421 06323 ENDADR BSS 0 4F134215 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13422 4F13423 07307 ENDA ORG 3783 4F13424 07307 BIN BSS 1 VARIABLE USED BY IOT. 4F13425 07316 CHR BES 6 VARIABLE USED BY IOT. 4F13426 07316 BSS 50 PARAMETERS FOR TLDOS TABLE -IOT. 4F13427 07400 DOLEV BSS 1 PARAMETERS FOR TLDOS TABLE -IOT. 4F13428 07401 OP BSS 1 VARIABLE USED BY IOT. 4F13429 07402 RA BSS 1 VARIABLE USED BY IOT. 4F13430 07403 SA BSS 1 VARIABLE USED BY IOT. 4F13431 07404 SYM BSS 1 VARIABLE USED BY IOT. 4F13432 07405 TLDOS BSS 250 DO TABLE USED BY IOT. 4F13433 END OF WORKING STORAGE USED BY STATEA. 4F13434 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13435 4F13436 END OF THE NON-ARITHMETIC PART OF SECTION ONE. 4F13437 4F13438 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13439 4F13440 ARITHMETIC / STATE B= 4F13441 704 FORTRAN MASTER RECORD CARD / STATE B = F0180000. 4F13442 00000 ORG 0 4F134421 00000 0 00506 0 03440 PZE ORGB,,DMWR06 4F134422 00001 0 00000 0 05214 PZE ENDB-1 4F134423 4F13443 03440 ORGB ORG 1824 4F13444 4F13445 THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704 4F13446 FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 4F13447 ANALYSIS HAS BEEN FOLDED OVER. 4F13440 4F13449 STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. 4F13450 THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451 IN THE F REGION OF COMMON AND IS IN BCD. 4F13452 EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD 4F13453 ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454 TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455 LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456 WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457 AND THE OPERATOR WHICH PRECEDES IT. 4F13458 03440 0 76000 0 00140 SLF 4F13459 03441 0 50000 0 04741 CLA SIG1ST 4F13460 03442 0 60100 0 00445 STO SIG1IX-3 4F13461 03443 0 60000 0 01122 STZ ARGCTR CLEAR 4F13462 03444 0 60000 0 01124 STZ CHSAVE X 4F13463 03445 0 60000 0 01117 STZ 3LBAR X 4F13464 03446 0 60000 0 01360 STZ NBAR X 4F13465 03447 0 60000 0 05277 STZ CBAR X 4F13466 03450 0 60000 0 05300 STZ ABAR X 4F13467 03451 0 60000 0 05301 STZ FSTYPE X 4F13468 03452 -0 53400 4 01507 LXD 1BAR,4 SET NBAR=-1 4F13469 03453 -0 63400 4 01360 SXD NBAR,4 X 4F13470 03454 -0 50000 0 01500 CAL E( SET ARERAS - E( 4F13471 03455 0 60200 0 01120 SLW ARERAS X 4F13472 03456 0 07400 4 01671 TSX C0190X,4 SET FWA --F AND CHCTR - 0 4F13473 03457 -0 50000 0 00422 CAL TXHOP SET SWITCHES FOR LEFT SCAN. 4F13474 03460 0 63000 0 03563 STP MS093 X 4F13475 03461 0 63000 0 03767 STP MS310 X 4F13476 03462 0 63000 0 03750 STP MS321 X 4F13477 03463 -0 50000 0 01512 MS010 CAL ADPLUS SET OP TO ADDITION 4F13478 03464 0 60200 0 01127 MS030 SLW E+1 X 4F13479 03465 0 60000 0 05303 STZ FNBITS CLEAR FUNCTION NAME INDICATOR 4F13480 03466 0 60000 0 05304 STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481 03467 0 60000 0 01347 STZ G CLEAR RECEIVING CELL. 4F13482 03470 0 50200 0 01406 CLS L(0) SET E = -0 4F13483 03471 0 60100 0 01126 STO E X 4F13484 03472 0 53400 2 01414 LXA L(6),2 SET IR2 FOR SIX CHARS. 4F13485 03473 -0 50000 0 01124 MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486 03474 -0 10000 0 03476 TNZ MS041 X 4F13467 03475 0 07400 4 01707 TSX C0190,4 CHSAVE EMPTY, GET NEXT CHAR. 4F13488 03476 0 34000 0 01417 MS041 CAS L(9) IS CHAR. NUMERIC 4F13489 03477 0 02000 0 03504 TRA MS050 N/, TAKE TRA 4F13490 D 03500 3 00000 0 04417 MS4007 TXH CM4100,0 4F13491 03501 0 07400 4 04463 TSX ROYCNV,4 X 4F13492 03502 0 02000 0 04030 TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493 03503 0 02000 0 04076 TRA LATXH THIS WAS FIXED OR FLOATING CONSTANT. 4F13494 03504 0 53400 4 01373 MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495 03505 0 34000 4 01406 MS051 CAS CTEST,4 4F13496 03506 0 02000 0 03510 TRA MS052 X 4F13497 03507 0 02000 0 03543 TRA MS090 CHAR IS SOME PUNCTUATION. 4F13498 03510 2 00001 4 03505 MS052 TIX MS051,4,1 X 4F13499 03511 0 76700 2 00044 MS060 ALS 36,2 POSITION CHAR FOR BUILDING SYMBOL. 4F13500 03512 -0 60200 0 01347 ORS G ADD CHAR TO THOSE IN G. 4F13501 03513 1 00006 2 03514 TXI MS061,2,6 UPDATE POSITIONING TAG. 4F13502 03514 0 07400 4 01707 MS061 TSX C0190,4 GET NEXT CHAR. 4F13503 03515 0 53400 4 01373 MS070 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13504 03516 0 34000 4 01406 MS071 CAS CTEST,4 X 4F13505 03517 0 02000 0 03521 TRA MS072 X 4F13506 03520 0 02000 0 03545 TRA MS091 CHAR IS SOME PUNCTUATION. 4F13507 03521 2 00001 4 03516 MS072 TIX MS071,4,1 X 4F13508 03522 -3 00022 2 03511 TXL MS060,2,18 IF THIS IS CHAR I, 2 /R 3 GO BUILD G. 4F13509 03523 0 34000 0 01422 CAS L(F) IS THIS AN F ENDING FUNCTION NAME. 4F13510 03524 0 02000 0 03526 TRA MS073 X 4F13511 03525 0 02000 0 03530 TRA MS080 MAYBE, GO LOOK AT NEXT CHAR. 4F13512 03526 -3 00044 2 03511 MS073 TXL MS060,2,36 TEST FOR UNDER 7 CHARS. 4F13513 03527 0 07400 4 03400 MS074 TSX DIAG,4 BUILD G, 7TH CHAR IS ERROR. 4F13514 03530 0 07400 4 01707 MS080 TSX C0190,4 GET NEXT CHAR. 4F13515 03531 0 34000 0 01375 CAS OPEN TEST FOR (. 4F13516 03532 0 02000 0 03534 TRA MS081 X 4F13517 03533 0 02000 0 03555 TRA MS092 YES, THIS IS A FUNCTION NAME. 4F13518 03534 0 60100 0 01331 MS081 STO FIRSTC NO, SAVE CURRENT CHAR. 4F13519 03535 -0 50000 0 01422 CAL L(F) ADD F TO CONTENTS OF G, 4F13520 03536 0 76700 2 00044 ALS 36,2 X 4F13521 03537 -0 60200 0 01347 ORS G X 4F13522 03540 3 00044 2 03527 TXH MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR, 4F13523 03541 0 50000 0 01331 CLA FIRSTC RESTORE CURRENT CHAR. 4F13524 03542 1 00006 2 03515 TXI MS070,2,6 UPDATE POSITIONING TAG, 4F13525 03543 0 60000 0 01124 MS090 STZ CHSAVE CLEAR 4F13526 03544 0 02000 4 03677 TRA TRBLKA,4 4F13527 03545 0 60200 0 01124 MS091 SLW CHSAVE OP IS IN NEXT ELEMENT, SAVE, 4F13528 03546 -0 50000 0 01430 CAL BLANK ADD BLANK TO CHARS IN G. 4F13529 03547 0 76700 2 00044 ALS 36,2 X 4F13530 03550 -0 60200 0 01347 ORS G X 4F13531 03551 0 56000 0 01347 LDQ G MOVE G TO E+2 AND TO G+1, 4F13532 03552 -0 60000 0 01130 STQ E+2 X 4F13533 03553 -0 60000 0 01350 STQ G+1 X 4F13534 03554 0 02000 4 03727 TRA TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE 4F13535 03555 -0 75400 0 00000 MS092 PXD ,0 CLEAR 4F13536 03556 0 56000 0 01526 LDQ BLANKS ADD BLANKS TO SUBROUTINE NAME IN G. 4F13537 03557 -0 76300 2 00052 LGL 42,2 X 4F13538 03560 -0 50100 0 01347 ORA G X 4F13539 03561 0 60200 0 01347 SLW G X 4F13540 03562 0 60200 0 01130 SLW E+2 MOVE FUNCTION NAME TO E+2. 4F13541 U 03563 00000 0 04026 MS093 *** MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 4F13542 03564 -0 53400 4 00470 LXD BK,4 THIS IS ARITH FUNCTION STATEMENT. 4F13543 03565 0 60200 4 00471 SLW FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE. 4F13544 03566 -0 50000 0 00030 CAL EIFNO ENTER INTERNAL FORMULA NO IN FORSUB. 4F13545 03567 -0 32000 0 01527 ANA MASK1 X 4F13546 03570 0 60100 4 00472 STO FORSUB+1,4 X 4F13547 03571 1 77776 4 03572 TXI FS010,4,-2 UPDATE COUNT OF ENTRIES IN FORSUB. 4F13548 03572 -0 63400 4 00470 FS010 SXD BK,4 X 4F13549 03573 0 07400 4 01707 FS020 TSX C0190,4 GET FIRST CHAR OF ARGUMENT. 4F13550 03574 0 34000 0 01400 CAS EQUAL TEST FOR EQUAL, 4F13551 03575 0 02000 0 03577 TRA FS030 X 4F13552 03576 0 02000 0 03755 TRA MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553 03577 0 34000 0 01417 FS030 CAS L(9) TEST FOR ILLEGAL ARGUMENT, 4F13554 03600 0 02000 0 03603 TRA FS040 LEGAL, CONTINUE 4F13555 D 03601 3 00000 0 04427 MS9002 TXH CM4200,0 4F13556 03602 0 07400 4 03400 TSX DIAG,4 BEGINS NUMERIC, ERROR, 4F13557 03603 0 07400 2 01624 FS040 TSX C0160,2 COLLECT ARGUMENT NAME IN 1G, 4F13558 03604 0 07400 4 03255 TSX TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR) 4F13559 03605 -0 53400 2 01122 LXD ARGCTR,2 GET COUNT OF ARGUMENTS 4F13560 03606 0 56000 0 01112 LDQ 1G ENTER ARGUMENT NAME IN ARGREG TABLE. 4F13561 03607 -0 60000 2 05215 STQ ARGREG,2 X 4F13562 03610 1 77777 2 03611 TXI FS050,2,-1 UPDATE COUNT OF ARGUMENTS. 4F13563 03611 -0 63400 2 01122 FS050 SXD ARGCTR,2 4F13464 03612 3 77716 2 03573 TXH FS020,2,-50 TEST FOR ARGREG TABLE OVERFLOW, 4F13565 03613 0 07400 4 03400 TSX DIAG,4 YES, ERROR. 4F13566 03614 0 07400 4 04470 MS200 TSX DECPNT,4 CONVERT BCD NUMBER TO BINARY 4F13567 03615 0 07400 4 03400 TSX DIAG,4 HOLLERITH RETURN, ERROR. 4F13568 03616 0 02000 0 04076 TRA LATXH FLOATING POINT CONSTANT RETURN. 4F13569 03617 0 76000 0 00141 MS210 SLN 1 TURN , LITE 0N. 4F13570 03620 -0 53400 1 01117 LXD 3LBAR,1 PERFORM LEVEL ANALYSIS FOR , 4F13571 03621 -0 53400 4 05300 LXD ABAR,4 4F13572 03622 0 50200 4 05301 CLS ALPHA-4,4 4F13573 03623 0 60100 1 05520 STO LAMBDA,1 4F13574 03624 -0 50000 0 01522 CAL ADSPOP 4F13575 03625 0 60200 1 05521 SLW LAMBDA+1,1 4F13576 03626 0 50000 0 01360 CLA NBAR 4F13577 03627 0 77100 0 00022 ARS 18 4F13578 03630 0 60100 1 05522 STO LAMBDA+2,1 4F13579 03631 1 77775 1 03632 TXI MS211,1,-3 4F13580 03632 -0 63400 1 01117 MS211 SXD 3LBAR,1 4F13581 03633 -0 53400 1 01360 LXD NBAR,1 4F13582 03634 -0 63400 1 05277 SXD CBAR,1 4F13583 03635 1 77777 1 03636 TXI MS212,1,-1 4F13584 03636 -0 63400 1 01360 MS212 SXD NBAR,1 4F13585 03637 1 00003 4 03640 TXI MS213,4,3 4F13586 03640 -0 63400 4 05300 MS213 SXD ABAR,4 4F13587 03641 0 02000 0 03463 TRA MS010 4F13588 03642 -0 53400 4 05300 MS220 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOR ) 4F13589 03643 0 50000 4 05301 CLA ALPHA-4,4 4F13590 03644 0 73400 1 00000 PAX ,1 4F13591 03645 -0 63400 1 05277 SXD CBAR,1 4F13592 03646 1 00004 4 03647 TXI MS221,4,4 4F13593 03647 -0 63400 4 05300 MS221 SXD ABAR,4 4F13594 03650 0 02000 0 04425 TRA MS020 4F13595 03651 -0 53400 4 05300 MS230 LXD ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK, 4F13596 03652 1 00003 4 03653 TXI MS231,4,3 4F13597 03653 -3 00000 4 03655 MS231 TXL MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, 4F13598 03654 0 07400 4 03400 TSX DIAG,4 NO, ERROR. 4F13599 03655 -0 53400 4 01122 MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600 03656 -3 00000 4 02406 TXL STATEC,4,0 4F13601 03657 -0 50000 0 05301 CAL FSTYPE YES, UPDATE FUNCTION TYPE AND 4F13602 03660 0 40000 0 01407 ADD L(1) COMPLETE FORSUB ENTRY BY ASSIGNING 4F13603 03661 -0 53400 1 00470 LXD BK,1 TYPE NUMBER. 4F13604 03662 0 62100 1 00470 STA FORSUB-1,1 X 4F13605 03663 -0 60200 0 01120 ORS ARERAS ALSO SAVE FOR LATER REFERENCE. 4F13606 03664 0 02000 0 02406 TRA STATEC 4F13607 03665 0 02000 0 03651 TRA MS230 ENDMK 4F13608 03666 0 02000 0 03712 TRA MS260 ( 4F13609 03667 0 02000 0 03617 TRA MS210 , 4F13610 03670 0 02000 0 03642 TRA MS220 ) 4F13611 03671 0 07400 4 03400 MSERR= TSX DIAG,4 = 4F13612 03672 0 02000 0 03707 TRA MS250 - 4F13613 03673 0 02000 0 03707 TRA MS250 / 4F13614 03674 0 02000 0 03614 TRA MS200 , 4F13615 03675 0 02000 0 03707 TRA MS250 + 4F13616 03676 0 76700 0 00036 MS240 ALS 30 * SAVE * 4F13617 03677 TRBLKA BSS 0 4F13618 03677 0 60200 0 01127 SLW E+1 X 4F13619 03700 0 07400 4 01707 TSX C0190,4 GET NEXT CHAR. 4F13620 03701 0 34000 0 01405 CAS STAR IS IT * 4F13621 03702 0 02000 0 03476 TRA MS041 X 4F13622 03703 0 02000 0 03705 TRA MS241 YES, THIS WAS ** 4F13623 03704 0 02000 0 03476 TRA MS041 NO, GO COMPARE TO OTHER PUNCTUATION. 4F13624 03705 -0 50000 0 01525 MS241 CAL STRSTR REPLACE * WITH ** 4F13625 03706 0 02000 0 03710 TRA MS251 X 4F13626 03707 0 76700 0 00036 MS250 ALS 30 POSITION CHAR WHICH IS + OR - OR / 4F13627 03710 0 60200 0 01127 MS251 SLW E+1 PUT CURRENT OP IN E+1. 4F13628 03711 0 02000 0 03473 TRA MS040 NOW GO COLLECT SYMBOL, 4F13629 03712 0 76700 0 00036 MS260 ALS 30 ( TO SYMBOL WORD 4F13630 03713 0 60200 0 01130 SLW E+2 X 4F13631 03714 0 02000 0 04074 TRA LATXL GO PERFORM LEVEL ANALYSIS FOR ( 4F13632 03715 0 02000 0 03726 TRA MS300 ENDMK 4F13633 03716 0 02000 0 03747 TRA MS320 ( 4F13634 03717 0 02000 0 03726 TRA MS300 , 4F13635 03720 0 02000 0 03726 TRA MS300 ) 4F13636 03721 0 02000 0 03767 TRA MS310 = 4F13637 03722 0 02000 0 03726 TRA MS300 - 4F13638 03723 0 02000 0 03726 TRA MS300 / 4F13639 03724 0 07400 4 03400 TSX DIAG,4 . 4F13640 03725 0 02000 0 03726 TRA MS300 + 4F13641 03726 -0 75400 0 00000 MS300 PXD ,0 * CLEAR 4F13642 03727 TRBLKB BSS 0 BASE ADDRESS FOR TAGGED TRANSFER. 4F13643 03727 -0 76300 0 00006 LGL 6 GET FIRST CHAR OF SYMBOL. 4F13644 03730 0 07400 1 03242 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. 4F13645 03731 0 02000 0 04074 TRA LATXL FLOATING, GO PERFORM LEVEL ANALYSIS. 4F13646 03732 -0 50000 0 00030 CAL EIFNO FIXED, PREPARE FORVAR ENTRY. 4F13647 03733 -0 32000 0 01527 ANA MASK1 X 4F13648 03734 0 60200 0 01347 SLW G X 4F13649 03735 0 07400 1 03321 TSX TET00,1 MAKE FORVAR ENTRY. 4F13650 03736 0 00000 0 00005 5 X 4F13651 03737 -0 75400 0 00000 PXD ,0 4F13652 03740 0 56000 0 01356 LDQ LEFT+2 4F13653 03741 -0 76300 0 00014 LGL 12 4F13654 03742 0 40200 0 01451 SUB CALLER 4F13655 03743 -0 10000 0 04074 TNZ LATXL 4F13656 03744 0 07400 1 03321 TSX TET00,1 4F13657 03745 0 00000 0 00006 6 4F13658 03746 0 02000 0 04074 TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13659 03747 0 60000 0 01124 MS320 STZ CHSAVE CLEAR CELL FOR 0P. 4F13660 U 03750 00000 0 04003 MS321 *** MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. 4F13661 03751 0 07400 4 04450 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATION 4F13662 03752 0 07400 4 01707 TSX C0190,4 GET NEXT CHAR. 4F13663 03753 0 40200 0 01400 SUB EQUAL TEST FOR EQUAL SIGN. 4F13664 03754 -0 10000 0 03671 TNZ MSERR= NO, ERROR. 4F13665 03755 0 53400 4 01411 MS322 LXA L(3),4 MOVE CONTENTS OF E WORDS TO LEFT WORDS. 4F13666 03756 0 56000 4 01131 MS323 LDQ E+3,4 X 4F13667 03757 -0 60000 4 01357 STQ LEFT+3,4 X 4F13668 03760 2 00001 4 03756 TIX MS323,4,1 X 4F13669 03761 -0 50000 0 00415 MS311 CAL TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. 4F13670 03762 0 63000 0 03563 STP MS093 X 4F13671 03763 0 63000 0 03767 STP MS310 X 4F13672 03764 0 63000 0 03750 STP MS321 X 4F13673 03765 0 76000 0 00141 SLN 1 TURN = OR ) LITE 0N. 4F13674 03766 0 02000 0 03463 TRA MS010 GO SCAN NEXT ELEMENT. 4F13675 U 03767 00000 0 03671 MS310 *** MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676 03770 0 60000 0 01124 STZ CHSAVE CLEAR 4F13677 03771 -0 75400 0 00000 PXD ,0 CLEAR AC 4F136775 03772 -0 76300 0 00006 LGL 6 GET FIRST CHAR OF SYMBOL. 4F13678 03773 0 07400 1 03242 TSX TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT 4F13679 03774 0 02000 0 03755 TRA MS322 FLOATING, 4F13680 03775 -0 50000 0 00030 CAL EIFNO FIXED, PREPARE FORVAL ENTRY. 4F13681 03776 -0 32000 0 01527 ANA MASK1 X 4F13682 03777 0 60200 0 01347 SLW G X 4F13683 04000 0 07400 1 03321 TSX TET00,1 MAKE FORVAL ENTRY. 4F13684 04001 0 00000 0 00006 6 X 4F13685 04002 0 02000 0 03755 TRA MS322 4F13686 04003 0 07400 4 01771 MS330 TSX DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, 4F13687 04004 0 02000 0 04006 TRA MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 4F13688 04005 0 02000 0 04013 TRA MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE 4F13689 04006 0 07400 4 01775 MS331 TSX DIM2SR,4 OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690 04007 0 02000 0 04011 TRA MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691 04010 0 02000 0 04013 TRA MS333 ASSUMED TO BE THE NAME OF A FORTRAN II 4F13692 04011 0 07400 4 02005 MS332 TSX DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693 04012 0 02000 0 04015 TRA MS334 X 4F13694 04013 0 07400 4 04450 MS333 TSX SS000X,4 GO PROCESS SUBSCRIPT COMBINATIONS 4F13695 04014 0 02000 0 04076 TRA LATXH GO PERFORM LEVEL ANALYSIS. 4F13696 04015 -0 50000 0 01471 MS334 CAL FNIND NOT FOUND, TREAT AS FUNCTION NAME. 4F13697 04016 0 60200 0 05303 SLW FNBITS X 4F13698 04017 -0 75400 0 00000 PXD ,0 X 4F13699 04020 0 56000 0 01526 LDQ BLANKS COMPLETE NAME WITH BLANKS. 4F13700 04021 -0 76300 2 00052 LGL 42,2 X 4F13701 04022 -0 60200 0 01347 ORS G X 4F13702 04023 -0 60200 0 01130 ORS E+2 X 4F13703 04024 0 07400 1 03321 TSX TET00,1 ENTER NAME IN CLOSUB TABLE. 4F13704 04025 0 00000 0 00011 9 X 4F13705 04026 0 76000 0 00142 MS335 SLN 2 TURN FUNCTION LITE 0N. 4F13706 04027 0 02000 0 04074 TRA LATXL GO PERFORM LEVEL ANALYSIS. 4F13707 04030 0 60000 0 01124 HOLL STZ CHSAVE CLEAR CHSAVE 4F13708 04031 -0 50000 0 01352 CAL HOLCNT GET CURRENT H(+I WORD 4F13709 04032 0 60200 0 01130 SLW E+2 4F13710 04033 0 53400 2 01103 LXA N,2 GET NUMBER OF CHARACTERS IN THIS ARG 4F13711 04034 -0 53400 4 01724 LXD CHCTR,4 GET CURRENT RESIDUE CHAR COUNT 4F13712 04035 0 56000 0 01365 LDQ RESIDU GET CURRENT RESIDU WORD 4F13713 04036 0 53400 1 01414 C3351 LXA L(6),1 SET TO COLLECT SIX CHARS 4F13714 04037 -0 75400 0 00000 PXD 0,0 CLEAR AC 4F13715 04040 -2 00001 4 04053 C3352 TNX C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU 4F13716 04041 -0 76300 0 00006 C33525 LGL 6 GET NEXT CHAR 4F13717 04042 0 60200 0 01112 SLW 1G STORE WORD 4F13718 04043 -0 32000 0 01374 ANA ENDMK BLANK ALL EXCEPT CURRENT CHAR 4F13719 04044 0 40200 0 01374 SUB ENDMK TEST FOR INTERNAL ENDMK 4F13720 04045 -0 10000 0 04047 TNZ C3353 4F13721 04046 0 07400 4 03400 TSX DIAG,4 YES, ERROR, GO TO DIAGNOSTIC. 4F13722 04047 -0 50000 0 01112 C3353 CAL 1G RETREIVE WORD 4F13723 04050 -2 00001 2 04063 TNX C3358,2,1 TEST FOR ALL CHARS COLLECTED 4F13724 04051 -2 00001 1 04061 TNX C3356,1,1 TEST FOR SIX CHARS COLLECTED 4F13725 04052 0 02000 0 04040 TRA C3352 NOT SIX CHARS YET, CONTINUE C0LLECTING4F13726 04053 -0 53400 4 01614 C3354 LXD FWA,4 LOAD MQ WITH NEXT F REGION WORD 4F13727 04054 0 56000 4 00000 LDQ 0,4 4F13728 04055 1 77777 4 04056 TXI C3355,4,-1 UPDATE FWA 4F13729 04056 -0 63400 4 01614 C3355 SXD FWA,4 4F13730 04057 0 53400 4 01414 LXA L(6),4 RESET MQ CHAR COUNT TO SIX 4F13731 04060 0 02000 0 04041 TRA C33525 CONTINUE COLLECTING 4F13732 04061 0 07400 1 04437 C3356 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13733 04062 1 00000 0 04036 C3357 TXI C3351,0,** RETURN TO CONTINUE COLLECTING 4F13734 04063 -0 60000 0 01365 C3358 STQ RESIDU UPDATE RESIDU 4F13735 04064 -0 63400 4 01724 SXD CHCTR,4 UPDATE CHCTR 4F13736 04065 -2 00001 1 04071 TNX C3360,1,1 TEST FOR SIX CHARS IN AC DEC IR1 4F13737 04066 0 56000 0 01526 LDQ BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS 4F13738 04067 -0 76300 0 00006 C3359 LGL 6 ADD BLANKS 4F13739 04070 2 00001 1 04067 TIX C3359,1,1 4F13740 04071 0 07400 1 04437 C3360 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13741 04072 -0 50000 0 01531 CAL ALL1 GET WORD OF ONES 4F13742 04073 0 07400 1 04437 TSX C3390,1 GO TO ENTER WORD IN HOLARG TABLE 4F13743 LEVEL ANALYSIS 4F13744 04074 -0 50000 0 00415 LATXL CAL TXLOP 4F13745 04075 0 02000 0 04077 TRA LATXL+3 4F13746 04076 -0 50000 0 00422 LATXH CAL TXHOP 4F13747 04077 0 63000 0 04424 STP CM4105 4F13748 04100 0 53400 1 01406 LA0000 LXA L(0),A 4F13749 04101 0 50000 0 01130 CLA E+2 4F13750 04102 -0 76000 0 00142 SLT 2 IS THIS A FUNCTION NAME 4F13751 04103 0 02000 0 04144 TRA LA0000+36 NO 4F13752 04104 0 76000 0 00142 SLN 2 YES - TURN F LITE BACK ON 4F13753 04105 -0 53400 4 00470 LXD BK,C IS FORSUB EMPTY 4F13754 04106 -3 00000 4 04115 TXL LA0000+13,C,0 YES. GO SET FS BITS TO 0 4F13755 04107 -0 63400 4 04114 SXD LA0000+12,C 4F13756 04110 0 34000 1 00471 CAS FORSUB,A SEARCH FN NAME IN FORSUB 4F13757 04111 1 77776 1 04114 TXI LA0000+12,A,-2 4F13758 04112 0 02000 0 04117 TRA LA0000+15 4F13759 04113 1 77776 1 04114 TXI LA0000+12,A,-2 4F13760 04114 3 00000 1 04110 TXH LA0000+8,A,0 4F13761 04115 0 60000 0 05302 STZ FSBITS SET FSBITS TO 0 4F13762 04116 0 02000 0 04131 TRA LA0000+25 4F13763 04117 -0 50000 1 00472 CAL FORSUB+1,A FN NAME IN FORSUB 4F13764 04120 -0 32000 0 01452 ANA MASK2 EXTRACT TYPE NUMBER 4F13765 04121 -0 53400 4 01122 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F13766 04122 -3 00000 4 04126 TXL LA0000+22,C,0 NO 4F13767 04123 0 34000 0 05301 CAS FSTYPE YES - UPDATE FS TYPE 4F13768 04124 0 62100 0 05301 STA FSTYPE 4F13769 D 04125 3 00000 0 00000 TXH 0,0 4F13770 04126 0 76700 0 00007 ALS 7 4F13771 04127 -0 50100 0 01464 ORA FSIND 4F13772 04130 0 60200 0 05302 SLW FSBITS 4F13773 04131 -0 53400 1 01117 LXD 3LBAR,A LOAD LA COUNTERS 4F13774 04132 -0 53400 2 01360 LXD NBAR,B 4F13775 04133 -0 53400 4 05300 LXD ABAR,C 4F13776 04134 -3 00000 1 04160 TXL LA0003,A,0 4F13777 04135 3 75520 1 04137 TXH LA0001,A,-1200 4F13778 04136 0 07400 4 03400 TSX DIAG,4 ERROR..LAMBDA TABLE EXCEEDED. 4F13779 04137 3 77323 2 04141 LA0001 TXH LA0002,B,-301 4F13780 04140 0 07400 4 03400 TSX DIAG,4 ERROR.,BETA TABLE EXCEEDED 4F13781 04141 -3 00000 4 04160 LA0002 TXL LA0003,C,0 4F13782 04142 3 77565 4 04160 TXH LA0003,C,-139 4F13783 04143 0 07400 4 03400 TSX DIAG,4 ERROR..ALPHA TABLE EXCEEDED 4F13784 04144 -0 53400 4 01122 LXD ARGCTR,C VARIABLE OR ( 4F13785 04145 -3 00000 4 04115 TXL LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0 4F13786 04146 -0 63400 4 04153 SXD LA0000+43,C FUNCTION STATEMENT 4F13787 04147 0 34000 1 05215 CAS ARGREG,A SEARCH FREE VARIABLE TABLE 4F13788 04150 1 77777 1 04153 TXI LA0000+43,A,-1 4F13789 04151 0 02000 0 04155 TRA MS1018 4F13790 04152 1 77777 1 04153 TXI LA0000+43,A,-1 4F13791 04153 3 00000 1 04147 TXH LA0000+39,A,0 4F13792 04154 0 02000 0 04115 TRA LA0000+13 NOT PRESENT - GO SET FSBITS TO 0 4F13793 04155 -0 75400 1 00000 MS1018 PXD 0,A PRESENT - STORE TYPE IN FSBITS 4F13794 04156 0 77100 0 00013 ARS 11 4F13795 04157 0 02000 0 04127 TRA LA0000+23 4F13796 04160 0 50000 0 03601 LA0003 CLA MS9002 4F13797 04161 0 62100 0 04366 STA LA4320 4F13798 04162 -0 75400 0 00000 PXD 0,0 4F13799 04163 0 56000 0 01130 LDQ E+2 4F13800 04164 -0 60000 1 05533 STQ LAMBDA+11,A 4F13601 04165 -0 60000 1 05530 STQ LAMBDA+8,A 4F13802 04166 -0 60000 1 05525 STQ LAMBDA+5,A 4F13803 04167 -0 76300 0 00006 LGL 6 4F13804 04170 0 60100 0 01331 STO FIRSTC 4F13805 04171 0 40200 0 01375 SUB OPEN 4F13606 04172 0 10000 0 04201 TZE LA003 4F13807 04173 0 50000 0 03500 CLA MS4007 4F13808 04174 -0 76000 0 00142 SLT 2 4F13809 04175 0 02000 0 04200 TRA LA002 4F13810 04176 0 76000 0 00142 SLN 2 4F13811 04177 0 50000 0 04227 CLA FINI03 4F13812 04200 0 62100 0 04366 LA002 STA LA4320 4F13813 04201 0 50000 0 01126 LA003 CLA E 4F13814 04202 0 60100 1 05531 STO LAMBDA+9,A 4F13815 04203 0 60100 1 05526 STO LAMBDA+6,A 4F13816 04204 0 60100 1 05523 STO LAMBDA+3,A 4F13817 04205 -0 50000 0 01522 CAL ADSPOP 4F13818 04206 0 60200 1 05535 SLW LAMBDA+13,A 4F13819 04207 0 60200 1 05532 SLW LAMBDA+10,A 4F13820 04210 0 60200 1 05527 SLW LAMBDA+7,A 4F13821 04211 -0 75400 0 00000 PXD ,0 4F13822 04212 0 56000 0 01127 LDQ E+1 4F13823 04213 -0 60000 1 05521 STQ LAMBDA+1,A 4F13824 04214 -0 76300 0 00006 LGL 6 4F13825 04215 0 34000 0 01405 CAS STAR 4F13826 04216 0 02000 0 04262 TRA LA0015 / SIGN 4F13827 04217 0 02000 0 04252 TRA LA0010 , OR ,, SIGN 4F13828 04220 -0 76000 0 00142 SLT 2 + OR - SIGN 4F13829 04221 0 02000 0 04236 TRA LA0044 4F13830 04222 1 77775 2 04223 TXI MS1033,B,-3 -N TO -(N+3) 4F13831 04223 -0 75400 2 00000 MS1033 PXD ,B 4F13832 04224 0 77100 0 00022 ARS 18 4F13833 04225 0 60100 1 05536 STO LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2 4F13834 04226 1 00001 2 04227 TXI FINI03,B,1 -(N+3) TO - (N+2) 4F13835 04227 -0 75400 2 04432 FINI03 PXD CM4300,B 4F13836 04230 0 77100 0 00022 ARS 18 4F13837 04231 -0 76000 0 00003 SSM 4F13838 04232 0 60100 1 05534 STO LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4) 4F13839 04233 -0 76000 0 00141 LA0041 SLT 1 4F13840 04234 1 00001 2 04330 TXI L43130,B,1 UNARY... -(N+2) TO -(N+1) 4F13841 04235 1 00001 2 04272 TXI L13130,B,1 BINARY... -(N+2) TO - (N+1) 4F13842 04236 0 50000 0 01331 LA0044 CLA FIRSTC 4F13843 04237 0 34000 0 01375 CAS OPEN EXAMINE SYMBOL 4F13844 04240 0 02000 0 04242 TRA LA0050 4F13845 04241 1 77775 2 04245 TXI LA0058,B,-3 -N TO -(N+3) 4F13846 04242 -0 76000 0 00141 LA0050 SLT 1 4F13847 04243 1 77777 2 04334 TXI LA4000,B,-1 UNARY... -NTO -(N+1) 4F13848 04244 1 77777 2 04276 TXI LA1000,B,-1 BINARY... -N TO -(N+1) 4F13849 04245 -0 75400 2 00000 LA0058 PXD ,B 4F13850 04246 0 77100 0 00022 ARS 18 4F13851 04247 0 60100 1 05533 STO LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2 4F13852 04250 0 40000 0 01407 ADD L(1) FORM -(N+2) IN ADD (ACC) 4F13853 04251 1 00001 2 04233 TXI LA0041,2,1 4F13854 04252 0 16200 0 04262 LA0010 TQP LA0015 GO TO * ROUTINE 4F13855 04253 -0 76000 0 00142 SLT 2 ** 4F13856 04254 0 02000 0 04256 TRA LA0072 4F13857 04255 1 77777 2 04311 TXI L23000,B,-1 -N TO -(N+1) 4F13858 04256 0 50000 0 01331 LA0072 CLA FIRSTC 4F13859 04257 0 40200 0 01375 SUB OPEN 4F13860 04260 -0 10000 0 04324 TNZ LA2000 4F13861 04261 1 77777 2 04304 TXI L22000,B,-1 -N TO -(N+1) 4F13862 04262 -0 76000 0 00142 LA0015 SLT 2 * OR / 4F13863 04263 0 02000 0 04265 TRA LA0021 4F13864 04264 1 77776 2 04374 TXI L33000,B,-2 -N TO -(N+2) 4F13865 04265 0 50000 0 01331 LA0021 CLA FIRSTC 4F13866 04266 0 34000 0 01375 CAS OPEN 4F13867 04267 1 77777 2 04407 TXI LA3000,B,-1 4F13868 04270 1 77776 2 04367 TXI L32000,B,-2 -N TO -N(+2) 4F13869 04271 1 77777 2 04407 TXI LA3000,B,-1 4F13870 04272 0 60200 4 05310 L13130 SLW ALPHA+3,C STO -(N+2) IN ALPHA+A+3 4F13871 04273 0 50200 0 01406 CLS L(0) 4F13872 04274 0 60100 1 05531 STO LAMBDA+9,A STO -0 IN LAMBDA +3(L+3) 4F13873 04275 0 76000 0 00141 SLN 1 4F13874 04276 0 50200 0 05277 LA1000 CLS CBAR 4F13875 04277 0 77100 0 00022 ARS 18 4F13876 04300 0 60200 4 05305 SLW ALPHA,C STO -C IN ALPHA+A 4F13877 04301 1 77775 4 04302 TXI LA1040,C,-3 -A TO - (A+3) 4F13878 04302 -0 63400 4 05300 LA1040 SXD ABAR,C 4F13879 04303 0 02000 0 04335 TRA LA4010 4F13880 04304 -0 75400 2 00000 L22000 PXD ,B 4F13881 04305 0 77100 0 00022 ARS 18 4F13882 04306 0 60100 1 05525 STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13883 04307 0 40000 0 01407 ADD L(1) 4F13884 04310 1 00001 2 04320 TXI L23130,B,1 -(N+1) TO -N 4F13885 04311 -0 75400 2 00000 L23000 PXD ,B 4F13886 04312 0 77100 0 00022 ARS 18 4F13887 04313 0 60100 1 05530 STO LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2 4F13888 04314 0 40000 0 01407 ADD L(1) 4F13889 04315 -0 76000 0 00003 SSM 4F13890 04316 1 00001 2 04317 TXI L23090,B,1 -(N+1) TO -N 4F13891 04317 0 60100 1 05526 L23090 STO LAMBDA+6,A STO -N IN LAMBDA+3(L+2) 4F13892 04320 0 60200 4 05305 L23130 SLW ALPHA,C STO -N IN ALPHA +A 4F13893 04321 0 50200 0 01406 CLS L(0) 4F13894 04322 0 60100 1 05523 STO LAMBDA+3,A STO -0 IN LAMBDA+3(L+11 4F13895 04323 0 76000 0 00141 SLN 1 4F13896 04324 0 50200 4 05304 LA2000 CLS ALPHA-1,C 4F13897 04325 0 60100 1 05520 STO LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L 4F13898 04326 0 50000 0 01360 CLA NBAR 4F13899 04327 1 00006 1 04355 TXI LA4180,A,6 4F13900 04330 0 60200 4 05305 L43130 SLW ALPHA,C STO -(N+2) IN ALPHA+A 4F13901 04331 0 50200 0 01406 CLS L(0) 4F13902 04332 0 60100 1 05531 STO LAMBDA+9,A STO -0 IN LAMBDA+3(L+3) 4F13903 04333 0 76000 0 00141 SLN 1 4F13904 04334 0 50200 4 05302 LA4000 CLS ALPHA-3,C 4F13905 04335 0 60100 1 05520 LA4010 STO LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L 4F13906 04336 0 50200 0 01360 CLS NBAR 4F13907 04337 0 77100 0 00022 ARS 18 4F13908 04340 0 60200 4 05303 SLW ALPHA-2,C STO-N IN ALPHA+A-2 4F13909 04341 0 60200 1 05522 SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13910 04342 0 60100 1 05523 STO LAMBDA+3,A STO -N IN LAMBOA+3(L+1) 4F13911 04343 -0 75400 2 00000 PXD ,B 4F13912 04344 0 77100 0 00022 ARS 18 4F13913 04345 0 60100 1 05525 STO LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 4F13914 04346 0 60100 4 05304 STO ALPHA-1,C STO-(N+1) IN ALPHA+A-1 4F13915 04347 -0 76000 0 00003 SSM 4F13916 04350 0 60100 1 05526 STO LAMBDA+6,A STO -(N+1) IN LAMBDA+3(L+2) 4F13917 04351 1 77777 2 04352 TXI LA4150,B,-1 -(N+1) TO -(N+2) 4F13918 04352 -0 50000 0 01524 LA4150 CAL ADSTAR 4F13919 04353 0 60200 1 05524 SLW LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1 4F13920 04354 -0 75400 2 00000 LA4170 PXD ,B 4F13921 04355 0 77100 0 00022 LA4180 ARS 18 ' 4F13922 04356 0 60100 1 05530 STO LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2 4F13923 04357 -0 60200 1 05531 ORS LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3) 4F13924 04360 -0 50000 0 01525 CAL STRSTR 4F13925 04361 0 60200 1 05527 SLW LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1 4F13926 04362 -0 50000 0 01522 CAL ADSPOP 4F13927 04363 -0 50100 0 05302 ORA FSBITS 4F13928 04364 -0 50100 0 05303 ORA FNBITS 4F13929 04365 0 60200 1 05532 SLW LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1 4F13930 04366 1 77767 1 00000 LA4320 TXI **,A,-9 4F13931 04367 -0 75400 2 00000 L32000 PXD ,B 4F13932 04370 0 77100 0 00022 ARS 18 4F13933 04371 0 60100 1 05530 STO LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2 4F13934 04372 0 40000 0 01407 ADD L(1) 4F13935 04373 1 00001 2 04403 TXI L33130,B,1 -(N+2) TO -(N+1) 4F13936 04374 -0 75400 2 00000 L33000 PXD ,B 4F13937 04375 0 77100 0 00022 ARS 18 4F13938 04376 0 60100 1 05533 STO LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2 4F13939 04377 0 40000 0 01407 ADD L(1) 4F13940 04400 -0 76000 0 00003 SSM 4F13941 04401 1 00001 2 04402 TXI L33090,B,1 -(N+2) TO -(N+1) 4F13942 04402 0 60100 1 05531 L33090 STO LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) 4F13943 04403 0 60200 4 05305 L33130 SLW ALPHA,C STO -(N+1) IN ALPHA+A 4F13944 04404 0 50200 0 01406 CLS L(0) 4F13945 04405 0 60100 1 05526 STO LAMBDA+6,A 4F13946 04406 0 76000 0 00141 SLN 1 4F13947 04407 0 50200 4 05303 LA3000 CLS ALPHA-2,C 4F13948 04410 0 60100 1 05520 STO LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L 4F13949 04411 0 50200 0 01360 CLS NBAR 4F13950 04412 0 77100 0 00022 ARS 18 4F13951 04413 0 60200 4 05304 SLW ALPHA-1,C STO -N IN ALPHA+A-1 4F13952 04414 0 60200 1 05522 SLW LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 4F13953 04415 0 60100 1 05523 STO LAMBDA+3,A STO -N IN LAMBDA+3(L+1) 4F13954 04416 1 00003 1 04354 TXI LA4170,A,3 4F13955 04417 1 77775 1 04420 CM4100 TXI CM4101,A,-3 LA COUNTER MODIFICATION ROUTINES 4F13956 04420 -0 63400 1 01117 CM4101 SXD 3LBAR,A 4F13957 04421 -0 63400 2 05277 CM4102 SXD CBAR,B 4F13958 04422 1 77777 2 04423 TXI CM4104,B,-1 4F13959 04423 -0 63400 2 01360 CM4104 SXD NBAR,B 4F13960 U 04424 00000 0 03463 CM4105 *** MS010,0 4F13961 04425 -0 50000 0 01524 MS020 CAL ADSTAR 4F13962 04426 0 02000 0 03464 TRA MS030 4F13963 04427 1 77775 1 04430 CM4200 TXI CM4201,A,-3 4F13964 04430 -0 63400 1 01117 CM4201 SXD 3LBAR,A 4F13965 04431 1 77777 4 04435 TXI CM4303,C,-1 4F13966 04432 1 77772 1 04433 CM4300 TXI CM4301,A,-6 4F13967 04433 -0 63400 1 01117 CM4301 SXD 3LBAR,A 4F13968 04434 1 77777 4 04435 TXI CM4303,C,-1 4F13969 04435 -0 63400 4 05300 CM4303 SXD ABAR,C 4F13970 04436 1 77777 2 04421 TXI CM4102,B,-1 4F13971 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972 4F13973 CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE 4F13974 04437 -0 63400 1 04062 C3390 SXD C3357,1 SAVE CALLING IR 4F13975 04440 0 60200 0 01112 SLW 1G MOVE WORD TO BE ENTERED TO 1G 4F13976 04441 0 07400 1 03321 TSX TET00,1 GO TO ENTER WORD IN HOLARG TABLE 4F13977 04442 0 00000 0 00015 13 4F13978 04443 0 50000 0 01352 CLA HOLCNT 4F13979 04444 0 40000 0 01407 ADD L(1) UPDATE HOLCNT 4F13980 04445 0 60100 0 01352 STO HOLCNT 4F13981 04446 -0 53400 1 04062 LXD C3357,1 RELOAD CALLING IR 4F13982 04447 0 02000 1 00001 TRA 1,1 RETURN TO CALLER+1 4F13983 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13984 4F13985 PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN 4F13986 SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. 4F13987 04450 -0 63400 4 04503 SS000X SXD SSIR4,4 SAVE CALLING TAG. 4F13988 04451 0 07400 4 02614 TSX SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 4F13989 04452 0 07400 4 02437 TSX RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE.4F13990 04453 -0 50000 0 01351 CAL GTAG 4F13991 04454 -0 32000 0 01527 ANA MASK1 4F13992 04455 0 60200 0 01141 SLW E+11 4F13993 04456 0 07400 4 00450 TSX SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. 4F13994 04457 0 76700 0 00017 ALS 15 POSITION SIGMA TAG. 4F13995 04460 -0 60200 0 01126 ORS E ADD SIGMA TAG TO I-TAU TAGS IN E. 4F13996 04461 -0 53400 4 04503 LXD SSIR4,4 RELOAD CALLING TAG. 4F13997 04462 0 02000 4 00001 TRA 1,4 RETURN TO CALLER +1. 4F13998 4F13999 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14000 4F14001 ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG. 4F14002 ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION 4F14003 ARITHMETIC. 4F14004 ROYCNV=ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS, 4F14005 04463 0 60100 0 01103 ROYCNV STO N SAVE DECIMAL DIGIT IN N. 4F14006 04464 -0 63400 4 04467 SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14007 04465 0 60000 0 01100 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14008 04466 0 50000 0 04505 CLA CM1 PICK UP SWITCH CONTROL. 4F14009 04467 1 00000 0 04474 EXIT TXI IN2,0,** AND GO SET SWITCH. 4F14010 DECPNT=ENTRY POINT FOR FLOATING POINT FRACTIONS. 4F14011 04470 0 60000 0 01103 DECPNT STZ N CLEAR N (NO INTEGER). 4F14012 04471 -0 63400 4 04467 SXD EXIT,4 SAVE C(XR4) FOR RETURN. 4F14013 04472 0 60000 0 01100 STZ DOE CLEAR DOE (IMPLICIT EXPONENT). 4F14014 04473 -0 50000 0 04505 NC7 CAL CM1 PICK UP SWITCH CONTROL. 4F14015 04474 0 63000 0 04515 IN2 STP CM2 SET SWITCHES CM2, AND 4F14016 04475 0 63000 0 04527 STP CM3 CM3. 4F14017 04476 0 14000 0 04477 TOV NC5 TURN OFF OV TRIGGER. 4F14018 04477 0 07400 4 01707 NC5 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14019 04500 0 60200 0 01124 SLW CHSAVE SAVE IT FOR STATE B, AND THEN 4F14020 04501 0 34000 0 01423 CAS L(H) COMPARE IT WITH H. 4F14021 D 04502 1 00000 0 04504 TXI NC1,0 IF H, GO TO HEXIT, 4F14022 D 04503 1 00000 0 04650 SSIR4 TXI HEXIT,0 IF NOT H, CONTINUE 4F14023 04504 0 34000 0 01373 NC1 CAS TEN AND COMPARE WITH TEN. 4F14024 D 04505 -3 00000 0 04521 CM1 TXL NC2,0 CHAR EXCEEDS IO, SO IS NON-NUMERIC. 4F14025 04506 -0 75400 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14026 04507 0 60100 0 01102 STO H CHARACTER IS NUMERIC SO HOLD IT. 4F14027 04510 0 50000 0 01103 CLA N MULTIPLY THE PREVIOUS 4F14028 04511 0 76700 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) 4F14029 04512 0 40000 0 01103 ADD N BY 10, 4F14030 04513 0 76700 0 00001 ALS 1 AND ADD IN 4F14031 04514 0 40000 0 01102 ADD H THE CURRENT DIGIT. 4F14032 D 04515 3 00000 0 04536 CM2 TXH NC3,0 SWITCH (NO TRANSFER IF INTEGER). 4F14033 04516 0 14000 0 04544 TOV NC4 TEST OVERFLOW, AND 4F14034 04517 0 60100 0 01103 STO N IF NONE, SAVE NEW PARTIAL RESULT. 4F14035 D 04520 1 00000 0 04477 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14036 04521 0 34000 0 01403 NC2 CAS POINT COMPARE NON-NUMERIC WITH A POINT. 4F14037 D 04522 1 00000 0 04527 TXI CM3,0 IF GREATER THAN 27, GO OUT. 4F14038 D 04523 1 00000 0 04473 TXI NC7,0 IF POINT, GO BACK AND SET SWITCH. 4F14039 04524 0 34000 0 04657 CAS L(E) IF LESS THAN 27, COMPARE WITH E. 4F14040 D 04525 1 00000 0 04527 TXI CM3,0 IF GREATER THAN 21, GO OUT. 4F14041 D 04526 1 00000 0 04546 TXI EC1,0 IF E, GO TO EXPONENT ROUTINE. 4F14042 D 04527 3 00000 0 04605 CM3 TXH FN4,0 SWITCH (NO TRANSFER IF INTEGER). 4F14043 04530 0 50000 0 01103 CLA N PICK UP CONVERTED CONSTANT, AND 4F14044 04531 0 76700 0 00022 MS9506 ALS 18 STORE IN THE 4F14045 04532 0 60100 0 01347 STO G DECREMENT OF G, AND 4F14046 04533 0 07400 4 00417 TSX FXCNIX,4 * GO MAKE FIXCON ENTRY. 4F14047 04534 -0 50100 0 01517 ORA FIXVAR CREATE INTERNAL FXD-PT VARIABLE,AND 4F14048 D 04535 1 00000 0 04636 TXI EXITR,0 GO TAKE EXITR. 4F14049 04536 0 14000 0 04543 NC3 TOV NC8 IF THERE WAS NO OVERFLOW, 4F14050 04537 0 60100 0 01103 STO N SAVE PARTIAL RESULT, AND 4F14051 04540 0 50200 0 01407 CLS L(1) SUBTRACT 1 FROM DOE 4F14052 04541 0 40000 0 01100 NC9 ADD DOE TO ADJUST EXPONENT 4F14053 04542 0 60100 0 01100 STO DOE IN FINAL RESULT. 4F14054 D 04543 1 00000 0 04477 NC8 TXI NC5,0 THEN GO PICK UP NEXT CHARACTER. 4F14055 04544 0 50000 0 01407 NC4 CLA L(1) ADD 1 TO DOE , 4F14056 D 04545 1 00000 0 04541 TXI NC9,0 IF THERE WAS INTEGER OVERFLOW. 4F14057 04546 0 07400 4 01707 EC1 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14058 04547 0 60200 0 01124 SLW CHSAVE SAVE IT FOR STATE B, AND 4F14059 04550 0 60000 0 01101 STZ EKE CLEAR EKE (EXPLICIT EXPONENT). 4F14060 04551 0 34000 0 01401 CAS 11Z COMPARE CHARACTER WITH A DASH. 4F14061 D 04552 1 00000 0 04602 TXI FN5,0 IF GREATER THAN 32, GO OUT. 4F14062 D 04553 1 00000 0 04561 TXI EC3,0 IF A DASH, SET EKE MINUS. 4F14063 04554 0 34000 0 01404 CAS 12Z IF LESS THAN 32, COMPARE WITH PLUS. 4F14064 D 04555 1 00000 0 04602 TXI FN5,0 IF GREATER THAN 16, GO OUT. 4F14065 D 04556 1 00000 0 04566 TXI EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. 4F14066 04557 0 34000 0 01420 CAS MINUS IF LESS THAN 16,COMPARE WITH MINUS. 4F14067 D 04560 1 00000 0 04602 TXI FN5,0 IF GREATER THAN 12, GO OUT. 4F14068 04561 0 50200 0 01101 EC3 CLS EKE IF MINUS, SET EKE TO -0. 4F14069 04562 0 34000 0 01373 CAS TEN COMPARE WITH TEN. 4F14070 D 04563 1 00000 0 04602 TXI FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH. 4F14071 04564 -0 75400 0 00000 EC4 PXD ,0 CLEAR ACC, 4F14072 04565 0 60100 0 01101 EC5 STO EKE SAVE PARTIAL RESULT(OR 0)IN EKE. 4F14073 04566 0 07400 4 01707 EC6 TSX C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. 4F14074 04567 0 60200 0 01124 SLW CHSAVE SAVE IT FOR STATE B, 4F14075 04570 0 34000 0 01373 CAS TEN AND COMPARE WITH TEN. 4F14076 D 04571 1 00000 0 04602 TXI FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. 4F14077 04572 -0 75400 0 00000 PXD ,0 CLEAR THE AC (MACHINE ERROR). 4F14078 04573 0 60100 0 01102 STO H CHARACTER IS NUMERIC, SO HOLD IT. 4F14079 04574 0 50000 0 01101 CLA EKE MULTIPLY THE PREVIOUS 4F14080 04575 0 76700 0 00002 ALS 2 PARTIAL RESULT (OR ZERO) 4F14081 04576 0 40000 0 01101 ADD EKE BY 10, 4F14082 04577 0 76700 0 00001 ALS 1 AND ADD IN 4F14083 04600 0 36100 0 01102 ACL H THE CURRENT DIGIT. 4F14084 D 04601 1 00000 0 04565 TXI EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085 04602 0 50000 0 01101 FN5 CLA EKE COMBINE EXPLICIT EXPONENT 4F14086 04603 0 40000 0 01100 ADD DOE WITH IMPLICIT EXPONENT, 4F14087 04604 0 60100 0 01100 STO DOE AND SAVE IN DOE. 4F14088 04605 0 50000 0 01103 FN4 CLA N IF N CONTAINS ZERO, TAKE 4F14089 04606 0 10000 0 04633 TZE MS9500 FLO PT CONSTANT RETURN. 4F14090 04607 0 62100 0 04652 STA K1 PUT INTEGER INTO FLO PT WORD, 4F14091 04610 0 77100 0 00017 ARS 15 ADJUST, AND 4F14092 04611 0 10000 0 04613 TZE FN1 IF MORE THAN 15 BITS IN LENGTH 4F14093 04612 -0 50100 0 04653 ORA K2 AFFIX CORRECT EXPONENT. 4F14094 04613 0 30000 0 04652 FN1 FAD K1 THEN FLOATING ADD THE RESULT 4F14095 04614 -0 77300 0 00010 RQL 8 OF INTEGER CONVERSION, AND 4F14096 04615 0 76000 0 00010 RND ROUND --TO OBTAIN 4F14097 04616 -0 50100 0 04654 ORA K3 NORMALIZED RESULT. 4F14098 04617 0 53400 1 01100 LXA DOE,1 EXAMINE THE C(DOE), AND 4F14099 04620 -3 00000 1 04633 TXL MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. 4F14100 04621 -3 00062 1 04623 TXL FN2,1,50 IF GREATER THAN 50, THEN 4F14101 D 04622 1 00000 0 04647 TXI CER,0 ERROR. -GO TO DIAGNOSTIC 4F14102 04623 0 56000 0 01100 FN2 LDQ DOE DETERMINE WHETHER INTEGER WAS 4F14103 04624 0 16200 0 04641 TQP FN3 TO THE RIGHT OR TO THE LEFT OF DP, 4F14104 04625 0 24100 1 04740 FDP TAB,1 IF TO THE RIGHT, DIVIDE BY A 4F14105 04626 -0 60000 0 01103 STQ N SUITABLE CONSTANT 4F14106 04627 0 50000 0 01103 CLA N TO ADJUST RESULT 4F14107 04630 0 36100 0 04655 ACL K4 AND TEST FOR OUT OF RANGE. 4F14108 04631 -0 76000 0 00001 PBT IF P=I, SKIP TO ARITH RETURN. 4F14109 D 04632 1 00000 0 04647 TXI CER,0 ERROR. --GO TO DIAGNOSTIC 4F14110 04633 0 60100 0 01347 MS9500 STO G STORE IN G, AND 4F14111 04634 0 07400 4 00424 TSX FLCNIX,4 * GO MAKE FLOCON ENTRY. 4F14112 04635 -0 50100 0 01513 ORA FLOVAR CREATE INTERNAL FLO-PT VARIABLE, 4F14113 04636 0 60200 0 01130 EXITR SLW E+2 SAVE VARIABLE IN E+2, 4F14114 04637 -0 53400 4 04467 LXD EXIT,4 RESTORE THE C(XR4), AND 4F14115 04640 0 02000 4 00002 TRA 2,4 * RETURN TO MAIN ROUTINE. 4F14116 04641 0 60100 0 01103 FN3 STO N IF INTEGER WAS SITUATED 4F14117 04642 0 56000 0 01103 LDQ N TO THE LEFT OF THE DECIMAL POINT, 4F14118 04643 0 26000 1 04740 FMP TAB,1 MULTIPLY BY A SUITABLE 4F14119 04644 0 36100 0 04656 ACL K5 CONSTANT TO ADJUST AND TEST RANGE. 4F14120 04645 -0 76000 0 00001 PBT IF P=I, SKIP TO ERROR, 4F14121 D 04646 1 00000 0 04633 TXI MS9500,0 RETURN TO ARITHMETIC ROUTINE, 4F14122 04647 0 07400 4 03400 CER TSX DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC. 4F14123 04650 -0 53400 4 04467 HEXIT LXD EXIT,4 RESTORE THE C(XR4), AND 4F14124 04651 0 02000 4 00001 TRA 1,4 * RETURN TO MAIN ROUTINE. 4F14125 4F14126 04652 +233000000000 K1 OCT 233000000000 CONSTANT USED BY ROYCNV. 4F14127 04653 +252000000000 K2 OCT 252000000000 CONSTANT USED BY ROYCNV. 4F14128 04654 +000400000000 K3 OCT 400000000 CONSTANT USED BY ROYCNV. 4F14129 04655 +335000000000 K4 OCT 335000000000 CONSTANT USED BY ROYCNV. 4F14130 04656 +043000000000 K5 OCT 43000000000 CONSTANT USED BY ROYCNV. 4F14131 04657 000000000025 L(E) BCD 100000E CONSTANT USED BY ROYCNV. 4F14132 4F14133 04660 +375536246150 OCT 375536246150 48-TABLE USED BY ROYCNV. 4F14134 04661 +372430204754 OCT 372430204754 47-TABLE USED BY ROYCNV. 4F14135 04662 +366700324573 OCT 366700324573 46-TABLE USED BY ROYCNV. 4F14136 04663 +363546566774 OCT 363546566774 45-TABLE USED BY ROYCNV. 4F14137 04664 +360436770626 OCT 360436770626 44-TABLE USED BY ROYCNV. 4F14138 04665 +354713132675 OCT 354713132675 43-TABLE USED BY ROYCNV. 4F14139 04666 +351557257061 OCT 351557257061 42-TABLE USED BY ROYCNV. 4F14140 04667 +346445677215 OCT 346445677215 41-TABLE USED BY ROYCNV. 4F14141 04670 +342726145174 OCT 342726145174 40-TABLE USED BY ROYCNV. 4F14142 04671 +337570120775 OCT 337570120775 39-TABLE USED BY ROYCNV. 4F14143 04672 +334454732312 OCT 334454732312 38-TABLE USED BY ROYCNV. 4F14144 04673 +330741367020 OCT 330741367020 37-TABLE USED BY ROYCNV, 4F14145 04674 +325601137163 OCT 325601137163 36-TABLE USED BY ROYCNV. 4F14146 04675 +322464114134 OCT 322464114134 35-TABLE USED BY ROYCNV. 4F14147 04676 +316755023372 OCT 316755023372 34-TABLE USED BY ROYCNV. 4F14148 04677 +313612334310 OCT 313612334310 33-TABLE USED BY ROYCNV. 4F14149 04700 +310473426555 OCT 310473426555 32-TABLE USED BY ROYCNV. 4F14150 04701 +304770675742 OCT 304770675742 31-TABLE USED BY ROYCNV. 4F14151 04702 +301623713116 OCT 301623713116 30-TABLE USED BY ROYCNV. 4F14152 04703 +276503074076 OCT 276503074076 29-TABLE USED BY ROYCNV. 4F14153 04704 +273402374713 OCT 273402374713 28-TABLE USED BY ROYCNV. 4F14154 04705 +267635456171 OCT 267635456171 27-TABLE USED BY ROYCNV. 4F14155 04706 +264512676456 OCT 264512676456 26-TABLE USED BY ROYCNV. 4F14156 04707 +261410545213 OCT 261410545213 25-TABLE USED BY ROYCNV. 4F14157 04710 +255647410337 OCT 255647410337 24-TABLE USED BY ROYCNV. 4F14158 04711 +252522640262 OCT 252522640262 23-TABLE USED BY ROYCNV. 4F14159 04712 +247417031702 OCT 247417031702 22-TABLE USED BY ROYCNV. 4F14160 04713 +243661534466 OCT 243661534466 21-TABLE USED BY ROYCNV. 4F14161 04714 +240532743536 OCT 240532743536 20-TABLE USED BY ROYCNV. 4F14162 04715 +235425434430 OCT 235425434430 19-TABLE USED BY ROYCNV. 4F14163 04716 +231674055530 OCT 231674055530 18-TABLE USED BY ROYCNV. 4F14164 04717 +226543212741 OCT 226543212741 17-TABLE USED BY ROYCNV. 4F14165 04720 +223434157116 OCT 223434157116 16-TABLE USED BY ROYCNV. 4F14166 04721 +217706576512 OCT 217706576512 15-TABLE USED BY ROYCNV. 4F14167 04722 +214553630410 OCT 214553630410 14-TABLE USED BY ROYCNV. 4F14168 04723 +211443023471 OCT 211443023471 13-TABLE USED BY ROYCNV. 4F14169 04724 +205721522451 OCT 205721522451 12-TABLE USED BY ROYCNV. 4F14170 04725 +202564416672 OCT 202564416672 11-TABLE USED BY ROYCNV. 4F14171 04726 +177452013710 OCT 177452013710 10-TABLE USED BY ROYCNV. 4F14172 04727 +173734654500 OCT 173734654500 09-TABLE USED BY ROYCNV. 4F14173 04730 +170575360400 OCT 170575360400 08-TABLE USED BY ROYCNV. 4F14174 04731 +165461132000 OCT 165461132000 07-TABLE USED BY ROYCNV. 4F14175 04732 +161750220000 OCT 161750220000 06-TABLE USED BY ROYCNV. 4F14176 04733 +156606500000 OCT 156606500000 05-TABLE USED BY ROYCNV. 4F14177 04734 +153470400000 OCT 153470400000 04-TABLE USED BY ROYCNV. 4F14178 04735 +147764000000 OCT 147764000000 03-TABLE USED BY ROYCNV. 4F14179 04736 +144620000000 OCT 144620000000 02-TABLE USED BY ROYCNV. 4F14180 04737 +141500000000 OCT 141500000000 01-TABLE USED BY ROYCNV. 4F14181 04740 +136400000000 TAB OCT 136400000000 00-TABLE USED BY ROYCNV. 4F14182 END OF PROGRAM ROYCNV. 4F14183 ****************************** *4F14184 4F14185 04741 0 00001 0 01230 SIG1ST PZE SIGMA1+2,,1 4F14186 04742 ENDBDR BSS 0 4F141865 4F14187 05215 ENDB ORG 2701 4F14188 05215 ARGREG BSS 50 4F14189 05277 CBAR BSS 1 4F14190 05300 ABAR BSS 1 4F14191 05301 FSTYPE BSS 1 4F14192 05302 FSBITS BSS 1 4F14193 05303 FNBITS BSS 1 4F14194 05304 FNCTR BSS 1 4F14195 05305 ALPHA BSS 139 4F14196 05520 LAMBDA BSS 1200 4F14197 END OF ARITHMETIC / STATE B. 4F14198 ****************************** *4F14199 4F14200 ARITHMETIC / STATE C= 4F14201 704 FORTRAN MASTER RECORD CARD / STATE C = F0170000. 4F14202 00000 ORG 0 4F142021 00000 0 00504 0 03440 PZE ORGC,,DMWR03 4F142022 00001 0 00000 0 05043 PZE ENDC-1 4F142023 4F14203 STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE, 4F14204 4F14205 03440 ORGC ORG 1824 4F14206 03440 0 56000 0 01406 R00000 LDQ L(0) CLEAR MQ 4F14207 03441 -0 53400 1 01360 LXD NBAR,A LDXA WITH -N 4F14208 03442 -0 63400 1 03451 SXD R00700,A 4F14209 03443 -0 63400 1 03527 SXD R05200,A 4F14210 03444 -0 63400 1 04101 SXD AS0800,A 4F14211 03445 -0 63400 1 04126 SXD AS2900,A 4F14212 03446 0 53400 7 01406 LXA L(0),7 CLEAR XA,XB,XC, 4F14213 03447 -0 60000 2 05044 R00500 STQ BETA,B 4F14214 03450 1 77777 2 03451 TXI R00700,B,-1 4F14215 03451 3 00000 2 03447 R00700 TXH R00500,B,0 4F14216 03452 0 50000 0 01117 CLA 3LBAR 4F14217 03453 0 62200 0 03464 STD R01700 4F14218 03454 0 62200 0 03541 STD R06200 4F14219 03455 0 50000 1 05520 R01000 CLA LAMBDA,A ADD INTO GAMMA COUNTERS 4F14220 03456 0 73400 2 00000 PAX 0,B 4F14221 03457 0 50000 2 05044 CLA BETA,B 4F14222 03460 0 40000 0 01506 ADD BETAD1 (-3)*2**18+(-3) 4F14223 03461 0 62200 2 05044 STD BETA,B 4F14224 03462 0 62100 2 05044 STA BETA,B 4F14225 03463 1 77775 1 03464 TXI R01700,A,-3 4F14226 03464 3 00000 1 03455 R01700 TXH R01000,A,0 -3L IN XA AT END 4F14227 03465 3 77772 1 03516 R01800 TXH R04200,A,-6 EXIT FROM SINGLE ELEMENT REDUCTION 4F14228 03466 0 50000 1 05515 CLA LAMBDA-3,A 4F14229 03467 0 73400 2 00000 PAX 0,B 4F14230 03470 0 50000 2 05044 CLA BETA,B 4F14231 03471 0 40200 0 01506 SUB BETAD1 4F14232 03472 0 10000 0 03474 TZE R02600 4F14233 03473 1 00003 1 03465 TXI R01800,A,3 4F14234 03474 0 56000 1 05516 R02600 LDQ LAMBDA-2,A SINGLE ELEMENT 4F14235 03475 -0 76300 0 00006 LGL 6 EXAMINE OPERATION 4F14236 03476 0 40200 0 01401 SUB 11Z 4F14237 03477 -0 10000 0 03501 TNZ R03200 4F14238 03500 1 00003 1 03465 TXI R01800,A,3 4F14239 03501 -0 50000 0 01527 R03200 CAL MASK1 SINGLE ELEMENT, NON-UNARY OP 4F14240 03502 0 32000 1 05515 ANS LAMBDA-3,A EXTRACT TAGS AND STORE BACK 4F14241 03503 0 50000 1 05512 CLA LAMBDA-6,A 4F14242 03504 -0 50100 1 05515 ORA LAMBDA-3,A 4F14243 03505 0 60200 1 05512 SLW LAMBDA-6,A 4F14244 03506 -0 50000 1 05516 CAL LAMBDA-2,A EXTRACT FS BITS AND STORE BACK 4F14245 03507 -0 32000 0 01470 ANA MASK5 4F14246 03510 -0 60200 1 05513 ORS LAMBDA-5,A 4F14247 03511 -0 50000 1 05517 CAL LAMBDA-1,A STORE BACK SYMBOL 4F14248 03512 0 60200 1 05514 SLW LAMBDA-4,A 4F14249 03513 0 60000 3 05044 STZ BETA,3 REDUCE GAMMA COUNT TO 0 4F14250 03514 0 60000 1 05515 STZ LAMBDA-3,A CLEAR TAG WORD 4F14251 03515 1 00003 1 03465 TXI R01800,A,3 RESUME SCAN-BACK 4F14252 03516 0 60000 0 01347 R04200 STZ G 4F14253 03517 0 53400 7 01406 LXA L(0),7 CLEAR XA,XB,XC 4F14254 03520 0 50000 2 05044 R04500 CLA BETA,B SET ORIGINS OF SCRIPL TABLE 4F14255 03521 0 10000 0 03526 TZE R05100 4F14256 03522 0 56000 0 01347 LDQ G 4F14257 03523 -0 62000 2 05044 SLQ BETA,B 4F14258 03524 0 40000 0 01347 ADD G 4F14259 03525 0 62200 0 01347 STD G 4F14260 03526 1 77777 2 03527 R05100 TXI R05200,B,-1 4F14261 03527 3 00000 2 03520 R05200 TXH R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END 4F14262 03530 -0 50000 1 05520 R05300 CAL LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE 4F14263 03531 0 10000 0 03540 TZE R06100 4F14264 03532 0 60200 4 05520 SLW LAMBDA,C 4F14265 03533 0 50000 1 05521 CLA LAMBDA+1,A 4F14266 03534 0 60100 4 05521 STO LAMBDA+1,C 4F14267 03535 0 50000 1 05522 CLA LAMBDA+2,A 4F14268 03536 0 60100 4 05522 STO LAMBDA+2,C 4F14269 03537 1 77775 4 03540 TXI R06100,C,-3 4F14270 03540 1 77775 1 03541 R06100 TXI R06200,A,-3 4F14271 03541 3 00000 1 03530 R06200 TXH R05300,A,0 4F14272 03542 -0 63400 4 03563 SXD R07800,C -3P IN XC AT END 4F14273 03543 -0 63400 4 03707 SXD CS0760,C 4F14274 03544 0 53400 1 01406 LXA L(0),A 4F14275 03545 0 50000 1 05520 R06400 CLA LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE 4F14276 03546 0 73400 2 00000 PAX 0,B IN SCRIPL TABLE 4F14277 03547 0 50000 2 05044 CLA BETA,B 4F14278 03550 -0 73400 4 00000 PDX 0,C 4F14279 03551 0 50000 1 05520 CLA LAMBDA,A 4F14260 03552 0 60100 4 06650 STO SCRIPL,C 4F14281 03553 0 50000 1 05521 CLA LAMBDA+1,A 4F14282 03554 0 60100 4 06651 STO SCRIPL+1,C 4F14283 03555 0 50000 1 05522 CLA LAMBDA+2,A 4F14284 03556 0 60100 4 06652 STO SCRIPL+2,C 4F14265 03557 1 77775 4 03560 TXI R07500,C,-3 4F14286 03560 -0 75400 4 00000 R07500 PXD 0,C 4F14287 03561 0 62200 2 05044 STD BETA,B 4F14288 03562 1 77775 1 03563 TXI R07800,A,-3 4F14289 03563 3 00000 1 03545 R07800 TXH R06400,A,0 -3P IN XA AT END 4F14290 03564 0 56000 0 01406 CS0000 LDQ L(0) ELIMINATE COMMON SEGMENTS 4F14291 03565 -0 50000 1 06645 CS0010 CAL SCRIPL-3,A 4F14292 03566 0 10000 0 03575 TZE CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN 4F14293 03567 0 73400 2 00000 CS0030 PAX 0,B 4F14294 03570 -3 00000 2 03675 TXL CS0660,B,0 EXIT FROM CS ROUTINE 4F14295 03571 0 62100 0 03567 STA CS0030 4F14296 03572 0 50000 2 05044 CLA BETA,B 4F14297 03573 0 73400 4 00000 CS0060 PAX 0,C 4F14298 03574 -3 77772 4 03576 TXL CS0090,C,-6 AT LEAST TWO ELEMENTS 4F14299 03575 1 00003 1 03565 CS0080 TXI CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT 4F14300 03576 -0 63400 1 03651 CS0090 SXD CS0470,A SAVE XA 4F14301 03577 -0 63400 4 01357 SXD LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT 4F14302 03600 -3 00000 4 03603 CS0100 TXL CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT 4F14303 03601 1 00003 1 03602 TXI CS0120,A,3 4F14304 03602 1 00003 4 03600 CS0120 TXI CS0100,C,3 4F14305 03603 -0 50000 1 06645 CS0130 CAL SCRIPL-3,A 4F14306 03604 -0 10000 0 03606 TNZ CS0151 4F14307 03605 1 00003 1 03603 TXI CS0130,A,3 ERASED SEGMENT 4F14308 03606 0 73400 2 00000 CS0151 PAX 0,B 4F14309 03607 -3 00000 2 03670 TXL CS0610,B,0 GO ON TO NEXT SEGMENT 4F14310 03610 0 62100 0 03573 STA CS0060 4F14311 03611 0 50000 2 05044 CLA BETA,B 4F14312 03612 0 73400 4 00000 PAX 0,C 4F14313 03613 -0 75400 4 00000 PXD 0,C 4F14314 03614 0 40200 0 01357 SUB LENGTH 4F14315 03615 -0 10000 0 03600 TNZ CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH 4F14316 03616 -0 53400 2 03651 LXD CS0470,B SAME LENGTH SEGMENT 4F14317 03617 -0 63400 1 03667 SXD CS0600,A 4F14318 03620 -3 00000 4 03645 CS0250 TXL CS0430,C,0 MATCHING SEGMENTS 4F14319 03621 0 50000 2 06647 CLA SCRIPL-1,B 4F14320 03622 0 40200 1 06647 SUB SCRIPL-1,A 4F14321 03623 -0 10000 0 03600 TNZ CS0100 4F14322 03624 -0 50000 2 06645 CAL SCRIPL-3,B SYMBOLS MATCH 4F14323 03625 -0 32000 0 01527 ANA MASK1 4F14324 03626 0 60200 0 01347 SLW G 4F14325 03627 -0 50000 1 06645 CAL SCRIPL-3,A 4F14326 03630 -0 32000 0 01527 ANA MASK1 4F14327 03631 0 76000 0 00006 COM 4F14328 03632 0 36100 0 01347 ACL G 4F14329 03633 0 76000 0 00006 COM 4F14330 03634 -0 10000 0 03600 TNZ CS0100 4F14331 03635 0 50000 2 06646 CLA SCRIPL-2,B TAGS MATCH 4F14332 03636 0 77100 0 00006 ARS 6 4F14333 03637 0 76700 0 00006 ALS 6 4F14334 03640 0 40200 1 06646 SUB SCRIPL-2,A 4F14335 03641 -0 10000 0 03600 TNZ CS0100 4F14336 03642 1 00003 1 03643 TXI CS0360,A,3 OPS MATCH 4F14337 03643 1 00003 2 03644 CS0360 TXI CS0370,B,3 4F14338 03644 1 00003 4 03620 CS0370 TXI CS0250,C,3 4F14339 03645 -0 50000 1 06650 CS0430 CAL SCRIPL,A MATCHING SEGMENTS 4F14340 03646 -0 32000 0 01452 ANA MASK2 SEARCH FOR REFERENCES 4F14341 03647 0 34000 1 06647 CS0450 CAS SCRIPL-1,A 4F14342 03650 1 00003 1 03647 TXI CS0450,A,3 4F14343 03651 1 00000 0 03653 CS0470 TXI CS0490,0,0 4F14344 03652 1 00003 1 03647 TXI CS0450,A,3 4F14345 03653 0 50000 0 03567 CS0490 CLA CS0030 CHANGE REFERENCE 4F14346 03654 0 62100 1 06647 STA SCRIPL-1,A 4F14347 03655 -0 53400 4 01357 LXD LENGTH,C 4F14348 03656 -0 53400 1 03667 LXD CS0600,A 4F14349 03657 -3 00000 4 03663 CS0530 TXL CS0570,C,0 ERASE DUPLICATE SEGMENT 4F14350 03660 -0 60000 1 06645 STQ SCRIPL-3,A 4F14351 03661 1 00003 1 03662 TXI CS0560,A,3 4F14352 03662 1 00003 4 03657 CS0560 TXI CS0530,C,3 4F14353 03663 0 53400 4 03573 CS0570 LXA CS0060,C 4F14354 03664 -0 60000 4 05044 STQ BETA,C 4F14355 03665 -0 50000 0 01401 CAL 11Z STORE CS BIT 4F14356 03666 -0 60200 2 06651 ORS SCRIPL+1,B 4F14357 03667 1 00000 0 03603 CS0600 TXI CS0130,0,0 4F14358 03670 -0 53400 1 03651 CS0610 LXD CS0470,A 4F14359 03671 -0 53400 4 01357 LXD LENGTH,C 4F14360 03672 -3 00000 4 03565 CS0630 TXL CS0010,C,0 4F14361 03673 1 00003 1 03674 TXI CS0650,A,3 4F14362 03674 1 00003 4 03672 CS0650 TXI CS0630,C,3 4F14363 03675 0 53400 5 01406 CS0660 LXA L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE 4F14364 03676 -0 50000 1 06650 CS0670 CAL SCRIPL,A 4F14365 03677 0 10000 0 03706 TZE CS0750 4F14366 03700 0 60200 4 06650 SLW SCRIPL,C 4F14367 03701 0 50000 1 06651 CLA SCRIPL+1,A 4F14368 03702 0 60100 4 06651 STO SCRIPL+1,C 4F14369 03703 0 50000 1 06652 CLA SCRIPL+2,A 4F14370 03704 0 60100 4 06652 STO SCRIPL+2,C 4F14371 03705 1 77775 4 03706 TXI CS0750,C,-3 4F14372 03706 1 77775 1 03707 CS0750 TXI CS0760,A,-3 4F14373 03707 3 00000 1 03676 CS0760 TXH CS0670,A,0 4F14374 03710 -0 63400 4 03724 SXD PM0080,C -3Q IN XC AT END 4F14375 03711 -0 63400 4 04113 SXD AS1800,C 4F14376 03712 -0 63400 4 04136 SXD AS3600,C 4F14377 03713 0 76000 0 00140 PM0000 SLF TURN OFF ALL SENSE LITES 4F14378 03714 0 53400 1 01406 LXA L(0),A PERMUTE * AND / 4F14379 03715 0 50000 1 06650 PM0010 CLA SCRIPL,A 4F14380 03716 0 73400 2 00000 PAX 0,B 4F14381 03717 0 50000 2 05044 CLA BETA,B 4F14382 03720 0 73400 4 00000 PAX 0,C LDXC WITH SEGMENT LENGTH 4F14383 03721 -0 63400 4 03723 SXD PM0070,C 4F14384 03722 -3 77767 4 03726 TXL PM0100,C,-9 4F14385 03723 1 00000 1 03724 PM0070 TXI PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * 4F14386 03724 -3 00000 1 04071 PM0080 TXL AS0000,A,0 EXIT FROM PERMUTATION ROUTINE 4F14387 03725 0 02000 0 03715 TRA PM0010 4F14388 03726 0 56000 1 06651 PM0100 LDQ SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 4F14389 03727 -0 75400 0 00000 PXD 0,0 4F14390 03730 -0 76300 0 00006 LGL 6 4F14391 03731 0 40200 0 01405 SUB STAR 4F14392 03732 -0 10000 0 03723 TNZ PM0070 4F14393 03733 0 16200 0 03735 TQP PM0170 4F14394 03734 0 02000 0 03723 TRA PM0070 4F14395 03735 -0 63400 4 03744 PM0170 SXD PM0260,C 4F14396 03736 -0 63400 4 03762 SXD PM0400,C 4F14397 03737 -0 63400 4 04013 SXD PM0680,C 4F14398 03740 0 53400 4 01406 LXA L(0),C LDXC WITH 0 4F14399 03741 1 77775 1 03742 TXI PM0240,A,-3 4F14400 03742 0 76000 0 00143 PM0240 SLN 3 TURN * LITE ON 4F14401 03743 1 77775 4 03744 PM0250 TXI PM0260,C,-3 4F14402 03744 -3 00000 4 04025 PM0260 TXL PM0790,C,0 EXIT 4F14403 03745 -0 63400 4 03755 SXD PM0340,C 4F14404 03746 -0 53400 2 03747 LXD PM0290,B 4F14405 03747 1 00000 3 03750 PM0290 TXI PM0300,3,0 XA TO XA AND XB 4F14406 03750 -0 75400 0 00000 PM0300 PXD 0,0 4F14407 03751 0 56000 1 06651 LDQ SCRIPL+1,A 4F14408 03752 -0 76300 0 00006 LGL 6 4F14409 03753 0 34000 0 01402 CAS SLASH 4F14410 03754 0 00007 0 00000 FEXUB HTR 0,0,7 4F14411 03755 -3 00000 0 04007 PM0340 TXL PM0640,0,0 / SIGN 4F14412 03756 -0 76000 0 00143 SLT 3 * SIGN... IS * LITE ON 4F14413 03757 1 77775 1 03742 TXI PM0240,A,-3 NO 4F14414 03760 1 77775 2 03761 TXI PM0390,B,-3 YES - SEARCH FOR / SIGN 4F14415 03761 1 77775 4 03762 PM0390 TXI PM0400,C,-3 4F14416 03762 -3 00000 4 04023 PM0400 TXL PM0770,C,0 EXIT 4F14417 03763 -0 75400 0 00000 PXD 0,0 4F14418 03764 0 56000 2 06651 LDQ SCRIPL+1,B 4F14419 03765 -0 76300 0 00006 LGL 6 4F14420 03766 0 40200 0 01402 SUB SLASH 4F14421 03767 0 10000 0 03771 TZE PM0480 4F14422 03770 1 77775 2 03761 TXI PM0390,B,-3 4F14423 03771 0 50000 1 06650 PM0480 CLA SCRIPL,A PERMUTE TAG WORDS 4F14424 03772 0 56000 2 06650 LDQ SCRIPL,B 4F14425 03773 -0 60000 1 06650 STQ SCRIPL,A 4F14426 03774 0 60100 2 06650 STO SCRIPL,B 4F14427 03775 0 50000 1 06651 CLA SCRIPL+1,A PERMUTE OP WORDS 4F14428 03776 0 56000 2 06651 LDQ SCRIPL+1,B 4F14429 03777 -0 60000 1 06651 STQ SCRIPL+1,A 4F14430 04000 0 60100 2 06651 STO SCRIPL+1,B 4F14431 04001 0 50000 1 06652 CLA SCRIPL+2,A PERMUTE SYMBOL WORDS 4F14432 04002 0 56000 2 06652 LDQ SCRIPL+2,B 4F14433 04003 -0 60000 1 06652 STQ SCRIPL+2,A 4F14434 04004 0 60100 2 06652 STO SCRIPL+2,B 4F14435 04005 -0 53400 4 03755 LXD PM0340,C 4F14436 04006 1 77775 1 03743 TXI PM0250,A,-3 RESUME SEGMENT SCAN 4F14437 04007 -0 76000 0 00143 PM0640 SLT 3 / SIGN... IS * LITE ON 4F14438 04010 1 77775 2 04012 PM0650 TXI PM0670,B,-3 NO 4F14439 04011 1 77775 1 03743 TXI PM0250,A,-3 4F14440 04012 1 77775 4 04013 PM0670 TXI PM0680,C,-3 4F14441 04013 -3 00000 4 04023 PM0680 TXL PM0770,C,0 4F14442 04014 -0 75400 0 00000 PXD 0,0 4F14443 04015 0 56000 2 06651 LDQ SCRIPL+1,B 4F14444 04016 -0 76300 0 00006 LGL 6 4F14445 04017 0 40200 0 01402 SUB SLASH 4F14446 04020 0 10000 0 04010 TZE PM0650 4F14447 04021 0 76000 0 00143 SLN 3 TURN * LITE ON 4F14448 04022 0 02000 0 03771 TRA PM0480 4F14449 04023 -0 53400 1 04024 PM0770 LXD PM0780,A 4F14450 04024 1 00000 3 04025 PM0780 TXI PM0790,3,0 XB TO XA,XB 4F14451 04025 -0 75400 0 00000 PM0790 PXD 0,0 4F14452 04026 0 56000 1 06646 LDQ SCRIPL-2,A 4F14453 04027 -0 76300 0 00006 LGL 6 4F14454 04030 0 40200 0 01402 SUB SLASH 4F14455 04031 0 10000 0 03724 TZE PM0080 ... / - EXIT FROM SEGMENT SCAN 4F14456 04032 -0 75400 0 00000 PXD 0,0 4F14457 04033 0 56000 1 06643 LDQ SCRIPL-5,A 4F14458 04034 -0 76300 0 00006 LGL 6 4F14459 04035 0 40200 0 01402 SUB SLASH 4F14460 04036 0 10000 0 03724 TZE PM0080 ... / * - EXIT FROM SEGMENT SCAN 4F14461 04037 0 50000 1 06645 CLA SCRIPL-3,A ... ** 4F14462 04040 0 60100 0 01126 STO E 4F14463 04041 0 50000 1 06646 CLA SCRIPL-2,A 4F14464 04042 0 60100 0 01127 STO E+1 4F14465 04043 0 50000 1 06647 CLA SCRIPL-1,A 4F14466 04044 0 60100 0 01130 STO E+2 4F14467 04045 1 00003 1 04046 TXI PM0980,A,3 4F14468 04046 1 00003 4 04047 PM0980 TXI PM0990,C,3 4F14469 04047 -3 00000 4 04057 PM0990 TXL PM1070,C,0 FINIS 4F14470 04050 0 50000 1 06645 CLA SCRIPL-3,A 4F14471 04051 0 60100 1 06650 STO SCRIPL,A 4F14472 04052 0 50000 1 06646 CLA SCRIPL-2,A 4F14473 04053 0 60100 1 06651 STO SCRIPL+1,A 4F14474 04054 0 50000 1 06647 CLA SCRIPL-1,A 4F14475 04055 0 60100 1 06652 STO SCRIPL+2,A 4F14476 04056 1 00003 1 04046 TXI PM0980,A,3 4F14477 04057 0 50000 0 01126 PM1070 CLA E 4F14478 04060 0 60100 1 06650 STO SCRIPL,A 4F14479 04061 0 50000 0 01127 CLA E+1 4F14480 04062 0 60100 1 06651 STO SCRIPL+1,A 4F14481 04063 0 50000 0 01130 CLA E+2 4F14482 04064 0 60100 1 06652 STO SCRIPL+2,A 4F14483 04065 -0 50000 1 06654 CAL SCRIPL+4,A PRESERVE CS BIT 4F14484 04066 -0 32000 0 01401 ANA 11Z 4F14485 04067 -0 60200 1 06651 ORS SCRIPL+1,A 4F14486 04070 0 02000 0 03723 TRA PM0070 4F14487 04071 0 53400 7 01406 AS0000 LXA L(0),7 RENUMBER SEGMENT OF SCRIPL 4F14488 04072 0 50000 2 05044 AS0100 CLA BETA,B 4F14489 04073 0 10000 0 04100 TZE AS0700 4F14490 04074 -0 75400 4 00000 PXD 0,C 4F14491 04075 0 77100 0 00022 ARS 18 4F14492 04076 0 62100 2 05044 STA BETA,B 4F14493 04077 1 77777 4 04100 TXI AS0700,C,-1 4F14494 04100 1 77777 2 04101 AS0700 TXI AS0800,B,-1 4F14495 04101 3 00000 2 04072 AS0800 TXH AS0100,B,0 4F14496 04102 0 50000 1 06650 AS0900 CLA SCRIPL,A 4F14497 04103 0 73400 2 00000 PAX 0,B 4F14498 04104 0 50000 2 05044 CLA BETA,B 4F14499 04105 0 62100 1 06650 STA SCRIPL,A 4F14500 04106 0 56000 1 06652 LDQ SCRIPL+2,A 4F14501 04107 -0 76300 0 00001 LGL 1 4F14502 04110 0 76000 0 00001 LBT 4F14503 04111 0 16200 0 04115 TQP AS2000 4F14504 04112 1 77775 1 04113 TXI AS1800,A,-3 4F14505 04113 3 00000 1 04102 AS1800 TXH AS0900,A,0 4F14506 04114 0 02000 0 04122 TRA AS2500 4F14507 04115 -0 76300 0 00043 AS2000 LGL 35 4F14508 04116 0 73400 2 00000 PAX 0,B 4F14509 04117 0 50000 2 05044 CLA BETA,B 4F14510 04120 0 62100 1 06652 STA SCRIPL+2,A 4F14511 04121 1 77775 1 04113 TXI AS1800,A,-3 4F14512 04122 0 53400 3 01406 AS2500 LXA L(0),3 LDXA,XB WITH 0 4F14513 04123 0 56000 0 01406 LDQ L(0) CLEAR MQ 4F14514 04124 0 60100 2 05044 AS2700 STO BETA,B RECLEAR BETA TABLE 4F14515 04125 1 77777 2 04126 TXI AS2900,B,-1 4F14516 04126 3 00000 2 04124 AS2900 TXH AS2700,B,0 4F14517 04127 0 50000 1 06650 AS3000 CLA SCRIPL,A ADD INTO GAMMA COUNTERS 4F14518 04130 0 73400 2 00000 PAX 0,B 4F14519 04131 0 50000 2 05044 CLA BETA,B 4F14520 04132 0 40000 0 01462 ADD BETAD2 3*2**18+(-3) 4F14521 04133 0 62200 2 05044 STD BETA,B 4F14522 04134 0 62100 2 05044 STA BETA,B 4F14523 04135 1 77775 1 04136 TXI AS3600,A,-3 4F14524 04136 3 00000 1 04127 AS3600 TXH AS3000,A,0 -30 IN XA AT END 4F14525 04137 -0 63400 1 01117 SXD 3QBAR,A -30 TO 3QBAR = 3LBAR 4F14526 04140 -0 50000 1 06645 CCS000 CAL SCRIPL-3,A ELIMINATE COMMON SUBEXPRESSIONS 4F14527 04141 0 73400 2 00000 PAX 0,B LOAD XB WITH S(1) 4F14528 04142 -3 00000 2 04167 TXL CCS240,B,0 EXIT AT S(O) 4F14529 04143 -0 50000 2 05044 CAL BETA,B OBTAIN LENGTH OF S(I) 4F14530 04144 0 62200 0 04145 STD CCS060 AND BACK UP TO 4F14531 04145 1 00000 1 04146 CCS060 TXI CCS070,A,0 BEGINNING OF CURRENT SEGMENT 4F14532 04146 -0 50000 1 06651 CCS070 CAL SCRIPL+1,A OBTAIN OP1 (S(I)) 4F14533 04147 -0 32000 0 01401 ANA 11Z EXTRACT CS-BIT 4F14534 04150 0 10000 0 04140 TZE CCS000 CONTINUE TO S(I-1) 4F14535 04151 -0 75400 2 00000 PXD 0,B 4F14536 04152 0 77100 0 00022 ARS 18 4F14537 04153 0 53400 4 01406 LXA L(0),C TO S(I) 4F14538 04154 -0 53400 2 04155 LXD CCS140,B AND KEEP COUNT OF SAME 4F14539 04155 1 00000 3 04156 CCS140 TXI CCS150,3,0 XA TO XA,XB 4F14540 04156 -3 00000 2 04163 CCS150 TXL CCS200,B,0 SEARCH-UP FINISHED, EXAMINE COUNT 4F14541 04157 0 34000 2 06647 CAS SCRIPL-1,B 4F14542 04160 1 00003 2 04156 TXI CCS150,B,3 CONTINUE SEARCH 4F14543 04161 1 00001 4 04162 TXI CCS190,C,1 RAISE REF COUNTER AND 4F14544 04162 1 00003 2 04156 CCS190 TXI CCS150,B,3 CONTINUE SEARCH 4F14545 04163 3 00001 4 04140 CCS200 TXH CCS000,C,1 MULTIPLE REFERENCE 4F14546 04164 -0 50000 0 01530 CAL MASK4 SINGLE REFERENCE - SO SET 4F14547 04165 0 32000 1 06651 ANS SCRIPL+1,A OP1(S(I))3O TO O, AND 4F14548 04166 0 02000 0 04140 TRA CCS000 CONTINUE FOR S(I-1) 4F14549 04167 -0 53400 1 04136 CCS240 LXD AS3600,A -3Q TO XA 4F14550 04170 -3 00000 1 04423 PL0000 TXL LK0000,A,0 GO TO LINKAGE 4F14551 04171 0 50000 1 06645 CLA SCRIPL-3,A 4F14552 04172 0 73400 2 00000 PAX 0,B 4F14553 04173 -0 50000 2 05044 CAL BETA,B 4F14554 04174 0 73400 4 00000 PAX 0,C 4F14555 04175 0 62200 0 04176 STD PL0060 4F14556 04176 1 00000 1 04177 PL0060 TXI PL0070,A,0 SET XA TO BEGINNING OF S(I) 4F14557 04177 -0 75400 0 00000 PL0070 PXD 0,0 4F14558 04200 0 56000 1 06651 LDQ SCRIPL+1,A OBTAIN 4F14559 04201 -0 76300 0 00006 LGL 6 AND 4F14560 04202 0 34000 0 01427 CAS SPECOP EXAMINE OP1 (S(I)) 4F14561 04203 0 02000 0 04300 TRA PL0680 4F14562 04204 0 02000 0 04242 TRA PL0460 4F14563 04205 -0 75400 0 00000 PL0130 PXD 0,0 0P1 (S(I)) IS +, - OR * 4F14564 04206 0 56000 1 06652 LDQ SCRIPL+2,A OBTAIN 4F14565 04207 -0 76300 0 00001 LGL 1 AND 4F14566 04210 0 76000 0 00001 LBT EXAMINE SYM1 (S(I)) 4F14567 04211 0 16200 0 04223 TQP PL0300 4F14568 04212 -0 76300 0 00005 LGL 5 EX (IN)TERNAL VARIABLE 4F14569 04213 0 34000 0 01423 PL0135 CAS L(H) IS SYM1 (S(I)) FIX OR FLO PT 4F14570 04214 0 34000 0 01425 CAS L(O) 4F14571 04215 0 02000 0 04220 TRA PL0240 FLO PT... SET 0P1 (S(I)) 32 = 1 4F14572 04216 0 02000 0 04220 TRA PL0240 FLO PT... DITTO 4F14573 04217 0 02000 0 04170 TRA PL0000 FIX PT... OP1 (S(I)) 32 = 0 4F14574 04220 -0 50000 0 01416 PL0240 CAL L(8) SET OP1 (S(I)) 32 = 1 4F14575 04221 -0 60200 1 06651 PL0250 ORS SCRIPL+1,A 4F14576 04222 1 00000 0 04170 PL0260 TXI PL0000,0,0 CONTINUE SCAN 4F14577 04223 -0 53400 2 04224 PL0300 LXD PL0310,B SYM1 (S(I)) = SOME S(J) 4F14578 04224 1 00000 3 04225 PL0310 TXI PL0320,3,0 XA TO XA,XB 4F14579 04225 -0 63400 4 04226 PL0320 SXD PL0330,C 4F14580 04226 1 00000 2 04227 PL0330 TXI PL0340,B,0 4F14581 04227 -0 50000 2 06650 PL0340 CAL SCRIPL,B 4F14582 04230 0 73400 4 00000 PAX 0,C 4F14583 04231 -0 32000 0 01452 ANA MASK2 4F14584 04232 0 40200 1 06652 SUB SCRIPL+2,A 4F14585 04233 0 10000 0 04237 TZE PL0420 4F14586 04234 0 50000 4 05044 CLA BETA,C 4F14587 04235 0 73400 4 00000 PAX 0,C 4F14588 04236 0 02000 0 04225 TRA PL0320 4F14589 04237 -0 50000 2 06651 PL0420 CAL SCRIPL+1,B SYM1(S(I)) = S(J) 4F14590 04240 -0 32000 0 01416 ANA L(8) EXTRACT OP1 (S(J)) 32 AND GO 4F14591 04241 0 02000 0 04221 TRA PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 4F14592 04242 -0 76300 0 00007 PL0460 LGL 7 OP1 (S(I)) IS SPOP 4F14593 04243 0 16200 0 04252 TQP PL0465 4F14594 04244 0 56000 1 06652 PL0461 LDQ SCRIPL+2,A FS NAME - 4F14595 04245 -0 75400 0 00000 PXD 0,0 EXAMINE SUM1 (S(I)) S,1-5 4F14596 04246 -0 76300 0 00006 LGL 6 4F14597 04247 0 40200 0 01433 SUB L(X) 4F14598 04250 -0 10000 0 04220 TNZ PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1 4F14599 04251 0 02000 0 04170 TRA PL0000 FIX PT ... OP1 (S(I)) 32 = 0 4F14600 04252 0 76000 0 00001 PL0465 LBT 4F14601 04253 0 02000 0 04260 TRA PL0470 4F14602 04254 0 56000 1 06652 LDQ SCRIPL+2,A 4F14603 04255 -0 75400 0 00000 PXD ,0 4F14604 04256 -0 76300 0 00006 LGL 6 4F14605 04257 0 02000 0 04213 TRA PL0135 4F14606 04260 0 50000 1 06652 PL0470 CLA SCRIPL+2,A NOT AN FS NAME 4F14607 04261 0 53400 2 01406 LXA L(0),B 4F14608 04262 0 34000 2 04732 PL0480 CAS OPSUB,B 4F14609 04263 1 77777 2 04266 TXI PL0520,B,-1 4F14610 04264 0 02000 0 04275 TRA PL0650 4F14611 04265 1 77777 2 04266 TXI PL0520,B,-1 4F14612 04266 3 77754 2 04262 PL0520 TXH PL0480,B,-20 4F14613 04267 0 60100 0 01347 STO G 4F14614 04270 -0 63400 1 04222 SXD PL0260,A 4F14615 04271 0 07400 1 03321 TSX TET00,A 4F14616 04272 0 00000 0 00011 HTR 9 4F14617 04273 -0 53400 1 04222 LXD PL0260,A 4F14618 04274 0 02000 0 04244 TRA PL0461 4F14619 04275 -0 50000 0 01412 PL0650 CAL L(4) SET OP1 (S(I)) 33 =I 4F14620 04276 -0 60200 1 06651 ORS SCRIPL+1,A 4F14621 04277 0 02000 0 04244 TRA PL0461 4F14622 04300 0 16200 0 04205 PL0680 TQP PL0130 4F14623 04301 -0 75400 0 00000 PXD 0,0 OP1 (S(I) IS ** 4F14624 04302 0 56000 1 06652 LDQ SCRIPL+2,A OBTAIN AND 4F14625 04303 -0 76300 0 00001 LGL 1 EXAMINE 4F14626 04304 0 76000 0 00001 LBT SYM1 (S(I)) 4F14627 04305 0 16200 0 04363 TQP PL1000 4F14628 04306 -0 76300 0 00005 LGL 5 EX (IN)TERNAL VARIABLE 4F14629 04307 0 34000 0 01423 CAS L(H) IS OT FIX OR FLO PT 4F14630 04310 0 34000 0 01425 CAS L(O) 4F14631 04311 0 02000 0 04314 TRA PL0800 4F14632 04312 0 02000 0 04314 TRA PL0800 4F14633 04313 0 02000 0 04316 TRA PL0830 FIX PT 4F14634 04314 -0 50000 0 01416 PL0800 CAL L(8) FLO PT... SET OP1 (S(I)) 32 = 1 4F14635 04315 -0 60200 1 06651 PL0820 ORS SCRIPL+1,A 4F14636 04316 -0 75400 0 00000 PL0830 PXD 0,0 4F14637 04317 0 56000 1 06655 LDQ SCRIPL+5,A OBTAIN 4F14638 04320 -0 76300 0 00001 LGL 1 AND 4F14639 04321 0 76000 0 00001 LBT EXAMINE 4F14640 04322 0 16200 0 04402 TQP PL1200 SYM2 (S(I)) 4F14641 04323 -0 76300 0 00005 LGL 5 4F14642 04324 0 34000 0 01423 CAS L(H) 4F14643 04325 0 34000 0 01425 CAS L(O) 4F14644 04326 0 02000 0 04360 TRA PL0940 SYM2 (S(I)) IS FLO PT, SO GO 4F14645 04327 0 02000 0 04360 TRA PL0940 SET OP2 (S(I)) 32 = 1 4F14646 04330 -0 75400 0 00000 PL0850 PXD 0,0 SYM2(S(I)) IS FIX PT 4F14647 04331 -0 76300 0 00006 LGL 6 4F14648 04332 0 40200 0 01375 SUB OPEN 4F14649 04333 -0 10000 0 04170 TNZ PL0000 SYM2 (S(I)) IS EXTERNAL 4F14650 04334 -0 76300 0 00031 LGL 25 SYM2 (S(I)) IS INTERNAL (AND FIX PT) 4F14651 04335 0 40000 0 04352 ADD PL0880 4F14652 04336 0 62100 0 04330 STA PL0850 4F14653 04337 0 76200 0 00302 RDR FXCODR 4F14654 04340 0 46000 0 04330 LDA PL0850 4F14655 04341 0 70000 0 01347 CPY G 4F14656 04342 0 70000 0 01350 CPY G+1 4F14657 04343 0 50000 0 01347 CLA G 4F14658 04344 0 34000 0 01350 CAS G+1 4F14659 04345 0 02000 0 04347 TRA *+2 GO TO THE DIAGNOSTIC 4F14660 04346 0 02000 0 04350 TRA PL1570 4F14661 04347 0 07400 4 03400 TSX DIAG,4 * GO TO THE DIAGNOSTIC 4F14662 04350 0 10000 0 04170 PL1570 TZE PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 4F14663 04351 0 34000 0 03754 CAS FEXUB 4F14664 04352 3 00000 0 00002 PL0880 TXH FIXCON,0,0 EXP NOT LESS THAN 7, SO 4F14665 04353 0 02000 0 04170 TRA PL0000 OP1 (S(I)) 33 = 0 4F14666 04354 0 60100 1 06655 STO SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP 4F14667 04355 -0 50000 0 01412 CAL L(4) AS SYM2 (S(I)) AND SET 4F14668 04356 -0 60200 1 06651 ORS SCRIPL+1,A OP1 (S(I)) 33 = 1 4F14669 04357 0 02000 0 04170 TRA PL0000 4F14670 04360 -0 50000 0 01416 PL0940 CAL L(8) SYM2 (S(I)) IS FLO PT 4F14671 04361 -0 60200 1 06654 ORS SCRIPL+4,A SET OP2 (S(I)) 32 = 1 4F14672 04362 0 02000 0 04170 TRA PL0000 4F14673 04363 -0 53400 2 04364 PL1000 LXD PL1010,B SYM1 (S(I)) IS SOME S(J) 4F14674 04364 1 00000 3 04365 PL1010 TXI PL1020,3,0 XA TO XA,XB 4F14675 04365 -0 63400 4 04366 PL1020 SXD PL1030,C 4F14676 04366 1 00000 2 04367 PL1030 TXI PL1040,B,0 4F14677 04367 -0 50000 2 06650 PL1040 CAL SCRIPL,B 4F14678 04370 0 73400 4 00000 PAX 0,C 4F14679 04371 -0 32000 0 01452 ANA MASK2 4F14680 04372 0 40200 1 06652 SUB SCRIPL+2,A 4F14681 04373 0 10000 0 04377 TZE PL1130 4F14682 04374 0 50000 4 05044 CLA BETA,C 4F14683 04375 0 73400 4 00000 PAX 0,C 4F14684 04376 0 02000 0 04365 TRA PL1020 4F14685 04377 -0 50000 2 06651 PL1130 CAL SCRIPL+1,B 4F14686 04400 -0 32000 0 01416 ANA L(8) 4F14687 04401 0 02000 0 04315 TRA PL0820 4F14688 04402 -0 53400 2 04403 PL1200 LXD PL1210,B SYM2 (S(I)) = SOME S(K) 4F14689 04403 1 00000 3 04404 PL1210 TXI PL1220,3,0 XA TO XA,XB 4F14690 04404 -0 53400 4 04416 PL1220 LXD PL1330,C LKXC WITH -6 4F14691 04405 -0 63400 4 04406 PL1230 SXD PL1240,C 4F14692 04406 1 00000 2 04407 PL1240 TXI PL1250,B,0 4F14693 04407 -0 50000 2 06650 PL1250 CAL SCRIPL,B 4F14694 04410 0 73400 4 00000 PAX 0,C 4F14695 04411 -0 32000 0 01452 ANA MASK2 4F14696 04412 0 40200 1 06655 SUB SCRIPL+5,A 4F14697 04413 0 10000 0 04417 TZE PL1340 SYM2(S(I)) = S(K) 4F14698 04414 0 50000 4 05044 CLA BETA,C 4F14699 04415 0 73400 4 00000 PAX 0,C 4F14700 04416 1 77772 0 04405 PL1330 TXI PL1230,0,-6 4F14701 04417 -0 50000 2 06651 PL1340 CAL SCRIPL+1,B SET OP2(S(I)) 32 = 0P1 (S(K)) 32 4F14702 04420 -0 32000 0 01416 ANA L(8) 4F14703 04421 -0 60200 1 06654 ORS SCRIPL+4,A 4F14704 04422 0 02000 0 04170 TRA PL0000 RESUME SCAN 4F14705 04423 -0 53400 1 04136 LK0000 LXD AS3600,A -3Q TO XA 4F14706 04424 -0 50000 1 06645 LK0030 CAL SCRIPL-3,A 4F14707 04425 0 73400 2 00000 PAX 0,B S(I) TO XB 4F14708 04426 -3 00000 0 04633 TXL LK1610,8,0 EXIT UPON ENCOUNTERING S(0) 4F14709 04427 0 56000 1 06646 LDQ SCRIPL-2,A PLACE LAST OP OP S(I) IN MQ 4F14710 04430 0 50000 2 05044 CLA BETA,B 4F14711 04431 0 62200 0 04432 STD LK0110 4F14712 04432 1 00000 1 04433 LK0110 TXI LK0120,A,0 MOVE XA TO BEGINNING OF S(I) 4F14713 04433 -0 53400 4 04434 LK0120 LXD LK0130,C 4F14714 04434 1 00000 5 04435 LK0130 TXI LK0140,5,0 XA TO XA,XC 4F14715 04435 -0 63400 1 04136 LK0140 SXD AS3600,A 4F14716 04436 0 50000 2 05043 CLA BETA-1,B 4F14717 04437 -0 73400 2 00000 PDX 0,B LENGTH OF S(I-1) TO XB 4F14718 04440 -0 63400 2 04441 SXD LK0180,B 4F14719 04441 1 00000 4 04442 LK0180 TXI LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) 4F14720 04442 0 16200 0 04566 LK0190 TQP LK1200 S(I) TYPE AC 4F14721 04443 -0 77300 0 00001 RQL 1 4F14722 04444 0 16200 0 04566 TQP LK1200 S(I) TYPE AC 4F14723 04445 -0 50000 0 01404 CAL 12Z S(I) RESULTS IN MQ (TYPE MQ) 4F14724 04446 -0 60200 1 06651 ORS SCRIPL+1,A SET OP1 (S(I)) 31 = 1 4F14725 04447 -0 75400 0 00000 PXD 0,0 4F14726 04450 0 56000 4 06651 LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ 4F14727 04451 -0 76300 0 00006 LGL 6 4F14728 04452 0 34000 0 01427 CAS SPECOP 4F14729 04453 0 02000 0 04456 TRA LK0320 4F14730 04454 0 02000 0 04543 TRA LK0950 4F14731 04455 0 02000 0 04424 TRA LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0 4F14732 04456 0 16200 0 04477 LK0320 TQP LK0570 4F14733 04457 -0 76300 0 00033 LGL 27 S(I)TYPE MQ, OP1(S(I-1) = ** 4F14734 04460 -0 50000 1 06650 CAL SCRIPL,A 4F14735 04461 -0 32000 0 01452 ANA MASK2 EXTRACT S(I) IN ACC 4F14736 04462 0 16200 0 04472 TQP LK0480 OP1 (S(I-1)) 33 = 0 4F14737 04463 0 40200 4 06652 SUB SCRIPL+2,C OP1 (S(I-1)) 33 = 1, OPEN ** SUBROUTINE. 4F14738 04464 -0 10000 0 04424 TNZ LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0 4F14739 04465 -0 50000 0 01411 CAL L(3) S(I) = SYM1 (S(I-1)), SO 4F14740 04466 -0 60200 4 06651 LK0430 ORS SCRIPL+1,C 4F14741 04467 -0 50000 0 01436 LK0440 CAL BIT29 4F14742 04470 -0 60200 1 06651 ORS SCRIPL+1,A 4F14743 04471 0 02000 0 04424 TRA LK0030 OP1 (S(I-1)) = 0, CLOSED ** SUBROUTINES 4F14744 04472 0 40200 4 06655 LK0480 SUB SCRIPL+5,C 4F14745 04473 -0 10000 0 04424 TNZ LK0030 SET OPKS(I))29=OPKS(I-1))35=0 4F14746 04474 -0 50000 0 01407 CAL L(1) S(I) = SYM2 (S(I-1)), SO 4F14747 04475 -0 60200 4 06654 ORS SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1 4F14748 04476 0 02000 0 04467 TRA LK0440 4F14749 04477 -0 75400 0 00000 LK0570 PXD 0,0 S(I) TYPE MO, OP1 (S(I-1)) = * 4F14750 04500 0 56000 4 06654 LDQ SCRIPL+4,C PLACE PO2 (S(I-1)) IN MQ 4F14751 04501 -0 76300 0 00006 LGL 6 IS OP2 (S(I-1)) = * 4F14752 04502 0 40200 0 01405 SUB STAR 4F14753 04503 -0 10000 0 04424 TNZ LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754 04504 -0 50000 0 01410 CAL L(2) YES 4F14755 04505 -0 60200 4 06651 ORS SCRIPL+1,C SET OP1(S(I-1))34=1 4F14756 04506 -0 50000 1 06650 LK0630 CAL SCRIPL,A 4F14757 04507 -0 32000 0 01452 ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14758 04510 -3 00000 2 04423 LK0650 TXL LK0000,B,0 NOT FOUND AT ALL 4F14759 04511 0 34000 1 06647 CAS SCRIPL-1,A 4F14760 04512 1 00003 1 04515 TXI LK0700,A,3 4F14761 04513 0 02000 0 04516 TRA LK0710 4F14762 04514 1 00003 1 04515 TXI LK0700,A,3 NOT FOUND - CONTINUE SEARCH 4F14763 04515 1 77775 2 04510 LK0700 TXI LK0650,B,-3 4F14764 04516 0 56000 1 06646 LK0710 LDQ SCRIPL-2,A S(I) IS SYMJ (S(I-1)) 4F14765 04517 -0 77300 0 00001 RQL 1 IS OPJ (S(I-1)) = * 4F14766 04520 0 16200 0 04522 TQP LK0750 4F14767 04521 1 00003 1 04515 TXI LK0700,A,3 NO... CONTINUE SEARCH 4F14768 04522 0 50000 4 06650 LK0750 CLA SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769 04523 0 56000 1 06645 LDQ SCRIPL-3,A EXCHANGE 4F14770 04524 0 60100 1 06645 STO SCRIPL-3,A TAG 4F14771 04525 -0 60000 4 06650 STQ SCRIPL,C WORDS 4F14772 04526 -0 50000 4 06651 CAL SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC 4F14773 04527 0 56000 1 06646 LDQ SCRIPL-2,A PLACE OPJ (S(I-1)) IN MQ 4F14774 04530 0 60200 1 06646 SLW SCRIPL-2,A EXCHANGE 4F14775 04531 -0 60000 4 06651 STQ SCRIPL+1,C OP 4F14776 04532 -0 32000 0 01452 ANA MASK2 WORDS AND 4F14777 04533 -0 60200 4 06651 ORS SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33 4F14778 04534 0 50000 4 06652 CLA SCRIPL+2,C THEN 4F14779 04535 0 56000 1 06647 LDQ SCRIPL-1,A EXCHANGE 4F14780 04536 0 60100 1 06647 STO SCRIPL-1,A SYMBOL 4F14781 04537 -0 60000 4 06652 STQ SCRIPL+2,C WORDS 4F14762 04540 -0 53400 1 04136 LXD AS3600,A RESTORE XA 4F14783 04541 -0 50000 0 01407 LK0900 CAL L(1) AND 4F14784 04542 0 02000 0 04466 TRA LK0430 4F14785 04543 -0 77300 0 00033 LK0950 RQL 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP 4F14786 04544 -0 50000 1 06650 CAL SCRIPL,A 4F14787 04545 -0 32000 0 01452 ANA MASK2 EXTRACT S(I) IN ACC 4F14788 04546 0 16200 0 04555 TQP LK1050 OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE) 4F14789 04547 3 00006 2 04424 TXH LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0 4F14790 04550 0 40200 4 06655 SUB SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1)) 4F14791 04551 -0 10000 0 04424 TNZ LK0030 N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0 4F14792 04552 -0 50000 0 01411 CAL L(3) AND 4F14793 04553 -0 60200 4 06654 ORS SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1 4F14794 04554 0 02000 0 04467 TRA LK0440 4F14795 04555 -0 77300 0 00017 LK1050 RQL 15 4F14796 04556 0 16200 0 04560 TQP LK1100 TEST OP1(S(I-1))12 4F14797 04557 0 02000 0 04424 TRA LK0030 FN-NAME 4F14798 04560 -3 00006 2 04424 LK1100 TXL LK0030,B,6 CLOSED UNIV. SBRTN 4F14799 04561 0 40200 4 06660 SUB SCRIPL+8,C CLOSED MULTIV. SBRTN 4F14800 04562 -0 10000 0 04424 TNZ LK0030 S(I) NOT = SYM3 (S (I-1)) 4F14801 04563 -0 50000 0 01407 CAL L(1) S(I) = SYM3 (S(I-1)), SO 4F14802 04564 -0 60200 4 06657 ORS SCRIPL+7,C SET OP3 (S(1-1)135 = 1 4F14803 04565 0 02000 0 04467 TRA LK0440 4F14804 04566 -0 75400 0 00000 LK1200 PXD 0,0 S(I) TYPE AC 4F14805 04567 0 56000 4 06651 LDQ SCRIPL+1,C PLACE OP1 (S(I-1)) IN MO 4F14806 04570 -0 76300 0 00006 LGL 6 4F14807 04571 0 34000 0 01427 CAS SPECOP 4F14808 04572 0 02000 0 04604 TRA LK1340 4F14809 04573 0 02000 0 04622 TRA LK1470 4F14810 04574 -0 50000 1 06650 CAL SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = + OR - 4F14811 04575 -0 32000 0 01452 ANA MASK2 SEARCH FOR S(I) IN S(I-1) 4F14812 04576 -3 00000 2 04423 LK1280 TXL LK0000,B,0 NOT FOUND AT ALL 4F14813 04577 0 34000 1 06647 CAS SCRIPL-1,A 4F14814 04600 1 00003 1 04603 TXI LK1330,A,3 4F14815 04601 0 02000 0 04522 TRA LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE 4F14816 04602 1 00003 1 04603 TXI LK1330,A,3 NOT FOUND... CONTINUE SEARCH 4F14817 04603 1 77775 2 04576 LK1330 TXI LK1280,B,-3 4F14818 04604 0 16200 0 04612 LK1340 TQP LK1410 4F14819 04605 -0 50000 1 06650 CAL SCRIPL,A S(I) TYPE AC OP1 (S(I-1)) = ** 4F14820 04606 -0 32000 0 01452 ANA MASK2 4F14821 04607 0 40200 4 06652 SUB SCRIPL+2,C IS S(I) = SYM1 (S(I-1)) 4F14822 04610 -0 10000 0 04424 TNZ LK0030 NO 4F14823 04611 0 02000 0 04541 TRA LK0900 YES 4F14824 04612 -0 75400 0 00000 LK1410 PXD 0,0 S(I) TYPE AC OP1 (S(I-1)) = * 4F14825 04613 0 56000 4 06654 LDQ SCRIPL+4,C 4F14826 04614 -0 76300 0 00006 LGL 6 IS OP2 (S(I-1)) = 1 4F14827 04615 0 40200 0 01402 SUB SLASH 4F14828 04616 0 10000 0 04506 TZE LK0630 YES 4F14829 04617 -0 50000 0 01410 CAL L(2) NO 4F14830 04620 -0 60200 4 06651 ORS SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1 4F14831 04621 0 02000 0 04423 TRA LK0000 4F14832 04622 -0 77300 0 00033 LK1470 RQL 27 S(I) TYPE AC OP1 (S(I-1)) = SPOP 4F14833 04623 -0 50000 1 06650 CAL SCRIPL,A 4F14834 04624 -0 32000 0 01452 ANA MASK2 EXTRACT S(I) IN ACC 4F14835 04625 0 16200 0 04630 TQP LK1530 4F14836 04626 3 00006 2 04424 TXH LK0030,B,6 OPEN MULTIV. 4F14837 04627 0 02000 0 04472 LK1520 TRA LK0480 4F14838 04630 -0 77300 0 00017 LK1530 RQL 15 4F14839 04631 0 16200 0 04472 TQP LK0480 4F14840 04632 0 02000 0 04424 TRA LK0030 FN-NAME 4F14841 04633 -0 53400 2 05044 LK1610 LXD BETA,B IS S(0) A SINGLE ELEMENT 4F14842 04634 -0 75400 0 00000 PXD 0,0 4F14843 04635 0 56000 1 06646 LDQ SCRIPL-2,A 4F14844 04636 3 00003 2 04655 TXH LK1780,B,3 NO 4F14645 04637 -0 76300 0 00006 LGL 6 YES 4F14846 04640 0 40200 0 01401 SUB 11Z IS OP (S(0)) = + OR - 4F14847 04641 0 10000 0 04662 TZE LKK000 OP (S(0)) = - 4F14648 04642 -0 50000 0 06652 CAL SCRIPL+2 OP (S(0)) = + 4F14849 04643 -0 32000 0 01527 ANA MASK1 DOES SYM (S(0)) = S(1) 4F14850 04644 -0 10000 0 04662 TNZ LKK000 NO 4F14851 04645 -0 50000 0 06654 CAL SCRIPL+4 YES - PLACE OP1 (S(I)) IN ACC 4F14852 04646 -0 32000 0 01404 ANA 12Z 4F14853 04647 0 10000 0 04662 TZE LKK000 OP1 (S(1)) 31 = 0 4F14854 04650 -0 60200 0 06651 ORS SCRIPL+1 SET OP (S(0)) 31 = 1 4F14855 04651 0 76700 0 00002 ALS 2 4F14856 04652 -0 60200 0 06654 ORS SCRIPL+4 SET OP1 (S(1)) 29 = 1 4F14857 04653 0 77100 0 00006 ARS 6 4F14658 04654 0 02000 0 04661 TRA LK1820 4F14859 04655 0 16200 0 04662 LK1780 TQP LKK000 S(0) TYPE AC 4F14860 04656 -0 77300 0 00001 RQL 1 4F14861 04657 0 16200 0 04662 TQP LKK000 S(0) TYPE AC 4F14862 04660 -0 50000 0 01404 CAL 12Z S(0) TYPE MQ, SO 4F14863 04661 -0 60200 0 06651 LK1820 ORS SCRIPL+1 4F14864 04662 -0 53400 5 01117 LKK000 LXD 3QBAR,5 -3Q TO XA,XC 4F14865 04663 -0 50000 4 06645 CAL SCRIPL-3,C 4F14866 04664 0 73400 0 00000 PAX 0,8 4F14867 04665 0 50000 2 05044 CLA BETA,B 4F14868 04666 0 62200 0 04667 STD LKK050 4F14869 04667 1 00000 4 04670 LKK050 TXI LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 4F14870 04670 -0 75400 0 00000 LKK060 PXD 0,0 4F14871 04671 0 56000 4 06651 LDQ SCRIPL+1,C PLACE OP1 OF LAST SEGMENT IN MQ 4F14872 04672 -0 76300 0 00006 LGL 6 4F14873 04673 0 40200 0 01405 SUB STAR 4F14874 04674 -0 10000 0 04703 TNZ PC0000 4F14875 04675 0 16200 0 04677 TQP LKK130 4F14876 04676 0 02000 0 04703 TRA PC0000 4F14877 04677 0 56000 4 06654 LKK130 LDQ SCRIPL+4,C OP1 OF LAST SEGMENT IS * 4F14878 04700 -0 76300 0 00002 LGL 2 4F14879 04701 0 76000 0 00001 LBT 4F14880 04702 -0 60200 4 06651 ORS SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1 4F14881 04703 -0 53400 4 01122 PC0000 LXD ARGCTR,C IS THIS AN FS 4F14882 04704 3 00000 4 04706 TXH PC0030,C,0 4F14883 04705 1 00001 4 04707 TXI PC0040,C,1 NO 4F14884 04706 0 53400 4 01406 PC0030 LXA L(0),C YES 4F14885 04707 -0 50000 1 06645 PC0040 CAL SCRIPL-3,A 4F14886 04710 0 73400 2 00000 PAX 0,B 4F14887 04711 -3 00000 2 04725 TXL PC0190,B,0 EXIT AT S(0) 4F14888 04712 0 50000 2 05044 CLA BETA,B 4F14889 04713 0 62200 0 04714 STD PC0100 4F14890 04714 1 00000 1 04715 PC0100 TXI PC0110,A,0 4F14891 04715 0 56000 1 06651 PC0110 LDQ SCRIPL+1,A PLACE OP1 (S(1)) IN MQ 4F14892 04716 -0 76300 0 00036 LGL 30 4F14893 04717 0 76000 0 00001 LBT 4F14894 04720 1 00454 0 04722 PC0140 TXI PC0160,0,300 4F14895 04721 0 16200 0 04707 TQP PC0040 OP1 (S(1)) 29= 1 AND OP1 (S(1)) 30 = 0 4F14896 04722 -0 75400 4 00000 PC0160 PXD 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 4F14897 04723 0 62200 2 05044 STD BETA,B STORE ERAS. REL, ADD. COUNT IN BETA, 4F14898 04724 1 00001 4 04707 TXI PC0040,C,1 AND UPDATE FOR NEXT SEGMENT 4F14899 04725 -0 53400 2 04720 PC0190 LXD PC0140,B 4F14900 04726 0 50000 2 05520 PC0200 CLA BETA+300,B 4F14901 04727 0 60100 2 06650 STO CPBETA+300,B 4F14902 04730 2 00001 2 04726 TIX PC0200,B,1 4F14903 04731 0 02000 0 02410 TRA STATED GO FETCH STATE D 4F14904 ******* *********************** * 4F14905 4F14906 DICTIONARY OF OPEN SUBROUTINES FOLLOWS 4F14907 04732 -272122626060 OPSUB OCT 672122626060 XABS 4F14908 04733 +212262606060 OCT 212262606060 ABS 4F14909 04734 -273145636060 OCT 673145636060 XINT 4F14910 04735 +314563606060 OCT 314563606060 INT 4F14911 04736 -274446246060 OCT 674446246060 XMOD 4F14912 04737 -044624606060 OCT 444624606060 MOD 4F14913 04740 -274421670060 OCT 674421670060 XMAXO 4F14914 04741 -042167016060 OCT 442167016060 MAX1 4F14915 04742 -274421670160 OCT 674421670160 XMAX1 4F14916 04743 -042167006060 OCT 442167006060 MAXO 4F14917 04744 -274431450060 OCT 674431450060 XMINO 4F14918 04745 -043145016060 OCT 443145016060 MIN1 4F14919 04746 -274431450160 OCT 674431450160 XMIN1 4F14920 04747 -043145006060 OCT 443145006060 MIN0 4F14921 04750 +264346216360 OCT 264346216360 FLOAT 4F14922 04751 -272631676060 OCT 672631676060 XFIX 4F14923 04752 -223127456060 OCT 623127456060 SIGN 4F14924 04753 -276231274560 OCT 676231274560 XSIGN 4F14925 04754 -272431446060 OCT 672431446060 XDIM 4F14926 04755 +243144606060 OCT 243144606060 DIM 4F14927 04756 BSS 10 4F14928 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14929 04770 ENDCDR BSS 0 4F149295 4F14930 05044 ENDC ORG 2596 4F14931 05044 BETA BSS 300 4F14932 END OF ARITHMETIC / STATE C* 4F14933 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F14934 4F14935 ARITHMETIC / STATE D= 4F14936 704 FORTRAN MASTER RECORD CARD / STATE D = F0160000. 4F14937 00000 ORG 0 4F149371 00000 0 00471 0 03440 PZE ORGD,,CLDR00 4F149372 00001 0 00000 0 06157 PZE ENDD-1 4F149373 4F14938 03440 ORGD ORG 1824 4F14939 03440 -0 53400 1 01117 MC0000 LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940 03441 -0 63400 1 03512 SXD MC0420,A 4F14941 03442 0 53400 1 01406 LXA L(0),A 4F14942 03443 -0 63400 1 03461 MC0030 SXD XASAVE,A 4F14943 03444 -0 50000 1 06650 CAL SCRIPL,A 4F14944 03445 0 73400 2 00000 MC0050 PAX ,2 S(1) TO XB 4F14945 03446 0 50000 2 06174 CLA CPBETA,B 4F14946 03447 0 73400 2 00454 MC0070 PAX TAU2,B 4F14947 03450 -0 63400 2 03511 SXD MC0410,B 4F14948 03451 -0 63400 2 03516 SXD MC0460,B 4F14949 03452 3 77772 2 03511 TXH MC0410,B,-6 SINGLE ELEMENT - GO ONTO S(I+1) 4F14950 03453 0 76000 0 00140 SLF TURN OFF ALL SENSE LITES 4F14951 03454 -0 75400 0 00000 PXD 0,0 CLEAR ACC 4F14952 03455 0 56000 1 06651 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F14953 03456 -0 76300 0 00006 LGL 6 4F14954 03457 0 34000 0 01427 CAS SPECOP 4F14955 03460 0 16200 0 03462 TQP MC0180 4F14956 03461 1 00000 0 03511 XASAVE TXI MC0410,0,0 4F14957 03462 -0 76300 0 00032 MC0180 LGL 26 OP1 (S(I)) = +, - OR * 4F14958 03463 0 16200 0 03465 TQP MC0210 FIX PT 4F14959 03464 0 76000 0 00141 SLN 1 FLO PT 4F14960 03465 -0 75400 0 00000 MC0210 PXD 0,0 4F14961 03466 0 56000 1 06652 LDQ SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = I,... 4F14962 03467 -0 76300 0 00001 LGL 1 4F14963 03470 0 76000 0 00001 LBT 4F14964 03471 0 16200 0 03514 TQP MC0440 4F14965 03472 -0 76300 0 00005 LGL 5 SYMJ (S(I)) IS A VARIABLE 4F14966 03473 0 34000 0 01423 CAS L(H) 4F14967 03474 0 34000 0 01425 CAS L(O) 4F14968 03475 1 00000 0 03502 XBSAVE TXI MC0340,0,0 FLO PT 4F14969 03476 0 02000 0 03502 TRA MC0340 FLO PT 4F14970 03477 -0 76000 0 00141 MC0310 SLT 1 SYMJ (S(I)) IS A FIX PT VARIABLE 4F14971 03500 1 00003 2 03506 TXI MC0380,B,3 OK 4F14972 03501 0 07400 4 03400 TSX DIAG,4 ERROR.. FLO PT LITE ON 4F14973 03502 -0 76000 0 00141 MC0340 SLT 1 SYMJ(S(I)) IS A FLO PT VARIABLE 4F14974 03503 0 07400 4 03400 TSX DIAG,4 ERROR.. FLO PT LITE OFF 4F14975 03504 0 76000 0 00141 SLN 1 RESTORE FLO PT LITE 4F14976 03505 1 00003 2 03506 TXI MC0380,B,3 4F14977 03506 -3 00000 2 03510 MC0380 TXL MC0400,B,0 FINISHED WITH S(I) 4F14978 03507 1 77775 1 03465 TXI MC0210,A,-3 CONTINUE SCANNING S(I). J TO J+1 4F14979 03510 -0 53400 1 03461 MC0400 LXD XASAVE,A GO TO S(I+1) 4F14980 03511 1 00000 1 03512 MC0410 TXI MC0420,A,0 4F14981 03512 3 00000 1 03443 MC0420 TXH MC0030,A,0 4F14982 03513 0 02000 0 03537 TRA CP0000 EXIT TO COMPILER 4F14983 03514 -0 63400 2 03475 MC0440 SXD XBSAVE,B SYMJ (S(ITT = SAME S(K) 4F14984 03515 -0 53400 4 03461 LXD XASAVE,C 4F14985 03516 1 00000 4 03517 MC0460 TXI MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) 4F14986 03517 -0 50000 4 06650 MC0470 CAL SCRIPL,C 4F14987 03520 -0 32000 0 01452 ANA MASK2 EXTRACT S(K) IN ACC 4F14988 03521 0 34000 1 06652 CAS SCRIPL+2,A AND COMPARE WITH SYMJ (S(I)) 4F14989 03522 0 02000 0 03524 TRA MC0520 4F14990 03523 0 02000 0 03531 TRA MC0570 4F14991 03524 0 73400 2 01226 MC0520 PAX SIGMA1,B S(K) TO XB 4F14992 03525 0 50000 2 06174 CLA CPBETA,B 4F14993 03526 0 73400 2 00000 MC0540 PAX TAU1,B 4F14994 03527 -0 63400 2 03530 SXD MC0560,B 4F14995 03530 1 00000 4 03517 MC0560 TXI MC0470,C,0 4F14996 03531 -0 53400 2 03475 MC0570 LXD XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K 4F14997 03532 -0 50000 4 06651 CAL SCRIPL+1,C PLACE OP1 (S(K)) IN ACC 4F14998 03533 0 77100 0 00003 ARS 3 4F14999 03534 0 76000 0 00001 LBT 4F15000 03535 0 02000 0 03477 TRA MC0310 S(K) IS FIX PT 4F15001 03536 0 02000 0 03502 TRA MC0340 S(K) IS FLO PT 4F15002 4F15003 03537 0 76000 0 00140 CP0000 SLF TURN OFF ALL SENSE LITES 4F15004 03540 0 60000 0 06160 STZ FNSW 4F15005 03541 -0 53400 4 01122 LXD ARGCTR,C IS THIS AN FS STATEMENT 4F15006 03542 -3 00000 4 03550 TXL CP0090,C,0 NO 4F15007 03543 0 07400 4 01731 TSX CIT00,C YES - COMPILE FOUR 36 - BIT 4F15008 03544 0 00000 0 01531 HTR ALL1 STRINGS IN 1 AS A PRELUDE TO 4F15009 03545 0 00000 0 01531 HTR ALL1 FS STATEMENT COMPILATION 4F15010 03546 0 00000 0 01531 HTR ALL1 4F15011 03547 0 00000 0 01531 HTR ALL1 4F15012 03550 -0 50000 0 00030 CP0090 CAL EIFNO 4F15013 03551 -0 32000 0 01527 ANA MASK1 4F15014 03552 0 60200 0 06164 SLW CW STO INT. FORM. NO. IN DEC FIELD OF CW. 4F15015 03553 -0 53400 1 01117 LXD 3QBAR,A -30 TO XA 4F15016 03554 0 50000 1 06645 CP0130 CLA SCRIPL-3,A EXTRACT CURRENT S(I) 4F15017 03555 0 73400 2 00000 CP0140 PAX ,2 4F15018 03556 0 50000 2 06174 CLA CPBETA,B 4F15019 03557 0 62200 0 01363 STD PHI(I) STO ERAS. REL. ADD. IN PHI (I) 4F15020 03560 -0 32000 0 01452 ANA MASK2 4F15021 03561 0 73400 2 01356 CP0180 PAX TAU3,B 4F15022 03562 -0 63400 2 03607 SXD CP0400,B 4F15023 03563 0 76000 0 00006 COM 4F15024 03564 0 40000 0 01407 ADD L(1) 4F15025 03565 0 76700 0 00022 ALS 18 4F15026 03566 0 62200 0 03567 STD CP0240 4F15027 03567 1 00000 1 03570 CP0240 TXI CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) 4F15028 03570 -0 63400 1 01117 CP0250 SXD 3QBAR,A 4F15029 03571 0 56000 1 06651 LDQ SCRIPL+1,A EXAMINE OP1 (S(I)) 29,30,31,32 4F15030 03572 -0 76300 0 00036 LGL 30 4F15031 03573 0 76000 0 00001 LBT 4F15032 03574 0 02000 0 03576 TRA CP0310 OP1 (S(I)) 29 = 0 4F15033 03575 0 16200 0 03604 TQP CP0370 OP1 (S(I)) 30 = 0 4F15034 03576 0 76000 0 00141 CP0310 SLN 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO 4F15035 03577 -0 77300 0 00001 RQL 1 SET STORE LITE 4F15036 03600 0 16200 0 03602 TQP CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE 4F15037 03601 0 76000 0 00142 SLN 2 OP1 (S(I)) 31 = 1, SO SET STQ LITE 4F15038 03602 -0 77300 0 00001 CP0350 RQL 1 4F15039 03603 0 02000 0 03605 TRA CP0380 4F15040 03604 -0 77300 0 00002 CP0370 RQL 2 4F15041 03605 0 16200 0 03611 CP0380 TQP CP0420 TEST OP1 (S(I)) 32 4F15042 03606 -0 76000 0 00144 SLT 4 OP1 (S(I)) 32 = 1, SO SET FLPTSW 4F15043 03607 3 00000 0 00000 CP0400 TXH 0,0,0 4F15044 03610 0 02000 0 03612 TRA CP0430 4F15045 03611 0 76000 0 00144 CP0420 SLN 4 OP1 (S(I)) 32 = 0, SO SET FXPTSW 4F15046 03612 -0 75400 0 00000 CP0430 PXD 0,0 4F15047 03613 0 56000 1 06651 LDQ SCRIPL+1,A PLACE OP1 (S(I)) IN MQ 4F15048 03614 -0 76300 0 00006 LGL 6 4F15049 03615 0 34000 0 01427 CAS SPECOP 4F15050 03616 1 00000 0 03672 TXI CP0960,0,0 4F15051 03617 1 77775 1 04026 TXI CP2040,A,-3 4F15052 03620 0 40200 0 01401 SUB 11Z 4F15053 03621 0 10000 0 03650 TZE CP0760 4F15054 03622 -0 76300 0 00035 LGL 29 OP1 (S(I)) = + 4F15055 03623 0 16200 0 03710 TQP CP1130 OP1 (S(I)) 35 = 0 4F15056 03624 -0 53400 2 03607 CP0540 LXD CP0400,B OP1 (S(I)) 35 = 1 4F15057 03625 1 00003 2 03626 TXI CP0560,B,3 4F15058 03626 -3 00000 2 04622 CP0560 TXL ES0000,B,0 GO TO END-OF-SEGMENT SBRTN 4F15059 03627 -0 63400 2 03607 SXD CP0400,B 4F15060 03630 1 77775 1 03631 TXI CP0590,A,-3 4F15061 03631 -0 75400 0 00000 CP0590 PXD 0,0 4F15062 03632 0 56000 1 06651 LDQ SCRIPL+1,A PLACE OPJ (S(I)) IN MQ 4F15063 03633 -0 76300 0 00006 LGL 6 4F15064 03634 0 34000 0 01405 CAS STAR 4F15065 03635 0 02000 0 03716 TRA CP1200 OPJ (S(I)) = / 4F15066 03636 0 02000 0 03771 TRA CP1720 OPJ (S(I)) = * 4F15067 03637 0 40200 0 01401 SUB 11Z 4F15068 03640 0 10000 0 03663 TZE CP0880 OPJ (S(I)) = - 4F15069 03641 -0 50000 0 01550 CAL L(FAD) OPJ (S(I)) = + 4F15070 03642 -0 76000 0 00144 SLT 4 4F15071 03643 0 02000 0 03646 TRA CP0740 4F15072 03644 0 76000 0 00144 SLN 4 FIX PT. RESTORE FXPTSW 4F15073 03645 -0 50000 0 01532 CAL L(ADD) 4F15074 03646 0 60200 0 06165 CP0740 SLW CW+1 4F15075 03647 0 02000 0 03766 TRA CP1690 4F15076 03650 -0 76300 0 00035 CP0760 LGL 29 0P1 (S(I)) = - 4F15077 03651 0 16200 0 03660 TQP CP0850 4F15078 03652 -0 50000 0 01540 CAL L(CHS) 0P1 (S(I)) 35 = 1, SO 4F15079 03653 0 60200 0 06165 SLW CW+1 COMPILE CHS FOR 1ST ELEMENT 4F15080 03654 0 60000 0 06166 STZ CW+2 4F15081 03655 0 60000 0 06167 STZ CW+3 4F15082 03656 0 07400 2 05104 TSX COMP,B 4F15083 03657 0 02000 0 03624 TRA CP0540 4F15064 03660 -0 50000 0 01543 CP0850 CAL L(CLS) 0P1 (S(I)) 35 = O, SO 4F15085 03661 0 60200 0 06165 SLW CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT 4F15086 03662 0 02000 0 03712 TRA CP1150 4F15087 03663 -0 50000 0 01553 CP0880 CAL L(FSB) OPJ (S(I)) = - 4F15088 03664 -0 76000 0 00144 SLT 4 4F15089 03665 0 02000 0 03670 TRA CP0940 4F15090 03666 0 76000 0 00144 SLN 4 FIX PT. RESTORE FXPTSW 4F15091 03667 -0 50000 0 01574 CAL L(SUB) 4F15092 03670 0 60200 0 06165 CP0940 SLW CW+1 4F15093 03671 0 02000 0 03766 TRA CP1690 4F15094 03672 0 16200 0 03674 CP0960 TQP CP0980 4F15095 03673 0 02000 0 04363 TRA CP4140 4F15096 03674 -0 76300 0 00035 CP0980 LGL 29 0P1 (S(I)) = * 4F15097 03675 0 76000 0 00143 SLN 3 TURN LITE 3 ON 4F15098 03676 0 76000 0 00001 LBT TEST 0P1 (S(I)) 34 4F15099 03677 0 02000 0 03702 TRA CP1050 0P1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON 4F15100 03700 -0 76000 0 00143 SLT 3 0P1 (S(I)) 34 = 1, SO TURN LITE 3 OFF 4F15101 03701 3 00000 0 00000 TXH 0,0,0 4F15102 03702 0 16200 0 03704 CP1050 TQP CP1070 4F15103 03703 0 02000 0 03624 TRA CP0540 0P1 (S(I)) 35 = 1, SO GO MODIFY J 4F15104 03704 -0 50000 0 01556 CP1070 CAL L(LDQ) 0P1 (S(I)) 35 = 0 4F15105 03705 -0 76000 0 00143 SLT 3 4F15106 03706 0 02000 0 03711 TRA CP1140 ELI (S(II) TO MQ 4F15107 03707 0 76000 0 00143 SLN 3 ELI (S(II) TO ACC 4F15108 03710 -0 50000 0 01541 CP1130 CAL L(CLA) 4F15109 03711 0 60200 0 06165 CP1140 SLW CW+1 4F15110 03712 0 07400 4 05112 CP1150 TSX AC0000,C ADDRESS COMPILE SYM1 (S(I)) 4F15111 03713 0 07400 2 05104 TSX COMP,B 4F15112 03714 0 60000 0 06164 STZ CW RESET CW 4F15113 03715 0 02000 0 03624 TRA CP0540 GO MODIFY J 4F15114 03716 -0 76000 0 00143 CP1200 SLT 3 OPJ (S(I)) = / 4F15115 03717 0 02000 0 03731 TRA CP1330 4F15116 03720 -0 76000 0 00144 SLT 4 PREDECESSOR IN ACC 4F15117 03721 0 02000 0 03764 TRA CP1670 FLO PT. 4F15118 03722 0 76000 0 00144 SLN 4 FIX PT. RESTORE FXPTSW 4F15119 03723 0 07400 4 01731 TSX CIT00,C COMPILE LRS 35 4F15120 03724 0 00000 0 01406 HTR L(0) 4F15121 03725 0 00000 0 01560 HTR L(LRS) 4F15122 03726 0 00000 0 01406 HTR L(0) 4F15123 03727 0 00000 0 01472 HTR DEC35 4F15124 03730 0 02000 0 03734 TRA CP1450 4F15125 03731 -0 76000 0 00144 CP1330 SLT 4 PREDECESSOR IN MQ 4F15126 03732 0 02000 0 03753 TRA CP1570 AND SEGMENT IS 4F15127 03733 0 76000 0 00144 SLN 4 FIX PT. RESTORE FXPTSW 4F15128 03734 0 50000 0 01547 CP1450 CLA L(DVP) 4F15129 03735 0 60100 0 06165 STO CW+1 4F15130 03736 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15131 03737 0 07400 2 05104 TSX COMP,B COMPILE DVP SYMJ (S(I)) 4F15132 03740 0 07400 4 01731 TSX CIT00,C COMPILE CLM 4F15133 03741 0 00000 0 01406 HTR L(0) 4F15134 03742 0 00000 0 01542 HTR L(CLM) 4F15135 03743 0 00000 0 01406 HTR L(0) 4F15136 03744 0 00000 0 01406 HTR L(0) 4F15137 03745 0 07400 4 01731 TSX CIT00,C COMPILE LLS 18 4F15138 03746 0 00000 0 01406 HTR L(0) 4F15139 03747 0 00000 0 01557 HTR L(LLS) 4F15140 03750 0 00000 0 01406 HTR L(0) 4F15141 03751 0 00000 0 01466 HTR DEC18 4F15142 03752 0 02000 0 03624 TRA CP0540 GO MODIFY J 4F15143 03753 0 50000 0 01573 CP1570 CLA L(STQ) PREDECESSOR IN MQ 4F15144 03754 0 60100 0 06165 STO CW+1 AND SEGMENT IS FLO PT 4F15145 03755 0 50000 0 01505 CLA X( 4F15146 03756 0 60100 0 06166 STO CW+2 4F15147 03757 0 60000 0 06167 STZ CW+3 4F15148 03760 0 07400 2 05104 TSX COMP,B COMPILE STO 700000 4F15149 03761 0 50000 0 01541 CLA L(CLA) 4F15150 03762 0 60100 0 06165 STO CW+1 4F15151 03763 0 07400 2 05104 TSX COMP,B COMPILE CLA 700000 4F15152 03764 0 50000 0 01551 CP1670 CLA L(FDP) 4F15153 03765 0 60100 0 06165 STO CW+1 COMPILE FOP SYMJ (S(I)) 4F15154 03766 0 07400 4 05112 CP1690 TSX AC0000,C ADDRESS COMPILE SYMJ (S(I)) 4F15155 03767 0 07400 2 05104 TSX COMP,B 4F15156 03770 0 02000 0 03624 TRA CP0540 GO MODIFY J 4F15157 03771 -0 76000 0 00143 CP1720 SLT 3 OPJ(S(I))=* 4F15158 03772 0 02000 0 04004 TRA CP1840 4F15159 03773 0 50000 0 01572 CLA L(STO) PREDECESSOR IN ACC 4F15160 03774 0 60100 0 06165 STO CW+1 4F15161 03775 0 50000 0 01505 CLA X( 4F15162 03776 0 60100 0 06166 STO CW+2 4F15163 03777 0 60000 0 06167 STZ CW+3 4F15164 04000 0 07400 2 05104 TSX COMP,B COMPILE STO 700000 4F15165 04001 0 50000 0 01556 CLA L(LDQ) 4F15166 04002 0 60100 0 06165 STO CW+1 4F15167 04003 0 07400 2 05104 TSX COMP,B COMPILE LDQ 700000 4F15168 04004 0 76000 0 00143 CP1840 SLN 3 TURN LATE 3 ON 4F15169 04005 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) 4F15170 04006 -0 76000 0 00144 SLT 4 4F15171 04007 0 02000 0 04022 TRA CP2000 4F15172 04010 0 76000 0 00144 SLN 4 FIX PT. RESTORE FXPTSW 4F15173 04011 0 50000 0 01562 CLA L(MPY) 4F15174 04012 0 60100 0 06165 STO CW+1 4F15175 04013 0 07400 2 05104 TSX COMP,B COMPILE MPY SYMJ(S(I)) 4F15176 04014 0 07400 4 01731 TSX CIT00,C COMPILE ALS 17 4F15177 04015 0 00000 0 01406 HTR L(0) 4F15178 04016 0 00000 0 01533 HTR L(ALS) 4F15179 04017 0 00000 0 01406 HTR L(0) 4F15180 04020 0 00000 0 01465 HTR DEC17 4F15181 04021 0 02000 0 03624 TRA CP0540 GO MODIFY J 4F15182 04022 0 50000 0 01552 CP2000 CLA L(FMP) FLO PT. 4F15183 04023 0 60100 0 06165 STO CW+1 4F15184 04024 0 07400 2 05104 TSX COMP,B COMPILE FMP SYMJ(S(I)) 4F15185 04025 0 02000 0 03624 TRA CP0540 GO MODIFY J. 4F15186 04026 -0 76300 0 00007 CP2040 LGL 7 OPI(S(I))=SPOP 4F15187 04027 0 76000 0 00001 LBT TEST OP1(S(I))12 4F15188 04030 0 16200 0 04150 TQP CP2650 LIB OR OPEN FUNCTION 4F15189 04031 0 16200 0 04473 TQP CP5000 FN-FUNCTION 4F15190 04032 -0 75400 0 00000 PXD 0,0 FS-FUNCTION 4F15191 04033 0 76300 0 00017 LLS 15 PUT TYPE NO IN ADD(ACC) 4F15192 04034 -0 50100 0 01503 ORA P( FORM 4...TYPE NO. 4F15193 04035 0 60200 0 06162 SLW ARGORG AND STO IN ARGORG 4F15194 04036 -0 32000 0 01452 ANA MASK2 4F15195 04037 -0 50100 0 01505 ORA X( FORM 7...TYPE NO. 4F15196 04040 0 60200 0 06163 SLW XRSAVE AND STO IN XRSAVE 4F15197 04041 0 50000 1 06651 CLA SCRIPL+1,A 4F15198 04042 0 76000 0 00001 LBT EXAMINE OP2(S(I))35 4F15199 04043 0 02000 0 04052 TRA CP2150 1ST ARG STORED 4F15200 04044 0 07400 4 01731 CP2100 TSX CIT00,C 1ST ARG IN ACC 4F15201 04045 0 00000 0 01406 HTR L(0) COMPILE STO 4...TYPE NO. + 0 4F15202 04046 0 00000 0 01572 HTR L(STO) 4F15203 04047 0 00000 0 06162 HTR ARGORG 4F15204 04050 0 00000 0 01406 HTR L(0) 4F15205 04051 1 77775 1 04057 TXI CP2200,A,-3 GO ON TO OP3(S(I)) 4F15206 04052 -0 50000 0 01541 CP2150 CAL L(CLA) 4F15207 04053 0 60200 0 06165 SLW CW+1 4F15208 04054 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15209 04055 0 07400 2 05104 TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15210 04056 0 02000 0 04044 TRA CP2100 4F15211 04057 0 60000 0 06164 CP2200 STZ CW RESET CW 4F15212 04060 -0 53400 2 03607 LXD CP0400,B 4F15213 04061 1 00003 2 04062 TXI CP2230,B,3 4F15214 04062 3 77772 2 04125 CP2230 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15215 04063 -0 63400 2 03607 SXD CP0400,B 4F15216 04064 0 50000 1 06651 CLA SCRIPL+1,A 4F15217 04065 0 76000 0 00001 LBT EXAMINE OP3(S(I))35 4F15218 04066 0 02000 0 04075 TRA CP2300 2ND ARG STORED 4F15219 04067 0 07400 4 01731 CP2250 TSX CIT00,C 2ND ARG IN MQ 4F15220 04070 0 00000 0 01406 HTR L(0) COMPILE STO 4...TYPE NO, + 1 4F15221 04071 0 00000 0 01573 HTR L(STQ) 4F15222 04072 0 00000 0 06162 HTR ARGORG 4F15223 04073 0 00000 0 01454 HTR 2E18 4F15224 04074 1 77775 1 04102 TXI CP2350,A,-3 GO ON TO SYM4(S(I)) 4F15225 04075 -0 50000 0 01556 CP2300 CAL L(LDQ) 4F15226 04076 0 60200 0 06165 SLW CW+1 4F15227 04077 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15228 04100 0 07400 2 05104 TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15229 04101 0 02000 0 04067 TRA CP2250 4F15230 04102 0 50000 0 01521 CP2350 CLA DECMI2 INITIALIZE DEC(P(CNTR) TO 2 4F15231 04103 0 60200 0 06161 SLW P(CNTR 4F15232 04104 -0 53400 2 03607 CP2370 LXD CP0400,B 4F15233 04105 1 00003 2 04106 TXI CP2390,B,3 4F15234 04106 3 77772 2 04125 CP2390 TXH CP2500,B,-6 FINISHED WITH S(I) 4F15235 04107 -0 63400 2 03607 SXD CP0400,B 4F15236 04110 -0 50000 0 01541 CAL L(CLA) 4F15237 04111 0 60200 0 06165 SLW CW+1 4F15236 04112 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,... 4F15239 04113 0 07400 2 05104 TSX COMP,B COMPILE CLA SYMJ(S(I)), J=4,... 4F15240 04114 0 07400 4 01731 TSX CIT00,C COMPILE STO 4...TYPE NO, + J-2, J=4,... 4F15241 04115 0 00000 0 01406 HTR L(0) 4F15242 04116 0 00000 0 01572 HTR L(STO) 4F15243 04117 0 00000 0 06162 HTR ARGORG 4F15244 04120 0 00000 0 06161 HTR P(CNTR 4F15245 04121 0 50000 0 06161 CLA P(CNTR UPDATE P(CNTR 4F15246 04122 0 40000 0 01454 ADD 2E18 4F15247 04123 0 60100 0 06161 STO P(CNTR 4F15248 04124 1 77775 1 04104 TXI CP2370,A,-3 4F15249 04125 -0 53400 1 01117 CP2500 LXD 3QBAR,A FINISHED WITH S(I) 4F15250 04126 -0 50000 0 01575 CAL L(SXD) 4F15251 04127 0 60200 0 06165 SLW CW+1 4F15252 04130 -0 50000 0 06163 CAL XRSAVE 4F15253 04131 0 60200 0 06166 SLW CW+2 4F15254 04132 -0 50000 0 01412 CAL L(4) 4F15255 04133 0 60200 0 06167 SLW CW+3 4F15256 04134 0 07400 2 05104 TSX COMP,B COMPILE SXD 7...TYPE NO. , 4 4F15257 04135 -0 50000 0 01602 CAL L(TSX) 4F15258 04136 0 60200 0 06165 SLW CW+1 4F15259 04137 -0 50000 1 06652 CAL SCRIPL+2,A 4F15260 04140 0 60200 0 06166 SLW CW+2 4F15261 04141 0 07400 2 05104 TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15262 04142 -0 50000 0 01561 CAL L(LXD) 4F15263 04143 0 60200 0 06165 SLW CW+1 4F15264 04144 -0 50000 0 06163 CAL XRSAVE 4F15265 04145 0 60200 0 06166 SLW CW+2 4F15266 04146 0 02000 0 05241 TRA CP6000 4F15267 04147 1 00000 0 04622 CP5830 TXI ES0000,0,0 4F15268 4F15269 04150 -0 76300 0 00024 CP2650 LGL 20 TEST OPI(S(I))33 4F15270 04151 0 16200 0 04217 TQP CP3060 0... LIB. SBRTN 4F15271 04152 0 50200 0 06164 CLS CW 1... OPEN SBRTN 4F15272 04153 0 60100 0 06164 STO CW CW TO -CW 4F15273 04154 0 50000 1 06647 CLA SCRIPL-1,A 4F15274 04155 0 60100 0 06166 STO CW+2 4F15275 04156 0 07400 2 05104 TSX COMP,B COMPILE FUNCTION NAME 4F15276 04157 0 60000 0 06164 STZ CW RESET CW 4F15277 04160 -0 53400 2 03607 LXD CP0400,B 4F15278 04161 -3 77767 2 04203 TXL CP2930,B,-9 4F15279 04162 -0 50000 0 01531 CAL ALL1 OPEN UNIVARIATE FUNCTION 4F15280 04163 0 60200 0 06164 SLW CW 4F15281 04164 0 50000 1 06651 CLA SCRIPL+1,A 4F15282 04165 0 76000 0 00001 LBT EXAMINE OP2(S(I))35 4F15283 04166 0 02000 0 04201 TRA CP2900 0... ARG STORED 4F15284 04167 0 77100 0 00001 ARS 1 1... ARG NOT STORED 4F15285 04170 0 56000 0 01512 LDQ ADPLUS 4F15286 04171 0 76000 0 00001 LBT 4F15287 04172 0 02000 0 04174 TRA CP2860 4F15286 04173 0 56000 0 01524 LDQ ADSTAR 4F15289 04174 -0 60000 0 06166 CP2860 STQ CW+2 4F15290 04175 0 60000 0 06167 STZ CW+3 4F15291 04176 0 07400 2 05104 CP2880 TSX COMP,B COMPILE ACC OR MQ INDICATOR 4F15292 04177 0 60000 0 06164 STZ CW RESET CW 4F15293 04200 0 02000 0 04622 TRA ES0000 4F15294 04201 0 07400 4 05112 CP2900 TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15295 04202 0 02000 0 04176 TRA CP2880 GO COMPILE SYM2(S(I)) 4F15296 04203 0 07400 4 05112 CP2930 TSX AC0000,C OPEN MULTIVARIATE FUNCTION 4F15297 04204 -0 53400 2 03607 LXD CP0400,B 4F15298 04205 1 00003 2 04206 TXI CP2960,B,3 4F15299 04206 3 77772 2 04212 CP2960 TXH CP3000,B,-6 4F15300 04207 -0 63400 2 03607 SXD CP0400,B 4F15301 04210 0 07400 2 05104 TSX COMP,B COMPILE SYMJ(S(I)) 4F15302 04211 1 77775 1 04203 TXI CP2930,A,-3 4F15303 04212 -0 50000 0 01531 CP3000 CAL ALL1 4F15304 04213 0 60200 0 06164 SLW CW 4F15305 04214 0 07400 2 05104 TSX COMP,B COMPILE LAST ARGUMENT NAME 4F15306 04215 0 60000 0 06164 STZ CW RESET CW 4F15307 04216 0 02000 0 04622 TRA ES0000 GO TO END-OF-SEGMENT SBRTN 4F15308 04217 -3 77767 2 04246 CP3060 TXL CP3350,B,-9 4F15309 04220 0 50000 1 06651 CLA SCRIPL+1,A CLOSED UNIVARIATE FUNCTION 4F15310 04221 0 76000 0 00001 LBT EXAMINE OP2(S(I))35 4F15311 04222 0 02000 0 04240 TRA CP3280 0... ARG STORED 4F15312 04223 0 50000 0 01575 CP3100 CLA L(SXD) 1... ARG IN ACC 4F15313 04224 0 60100 0 06165 STO CW+1 4F15314 04225 0 50000 0 01505 CLA X( 4F15315 04226 0 60100 0 06166 STO CW+2 4F15316 04227 0 50000 0 01412 CLA L(4) 4F15317 04230 0 60100 0 06167 STO CW+3 4F15318 04231 0 07400 2 05104 TSX COMP,B COMPILE SXD7...0,4 4F15319 04232 0 50000 0 01602 CLA L(TSX) 4F15320 04233 0 60100 0 06165 STO CW+1 4F15321 04234 0 50000 1 06647 CLA SCRIPL-1,A 4F15322 04235 0 60100 0 06166 STO CW+2 4F15323 04236 0 07400 2 05104 TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15324 04237 0 02000 0 04615 TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15325 04240 0 50000 0 01541 CP3280 CLA L(CLA) 4F15331 04241 0 60100 0 06165 STO CW+1 4F15332 04242 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15333 04243 0 07400 2 05104 TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15334 04244 0 60000 0 06164 STZ CW RESET CW 4F15335 04245 0 02000 0 04223 TRA CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15336 04246 -3 77764 2 04272 CP3350 TXL CP3560,B,-12 4F15337 04247 0 50000 1 06651 CLA SCRIPL+1,A CLOSED BIVARIATE FUNCTION 4F15338 04250 0 76000 0 00001 LBT EXAMINE OP2(S(I))35 4F15339 04251 0 02000 0 04260 TRA CP3450 0... ARG1 STORED 4F15340 04252 0 50000 0 01556 CP3390 CLA L(LDQ) 1... ARG1 IN ACC 4F15341 04253 0 60100 0 06165 STO CW+1 4F15342 04254 1 77775 1 04255 TXI CP3420,A,-3 4F15343 04255 0 07400 4 05112 CP3420 TSX AC0000,C ADDRESS COMPILE SYM3(S(I)) 4F15344 04256 0 07400 2 05104 TSX COMP,B COMPILE LDQ SYM3(S(I)) 4F15345 04257 1 00003 1 04223 TXI CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE 4F15346 04260 0 50000 1 06654 CP3450 CLA SCRIPL+4,A 4F15347 04261 0 76000 0 00001 LBT EXAMINE OP3(S(I))35 4F15348 04262 0 02000 0 04264 TRA CP3490 0... ARG2 STORED 4F15349 04263 0 02000 0 04240 TRA CP3280 1... ARG2 IN MO 4F15350 04264 0 50000 0 01541 CP3490 CLA L(CLA) 4F15351 04265 0 60100 0 06165 STO CW+1 4F15352 04266 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15353 04267 0 07400 2 05104 TSX COMP,B COMPILE CLA SYM2(S(I)) 4F15354 04270 0 60000 0 06164 STZ CW REST CW 4F15355 04271 0 02000 0 04252 TRA CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE 4F15356 04272 0 50000 1 06651 CP3560 CLA SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION 4F15357 04273 0 76000 0 00001 LBT EXAMINE OP2(S(II)35 4F15358 04274 1 77772 1 04324 TXI CP3820,A,-6 0... ARG1 STORED 4F15359 04275 1 77772 1 04276 TXI CP3600,A,-6 1... ARG1 IN ACC 4F15360 04276 0 50000 0 01521 CP3600 CLA DECMI2 4F15361 04277 0 60100 0 06161 STO P(CNTR INITIALIZE P(CNTR TO -2 4F15362 04300 0 50000 0 01556 CP3620 CLA L(LDQ) 4F15363 04301 0 60100 0 06165 STO CW+1 4F15364 04302 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15365 04303 0 07400 2 05104 TSX COMP,B COMPILE LDQ SYMJ(S(I)) 4F15366 04304 0 50000 0 01573 CLA L(STQ) 4F15367 04305 0 60100 0 06165 STO CW+1 4F15368 04306 0 50000 0 01503 CLA P( 4F15369 04307 0 60100 0 06166 STO CW+2 4F15370 04310 0 50000 0 06161 CLA P(CNTR 4F15371 04311 0 60100 0 06167 STO CW+3 4F15372 04312 0 40200 0 01454 SUB 2E18 4F15373 04313 0 60100 0 06161 STO P(CNTR 4F15374 04314 0 07400 2 05104 TSX COMP,B COMPILE STQ 4...0-(J-2) 4F15375 04315 -0 53400 2 03607 LXD CP0400,B 4F15376 04316 1 00003 2 04317 TXI CP3770,B,3 4F15377 04317 -3 77764 2 04322 CP3770 TXL CP3800,B,-12 4F15378 04320 -0 53400 1 01117 LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15379 04321 1 77775 1 04252 TXI CP3390,A,-3 4F15380 04322 -0 63400 2 03607 CP3800 SXD CP0400,B 4F15381 04323 1 77775 1 04300 TXI CP3620,A,-3 GO PICK UP NEXT ARG. 4F15382 04324 0 50000 1 06646 CP3820 CLA SCRIPL-2,A 4F15383 04325 0 76000 0 00001 LBT EXAMINE OP3(S(I))35 4F15384 04326 1 00006 1 04355 TXI CP4070,A,6 0... ARG2 STORED 4F15385 04327 0 50000 0 01521 CLA DECMI2 1... ARG2 IN MQ 4F15386 04330 0 60100 0 06161 STO P(CNTR 4F15387 04331 0 50000 0 01541 CP3870 CLA L(CLA) 4F15388 04332 0 60100 0 06165 STO CW+1 4F15389 04333 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... 4F15390 04334 0 07400 2 05104 TSX COMP,B COMPILE CLA SYMJ(S(I)) 4F15391 04335 0 50000 0 01572 CLA L(STO) 4F15392 04336 0 60100 0 06165 STO CW+1 4F15393 04337 0 50000 0 01503 CLA P( 4F15394 04340 0 60100 0 06166 STO CW+2 4F15395 04341 0 50000 0 06161 CLA P(CNTR 4F15396 04342 0 60100 0 06167 STO CW+3 4F15397 04343 0 40200 0 01454 SUB 2E18 4F15398 04344 0 60100 0 06161 STO P(CNTR 4F15399 04345 0 07400 2 05104 TSX COMP,B COMPILE STO 4...0-(J-2) 4F15400 04346 -0 53400 2 03607 LXD CP0400,B 4F15401 04347 1 00003 2 04350 TXI CP4020,B,3 4F15402 04350 -3 77764 2 04353 CP4020 TXL CP4050,B,-12 4F15403 04351 -0 53400 1 01117 LXD 3QBAR,A FINISHED WITH ARG VECTOR 4F15404 04352 1 77775 1 04240 TXI CP3280,A,-3 4F15405 04353 -0 63400 2 03607 CP4050 SXD CP0400,B 4F15406 04354 1 77775 1 04331 TXI CP3870,A,-3 GO PICK UP NEXT ARG 4F15407 04355 0 50000 0 01541 CP4070 CLA L(CLA) 4F15408 04356 0 60100 0 06165 STO CW+1 4F15409 04357 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYM2(S(II) 4F15410 04360 0 07400 2 05104 TSX COMP,B COMPILE CLASYM2(S(I)) 4F15411 04361 0 60000 0 06164 STZ CW RESET CW 4F15412 04362 1 77772 1 04276 TXI CP3600,A,-6 4F15413 04363 -0 76300 0 00033 CP4140 LGL 27 OP1(S(I))=** 4F15414 04364 0 16200 0 04415 TQP CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 4F15415 04365 0 76000 0 00001 LBT OPEN SBRTN SINCE OP1(S(I))33=1 4F15416 04366 0 02000 0 04371 TRA CP4200 BASE FIX PT SINCE OP1(S(1))32=0 4F15417 04367 0 50000 0 01525 CLA STRSTR BASE FLO PT SINCE OP1(S(1))32=1 4F15418 04370 0 02000 0 04372 TRA CP4210 4F15419 04371 0 50000 0 01524 CP4200 CLA ADSTAR 4F15420 04372 0 60100 0 06165 CP4210 STO CW+1 4F15421 04373 -0 76300 0 00002 LGL 2 EXAMINE OP1(S(I))35 4F15422 04374 0 16200 0 04403 TQP CP4310 0... BASE STORED 4F15423 04375 0 56000 0 01524 LDQ ADSTAR 1... BASE NOT STORED 4F15424 04376 0 76000 0 00001 LBT EXAMINE OP1(S(I)34 4F15425 04377 0 56000 0 01512 LDQ ADPLUS 0... BASE IN ACC 4F15426 04400 -0 60000 0 06166 STQ CW+2 1...BASE IN MQ 4F15427 04401 0 60000 0 06167 STZ CW+3 4F15428 04402 0 02000 0 04404 TRA CP4320 4F15429 04403 0 07400 4 05112 CP4310 TSX AC0000,C ADDRESS COMPILE SYMI(S(I)) 4F15430 04404 0 50200 0 06164 CP4320 CLS CW 4F15431 04405 0 60100 0 06164 STO CW CW TO -CW 4F15432 04406 0 07400 2 05104 TSX COMP,B COMPILE BASE 4F15433 04407 0 60000 0 06164 STZ CW RESET CW 4F15434 04410 0 50000 1 06655 CLA SCRIPL+5,A 4F15435 04411 0 60100 0 06166 STO CW+2 4F15436 04412 0 07400 2 05104 TSX COMP,B COMPILE FIX PT CONSTANT EXPONENT 4F15437 04413 0 60000 0 06165 STZ CW+1 RESET CW+1 4F15438 04414 0 02000 0 04622 TRA ES0000 4F15439 04415 -0 76300 0 00003 CP4410 LGL 3 CLOSED EXP. SBRTN 4F15440 04416 0 76000 0 00001 LBT EXAMINE OP1(S(I))35 4F15441 04417 0 02000 0 04462 TRA CP4860 0... BASE STORED 4F15442 04420 0 50000 0 01556 CP4440 CLA L(LDQ) 1... BASE IN ACC. 4F15443 04421 0 60100 0 06165 STO CW+1 4F15444 04422 1 77775 1 04423 TXI CP4470,A,-3 4F15445 04423 0 07400 4 05112 CP4470 TSX AC0000,C ADDRESS COMPILE SYM2(S(I)) 4F15446 04424 0 07400 2 05104 TSX COMP,B COMPILE LDQ SYM2 (S(I)) 4F15447 04425 0 50000 0 01575 CP4490 CLA L(SXD) 4F15448 04426 0 60100 0 06165 STO CW+1 4F15449 04427 0 50000 0 01505 CLA X( 4F15450 04430 0 60100 0 06166 STO CW+2 4F15451 04431 0 50000 0 01412 CLA L(4) 4F15452 04432 0 60100 0 06167 STO CW+3 4F15453 04433 0 07400 2 05104 TSX COMP,B COMPILE SXD 7...0.4 4F15454 04434 0 50000 0 01602 CLA L(TSX) 4F15455 04435 0 60100 0 06165 STO CW+1 4F15456 04436 0 50000 1 06651 CLA SCRIPL+1,A 4F15457 04437 0 77100 0 00003 ARS 3 4F15458 04440 0 76000 0 00001 LBT EXAMINE OP2(S(I))32 4F15459 04441 1 00003 1 04447 TXI CP4660,A,3 O... 4F15460 04442 0 50000 0 01516 CLA FLFL 1... FLO**FLO 4F15461 04443 0 56000 1 06646 LDQ SCRIPL-2,A EXAMINE OPI(S(I)I32 TO CHECK 4F15462 04444 -0 77300 0 00040 RQL 32 FOR MIXED EXPONENTIAL EXPRESSION 4F15463 04445 0 16200 0 03501 TQP MC0310+2 ERROR FIX PT BASE, FLOAT EXP. 4F15464 04446 0 02000 0 04454 TRA CP4730 4F15465 04447 0 56000 1 06651 CP4660 LDQ SCRIPL+1,A 4F15466 04450 -0 77300 0 00040 RQL 32 EXAMINE OP1(S(I))32 4F15467 04451 0 50000 0 01514 CLA FXFX 4F15468 04452 0 16200 0 04454 TQP CP4730 0...FX**FX 4F15469 04453 0 50000 0 01515 CLA FLFX 1... FL**FX 4F15470 04454 0 60100 0 06166 CP4730 STO CW+2 4F15471 04455 0 60100 0 01347 STO G 4F15472 04456 0 07400 2 05104 TSX COMP,B COMPILE TSX FXFX/FLEX/FLFL,4 4F15473 04457 0 07400 1 03321 TSX TET00,A 4F15474 04460 0 00000 0 00011 HTR 9 4F15475 04461 0 02000 0 04615 TRA CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15476 04462 0 50000 0 01541 CP4860 CLA L(CLA) 4F15462 04463 0 60100 0 06165 STO CW+1 4F15483 04464 0 07400 4 05112 TSX AC0000,C ADDRESS COMPILE SYM1(S(I)) 4F15484 04465 0 07400 2 05104 TSX COMP,B COMPILE CLA SYMI(S(I)) 4F15485 04466 0 60000 0 06164 STZ CW 4F15486 04467 0 50000 1 06654 CLA SCRIPL+4,A 4F15487 04470 0 76000 0 00001 LBT EXAMINE OP2*S(I))35 4F15488 04471 1 00000 0 04420 TXI CP4440,0,0 0...EXP STORED 4F15489 04472 1 77775 1 04425 TXI CP4490,A,-3 1... EXP IN MQ 4F15490 4F15491 04473 0 50000 0 00030 CP5000 CLA EIFNO FN FUNCTION 4F15492 04474 0 40000 0 01454 ADD 2E18 UPDATE EIFNO 4F15493 04475 0 60100 0 00030 STO EIFNO AND 4F15494 04476 0 60100 0 06160 STO FNSW SET FN SWITCH 4F15495 04477 0 62200 0 01105 STD 1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY, 4F15496 04500 0 53400 4 01407 LXA L(1),C INITIALIZE 5TAIX TO 1 4F15497 04501 0 50000 1 06650 CP5050 CLA SCRIPL,A EXAMIN TAGJ(S(I)), J=2,... 4F15498 04502 -0 12000 0 04516 TMI CP5180 NONSUBSCRIPTED 4F15499 04503 -0 63400 2 04147 SXD CP5830,B SUBSCRIPTED-IS THERE A GENERAL TAG 4F15500 04504 -0 63400 4 04577 SXD STACTR,C 4F15501 04505 0 07400 4 05112 TSX AC0000,C 4F15502 04506 -0 50000 0 06173 CAL TAGPRT 4F15503 04507 -0 10000 0 04522 TNZ CP5220 GENERAL TAG PRESENT 4F15504 04510 -0 50000 0 06167 CAL CW+3 NO GENERAL TAG PRESENT,SO PLACE 4F15505 04511 0 77100 0 00013 ARS 11 RELATIVE ADDRESS IN OPJ(S(I))14-28 AND 4F15506 04512 -0 50100 0 01474 ORA NGTBIT SET OPJ(S(I))10=I FROM NGTBIT 4F15507 04513 -0 60200 1 06651 ORS SCRIPL+1,A 4F15508 04514 -0 53400 4 04577 CP5160 LXD STACTR,C 4F15509 04515 -0 53400 2 04147 LXD CP5830,B 4F15510 04516 1 00003 2 04517 CP5180 TXI CP5190,B,3 4F15511 04517 3 77772 2 04552 CP5190 TXH CP5460,B,-6 FINISHED WITH PRELUDE,IF ANY 4F15512 04520 1 00001 4 04521 TXI CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 4F15513 04521 1 77775 1 04501 CP5210 TXI CP5050,A,-3 GO ON TO NEXT ARGUMENT 4F15514 04522 -0 50000 0 01566 CP5220 CAL L(PXD) 4F15515 04523 0 60200 0 06165 SLW CW+1 4F15516 04524 0 07400 2 05104 TSX COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I)) 4F15517 04525 0 60000 0 06164 STZ CW RESET CW 4F15518 04526 0 07400 4 01731 TSX CIT00,C COMPILE ARS 18 4F15519 04527 0 00000 0 01406 HTR L(0) 4F15520 04530 0 00000 0 01535 HTR L(ARS) 4F15521 04531 0 00000 0 01406 HTR L(0) 4F15522 04532 0 00000 0 01466 HTR DEC18 4F15523 04533 0 07400 4 01731 TSX CIT00,C COMPILE ADD *-2 4F15524 04534 0 00000 0 01406 HTR L(0) 4F15525 04535 0 00000 0 01532 HTR L(ADD) 4F15526 04536 0 00000 0 01511 HTR PROCTR 4F15527 04537 0 00000 0 01521 HTR DECMI2 4F15528 04540 -0 50000 0 01571 CAL L(STA) 4F15529 04541 0 60200 0 06165 SLW CW+1 4F15530 04542 -0 50000 0 00030 CAL EIFNO 4F15531 04543 -0 32000 0 01527 ANA MASK1 4F15532 04544 0 60200 0 06166 SLW CW+2 4F15533 04545 -0 53400 4 04577 LXD STACTR,C 4F15534 04546 -0 75400 4 00000 PXD 0,C 4F15535 04547 0 60200 0 06167 SLW CW+3 4F15536 04550 0 07400 2 05104 TSX COMP,B COMPILE STA IFN+STAIX 4F15537 04551 1 00000 0 04514 TXI CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY 4F15538 04552 -0 53400 1 01117 CP5460 LXD 3QBAR,A 4F15539 04553 -0 50000 0 01575 CAL L(SXD) 4F15540 04554 0 60200 0 06165 SLW CW+1 4F15541 04555 -0 50000 0 01505 CAL X( 4F15542 04556 0 60200 0 06166 SLW CW+2 4F15543 04557 -0 50000 0 01412 CAL L(4) 4F15544 04560 0 60200 0 06167 SLW CW+3 4F15545 04561 0 07400 2 05104 TSX COMP,B COMPILE SXD 7,4 4F15546 04562 -0 50000 0 00030 CAL EIFNO 4F15547 04563 -0 32000 0 01527 ANA MASK1 4F15548 04564 0 60200 0 06164 SLW CW 4F15549 04565 -0 50000 0 01602 CAL L(TSX) 4F15550 04566 0 60200 0 06165 SLW CW+1 4F15551 04567 -0 50000 1 06652 CAL SCRIPL+2,A 4F15552 04570 0 60200 0 06166 SLW CW+2 4F15553 04571 0 07400 2 05104 TSX COMP,B COMPILE TSX SYMI(S(I)),4 4F15554 04572 0 60000 0 06164 STZ CW RESET CW 4F15555 04573 1 77775 1 04574 TXI CP5680,A,-3 POSITION XA TO SYM2(S(I)) 4F15556 04574 0 50000 1 06650 CP5680 CLA SCRIPL,A 4F15557 04575 0 12000 0 04600 TPL CP5700 4F15558 04576 0 07400 4 05112 TSX AC0000,C NONSUBSCRIPTED 4F15559 04577 1 00000 0 04607 STACTR TXI CP5720,0,0 4F15560 04600 0 56000 1 06651 CP5700 LDQ SCRIPL+1,A SUBSCRIPTED 4F15561 04601 -0 76300 0 00013 LGL 11 4F15562 04602 0 76000 0 00001 LBT 4F15563 04603 0 56000 0 01406 LDQ L(0) GENERAL TAG PRESENT 4F15564 04604 -0 60000 0 06167 STQ CW+3 NO GENERAL TAG PRESENT 4F15565 04605 -0 50000 1 06652 CAL SCRIPL+2,A 4F15566 04606 0 60200 0 06166 SLW CW+2 4F15567 04607 0 07400 2 05104 CP5720 TSX COMP,B COMPILE TSX SYMJ(S(I)) , J=2,,., 4F15568 04610 -0 53400 2 03607 LXD CP0400,B 4F15569 04611 1 00003 2 04612 TXI CP5750,B,3 4F15570 04612 3 77772 2 04615 CP5750 TXH CP5780,B,-6 FINISHED SCANNING 4F15571 04613 -0 63400 2 03607 SXD CP0400,B 4F15572 04614 1 77775 1 04574 TXI CP5680,A,-3 4F15573 04615 0 07400 4 03401 CP5780 TSX FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 4F15574 04616 0 00000 0 01406 HTR L(0) 4F15575 04617 0 00000 0 01561 HTR L(LXD) 4F15576 04620 0 00000 0 01505 HTR X( 4F15577 04621 0 00000 0 01412 HTR L(4) 4F15578 04622 -0 53400 1 01117 ES0000 LXD 3QBAR,A -3Q TO XA 4F15579 04623 -0 76000 0 00141 SLT 1 4F15580 04624 0 02000 0 03554 TRA CP0130 GO TO NEXT SEGMENT 4F15581 04625 -0 50000 1 06650 CAL SCRIPL,A 4F15582 04626 -0 32000 0 01452 ANA MASK2 4F15583 04627 0 10000 0 04642 TZE ES0160 4F15584 04630 0 50000 0 01120 CLA ARERAS S(I) NOT = S(O) 4F15585 04631 0 60100 0 06166 STO CW+2 4F15586 04632 0 50000 0 01363 CLA PHI(I) 4F15587 04633 0 60100 0 06167 STO CW+3 4F15588 04634 0 50000 0 01573 CLA L(STQ) 4F15589 04635 -0 76000 0 00142 SLT 2 4F15590 04636 0 50000 0 01572 CLA L(STO) 4F15591 04637 0 60100 0 06165 STO CW+1 4F15592 04640 0 07400 2 05104 TSX COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I) 4F15593 04641 0 02000 0 03554 TRA CP0130 GO TO NEXT SEGMENT 4F15594 04642 0 56000 0 01356 ES0160 LDQ LEFT+2 S(I)=S(O) 4F15595 04643 -0 76300 0 00014 LGL 12 4F15596 04644 0 34000 0 01450 CAS IFSYM IS THIS AN IF STATEMENT 4F15597 04645 0 02000 0 04647 TRA ES0200 4F15598 04646 0 02000 0 05041 TRA ES1500 4F15599 04647 0 34000 0 01451 ES0200 CAS CALLER IS THIS A CALL STATEMENT 4F15600 04650 0 02000 0 04652 TRA ES0210 4F15601 04651 0 02000 0 05044 TRA ES1520 4F15602 04652 0 34000 0 01447 ES0210 CAS SAPSYM 4F15603 04653 0 02000 0 04655 TRA ES0220 4F15604 04654 0 02000 0 05100 TRA ES1710 4F15605 04655 0 77100 0 00006 ES0220 ARS 6 4F15606 04656 -0 53400 4 01122 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15607 04657 3 00000 4 05016 TXH ES1300,C,0 YES 4F15608 04660 0 34000 0 01423 CAS L(H) NOT A FUNCTION STATEMENT 4F15609 04661 0 34000 0 01425 CAS L(O) 4F15610 04662 0 02000 0 04750 TRA ES0300 4F15611 04663 0 02000 0 04750 TRA ES0300 4F15612 04664 -0 76000 0 00144 SLT 4 4F15613 04665 0 02000 0 04703 TRA ES0870 4F15614 04666 0 50000 0 01573 ES0710 CLA L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT 4F15615 04667 -0 76000 0 00142 SLT 2 4F15616 04670 0 50000 0 01572 ES0730 CLA L(STO) 4F15617 04671 0 60100 0 06165 STO CW+1 4F15618 04672 0 50000 0 01354 CLA LEFT 4F15619 04673 0 60100 0 06170 STO TAGWRD 4F15620 04674 0 50000 0 01355 CLA LEFT+1 4F15621 04675 0 60100 0 06171 STO OPWORD 4F15622 04676 0 50000 0 01356 CLA LEFT+2 4F15623 04677 0 60100 0 06172 STO SYMWRD 4F15624 04700 0 07400 4 05120 TSX AC0060,C ADDRESS COMPILE VARIABLE ON LEFT 4F15625 04701 0 07400 2 05104 TSX COMP,B COMPILE STO/STQ LEFT+2 4F15626 04702 0 02000 0 05064 TRA ES1590 EXIT TO FETCH STATE A 4F15627 04703 -0 76000 0 00142 ES0870 SLT 2 FX PT ON LEFT, FLO PT ON RIGHT 4F15628 04704 0 02000 0 04716 TRA ES0990 4F15629 04705 0 50000 0 01573 CLA L(STQ) RESULT ON RIGHT APPEARS IN MQ 4F15630 04706 0 60100 0 06165 STO CW+1 4F15631 04707 0 50000 0 01505 CLA X( 4F15632 04710 0 60100 0 06166 STO CW+2 4F15633 04711 0 60000 0 06167 STZ CW+3 4F15634 04712 0 07400 2 05104 TSX COMP,B COMPILE STQ 700000 4F15635 04713 0 50000 0 01541 CLA L(CLA) 4F15636 04714 0 60100 0 06165 STO CW+1 4F15637 04715 0 07400 2 05104 TSX COMP,B COMPILE CLA 700000 4F15638 04716 0 07400 4 01731 ES0990 TSX CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN 4F15639 04717 0 00000 0 01406 HTR L(0) RESULT ON RIGHT IS IN ACC. 4F15640 04720 0 00000 0 01603 HTR L(UFA) 4F15641 04721 0 00000 0 01504 HTR O( 4F15642 04722 0 00000 0 01406 HTR L(0) 4F15643 04723 0 07400 4 01731 TSX CIT00,C 4F15644 04724 0 00000 0 01406 HTR L(0) 4F15645 04725 0 00000 0 01560 HTR L(LRS) 4F15646 04726 0 00000 0 01406 HTR L(0) 4F15647 04727 0 00000 0 01406 HTR L(0) 4F15648 04730 0 07400 4 01731 TSX CIT00,C 4F15649 04731 0 00000 0 01406 HTR L(0) 4F15650 04732 0 00000 0 01534 HTR L(ANA) 4F15651 04733 0 00000 0 01504 HTR O( 4F15652 04734 0 00000 0 01454 HTR 2E18 4F15653 04735 0 07400 4 01731 TSX CIT00,C 4F15654 04736 0 00000 0 01406 HTR L(0) 4F15655 04737 0 00000 0 01557 HTR L(LLS) 4F15656 04740 0 00000 0 01406 HTR L(0) 4F15657 04741 0 00000 0 01406 HTR L(0) 4F15658 04742 0 07400 4 01731 TSX CIT00,C 4F15659 04743 0 00000 0 01406 HTR L(0) 4F15660 04744 0 00000 0 01533 HTR L(ALS) 4F15661 04745 0 00000 0 01406 HTR L(0) 4F15662 04746 0 00000 0 01466 HTR DEC18 4F15663 04747 0 02000 0 05004 TRA ES0610 4F15664 04750 -0 76000 0 00144 ES0300 SLT 4 4F15665 04751 0 02000 0 04666 TRA ES0710 4F15666 04752 -0 76000 0 00142 ES0320 SLT 2 FLO PT ON LEFT, FX PT ON RIGHT 4F15667 04753 0 02000 0 04765 TRA ES0440 4F15668 04754 0 50000 0 01573 CLA L(STQ) RESULT ON RIGHT APPEARS IN MO 4F15669 04755 0 60100 0 06165 STO CW+1 4F15670 04756 0 50000 0 01505 CLA X( 4F15671 04757 0 60100 0 06166 STO CW+2 4F15672 04760 0 60000 0 06167 STZ CW+3 4F15673 04761 0 07400 2 05104 TSX COMP,B COMPILE STQ 700000 4F15674 04762 0 50000 0 01541 CLA L(CLA) 4F15675 04763 0 60100 0 06165 STO CW+1 4F15676 04764 0 07400 2 05104 TSX COMP,B COMPILE CLA 700000 4F15677 04765 0 07400 4 01731 ES0440 TSX CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN 4F15678 04766 0 00000 0 01406 HTR L(0) RESULT ON RIGHT IS IN ACC 4F15679 04767 0 00000 0 01560 HTR L(LRS) 4F15680 04770 0 00000 0 01406 HTR L(0) 4F15681 04771 0 00000 0 01466 HTR DEC18 4F15682 04772 0 07400 4 01731 TSX CIT00,C 4F15683 04773 0 00000 0 01406 HTR L(0) 4F15684 04774 0 00000 0 01564 HTR L(ORA) 4F15685 04775 0 00000 0 01504 HTR O( 4F15686 04776 0 00000 0 01406 HTR L(0) 4F15687 04777 0 07400 4 01731 TSX CIT00,C 4F15688 05000 0 00000 0 01406 HTR L(0) 4F15689 05001 0 00000 0 01550 HTR L(FAD) 4F15690 05002 0 00000 0 01504 HTR O( 4F15691 05003 0 00000 0 01406 HTR L(0) 4F15692 05004 -0 53400 4 01122 ES0610 LXD ARGCTR,C IS THIS A FUNCTION STATEMENT 4F15693 05005 -3 00000 4 04670 TXL ES0730,C,0 NO 4F15694 05006 0 50000 0 01601 ES0630 CLA L(TRA) YES 4F15695 05007 0 60100 0 06165 STO CW+1 4F15696 05010 0 60000 0 06166 STZ CW+2 4F15697 05011 -0 50000 0 01454 CAL 2E18 4F15698 05012 -0 50100 0 01412 ORA L(4) 4F15699 05013 0 60200 0 06167 SLW CW+3 4F15700 05014 0 07400 2 05104 TSX COMP,B COMPILE TRA 1,4 4F15701 05015 0 02000 0 05064 TRA ES1590 EXIT TO FETCH STATE A 4F15702 05016 0 40200 0 01433 ES1300 SUB L(X) 4F15703 05017 0 10000 0 05023 TZE ES1360 4F15704 05020 -0 76000 0 00144 SLT 4 4F15705 05021 0 02000 0 05025 TRA ES1380 4F15706 05022 0 02000 0 04752 TRA ES0320 4F15707 05023 -0 76000 0 00144 ES1360 SLT 4 4F15708 05024 0 02000 0 04703 TRA ES0870 4F15709 05025 -0 76000 0 00142 ES1380 SLT 2 4F15710 05026 0 02000 0 05006 TRA ES0630 4F15711 05027 0 50000 0 01573 CLA L(STQ) 4F15712 05030 0 60100 0 06165 STO CW+1 4F15713 05031 0 50000 0 01505 CLA X( 4F15714 05032 0 60100 0 06166 STO CW+2 4F15715 05033 0 60000 0 06167 STZ CW+3 4F15716 05034 0 07400 2 05104 TSX COMP,B COMPILE STQ 700000 4F15717 05035 0 50000 0 01541 CLA L(CLA) 4F15718 05036 0 60100 0 06165 STO CW+1 4F15719 05037 0 07400 2 05104 TSX COMP,B COMPILE CLA 700000 4F15720 05040 0 02000 0 05006 TRA ES0630 4F15721 05041 0 07400 1 03321 ES1500 TSX TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 4F15722 05042 0 00000 0 00002 PZE 2 INTO TIFGO TABLE (TABLE 2), 4F15723 05043 0 02000 0 05050 TRA ES1530 4F15724 05044 -0 53400 4 00030 ES1520 LXD EIFNO,4 4F15725 05045 -0 63400 4 01123 SXD CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND 4F15726 05046 0 07400 1 03321 TSX TET00,1 LAST IFN NUMBERS, 4F15727 05047 0 00000 0 00020 16 4F15728 05050 -0 76000 0 00142 ES1530 SLT 2 4F15729 05051 0 02000 0 05064 TRA ES1590 EXIT TO FETCH STATE A 4F15730 05052 0 07400 4 01731 TSX CIT00,C COMPILE LLS 37 4F15731 05053 0 00000 0 01406 L(0) 4F15732 05054 0 00000 0 01573 L(STQ) 4F15733 05055 0 00000 0 01505 X( 4F15734 05056 0 00000 0 01406 L(0) 4F15735 05057 0 07400 4 01731 TSX CIT00,4 4F15736 05060 0 00000 0 01406 L(0) 4F15737 05061 0 00000 0 01541 L(CLA) 4F15738 05062 0 00000 0 01505 X( 4F15739 05063 0 00000 0 01406 L(0) 4F15740 05064 0 50000 0 06160 ES1590 CLA FNSW 4F15741 05065 0 10000 0 02402 TZE MTR000 4F15742 05066 0 50000 0 01151 CLA F-1 4F15743 05067 0 40200 0 01477 SUB 5BLANS 4F15744 05070 0 10000 0 02402 TZE MTR000 4F15745 05071 0 50200 0 00030 CLS EIFNO 4F15746 05072 0 60100 0 00030 STO EIFNO 4F15747 05073 0 07400 1 03321 TSX TET00,A 4F15748 05074 0 00000 0 00000 HTR 0 4F15749 05075 0 50200 0 00030 CLS EIFNO 4F15750 05076 0 60100 0 00030 STO EIFNO 4F15751 05077 0 02000 0 02402 TRA MTR000 4F15752 05100 -0 53400 2 00637 ES1710 LXD BBOX,B 4F15753 05101 0 50000 0 01362 CLA OPNWRD 4F15754 05102 0 60100 2 00635 STO CIB-3,B 4F15755 05103 0 02000 0 02402 TRA MTR000 4F15756 4F15757 05104 0 07400 4 01731 COMP TSX CIT00,C 4F15758 05105 0 00000 0 06164 HTR CW 4F15759 05106 0 00000 0 06165 HTR CW+1 4F15760 05107 0 00000 0 06166 HTR CW+2 4F15761 05110 0 00000 0 06167 HTR CW+3 4F15762 05111 0 02000 2 00001 TRA 1,B 4F15763 4F15764 05112 0 50000 1 06650 AC0000 CLA SCRIPL,A 4F15765 05113 0 60100 0 06170 STO TAGWRD 4F15766 05114 0 50000 1 06651 CLA SCRIPL+1,A 4F15767 05115 0 60100 0 06171 STO OPWORD 4F15768 05116 0 50000 1 06652 CLA SCRIPL+2,A 4F15769 05117 0 60100 0 06172 STO SYMWRD 4F15770 05120 -0 50000 0 06170 AC0060 CAL TAGWRD 4F15771 05121 -0 32000 0 01527 ANA MASK1 EXTRACT TAGS IN ACC. 4F15772 05122 -0 76000 0 00001 PBT 4F15773 05123 0 02000 0 05204 TRA AC0540 4F15774 05124 -0 75400 0 00000 PXD 0,0 NON-SUBSCRIPTED SYMBOL 4F15775 05125 0 56000 0 06172 LDQ SYMWRD 4F15776 05126 -0 76300 0 00001 LGL 1 4F15777 05127 0 76000 0 00001 LBT 4F15778 05130 0 16200 0 05175 TQP AC0460 SYMBOL IS SOME S(K) 4F15779 05131 -0 76300 0 00013 LGL 11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE 4F15760 05132 0 40200 0 01444 SUB L(A() IS THIS A FLO PT CONSTANT 4F15781 05133 0 10000 0 05170 TZE AC0410 YES 4F15782 05134 0 40000 0 01444 ADD L(A() NO 4F15783 05135 0 40200 0 01446 SUB L(I() IS THIS A FIX PT CONSTANT 4F15784 05136 0 10000 0 05166 TZE AC0390 YES 4F15785 05137 0 40000 0 01446 ADD L(I() NO 4F15786 05140 0 40200 0 01445 SUB L(H() IS THIS A HOLLERITH FIELD 4F15787 05141 0 10000 0 05164 TZE AC0350 YES 4F15788 05142 0 56000 0 06171 LDQ OPWORD NON-SUBSCRIPTED EXTERNAL VARIABLE 4F15789 05143 -0 76300 0 00015 LGL 13 IS THIS A FREE VARIABLE 4F15790 05144 0 16200 0 05161 TQP AC0340 NO 4F15791 05145 0 76300 0 00017 LLS 15 YES 4F15792 05146 0 76000 0 00006 COM 4F15793 05147 0 40200 0 01407 SUB L(1) 4F15794 05150 0 73400 2 00000 PAX 0,B 4F15795 05151 -0 75400 0 00000 PXD 0,8 4F15796 05152 0 60200 0 06167 SLW CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS 4F15797 05153 -0 53400 2 00470 LXD BK,B 4F15798 05154 -0 50000 2 00470 CAL FORSUB-1,B 4F15799 05155 -0 32000 0 01452 ANA MASK2 EXTRACT FUNCTION STATEMENT TYPE 4F15600 05156 -0 50100 0 01503 ORA P( 4F15801 05157 0 60200 0 06166 AC0320 SLW CW+2 4F15802 05160 0 02000 4 00001 TRA 1,C RETURN 4F15803 05161 0 60000 0 06167 AC0340 STZ CW+3 NON-SUBSCRIPTED, REAL VARIABLE 4F15804 05162 -0 50000 0 06172 CAL SYMWRD 4F15805 05163 0 02000 0 05157 TRA AC0320 4F15806 05164 -0 50000 0 01522 AC0350 CAL H( 4F15807 05165 0 02000 0 05171 TRA AC0420 4F15808 05166 0 50000 0 01501 AC0390 CLA I( FIX PT INTERNAL VARIABLE 4F15809 05167 0 02000 0 05171 TRA AC0420 4F15810 05170 0 50000 0 01502 AC0410 CLA A( FLO PT INTERNAL VARIABLE 4F15811 05171 0 60100 0 06166 AC0420 STO CW+2 4F15812 05172 -0 77300 0 00006 RQL 6 4F15813 05173 -0 60000 0 06167 STQ CW+3 4F15814 05174 0 02000 4 00001 TRA 1,C RETURN 4F15815 05175 -0 76300 0 00043 AC0460 LGL 35 SYMBOL IS SOME S(K) 4F15616 05176 0 73400 2 00000 TDRADD PAX 0,B 4F15817 05177 -0 50000 6 06174 CAL CPBETA,6 4F15618 05200 -0 32000 0 01527 ANA MASK1 EXTRACT PHI(K) 4F15819 05201 0 60200 0 06167 SLW CW+3 4F15820 05202 -0 50000 0 01120 CAL ARERAS 4F15621 05203 0 02000 0 05157 TRA AC0320 4F15822 05204 0 60200 0 06170 AC0540 SLW TAGWRD SUBSCRIPTED VARIABLE 4F15823 05205 0 56000 0 06170 LDQ TAGWRD 4F15824 05206 -0 75400 0 00000 PXD ,0 CLEAR AC. 4F15825 05207 -0 76300 0 00014 LGL 12 I-TAU TAGS TO AC 4F15826 05210 0 60200 0 06167 SLW CW+3 STORE FOR NEXT CIT ENTRY. 4F15827 05211 0 16200 0 05214 TQP *+3 4F15828 05212 0 60000 0 06167 STZ CW+3 4F15829 05213 -0 50000 0 01454 CAL 2E18 REPLACE NULL TAG, 4F15830 05214 0 60200 0 06173 SLW TAGPRT SAVE FOR LATER USE. 4F15831 05215 -0 76300 0 00001 LGL 1 4F15832 05216 -0 75400 0 00000 PXD ,0 CLEAR AC 4F15833 05217 -0 76300 0 00010 LGL 8 FORM TWICE SIGMA TAG. 4F15834 05220 0 76700 0 00001 ALS 1 4F15835 05221 0 40100 0 00446 ADM SIG1IX-2 FORM BASE OF TABLE + SIGMA TAG. 4F15836 05222 0 62100 0 05223 STA SDRADD 4F15837 05223 -0 75400 0 00000 SDRADD PXD **,0 4F15838 05224 0 76200 0 00302 RDR 2 4F15839 05225 0 46000 0 05223 LDA SDRADD 4F15840 05226 -0 70000 0 02365 CAD DUMP 4F15841 05227 0 76000 0 00006 COM 4F15842 05230 -0 70000 0 02365 CAD DUMP 4F15843 05231 0 76000 0 00006 COM 4F15844 05232 0 10000 0 05234 TZE *+2 CHECK SUM TEST, 4F15845 05233 0 07400 4 03400 TSX DIAG,4 ERROR SIGMA1 CKSUM FAILS 4F15846 05234 -0 50000 0 02365 CAL DUMP 4F15847 05235 -0 60200 0 06167 ORS CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG. 4F15848 05236 0 50000 0 06172 CLA SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY. 4F15849 05237 0 60100 0 06166 STO CW+2 4F15850 05240 0 02000 4 00001 TRA 1,4 RETURN TO CALLER 4F15851 4F158511 05241 0 07400 4 03401 CP6000 TSX FLTR00,4 COMPILE FLOW TRACE INFORMATION AND THEN 4F158512 05242 0 00000 0 06164 CW COMPILE LXD 7(TYPE =*4 4F158513 05243 0 00000 0 06165 CW+1 4F158514 05244 0 00000 0 06166 CW+2 4F158515 05245 0 00000 0 06167 CW+3 4F158516 05246 0 02000 0 04622 TRA ES0000 4F158517 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15852 05247 ENDDDR BSS 0 4F158525 4F15853 06160 ENDD ORG 3184 4F15854 06160 FNSW BSS 1 4F15855 06161 P(CNTR BSS 1 4F15856 06162 ARGORG BSS 1 4F15857 06163 XRSAVE BSS 1 4F15858 06164 CW BSS 4 4F15859 06170 TAGWRD BSS 1 4F15860 06171 OPWORD BSS 1 4F15861 06172 SYMWRD BSS 1 4F15862 06173 TAGPRT BSS 1 4F15863 06174 CPBETA BSS 300 4F15864 06650 SCRIPL BSS 600 4F15865 END OF ARITHMETIC / STATE D. 4F15866 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15867 4F15868 SYNONYMS USED BY SECTION ONE. 4F15869 01100 1E SYN ERASE COMMON WORKING STORAGE. 4F15870 00004 1TOCS SYN 4 ENTRY TO SYSTEM TAPE MONITOR. 4F15871 01101 2E SYN ERASE+1 COMMON WORKING STORAGE. 4F15872 01501 2P SYN I( 4F15873 01531 36ONES SYN ALL1 4F15874 01102 3E SYN ERASE+2 COMMON WORKING STORAGE. 4F15875 01117 3QBAR SYN 3LBAR 4F15876 01103 4E SYN ERASE+3 COMMON WORKING STORAGE. 4F15877 00001 A EQU 1 4F15878 01430 ABLANK SYN BLANK 4F15879 01376 ACOMMA SYN COMMA 4F15880 01532 ADD SYN L(ADD) 4F15881 01400 AEQUAL SYN EQUAL 4F15882 01375 ALPAR SYN OPEN 4F15883 02404 ARITH SYN STATEB 4F15884 01377 ARPAR SYN CLOS 4F15885 01535 ARS SYN L(ARS) 4F15886 00002 B EQU 2 4F15887 00004 C EQU 4 4F15888 01537 CAL SYN L(CAL) 4F15889 01731 CIT SYN CIT00 4F15890 01150 CITMQR SYN E1C ERASABLE STORAGE. 4F15891 00223 CITTAP SYN 147 COMPILED INSTRUCTION TAPE, 4F15892 01101 CITXR1 SYN ERASE+1 ERASABLE STORAGE. 4F15893 01102 CITXR2 SYN ERASE+2 ERASABLE STORAGE. 4F15894 01544 CPY SYN L(CPY) 4F15895 01454 D1 SYN 2E18 4F15896 01101 D12 SYN ERASE+1 COMMON WORKING STORAGE. 4F15897 01466 D18 SYN DEC18 4F15898 01102 D3 SYN ERASE+2 COMMON WORKING STORAGE. 4F15899 01546 DED SYN L(DED) 4F15900 00000 DEL(A) SYN 0 DRUM ORIGIN FOR STATE A, 4F15901 02210 DEL(B) SYN 1160 DRUM ORIGIN FOR STATE B. 4F15902 02373 DEL(C) SYN 1275 DRUM ORIGIN FOR STATE C. 4F15903 01322 DEL(D) SYN 722 DRUM ORIGIN FOR STATE D. 4F15904 00310 DIM1 SYN 0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR, 4F15905 00764 DIM2 SYN 0500 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15906 01440 DIM3 SYN 0800 DRUM TABLE ORIGIN -DRTABS,DIM,SR. 4F15907 01100 DIMCTR SYN ERASE COMMON WORKING STORAGE. 4F15908 01500 DMP SYN E( 4F15909 01100 DOE SYN ERASE COMMON WORKING STORAGE. 4F15910 01103 DRCKSM SYN ERASE+3 COMMON WORKING STORAGE. 4F15911 01104 DRMADR SYN ERASE+4 ERASABLE STORAGE. 4F15912 01413 DRMERC SYN L(5) NUMBER OF DRUM READING ATTEMPTS. 4F15913 01100 DRSYM SYN ERASE COMMON WORKING STORAGE. 4F15914 01100 E1TDR SYN ERASE COMMON WORKING STORAGE. 4F15915 01101 E2C SYN ERASE+1 COMMON WORKING STORAGE. 4F15916 01101 E2TDR SYN ERASE+1 COMMON WORKING STORAGE. 4F15917 01102 E3C SYN ERASE+2 COMMON WORKING STORAGE. 4F15918 01102 E3TDR SYN ERASE+2 COMMON WORKING STORAGE. 4F15919 01101 EKE SYN ERASE+1 COMMON WORKING STORAGE. 4F15920 01103 ENOND SYN ERASE+3 COMMON WORKING STORAGE. 4F15921 01104 FEOD SYN ERASE+4 COMMON WORKING STORAGE. 4F15922 00002 FIXCON SYN 0002 DRUM TABLE ORIGIN -DRTABS, 4F15923 00312 FLOCON SYN 202 DRUM TABLE ORIGIN -DRTABS. 4F15924 00002 FXCODR SYN 2 4F15925 01102 H SYN ERASE+2 COMMON WORKING STORAGE. 4F15926 01522 H( SYN ADSPOP 4F15927 01554 HPR SYN L(HPR) 4F15928 01555 LDA SYN L(LDA) 4F15929 01561 LXD SYN L(LXD) 4F15930 01373 L(10) SYN TEN 4F15931 01400 L(11) SYN EQUAL 4F15932 01420 L(12) SYN MINUS 4F15933 01454 L(1D) SYN 2E18 4F15934 01374 L(63) SYN ENDMK 4F15935 03440 MEMORG SYN 1824 MEMORY ORIGIN FOR ALL STATES. 4F15936 01452 MSK SYN MASK2 4F15937 02402 MTR000 SYN STATEA 4F15938 02430 MTR300 SYN MTR3 4F15942 01103 N SYN ERASE+3 COMMON WORKING STORAGE. 4F15943 01404 PLUS SYN 12Z 4F15945 01566 PXD SYN L(PXD) 4F15946 01100 RAXR4 SYN ERASE COMMON WORKING STORAGE. 4F15947 01226 SIGMA1 SYN 0662 DRUM TABLE ORIGIN -DRTABS. 4F15948 01101 SR6WRK SYN ERASE+1 ERASABLE STORAGE. 4F15949 01416 ST SYN L(8) 4F15950 01571 STA SYN L(STA) 4F15951 01104 STCKSM SYN ERASE+4 COMMON WORKING STORAGE, 4F15952 00224 TABTAP SYN 148 TABLE TAPE. 4F15953 01453 TAG4 SYN 2E17 4F15954 00000 TAU1 SYN 0000 DRUM TABLE ORIGIN -DRTABS. 4F15955 00454 TAU2 SYN 0300 DRUM TABLE ORIGIN -DRTABS. 4F15956 01356 TAU3 SYN 0750 DRUM TABLE ORIGIN -DRTA8S. 4F15957 01413 TERC SYN L(5) TAPE ERROR COUNTER. 4F15958 01103 TETMQR SYN ERASE+3 ERASABLE STORAGE, 4F15959 01102 TETWRK SYN ERASE+2 ERASABLE STORAGE. 4F15960 01100 TETXR2 SYN ERASE ERASABLE STORAGE. 4F15961 01101 TETXR4 SYN ERASE+1 ERASABLE STORAGE. 4F15962 01576 TIX SYN L(TIX) 4F15963 01504 ZER SYN O( 4F15964 00000 .. EQU 0 4F15965 END OF SYNONYMS USED BY SECTION ONE. 4F15966 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967 4F15968 END OF SECTION ONE. 4F15969 A 00000 END 4F15970 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 6030 0 0 0 0 LIB 0 0 0 0 0 COL 6030 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 6039 0NUMBER OF SYMBOLS, DEF 1394,DEFOP 0,UNDEF 0 9 REM 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000. 4F1D0010 1 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000. 4F1D0010 ----------FILE: 147.PNG-----------------------------INCLUDE PREV LINE 00000 ORG 0 4F1D0020 00000 0 13440 0 13440 PZE DIAG,,DIAG 4F1D0030 00001 0 00000 0 17777 PZE 8191 4F1D0040 704 FORTRAN TWO, SECTION ONE DIAGNOSTIC RECORD F020. 4F1D0050 4F1D0060 THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN 4F1D0070 SECTION ONE AND ONCE AT THE END OF SECTION ONE, 4F1D0080 4F1D0090 13440 DIAG ORG 1824+4096 MOD 4K OR 8K MACHINE SIZE 4F1D0100 00001 A EQU 1 4F1D0110 00002 B EQU 2 4F1D0120 00004 C EQU 4 4F1D0130 77777 EXITX EQU 32767 4F1D0140 13440 3 00000 4 13543 EDIT TXH ERENT,C,0 IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150 13441 0 50000 0 00020 CLA 16 IF NON ZERO IT IS AN ERROR CALL, 4F1D0160 13442 -0 32000 0 14033 ANA L(4)D IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170 13443 0 10000 0 00004 TZE 4 ERRORS DURING SECTION ONE ( INDICATED BY 4F1D0180 13444 0 07400 4 14121 TSX PRINT,C 4F1D0190 13445 0 14104 0 14067 HTR STOP,0,XCOM 4F1D0200 13446 0 07400 4 14121 TSX PRINT,C BIT IN WORD 20 OCTAL), IF THERE WERE NO 4F1D0210 13447 0 14045 0 14044 PZE RESTR,0,RESTR+1 ERRORS GO TO SEC ONE PRIME. IF THERE WERE 4F1D0220 13450 0 53400 4 02367 LXA DCELL1,4 GET INDICATOR OF SOURCE PROGRAM ERRORS. 4F1D0230 13451 3 00000 4 13456 TXH SOURCE,4,0 TEST IF ANY OF ERROR WERE SOURCE. 4F1D0240 13452 0 53400 4 14013 LXA L(8),4 NONE WERE, SO BACKSPACE TAPE 1 TO MACHINE 4F1D0250 13453 0 76400 0 00201 BST 1 ERROR RECORD. 4F1D0260 13454 2 00001 4 13453 TIX *-1,4,1 4F1D0270 13455 0 02000 0 00004 TRA 4 NOW GO TO 1 TO CS FOR MACHINE ERROR RECORD.4F1D0280 13456 0 53400 4 14015 SOURCE LXA L(12),4 SOME SOURCE PROGRAM ERRORS, RECOMPILATION 4F1D0290 13457 0 76400 0 00201 BST 1 MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE 4F1D0300 13460 2 00001 4 13457 TIX *-1,4,1 PROGRAM ERROR RECORD. 4F1D0310 13461 0 02000 0 00004 TRA 4 NOW GO TO 1 TO CS FOR THIS RECORD. 4F1D0320 13462 BSS 10 EXPANSION AREA. FOR PESSIMISM... 4F1D0330 NUMBERS OF MACHINE ERROR CALL FROM SECTION ONE, 4F1D0340 13474 000002000304 MACERR BCD 1002034 4F1D0350 13475 000002000602 BCD 1002062 4F1D0360 13476 000002020606 BCD 1002266 4F1D0370 13477 000002040303 BCD 1002433 4F1D0380 13500 000002040304 BCD 1002434 4F1D0390 13501 000002040305 BCD 1002435 4F1D0400 13502 000002040306 BCD 1002436 4F1D0410 13503 000002050203 BCD 1002523 4F1D0420 13504 000002050605 BCD 1002565 4F1D0430 13505 000003020702 BCD 1003272 4F1D0440 13506 000003050601 BCD 1003561 4F1D0450 13507 000005070105 BCD 1005715 4F1D0460 13510 000004030407 BCD 1004347 4F1D0470 13511 000005020303 BCD 1005233 4F1D0480 13512 000000050503 BCD 1000553 4F1D0490 13513 000000050600 BCD 1000560 4F1D0500 13514 000000050603 BCD 1000563 4F1D0510 13515 000000050606 BCD 1000566 4F1D0520 13516 000100050304 BCD 1010534 13517 000102070500 BCD 1012750 13520 BSS 18 MORE PESSIMISM... 13542 0 00000 0 00024 COUNT 20 4F1D0540 4F1D0550 THIS IS AN ERROR CALL. 4F1D0560 13543 -0 75400 4 00000 ERENT PXD 0,C 4F1D0570 13544 0 76000 0 00006 COM CONSTRUCT OCTAL STOP 4F1D0580 13545 0 40000 0 14032 ADD L(1)D 4F1D0590 13546 -0 73400 2 00000 PDX 0,B 4F1D0600 13547 -0 75400 2 00000 PXD 0,B 4F1D0610 13550 0 76500 0 00043 LRS 35 4F1D0620 13551 -0 53400 2 14034 LXD L(6)D,B 4F1D0630 13552 0 76700 0 00003 ALS ALS 3 4F1D0640 13553 -0 76300 0 00003 LGL 3 4F1D0650 13554 2 00001 2 13552 TIX ALS,B,1 4F1D0660 13555 0 60100 0 14047 STO NUMB 4F1D0670 13556 0 53400 1 14035 LXA L(0),1 SET TO SEARCH TABLE OF NUMBERS OF MACHINE 4F1D0680 13557 0 53400 2 13542 LXA COUNT,2 ERRORS, 4F1D0690 13560 0 34000 1 13474 CAS MACERR,1 COMPARE EACH ENTRY IN TABLE TO OCTAL 4F1D0700 13561 1 00001 1 13564 TXI *+3,1,1 NUMBER IN AC 4F1D0710 13562 0 02000 0 13566 TRA *+4 EXIT IF FOUND. 4F1D0720 13563 1 00001 1 13564 TXI *+1,1,1 4F1D0730 13564 2 00001 2 13560 TIX *-4,2,1 CONTINUE. 4F1D0740 13565 0 62100 0 02367 STA DCELL1 SET INDICATOR TO NON-ZERO FOR SOURCE ERROR 4F1D0750 13566 0 53400 3 14035 LXA L(0),3 4F1D0760 13567 0 50000 0 14037 CLA XXX CONSTRUCT CALLING SEQUENCE WORD FOR 4F1D0770 13570 0 34000 1 14504 ONE CAS TABLE,A PRINTING COMMENT 4F1D0780 13571 0 02000 0 13573 TRA TWO 4F1D0790 13572 0 02000 0 13601 TRA FOUR 4F1D0800 13573 1 77777 1 13574 TWO TXI THREE,A,-1 4F1D0810 13574 3 00000 1 13570 THREE TXH ONE,A,0 4F1D0820 13575 0 50000 0 14047 CLA NUMB 4F1D0830 13576 0 60100 0 14104 STO XCOM 4F1D0840 13577 -0 50000 0 14046 CAL XKEY 4F1D0850 13600 0 02000 0 13632 TRA EIGHT 4F1D0860 13601 3 00000 2 13612 FOUR TXH FIVE,B,0 4F1D0870 13602 0 40200 1 14505 SUB TABLE+1,A 4F1D0880 13603 0 10000 0 13627 TZE SEVEN 4F1D0890 13604 0 50000 0 14047 CLA NUMB 4F1D0900 13605 0 40200 1 14505 SUB TABLE+1,A 4F1D0910 13606 0 10000 0 13611 TZE NINE 4F1D0920 13607 0 50000 0 14037 CLA XXX 4F1D0930 13610 0 02000 0 13573 TRA TWO 4F1D0940 13611 1 77777 1 13612 NINE TXI FIVE,A,-1 4F1D0950 13612 -0 75400 1 00000 FIVE PXD 0,A 4F1D0960 13613 0 76000 0 00006 COM 4F1D0970 13614 0 40000 0 14032 ADD L(1)D 4F1D0980 13615 -0 73400 4 00000 PDX 0,C 4F1D0990 13616 -0 75400 4 00000 PXD 0,C 4F1D1000 13617 0 40000 0 14042 ADD TABAD 4F1D1010 13620 3 00000 2 13625 TXH SIX,B,0 4F1D1020 13621 0 77100 0 00022 ARS 18 4F1D1030 13622 0 60100 0 14050 STO KEY 4F1D1040 13623 0 50000 0 14037 CLA XXX 4F1D1050 13624 1 00001 2 13574 TXI THREE,B,1 4F1D1060 13625 -0 50100 0 14050 SIX ORA KEY 4F1D1070 13626 0 02000 0 13632 TRA EIGHT 4F1D1080 13627 0 50000 0 14047 SEVEN CLA NUMB 4F1D1090 13630 0 60100 0 14104 STO XCOM 4F1D1100 13631 0 50000 0 14046 CLA XKEY 4F1D1110 13632 0 60100 0 14025 EIGHT STO COMM 4F1D1120 13633 0 50000 0 01151 CLA F-1 4F1D1130 13634 0 60100 0 01150 STO F-2 4F1D1140 13635 0 50000 0 14045 CLA BLANK 4F1D1150 13636 0 60100 0 01151 STO F-1 4F1D1160 13637 -0 53400 1 14041 LXD L(X)D,A CONSTRUCT CALLING SEQUENCE WORD 4F1D1170 13640 0 50000 0 14036 CLA ONES 4F1D1180 13641 0 34000 1 01331 STA05 CAS F+111,A 4F1D1190 13642 0 02000 0 13644 TRA STA10 4F1D1200 13643 0 02000 0 13646 TRA STA20 4F1D1210 13644 2 00001 1 13641 STA10 TIX STA05,A,1 4F1D1220 13645 -0 53400 1 14035 LXD L(0),A 4F1D1230 13646 -0 75400 1 00000 STA20 PXD 0,A 4F1D1240 13647 0 60100 0 14051 STO SES 4F1D1250 13650 0 50000 0 14041 CLA L(X)D 4F1D1260 13651 0 40200 0 14051 SUB SES 4F1D1270 13652 0 40000 0 14043 ADD FORG 4F1D1280 13653 0 60100 0 14051 STO SES 4F1D1290 13654 0 50000 0 14043 CLA FORG 4F1D1300 13655 0 77100 0 00022 ARS 18 4F1D1310 13656 -0 50100 0 14051 ORA SES 4F1D1320 13657 0 60100 0 14023 STO STATE 4F1D1330 13660 0 50000 0 00020 CLA 16 WAS THERE A PREVIOUS ERROR CALL 4F1D1340 13661 -0 32000 0 14033 ANA L(4)D 4F1D1350 13662 -0 10000 0 13673 TNZ PROG 4F1D1360 13663 0 50000 0 14033 CLA L(4)D NO, MAKE ERROR CALL INDICATION 4F1D1370 13664 -0 60200 0 00020 ORS 16 4F1D1380 13665 0 07400 4 14121 TSX PRINT,C AND PRINT HEADING 4F1D1390 13666 0 14067 0 14052 HTR START,0,STOP 4F1D1400 13667 0 76600 0 00361 WPR 4F1D1410 13670 0 76600 0 00361 WPR 4F1D1420 13671 0 76600 0 00361 WPR 4F1D1430 13672 0 76600 0 00361 WPR 4F1D1440 13673 0 07400 4 13742 PROG TSX SETNBC,4 4F1D1450 13674 0 07400 4 13746 TSX NNBC,4 4F1D1460 13675 0 07400 4 13746 TSX NNBC,4 4F1D1470 13676 0 40200 0 14014 SUB L(10) 4F1D1480 13677 -0 10000 0 14022 TNZ EXIT 4F1D1490 13700 0 07400 4 13742 TSX SETNBC,4 4F1D1500 13701 0 07400 4 13746 TSX NNBC,4 4F1D1510 13702 0 40200 0 14007 SUB L(X) 4F1D1520 13703 -0 10000 0 13725 TNZ CALLBK 4F1D1530 13704 0 50000 0 14001 CLA L(I) 4F1D1540 13705 0 07400 4 13760 TSX REP,4 4F1D1550 13706 0 07400 4 13746 TSX NNBC,4 4F1D1560 13707 0 50000 0 14002 CLA L(F) 4F1D1570 13710 0 07400 4 13760 TSX REP,4 4F1D1580 13711 0 07400 4 13746 TSX NNBC,4 4F1D1590 13712 0 40200 0 14003 SUB L(=) 4F1D1600 13713 -0 10000 0 14022 TNZ EXIT 4F1D1610 13714 0 50000 0 14004 CLA L(LP) 4F1D1620 13715 0 07400 4 13760 TSX REP,4 4F1D1630 13716 -3 77622 1 14022 TXE TXL EXIT,1,-110 4F1D1640 13717 0 07400 4 13746 TSX NNBC,4 4F1D1650 13720 0 40200 0 14016 SUB ENDM 4F1D1660 13721 -0 10000 0 13716 TNZ TXE 4F1D1670 13722 0 50000 0 14005 CLA L(RP) 4F1D1680 13723 0 07400 4 13760 TSX REP,4 4F1D1690 13724 0 02000 0 14022 TRA EXIT 4F1D1700 13725 0 50000 0 14010 CALLBK CLA L(C) CHANGE Z BACK TO C 4F1D1710 13726 0 07400 4 13760 TSX REP,4 4F1D1720 13727 0 07400 4 13746 TSX NNBC,4 4F1D1730 13730 0 50000 0 14011 CLA L(A) CHANGE TEN BACK TO A 4F1D1740 13731 0 07400 4 13760 TSX REP,4 4F1D1750 13732 0 07400 4 13746 TSX NNBC,4 4F1D1760 13733 0 50000 0 14012 CLA L(L) CHANGE EQUAL BACK TO FIRST L 4F1D1770 13734 0 07400 4 13760 TSX REP,4 4F1D1780 13735 2 00001 2 13737 TIX SECL,2,1 4F1D1790 13736 1 77777 1 13737 TXI SECL,1,-1 ADJUST COUNTS FOR NEXT CHAR 4F1D1800 13737 0 50000 0 14012 SECL CLA L(L) CHANGE BLANK BACK TO SECOND L 4F1D1810 13740 0 07400 4 13760 TSX REP,4 4F1D1620 13741 0 02000 0 14022 TRA EXIT 4F1D1830 13742 -0 53400 1 13752 SETNBC LXD TXI,1 4F1D1840 13743 0 53400 2 13747 LXA LGL,2 4F1D1850 13744 0 56000 0 01152 LDQ F 4F1D1860 13745 0 02000 4 00001 TRA 1,4 4F1D1870 T 13746 -0 75400 0 00000 NNBC PXD 4F1D1880 13747 -0 76300 0 00006 LGL LGL 6 4F1D1890 13750 2 00001 2 13754 TIX CAS,2,1 4F1D1900 13751 0 56000 1 01152 LDQ F,1 4F1D1910 13752 1 77777 1 13753 TXI TXI TXI+1,1,-1 4F1D1920 13753 0 53400 2 13747 LXA LGL,2 4F1D1930 13754 0 34000 0 14006 CAS CAS BLANKX 4F1D1940 13755 0 02000 4 00001 TRA 1,4 4F1D1950 13756 0 02000 0 13746 TRA NNBC 4F1D1960 13757 0 02000 4 00001 TRA 1,4 4F1D1970 13760 -0 60000 0 14017 REP STQ ES1 4F1D1980 13761 -0 63400 2 14020 SXD ES2,2 4F1D1990 13762 -0 63400 1 14021 SXD ES3,1 4F1D2000 13763 0 76500 0 00043 LRS 35 4F1D2010 13764 -0 50000 0 14016 CAL ENDM 4F1D2020 13765 -3 00005 2 13767 TXL TXL TXL+2,2,5 4F1D2030 13766 1 00001 1 13771 TXI TXL+4,1,1 4F1D2040 13767 -0 76300 0 00006 LGL 6 4F1D2050 13770 2 00001 2 13767 TIX TIX TIX-1,2,1 4F1D2060 13771 0 76000 0 00006 COM 4F1D2070 13772 0 32000 1 01151 ANS F-1,1 4F1D2080 13773 -0 76300 0 00044 LGL 36 4F1D2090 13774 -0 60200 1 01151 ORS F-1,1 4F1D2100 13775 -0 53400 1 14021 LXD ES3,1 4F1D2110 13776 -0 53400 2 14020 LXD ES2,2 4F1D2120 13777 0 56000 0 14017 LDQ ES1 4F1D2130 14000 0 02000 4 00001 TRA 1,4 4F1D2140 14001 000000000031 L(I) BCD 100000I 4F1D2150 14002 000000000026 L(F) BCD 100000F 4F1D2160 14003 000000000013 L(=) BCD 100000= 4F1D2170 14004 000000000074 L(LP) BCD 100000( 4F1D2180 14005 000000000034 L(RP) BCD 100000) 4F1D2190 14006 000000000060 BLANKX BCD 100000 4F1D2200 14007 000000000067 L(X) BCD 100000X 4F1D2210 14010 000000000023 L(C) BCD 100000C 4F1D2220 14011 000000000021 L(A) BCD 100000A 4F1D2230 14012 000000000043 L(L) BCD 100000L 4F1D2240 14013 0 00000 0 00010 L(8) 8 4F1D2250 14014 +000000000012 L(10) OCT 12 4F1D2260 14015 0 00000 0 00014 L(12) 12 4F1D2270 14016 +000000000077 ENDM OCT 77 4F1D2280 A 14017 0 00000 0 00000 ES1 HTR 4F1D2290 A 14020 0 00000 0 00000 ES2 HTR 4F1D2300 A 14021 0 00000 0 00000 ES3 HTR 4F1D2310 14022 0 07400 4 14121 SECND TSX PRINT,C PRINT STATEMENT 4F1D2320 A 14023 0 00000 0 00000 STATE HTR 4F1D2330 14024 0 07400 4 14121 TSX PRINT,C PRINT COMMENT 4F1D2340 A 14025 0 00000 0 00000 COMM HTR 4F1D2350 14026 0 76600 0 00361 WPR 4F1D2360 14027 0 76600 0 00361 WPR 4F1D2370 14030 0 76400 0 00201 BST BST 1 TAPE 4F1D2380 14031 0 02000 0 02402 TRA MON AND RETURN TO SEC ONE MONITOR 4F1D2390 14032 +000001000000 L(1)D OCT 1000000 4F1D2400 14033 +000004000000 L(4)D OCT 4000000 4F1D2410 14034 +000006000000 L(6)D OCT 6000000 4F1D2420 A 14035 0 00000 0 00000 L(0) HTR 4F1D2430 14036 -377777777777 ONES OCT 777777777777 4F1D2440 14037 676767676767 XXX BCD 1XXXXXX 4F1D2450 14040 +000000077777 HALT OCT 77777 4F1D2460 14041 +000161000000 L(X)D OCT 161000000 4F1D2470 14042 0 14504 0 00000 TABAD HTR 0,0,TABLE 4F1D2480 14043 0 01150 0 00000 FORG HTR 0,0,F-2 4F1D2490 14044 016060606060 RESTR BCD 11 4F1D2500 14045 606060606060 BLANK BCD 1 4F1D2510 14046 0 14121 0 14104 XKEY HTR XCOM,0,XXCOM 4F1D2520 A 14047 0 00000 0 00000 NUMB HTR 4F1D2530 A 14050 0 00000 0 00000 KEY HTR 4F1D2540 A 14051 0 00000 0 00000 SES HTR 4F1D2550 14052 016060606060 START BCD 71 4F1D2560 14053 606060606060 14054 606060606060 14055 606060606060 14056 606060606060 14057 606060606060 14060 606060606060 14061 264651635121 BCD 6FORTRAN DIAGNOSTIC PROGRAM RESULTS 4F1D2570 14062 456024312127 14063 454662633123 14064 604751462751 14065 214460512562 14066 644363626060 14067 006060606060 STOP BCD 70 4F1D2580 14070 606060606060 14071 606060606060 14072 606060606060 14073 606060606060 14074 606060606060 14075 606060606060 14076 254524604626 BCD 6END OF DIAGNOSTIC PROGRAM RESULTS 4F1D2590 14077 602431212745 14100 466263312360 14101 475146275121 14102 446051256264 14103 436362606060 A 14104 0 00000 0 00000 XCOM HTR 4F1D2600 14105 606060606063 BCD THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR 4F1D2610 14106 303162602551 14107 514651603162 14110 604546636043 14111 316263252460 14112 314560633025 14113 602431212745 14114 466263312360 14115 475146275121 14116 446025515160 14117 465160433162 BCD 2OR LIST. 4F1D2620 14120 633360606060 14121 XXCOM BSS 0 4F1D2630 14121 PRINT BSS 0 4F1D2640 14121 0 50000 4 00001 RAN CLA 1,4 4F1D2650 14122 0 62100 0 14163 STA RNA 4F1D2660 14123 0 77100 0 00022 ARS 18 4F1D2670 14124 0 60100 0 14164 STO RNB 4F1D2680 14125 -0 63400 4 14165 SXD RNC,4 4F1D2690 14126 0 50000 0 14163 RN40 CLA RNA 4F1D2700 14127 0 40000 0 14166 ADD RND 4F1D2710 14130 0 34000 0 14164 CAS RNB 4F1D2720 14131 0 76100 0 00000 NOP 4F1D2730 14132 0 02000 0 14153 TRA RN50 4F1D2740 14133 0 76700 0 00022 ALS 18 4F1D2750 14134 0 40000 0 14163 ADD RNA 4F1D2760 14135 0 60100 0 14137 STO RAN10 4F1D2770 14136 0 07400 4 14170 TSX WOT,C 4F1D2780 A 14137 0 00000 0 00000 RAN10 HTR 4F1D2790 14140 0 50000 0 14137 CLA RAN10 4F1D2800 14141 0 77100 0 00022 ARS 18 4F1D2610 14142 0 40200 0 14167 SUB RNE 4F1D2820 14143 0 62100 0 14150 STA RN20 4F1D2830 14144 0 40200 0 14167 SUB RNE 4F1D2840 14145 0 62100 0 14151 STA RN30 4F1D2850 14146 0 62100 0 14163 STA RNA 4F1D2860 14147 0 50000 0 14402 CLA BLNKS 4F1D2870 A 14150 0 60100 0 00000 RN20 STO 4F1D2880 A 14151 0 60100 0 00000 RN30 STO 4F1D2890 14152 0 02000 0 14126 TRA RN40 4F1D2900 14153 0 50000 0 14164 RN50 CLA RNB 4F1D2910 14154 0 76700 0 00022 ALS 18 4F1D2920 14155 0 40000 0 14163 ADD RNA 4F1D2930 14156 0 60100 0 14160 STO RN60 4F1D2940 14157 0 07400 4 14170 TSX WOT,C 4F1D2950 A 14160 0 00000 0 00000 RN60 HTR 4F1D2960 14161 -0 53400 4 14165 LXD RNC,C 4F1D2970 14162 0 02000 4 00002 TRA 2,C 4F1D2980 A 14163 0 00000 0 00000 RNA HTR 4F1D2990 A 14164 0 00000 0 00000 RNB HTR 4F1D3000 A 14165 0 00000 0 00000 RNC HTR 4F1D3010 14166 0 00000 0 00024 RND HTR 20 4F1D3020 14167 0 00000 0 00001 RNE HTR 1 4F1D3030 14170 -0 63400 1 14340 WOT SXD X1,1 4F1D3040 14171 -0 63400 2 14346 SXD X2,2 4F1D3050 14172 0 50000 4 00001 CLA 1,4 PRINT ROUTINE 4F1D3060 14173 0 62100 0 14221 STA T5 X 4F1D3070 14174 0 62200 0 14403 STD X4 X 4F1D3080 14175 0 77100 0 00022 ARS 18 X 4F1D3090 14176 0 40000 0 14403 ADD X4 X 4F1D3100 14177 0 62100 0 14252 STA PR2 X 4F1D3110 14200 0 62100 0 14277 STA CI9 X 4F1D3120 14201 0 40200 4 00001 SUB 1,4 B-A+1 IN AC 4F1D3130 14202 0 10000 4 00002 TZE 2,4 4F1D3140 14203 -0 12000 4 00002 TMI 2,4 4F1D3150 14204 -0 63400 4 14403 SXD X4,4 4F1D3160 14205 0 73400 4 00013 L11 PAX 11,4 4F1D3170 14206 -0 63400 4 14211 SXD PR6,4 4F1D3180 14207 -0 50000 0 14353 CAL WP INITIALIZE SWITCH 4F1D3190 14210 0 60100 0 14353 STO WP X 4F1D3200 TD 14211 3 00000 0 14212 PR6 TXH T4 4F1D3210 14212 0 76600 0 00361 T4 WPR 4F1D3220 TD 14213 -3 00000 0 14217 Z2 TXL S3 4F1D3230 ATD 14214 -3 00000 0 00000 OZ2 TXL 4F1D3240 14215 0 76000 0 00364 SP4 SPR 4 4F1D3250 TD 14216 -3 00000 0 14250 TXL RPR+2 4F1D3260 14217 0 50200 0 14353 S3 CLS WP SET SWITCH FOR MASKING 4F1D3270 14220 0 60100 0 14353 STO WP CHARACTER FROM TYPE WHEEL 1 4F1D3280 14221 -0 50000 0 14221 T5 CAL * OBTAIN FIRST CHARACTER 4F1D3290 14222 0 77100 0 00036 ARS 30 X 4F1D3300 14223 0 10000 0 14215 TZE SP4 DOUBLE SPACE IF ZERO 4F1D3310 14224 0 34000 0 14404 CAS YZONE TEST FOR SPACE SUPPRESS 4F1D3320 TD 14225 -3 00000 0 14227 TXL BK NO 4F1D3330 TD 14226 -3 00000 0 14247 TXL RPR+1 SUPPRESS SPACE 4F1D3340 14227 0 34000 0 14405 BK CAS BNK TEST FOR BLANK 4F1D3350 TD 14230 -3 00000 0 14232 TXL DIGF NO 4F1D3360 TD 14231 -3 00000 0 14250 TXL RPR+2 BLANK 4F1D3370 14232 0 76000 0 00372 DIGF SPR 10 SET CHANNEL SKIP 4F1D3380 14233 -0 32000 0 14234 ANA MK MASK OUT ZONE 4F1D3390 14234 0 73400 1 00017 MK PAX 15,1 OBTAIN SPR COMBINATION 4F1D3400 14235 1 00001 1 14236 TXI N2,1,1 X 4F1D3410 14236 -2 00010 1 14240 N2 TNX N3,1,8 X 4F1D3420 14237 0 76000 0 00370 SPR 8 X 4F1D3430 14240 -2 00004 1 14242 N3 TNX N4,1,4 X 4F1D3440 14241 0 76000 0 00364 SPR 4 X 4F1D3450 14242 -2 00002 1 14244 N4 TNX N5,1,2 X 4F1D3460 14243 0 76000 0 00362 SPR 2 X 4F1D3470 14244 -2 00001 1 14246 N5 TNX RPR,1,1 X 4F1D3480 14245 0 76000 0 00361 SPR 1 X 4F1D3490 14246 0 76600 0 00361 RPR WPR 4F1D3500 14247 0 76000 0 00365 SPR 5 SUPPRESS SPACE 4F1D3510 14250 0 50000 0 14402 CLA BLNKS FIND LAST NON-BLANK GROUP 4F1D3520 14251 -0 53400 4 14312 LXD CI4,4 X 4F1D3530 14252 0 34000 4 00000 PR2 CAS 0,4 X 4F1D3540 14253 1 77777 4 14256 TXI PR1,4,-1 X 4F1D3550 14254 1 00001 4 14252 TXI PR2,4,1 X 4F1D3560 14255 1 77777 4 14256 TXI PR1,4,-1 X 4F1D3570 14256 -0 63400 4 14316 PR1 SXD CI6,4 STORE END TEST 4F1D3560 14257 -0 63400 4 14330 SXD CI8,4 X 4F1D3590 14260 -0 63400 4 14263 SXD PR8,4 X 4F1D3600 14261 -0 63400 4 14370 SXD WP4,4 X 4F1D3610 14262 -0 53400 4 14211 LXD PR6,4 X 4F1D3620 D 14263 -2 00000 4 14267 PR8 TNX PR5,4 4F1D3630 14264 -3 00014 4 14266 TXL PR3,4,12 4F1D3640 14265 0 76000 0 00370 SPR 8 FIRST CYCLE 4F1D3650 14266 -0 53400 4 14211 PR3 LXD PR6,4 INITIALIZE GROUP COUNT 4F1D3660 14267 0 53400 2 14271 PR5 LXA PR7,2 INITIALIZE LEFT SETUP 4F1D3670 14270 -0 53400 1 14333 LXD YZ1,1 CLEAR CARD IMAGE 4F1D3680 T 14271 -0 75400 0 00000 PR7 PXD X 4F1D3690 14272 0 60200 1 14451 PR4 SLW LT,1 X 4F1D3700 14273 0 60200 1 14431 SLW RT,1 X 4F1D3710 14274 2 00001 1 14272 TIX PR4,1,1 X 4F1D3720 14275 -0 50000 0 14407 CIR CAL COL1 INITIALIZE COLUMN INDICATOR 4F1D3730 14276 0 60200 0 14410 CI2 SLW COL X 4F1D3740 14277 0 56000 4 00000 CI9 LDQ 0,4 OBTAIN GROUP 4F1D3750 14300 -0 63400 4 14214 SXD OZ2,4 STORE GROUP COUNT 4F1D3760 14301 0 53400 4 14303 LXA Q6,4 SET CHARACTER COUNT 4F1D3770 T 14302 -0 75400 0 00000 CI1 PXD 4F1D3780 14303 -0 76300 0 00006 Q6 LGL 6 4F1D3790 14304 0 73400 1 00000 PAX 0,1 4F1D3800 14305 -0 50000 0 14410 CAL COL POSITION COLUMN INDICATOR 4F1D3810 14306 0 77100 4 00006 ARS 6,4 X 4F1D3820 14307 2 00020 1 14333 TIX YZ1,1,16 TEST FOR DIGIT 4F1D3830 14310 3 00017 1 14336 TXH YZ2,1,15 TEST FOR Y-ZONE 4F1D3840 14311 -0 60200 3 14446 CI5 ORS D,3 STORE DIGIT 4F1D3850 14312 2 00001 4 14302 CI4 TIX CI1,4,1 COUNT CHARACTERS 4F1D3860 14313 0 77100 0 00001 CI3 ARS 1 SHIFT AND TEST COLUMN 4F1D3870 14314 -0 53400 4 14214 LXD OZ2,4 RESTORE GROUP COUNT 4F1D3880 14315 1 77777 4 14316 TXI CI6,4,-1 COUNT GROUPS 4F1D3890 D 14316 -3 00000 4 14320 CI6 TXL CI7,4 TEST FOR LAST NON-BLANK GROUP 4F1D3900 14317 -0 10000 0 14276 TNZ CI2 TEST FOR END OF ROW 4F1D3910 14320 -0 50000 2 14433 CI7 CAL 8.3,2 FORM TRUE 8,4 4F1D3920 14321 -0 60200 2 14436 ORS D-8,2 AND 3 ROWS AND 4F1D3930 14322 -0 60200 2 14443 ORS D-3,2 MOVE 8,4 AND 8.3 4F1D3940 14323 0 60200 2 14434 SLW 8.2,2 ROWS 4F1D3950 14324 -0 50000 2 14432 CAL 8.4,2 FORM TRUE 8,4 4F1D3960 14325 -0 60200 2 14436 ORS D-8,2 X 4F1D3970 14326 -0 60200 2 14442 ORS D-4,2 X 4F1D3980 14327 0 60200 2 14433 SLW 8.3,2 X 4F1D3990 D 14330 -3 00000 4 14353 CI8 TXL WP,4 TEST FOR END 4F1D4000 14331 3 00017 2 14353 TXH WP,2,15 TEST FOR RIGHT HALF 4F1D4010 14332 1 00020 2 14275 TXI CIR,2,16 INITIALIZE RIGHT HALF 4F1D4020 14333 2 00020 1 14341 YZ1 TIX XZ1,1,16 TEST FOR 16/CH/32 4F1D4030 14334 3 00017 1 14344 TXH XZ2,1,15 TEST FOR X-ZONE 4F1D4040 14335 -0 60200 3 14446 ORS D,3 STORE DIGIT 4F1D4050 14336 -0 60200 2 14450 YZ2 ORS Y,2 STORE Y-ZONE 4F1D4060 14337 2 00001 4 14302 TIX CI1,4,1 COUNT CHARACTERS 4F1D4070 TD 14340 -3 00000 0 14313 X1 TXL CI3 OBTAIN NEXT GROUP 4F1D4080 14341 2 00020 1 14347 XZ1 TIX OZ1,1,16 TEST FOR 32/CH/48 4F1D4090 14342 3 00017 1 14312 TXH CI4,1,15 TEST FOR BLANK 4F1D4100 14343 -0 60200 3 14446 ORS D,3 STORE DIGIT 4F1D4110 14344 -0 60200 2 14447 XZ2 ORS X,2 STORE X-ZONE 4F1D4120 14345 2 00001 4 14302 TIX CI1,4,1 COUNT CHARACTERS 4F1D4130 TD 14346 -3 00000 0 14313 X2 TXL CI3 OBTAIN NEXT GROUP 4F1D4140 14347 -0 60200 2 14446 OZ1 ORS Z,2 STORE 0-ZONE 4F1D4150 14350 -0 60200 3 14446 ORS D,3 STORE DIGIT 4F1D4160 14351 2 00001 4 14302 TIX CI1,4,1 COUNT CHARACTERS 4F1D4170 TD 14352 -3 00000 0 14313 TXL CI3 4F1D4180 TD 14353 3 00000 0 14355 WP TXH WP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL 4F1D4190 TD 14354 -3 00000 0 14361 TXL WP7 NO PROGRAM 4F1D4200 14355 -0 53400 1 14401 WP9 LXD WP2,1 MASK OUT FIRST COL, OF CARD IMAGE 4F1D4210 14356 -0 50000 0 14406 CAL MK2 X 4F1D4220 14357 0 32000 1 14451 ANS ANS LT,1 X 4F1D4230 14360 2 00001 1 14357 TIX ANS,1,1 X 4F1D4240 14361 -0 53400 1 14213 WP7 LXD Z2,1 COPY LOOP 4F1D4250 14362 0 70000 1 14435 CRAN CPY LT-12,1 4F1D4260 14363 0 70000 1 14415 CPY RT-12,1 X 4F1D4270 14364 1 77777 1 14365 TXI T2,1,-1 4F1D4280 14365 3 77764 1 14362 T2 TXH CRAN,1,-12 4F1D4290 14366 -0 50000 0 14353 CAL WP RESET SWITCH FOR SECOND CYCLE 4F1D4300 14367 0 60100 0 14353 STO WP X 4F1D4310 D 14370 3 00000 4 14377 WP4 TXH WP5,4 4F1D4320 14371 -0 53400 1 14340 LXD X1,1 NO, RELOAD INDEX REGISTERS AND RETURN 4F1D4330 14372 -0 53400 2 14346 LXD X2,2 X 4F1D4340 14373 -0 53400 4 14403 WT2 LXD X4,4 X 4F1D4350 14374 0 02000 4 00002 L2 TRA 2,4 X 4F1D4360 14375 0 76600 0 00361 RPR2 WPR 4F1D4370 TD 14376 -3 00000 0 14250 TXL PR2-2 4F1D4380 14377 0 76600 0 00361 WP5 WPR 4F1D4390 14400 0 76000 0 00371 SPR 9 SECOND CYCLE 4F1D4400 14401 -3 00014 0 14267 WP2 TXL PR5,0,12 CONVERT REST OF LINE 4F1D4410 14402 606060606060 BLNKS BCD 1 4F1D4420 A 14403 0 00000 0 00000 X4 HTR 4F1D4430 14404 +000000000020 YZONE OCT 20 4F1D4440 14405 +000000000060 BNK OCT 60 4F1D4450 14406 +377777777777 MK2 OCT 377777777777 4F1D4460 14407 -0 00000 0 00000 COL1 MZE 4F1D4470 14410 COL BSS 1 4F1D4460 14431 RT BES 16 4F1D4490 14431 8.5 BSS 1 4F1D4500 14432 8.4 BSS 1 4F1D4510 14433 8.3 BSS 1 4F1D4520 14434 8.2 BSS 1 4F1D4530 14446 D BES 9 4F1D4540 14446 Z BSS 1 4F1D4550 14447 X BSS 1 4F1D4560 14450 Y BSS 1 4F1D4570 14451 LT SYN Y+1 4F1D4580 14433 8.4L SYN LT-14 4F1D4590 14413 8.4R SYN RT-14 4F1D4600 14451 BSS 27 4F1D4610 14022 EXIT SYN SECND 4F1D4620 ADDRESS REQUIRED FROM SECTION ONE.......... 4F1D4630 01152 F SYN 618 ADDRESS OF 1ST WORD OF F REGION 4F1D4640 02402 MON SYN 1282 ADDRESS OF ENTRY TO MONITOR FOR A 4F1D4650 02367 DCELL1 SYN 1271 4F1D4660 4F1D4670 4F1D4680 TABLE OF DIAGNOSTIC COMMENTS, SECTION ONE OF 704 FORTRAN II. 4F1D4690 4F1D4700 4F1D4710 COMMON 4F1D4720 4F1D4730 14504 TABLE BSS 0 4F1D4740 14504 676767676767 BCD XXXXXX000001 DIM3 TABLE EXCEEDED, THE NUMBER OF 3-DIMEN4F1D4750 14505 000000000001 14506 606060606060 14507 243144036063 14510 212243256025 14511 672325252425 14512 247360633025 14513 604564442225 14514 516046266003 14515 402431442545 14516 623146452143 BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4760 14517 606521513121 14520 224325626066 14521 303123306021 14522 474725215160 14523 314560243144 14524 254562314645 14525 606263216325 14526 442545636260 14527 256723252524 14530 626011463360 BCD 1S 9O. 4F1D4770 4F1D4780 14531 676767676767 BCD XXXXXX000002 DIM2 TABLE EXCEEDED, THE NUMBER OF 2-DIMEN4F1D4790 14532 000000000002 14533 606060606060 14534 243144026063 14535 212243256025 14536 672325252425 14537 247360633025 14540 604564442225 14541 516046266002 14542 402431442545 14543 623146452143 BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4800 14544 606521513121 14545 224325626066 14546 303123306021 14547 474725215160 14550 314560243144 14551 254562314645 14552 606263216325 14553 442545636260 14554 256723252524 14555 626001000033 BCD 1S 100. 4F1D4810 4F1D4820 14556 676767676767 BCD XXXXXX000003 DIM1 TABLE EXCEEDED. THE NUMBER OF 1-DIMEN4F1D4830 14557 000000000003 14560 606060606060 14561 243144016063 14562 212243256025 14563 672325252425 14564 243360633025 14565 604564442225 14566 516046266001 14567 402431442545 14570 623146452143 BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4840 14571 606521513121 14572 224325626066 14573 303123306021 14574 474725215160 14575 314560243144 14576 254562314645 14577 606263216325 14600 442545636260 14601 256723252524 14602 626001000073 BCD 1S 100, 4F1D4850 4F1D4860 14603 676767676767 BCD XXXXXX000004 SIGMA TABLE EXCEEDED. MORE THAN 30 DIFFERE4F1D4870 14604 000000000004 14605 606060606060 14606 623127442160 14607 632122432560 14610 256723252524 14611 252433604446 14612 512560633021 14613 456003006024 14614 312626255125 14615 456360512543 BCD NT RELATIVE ADDRESSES RESULTING FROM THE ADDENDS IN SUBSCRIP4F1D4880 14616 216331652560 14617 212424512562 14620 622562605125 14621 626443633145 14622 276026514644 14623 606330256021 14624 242425452462 14625 603145606264 14626 226223513147 14627 636260462660 BCD TS OF THIS STATEMENT. (SIGN CONSIDERED, ONE RELATIVE ADDRESS4F1D4890 14630 633031626062 14631 632163254425 14632 456333607462 14633 312745602346 14634 456231242551 14635 252473604645 14636 256051254321 14637 633165256021 14640 242451256262 14641 462660006021 BCD 3OF 0 ASSUMMED) 4F1D4900 14642 626264444425 14643 243460606060 4F1D4910 14644 676767676767 BCD XXXXXX000005 TAU3 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4920 14645 000000000005 14646 606060606060 14647 632164036063 14650 212243256025 14651 672325252425 14652 243360633025 14653 606346632143 14654 316370604626 14655 602431262625 14656 512545636003 BCD RENT 3-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 75 FOR THI4F1D4930 14657 402431442545 14660 623146452143 14661 606264226223 14662 513147636023 14663 464422314521 14664 633146456260 14665 256723252524 14666 626007056026 14667 465160633031 14670 626047514627 BCD 2S PROGRAM. 4F1D4940 14671 512144336060 4F1D4950 14672 676767676767 BCD XXXXXX000006 TAU2 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4960 14673 000000000006 14674 606060606060 14675 632164026063 14676 212243256025 14677 672325252425 14700 243360633025 14701 606346632143 14702 316370604626 14703 602431262625 14704 512545636002 BCD RENT 2-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 90 FOR THI4F1D4970 14705 402431442545 14706 623146452143 14707 606264226223 14710 513147636023 14711 464422314521 14712 633146456260 14713 256723252524 14714 626011006026 14715 465160633031 14716 626047514627 BCD 2S PROGRAM. 4F1D4980 14717 512144336060 4F1D4990 14720 676767676767 BCD XXXXXX000O07 TAU1 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D5000 14721 000000460007 14722 606060606060 14723 632164016063 14724 212243256025 14725 672325252425 14726 243360633025 14727 606346632143 14730 316370604626 14731 602431262625 14732 512545636001 BCD RENT 1-DIMENSI0NAL SUBSCRIPT COMBINATIONS EXCEEDS 100 FOR TH4F1D5010 14733 402431442545 14734 623100452143 14735 606264226223 14736 513147636023 14737 464422314521 14740 633146456260 14741 256723252524 14742 626001000060 14743 264651606330 14744 316260475146 BCD 2IS PROGRAM. 4F1D5020 14745 275121443360 4F1D5030 14746 676767676767 BCD XXXXXX000010 FLOCON TABLE EXCEEDED. MORE THAT 450 DIFFE4F1D5040 14747 000000000100 14750 606060606060 14751 264346234645 14752 606321224325 14753 602567232525 14754 242524336044 14755 465125606330 14756 216360040500 14757 602431262625 14760 254563602643 BCD RENT FLOATING POINT CONSTANTS IN THIS PROBLEM. (SIGN NOT CONS4F1D5050 14761 462163314527 14762 604746314563 14763 602346456263 14764 214563626031 14765 456063303162 14766 604751462243 14767 254433607462 14770 312745604546 14771 636023464562 14772 312425512524 BCD 2IDERED) 4F1D5060 14773 346060606060 4F1D5070 14774 676767676767 BCD XXXXXX000011 FIXCON TABLE EXCEEDED. MORE THAN 100 DIFFE4F1D5080 14775 000000000101 14776 606060606060 14777 263167234645 15000 606321224325 15001 602567232525 15002 242524336044 15003 465125606330 15004 214560010000 15005 602431262625 15006 512545636026 BCD RENT FIXED POINT CONSTANTS IN THIS PROGRAM. (SIGN NOT CONSID4F1D5090 15007 316725246047 15010 463145636023 15011 464562632145 15012 636260314560 15013 633031626047 15014 514627512144 15015 336074623127 15016 456045466360 15017 234645623124 15020 255125243460 BCD 1ERED) 4F1D5100 4F1D5110 15021 676767676767 BCD XXXXXX001635 MORE THAN SIX CHARACTERS IN SOME SYMBOL.4F1D5120 15022 000001060305 15023 606060606060 15024 444651256063 15025 302145606231 15026 676060233021 15027 512123632551 15030 626031456060 15031 624644256062 15032 704422464333 4F1D5130 15033 676767676767 BCD XXXXXX001643 ILLEGAL PUNCTUATION IN THIS STATEMENT.4F1D5140 15034 000001060403 15035 606060606060 15036 314343252721 15037 436060476445 15040 236364216331 15041 464560603145 15042 606063303162 15043 606062632163 15044 254425456333 4F1D5150 15045 676767676767 BCD XXXXXX002034 MACHINE ERROR. CAS CONTRADICTS PREVIOUS TL4F1D5160 15046 000002000304 15047 606060606060 15050 442123303145 15051 256025515146 15052 513360232162 15053 602346456351 15054 212431236362 15055 604751256531 15056 466462606343 15057 503360606060 BCD 1Q. 4F1D5170 4F1D5180 15060 676767676767 BCD XXXXXX002062 REPEATED CHECK SUM ERROR IN READING DRUM 34F1D5190 15061 000002000602 15062 606060606060 15063 512547252163 15064 252460233025 15065 234260626444 15066 602551514651 15067 603145605125 15070 212431452760 15071 245164446003 15072 336060606060 BCD 1. 4F1D5200 4F1D5210 15073 676767676767 BCD XXXXXX002266 MACHINE ERROR. INDEX FAILURE. 4F1D5220 15074 000002020606 15075 606060606060 15076 442123303145 15077 256025515146 15100 513360314524 15101 256760262131 15102 436451253360 15103 606060606060 15104 606060606060 4F1D5230 15105 676767676767 BCD XXXXXX002433 REPEATED FAILURE IN READING STATE C FROM D4F1D5240 15106 000002040303 15107 606060606060 15110 512547252163 15111 252460262131 15112 436451256031 15113 456051252124 15114 314527606263 15115 216325602360 15116 265146446024 15117 516444606004 BCD 2RUM 4. 4F1D5250 15120 336060606060 4F1D5260 15121 676767676767 BCD XXXXXX002434 REPEATED FAILURE IN READING STATE B FROM D4F1D5270 15122 000002040304 15123 606060606060 15124 512547252163 15125 252460262131 15126 436451256031 15127 456051252124 15130 314527606263 15131 216325602260 15132 265146446024 15133 516444606003 BCD 2RUM 3. 4F1D5280 15134 336060606060 4F1D5290 15135 676767676767 BCD XXXXXX002435 REPEATED FAILURE IN READING STATE D FROM D4F1D5300 15136 000002040305 15137 606060606060 15140 512547252163 15141 252460262131 15142 436451256031 15143 456051252124 15144 314527606263 15145 216325602460 15146 265146446024 15147 516444606002 BCD 2RUM 2. 4F1D5310 15150 336060606060 4F1D5320 15151 676767676767 BCD XXXXXX002436 REPEATED FAILURE IN READING STATE A FROM D4F1D5330 15152 000002040306 15153 606060606060 15154 512547252163 15155 252460262131 15156 436451256031 15157 456051252124 15160 314527606263 15161 216325602160 15162 265146446024 15163 516444606001 BCD 2RUM 1. 4F1D5340 15164 336060606060 4F1D5350 15165 676767676767 BCD XXXXXX002523 MACHINE ERROR. INDEX FAILURE. 4F1D5360 15166 000002050203 15167 606060606060 15170 442123303145 15171 256060255151 15172 465133606031 15173 452425676026 15174 213143645125 15175 336060606060 15176 606060606060 4F1D5370 15177 676767676767 BCD XXXXXX002565 REPEATED CHECK SUM ERROR IN READING TABLES4F1D5380 15200 000002050605 15201 606060606060 15202 512547252163 15203 252460233025 15204 234260626444 15205 602551514651 15206 603145605125 15207 212431452760 15210 632122432562 15211 265146446024 BCD 4FROM DRUM 2, 3 OR 4, 4F1D5390 15212 516444600273 15213 600360465160 15214 047360606060 4F1D5400 15215 676767676767 BCD XXXXXX002577 NON-NUMERIC CHARACTER IN NUMERIC FIELD OR 4F1D5410 15216 000002050707 15217 606060606060 15220 454645404564 15221 442551312360 15222 233021512123 15223 632551603145 15224 604564442551 15225 312360263125 15226 432460465160 15227 474662623122 BCD 8POSSIBLE MISSING PUNCTUATION BETWEEN FIELDS. 4F1D5420 15230 432560443162 15231 623145276047 15232 644523636421 15233 633146456022 15234 256366252545 15235 602631254324 15236 623360606060 4F1D5430 15237 676767676767 BCD XXXXXX002656 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5440 15240 000002060506 15241 606060606060 15242 216062642262 15243 235131476360 15244 316260454663 15245 602160263167 15246 252460474631 15247 456360652151 15250 312122432533 4F1D5450 15251 676767676767 BCD XXXXXX002666 A SUBSCRIPT HAS A DOUBLE MULTIPLIER. 4F1D5460 15252 000002060606 15253 606060606060 15254 216062642262 15255 235131476360 15256 302162602160 15257 244664224325 15260 604464436331 15261 474331255133 15262 606060606060 4F1D5470 15263 676767676767 BCD XXXXXX002673 A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. 4F1D5480 15264 000002060703 15265 606060606060 15266 216062642262 15267 235131476360 15270 446443633147 15271 433125516031 15272 626045466360 15273 216023464562 15274 632145633360 4F1D5490 15275 676767676767 BCD XXXXXX002720 MORE THAN SIX CHARACTERS IN A SYMBOL WITHI4F1D5500 15276 000002070200 15277 606060606060 15300 444651256063 15301 302145606231 15302 676023302151 15303 212363255162 15304 603145602160 15305 627044224643 15306 606631633031 15307 456021606264 BCD 8N A SUBSCRIPT OR POSSIBLE MISSING PUNCTUATION. 4F1D5510 15310 226223513147 15311 636046516047 15312 466262312243 15313 256044316262 15314 314527604764 15315 452363642163 15316 314645336060 4F1D5520 15317 676767676700 BCD XXXXX002722 THERE IS AN ILLEGAL CHARACTER IN SOME SUBS4F1D5530 15320 000207020260 15321 606060606060 15322 633025512560 15323 316260214560 15324 314343252721 15325 436023302151 15326 212363255160 15327 314560624644 15330 256062642262 15331 622351314763 BCD 2SCRIPT. 4F1D5540 15332 336060606060 4F1D5550 15333 676767676767 BCD XXXXXX002741 A SUBSCRIPT HAS A DOUBLE ADDEND. 4F1D5560 15334 000002070401 15335 606060606060 15336 216062642262 15337 235131476360 15340 302162602160 15341 602446642243 15342 256021242425 15343 452433606060 15344 606060606060 4F1D5570 15345 676767676767 BCD XXXXXX002744 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5580 15346 000002070404 15347 606060606060 15350 216062642262 15351 235131476360 15352 316260454663 15353 602160263167 15354 252460474631 15355 456360652151 15356 312122432533 4F1D5590 15357 676767676767 BCD XXXXXX002764 A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5600 15360 000002070604 15361 606060606060 15362 216062642262 15363 235131476360 15364 316260454663 15365 602160263167 15366 252460474631 15367 456360652151 15370 312122432533 4F1D5610 15371 676767676767 BCD XXXXXX003023 A SUBSCRIPT ADDEND IS NOT A CONSTANT. 4F1D5620 15372 000003000203 15373 606060606060 15374 216062642262 15375 235131476360 15376 212424254524 15377 603162604546 15400 636021602346 15401 456263214563 15402 336060606060 4F1D5630 15403 676767676767 BCD XXXXXX003026 THERE IS A PARENTHESIS MISSING IN SOME SUB4F1D5640 15404 000003000206 15405 606060606060 15406 633025512560 15407 316260216047 15410 215125456330 15411 256231626044 15412 316262314527 15413 603145606246 15414 442560626422 15415 622351314763 BCD 4SCRIPT COMBINATION. 4F1D5650 15416 602346442231 15417 452163314645 15420 336060606060 4F1D5660 15421 676767676767 BCD XXXXXX003064 A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5670 15422 000003000604 15423 606060606060 15424 216003602431 15425 442545623146 15426 452143606264 15427 226223513147 15430 632524606521 15431 513121224325 15432 602446256260 15433 454663603021 BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY. 4F1D5680 15434 652560216024 15435 314425456231 15436 464560626321 15437 632544254563 15440 602545635170 15441 336060606060 4F1D5690 15442 676767676767 BCD XXXXXX003151 A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5700 15443 000003010501 15444 606060606060 15445 216002602431 15446 442545623146 15447 452143606264 15450 226223513147 15451 632524606521 15452 513121224325 15453 602446256260 15454 454663603021 BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY. 4F1D5710 15455 652560216024 15456 314425456231 15457 464560626321 15460 632544254563 15461 602545635170 15462 336060606060 4F1D5720 15463 676767676767 BCD XXXXXX003254 PROGRAM EXPECTS COMMA OR END OF STATEMENT.4F1D5730 15464 000003020504 15465 606060606060 15466 475146275121 15467 446025674725 15470 236362602346 15471 444421604651 15472 602545246046 15473 266062632163 15474 254425456333 4F1D5740 15475 676767676767 BCD XXXXXX003262 PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS4F1D5750 15476 000003020602 15477 606060606060 15500 475146275121 15501 446025674725 15502 236362602346 15503 444421604651 15504 605131273063 15505 604721512545 15506 633025623162 15507 336060606060 BCD 1. 4F1D5760 4F1D5770 15510 676767676767 BCD XXXXXX003270 PROGRAM EXPECTS LEFT PARENTHESIS OR END OF4F1D5780 15511 000003020700 15512 606060606060 15513 475146275121 15514 446025674725 15515 236362604325 15516 266360472151 15517 254563302562 15520 316260465160 15521 254524604626 15522 606263216325 BCD 2 STATEMENT. 4F1D5790 15523 442545633360 4F1D5800 15524 676767676767 BCD XXXXXX003272 MACHINE ERROR. AC GREATER THAN OCTAL 77. 4F1D5810 15525 000003020702 15526 606060606060 15527 442123303145 15530 256025515146 15531 513360212360 15532 275125216325 15533 516063302145 15534 604623632143 15535 600707336060 4F1D5820 15536 676767676767 BCD 9XXXXXX003274 PROGRAM EXPECTS END OF STATEMENTS 4F1D5830 15537 000003020704 15540 606060606060 15541 475146275121 15542 446025674725 15543 236362602545 15544 246046266062 15545 632163254425 15546 456362606060 4F1D5840 15547 676767676767 BCD 9XXXXXX003300 PROGRAM EXPECTS LEFT PARENTHESIS. 4F1D5850 15550 000003030000 15551 606060606060 15552 475146275121 15553 446025674725 15554 236362604325 15555 266360472151 15556 254563302562 15557 316233606060 4F1D5860 15560 676767676767 BCD 9XXXXXX003304 PROGRAM EXPECTS RIGHT PARENTHESIS. 4F1D5870 15561 000003030004 15562 606060606060 15563 475146275121 15564 446025674725 15565 236362605131 15566 273063604721 15567 512545633025 15570 623162336060 4F1D5880 15571 676767676767 BCD 7XXXXXX003310 PROGRAM EXPECTS COMMA. 4F1D5690 15572 000003030100 15573 606060606060 15574 475146275121 15575 446025674725 15576 236362602346 15577 444421336060 4F1D5900 15600 676767676767 BCD XXXXXX003314 SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN 4F1D5910 15601 000003030104 15602 606060606060 15603 627044224643 15604 602225273145 15605 626045644425 15606 513123606630 15607 312330603162 15610 603143432527 15611 214360314560 15612 633031626023 BCD 3THIS CONTEXT. 4F1D5920 15613 464563256763 15614 336060606060 15615 676767676767 BCD XXXXXX003316 SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL4F1D5940 15616 000003030106 15617 606060606060 15620 627044224643 15621 602225273145 15622 626045464540 15623 456444255131 15624 236066303123 15625 306031626031 15626 434325272143 15627 603145606330 BCD 3 IN THIS CONTEXT. 4F1D5950 15630 316260234645 15631 632567633360 4F1D5960 STATE A 4F1D5970 4F1D5980 15632 676767676767 BCD XXXXXX003542 THE CHARACTER $ OCCURS IN THIS STATEMENT 4F1D5990 15633 000003050402 15634 606060606060 15635 633025602330 15636 215121236325 15637 516053604623 15640 236451626031 15641 456063303162 15642 606263216325 15643 442545636060 15644 606246442566 BCD 8 SOMEWHERE OTHER THAN IN HOLLERITH TEXT. 4F1D6000 15645 302551256046 15646 633025516063 15647 302145603145 15650 603046434325 15651 513163306063 15652 256763336060 15653 606060606060 4F1D6010 15654 676767676767 BCD XXXXXX003545 THE ILLEGAL CHARACTER (0-8-2 PUNCH) OCC4F1D6020 15655 000003050405 15656 606060606060 15657 633025603143 15660 432527214360 15661 233021512123 15662 632551606060 15663 607400401040 15664 026047644523 15665 303460462323 15666 645162603145 BCD 4URS INTHIS STATEMENT. 4F1D6030 15667 633031626062 15670 632163254425 15671 456333606060 4F1D6040 15672 676767676767 BCD XXXXXX003550 THE ILLEGAL CHARACTER -0 (11-8-2 PUNCH) O 4F1D6050 15673 000003050500 15674 606060606060 15675 633025603143 15676 432527214360 15677 233021512123 15700 632551604000 15701 607401014010 15702 400260476445 15703 233034604660 15704 232364516260 BCD 4CCURS IN THIS STATEMENTS. 4F1D6060 15705 314560633031 15706 626062632163 15707 254425456362 4F1D6070 15710 676767676767 BCD XXXXXX003553 THE ILLEGAL CHARACTER +0 112-6-2 PUNCH) 0 4F1D6080 15711 000003050503 15712 606060606060 15713 633025603143 15714 432527214360 15715 233021512123 15716 632551602000 15717 600101024006 15720 400260476445 15721 233034600060 15722 232364516260 BCD 4CCURS IN THIS STATEMENT. 4F1D6090 15723 314560633031 15724 626062632163 15725 254425456333 4F1D6100 15726 676767676767 BCD XXXXXX003556 THE ILLEGAL CHARACTER - (8-4 PUNCH) OCCUR 4F1D6110 15727 000003050506 15730 606060606060 15731 633025603143 15732 432527214360 15733 233021512123 15734 632551604060 15735 741040046047 15736 644523303460 15737 462323645160 15740 626031456063 BCD 4S IN THIS STATEMENT. 4F1D6120 15741 303162606263 15742 216325442545 15743 633360606060 4F1D6130 15744 676767676767 BCD XXXXXX003561 THE NON BCD CHARACTER 001010 HAS BEEN RE 4F1D6140 15745 000003050601 15746 606060606060 15747 633025604546 15750 456022232460 15751 233021512123 15752 632551600000 15753 010001006030 15754 216260222525 15755 456051256060 15756 212460265146 BCD 8AD FROM TAPE WHILE PROCESSING THIS STATEMENT. 4F1D6150 15757 446063214725 15760 606630314325 15761 604751462325 15762 626231452760 15763 633031626062 15764 632163254425 15765 456333606060 4F1D6160 15766 676767676767 BCD 8XXXXXX003615 TOO MANY RIGHT PARENTHESIS. 4F1D6170 15767 000003060105 15770 606060606060 15771 634646604421 15772 457060513127 15773 306360472151 15774 254563302562 15775 316233606060 4F1D6180 15776 676767676767 BCD XXXXXX003624 NON-ARITHMETIC STATEMENT OF A TYPE WHICH I4F1D6190 15777 000003060204 16000 606060606060 16001 454645402151 16002 316330442563 16003 312360626321 16004 632544254563 16005 604626602160 16006 637047256066 16007 303123306031 16010 626045466360 BCD 4S NOT IN DICTIONARY. 4F1D6200 16011 314560243123 16012 633146452151 16013 703360606060 4F1D6210 16014 676767676767 BCD XXXXXX004055 TOO FEW RIGHT PARENTHESES. 4F1D6220 16015 000004000505 16016 606060606060 16017 634646602625 16020 666051312730 16021 636047215125 16022 456330256225 16023 623360606060 16024 606060606060 16025 606060606060 4F104230 16026 676767676767 BCD 7XXXXXX004225 PROGRAM EXPECTS TO . 4F1D6240 16027 000004020205 16030 606060606060 16031 475146275121 16032 446025674725 16033 236362606346 16034 603360606060 4F106250 16035 676767676767 BCD XXXXXX004304 A VARIABLE IN THIS LIST APPEARED PREVIOUSL4F1D6260 16036 000004030004 16037 606060606060 16040 216065215131 16041 212243256031 16042 456063303162 16043 604331626360 16044 214747252151 16045 252460475125 16046 653146646243 16047 706031456021 BCD 5Y IN ADIMENSION STATEMENT. 4F1D6270 16050 243144254562 16051 314645606263 16052 216325442545 16053 633360606060 4F1D6280 16054 676767676767 BCD XXXXXX004323 MORE THAN 3 DIMENSIONS OR MISSING RIGHT PA4F1D6290 16055 000004030203 16056 606060606060 16057 444651256063 16060 302145600360 16061 243144254562 16062 314645626046 16063 516044316262 16064 314527605131 16065 273063604721 16066 512545633025 BCD 2RENTHESIS. 4F1D6300 16067 623162336060 4F1D6310 16070 676767676767 BCD XXXXXX004444 A SUBROUTINE OR FUNCTION STATEMENT APPEARS4F1D6320 16071 000004040404 16072 606060606060 16073 216062642251 16074 466463314525 16075 604651602664 16076 452363314645 16077 606263216325 16100 442545636021 16101 474725215162 16102 432163255160 BCD LATER THAN THE FIRST STATEMENT OF THE PROGRAM. PROBABLY ATTE4F1D6330 16103 633021456063 16104 302560263151 16105 626360626321 16106 632544254563 16107 604626606330 16110 256047514627 16111 512144336047 16112 514622212243 16113 706021636325 16114 444763606346 BCD MPT TOBATCH COMPILE WITHOUT SENSE SWITCH 6 DOWN. 4F1D6340 16115 222163233060 16116 234644473143 16117 256066316330 16120 466463606225 16121 456225606266 16122 316323306006 16123 602446664533 16124 606060606060 16125 606060606060 4F1D6350 16126 676767676767 BCD XXXXXX004544 A RETURN STATEMENT HAS OCCURRED IN A PROGR4F1D6360 16127 000004050404 16130 606060606060 16131 216051256364 16132 514560626321 16133 632544254563 16134 603021626046 16135 232364515125 16136 246031456021 16137 604751462751 16140 214460454663 BCD AM NOTDEFINED TO BE A SUBROUTINE OR FUNCTION SUBPROGRAM. 4F1D6370 16141 242526314525 16142 246063466022 16143 256021606264 16144 225146646331 16145 452560465160 16146 266445236331 16147 464560626422 16150 475146275121 16151 443360606060 4F1D6380 16152 676767676767 BCD XXXXXX004663 SENSE SWITCH SETTING OTHER THAN 0,1 OR 2 4F1D6390 16153 000004060603 16154 606060606060 16155 622545622560 16156 626631632330 16157 606225636331 16160 452760466330 16161 255160633021 16162 456000730160 16163 465160026060 16164 465160444651 BCD 7OR MORE THAN 5 SETTINGS OR WRONG FORMAT. 4F1D6400 16165 256063302145 16166 600560622563 16167 633145276260 16170 465160665146 16171 452760264651 16172 442163336060 4F1D6410 16173 676767676767 BCD 8XXXXXX004705 VARIABLE FORMAT NUMBER. 4F1D6420 16174 000004070005 16175 606060606060 16176 652151312122 16177 432560264651 16200 442163604564 16201 442225513360 16202 606060606060 4F1D6430 16203 676767676767 BCD 6XXXXXX004707 NO FORMAT NUMBER. 4F1D6440 16204 000004070007 16205 606060606060 16206 454660264651 16207 442163604564 16210 442225513360 4F1D6450 16211 676767676767 BCD XXXXXX005170 MORE THAN SIX CHARACTERS IN SOME SYMBOL. 4F1D6460 16212 000005010700 16213 606060606060 16214 444651256063 16215 302145606231 16216 676023302151 16217 212363255162 16220 603145606246 16221 442560627044 16222 224643336060 4F1D6470 16223 676767676767 BCD XXXXXX005200 ILLEGAL CHARACTER IN THIS LIST. 4F1D6480 16224 000005020000 16225 606060606060 16226 314343252721 16227 436023302151 16230 212363255160 16231 314560633031 16232 626043316263 16233 336060606060 16234 606060606060 4F1D6490 16235 676767676767 BCD XXXXXX005260 MORE THAN THREE LEVELS IN THIS LIST (NESTE4F1D6500 16236 000005020600 16237 606060606060 16240 444651256063 16241 302145606330 16242 512525604325 16243 652543626031 16244 456063303162 16245 604331626360 16246 744525626325 16247 006047215125 BCD 30 PARENTHESIS). 4F1D6510 16250 456330256231 16251 623433606060 4F1D6520 16252 676767676767 BCD XXXXXX005263 ATTEMPT TO SPECIFY SUBSCRIPT RANGE WITHO 4F1D6530 16253 000005020603 16254 606060606060 16255 216363254447 16256 636063466062 16257 472523312670 16260 606264226223 16261 513147636051 16262 214527256066 16263 316330466060 16264 646360646225 BCD 4UT USEOF PARENTHESIS. 4F1D6540 16265 462660472151 16266 254563302562 16267 316233606060 4F1D6550 16270 676767676767 BCD XXXXXX005305 INCOMPLETE STATEMENT OR INCOMPLETE CLOSURE4F1D6560 16271 000005030005 16272 606060606060 16273 314523464447 16274 432563256062 16275 632163254425 16276 456360465160 16277 314523464447 16300 432563256023 16301 434662645125 16302 462660472151 BCD 3OF PARENTHESIS. 4F1D6570 16303 254563302562 16304 316233606060 4F1D6580 16305 676767676767 BCD XXXXXX005306 ILLEGAL CHARACTER IN D0 SPECIFICATION IN L4F1D6590 16306 000005030006 16307 606060606060 16310 314343252721 16311 436023302151 16312 212363255160 16313 314560240060 16314 624725233126 16315 312321633146 16316 456031456043 16317 316263736060 BCD 1IST, 4F1D6600 4F1D6610 16320 676767676767 BCD 8XXXXXX005401 TOO MANY RIGHT PARENTHESIS. 4F1D6620 16321 000005040001 16322 606060606060 16323 634646604421 16324 457060513127 16325 306360472151 16326 254563302562 16327 316233606060 4F1D6630 16330 676767676767 BCD 6XXXXXX005416 CONSTANT IN LIST. 4F1D6640 16331 000005040106 16332 606060606060 16333 234645626321 16334 456360314560 16335 433162633360 4F1D6650 16336 676767676767 BCD 8XXXXXX005552 TOO MANY LEFT PARENTHESIS. 4F1D6660 16337 000005050502 16340 606060606060 16341 634646604421 16342 457060432526 16343 636047215125 16344 456330256231 16345 623360606060 4F1D6670 16346 676767676767 BCD XXXXXX005607 ILLEGAL CHARACTER IN THIS STATEMENT. 4F1D6680 16347 000005060007 16350 606060606060 16351 314343252721 16352 436023302151 16353 212363255160 16354 314560633031 16355 626062632163 16356 254425456333 16357 606060606060 4F1D6690 16360 676767676767 BCD XXXXXX005715 A TAPE CHECK HAS OCCURRED THREE TIMES IN A4F1D6700 16361 000005070105 16362 606060606060 16363 216063214725 16364 602330252342 16365 603021626046 16366 232364515125 16367 246063305125 16370 256063314425 16371 626031456021 16372 636325444763 BCD TTEMPTING TO READ A RECORD OF THE SOURCE PROGRAM FROM TAPE 24F1D6710 16373 314527606346 16374 605125212460 16375 216051252346 16376 512460462660 16377 633025606246 16400 645123256047 16401 514627512144 16402 602651464460 16403 632147256002 16404 336021636325 BCD . ATTEMPT TO READ ABANDONED. THE STATEMENT INVOLVED IS NOT P4F1D6720 16405 444763606346 16406 605125212460 16407 212221452446 16410 452524336063 16411 302560626321 16412 632544254563 16413 603145654643 16414 652524603162 16415 604546636047 16416 514623256262 BCD ROCESSED. IF THE RECORD WAS NOT THE LAST RECORD OF A STATEME4F1D6730 16417 252433603126 16420 606330256051 16421 252346512460 16422 662162604546 16423 636063302560 16424 432162636051 16425 252346512460 16426 462660216062 16427 632163254425 16430 456360633025 BCD NT THEFOLLOWING DIAGNOSTIC COMMENT IS MEANINGLESS AND WAS C 4F1D6740 16431 264643434666 16432 314527602431 16433 212745466263 16434 312360234644 16435 442545636031 16436 626044252145 16437 314527432562 16440 626021452460 16441 662162602360 16442 646225246022 BCD AUSED BY AN ATTEMPT TO PROCESS A PARTIAL STATEMENT. 4F1D6750 16443 706021456021 16444 636325444763 16445 606346604751 16446 462325626260 16447 216047215163 16450 312143606263 16451 216325442545 16452 633360606060 16453 606060606060 4F1D6760 16454 676767676767 BCD XXXXXX006042 ILLEGAL USE OF FLOATING POINT VARIABLE. 4F1D6770 16455 000006000402 16456 606060606060 16457 314343252721 16460 436064622560 16461 462660264346 16462 216331452760 16463 474631456360 16464 652151312122 16465 432533606060 4F1D6780 STATE B 4F1D6790 4F1D6800 16466 676767676767 BCD 8XXXXXX003527 TOO MANY CHARACTERS IN SYMBOL, 4F1D6810 16467 000003050207 16470 606060606060 16471 634646604421 16472 457060233021 16473 512123632551 16474 626031456062 16475 704422464373 4F1D6820 16476 676767676767 BCD 8XXXXXX003602 ILLEGAL USE OF . CHARACTER. 4F1D6830 16477 000003060002 16500 606060606060 16501 314343252721 16502 436064622560 16503 462660603360 16504 602330215121 16505 236325513360 4F1D6840 16506 676767676767 BCD 7XXXXXX003613 ARGREG SIZE EXCEEDED. 4F1D6850 16507 000003060103 16510 606060606060 16511 215127512527 16512 606231712560 16513 256723252524 16514 252433606060 4F1D6860 16515 676767676767 BCD XXXXXX003615 ILLEGAL USE OF HOLLERITH SPECIFICATION. 4F1D6870 16516 000003060105 16517 606060606060 16520 314343252721 16521 436064622560 16522 462660304643 16523 432551316330 16524 606247252331 16525 263123216331 16526 464533606060 4F1D6880 16527 676767676767 BCD 8XXXXXX003654 NON-ZERO LEVEL REDUCTION. 4F1D6890 16530 000003060504 16531 606060606060 16532 454645407125 16533 514660432565 16534 254360512524 16535 642363314645 16536 336060606060 4F1D6900 16537 676767676767 BCD 8XXXXXX003671 ILLEGAL USE OF = SIGN. 4F1D6910 16540 000003060701 16541 606060606060 16542 314343252721 16543 436064622560 16544 462660601360 16545 606231274533 16546 606060606060 4F1D6920 16547 676767676767 BCD 8XXXXXX003724 ILLEGAL USE OF . SIGN, 4F1D6930 16550 000003070204 16551 606060606060 16552 314343252721 16553 436064622560 16554 462660603360 16555 606231274573 16556 606060606060 4F1D6940 16557 676767676767 BCD XXXXXX004046 THE NUMERIC CONTROL OF A HOLLERITH TEXT IS4F1D6950 16560 000004000406 16561 606060606060 16562 633025604564 16563 442551312360 16564 234645635146 16565 436046266021 16566 603046434325 16567 513163306063 16570 256763603162 16571 432151272551 BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. 4F1D6960 16572 606330214560 16573 633025604564 16574 442225516046 16575 266023302151 16576 212363255162 16577 602646434346 16600 663145276063 16601 302560303360 4F1D6970 16602 676767676767 BCD 8XXXXXX004136 LAMBDA TABLE SIZE EXCEEDED, 4F1D6980 16603 000004010306 16604 606060606060 16605 432144222421 16606 606321224325 16607 606231712560 16610 256723252524 16611 252473606060 4F1D6990 16612 676767676767 BCD 6XXXXXX004140 BETA TABLE SIZE EXCEEDED. 4F1D7000 16613 000004010400 16614 606060606060 16615 222563216063 16616 212243256062 16617 317125602567 4F1D7010 16620 676767676767 BCD 8XXXXXXG04143 ALPHA TABLE SIZE EXCEEDED, 4F1D7020 16621 270004010403 16622 606060606060 16623 214347302160 16624 632122432560 16625 623171256025 16626 672325252425 16627 247360606060 4F1D7030 16630 676767676767 BCD XXXXXX0C4647 FLOATING POINT CONSTANT OUTSIDE RANGE OF M4F1D7040 16631 002304060407 16632 606060606060 16633 264346216331 16634 452760474631 16635 456360234645 16636 626321456360 16637 466463623124 16640 256051214527 16641 256046266044 16642 212330314525 BCD 2ACHINE. 4F1D7050 16643 336060606060 4F1D7060 STATE C 4F1D7070 4F1D7080 16644 676767676767 BCD XXXXXX004347 CHECK SUM ERROR IN READING FIXED POINT CON4F1D7090 16645 000004030407 16646 606060606060 16647 233025234260 16650 626444602551 16651 514651603145 16652 605125212431 16653 452760263167 16654 252460474631 16655 456360234645 16656 626321456360 BCD 3STANT FROM DRUM 2. 4F1D7100 16657 265146446024 16660 516444600233 4F1D7110 STATE D 4F1D7120 4F1D7130 16661 676767676767 BCD 6XXXXXX003501 MIXED EXPRESSION. 4F1D7140 16662 000003050001 16663 606060606060 16664 443167252460 16665 602567475125 16666 626231464533 4F1D7150 16667 676767676767 BCD 6XXXXXX003503 MIXED EXPRESSION 4F1D7160 16670 000003050003 16671 606060606060 16672 443167252460 16673 602567475125 16674 626231464560 4F1D7170 16675 676767676767 BCD XXXXXXOO5233 CHECK SUM ERROR IN READING SIGMA TABLE ENT 16676 464605020303 16677 606060606060 16700 233025234260 16701 626444602551 16702 514651603145 16703 605125212431 16704 452760623127 16705 442160632122 16706 432560254563 16707 517060265146 BCD 3RY FROM DRUM 2. 16710 446024516444 16711 600233606060 LOCATIONS OF STAE B,C,D CALLS IN 8K SECTION ONE. 16712 676767676767 BCD 8XXXXXX006412 TOO MANY CHARACTERS IN SYMBOL. 16713 000006040102 16714 606060606060 16715 634646604421 16716 457060233021 16717 512123632551 16720 626031456062 16721 704422464333 16722 676767676767 BCD 8XXXXXXOO6465 ILLEGAL USE OF . CHARACTER, 16723 464606040605 16724 606060606060 16725 314343252721 16726 436064622560 16727 462660606033 16730 606060233021 16731 512123632551 16732 676767676767 BCD 7XXXXXX006476 ARGREG SIZE EXCEEDED. 16733 000006040706 16734 606060606060 16735 215127512527 16736 606231712560 16737 256723252524 16740 252433606060 16741 676767676767 BCD XXXXXX006500 ILLEGAL USE OF HOLLERITH SPECIFICATION. 16742 000006050000 16743 606060606060 16744 314343252721 16745 436064622560 16746 462660304643 16747 432551316330 16750 606247252331 16751 263123216331 16752 464533606060 16753 676767676767 BCD 8XXXXXX006537 NON-ZERO LEVEL REDUCTION. 16754 000006050307 16755 606060606060 16756 454645407125 16757 514660432565 16760 254360512524 16761 642363314645 16762 336060606060 16763 676767676767 BCD 8XXXXXX006554 ILLEGAL USE OF = SIGN. 16764 000006050504 16765 606060606060 16766 314343252721 16767 436064622560 16770 462660601360 16771 606231274533 16772 606060606060 16773 676767676767 BCD 8XXXXXX006554 ILLEGAL USE OF . SIGN, 16774 000006050504 16775 606060606060 16776 314343252721 16777 436064622560 17000 462660603360 17001 606231274573 17002 606060606060 17003 676767676767 BCD XXXXXX006731 THE NUMERIC CONTROL OF A HOLLERITH TEXT IS 17004 000006070301 17005 606060606060 17006 633025604564 17007 442551312360 17010 234645635146 17011 436046266021 17012 603046434325 17013 513163306063 17014 256763606031 17015 432151272551 BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. 17016 606330214560 17017 633025604564 17020 442225516046 17021 266023302151 17022 212363255162 17023 602646434346 17024 663145276063 17025 302560303360 17026 676767676767 BCD 8XXXXXX007021 LAMBDA TABLE SIZE EXCEEDED. 17027 000007000201 17030 606060606060 17031 432144222421 17032 606321224325 17033 606231712560 17034 256723252524 17035 252433606060 17036 676767676767 BCD 6XXXXXX007023 BETA TABLE SIZE EXCEEDED. 17037 000007000203 17040 606060606060 17041 222563216063 17042 212243256062 17043 317125602567 17044 676767676767 BCD 8XXXXXX007026 ALPHA TABLE SIZE EXCEEDED. 17045 000007000206 17046 606060606060 17047 214347302160 17050 632122432560 17051 623171256025 17052 672325252425 17053 243360606060 17054 676767676767 BCD XXXXXX007532 FLOATING POINT CONSTANT OUTSIDE RANGE OF M 17055 000007050302 17056 606060606060 17057 264346216331 17060 452760474631 17061 456360234645 17062 626321456360 17063 466463623124 17064 256051214527 17065 256046266044 17066 212330314525 BCD 2ACHINE. 17067 336060606060 17070 676767676767 BCD XXXXXX010534 CHECK SUM ERROR TN READING FIXED POINT CON 17071 000100050304 17072 606060606060 17073 233025234260 17074 626444602551 17075 514651606345 17076 605125212431 17077 452760263167 17100 252460474631 17101 456360234645 17102 626321456360 BCD 3STANT FROM DRUM 2. 17103 265146446024 17104 516444600233 17105 676767676767 BCD 6XXXXXX011216 MIXED EXPRESSION. 17106 000101020106 17107 606060606060 17110 443167252460 17111 256747512562 17112 623146453360 17113 676767676767 BCD 6XXXXXX011220 MIXED EXPRESSION 17114 000101020200 17115 606060606060 17116 443167252460 17117 256747512562 17120 623146456060 17121 676767676767 BCD XXXXXX012750 CHECK SUM ERROR IN READING SIGMA TABLE ENT 17122 000102070500 17123 606060606060 17124 233025234260 17125 626444602551 17126 514651603145 17127 605125212431 17130 452760623127 17131 442160632122 17132 432560254563 17133 517060265146 BCD 3RY FROM DRUM 2. 17134 446024516444 17135 600233606060 4F1D7200 4F1D7210 1NITALIZATION RECORD F015. 4F1D7220 4F1D7230 17136 676767676767 BCD XXXXXX000553 FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7240 17137 000000050503 17140 606060606060 17141 263165256023 17142 464562252364 17143 633165256026 17144 213143645125 17145 626031456021 17146 636325444763 17147 314527606300 17150 606651316325 BCD 7 WRITESTATE A OF SECTION ONE ON DRUM 1. 4F1D7250 17151 626321632560 17152 216046266062 17153 252363314645 17154 604645256046 17155 456024516444 17156 600133606060 4F1D7260 17157 676767676767 BCD XXXXXX000560 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7270 17160 000000050600 17161 606060606060 17162 263165256023 17163 464562252364 17164 633165256026 17165 213143645125 17166 626031456021 17167 636325444763 17170 314527606346 17171 606651316325 BCD 7 WRITESTATE D OF SECTION ONE ON DRUM 2. 4F1D7280 17172 626321632560 17173 246046266062 17174 252363314645 17175 604645256046 17176 456024516444 17177 600233606060 4F1D7290 17200 676767676767 BCD XXXXXX000563 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7300 17201 000000050603 17202 606060606060 17203 263165256023 17204 464562252364 17205 633165256026 17206 213143645125 17207 626031456021 17210 636325444763 17211 314527606346 17212 606651316325 BCD 7 WRITESTATE B OF SECTION ONE ON DRUM 3, 4F1D7310 17213 626321632560 17214 226046266062 17215 252363314645 17216 604645256046 17217 456024516444 17220 600373606060 4F1D7320 17221 676767676767 BCD XXXXXX000566 FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7330 17222 000000050606 17223 606060606060 17224 263165256023 17225 464562252364 17226 633165256026 17227 213143645125 17230 626031456021 17231 636325444763 17232 314527606346 17233 606651316325 BCD 7 WRITESTATE C OF SECTION ONE ON DRUM 4, 4F1D7340 17234 626321632560 17235 236046266062 17236 252363314645 17237 604645256046 17240 456024516444 17241 600473606060 4F1D7350 17242 676767676767 BCD 2XXXXXXXXXXXX 4F1D7360 17243 676767676767 A 00000 END 4F1D7370 0SHARE ASSEMBLER STATISTICS 0TAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 4 FAIL INP 780 0 0 0 0 LIB 0 0 0 0 0 COL 780 0 0 0 0 0NUMBER OF ON-LINE INPUT RECORDS 0 0NUMBER OF OFF-LINE PRINT RECORDS 2018 0NUMBER OF SYMBOLS, DEF 167,DEFOP 0,UNDEF 0 9 REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000, F1P00010 1 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A = F0220000, F1P00010 ----------FILE: 185.PNG-----------------------------BEFORE LINE ABOVE 00000 ORG 0 F1P00020 00000 0 01146 0 01146 PZE ORG1PA,,ORG1PA F1P00030 00001 0 00000 0 03161 PZE END1PA-1 F1P00040 F1P00050 THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME F1P00060 F1P00070 01146 ORG1PA ORG 614 F1P00080 01146 0 76100 0 00000 NOP TO PERMIT STOP FOR TESTING RUNS, F1P00090 01147 0 77000 0 00204 PARTA WEF 4 F1P00100 TABLE SAVING PROGRAM F1P00110 WRITE FIXCON WORD COUNT ON DRUM F1P00120 01150 0 76600 0 00302 WRS 194 F1P00130 01151 0 50000 0 00414 CLA FXCNIX-3 F1P00140 01152 0 77100 0 00021 ARS 17 F1P00150 01153 0 60100 0 02107 STO WORKCL F1P00160 01154 0 70000 0 02107 CPY WORKCL F1P00170 01155 0 70000 0 02107 CPY WORKCL F1P00180 PROGRAM FOR SAVING COMPAIL TABLE F1P00190 01156 -0 53400 2 00637 LXD BBOX,2 F1P00200 01157 3 00000 2 01161 TXH A1PTS,2,0 F1P00210 01160 0 07400 4 00004 TSX DIAG,4 STOP FOR NO INSTRUCTIONS COMPILED F1P00220 01161 0 76600 0 00223 A1PTS WRS 147 F1P00230 01162 0 53400 1 07730 LXA L(0),1 SAVE F1P00240 01163 0 70000 1 00640 AA3PTS CPY CIB,1 CIT F1P00250 01164 1 77777 1 01165 TXI AA1PTS,1,-1 BUFFER F1P00260 01165 1 00001 2 01166 AA1PTS TXI AA2PTS,2,1 F1P00270 01166 3 00000 2 01163 AA2PTS TXH AA3PTS,2,0 F1P00280 01167 0 77000 0 00223 WEF 147 F1P00290 01170 0 77200 0 00223 REW 147 F1P00300 01171 -0 76000 0 00012 A5PTS RTT TURN OFF TAPE CHECK F1P00310 01172 0 76100 0 00000 NOP INDICATOR AND LIGHTS F1P00320 01173 0 53400 1 07734 LXA L(4),1 F1P00330 01174 0 53400 4 07730 LXA L(0),4 F1P00340 01175 0 76200 0 00223 A14PTS RDS 147 F1P00350 01176 0 70000 4 03163 A6PTS CPY COMP,4 COPY A RECORD OF COMPILED F1P00360 01177 1 77777 4 01176 TXI A6PTS,4,-1 INSTRUCTIONS INTO STORAGE F1P00370 01200 0 02000 0 01222 TRA A10PTS EOF F1P00380 01201 0 76600 0 00333 WRS 219 EOR F1P00390 01202 -0 76000 0 00012 RTT F1P00400 01203 0 02000 0 01217 TRA A11PTS TAPE CHECK ON F1P00410 01204 0 76600 0 00222 WRS 146 F1P00420 01205 0 50000 0 02245 CLA CMPREC COUNT EACH F1P00430 01206 0 40000 0 07731 ADD L(1) COMPAIL F1P00440 01207 0 60100 0 02245 STO CMPREC RECORD F1P00450 01210 0 53400 1 07732 LXA L(2),1 F1P00460 01211 0 53400 2 07730 LXA L(0),2 TRANSFER RECORD F1P00470 01212 0 70000 2 03163 A9PTS CPY COMP,2 FROM STORAGE F1P00480 01213 1 77777 2 01214 TXI A7PTS,2,-1 TO TAPE 2 F1P00490 01214 1 00001 4 01215 A7PTS TXI A8PTS,4,1 F1P00500 01215 3 00000 4 01212 A8PTS TXH A9PTS,4,0 F1P00510 01216 0 02000 0 01175 TRA A14PTS F1P00520 01217 0 76401 0 00223 A11PTS BST 147,0,1 PREPARE TO READ RECORD AGAIN F1P00530 01220 2 00001 1 01174 TIX A14PTS-1,1,1 TEST FOR 2 TAPE CHECKS, F1P00540 01221 0 07400 4 00004 TSX DIAG,4 STOP FOR 5TH READ CHECK F1P00550 01222 0 77000 0 00222 A10PTS WEF 146 END OF COMPAIL ON TAPE 2 F1P00560 01223 0 76600 0 00222 WRS 146 F1P00570 01224 0 70000 0 02245 CPY CMPREC F1P00580 PROGRAM TO SAVE FORSUB TABLE F1P00590 01225 -0 53400 1 00470 LXD BK,1 F1P00600 01226 -3 00000 1 01234 TXL WEF,1,0 TEST FOR EMPTY TABLE F1P00610 01227 0 53400 2 07730 LXA L(0),2 F1P00620 01230 0 70000 2 00471 CPY FORSUB,2 F1P00630 01231 1 77777 2 01232 TXI A15PTS,2,-1 F1P00640 01232 1 00001 1 01233 A15PTS TXI A15PTS+1,1,1 F1P00650 01233 3 00000 1 01230 TXH A15PTS-2,1,0 F1P00660 01234 0 77000 0 00222 WEF WEF 146 F1P00670 PROGRAM FOR SAVING FLOCON TABLE F1P00680 01235 -0 53400 4 00421 FL00 LXD FLCNIX-3,4 (N) F1P00690 01236 -0 75400 4 00000 PXD 0,4 F1P00700 01237 0 77100 0 00022 ARS 18 F1P00710 01240 0 60100 0 02244 STO FLSIZE LOAD FLSIZE WITH N F1P00720 01241 -3 00000 4 01276 TXL FL09,4,0 IS TABLE EMPTY F1P00730 01242 -0 50000 0 07742 CAL MSK F1P00740 01243 0 32000 0 00422 ANS FLCNIX-2 F1P00750 01244 0 32000 0 00421 ANS FLCNIX-3 F1P00760 01245 0 50000 0 00421 CLA FLCNIX-3 GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS F1P00770 01246 0 40200 0 00422 SUB FLCNIX-2 F1P00780 01247 0 62100 0 01256 STA FL04 SAVE L F1P00790 01250 0 53400 2 07735 FL01 LXA L(5),2 SET TO TRY FIVE TIMES IF CK SUM FAILS F1P00800 01251 0 53400 4 01256 FL02 LXA FL04,4 (L) F1P00810 01252 0 76200 0 00302 RDR 2 F1P00820 01253 0 46000 0 00422 LDA FLCNIX-2 F1P00830 01254 0 70000 4 05453 FL03 CPY OTA+450,4 COPY FLOCON FROM DRUM F1P00840 01255 2 00001 4 01254 TIX FL03,4,1 F1P00850 01256 -0 75400 0 00000 FL04 PXD **,0 F1P00860 01257 0 53400 4 01256 LXA FL04,4 COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK F1P00870 01260 0 53400 1 07737 LXA L(50),1 SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS F1P00880 01261 0 36100 4 05453 FL05 ACL OTA+450,4 FOLLOWED BY THE FIFTY WORDS F1P00890 01262 0 76000 0 00006 COM F1P00900 01263 -2 00001 4 01307 TNX ERROR,4,1 F1P00910 01264 0 36100 4 05453 FL06 ACL OTA+450,4 F1P00920 01265 -2 00001 4 01271 TNX FL07,4,1 FINAL ENRTY , GET OUT OF CK SUM LOOP F1P00930 01266 2 00001 1 01264 TIX FL06,1,1 F1P00940 01267 0 76000 0 00006 COM F1P00950 01270 1 00061 1 01261 TXI FL05,1,49 F1P00960 01271 0 76000 0 00006 FL07 COM F1P00970 01272 0 10000 0 01275 TZE FL08 TEST CK SUM F1P00980 01273 2 00001 2 01251 TIX FL02,2,1 CK SUM FAILED, TRY AGAIN F1P00990 01274 0 07400 4 00004 TSX DIAG,4 CK SUM FAILED FIVE TIMES F1P01000 01275 0 53400 4 01256 FL08 LXA FL04,4 (L) F1P01010 01276 0 76600 0 00222 FL09 WTB 2 F1P01020 01277 0 70000 0 02244 CPY FLSIZE F1P01030 01300 -3 00000 4 01310 TXL PROFOR,4,0 IS FLOCON EMPTY F1P01040 01301 0 53400 1 07737 LXA L(50),1 F1P01050 01302 -2 00001 4 01307 FL10 TNX ERROR,4,1 F1P01060 01303 0 70000 4 05453 FL11 CPY OTA+450,4 F1P01070 01304 -2 00001 4 01310 TNX PROFOR,4,1 FINISHED, GET OUT OF LOOP F1P01080 01305 2 00001 1 01303 TIX FL11,1,1 F1P01090 01306 1 00061 1 01302 TXI FL10,1,49 F1P01100 01307 0 07400 4 00004 ERROR TSX DIAG,4 INDEX RAN OUT AT CK SUM F1P01110 ROUTINE TO PROCESS FORMAT TABLE F1P01120 01310 0 07400 1 07505 PROFOR TSX TAP00,1 F1P01130 01311 0 00000 0 00012 HTR 10 F1P01140 01312 0 00000 0 04551 OTA F1P01150 01313 0 07400 1 07656 TSX WAT00,1 F1P01160 01314 0 00000 0 00012 HTR 10 F1P01170 01315 0 00000 0 04551 OTA F1P01180 ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE. F1P01190 01316 -0 53400 4 00452 ADD00 LXD DIM1IX-3,4 ENTRY COUNT F1P01200 01317 -3 00000 4 01346 TXL ADD07,4,0 TABLE EMPTY F1P01210 01320 0 53400 2 07735 ADD01 LXA L(5),2 F1P01220 01321 0 76200 0 00303 ADD02 RDR 3 F1P01230 01322 0 53400 1 07730 LXA L(0),1 F1P01240 01323 0 46000 0 00453 LDA ORGDM1 F1P01250 01324 -0 75400 0 00000 PXD 0,0 F1P01260 01325 0 70000 1 04551 ADD03 CPY OTA,1 COPY NAME F1P01270 01326 0 70000 1 04552 CPY OTA+1,1 COPY N1 F1P01280 01327 1 77776 1 01330 TXI ADD04,1,-2 F1P01290 01330 -0 70000 0 02106 ADD04 CAD GARBGE COPY AND SUM CK SUMS F1P01300 01331 2 00001 4 01325 TIX ADD03,4,1 F1P01310 01332 0 76000 0 00006 COM F1P01320 01333 -0 53400 4 00452 LXD DIM1IX-3,4 F1P01330 01334 0 53400 1 07730 LXA L(0),1 F1P01340 01335 0 36100 1 04551 ADD05 ACL OTA,1 SUM ENTRIES F1P01350 01336 0 36100 1 04552 ACL OTA+1,1 F1P01360 01337 1 77776 1 01340 TXI ADD06,1,-2 F1P01370 01340 2 00001 4 01335 ADD06 TIX ADD05,4,1 F1P01380 01341 0 76000 0 00006 COM F1P01390 01342 0 10000 0 01347 TZE ADD08 F1P01400 01343 -0 53400 4 00452 LXD DIM1IX-3,4 CHECK SUM ERROR, TRY AGAIN F1P01410 01344 2 00001 2 01321 TIX ADD02,2,1 F1P01420 01345 0 07400 4 00004 TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P01430 01346 0 53400 1 07730 ADD07 LXA L(0),1 F1P01440 01347 -0 63400 1 02110 ADD08 SXD NEWBAS,1 F1P01450 NOW READ DIM2 TABLE F1P01460 01350 -0 53400 4 00457 LXD DIM2IX-3,4 F1P01470 01351 -3 00000 4 01413 TXL ADD18,4,0 TABLE EMPTY F1P01480 01352 0 53400 2 07735 ADD09 LXA L(5),2 F1P01490 01353 0 76200 0 00303 ADD10 RDR 3 F1P01500 01354 -0 53400 1 02110 LXD NEWBAS,1 F1P01510 01355 0 46000 0 00460 LDA ORGDM2 F1P01520 01356 -0 75400 0 00000 PXD 0,0 F1P01530 01357 0 70000 1 04551 ADD11 CPY OTA,1 COPY NAME F1P01540 01360 0 70000 1 04552 CPY OTA+1,1 COPY N1 N2 F1P01550 01361 1 77776 1 01362 TXI ADD12,1,-2 F1P01560 01362 -0 70000 0 02106 ADD12 CAD GARBGE COPY AND SUM CK SUMS F1P01570 01363 2 00001 4 01357 TIX ADD11,4,1 F1P01580 01364 0 76000 0 00006 COM F1P01590 01365 -0 53400 4 00457 LXD DIM2IX-3,4 F1P01600 01366 -0 53400 1 02110 LXD NEWBAS,1 F1P01610 01367 0 36100 1 04551 ADD13 ACL OTA,1 F1P01620 01370 0 36100 1 04552 ACL OTA+1,1 F1P01630 01371 1 77776 1 01372 TXI ADD14,1,-2 F1P01640 01372 2 00001 4 01367 ADD14 TIX ADD13,4,1 F1P01650 01373 0 76000 0 00006 COM F1P01660 01374 0 10000 0 01400 TZE ADD15 F1P01670 01375 -0 53400 4 00457 LXD DIM2IX-3,4 CK SUM ERROR TRY AGAIN F1P01680 01376 2 00001 2 01353 TIX ADD10,2,1 F1P01690 01377 0 07400 4 00004 TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P01700 01400 -0 53400 4 00457 ADD15 LXD DIM2IX-3,4 F1P01710 01401 -0 53400 1 02110 LXD NEWBAS,1 F1P01720 01402 0 60000 0 02107 STZ WORKCL F1P01730 01403 0 50000 1 04552 ADD16 CLA OTA+1,1 F1P01740 01404 0 62100 0 02107 STA WORKCL F1P01750 01405 0 76500 0 00065 LRS 53 F1P01760 01406 0 20000 0 02107 MPY WORKCL N1*N2 F1P01770 01407 -0 60000 1 04552 STQ OTA+1,1 F1P01780 01410 1 77776 1 01411 TXI ADD17,1,-2 F1P01790 01411 2 00001 4 01403 ADD17 TIX ADD16,4,1 F1P01600 01412 -0 63400 1 02110 SXD NEWBAS,1 UPDATE NEWBAS FOR DIM3 ROUTINE F1P01810 NOW READ DIM3 TABLE. F1P01820 01413 -0 53400 4 00464 ADD18 LXD DIM3IX-3,4 F1P01830 01414 -3 00000 4 01462 TXL ADD28,4,0 DIM3 TABLE EMPTY F1P01840 01415 0 53400 2 07735 ADD19 LXA L(5),2 F1P01850 01416 0 76200 0 00303 ADD20 RDR 3 F1P01860 01417 -0 53400 1 02110 LXD NEWBAS,1 F1P01870 01420 0 46000 0 00465 LDA ORGDM3 F1P01680 01421 -0 75400 0 00000 PXD 0,0 F1P01890 01422 0 70000 1 04551 ADD21 CPY OTA,1 F1P01900 01423 0 70000 1 04552 CPY OTA+1,1 F1P01910 01424 0 70000 4 02243 CPY BUFFER,4 F1P01920 01425 1 77776 1 01426 TXI ADD22,1,-2 F1P01930 01426 -0 70000 0 02106 ADD22 CAD GARBGE F1P01940 01427 2 00001 4 01422 TIX ADD21,4,1 F1P01950 01430 0 76000 0 00006 COM F1P01960 01431 -0 53400 4 00464 LXD DIM3IX-3,4 F1P01970 01432 -0 53400 1 02110 LXD NEWBAS,1 F1P01980 01433 0 36100 1 04551 ADD23 ACL OTA,1 F1P01990 01434 0 36100 1 04552 ACL OTA+1,1 F1P02000 01435 0 36100 4 02243 ACL BUFFER,4 F1P02010 01436 1 77776 1 01437 TXI ADD24,1,-2 F1P02020 01437 2 00001 4 01433 ADD24 TIX ADD23,4,1 F1P02030 01440 0 76000 0 00006 COM F1P02040 01441 0 10000 0 01445 TZE ADD25 F1P02050 01442 -0 53400 4 00464 LXD DIM3IX-3,4 F1P02060 01443 2 00001 2 01416 TIX ADD20,2,1 CK SUM FAILED TRY AGAIN F1P02070 01444 0 07400 4 00004 TSX DIAG,4 REPEATED CK SUM ERRORS IN READING DRUM F1P02080 01445 -0 53400 4 00464 ADD25 LXD DIM3IX-3,4 F1P02090 01446 -0 53400 1 02110 LXD NEWBAS,1 F1P02100 01447 0 50000 1 04552 ADD26 CLA OTA+1,1 F1P02110 01450 0 60000 0 02107 STZ WORKCL F1P02120 01451 0 62100 0 02107 STA WORKCL F1P02130 01452 0 76500 0 00065 LRS 53 F1P02140 01453 0 20000 0 02107 MPY WORKCL N1*N2 F1P02150 01454 0 20000 4 02243 MPY BUFFER,4 N3*(N1*N2) F1P02160 01455 -0 60000 1 04552 STQ OTA+1,1 F1P02170 01456 1 77776 1 01457 TXI ADD27,1,-2 F1P02160 01457 2 00001 4 01447 ADD27 TIX ADD26,4,1 F1P02190 01460 0 76100 0 00000 NOP NOT USED. F1P02200 01461 0 76100 0 00000 NOP NOT USED. F1P02210 NOW WRITE SIZ TABLE ON TAPE 2. F1P02220 01462 -0 75400 1 00000 ADD28 PXD 0,1 F1P02230 01463 0 76000 0 00006 COM F1P02240 01464 0 40000 0 07740 ADD DECR1 F1P02250 01465 -0 73400 4 00000 PDX 0,4 F1P02260 01466 -0 75400 4 00000 PXD 0,4 F1P02270 01467 0 77100 0 00022 ARS 18 F1P02280 01470 0 60100 0 02107 STO WORKCL F1P02290 01471 0 40000 0 07731 ADD L(1) F1P02300 01472 0 73400 1 00000 PAX 0,1 F1P02310 01473 0 53400 2 07730 LXA L(0),2 F1P02320 01474 -0 75400 0 00000 PXD 0,0 F1P02330 01475 0 36100 2 04551 ADD33 ACL OTA,2 COMPUTE CK SUM FOR SIZ TABLE F1P02340 01476 1 77777 2 01477 TXI ADD32,2,-1 F1P02350 01477 2 00001 4 01475 ADD32 TIX ADD33,4,1 F1P02360 01500 0 60200 2 04551 SLW OTA,2 F1P02370 01501 0 50000 0 02101 CLA DMASK F1P02380 01502 0 32000 0 00030 ANS EIFNO F1P02390 01503 0 76600 0 00222 WTB 2 F1P02400 01504 0 70000 0 00030 CPY EIFNO F1P02410 01505 0 70000 0 02107 CPY WORKCL F1P02420 01506 -3 00001 1 01513 TXL ADD31,1,1 F1P02430 01507 0 53400 2 07730 LXA L(0),2 F1P02440 01510 0 70000 2 04551 ADD29 CPY OTA,2 F1P02450 01511 1 77777 2 01512 TXI ADD30,2,-1 F1P02460 01512 2 00001 1 01510 ADD30 TIX ADD29,1,1 F1P02470 01513 0 77000 0 00202 ADD31 WEF 2 F1P02480 01514 0 76600 0 00222 WTB 2 WRITE SENSE SWITCH SETTINGS AS RE- F1P02490 01515 0 53400 1 07735 LXA L(5),1 CORD ONE, FILE FIVE, TAPE TWO F1P02500 01516 0 70000 1 00036 X0010 CPY ENDI1+5,1 F1P02510 01517 2 00001 1 01516 TIX X0010,1,1 F1P02520 01520 0 07400 1 07505 TSX TAP00,1 ASSEMBLE AND WRITE SUBDEF TABLE F1P02530 01521 0 00000 0 00013 11 F1P02540 01522 0 00000 0 04551 OTA F1P02550 01523 0 07400 1 07656 TSX WAT00,1 F1P02560 01524 0 00000 0 00013 11 F1P02570 01525 0 00000 0 04551 OTA F1P02580 01526 0 07400 1 07505 TSX TAP00,1 ASSEMBLE AND WRITE COMMON TABLE F1P02590 01527 0 00000 0 00014 12 F1P02600 01530 0 00000 0 04551 OTA F1P02610 01531 0 07400 1 07656 TSX WAT00,1 F1P02620 01532 0 00000 0 00014 12 F1P02630 01533 0 00000 0 04551 OTA F1P02640 01534 0 07400 1 07505 TSX TAP00,1 ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS F1P02650 01535 0 00000 0 00015 13 F1P02660 01536 0 00000 0 04551 OTA F1P02670 01537 0 07400 1 07656 TSX WAT00,1 F1P02680 01540 0 00000 0 00015 13 F1P02690 01541 0 00000 0 04551 OTA F1P02700 01542 0 07400 1 07505 TSX TAP00,1 ASSEMBLE TEIFNO FROM TAPE 4 F1P02710 01543 0 00000 0 00000 HTR 0 F1P02720 01544 0 00000 0 04551 HTR OTA F1P02730 01545 0 60000 0 02105 STZ PAT15 INSURE DECREMENT IS CLEAR F1P02740 01546 -0 53400 4 04550 LXD OTA-1,4 LENGTH OF TEIFNO INTO I.R.4 F1P02750 01547 -3 00001 4 01606 TXL WRITE,4,1 IS TEIFNO EMPTY OR IS THERE A SINGLE ENTRY F1P02760 01550 -0 53400 1 02103 LXD PAT13,1 INITIALIZE I.R. TO STEP THROUGH TABLE F1P02770 01551 -0 63400 4 02104 SXD PAT14,4 SAVE WORD COUNT F1P02780 01552 -0 53400 4 02104 ISPLUS LXD PAT14,4 REINTIALIZE FOR FURTHER SEARCHING F1P02790 01553 0 50000 1 04551 NEXT CLA OTA,1 PICK UP NEXT ENTRY IN TEIFNO F1P02800 01554 0 12000 0 01561 TPL MASK HAS THIS BEEN PROCESSED F1P02810 01555 0 60200 1 04551 SLW OTA,1 F1P02820 01556 1 77777 1 01557 TXI ISTHRU,1,-1 NO, SET I.R. TO LOOK AT NEXT ENTRY F1P02830 01557 2 00001 4 01553 ISTHRU TIX NEXT,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02840 01560 0 02000 0 01606 TRA WRITE YES, FINISHED F1P02850 01561 0 62100 0 02105 MASK STA PAT15 STORE COMPERAND F1P02860 01562 1 77777 1 01563 TXI RECOMP,1,-1 SET I.R.S TO START COMPARISON F1P02870 01563 -0 75400 1 00000 RECOMP PXD 0,1 F1P02880 01564 -0 73400 2 00000 PDX 0,2 F1P02890 01565 -2 00001 4 01606 TNX WRITE,4,1 HAVE ALL ENTRIES BEEN EXAMINED F1P02900 01566 -0 63400 4 02104 SXD PAT14,4 SAVE NUMBER OF ENTRIES YET TO BE TREATED F1P02910 01567 0 50000 2 04551 PAT16 CLA OTA,2 PICK UP ENTRY TO BE COMPARED F1P02920 01570 -0 12000 0 01575 TMI NODUP NO SEARCH NECESSARY IF NEGATIVE F1P02930 01571 -0 32000 0 02102 ANA PAT11 ISOLATE EXTERNAL FORMULA NUMBER F1P02940 01572 0 34000 0 02105 CAS PAT15 COMPARE TO REMAINING ENTRIES F1P02950 01573 0 02000 0 01575 TRA NODUP NO DUPLICATE F1P02960 01574 0 02000 0 01600 TRA PAT9 DUPLICATE F1P02970 01575 1 77777 2 01576 NODUP TXI PAT8,2,-1 NO DUPLICATE, SET I.R. TO OBTAIN NEXT ENTRYF1P02980 FOR COMPARISON F1P02990 01576 2 00001 4 01567 PAT8 TIX PAT16,4,1 HAVE ALL ENTRIES BEEN COMPARED F1P03000 01577 0 02000 0 01552 TRA ISPLUS YES F1P03010 01600 0 50000 2 04551 PAT9 CLA OTA,2 FLAG DUPLICATE ENTRY NEGATIVE F1P03020 01601 -0 76000 0 00003 SSM F1P03030 01602 0 60100 2 04551 STO OTA,2 F1P03040 01603 0 50200 1 04550 CLS OTA-1,1 F1P03050 01604 0 60100 1 04550 STO OTA-1,1 F1P03060 01605 0 02000 0 01552 TRA ISPLUS F1P03070 01606 0 07400 1 07656 WRITE TSX WAT00,1 WRITE TEIFNO ON TAPE F1P03080 01607 0 00000 0 00000 HTR 0 F1P03090 01610 0 00000 0 04551 OTA F1P03100 01611 0 07400 1 07505 TSX TAP00,1 ASSEMBLE TIFGO F1P03110 01612 0 00000 0 00002 HTR 2 F1P03120 01613 0 00000 0 03163 L(2TA) HTR 2TA F1P03130 START PROGRAM FOR MODIFICATION OF TIFGO WITH TEIFNO F1P03140 01614 0 50000 0 03162 MFGTP CLA 2TA-1 GET NUMBER OF WORDS IN 2TA. F1P03150 01615 0 10000 0 01751 TZE WFG00 EXIT FOR NO ENTRIES IN TABLE, F1P03160 01616 -0 73400 2 00000 PDX 0,2 SET INDEX B TO NUMBER OF WORDS, F1P03170 01617 0 77100 0 00022 ARS 18 COMPUTE F1P03180 01620 0 40000 0 01613 ADD L(2TA) 2TA F1P03190 01621 0 62100 0 01646 STA MFG00 PLUS F1P03200 01622 0 62100 0 01663 STA MFG03 NUMBER F1P03210 01623 0 62100 0 01665 STA MFG05 OF F1P03220 01624 0 62100 0 01701 STA MFG08 WORDS F1P03230 01625 0 62100 0 01702 STA MFG09 IN F1P03240 01626 0 62100 0 01716 STA MFG12 2TA F1P03250 01627 0 62100 0 01740 STA MFG18 AND F1P03260 01630 0 62100 0 01747 STA MFG20 INITIALIZE ADDRESSES F1P03270 01631 0 50000 0 04550 CLA OTA-1 GET NUM WORDS IN OTA F1P03280 01632 -0 10000 0 01634 TNZ MFGOK TABLE EXISTS F1P03290 01633 0 02000 0 07751 TRA TEIFER STOP FOR NO TABLE IN OTA F1P03300 01634 0 77100 0 00022 MFGOK ARS 18 NUMBER WORDS PUT IN AC ADDRESS F1P03310 01635 0 40000 0 07750 ADD L(OTA) ADD OTA ORIGIN F1P03320 01636 0 62100 0 01652 STA MFG01 INITIALIZE ADDRESSES WITH F1P03330 01637 0 62100 0 01661 STA MFG02 OTA + NUM WORDS F1P03340 01640 0 62100 0 01670 STA MFG06 F1P03350 01641 0 62100 0 01677 STA MFG07 F1P03360 01642 0 62100 0 01706 STA MFG10 F1P03370 01643 0 62100 0 01715 STA MFG11 F1P03380 01644 0 62100 0 01736 STA MFG17 F1P03390 01645 0 62100 0 01745 STA MFG19 F1P03400 01646 0 50000 2 00000 MFG00 CLA 0,2 ADDR IS 2TA + NUM WORDS IN 2TA. (1) F1P03410 01647 0 12000 0 01722 TPL MFG14 SIGN IS PLUS. F1P03420 01650 0 62100 0 07746 STA E3 SAVE A1. F1P03430 01651 -0 53400 4 04550 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA.(2) F1P03440 01652 0 50000 4 00000 MFG01 CLA 0,4 AL PRIME AND AL GO TO AC. F1P03450 01653 -0 32000 0 07742 ANA MSK ERASE AL PRIME IN AC. F1P03460 01654 0 40200 0 07746 SUB E3 COMPARE TEIFNO ARGUMENT WITH A1. F1P03470 01655 0 10000 0 01661 TZE MFG02 AL EQUALS ARGUMENT. F1P03480 01656 2 00001 4 01652 TIX MFG01,4,1 COMP AL VS NEXT TEIFNO ENTRY. (3A1)F1P03490 01657 0 50000 0 02103 CLA PAT13 F1P03500 01660 0 02000 0 01663 TRA MFG03 F1P03510 01661 0 50000 4 00000 MFG02 CLA 0,4 A1 PRIME AND A1L GO TO AC. F1P03520 01662 0 77100 0 00022 ARS 18 A1 PRIME GOES TO ADDRESS OF AC F1P03530 01663 0 62100 2 00000 MFG03 STA 0,2 (I) A1 PRIME REPLACES A1 F1P03540 01664 1 77777 2 01665 MFG04 TXI MFG05,2,-1 TAKE WORD 2 OF TIFGO ENTRY F1P03550 01665 0 50000 2 00000 MFG05 CLA 0,2 (1). AC DECK IS A2, ADDR IS A3 F1P03560 01666 0 62100 0 07746 STA E3 SAVE A3 F1P03570 01667 -0 53400 4 04550 LXD OTA-1,4 (2) F1P03580 01670 0 50000 4 00000 MFG06 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03590 01671 -0 32000 0 07742 ANA MSK ERASE A3 PRIME IN AC F1P03600 01672 0 40200 0 07746 SUB E3 COMPARE TEIFNO ARGUMENT WITH A3 F1P03610 01673 0 10000 0 01677 TZE MFG07 A3 EQUALS ARGUMENT F1P03620 01674 2 00001 4 01670 TIX MFG06,4,1 (3A3) F1P03630 01675 0 50000 0 02103 CLA PAT13 F1P03640 01676 0 02000 0 01701 TRA MFG08 F1P03650 01677 0 50000 4 00000 MFG07 CLA 0,4 A3 PRIME AND A3 GO TO AC F1P03660 01700 0 77100 0 00022 ARS 18 A3 PRIME GOES TO ADDR OF AC F1P03670 01701 0 62100 2 00000 MFG08 STA 0,2 (1). A3 PRIME REPLACES A3 F1P03680 01702 0 50000 2 00000 MFG09 CLA 0,2 (1). A2 AND A3 PRIME GO TO AC F1P03690 01703 0 77100 0 00022 ARS 18 A2 GOES TO ADDR OF AC F1P03700 01704 0 62100 0 07746 STA E3 SAVE A2 F1P03710 01705 -0 53400 4 04550 LXD OTA-1,4 (2) F1P03720 01706 0 50000 4 00000 MFG10 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03730 01707 -0 32000 0 07742 ANA MSK ERASE A2 PRIME IN AC F1P03740 01710 0 40200 0 07746 SUB E3 COMPARE TEIFNO ARGUMENT WITH A2 F1P03750 01711 0 10000 0 01715 TZE MFG11 A2 EQUALS ARGUMENT F1P03760 01712 2 00001 4 01706 TIX MFG10,4,1 (3A2) F1P03770 01713 0 50000 0 02103 CLA PAT13 F1P03780 01714 0 02000 0 01716 TRA MFG12 F1P03790 01715 0 50000 4 00000 MFG11 CLA 0,4 A2 PRIME AND A2 GO TO AC F1P03800 01716 0 62200 2 00000 MFG12 STD 0,2 (1) A2 PRIME REPLACES A2 F1P03810 01717 2 00001 2 01646 TIX MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY F1P03820 01720 2 00001 2 01717 MFG13 TIX MFG13-1,2,1 TAKE SECOND WORD OF 2TA ENTRY F1P03830 01721 0 02000 0 01751 TRA WFG00 EXIT TO TAPE WRITING PROGRAM F1P03840 01722 0 73400 4 00000 MFG14 PAX 0,4 INTEGER N GOES TO INDEX C F1P03850 01723 0 02000 4 01733 TRA MFG14+9,4 F1P03860 01724 0 02000 0 01720 TRA MFG13 N EQUALS 7 NO MODIFICATION F1P03670 01725 0 02000 0 01734 TRA MFG15 N EQUALS 6 F1P03880 01726 0 02000 0 01664 TRA MFG04 N EQUALS 5 F1P03890 01727 0 02000 0 01664 TRA MFG04 N EQUALS 4 F1P03900 01730 0 02000 0 01664 TRA MFG04 N EQUALS 3 F1P03910 01731 0 02000 0 01720 TRA MFG13 N EQUALS 2 NO MODIFICATION F1P03920 01732 0 02000 0 01720 TRA MFG13 N EQUALS 1 NO MODIFICATION F1P03930 01733 0 02000 0 01734 TRA MFG15 N EQUALS 0 F1P03940 01734 1 77777 2 01735 MFG15 TXI MFG16,2,-1 TAKE WORD 2 OF 2TA ENTRY F1P03950 01735 -0 53400 4 04550 MFG16 LXD OTA-1,4 (2) F1P03960 01736 0 50000 4 00000 MFG17 CLA 0,4 K PRIME AND K GO TO AC F1P03970 01737 -0 32000 0 07742 ANA MSK ERASE K PRIME F1P03980 01740 0 40200 2 00000 MFG18 SUB 0,2 (1). COMPARE K WITH TEIFNO ARGUMENTF1P03990 01741 0 10000 0 01745 TZE MFG19 K EQUALS ARGUMENT F1P04000 01742 2 00001 4 01736 TIX MFG17,4,1 (3K) F1P04010 01743 0 50000 0 02103 CLA PAT13 F1P04020 01744 0 02000 0 01747 TRA MFG20 F1P04030 01745 0 50000 4 00000 MFG19 CLA 0,4 K PRIME AND K GO TO AC F1P04040 01746 0 77100 0 00022 ARS 18 K PRIME GOES TO ADDRESS OF AC F1P04050 01747 0 62100 2 00000 MFG20 STA 0,2 (1). K PRIME REPLACES K F1P04060 01750 2 00001 2 01646 TIX MFG00,2,1 TAKE FIRST WORD OF NEXT 2TA ENTRY F1P04070 01751 0 07400 1 07656 WFG00 TSX WAT00,1 WRITE 2TA ON TAPE F1P04080 01752 0 00000 0 00002 2 F1P04090 01753 0 00000 0 03163 HTR 2TA F1P04100 01754 0 07400 1 07505 TSX TAP00,1 ASSEMBLE TRAD F1P04110 01755 0 00000 0 00003 HTR 3 F1P04120 01756 0 00000 0 03163 L(3TA) HTR 3TA F1P04130 PROGRAM FOR MODIFICATION OF TRAD WITH TEIFNO F1P04140 01757 0 50000 0 03162 MTRTP CLA 3TA-1 GET NUM OF WORDS IN 3TA F1P04150 01760 0 10000 0 02011 TZE WTR00 NO ENTRIES IN TABLE F1P04160 01761 -0 73400 2 00000 PDX 0,2 NUMBER OF WORDS PUT IN INDEX B F1P04170 01762 0 77100 0 00022 ARS 18 RESET ADDRESSES F1P04180 01763 0 40000 0 01756 ADD L(3TA) F1P0419O 01764 0 62100 0 02000 STA MTR02 F1P04200 01765 0 62100 0 02007 STA MTR04 F1P04210 01766 0 50000 0 04550 CLA OTA-1 GET NUMBER WORDS IN OTA. F1P04220 01767 -0 10000 0 01771 TNZ MTROK TABLE EXISTS F1P04230 01770 0 02000 0 07751 TRA TEIFER STOP FOR NO TABLE IN OTA F1P04240 01771 0 77100 0 00022 MTROK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04250 01772 0 40000 0 07750 ADD L(OTA) ADD OTA ORIGIN F1P04260 01773 0 62100 0 01775 STA MTR01 INITIALIZE ADDRESS F1P04270 01774 -0 53400 4 04550 MTR00 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA F1P04280 01775 0 50000 4 00000 MTR01 CLA 0,4 A SUB I PRIME AND A SUB I GO TO AC F1P04290 01776 0 62200 0 07746 STD E3 SAVE A SUB I PRIME F1P04300 01777 -0 32000 0 07742 ANA MSK ERASE SUB I PRIME F1P04310 02000 0 40200 2 00000 MTR02 SUB 0,2 ADDR IS 3TA + NUM WORDS IN 3TA (1) F1P04320 02001 0 10000 0 02005 TZE MTR03 A SUB I EQUALS ARGUMENT F1P04330 02002 2 00001 4 01775 TIX MTR01,4,1 A SUB I NOT EQUAL TO ARGUMENT F1P04340 02003 0 50000 0 02103 CLA PAT13 F1P04350 02004 0 02000 0 02007 TRA MTR04 F1P04360 02005 0 50000 0 07746 MTR03 CLA E3 A SUB I PRIME GOES TO AC DECR. F1P04370 02006 0 77100 0 00022 ARS 18 A SUB I PRIME GOES TO AC ADDR. F1P04380 02007 0 62100 2 00000 MTR04 STA 0,2 (1). A SUB I PRIME REPLACES A SUB IF1P04390 02010 2 00001 2 01774 TIX MTR00,2,1 TAKE NEXT WORD OF 3TA F1P04400 02011 0 07400 1 07656 WTR00 TSX WAT00,1 ALL WORDS OF 3TA EXAMINED SO F1P04410 02012 0 00000 0 00003 3 WRITE 3TA ON TAPE F1P04420 02013 0 00000 0 03163 3TA F1P04430 02014 0 07400 1 07505 AD000 TSX TAP00,1 ASSEMBLE TDO F1P04440 02015 0 00000 0 00001 1 F1P04450 02016 0 00000 0 03163 OATDO 1TA ORIGIN OF ASSEMBLED TDO F1P04460 PROGRAM FOR MODIFICATION OF TDO WITH TEIFNO F1P04470 02017 0 50000 0 03162 MDOTP CLA 1TA-1 GET NUMBER OF WORDS IN ITA F1P04480 02020 0 10000 0 02074 TZE WDO00 EXIT FOR NO WORDS IN TABLE F1P04490 02021 -0 73400 2 00000 PDX 0,2 NUMBER OF WORDS IN ITA PUT IN IRB F1P04500 02022 0 77100 0 00022 ARS 18 NUM WORDS PUT IN AC ADDR F1P04510 02023 0 40000 0 02016 ADD OATDO ADD ORIGIN OF ASSEMBLED TDO F1P04520 02024 0 62100 0 02036 STA MDO00 INITIALIZE ADDRESSES F1P84530 02025 0 62100 0 02072 STA MDO06 F1P04540 02026 0 62100 0 02041 STA MDO30 F1P04550 02027 0 50000 0 04550 CLA OTA-1 GET NUMBER WORDS IN OTA F1P04560 02030 0 77100 0 00022 MDOOK ARS 18 PUT NUMBER WORDS IN AC ADDRESS F1P04570 02031 0 40000 0 07750 ADD L(OTA) ADD OTA ORIGIN AND F1P04580 02032 0 62100 0 02050 STA MDO02 INITIALIZE ADDRESSES F1P04590 02033 0 62100 0 02057 STA MDO03 F1P04600 02034 0 62100 0 02062 STA MDO04 F1P04610 02035 0 62100 0 02070 STA MDO041 F1P04620 02036 0 50000 2 00000 MDO00 CLA 0,2 ADDR IS ITA + NUMBER WORDS (1) F1P04630 02037 0 12000 0 02043 TPL MDO01 SIGN OF WORD IS PLUS F1P04640 02040 0 76000 0 00003 SSP CHANGE SIGN OF WORD IN TABLE F1P04650 02041 0 60100 2 00000 MDO30 STO 0,2 F1P04660 02042 0 02000 0 02073 TRA MDO07 F1P04670 02043 -0 32000 0 07742 MDO01 ANA MSK ERASE DECR IN AC F1P04680 02044 0 62100 0 07747 STA E1 SAVE BETA F1P04690 02045 -0 53400 4 04550 LXD OTA-1,4 SET INDEX C TO NUM WORDS IN OTA F1P04700 02046 3 00000 4 02050 TXH MDO02,4,0 TEST FOR TEIFNO F1P04710 02047 0 02000 0 07751 TRA TEIFER STOP FOR NO TEIFNO F1P04720 02050 0 50000 4 00000 MDO02 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04730 02051 -0 32000 0 07742 ANA MSK ERASE BETA PRIME F1P04740 02052 0 40200 0 07747 SUB E1 BETA COMPARED WITH TABLE ARGUMENT F1P04750 02053 0 10000 0 02057 TZE MDO03 BETA EQUALS ARGUMENT F1P04760 02054 2 00001 4 02050 TIX MDO02,4,1 BETA NOT EQUAL TO ARGUMENT F1P04770 02055 0 50000 0 02103 CLA PAT13 F1P04780 02056 0 02000 0 02072 TRA MDO06 F1P04790 02057 0 50000 4 00000 MDO03 CLA 0,4 BETA PRIME AND BETA GO TO AC F1P04800 02060 0 62200 0 07746 STD E2 SAVE DECR OF FIRST POSSIBILITY F1P04810 02061 -2 00001 4 02066 TNX MDO08,4,1 SEE IF THERE ARE 2 ENTRIES FOR F1P04820 02062 0 50000 4 00000 MDO04 CLA 0,4 ONE ARGUMENT F1P04830 02063 -0 32000 0 07742 ANA MSK ERASE DECR IN AC F1P04840 02064 0 40200 0 07747 SUB E1 F1P04650 02065 0 10000 0 02070 TZE MDO041 THERE ARE 2 ENTRIES F1P04860 02066 0 50000 0 07746 MDO08 CLA E2 THERE IS ONLY ONE ENTRY F1P04870 02067 0 02000 0 02071 TRA MDO05 FOR THIS ARGUMENT F1P04860 02070 0 50000 4 00000 MDO041 CLA 0,4 F1P04890 02071 0 77100 0 00022 MDO05 ARS 18 F1P04900 02072 0 62100 2 00000 MDO06 STA 0,2 (I)* BETA PRIME REPLACES BETA F1P04910 02073 2 00005 2 02036 MDO07 TIX MDO00,2,5 TAKE NEXT ENTRY IN ITA F1P04920 02074 0 07400 1 07656 WDO00 TSX WAT00,1 WRITE TDO ON TAPE F1P04930 02075 0 00000 0 00001 HTR 1 F1P04940 02076 0 00000 0 03163 T0T1 HTR 1TA F1P04950 02077 0 76200 0 00221 RTB 1 F1P04960 02100 0 02000 0 00004 TRA 4 GO TO 1-CS FOR PART B OF ONE PRIME F1P04970 02101 0 77777 0 00000 DMASK 0,0,32767 F1P04980 02102 +000000077777 PAT11 OCT 77777 F1P04990 02103 0 00000 0 00000 PAT13 HTR 0 F1P05000 02104 0 00000 0 00000 PAT14 HTR 0 F1P05010 02105 0 00000 0 00000 PAT15 HTR 0 F1P05020 02106 GARBGE BSS 1 F1P05030 02107 WORKCL BSS 1 F1P05040 02110 NEWBAS BSS 1 F1P05050 02243 BUFFER BES 90 F1P05060 02243 E1PTS BSS 1 F1P05070 02244 FLSIZE BSS 1 F1P05080 02245 CMPREC BSS 1 F1P05090 03162 END1PA ORG 1650 F1P05100 03162 1TAM1 BSS 1 NO OF WORDS IN BLOCK F1P05110 03163 1TA BSS 750 BLOCK FOR TABLE ASSEMBLING F1P05120 F1P05130 F1P05140 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B = F0240000. F1P05150 00000 ORG 0 F1P05160 00000 0 00507 0 00507 PZE ORG1PB,,ORG1PB F1P05170 00001 0 00000 0 01613 PZE END1PB F1P05180 F1P05190 THIS IS PART B OF 2 PARTS OF SECTION ONE PRIME F1P05200 F1P05210 00507 ORG1PB ORG 327 F1P05220 00507 0 76100 0 00000 NOP TO PERMIT A STOP FOR TESTING USE. F1P05230 00510 0 07400 1 07505 TSX TAP00,1 ASSEMBLE FORVAL F1P05240 00511 0 00000 0 00006 TNT6 HTR 6 F1P05250 00512 0 00000 0 01614 TOT6 HTR 6TA F1P05260 00513 -0 53400 4 01613 LXD 6TA-1,4 TEST FOR ENTRIES IN FORVAL, IF NONE WRITE F1P05270 00514 -3 00000 4 00546 TXL CLMD09,4,0 IDENTIFICATION WORD AND ZERO WORD. F1P05280 F1P05290 00515 0 07400 1 07505 TSX TAP00,1 ASSEMBLE TABLE OF FIRST, LAST FORMULA F1P05300 00516 0 00000 0 00020 16 NUMBERS OF CALL STATEMENTS. F1P05310 00517 0 00000 0 03564 L16TA 16TA F1P05320 F1P05330 00520 -0 53400 2 03563 LXD 16TA-1,2 TEST FOR ANY ENTRIES IN CALL NUMBER TABLE, F1P05340 00521 -3 00000 2 00546 TXL CLMD09,2,0 IF NONE WRITE OUT FORVAL TABLE. F1P05350 F1P05360 THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER TABLES. F1P05370 THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE F1P05380 REPLACED WITH THE LAST NUMBER RELATED TO A CALL STATEMENT. F1P05390 THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO F1P05400 TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA F1P05410 NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH, F1P05420 F1P05430 00522 0 60000 0 02107 STZ WORKCL F1P05440 00523 0 53400 1 07730 LXA L(0),1 PREPARE FOR FORWARD SEARCH. F1P05450 00524 -0 53400 4 01613 LXD 6TA-1,4 NO OF ENTRIES IN FORVAL. F1P05460 00525 -0 75400 2 00000 PXD ,2 F1P05470 00526 0 77100 0 00022 ARS 18 F1P05480 00527 0 40000 0 00517 ADD L16TA F1P05490 00530 0 62100 0 00531 STA *+1 F1P05500 F1P05510 U 00531 0 50000 2 CLMD01 CLA ..,2 GET NEXT ENTRY IN CALL TABLE. F1P05520 00532 0 62200 0 02107 STD WORKCL DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS. F1P05530 00533 -0 32000 0 07742 ANA MSK F1P05540 00534 0 76700 0 00022 ALS 18 F1P05550 00535 0 34000 1 01614 CLMD02 CAS 6TA,1 COMPARE CALL FIRST IN AC TO NEXT FORVAL. F1P05560 00536 1 77777 1 00545 TXI CLMD04,1,-1 CALL GREATER THAN FORVAL F1P05570 00537 0 02000 0 00542 TRA CLMD03 CALL EQUAL FORVAL. F1P05580 00540 2 00001 2 00531 TIX CLMD01,2,1 GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE F1P05590 00541 0 02000 0 00546 TRA CLMD09 GO WRITE FORVAL TABLE. F1P05600 F1P05610 00542 0 50000 0 02107 CLMD03 CLA WORKCL REPLACE FORMULA NUMBER IN FORVAL WHICH IS F1P05620 00543 0 62200 1 01614 STD 6TA,1 FIRST RELATED TO CALL WITH LAST. F1P05630 00544 1 77777 1 00545 TXI *+1,1,-1 F1P05640 00545 2 00001 4 00535 CLMD04 TIX CLMD02,4,1 GO ON WITH SEARCH IF THERE ARE MORE FORVALSF1P05650 IF NOT GO WRITE FORVAL TABLE. F1P05660 F1P05670 00546 0 07400 1 07656 CLMD09 TSX WAT00,1 F1P05680 00547 0 00000 0 00006 HTR 6 FORVAL F1P05690 00550 0 00000 0 01614 HTR 6TA ON TAPE F1P05700 00551 0 50000 0 01613 CLA 6TA-1