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