FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 1

0001 * NAME: FRTN DWG 70180463000 REV J 0002 * 0003 * DESCRIPTION: EXPANDED FORTRAN IV COMPILER 0004 * 0005 * REVISION HISTORY 0006 * REV DATE ECO NO 0007 * 0008 * J 0009 * H 05-05-71 9501 0010 * G 12-01-70 8954 0011 * F 08-14-70 8504 0012 * E 02-09-70 7893 0013 * D 12-18-68 5249 0014 * C 10-31-66 3824 0015 * B 09-19-66 3476 0016 * A RELEASED 0017 * 0018 * DOCUMENTATION REFERENCES 0019 * TITLE DOC NO 0020 * 0021 * FORTRAN USER'S MANUAL 70130071364 0022 * 0023 * 0024 * 0025 * 0026 * 0027 * 0028 * COPYRIGHT 1971 BY HONEYWELL INFORMATION SYSTEMS INC., 0029 * FRAMINGHAM COMPUTER OPERATIONS. CONTENTS OF THIS PUBLICATION 0030 * MAY NOT BE REPRODUCED IN ANY FORM IN WHOLE OR IN PART. WITHOUT 0031 * PERMISSION OF THE COPYRIGHT OWNER. ALL RIGHTS RESERVED. 0032 *********************************************************************** 0033 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 2

0034 * 0035 * PURPOSE 0036 * 0037 * THIS PROGRAM IS DESIGNED TO COMPILE ASA STANDARD FORTRAN IV 0038 * PROGRAMS IN ONE PASS, GENERATING OPTIMUM OBJECT CODE FOR THE 0039 * DDP-516 OR H-316. 0040 * 0041 * 0042 * RESTRICTIONS 0043 * 0044 * MINIMUM 8K CORE STORAGE 0045 * 0046 * 0047 * STORAGE 0048 * 0049 * 6593 (DECIMAL) 0050 * 14701 (OCTAL) 0051 * 0052 * 0053 * USE 0054 * 0055 * 0056 * ******************************** 0057 * 0058 * *FORTRAN-IV OPERATING PROCEDURE* 0059 * ******************************** 0060 * 0061 * 1. LOAD THE COMPILER SYSTEM TAPE USING STANDARD 'PAL-MODE' 0062 * LOADING PROCEDURES. 0063 * 0064 * 2. SET THE (A) REGISTER FOR THE DESIRED INPUT/OUTPUT DEVICE 0065 * SELECTION AS DESCRIBED BELOW, SET (P) TO '1000, PRESS 0066 * START. 0067 * 0068 * 3. INPUT/OUTPUT DEVICE SELECTION (BITS SET IN (A) ON ENTRY)..... 0069 * 1......IF SET, CERTAIN ERROR CHECKS ARE NOT MADE. THIS 0070 * OPTION IS USED WHEN COMPILING THOSE PARTS OF THE 0071 * LIBRARY WRITTEN IN FORTRAN LANGUAGE AND IT ALLOWS THE 0072 * LIBRARY TO TAKE ADVANTAGE OF THE COMPILER'S LOGIC TO 0073 * GENERATE SPECIAL CODING. 0074 * 0075 * 2......IF SET, THE SYMBOLIC LISTING IS EXPANDED TO INCLUDE 0076 * SIDE-BY-SIDE OCTAL INFORMATION. 0077 * 0078 * 3......IF SET, THE SYMBOLIC LISTING IS INHIBITED (AS LONG 0079 * AS BIT 2 IS NOT SET). 0080 * 0081 * 4......IF SET. THE SYMBOLIC LISTING WILL CONTAIN INFORM- 0082 * ATION CONCERNING OBJECT BLOCK TEXT (NOT FOR NORMAL 0083 * USAGE).
* NAME: FRTN DWG 70180463000 REV J PAGE 3

0084 * 0085 * 5......IF SET. THE COMPUTER WILL HALT BEFORE AND 0086 * AFTER OUTPUTTING EACH BLOCK OF OBJECT TEXT. 0087 * THIS IS TO ALLOW FOR TURNING THE ASR-33 0088 * PUNCH ON AND OFF AND THUS AVOID EXTRANEOUS 0089 * DATA BEING PUNCHED ON OBJECT TAPE. 0090 * 0091 * 6......IF SET. THE OBJECT CODING BEING GENERATED WILL IN- 0092 * CLUDE TRACE COUPLING INFORMATION PEGARDLESS OF 0093 * ANY TRACE STATEMENTS WITHIN THE PROGRAM (OPERATOS 0094 * OVEPRIDE). 0095 * 0096 * 7......UNUSED 0097 * 0098 * 8-10...INPUT DEVICE SELECTION 0099 * 0 = REPROCESS LAST CARD. 0100 * 1 = ASR-33/35 KEYBOARD (OR ITS PAPER TAPE READER). 0101 * 2 = HIGH SPEED PAPER TAPE 0102 * 3 = CARD READER 0103 * 4 = LINE PRINTER (NOT USED FOR INPUT) 0104 * 5 = MAGNETIC TAPE (UNIT 2) 0105 * 6 = DISC 0106 * 7 = * SPARE * 0107 * 0108 * 11-13..BINARY OUTPUT SELECTION 0109 * 0 = SUPPRESS BINARY OUTPUT. 0110 * 1 = ASR-33/35 BINARY OUTPUT. 0111 * 2 = MIGH SPEED PAPER TAPE 0112 * 3 = CARD PUNCH 0113 * 4 = LINE PRINTER (NOT USED FOR OUTPUT) 0114 * 5 = MAGNETIC TAPE (UNIT 4) 0115 * 6 = DISC 0116 * 7 = * SPARE * 0117 * 0118 * 14-16..SYMBOLIC LISTING SELECTION 0119 * 0 = SUPPRESS ALL SYMEOLIC LISTINGS. 0120 * 1 = ASR-33/35 KEYBOARD. 0121 * 2 = HIGH SPEED PAPER TAPE (NOT USED FOR LISTING) 0122 * 3 = CARD READER/PUNCH (NOT USED FOR LISTING) 0123 * 4 = LINE PRINTER 0124 * 5 = MAGNETIC TAPE (UNIT 3) 0125 * 6 = DISC 0126 * 7 = * SPARE * 0127 * 0128 * 0129 * 4. WHEN BINARY TAPE IS BEING GENERATED, THE COMPILER 0130 * AUTOMATICALLY TURNS ON THE TAPE PUNCH AND PUNCHES OUT A 0131 * LENGTH OF LEADER. AFTER THE END-OF-JOB IS TYPED, A LENGTH OF 0132 * TRAILER IS PUNCHED BEFORE TURNING OFF THE PUNCH, AND THE LINE 0133 * PRINTER IS ADVANCED TO THE NEXT PAPER SEAM. PRESS 'START'
* NAME: FRTN DWG 70180463000 REV J PAGE 4

0134 * TO PROCESS THE NEXT PROGRAM (BATCH COMPILING). 0135 * 0136 * FOR ASR BINARY OUTPUT, NO LEADER OR TRAILER IS PROVIDED. 0137 * THE SETTING OF BIT 5 IS ONLY NECESSARY WHEN THE ASR-33 0138 * IS SELECTED FOR BINARY OUTPUT. 0139 * 0140 * 0141 * ERRORS 0142 * 0143 * THE ERROR MESSAGES OUTPUT BY THIS COMPILER ARE LISTED ON A 0144 * SEPARATE DOCUMENT FOR EASE OF DISTRIBUTION. 0145 * 0146 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 5

0147 * ************************* 0148 * *DATA POOL ENTRY FORMATS* 0149 * ************************* 0150 * 0151 * THE DATA POOL CONSISTS OF FOUR FORMS OF INFORMATION 0152 * 1. THE ASSIGNMENT TABLE CONSISTS OF 5 WORDS, STARTS 0153 * AT THE END OF THE COMPILER AND EXTENDS TOWARD THE 0154 * END OF MEMORY. 0155 * 0156 * TDCCCCCCCCCCCCCC....DP(A+4) 0157 * CCCCCCCCCCCCCCCC....DP(A+3) 0158 * CCCCCCCCCCCCCCCC....DP(A+2) 0159 * IIAAAAAAAAAAAAAA....DP(A+1) 0160 * NRRRMMMLLLLLLLLL....DP(A) 0161 * 0162 * T = TRACE TAG 0163 * D = DATA TAG 0164 * C = SIX 8-BIT CHAR. OR BINARY CONSTANT 0165 * I = ITEM USAGE (IJ) 0166 * 0 = NO USAGE 2 = VAR/CONSTANT 0167 * 1 = SUBPROGRAM 3 = ARRAY 0168 * A = ASSIGNMENT ADDRESS 0169 * N = NAME TAG (NT) 0170 * 0 = NAME 1 = CONSTANT 0171 * R = ADDRESS TYPE (AT) 0172 * 0 = ABSOLUTE 3 = STRING-REL 0173 * 1 = RELATIVE 4 = COMMON 0174 * 2 = STRING-ABS 5 = DUMMY 0175 * M = ITEM MODE (IM) 0176 * 1 = INTEGER 5 = COMPLEX 0177 * 2 = REAL 6 = DOUBLE 0178 * 3 = LOGICAL 0179 * 4=COM/EQU LINK 0180 * 2. THE DO TABLE 'FLOATS' ON TOP OF THE ASSIGNMENT 0181 * TABLE AND CONTAINS THE INFORMATION NEEDED TO CLOSE-OUT 0182 * A DO-LOOP. EACH ENTRY IS 5 WORDS. 0183 * 00IIIIIIIIIIIIII 0184 * 00TTTTTTTTTTTTTT 0185 * 00XXXXXXXXXXXXXX 0186 * 00UUUUUUUUUUUUUU 0187 * 00NNNNNNNNNNNNNN 0188 * I = INITIAL VALUE/OR RPL 0189 * T = TERMINAL VALUE 0190 * X = INDEX 0191 * U = INCREMENT 0192 * N = STATEMENT NUMBER 0193 * 0194 * 3. THE EXPRESSION TABLE (AOI TABLE) 'FLOATS' ON TOP 0195 * THE DO TABLE AND CONSISTS OF 2 WORD ENTRIES. 0196 *
* NAME: FRTN DWG 70180463000 REV J PAGE 6

0197 * NOOOOOOOOIIIIIII.....DP(I+1) 0198 * 00AAAAAAAAAAAAAAAA...DP(I) 0199 * N = NEGATION INDICATOR 0200 * O = OPERATOR 0201 * I = INDEX (OPERATOR LEVEL) 0202 * A = ASSIGNMENT TABLE REFERENCE 0203 * 4. THE TRIAD TABLE IS USED TO OPTIMIZE EXPRESSIONS AND 0204 * IS AT THE END OF MEMORY EXTENDING DOWN TOWARDS THE 0205 * COMPILER. EACH ENTRY IS THREE WORDS LONG. 0206 * 0207 * S000000000PPPPPP.....DP(L+2) 0208 * 0011111111111111.....DP(L+1) 0209 * 0022222222222222.....DP(L) 0210 * S = TEMP STORAGE INDICATOR 0211 * P = OPERATOR 0212 * 1 = FIRST OPERAND ADDRESS 0213 * 2 = SECOND OPERAND ADDRESS 0214 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 7

0215 * EXTERNAL LINKAGE DECLARATIONS 0216 * 0217 * 0218 * 0219 ENT NAMF1,NMF1 0220 ENT OR00 0221 ENT TCF 0222 ENT IS00 0223 ENT A1 0224 ENT TS00 0225 ENT LSTF 0226 ENT FS00 0227 ENT XN00 0228 ENT ON00 0229 ENT A 0230 ENT ID 0231 ENT ID1 0232 ENT OS00 0233 ENT LSTP 0234 ENT NF00 0235 ENT IPTR 0236 ENT OB00 0237 ENT R2B 0238 ENT CH00 0239 ENT NT 0240 ENT AF 0241 ENT ISTR 0242 ENT II00 0243 ENT OQ00 0244 ENT NA00 0245 ENT IC00 0246 ENT IT00 0247 ENT SY00 0248 ENT B6 0249 ENT AF00 0250 ENT OC00 0251 ENT NP00 0252 ENT IR00 0253 ENT SBF 0254 ENT RPL 0255 ENT TC 0256 ENT LIST 0257 ENT MSPL 0258 ENT EX00 0259 ENT IG00 0260 ENT IA00 0261 ENT CC 0262 ENT TG00 0263 ENT ER00 0264 ENT IV00
* NAME: FRTN DWG 70180463000 REV J PAGE 8

0265 ENT OCI 0266 ENT OCI7 0267 ENT OCI8 0268 ENT CN00 0269 ENT CERR 0270 ENT C1R2 0271 ENT C2R2 0272 ENT CSR4 0273 ENT C3R2 0274 ENT CSR1 0275 ENT FS10 0276 ENT KASP 0277 ENT CI 0278 ENT PRI 0279 ENT LIBF 0280 * 0281 EXT OPST 0282 EXT HEAD 0283 EXT WAIT 0284 EXT TERM 0285 EXT REQU 0286 EXT CONN 0287 EXT DISC 0288 EXT SCHE 0289 EXT PRIN 0290 EXT ASMB 0291 * 0292 * 0293 * 0294 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 9

0295 * 0296 ABS 0297 SETB '100 THIS HELPS ON TIME SHARE 0298 ORG '100 0299 * 0300 * ************************************ 0301 * * DIRECTORY OF FORTRAN IV COMPILER * 0302 * ************************************ 0303 * 0304 * 0305 * 0306 *..............ENTRANCE GROUP 0307 00100 0 010067 DAC A3 COMPILER ENTRANCE/INITIALIZE 0308 00101 0 017400 DAC DP DATA POOL START 0309 * 0310 *..............INPUT GROUP 0311 00102 0 001061 DAC IC00 INPUT COLUMN 0312 00103 0 001152 DAC UC00 UNINPUT COLUMN 0313 00104 0 001157 DAC CH00 INPUT CHARACTER 0314 00105 0 001240 DAC ID00 INPUT DIGIT 0315 00106 0 001253 DAC IA00 INPUT (A) CHARACTERS 0316 00107 0 001307 DAC FN00 FINISH OPERATOR 0317 00110 0 001350 DAC DN00 INPUT DNA 0318 00111 0 002224 DAC II00 INPUT ITEM 0319 00112 0 002232 DAC OP00 INPUT OPERAND 0320 00113 0 002242 DAC NA00 INPUT NAME 0321 00114 0 007645 DAC IG00 INPUT INTEGER 0322 00115 0 002253 DAC IV00 INPUT INTEGER VARIABLE/CONSTANT 0323 00116 0 002260 DAC IR00 INPUT INTEGER VARIABLE 0324 00117 0 002264 DAC IS00 INPUT STATEMENT NUMBER 0325 00120 0 002346 DAC XN00 EXAMINE NEXT CHARACTEP 0326 00121 0 002341 DAC SY00 INPUT SYMPOL 0327 * 0328 *..............TEST GROUP 0329 00122 0 002352 DAC TS00 ALL CHARACTER TEST (EXCEPT C/R) 0330 00123 0 002360 DAC IP00 )-INPUT OPERATOR 0331 00124 0 003637 DAC A1 C/R TEST 0332 00125 0 010132 DAC B1 , OR C/R TEST 0333 00126 0 002401 DAC NU00 NO USAGE TEST 0334 00127 0 002407 DAC NC00 NON CONSTANT TEST 0335 00130 0 002415 DAC NS00 NON SUBPROGRAM TEST 0336 00131 0 002424 DAC AT00 ARRAY TEST 0337 00132 0 002433 DAC IT00 INTEGER TEST 0338 00133 0 002372 DAC NR00 NON REL TEST 0339 * 0340 *..............ASSIGNMENT GROUP 0341 00134 0 002762 DAC AS00 ASSIGN ITEM 0342 00135 0 003222 DAC TG00 TAG SJBPROGRAM 0343 00136 0 003274 DAC TV00 TAG VARIABLE 0344 00137 0 003317 DAC FA00 FETCH ASSIGN
* NAME: FRTN DWG 70180463000 REV J PAGE 10

0345 00140 0 003426 DAC FL00 FETCH LINK 0346 00141 0 003443 DAC KT00 D(O)= SIZE OF ARRAY DEFLECTION 0347 00142 0 003464 DAC DM00 DEFINE IM 0348 00143 0 003477 DAC DA00 DEFINE AF 0349 00144 0 003571 DAC AF00 DEFINE AFT 0350 00145 0 003604 DAC LO00 DEFINE LOCATION 0351 00146 0 003612 DAC AI00 ASSIGN INTEGER CONSTAMT 0352 00147 0 003623 DAC AA00 ASSIGN SPECIAL 0353 00150 0 003520 DAC BUD BUILD ASSIGNMENT TABLE ENTRY 0354 * 0355 *..............CONTROL GROUP 0356 00151 0 003633 DAC B6 JUMP 0357 00152 0 003635 DAC C5 ILL TERM ERTN0357 0358 00153 0 003641 DAC C6 CONTINJE 0359 00154 0 003723 DAC C7 STATEMENT INPUT 0360 00155 0 004032 DAC C8 STATEMENT SCAN 0361 00156 0 004157 DAC A9 STATEMENT IDENTIFICATION 0362 00157 0 004272 DAC NP00 FIRST NON-SPEC CHECK 0363 * 0364 *..............SPECIFICATIONS GROUP 0365 00160 0 007602 DAC EL00 EXCHANGE LINKS 0366 00161 0 007625 DAC NM00 NON COMMON TEST 0367 00162 0 007634 DAC ND00 NON DUMMY OR SUBPROGRAM TEST 0368 00163 0 007666 DAC SC00 INPUT SUBSCRIPT 0369 00164 0 007755 DAC IL00 INPUT LIST ELEMENT 0370 00165 0 010031 DAC R1 FUNCTION 0371 00166 0 010033 DAC R2 SUBROUTINE 0372 00167 0 010067 DAC A3 INTEGER 0373 00170 0 010071 DAC A4 REAL 0374 00171 0 010073 DAC A5 DOUBLE PRECISION 0375 00172 0 010075 DAC A6 COMPLEX 0376 00173 0 010077 DAC A7 LOGICAL 0377 00174 0 010137 DAC B2 EXTERNAL 0378 00175 0 010145 DAC B3 DIMENSION 0379 00176 0 010226 DAC B7 INPUT DIMENSION 0380 00177 0 010233 DAC B4 COMMON 0381 00200 0 010304 DAC B5 EQUIVALENCE 0382 00201 0 010344 DAC C2 RELATE COMMON ITEMS 0383 00202 0 010410 DAC C3 GROUP EQUIVALENCE 0384 00203 0 010661 DAC C4 ASSIGN SPECIFICATIONS 0385 00204 0 010732 DAC W4 DATA 0386 00205 0 011305 DAC R3 BLOCK DATA 0387 00206 0 011315 DAC TRAC TRACE 0388 * 0389 *..............PROCESSOR GROUP 0390 00207 0 004405 DAC V3 IF 0391 00210 0 004526 DAC R7 GO TO 0392 00211 0 004606 DAC IB00 INPUT BRANCH LIST 0393 00212 0 004636 DAC W3 ASSIGN 0394 00213 0 004702 DAC C9 DO
* NAME: FRTN DWG 70180463000 REV J PAGE 11

0395 00214 0 004724 DAC V7 END FILE 0396 00215 0 004717 DAC V6 BACKSPACE 0397 00216 0 004726 DAC V8 RENIND 0398 00217 0 004735 DAC V5 READ 0399 00220 0 004737 DAC V4 WRITE 0400 00221 0 005133 DAC V2 FORMAT 0401 00222 0 005320 DAC SI00 INPUT FORMAT STRING 0402 00223 0 005313 DAC IN00 INPUT NUMERIC FORMAT STRING 0403 00224 0 005305 DAC NZ00 NON ZERO STRING TEST 0404 00225 0 005432 DAC W8 PAUSE 0405 00226 0 005371 DAC W7 STOP 0406 00227 0 005435 DAC R8 CALL 0407 00230 0 005452 DAC G2 ASSIGNMENT STATEMENT 0408 00231 0 005463 DAC R9 RETURN 0409 00232 0 005507 DAC G1 STATEMENT FUNCTION 0410 00233 0 005556 DAC W5 END 0411 * 0412 *..............PROCESSOR SUBROUTINES GROUP 0413 00234 0 006042 DAC PO00 INPUT CHAR AND OUTPUT PACK 0414 00235 0 006046 DAC HS00 TRANSMIT HOLLERITH STRING 0415 00236 0 006064 DAC DP00 DO INPUT 0416 00237 0 006131 DAC DS00 DO INITIALIZE 0417 00240 0 006155 DAC DQ00 DO TERMINATION 0418 00241 0 006225 DAC EX00 EXPRESSION 0419 00242 0 007125 DAC CA00 SCAN 0420 00243 0 007411 DAC ST00 TRIAD SEARCH 0421 00244 0 007456 DAC TC00 TEMP STORE CHECK 0422 00245 0 007470 DAC ET00 ENTER TRIAD 0423 00246 0 007514 DAC GE00 GENERATE SUBPROGRAM ENTRANCE 0424 * 0425 *..............OUTPUT GROUP 0426 00247 0 011332 DAC OL00 OUTPUT OBJECT LINK 0427 00250 0 011337 DAC OI00 OUTPUT I/O LINK 0428 00251 0 011363 DAC CN00 CALL NAME 0429 00252 0 011444 DAC OK00 OUTPUT PACK 0430 00253 0 011471 DAC OB00 OUTPUT OA 0431 00254 0 011701 DAC OT00 OUTPUT TRIADS 0432 00255 0 012247 DAC OM00 OUTPUT ITEM 0433 00256 0 013072 DAC OR00 OUTPUT REL 0434 00257 0 013251 DAC OA00 OUTPUT ABS 0435 00260 0 013257 DAC OS00 OUTPUT STRING 0436 00261 0 013402 DAC OW00 OUTPUT WORD 0437 00262 0 013476 DAC PU00 PICKUP 0438 00263 0 013531 DAC FS00 FLUSH 0439 00264 0 012754 DAC TRSE OUTPUT TRACE COUPLING 0440 00265 0 013321 DAC PRSP SET BUFFER TO SPACES 0441 * 0442 *..............MISC. GROUP 0443 00266 0 002442 DAC AD3 ADD TWO 3 WORD INTEGERS 0444 00267 0 002462 DAC IM00 MULTIPLY (A) BY (B)
* NAME: FRTN DWG 70180463000 REV J PAGE 12

0445 00270 0 002501 DAC NF00 SET F$ INTO NAMF 0446 00271 0 002510 DAC BLNK SET AREA TO ZEROS 0447 00272 0 002523 DAC MOV3 MOVE 3 WORDS TO TEMP STORAGE 0448 00273 0 002533 DAC CIB COMPARE IBUF TO A CONSTANT 0449 00274 0 002555 DAC PACK 0450 00275 0 002615 DAC ER00 ERROR OUTPUT 0451 00276 0 002675 DAC SRT SHIFT RIGHT 1 (TRIPLE PRES.) 0452 00277 0 002720 DAC SFT SHIFT LEFT 1 (TRIPLE PRES.) 0453 00300 0 002745 DAC LIST 0454 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 13

0455 * 0456 * 0457 * **************************** 0458 * *CONSTANT AND VARIABLE POOL* 0459 * **************************** 0460 * 0461 * 0462 * 0463 * NOTE THE POTENTIAL INTERFERENCE WITH DMC CHANNEL ASSIGNMENTS. 0464 * 0465 ORG '25 0466 00025 0 00 00000 AF PZE 0 ADDRESS FIELD 0467 00026 0 00 00000 AT PZE 0 ADDRESS TYPE 0468 00027 0 00 00000 CODE PZE 0 OUTPUT CODE 0469 00030 0 00 00000 D0 PZE 0 DIMENSIONS 0470 00031 0 00 00000 D1 PZE 0 0471 00032 0 00 00000 D2 PZE 0 0472 00033 000000 D3 BSZ 2 0473 00035 0 00 00000 DF PZE 0 DATA FLAG 0474 00036 0 00 00000 B PZE 0 0475 00037 0 00 00000 DFL PZE 0 DELIMITER FLAG 0476 00040 000000 E OCT 0 EQUIVALENCE INDEX 0477 00041 0 00 00000 EP PZE 0 E-PRIME 0478 00042 0 00 00000 E0 PZE 0 E-ZERO 0479 00043 0 00 00000 FTOP PZE 0 OUTPUT COMMAND 0480 00044 0 00 00000 FLT1 PZE 0 FETCH LINK CL POINTER LOCATION 0481 00045 0 00 00000 F PZE 0 TRIAD TABLE INDEX 0482 00046 0 00 00000 CL PZE 0 ASSIGNMENT ITEMS UNPACKED 0483 00047 0 00 00000 DT PZE 0 0484 * 0485 ORG '51 0486 00051 000000 NAMF HLT NAME FUNCTION 0487 000052 NMF1 EQU NAMF+1 0488 00052 000000 HLT NAMF USES 3 CELLS, SHARING WITH NS 0489 00053 000000 NS HLT NO. OF SUBSCRIPTS 0490 00054 000000 NT HLT NAME TAG 0491 00055 000000 NTF HLT NAME TAG FLAG 0492 00056 000000 NTID HLT NO. OF WORDS IN TID 0493 00057 000000 O1 HLT OPERATOR 1 0494 00060 000000 O2 HLT OPERATOR 2 0495 00061 000000 P HLT 0496 00062 000000 PCNT HLT 0497 00063 000000 OCNT HLT OUTPUT COUNT 0498 00064 000000 S1 HLT SUBSCRIPT NO. 1 0499 00065 000000 S2 HLT SUBSCRIPT NO. 2 0500 00066 000000 S3 HLT SUBSCRIPT NO. 3 0501 00067 000000 TC HLT TERMINAL CHARACTER 0502 00070 000000 TT HLT 0503 00071 000000 X HLT ARRAY INDICES 0504 00072 000000 X1 HLT
* NAME: FRTN DWG 70180463000 REV J PAGE 14

0505 00073 000000 X2 HLT 0506 00074 000000 X3 HLT 0507 00075 000000 X4 HLT 0508 00076 000000 ND HLT NO. OF DIMENSIONS 0509 00077 000000 IFLG HLT I-FLAG 0510 * 0511 * NOTE: LOCATIONS '100-'624 ARE AVAILABLE FOR LOADER ASSIGNMENT OF 0512 * CROSS-SECTOR REFERENCES. HOWEVER, LOCATIONS '100-'112 ARE 0513 * SPECIFICALLY ASSIGNED -- SEE NOTE ON DATA POOL REFERENCES 0514 * PRECEDING 'START OF COMPILER' 0515 * 0516 ORG '625 0517 00625 000000 A HLT ASSIGNMENT TABLE INDEX 0518 00626 000000 I HLT EXPRESSION TABLE INDEX 0519 00627 000000 L HLT 0520 00630 000000 MFL HLT MODE FLAG 0521 00631 000000 SFF HLT FUNCTION FLAG 0522 00632 000000 SBF HLT SUBFUNCTION FLAG 0523 00633 000000 SXF HLT POSSIBLE CPX FLAG 0524 00634 000000 SPF HLT SPEC. FLAG 0525 00635 000000 TCF HLT TEMP STORE COUNT 0526 00636 000000 IFF HLT IF FLAG 0527 00637 000000 ABAR HLT BASE OF ASSIGNMENT TABLE 0528 00640 000000 XST HLT FIRST EXECUTABLE STATEMENT 0529 00641 000000 CFL HLT NON FLAG 0530 00642 000000 D HLT DO INDEX 0531 00643 000000 RPL HLT RELATE PROGRAM LOCATION 0532 00644 000000 BDF HLT BLOCK DATA FLAG 0533 00645 000000 TRF HLT TRACE FLAG (END TRACE STATEMENT NO.) 0534 00646 000000 TRFA HLT POINTER TO FIRST VAR. OR ARRAY NAME IN 0535 * AND EXPRESSION (FOR USE BY TRACE). 0536 00647 000000 SOF HLT SUBSCRIPT CONSTANT FLAG (NON-ZERO IF SET) 0537 00650 000000 LIF HLT LOGICAL IF FLAG 0538 00651 000000 LSTN HLT LAST STATEMENT NO. 0539 00652 000000 LSTF HLT LAST STATEMENT FLAG 0540 00653 000000 LSTP HLT LAST STATEMENT STOP 0541 * 0542 * 0543 ORG '654 0544 00654 177777 EBAR OCT -1 E-BAR 0545 00655 000017 DO OCT 17 DO TABLE INDEX (FLOATS ABOVE ASSIGNMENT) 0546 00656 0 00 00111 CC PZE '111 CARD COLUMN COUNTER 0547 *..........CONSTANTS USED BY THE COMPILER 0548 00657 000251 K4 OCT 251 0) 0549 00660 000240 K8 OCT 240 0-SPACE 0550 00661 000256 K10 OCT 256 0. 0551 00662 000244 K15 OCT 244 0$ 0552 00663 000324 K34 OCT 324 0T 0553 00664 000311 K43 OCT 311 0I 0554 00665 000260 K60 OCT 260 00 (BCI ZERO)
* NAME: FRTN DWG 70180463000 REV J PAGE 15

0555 00666 000020 K109 DEC 16 0556 00667 000377 K100 OCT 377 0557 00670 037777 K111 OCT 37777 0558 00671 177757 K110 DEC -17 0559 00672 177400 K116 OCT 177400 0560 00673 000777 K118 OCT 777 0561 00674 177000 K119 OCT 177000 0562 00675 040000 K122 OCT 040000 0563 00676 177777 K123 DEC -1 0564 00677 000022 K132 OCT 22 0565 00700 000025 K138 OCT 25 0566 00701 000024 K139 OCT 24 0567 00702 000215 CRET OCT 215 0 C/R 0568 00703 140000 HBIT OCT 140000 HIGH BITS FOR ALPHA DATA 0569 00704 0 00 00000 GFA PZE 0 0570 00705 0 00 00001 ICSW PZE 1 INPUT CONTROL SWITCH 0571 00706 0 00 00000 IM PZE 0 ITEM MODE 0572 00707 0 00 00000 IOF PZE 0 I-O FLAG 0573 00710 0 00 00000 IU PZE 0 ITEM USAGE 0574 00711 0 00 00000 KBAR PZE 0 TEM STORE 0575 00712 0 00 00000 KPRM PZE 0 TEM STORE 0576 00713 177776 MIN2 DEC -2 -2 0577 00714 000340 HC2 OCT 340 0578 * 0579 * THE FOLLOWING '20 WORDS CONSTITUTE A TABLE UTILIZED IN FN00 -- 0580 * THE ORDER MUST NOT BE DISTURBED. 0581 * 0582 00715 000253 FN90 OCT 253 . 0583 00716 000255 K12 OCT 255 - 0584 00717 000252 OCT 252 * 0585 00720 000257 K9 OCT 257 / 0586 00721 147317 BCI 5,NOANORLTLE 00722 140716 00723 147722 00724 146324 00725 146305 0587 00726 142721 KAEQ BCI 1,EQ 0588 00727 143705 BCI 4,GEGTNEQ. 00730 143724 00731 147305 00732 150656 0589 00733 000275 K18 OCT 275 = 0590 00734 000254 K5 OCT 254 . 0591 * 0592 * THE FOLLOWING '20 WORDS CONSTITUTE A TABLE UTILIZED IN FN00 -- 0593 * THE ORDER MUST NOT BE DISTURBED. 0594 * 0595 00735 000001 K101 OCT 1 0596 00736 000002 K102 OCT 2 0597 00737 000003 K103 OCT 3
* NAME: FRTN DWG 70180463000 REV J PAGE 16

0598 00740 000004 K104 OCT 4 0599 00741 000005 K105 OCT 5 0600 00742 000006 K106 OCT 6 0601 00743 000007 K107 OCT 7 0602 00744 000010 K125 OCT 10 0603 00745 000011 K124 OCT 11 0604 00746 000012 K126 OCT 12 0605 00747 000013 K127 OCT 13 0606 00750 000014 K128 OCT 14 0607 00751 000015 K129 OCT 15 0608 00752 000012 OCT 12 0609 00753 000016 K153 OCT 16 0610 00754 000017 K134 OCT 17 0611 * 0612 * 0613 00755 000301 K49 OCT 301 0A 0614 00756 177775 IA90 OCT -3 0615 00757 107777 B4F OCT 107777 0616 00760 000027 K142 OCT 27 0617 00761 000030 K143 OCT 30 0618 00762 177772 K130 DEC -6 0619 00763 000304 K11 OCT 304 0620 00764 000077 K133 OCT 77 0621 00765 120240 K81 BCI 1, 0622 00766 0 00 00000 TIDN PZE 0 0623 00767 000000 ISTR BSZ 1 USED FOR INTERRUPT BLOCK HOUSEKEEPING 0624 * 0625 * LOCATIONS '770 THROUGH '773 ARE USED BY DOP 0626 * 0627 ORG '774 0628 00774 ID BSS 4 0629 000775 ID1 EQU ID+1 0630 000774 TID EQU ID TEMP STORE FOR ID 0631 * 0632 * 0633 017400 DP EQU '17400 DUMMY START OF DATA POOL (ACTUALLY SET 0634 * BY THE FORTRAN IOS SUBROUTINE.) 0635 000113 L0 EQU '113 DUMMY END OF DATA POOL (MINUS 3 WORDS) 0636 * THE FOLLOWING INSTRUCTIONS CAUSE THE LOADER 0637 * TO ASSIGN ALL REFERENCES TO THE DATA POOL IN WORDS 0638 * 100 TO 112 OF THE ZERO SECTOR. FORTRAN IOS WILL 0639 * CAUSE THESE CELLS TO BE SET TO THE ACTUAL DATA POOL 0640 * LOCATIONS WHICH WILL BE DETERMINED BY COMPUTER 0641 * CONFIGURATION. 0642 ORG '1000 0643 01000 1 00 17374 PZE DP-4,1 (100) 0644 01001 1 00 17375 PZE DP-3,1 (101) DATA POOL REFERENCES 0645 01002 1 00 17376 PZE DP-2,1 (102) 0646 01003 1 00 17377 PZE DP-1,1 (103) 0647 01004 1 00 17400 PZE DP,1 (104)
* NAME: FRTN DWG 70180463000 REV J PAGE 17

0648 01005 1 00 17401 PZE DP+1,1 (105) 0649 01006 1 00 17402 PZE DP+2,1 (106) 0650 01007 1 00 17403 PZE DP+3,1 (107) 0651 01010 1 00 17404 PZE DP+4,1 (110) 0652 01011 1 00 17405 PZE DP+5,1 (111) 0653 01012 1 00 17406 PZE DP+6,1 (112) 0654 01013 0 00 17407 PZE DP+7 (113) NO WDS IN DATA POOL SET BY IOS 0655 * 0656 * 0657 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 18

0658 * 0659 * 0660 * 0661 * ******************* 0662 * *START OF COMPILER* 0663 * ******************* 0664 * 0665 ORG '1000 0666 * 0667 * 0668 * 0669 * - A0 COMP ENT EMPTY BUFFERS 0670 01000 0 04 01060 STA LIBF DIAGNOSTIC FLAG IN BIT 1 0671 01001 0 10 00000 A0 CALL F4$INT INITIALIZE I/O DEVICES 0672 01002 0 02 01150 LDA K108 0673 01003 0 04 00656 STA CC CC = 73 0674 01004 0 10 01061 JST IC00 INPUT COLUMN 0675 01005 0 35 01056 A051 LDX A090 0676 01006 140040 CRA 0677 01007 1 04 00654 STA A+M,1 SET M VARIABLES TO ZERO 0678 01010 1 04 00100 STA NAMF+M,1 0679 01011 0 12 00000 IRS 0 0680 01012 0 01 01007 JMP *-3 0681 01013 0 04 11442 STA PKF 0682 01014 0 10 13531 JST FS00 INITIALIZE OUTPUT BUFFER 0683 01015 140401 CMA 0684 01016 0 04 00652 STA LSTF LSTF NOT EQ 0 0685 01017 0 04 00653 STA LSTP LSTP NOT EQ 0 0686 01020 0 04 00654 STA EBAR EBAR SET NEGATIVE 0687 01021 0 04 00767 STA ISTR MUST BE SET MINUS 0688 01022 0 02 00113 LDA L0 0689 01023 0 04 00705 STA ICSW 0690 01024 0 04 00042 STA E0 INITIALIZE EQUIVALENCE TABLE 0691 01025 0 04 00627 STA L INITIALIZE TRIAD TABLE POINTER 0692 01026 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 0693 01027 0 02 00754 LDA K134 0694 01030 0 04 00655 STA DO INITIALIZE DO TABLE POINTER 0695 01031 0 07 00700 SUB K138 0696 01032 0 04 01057 STA A091 0697 01033 140040 CRA 0698 01034 0 04 00774 STA ID 0699 01035 0 12 00774 A055 IRS ID ESTABLISH CONSTANTS 0700 01036 0 10 03612 JST AI00 0701 01037 0 12 01057 IRS A091 0702 01040 0 01 01035 JMP A055 0703 01041 0 02 00765 LDA K81 0704 01042 0 04 00774 STA ID 0705 01043 0 04 00775 STA ID+1 0706 01044 0 04 00776 STA ID+2 0707 01045 0400 40 LRL 32 (B)=0 IM=NO USAGE
* NAME: FRTN DWG 70180463000 REV J PAGE 19

0708 01046 141206 AOA (A)=1 IU=SUBR 0709 01047 0 10 03623 JST AA00 ASSIGN (SPECIAL) 0710 01050 0 35 00625 LDX A 0711 01051 0 02 00625 LDA A 0712 01052 0 04 00641 STA CFL CFL=A (LOCATION OF FIRST COMMON BLOCK) 0713 01053 0 06 00675 ADD K122 ='40000 (IU=SUBR) 0714 01054 1 04 17401 STA DP+1,1 GF(A)=A (IN CASE NO BLANK COMMON IS SPECIFIED) 0715 01055 0 01 03723 JMP C7 GO TO STMNT INPUT 0716 000027 M EQU 23 0717 01056 -1 177751 A090 DAC* -M,1 0718 01057 0 00 00000 A091 PZE 0 0719 01060 0 00 00000 LIBF PZE 0 SPECIAL LIBRARY FLAG 0720 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 20

0721 * 0722 * 0723 * 0724 * ************** 0725 * *INPUT COLUMN* 0726 * ************** 0727 * 0728 * INPUT NEXT CHARACTER 0729 * IGNORE BLANKS 0730 * CHECK FOR COMMENTS 0731 * IC02 SET AS FOLLOWS - 0732 * NORMAL - ICIP 0733 * INITIAL SCAN -ICSR 0734 01061 0 000000 IC00 DAC ** LINK STORE 0735 01062 0 15 01134 STX ICXS SAVE INDEX 0736 01063 0 02 00656 LDA CC IF CC = 73, GO TO IC 19 0737 01064 0 07 01150 SUB K108 0738 01065 100040 SZE 0739 01066 0 01 01120 JMP IC19 ELSE, GO TO IC 0740 01067 0 02 00705 LDA ICSW IF ICSW, GO TO IC12 0741 01070 101040 SNZ 0742 01071 0 01 01135 JMP IC24 ELSE, GO TO IC24 0743 01072 0 10 00000 IC12 CALL F4$IN INPUT SYMBOLIC CARD IMAGE 0744 01073 0 014040 DAC CI 0745 01074 0 02 14040 LDA CI 0746 01075 141140 ICL GO TO IC 14 0747 01076 0 11 01147 CAS K16 =(C) 0748 01077 0 01 01101 JMP *+2 0749 01100 0 01 01144 JMP IC30 COMMENT CARD (IGNORE) 0750 01101 0 07 00662 SUB K15 =($) 0751 01102 101040 SNZ 0752 01103 0 01 01111 JMP IC18 CONTROL CARD (IGNORE COLUMN 6) 0753 01104 0 02 01146 LDA K357 IF CARD COL. SIX IS 0754 01105 0 03 14042 ANA CI+2 ZERO OR BLANK. GO TO IC18 0755 01106 0 07 00660 SUB K8 0756 01107 100040 SZE 0757 01110 0 01 01140 JMP IC26 ELSE, GO TO IC26 0758 01111 0 04 00656 IC18 STA CC CC = 0. 0759 01112 0 02 14042 LDA CI+2 CI(6) = SPECIAL 0760 01113 0 03 00672 ANA K116 0761 01114 0 06 00714 ADD HC2 ='340 0762 01115 0 04 14042 STA CI+2 0763 01116 0 02 00702 LDA CRET 0764 01117 0 01 01131 JMP IC20 TC = C.R. 0765 01120 0 02 00656 IC19 LDA CC TC = CI(CC) 0766 01121 0 07 00735 IC21 SUB K101 LOCATE BUFFER WORD ASSOC. WITH CC 0767 01122 0404 77 LGR 1 0768 01123 0 04 00000 STA 0 0769 01124 1 02 14040 LDA CI,1 0770 01125 101001 SSC IS CURRENT CHAR. IN RT. OR LEFT
* NAME: FRTN DWG 70180463000 REV J PAGE 21

0771 01126 141140 ICL LEFT 0772 01127 141050 CAL RIGHT 0773 01130 0 12 00656 IRS CC RESTORE CC 0774 01131 0 04 00067 IC20 STA TC 0775 01132 0 35 01134 IC22 LDX ICXS RESTORE INDEX 0776 01133 -0 01 01061 JMP* IC00 RETURN 0777 01134 ICXS BSS 1 TEMP STORAGE FOR INDEX 0778 01135 0 02 00720 IC24 LDA K9 TC = /, END OF LINE - STATEMENT SCAN 0779 01136 0 04 00067 STA TC 0780 01137 0 01 01132 JMP IC22 GO TO IC22 0781 01140 0 10 02745 IC26 JST LIST LIST, CONTINUATION CARD 0782 01141 0 02 00743 LDA K107 CC = 7, IGNORE STATEMENT NO. 0783 01142 0 04 00656 STA CC 0784 01143 0 01 01121 JMP IC21 0785 01144 0 10 02745 IC30 JST LIST PRINT CARD IMAGE 0786 01145 0 01 01072 JMP IC12 READ IN NEW CARD 0787 01146 000357 K357 OCT 357 0788 01147 000303 K16 OCT 303 0C 0789 01150 000111 K108 DEC 73 0790 01151 120240 KASP BCI 1, (SP)(SP) MUST PRECEDE CARD IMAGE BUFFER 0791 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 22

0792 * 0793 * 0794 * 0795 * **************** 0796 * *UNINPUT COLUMN* 0797 * **************** 0798 * BACK UP ONE COLUMN 0799 * 0800 01152 0 000000 UC00 DAC ** 0801 01153 0 13 00656 IMA CC CC= CC-1 0802 01154 0 07 00735 SUB K101 RETAIN (A) 0803 01155 0 13 00656 IMA CC 0804 01156 -0 01 01152 JMP* UC00 0805 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 23

0806 * 0807 * 0808 * ***************** 0809 * *INPUT CHARACTER* 0810 * ***************** 0811 * INPUT ONE CHARACTER FROM EITHER 0812 * 1. INPUT BUFFER (EBAR POSITIVE) OR 0813 * 2. EQUIVALENCE BUFFER (EBAR NEGATIVE) 0814 * 0815 01157 0 000000 CH00 DAC ** 0816 01160 0 02 00654 LDA EBAR IF EBAR 7 0, 0817 01161 101400 SMI 0818 01162 0 01 01212 JMP CH10 GO TO CH10 0819 01163 0 10 01061 CH03 JST IC00 INPUT COLUMN 0820 01164 0 11 00660 CAS K8 0821 01165 100000 SKP 0822 01166 0 01 01163 JMP CH03 IF BLANK, REPEAT 0823 * 0824 01167 0 11 00755 CH04 CAS K49 ='301 0825 01170 101000 NOP 0826 01171 0 01 01206 JMP CH06 0827 01172 0 11 01237 CAS K772 ='272 0828 01173 0 01 01203 JMP CH05 0829 01174 101000 NOP 0830 01175 0 11 00662 CAS K15 ='244 0831 01176 0 01 01200 JMP *+2 0832 01177 0 01 01202 JMP CH02 0833 01200 0 11 00665 CAS K60 ='260 0834 01201 101000 NOP 0835 01202 140040 CH02 CRA ALPHA NUMERIC CHARACTER 0836 01203 0 04 00037 CH05 STA DFL DELIMITER ENTRY 0837 01204 0 02 00067 LDA TC EXIT WITH TC IN A 0838 01205 -0 01 01157 JMP* CH00 0839 01206 0 11 01236 CH06 CAS K63 ='332 0840 01207 0 01 01203 JMP CH05 0841 01210 101000 NOP 0842 01211 0 01 01202 JMP CH02 0843 01212 0 02 00040 CH10 LDA E IF E = EBAR 0844 01213 0 11 00654 CH11 CAS EBAR 0845 01214 0 01 01216 JMP *+2 0846 01215 0 01 01233 JMP CH12 GO TO CH12 0847 01216 0 04 00000 STA 0 SET E INTO INDEX 0848 01217 0410 60 LLL 16 SET (B) TO ZERO 0849 01220 1 02 17400 LDA DP,1 CURRENT CHARACTER WORD 0850 01221 0412 70 LLR 8 0851 01222 1 04 17400 STA DP,1 SAVE REMAINING CHARACTER IF ANY 0852 01223 000201 IAB 0853 01224 0 04 00067 STA TC TC=LEFTMOST CHARACTER 0854 01225 100040 SZE SKIP IF NEW CHARACTER WORD NEEDED 0855 01226 0 01 01167 JMP CH04
* NAME: FRTN DWG 70180463000 REV J PAGE 24

0856 01227 0 02 00040 LDA E E=E-1 0857 01230 0 07 00735 SUB K101 =1 0858 01231 0 04 00040 STA E 0859 01232 0 01 01213 JMP CH11 PICK UP NEXT CHARACTER WORD 0860 01233 140500 CH12 SSM MAKE E MINUS 0861 01234 0 04 00654 STA EBAR 0862 01235 0 01 10661 JMP C4 GO TO ASSIGN SPEC 0863 01236 000332 K63 OCT 332 0Z 0864 01237 000272 K772 OCT 272 ASCII COLON 0865 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 25

0866 * 0867 * 0868 * ************* 0869 * *INPUT DIGIT* 0870 * ************* 0871 * A IS ZERO IF DIGIT 0872 * 0873 01240 0 000000 ID00 DAC ** INPUT DIGIT 0874 01241 0 10 01157 JST CH00 INPUT A CHAR 0875 01242 0 11 01237 CAS K772 ='272 CONSIDER 1 THRU : AS DIGITS 0876 01243 -0 01 01240 JMP* ID00 (A) = TC 0877 01244 0 01 01251 JMP ID10 ELSE, (A) = 0 0878 01245 0 11 00665 CAS K60 RETURN 0879 01246 101000 NOP 0880 01247 0 01 01251 JMP *+2 0881 01250 -0 01 01240 JMP* ID00 0882 01251 140040 ID10 CRA 0883 01252 -0 01 01240 JMP* ID00 0884 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 26

0885 * 0886 * 0887 * ********************** 0888 * *INPUT (A) CHARACTERS* 0889 * ********************** 0890 * CHAR COUNT IN XR, TERMINATES WITH EITHER 0891 * 1. CHAR COUNT -1 = ZERO OR 0892 * 2. LAST CHAR IS A DELIMITER 0893 * 0894 01253 0 000000 IA00 DAC ** 0895 01254 140407 TCA SET COUNTER 0896 01255 0 04 01305 STA IA99 0897 01256 0 10 01272 JST IA50 EXCHANGE IBUF AND ID 0898 01257 140040 CRA 0899 01260 0 04 00056 STA NTID NTID = 0 0900 01261 0 10 01157 IA10 JST CH00 INPUT A CHARACTER 0901 01262 0 10 02555 JST PACK 0902 01263 0 02 00037 LDA DFL IF DFL NOT ZERO, 0903 01264 100040 SZE CONTINUE 0904 01265 0 01 01270 JMP IA20 ELSE, 0905 01266 0 12 01305 IRS IA99 TEST COUNTER 0906 01267 0 01 01261 JMP IA10 MORE CHARACTERS TO INPUT 0907 01270 0 10 01272 IA20 JST IA50 EXCHANGE ID AND IBUF 0908 01271 -0 01 01253 JMP* IA00 RETURN 0909 01272 0 000000 IA50 DAC ** EXCHANGE IBUF AND ID 0910 01273 0 15 01306 STX IAXS SAVE INDEX 0911 01274 0 35 00756 LDX IA90 0912 01275 1 02 01336 LDA IBUF+3,1 0913 01276 1 13 00777 IMA ID+3,1 0914 01277 1 04 01336 STA IBUF+3,1 0915 01300 0 12 00000 IRS 0 0916 01301 0 01 01275 JMP *-4 0917 01302 0 35 01306 LDX IAXS RESTORE INDEX 0918 01303 0 02 00056 LDA NTID 0919 01304 -0 01 01272 JMP* IA50 0920 01305 0 00 00000 IA99 PZE 0 0921 01306 IAXS BSS 1 TEMP STORAGE FOR INDEX 0922 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 27

0923 * 0924 * 0925 * ***************** 0926 * *FINISH OPERATOR* 0927 * ***************** 0928 * WRAP UP LOGICAL/RELATIONAL OPERATORS 0929 * 0930 01307 0 000000 FN00 DAC ** 0931 01310 0 02 00037 LDA DFL IF DFL NOT . , 0932 01311 0 04 01333 STA IBUF 0933 01312 0 07 00661 SUB K10 0934 01313 100040 SZE 0935 01314 0 01 01317 JMP FN05 NOT REL OP 0936 01315 0 02 00740 FN82 LDA K104 INPUT NEXT FOUR CHARACTERS 0937 01316 0 10 01253 JST IA00 0938 01317 0 35 00671 FN05 LDX K110 USE TABLE TO CONVERT OPERATOR 0939 01320 1 02 00736 FN10 LDA FN90+17,1 0940 01321 0 11 01333 CAS IBUF 0941 01322 0 01 01324 JMP *+2 0942 01323 0 01 01330 JMP FN20 0943 01324 0 12 00000 IRS 0 0944 01325 0 01 01320 JMP FN10 0945 01326 0 02 00067 LDA TC 0946 01327 -0 01 01307 JMP* FN00 0947 01330 1 02 00756 FN20 LDA K101+17,1 FOUND A LOGICAL OPERATOR 0948 01331 0 04 00067 STA TC SET INTO TC 0949 01332 -0 01 01307 JMP* FN00 0950 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 28

0951 * 0952 * *********** 0953 * *INPUT DNA* 0954 * *********** 0955 * BASIC INPUT ROUTINE, HANDLES FOLLOWING - 0956 * CONSTANT CONVERSION 0957 * MODE TYPING (CONSTANTS, IMPLIED/VARIABLES) 0958 * ALL OPERATORS (TERMINATE ITEM) 0959 * 0960 01333 IBUF BSS 3 3-WORD BUF 0961 01336 177727 K155 OCT 177727 -41 0962 01337 024000 K156 OCT 024000 1085 0963 01340 007777 K157 OCT 007777 0964 01341 074000 K158 OCT 074000 0965 01342 0 00 00000 F1 PZE 0 SIGN FLAG 0966 01343 0 00 00000 F2 PZE 0 0967 01344 0 00 00000 F3 PZE 0 INPUT EXPONENT 0968 01345 0 00 00000 F4 PZE 0 NO. FRAC. POSITIONS 0969 01346 0 00 00000 F6 PZE 0 0970 01347 0 00 00000 HOLF PZE 0 HOLLERITH FLAG 0971 01350 0 000000 DN00 DAC ** 0972 01351 140040 DN01 CRA 0973 01352 0 04 01347 STA HOLF SET HOLF =0 0974 01353 0 04 01345 STA F4 F4 = 0 0975 01354 0 04 00710 STA IU 0976 01355 0 04 00054 STA NT IU=NT=NTID=0 0977 01356 0 04 00056 STA NTID 0978 01357 0 10 02510 JST BLNK CLEAR OUT TID = ID (3 WORDS ONLY) 0979 01360 0 000774 DAC TID 0980 01361 0 10 02510 JST BLNK 0981 01362 0 001342 DAC F1 F1,F2,F3 = 0 0982 01363 140040 DN06 CRA 0983 01364 0 04 00706 STA IM 0984 01365 0 10 01240 DN07 JST ID00 INPUT DIGIT 0985 01366 100040 SZE 0986 01367 0 01 01435 JMP DN14 (A) NON-ZERO, GO TO DL14 0987 01370 0 02 00067 LDA TC IT'S A DIGIT, BUT WHICH ONE 0988 01371 0 11 01237 CAS K772 IS IT A COLON 0989 01372 100000 SKP 0990 01373 0 01 01554 JMP DNOC IF SO, PROCESS OCTAL CONSTANT 0991 01374 0 02 00776 DN10 LDA TID+2 CHECK FOR OVERFLOW AND ADJUST 0992 01375 0 03 01341 ANA K158 POSITION COUNT IF NECESSARY. 0993 01376 100040 SZE 0994 01377 0 01 01427 JMP SKIP 0995 01400 0 06 00706 ADD IM 0996 01401 0405 77 ARS 1 0997 01402 0 06 01345 ADD F4 F4 = F4+1 IF NO OVERFLOW 0998 01403 0 04 01345 STA F4 AND IM ALREADY SET TO REAL 0999 01404 0 02 00735 LDA K101 1000 01405 0 04 00054 STA NT NT=1
* NAME: FRTN DWG 70180463000 REV J PAGE 29

1001 01406 141206 AOA 1002 01407 0 04 00710 STA IU IU = VAR/COD 1003 01410 0 10 02720 JST SFT SHIFT ID LEFT 1004 01411 0 000774 DAC ID 1005 01412 0 10 02523 JST MOV3 MOVE TO TEMP STORE 1006 01413 0 10 02720 JST SFT 1007 01414 0 000774 DAC ID 1008 01415 0 10 02720 JST SFT 1009 01416 0 000774 DAC ID 1010 01417 0 10 02442 JST AD3 ID = 10*ID+TC 1011 01420 0 10 02510 JST BLNK 1012 01421 0 002221 DAC DNX1 1013 01422 0 02 00067 LDA TC 1014 01423 0 07 00665 SUB K60 1015 01424 0 04 02221 STA DNX1 1016 01425 0 10 02442 JST AD3 1017 01426 0 01 01365 JMP DN07 1018 01427 0 02 00713 SKIP LDA MIN2 1019 01430 0 06 00706 ADD IM 1020 01431 0405 77 ARS 1 1021 01432 0 06 01345 ADD F4 1022 01433 0 04 01345 STA F4 1023 01434 0 01 01365 JMP DN07 1024 01435 0 02 00706 DN14 LDA IM IM = REAL 1025 01436 0 07 00736 SUB K102 1026 01437 100040 SZE 1027 01440 0 01 01533 JMP DN50 NO. GO TO DN50 1028 01441 0 02 00037 DN16 LDA DFL IF DFL=0, GO TO DN20 (5) 1029 01442 100040 SZE 1030 01443 0 01 02015 JMP DN90 ELSE GO TO DN90 (9) 1031 01444 0 02 00067 LDA TC IF TC = D, GO TO DN26 1032 01445 0 07 00763 SUB K11 1033 01446 101040 SNZ 1034 01447 0 01 01507 JMP DN26 1035 01450 0 07 00735 SUB K101 ELSE, IF TC = E, GO TO DN22 1036 01451 101040 SNZ 1037 01452 0 01 01461 JMP DN22 TERMINATOR = E 1038 01453 0 10 01152 JST UC00 1039 01454 0 02 00661 LDA K10 ='256 (.) 1040 01455 0 04 00037 STA DFL SET DELIMITER FLAG 1041 01456 0 02 00735 DN17 LDA K101 =1 1042 01457 0 04 00706 STA IM SET ITEM MODE TO INTEGER 1043 01460 0 01 01643 JMP DN67 FINISH OPERATOR AND EXIT 1044 * 1045 01461 0 10 01240 DN22 JST ID00 INPUT DIGIT 1046 01462 101040 SNZ IF (A) = 0, GO TO DN30 1047 01463 0 01 01517 JMP DN30 1048 01464 0 02 00067 LDA TC IF TC = -, GO TO DN28 1049 01465 0 07 00716 SUB K12 1050 01466 101040 SNZ
* NAME: FRTN DWG 70180463000 REV J PAGE 30

1051 01467 0 01 01512 JMP DN28 1052 01470 0 06 00736 ADD K102 1053 01471 101040 SNZ 1054 01472 0 01 01514 JMP DN29 1055 01473 0 02 00661 LDA K10 SET LAST READ CHARACTER TD '.' 1056 01474 0 04 00037 STA DFL 1057 01475 0 10 01152 JST UC00 UN-INPUT COL 1058 01476 0 02 00735 DN25 LDA K101 IM = INT 1059 01477 0 04 00706 STA IM 1060 01500 0 02 00775 LDA ID+1 IF ID IS TOO BIG TO 1061 01501 100040 SZE BE AN INTEGER (>L2), 1062 01502 0 01 01647 JMP DN69 GO TO DN69 (20) 1063 01503 0 02 00776 LDA ID+2 1064 01504 100040 SZE 1065 01505 0 01 01647 JMP DN69 1066 01506 0 01 01726 JMP DN84 OTHERWISE. GO TO DN84(12) 1067 01507 0 02 00742 DN26 LDA K106 IM = DBL 1068 01510 0 04 00706 STA IM 1069 01511 0 01 01461 JMP DN22 1070 01512 0 02 00735 DN28 LDA K101 F2 = 1 1071 01513 0 04 01343 STA F2 1072 01514 0 10 01240 DN29 JST ID00 INPUT DIGIT 1073 01515 100040 SZE IF (A) = 0, GO TO DN30 (8.5) 1074 01516 0 01 01647 JMP DN69 ELSE, GO TO DN69 (20) 1075 01517 0 02 01344 DN30 LDA F3 F3 = 10 * F3 1076 01520 0415 75 ALS 3 1077 01521 0 13 01344 IMA F3 F3 = F3 +TC 1078 01522 0415 77 ALS 1 1079 01523 0 06 01344 ADD F3 1080 01524 0 06 00067 ADD TC INPUT DIGIT 1081 01525 0 07 00665 SUB K60 1082 01526 0 04 01344 STA F3 IF (A) = 0, GO TO DN30 (8.5) 1083 01527 0 10 01240 JST ID00 ELSE, GO TO DN90 (9) 1084 01530 100040 SZE 1085 01531 0 01 02015 JMP DN90 1086 01532 0 01 01517 JMP DN30 1087 01533 0 02 00736 DN50 LDA K102 IM=REA 1088 01534 0 04 00706 STA IM 1089 01535 0 02 00067 LDA TC IF TC = ., GO TO DN54 1090 01536 0 07 00661 SUB K10 1091 01537 101040 SNZ 1092 01540 0 01 01577 JMP DN54 ELSE, 1093 01541 0 02 00054 LDA NT 1094 01542 101040 SNZ IF NT = 0, GO TO DN72 1095 01543 0 01 01656 JMP DN72 1096 01544 0 02 00067 LDA TC IF TC = H, GO TO DN9H (22) 1097 01545 0 07 14501 SUB K14 1098 01546 101040 SNZ 1099 01547 0 01 02153 JMP DN9H 1100 01550 0 02 00037 LDA DFL IF DFL = 0,
* NAME: FRTN DWG 70180463000 REV J PAGE 31

1101 01551 100040 SZE GO TO DN16 (4.9) 1102 01552 0 01 01476 JMP DN25 ELSE, GO TO DN25 1103 01553 0 01 01441 JMP DN16 1104 * 1105 * PROCESS OCTAL CONSTANTS 1106 * 1107 01554 0 12 00054 DNOC IRS NT NAME TAG=0 IF NAME, =1 OTHERWISE 1108 01555 0 10 01157 DNO2 JST CH00 FETCH NEXT CHARACTER 1109 01556 0 11 00720 CAS K9 (='257) TEST FOR OCTAL DIGIT 1110 01557 0 11 01576 CAS K90 (='270) X 1111 01560 0 01 01567 JMP DN52 NO...GO CLOSE OUT 1112 01561 0 01 01567 JMP DN52 X 1113 01562 0400 75 LRL 3 GOOD PART OF DIGIT TO B 1114 01563 0 02 00774 LDA TID PREVIOUS ACCUM. TO A 1115 01564 0410 75 LLL 3 *8 + NEW DIGIT 1116 01565 0 04 00774 STA TID SAVE NEW VALUE 1117 01566 0 01 01555 JMP DNO2 CONTINUE SCAN 1118 01567 0 02 01342 DN52 LDA F1 1119 01570 101040 SNZ CHECK FOR NEGATIVE OCTAL CONSTANT 1120 01571 0 01 01456 JMP DN17 NO...IT'S POSITIVE 1121 01572 0 02 00774 LDA TID YES...2'S COMPLEMENT AND CONTINUE 1122 01573 140407 TCA X 1123 01574 0 04 00774 STA TID X 1124 01575 0 01 01456 JMP DN17 X 1125 01576 000270 K90 OCT 270 1126 * 1127 * 1128 01577 0 10 01240 DN54 JST ID00 INPUT DIGIT 1129 01600 101040 SNZ 1130 01601 0 01 01374 JMP DN10 IF (A) = 0, GO TO DN10 (3) 1131 01602 0 02 00054 LDA NT 1132 01603 101040 SNZ IF NT = 0, GO TO DN56 1133 01604 0 01 01606 JMP DN56 1134 01605 0 01 01441 JMP DN16 GO TO DN16 (4) 1135 01606 140040 DN56 CRA 1136 01607 0 04 00067 STA TC TC = ) 1137 01610 0 10 01152 DN58 JST UC00 UN-INPUT A COLUMN. 1138 01611 0 02 01342 LDA F1 IF F1 = 0, GO TO DN60 1139 01612 100040 SZE 1140 01613 0 01 01627 JMP DN63 ELSE, GO TO DN63 (15) 1141 01614 0 02 00742 LDA K106 1142 01615 0 10 01253 JST IA00 INPUT (6) CHARS 1143 01616 0 10 02533 JST CIB IF IBUF = TRUE., 1144 01617 1 014137 DAC K1+3,1 1145 01620 0 01 01632 JMP DN64 1146 01621 0 10 02533 JST CIB IF IBUF = FALSE., 1147 01622 1 014142 DAC K2+3,1 GO TO DN66 (16) 1148 01623 0 01 01634 JMP DN66 1149 01624 0 10 02533 JST CIB CHECK FOR .NOT. OPERATOR 1150 01625 1 014145 DAC KNOT+3,1 CHECK FOR .NOT. OPERATOR
* NAME: FRTN DWG 70180463000 REV J PAGE 32

1151 01626 0 01 02214 JMP DN9N OPERATOR IS .NOT. 1152 * 1153 * 1154 * 1155 * 1156 01627 140040 DN63 CRA IM = 0 1157 01630 0 04 00706 STA IM 1158 01631 0 01 01643 JMP DN67 GO TO DN67 (18) 1159 01632 0 02 00735 DN64 LDA K101 1160 01633 0 04 00774 STA TID 1161 01634 0 02 00735 DN66 LDA K101 1162 01635 0 04 00054 STA NT NAME TAG = 1 (CONSTANT) 1163 01636 0 02 00736 LDA K102 IU=VAR 1164 01637 0 04 00710 STA IU 1165 01640 0 02 00737 LDA K103 1166 01641 0 04 00706 STA IM IM = LOG 1167 01642 0 10 01157 JST CH00 1168 01643 0 10 01307 DN67 JST FN00 FINISH OPERATOR 1169 01644 0 02 01346 DN68 LDA F6 IF F6 = 0, 1170 01645 101040 SNZ GO TO DN70 (21) 1171 01646 0 01 01651 JMP DN70 1172 01647 0 02 00661 DN69 LDA K10 1173 01650 0 04 00067 STA TC TC = . 1174 01651 140040 DN70 CRA 1175 01652 0 04 01346 DN71 STA F6 F6 = SXF = 0 1176 01653 0 04 00633 STA SXF 1177 01654 0 02 00706 LDA IM (A) = IM 1178 01655 -0 01 01350 JMP* DN00 RETURN 1179 01656 0 02 01342 DN72 LDA F1 IF F1 = 0, GO TO DN74 1180 01657 101040 SNZ 1181 01660 0 01 01663 JMP DN74 1182 01661 0 04 00067 STA TC ELSE, TC = F1 1183 01662 0 01 01610 JMP DN58 GO TO DN58 (14) 1184 01663 0 02 00067 DN74 LDA TC IF TC = -, GO TO DN82 1185 01664 0 07 00716 SUB K12 1186 01665 101040 SNZ 1187 01666 0 01 01723 JMP DN82 1188 01667 0 06 00736 ADD K102 CHECK FOR TC = + 1189 01670 101040 SNZ 1190 01671 0 01 01723 JMP DN82 1191 01672 0 02 00037 LDA DFL IF DFL = NON-ZERO 1192 01673 100040 SZE 1193 01674 0 01 01627 JMP DN63 GO TO DN63 (15) 1194 01675 0 02 00067 LDA TC 1195 01676 0 11 00664 CAS K43 1196 01677 0 01 01702 JMP *+3 1197 01700 0 01 01705 JMP DN78 1198 01701 0 01 01710 JMP DN81 1199 01702 0 11 01722 CAS K62 1200 01703 0 01 01710 JMP DN81
* NAME: FRTN DWG 70180463000 REV J PAGE 33

1201 01704 101000 NOP 1202 01705 0 02 00735 DN78 LDA K101 IM = INT 1203 01706 0 04 00706 STA IM 1204 01707 0 02 00067 DN80 LDA TC PACK TC TO ID 1205 01710 0 10 02555 DN81 JST PACK 1206 01711 0 10 01157 JST CH00 INPUT CHAR 1207 01712 0 02 00037 LDA DFL IF DFL IS NOT ZERO, 1208 01713 100040 SZE GO TO DN67 (18) 1209 01714 0 01 01643 JMP DN67 1210 01715 0 02 00056 LDA NTID IF NTID = 6, GO TO DN67 1211 01716 0 07 00742 SUB K106 1212 01717 100040 SZE 1213 01720 0 01 01707 JMP DN80 1214 01721 0 01 01643 JMP DN67 1215 01722 000316 K62 OCT 316 1216 01723 0 10 01307 DN82 JST FN00 1217 01724 0 04 01342 STA F1 F1 = CONVERTED TC 1218 01725 0 01 01363 JMP DN06 GO TO DN06 (2) 1219 01726 0 02 01342 DN84 LDA F1 IF F1 = -, 1220 01727 0 07 00736 SUB K102 GO TO DN85(13) 1221 01730 100040 SZE 1222 01731 0 01 01751 JMP DN85 1223 01732 140040 CRA 1224 01733 0 07 00774 SUB TID COMPLEMENT THREE WORDS AT TID 1225 01734 100040 SZE 1226 01735 0 01 01742 JMP DN8A 1227 01736 0 07 00775 SUB TID+1 1228 01737 100040 SZE 1229 01740 0 01 01745 JMP DN8B 1230 01741 0 01 01747 JMP DN8C 1231 01742 0 04 00774 DN8A STA TID 1232 01743 0 02 00676 LDA K123 1233 01744 0 07 00775 SUB TID+1 1234 01745 0 04 00775 DN8B STA TID+1 1235 01746 0 02 00676 LDA K123 1236 01747 0 07 00776 DN8C SUB TID+2 1237 01750 0 04 00776 STA TID+2 1238 01751 0 02 00633 DN85 LDA SXF IF SXF = 0, GO TO DN67 (18) 1239 01752 101040 SNZ 1240 01753 0 01 01643 JMP DN67 ELSE, 1241 01754 0 02 00706 LDA IM IF IM NOT = REA. 1242 01755 0 07 00736 SUB K102 1243 01756 100040 SZE GO TO DN67 (18) 1244 01757 0 01 01643 JMP DN67 1245 01760 0 02 01346 LDA F6 ELSE, 1246 01761 101040 SNZ IF F6 = 0, GO TO DN87 1247 01762 0 01 02000 JMP DN87 1248 01763 0 02 00741 LDA K105 1249 01764 0 04 00706 STA IM IM = CPX 1250 01765 0 02 00774 LDA TID INTERCHANGE
* NAME: FRTN DWG 70180463000 REV J PAGE 34

1251 01766 0 13 03271 IMA TIDB 3 CELLS 1252 01767 0 04 00774 STA TID TID 1253 01770 0 02 00775 LDA TID+1 WITH 1254 01771 0 13 03272 IMA TIDB+1 3 CELLS 1255 01772 0 04 00775 STA TID+1 OF 1256 01773 0 02 00776 LDA TID+2 TIDB 1257 01774 0 13 03273 IMA TIDB+2 1258 01775 0 04 00776 STA TID+2 1259 01776 0 10 02360 JST IP00 )-INPUT OPERATOR 1260 01777 0 01 01652 JMP DN71 1261 02000 0 02 00067 DN87 LDA TC IF TC = , 1262 02001 0 07 00734 SUB K5 1263 02002 100040 SZE 1264 02003 0 01 01643 JMP DN67 TID-BAR = TID 1265 02004 0 02 00774 LDA TID F6 = 1 1266 02005 0 04 03271 STA TIDB GO TO DN01 (1) 1267 02006 0 02 00775 LDA TID+1 1268 02007 0 04 03272 STA TIDB+1 ELSE, GO TO DN67 (18) 1269 02010 0 02 00776 LDA TID+2 1270 02011 0 04 03273 STA TIDB+2 1271 02012 0 02 00735 LDA K101 1272 02013 0 04 01346 STA F6 1273 02014 0 01 01351 JMP DN01 1274 02015 0 02 01343 DN90 LDA F2 IF F2= 0, GO TO DN9A (10) 1275 02016 101040 SNZ 1276 02017 0 01 02023 JMP DN9A 1277 02020 0 02 01344 LDA F3 F3 = - F3 1278 02021 140407 TCA 1279 02022 0 04 01344 STA F3 1280 02023 0 02 01344 DN9A LDA F3 F4 = F3 - F4 1281 02024 0 07 01345 SUB F4 1282 02025 0 04 01345 STA F4 1283 02026 0 02 00716 LDA K12 F2 = EXP. BIAS + MANTISSA 1284 02027 0 04 01343 STA F2 1285 02030 0 02 00774 LDA TID IF TID = 0, 1286 02031 0 06 00775 ADD TID+1 1287 02032 101040 SNZ 1288 02033 0 06 00776 ADD TID+2 GO TO DN85(13) 1289 02034 101040 SNZ 1290 02035 0 01 01751 JMP DN85 1291 02036 0 02 00776 DN9C LDA TID+2 1292 02037 0414 77 DN9B LGL 1 NORMALIZE ID 1293 02040 100400 SPL 1294 02041 0 01 02050 JMP DN9D ID IS NORMALIZED 1295 02042 0 10 02720 JST SFT 1296 02043 0 000774 DAC ID 1297 * F2 = F2 - = SHIFTS 1298 02044 0 02 01343 LDA F2 1299 02045 0 07 00735 SUB K101 1300 02046 0 04 01343 STA F2
* NAME: FRTN DWG 70180463000 REV J PAGE 35

1301 02047 0 01 02036 JMP DN9C CONTINUE NORMALIZE LOOP 1302 02050 0 02 01345 DN9D LDA F4 1303 02051 0 11 03313 CAS ZERO 1304 02052 0 01 02104 JMP DN9E 1305 02053 0 01 02122 JMP DN9G FINISHED E FACTOR LOOP 1306 02054 0 12 01345 IRS F4 1307 02055 101000 NOP F4 = F4 +1 1308 02056 0 02 01336 LDA K155 DIVIDE LOOP COUNTER 1309 02057 0 04 00766 STA TIDN 1310 02060 0 10 02675 JST SRT RIGHT SHIFT TID 1311 02061 0 000774 DAC TID 1312 02062 0 10 02675 JST SRT 1313 02063 0 000774 DAC TID 1314 02064 0 10 02720 DND1 JST SFT 1315 02065 0 000774 DAC TID 1316 02066 0 02 00776 LDA TID+2 1317 02067 0 07 01337 SUB K156 10 AT B:4 1318 02070 101400 SMI 1319 02071 0 04 00776 STA TID+2 1320 02072 101400 SMI 1321 02073 0 12 00774 IRS TID 1322 02074 0 12 00766 IRS TIDN 1323 02075 0 01 02064 JMP DND1 REDUCE DIVIDE COUNTER 1324 02076 0 10 02720 JST SFT 1325 02077 0 000774 DAC TID 1326 02100 0 02 00776 LDA TID+2 1327 02101 0 03 01340 ANA K157 1328 02102 0 04 00776 STA TID+2 1329 02103 0 01 02036 JMP DN9C 1330 02104 0 07 00735 DN9E SUB K101 1331 02105 0 04 01345 STA F4 F4 = F4-1 1332 02106 0 02 01343 LDA F2 F2 = F2+4 1333 02107 0 06 00740 ADD K104 1334 02110 0 04 01343 STA F2 1335 02111 0 10 02675 JST SRT 1336 02112 0 000774 DAC ID 1337 02113 0 10 02523 JST MOV3 1338 02114 0 10 02675 JST SRT ID = ID*10 1339 02115 0 000774 DAC ID 1340 02116 0 10 02675 JST SRT 1341 02117 0 000774 DAC ID 1342 02120 0 10 02442 JST AD3 ADD THREE WORD INTEGERS 1343 02121 0 01 02037 JMP DN9B 1344 * CONVERT THREE WORD INTEGER TO INTERNAL FORMAT 1345 02122 0 02 00776 DN9G LDA TID+2 1346 02123 000201 IAB 1347 02124 0 02 01343 LDA F2 1348 02125 0401 70 LRS 8 1349 02126 101040 SNZ 1350 02127 0 01 02132 JMP *+3
* NAME: FRTN DWG 70180463000 REV J PAGE 36

1351 02130 0 10 02615 JST ER00 1352 02131 141705 BCI 1,CE CONSTANT'S EXPONENT OVER 8 BITS (OVERFLOW) 1353 02132 000201 IAB 1354 02133 0 13 00776 IMA TID+2 1355 02134 000201 IAB 1356 02135 0 02 00775 LDA TID+1 1357 02136 0414 77 LGL 1 1358 02137 0402 70 LRR 8 1359 02140 0 04 00775 STA TID+1 1360 02141 0402 67 LRR 9 1361 02142 0 02 00774 LDA TID PACK UP TRIPLE PRECISION 1362 02143 0414 77 LGL 1 1363 02144 0402 71 LRR 7 REAL CONSTANT 1364 02145 0 04 00774 STA TID 1365 02146 0 02 01343 LDA F2 1366 02147 141140 ICL 1367 02150 100040 SZE 1368 02151 0 01 01647 JMP DN69 GO TO DN69 (20) 1369 02152 0 01 01726 JMP DN84 ELSE, GO TO DN84 (12) 1370 02153 0 04 00706 DN9H STA IM 1371 02154 0 02 00634 LDA SPF 1372 02155 0 07 00736 SUB K102 1373 02156 100040 SZE 1374 02157 0 02 00742 LDA K106 1375 02160 0 07 00745 SUB K124 1376 02161 0 06 00774 ADD TID 1377 02162 101400 SMI 1378 02163 0 01 01651 JMP DN70 1379 02164 0 02 00774 LDA TID 1380 02165 0 04 01347 STA HOLF HOLF=NO.OF HOLLERITH CHARS. 1381 02166 0 04 01344 STA F3 1382 02167 140407 TCA 1383 02170 101040 SNZ 1384 02171 0 01 02212 JMP DN9K FIELD WIDTH OF ZERO 1385 02172 0 04 01343 STA F2 F2= -1(1 CHAR) OR -2(2 CHAR) 1386 02173 0 10 02510 JST BLNK SET ID,ID+1(ID+2 TO ZERO 1387 02174 0 000774 DAC TID 1388 02175 0 10 01061 DN9J JST IC00 INPUT COLUMN (INCLUDING BLANKS) 1389 02176 0 10 02555 JST PACK PACK CHARACTERS 2 PER WORD 1390 02177 0 12 01343 IRS F2 REDUCE CHARACTER COUNT 1391 02200 0 01 02175 JMP DN9J INPUT AND PACK MORE CHARACTERS 1392 02201 0 02 01344 LDA F3 F3= 0 IF 2 CHAR. HAVE BEEN INPUT 1393 02202 0 03 00735 ANA K101 1394 02203 101040 SNZ 1395 02204 0 01 02207 JMP *+3 1396 02205 0 02 00660 LDA K8 ='240 (SP) 1397 02206 0 10 02555 JST PACK SHIFT A SPACE INTO THE LAST WORD 1398 02207 0 12 00706 IRS IM 1399 02210 0 10 01157 JST CH00 INPUT THE TERMINATING CHARACTER 1400 02211 0 01 01643 JMP DN67 FINISH OPERATOR AND EXIT
* NAME: FRTN DWG 70180463000 REV J PAGE 37

1401 02212 0 10 02615 DN9K JST ER00 1402 02213 144306 BCI 1,HF 1403 02214 0 02 00741 DN9N LDA K105 SET .NOT. OPERATOR (TC=5) 1404 02215 0 04 00067 STA TC SET .NOT. OPERATOR (TC=5) 1405 02216 140040 CRA 1406 02217 0 04 00706 STA IM IM=0 = UNDEFINED 1407 02220 0 01 01644 JMP DN68 1408 02221 DNX1 BSS 3 1409 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 38

1410 * 1411 * 1412 * ************ 1413 * *INPUT ITEM* 1414 * ************ 1415 * INPUTS AND ASSIGNS ITEM (IF ONE EXISTS) 1416 * 1417 02224 0 000000 II00 DAC ** 1418 02225 0 10 01350 JST DN00 INPUT DNA 1419 02226 101040 SNZ IF (A) = 0 1420 02227 -0 01 02224 JMP* II00 RETURN 1421 02230 0 10 02762 JST AS00 NO, ASSIGN ITEM 1422 02231 -0 01 02224 JMP* II00 RETURN (A) = IM 1423 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 39

1424 * 1425 * 1426 * *************** 1427 * *INPUT OPERAND* 1428 * *************** 1429 * EXIT WITH ITEM MODE IN A (TC SET TO . IF NO 1430 * OPERAND) 1431 * 1432 02232 0 000000 OP00 DAC ** INPUT OPERAND 1433 02233 0 10 02224 JST II00 INPUT ITEM 1434 02234 100040 SZE IF IM = 0, SKIP 1435 02235 -0 01 02232 JMP* OP00 ELSE (A) = IM, RETURN 1436 02236 0 02 00661 LDA K10 TC = . 1437 02237 0 04 00067 STA TC (A) = 0 1438 02240 140040 CRA 1439 02241 -0 01 02232 JMP* OP00 RETURN 1440 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 40

1441 * 1442 * 1443 * ************ 1444 * *INPUT NAME* 1445 * ************ 1446 * INPUT OPERAND AND ENSURE THAT IT IS A NAME 1447 * 1448 02242 0 000000 NA00 DAC ** INPUT NAME 1449 02243 0 10 02232 JST OP00 INPUT OPERAND 1450 02244 0 02 00054 LDA NT IF NT = 1, 1451 02245 101040 SNZ 1452 02246 0 01 02251 JMP NA10 1453 02247 0 10 02615 NA7X JST ER00 1454 02250 153316 BCI 1,VN 1455 02251 0 02 00706 NA10 LDA IM (A) = IM 1456 02252 -0 01 02242 JMP* NA00 RETURN 1457 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 41

1458 * 1459 * 1460 * *********************** 1461 * *INPUT INTEGER VAR/CON* 1462 * *********************** 1463 * 1464 02253 0 000000 IV00 DAC ** 1465 02254 0 10 02232 JST OP00 INPUT OPERAND 1466 02255 0 10 02433 JST IT00 INTER TEST 1467 02256 0 10 03274 JST TV00 TAG VARIABLE 1468 02257 -0 01 02253 JMP* IV00 EXIT 1469 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 42

1470 * 1471 * 1472 * ************************ 1473 * *INPUT INTEGER VARIABLE* 1474 * ************************ 1475 * 1476 02260 0 000000 IR00 DAC ** INPUT INT VAR 1477 02261 0 10 02253 JST IV00 INPUT INT VAR/CON 1478 02262 0 10 02407 JST NC00 NON-CONSTANT TEST 1479 02263 -0 01 02260 JMP* IR00 RETURN 1480 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 43

1481 * 1482 * 1483 * ************************ 1484 * *INPUT STATEMENT NUMBER* 1485 * ************************ 1486 * NUMBER IS FORMED AS SPECIAL NAME , NOT CONVERTED 1487 * TO NUMERIC 1488 * 1489 02264 0 000000 IS00 DAC ** 1490 02265 140040 IS04 CRA 1491 02266 0 04 00054 STA NT 1492 02267 0 04 00706 STA IM 1493 02270 0 04 00710 STA IU IU = IM = IT = 0 1494 02271 0 04 00056 STA NTID PUT LEADING '$' IN STATEMENT NO. 1495 02272 0 02 02337 LDA K79 1496 02273 0 10 02555 JST PACK 1497 02274 0 10 01240 IS10 JST ID00 INPUT DIGIT 1498 02275 100040 SZE 1499 02276 0 01 02312 JMP IS20 NOT A DIGIT GO TO IS20 1500 02277 0 02 00056 LDA NTID 1501 02300 0 07 00742 SUB K106 1502 02301 101400 SMI 1503 02302 0 01 02316 JMP IS22 1504 02303 0 02 00067 LDA TC 1505 02304 0 10 02555 JST PACK PACK TC TO ID - LEGAL ST. NO. CHAR 1506 02305 0 02 00774 LDA TID I 1507 02306 0 11 02340 CAS K79X 1508 02307 0 01 02274 JMP IS10 1509 02310 0 01 02265 JMP IS04 IGNORE LEAD ZERO ON ST. NO. 1510 02311 0 01 02274 JMP IS10 1511 02312 0 02 00056 IS20 LDA NTID 1512 02313 0 07 00735 SUB K101 1513 02314 101400 SMI 1514 02315 0 01 02320 JMP IS25 1515 02316 0 10 02615 IS22 JST ER00 1516 02317 151724 BCI 1,ST ILLEGAL STATEMENT NUMBER FORMAT 1517 02320 0 10 02762 IS25 JST AS00 ASSIGN ITEM 1518 02321 0 35 00625 LDX A 1519 02322 1 02 17401 LDA DP+1,1 1520 02323 0 03 00670 ANA K111 1521 02324 1 04 17401 STA DP+1,1 IU = 0 1522 02325 0 02 00025 LDA AF ADDRESS FIELD IS 1523 02326 0 11 00640 CAS XST LE XST - ALREADY ASSIGNED 1524 02327 -0 01 02264 JMP* IS00 1525 02330 -0 01 02264 JMP* IS00 OK - OTHERWISE 1526 02331 0 02 00026 LDA AT MUST HAVE STR-ABS OTHERWISE 1527 02332 0 11 00736 CAS K102 1528 02333 101000 NOP STRING-REL IS ALSO OK 1529 02334 -0 01 02264 JMP* IS00 1530 02335 0 10 02615 JST ER00
* NAME: FRTN DWG 70180463000 REV J PAGE 44

1531 02336 151316 K41 BCI 1,RN REFERENCE TO A SPECIFICATION STMT. NO. 1532 02337 000337 K79 OCT 337 1533 02340 157660 K79X OCT 157660 1534 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 45

1535 * 1536 02341 0 000000 SY00 DAC ** INPUT SYMBOL 1537 02342 0 02 00735 LDA K101 1538 02343 0 04 00055 STA NTF NTF NOT 0 - DON'T SET IU IN AS00 1539 02344 0 10 02242 JST NA00 INPUT NAME 1540 02345 -0 01 02341 JMP* SY00 EXIT 1541 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 46

1542 * 1543 * ************************ 1544 * *EXAMINE NEXT CHARACTER* 1545 * ************************ 1546 * CHECK NEXT CHAR FOR DIGIT (BACKUP ONE COL, THEN EXIT) 1547 * 1548 02346 0 000000 XN00 DAC ** 1549 02347 0 10 01240 JST ID00 INPUT DIGIT 1550 02350 0 10 01152 JST UC00 UNINPUT COLUMN 1551 02351 -0 01 02346 JMP* XN00 1552 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 47

1553 * 1554 * 1555 * ******************** 1556 * *ALL CHARACTER TEST* 1557 * ******************** 1558 * 1559 02352 0 000000 TS00 DAC ** TEST (A) AGAINST TC 1560 02353 0 07 00067 SUB TC 1561 02354 101040 SNZ 1562 02355 -0 01 02352 JMP* TS00 RETURN 1563 02356 0 10 02615 JST ER00 TO ERROR TEST 1564 02357 141710 BCI 1,CH IMPROPER TERMINATING CHARACTER 1565 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 48

1566 * 1567 * 1568 * ******************* 1569 * *)- INPUT OPERATOR* 1570 * ******************* 1571 * 1572 02360 0 000000 IP00 DAC ** 1573 02361 0 02 00657 LDA K4 TEST - ) 1574 02362 0 10 02352 JST TS00 1575 02363 0 10 01157 JST CH00 INPUT CHAR 1576 02364 0 10 01307 JST FN00 FINISH OPERATOR 1577 02365 0 02 00036 LDA B B = B-16 1578 02366 0 07 00666 SUB K109 1579 02367 0 04 00036 STA B 1580 02370 140040 CRA (A) = 0 1581 02371 -0 01 02360 JMP* IP00 RETURN 1582 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 49

1583 * 1584 * 1585 * 1586 02372 0 000000 NR00 DAC ** NON-REL TEST 1587 02373 0 02 00026 LDA AT 1588 02374 0 07 00735 SUB K101 IF AT = 1 GO TO ERROR- 1589 02375 100040 SZE TEST 1590 02376 -0 01 02372 JMP* NR00 RETURN 1591 02377 0 10 02615 JST ER00 ERROR TEST ROUTINE 1592 02400 146723 BCI 1,MS MULTIPLY DEFINED STATEMENT NUMBER 1593 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 50

1594 * 1595 * 1596 * *************** 1597 * *NO USAGE TEST* 1598 * *************** 1599 * 1600 02401 0 000000 NU00 DAC ** NO USAGE TEST 1601 02402 0 02 00710 LDA IU 1602 02403 101040 SNZ IF IU NOT = 0, TO ERROR 1603 02404 -0 01 02401 JMP* NU00 RETURN 1604 02405 0 10 02615 JST ER00 ERROR TEST 1605 02406 147325 BCI 1,NU NAME ALREADY BEING USED 1606 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 51

1607 * 1608 * 1609 * ******************* 1610 * *NON-CONSTANT TEST* 1611 * ******************* 1612 * 1613 02407 0 000000 NC00 DAC ** NON CONSTANT TEST 1614 02410 0 02 00054 LDA NT 1615 02411 101040 SNZ IF NT NOT = 0, TO ERROR TEST 1616 02412 -0 01 02407 JMP* NC00 RETURN 1617 02413 0 10 02615 JST ER00 ERROR TEST 1618 02414 147303 BCI 1,NC CONSTANT MUST BE PRESENT 1619 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 52

1620 * 1621 * 1622 * ********************* 1623 * *NON SUBPROGRAM TEST* 1624 * ********************* 1625 * 1626 02415 0 000000 NS00 DAC ** NON SUBPROGRAM TEST 1627 02416 0 02 00710 LDA IU 1628 02417 0 07 00735 SUB K101 IF IU = 1, GO TO- 1629 02420 100040 SZE ERROR TEST 1630 02421 -0 01 02415 JMP* NS00 RETURN 1631 02422 0 10 02615 JST ER00 ERROR TEST 1632 02423 147323 BCI 1,NS SUBPROGRAM NAME NOT ALLOWED 1633 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 53

1634 * 1635 * 1636 * ********** 1637 * *ARR TEST* 1638 * ********** 1639 * 1640 02424 0 000000 AT00 DAC ** ARRAY TEST 1641 02425 0 02 00710 LDA IU 1642 02426 0 07 00737 SUB K103 IF IU = 3, GO TO 1643 02427 101040 SNZ 1644 02430 -0 01 02424 JMP* AT00 RETURN 1645 02431 0 10 02615 JST ER00 ERROR TEST 1646 02432 140722 BCI 1,AR ITEM NOT AN ARRAY NAME 1647 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 54

1648 * 1649 * 1650 * ************** 1651 * *INTEGER TEST* 1652 * ************** 1653 * 1654 02433 0 000000 IT00 DAC ** INTEGER TEST 1655 02434 0 02 00706 LDA IM 1656 02435 0 07 00735 SUB K101 IF IM = 1, GO TO- 1657 02436 101040 SNZ ERROR ROUTINE, ELSE 1658 02437 -0 01 02433 JMP* IT00 RETURN 1659 02440 0 10 02615 JST ER00 TO ERROR TEST 1660 02441 144724 BCI 1,IT ITEM NOT AN INTEGER 1661 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 55

1662 * 1663 * 1664 * 1665 * 1666 * 1667 * 1668 02442 0 000000 AD3 DAC ** ADD TWO THREE WORD INTEGERS. 1669 02443 0 02 00774 LDA TID 1670 02444 0 06 02221 ADD DNX1 1671 02445 140320 CSA 1672 02446 0 04 00774 STA TID 1673 02447 0 02 00775 LDA TID+1 1674 02450 141216 ACA 1675 02451 0 06 02222 ADD DNX1+1 1676 02452 140320 CSA 1677 02453 0 04 00775 STA TID+1 1678 02454 0 02 00776 LDA TID+2 1679 02455 141216 ACA 1680 02456 0 06 02223 ADD DNX1+2 1681 02457 0 04 00776 STA TID+2 1682 02460 -0 01 02442 JMP* AD3 1683 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 56

1684 * 1685 * 1686 * 1687 02461 177761 K120 DEC -15 1688 02462 0 000000 IM00 DAC ** 1689 02463 0 04 02477 STA T1IM MULTIPLY A BY B 1690 02464 0 02 02461 LDA K120 =-15 1691 02465 0 04 02500 STA T2IM 1692 02466 140040 CRA 1693 02467 140200 RCB C BIT = 0 1694 02470 0400 77 IM10 LRL 1 LOW BIT OF B INTO C 1695 02471 100001 SRC SKIP IF B = 0 1696 02472 0 06 02477 ADD T1IM 1697 02473 0 12 02500 IRS T2IM 1698 02474 0 01 02470 JMP IM10 1699 02475 0410 62 LLL 14 1700 02476 -0 01 02462 JMP* IM00 RETURN, RESULT IN A 1701 02477 0 00 00000 T1IM PZE 0 1702 02500 0 00 00000 T2IM PZE 0 1703 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 57

1704 * 1705 * 1706 02501 0 000000 NF00 DAC ** CONSTRUCT EXTERNAL NAME 1707 02502 0 02 02507 LDA K80 ENTRY FOR FORTRAN GENERATED 1708 02503 0 04 00051 STA NAMF 1709 02504 0 02 00765 LDA K81 SUBROUTINE CALLS. 1710 02505 0 04 00053 STA NAMF+2 1711 02506 -0 01 02501 JMP* NF00 1712 02507 143244 K80 BCI 1,F$ 1713 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 58

1714 * 1715 * 1716 02510 0 000000 BLNK DAC ** CLEAR A 3/36 1717 02511 0 15 02522 STX BLXS AREA TO ZEROS 1718 02512 -0 35 02510 LDX* BLNK 1719 02513 140040 CRA CLEAR 3 WORDS OF MEMORY 1720 02514 1 04 00001 STA 1,1 PARAMETER INPUT ADDRESS TO 0 1721 02515 1 04 00002 STA 2,1 1722 02516 1 04 00000 STA 0,1 1723 02517 0 35 02522 LDX BLXS RESTORE INDEX 1724 02520 0 12 02510 IRS BLNK 1725 02521 -0 01 02510 JMP* BLNK EXIT 1726 02522 BLXS BSS 1 TEMP STORAGE FOR INDEX 1727 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 59

1728 * 1729 * 1730 02523 0 000000 MOV3 DAC ** MOVE 3-WORDS 1731 02524 0 02 00774 LDA TID TO TEMO STORE 1732 02525 0 04 02221 STA DNX1 1733 02526 0 02 00775 LDA TID+1 1734 02527 0 04 02222 STA DNX1+1 1735 02530 0 02 00776 LDA TID+2 1736 02531 0 04 02223 STA DNX1+2 1737 02532 -0 01 02523 JMP* MOV3 1738 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 60

1739 * 1740 * 1741 * 1742 * 1743 02533 0 000000 CIB DAC ** COMPARE IBUF TO A CONSTANT 1744 02534 0 15 02554 STX CIXS SAVE INDEX 1745 02535 -0 02 02533 LDA* CIB +DDR OF CON+3,0 1746 02536 0 04 02553 STA CIBZ 1747 02537 0 35 00756 LDX IA90 1748 02540 1 02 01336 CIBB LDA IBUF+3,1 1749 02541 -0 07 02553 SUB* CIBZ 1750 02542 100040 SZE 1751 02543 0 01 02551 JMP CIBD 1752 02544 0 12 00000 IRS 0 1753 02545 0 01 02540 JMP CIBB 1754 02546 0 12 02533 CIBC IRS CIB 1755 02547 0 35 02554 LDX CIXS RESTORE INDEX 1756 02550 -0 01 02533 JMP* CIB 1757 02551 0 12 02533 CIBD IRS CIB 1758 02552 0 01 02546 JMP CIBC 1759 02553 0 000000 CIBZ DAC ** 1760 02554 CIXS BSS 1 TEMP STORAGE FOR INDEX 1761 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 61

1762 * 1763 * 1764 02555 0 000000 PACK DAC ** PLACE CHARACTER IN A 1765 02556 0 04 02612 STA PAK7 1766 02557 0 02 00056 LDA NTID INTO ID - UPDATE 3 WORDS OF 1767 02560 101040 PAK1 SNZ 1768 02561 0 01 02603 JMP PAK4 ID 1769 02562 0400 77 LRL 1 1770 02563 0 06 02614 ADD PAK9 1771 02564 0 04 02613 STA PAK8 1772 02565 0 02 02612 LDA PAK7 1773 02566 000201 IAB 1774 02567 100400 SPL 1775 02570 0 01 02576 JMP PAK3 1776 02571 0410 50 LLL 24 1777 02572 0 06 00660 ADD K8 1778 02573 -0 04 02613 PAK2 STA* PAK8 1779 02574 0 12 00056 IRS NTID 1780 02575 -0 01 02555 JMP* PACK 1781 02576 0410 70 PAK3 LLL 8 1782 02577 -0 02 02613 LDA* PAK8 1783 02600 141140 ICL 1784 02601 0410 70 LLL 8 1785 02602 0 01 02573 JMP PAK2 1786 02603 0 02 00765 PAK4 LDA K81 1787 02604 0 04 00774 STA TID 1788 02605 0 04 00775 STA TID+1 1789 02606 0 04 00776 STA TID+2 1790 02607 0 04 00777 STA TID+3 1791 02610 0 02 00056 LDA NTID 1792 02611 0 01 02562 JMP PAK1+2 1793 02612 0 000000 PAK7 DAC ** 1794 02613 0 000000 PAK8 DAC ** 1795 02614 0 000774 PAK9 DAC TID 1796 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 62

1797 * 1798 * 1799 * *************** 1800 * *ERROR ROUTINE* 1801 * *************** 1802 * 1803 02615 0 000000 ER00 DAC ** ERROR ROUTINE 1804 02616 0 10 13321 JST PRSP BLANK OUT BUFFER 1805 002617 ER04 EQU * 1806 02617 0 35 00762 LDX K130 -6 1807 02620 0 02 02673 LDA ER91 SET ** INTO PRINT BUFFER 1808 02621 1 04 13752 ER03 STA PRI+6,1 X 1809 02622 0 12 00000 IRS 0 X 1810 02623 0 01 02621 JMP ER03 X 1811 02624 0 02 00656 LDA CC CARD COLUMN POINTER 1812 02625 0 11 00735 CAS K101 COMPARE IT TO 1 1813 02626 0 01 02634 JMP ER01 ERROR IS IN PRESENT CARD 1814 02627 0 01 02634 JMP ER01 X 1815 02630 0 02 02674 LDA ER92 USE TWO VERTICAL ARROWS FOR PREVIOUS CARD 1816 02631 0 04 13744 STA PRI X 1817 02632 0 35 00742 LDX K106 POSITION IN 1818 02633 0 01 02637 JMP ER02 X 1819 02634 0 02 00656 ER01 LDA CC CHECK COLUMN POSITION OF ERROR 1820 02635 0404 77 LGR 1 TRUNCATE TO WORD POSITION 1821 02636 0 04 00000 STA 0 X 1822 02637 -0 02 02615 ER02 LDA* ER00 PICK UP ERROR ID 1823 02640 1 04 13744 STA PRI,1 POSITION AS DETERMINED 1824 02641 0 02 00654 LDA EBAR (NEGATIVE IF NOT WITHIN EQUIVALENCE STMT.) 1825 02642 140320 CSA 1826 02643 0 02 00726 LDA KAEQ SET UP 'EQ' 1827 02644 101001 SSC CHECK IF EQUIVALENCE STMT. ERROR 1828 02645 1 04 13745 STA PRI+1,1 IF SO, APPEND 'EQ' TO ERROR ID 1829 02646 0 10 00000 CALL F4$SYM PRINT BUFFER 1830 02647 0 013744 CERR DAC PRI X 1831 02650 0 10 13321 JST PRSP BLANK OUT BUFFER 1832 02651 140040 CRA CLEAR 1833 02652 0 04 00642 STA D DO LOOP POINTER 1834 02653 0 02 00654 LDA EBAR 1835 02654 101400 SMI IS IT PROCESSING AN EQUIVALENCE 1836 02655 0 01 01233 JMP CH12 IF SO, CONSIDER THIS IN WRAP UP 1837 02656 -0 02 02615 LDA* ER00 SAVE ERROR ID 1838 02657 0 12 02615 IRS ER00 BUMP EXIT, RETURN IF END STMT. ERROR 1839 02660 101400 SMI ERROR ID IS + ONLY FOR RECOVERABLE ERRORS 1840 02661 -0 01 02615 JMP* ER00 RETURN TO PROCESSOR 1841 02662 0 02 00656 LDA CC CHECK FOR CONTINUATION CARD 1842 02663 101040 SNZ X 1843 02664 0 01 03723 JMP C7 IF NOT, INPUT NEXT STATEMENT 1844 02665 0 02 00067 LDA TC CHECK LAST CHARACTER READ 1845 02666 0 11 00702 ER20 CAS CRET WAS IT A CARRIAGE RETURN 1846 02667 100000 SKP
* NAME: FRTN DWG 70180463000 REV J PAGE 63

1847 02670 0 01 03723 JMP C7 IF SO, INPUT NEXT STATEMENT 1848 02671 0 10 01157 JST CH00 OTHERWISE, INPUT NEXT CHARACTER 1849 02672 0 01 02666 JMP ER20 KEEP LOOKING FOR CARRIAGE RETURN 1850 02673 125252 ER91 BCI 1,** 1851 02674 157336 ER92 VFD 8,'336,8,'336 TWO VERTICAL ARROWS 1852 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 64

1853 * 1854 * 1855 02675 0 000000 SRT DAC ** 1856 02676 0 15 02717 STX SRXS SAVE INDEX 1857 02677 -0 35 02675 LDX* SRT SHIFT RIGHT ONE PLACE, TRIPLE PRECISION 1858 02700 1 02 00000 LDA 0,1 1859 02701 000201 IAB 1860 02702 1 02 00001 LDA 1,1 1861 02703 0401 77 LRS 1 1862 02704 0414 77 LGL 1 1863 02705 000201 IAB 1864 02706 1 04 00000 STA 0,1 1865 02707 1 02 00002 LDA 2,1 1866 02710 0401 77 LRS 1 1867 02711 1 04 00002 STA 2,1 1868 02712 000201 IAB 1869 02713 1 04 00001 STA 1,1 1870 02714 0 35 02717 LDX SRXS RESTORE INDEX 1871 02715 0 12 02675 IRS SRT 1872 02716 -0 01 02675 JMP* SRT 1873 02717 SRXS BSS 1 TEMP STORAGE FOR INDEX 1874 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 65

1875 * 1876 * 1877 02720 0 000000 SFT DAC ** TRIPLE PRECISION 1878 02721 0 15 02744 STX SFXS SHIFT LEFT ONE PLACE 1879 02722 -0 35 02720 LDX* SFT 1880 02723 1 02 00000 LDA 0,1 1881 02724 000201 IAB 1882 02725 1 02 00001 LDA 1,1 1883 02726 0411 77 LLS 1 1884 02727 140320 CSA 1885 02730 1 04 00001 STA 1,1 1886 02731 000201 IAB 1887 02732 1 04 00000 STA 0,1 1888 02733 141216 ACA 1889 02734 0401 77 LRS 1 1890 02735 1 02 00002 LDA 2,1 1891 02736 0411 77 LLS 1 1892 02737 140320 CSA 1893 02740 1 04 00002 STA 2,1 1894 02741 0 35 02744 LDX SFXS RESTORE INDEX 1895 02742 0 12 02720 IRS SFT 1896 02743 -0 01 02720 JMP* SFT 1897 02744 SFXS BSS 1 TEMP STORAGE FOR INDEX 1898 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 66

1899 * 1900 02745 0 000000 LIST DAC ** 1901 02746 0 10 13321 JST PRSP 1902 02747 0 02 01060 LDA LIBF CHECK TO SEE IF BIT 3 IS SET 1903 02750 0 03 14677 ANA ='20000 1904 02751 0 05 14677 ERA ='20000 1905 02752 101040 C1R2 SNZ SKIP IF BIT 3 IS NOT SET 1906 02753 0 01 02756 JMP *+3 1907 02754 0 10 00000 CALL F4$SYM PRINT BLANK LINE 1908 02755 0 013744 DAC PRI 1909 02756 0 10 00000 CALL F4$SYM PRINT SOURCE INPUT LINE 1910 02757 0 014040 DAC CI 1911 02760 -0 01 02745 JMP* LIST 1912 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 67

1913 * ************* 1914 * *ASSIGN ITEM* 1915 * ************* 1916 * CHECKS ASSIGNMENT AREA OF DATA POOL (A0 TO ABAR) 1917 * FOR ITEM DEFINED BY ID, IM, IU, ETC. 1918 * IF FOUND, EXIT WITH POINTER AND 1919 * ASSIGNMENTS DATA SET, OTHERWISE 1920 * ASSIGN THE ITEM. 1921 * 1922 * 1923 * 1924 02761 0 00 00000 T0AS PZE 0 1925 02762 0 000000 AS00 DAC ** 1926 02763 0 02 00741 LDA K105 INITIALIZE A TO BEG. OF 1927 02764 0 01 02767 JMP AS05 TABLE 1928 02765 0 02 00625 AS04 LDA A ADVANCE A TO NEXT ENTRY 1929 02766 0 06 00741 ADD K105 1930 02767 0 04 00625 AS05 STA A 1931 02770 0 04 00000 STA 0 1932 02771 0 11 00637 CAS ABAR 1933 02772 0 01 03113 JMP AS30 AT END. GO TO AS30 1934 02773 101000 NOP 1935 02774 1 02 17400 LDA DP,1 1936 02775 0400 61 LRL 15 NT(A) 1937 02776 0 07 00054 SUB NT IS NT=NT(A) 1938 02777 100040 SZE I 1939 03000 0 01 02765 JMP AS04 NO. GO TO AS04 1940 03001 0 02 00774 LDA TID 1941 03002 1 07 17404 SUB DP+4,1 TID(A) 1942 03003 101040 SNZ IS TID= TID(A) 1943 03004 0 01 03011 JMP *+5 YES, PROCEED 1944 03005 0 03 00670 ANA K111 MAYBE, TEST FURTHER 1945 03006 0 06 00054 ADD NT 1946 03007 100040 SZE 1947 03010 0 01 02765 JMP AS04 TID = TID(A) 1948 03011 0 02 00775 LDA TID+1 1949 03012 1 07 17403 SUB DP+3,1 TID+1(A) 1950 03013 100040 SZE 1951 03014 0 01 02765 JMP AS04 NO. GO TO ASO4 1952 03015 0 02 00776 LDA TID+2 1953 03016 1 07 17402 SUB DP+2,1 TID+2(A) 1954 03017 100040 SZE 1955 03020 0 01 02765 JMP AS04 1956 03021 0 02 00054 LDA NT IF NT (A) .NE. 0, 1957 03022 101040 SNZ GO TO AS10 1958 03023 0 01 03066 JMP AS16 GO TO AS16 (4) 1959 03024 1 02 17400 LDA DP,1 1960 03025 0400 67 LRL 9 1961 03026 0 03 00743 ANA K107 IM(A) 1962 03027 0 07 00706 SUB IM IF (IM.NE.IM(A)) GO TO AS04
* NAME: FRTN DWG 70180463000 REV J PAGE 68

1963 03030 100040 SZE 1964 03031 0 01 02765 JMP AS04 1965 03032 0 02 00710 LDA IU IF IU = 0, 1966 03033 101040 SNZ OR NOT EQUAL IU (A) 1967 03034 0 01 02765 JMP AS04 GO TO AS04 (1) 1968 03035 1 02 17401 LDA DP+1,1 1969 03036 0400 62 LRL 14 IU(A) 1970 03037 0 07 00710 SUB IU 1971 03040 100040 SZE 1972 03041 0 01 02765 JMP AS04 ELSE, 1973 03042 0 02 00706 LDA IM 1974 03043 0 07 00741 SUB K105 GO TO AS16 (4) 1975 03044 100040 SZE 1976 03045 0 01 03066 JMP AS16 1977 03046 0 02 00625 LDA A 1978 03047 0 06 00741 ADD K105 1979 03050 0 04 00000 STA 0 1980 03051 1 02 17404 LDA DP+4,1 TIDB(A) 1981 03052 0 07 03271 SUB TIDB GO TO AS16 (4) 1982 03053 100040 SZE ELSE, GO TO AS04 (1) 1983 03054 0 01 02765 JMP AS04 1984 03055 1 02 17403 LDA DP+3,1 TIDB+1(A) 1985 03056 0 07 03272 SUB TIDB+1 1986 03057 100040 SZE 1987 03060 0 01 02765 JMP AS04 1988 03061 1 02 17402 LDA DP+2,1 TIDB+2(A) 1989 03062 0 07 03273 SUB TIDB+2 1990 03063 100040 SZE 1991 03064 0 01 02765 JMP AS04 1992 03065 0 35 00625 AS15 LDX A 1993 03066 1 02 17401 AS16 LDA DP+1,1 1994 03067 0400 62 LRL 14 IU(A) 1995 03070 0 06 00055 ADD NTF 1996 03071 100040 SZE 1997 03072 0 01 03103 JMP AS18 GO TO AS18 (5) 1998 03073 0 02 00634 LDA SPF IF SPF = 0, GO TO AS18 (5) 1999 03074 101040 SNZ 2000 03075 0 01 03103 JMP AS18 2001 03076 0 02 00067 LDA TC IF TC = ( 2002 03077 0 07 14474 SUB K17 - 2003 03100 100040 SZE 2004 03101 0 01 03111 JMP AS19 2005 03102 0 10 03222 JST TG00 TAG SUBPROGRAM 2006 03103 140040 AS18 CRA SET NTF TO 0 2007 03104 0 04 00055 STA NTF SET NTF TO 0 2008 03105 0 10 03317 JST FA00 GO TO FETCH ASSIGNS 2009 03106 0 35 00625 LDX A 2010 03107 0 02 00706 LDA IM 2011 03110 -0 01 02762 JMP* AS00 RETURN 2012 03111 0 10 03274 AS19 JST TV00 TAG VARIABLE
* NAME: FRTN DWG 70180463000 REV J PAGE 69

2013 03112 0 01 03103 JMP AS18 2014 03113 0 10 03520 AS30 JST BUD BUILD ASSIGNMENT ENTRY 2015 03114 0 02 00054 LDA NT IF NT = 1 2016 03115 100040 SZE 2017 03116 0 01 03123 JMP AS32 OR IV = VAR, 2018 03117 0 02 00710 LDA IU 2019 03120 0 07 00736 SUB K102 2020 03121 100040 SZE 2021 03122 0 01 03145 JMP AS40 AMD 2022 03123 0 02 00706 AS32 LDA IM IF IM = CPX, 2023 03124 0 07 00741 SUB K105 2024 03125 100040 SZE 2025 03126 0 01 03145 JMP AS40 2026 03127 0 04 00710 STA IU MOVE IST PART OF 2027 03130 0 02 03271 LDA TIDB COMPLEX ENTRY TO 2028 03131 0 04 00774 STA TID TID AND BUILD 2029 03132 0 02 03272 LDA TIDB+1 ASSIGNMENT ENTRY 2030 03133 0 04 00775 STA TID+1 2031 03134 0 02 03273 LDA TIDB+2 2032 03135 0 04 00776 STA TID+2 2033 03136 0 02 00625 LDA A 2034 03137 0 06 00741 ADD K105 2035 03140 0 04 00625 STA A 2036 03141 0 10 03520 JST BUD 2037 03142 0 02 00625 LDA A 2038 03143 0 07 00741 SUB K105 RESTORE A 2039 03144 0 04 00625 STA A 2040 03145 0 02 00637 AS40 LDA ABAR 2041 03146 0 07 00625 SUB A T0 = -(ABAR-A+5) 2042 03147 0 06 00741 ADD K105 GIVING NO. OF WORDS TO MOVE TABLES UP 2043 03150 140407 TCA 2044 03151 0 04 02761 STA T0AS 2045 03152 140407 TCA 2046 03153 0 06 00655 ADD DO CO=DO+T0 2047 03154 0 04 00655 STA DO 2048 03155 0 02 00077 LDA IFLG IF IFLG = 0, THERE IS NO EXPRESSION TABLE 2049 03156 101040 SNZ 2050 03157 0 01 03215 JMP AS60 GO TO AS60 2051 03160 0 02 00626 LDA I 2052 03161 0 07 02761 SUB T0AS 2053 03162 0 04 00626 STA I I = I - T0(T0 IS NEGATIVE) 2054 03163 141206 AOA 2055 03164 0 11 00627 AS41 CAS L CHECK AGAINST BOTTOM OF TRIAD TABLE 2056 03165 101000 NOP 2057 03166 0 01 03213 JMP AS50 2058 03167 0 06 00104 ADD '104 =DP,1 2059 03170 0 04 03220 STA AS91 AS91 = NEW TABLE TOP 2060 03171 0 06 02761 ADD T0AS 2061 03172 0 04 03221 STA AS92 AS92 2062 03173 0 07 02761 SUB T0AS COMPUTE SIZE OF FLOATING TABLES
* NAME: FRTN DWG 70180463000 REV J PAGE 70

2063 03174 0 07 00104 SUB '104 =DP,1 2064 03175 0 07 00655 SUB DO 2065 03176 101040 SNZ IF ZERO, ASSIGN TABLE ONLY. 2066 03177 0 01 03066 JMP AS16 2067 03200 140407 TCA 2068 03201 0 04 02761 STA T0AS 2069 03202 0 35 03313 LDX ZERO 2070 03203 -0 02 03221 AS46 LDA* AS92 END-5 2071 03204 -0 04 03220 STA* AS91 END (MOVE TABLES UP) 2072 03205 0 02 00000 LDA 0 2073 03206 0 07 00735 SUB K101 =1 2074 03207 0 04 00000 STA 0 REDUCE INDEX 2075 03210 0 12 02761 IRS T0AS = NO. OF WORDS TO MOVE 2076 03211 0 01 03203 JMP AS46 2077 03212 0 01 03065 JMP AS15 2078 03213 0 10 02615 AS50 JST ER00 2079 03214 146717 BCI 1,MO DATA POOL OVERFLOW 2080 03215 0 02 00655 AS60 LDA DO 2081 03216 0 06 00642 ADD D 2082 03217 0 01 03164 JMP AS41 2083 03220 0 000000 AS91 DAC 0 2084 03221 0 000000 AS92 DAC ** 2085 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 71

2086 * 2087 * 2088 * 2089 * 2090 * **************** 2091 * *TAG SUBPROGRAM* 2092 * **************** 2093 * TAG ITEM AS A SUBPROGRAM, CHECK TO SEE IF 2094 * NAME IS IN IMPLICIT MODE TABLE AND SET 2095 * MODE ACCORDINGLY 2096 * 2097 03222 0 000000 TG00 DAC ** 2098 03223 0 02 00710 LDA IU 2099 03224 0 07 00735 SUB K101 IF IU = SUB 2100 03225 101040 SNZ 2101 03226 -0 01 03222 JMP* TG00 RETURN, ELSE 2102 03227 0 10 02401 JST NU00 NO - USAGE TEST 2103 03230 0 35 03270 LDX TG22 2104 03231 0 02 00775 TG04 LDA ID+1 CHARACTERS 3 AND 4 2105 03232 1 11 14217 CAS TGT2+21,1 IMPLICIT MODE SUBR. NAME TABLE 2106 03233 0 01 03235 JMP *+2 2107 03234 0 01 03250 JMP TG10 2108 03235 0 12 00000 TG06 IRS 0 2109 03236 0 01 03231 JMP TG04 NOT DONE WITH TABLE 2110 03237 0 02 00735 TG08 LDA K101 =1 (IU=SUBR.) 2111 03240 0 04 00710 STA IU 2112 03241 0 35 00625 LDX A 2113 03242 1 02 17401 LDA DP+1,1 IU(A) = SUB 2114 03243 0414 77 LGL 1 2115 03244 140500 SSM 2116 03245 0404 77 LGR 1 2117 03246 1 04 17401 STA DP+1,1 2118 03247 -0 01 03222 JMP* TG00 RETURN 2119 * 2120 03250 0 02 00774 TG10 LDA ID CHARACTERS 1 AND 2 2121 03251 0 03 00670 ANA K111 ='37777 2122 03252 0 06 00703 ADD HBIT ='140000 2123 03253 1 07 14172 SUB TGT1+21,1 2124 03254 100040 SZE 2125 03255 0 01 03235 JMP TG06 CONTINUE SEARCH 2126 03256 0 02 00776 LDA ID+2 CHARACTERS 5 AND 6 2127 03257 1 07 14244 SUB TGT3+21,1 2128 03260 100040 SZE 2129 03261 0 01 03235 JMP TG06 CONTINUE SEARCH 2130 03262 1 02 14172 LDA TGT1+21,1 2131 03263 141140 ICL 2132 03264 0 03 00743 ANA K107 =7 (=3 IF CPX, 4 IF DBL) 2133 03265 0 06 00736 ADD K102 =2 (=5 IF CPX. 6 IF DBL) 2134 03266 0 10 03464 JST DM00 DEFINE IM 2135 03267 0 01 03237 JMP TG08
* NAME: FRTN DWG 70180463000 REV J PAGE 72

2136 * 2137 03270 177753 TG22 OCT 177753 =-21 2138 * 2139 * 2140 * 2141 03271 TIDB BSS 3 2142 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 73

2143 * 2144 * - TV00 TAG VARIABLE 2145 03274 0 000000 TV00 DAC ** 2146 03275 0 02 00710 LDA IU IF IU = 'VAR', 2147 03276 0 07 00736 SUB K102 2148 03277 101040 SNZ 2149 03300 -0 01 03274 JMP* TV00 RETURN 2150 03301 0 10 02401 JST NU00 ELSE, NO USAGE TEST 2151 03302 0 35 00625 LDX A 2152 03303 1 02 17401 LDA DP+1,1 2153 03304 0 03 00670 ANA K111 IU (A) = 'VAR' 2154 03305 140500 SSM 2155 03306 1 04 17401 STA DP+1,1 2156 03307 -0 01 03274 JMP* TV00 2157 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 74

2158 * 2159 * 2160 * 2161 * 2162 * 2163 * ************** 2164 * *FETCH ASSIGN* 2165 * ************** 2166 * SET ASSIGNMENT DATA FROM ASSIGN (EXCEPT ID) 2167 * EXPAND DIMENSION INFO IF ARRAY 2168 * 2169 * 2170 * 2171 03310 000001 KM92 DEC 1 001 = INT 2172 03311 000002 DEC 2 010 = REA 2173 03312 000001 DEC 1 011 = LOG 2174 03313 000000 ZERO DEC 0 - - 2175 03314 000004 DEC 4 101 = CPX 2176 03315 000003 DEC 3 110 = DBL 2177 03316 000003 DEC 3 111 = HOL 2178 * 2179 * 2180 03317 0 000000 FA00 DAC ** 2181 03320 0 35 00625 LDX A 2182 03321 1 02 17400 LDA DP,1 2183 03322 0400 61 LRL 15 2184 03323 0 04 00054 STA NT NT=NT(A) 2185 03324 140040 CRA 2186 03325 0410 75 LLL 3 2187 03326 0 04 00026 STA AT AT=AT(A) 2188 03327 140040 CRA 2189 03330 0410 75 LLL 3 IM = IM(A) 2190 03331 0 04 00706 STA IM 2191 03332 0 04 00000 STA 0 2192 03333 1 02 03307 LDA KM92-1,1 2193 03334 0 04 00030 STA D0 D0 = NUMBER OF WORDS 2194 03335 0415 76 ALS 2 2195 03336 0 06 00030 ADD D0 2196 03337 0 04 00071 STA X X = POINTER TO CONSTANT NUMBER OF WORDS 2197 03340 0 35 00625 LDX A 2198 03341 1 02 17401 LDA DP+1,1 2199 03342 0400 62 LRL 14 2200 03343 0 04 00710 STA IU 2201 03344 0 07 00737 SUB K103 IF IU NOT 'ARR' 2202 03345 101040 SNZ 2203 03346 0 01 03353 JMP FA10 2204 03347 140040 CRA 2205 03350 0410 62 LLL 14 AF = GF(A) 2206 03351 0 04 00025 STA AF 2207 03352 -0 01 03317 JMP* FA00
* NAME: FRTN DWG 70180463000 REV J PAGE 75

2208 03353 0410 62 FA10 LLL 14 2209 03354 0 04 00000 STA 0 INDEX = GF(A) 2210 03355 1 02 17404 LDA DP+4,1 2211 03356 0 04 00072 STA X1 POINTER OF DIMENSION 1 2212 03357 1 02 17403 LDA DP+3,1 2213 03360 0 04 00073 STA X2 POINTER OF DIMENSION 2 2214 03361 1 02 17402 LDA DP+2,1 2215 03362 0 04 00074 STA X3 POINTER OF DIMENSION 3 2216 03363 1 02 17401 LDA DP+1,1 2217 03364 0 03 00670 ANA K111 ='37777 2218 03365 0 04 00025 STA AF AF = GF(GF(A)) 2219 03366 1 02 17400 LDA DP,1 2220 03367 0404 67 LGR 9 2221 03370 0 03 00743 ANA K107 =7 2222 03371 0 04 00076 STA ND NUMBER OF DIMENSIONS 2223 03372 0 04 00000 STA 0 2224 03373 0 02 00735 LDA K101 =1 2225 03374 0 04 00032 STA D2 2226 03375 0 04 00033 STA D3 2227 03376 -1 01 03422 JMP* FA91-1,1 2228 03377 0 35 00074 FA22 LDX X3 FETCH 3RD DIMENSION SIZE 2229 03400 0 10 03413 JST FA40 2230 03401 0 04 00033 STA D3 STORE D3 2231 03402 0 35 00073 FA24 LDX X2 2232 03403 0 10 03413 JST FA40 2233 03404 0 04 00032 STA D2 D2 = 2ND DIMENSION SIZE 2234 03405 0 35 00072 FA26 LDX X1 2235 03406 0 10 03413 JST FA40 2236 03407 0 04 00031 STA D1 D1 = 1ST DIMENSION SIZE 2237 03410 0 35 00625 LDX A EXIT WITH AF IN A 2238 03411 0 02 00025 LDA AF 2239 03412 -0 01 03317 JMP* FA00 2240 03413 0 000000 FA40 DAC ** 2241 03414 1 02 17400 LDA DP,1 IM OF SUBSCRIPT VALUE 2242 03415 140100 SSP 2243 03416 0404 64 LGR 12 2244 03417 0 07 00741 SUB K105 =5 2245 03420 100040 SZE SKIP IF DUMMY SUBSCRIPT 2246 03421 1 02 17404 LDA DP+4,1 FETCH VALUE OF SUBSCRIPT 2247 03422 -0 01 03413 JMP* FA40 2248 03423 0 003405 FA91 DAC FA26 2249 03424 0 003402 DAC FA24 2250 03425 0 003377 DAC FA22 2251 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 76

2252 * 2253 * 2254 * ************ 2255 * *FETCH LINK* 2256 * ************ 2257 * EXPAND LINK FIELD AND FETCH ASSIGNS FOR THE 2258 * LINKED ITEM 2259 * 2260 03426 0 000000 FL00 DAC ** 2261 03427 0 35 00625 LDX A 2262 03430 1 02 17400 LDA DP,1 A = 5 * CL(A) 2263 03431 0 03 00673 ANA K118 2264 03432 0 04 00044 STA FLT1 2265 03433 0415 76 ALS 2 2266 03434 0 06 00044 ADD FLT1 (FLT1 ALSO USED BY ASSIGN SPEC) 2267 03435 0 04 00625 STA A 2268 03436 0 10 03317 JST FA00 FETCH ASSIGN 2269 03437 0 10 03443 JST KT00 DO = = WDS /ITEM 2270 03440 0 02 00625 LDA A 2271 03441 0 07 00045 SUB F (A) = A-F 2272 03442 -0 01 03426 JMP* FL00 RETURN 2273 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 77

2274 * 2275 * 2276 * ******************* 2277 * *D0=WORDS FOR LINK* 2278 * ******************* 2279 * D = ITEM MODE SIZE TIMES THE TOTAL SIZE IF 2280 * THE ITEM IS AN ARRAY 2281 * 2282 03443 0 000000 KT00 DAC ** 2283 03444 0 02 00710 LDA IU IF IU NOT 'ARR' 2284 03445 0 07 00737 SUB K103 2285 03446 100040 SZE 2286 03447 -0 01 03443 JMP* KT00 RETURN 2287 03450 0 02 00030 LDA D0 2288 03451 000201 IAB D0 = DO * D1 * D2 * D3 2289 03452 0 02 00031 LDA D1 2290 03453 0 10 02462 JST IM00 MULTIPLY A BY B 2291 03454 000201 IAB 2292 03455 0 02 00032 LDA D2 2293 03456 0 10 02462 JST IM00 MULTIPLY A BY B 2294 03457 000201 IAB 2295 03460 0 02 00033 LDA D3 2296 03461 0 10 02462 JST IM00 MULTIPLY A BY B 2297 03462 0 04 00030 STA D0 2298 03463 -0 01 03443 JMP* KT00 RETURN 2299 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 78

2300 * 2301 * 2302 * 2303 * *********** 2304 * *DEFINE IM* 2305 * *********** 2306 * IM SUBA = IM (SET FROM A REG) 2307 * 2308 03464 0 000000 DM00 DAC ** 2309 03465 0 04 00706 STA IM IM = (A) 2310 03466 0 35 00625 LDX A ESTABLISH A 2311 03467 1 02 17400 LDA DP,1 2312 03470 0400 67 LRL 9 2313 03471 0404 75 LGR 3 IM(A) = IM 2314 03472 0414 75 LGL 3 2315 03473 0 06 00706 ADD IM 2316 03474 0410 67 LLL 9 2317 03475 1 04 17400 STA DP,1 2318 03476 -0 01 03464 JMP* DM00 2319 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 79

2320 * 2321 * 2322 * *********** 2323 * *DEFINE AF* 2324 * *********** 2325 * AF SUBA = AF (SET FROM A REG) 2326 * 2327 03477 0 000000 DA00 DAC ** 2328 03500 0 04 00025 STA AF AF = (A) 2329 03501 0400 62 LRL 14 2330 03502 0 35 00625 LDX A 2331 03503 1 02 17401 DA10 LDA DP+1,1 IF IU (A) NOT ARR 2332 03504 0404 62 LGR 14 2333 03505 0 11 00737 CAS K103 GF (A) = AF 2334 03506 0 01 03510 JMP *+2 2335 03507 0 01 03513 JMP DA20 ELSE, GF (GF (A)) = AF 2336 03510 0410 62 LLL 14 2337 03511 1 04 17401 STA DP+1,1 2338 03512 -0 01 03477 JMP* DA00 RETURN 2339 03513 1 02 17401 DA20 LDA DP+1,1 2340 03514 0 03 00670 ANA K111 2341 03515 0 04 00704 STA GFA 2342 03516 0 04 00000 STA 0 2343 03517 0 01 03503 JMP DA10 2344 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 80

2345 * 2346 * 2347 03520 0 000000 BUD DAC ** BUILD ASSIGNMENT 2348 03521 0 35 00625 LDX A 2349 03522 0 15 00637 STX ABAR 2350 03523 0 02 00774 LDA TID TABLE ENTRY 2351 03524 1 04 17404 STA DP+4,1 2352 03525 0 02 00775 LDA TID+1 2353 03526 1 04 17403 STA DP+3,1 2354 03527 0 02 00776 LDA TID+2 2355 03530 1 04 17402 STA DP+2,1 2356 03531 0 02 00710 LDA IU 2357 03532 0414 62 LGL 14 2358 03533 1 04 17401 STA DP+1,1 2359 03534 0 02 00054 LDA NT 2360 03535 0414 75 LGL 3 2361 03536 0 06 00736 ADD K102 AT = STR/+BS 2362 03537 0414 75 LGL 3 2363 03540 0 06 00706 ADD IM 2364 03541 0400 60 LRL 16 2365 03542 0 04 00046 STA CL 2366 03543 0 02 00736 LDA K102 2367 03544 0 04 00026 STA AT 2368 03545 0 02 00625 LDA A CL(A) = A/5 2369 03546 0 07 00741 SUB K105 2370 03547 100400 SPL 2371 03550 0 01 03553 JMP *+3 2372 03551 0 12 00046 IRS CL 2373 03552 0 01 03546 JMP *-4 2374 03553 0410 47 LLL 25 2375 03554 0 06 00046 ADD CL 2376 03555 1 04 17400 STA DP,1 2377 03556 100400 SPL 2378 03557 -0 01 03520 JMP* BUD 2379 03560 0 02 00047 LDA DT 2380 03561 0414 77 LGL 1 2381 03562 0 06 00070 ADD TT 2382 03563 0414 62 LGL 14 2383 03564 1 13 17404 IMA DP+4,1 2384 03565 0 03 00670 ANA K111 2385 03566 1 06 17404 ADD DP+4,1 2386 03567 1 04 17404 STA DP+4,1 2387 03570 -0 01 03520 JMP* BUD 2388 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 81

2389 * 2390 * 2391 * 2392 * 2393 * 2394 * ************ 2395 * *DEFINE AFT* 2396 * ************ 2397 * AT SUBA = AT (FROM B REG), THEN DEFINE AF 2398 * 2399 03571 0 000000 AF00 DAC ** 2400 03572 000201 IAB 2401 03573 0 35 00625 LDX A 2402 03574 0414 64 LGL 12 2403 03575 1 13 17400 IMA DP,1 2404 03576 0 03 00757 ANA B4F 2405 03577 1 06 17400 ADD DP,1 2406 03600 1 04 17400 STA DP,1 AT(A) = CONTENTS OF B INPUT 2407 03601 000201 IAB 2408 03602 0 10 03477 JST DA00 DEFINE AF 2409 03603 -0 01 03571 JMP* AF00 2410 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 82

2411 * 2412 * 2413 * ***************** 2414 * *DEFINE LOCATION* 2415 * ***************** 2416 * SET AF = RPL, AT = REL 2417 03604 0 000000 LO00 DAC ** 2418 03605 0 02 00735 LDA K101 REL 2419 03606 000201 IAB 2420 03607 0 02 00643 LDA RPL 2421 03610 0 10 03571 JST AF00 DEFINE AF 2422 03611 -0 01 03604 JMP* LO00 2423 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 83

2424 * ************************* 2425 * *ASSIGN INTEGER CONSTANT* 2426 * ************************* 2427 * IM (INTEGER): IU(VARIABLE) , ASSIGN SPECIAL 2428 03612 0 000000 AI00 DAC ** 2429 03613 140040 CRA 2430 03614 0 04 00775 STA ID+1 2431 03615 0 04 00776 STA ID+2 2432 03616 0 02 00735 LDA K101 (B) = INT 2433 03617 000201 IAB 2434 03620 0 02 00736 LDA K102 (A) = VAR 2435 03621 0 10 03623 JST AA00 ASSIGN SPECIAL 2436 03622 -0 01 03612 JMP* AI00 RETURN 2437 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 84

2438 * 2439 * 2440 * **************** 2441 * *ASSIGN SPECIAL* 2442 * **************** 2443 * B REG TO IM, A REG TO IJ, 1 TO NT (CONSTANT), THEN 2444 * ASSIGN ITEM 2445 03623 0 000000 AA00 DAC ** 2446 03624 0 04 00710 STA IU IU = (A) 2447 03625 000201 IAB 2448 03626 0 04 00706 STA IM IM = (B) 2449 03627 0 02 00735 LDA K101 2450 03630 0 04 00054 STA NT NT = 1 2451 03631 0 10 02762 JST AS00 ASSIGN ITEM 2452 03632 -0 01 03623 JMP* AA00 RETURN 2453 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 85

2454 * 2455 * 2456 * ********** 2457 * *JUMP * 2458 * *ILL TERM* 2459 * ********** 2460 * 2461 * CLEAR LAST OP FLAG FOR NO PATH TESTING 2462 * 2463 03633 140040 B6 CRA 2464 03634 0 04 00653 STA LSTP LSTP = 0 2465 * SET ILLEGAL DO TERM FLAG 2466 03635 0 02 00735 C5 LDA K101 2467 03636 0 04 00652 STA LSTF LSTF =1 2468 03637 0 02 00702 A1 LDA CRET 2469 03640 0 10 02352 JST TS00 IF TC NOT C/R, ERROR 2470 * JMP C6 (MAKE EFFECTIVE ONLY IF CODING IS INSERTED) 2471 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 86

2472 * 2473 * 2474 * ********** 2475 * *CONTINUE* 2476 * ********** 2477 * WRAPUP LOGICAL IF, CHECK TRACE STOP AND SEARCH 2478 * DO TABLE FOR DO TERMINATION 2479 * NOTE COMMENT LINE AFTER A1 ON PRECEEDING PAGE 2480 03641 0 02 00650 C6 LDA LIF 2481 03642 100040 SZE IF LIF NON-ZERO. 2482 03643 0 01 03703 JMP C6H GO TO 2483 03644 0 02 00651 C6A LDA LSTN IF LSTN NON-ZERO. 2484 03645 100040 SZE GO TO 2485 03646 0 01 03651 JMP C6C 2486 03647 0 04 00652 C6B STA LSTF LSTF = 0 2487 03650 0 01 03723 JMP C7 GO TO STATEMENT INPUT 2488 03651 0 07 00645 C6C SUB TRF TRACE FLAG 2489 03652 101040 SNZ SKIP IF NOT END OF TRACE ZONE 2490 03653 0 04 00645 STA TRF SET TRF TO ZERO (TURN FLAG OFF) 2491 03654 0 02 00655 LDA DO START OF DO TABLE 2492 03655 0 06 00642 ADD D 2493 03656 0 04 00626 C6D STA I I = DO + D 2494 03657 0 35 00626 LDX I 2495 03660 0 07 00655 SUB DO 2496 03661 101040 SNZ 2497 03662 0 01 03647 JMP C6B GO TO C6B - FINISHED DO 2498 03663 1 02 17374 LDA DP-4,1 2499 03664 0 07 00651 SUB LSTN 2500 03665 100040 SZE 2501 03666 0 01 03677 JMP C6E 2502 03667 0 02 00652 LDA LSTF 2503 03670 100040 SZE 2504 03671 0 01 03721 JMP C6K 2505 03672 0 10 06155 JST DQ00 DO TERMINATION 2506 03673 0 02 00642 LDA D 2507 03674 0 07 00741 SUB K105 2508 03675 0 04 00642 STA D D = D-5 2509 03676 0 02 00652 LDA LSTF 2510 03677 0 04 00652 C6E STA LSTF 2511 03700 0 02 00626 LDA I 2512 03701 0 07 00741 SUB K105 2513 03702 0 01 03656 JMP C6D I = I-5 - CONTINUE DO LOOP 2514 03703 0 02 00636 C6H LDA IFF 2515 03704 0 04 00625 STA A 2516 03705 101040 SNZ 2517 03706 0 01 03714 JMP C6J 2518 03707 0410 60 LLL 16 2519 03710 0 02 13026 LDA OMI5 (A) = JMP INSTRUCTION 2520 03711 0 10 11471 JST OB00 OUTPUT OA 2521 03712 140040 CRA
* NAME: FRTN DWG 70180463000 REV J PAGE 87

2522 03713 0 04 00636 STA IFF IFF = 0 2523 03714 0 04 00625 C6J STA A A = 0 2524 03715 0 02 00650 LDA LIF 2525 03716 0 04 00653 STA LSTP SET TO NON-ZERO TO PREVENT DATA ERROR MSG 2526 03717 0 10 13257 JST OS00 OUTPUT STRING - RPL 2527 03720 0 01 03644 JMP C6A 2528 * 2529 03721 0 10 02615 C6K JST ER00 2530 03722 142324 BCI 1,DT 2531 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 88

2532 * 2533 * ***************** 2534 * *STATEMENT INPUT* 2535 * **************** 2536 * SET UP PROCESSING OF NEXT SOURCE STATEMENT 2537 * PROCESS STATEMENT NUMBER IF PRESENT 2538 * WRAPUP ANY OUTSTANDING ARITHMETIC IF 2539 03723 140040 C7 CRA 2540 03724 0 04 00651 STA LSTN LSTN = O 2541 03725 0 04 00077 STA IFLG IFLG = O 2542 03726 0 04 00650 STA LIF LIF = O 2543 03727 0 10 00000 JST OPST PREPARE OP-16 STMT PROCESSORS 2544 03730 0 02 00113 LDA L0 L = L (O) 2545 03731 0 04 00627 STA L 2546 03732 0 02 14040 LDA CI CHECK CARD COLUMN 1 2547 03733 141140 ICL FOR $ CHARACTER 2548 03734 0 11 00662 CAS K15 ='$' 2549 03735 100000 SKP X 2550 03736 0 01 04007 JMP CCRD CONTROL CARD 2551 03737 0 11 00755 CAS K49 TEST FOR INLINE ASSEMBLY 2552 03740 100000 SKP NO 2553 03741 0 01 00000 JMP ASMB YES ... GO PROCESS IT 2554 03742 0 10 02346 JST XN00 EXAMINE NEXT CHAR 2555 03743 100040 SZE 2556 03744 0 01 03751 JMP C71 2557 03745 0 10 02264 JST IS00 INPUT STATEMENT = 2558 03746 0 02 00625 LDA A 2559 03747 0 04 00651 STA LSTN LSTN = A 2560 03750 0 04 00653 STA LSTP 2561 03751 0 02 00636 C71 LDA IFF CHECK FOR IFF=0 2562 03752 101040 SNZ 2563 03753 0 01 03760 JMP C7B GO TO C7B 2564 03754 0 07 00651 SUB LSTN IF = LSTN 2565 03755 100040 SZE 2566 03756 0 01 03762 JMP C7C 2567 03757 0 04 00636 C7A STA IFF IFF = 0 2568 03760 0 10 03771 C7B JST C7LT LINE TEST 2569 03761 0 01 04032 JMP C8 2570 03762 0 02 00636 C7C LDA IFF IFF = A 2571 03763 0 04 00625 STA A 2572 03764 0400 40 LRL 32 2573 03765 0 02 13026 LDA K201 (A) = JMP INSTRUCTION 2574 03766 0 10 11471 JST OB00 OUTPUT OA 2575 03767 140040 CRA 2576 03770 0 01 03757 JMP C7A GO TO C7A 2577 03771 0 000000 C7LT DAC ** LINE TEST 2578 03772 0 02 14042 LDA CI+2 CI = BLANK 2579 03773 0 03 00672 ANA K116 LIST LINE 2580 03774 0 06 00660 ADD K8 RETURN 2581 03775 0 04 14042 STA CI+2
* NAME: FRTN DWG 70180463000 REV J PAGE 89

2582 03776 0 02 00067 LDA TC 2583 03777 0 07 00714 SUB HC2 IF TC = SPECIAL 2584 04000 100040 SZE 2585 04001 0 01 04004 JMP C7LU 2586 04002 0 10 02745 C7LS JST LIST LIST THIS LINE 2587 04003 -0 01 03771 JMP* C7LT 2588 04004 0 10 02615 C7LU JST ER00 ILLEGAL STMT. NO. ERROR 2589 04005 051724 VFD 1,0,7,'323,8,'324 ASCII 'ST' WITH SIGN BIT + 2590 04006 0 01 04002 JMP C7LS LIST LINE AND RETURN 2591 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 90

2592 * 2593 * 2594 * 2595 * ************************ 2596 * *CONTROL CARD PROCESSOR* 2597 * ************************ 2598 04007 0 10 13531 CCRD JST FS00 FLUSH BUFFER IF NECESSARY 2599 04010 0 10 02745 JST LIST LIST CARD 2600 04011 0 02 14040 LDA CI WORD CONTAINING COLUMN 1 2601 04012 0414 64 LGL 12 2602 04013 101040 SNZ 2603 04014 0 02 04030 LDA CCRK ='030000 (EOJ CODE = 3) 2604 04015 0404 72 LGR 6 TRUNCATE TO A DIGIT 2605 04016 0 04 13650 STA OCI 2606 04017 0 02 00742 LDA K106 =6 2607 04020 0 04 00063 STA OCNT SET BUFFER WORD COUNT TO 3 2608 04021 0 10 13531 JST FS00 FLUSH BUFFER 2609 04022 0 02 14040 LDA CI 2610 04023 0414 64 LGL 12 CHECK COLUMN 1 FOR CONTROL CODE 0 2611 04024 100040 SZE 2612 04025 0 01 02666 JMP ER20 SKIP TO NEXT CARD (NOT CONTROL CARD) 2613 04026 0 10 00000 CALL F4$END CLOSE-OUT I/O DEVICES AND STOP 2614 04027 0 01 01001 JMP A0 RESTART NEW COMPILATION 2615 04030 030000 CCRK OCT 030000 EOJ CONTROL CODE 2616 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 91

2617 * 2618 * **************** 2619 * *STATEMENT SCAN* 2620 * **************** 2621 * DETERMINE THE CLASS OF THE STATEMENT 2622 * IF AN = IS FOUND WITH A FOLLOWING , 2623 * THE STATEMENT IS A DO 2624 * IF NO FOLLOWING COMMA, THE PAREN FLAG 2625 * IS TESTED, IF NO PARENS, THE STATEMENT 2626 * IS ARITHMETIC ASSIGNMENT 2627 * IF PARENS WERE DETECTED AND THE FIRST 2628 * NAME IS AN ARRAY, THE STATEMENT IS 2629 * ARITHMETIC ASSIGNMENT 2630 * OTHERWISE, IT IS A STATEMENT FUNCTION 2631 * IF NO = IS FOUND THE STATEMENT IS 2632 * PROCESSED FURTHER IN STATEMENT ID 2633 04031 0 00 00000 C8T1 PZE 0 2634 04032 0 02 00656 C8 LDA CC SAVE CC 2635 04033 0 04 04153 STA C8X9 2636 04034 0 02 00735 LDA K101 2637 04035 0 04 04031 STA C8T1 T (1) = 1 2638 04036 140040 CRA 2639 04037 0 04 00705 STA ICSW ICSW = SIR 2640 04040 0 10 01157 C8A JST CH00 INPUT CHARACTER 2641 04041 0 02 00067 C8B LDA TC IF TC = ) 2642 04042 0 07 00657 SUB K4 2643 04043 100040 SZE 2644 04044 0 01 04056 JMP C8C 2645 04045 0 10 01157 JST CH00 INPUT CHAR 2646 04046 0 02 00037 C8B2 LDA DFL IF DFL NOT ZERO 2647 04047 100040 SZE 2648 04050 0 01 04041 JMP C8B GO TO C8B 2649 04051 0 02 04153 C8B4 LDA C8X9 RESTORE CC 2650 04052 0 04 00656 STA CC 2651 04053 0 02 00735 LDA K101 IPL 2652 04054 0 04 00705 STA ICSW ICSW = IPL 2653 04055 0 01 04157 JMP A9 GO TO STATEMENT ID 2654 04056 0 02 00067 C8C LDA TC IF TC NOT (, 2655 04057 0 07 14474 SUB K17 2656 04060 100040 SZE 2657 04061 0 01 04071 JMP C8D GO TO C8D 2658 04062 0 02 04031 LDA C8T1 T1 = T1 - 1 2659 04063 0 07 00735 SUB K101 2660 04064 0 04 04031 STA C8T1 2661 04065 100040 C8C4 SZE IF T1 = 0 2662 04066 0 01 04051 JMP C8B4 2663 04067 0 10 01350 JST DN00 INPUT DNA 2664 04070 0 01 04046 JMP C8B2 GO TO C8B2 2665 04071 0 02 00067 C8D LDA TC IF TC = , 2666 04072 0 11 00754 CAS K134 ='17 ('FINISHED' CODE FDR COMMA)
* NAME: FRTN DWG 70180463000 REV J PAGE 92

2667 04073 0 01 04075 JMP *+2 2668 04074 0 01 04100 JMP C8D2 TC = COMMA 2669 04075 0 07 00734 SUB K5 2670 04076 100040 SZE 2671 04077 0 01 04102 JMP C8E 2672 04100 0 02 04031 C8D2 LDA C8T1 GO TO C8C4, 2673 04101 0 01 04065 JMP C8C4 2674 04102 0 02 00067 C8E LDA TC ELSE, IF TC = '/' 2675 04103 0 07 00740 SUB K104 2676 04104 100040 SZE 2677 04105 0 07 00715 SUB FN90 2678 04106 101040 SNZ 2679 04107 0 01 04051 JMP C8B4 GO TO C8B4 2680 04110 0 02 00067 LDA TC 2681 04111 0 07 00733 SUB K18 IF NOT = , 2682 04112 100040 SZE 2683 04113 0 01 04040 JMP C8A GO TO C8A 2684 04114 0 10 01350 JST DN00 INPUT DNA 2685 04115 0 02 04153 LDA C8X9 RESTORE CC 2686 04116 0 04 00656 STA CC 2687 04117 0 02 00735 LDA K101 IPL 2688 04120 0 04 00705 STA ICSW ICSW = IPL 2689 04121 0 02 00067 LDA TC 2690 04122 0 07 00754 SUB K134 ='17 (FINISHED CODE FOR COMMA) 2691 04123 100040 SZE 2692 04124 0 01 04140 JMP C8G GO TO C8G 2693 04125 0 02 00736 LDA K102 ELSE, INPUT 2 CHARS 2694 04126 0 10 01253 JST IA00 2695 04127 0 02 01333 LDA IBUF IF (A) = 'DO' 2696 04130 0 07 14246 SUB KI9 2697 04131 101040 SNZ 2698 04132 0 01 04135 JMP *+3 2699 04133 0 10 02615 JST ER00 2700 04134 141715 BCI 1,CM COMMA OUTSIDE PARENTHESES, NOT IN DO STMNT. 2701 04135 0 02 00740 LDA K104 2702 04136 0 10 04272 JST NP00 FIRST NON-SPEC CHECK 2703 04137 0 01 04702 JMP C9 GO TO DO 2704 04140 0 02 04031 C8G LDA C8T1 1 IF NO ( TO LEFT OF EQUALS 2705 04141 100040 SZE 2706 04142 0 01 05452 JMP G2 ARITHMETIC ASSIGNMENT STATEMENT 2707 04143 0 10 02341 JST SY00 INPUT SYMBOL 2708 04144 0 02 04153 LDA C8X9 2709 04145 0 04 00656 STA CC RESTORE CC 2710 04146 0 02 00710 LDA IU IF IU = SUBR 2711 04147 0 07 00737 SUB K103 2712 04150 100040 SZE 2713 04151 0 01 05507 JMP G1 GO TO ARITH ST. FUNCT. 2714 04152 0 01 05452 JMP G2 OTHERWISE = ASSIGNMENT STATEMENT 2715 04153 0 00 00000 C8X9 PZE 0 2716 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 93

2717 * 2718 * 2719 * ************************** 2720 * *STATEMENT IDENTIFICATION* 2721 * ************************** 2722 * READ FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE 2723 * FOR PROCESSING, THEN CHECK SPELLING ON REST 2724 04154 0 00 00000 A9T1 PZE 0 2725 04155 0 00 00000 A9T2 PZE 0 2726 04156 0 00 00000 A9T3 PZE 0 2727 000046 STMT EQU 38 NUMBER OF STATEMENTS 2728 04157 0 02 00740 A9 LDA K104 2729 04160 0 10 01253 JST IA00 INPUT (4) CHARS 2730 04161 0 02 01333 LDA IBUF 2731 04162 0 04 00051 STA NAMF NAMF = IBUF 2732 04163 0 02 01334 LDA IBUF+1 2733 04164 0 04 00052 STA NAMF+1 2734 04165 0 35 04266 LDX A9Z9 INITIALIZE FOR LOOP THRU STMT. NAMES 2735 04166 0 02 00051 A9A LDA NAMF 2736 04167 1 07 14312 SUB A9X1+STMT,1 2737 04170 100040 SZE 2738 04171 0 01 04246 JMP A9F READ IN REST OF 2739 04172 0 02 00052 LDA NAMF+1 CHECK REST OF SPELLING FOR 2740 04173 1 07 14360 SUB A9X2+STMT,1 2741 04174 100040 SZE A MATCH ON 4 CHARACTERS 2742 04175 0 01 04246 JMP A9F NOT FOUND 2743 04176 0 02 00000 LDA 0 TEST FOR SPECIAL CASE OF 2744 04177 0 05 04266 ERA A9Z9 INTEGER V.S. INTERRUPT 2745 04200 100040 SZE X 2746 04201 0 01 04207 JMP *+6 FIRST 4 CHARACTERS ARE NOT 'INTE' 2747 04202 0 10 02346 JST XN00 EXAMINE NEXT CHARACTER 2748 04203 0 02 00067 LDA TC TEST FOR 'G' 2749 04204 0 05 04261 ERA KACG X 2750 04205 100040 SZE X 2751 04206 0 01 04246 JMP A9F NO ... HOPEFULLY IT7S AN INTERRUPT STMT 2752 04207 1 02 14474 LDA A9X4+STMT,1 2753 04210 0 03 00764 ANA K133 2754 04211 0 04 04154 STA A9T1 T1 = NUMBER OF REMAINING CHARACTERS 2755 04212 1 02 14426 LDA A9X3+STMT,1 LEFT TO CHECK 2756 04213 0400 63 LRL 13 2757 04214 000201 IAB 2758 04215 0404 75 LGR 3 2759 04216 0 04 04155 STA A9T2 T2 = ADDRESS OF ROUTINE 2760 04217 000201 IAB 2761 04220 0 10 04272 JST NP00 FIRST NON-SPECIFIC. CHECK -(A) = 2762 04221 0 02 04154 A9B LDA A9T1 HIERARCHY CODE 2763 04222 100040 SZE 2764 04223 0 01 04225 JMP A9C MUST CHECK MORE CHARACTERS 2765 04224 -0 01 04155 JMP* A9T2 FINISHED CHARACTER CHECK. EXIT TO 2766 * SPECIFIC ANALYZER.
* NAME: FRTN DWG 70180463000 REV J PAGE 94

2767 04225 0 07 00742 A9C SUB K106 2768 04226 100400 SPL 2769 04227 0 01 04241 JMP A9E 2770 04230 0 04 04154 STA A9T1 2771 04231 0 02 00742 LDA K106 REMAINING SPELLING IS CHECKED. 2772 04232 0 04 04156 A9D STA A9T3 2773 04233 0 10 01253 JST IA00 2774 04234 0 07 04156 SUB A9T3 2775 04235 101040 SNZ 2776 04236 0 01 04221 JMP A9B 2777 04237 0 10 02615 JST ER00 2778 04240 151720 MSPL BCI 1,SP STATEMENT NAME MISSPELLED 2779 04241 0 06 00742 A9E ADD K106 2780 04242 0 13 04154 IMA A9T1 2781 04243 140040 CRA 2782 04244 0 13 04154 IMA A9T1 2783 04245 0 01 04232 JMP A9D 2784 04246 0 12 00000 A9F IRS 0 LOOP CONTROL FOR STATEMENT NAMES. 2785 04247 0 01 04166 JMP A9A MORE NAMES - CONTINUE LOOP 2786 04250 0 02 00067 LDA TC 2787 04251 0 07 00702 SUB CRET 2788 04252 100040 SZE 2789 04253 0 01 04257 JMP A9G 2790 04254 0 02 00651 LDA LSTN TC = C/R 2791 04255 101040 SNZ 2792 04256 0 01 03723 JMP C7 AND LSTN = 0 - INPUT NEW STATENENT 2793 04257 0 10 02615 A9G JST ER00 2794 04260 144704 BCI 1,ID UNRECOGNIZED STATEMENT 2795 * 2796 04261 000307 KACG OCT 307 'G' 2797 * 2798 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 95

2799 * 2800 * ****************************** 2801 * *CONTINUE STATEMENT PROCESSOR* 2802 * ****************************** 2803 04262 0 02 00653 CONT LDA LSTP ACCOUNTS FOR POSSIBLE PATH ERROR 2804 04263 0 06 00651 ADD LSTN ACCOUNTS FOR POSSIBLE PATH ERROR 2805 04264 0 04 00653 STA LSTP ACCOUNTS FOR POSSIBLE PATH ERROR 2806 04265 0 01 03641 JMP C6 2807 * 2808 04266 -1 177732 A9Z9 DAC* -STMT,1 NO. OF ITEMS IN STMNT TABLE 2809 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 96

2810 * 2811 * 2812 * ********************** 2813 * *FIRST NON-SPEC CHECK* 2814 * ********************** 2815 * AT FIRST SHIFT IN LEVEL FROM ZERO, WRAP-UP 2816 * SPECIFICATION STATEMENTS 2817 04267 0 00 00000 T0NP PZE 0 2818 004267 NPT0 EQU T0NP 2819 04270 0 00 00000 T2NP PZE 0 2820 04271 0 00 00000 T1NP PZE 0 2821 04272 0 000000 NP00 DAC ** 2822 04273 0 04 04267 STA NPT0 T0 = (A) 2823 04274 0 02 00625 LDA A 2824 04275 0 04 04271 STA T1NP T1 = A 2825 04276 0 02 04267 LDA NPT0 2826 04277 0 11 00743 CAS K107 =7 2827 04300 0 01 04302 JMP *+2 2828 04301 0 01 04313 JMP NP10 TRACE STMNT. (MAY OCCUR ANYWHERE) 2829 04302 0 11 00634 CAS SPF T0 . G.R. SPF, GO TO NP30 2830 04303 0 01 04352 JMP NP30 T0 = SPF, GO TO NP25 2831 04304 0 01 04340 JMP NP25 2832 04305 0 02 00067 LDA TC IF TC = C/R 2833 04306 0 07 00702 SUB CRET GO TO NP10 2834 04307 101040 SNZ 2835 04310 0 01 04313 JMP NP10 2836 04311 0 10 02615 JST ER00 ELSE, ILLEGAL STATEMENT 2837 04312 142730 BCI 1,EX SPECIFICATION STATEMENT ADPEARS AFTER 2838 * SPECIFICATION STATEMENT CLEAN-UP 2839 04313 0 02 00651 NP10 LDA LSTN 2840 04314 0 04 00625 STA A A = LSTN 2841 04315 101040 SNZ 2842 04316 0 01 04333 JMP NP16 IF ZERO, RETURN 2843 04317 0 10 03317 JST FA00 FETCH ASSIGNS 2844 04320 0 02 00737 LDA K103 STR-REL 2845 04321 0 07 00026 SUB AT 2846 04322 100040 SZE 2847 04323 0 01 04336 JMP NP20 2848 04324 0 02 00025 LDA AF 2849 04325 0 10 13257 JST OS00 OUTPUT STRING RPL 2850 04326 0 10 03604 NP15 JST LO00 DEFINE LOCATION 2851 04327 0 02 00051 LDA NAMF 2852 04330 0 07 14264 SUB A9X5 2853 04331 100040 SZE 2854 04332 0 10 12754 JST TRSE OUTPUT TRACE COUPLING 2855 04333 0 02 04271 NP16 LDA T1NP 2856 04334 0 04 00625 STA A 2857 04335 -0 01 04272 JMP* NP00 2858 04336 0 10 02372 NP20 JST NR00 NON-REL TEST 2859 04337 0 01 04326 JMP NP15
* NAME: FRTN DWG 70180463000 REV J PAGE 97

2860 04340 0 02 00650 NP25 LDA LIF 2861 04341 100040 SZE 2862 04342 0 01 04333 JMP NP16 2863 04343 0 02 00653 LDA LSTP IF LSTP + LSTN =O 2864 04344 0 06 00651 ADD LSTN 2865 04345 100040 SZE 2866 04346 0 01 04313 JMP NP10 2867 04347 0 12 00653 IRS LSTP 2868 04350 0 10 02615 JST ER00 'NO PATH' ERROR 2869 04351 150310 BCI 1,PH NO PATH LEADING TO THE STATEMENT 2870 04352 0 02 00634 NP30 LDA SPF IF SPF 0 0 2871 04353 100040 SZE 2872 04354 0 01 04372 JMP NP37 2873 04355 0 02 00067 LDA TC 2874 04356 0 04 04270 STA T2NP T2 = TC 2875 04357 0 02 00643 LDA RPL 2876 04360 0 04 00640 STA XST XST = RPL 2877 04361 0 02 00644 LDA BDF BLOCK DATA SUBPROGRAM FLAG 2878 04362 100040 SZE SKIP IF NOT BLOCK DATA 2879 04363 0 01 10344 JMP C2 GO TO RELATE COMMON 2880 04364 0 04 00625 STA A SET LISTING FOR OCTAL ADDR. 2881 04365 0 02 13026 LDA OMI5 JMP INSTRUCT 2882 04366 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2883 04367 0 01 10344 JMP C2 GO TO RELATE COMMON 2884 04370 0 02 04270 NP35 LDA T2NP 2885 04371 0 04 00067 STA TC 2886 04372 0 02 04267 NP37 LDA T0NP 2887 04373 0 04 00634 STA SPF SPF = T0 2888 04374 0 07 00740 SUB K104 2889 04375 100040 SZE 2890 04376 0 01 04313 JMP NP10 2891 04377 0 04 00625 STA A SET LISTING FOR OCTAL ADDR. 2892 04400 0 02 00640 LDA XST LOCATION OF INITIAL JUMP 2893 04401 0 10 13257 JST OS00 OUTPUT STRING 2894 04402 0 02 00643 LDA RPL 2895 04403 0 04 00640 STA XST XST = RPL 2896 04404 0 01 04313 JMP NP10 GO TO NP10 2897 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 98

2898 * 2899 * ***************** 2900 * *IF( PROCESSOR* 2901 * ***************** 2902 * ARITHMETIC IF ($1 $2 $3) 2903 * IF $2 NOT = $3, JZE $2 2904 * IF $3 NOT = $1, JPL $3 2905 * (IF $1 NOT = NEXT ST NO., JMP $1) 2906 * LOGICAL IF 2907 * OUTPUT JZE 77777 (FOR STRINGING AROUND 2908 * IMBEDDED STATEMENT) 2909 04405 0 10 02224 V3 JST II00 INPUT ITEM 2910 04406 101040 SNZ 2911 04407 0 01 04415 JMP V310 IM=0 (POSSIBLE UNARY + OR -) 2912 04410 0 02 00037 LDA DFL 2913 04411 100040 SZE 2914 04412 0 01 04415 JMP V310 FIRST ITEM IN EXPRESSION O.K. 2915 04413 0 10 02615 V308 JST ER00 ERROR.....IF(SENSE SWITCH..ETC)..... 2916 04414 144706 BCI 1,IF ILLEGAL IF STATEMENT TYPE 2917 04415 140040 V310 CRA (A)=0 2918 04416 0 10 06225 JST EX00 EXPRESSION EVALUATOR 2919 04417 0 02 00657 LDA K4 2920 04420 0 10 02352 JST TS00 )-TEST 2921 04421 140040 CRA 2922 04422 0 04 00625 STA A SET A TO SPECIAL (IF) ENTRY IN DATA POOL 2923 04423 0 04 00000 STA 0 2924 04424 0 02 00630 LDA MFL SET MODE OF EXPRESSIOL INTO SPECIAL (IF) 2925 04425 0414 67 LGL 9 2926 04426 1 04 17400 STA DP,1 2927 04427 0 10 12754 JST TRSE OUTPUT TRACE COUPLING (IF NECESSARY) 2928 04430 0 02 00630 LDA MFL CHECK MODE FLAG FOR LOGICAL 2929 04431 0 07 00737 SUB K103 2930 04432 100040 SZE 2931 04433 0 01 04450 JMP V320 ARITHMETIC IF 2932 04434 0 02 00650 LDA LIF 2933 04435 100040 SZE 2934 04436 0 01 04413 JMP V308 2935 04437 0 04 00025 STA AF SET ADDR OF SNZ AND JMP INSTR TO 00000 2936 04440 0 02 13034 LDA OMJ2 =SNZ INSTR. 2937 04441 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2938 04442 0 02 00643 LDA RPL SET LIF=CURRENT +DDR. (STRING BACK) 2939 04443 0 04 00650 STA LIF 2940 04444 0 02 13026 LDA OMI5 =JMP 0 INSTR. 2941 04445 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2942 04446 0 10 02346 JST XN00 GO TO NEXT INPUT LINE 2943 04447 0 01 04032 JMP C8 GO TO STATEMENT SCAN 2944 * 2945 04450 0 07 00736 V320 SUB K102 CHECK FOR MODE = COMPLEX 2946 04451 101040 SNZ 2947 04452 0 01 04413 JMP V308 ERROR....COMPLEX MODE EXPRESSION
* NAME: FRTN DWG 70180463000 REV J PAGE 99

2948 04453 0 02 00756 LDA IA90 =-3 2949 04454 0 04 00626 STA I 2950 04455 0 10 02264 V324 JST IS00 INPUT STATEMENT NUMBER 2951 04456 0 35 00626 LDX I 2952 04457 0 02 00625 LDA A 2953 04460 1 04 04526 STA T1V3+3,1 SAVE BRANCH ADDRESSES 2954 04461 0 12 00626 IRS I I=I+1 2955 04462 0 01 04511 JMP V350 CHECK FOR TERMINAL COMMA 2956 04463 0 02 04525 LDA T3V3 2957 04464 0 11 04524 CAS T2V3 CHECK FOR ADDR-2 = ADDR-3 2958 04465 0 01 04467 JMP *+2 2959 04466 0 01 04476 JMP V330 ADDR-2 = ADDR-3 2960 04467 140040 CRA 2961 04470 0 04 00625 STA A 2962 04471 0 02 13034 LDA OMJ2 =SNZ INSTR. 2963 04472 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 2964 04473 0 02 04524 LDA T2V3 2965 04474 0 10 04514 JST V360 OUTPUT A JMP(ADDR-2) INSTR. 2966 04475 0 02 04525 LDA T3V3 2967 04476 0 11 04523 V330 CAS T1V3 CHECK FOR ADDR-3 = ADDR-2 2968 04477 0 01 04501 JMP *+2 2969 04500 0 01 04507 JMP V340 ADDR-3 = ADDR-1 2970 04501 140040 CRA 2971 04502 0 04 00625 STA A 2972 04503 0 02 13035 LDA OMJ3 =SMI INSTR. 2973 04504 0 10 13235 JST OQ000 OUTPUT ABSOLUTE 2974 04505 0 02 04525 LDA T3V3 2975 04506 0 10 04514 JST V360 OUTPUT A JMP (ADDR-3) INSTR. 2976 04507 0 02 04523 V340 LDA T1V3 2977 04510 0 01 04533 JMP R7B1 SET IFF = ADDR-1, CHECK NO PATH 2978 * AND INPUT NEXT STATEMENT 2979 * 2980 04511 0 02 00734 V350 LDA K5 2981 04512 0 10 02352 JST TS00 COMMA TEST 2982 04513 0 01 04455 JMP V324 INPUT NEXT STATEMENT NO. 2983 * 2984 * 2985 *---------------SUBROUTINE TO OUTPUT A RELATIVE JMP 2986 04514 0 000000 V360 DAC ** 2987 04515 0 04 00625 STA A SET ADDR. OF JUMP REF. TO A 2988 04516 140040 CRA 2989 04517 000201 IAB SET (B) = 0 2990 04520 0 02 13026 LDA OMI5 SET (A) = JMP INSTR. 2991 04521 0 10 11471 JST OB00 OUTPUT OA 2992 04522 -0 01 04514 JMP* V360 EXIT 2993 * 2994 04523 0 00 00000 T1V3 *** ** ADDR-1 2995 04524 0 00 00000 T2V3 *** ** ADDR-2 2996 04525 0 00 00000 T3V3 *** ** ADDR-3 2997 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 100

2998 * 2999 * ******* 3000 * *GO TO* 3001 * ******* 3002 * CHECK FOR NORMAL (R740), COMPUTED (R710) OR 3003 * ASSIGNED (R730). INPUT BRANCH LIST USED BY BOTH 3004 * R710 AND R730 FOR STATEMENT NO. LIST. 3005 * 3006 * 3007 04526 0 10 02346 R7 JST XN00 EXAMINE NEXT CHAR 3008 04527 100040 SZE 3009 04530 0 01 04535 JMP R7B GO TO TEST DFL 3010 04531 0 10 02264 JST IS00 INPUT STMNT = 3011 04532 0 02 00625 LDA A (GO TO 20) 3012 04533 0 04 00636 R7B1 STA IFF IFF = A 3013 04534 0 01 03633 JMP B6 CHECK NO PATH, INPUT NEXT STATEMENT 3014 04535 0 02 00037 R7B LDA DFL 3015 04536 100040 SZE 3016 04537 0 01 04550 JMP R7D 3017 04540 0 10 02260 JST IR00 GO TO I (10, 20, 30) 3018 04541 0400 40 LRL 32 3019 04542 0 02 13033 LDA K206 OUTPUT JMP* INSTRUCTION 3020 04543 0 10 11471 JST OB00 OUTPUT OA 3021 04544 0 02 00754 LDA K134 3022 04545 0 10 02352 JST TS00 , TEST 3023 04546 0 10 04606 JST IB00 INPUT BRANCH LIST 3024 04547 0 01 03633 JMP B6 GO TO JUMP 3025 04550 0 10 04606 R7D JST IB00 INPUT BRANCH LIST GO TO (10,11,12), I 3026 04551 0 02 00754 LDA K134 3027 04552 0 10 02352 JST TS00 , TEST 3028 04553 0 10 02260 JST IR00 INPUT INT VAR 3029 04554 0400 40 LRL 32 3030 04555 0 02 13030 LDA K200 OUTPUT LDA 3031 04556 0 10 11471 JST OB00 OUTPUT OA 3032 04557 140040 CRA 3033 04560 0 04 00625 STA A 3034 04561 0 04 00025 STA AF CAUSE OCTAL ADDRESS IN LISTING 3035 04562 0 02 04634 LDA K75 3036 04563 0 10 13235 JST OQ00 OUTPUT ABS (STA O) 3037 04564 0 02 00643 LDA RPL 3038 04565 0 04 00025 STA AF CAUSE RPL TO BE IN LISTING 3039 04566 0 02 13046 LDA K207 3040 04567 0 10 13072 JST OR00 OUTPUT RELATIVE (JMD RPL,1) 3041 04570 0 02 00113 LDA L0 3042 04571 0 07 00735 R7F SUB K101 3043 04572 0 04 00626 STA I I = L (0) 3044 04573 0 35 00626 LDX I 3045 04574 1 02 17400 LDA DP,1 3046 04575 0 04 00625 STA A 3047 04576 0 35 00625 LDX A
* NAME: FRTN DWG 70180463000 REV J PAGE 101

3048 04577 101040 SNZ 3049 04600 0 01 03633 JMP B6 FINISHED LOOPING ON LIST 3050 04601 0410 60 LLL 16 3051 04602 0 02 13026 LDA K201 OUTPUT JMP INSTRUCTIONS 3052 04603 0 10 11471 JST OB00 OUTPUT OA (JMP 0) 3053 04604 0 02 00626 LDA I 3054 04605 0 01 04571 JMP R7F 3055 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 102

3056 * ******************* 3057 * *INPUT BRANCH LIST* 3058 * ******************* 3059 * INPUT STATENENT NO. LISTS FOR GO TO PROCESSOR 3060 04606 0 000000 IB00 DAC ** 3061 04607 0 02 00113 LDA L0 3062 04610 0 07 00735 SUB K101 3063 04611 0 04 00626 STA I I = L0-1 3064 04612 0 10 01157 JST CH00 INPUT CHAR 3065 04613 0 02 14474 LDA K17 3066 04614 0 10 02352 JST TS00 3067 04615 0 10 02264 IB10 JST IS00 INPUT STMNT = 3068 04616 0 35 00626 LDX I 3069 04617 0 02 00625 LDA A 3070 04620 1 04 17400 STA DP,1 SET POINTER OF ST. NO. INTO TRIAD TABLE 3071 * AREA 3072 04621 0 02 00626 LDA I DP (J) = A 3073 04622 0 07 00735 SUB K101 3074 04623 0 04 00626 STA I I = I-1 3075 04624 0 02 00067 LDA TC IF TC = , GO TO IB10 3076 04625 0 07 00734 SUB K5 3077 04626 101040 SNZ 3078 04627 0 01 04615 JMP IB10 CONTINUE LOOP 3079 04630 140040 CRA 3080 04631 1 04 17377 STA DP-1,1 SET END FLAG INTO TABLE 3081 04632 0 10 02360 JST IP00 )- INPUT OPEN 3082 04633 -0 01 04606 JMP* IB00 EXIT 3083 04634 0 04 00000 K75 STA 0 3084 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 103

3085 * 3086 * 3087 * ******** 3088 * *ASSIGN* 3089 * ******** 3090 * CHECK TO SEE THAT 'TO' IS INCLUDED PROPERLY 3091 04635 000317 K35 OCT 317 3092 04636 0 10 02264 W3 JST IS00 INPUT STMNT = 3093 04637 0 02 00625 LDA A 3094 04640 0 04 04700 STA T1W3 SAVE A 3095 04641 0 02 00067 LDA TC 3096 04642 0 07 00663 SUB K34 CHECK FOR TO 3097 04643 100040 SZE 3098 04644 0 01 04653 JMP W305 CLEAR A FOR OUTPUT REL 3099 04645 0 04 00625 STA A CAUSE OCTAL ADDRESS IN LIST 3100 04646 0 10 01157 JST CH00 INPUT CHAR 3101 04647 0 02 00067 LDA TC 3102 04650 0 07 04635 SUB K35 3103 04651 101040 SNZ 3104 04652 0 01 04655 JMP *+3 3105 04653 0 10 02615 W305 JST ER00 ERROR 3106 04654 152317 BCI 1,TO GO TO IN ASSIGN STATEMENT 3107 04655 0 02 00643 LDA RPL 3108 04656 0 06 00736 ADD K102 3109 04657 0 04 00025 STA AF OUTPUT REL LDA *+2 3110 04660 0 02 13030 LDA K200 OUTPUT LDA *+2 3111 04661 0 10 13072 JST OR00 OUTPUT REL 3112 04662 0 02 00643 LDA RPL 3113 04663 0 06 00736 ADD K102 3114 04664 0 04 00025 STA AF OUTPUT REL JWP *+2 3115 04665 0 02 13026 LDA K201 3116 04666 0 10 13072 JST OR00 OUTPUT OA 3117 04667 0400 40 LRL 32 3118 04670 0 02 04700 LDA T1W3 3119 04671 0 04 00625 STA A RESTORE A 3120 04672 140040 CRA 3121 04673 0 10 11471 JST OB00 OUTPUT DAC ST. NO. 3122 04674 0 10 02260 JST IR00 INPUT INTEGER VARIABLE 3123 04675 0400 40 LRL 32 3124 04676 0 02 13031 LDA K202 OUTPUT STA INSTRUCTION 3125 04677 0 01 05450 JMP R8A OUTPUT OA, GO TO C/R TEST 3126 04700 0 00 00000 T1W3 PZE ** TEMP STORE 3127 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 104

3128 * 3129 * 3130 * ************************ 3131 * *DO STATEMENT PROCESSOR* 3132 * ************************ 3133 * STACK INFO IN DO TABLE, OUTPUT DO INITIAL 3134 * CODE 3135 04701 0 00 00000 C9T0 PZE ** 3136 04702 0 10 02264 C9 JST IS00 INPUT STATEMENT = 3137 04703 0 10 02372 JST NR00 NON-REL TEST 3138 04704 0 02 00625 LDA A 3139 04705 0 04 04701 STA C9T0 TO = A 3140 04706 0 10 01152 JST UC00 UNINPUT COLUMN 3141 04707 0 10 02260 JST IR00 3142 04710 0 02 00753 LDA K153 3143 04711 0 10 02352 JST TS00 3144 04712 0 02 04701 LDA C9T0 (A) = T0 3145 04713 000201 IAB 3146 04714 0 10 06064 JST DP00 DO INPUT 3147 04715 0 10 06131 JST DS00 DO INITIALIZE 3148 04716 0 01 03635 JMP C5 GO TO ILLTERM 3149 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 105

3150 * 3151 * 3152 * ********** 3153 * *END FILE* 3154 * ********** 3155 * *********** 3156 * *BACKSPACE* 3157 * *REWIND * 3158 * *********** 3159 04717 0 02 04730 V6 LDA K71 3160 04720 0 04 00052 V6A STA NAMF+1 3161 04721 0 10 02501 JST NF00 SET UP NAMF 3162 04722 0 10 11337 JST OI00 OUTPUT I/O LINK 3163 04723 0 01 03637 JMP A1 GO TO C/R TEST 3164 04724 0 02 04731 V7 LDA K72 3165 04725 0 01 04720 JMP V6A 3166 04726 0 02 04732 V8 LDA K73 3167 04727 0 01 04720 JMP V6A 3168 04730 143316 K71 BCI 1,FN FN 3169 04731 142316 K72 BCI 1,DN 3170 04732 141316 K73 BCI 1,BN BN 3171 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 106

3172 * 3173 * 3174 * ************** 3175 * *READ * 3176 * *WRITE * 3177 * *INPUT FORMAT* 3178 * ************** 3179 * LIST ELEMENT DATA AND IMPLIED DO CONTROL 3180 * STACKED IN TRIAD TABLE. PROCESSED BY 3181 * OUTPUT TRIAD ROUTINE. SPECIAL OPERATORS 3182 * ARE -I = DO INITIALIZATION 3183 * T = DO TERMINATION 3184 * C = I/O ARG TRANSFER 3185 04733 153716 K40 BCI 1,WN 3186 04734 141702 K42 BCI 1,CB 3187 04735 0 02 02336 V5 LDA K41 F$RN 3188 04736 0 01 04740 JMP *+2 3189 04737 0 02 04733 V4 LDA K40 NAMF = F$WN 3190 04740 0 04 00052 STA NAMF+1 3191 04741 0 10 02501 JST NF00 SET UP REMAINING NAME 3192 04742 0 02 00642 LDA D 3193 04743 0 04 05115 STA V5T1 3194 04744 0 10 01157 JST CH00 INPUT CHAPACTER 3195 04745 0 02 14474 LDA K17 ='250......( 3196 04746 0 10 02352 JST TS00 (-TEST 3197 04747 0 10 11337 JST OI00 OUTPUT IO LINK 3198 04750 0 02 00067 LDA TC IF TC .NE. 0 3199 04751 0 07 00754 SUB K134 ='17 (,) 3200 04752 100040 SZE GO TO V5J 3201 04753 0 01 05112 JMP V5J 3202 04754 0 10 05116 JST V5X INPUT FORMAT 3203 04755 0 10 02360 V5B JST IP00 ) - INPUT OPERATOR 3204 04756 0 02 00067 LDA TC 3205 04757 0 07 00702 SUB CRET TEST FOR TC=C/R 3206 04760 100040 SZE 3207 04761 0 01 04770 JMP V5C NO, GO TO V5C 3208 04762 0 02 04734 V5B2 LDA K42 YES, NAMF = ND 3209 04763 0 04 00052 STA NAMF+1 3210 04764 0 10 11363 JST CN00 CALL NAME 3211 04765 0 02 05115 LDA V5T1 3212 04766 0 04 00642 STA D 3213 04767 0 01 03637 JMP A1 GO TO C/R TEST 3214 04770 0 10 01152 V5C JST UC00 3215 04771 140040 CRA 3216 04772 0 04 00707 STA IOF IOF = 0 3217 04773 0 10 02224 V5D JST II00 INPUT ITEM 3218 04774 100040 SZE 3219 04775 0 01 05012 JMP V5E IF (A) NOT 0, GO TO V5E 3220 04776 0 02 14474 LDA K17 3221 04777 0 10 02352 JST TS00 (-TEST
* NAME: FRTN DWG 70180463000 REV J PAGE 107

3222 05000 140040 CRA 3223 05001 0 04 00060 STA O2 O2 = 0 3224 05002 0 02 00707 LDA IOF 3225 05003 0 04 00057 STA O1 O1 = IOF 3226 05004 0 02 00760 LDA K142 ='27 3227 05005 0 04 00061 STA P 3228 05006 0 10 07470 JST ET00 3229 05007 0 02 00627 LDA L 3230 05010 0 04 00707 STA IOF IOF = L 3231 05011 0 01 04773 JMP V5D GO TO V5D 3232 05012 0 10 02407 V5E JST NC00 NON-CONSTANT TEST 3233 05013 0 02 00710 LDA IU IF IU NOT ARR 3234 05014 0 07 00737 SUB K103 3235 05015 100040 SZE 3236 05016 0 01 05061 JMP V5H GO TO V5H 3237 05017 0 02 00067 LDA TC 3238 05020 0 07 14474 SUB K17 IF TC NOT -(, 3239 05021 100040 SZE 3240 05022 0 01 05056 JMP V5G GO TO V5G 3241 05023 0 02 00737 LDA K103 3242 05024 140407 TCA 3243 05025 0 10 06225 JST EX00 3244 05026 0 02 00646 LDA TRFA 3245 05027 0 01 05031 JMP *+2 3246 05030 0 02 00625 V5E4 LDA A 3247 05031 0 04 00057 V5E5 STA O1 3248 05032 0 02 00625 LDA A 3249 05033 0 04 00060 STA O2 3250 05034 0 02 12423 LDA OM50 3251 05035 0 04 00061 STA P 3252 05036 0 10 07470 JST ET00 ENTER TRIAD 3253 05037 0 02 00067 V5E7 LDA TC IF TC = COMMA 3254 05040 0 07 00754 SUB K134 GO TO V5D 3255 05041 101040 SNZ 3256 05042 0 01 04773 JMP V5D 3257 05043 0 02 00707 LDA IOF I = IOF 3258 05044 0 04 00626 STA I 3259 05045 100040 SZE IF NOT ZERO, 3260 05046 0 01 05051 JMP V5F GO TO V5F 3261 05047 0 10 11701 JST OT00 OUTPUT TRIADS 3262 05050 0 01 04762 JMP V5B2 GO TO V5B2 3263 05051 0 10 02360 V5F JST IP00 )-INPUT OPERATOR 3264 05052 0 35 00626 LDX I 3265 05053 1 02 17401 LDA DP+1,1 3266 05054 0 04 00707 STA IOF IOF = O1 (I) 3267 05055 0 01 05037 JMP V5E7 3268 05056 0 02 00625 V5G LDA A 3269 05057 140500 SSM 3270 05060 0 01 05031 JMP V5E5 3271 05061 0 10 03274 V5H JST TV00 TAG VARIABLE
* NAME: FRTN DWG 70180463000 REV J PAGE 108

3272 05062 0 02 00067 LDA TC 3273 05063 0 07 00753 SUB K153 ='16 (=) 3274 05064 100040 SZE GO TO V5E5 3275 05065 0 01 05030 JMP V5E4 3276 05066 0 10 02433 JST IT00 INTEGER TEST 3277 05067 0 02 00707 LDA IOF 3278 05070 101040 SNZ IF IOF = ZERO OR L 3279 05071 0 01 05075 JMP V5H7 3280 05072 0 07 00627 SUB L 3281 05073 100040 SZE 3282 05074 0 01 05077 JMP *+3 ERROR 3283 05075 0 10 02615 V5H7 JST ER00 3284 05076 150322 BCI 1,PR PARENTHESES MISSING IN DO STATEMENT 3285 05077 0 10 06064 JST DP00 DO INPUT 3286 05100 0 02 00707 LDA IOF 3287 05101 0 04 00626 STA I 3288 05102 0 35 00626 LDX I 3289 05103 0 02 00642 LDA D 3290 05104 1 04 17400 STA DP,1 O2(IOF) = D 3291 05105 0 04 00060 STA O2 O2 = D 3292 05106 0 02 00761 LDA K143 ='30 3293 05107 0 04 00061 STA P 3294 05110 0 10 07470 JST ET00 ENTER TRIAD 'T'. 3295 05111 0 01 05051 JMP V5F 3296 05112 140040 V5J CRA 3297 05113 0 10 13243 JST OC00 OUTPUT ABSOLUTE 3298 05114 0 01 04755 JMP V5B 3299 05115 0 00 00000 V5T1 PZE 0 3300 05116 0 000000 V5X DAC ** INPUT FORMAT 3301 05117 0 10 02346 JST XN00 EXAM NEXT CHARACTER 3302 05120 100040 SZE 3303 05121 0 01 05126 JMP V5X5 GO TO INPUT ARRAY NAME 3304 05122 0 10 02264 JST IS00 INPUT STMNT NO. 3305 05123 0400 40 V5X2 LRL 32 OUTPUT DAC A 3306 05124 0 10 11471 JST OB00 OUTPUT OA 3307 05125 -0 01 05116 JMP* V5X RETURN 3308 05126 0 10 02242 V5X5 JST NA00 INPUT NAME 3309 05127 0 10 02424 JST AT00 ARRAY TEST 3310 05130 0 01 05123 JMP V5X2 3311 * 3312 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 109

3313 * 3314 * ************************** 3315 * *FORMAT * 3316 * *INPUT FORMAT STRING * 3317 * *INPUT NUMERIC FORMAT STR* 3318 * *NON ZERO TEST STRING * 3319 * ************************** 3320 05131 0 00 00000 T0V2 PZE 0 3321 05132 0 00 00000 T2V2 PZE 0 3322 005132 V2T2 EQU T2V2 3323 05133 0 02 14474 V2 LDA K17 3324 05134 0 10 11444 JST OK00 OUTPUT RACK 3325 05135 140040 CRA 3326 05136 0 04 05131 STA T0V2 T0 = 0 3327 05137 0 02 00653 LDA LSTP IF LSTOP .NE. 0 3328 05140 100040 SZE 3329 05141 0 01 05270 JMP V2K GO TO V2K 3330 05142 0 10 05320 V2A JST SI00 INPUT FORMAT STRING 3331 05143 100040 SZE 3332 05144 0 01 05154 JMP V2B 3333 05145 0 02 00067 V2A1 LDA TC 3334 05146 0 07 00716 SUB K12 IF TC NOT MINUS 3335 05147 100040 SZE 3336 05150 0 01 05232 JMP V2F GO TO V2F 3337 05151 0 10 05313 JST IN00 INPUT NUMERIC FORMAT STRING 3338 05152 140040 CRA 3339 05153 0 04 00774 STA TID TID = 0 3340 05154 0 02 00067 V2B LDA TC IF TC .NE. P 3341 05155 0 07 05364 SUB K46 3342 05156 100040 SZE 3343 05157 0 01 05261 JMP V2H GO TO V2H 3344 05160 0 10 05320 JST SI00 INPUT FORMAT STRING 3345 05161 100040 SZE 3346 05162 0 10 05305 JST NZ00 IF (A) .NE. 0 3347 05163 0 02 00067 V2C LDA TC 3348 05164 0 11 00763 CAS K52 IF TC = D,E,F, OR G 3349 05165 101000 NOP 3350 05166 0 01 05170 JMP *+2 3351 05167 0 01 05200 JMP V2DA 3352 05170 0 11 05367 CAS K53 3353 05171 0 01 05221 JMP V2E2 3354 05172 101000 NOP 3355 05173 0 10 05313 JST IN00 INPUT NUMERIC FORMAT STRING 3356 05174 0 10 05305 JST NZ00 NON-ZERO STRING TEST 3357 05175 0 02 00661 LDA K10 3358 05176 0 10 02352 JST TS00 PERIOD TEST 3359 05177 0 10 05313 JST IN00 INPUT NUMERIC FORMAT STRING 3360 05200 0 02 00067 V2DA LDA TC IF TC = ) 3361 05201 0 07 00657 SUB K4 3362 05202 100040 SZE
* NAME: FRTN DWG 70180463000 REV J PAGE 110

3363 05203 0 01 05214 JMP V2E 3364 05204 0 10 01157 JST CH00 3365 05205 0 10 11444 JST OK00 INPUT CHAR AND OUTPUT PACK 3366 05206 0 02 05131 LDA T0V2 IF F4 + ( = ( 3367 05207 0 07 00735 SUB K101 GO TO V2E 3368 05210 0 04 05131 STA T0V2 3369 05211 100400 SPL 3370 05212 0 01 03637 JMP V2N ELSE, 3371 05213 0 01 05200 JMP V2DA 3372 * GO TO C/R TEST 3373 05214 0 02 00067 V2E LDA TC IF TC =, 3374 05215 0 07 00734 SUB K5 3375 05216 101040 SNZ 3376 05217 0 01 05142 JMP V2A GO TO V2A 3377 05220 0 02 00720 LDA K9 3378 05221 0 10 02352 V2E2 JST TS00 / TEST 3379 05222 0 01 05142 JMP V2A 3380 05223 0 10 05320 V2E5 JST SI00 INPUT FORMAT STRING 3381 05224 100040 SZE IF (A) NOT 0, 3382 05225 0 01 05154 JMP V2B GO TO V2B 3383 05226 0 02 00037 LDA DFL IF DFL .NE. ZERO, 3384 05227 100040 SZE 3385 05230 0 01 05200 JMP V2DA GO TO V2DA 3386 05231 0 01 05145 JMP V2A1 3387 05232 0 02 00067 V2F LDA TC IF TC = H 3388 05233 0 11 14501 CAS K48 3389 05234 0 01 05236 JMP *+2 3390 05235 0 01 05352 JMP V2P GO TO V2P 3391 05236 0 11 05365 CAS K47 3392 05237 0 01 05241 JMP *+2 3393 05240 0 01 05223 JMP V2E5 3394 05241 0 11 14474 CAS K17 IF TC = (, 3395 05242 0 01 05244 JMP *+2 3396 05243 0 01 05355 JMP V2Q GO TO V2Q 3397 05244 0 02 00067 LDA TC IF TC .NE. A,I, OR L 3398 05245 0 11 00755 CAS K49 A 3399 05246 0 01 05250 JMP *+2 3400 05247 0 01 05256 JMP V2G 3401 05250 0 11 00664 CAS K50 I 3402 05251 0 01 05253 JMP *+2 3403 05252 0 01 05256 JMP V2G 3404 05253 0 07 05366 SUB K51 L 3405 05254 100040 SZE 3406 05255 0 01 05163 JMP V2C 3407 05256 0 10 05313 V2G JST IN00 INPUT NUMERIC FORMAT STRING 3408 05257 0 10 05305 JST NZ00 NON-ZERO STRING TEST 3409 05260 0 01 05200 JMP V2DA 3410 05261 0 10 05305 V2H JST NZ00 NON-ZERO STRING TEST 3411 05262 0 02 00067 LDA TC IF TC = H, 3412 05263 0 07 14501 SUB K48
* NAME: FRTN DWG 70180463000 REV J PAGE 111

3413 05264 100040 SZE 3414 05265 0 01 05232 JMP V2F 3415 05266 0 10 06046 V2J JST HS00 TRANSMIT HOLLERITH STRING 3416 05267 0 01 05223 JMP V2E5 GO TO V2E5 3417 05270 0 02 00651 V2K LDA LSTN IF LSTN = 0, 3418 05271 100040 SZE 3419 05272 0 01 05275 JMP *+3 3420 05273 0 10 02615 JST ER00 ERROR, NO PATH 3421 05274 147306 BCI 1,NF NO REFERENCE TO FORMAT STATEMENT 3422 05275 0 02 00643 LDA RPL LIF = RPL 3423 05276 0 04 00650 STA LIF 3424 05277 140040 CRA 3425 05300 0 04 00625 STA A 3426 05301 0 04 00025 STA AF 3427 05302 0 02 13026 LDA K201 = JMP 0 3428 05303 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 3429 05304 0 01 05142 JMP V2A GO TO V2A 3430 * 3431 05305 0 000000 NZ00 DAC ** 3432 05306 0 02 00774 LDA TID 3433 05307 100040 SZE 3434 05310 -0 01 05305 JMP* NZ00 3435 05311 0 10 02615 NZ10 JST ER00 3436 05312 147332 BCI 1,NZ NON-ZERO STRING TEST FAILED 3437 05313 0 000000 IN00 DAC ** 3438 05314 0 10 05320 JST SI00 (A) = 0 IS ERROR CONDITION 3439 05315 100040 SZE 3440 05316 -0 01 05313 JMP* IN00 3441 05317 0 01 05311 JMP NZ10 3442 05320 0 000000 SI00 DAC ** 3443 05321 140040 CRA 3444 05322 0 04 00774 STA TID ID = T2 = O 3445 05323 0 04 05132 SI05 STA V2T2 3446 05324 0 10 01157 JST CH00 INPUT CHAR 3447 05325 0 10 11444 JST OK00 OUTPUT PACK 3448 05326 0 02 00067 LDA TC 3449 05327 0 07 00665 SUB K60 ASC-2 ZERO 3450 05330 0 11 00745 CAS K124 3451 05331 0 01 05346 JMP SI10 3452 05332 101000 NOP 3453 05333 100400 SPL 3454 05334 0 01 05346 JMP SI10 3455 05335 0 04 00067 STA TC 3456 05336 0 02 00774 LDA TID TID = 10*TID+TC 3457 05337 0415 75 ALS 3 3458 05340 0 06 00774 ADD TID 3459 05341 0 06 00774 ADD TID 3460 05342 0 06 00067 ADD TC 3461 05343 0 04 00774 STA TID 3462 05344 0 02 00735 LDA K101 T2 =1
* NAME: FRTN DWG 70180463000 REV J PAGE 112

3463 05345 0 01 05323 JMP SI05 3464 05346 0 02 05132 SI10 LDA V2T2 (A) = ERROR CONDITION OR NOT 3465 05347 -0 01 05320 JMP* SI00 3466 05350 0 10 02615 V2M JST ER00 3467 05351 143322 BCI 1,FR FORMAT STATEMENT ERROR 3468 003637 V2N EQU A1 3469 05352 0 02 00735 V2P LDA K101 3470 05353 0 04 00774 STA ID ID = 1 3471 05354 0 01 05266 JMP V2J GO TO V2J 3472 05355 0 02 05131 V2Q LDA T0V2 3473 05356 141206 AOA 3474 05357 0 04 05131 STA T0V2 3475 05360 0 07 00737 SUB K103 3476 05361 100040 SZE 3477 05362 0 01 05142 JMP V2A 3478 05363 0 01 05350 JMP V2M 3479 05364 000320 K46 OCT 320 0P 3480 05365 000330 K47 OCT 330 0X 3481 05366 000314 K51 OCT 314 0L 3482 000763 K52 EQU K11 0D 3483 05367 000307 K53 OCT 307 0G 3484 000664 K50 EQU K43 0I 3485 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 113

3486 * 3487 * 3488 * ******* 3489 * *STOP * 3490 * *PAUSE* 3491 * ******* 3492 * PAUSE AND STOP GENERATE CALLS TO F$HT 3493 05370 0 00 00000 T1W7 PZE 0 3494 05371 0 02 14275 W7 LDA K55 3495 05372 0 04 05370 W7A STA T1W7 3496 05373 0 02 05434 LDA K74 3497 05374 0 04 00052 STA NAMF+1 NAMF = F$HT 3498 05375 0 10 02501 JST NF00 SET-UP REMAINING CHAR OF NAME 3499 05376 0 10 02346 JST XN00 EXAMINE NEXT CHAR 3500 05377 0 02 00067 LDA TC 3501 05400 0 07 00702 SUB CRET 3502 05401 101040 SNZ 3503 05402 0 01 05407 JMP W7C TC = C/R - NOTING FOLLOWING 3504 05403 0 10 02253 JST IV00 INPUT INTEGER/VARIABLE 3505 05404 0400 40 LRL 32 3506 05405 0 02 13030 LDA K200 OUTPUT LDA 3507 05406 0 10 11471 JST OB00 OUTPUT OA 3508 05407 0 10 11363 W7C JST CN00 CALL NAME 3509 05410 140040 CRA 3510 05411 0 04 00035 STA DF DF = 0 3511 05412 0 02 05370 LDA T1W7 3512 05413 0 04 00774 STA ID 3513 05414 0 10 03612 JST AI00 ASSIGN INTEGER CONSTANT 3514 05415 140040 CRA OUTPUT DAC 3515 05416 0 10 11471 JST OB00 OUTPUT OA OF ST/PA OR HT 3516 05417 0 02 05370 LDA T1W7 3517 05420 0 07 14276 SUB K54 3518 05421 101040 SNZ 3519 05422 0 01 03635 JMP C5 PA-NOT THE CASE 3520 05423 0 02 00643 LDA RPL 3521 05424 0 04 00025 STA AF OUTPUT JMP * 3522 05425 140040 CRA 3523 05426 0 04 00625 STA A CAUSE LISTING TO HAVE OCTAL ADDRESS 3524 05427 0 02 13026 LDA K201 3525 05430 0 10 13072 JST OR00 OUTPUT RELATIVE 3526 05431 0 01 03633 JMP B6 3527 05432 0 02 14276 W8 LDA K54 3528 05433 0 01 05372 JMP W7A 3529 05434 144324 K74 BCI 1,HT HT 3530 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 114

3531 * 3532 * 3533 * R8 CALL 3534 * GENERATES CALL DIRECTLY OR USES EXPRESSION TO 3535 * ANALYZE AN ARGUMENT LIST. 3536 05435 0 10 02341 R8 JST SY00 INPUT SYMBOL 3537 05436 0 10 03222 JST TG00 TAG SUB PROGRAM 3538 05437 0 02 00067 LDA TC 3539 05440 0 07 14474 SUB K17 ='250 ( ( ) 3540 05441 100040 SZE 3541 05442 0 01 05445 JMP *+3 3542 05443 0 02 00676 LDA K123 SET A=-1 BEFORE EXPRESSION 3543 05444 0 01 05461 JMP G2A 3544 05445 140040 CRA 3545 05446 000201 IAB (B)=0 3546 05447 0 02 13023 LDA OMI2 =JST INSTR. 3547 05450 0 10 11471 R8A JST OB00 OUTPUT OA 3548 05451 0 01 03637 JMP A1 CR TEST 3549 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 115

3550 * ********************** 3551 * *ASSIGNMENT STATEMENT* 3552 * ********************** 3553 05452 0 02 00740 G2 LDA K104 3554 05453 0 10 04272 JST NP00 FIRST NON-SPEC CHECK 3555 05454 0 10 02224 JST II00 INPUT VARIABLE NAME 3556 05455 0 02 00054 LDA NT INSURE NOT CONSTANT (I.E. 1=2) 3557 05456 100040 SZE X 3558 05457 0 01 02247 JMP NA7X ERROR...ATTEMPT TO REDEFINE A CONSTANT 3559 05460 0 02 00713 LDA MIN2 SET A=-2 BEFORE EXPRESSION 3560 05461 0 10 06225 G2A JST EX00 3561 05462 0 01 03637 JMP A1 3562 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 116

3563 * 3564 * 3565 * ******** 3566 * *RETURN* 3567 * ******** 3568 * OPTIMIZES EXIT CODING FOR FUNCTIONS TO MINIMIZE 3569 * FETCHES OF THE FUNCTION VALUE. 3570 05463 0 02 00632 R9 LDA SBF A = SBF. 3571 05464 0 04 00625 STA A IF ZERO, (O TO ERROR 3572 05465 100040 SZE 3573 05466 0 01 05471 JMP *+3 3574 05467 0 10 02615 JST ER00 3575 05470 151324 BCI 1,RT RETURN NOT ALLOWED IN MAIN PROGRAM 3576 05471 0 02 00631 LDA SFF ELSE, IF SFF = O, 3577 05472 101040 SNZ 3578 05473 0 01 05501 JMP R9C GO TO R9C 3579 05474 000201 IAB OUTPUT LOAD OF FUNCTION NAME 3580 05475 0 02 00643 LDA RPL SFF = RPL 3581 05476 0 04 00631 STA SFF 3582 05477 0 02 12427 LDA K152 OUTPUT ITEM (F,A) 3583 05500 0 10 12247 JST OM00 3584 05501 0400 40 R9C LRL 32 3585 05502 0 04 00625 STA A SET FOR OCTAL ADDRESS IN LISTING 3586 05503 0 04 00025 STA AF SET RELATIVE ADDRESS TO ZERO 3587 05504 0 02 13033 LDA K206 JUMP I, 0 3588 05505 0 10 13072 JST OR00 OUTPUT REL 3589 05506 0 01 03633 JMP B6 EXIT 3590 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 117

3591 * 3592 * 3593 * ******************** 3594 * *STATEMENT FUNCTION* 3595 * ******************** 3596 * OLD ASSIGN VALUES ARE SAVED IN SFTB AND ARE 3597 * RESTORED AT COMPLETION. 3598 05507 0 02 00737 G1 LDA K103 (A) = 3 3599 05510 0 10 04272 JST NP00 FIRST NON-SPEC CHECK 3600 05511 0 10 02341 JST SY00 INPUT SYMBOL 3601 05512 0 10 03604 JST LO00 DEFINE LOCATION 3602 05513 0 02 00737 LDA K103 3603 05514 0 04 00642 STA D INITIALIZE DO PTR. 3604 05515 0 10 07514 JST GE00 GENERATE SUBPROGRAM ENTRANCE 3605 05516 0 02 00753 LDA K153 '=' TEST 3606 05517 0 10 02352 JST TS00 3607 05520 0 10 02224 JST II00 INPUT ITEM 3608 05521 140040 CRA 3609 05522 0 10 06225 JST EX00 EXPRESSION 3610 05523 0 12 00635 IRS TCF TCF = TCF+1 3611 05524 0 02 00642 G1A LDA D LOOP TO RESTORE ASSIGN TABLE ENTRY DATA 3612 05525 0 07 00737 SUB K103 3613 05526 0 04 00642 STA D DECREMENT D 3614 05527 101040 SNZ 3615 05530 0 01 05546 JMP G1B JMP IF DONE 3616 05531 0 06 00655 ADD DO OTHERWISE SET I=DO+D 3617 05532 0 04 00626 STA I 3618 05533 0 04 00000 STA 0 3619 05534 1 02 17401 LDA DP+1,1 3620 05535 0 04 00625 STA A SET A OF ENTRY 3621 05536 1 02 17403 LDA DP+3,1 3622 05537 0 35 00625 LDX A SET R TO A 3623 05540 1 04 17400 STA DP,1 3624 05541 0 35 00626 LDX I SET R TO I 3625 05542 1 02 17402 LDA DP+2,1 3626 05543 0 35 00625 LDX A SET R TO A 3627 05544 1 04 17401 STA DP+1,1 3628 05545 0 01 05524 JMP G1A NO, GO TO G1A 3629 05546 0 02 04271 G1B LDA T1NP RESTORE A TO FUN NAME 3630 05547 0 04 00625 STA A 3631 05550 0410 60 LLL 16 3632 05551 0 02 13033 LDA OMJ1 3633 05552 0 10 11471 JST OB00 3634 05553 0 10 03222 JST TG00 TAG SUBPROGRAM 3635 05554 0 01 03637 JMP A1 GO TO C/R TEST 3636 * - W5 END 3637 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 118

3638 * *************** 3639 * *END PROCESSOR* 3640 * *************** 3641 * FIRST CHECK SUBPROGRAMS FOR CORRECT USAGE, THEN 3642 * GENERATE MAP AND STRING BACK VARIABLES 3643 * AND CONSTANTS. 3644 05555 0 00 00000 T1W5 PZE 3645 05556 0 02 00644 W5 LDA BDF IF BLOCK DATA, 3646 05557 100040 SZE 3647 05560 0 01 05672 JMP W5K GO TO W5K 3648 05561 0 02 00632 LDA SBF IF SBF NOT ZERO 3649 05562 0 04 00625 STA A INDICATES SUBROUTINES 3650 05563 100040 SZE OR FUNCTION, 3651 05564 0 01 05700 JMP W5M GO TO W5M 3652 05565 140040 W5B CRA 3653 05566 0 04 00625 STA A A=J=0 3654 05567 0 01 05612 JMP W5H 3655 05570 0 10 03317 W5D JST FA00 FETCH ASSIGNS 3656 05571 0 35 00625 LDX A 3657 05572 0 02 00054 LDA NT 3658 05573 100040 SZE IF NT=1 (CONSTANT) 3659 05574 0 01 05721 JMP W5O GO T0 W5O 3660 05575 0 02 00710 LDA IU 3661 05576 0 07 00735 SUB K101 IF IU=1 3662 05577 100040 SZE INDICATES VARIABLE, 3663 05600 0 01 05776 JMP W5T GO TO W5T 3664 05601 0 02 00643 W5F LDA RPL SAVE RPL 3665 05602 0 04 05555 STA T1W5 RPL=-AF (INHIBIT LISTING) 3666 05603 0 02 00025 LDA AF 3667 05604 140500 SSM 3668 05605 0 04 00643 STA RPL 3669 05606 140040 CRA 3670 05607 0 10 13072 JST OR00 OUTPUT REL 3671 05610 0 02 05555 LDA T1W5 RESTORE RPL 3672 05611 0 04 00643 STA RPL 3673 005612 W5H EQU * 3674 05612 0 02 01060 LDA LIBF CHECK IF DIAGNOSTIC DUMPS REQUESTED 3675 05613 0416 75 ALR 3 MOVE BIT 4 TO SIGN BIT 3676 05614 101400 SMI 3677 05615 0 01 05645 JMP W5I IF NOT. OMIT TABLE OUTPUT 3678 05616 0 10 13321 JST PRSP 3679 05617 0 02 00625 LDA A 3680 05620 0 10 13272 JST OR80 3681 05621 0 013746 DAC PRI+2 3682 05622 0 35 00625 LDX A 3683 05623 1 02 17404 LDA DP+4,1 3684 05624 0 10 13272 JST OR80 3685 05625 0 013753 DAC PRI+7 3686 05626 1 02 17403 LDA DP+3,1 3687 05627 0 10 13272 JST OR80
* NAME: FRTN DWG 70180463000 REV J PAGE 119

3688 05630 0 013757 DAC PRI+11 3689 05631 1 02 17402 LDA DP+2,1 3690 05632 0 10 13272 JST OR80 3691 05633 0 013763 DAC PRI+15 3692 05634 1 02 17401 LDA DP+1,1 3693 05635 0 10 13272 JST OR80 3694 05636 0 013767 DAC PRI+19 3695 05637 1 02 17400 LDA DP,1 3696 05640 0 10 13272 JST OR80 3697 05641 0 013773 DAC PRI+23 3698 05642 0 10 00000 CALL F4$SYM 3699 05643 0 013744 DAC PRI 3700 05644 0 10 13321 JST PRSP SET TO SPACES AFTER PRINTING 3701 05645 0 02 00625 W5I LDA A A=A+5 3702 05646 0 06 00741 ADD K105 3703 05647 0 04 00625 STA A 3704 05650 0 07 00637 SUB ABAR IF A=ABAR, (DONE) 3705 05651 0 07 00741 SUB K105 3706 05652 100040 SZE 3707 05653 0 01 05570 JMP W5D ELSE, GO TO W5D 3708 05654 0 10 13531 W5J JST FS00 FLUSH BUFFER 3709 05655 0 02 00632 LDA SBF 3710 05656 100040 SZE 3711 05657 0 02 00667 LDA W5Z1 3712 05660 0 05 00675 ERA W5Z2 3713 05661 0 04 13650 STA OCI 3714 05662 0 02 00632 LDA SBF 3715 05663 100040 SZE 3716 05664 0 02 00672 LDA W5Z3 3717 05665 0 04 13651 STA OCI+1 3718 05666 0 02 00742 LDA K106 3719 05667 0 04 00063 STA OCNT 3720 05670 0 10 13531 JST FS00 3721 05671 0 01 01005 JMP A051 GO TO INITIALIZE 3722 05672 0 02 00643 W5K LDA RPL IF RPL NOT ZERO, 3723 05673 101040 SNZ 3724 05674 0 01 05654 JMP W5J 3725 05675 0 10 02615 JST ER00 ERROR IN A BLOCK DATA SUBPROGRAM 3726 05676 041304 VFD 1,0,7,'302,8,'304 ASCII 'BD' WITH SIGN BIT + 3727 05677 0 01 05654 JMP W5J 3728 05700 0 10 03317 W5M JST FA00 FETCH ASSIGNS 3729 05701 0 02 00631 LDA SFF IF FUNCTION, 3730 05702 100040 SZE 3731 05703 0 01 05712 JMP W5N GO TO W5N 3732 05704 0 10 02401 JST NU00 NO USE TEST 3733 05705 0 35 00625 LDX A 3734 05706 1 02 17400 LDA DP,1 IF NO ERROR, 3735 05707 140500 SSM NT(A)=1 3736 05710 1 04 17400 STA DP,1 3737 05711 0 01 05565 JMP W5B GO TO W5B
* NAME: FRTN DWG 70180463000 REV J PAGE 120

3738 05712 0 02 00710 W5N LDA IU 3739 05713 0 07 00736 SUB K102 IU MUST BE VAR/CON, 3740 05714 101040 SNZ ELSE, 3741 05715 0 01 05565 JMP W5B 3742 05716 0 10 02615 JST ER00 NAME NOT DEFINED BY AN ARITH.STMT. ERROR 3743 05717 043304 VFD 1,0,7,'306,8,'304 ASCII 'FD' WITH SIGN BIT + 3744 05720 0 01 05565 JMP W5B 3745 05721 0 02 00710 W5O LDA IU IF IU=VAR/CCN 3746 05722 0 07 00736 SUB K102 3747 05723 100040 SZE 3748 05724 0 01 05612 JMP W5H 3749 05725 0 02 00026 LDA AT AND AT = STR/REL 3750 05726 0 07 00737 SUB K103 A "STRING" REQ'D. 3751 05727 100040 SZE 3752 05730 0 01 05612 JMP W5H 3753 05731 0 02 00030 W5P LDA D0 IF D0 IS 4, THE 3754 05732 0 07 00740 SUB K104 CONSTANT IS COMPLEX, 3755 05733 100040 SZE OTHERWISE 3756 05734 0 01 05754 JMP W5Q GO TO W5Q 3757 05735 0 02 00025 LDA AF 3758 05736 0 10 13257 JST OS00 OUTPUT STRING 3759 05737 0 35 00625 LDX A 3760 05740 1 02 17402 LDA DP+2,1 OUTPUT 4 WORDS 3761 05741 0 10 06036 JST W5X OF CONSTANT 3762 05742 1 02 17403 LDA DP+3,1 3763 05743 0 10 06036 JST W5X 3764 05744 0 02 00054 LDA NT 3765 05745 101040 SNZ 3766 05746 0 01 05763 JMP W5S 3767 05747 0 02 00625 LDA A INCREMENT A 3768 05750 0 06 00741 ADD K105 3769 05751 0 04 00625 STA A 3770 05752 0 35 00625 LDX A 3771 05753 0 01 05763 JMP W5S 3772 05754 0 02 00025 W5Q LDA AF 3773 05755 0 10 13257 JST OS00 OUTPUT STRING 3774 05756 0 35 00625 LDX A 3775 05757 0 02 00030 LDA D0 IF DO=1, 3776 05760 0 07 00735 SUB K101 INDICATES INTEGER, OR LOGICAL 3777 05761 101040 SNZ 3778 05762 0 01 05773 JMP W5R GO TO W5R 3779 05763 1 02 17402 W5S LDA DP+2,1 OUTPUT TWO WORDS 3780 05764 0 10 06036 JST W5X FLOATING POINT CONSTANT 3781 05765 1 02 17403 LDA DP+3,1 3782 05766 0 10 06036 JST W5X 3783 05767 0 02 00030 LDA D0 IF DOUBLE PRECISION, 3784 05770 0 07 00737 SUB K103 3785 05771 100040 SZE 3786 05772 0 01 05612 JMP W5H 3787 05773 1 02 17404 W5R LDA DP+4,1 OUTPUT THE 3RD WORD
* NAME: FRTN DWG 70180463000 REV J PAGE 121

3788 05774 0 10 06036 JST W5X 3789 05775 0 01 05612 JMP W5H GO TO W5H 3790 05776 0 02 00026 W5T LDA AT 3791 05777 0 11 00737 CAS K103 3792 06000 0 01 05601 JMP W5F STRUNG VARIABLE (IU=NON 0) 3793 06001 0 01 06013 JMP W5T5 3794 06002 0 11 00736 CAS K102 TEST FOR STG ABS ADDRESS 3795 06003 017400 W5U OCT 17400 3796 06004 0 01 06006 JMP *+2 3797 06005 0 01 05601 JMP W5F NO 3798 06006 1 02 17404 LDA DP+4,1 TEST FOR PREFIX G 3799 06007 0 03 06003 ANA W5U 3800 06010 0 07 06003 SUB W5U 3801 06011 100040 SZE 3802 06012 0 01 05601 JMP W5F STRUNG VARIABLE (IU=NON 0) 3803 06013 0 02 00710 W5T5 LDA IU 3804 06014 100040 SZE 3805 06015 0 01 05731 JMP W5P 3806 06016 0 10 13321 JST PRSP BLANK OUT BUFFER 3807 06017 0 35 00625 LDX A ASSIGNMENT POINTER TO PRESENT ITEM 3808 06020 1 02 17404 LDA DP+4,1 FIRST WORD OF UNDEFINFD STATEMENT NAME 3809 06021 0 03 00670 ANA K111 RESET FIRST TWO BITS USED AS FLAGS 3810 06022 0 05 00703 ERA HBIT X 3811 06023 0 04 13753 STA PRI+7 SAVE IN PRINT BUFFER 3812 06024 1 02 17403 LDA DP+3,1 FETCH AND SAVE NEXT TWO CHARACTERS 3813 06025 0 04 13754 STA PRI+8 X 3814 06026 1 02 17402 LDA DP+2,1 FETCH AND SAVE LAST TWO CHARACTERS 3815 06027 0 04 13755 STA PRI+9 X 3816 06030 0 02 06033 LDA SUED SET ERROR SUBROUTINE FOR A RETURN 3817 06031 0 04 02615 STA ER00 X 3818 06032 0 01 02617 JMP ER04 ENTER IT AFTER BUFFER IS BLANKED 3819 06033 0 006034 SUED DAC SUID STATEMENT UNDEFINED ERROR DAC 3820 06034 052723 SUID VFD 1,0,7,'325,8,'323 ASCII 'US' WITH SIGN BIT + 3821 06035 0 01 05731 JMP W5P 3822 06036 0 000000 W5X DAC ** 3823 06037 0 10 13243 JST OC00 OUTPUT ABS 3824 06040 0 35 00625 LDX A 3825 06041 -0 01 06036 JMP* W5X EXIT 3826 000667 W5Z1 EQU K100 OOO377 3827 000675 W5Z2 EQU K122 040000 3828 000672 W5Z3 EQU K116 177400 3829 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 122

3830 * 3831 * 3832 * 3833 * 3834 * 3835 * ************************ 3836 * *INPUT CHAR/OUTPUT PACK* 3837 * ************************ 3838 06042 0 000000 PO00 DAC ** 3839 06043 0 10 01157 JST CH00 INPUT CHAR 3840 06044 0 10 11444 JST OK00 OUTPUT PACK 3841 06045 -0 01 06042 JMP* PO00 RETURN 3842 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 123

3843 * ************************ 3844 * *TRANS HOLLERITH STRING* 3845 * ************************ 3846 * FORM HOLLERITH STRING. CHARACTER COUNT IN ID ON 3847 * ENTRY. C/R WILL ALSO TERMINATE STRING. 3848 06046 0 000000 HS00 DAC ** 3849 06047 0 10 01061 HS10 JST IC00 INPUT 1 CHARACTER 3850 06050 0 11 00702 CAS CRET CHECK FOR CHAR = C/R 3851 06051 0 01 06053 JMP *+2 3852 06052 0 01 06062 JMP HS15 HOLLERITH STRING EXTENDS PAST END OF CARD 3853 06053 0 10 11444 JST OK00 OUTPUT PACK THE CHARACTER 3854 06054 0 02 00774 LDA ID 3855 06055 0 07 00735 SUB K101 REDUCE CHARACTER COUNT BY 1 3856 06056 0 04 00774 STA ID 3857 06057 100040 SZE 3858 06060 0 01 06047 JMP HS10 INPUT MORE CHARACTERS 3859 06061 -0 01 06046 JMP* HS00 3860 06062 0 10 02615 HS15 JST ER00 3861 06063 144323 BCI 1,HS HOLLERITH STRING EXTENDS OVER STATEMENT 3862 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 124

3863 * 3864 * 3865 * ********** 3866 * *DO INPUT* 3867 * ********** 3868 * SET UP DO TABLE ENTRIES. 3869 06064 0 000000 DP00 DAC ** 3870 06065 0 02 00642 LDA D D = D+5 3871 06066 0 06 00741 ADD K105 IFLG = NON-ZERO 3872 06067 0 04 00077 STA IFLG 3873 06070 0 04 00642 STA D 3874 06071 0 06 00655 ADD DO I = DO+D 3875 06072 0 04 00626 STA I 3876 06073 0 35 00626 LDX I 3877 06074 0 02 00625 LDA A DP (I-4) = (B) 3878 06075 1 04 17376 STA DP-2,1 DP (I-2) = A 3879 06076 000201 IAB 3880 06077 1 04 17374 STA DP-4,1 3881 06100 0 10 02253 JST IV00 INPUT INT VAR/CON 3882 06101 0 02 00754 LDA K134 = , 3883 06102 0 10 02352 JST TS00 COMMA TEST 3884 06103 0 35 00626 LDX I 3885 06104 0 02 00625 LDA A 3886 06105 1 04 17400 STA DP,1 DP(I) = INITIAL VALUE POINTER 3887 06106 0 10 02253 JST IV00 INPUT INT VAR/CON 3888 06107 0 35 00626 LDX I 3889 06110 0 02 00625 LDA A 3890 06111 1 04 17377 STA DP-1,1 DP (I-1) = A - FINAL VALUE POINTER 3891 06112 0 02 00067 LDA TC 3892 06113 0 07 00754 SUB K134 = , 3893 06114 100040 SZE IF THIRD TERM 3894 06115 0 01 06125 JMP DP20 3895 06116 0 10 02253 JST IV00 READ AND ASSIGN, 3896 06117 0 35 00626 DP10 LDX I 3897 06120 0 02 00625 LDA A 3898 06121 1 04 17375 STA DP-3,1 DP(I-3) = INCREMENT POINTER 3899 06122 140040 CRA 3900 06123 0 04 00077 STA IFLG CLEAR IFLAG 3901 06124 -0 01 06064 JMP* DP00 EXIT 3902 06125 0 02 00735 DP20 LDA K101 3903 06126 0 04 00774 STA ID THIRD TERM = 1 3904 06127 0 10 03612 JST AI00 ASSIGN CONSTANT 3905 06130 0 01 06117 JMP DP10 3906 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 125

3907 * *************** 3908 * *DO INITIALIZE* 3909 * *************** 3910 * GENERATE DO INITIALIZATION CODE. 3911 06131 0 000000 DS00 DAC ** 3912 06132 0 35 00626 LDX I 3913 06133 1 02 17400 LDA DP,1 A = DP (I) 3914 06134 0 04 00625 STA A 3915 06135 0 02 13030 LDA K200 3916 06136 0 10 06146 JST DS20 LOAD - LDA INITIAL VALUE 3917 06137 1 02 17376 LDA DP-2,1 3918 06140 0 04 00625 STA A A = DP (1-2) 3919 06141 0 02 00643 LDA RPL 3920 06142 1 04 17400 STA DP,1 SET RETURN ADDRESS INTO DP(I) 3921 06143 0 02 13031 LDA K202 3922 06144 0 10 06146 JST DS20 STORE - STA VARIABLE NAME 3923 06145 -0 01 06131 JMP* DS00 3924 * OUTPUT OA SUBROUTINE 3925 06146 0 000000 DS20 DAC ** 3926 06147 000201 IAB 3927 06150 0410 60 LLL 16 SET B = O 3928 06151 0 10 11471 JST OB00 OUTPUT OA 3929 06152 0 35 00626 LDX I RESTORE I 3930 06153 -0 01 06146 JMP* DS20 RETURN 3931 * 3932 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 126

3933 * 3934 * **************** 3935 * *DO TERMINATION* 3936 * **************** 3937 * GENERATE DO TERMINATION CODE. 3938 06154 0 00 00000 DS90 PZE 0 3939 06155 0 000000 DQ00 DAC ** 3940 06156 0 35 00626 LDX I 3941 06157 1 02 17376 LDA DP-2,1 3942 06160 0 04 00625 STA A 3943 06161 0 02 13030 LDA K200 3944 06162 0 10 06146 JST DS20 OUTPUT LDA VARIABLE NAME 3945 06163 1 02 17375 LDA DP-3,1 3946 06164 0 04 00625 STA A 3947 06165 0 02 13025 LDA K203 3948 06166 0 10 06146 JST DS20 OUTPUT ADD INCREMENT 3949 06167 0 02 13043 LDA OMK2 3950 06170 0 10 13235 JST OQ00 OUTPUT SSC 3951 06171 0 35 00626 LDX I 3952 06172 1 02 17377 LDA DP-1,1 3953 06173 0 04 00625 STA A 3954 06174 0 02 13056 LDA OMK9 3955 06175 0 10 06146 JST DS20 OUTPUT CAS FINAL VALUE 3956 06176 140040 CRA 3957 06177 0 04 00625 STA A 3958 06200 0 02 00643 LDA RPL 3959 06201 0 06 00737 ADD K103 3960 06202 0 04 00025 STA AF 3961 06203 1 02 17400 LDA DP,1 3962 06204 0 04 06154 STA DS90 3963 06205 0 02 13026 LDA OMI5 JUMP *+3 3964 06206 0 10 13072 JST OR00 OUTPUT REL 3965 06207 0 02 06154 LDA DS90 3966 06210 0 04 00025 STA AF 3967 06211 0 02 13026 LDA OMI5 JMP RPL (SAVED) - POINTS T0 'STA' INST. 3968 06212 0 10 13072 JST OR00 OUTPUT REL 3969 06213 0 02 13026 LDA OMI5 OUTPUT JMP RPL (SAVED) 3970 06214 0 10 13072 JST OR00 OUTPUT REL 3971 06215 -0 01 06155 JMP* DQ00 3972 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 127

3973 * ************ 3974 * *EXPRESSION* 3975 * ************ 3976 * THE RESULTANT OUTPUT IS A BUILT UP AOIN 3977 * TABLE THAT IS FURTHER PROCESSED BY SCAN. 3978 06216 0 00 00000 T0EX PZE 0 3979 006216 EXT0 EQU T0EX 3980 06217 0 00 00000 T1EX PZE 0 3981 06220 0 00 00000 T2EX PZE 0 3982 06221 0 00 00000 T3EX PZE 0 3983 06222 0 00 00000 T5EX PZE 0 3984 06223 0 00 00000 EXT7 PZE 0 3985 06224 0 00 00000 T9EX PZE 0 3986 06225 0 000000 EX00 DAC ** 3987 06226 0 04 00045 STA F F = (A) 3988 06227 0 02 00625 LDA A SAVE POINTER TO FIRST VARIABLE 3989 06230 0 04 00646 STA TRFA FOR LATER POSSIBLE TRACING 3990 06231 0 02 00642 LDA D I = D+DO+1O 3991 06232 0 06 00655 ADD DO 3992 06233 0 06 00744 ADD K125 =8 3993 06234 0 04 00626 STA I 3994 06235 0 10 07106 JST EX99 DATA POOL CHECK 3995 06236 0 35 00626 LDX I 3996 06237 140040 CRA 3997 06240 0 04 06216 STA EXT0 TO = 0 3998 06241 0 04 00036 STA B B = 0 3999 06242 0 04 06223 STA EXT7 T7 = 0 4000 06243 0 06 14524 ADD EX92+12 4001 06244 0414 67 LGL 9 O(I-2) = '=' 4002 06245 1 04 17377 STA DP-1,1 O (I) = O 4003 06246 140401 CMA 4004 06247 0 04 00077 STA IFLG IFLG NOT 0 4005 06250 0 02 00113 LDA L0 4006 06251 1 04 17376 STA DP-2,1 O(I-2) = L0 4007 06252 0 35 00626 EX10 LDX I 4008 06253 140040 CRA 4009 06254 0 04 06217 STA T1EX T1 = 0 4010 06255 1 04 17400 STA DP,1 AOIN(I) = T(I) = 0 4011 06256 1 04 17401 STA DP+1,1 4012 06257 0 02 00706 LDA IM IF IM NOT ZERO, 4013 06260 100040 SZE 4014 06261 0 01 06477 JMP EX50 GO TO EX50 4015 06262 0 35 00762 LDX K130 -6 4016 * PERFORM TABLE SEARCH 4017 06263 0 02 00067 EX11 LDA TC GO TO ROUTINE ACCORDING 4018 06264 1 07 14502 SUB K17+6,1 TO TC. 4019 06265 101040 SNZ IF NO MATCH, ERROR 4020 06266 0 01 06276 JMP EXI1 4021 06267 0 12 00000 IRS 0 4022 06270 0 01 06263 JMP EX11
* NAME: FRTN DWG 70180463000 REV J PAGE 128

4023 06271 0 35 00626 LDX I 4024 06272 0 02 01060 LDA LIBF SPECIAL LIBRARY FLAG 4025 06273 100400 SPL SKIP IF SPECIAL LIBRARY FLAG NOT SET 4026 06274 0 01 06447 JMP EX39 4027 06275 0 01 07100 JMP EX95 ERROR CONDITION 4028 06276 1 02 14510 EXI1 LDA EX91+6,1 4029 06277 0 04 00000 STA 0 4030 06300 1 01 00000 JMP 0,1 PROCESS LEADING OPERATOR 4031 * SPECIAL OPERATOR FLAG SET WHEN COMPILING THE FORTRAN 4032 * LIBRARY IN WHICH CASE THE OPERATIONS ( A= ) AND 4033 * ( =A ) ARE REQUIRED. THIS LOGIC MILL ALLON THESE 4034 * TO BE PPOCESSED WITHOUT GIVING AN ERROR MESSAGE IF THE 4035 * SPECIAL LIBRARY FLAG (LIBF) IS SET TO NON-ZERO. 4036 * 4037 06301 0 02 00036 EX12 LDA B TC = ( 4038 06302 0 06 00666 ADD K109 B = B+16 4039 06303 0 04 00036 STA B SXF = NON-ZERO 4040 06304 0 04 00633 STA SXF 4041 06305 0 10 02224 EX14 JST II00 INPUT ITEM 4042 06306 0 01 06252 JMP EX10 GO TO EX10 4043 06307 0 35 00626 EX16 LDX I TC = * 4044 06310 0 02 00067 LDA TC 4045 06311 0414 67 LGL 9 OI (I-2) = *, B+13 4046 06312 0 06 00036 ADD B 4047 06313 0 06 00751 ADD K129 4048 06314 1 05 17377 ERA DP-1,1 4049 06315 140100 SSP 4050 06316 101040 SNZ 4051 06317 0 01 06322 JMP *+3 4052 06320 0 10 02615 JST ER00 NO, CONSTR ERROR 4053 06321 150327 BCI 1,PW * NOT PRECEDED BY ANOTHER * 4054 06322 0 02 00666 LDA K109 (E = '20) 4055 06323 0414 67 LGL 9 4056 06324 1 13 17377 IMA DP-1,1 4057 06325 0 03 00673 ANA K118 ='777 4058 06326 141206 AOA 4059 06327 1 05 17377 ERA DP-1,1 CHANGE * TO ** 4060 06330 1 04 17377 STA DP-1,1 4061 06331 0 01 06305 JMP EX14 GO TO EX14 4062 06332 0 02 00736 EX18 LDA K102 =2 4063 06333 0 04 00067 STA TC SET TC TO 4064 06334 0 02 00744 LDA K125 =8 4065 06335 0 04 06217 STA T1EX T1 = 8 4066 06336 0 35 00626 LDX I 4067 06337 1 02 17377 LDA DP-1,1 4068 06340 0 03 00673 ANA K118 4069 06341 0 07 00036 SUB B 8 .GT. I (I-2) -B 4070 06342 0 07 06217 SUB T1EX 4071 06343 100400 SPL 4072 06344 0 01 06347 JMP *+3
* NAME: FRTN DWG 70180463000 REV J PAGE 129

4073 06345 0 10 02615 JST ER00 NO, ERROR 4074 06346 147324 BCI 1,NT LOGICAL .NOT. NOT A UNARY OPERATOR 4075 06347 0 02 06216 EX20 LDA T0EX YES 4076 06350 100040 SZE T (0) = 0 4077 06351 0 01 06411 JMP EX34 4078 06352 0 02 00036 EX22 LDA B YES 4079 06353 0 06 00045 ADD F B + + (5) .GT. O 4080 06354 100400 SPL NO, ERROR 4081 06355 0 01 07102 JMP EX96 4082 06356 0 35 00626 EX24 LDX I 4083 06357 0 02 00067 LDA TC 4084 06360 0414 67 LGL 9 4085 06361 0 06 06217 ADD T1EX 4086 06362 0 06 00036 ADD B 4087 06363 1 04 17401 STA DP+1,1 OI(I) = TC . T1+B 4088 06364 0 10 07106 JST EX99 DATA POOL CHECK 4089 06365 0 01 06305 JMP EX14 4090 06366 177762 K131 DEC -14 4091 06367 0 35 00626 EX26 LDX I 4092 06370 1 02 17377 LDA DP-1,1 4093 06371 0 03 00673 ANA K118 IF I (I-2) .LT. B 4094 06372 0 11 00036 CAS B 4095 06373 0 01 07104 JMP EX97 ERROR-----MULTIPLE + OR - SIGNS 4096 06374 101000 NOP 4097 06375 0 35 06366 EX30 LDX K131 SET TO SEARCH OPERATOR TABLE FOR TRAILING 4098 06376 1 02 14526 EX31 LDA EX92+14,1 OPERATOR AFTER HAVING ENCOUNTERED AN 4099 06377 0 07 00067 SUB TC ITEM OR A NEGATE. 4100 06400 100040 SZE 4101 06401 0 01 06407 JMP EX32 4102 06402 1 02 14544 LDA EX93+14,1 4103 06403 0 04 06406 STA *+3 4104 06404 0 35 00626 LDX I 4105 06405 -0 01 06406 JMP* *+1 4106 06406 0 000000 DAC ** 4107 06407 0 12 00000 EX32 IRS 0 CONTROL OPERATOR LOOP 4108 06410 0 01 06376 JMP EX31 CONTINUE 4109 06411 0 02 00036 EX34 LDA B IF B = O 4110 06412 0 07 06223 SUB EXT7 4111 06413 100040 SZE 4112 06414 0 01 06453 JMP EX40 NO, GO TO EX40 4113 06415 0 02 06216 LDA T0EX IF T (0) = O 4114 06416 100040 SZE 4115 06417 0 01 06430 JMP EX38 NO, GO TO EX38 4116 06420 0 04 00077 STA IFLG IFLG = 0 4117 06421 0 02 00045 LDA F 4118 06422 141206 AOA 4119 06423 100400 SPL 4120 06424 -0 01 06225 JMP* EX00 RETURN - NO 4121 06425 0 10 07125 JST CA00 SCAN 4122 06426 0 10 11701 JST OT00 OUTPUT TRIACS
* NAME: FRTN DWG 70180463000 REV J PAGE 130

4123 06427 -0 01 06225 JMP* EX00 RETURN 4124 06430 0 35 00626 EX38 LDX I 4125 06431 0 02 00036 LDA B 4126 06432 0 07 00666 SUB K109 4127 06433 0 04 00036 STA B 4128 06434 0 02 00737 LDA K103 4129 06435 0 04 00630 STA MFL 4130 06436 0 02 06216 LDA T0EX 4131 06437 0414 67 LGL 9 O (I) = T (0) 4132 06440 0 06 00036 ADD B I (I) = B+9 4133 06441 0 06 00745 ADD K124 I = I+2 4134 06442 1 04 17401 STA DP+1,1 4135 06443 0 10 07106 JST EX99 DATA POOL CHECK 4136 06444 140040 CRA 4137 06445 0 04 06216 STA T0EX T0 = 0 4138 06446 0 04 06223 STA EXT7 T7 = 0 4139 06447 0 02 00113 EX39 LDA L0 4140 06450 0 04 00625 STA A A = L0 4141 06451 0 04 00706 STA IM IM NOT EQ 0 4142 06452 0 01 06252 JMP EX10 4143 06453 0 02 00067 EX40 LDA TC TC 0 , 4144 06454 0 11 00734 CAS K5 ='254 (,) IN BCD MODE 4145 06455 0 01 06457 JMP *+2 4146 06456 0 01 06462 JMP EX41 4147 06457 0 07 00754 SUB K134 =17 4148 06460 100040 SZE 4149 06461 0 01 06475 JMP EX44 NO, GO TO EX44 4150 06462 0 02 00626 EX41 LDA I 4151 06463 0 07 00736 EX42 SUB K102 4152 06464 0 04 00000 STA 0 B VS. I (J) 4153 06465 1 02 17401 LDA DP+1,1 4154 06466 0 03 00673 ANA K118 4155 06467 0 11 00036 CAS B 4156 06470 0 01 06473 JMP *+3 4157 06471 0 01 06356 JMP EX24 EQUAL, GO TO EX24 4158 06472 -0 01 06225 JMP* EX00 LESS, RETURN 4159 06473 0 02 00000 LDA 0 GREATER, REPEAT LOOP 4160 06474 0 01 06463 JMP EX42 4161 06475 0 10 02360 EX44 JST IP00 ) - INPUT OPERATOR 4162 06476 0 01 06375 JMP EX30 GO TO EX30 4163 06477 0 35 00626 EX50 LDX I 4164 06500 0 02 00625 LDA A A(I) = A 4165 06501 1 04 17400 STA DP,1 4166 06502 0 02 00710 LDA IU IU = SUB OR ARR 4167 06503 101100 SLN 4168 06504 0 01 06375 JMP EX30 NO, GO TO EX3O 4169 06505 0 02 00067 LDA TC 4170 06506 0 07 14474 SUB K17 TC = ( 4171 06507 100040 SZE 4172 06510 0 01 07026 JMP EX76 NO, GO TO EX76
* NAME: FRTN DWG 70180463000 REV J PAGE 131

4173 06511 0 02 00036 LDA B YES- B = B+16 4174 06512 0 06 00666 ADD K109 4175 06513 0 04 00036 STA B 4176 06514 0 02 00710 LDA IU IU = ARR 4177 06515 0 07 00737 SUB K103 4178 06516 100040 SZE 4179 06517 0 01 07023 JMP EX75 NO, GO TO EX75 4180 06520 1 04 17400 STA DP,1 A(I) = 0 4181 06521 0 04 00075 STA X4 X4 = 0 4182 06522 0 04 06221 STA T3EX T3 = 0 4183 06523 0 04 07117 STA K T5 = A 4184 06524 0 02 00030 LDA D0 4185 06525 0 04 06224 STA T9EX T9 = D0 4186 06526 0 02 00625 LDA A 4187 06527 0 04 06222 STA T5EX T5 = A 4188 06530 0 02 00026 LDA AT 4189 06531 0 07 00741 SUB K105 AT = DUM 4190 06532 100040 SZE 4191 06533 0 01 07020 JMP EX74 NO, GO TO EX74 4192 06534 0 04 06220 STA T2EX YES, T (0) = 0 4193 06535 0 10 07106 JST EX99 DATA POOL CHECK 4194 06536 0 35 00626 LDX I 4195 06537 0 02 00625 LDA A 4196 06540 1 04 17400 STA DP,1 A(I) = A 4197 06541 0 02 00677 LDA K132 OI (I) = A, 11 4198 06542 0414 67 LGL 9 4199 06543 0 06 00745 ADD K124 4200 06544 1 04 17401 STA DP+1,1 I=9 4201 06545 0 02 00030 EX54 LDA D0 IF D0 = 1, GO TO EX56 4202 06546 0 07 00735 SUB K101 4203 06547 101040 SNZ 4204 06550 0 01 06570 JMP EX56 4205 06551 0 10 07106 JST EX99 DATA POOL CHECK 4206 06552 0 01 06554 JMP *+2 4207 06553 0 12 07117 EX55 IRS K K = K+1 4208 06554 0 35 07117 LDX K 4209 06555 1 02 00071 LDA X,1 4210 06556 0 35 00626 LDX I 4211 06557 1 04 17400 STA DP,1 O(I) = * 4212 06560 0 02 00737 LDA K103 I (I) = T3+13 4213 06561 0414 67 LGL 9 T3 = T3+16 4214 06562 0 06 06221 ADD T3EX A (A) = T6 4215 06563 0 06 00751 ADD K129 =13 4216 06564 1 04 17401 STA DP+1,1 4217 06565 0 03 00673 ANA K118 4218 06566 0 06 00737 ADD K103 4219 06567 0 04 06221 STA T3EX T3 = A(A) 4220 06570 0 10 02253 EX56 JST IV00 INPUT INTEGER VARIABLE 4221 06571 0 10 07106 EX59 JST EX99 DATA POOL CHECK 4222 06572 0 35 00626 LDX I
* NAME: FRTN DWG 70180463000 REV J PAGE 132

4223 06573 0 02 00625 LDA A A(I) = A 4224 06574 1 04 17400 STA DP,1 4225 06575 0 02 00054 LDA NT 4226 06576 100040 SZE 4227 06577 0 01 06755 JMP EX68 CONSTANT ENCOUNTERED 4228 06600 0 10 01152 JST UC00 UNINPUT COLUMN 4229 06601 0 10 01350 JST DN00 INPUT DO NOT ASSIGN 4230 06602 101040 SNZ 4231 06603 0 01 06611 JMP EX57 IM = O 4232 06604 0 07 00735 SUB K101 4233 06605 101040 SNZ 4234 06606 0 01 06611 JMP EX57 IM = INTEGER 4235 06607 0 10 02615 JST ER00 4236 06610 151725 BCI 1,SU SUBSCRIPT INCREMENTER NOT A CONSTANT 4237 06611 0 35 00626 EX57 LDX I 4238 06612 0 02 00735 LDA K101 4239 06613 0414 67 LGL 9 4240 06614 0 06 06221 ADD T3EX 4241 06615 0 06 00747 ADD K127 4242 06616 1 04 17401 STA DP+1,1 O(I) = +, I(I) = T3+11 4243 06617 0 10 07106 JST EX99 DATA POOL CHECK 4244 06620 0 02 06224 EX58 LDA T9EX 4245 06621 0 04 00030 STA D0 RESET D(O) 4246 06622 0 02 00774 LDA ID SUBSCRIPT SIZE 4247 06623 0 07 00735 SUB K101 ID = ID-1 4248 06624 0 04 00774 STA ID 4249 06625 101040 SNZ IF ZERO, GO TO EX60 4250 06626 0 01 06640 JMP EX60 4251 06627 0 35 07117 LDX K 4252 06630 1 02 00030 LDA D0,1 D(K) = O 4253 06631 101040 SNZ 4254 06632 0 01 06742 JMP EX67 YES - (DUMMY DIMENSION) 4255 06633 000201 IAB 4256 06634 0 02 00774 LDA ID 4257 06635 0 10 02462 JST IM00 4258 06636 0 06 06220 ADD T2EX 4259 06637 0 04 06220 STA T2EX T2 = T2+ID*D(K) 4260 06640 0 02 06224 EX60 LDA T9EX 4261 06641 0 04 00030 STA D0 RESET D(O) 4262 06642 0 35 07117 LDX K 4263 06643 1 02 00073 LDA X+2,1 X(K+2) = O 4264 06644 101040 SNZ 4265 06645 0 01 06656 JMP EX62 YES - FINISHED 4266 06646 0 02 00754 LDA K134 =17 4267 06647 0 10 02352 JST TS00 COMMA TEST 4268 06650 1 02 00031 LDA D0+1,1 4269 06651 000201 IAB 4270 06652 1 02 00030 LDA D0,1 4271 06653 0 10 02462 JST IM00 4272 06654 1 04 00031 STA D0+1,1 D(K+1) = D(K+1)*D(K)
* NAME: FRTN DWG 70180463000 REV J PAGE 133

4273 06655 0 01 06553 JMP EX55 4274 06656 0 35 00626 EX62 LDX I 4275 06657 1 02 17377 LDA DP-1,1 DOES O(I-2) = * 4276 06660 140100 SSP 4277 06661 0404 67 LGR 9 4278 06662 0 11 00737 CAS K103 4279 06663 0 01 06665 JMP *+2 4280 06664 0 01 06736 JMP EX66 YES. 4281 06665 101040 SNZ NO. 4282 06666 0 01 06722 JMP EX64 O(I-2) = 0 - YES 4283 06667 0 11 00677 CAS K132 DOES O(I-2) = A 4284 06670 0 01 06676 JMP EX63 4285 06671 0 01 06673 JMP *+2 YES 4286 06672 0 01 06676 JMP EX63 4287 06673 0 02 06220 LDA T2EX IS T2 = 0 4288 06674 101040 SNZ 4289 06675 0 01 06727 JMP EX65 YES (DUMMY ARRAY (1,1,1)) 4290 06676 0 02 00735 EX63 LDA K101 4291 06677 1 04 17377 STA DP-1,1 OI(I-2) = 1 4292 06700 0 02 06220 LDA T2EX A(I) = T2 4293 06701 1 04 17400 STA DP,1 4294 06702 0 02 06721 LDA K137 O='X' ('24), I=2 4295 06703 1 04 17401 STA DP+1,1 4296 06704 140040 CRA 4297 06705 1 04 17403 STA DP+3,1 OI(I+2) = 0 4298 06706 0 02 06222 LDA T5EX 4299 06707 1 04 17402 STA DP+2,1 A(I+2) = T5 4300 06710 0 10 07106 JST EX99 DATA POOL CHECK 4301 06711 0 10 07125 JST CA00 SCAN 4302 06712 0 02 00057 LDA O1 4303 06713 0 04 00625 STA A A = O1 4304 06714 0 35 00625 LDX A 4305 06715 1 02 17402 LDA DP+2,1 S(A) = NON-ZERO 4306 06716 140500 SSM 4307 06717 1 04 17402 STA DP+2,1 S(A) = 1 4308 06720 0 01 06475 JMP EX44 4309 06721 024002 K137 OCT 24002 4310 06722 0 02 00113 EX64 LDA L0 4311 06723 1 04 17400 STA DP,1 A(I) = L0 4312 06724 0 10 07106 JST EX99 DATA POOL CHECK 4313 06725 0 35 00626 LDX I 4314 06726 0 01 06676 JMP EX63 4315 06727 0 02 00626 EX65 LDA I 4316 06730 0 07 00740 SUB K104 4317 06731 0 04 00626 STA I I = I-4 4318 06732 0 02 06222 LDA T5EX 4319 06733 1 04 17374 STA DP-4,1 A (I) = T5 4320 06734 0 04 00625 STA A 4321 06735 0 01 06475 JMP EX44 4322 06736 0 02 00626 EX66 LDA I
* NAME: FRTN DWG 70180463000 REV J PAGE 134

4323 06737 0 07 00736 SUB K102 4324 06740 0 04 00626 STA I I = I-2 4325 06741 0 01 06656 JMP EX62 ASSIGN INT CONSTANT 4326 06742 0 10 03612 EX67 JST AI00 4327 06743 0 35 00626 LDX I 4328 06744 0 02 00625 LDA A 4329 06745 1 04 17400 STA DP,1 A(I) = A 4330 06746 0 02 00735 LDA K101 4331 06747 0414 67 LGL 9 4332 06750 0 06 06221 ADD T3EX 4333 06751 0 06 00747 ADD K127 4334 06752 1 04 17401 STA DP+1,1 OI(I) = +, T3+11 4335 06753 0 10 07106 JST EX99 DATA POOL CHECK 4336 06754 0 01 06640 JMP EX60 4337 06755 0 02 00067 EX68 LDA TC IS TC 4338 06756 0 11 00737 CAS K103 = * 4339 06757 0 01 06761 JMP *+2 4340 06760 0 01 06762 JMP *+2 4341 06761 0 01 06620 JMP EX58 NO 4342 06762 0414 67 LGL 9 4343 06763 0 06 06221 ADD T3EX 4344 06764 0 06 00751 ADD K129 =13 4345 06765 1 04 17401 STA DP+1,1 OI(I) = *, T3+13 4346 06766 0 10 02260 JST IR00 INPUT INTEGER VAR/CON 4347 06767 0 01 06571 JMP EX59 4348 06770 140040 EX69 CRA SET LISTING FOR OCTAL ADDR 4349 06771 0 04 00625 STA A 4350 06772 0 02 13026 LDA OMI5 JMP 0 INSTRUCTION 4351 06773 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 4352 06774 0 02 00643 LDA RPL 4353 06775 0 04 00060 STA O2 4354 06776 0 02 00700 LDA K138 4355 06777 0 04 00061 STA P P = H 4356 07000 0 10 07470 JST ET00 ENTER TRIAD 4357 07001 0 10 06046 JST HS00 TRANSFER HOLLERITH STRING 4358 07002 0 02 00702 LDA CRET (A) = C/R 4359 07003 0 10 11444 JST OK00 OUTPUT PACK 4360 07004 140040 CRA 4361 07005 0 04 00000 STA 0 SET LISTING FOR OCTAL ADDR. 4362 07006 0 04 00625 STA A SET LISTING FOR OCTAL ADDR. 4363 07007 0 02 00060 LDA O2 4364 07010 0 07 00735 SUB K101 4365 07011 0 10 13257 JST OS00 OUTPUT STRING RPL-1 4366 07012 0 10 01157 JST CH00 INPUT CHARACTER 4367 07013 0 10 01307 JST FN00 4368 07014 0 35 00626 LDX I RESET INDEX 4369 07015 0 02 00627 LDA L 4370 07016 1 04 17400 STA DP,1 A(I) = L 4371 07017 0 01 07026 JMP EX76 4372 07020 0 02 00025 EX74 LDA AF
* NAME: FRTN DWG 70180463000 REV J PAGE 135

4373 07021 0 04 06220 STA T2EX T2 = AF 4374 07022 0 01 06545 JMP EX54 GO TO EX54 4375 07023 0 02 00754 EX75 LDA K134 4376 07024 0 04 00067 STA TC TC = , 4377 07025 0 01 06356 JMP EX24 GO TO EX24 4378 07026 1 02 17377 EX76 LDA DP-1,1 4379 07027 0404 67 LGR 9 4380 07030 0 03 00764 ANA K133 4381 07031 0 07 00754 SUB K134 4382 07032 101040 SNZ 4383 07033 0 01 06411 JMP EX34 WITHIN AN ARGUMENT LIST 4384 07034 0 10 02615 JST ER00 4385 07035 140707 BCI 1,AG SUBROUTINE OR ARRAY NAME NOT IN ARG. LIST 4386 07036 0 02 00747 EX78 LDA K127 4387 07037 0 04 06217 EX79 STA T1EX T (1) = 11 4388 07040 0 01 06352 JMP EX22 4389 07041 0 02 00751 EX80 LDA K129 T (1) = 13 4390 07042 0 01 07037 JMP EX79 4391 07043 0 02 00742 EX81 LDA K106 4392 07044 0 04 06217 EX86 STA T1EX T (1) = 6 4393 07045 0 01 06347 JMP EX20 4394 07046 0 02 00740 EX82 LDA K104 T (1) = 4 4395 07047 0 01 07044 JMP EX86 4396 07050 0 02 06216 EX83 LDA T0EX T (0) =0 4397 07051 100040 SZE 4398 07052 0 01 07066 JMP EX84 4399 07053 0 02 00067 LDA TC YES, 4400 07054 0 04 06216 STA T0EX T (0) = TC 4401 07055 0 02 14511 LDA EX92+1 4402 07056 0 04 00067 STA TC TC = - 4403 07057 0 02 00036 LDA B 4404 07060 0 06 00666 ADD K109 4405 07061 0 04 00036 STA B 4406 07062 0 04 06223 STA EXT7 4407 07063 0 02 07065 LDA *+2 4408 07064 0 01 07037 JMP EX79 4409 07065 177773 DEC -5 4410 07066 0 10 02615 EX84 JST ER00 ERROR 4411 07067 151314 BCI 1,RL MORE THAN 1 RELATIONAL OPERATOR 4412 07070 0 02 00045 EX85 LDA F 4413 07071 0 06 00736 ADD K102 T (5) = T (5) +2 = B = 0 4414 07072 0 04 00045 STA F 4415 07073 0 06 00036 ADD B 4416 07074 101040 SNZ 4417 07075 0 01 06356 JMP EX24 4418 07076 0 10 02615 JST ER00 ERROR 4419 07077 142721 BCI 1,EQ MULTIPLE ='S, OR EXPRESSION TO LEFT OF = 4420 07100 0 10 02615 EX95 JST ER00 4421 07101 147720 BCI 1,OP MORE THAN ONE OPERATOR IN A ROW 4422 07102 0 10 02615 EX96 JST ER00 ERROR
* NAME: FRTN DWG 70180463000 REV J PAGE 136

4423 07103 150301 BCI 1,PA OPERATOR MUST BE WITHIN PARENTHESES 4424 07104 0 10 02615 EX97 JST ER00 ERROR 4425 07105 152717 BCI 1,UO MULTIPLE + OR - SIGNS NOT AS UNARY OPS 4426 * BUMP THE I COUNT BY TWO AND CHECK FOR DATA OVERFLOW 4427 07106 0 000000 EX99 DAC ** 4428 07107 0 12 00626 IRS I 4429 07110 0 12 00626 IRS I 4430 07111 0 02 00626 LDA I 4431 07112 141206 AOA 4432 07113 0 11 00627 CAS L 4433 07114 101000 NOP 4434 07115 0 01 03213 JMP AS50 4435 07116 -0 01 07106 JMP* EX99 4436 07117 0 00 00000 K PZE 0 4437 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 137

4438 * 4439 * 4440 * 4441 * 4442 * ****************** 4443 * *SCAN * 4444 * *TRIAD SEARCH * 4445 * *TEMP STORE CHECK* 4446 * ****************** 4447 07120 177770 KM8 DEC -8 4448 07121 0 00 00000 T0CA PZE 0 4449 07122 0 00 00000 T1CA PZE 0 4450 07123 0 00 00000 T2CA PZE 0 4451 07124 0 00 00000 T9CA PZE 0 4452 * THE AOIN TABLE IS PROCESSED FROM THE BOTTOM 4453 * UP AND ENTRIES ARE FORMED FOR INCLUSION 4454 * IN THE TRIAD TABLE. LEVELS ARE USED 4455 * TO CONTROL THE ORDER OF ENTRY INTO 4456 * THE TRIADS. SIGN CONTROL IS ALSO 4457 * ACCCMPLISHED IN THIS ROUTINE. 4458 07125 0 000000 CA00 DAC ** 4459 07126 0 02 00113 LDA L0 4460 07127 0 04 07512 STA ACCP INDICATE EMPTY ACCUM 4461 07130 0 35 00626 CA04 LDX I 4462 07131 0 15 07122 STX T1CA T1 = I 4463 07132 1 02 17377 LDA DP-1,1 4464 07133 0 03 00673 ANA K118 IF I (I-2) = O, 4465 * OR .LT. I (I) 4466 07134 0 04 07124 STA T9CA 4467 07135 1 02 17401 LDA DP+1,1 4468 07136 0 03 00673 ANA K118 4469 07137 0 11 07124 CAS T9CA 4470 07140 0 01 07146 JMP CA08 GO TO CA08 4471 07141 101000 NOP 4472 07142 0 02 00626 LDA I 4473 07143 0 07 00736 SUB K102 4474 07144 0 04 00626 STA I I = I-2 4475 07145 0 04 00000 STA 0 4476 07146 1 02 17403 CA08 LDA DP+3,1 4477 07147 1 05 17401 ERA DP+1,1 4478 07150 0 04 07121 STA T0CA 4479 07151 1 02 17401 LDA DP+1,1 4480 07152 0 03 00673 ANA K118 4481 07153 0 04 07123 STA T2CA 4482 07154 1 02 17401 LDA DP+1,1 4483 07155 140100 SSP 4484 07156 0404 67 LGR 9 P = O (I) 4485 07157 0 04 00061 STA P 4486 07160 0 11 00736 CAS K102 IF P IS NOT * OR /, GO TO CCA10 4487 07161 0 11 00741 CAS K105
* NAME: FRTN DWG 70180463000 REV J PAGE 138

4488 07162 0 01 07165 JMP CA10 4489 07163 0 01 07165 JMP CA10 4490 07164 0 01 07220 JMP CA14 GO TO CA14 4491 07165 0 15 07124 CA10 STX T9CA 4492 07166 0 02 07121 LDA T0CA 4493 07167 101400 SMI 4494 07170 0 01 07203 JMP CA13 4495 07171 0 35 07120 LDX KM8 4496 07172 0 02 00061 LDA P 4497 07173 1 11 14554 CAS CA90+8,1 4498 07174 0 01 07176 JMP *+2 4499 07175 0 01 07201 JMP *+4 4500 07176 0 12 00000 IRS 0 4501 07177 0 01 07173 JMP *-4 4502 07200 0 01 07400 JMP CA45 4503 07201 1 02 14564 LDA CA91+8,1 4504 07202 0 04 00061 STA P 4505 07203 0 35 00762 CA13 LDX K130 4506 07204 0 02 00061 LDA P 4507 07205 1 11 14554 CAS CA90+8,1 4508 07206 0 01 07210 JMP *+2 4509 07207 0 01 07215 JMP CA50 4510 07210 0 12 00000 IRS 0 4511 07211 0 01 07205 JMP *-4 4512 07212 0 35 07124 LDX T9CA 4513 07213 1 02 17401 LDA DP+1,1 4514 07214 0 01 07216 JMP *+2 4515 07215 140040 CA50 CRA 4516 07216 0 04 07121 STA T0CA 4517 07217 0 35 07124 LDX T9CA 4518 07220 1 02 17400 CA14 LDA DP,1 4519 07221 0 04 00057 STA O1 O1=A(I) 4520 07222 1 02 17402 LDA DP+2,1 4521 07223 0 04 00060 STA O2 O2 = A (I+2) 4522 07224 0 02 07123 LDA T2CA 4523 07225 101040 SNZ 4524 07226 0 01 07355 JMP CA37 IF ZERO, GO TO CA37 4525 07227 1 02 17377 LDA DP-1,1 4526 07230 140100 SSP 4527 07231 0404 67 LGR 9 4528 07232 0 04 07122 STA T1CA 4529 07233 1 02 17377 LDA DP-1,1 4530 07234 0 03 00673 ANA K118 IF T2 .GT. I (I-2) 4531 07235 0 07 07123 SUB T2CA 4532 07236 100400 SPL 4533 07237 0 01 07260 JMP CA18 4534 07240 100040 SZE 4535 07241 0 01 07130 JMP CA04 4536 07242 0 02 00060 LDA O2 4537 07243 0 07 07512 SUB ACCP
* NAME: FRTN DWG 70180463000 REV J PAGE 139

4538 07244 100040 SZE 4539 07245 0 01 07130 JMP CA04 4540 07246 0 02 00061 LDA P 4541 07247 0 07 00737 SUB K103 4542 07250 101400 SMI 4543 07251 0 01 07370 JMP CA39 4544 07252 0 02 07122 LDA T1CA 4545 07253 0 07 00061 SUB P 4546 07254 100040 SZE 4547 07255 0 02 00735 LDA K101 GO TO 4548 07256 141206 AOA P = - OR + 4549 07257 0 04 00061 STA P 4550 07260 0 35 00626 CA18 LDX I 4551 07261 1 02 17402 CA20 LDA DP+2,1 4552 07262 1 04 17400 STA DP,1 AOIN(J) = AOIN(J+2) 4553 07263 1 02 17403 LDA DP+3,1 4554 07264 1 04 17401 STA DP+1,1 4555 07265 140100 SSP 4556 07266 101040 SNZ 4557 07267 0 01 07273 JMP CA22 4558 07270 0 12 00000 IRS 0 J = J+2 4559 07271 0 12 00000 IRS 0 4560 07272 0 01 07261 JMP CA20 4561 07273 0 35 00626 CA22 LDX I 4562 07274 1 02 17401 LDA DP+1,1 4563 07275 140100 SSP IF 0 (I) = , 4564 07276 0404 67 LGR 9 4565 07277 0 11 00061 CAS P 4566 07300 0 01 07304 JMP CA24 4567 07301 0 11 00754 CAS K134 4568 07302 0 01 07304 JMP CA24 4569 07303 0 01 07332 JMP CA30 GO TO CA30 4570 07304 0 10 07411 CA24 JST ST00 TRIAD SEARCH 4571 07305 0 02 00061 LDA P 4572 07306 0 11 00677 CAS K132 IF P = +;*, AND, OR 4573 07307 0 01 07330 JMP CA28 4574 07310 0 01 07355 JMP CA37 GO TO CA37 4575 07311 0 11 00743 CAS K107 4576 07312 0 01 07330 JMP CA28 ELSE, GO TO CA26 4577 07313 0 01 07355 JMP CA37 4578 07314 0 11 00742 CAS K106 4579 07315 0 01 07330 JMP CA28 4580 07316 0 01 07355 JMP CA37 4581 07317 0 11 00737 CAS K103 4582 07320 0 01 07330 JMP CA28 4583 07321 0 01 07355 JMP CA37 4584 07322 0 11 00735 CAS K101 4585 07323 0 01 07325 JMP CA26 4586 * 4587 *
* NAME: FRTN DWG 70180463000 REV J PAGE 140

4588 * 4589 07324 0 01 07355 JMP CA37 4590 07325 0 11 00736 CA26 CAS K102 4591 07326 0 01 07330 JMP *+2 IF P = - 4592 07327 0 01 07352 JMP CA35 GO TO 4593 07330 0 02 00057 CA28 LDA O1 4594 07331 0 10 07456 JST TC00 TEMP STORE CHECK 4595 07332 0 02 00060 CA30 LDA O2 4596 07333 0 10 07456 JST TC00 TEMP STORE CHECK 4597 07334 0 10 07470 CA31 JST ET00 ENTER TRIAD 4598 07335 0 35 00626 CA32 LDX I 4599 07336 0 02 00057 LDA O1 4600 07337 1 04 17400 STA DP,1 4601 07340 1 02 17401 LDA DP+1,1 4602 07341 0400 61 LRL 15 4603 07342 0 02 07121 LDA T0CA 4604 07343 0404 61 LGR 15 4605 07344 0410 61 LLL 15 4606 07345 1 04 17401 STA DP+1,1 4607 07346 0 02 07123 LDA T2CA IF T2 NOT ZERO, 4608 07347 100040 SZE 4609 07350 0 01 07130 JMP CA04 GO TO CA04 4610 07351 -0 01 07125 JMP* CA00 ELSE, RETURN 4611 07352 0 02 07121 CA35 LDA T0CA 4612 07353 0 05 13021 ERA OMI0 4613 07354 0 04 07121 STA T0CA 4614 07355 0 02 00060 CA37 LDA O2 4615 07356 0 13 00057 IMA O1 O1 = = O2 4616 07357 0 04 00060 STA O2 4617 07360 101040 SNZ IF O2 = 0, 4618 07361 0 01 07335 JMP CA32 GO TO CA32 4619 * 4620 * 4621 * 4622 07362 0 10 07411 JST ST00 TRIAD SEARCH 4623 07363 0 02 07121 LDA T0CA 4624 07364 101400 SMI 4625 07365 0 01 07330 JMP CA28 GO TO CA28 4626 07366 0 02 00061 LDA P 4627 07367 0 01 07325 JMP CA26 ELSE, GO TO CA26 4628 07370 0 07 00750 CA39 SUB K128 4629 07371 101040 SNZ IF P = , OR 4630 07372 0 01 07130 JMP CA04 4631 07373 0 02 07122 LDA T1CA 4632 07374 0 07 00740 SUB K104 4633 07375 100040 SZE ELSE, 4634 07376 0 01 07260 JMP CA18 GO TO CA18 4635 07377 0 01 07130 JMP CA04 4636 07400 0 02 07122 CA45 LDA T1CA 4637 07401 0 04 00626 STA I I = T1
* NAME: FRTN DWG 70180463000 REV J PAGE 141

4638 07402 0 04 07123 STA T2CA 4639 07403 140040 CRA 4640 07404 0 04 07121 STA T0CA * * * * * * * * * * * 4641 07405 0 04 00060 STA O2 O2 = C = 0 4642 07406 0 07 00671 SUB K110 P = C 4643 07407 0 04 00061 STA P 4644 07410 0 01 07304 JMP CA24 GO TO CA24 4645 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 142

4646 * IF THE CURRENT TRIAD (IN WORKING STORAGE) MATCHES 4647 * ANY TRIAD TABLE ENTRY, EXIT WITH THE 4648 * POINTER VALUE OF THE MATCHING ENTRY 4649 * (THIS ACCOMPLISHES ELIMINATIUN OF REDUNDANT 4650 * SUBEXPRESSION CALCULATIONS. 4651 07411 0 000000 ST00 DAC ** TRIAD SEARCH 4652 07412 0 02 00045 LDA F 4653 07413 0 06 00737 ADD K103 4654 07414 100040 SZE 4655 07415 0 01 07427 JMP ST10 GO TO ST10 4656 07416 0 02 00061 ST05 LDA P ELSE, IF P = X 4657 07417 0 07 00701 SUB K139 4658 07420 101040 SNZ 4659 07421 0 01 07334 JMP CA31 GO TO CA31 4660 07422 0 02 00057 LDA O1 ELSE, IF O1=ACCP 4661 07423 0 07 07512 SUB ACCP 4662 07424 101040 SNZ 4663 07425 0 01 07332 JMP CA30 GO TO CA30 4664 07426 -0 01 07411 JMP* ST00 ELSE, RETURN 4665 07427 0 35 00113 ST10 LDX L0 4666 07430 0 02 00000 ST20 LDA 0 4667 07431 0 07 00737 SUB K103 4668 07432 0 04 00000 STA 0 J = J-2 4669 07433 0 07 00627 SUB L IF J .LT. L 4670 07434 100400 SPL 4671 07435 0 01 07416 JMP ST05 GO TO ST05 4672 07436 0 02 00060 LDA O2 4673 07437 1 07 17400 SUB DP,1 IF O1/P/O2 .NE. O1/P/O2(J) 4674 07440 100040 SZE 4675 07441 0 01 07430 JMP ST20 GO TO ST20 4676 07442 1 02 17402 LDA DP+2,1 4677 07443 140100 SSP EXTRACT OFF STORE BIT 4678 07444 0 07 00061 SUB P 4679 07445 100040 SZE 4680 07446 0 01 07430 JMP ST20 4681 07447 0 02 00057 LDA O1 4682 07450 1 07 17401 SUB DP+1,1 4683 07451 100040 SZE 4684 07452 0 01 07430 JMP ST20 OI = 4685 07453 0 02 00000 LDA 0 4686 07454 0 04 00057 STA O1 4687 07455 0 01 07335 JMP CA32 GO TO CA32 4688 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 143

4689 * IF J IS A REFERENCE TO A TRIAD , THE TEMP 4690 * STORE BIT OF THE REFERENCED TRIAD IS SET. 4691 07456 0 000000 TC00 DAC ** TEMP STORE CHECK 4692 07457 0 04 00000 STA 0 4693 07460 0 02 00637 LDA ABAR 4694 07461 0 07 00000 SUB 0 4695 07462 101400 SMI IS J .GR. ABAR 4696 07463 -0 01 07456 JMP* TC00 NO. 4697 07464 1 02 17402 LDA DP+2,1 YES. 4698 07465 140500 SSM 4699 07466 1 04 17402 STA DP+2,1 S(J) = 1 4700 07467 -0 01 07456 JMP* TC00 4701 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 144

4702 * 4703 * 4704 * ************* 4705 * *ENTER TRIAD* 4706 * ************* 4707 * STORE CURRENT TRIAD INTO THE NEXT TRIAD ENTRY 4708 * LOCATION. 4709 07470 0 000000 ET00 DAC ** 4710 07471 0 15 07511 STX ETXS SAVE INDEX 4711 07472 0 02 00627 LDA L 4712 07473 0 07 00737 SUB K103 =3 4713 07474 0 04 00627 STA L L=L-3 4714 07475 0 04 07512 STA ACCP SET ACCUM PTR TO LAST TRIAD ENTRY 4715 07476 0 04 00000 STA 0 J=L 4716 07477 0 02 00061 LDA P 4717 07500 1 04 17402 STA DP+2,1 P(J) = P 4718 07501 0 02 00057 LDA O1 4719 07502 1 04 17401 STA DP+1,1 O1(J) = O1 4720 07503 0 02 00060 LDA O2 4721 07504 1 04 17400 STA DP,1 O2(J) = O2 4722 07505 0 02 00000 LDA 0 4723 07506 0 04 00057 STA O1 O1=J 4724 07507 0 35 07511 LDX ETXS RESTORE INDEX 4725 07510 -0 01 07470 JMP* ET00 4726 07511 ETXS BSS 1 TEMP STORAGE FOR INDEX 4727 07512 0 000000 ACCP DAC ** ACCUM POINTER 4728 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 145

4729 * 4730 * 4731 * ************************** 4732 * *GENERATE SUBPRO ENTRANCE* 4733 * ************************** 4734 * OUTPUT SUBPROGRAM ENTRANCE CODE , INCLUDING THE 4735 * CALL TO ARGUMENT ADDRESS TRANSFER. 4736 07513 0 00 00000 T0GE PZE 0 4737 07514 0 000000 GE00 DAC ** 4738 07515 140040 CRA 4739 07516 0 04 07513 STA T0GE 4740 07517 0 02 14474 LDA K17 TEST 4741 07520 0 10 02352 JST TS00 4742 07521 0 10 02242 GE10 JST NA00 INPUT NAME 4743 07522 0 02 00642 LDA D IFF D=0 4744 07523 101040 SNZ 4745 07524 0 01 07546 JMP GE20 GO TO GE20 4746 07525 0 06 00737 ADD K103 4747 07526 0 04 00642 STA D 4748 07527 0 06 00655 ADD DO 4749 07530 0 04 00626 STA I IF FULL, GO TO GE30 4750 07531 0 35 00625 LDX A 4751 07532 1 02 17400 LDA DP,1 4752 07533 0 35 00626 LDX I 4753 07534 1 04 17400 STA DP,1 4754 07535 0 35 00625 LDX A 4755 07536 1 02 17401 LDA DP+1,1 4756 07537 0 35 00626 LDX I 4757 07540 1 04 17377 STA DP-1,1 4758 07541 0 02 00625 LDA A 4759 07542 1 04 17376 STA DP-2,1 4760 07543 0 35 00625 LDX A 4761 07544 140040 CRA 4762 07545 1 04 17401 STA DP+1,1 CLEAR OLD USAGE 4763 07546 0 02 00741 GE20 LDA K105 4764 07547 000201 IAB 4765 07550 0 02 00643 LDA RPL 4766 07551 0 06 07513 ADD T0GE 4767 07552 0 06 00737 ADD K103 (B) = DUM 4768 07553 0 10 03571 JST AF00 DEFINE AFT (A=RPL+T0+3) 4769 07554 0 12 07513 IRS T0GE T0 = T0+1 4770 07555 0 02 00754 LDA K134 4771 07556 0 07 00067 SUB TC IF TC = , 4772 07557 101040 SNZ 4773 07560 0 01 07521 JMP GE10 GO TO GE10 4774 07561 0 10 02360 JST IP00 INPUT OPERATOR 4775 07562 0 10 13243 JST OC00 OUTPUT ABS (0) 4776 07563 0 02 07513 LDA T0GE 4777 07564 0 04 00774 STA ID ID = T0 4778 07565 0 02 07601 LDA K69
* NAME: FRTN DWG 70180463000 REV J PAGE 146

4779 07566 0 04 00052 STA NAMF+1 NAMF = AT 4780 07567 0 10 02501 JST NF00 FILL IN REMAINING NAMF 4781 07570 0 10 11332 JST OL00 OUTPUT OBJECT LINK 4782 07571 0 02 07513 LDA T0GE 4783 07572 140407 TCA 4784 07573 0 04 07513 STA T0GE 4785 07574 140040 CRA 4786 07575 0 10 13243 JST OC00 OUTPUT NUMBER OF ARGS 4787 07576 0 12 07513 IRS T0GE OUTPUT SPACE FOR ARG. ADDR. 4788 07577 0 01 07574 JMP *-3 4789 07600 -0 01 07514 JMP* GE00 RETURN 4790 07601 140724 K69 BCI 1,AT AT 4791 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 147

4792 * 4793 * **************** 4794 * *EXCHANGE LINKS* 4795 * **************** 4796 * CL SUBA IS INTERCHANGED WITH CL SUBF 4797 07602 0 000000 EL00 DAC ** 4798 07603 0 35 00625 LDX A 4799 07604 1 02 17400 LDA DP,1 4800 07605 0 04 07624 STA EL90 CL (F) == CL (A) 4801 07606 0 35 00045 LDX F 4802 07607 0 10 07613 JST EL40 4803 07610 0 35 00625 LDX A 4804 07611 0 10 07613 JST EL40 4805 07612 -0 01 07602 JMP* EL00 4806 07613 0 000000 EL40 DAC ** 4807 07614 1 02 17400 LDA DP,1 4808 07615 0 13 07624 IMA EL90 4809 07616 0 03 00673 ANA K118 4810 07617 1 13 17400 IMA DP,1 4811 07620 0 03 00674 ANA K119 4812 07621 1 06 17400 ADD DP,1 4813 07622 1 04 17400 STA DP,1 4814 07623 -0 01 07613 JMP* EL40 4815 07624 0 00 00000 EL90 PZE 0 4816 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 148

4817 * 4818 * 4819 * ***************** 4820 * *NON COMMON TEST* 4821 * ***************** 4822 07625 0 000000 NM00 DAC ** NON-COMMON TEST 4823 07626 0 02 00026 LDA AT 4824 07627 0 07 00740 SUB K104 4825 07630 100040 SZE 4826 07631 -0 01 07625 JMP* NM00 4827 07632 0 10 02615 JST ER00 4828 07633 141722 BCI 1,CR ILLEGAL COMMON REFERENCE 4829 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 149

4830 * 4831 * 4832 * ************************** 4833 * *NON DUMMY OR SUBPRO TEST* 4834 * ************************** 4835 07634 0 000000 ND00 DAC ** 4836 07635 0 02 00026 LDA AT TEST 4837 07636 0 07 00741 SUB K105 4838 07637 100040 SZE 4839 07640 0 01 07643 JMP ND10 4840 07641 0 10 02615 JST ER00 4841 07642 142301 BCI 1,DA ILLEGAL USE DF A DUMMY ARGUMENT 4842 07643 0 10 02415 ND10 JST NS00 4843 07644 -0 01 07634 JMP* ND00 4844 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 150

4845 * 4846 * 4847 * *************** 4848 * *INPUT INTEGER* 4849 * *************** 4850 * INPUT ITEM AND ENSURE THAT IT IS AN INTEGER CONSTANT 4851 * GREATER THAN ZERO 4852 * 4853 07645 0 000000 IG00 DAC ** INPUT INTEGER 4854 07646 0 10 01350 JST DN00 INPUT - DNA 4855 07647 0 02 01342 LDA F1 4856 07650 100040 SZE IF F1 = 0, 4857 07651 0 01 07663 JMP IG20 AND NT = 1, 4858 07652 0 02 00054 LDA NT AND IM = INT, 4859 07653 101040 SNZ AND TID L2**15, 4860 07654 0 01 07663 JMP IG20 GO TO IG10 4861 07655 0 02 00706 LDA IM ELSE, GO TO IG20 4862 07656 0 07 00735 SUB K101 4863 07657 100040 SZE 4864 07660 0 01 07663 JMP IG20 4865 07661 0 02 00774 LDA TID 4866 07662 -0 01 07645 JMP* IG00 4867 07663 0 10 02615 IG20 JST ER00 ERROR 4868 07664 144716 BCI 1,IN INTEGER REQUIRED 4869 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 151

4870 * 4871 * 4872 * ***************** 4873 * *INPUT SUBSCRIPT* 4874 * ***************** 4875 07665 0 00 00000 SCT0 PZE 0 4876 07666 0 000000 SC00 DAC ** 4877 07667 0 04 07665 STA SCT0 TO = (A) 4878 07670 140040 CRA 4879 07671 0 04 00053 STA NS 4880 07672 0 04 00065 STA S2 NS = S2 = S3 = 0 4881 07673 0 04 00066 STA S3 4882 07674 0 02 14474 LDA K17 (-TEST 4883 07675 0 10 02352 JST TS00 4884 07676 0 02 00654 SC10 LDA EBAR 4885 07677 101400 SMI 4886 07700 0 01 07704 JMP SC15 EBAR . GR. 0 4887 07701 0 10 02346 JST XN00 EXAMINE NEXT CHAR. 4888 07702 100040 SZE 4889 07703 0 01 07741 JMP SC70 IF (A) NON ZERO, 4890 07704 0 10 07645 SC15 JST IG00 GO TO SC70 4891 07705 0 02 07665 LDA SCT0 INPUT INTEGER 4892 07706 100040 SZE 4893 07707 100400 SPL 4894 07710 0 01 07714 JMP SC60 4895 07711 0 02 00774 LDA ID 4896 07712 0 07 00735 SUB K101 4897 07713 0 01 07716 JMP SC30 4898 07714 0 10 02762 SC60 JST AS00 ASSIGN ITEM 4899 07715 0 02 00625 SC20 LDA A S (NS+1) = A 4900 07716 000201 SC30 IAB 4901 07717 0 02 07753 LDA SC90 4902 07720 0 06 00053 ADD NS 4903 07721 0 04 07754 STA SC91 4904 07722 000201 IAB S(NS+1) = A 4905 07723 -0 04 07754 STA* SC91 4906 07724 0 02 00053 LDA NS 4907 07725 141206 AOA 4908 07726 0 04 00053 STA NS NS = NS + 1 4909 07727 0 07 00737 SUB K103 4910 07730 100040 SZE 4911 07731 0 01 07734 JMP SC50 MORE SUBSCRIPTS PERMITTED 4912 07732 0 10 02360 SC40 JST IP00 )-INPUT OPERATOR 4913 07733 -0 01 07666 JMP* SC00 RETURN 4914 07734 0 02 00067 SC50 LDA TC 4915 07735 0 07 00754 SUB K134 4916 07736 100040 SZE 4917 07737 0 01 07732 JMP SC40 TEPMINATOR NOT A COMMA 4918 07740 0 01 07676 JMP SC10 GO TO SC10 4919 07741 0 10 02260 SC70 JST IR00 INPUT INT VARIABLE
* NAME: FRTN DWG 70180463000 REV J PAGE 152

4920 07742 0 02 07665 LDA SCT0 CHECK FOR NON-DUMMY 4921 07743 101040 SNZ VARIABLE DIMENSIONS 4922 07744 0 01 07715 JMP SC20 4923 07745 0 02 00026 LDA AT 4924 07746 0 07 00741 SUB K105 4925 07747 101040 SNZ 4926 07750 0 01 07715 JMP SC20 4927 07751 0 10 02615 JST ER00 4928 07752 153304 BCI 1,VD ILLEGAL SYMBOLIC SUBSCRIPT 4929 07753 0 000064 SC90 DAC S1 4930 07754 0 000000 SC91 DAC ** 4931 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 153

4932 * 4933 * 4934 * ******************** 4935 * *INPUT LIST ELEMENT* 4936 * ******************** 4937 * IF THE ITEM IS AN ARRAY. PROCESS THE SUBSCRIPT 4938 07755 0 000000 IL00 DAC ** 4939 07756 0 10 02242 JST NA00 INPUT NAME 4940 07757 0 02 00026 LDA AT 4941 07760 0 07 00741 SUB K105 NON-DUMMMY TEST 4942 07761 100040 SZE 4943 07762 0 01 07765 JMP *+3 4944 07763 0 10 02615 JST ER00 USAGE ERROR 4945 07764 142304 BCI 1,DD DUMMY ITEM IN AN EQUIV. OR DATA LIST 4946 07765 0 02 00710 LDA IU IF IU NOT APR. 4947 07766 0 07 00737 SUB K103 4948 07767 100040 SZE 4949 07770 0 01 10026 JMP IL30 GO TO IL30 4950 07771 0 02 00737 LDA K103 4951 07772 0 10 07666 JST SC00 INPUT SUBSCRIPTS 4952 07773 0 10 03317 JST FA00 FETCH ASSIGNS 4953 07774 0 02 00076 LDA ND IF ND = NS 4954 07775 0 07 00053 SUB NS 4955 07776 100040 SZE S1 = D* S1 + D1* (S2+D2*D3) 4956 07777 0 01 10016 JMP IL10 ELSE, GO TO IL10 4957 10000 0 02 00066 LDA S3 4958 10001 000201 IAB 4959 10002 0 02 00032 LDA D2 4960 10003 0 10 02462 JST IM00 4961 10004 0 06 00065 ADD S2 4962 10005 000201 IAB 4963 10006 0 02 00031 LDA D1 4964 10007 0 10 02462 JST IM00 4965 10010 0 06 00064 ADD S1 4966 10011 000201 IL16 IAB 4967 10012 0 02 00030 LDA D0 4968 10013 0 10 02462 JST IM00 4969 10014 0 04 00064 IL18 STA S1 4970 10015 -0 01 07755 JMP* IL00 RETURN 4971 10016 0 02 00053 IL10 LDA NS IF NS NOT 1 4972 10017 0 07 00735 SUB K101 4973 10020 100040 SZE 4974 10021 0 01 10024 JMP IL20 GO TO IL20 4975 10022 0 02 00064 LDA S1 ELSE, 20 4976 10023 0 01 10011 JMP IL16 4977 10024 0 10 02615 IL20 JST ER00 4978 10025 147304 BCI 1,ND WRONG NUMBER OF DIMENSIONS IN ARRAY 4979 10026 0 10 03274 IL30 JST TV00 TAG VARIABLE 4980 10027 140040 CRA S1 = 0 4981 10030 0 01 10014 JMP IL18 RETURN
* NAME: FRTN DWG 70180463000 REV J PAGE 154

4982 * 4983 * 4984 * ************ 4985 * *FUNCTION * 4986 * *SUBROUTINE* 4987 * ************ 4988 * IF LSTF IS ZERO, THE STATEMENT IS OUT OF ORDER 4989 * FUNCTIONS ARE CHECKED TO ENSURE ARGUMENTS 4990 10031 0 02 00735 R1 LDA K101 4991 10032 0 04 00631 STA SFF SFF = 1 4992 10033 0 02 00652 R2 LDA LSTF 4993 10034 100040 SZE IF LSTF = 0 4994 10035 0 01 10040 JMP R2A 4995 10036 0 10 02615 R2B JST ER00 ILLEGAL STATEMENT 4996 10037 143323 BCI 1,FS NOT FIRST STATEMENT IN SUBPROGRAM 4997 10040 0 10 02242 R2A JST NA00 INPUT NAME 4998 10041 0 02 00625 LDA A 4999 10042 0 04 00632 STA SBF SBF = A 5000 10043 140040 CRA ADDR=0, S/C CODE =0 5001 10044 0 10 13331 JST ON00 OUTPUT NAME BLOCK TO THE LOADER 5002 10045 0 02 00630 LDA MFL 5003 10046 100040 SZE 5004 10047 0 10 03464 JST DM00 DEFINE IM 5005 10050 0 02 00067 LDA TC 5006 10051 0 07 00702 SUB CRET IF TC NOT C/R 5007 10052 100040 SZE 5008 10053 0 01 10061 JMP R2C GO TO 5009 10054 0 02 00631 LDA SFF IF SFF = 0 5010 10055 101040 SNZ 5011 10056 0 01 10065 JMP R2D GO TO R2D 5012 10057 0 10 02615 JST ER00 ERROR 5013 10060 143301 BCI 1,FA FUNCTION HAS NO ARGUMENTS 5014 10061 140040 R2C CRA 5015 10062 0 04 00626 STA I I = 0 5016 10063 0 10 07514 JST GE00 GENERATE SUBPROGRAM ENTRY 5017 10064 0 01 03637 JMP A1 GO TO C/R TEST 5018 10065 0 10 13243 R2D JST OC00 5019 10066 0 01 03641 JMP C6 GO TO CONTINUE 5020 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 155

5021 * 5022 * 5023 * ****************** 5024 * *INTEGER * 5025 * *REAL * 5026 * *DOUBLE PRECISION* 5027 * *COMPLEX * 5028 * *LOGICAL * 5029 * ****************** 5030 * THE MODE FLAG (MFL) IS SET TO THE APPROPRIATE 5031 * VALUE AND ANY ARRAY INFO IS PROCESSED 5032 10067 0 02 00735 A3 LDA K101 INTEGER 5033 10070 0 01 10100 JMP A7A TMFL = INT 5034 10071 0 02 00736 A4 LDA K102 REAL 5035 10072 0 01 10100 JMP A7A TMFL = REAL 5036 10073 0 02 00742 A5 LDA K106 DOUBLE PRECISION 5037 10074 0 01 10100 JMP A7A TMFL = DBL 5038 10075 0 02 00741 A6 LDA K105 COMPLEX 5039 10076 0 01 10100 JMP A7A TMFL = CPX 5040 10077 0 02 00737 A7 LDA K103 LOGICAL 5041 10100 0 04 00630 A7A STA MFL TMFL = LOG 5042 10101 0 02 00652 LDA LSTF IF LSTF = 0, GO TO A7B (2) 5043 10102 101040 SNZ 5044 10103 0 01 10125 JMP A7B ELSE, 5045 10104 0 02 00656 LDA CC SAVE CC 5046 10105 0 04 10131 STA A790 5047 10106 140040 CRA 5048 10107 0 04 00705 STA ICSW 5049 10110 0 10 01350 JST DN00 INPUT DNA 5050 10111 0 02 10131 LDA A790 RESTORE CC 5051 10112 0 04 00656 STA CC 5052 10113 0 04 00705 STA ICSW ICSW = IPL 5053 10114 0 02 00037 LDA DFL IF DFL NOT = 0, GO TO A7B 5054 10115 100040 SZE 5055 10116 0 01 10125 JMP A7B 5056 10117 0 02 00774 LDA TID IF ID = FUNCTI, 5057 10120 0 07 14251 SUB A7K GO TO A9 5058 10121 101040 SNZ SKIP IF NOT 'FUNCTION' 5059 10122 0 01 04157 JMP A9 FUNCTION PROCESSOR 5060 10123 0 10 02615 JST ER00 CONSTRUCTION ERROR 5061 10124 152306 BCI 1,TF 'TYPE' NOT FOLLOWED BY 'FUNCTION' OR LIST 5062 10125 0 10 02242 A7B JST NA00 INPUT NAME 5063 10126 0 02 00630 LDA MFL 5064 10127 0 10 03464 JST DM00 DEFINE IM 5065 10130 0 01 10226 JMP B7 GO TO INPUT DIMENSION 5066 10131 0 00 00000 A790 PZE 0 5067 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 156

5068 * 5069 * 5070 * B1 COMMA OR C/R TEST 5071 * 5072 10132 0 02 00754 B1 LDA K134 IF TC = ',' (CONVERTED TO 17) 5073 10133 0 07 00067 SUB TC 5074 10134 101040 SNZ 5075 10135 -0 01 04155 JMP* A9T2 GO TO SIDSW 5076 10136 0 01 03637 JMP A1 ELSE, GO TO C/R TEST 5077 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 157

5078 * 5079 * 5080 * - B2 EXTERNAL 5081 * TAGS NAME AS SUBPROGRAM 5082 10137 0 10 02242 B2 JST NA00 EXTERNAL, INPUT NAME 5083 10140 0 10 03222 JST TG00 TAG SUBPROGRAM 5084 10141 0 01 10132 JMP B1 GO TO , OP C/R TEST 5085 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 158

5086 * 5087 * 5088 * ***************** 5089 * *DIMENSION * 5090 * *INPUT DIMENSION* 5091 * ***************** 5092 * PROCESS ARRAYS, PUT DIMENSION INFO IN SPECIAL 5093 * ARRAY POINTER ITEM 5094 10142 0 00 00000 B3T0 PZE 0 5095 10143 0 00 00000 B3T1 PZE 0 5096 10144 0 00 00000 B3T3 PZE 0 5097 10145 0 10 02242 B3 JST NA00 5098 10146 0 02 00026 B3A LDA AT IF AT = DUM 5099 10147 0 07 00741 SUB K105 (A) = 0 5100 10150 100040 SZE ELSE (A) = .LT. 0 5101 10151 140500 SSM 5102 10152 0 04 10142 STA B3T0 T0 = (A) 5103 10153 0 02 00025 LDA AF 5104 10154 0 04 10144 STA B3T3 T3 = AF 5105 10155 0 02 00625 LDA A 5106 10156 0 04 10143 STA B3T1 T1 = A 5107 10157 0 02 00026 LDA AT TEST FOR AT=DUMMY 5108 10160 0 07 00741 SUB K105 =5 5109 10161 100040 SZE SKIP NO-USAGE TEST IF DUMMY 5110 10162 0 10 02401 JST NU00 NO USAGE TEST 5111 10163 0 02 10142 LDA B3T0 (A) = T0 5112 10164 0 10 07666 JST SC00 INPUT SUBSCRIPT 5113 10165 0 02 00064 LDA S1 5114 10166 0 04 00774 STA ID 5115 10167 0 02 00065 LDA S2 PLACE SUBSCRIPTS IN ID 5116 10170 0 04 00775 STA ID+1 5117 10171 0 02 00066 LDA S3 5118 10172 0 04 00776 STA ID+2 5119 10173 0 02 00053 LDA NS (A) = 0, B = NS 5120 10174 0400 60 LRL 16 5121 10175 0 10 03623 JST AA00 ASSIGN SPECIAL 5122 10176 0 35 00625 LDX A 5123 10177 1 02 17401 LDA DP+1,1 5124 10200 0412 76 LLR 2 5125 10201 0 02 10144 LDA B3T3 5126 10202 0414 76 LGL 2 5127 10203 0402 76 LRR 2 5128 10204 1 04 17401 STA DP+1,1 DEFINE GF TO GF(A) 5129 10205 0 02 00625 LDA A 5130 10206 0400 62 LRL 14 5131 10207 0 02 10143 LDA B3T1 5132 10210 0 04 00625 STA A A = T1 5133 10211 0 04 00000 STA 0 5134 10212 0 02 00737 LDA K103 5135 10213 0410 62 LLL 14
* NAME: FRTN DWG 70180463000 REV J PAGE 159

5136 10214 1 04 17401 STA DP+1,1 DEFINE GF TO GF(A) 5137 10215 0 02 00067 B3D LDA TC 5138 10216 0 07 00740 SUB K104 IF TC NOT SLASH 5139 10217 100040 SZE 5140 10220 0 01 10132 JMP B1 GO TO ,-C/R TEST 5141 10221 0 02 04155 LDA A9T2 IF SIDSW = COMMON-4 5142 10222 0 07 10303 SUB B4Z9 5143 10223 100040 SZE GO TO B4 (COMMON-0) 5144 10224 0 01 10132 JMP B1 ELSE, GO TO ,-C/R TEST 5145 10225 0 01 10245 JMP B40 5146 10226 0 02 00067 B7 LDA TC IF TC = ( 5147 10227 0 07 14474 SUB K17 5148 10230 100040 SZE 5149 10231 0 01 10215 JMP B3D 5150 10232 0 01 10146 JMP B3A 5151 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 160

5152 * 5153 * 5154 * ******** 5155 * *COMMON* 5156 * ******** 5157 * INPUT BLOCK NAMES AND LINK THEM WITH THE 5158 * FOLLOWING VAR/ARRAY NAMES. BLOCK NAMES 5159 * ARE LINKED TOGETHER THROUGH THEIR GENERAL FIELDS 5160 10233 0 02 00765 B4 LDA K81 5161 10234 0 04 00774 STA ID 5162 10235 0 04 00775 STA ID+1 5163 10236 0 04 00776 STA ID+2 5164 10237 0 02 10303 LDA B4Z9 SET SWITCH IN INPUT DIMENSION 5165 10240 0 04 04155 STA A9T2 5166 10241 0 10 01157 JST CH00 INPUT CHAR 5167 10242 0 07 00720 SUB K9 IF NOT SLASH 5168 10243 100040 SZE GO TO 5169 10244 0 01 10301 JMP B4E 5170 10245 0 10 01350 B40 JST DN00 INPUT DNA 5171 10246 0 02 00740 LDA K104 SLASH TEST 5172 10247 0 10 02352 JST TS00 5173 10250 0400 40 B4B LRL 32 5174 10251 0 02 00735 LDA K101 (A) = SUB, (B) = O 5175 10252 0 10 03623 JST AA00 ASSIGN SPECIAL 5176 10253 0 02 00625 LDA A 5177 10254 0 04 00045 STA F 5178 10255 0 10 03426 JST FL00 FETCH LINK 5179 10256 100040 SZE 5180 10257 0 01 10270 JMP B4D 5181 10260 0 35 00641 LDX CFL 5182 10261 1 02 17401 LDA DP+1,1 GF(CFL) 5183 10262 0 35 00625 LDX A 5184 10263 1 04 17401 STA DP+1,1 GF(A) = GF(CFL) 5185 10264 0 35 00641 LDX CFL 5186 10265 0 02 00625 LDA A 5187 10266 0 06 00675 ADD K122 ='040000 5188 10267 1 04 17401 STA DP+1,1 GF(CFL) = A 5189 10270 0 10 02242 B4D JST NA00 INPUT NAME 5190 10271 0 10 07634 JST ND00 NON DUMMY/SUBPROG TEST 5191 10272 0 10 07625 JST NM00 NON-COMMON TEST 5192 10273 0 10 07602 JST EL00 EXCHANGE LINKS 5193 10274 1 02 17400 LDA DP,1 5194 10275 0 03 00757 ANA B4F ='107777 5195 10276 0 06 00675 ADD K122 AT(A) = COM (='040000) 5196 10277 1 04 17400 STA DP,1 5197 10300 0 01 10226 JMP B7 5198 10301 0 10 01152 B4E JST UC00 UNINPUT COLUMN 5199 10302 0 01 10250 JMP B4B 5200 10303 0 010270 B4Z9 DAC B4D GO TO INPUT DIMENSION 5201 *
* NAME: FRTN DWG 70180463000 REV J PAGE 161

5202 * 5203 * ************* 5204 * *EQUIVALENCE* 5205 * ************* 5206 * STORE EOUIV INFO IN THE DATA POOL FOR LATER 5207 * PROCESSING BY GROUP EQUIV (PART OF SPECS WRAPUP) 5208 10304 0 02 00042 B5 LDA E0 L=NEXT WORD IN EQUIVALENCE TABLE 5209 10305 0 04 00626 STA I I=L 5210 10306 0 07 00735 SUB K101 (=1) 5211 10307 0 04 00042 STA E0 L=L-1 5212 10310 0 07 00637 SUB ABAR 5213 10311 101400 SMI 5214 10312 0 01 10315 JMP *+3 5215 10313 0 10 02615 JST ER00 DATA POOL FULL 5216 10314 146717 BCI 1,MO MEMORY OVERFLOW 5217 10315 0 35 00626 LDX I 5218 10316 140040 CRA 5219 10317 1 04 17400 STA DP,1 DP (I) = 0 5220 10320 0 10 01157 B5B JST CH00 5221 10321 1 02 17400 LDA DP,1 INPUT CHAR 5222 10322 100040 SZE 5223 10323 0 01 10340 JMP B5D 5224 10324 0 02 00067 LDA TC PUT IN FIRST CHARACTER 5225 10325 0414 70 LGL 8 PACK INTO DP (I) 5226 10326 1 04 17400 B5C STA DP,1 5227 10327 0 02 00067 LDA TC 5228 10330 0 07 00702 SUB CRET 5229 10331 101040 SNZ 5230 10332 0 01 03641 JMP C6 CHARACTER E C/R - EXIT 5231 10333 1 02 17400 LDA DP,1 5232 10334 141050 CAL 5233 10335 101040 SNZ 5234 10336 0 01 10320 JMP B5B WORD NOT FULL 5235 10337 0 01 10304 JMP B5 OBTAIN NEW WORD 5236 10340 0 02 00067 B5D LDA TC PUT IN SECOND CHARACTER 5237 10341 1 05 17400 ERA DP,1 5238 10342 0 01 10326 JMP B5C 5239 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 162

5240 * 5241 * 5242 * ********************* 5243 * *RELATE COMMON ITEMS* 5244 * ********************* 5245 * ALL ITEMS LINKED TO A COMMON BLOCK ARE PROCESSED 5246 * AND THEIR INVERSE OFFSETS CALCULATED. THESE 5247 * WILL BE INVERTED LATER TO GIVE TRUE 5248 * POSITION IN THE BLOCK. 5249 10343 0 00 00000 C2T0 PZE 0 5250 10344 0 02 00641 C2 LDA CFL 5251 10345 0 04 00625 STA A A = F = CFL 5252 10346 140040 C2A CRA 5253 10347 0 04 10343 STA C2T0 T0 = 0 5254 10350 0 02 00625 LDA A 5255 10351 0 04 00045 STA F F = A 5256 10352 0 10 03426 C2B JST FL00 FETCH LINK 5257 10353 101040 SNZ 5258 10354 0 01 10362 JMP C2D 5259 10355 0 02 00030 LDA D0 5260 10356 0 06 10343 ADD C2T0 T0 = T0 + D0 5261 10357 0 04 10343 STA C2T0 5262 10360 0 10 03477 JST DA00 DEFINE ADDRESS FIELD 5263 10361 0 01 10352 JMP C2B 5264 10362 0 10 03426 C2D JST FL00 FETCH LINK 5265 10363 100040 SZE 5266 10364 0 01 10373 JMP C2F 5267 10365 0 02 00025 LDA AF 5268 10366 0 04 00625 STA A A = AF 5269 10367 0 07 00641 SUB CFL 5270 10370 100040 SZE 5271 10371 0 01 10346 JMP C2A AF = CFL, NO 5272 10372 0 01 10410 JMP C3 YES - GROUP EQUIVALENCE 5273 10373 0 02 10343 C2F LDA C2T0 5274 10374 0 07 00025 SUB AF (A) = T0 - AF 5275 10375 0 10 03477 JST DA00 DEFINE AF 5276 10376 0 02 00710 LDA IU 5277 10377 100040 SZE 5278 10400 0 01 10362 JMP C2D 5279 10401 0 10 03274 JST TV00 TAG VARIABLE 5280 10402 0 01 10362 JMP C2D 5281 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 163

5282 * 5283 * 5284 * ******************* 5285 * *GROUP EOUIVALENCE* 5286 * ******************* 5287 * THE EQUIV GROUPS ARE PRDCESSED NOW. ANY COMMON 5288 * USAGE IS CHECKED TO SEE THAT THE ORIGIN 5289 * IS NOT MOVED AND THAT ONLY ONE ITEM IS 5290 * COMMON. 5291 10403 0 00 00000 C3T0 PZE 0 5292 10404 0 00 00000 C3T1 PZE 0 5293 10405 0 00 00000 C3T2 PZE 0 5294 10406 0 00 00000 C3T3 PZE 0 5295 10407 0 00 00000 C3T4 PZE 0 5296 010403 T0C3 EQU C3T0 5297 010404 T1C3 EQU C3T1 5298 010406 T3C3 EQU C3T3 5299 010407 T4C3 EQU C3T4 5300 10410 0 02 00042 C3 LDA E0 5301 10411 0 04 00654 STA EBAR EBAR=E(0) = END OF EQUIVALENCE TABLE 5302 10412 0 02 00113 LDA L0 5303 10413 0 04 00040 STA E E=L(0) = START OF EQUIVALENCE TABLE 5304 10414 0 02 00702 LDA CRET 5305 10415 0 04 00067 STA TC 5306 10416 0 02 00040 C3B LDA E 5307 10417 0 04 00041 STA EP E-PRIME = E 5308 10420 140040 CRA 5309 10421 0 04 00045 STA F I = 0 5310 10422 0 02 00736 LDA K102 T4 = STR-ABS 5311 10423 0 04 10407 STA C3T4 5312 10424 0 10 01157 JST CH00 INPUT CHARACTER 5313 10425 0 02 14474 LDA K17 5314 10426 0 10 02352 JST TS00 (TEST 5315 10427 0 10 07755 C3D JST IL00 INPUT LIST ELEMENT 5316 10430 0 10 10717 JST SAF 5317 10431 0 02 00064 LDA S1 5318 10432 0 07 00025 SUB AF T1 = S1-AF 5319 10433 0 04 10404 STA C3T1 5320 10434 0 02 00625 LDA A T2 = A 5321 10435 0 04 10405 STA C3T2 5322 10436 0 02 00045 LDA F IF I=0, GO TO C3P 5323 10437 101040 SNZ 5324 10440 0 01 10554 JMP C3P 5325 10441 0 02 00045 C3G LDA F ELSE, 5326 10442 0 07 00625 SUB A IF A = I, GO TO C3N 5327 10443 101040 SNZ 5328 10444 0 01 10523 JMP C3N 5329 10445 0 02 00026 C3H LDA AT ELSE, 5330 10446 0 07 00740 SUB K104 IF AT = COM, GO TO C30 5331 10447 101040 SNZ
* NAME: FRTN DWG 70180463000 REV J PAGE 164

5332 10450 0 01 10530 JMP C3O 5333 10451 0 02 10404 C3H2 LDA T1C3 5334 10452 0 06 00025 ADD AF T(0) = AF +T (1) 5335 10453 0 04 10403 STA T0C3 5336 10454 0 02 10407 LDA T4C3 IF T(4) = 0, GO TO C3K 5337 10455 0 07 00740 SUB K104 5338 10456 100040 SZE 5339 10457 0 01 10467 JMP C3K 5340 10460 0 02 10406 LDA T3C3 ELSE, 5341 10461 0 07 10403 SUB T0C3 T(0) = T(3)-T(0) 5342 10462 0 04 10403 STA T0C3 5343 10463 101400 SMI 5344 10464 0 01 10467 JMP C3K IF T(0)<0, 5345 10465 0 10 02615 JST ER00 5346 10466 144703 BCI 1,IC IMPOSSIBLE COMMON EQUIVALENCING 5347 10467 0 02 10407 C3K LDA C3T4 5348 10470 000201 IAB AT (A) = COM 5349 10471 0 02 10403 LDA T0C3 5350 10472 0415 76 ALS 2 5351 10473 0404 76 LGR 2 5352 10474 0 10 03571 JST AF00 DEFINE AF 5353 10475 0 10 03426 JST FL00 FETCH LINK 5354 10476 0 10 10717 JST SAF 5355 10477 0 02 00625 LDA A 5356 10500 0 07 10405 SUB C3T2 IF A .NE. T (2) 5357 10501 100040 SZE GO TO C3G (5) 5358 10502 0 01 10441 JMP C3G 5359 * EXCHANGE CL(A) == CL(I) 5360 10503 0 10 07602 JST EL00 EXCHANGE LINKS (CL(A) WITH CL(F) ) 5361 10504 0 02 00067 C3M LDA TC IF TC = , 5362 10505 0 07 00754 SUB K134 5363 10506 101040 SNZ 5364 10507 0 01 10427 JMP C3D ELSE, 5365 10510 0 10 02360 JST IP00 )-INPUT OPERATOR 5366 10511 0 02 00067 LDA TC 5367 10512 0 07 00754 SUB K134 IF TC = , OR C/R 5368 10513 101040 SNZ GO TO C3B (1) 5369 10514 0 01 10416 JMP C3B 5370 10515 0 02 00067 LDA TC 5371 10516 0 07 00702 SUB CRET 5372 10517 101040 SNZ 5373 10520 0 01 10416 JMP C3B ELSE, 5374 10521 0 10 02615 JST ER00 5375 10522 142703 BCI 1,EC EQUIVALENCE GROUP NOT FOLLOWED BY , OR CR 5376 10523 0 02 10404 C3N LDA T1C3 IF T1 = O, GO TO C3M 5377 10524 101040 SNZ 5378 10525 0 01 10504 JMP C3M 5379 10526 0 10 02615 C3N5 JST ER00 ERROR IMPOSSIBLE GROUP 5380 10527 144705 BCI 1,IE IMPOSSIBLE EQUIVALENCE GROUPING 5381 10530 0 02 00064 C3O LDA S1
* NAME: FRTN DWG 70180463000 REV J PAGE 165

5382 10531 0 06 00025 ADD AF 5383 10532 0 04 10406 STA T3C3 5384 10533 0 02 00740 LDA K104 =4 5385 10534 0 11 10407 CAS T4C3 5386 10535 0 01 10537 JMP *+2 5387 10536 0 01 10526 JMP C3N5 5388 10537 0 04 10407 STA T4C3 5389 10540 0 02 00045 LDA F 5390 10541 0 11 00625 CAS A IF A = F, GO TO C3M (8) 5391 10542 0 01 10544 JMP *+2 5392 10543 0 01 10504 JMP C3M ELSE, 5393 10544 0 04 00625 STA A A = I 5394 10545 0 13 10405 IMA C3T2 5395 10546 0 04 00045 STA F 5396 10547 140040 CRA T1 = 0 5397 10550 0 04 10404 STA C3T1 5398 10551 0 10 03317 JST FA00 FETCH ASSIGNS 5399 10552 0 10 10717 JST SAF 5400 10553 0 01 10451 JMP C3H2 GO TO C3H2 5401 10554 0 02 00625 C3P LDA A 5402 10555 0 04 00045 STA F 5403 10556 0 01 10445 JMP C3H 5404 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 166

5405 * 5406 * 5407 * *********************** 5408 * *ASSIGN SPECIFICATIONS* 5409 * *********************** 5410 * NON-COMMON NON-EQUIV ITEMS ARE PROCESSED AFTER 5411 * COMMON BLOCKS ARE OUTPUT (WITH SIZE). 5412 10557 0 00 00000 C4T0 PZE 0 5413 10560 0 00 00000 C4T1 PZE 0 5414 10561 0 04 00625 C4B STA A A = 0 5415 10562 0 02 00625 C4C LDA A 5416 10563 0 06 00741 ADD K105 I = A = A+5 5417 10564 0 04 00625 STA A 5418 10565 0 04 00045 STA F 5419 10566 0 11 00637 CAS ABAR 5420 10567 0 01 04370 JMP NP35 RETURN TO FIRST NON-SPEC CHECK (POINT 1) 5421 10570 101000 NOP 5422 10571 0 10 03317 JST FA00 ELSE, FETCH ASSIGN 5423 10572 0 02 00026 LDA AT 5424 10573 0 07 00736 SUB K102 IF AT = STR-ABS 5425 10574 100040 SZE IU=VAR. OR ARR, AND 5426 10575 0 01 10562 JMP C4C NT = 0 5427 10576 0 02 00710 LDA IU GO TO C4E 5428 10577 0 07 00736 SUB K102 ELSE, GO TO C4C 5429 10600 100400 SPL 5430 10601 0 01 10562 JMP C4C 5431 10602 0 02 00054 LDA NT 5432 10603 100040 SZE 5433 10604 0 01 10562 JMP C4C 5434 10605 0 04 10557 STA C4T0 T0 = 0, T1 =-MAX 5435 10606 0 07 00670 SUB K111 5436 10607 0 04 10560 STA C4T1 5437 10610 0 10 03443 JST KT00 SET D(0) = NO. OF WORDS PER ITEM 5438 10611 0 10 10717 C4F JST SAF 5439 10612 0 11 10557 CAS C4T0 5440 10613 0 04 10557 STA C4T0 5441 10614 101000 NOP 5442 10615 0 02 00030 LDA D0 5443 10616 0 07 00025 SUB AF (A) = D(0) - AF 5444 10617 0 11 10560 CAS C4T1 5445 10620 0 04 10560 STA C4T1 5446 10621 101000 NOP 5447 10622 0 10 03426 JST FL00 FETCH LINK ( (A)=A - F 5448 10623 100040 SZE 5449 10624 0 01 10611 JMP C4F GO TO C4F 5450 10625 0 02 00643 LDA RPL 5451 10626 0 06 10557 ADD C4T0 RPL = RPL + T0 + T1 5452 10627 0 04 10557 STA C4T0 5453 10630 0 06 10560 ADD C4T1 T0 = RPL-T1 5454 10631 0 04 00643 STA RPL
* NAME: FRTN DWG 70180463000 REV J PAGE 167

5455 10632 0 10 10717 C4I JST SAF 5456 10633 0 02 00735 LDA K101 5457 10634 000201 IAB (B) = REL 5458 10635 0 02 10557 LDA C4T0 (A) = T0-AF 5459 10636 0 07 00025 SUB AF 5460 10637 0 10 03571 JST AF00 DEFINE AFT 5461 10640 0 10 03426 JST FL00 FETCH LINK 5462 10641 100040 SZE IF (A) NOT ZERO, 5463 10642 0 01 10632 JMP C4I NOT END OF EQUIVALENCE GROUP 5464 10643 0 01 10562 JMP C4C CHECK NEXT ITEM IN ASSIGNMENT TABLE 5465 * 5466 10644 0 02 00044 C4L2 LDA FLT1 = LINK LOCATION TO COMMON BLOCK NAME 5467 10645 0 04 10560 STA C4T1 5468 10646 0 02 00625 C4L3 LDA A 5469 10647 0 04 00626 STA I SAVE A FOR LATER MODIFICATION 5470 10650 0 10 03426 JST FL00 FETCH LINK 5471 10651 101040 SNZ 5472 10652 0 01 10677 JMP C4M END OF COMMON GROUP 5473 10653 0 35 00626 LDX I SET INDEX TO POINT TO CURRENT ITEM IN 5474 * COMMON GROUP. 5475 10654 1 02 17400 LDA DP,1 SET CL FIELD TO POINT AT COMMON BLOCK 5476 * NAME. 5477 10655 0 03 00674 ANA K119 (='177000) 5478 10656 0 06 10560 ADD C4T1 (= LINK LOCATION OF COMMON BLOCK NAME) 5479 10657 1 04 17400 STA DP,1 5480 10660 0 01 10646 JMP C4L3 PROCESS NEXT ITEM IN COMMON BLOCK 5481 * 5482 10661 0 02 00641 C4 LDA CFL LOC. OF FIRST (BLANK) COMMON BLOCK 5483 10662 0 04 00045 STA F 5484 10663 0 04 00625 C4L6 STA A 5485 10664 140040 CRA 5486 10665 0 04 10557 STA C4T0 5487 10666 0 10 03426 C4L JST FL00 FETCH LINK 5488 10667 101040 SNZ 5489 10670 0 01 10644 JMP C4L2 NO MORE ITEMS IN COMMON BLOCK 5490 10671 0 02 00030 LDA D0 ELSE, IF T0 .LT. D0+AF, 5491 10672 0 06 00025 ADD AF 5492 10673 0 11 10557 CAS C4T0 T0 = D0 + AF 5493 10674 0 04 10557 STA C4T0 5494 10675 101000 NOP 5495 10676 0 01 10666 JMP C4L GO TO C4L 5496 10677 0 02 00025 C4M LDA AF 5497 10700 0 04 00045 STA F I=AF 5498 10701 0 02 10557 LDA C4T0 (A) = T0 5499 10702 0 10 03477 JST DA00 DEFINE AF 5500 *....OUTPUT COMMON BLOCK NAME AND SIZE TO LOADER 5501 10703 0 02 00025 LDA AF LENGTH OF COMMON BLOCK 5502 10704 101040 SNZ 5503 10705 0 01 10711 JMP *+4 DON'T GENERATE BLOCK OF LENGTH ZERO 5504 10706 0 03 00670 ANA K111 ='37777
* NAME: FRTN DWG 70180463000 REV J PAGE 168

5505 10707 0 06 00675 ADD K122 ='40000 (S/C CODE = 1) 5506 10710 0 10 13331 JST ON00 OUTPUT NAME BLOCK TO LOADER 5507 10711 0 02 00045 LDA F 5508 10712 0 07 00641 SUB CFL IF I = CFL 5509 10713 101040 SNZ 5510 10714 0 01 10561 JMP C4B 5511 10715 0 02 00045 LDA F 5512 10716 0 01 10663 JMP C4L6 5513 * 5514 10717 0 000000 SAF DAC ** 5515 10720 0 02 00025 LDA AF 5516 10721 0414 76 LGL 2 5517 10722 0405 76 ARS 2 5518 10723 0 04 00025 STA AF 5519 10724 -0 01 10717 JMP* SAF 5520 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 169

5521 * 5522 * ************************** 5523 * *DATA STATEMENT PROCESSOR* 5524 * ************************** 5525 * PROCESS VARIABLE LIST .THEN OUTPUT LITERAL ITEMS 5526 * TO APPROPRIATE LOCATIONS. MODES MUST AGREE 5527 10725 0 00 00000 T0W4 PZE 0 5528 10726 0 00 00000 T1W4 PZE 0 5529 10727 000300 ALOW OCT 300 'A'-1 5530 10730 000333 AHGH OCT 333 'Z'+1 5531 10731 0 00 00000 G PZE 0 LOWEST INDEX POINT IN LIST 5532 10732 0 02 00113 W4 LDA L0 5533 10733 0 04 00626 STA I I=END OF DATA POOL 5534 10734 0 10 07755 W4B JST IL00 INPUT LIST ELEMENT 5535 10735 0 02 00026 LDA AT D (0) = =WDS/ITEM 5536 10736 0 07 00736 SUB K102 5537 10737 101040 SNZ IF AT = 'STR-ABS' 5538 10740 0 01 11273 JMP W4T GO TO 5539 10741 0 35 00626 LDX I 5540 10742 0 02 00064 LDA S1 S1 = DEFLECTION IF AN ARRAY 5541 10743 0 06 00025 ADD AF 5542 10744 1 04 17400 STA DP,1 DP(E) = AF + SI 5543 10745 0 02 00625 W4C LDA A 5544 10746 1 04 17377 STA DP-1,1 DP (E-1) = A 5545 10747 0 02 00626 LDA I 5546 10750 0 07 00736 SUB K102 5547 10751 0 04 00626 STA I 5548 10752 0 04 10731 STA G 5549 10753 0 02 00067 LDA TC IF TC = , 5550 10754 0 07 00754 SUB K134 5551 10755 101040 SNZ 5552 10756 0 01 10734 JMP W4B GO TO W4B 5553 10757 0 02 00740 LDA K104 5554 10760 0 10 02352 JST TS00 TEST FOR SLASH TERMINATOR 5555 10761 0 02 00643 LDA RPL 5556 10762 0 04 10726 STA T1W4 5557 10763 0 02 00113 LDA L0 5558 10764 0 04 00626 STA I I= END OF DATA POOL 5559 10765 140040 W4E CRA 5560 10766 0 04 00712 STA KPRM K' = KBAR = 0 5561 10767 0 04 00711 STA KBAR 5562 10770 0 10 02346 W4F JST XN00 TEST FOR SPECIAL CASE OR $ OR NAME 5563 10771 0 02 00067 LDA TC X 5564 10772 0 11 00662 CAS K15 '$' 5565 10773 100000 SKP NO 5566 10774 0 01 11036 JMP W4Q YES ... TREAT SPECIAL 5567 10775 0 11 10727 CAS ALOW A NAME BY CHANCE 5568 10776 0 11 10730 CAS AHGH X 5569 10777 0 01 11022 JMP W4X NO ... PROCESS NORMALLY 5570 11000 0 01 11022 JMP W4X DITTO
* NAME: FRTN DWG 70180463000 REV J PAGE 170

5571 11001 0 10 02242 JST NA00 INPUT VARIABLE NAME 5572 11002 0 15 10725 W4Y STX T0W4 SAVE POINTER TO NAME (OR STMT #) 5573 11003 0 35 00626 LDX I POINTS TO VAR WE'RE ORG'ING TO 5574 11004 0 15 00712 STX KPRM KILL REPITITION COUNT 5575 11005 1 02 17400 LDA DP,1 SET PGM COUNTER 5576 11006 0 04 00643 STA RPL X 5577 11007 1 02 17377 LDA DP-1,1 MAKE SURE TARGET IS INTEGER 5578 11010 0 04 00625 STA A X 5579 11011 0 10 03317 JST FA00 X 5580 11012 0 02 00706 LDA IM X 5581 11013 0 05 00735 ERA K101 X 5582 11014 100040 SZE X 5583 11015 0 01 11173 JMP WERR ERROR ... DAC MUST BE INTEGER 5584 11016 0 35 10725 LDX T0W4 SET A TO NAME OR STMT # WE DAC'ING AT 5585 11017 0 15 00625 STX A X 5586 11020 0 10 11471 JST OB00 OUTPUT DAC 5587 11021 0 01 11175 JMP W420 CONTINUE NORMALLY 5588 11022 0 10 01350 W4X JST DN00 INPUT. DNA 5589 11023 0 02 00054 LDA NT 5590 11024 100040 SZE IF NT = 0 5591 11025 0 01 11043 JMP W4G VARIABLE OR ARRAY 5592 11026 0 02 00067 LDA TC LAST CHARACTER 5593 11027 0 11 14474 CAS K17 ='250 ( =( ) 5594 11030 0 01 11032 JMP *+2 5595 11031 0 01 11034 JMP *+3 START OF COMPLEX CONSTANT 5596 11032 0 10 02615 JST ER00 ERROR 5597 11033 141716 BCI 1,CN NON-CON DATA 5598 11034 0 04 00633 STA SXF SET SXF TO NON-ZERO 5599 11035 0 01 10770 JMP W4F FINISH INPUT OF COMPLEX CONSTANT 5600 11036 0 10 01157 W4Q JST CH00 STEP OVER '$' 5601 11037 0 10 02264 JST IS00 INPUT STATEMENT NUMBER 5602 11040 0 15 10725 STX T0W4 SAVE POINTER TO STMT # 5603 11041 0 10 01307 JST FN00 FUDGE TERMINATING CHARACTER 5604 11042 0 01 11003 JMP W4Y+1 JOIN COMMON PROCESSING 5605 11043 0 02 00711 W4G LDA KBAR MULTIPLY COUNT 5606 11044 100040 SZE 5607 11045 0 01 11057 JMP W4K GO TO W4K 5608 11046 0 02 00067 LDA TC IF TC NOT * 5609 11047 0 07 00737 SUB K103 5610 11050 100040 SZE 5611 11051 0 01 11062 JMP W4L 5612 11052 0 02 00774 LDA ID 5613 11053 0 07 00735 SUB K101 5614 11054 0 04 00711 STA KBAR KBAR = ID-1 5615 11055 0 10 02433 JST IT00 INTEGER TEST 5616 11056 0 01 10770 JMP W4F 5617 11057 0 02 00712 W4K LDA KPRM IF K NOT ZERO 5618 11060 100040 SZE 5619 11061 0 01 11067 JMP W4M GO TO W4M 5620 11062 0 02 00711 W4L LDA KBAR
* NAME: FRTN DWG 70180463000 REV J PAGE 171

5621 11063 0415 77 ALS 1 K ' = E-3* KBAR 5622 11064 140407 TCA 5623 11065 0 06 00626 ADD I 5624 11066 0 04 00712 STA KPRM 5625 11067 0 35 00626 W4M LDX I 5626 11070 1 02 17377 LDA DP-1,1 5627 11071 0 04 00625 STA A A = DP (E-1) 5628 11072 0 02 00706 LDA IM 5629 11073 0 04 10725 STA T0W4 T0 = IM 5630 11074 0 10 03317 JST FA00 5631 11075 0 02 00644 LDA BDF IF BDF NOT ZERO 5632 11076 100040 SZE 5633 11077 0 01 11222 JMP W4S GO TO W4S 5634 11100 0 10 07625 JST NM00 NON-COMMON TEST 5635 11101 0 35 00626 W4O LDX I 5636 11102 1 02 17400 LDA DP,1 5637 11103 0 04 00643 STA RPL RPL = AF 5638 11104 0 10 13531 JST FS00 FLUSH 5639 11105 0 02 01347 LDA HOLF IS IT HOLLERITH DATA 5640 11106 100040 SZE NO 5641 11107 0 01 11125 JMP WHOW YES, GO TO OUTPUT IT 5642 11110 0 35 00030 LDX D0 5643 11111 1 01 11111 JMP *,1 SWITCH ON NUMBER OF WORDS TO OUTPUT 5644 11112 0 01 11164 JMP W405 5645 11113 0 01 11154 JMP W403 5646 11114 0 01 11160 JMP W404 5647 11115 0 02 00776 LDA TID+2 5648 11116 0 10 13243 JST OC00 5649 11117 0 02 00775 LDA TID+1 5650 11120 0 10 13243 JST OC00 5651 11121 0 02 03273 LDA TIDB+2 5652 11122 0 10 13243 JST OC00 5653 11123 0 02 03272 LDA TIDB+1 5654 11124 0 01 11165 JMP W406 5655 11125 0 02 00030 WHOW LDA D0 (A)=NO. OF WORDS PER ITEM 5656 11126 0415 77 ALS 1 (A)=NO. OF CHARS. PER ITEM 5657 11127 0 04 00056 STA NTID NTID=NO. OF CHARS. TO BE OUTPUT 5658 11130 0 07 01347 SUB HOLF 5659 11131 100400 SPL 5660 11132 0 01 11173 JMP WERR 5661 11133 0 02 00774 LDA ID FIRST WORD 5662 11134 0 10 11144 JST WSNG OUTPUT IT 5663 11135 0 02 00775 LDA ID+1 2ND WORD 5664 11136 0 10 11144 JST WSNG OUTPUT IT 5665 11137 0 02 00776 LDA ID+2 3RD WORD 5666 11140 0 10 11144 JST WSNG OUTPUT IT 5667 11141 0 02 00777 LDA ID+3 4TH WORD 5668 11142 0 10 13243 JST OC00 OUTPUT IT 5669 11143 0 01 11175 JMP W420 TO CHECK NEXT DATA 5670 *
* NAME: FRTN DWG 70180463000 REV J PAGE 172

5671 11144 0 00 00000 WSNG PZE 0 5672 11145 0 10 13243 JST OC00 OUTPUT (A) 5673 11146 0 02 00056 LDA NTID NO. OF CHARS. REMAINED TO BE OUTPUT 5674 11147 0 07 00736 SUB K102 5675 11150 0 04 00056 STA NTID NTID=NTID-2 5676 11151 101040 SNZ 5677 11152 0 01 11175 JMP W420 ALL FINISHED, CHECK NEXT ITEM 5678 11153 -0 01 11144 JMP* WSNG SOME HOLLERITH CHARS. REMAINED 5679 11154 0 02 00776 W403 LDA TID+2 REAL OUTPUT 5680 11155 0 10 13243 JST OC00 5681 11156 0 02 00775 LDA TID+1 5682 11157 0 01 11165 JMP W406 5683 11160 0 02 00776 W404 LDA TID+2 DOUBLE PRECISION OUTPUT 5684 11161 0 10 13243 JST OC00 5685 11162 0 02 00775 LDA TID+1 5686 11163 0 10 13243 JST OC00 5687 11164 0 02 00774 W405 LDA TID INTEGER OUTPUT 5688 11165 0 10 13243 W406 JST OC00 5689 11166 0 02 10725 LDA T0W4 5690 11167 0 05 00706 ERA IM 5691 11170 0 03 00741 ANA K105 5692 11171 101040 SNZ 5693 11172 0 01 11175 JMP *+3 5694 * TO BE OUTPUT, RETURN 5695 11173 0 10 02615 WERR JST ER00 5696 11174 142315 BCI 1,DM DATA AND DATA NAME MODE DO NOT AGREE 5697 11175 0 02 00626 W420 LDA I 5698 11176 0 07 00736 SUB K102 5699 11177 0 04 00626 STA I I = I-2 5700 11200 0 11 00712 CAS KPRM 5701 11201 101000 NOP 5702 11202 0 01 11067 JMP W4M MORE TO DO 5703 11203 0 07 10731 SUB G TEST FOR COMPLETE 5704 11204 100040 SZE 5705 11205 0 01 11217 JMP W4P 5706 11206 0 02 00740 LDA K104 5707 11207 0 10 02352 JST TS00 5708 11210 0 02 10726 LDA T1W4 5709 11211 0 04 00643 STA RPL 5710 11212 0 10 01157 JST CH00 INPUT NEXT CHARACTER 5711 11213 0 07 00734 SUB K5 ='254 (,) 5712 11214 100040 SZE SKIP IF CHAR = COMMA 5713 11215 0 01 03637 JMP A1 CHECK FOR (CR) 5714 11216 0 01 10732 JMP W4 PROCESS NEXT DATA GROUP 5715 11217 0 02 00754 W4P LDA K134 5716 11220 0 10 02352 JST TS00 5717 11221 0 01 10765 JMP W4E 5718 11222 0 10 13531 W4S JST FS00 FLUSH BUFFER IF NECESSARY 5719 11223 0 02 00025 LDA AF POSITION WITHIN COMMON BLOCK 5720 11224 0400 62 LRL 14
* NAME: FRTN DWG 70180463000 REV J PAGE 173

5721 11225 0 02 00742 LDA K106 FORMAT BCD OUTPUT 5722 11226 0414 72 LGL 6 5723 11227 0410 72 LLL 6 5724 11230 0 04 13650 STA OCI 5725 11231 000201 IAB 5726 11232 0 03 00672 ANA K116 5727 11233 0 04 13651 STA OCI+1 5728 11234 0 10 03426 JST FL00 FETCH LINK 5729 11235 1 02 17404 LDA DP+4,1 5730 11236 140500 SSM 5731 11237 0416 77 ALR 1 5732 11240 140500 SSM 5733 11241 0406 77 ARR 1 5734 11242 0400 70 LRL 8 5735 11243 0 05 13651 ERA OCI+1 5736 11244 0 04 13651 STA OCI+1 5737 11245 1 02 17403 LDA DP+3,1 5738 11246 000201 IAB 5739 11247 1 02 17404 LDA DP+4,1 5740 11250 0410 70 LLL 8 5741 11251 0 04 13652 STA OCI+2 5742 11252 1 02 17402 LDA DP+2,1 5743 11253 000201 IAB 5744 11254 1 02 17403 LDA DP+3,1 5745 11255 0410 70 LLL 8 5746 11256 0 04 13653 STA OCI+3 5747 11257 1 02 17402 LDA DP+2,1 5748 11260 0414 76 LGL 2 5749 11261 0 06 00737 ADD K103 5750 11262 0414 72 LGL 6 5751 11263 0 04 13654 STA OCI+4 5752 11264 0 02 00750 LDA K128 5753 11265 0 04 00063 STA OCNT 5754 11266 0 35 00626 LDX I I POINTS TO DATA TABLE 5755 11267 1 02 17377 LDA DP-1,1 SET A TO VARIABLE 5756 11270 0 04 00625 STA A 5757 11271 0 10 03317 JST FA00 5758 11272 0 01 11101 JMP W4O 5759 11273 0 02 00735 W4T LDA K101 =1 (=REL) 5760 11274 000201 IAB 5761 11275 0 02 00643 LDA RPL 5762 11276 0 10 03571 JST AF00 DEFINE AFT (AT=REL, AF=RPL) 5763 11277 0 35 00626 LDX I SET POINTER IN DATA POOL 5764 11300 0 02 00643 LDA RPL 5765 11301 1 04 17400 STA DP,1 DP(I) = RPL OF VARIABLE 5766 11302 0 06 00030 ADD D0 5767 11303 0 04 00643 STA RPL 5768 11304 0 01 10745 JMP W4C 5769 * 5770 *
* NAME: FRTN DWG 70180463000 REV J PAGE 174

5771 * ********************************* 5772 * *BLOCK DATA SUBPROGRAM PROCESSOR* 5773 * ********************************* 5774 * SET BLOCK DATA FLAG AND OUTPUT FORCE LOAD CODE 5775 11305 0 02 00652 R3 LDA LSTF =0 IF FIRST STATEMENT IN THE SUBPROGRAM 5776 11306 100040 SZE 5777 11307 0 01 11312 JMP *+3 5778 11310 0 10 02615 JST ER00 ERROR...NOT FIRST STATEMENT 5779 11311 141314 BCI 1,BL 'BLOCK DATA' NOT FIRST STATEMENT 5780 11312 0 04 00644 STA BDF SET BLOCK DATA FLAG ON (NON-ZERO) 5781 11313 0 10 01157 JST CH00 INPUT NEXT CHARACTER 5782 11314 0 01 03637 JMP A1 CHECK FOR (CR) AND EXIT 5783 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 175

5784 * 5785 * 5786 * 5787 * 5788 * 5789 * 5790 * 5791 * *************************** 5792 * *TRACE STATEMENT PROCESSOR* 5793 * *************************** 5794 * SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG 5795 11315 0 10 02346 TRAC JST XN00 EXAMINE NEXT CHARACTER 5796 11316 100040 SZE SKIP IF CHAR. WAS A DIGIT 5797 11317 0 01 11324 JMP TRAD JUMP IF CHAR. WAS A LETTER 5798 11320 0 10 02264 JST IS00 INPUT STATEMENT NO. 5799 11321 0 02 00625 LDA A STATEMENT NO. POINTER 5800 11322 0 04 00645 STA TRF SET TRACE FLAG ON 5801 11323 0 01 03637 JMP A1 TEST FOR (CR) AND EXIT 5802 * 5803 11324 0 10 02242 TRAD JST NA00 INPUT NAME 5804 11325 0 35 00625 LDX A SET INDEX TO NAME ENTRY 5805 11326 1 02 17404 LDA DP+4,1 TT(A) TRACE TAG 5806 11327 140024 CHS 5807 11330 1 04 17404 STA DP+4,1 5808 11331 0 01 10132 JMP B1 (,) OR (CR) TEST 5809 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 176

5810 * (RETURN TO TRAC IF (,) ) 5811 * 5812 * 5813 * 5814 * ******************** 5815 * *OUTPUT OBJECT LINK* 5816 * ******************** 5817 11332 0 000000 OL00 DAC ** 5818 11333 0 10 11363 JST CN00 CALL NAME 5819 11334 0 02 00774 LDA ID (A) = IP 5820 11335 0 10 13243 JST OC00 OUTPUT ABS 5821 * 5822 11336 -0 01 11332 JMP* OL00 5823 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 177

5824 * 5825 * ***************** 5826 * *OUTPUT I/O LINK* 5827 * ***************** 5828 * GENERATE I/O DRIVER LINKAGE CODE. NAME OF 5829 * CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR 5830 * IS A CONSTANT. 5831 11337 0 000000 OI00 DAC ** 5832 11340 0 10 02253 JST IV00 INPUT INT VAR/CON 5833 11341 0 02 00054 LDA NT 5834 11342 101040 SNZ IF NT = 0 5835 11343 0 01 11357 JMP OI20 GO TO OI20 5836 11344 0 02 00774 LDA ID IF ID CR 9 5837 11345 0 07 00746 SUB K126 GO TO OI20 5838 11346 101400 SMI 5839 11347 0 01 11357 JMP OI20 5840 * FORM F$RN OR F$WN 5841 11350 0 02 00052 LDA NAMF+1 5842 11351 0 03 00672 ANA K116 5843 11352 0 06 00774 ADD ID 5844 11353 0 06 00665 ADD K60 ='260 (SP) 5845 11354 0 04 00052 STA NAMF+1 5846 11355 0 10 11363 OI10 JST CN00 CALL NAME 5847 11356 -0 01 11337 JMP* OI00 RETURN 5848 11357 0400 40 OI20 LRL 32 5849 11360 0 02 13030 LDA OMI7 OUTPUT OA 5850 11361 0 10 11471 JST OB00 (LOAD A (UNIT NO.)) 5851 11362 0 01 11355 JMP OI10 FO TO OI10 5852 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 178

5853 * 5854 * 5855 * *********** 5856 * *CALL NAME* 5857 * *********** 5858 * SET UP NAME AND GENERATE CODE FOR CALLING IT. 5859 11363 0 000000 CN00 DAC ** 5860 11364 0 02 13023 LDA OMI2 SET FTOP TO 'JST' 5861 11365 0 04 00043 STA FTOP 5862 11366 0 10 11370 JST RE00 OUTPUT 'JST NAME' 5863 11367 -0 01 11363 JMP* CN00 RETURN 5864 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 179

5865 * 5866 * 5867 * ********************** 5868 * * REFERENCE EXTERNAL * 5869 * ********************** 5870 * OUTPUT EXTERNAL REFERENCING COMMAND 5871 11370 0 011370 RE00 DAC * 5872 11371 0 10 13531 JST FS00 FLUSH THE BUFFER 5873 11372 0 02 00043 LDA FTOP SET FTOP INTO OCI FOR OUTPUT 5874 11373 0404 74 LGR 4 5875 11374 0 06 11441 ADD KRE1 5876 11375 0 04 13650 STA OCI 5877 11376 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 5878 11377 0 02 00052 LDA NAMF+1 OCI = NAMF 5879 11400 0 04 13755 STA PRI+9 5880 11401 000201 IAB ALSO TO PRINT BUFFER 5881 11402 0 02 00051 LDA NAMF 5882 11403 0 04 13754 STA PRI+8 5883 11404 0400 70 LRL 8 5884 11405 0 04 13651 STA OCI+1 5885 11406 0410 60 LLL 16 5886 11407 0 04 13652 STA OCI+2 5887 11410 0 02 00053 LDA NAMF+2 5888 11411 0 04 13756 STA PRI+10 5889 11412 000201 IAB 5890 11413 0 02 00052 LDA NAMF+1 5891 11414 0410 70 LLL 8 5892 11415 0 04 13653 STA OCI+3 5893 11416 0410 60 LLL 16 5894 11417 0 04 13654 STA OCI+4 5895 11420 0 02 00750 LDA K128 ='14 5896 11421 0 04 00063 STA OCNT OCNT = 6 5897 11422 0 10 13133 JST OR23 ENTER SYMBOLIC OP INTO LIST BUFFER 5898 11423 0 02 00643 LDA RPL 5899 11424 0 10 13272 JST OR80 5900 11425 0 013744 DAC PRI 5901 11426 0 02 01060 LDA LIBF CHECK TO SEE IF BIT 3 IS SET 5902 11427 0 03 14677 ANA ='20000 5903 11430 0 05 14677 ERA ='20000 5904 11431 101040 C2R2 SNZ SKIP IF BIT 3 IS NOT SET 5905 11432 0 01 11435 JMP *+3 INHIBIT SYMBOLIC OUTPUT 5906 11433 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC LINE. 5907 11434 0 013744 DAC PRI 5908 11435 0 12 00643 IRS RPL RPL = RPL + 1 5909 11436 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 5910 11437 0 10 13531 JST FS00 FLUSH 5911 11440 -0 01 11370 JMP* RE00 RETURN 5912 11441 050000 KRE1 OCT 50000 5913 * ************* 5914 * *OUTPUT PACK*
* NAME: FRTN DWG 70180463000 REV J PAGE 180

5915 * ************* 5916 * OUTPUT THE PACK WORD WHEN IT IS FULL. 5917 11442 0 00 00000 PKF PZE 0 PACK FLAG 5918 11443 0 00 00000 T0OK PZE 0 5919 11444 0 000000 OK00 DAC ** 5920 11445 0 11 00702 CAS CRET IF (A) = C/R 5921 11446 0 01 11450 JMP *+2 5922 11447 0 01 11462 JMP OK30 GO TO OK30 5923 11450 0 12 11442 IRS PKF PKF = PKF + 1 5924 11451 0 01 11455 JMP OK20 IF NON-ZERO, GO T0 OK20 5925 11452 0 06 11443 OK10 ADD T0OK (A) = (A) + T0 5926 11453 0 10 13243 JST OC00 OUTPUT ABS 5927 11454 -0 01 11444 JMP* OK00 5928 11455 0414 70 OK20 LGL 8 5929 11456 0 04 11443 STA T0OK 5930 11457 0 02 00676 LDA K123 PKF = - 1 5931 11460 0 04 11442 STA PKF 5932 11461 -0 01 11444 JMP* OK00 RETURN 5933 11462 0 02 11442 OK30 LDA PKF IF PKF = 0 5934 11463 101040 SNZ 5935 11464 -0 01 11444 JMP* OK00 RETURN 5936 11465 0 02 00660 LDA K8 ELSE (A) = SPACE, 5937 11466 0 04 11442 STA PKF 5938 11467 0 01 11452 JMP OK10 GO TO OK10 5939 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 181

5940 * 5941 * 5942 * *********** 5943 * *OUTPUT OA* 5944 * *********** 5945 * GENERAL OUTPUT ROUTINE. MAKES CHECKS AGAINST 5946 * THE ASSIGNMENT TABLE ENTRY TO PROCESS DUMMY, 5947 * EXTERNAL, RELATIVE, ABSOLUTE OR STRING 5948 * REFERENCES PROPERLY. 5949 11470 0 00 00000 T1OB PZE 0 5950 11471 0 000000 OB00 DAC ** 5951 11472 0 04 00043 STA FTOP FTOP = (A) 5952 11473 000201 IAB 5953 11474 0 04 11470 STA T1OB 5954 11475 0 35 00625 LDX A 5955 11476 0 02 00625 LDA A 5956 11477 101040 SNZ IF A = 0 5957 11500 0 01 11540 JMP OB08 GO TO OB08 5958 11501 0 10 03317 JST FA00 FETCH ASSIGNS 5959 11502 0 02 00647 LDA SOF SPECIAL OUTPUT FLAT 5960 11503 100040 SZE 5961 11504 0 01 11660 JMP OB60 SUBSCQIPT CONSTANT DEFLECTION 5962 11505 0 02 00025 LDA AF 5963 11506 0 04 11470 STA T1OB T0 = AF 5964 11507 0 02 00026 LDA AT 5965 11510 0 07 00741 SUB K105 IF AT = 'DUM' 5966 11511 101040 SNZ 5967 11512 0 01 11550 JMP OB15 GO TO OB15 5968 11513 0 02 00710 LDA IU 5969 11514 0 07 00735 SUB K101 IF IU = 'SUB' 5970 11515 101040 SNZ 5971 11516 0 01 11653 JMP OB40 GO TO OB40 5972 11517 0 02 00026 OB06 LDA AT 5973 11520 0 11 00740 CAS K104 IF AT = 'COM' 5974 11521 0 01 11523 JMP *+2 5975 11522 0 01 11554 JMP OB20 GO TO OB20 5976 11523 0 11 00735 CAS K101 5977 11524 0 01 11526 JMP *+2 IF AT = 'REL' 5978 11525 0 01 11543 JMP OB10 GO TO OB10 5979 11526 0 02 00737 LDA K103 5980 11527 000201 IAB 5981 11530 0 02 00643 LDA RPL 5982 11531 0 10 03571 JST AF00 DEFINE AF AND AT 5983 11532 0 02 00026 LDA AT IF AT = 'STR-RE' 5984 11533 0 07 00737 SUB K103 5985 11534 101040 SNZ 5986 11535 0 01 11543 JMP OB10 GO TO OB10 5987 11536 140040 CRA 5988 11537 0 04 00025 STA AF AF = 0 5989 11540 0 02 00043 OB08 LDA FTOP
* NAME: FRTN DWG 70180463000 REV J PAGE 182

5990 11541 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 5991 11542 -0 01 11471 JMP* OB00 RETURN 5992 11543 0 02 11470 OB10 LDA T1OB 5993 11544 0 04 00025 STA AF 5994 11545 0 02 00043 LDA FTOP 5995 11546 0 10 13072 JST OR00 OUTPUT REL 5996 11547 -0 01 11471 JMP* OB00 RETURN 5997 11550 0 02 00043 OB15 LDA FTOP 5998 11551 140024 CHS 5999 11552 0 04 00043 STA FTOP 6000 11553 0 01 11543 JMP OB10 GO TO OB10 6001 11554 0 10 13531 OB20 JST FS00 OUTPUT COMMON REQUEST 6002 11555 0 02 11470 LDA T1OB PACK ADDRESS INTO BLOCK 6003 11556 0400 62 LRL 14 6004 11557 0 02 00043 LDA FTOP 6005 11560 0404 66 LGR 10 6006 11561 0 06 11673 ADD K150 6007 11562 0410 72 LLL 6 6008 11563 0 04 13650 STA OCI 6009 11564 0410 70 LLL 8 6010 11565 0 04 13651 STA OCI+1 6011 11566 0 15 11636 STX OBXS SAVE INDEX 6012 11567 0 10 03426 JST FL00 6013 11570 1 02 17402 LDA DP+2,1 6014 11571 0 04 13761 STA PRI+13 SET COMMON NAME INTO PRINT BUFFER 6015 11572 0412 70 LLR 8 6016 11573 0 04 13654 STA OCI+4 6017 11574 0410 70 LLL 8 6018 11575 1 02 17403 LDA DP+3,1 6019 11576 0 04 13760 STA PRI+12 SET COMMON NAME INTO PRINT BUFFER 6020 11577 0412 70 LLR 8 6021 11600 0 04 13653 STA OCI+3 6022 11601 0410 70 LLL 8 6023 11602 1 02 17404 LDA DP+4,1 6024 11603 0 03 00670 ANA K111 ='037777 6025 11604 0 11 11605 CAS *+1 LOOK FOR BLANK COMMON 6026 11605 020240 BLKC OCT 020240 6027 11606 0 05 00675 ERA K122 6028 11607 0 05 00703 ERA HBIT 6029 11610 0 04 13757 STA PRI+11 SET NAME INTO PRINT BUFFER 6030 11611 0412 70 LLR 8 6031 11612 0 04 13652 STA OCI+2 6032 11613 0410 70 LLL 8 6033 11614 0 02 13651 LDA OCI+1 6034 11615 0410 70 LLL 8 6035 11616 0 04 13651 STA OCI+1 6036 11617 0 02 00750 LDA K128 ='14 6037 11620 0 04 00063 STA OCNT 6038 11621 0 35 11636 LDX OBXS RESTORE INDEX 6039 11622 0 15 00625 STX A RESTORE A TO POINT AT NAME
* NAME: FRTN DWG 70180463000 REV J PAGE 183

6040 11623 0 02 00643 LDA RPL SET RPL MINUS 6041 11624 140500 SSM TO DISABLE WORD OUTPUT 6042 11625 0 04 00643 STA RPL 6043 11626 0 02 00043 LDA FTOP OUTPUT WORD TO LIST 6044 11627 0 10 13072 JST OR00 SYMBOLIC COMMAND 6045 11630 0 02 00643 LDA RPL RESTORE AND 6046 11631 140100 SSP INCREMENT PROGRAM 6047 11632 141206 AOA COUNTER FOR COMMON 6048 11633 0 04 00643 STA RPL OUTPUT 6049 11634 0 10 13531 JST FS00 CLOSE OUT BLOCK 6050 11635 -0 01 11471 JMP* OB00 EXIT 6051 11636 OBXS BSS 1 TEMP STORAGE FOR INDEX 6052 11637 1 02 17404 OB30 LDA DP+4,1 6053 11640 140500 SSM 6054 11641 0416 77 ALR 1 6055 11642 140500 SSM 6056 11643 0406 77 ARR 1 6057 11644 0 04 00051 STA NAMF 6058 11645 1 02 17403 LDA DP+3,1 6059 11646 0 04 00052 STA NAMF+1 6060 11647 1 02 17402 LDA DP+2,1 6061 11650 0 04 00053 STA NAMF+2 6062 11651 0 10 11370 JST RE00 OUTPUT FTOP EXTERNAL 6063 11652 -0 01 11471 JMP* OB00 6064 11653 0 02 00026 OB40 LDA AT 6065 11654 0 07 00736 SUB K102 6066 11655 101040 SNZ 6067 11656 0 01 11637 JMP OB30 6068 11657 0 01 11517 JMP OB06 6069 * 6070 11660 140040 OB60 CRA 6071 11661 0 04 00647 STA SOF RESET SPECIAL OUTPUT FLAG 6072 11662 0 02 00026 LDA AT ADDRESS TYPE 6073 11663 0 11 00741 CAS K105 TEST FOR DUMMY 6074 11664 0 01 11517 JMP OB06 PROCESS NORMALLY 6075 11665 0 01 11667 JMP OB61 6076 11666 0 01 11517 JMP OB06 PROCESS NORMALLY 6077 11667 0 02 11470 OB61 LDA T1OB 6078 11670 0 04 00043 STA FTOP 6079 11671 0 10 13243 JST OC00 6080 11672 -0 01 11471 JMP* OB00 RETURN 6081 * 6082 11673 000700 K150 OCT 700 6083 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 184

6084 * 6085 * 6086 * *************** 6087 * *OUTPUT TRIADS* 6088 * *************** 6089 * PROCESSES THE TRIAD TABLE. HANDLES FETCH 6090 * GENERATION AND RELATIONAL OPERATOR CODE 6091 * GENERATION. DRIVES OUTPUT ITEM. ASSIGNS 6092 * AND OUTPUT TEMP STORES. 6093 11674 0 00 00000 T0OT PZE 0 6094 11675 0 00 00000 T2OT PZE 0 6095 11676 0 00 00000 T1OT PZE 0 6096 11677 0 00 00000 T3OT PZE 0 TEMP STORE FOR P 6097 11700 0 00 00000 T4OT PZE 0 6098 11701 0 000000 OT00 DAC ** 6099 11702 0 15 12231 STX OTXS SAVE INDEX 6100 11703 0 02 01060 LDA LIBF CHECK IF DIAGNOSTIC DUMPS REQUESTED 6101 11704 0416 75 ALR 3 MOVE BIT 4 TO SIGN BIT 6102 11705 101400 SMI 6103 11706 0 01 11740 JMP OT04 IF NOT, OMIT TABLE OUTPUT 6104 11707 0 02 00627 LDA L 6105 11710 0 11 00113 OT02 CAS L0 TEST FOR FINISH 6106 11711 0 01 11737 JMP OT03 ALL DONE 6107 11712 0 01 11737 JMP OT03 6108 11713 0 04 00626 STA I 6109 11714 0 10 13272 JST OR80 PRINT L 6110 11715 0 013746 DAC PRI+2 6111 11716 0 35 00626 LDX I PRINT P 6112 11717 1 02 17402 LDA DP+2,1 6113 11720 0 10 13272 JST OR80 6114 11721 0 013753 DAC PRI+7 6115 11722 0 35 00626 LDX I PRINT O1 6116 11723 1 02 17401 LDA DP+1,1 6117 11724 0 10 13272 JST OR80 6118 11725 0 013757 DAC PRI+11 6119 11726 0 35 00626 LDX I PRINT O2 6120 11727 1 02 17400 LDA DP,1 6121 11730 0 10 13272 JST OR80 6122 11731 0 013763 DAC PRI+15 6123 11732 0 10 00000 CALL F4$SYM PRINT -- NOW 6124 11733 0 013744 DAC PRI 6125 11734 0 02 00626 LDA I BUMP I 6126 11735 0 06 00737 ADD K103 6127 11736 0 01 11710 JMP OT02 6128 11737 0 10 13321 OT03 JST PRSP SET TO SPACES AFTER PRINTING 6129 * 6130 011740 OT04 EQU * 6131 11740 0 02 00113 LDA L0 6132 11741 0 04 00626 STA I I = L0 6133 11742 140040 CRA
* NAME: FRTN DWG 70180463000 REV J PAGE 185

6134 11743 0 04 11674 STA T0OT T0 = 0 6135 11744 0 04 00077 STA IFLG 6136 11745 0 04 11676 OT06 STA T1OT T1 = I 6137 11746 0 02 00626 OT10 LDA I 6138 11747 0 07 00737 SUB K103 I = I-3 6139 11750 0 04 00626 STA I 6140 11751 0 04 00000 STA 0 6141 11752 0 04 11675 STA T2OT T2 = I 6142 11753 0 07 00627 SUB L 6143 11754 100400 SPL 6144 11755 0 01 12225 JMP OT60 IF FINISHED, GO TO OT60 6145 11756 1 02 17402 LDA DP+2,1 6146 11757 140100 SSP CHECK P (I) 6147 11760 0 11 00701 CAS K139 X 6148 11761 0 01 11763 JMP *+2 6149 11762 0 01 11746 JMP OT10 6150 11763 0 11 00700 CAS K138 H 6151 11764 0 01 11766 JMP *+2 6152 11765 0 01 11746 JMP OT10 6153 11766 0 11 00760 CAS K142 I 6154 11767 0 01 11771 JMP *+2 6155 11770 0 01 12216 JMP OT50 6156 11771 0 11 00761 CAS K143 T 6157 11772 0 01 11774 JMP *+2 6158 11773 0 01 12207 JMP OT40 6159 11774 0 11 12423 CAS OM50 Q 6160 11775 0 01 11777 JMP *+2 6161 11776 0 01 12140 JMP OT35 6162 11777 0 04 11677 STA T3OT SAVE P 6163 12000 1 02 17401 LDA DP+1,1 6164 12001 0 04 00625 STA A A = O1(I) 6165 12002 0 11 11676 CAS T1OT 6166 12003 0 01 12005 JMP *+2 6167 12004 0 01 12054 JMP OT30 6168 12005 0 11 00113 CAS L0 6169 12006 0 01 12061 JMP OT16 6170 12007 0 01 12232 JMP OT99 MAYBE SPECIAL LOAD FOR (A=) STATEMENT 6171 12010 0 01 12061 JMP OT16 6172 12011 0 35 00626 OT18 LDX I 6173 12012 1 02 17400 LDA DP,1 6174 12013 0 04 00625 STA A A = O2 (I) 6175 12014 1 02 17402 LDA DP+2,1 6176 12015 140100 SSP 6177 12016 0 10 12247 JST OM00 OUTPUT ITEM(P(I),A = O2(I)) 6178 12017 0 35 00626 OT22 LDX I 6179 12020 1 02 17402 LDA DP+2,1 6180 12021 101400 SMI 6181 12022 0 01 12052 JMP OT28 6182 12023 140040 CRA ASSIGN TEMP STOR 6183 12024 0 04 00054 STA NT NT = 0
* NAME: FRTN DWG 70180463000 REV J PAGE 186

6184 12025 0 02 00736 LDA K102 6185 12026 0 04 00710 STA IU IU = VAR 6186 12027 0 02 11674 LDA T0OT 6187 12030 0400 72 LRL 6 6188 12031 0 02 00635 LDA TCF ID = 6189 12032 0400 75 LRL 3 T$-IM-TCF-T0 6190 12033 0 02 00630 LDA MFL 6191 12034 0 04 00706 STA IM 6192 12035 0410 67 LLL 9 6193 12036 0 10 13272 JST OR80 6194 12037 0 000774 DAC ID 6195 12040 0 02 12240 LDA K77 6196 12041 0 04 00774 STA ID 6197 12042 0 12 11674 IRS T0OT T0 = TD+1 6198 12043 0 10 02762 JST AS00 ASSIGN ITEM 6199 12044 0 35 00626 LDX I 6200 12045 0 02 00625 LDA A 6201 12046 1 04 17400 STA DP,1 O2(I) = A 6202 12047 0 02 00753 LDA K153 6203 12050 140500 SSM SURPRESS TRACE OF TEMPORARY STORAGE 6204 12051 0 10 12247 JST OM00 OUTPUT ITEM (=,A) 6205 12052 0 02 00626 OT28 LDA I 6206 12053 0 01 11745 JMP OT06 6207 12054 0 35 00625 OT30 LDX A 6208 12055 1 02 17402 LDA DP+2,1 6209 12056 140100 SSP IF P (A) = 0 6210 12057 100040 SZE 6211 12060 0 01 12063 JMP OT32 6212 12061 0 02 12427 OT16 LDA K152 GENERATE FETCH 6213 12062 0 10 12247 JST OM00 OUTPUT ITEM 6214 12063 0 02 11677 OT32 LDA T3OT CHECK FOR RELATIONALS 6215 12064 0 07 00744 SUB K125 ='1O 6216 12065 100400 SPL 6217 12066 0 01 12011 JMP OT18 NOT LOGICAL OPERATOR 6218 12067 0 07 00742 SUB K106 =6 6219 12070 101400 SMI 6220 12071 0 01 12011 JMP OT18 NOT A LOGICAL OPERATOR 6221 12072 0 04 00000 STA 0 SET INDEX = -1 TO -6 6222 12073 0 02 00737 LDA K103 =3 (LOG) 6223 12074 0 13 00630 IMA MFL SET MODE TO LOGICAL 6224 12075 0 11 00741 CAS K105 CHECK PREVIOUS MODE 6225 12076 100000 SKP 6226 12077 0 01 12135 JMP OT3H IF IT WAS COMPLEX, FLAG ERROR 6227 12100 140040 CRA 6228 12101 0 04 00625 STA A SET FOR OCTAL ADDRESS 6229 12102 1 01 12111 JMP *+7,1 BRANCH TO OPERATOR PROCESSOR 6230 12103 0 01 12133 JMP OT3G .LT. 6231 12104 0 01 12127 JMP OT3E .LE. 6232 12105 0 01 12120 JMP OT3C .EQ. 6233 12106 0 01 12116 JMP OT3B .GE.
* NAME: FRTN DWG 70180463000 REV J PAGE 187

6234 12107 0 01 12114 JMP OT3A .GT. 6235 12110 0 02 13036 LDA OMJ4 .NE. =ALS 16 6236 12111 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6237 12112 0 02 13040 LDA OMJ6 =ACA 6238 12113 0 01 12125 JMP OT3D 6239 12114 0 02 13041 OT3A LDA OMJ7 =TCA 6240 12115 0 01 12132 JMP OT3F 6241 12116 0 02 13042 OT3B LDA OMK1 =CMA 6242 12117 0 01 12132 JMP OT3F 6243 12120 0 02 13036 OT3C LDA OMJ4 = ALS 16 6244 12121 0 10 13235 JST OQ00 6245 12122 0 02 13043 LDA OMK2 =SSC 6246 12123 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6247 12124 0 02 13044 LDA OMK3 =AOA 6248 12125 0 10 13235 OT3D JST OQ00 OUTPUT ABSOLUTE 6249 12126 0 01 12017 JMP OT22 6250 12127 0 02 13034 OT3E LDA OMJ2 =SNZ 6251 12130 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6252 12131 0 02 13045 LDA OMK4 =SSM 6253 12132 0 10 13235 OT3F JST OQ00 OUTPUT ABSOLUTE 6254 12133 0 02 13037 OT3G LDA OMJ5 =LGR 15 6255 12134 0 01 12125 JMP OT3D 6256 12135 0 10 02615 OT3H JST ER00 ERROR 6257 12136 151303 BCI 1,RC COMPLEX VALUE IN RELATIONAL EXPESSION 6258 * 6259 12137 146260 K78 BCI 1,L0 6260 * 6261 12140 1 02 17401 OT35 LDA DP+1,1 6262 12141 0 04 00625 STA A 6263 12142 0 10 03317 JST FA00 6264 12143 0 02 00706 LDA IM NAME WILL BE FSL(IM) 6265 12144 0 06 12137 ADD K78 6266 12145 0 04 11700 STA T4OT 6267 12146 0 02 00625 LDA A 6268 12147 100400 SPL 6269 12150 0 10 03443 JST KT00 6270 12151 0 02 00030 LDA D0 6271 12152 100040 SZE SKIP IF UNKNOWN (ADJ. DIM. ARRAY) 6272 12153 0 01 12201 JMP OT37 6273 12154 0 02 00071 LDA X OUTPUT CODE TO COMPUTE SIZE 6274 12155 0 04 00625 STA A 6275 12156 0 02 12427 LDA K152 6276 12157 0 10 12247 JST OM00 (OUTPUT LOAD = DIMENSION N) 6277 12160 0 02 00076 LDA ND 6278 12161 0 04 00000 STA 0 6279 12162 0 07 00735 SUB K101 6280 12163 100400 SPL SKIP IF NOT THROUGH 6281 12164 0 01 12172 JMP OT36 6282 12165 0 04 00076 STA ND 6283 12166 1 02 00071 LDA X,1
* NAME: FRTN DWG 70180463000 REV J PAGE 188

6284 12167 0 04 00625 STA A 6285 12170 0 02 00737 LDA K103 (OUTPUT MULT = DIMENSION N-1) 6286 12171 0 01 12250 JMP OM01 REPEAT ABOVE TILL DONE 6287 12172 140040 OT36 CRA FORCE OCTAL LISTING FOR NEXT OUTPUT 6288 12173 0 04 00625 STA A 6289 12174 0 02 00643 LDA RPL OUTPUT 'STORE *+2' 6290 12175 0 06 00736 ADD K102 6291 12176 0 04 00025 STA AF 6292 12177 0 02 13031 LDA OMI8 6293 12200 0 10 13072 JST OR00 6294 12201 0 04 00774 OT37 STA ID 6295 12202 0 02 11700 LDA T4OT 6296 12203 0 04 00052 STA NAMF+1 6297 12204 0 10 02501 JST NF00 6298 12205 0 10 11332 JST OL00 OUTPUT OBJECT LINK 6299 12206 0 01 12011 JMP OT18 GO TO OT18 6300 12207 1 02 17400 OT40 LDA DP,1 6301 12210 0 06 00655 ADD DO 6302 12211 0 04 00626 STA I I = O2 (I) + DO 6303 12212 0 10 06155 JST DQ00 DO TERMINATION 6304 12213 0 02 11675 OT45 LDA T2OT 6305 12214 0 04 00626 STA I I = T2 6306 12215 0 01 12052 JMP OT28 6307 12216 1 02 17400 OT50 LDA DP,1 6308 12217 0 06 00655 ADD DO I=O2(1)+DO 6309 12220 0 04 00626 STA I IF I = DO 6310 12221 0 07 00655 SUB DO 6311 12222 100040 SZE GO TO OT45 6312 12223 0 10 06131 JST DS00 DO INITIALIZE 6313 12224 0 01 12213 JMP OT45 GO TO OT45 6314 12225 0 35 12231 OT60 LDX OTXS RESTORE INDEX 6315 12226 0 02 00113 LDA L0 RESET TRIAD TABLE 6316 12227 0 04 00627 STA L 6317 12230 -0 01 11701 JMP* OT00 6318 12231 OTXS BSS 1 TEMP STORAGE FOR INDEX 6319 * 6320 12232 0 02 11677 OT99 LDA T3OT 6321 12233 0 07 00753 SUB K153 CODE FOR = 6322 12234 100040 SZE 6323 12235 0 01 12061 JMP OT16 NOT SPECIAL LOAD 6324 12236 0 04 00630 STA MFL SPECIAL LOAD, SET MFL=0 6325 12237 0 01 12011 JMP OT18 OUTPUT A STORE 6326 12240 152244 K77 BCI 1,T$ T$ 6327 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 189

6328 * ************* 6329 * *OUTPUT ITEM* 6330 * ************* 6331 * 6332 * DRIVES BASIC OUTPUT ROUTINES. HANDLES SPECIAL 6333 * SUBSCRIPT PROCESSING. GENERATES NECESSARY 6334 * MODE CONVERSION CALLS AND HANDLES MODE 6335 * CHECKING. IN-LINE ARITHMETIC CODE IS 6336 * GENERATED WHERE POSSIBLE. OTHERWISE CALLS 6337 * TO ARITHMETIC ROUTINES ARE GENERATEO. 6338 * 6339 12241 0 00 00000 T0OM PZE 0 6340 12242 0 00 00000 T1OM PZE 0 6341 12243 0 00 00000 T2OM PZE 0 6342 12244 0 00 00000 T8OM PZE 0 6343 12245 0 00 00000 T9OM PZE 0 6344 12246 0 00 00000 TXOM PZE 0 6345 * 6346 *-------------OUTPUT ITEM 6347 12247 0 000000 OM00 DAC ** RETURN ADDR 6348 12250 0 04 12244 OM01 STA T8OM 6349 12251 140100 SSP 6350 12252 0 04 12241 STA T0OM R(0)=(A)='P' CODE 6351 12253 0 11 00754 CAS K134 6352 12254 0 01 12256 JMP *+2 6353 12255 0 01 12745 JMP OMD1 6354 12256 0 02 12246 LDA TXOM 6355 12257 0 11 00735 CAS K101 6356 12260 0 01 12747 JMP OME1 6357 12261 0 01 12751 JMP OME5 6358 12262 140040 OM05 CRA 6359 12263 0 04 12242 STA T1OM T(1)=0 6360 12264 0 04 12245 STA T9OM T(9)=0 6361 12265 0 02 00625 LDA A 6362 12266 0 04 12243 STA T2OM T(2)=A 6363 12267 100040 SZE 6364 12270 0 01 12273 JMP OM07 6365 12271 0 02 00630 LDA MFL 6366 12272 0 01 12305 JMP OM13 6367 12273 0 11 00113 OM07 CAS L0 6368 12274 0 01 12276 JMP *+2 6369 12275 0 01 13067 JMP OML1 6370 12276 0 11 00637 CAS ABAR 6371 12277 0 01 12511 JMP OM76 A .LE. ABAR....WITHIN TRIAD TABLE 6372 12300 0 01 12301 JMP *+1 6373 12301 0 35 00625 OM10 LDX A 6374 12302 1 02 17400 LDA DP,1 6375 12303 0405 67 ARS 9 SES IM=MODE OF ITEM 6376 12304 0 03 00743 ANA K107 6377 12305 0 04 00706 OM13 STA IM
* NAME: FRTN DWG 70180463000 REV J PAGE 190

6378 12306 0 02 00630 OM14 LDA MFL SET MFL.IM AS DIGITS INTO NAMF 6379 12307 0415 70 ALS 8 6380 12310 0 06 00706 ADD IM 6381 12311 0 05 12615 ERA OM90 ADD '0''0' 6382 12312 0 04 00052 STA NAMF+1 6383 12313 0 35 00762 LDX K130 =-6 6384 12314 0 02 12241 LDA T0OM 6385 12315 1 11 12431 CAS OM50+6,1 CHECK FOR SPECIAL OPERATOR 6386 12316 0 01 12320 JMP *+2 6387 12317 -1 01 12437 JMP* OM52+6,1 'P'='Q',',','O','A'F', OR 'E' 6388 12320 0 12 00000 IRS 0 6389 12321 0 01 12315 JMP *-4 6390 12322 0 02 00630 LDA MFL 6391 12323 101040 SNZ 6392 12324 0 01 12452 JMP OM62 SPECIAL LIBRARY FIX FOR ( A= ) 6393 12325 0 11 00706 CAS IM CHECK FOR MODE MIXING 6394 12326 0 01 12330 JMP *+2 6395 12327 0 01 12623 JMP OMA1 ITEM MODE SAME AS CURRENT MODE 6396 12330 0 02 00737 OM20 LDA K103 6397 12331 0 10 12411 JST OM44 CHECK MODE FOR LOG 6398 12332 0 02 00736 LDA K102 =2 (MODE CODE FOR REAL) 6399 12333 0 11 00630 CAS MFL MODE OF EXPRESSION 6400 12334 0 01 12336 JMP *+2 6401 12335 0 01 12343 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6402 12336 0 11 00706 CAS IM MODE OF ITEM 6403 12337 0 01 12341 JMP *+2 6404 12340 0 01 12343 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6405 12341 0 02 00741 LDA K105 6406 12342 0 10 12411 JST OM44 TEST FOR MODE= COMPLEX 6407 12343 0 02 12241 OM26 LDA T0OM OPERATOR BEING PROCESSED 6408 12344 0 11 00753 CAS K153 6409 12345 0 01 12347 JMP *+2 6410 12346 0 01 12372 JMP OM36 T(0)='=' (ALLOW INTEGER MODE) 6411 12347 0 02 00735 LDA K101 6412 12350 0 10 12411 JST OM44 TEST FOR MODE=INTEGER 6413 12351 0 02 00706 LDA IM 6414 12352 0 11 00630 CAS MFL 6415 12353 0 01 12374 JMP OM38 CONVERT MODE OF ACCUMULATOR 6416 12354 0 01 12355 JMP *+1 6417 12355 0 10 02501 OM30 JST NF00 SET LBJF+2 10 SPACES 6418 12356 0 35 12241 LDX T0OM 6419 12357 1 02 14426 LDA A9X4,1 PICK-UP PRINT CODE FOR 'P' OPERATOR 6420 12360 0405 72 ARS 6 6421 12361 141050 CAL ='377 6422 12362 101040 SNZ 6423 12363 0 01 12421 JMP OM46 MODE MIXING ERROR 6424 12364 0414 70 LGL 8 6425 12365 0 05 00662 ERA K15 ADD '$' 6426 12366 0 04 00051 STA NAMF 6427 12367 0 02 00754 LDA K134
* NAME: FRTN DWG 70180463000 REV J PAGE 191

6428 12370 0 04 12241 STA T0OM T(0)=',' 6429 12371 0 01 12401 JMP OM40 6430 * 6431 12372 0 02 00741 OM36 LDA K105 6432 12373 0 10 12411 JST OM44 CHECK FOR MODE=COMPLEX 6433 12374 0 02 00706 OM38 LDA IM 6434 12375 0 04 00630 STA MFL 6435 12376 0 10 02501 JST NF00 SET L=JF+2 TO SRACES 6436 12377 0 02 12616 LDA OM92 'C$' 6437 12400 0 04 00051 STA NAMF 6438 12401 0 10 11363 OM40 JST CN00 OUTPUT....CALL NAMF 6439 12402 0 02 00630 LDA MFL 6440 12403 0 04 00706 STA IM SET ITEM MODE TO CURRENT MODE 6441 12404 0 02 00051 LDA NAMF 6442 12405 0 11 12622 CAS OM96 6443 12406 0 01 12306 JMP OM14 6444 12407 -0 01 12247 JMP* OM00 6445 12410 0 01 12306 JMP OM14 OUTPUT ARGUMENT ADDRESS 6446 * 6447 *-----SUBROUTINE TO CHECK FOR ILLEGAL IM OR MFL MODES. 6448 12411 0 000000 OM44 DAC ** RETURN ADDR. 6449 12412 0 11 00706 CAS IM CHECK FOR IMO(A) 6450 12413 0 01 12415 JMP *+2 6451 12414 0 01 12421 JMP OM46 ERROR 6452 12415 0 11 00630 CAS MFL CHECK FOR MFL=(A) 6453 12416 -0 01 12411 JMP* OM44 6454 12417 0 01 12421 JMP OM46 ERROR 6455 12420 -0 01 12411 JMP* OM44 6456 12421 0 10 02615 OM46 JST ER00 NON-RECOVERABLE ERROR...... 6457 12422 146715 BCI 1,MM MODE MIXING ERROR 6458 * 6459 *------SPECIAL 'P' OPERATOR TABLE 6460 12423 000032 OM50 OCT 32 'Q' 6461 12424 000017 OCT 17 ',' 6462 12425 000000 OCT 00 '0' 6463 12426 000022 OCT 22 'A' 6464 12427 000031 K152 OCT 31 'F' 6465 12430 000020 OCT 20 'E' 6466 12431 0 012703 OM52 DAC OMB3 ('Q') 6467 12432 0 012703 DAC OMB3 (',') 6468 12433 0 012703 DAC OMB3 ('0') 6469 12434 0 012437 DAC OM56 ('A') 6470 12435 0 012441 DAC OM60 ('F') 6471 12436 0 012477 DAC OM70 ('E') 6472 * 6473 * 6474 12437 0 02 13022 OM56 LDA OMI1 SET T(1) = ADD* 6475 12440 0 01 12701 JMP OMB1 6476 * 6477 12441 0 35 00625 OM60 LDX A
* NAME: FRTN DWG 70180463000 REV J PAGE 192

6478 12442 1 02 17401 LDA DP+1,1 6479 12443 0404 62 LGR 14 SET UV=IU(A) 6480 12444 0 04 00710 STA IU 6481 12445 0 35 00626 LDX I 6482 12446 1 02 17402 LDA DP+2,1 P(I) 6483 12447 0 03 00764 ANA K133 ='77 6484 12450 101040 SNZ 6485 12451 0 01 12466 JMP OM64 (POSSIBLE DUMMY ARRAY FETCH) 6486 12452 0 02 00706 OM62 LDA IM 6487 12453 0 04 00630 STA MFL SET CURRENT MODE TO ITEM MODE 6488 12454 0414 70 LGL 8 6489 12455 0 06 00706 ADD IM 6490 12456 0 05 12615 ERA OM90 6491 12457 0 04 00052 STA NAMF+1 6492 12460 0 02 00710 LDA IU 6493 12461 0 07 00735 SUB K101 CHECK FOR IU=1 (SUBROUTINE) 6494 12462 100040 SZE 6495 12463 0 01 12623 JMP OMA1 6496 12464 0 02 13023 LDA OMI2 SET T(1) = JST 6497 12465 0 01 12475 JMP OM66 6498 12466 0 02 00710 OM64 LDA IU 6499 12467 0 07 00737 SUB K103 CHECK FOR IV=3 (ARRAY) 6500 12470 100040 SZE 6501 12471 0 01 12452 JMP OM62 6502 12472 0 02 00735 LDA K101 SET CURRENT MODE TO INTEGER 6503 12473 0 04 00630 STA MFL 6504 12474 0 02 13024 LDA OMI3 SET T(1) = LDA* 6505 12475 0 04 12242 OM66 STA T1OM 6506 12476 0 01 12703 JMP OMB3 6507 * 6508 12477 0 02 00735 OM70 LDA K101 6509 12500 0 11 00706 CAS IM CHECK ITEM MODE EQUALS INTEGER 6510 12501 0 01 12503 JMP *+2 6511 12502 0 01 12506 JMP OM74 6512 12503 0 02 00741 LDA K105 CHECK FOR MODE = COMPLEX 6513 12504 0 10 12411 JST OM44 6514 12505 0 01 12330 JMP OM20 6515 12506 0 02 00737 OM74 LDA K103 CHECK FOR MODE = LOGICAL 6516 12507 0 10 12411 JST OM44 6517 12510 0 01 12355 JMP OM30 OUTPUT SUBROUTINE CALL 6518 * 6519 12511 0 35 00625 OM76 LDX A 6520 12512 1 02 17400 LDA DP,1 O2(A) 6521 12513 0 04 12243 STA T2OM T(2)=O2(A) 6522 12514 1 02 17402 LDA DP+2,1 P(A) 6523 12515 0 03 00764 ANA K133 ='77 6524 12516 101040 SNZ 6525 12517 0 01 12563 JMP OM84 P(A)='0' (SUBSCRIPTED VARIABLE) 6526 12520 0 11 00701 CAS K139 6527 12521 0 01 12523 JMP *+2
* NAME: FRTN DWG 70180463000 REV J PAGE 193

6528 12522 0 01 12531 JMP OM80 P(A)='X' (END OF ARRAY CALCULATION) 6529 12523 0 11 00700 CAS K138 6530 12524 0 01 12526 JMP *+2 6531 12525 0 01 12605 JMP OMHW P(4)= 'H' (HOLLERITH DATA) 6532 12526 0 02 12243 OM78 LDA T2OM 6533 12527 0 04 00625 STA A RESET A 6534 12530 0 01 12301 JMP OM10 6535 * 6536 12531 0 35 00626 OM80 LDX I 6537 12532 0 02 12243 LDA T2OM 6538 12533 1 04 17401 STA DP+1,1 O1(I) = T(2) 6539 12534 0 02 00625 LDA A SAVE A 6540 12535 0 04 12242 STA T1OM 6541 12536 140040 CRA SET A=0 (NOT SYMBOLIC) 6542 12537 0 04 11676 STA T1OT 6543 12540 0 04 00625 STA A 6544 12541 0 02 00643 LDA RPL 6545 12542 0 06 00736 ADD K102 AF=RPL+2 6546 12543 0 04 00025 STA AF 6547 12544 0 02 13025 LDA OMI4 =ADD INSTRUCTION 6548 12545 0 10 13072 JST OR00 OUTPUT RELATIVE 6549 12546 0 02 00643 LDA RPL 6550 12547 0 06 00736 ADD K102 AF = RPL P+ 2 6551 12550 0 04 00025 STA AF 6552 12551 0 02 13026 LDA OMI5 = JMP INSTR. 6553 12552 0 10 13072 JST OR00 OUTPUT RELATIVE 6554 12553 0 02 12242 LDA T1OM 6555 12554 0 04 00625 STA A RESTORE A 6556 12555 0 04 00647 STA SOF SET SPECIAL OUTPUT FLAG TO NON-ZERO 6557 12556 140040 CRA = DAC INSTR. 6558 12557 0 04 12242 STA T1OM 6559 12560 0 02 00735 LDA K101 6560 12561 0 04 00026 STA AT 6561 12562 0 01 12601 JMP OM88 6562 12563 1 02 17401 OM84 LDA DP+1,1 O1(A) 6563 12564 0 04 00625 STA A A=O1(A) 6564 12565 0 11 00113 CAS L0 6565 12566 0 01 12570 JMP *+2 6566 12567 0 01 12573 JMP OM86 A=L(0)....CONSTANT SUPSCRIPT ONLY 6567 12570 0 02 13021 LDA OMI0 T(I) = INDIRECT BIT 6568 12571 0 04 12242 STA T1OM 6569 12572 0 01 12301 JMP OM10 6570 * 6571 12573 0 02 12243 OM86 LDA T2OM A=T(2) 6572 12574 0 04 00625 STA A 6573 12575 0 04 00000 STA 0 6574 12576 0 04 00647 STA SOF 6575 12577 1 02 17400 LDA DP,1 T(2) = O2(A) 6576 12600 0 04 12243 STA T2OM 6577 12601 0 35 00625 OM88 LDX A
* NAME: FRTN DWG 70180463000 REV J PAGE 194

6578 12602 1 02 17401 LDA DP+1,1 C1(A) 6579 12603 0 04 12245 STA T9OM T(9)=O1(A) 6580 12604 0 01 12526 JMP OM78 6581 12605 0 02 12243 OMHW LDA T2OM 6582 12606 0 04 00025 STA AF 6583 12607 0 02 00741 LDA K105 6584 12610 0 04 00026 STA AT 6585 12611 140040 CRA 6586 12612 0 04 00625 STA A 6587 12613 0 10 13072 JST OR00 6588 12614 -0 01 12247 JMP* OM00 6589 * 6590 12615 130260 OM90 OCT 130260 '00' 6591 12616 141644 OM92 OCT 141644 'C$' 6592 12617 152322 OM93 OCT 152322 'TR' 6593 12620 000021 OM94 OCT 000021 'C' CODE 6594 12621 017777 OM95 OCT 017777 (MASK) 6595 12622 147244 OM96 BCI 1,N$ 6596 * 6597 12623 0 02 00706 OMA1 LDA IM CHECK FOR IM=LOGICAL 6598 12624 0 11 00737 CAS K103 6599 12625 0 01 12355 JMP OM30 6600 12626 0 01 12722 JMP OMC1 IM=LOGICAL 6601 12627 0 05 00735 ERA K101 6602 12630 100040 SZE 6603 12631 0 01 12355 JMP OM30 6604 * 6605 12632 0 02 12241 LDA T0OM CHECK FOR T(0) = '+' 6606 12633 0 11 00737 CAS K103 =3 6607 12634 0 01 12636 JMP *+2 6608 12635 0 01 12645 JMP OMA4 T(0)= '*' 6609 12636 0 11 12620 CAS OM94 T(0)='C' 6610 12637 0 01 12641 JMP *+2 6611 12640 0 01 12662 JMP OMA6 OUTPUT 'TCA' 6612 12641 0 11 00735 CAS K101 6613 12642 0 01 12656 JMP OMA5 6614 12643 0 02 13025 LDA OMI4 =ADD INSTR. 6615 12644 0 01 12701 JMP OMB1 6616 12645 0 02 12243 OMA4 LDA T2OM VALUE OF A 6617 12646 0 07 00746 SUB K126 ='12 KNOWN LOCATION OF A FOR 2 6618 12647 100040 SZE SKIP IF MULTIPLIER IS A CONSTANT OF 2 6619 12650 0 01 12355 JMP OM30 COUPLE TO THE MULTIPLY SUBROUTINE 6620 12651 0 04 00625 STA A SET A AND AF TO ZERO (FOR LISTING FLAGS) 6621 12652 0 04 00025 STA AF 6622 12653 0 02 13053 LDA OML2 ALS 1 INSTRUCTION 6623 12654 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6624 12655 -0 01 12247 JMP* OM00 EXIT OUTPUT ITEM 6625 12656 0 11 00736 OMA5 CAS K102 CHECK FOR T(0) = '-' 6626 12657 0 01 12670 JMP OMA7 6627 12660 0 02 13027 LDA OMI6 =SUB INSTR.
* NAME: FRTN DWG 70180463000 REV J PAGE 195

6628 12661 0 01 12701 JMP OMB1 6629 12662 140040 OMA6 CRA 6630 12663 0 04 00625 STA A CAUSE OCTAL ADDR LISTING 6631 12664 0 04 00025 STA AF 6632 12665 0 02 13054 LDA OML3 TCA INSTRUCTION 6633 12666 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6634 12667 -0 01 12247 JMP* OM00 EXIT 6635 12670 0 11 00753 OMA7 CAS K153 CHECK FOR T(0) = '=' 6636 12671 0 01 12673 JMP *+2 6637 12672 0 01 12700 JMP OMA9 OUTPUT A STA INSTR. 6638 12673 0 07 12427 SUB K152 CHECK FOR T(0) = 'F' 6639 12674 100040 SZE 6640 12675 0 01 12355 JMP OM30 6641 12676 0 02 13030 OMA8 LDA OMI7 =LDA INSTR. 6642 12677 0 01 12701 JMP OMB1 6643 12700 0 02 13031 OMA9 LDA OMI8 =STA INSTR. 6644 12701 0 06 12242 OMB1 ADD T1OM T(1) = T(1) + INSTR. 6645 12702 0 04 12242 STA T1OM 6646 12703 0 02 12243 OMB3 LDA T2OM SET A=T(2) 6647 12704 0 04 00625 STA A 6648 12705 0 02 12245 LDA T9OM OUTPUT INSTR. WITH T(1) AND T(9) 6649 12706 000201 IAB 6650 12707 0 02 12242 LDA T1OM 6651 12710 0 10 11471 JST OB00 OUTPUT OA 6652 12711 0 02 12244 LDA T8OM CHECK FOR T(8) = '=' 6653 12712 0 11 00753 CAS K153 ='16 6654 12713 -0 01 12247 JMP* OM00 6655 12714 0 01 12716 JMP *+2 6656 12715 -0 01 12247 JMP* OM00 EXIT 6657 12716 0 02 00646 LDA TRFA POINTER TO FIRST VARIABLE OR ARRAY 6658 12717 0 04 00625 STA A PROCESSED IN EXPRESSION 6659 12720 0 10 12754 JST TRSE OUTPUT TRACE COUPLING IF REOUIRED 6660 12721 -0 01 12247 JMP* OM00 EXIT OUTPUT ITEM 6661 * 6662 * 6663 12722 0 02 12241 OMC1 LDA T0OM 6664 12723 0 11 12427 CAS K152 CHECK FOR T(0) = 'F' 6665 12724 0 01 12726 JMP *+2 6666 12725 0 01 12676 JMP OMA8 OUTPUT A LDA INSTR. 6667 12726 0 11 00753 CAS K153 CHECK FOR T(0) = '=' 6668 12727 0 01 12731 JMP *+2 6669 12730 0 01 12700 JMP OMA9 OUTPUT A STA INSTR. 6670 12731 0 11 12620 CAS OM94 CHECK FOR T(0) = 'C' 6671 12732 0 01 12734 JMP *+2 6672 12733 0 01 12355 JMP OM30 OUTPUT COMPLEMENT CODING 6673 12734 0 11 00742 CAS K106 6674 12735 0 01 12737 JMP *+2 6675 12736 0 01 12743 JMP OMC5 OUTPUT AN ANA INSTR. 6676 12737 0 11 00743 CAS K107 6677 12740 0 01 12421 JMP OM46 ERROR
* NAME: FRTN DWG 70180463000 REV J PAGE 196

6678 12741 0 01 12355 JMP OM30 6679 12742 0 01 12421 JMP OM46 ERROR 6680 12743 0 02 13032 OMC5 LDA OMI9 =ANA INSTR. 6681 12744 0 01 12701 JMP OMB1 6682 12745 0 12 12246 OMD1 IRS TXOM T0 = T0+1 6683 12746 0 01 12262 JMP OM05 6684 12747 140040 OME1 CRA OUTPUT 'OCT OOOO' 6685 12750 0 10 13243 JST OC00 X 6686 12751 140040 OME5 CRA 6687 12752 0 04 12246 STA TXOM T0 = 0 6688 12753 0 01 12262 JMP OM05 6689 * 6690 12754 0 000000 TRSE DAC 0 SUBROUTINE TO OUTPUT TRACE COUPLING 6691 12755 0 35 00625 LDX A 6692 12756 0 02 00625 LDA A 6693 12757 100040 SZE 6694 12760 1 02 17404 LDA DP+4,1 CHECK STATUS OF TRACE TAG 6695 12761 100400 SPL 6696 12762 0 01 12773 JMP TRS7 6697 12763 0 02 01060 LDA LIBF CHECK TO SEE IF BIT 6 IS SET 6698 12764 0 03 14700 ANA ='2000 6699 12765 0 05 14700 ERA ='2000 6700 12766 101040 CSR4 SNZ SKIP IF BIT 5 IS NOT SET 6701 12767 0 01 12773 JMP TRS7 6702 12770 0 02 00645 LDA TRF CHECK STATUS OF TRACE FLAG 6703 12771 101040 SNZ 6704 12772 -0 01 12754 JMP* TRSE 6705 12773 0 10 02501 TRS7 JST NF00 SET LBUF TO 'F$', LBUF+2 TO SPACES 6706 12774 0 02 12617 LDA OM93 ='TR' 6707 12775 0 04 00052 STA NAMF+1 6708 12776 0 10 11363 JST CN00 OUTPUT.....CALL NAMF 6709 12777 0 35 00625 LDX A 6710 13000 1 02 17404 LDA DP+4,1 6711 13001 0 03 12621 ANA OM95 6712 13002 0 04 12242 STA T1OM 6713 13003 1 02 17403 LDA DP+3,1 6714 13004 0 04 12244 STA T8OM 6715 13005 1 02 17402 LDA DP+2,1 6716 13006 0 04 12245 STA T9OM 6717 13007 1 02 17400 LDA DP,1 MERGE IM W1TH ITEM NAME 6718 13010 0405 67 ARS 9 6719 13011 0414 63 LGL 13 6720 13012 0 05 12242 ERA T1OM 6721 13013 0 10 13243 JST OC00 OUTPUT ABSOLUTE (FIRST 2 CHAR.) 6722 13014 0 02 12244 LDA T8OM 6723 13015 0 10 13243 JST OC00 OUTPUT ABSOLUTE (NEXT 2 CHAR.) 6724 13016 0 02 12245 LDA T9OM 6725 13017 0 10 13243 JST OC00 OUTPUT ABSOLUTE (LAST 2 CHAR.) 6726 13020 -0 01 12754 JMP* TRSE 6727 *
* NAME: FRTN DWG 70180463000 REV J PAGE 197

6728 *.................INSTRUCTION TABLE 6729 13021 100000 OMI0 OCT 100000 INDIRECT BIT 6730 13022 114000 OMI1 OCT 114000 ADD* 6731 13023 020000 OMI2 OCT 020000 JST 6732 13024 104000 OMI3 OCT 104000 LDA* 6733 13025 014000 OMI4 OCT 014000 ADD 6734 13026 002000 OMI5 OCT 002000 JMP 6735 13027 016000 OMI6 OCT 016000 SUB 6736 13030 004000 OMI7 OCT 004000 LDA 6737 13031 010000 OMI8 OCT 010000 STA 6738 13032 006000 OMI9 OCT 006000 ANA 6739 13033 102000 OMJ1 OCT 102000 JMP* 6740 13034 101040 OMJ2 OCT 101040 SNZ 6741 13035 101400 OMJ3 OCT 101400 SMI 6742 13036 0415 60 OMJ4 ALS 16 6743 13037 040461 OMJ5 OCT 040461 LGR 15 6744 13040 141216 OMJ6 OCT 141216 ACA 6745 13041 140407 OMJ7 OCT 140407 TCA 6746 13042 140401 OMK1 OCT 140401 CMA 6747 13043 101001 OMK2 OCT 101001 SSC 6748 13044 141206 OMK3 OCT 141206 AOA 6749 13045 140500 OMK4 OCT 140500 SSM 6750 13046 042000 OMK5 OCT 042000 JMP 0,1 6751 13047 000000 OCT 000000 DAC ** 6752 13050 0 35 00000 LDX 0 LDX 6753 13051 001001 INH INH 6754 13052 000401 ENB ENB 6755 13053 0415 77 OML2 ALS 1 ALS 1 6756 13054 140407 OML3 TCA TCA 6757 13055 176000 OMK7 OCT 176000 STG 6758 13056 0 11 00000 OMK9 CAS 0 CAS 6759 13057 -0 04 00000 STA* 0 6760 13060 -0 07 00000 SUB* 0 6761 13061 -0 000000 DAC* ** 6762 13062 131001 OCT 131001 6763 13063 030000 OCT 030000 6764 13064 -0 11 00000 CAS* 0 6765 13065 -0 10 00000 OMK8 JST* 0 6766 13066 000000 OCT 0 (///) 6767 13067 0 02 00735 OML1 LDA K101 6768 13070 0 04 00026 STA AT 6769 13071 0 01 11746 JMP OT10 6770 * 6771 * ************ 6772 * *OUTPUT REL* 6773 * ************ 6774 * ALSO DRIVES SYMBOLIC INSTRUCTION OUTPUT. 6775 13072 0 000000 OR00 DAC ** 6776 13073 0 04 00043 STA FTOP 6777 13074 0 02 00736 LDA K102 DF = NON ZERO
* NAME: FRTN DWG 70180463000 REV J PAGE 198

6778 13075 0 04 00035 STA DF CODE = 2 6779 13076 0 04 00027 OR10 STA CODE 6780 13077 0 02 00643 LDA RPL LIST RPL 6781 13100 140100 SSP 6782 13101 0 10 13272 JST OR80 6783 13102 0 013744 DAC PRI 6784 13103 0 02 00035 LDA DF IF DF NOT ZERO 6785 13104 100040 SZE 6786 13105 0 01 13170 JMP OR20 GO TO OR20 6787 13106 0 02 13131 LDA OR18 ='147703 6788 13107 0 04 13751 STA PRI+5 6789 13110 0 02 13132 LDA OR19 SET 'OCT' INTO PRINT IMAGE 6790 13111 0 04 13752 STA PRI+6 6791 13112 0 02 00043 LDA FTOP 6792 13113 0 10 13272 OR13 JST OR80 6793 13114 0 013754 DAC PRI+8 6794 13115 0 02 00643 OR15 LDA RPL IF RPL PLUS 6795 13116 101400 SMI 6796 13117 0 10 13402 JST OW00 OUTPUT WORD 6797 13120 0 02 01060 LDA LIBF CHECK IO SEE IF BIT 3 IS SET 6798 13121 0 03 14677 ANA ='20000 6799 13122 0 05 14677 ERA ='20000 6800 13123 101040 C3R2 SNZ SKIP IF BIT 3 IS NOT SET 6801 13124 0 01 13127 JMP *+3 SURPRESS SYMBOLIC OUTPUT 6802 13125 0 10 00000 CALL F4$SYM LIST LINE 6803 13126 0 013744 DAC PRI 6804 13127 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 6805 13130 -0 01 13072 JMP* OR00 RETURN 6806 13131 147703 OR18 OCT 147703 (O)(C) 6807 13132 152240 OR19 OCT 152240 (T)(SP) 6808 * SUBR TO ENTER SYMBOLIC OF IN LISTING 6809 13133 0 013133 OR23 DAC * 6810 13134 0 15 13167 STX ORXS SAVE INDEX 6811 13135 0 02 13320 LDA OR90 SEARCH OP-CODE LIST 6812 13136 140407 TCA 6813 13137 0 04 00000 STA 0 PUT BCI IN PRINT IMAGE 6814 13140 0 02 00043 LDA FTOP 6815 13141 140100 SSP 6816 13142 100040 SZE 6817 13143 0 01 13153 JMP OR24 6818 13144 0 02 00026 LDA AT 6819 13145 0 11 00737 CAS K103 6820 13146 0 07 00742 SUB K106 6821 13147 0 06 00736 ADD K102 6822 13150 140401 CMA 6823 13151 0 03 00743 ANA K107 6824 13152 0 04 00027 STA CODE 6825 13153 0 02 00043 OR24 LDA FTOP 6826 13154 1 11 13065 CAS OR91+NINS,1 6827 13155 0 01 13157 JMP *+2
* NAME: FRTN DWG 70180463000 REV J PAGE 199

6828 13156 0 01 13161 JMP *+3 6829 13157 0 12 00000 IRS 0 6830 13160 0 01 13154 JMP *-4 6831 13161 1 02 14627 LDA OR92+NINS,1 6832 13162 0 04 13751 STA PRI+5 6833 13163 1 02 14674 LDA OR93+NINS,1 6834 13164 0 04 13752 STA PRI+6 6835 13165 0 35 13167 LDX ORXS RESTORE INDEX 6836 13166 -0 01 13133 JMP* OR23 RETURN 6837 13167 ORXS BSS 1 TEMP STORAGE FOR INDEX 6838 * 6839 13170 0 10 13133 OR20 JST OR23 ENTER SYMBOLIC OP IN LISTING 6840 13171 0 02 00625 LDA A 6841 13172 100040 SZE 6842 13173 0 01 13177 JMP OR30 6843 13174 0 02 00025 LDA AF 6844 13175 0 03 00670 ANA K111 MASK OUT HIGH BITS OF ADDRESS 6845 13176 0 01 13113 JMP OR13 6846 13177 0 35 00625 OR30 LDX A 6847 13200 1 02 17400 LDA DP,1 6848 13201 101400 SMI 6849 13202 0 01 13222 JMP OR40 6850 13203 0 02 13401 LDA K149 6851 13204 0 04 13754 STA PRI+8 SET =' INTO LISTING 6852 13205 1 02 17400 LDA DP,1 CHECK IM (A) 6853 13206 0414 74 LGL 4 6854 13207 100400 SPL SKIP IF NOT COMPLEX 6855 13210 0 01 13214 JMP *+4 6856 13211 0414 76 LGL 2 6857 13212 100400 SPL SKIP IF INTEGER OR LOGICAL 6858 13213 0 01 13216 JMP *+3 6859 13214 1 02 17402 LDA DP+2,1 6860 13215 0 01 13217 JMP *+2 LIST EXPONENT AND PART OF FRACTION 6861 13216 1 02 17404 LDA DP+4,1 LIST INTEGER VALUE 6862 13217 0 10 13272 JST OR80 CONVERT OCTAL 6863 13220 0 013755 DAC PRI+9 6864 13221 0 01 13115 JMP OR15 6865 13222 1 02 17404 OR40 LDA DP+4,1 CONVERT AND PACK INTO 6866 13223 0416 77 ALR 1 6867 13224 140500 SSM SYMBOLIC IMAGE 6868 13225 0406 77 ARR 1 6869 13226 140500 SSM 6870 13227 0 04 13754 STA PRI+8 6871 13230 1 02 17403 LDA DP+3,1 6872 13231 0 04 13755 STA PRI+9 6873 13232 1 02 17402 LDA DP+2,1 6874 13233 0 04 13756 STA PRI+10 6875 13234 0 01 13115 JMP OR15 6876 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 200

6877 * OUTPUT NON-REL SYMBOLIC 6878 * 6879 * 6880 * 6881 * 6882 13235 0 000000 OQ00 DAC ** 6883 13236 0 13 00035 IMA DF SET DF <> 0 SO THAT 6884 13237 141206 AOA LISTING WILL BE SYMBOLIC 6885 13240 0 13 00035 IMA DF X 6886 13241 0 10 13251 JST OA00 OUTPUT ABSOLUTE INSTRUCTION 6887 13242 -0 01 13235 JMP* OQ00 6888 * 6889 * 6890 * 6891 * 6892 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 201

6893 * OUTPUT OCTAL CONSTANT 6894 * 6895 * 6896 * 6897 * 6898 13243 0 000000 OC00 DAC ** 6899 13244 0 13 00035 IMA DF SET DF ZERO SO THAT 6900 13245 140040 CRA SYMBOLIC LISTING WILL 6901 13246 0 13 00035 IMA DF BE 'OCT' 6902 13247 0 10 13251 JST OA00 OUTPUT THE CONSTANT 6903 13250 -0 01 13243 JMP* OC00 REEURN 6904 * 6905 * 6906 * 6907 * 6908 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 202

6909 * ************ 6910 * *OUTPUT ABS* 6911 * ************ 6912 13251 0 000000 OA00 DAC ** 6913 13252 0 04 00043 STA FTOP 6914 13253 0 02 13251 LDA OA00 6915 13254 0 04 13072 STA OR00 6916 13255 140040 CRA 6917 13256 0 01 13076 JMP OR10 6918 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 203

6919 * ******************* 6920 * *OUTPUT STRING-RPL* 6921 * ******************* 6922 13257 0 000000 OS00 DAC 00 6923 13260 0 04 00025 STA AF 6924 13261 0 02 13055 LDA OMK7 6925 13262 0 04 00043 STA FTOP 6926 13263 0 02 13257 LDA OS00 6927 13264 0 04 13072 STA OR00 SET RETURN INTO OUTPUT REL 6928 13265 0 02 00740 LDA K104 6929 13266 0 04 00027 STA CODE 6930 13267 0 04 13472 STA STFL STRING FLAG = NON ZERO 6931 13270 0 10 13321 JST PRSP SET PRINT BUF. TO SPACES 6932 13271 0 01 13170 JMP OR20 JMP-OUTPUT REL FOR SYMBOLIC AND BINARY 6933 13272 0 000000 OR80 DAC ** 6934 13273 000201 IAB 6935 13274 -0 02 13272 LDA* OR80 6936 13275 0 04 13317 STA OR89 6937 13276 140040 CRA 6938 13277 0402 76 LRR 2 6939 13300 0 12 13272 IRS OR80 6940 13301 0 10 13305 JST OR85 6941 13302 0 10 13305 JST OR85 6942 13303 0 10 13305 JST OR85 6943 13304 -0 01 13272 JMP* OR80 6944 13305 0 000000 OR85 DAC ** 6945 13306 0 06 13347 ADD K140 6946 13307 0412 75 LLR 3 6947 13310 0414 73 LGL 5 6948 13311 0 06 13347 ADD K140 6949 13312 0410 75 LLL 3 6950 13313 -0 04 13317 STA* OR89 6951 13314 0 12 13317 IRS OR89 6952 13315 140040 CRA 6953 13316 -0 01 13305 JMP* OR85 6954 13317 0 00 00000 OR89 PZE 0 6955 13320 0 000043 OR90 DAC NINS 6956 013030 K200 EQU OMI7 6957 013026 K201 EQU OMI5 6958 013031 K202 EQU OMI8 6959 013025 K203 EQU OMI4 6960 013033 K206 EQU OMJ1 6961 013046 K207 EQU OMK5 6962 013022 OR91 EQU OMI1 6963 000043 NINS EQU 35 6964 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 204

6965 * 6966 13321 0 000000 PRSP DAC ** SUBR. '0 SET PRINT BUF. TO SPACES 6967 13322 0 35 13330 LDX PRSK =-40 6968 13323 0 02 01151 LDA KASP (SP)(SP) 6969 13324 1 04 14014 STA PRI+40,1 6970 13325 0 12 00000 IRS 0 6971 13326 0 01 13324 JMP *-2 6972 13327 -0 01 13321 JMP* PRSP EXIT 6973 13330 177730 PRSK OCT 177730 =-40 6974 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 205

6975 * 6976 * ************************************* 6977 * *OUTPUT SUBROUTINE/COMMON BLOCK NAME* 6978 * ************************************* 6979 * OUTPUT AN EXTERNAL REFERENCE NAME. 6980 * 6981 13331 0 000000 ON00 DAC ** 6982 13332 0 04 13400 STA ONT1 SAVE ADDRESS 6983 13333 0 10 13531 JST FS00 FLUSH BUFFER IF NECESSARY 6984 13334 0 02 13400 LDA ONT1 SUBR. ENTRY ADDR. 6985 13335 0400 62 LRL 14 6986 13336 0 04 13400 STA ONT1 SAVE S/C BITS 6987 13337 0 02 13377 LDA ON02 ='60O (=BLOCK CODE NO.) 6988 13340 0410 72 LLL 6 6989 13341 0 04 13650 STA OCI FILL BUFFER 6990 13342 0400 70 LRL 8 6991 13343 0 35 00625 LDX A 6992 13344 1 02 17404 LDA DP+4,1 FIRST 2 CHAR. OF NAME 6993 13345 0 03 00670 ANA K111 ='O37777 6994 13346 0 11 11605 CAS BLKC 6995 13347 000026 K140 OCT 26 6996 13350 0 05 00675 ERA K122 6997 13351 0 05 00703 ERA HBIT ='140000 6998 13352 0402 70 LRR 8 6999 13353 0 04 13651 STA OCI+1 BUFFER 7000 13354 0400 70 LRL 8 7001 13355 1 02 17403 LDA DP+3,1 SECOND 2 CHAR. OF NAME 7002 13356 0402 70 LRR 8 7003 13357 0 04 13652 STA OCI+2 BUFFER 7004 13360 0400 70 LRL 8 7005 13361 1 02 17402 LDA DP+2,1 LAST 2 CHAR. OF NAME 7006 13362 0402 70 LRR 8 7007 13363 0 04 13653 STA OCI+3 BUFFER 7008 13364 0410 70 LLL 8 7009 13365 0414 76 LGL 2 7010 13366 0 06 13400 ADD ONT1 S/C BITS 7011 13367 0414 72 LGL 6 7012 13370 0 04 13654 STA OCI+4 BUFFER 7013 13371 140040 CRA SET SIZE = 0 7014 13372 0 04 13655 STA OCI+5 BUFFER 7015 13373 0 02 00750 LDA K128 ='14 7016 13374 0 04 00063 STA OCNT SET BLOCK SIZE (DOUBLED) 7017 13375 0 10 13531 JST FS00 FLUSH BUFFER 7018 13376 -0 01 13331 JMP* ON00 EXIT 7019 13377 000600 ON02 OCT 600 BLOCK CODE NUMBER (6) 7020 13400 000000 ONT1 OCT 0 TEMP STORE 7021 * 7022 13401 136647 K149 BCI 1,=' 7023 * 7024 13402 0 000000 OW00 DAC **
* NAME: FRTN DWG 70180463000 REV J PAGE 206

7025 13403 0 15 13471 STX OWXS 7026 13404 0 02 00643 LDA RPL 7027 13405 0 07 13475 SUB ORPL 7028 13406 100400 SPL 7029 13407 140407 TCA 7030 13410 0 11 00735 CAS K101 7031 13411 0 10 13531 JST FS00 FLUSH BUFFER IF DIFFERENCE IN RPL'S NOT 1 7032 13412 101000 NOP 7033 13413 0 02 00063 LDA OCNT 7034 13414 0 06 00737 ADD K103 7035 13415 0 11 13530 CAS K146 7036 13416 101000 NOP 7037 13417 0 10 13531 JST FS00 FLUSH BUFFER 7038 13420 0 02 00063 LDA OCNT 7039 13421 0 06 00737 ADD K103 7040 13422 0 04 00063 STA OCNT OCNT = OCNT+3 7041 13423 0 07 00737 SUB K103 7042 13424 0406 77 ARR 1 OCI (OUTPUT CARD IMAGE) 7043 13425 0 04 00000 STA 0 7044 13426 101400 SMI LEFT OR RIGHT POS. 7045 13427 0 01 13473 JMP OW20 7046 13430 0 10 13476 JST PU00 7047 13431 0400 70 LRL 8 IF BUFFER FULL 7048 13432 1 13 13650 IMA OCI,1 7049 13433 0 03 00672 ANA K116 CALL FLUSH (FS00) 7050 13434 1 05 13650 ERA OCI,1 7051 13435 1 04 13650 OW10 STA OCI,1 7052 13436 000201 IAB 7053 13437 1 04 13651 STA OCI+1,1 7054 13440 0 02 13764 LDA PRI+16 7055 13441 0404 74 LGR 4 POSITION IN LOW 12 BITS 7056 13442 0 10 13272 JST OR80 7057 13443 0 013764 DAC PRI+16 7058 13444 0 02 13762 LDA PRI+14 7059 13445 0 10 13272 JST OR80 SET DIGITS IN PRI+15, PRI+16 7060 13446 0 013762 DAC PRI+14 7061 13447 0 02 01060 LDA LIBF CHECK T0 SEE IF BIT 2 IS SET 7062 13450 0414 76 LGL 2 7063 13451 0 02 01151 LDA KASP 7064 13452 100001 CSR1 SRC SKIP IF BIT 2 IS NOT SET 7065 13453 0 01 13460 JMP OW14 7066 13454 0 04 13763 STA PRI+15 OVERWRITE BINARY DATA IN 7067 13455 0 04 13764 STA PRI+16 PRINT BUFFER WITH SPACES 7068 13456 0 04 13765 STA PRI+17 IF NO BINARY LISTING IS WANTED 7069 13457 0 04 13766 STA PRI+18 7070 13460 0 04 13762 OW14 STA PRI+14 7071 13461 0 35 13471 LDX OWXS RESTORE INDEX 7072 13462 0 02 00643 LDA RPL 7073 13463 0 04 13475 STA ORPL ORPL=RPL 7074 13464 140040 CRA
* NAME: FRTN DWG 70180463000 REV J PAGE 207

7075 13465 0 13 13472 IMA STFL INDICATE WORD WAS KEY TO LOADER 7076 13466 101040 SNZ THEN LEAVE RPL ALONE 7077 13467 0 12 00643 IRS RPL RPL = RPL+ 7078 13470 -0 01 13402 JMP* OW00 7079 13471 OWXS BSS 1 TEMP STORAGE FOR INDEX 7080 13472 0 00 00000 STFL PZE 0 7081 13473 0 10 13476 OW20 JST PU00 7082 13474 0 01 13435 JMP OW10 7083 13475 0 00 00000 ORPL PZE 0 7084 13476 0 000000 PU00 DAC ** 7085 13477 0 02 00027 LDA CODE COMBINE CODES TO 7086 13500 0 11 00740 CAS K104 =4 7087 13501 101000 NOP 7088 13502 0 01 13515 JMP PU10 7089 13503 100040 SZE SKIP IF ABS 7090 13504 0 01 13515 JMP PU10 JUMP IF REL. 7091 13505 0400 70 LRL 8 7092 13506 0 02 00043 LDA FTOP 7093 13507 0400 74 PU08 LRL 4 7094 13510 0 04 13762 STA PRI+14 SAVE FOR LISTING 7095 13511 000201 IAB 7096 13512 0 04 13764 STA PRI+16 7097 13513 0402 64 LRR 12 RESTORE POSITION 7098 13514 -0 01 13476 JMP* PU00 7099 13515 0400 74 PU10 LRL 4 7100 13516 0 02 00025 LDA AF 7101 13517 100400 SPL 7102 13520 0 01 13524 JMP PU11 7103 13521 0400 74 PU12 LRL 4 7104 13522 0 05 00043 ERA FTOP 7105 13523 0 01 13507 JMP PU08 7106 13524 0 02 00744 PU11 LDA K125 7107 13525 0400 74 LRL 4 7108 13526 0 02 00025 LDA AF 7109 13527 0 01 13521 JMP PU12 7110 13530 000117 K146 OCT 117 7111 EJCT
* NAME: FRTN DWG 70180463000 REV J PAGE 208

7112 * 7113 * 7114 * ****************** 7115 * *FLUSH SUBROUTINE* 7116 * ****************** 7117 13531 0 000000 FS00 DAC ** 7118 13532 0 02 00063 LDA OCNT BUFFER OCCUPANCY SIZE 7119 13533 0 15 13633 STX FSXS SAVE INDEX 7120 13534 0 07 00740 SUB K104 CHECK FOR OCNT .GT. 4 7121 13535 100400 SPL 7122 13536 0 01 13614 JMP FS20 SKIP OUTPUT IF BUFFER IS EMPTY 7123 13537 0 06 00741 ADD K105 ADD 1/2 AT B14 7124 13540 0405 77 ARS 1 DIVIDE BY 2 7125 13541 140407 TCA 7126 13542 0 04 00063 STA OCNT OCNT = -WORDS/BUFFER 7127 13543 0 07 00735 SUB K101 =1 7128 13544 0 04 00062 STA PCNT BUFFER SIZE INCLUDING CHECKSUM 7129 13545 0 02 13650 LDA OCI FIRST WORD IN BUFFER 7130 13546 0400 64 LRL 12 7131 13547 0 11 00736 CAS K102 =2 7132 13550 0 01 13552 JMP *+2 7133 13551 0 01 13634 JMP FS30 BLOCK TYPE = 2 (RELOCATABLE CODE) 7134 * EVERY TIME A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST 7135 * 3 WORDS OF THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT 7136 * ALONG WITH AN EOB OPERATOR CODE IF SENSE SWITCH 1 IS DOWN. 7137 * TO INHIBIT THIS LINE. REPLACE FROM FS10 TO AND INCLUDING 7138 * FS11 WITH (FS10 CRA ). 7139 13552 0 02 01060 FS09 LDA LIBF CHECK TO SEE IF BIT 2 IS SET 7140 13553 0 03 14676 ANA ='40000 7141 13554 0 05 14676 ERA ='40000 7142 13555 100040 FS10 SZE SKIP IF BIT 2 IS SET 7143 13556 0 01 13601 JMP FS11 NO BINARY LISTING UNLESS BIT 2 IS SET 7144 13557 0 10 00000 CALL F4$SYM OUTPUT WHATEVER MIGHT BE IN SYMBOLIC BUF. 7145 13560 0 013744 DAC PRI 7146 13561 0 02 13645 LDA FS41 =(E)(O) 7147 13562 0 04 13751 STA PRI+5 ENTER 'EOB' INTO LISTING 7148 13563 0 02 13646 LDA FS41+1 =(B)(SP) 7149 13564 0 04 13752 STA PRI+6 7150 13565 0 02 13650 LDA OCI 7151 13566 0 10 13272 JST OR80 ENTER FIRST WORD FROM BUFFER INTO LISTING 7152 13567 0 013754 DAC PRI+8 7153 13570 0 02 13651 LDA OCI+1 7154 13571 0 10 13272 JST OR80 ENTER WORD 2 FROM BUFFER INTO LISTING 7155 13572 0 013760 DAC PRI+12 7156 13573 0 02 13652 LDA OCI+2 7157 13574 0 10 13272 JST OR80 ENTER WORD 3 FROM BUFFER INTO LISTING 7158 13575 0 013764 DAC PRI+16 7159 13576 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC BUFFER 7160 13577 0 013744 DAC PRI 7161 13600 0 10 13321 JST PRSP RESET SYMBOLIC BUFFER TO SPACES
* NAME: FRTN DWG 70180463000 REV J PAGE 209

7162 13601 140040 FS11 CRA 7163 13602 0 04 00000 STA 0 COMPUTE CHECKSUM 7164 13603 1 05 13650 FS12 ERA OCI,1 MERGE BUFFER WORD INTO CHECKSUM 7165 13604 0 12 00000 IRS 0 INCREMENT BUFFER POSITION 7166 13605 0 12 00063 IRS OCNT DECREMENT BUFFER SIZE 7167 13606 0 01 13603 JMP FS12 7168 13607 1 04 13650 STA OCI,1 SET CHECKSUM INTO BUFFER 7169 13610 0 02 00062 LDA PCNT = NO. OF WORDS IN BUFFER 7170 13611 0 13 00000 IMA 0 7171 13612 0 06 13644 ADD FS40 = OCI+1,1 7172 13613 0 10 00000 CALL F4$OUT PUNCH BUFFER 7173 13614 0 35 13330 FS20 LDX PRSK =-40 BUFFER SIZE 7174 13615 140040 CRA 7175 13616 1 04 13720 STA OCI+40,1 CLEAR BUFFER BEFORE USING 7176 13617 0 12 00000 IRS 0 7177 13620 0 01 13616 JMP *-2 7178 13621 0 02 00643 LDA RPL SET UP BUFFER FOR NEXT OUTPUT 7179 13622 0400 70 LRL 8 7180 13623 0 06 13647 ADD K145 ='2000 (BLOCK CODE 2) 7181 13624 0 04 13650 STA OCI 7182 13625 000201 IAB 7183 13626 0 04 13651 STA OCI+1 SET FIRST 2 WORDS OF BUFFER 7184 13627 0 02 00737 LDA K103 =O 7185 13630 0 04 00063 STA OCNT RESET BUFFER OCCUPANCY SIZE 7186 13631 0 35 13633 LDX FSXS RESTORE INDEX 7187 13632 -0 01 13531 JMP* FS00 EXIT 7188 13633 FSXS BSS 1 TEMP STORAGE FOR INDEX 7189 * 7190 13634 0414 72 FS30 LGL 6 MERGE BUFFER SIZE INTO BLOCK HEADER 7191 13635 0 07 00063 SUB OCNT BUFFER SIZE 7192 13636 141206 AOA (ACCOUNT FOR CHECKSUM) 7193 13637 0412 72 LLR 6 7194 13640 0404 72 LGR 6 7195 13641 0410 72 LLL 6 BRING IN UPPER HALF OF ADDRESSES 7196 13642 0 04 13650 STA OCI STORE INTO BUFFER 7197 13643 0 01 13552 JMP FS09 COMPUTE THE CHECKSUM 7198 * 7199 13644 1 013651 FS40 DAC OCI+1,1 7200 13645 142717 FS41 BCI 2,EOB 'EOB' 13646 141240 7201 13647 020000 K145 OCT 20000 BLOCK TYPE 2 CODE 7202 * 7203 13650 000000 OCI BSZ 40 * 7204 13720 000000 BSZ 20 PAD BUFFER WITH ZERO'S 7205 013657 OCI7 EQU OCI+7 7206 013660 OCI8 EQU OCI+8 7207 13744 PRI BSS 40 40 WORD PRINT BUFFER 7208 14014 120240 BCI 20, 14015 120240 14016 120240
* NAME: FRTN DWG 70180463000 REV J PAGE 210

14017 120240 14020 120240 14021 120240 14022 120240 14023 120240 14024 120240 14025 120240 14026 120240 14027 120240 14030 120240 14031 120240 14032 120240 14033 120240 14034 120240 14035 120240 14036 120240 14037 120240 7209 * 7210 14040 CI BSS 40 7211 14110 120240 BCI 20, 14111 120240 14112 120240 14113 120240 14114 120240 14115 120240 14116 120240 14117 120240 14120 120240 14121 120240 14122 120240 14123 120240 14124 120240 14125 120240 14126 120240 14127 120240 14130 120240 14131 120240 14132 120240 14133 120240 7212 14134 152322 K1 BCI 3,TRUE. 14135 152705 14136 127240 7213 14137 143301 K2 BCI 3,FALSE. 14140 146323 14141 142656 7214 14142 147317 KNOT BCI 3,NOT. 14143 152256 14144 120240 7215 *...........IMPLICIT MODE SUBROUTINE NAME TABLE 7216 14145 142305 TGT1 BCI 6,DECEDLCLDLDS
* NAME: FRTN DWG 70180463000 REV J PAGE 211

14146 141705 14147 142314 14150 141714 14151 142314 14152 142323 7217 14153 141723 BCI 6,CSDCCCDSCSDA 14154 142303 14155 141703 14156 142323 14157 141723 14160 142301 7218 14161 142301 BCI 6,DADMDADMDMDS 14162 142315 14163 142301 14164 142315 14165 142315 14166 142323 7219 14167 142302 BCI 3,DBCMCO 14170 141715 14171 141717 7220 14172 154320 TGT2 BCI 6,XPXPOGOGOGIN 14173 154320 14174 147707 14175 147707 14176 147707 14177 144716 7221 14200 144716 BCI 6,INOSOSQRQRTA 14201 147723 14202 147723 14203 150722 14204 150722 14205 152301 7222 14206 152301 BCI 6,TAODBSAXINIG 14207 147704 14210 141323 14211 140730 14212 144716 14213 144707 7223 14214 146305 BCI 3,LEPLNJ 14215 150314 14216 147312 7224 14217 120240 TGT3 BCI 6, 10 14220 120240 14221 120240 14222 120240 14223 130660 14224 120240 7225 14225 120240 BCI 6, T T N 14226 120240 14227 120240
* NAME: FRTN DWG 70180463000 REV J PAGE 212

14230 152240 14231 152240 14232 147240 7226 14233 147262 BCI 6,N2 1 1 N 14234 120240 14235 120240 14236 130640 14237 130640 14240 147240 7227 14241 120240 BCI 3, X G 14242 154240 14243 143640 7228 14244 144716 A9X1 BCI 2,INRE 14245 151305 7229 14246 142317 KI9 BCI 1,DO 7230 14247 141717 BCI 2,COLO 14250 146317 7231 14251 143325 A7K BCI 1,FU CONSTANT FOR FUNCTION CHECK 7232 14252 151725 BCI 4,SUBLEXDI 14253 141314 14254 142730 14255 142311 7233 14256 141717 BCI 6,COEQGOCARECO 14257 142721 14260 143717 14261 141701 14262 151305 14263 141717 7234 14264 143317 A9X5 BCI 1,FO 7235 14265 144706 BCI 3,IFWRRE 14266 153722 14267 151305 7236 14270 141301 BCI 5,BAENREENAS 14271 142716 14272 151305 14273 142716 14274 140723 7237 14275 151724 K55 BCI 1,ST 7238 14276 150301 K54 BCI 1,PA 7239 14277 142301 BCI 2,DATR 14300 152322 7240 14301 144305 BCI 1,HE 7241 14302 153701 BCI 1,WA 7242 14303 152305 BCI 1,TE 7243 14304 151305 BCI 1,RE 7244 14305 141717 BCI 1,CO 7245 14306 142311 BCI 1,DI 7246 14307 151703 BCI 1,SC 7247 14310 144716 BCI 1,IN 7248 14311 150322 BCI 1,PR
* NAME: FRTN DWG 70180463000 REV J PAGE 213

7249 14312 152305 A9X2 BCI 10,TEALUBMPGINCBROCTEME 14313 140714 14314 152702 14315 146720 14316 143711 14317 147303 14320 141322 14321 147703 14322 152305 14323 146705 7250 14324 146715 BCI 10,MMUITOLLTUNTRM( ITAD 14325 152711 14326 152317 14327 146314 14330 152325 14331 147324 14332 151315 14333 124240 14334 144724 14335 140704 7251 14336 141713 BCI 3,CKDFWI 14337 142306 14340 153711 7252 14341 142215 OCT 142215 D, C/R 7253 14342 151711 BCI 3,SIOPUS 14343 147720 14344 152723 7254 14345 152301 BCI 2,TAAC 14346 140703 7255 14347 140704 BCI 1,AD 7256 14350 144724 BCI 1,IT 7257 14351 151315 BCI 1,RM 7258 14352 150725 BCI 1,QU 7259 14353 147316 BCI 1,NN 7260 14354 151703 BCI 1,SC 7261 14355 144305 BCI 1,HE 7262 14356 152305 BCI 1,TE 7263 14357 144716 BCI 1,IN 7264 14360 0 010067 A9X3 DAC A3 7265 14361 0 010071 DAC A4 7266 14362 0 010073 DAC A5 7267 14363 0 010075 DAC A6 7268 14364 0 010077 DAC A7 7269 14365 0 010031 DAC R1 7270 14366 0 010033 DAC R2 7271 14367 0 011305 DAC R3 7272 14370 0 010137 DAC B2 7273 14371 0 010145 DAC B3 7274 14372 0 010233 DAC B4 7275 14373 0 010304 DAC B5
* NAME: FRTN DWG 70180463000 REV J PAGE 214

7276 14374 -0 004526 DAC* R7 7277 14375 -0 005435 DAC* R8 7278 14376 -0 005463 DAC* R9 7279 14377 -0 004262 DAC* CONT 7280 14400 -0 005133 DAC* V2 7281 14401 -0 004405 DAC* V3 7282 14402 -0 004737 DAC* V4 7283 14403 -0 004735 DAC* V5 7284 14404 -0 004717 DAC* V6 7285 14405 -0 004724 DAC* V7 7286 14406 -0 004726 DAC* V8 7287 14407 0 025556 DAC W5+'20000 7288 14410 -0 004636 DAC* W3 7289 14411 -0 005371 DAC* W7 7290 14412 -0 005432 DAC* W8 7291 14413 1 010732 DAC W4,1 7292 14414 -1 031315 DAC* TRAC+'20000,1 TRACE STATEMENT 7293 14415 0 000000 DAC HEAD HEADER STATEMENT 7294 14416 -0 000000 DAC* WAIT WAIT STATEMENT 7295 14417 -0 000000 DAC* TERM TERMINATE STATEMENT 7296 14420 -0 000000 DAC* REQU REQUEST STATEMENT 7297 14421 -0 000000 DAC* CONN CONNECT CLOCK/INTERRUPT 7298 14422 -0 000000 DAC* DISC DISCONNECT CLOCK/INTERRUPT 7299 14423 -0 000000 DAC* SCHE SCHEDULE 7300 14424 -1 020000 IPTR DAC* 0000+'20000,1 WILL BE FILLED IN LATER !!!!!! 7301 14425 -0 000000 DAC* PRIN PRINT ERROR STATEMENT 7302 *-------------THE FOLLOWING TABLE IS USED BY STATEMENT ID 7303 *-------------(RIGHT 6 BITS) AND OUTPUT ITEM. 7304 14426 000003 A9X4 OCT 000003 (OO) 7305 14427 030100 OCT 030100 (01) + (A$--) 7306 14430 032313 OCT 032313 (02) - (S$--) 7307 14431 031503 OCT 031503 (03) * (M$--) 7308 14432 030403 OCT 030403 (04) / (D$--) 7309 14433 000004 OCT 000004 (05) .NOT. 7310 14434 000006 OCT 000006 (06) .AND. 7311 14435 031405 OCT 031405 (07) .OR. (L$-. 7312 14436 000004 OCT 000004 (10) .LT. 7313 14437 000005 OCT 000005 (11) .LE. 7314 14440 000002 OCT 000002 (12) .EQ. 7315 14441 000007 OCT 000007 (13) .GE. 7316 14442 000000 OCT 000000 (14) .GT. 7317 14443 000000 OCT 000000 (15) .NE. 7318 14444 031003 OCT 031003 (16) = (H$--) 7319 14445 000005 OCT 000005 (17) , 7320 14446 030503 OCT 030503 (20) 'E' (E$--) 7321 14447 031600 OCT 031600 (21) 'C' NC$--) 7322 14450 000001 OCT 000001 (22) 'A' 7323 14451 000000 OCT 000000 (23) 7324 14452 000005 OCT 000005 (24) 'X' 7325 14453 000003 OCT 000003 (25) 'H'
* NAME: FRTN DWG 70180463000 REV J PAGE 215

7326 14454 000002 OCT 000002 (26) 'L' 7327 14455 000000 OCT 000000 (27) 'I' 7328 14456 000002 OCT 000002 (30) 'T' 7329 14457 031400 OCT 031400 (31) 'F' (L$--) 7330 14460 000001 OCT 000001 (32) 'O' FPTN733O 7331 14461 000000 OCT 000000 7332 14462 000001 OCT 000001 7333 14463 000002 OCT 000002 7334 14464 000000 OCT 000000 7335 14465 000005 OCT 000005 7336 14466 000003 OCT 000003 7337 14467 000003 OCT 3 7338 14470 000006 OCT 6 7339 14471 000004 OCT 4 7340 14472 000005 OCT 5 7341 14473 000006 OCT 6 7342 14474 000250 K17 OCT 250 ( 7343 14475 000003 OCT 3 * 7344 14476 000005 OCT 5 NOT 7345 14477 000001 OCT 1 + 7346 14500 000002 OCT 2 - 7347 14501 000310 K14 OCT 310 H 7348 014501 K48 EQU K14 7349 14502 0 006301 EX91 DAC EX12 ( 7350 14503 0 006307 DAC EX16 * 7351 14504 0 006332 DAC EX18 NOT 7352 14505 0 006367 DAC EX26 + 7353 14506 0 006367 DAC EX26 - 7354 14507 0 006770 DAC EX69 H 7355 14510 000001 EX92 OCT 1 + 7356 14511 000002 OCT 2 - 7357 14512 000003 OCT 3 * 7358 14513 000004 OCT 4 / 7359 14514 000006 OCT 6 AND 7360 14515 000007 OCT 7 OR 7361 14516 000015 OCT 15 NE 7362 14517 000012 OCT 12 EQ 7363 14520 000014 OCT 14 GT 7364 14521 000010 OCT 10 LT 7365 14522 000013 OCT 13 GE 7366 14523 000011 OCT 11 LE 7367 14524 000016 OCT 16 = 7368 14525 000016 OCT 16 = (ERROR) 7369 14526 0 007036 EX93 DAC EX78 + 7370 14527 0 007036 DAC EX78 7371 14530 0 007041 DAC EX80 * 7372 14531 0 007041 DAC EX80 / 7373 14532 0 007043 DAC EX81 AND 7374 14533 0 007046 DAC EX82 OR 7375 14534 0 007050 DAC EX83 NE
* NAME: FRTN DWG 70180463000 REV J PAGE 216

7376 14535 0 007050 DAC EX83 EQ 7377 14536 0 007050 DAC EX83 GT 7378 14537 0 007050 DAC EX83 LT 7379 14540 0 007050 DAC EX83 GE 7380 14541 0 007050 DAC EX83 LE 7381 14542 0 007070 DAC EX85 = 7382 14543 0 006411 DAC EX34 NONE OF THESE 7383 14544 000001 CA90 OCT 1,2,11,10,13,14,12,15 14545 000002 14546 000011 14547 000010 14550 000013 14551 000014 14552 000012 14553 000015 7384 14554 000002 CA91 OCT 2,1,13,14,11,10,12,15 14555 000001 14556 000013 14557 000014 14560 000011 14561 000010 14562 000012 14563 000015 7385 14564 140704 OR92 BCI 22,ADJSLDADJMSULDSTANJMSNSMLLLRACTCCMSSAOSSJMDA 14565 145323 14566 146304 14567 140704 14570 145315 14571 151725 14572 146304 14573 151724 14574 140716 14575 145315 14576 151716 14577 151715 14600 146314 14601 146322 14602 140703 14603 152303 14604 141715 14605 151723 14606 140717 14607 151723 14610 145315 14611 142301 7386 14612 146304 BCI 3,LDINEN 14613 144716 14614 142716 7387 14615 140714 BCI 2,ALTC 14616 152303
* NAME: FRTN DWG 70180463000 REV J PAGE 217

7388 14617 151724 BCI 10,STCASTSUDAERSUCAJS// 14620 141701 14621 151724 14622 151725 14623 142301 14624 142722 14625 151725 14626 141701 14627 145323 14630 127657 7389 14631 142252 OR93 BCI 22,D*T*A*D P B A A A P*Z I 1515A A A C A M PXC 14632 152252 14633 140652 14634 142240 14635 150240 14636 141240 14637 140640 14640 140640 14641 140640 14642 150252 14643 155240 14644 144640 14645 130665 14646 130665 14647 140640 14650 140640 14651 140640 14652 141640 14653 140640 14654 146640 14655 150330 14656 141640 7390 14657 154240 BCI 3,X H B 14660 144240 14661 141240 7391 14662 151661 BCI 2,S1A 14663 140640 7392 14664 143640 BCI 10,G S A*B*C*R/BRS*T*/ 14665 151640 14666 140652 14667 141252 14670 141652 14671 151257 14672 141322 14673 151652 14674 152252 14675 127640 7393 * 7394 * 7395 *
* NAME: FRTN DWG 70180463000 REV J PAGE 218

7396 * *********************** 7397 * *IOS (AND IOL) GO HERE* 7398 * *********************** 7399 * 7400 14676 040000 END A0 14677 020000 14700 002000 A 000625A A0 001001A A051 001005A A055 001035A A090 001056A A091 001057A A1 003637A A3 010067A A4 010071A A5 010073A A6 010075A A7 010077A A790 010131A A7A 010100A A7B 010125A A7K 014251A A9 004157A A9A 004166A A9B 004221A A9C 004225A A9D 004232A A9E 004241A A9F 004246A A9G 004257A A9T1 004154A A9T2 004155A A9T3 004156A A9X1 014244A A9X2 014312A A9X3 014360A A9X4 014426A A9X5 014264A A9Z9 004266A AA00 003623A ABAR 000637A ACCP 007512A AD3 002442A AF 000025A AF00 003571A AHGH 010730A AI00 003612A ALOW 010727A AS00 002762A AS04 002765A AS05 002767A AS15 003065A AS16 003066A AS18 003103A AS19 003111A AS30 003113A AS32 003123A AS40 003145A AS41 003164A AS46 003203A AS50 003213A AS60 003215A AS91 003220A AS92 003221A ASMB 000000E AT 000026A AT00 002424A B 000036A B1 010132A B2 010137A B3 010145A B3A 010146A B3D 010215A B3T0 010142A B3T1 010143A B3T3 010144A B4 010233A B40 010245A B4B 010250A B4D 010270A B4E 010301A B4F 000757A B4Z9 010303A B5 010304A B5B 010320A B5C 010326A B5D 010340A B6 003633A B7 010226A BDF 000644A BLKC 011605A BLNK 002510A BLXS 002522A BUD 003520A C1R2 002752A C2 010344A C2A 010346A C2B 010352A C2D 010362A C2F 010373A C2R2 011431A C2T0 010343A C3 010410A C3B 010416A C3D 010427A C3G 010441A C3H 010445A C3H2 010451A C3K 010467A C3M 010504A C3N 010523A C3N5 010526A C3O 010530A C3P 010554A C3R2 013123A C3T0 010403A C3T1 010404A C3T2 010405A C3T3 010406A C3T4 010407A C4 010661A C4B 010561A C4C 010562A C4F 010611A C4I 010632A C4L 010666A C4L2 010644A C4L3 010646A C4L6 010663A C4M 010677A C4T0 010557A C4T1 010560A C5 003635A C6 003641A C6A 003644A C6B 003647A C6C 003651A C6D 003656A C6E 003677A C6H 003703A C6J 003714A C6K 003721A C7 003723A C71 003751A C7A 003757A C7B 003760A C7C 003762A C7LS 004002A C7LT 003771A C7LU 004004A C8 004032A C8A 004040A C8B 004041A C8B2 004046A C8B4 004051A C8C 004056A C8C4 004065A C8D 004071A C8D2 004100A C8E 004102A C8G 004140A C8T1 004031A C8X9 004153A C9 004702A C9T0 004701A CA00 007125A CA04 007130A CA08 007146A CA10 007165A CA13 007203A
* NAME: FRTN DWG 70180463000 REV J PAGE 219

CA14 007220A CA18 007260A CA20 007261A CA22 007273A CA24 007304A CA26 007325A CA28 007330A CA30 007332A CA31 007334A CA32 007335A CA35 007352A CA37 007355A CA39 007370A CA45 007400A CA50 007215A CA90 014544A CA91 014554A CC 000656A CCRD 004007A CCRK 004030A CERR 002647A CFL 000641A CH00 001157A CH02 001202A CH03 001163A CH04 001167A CH05 001203A CH06 001206A CH10 001212A CH11 001213A CH12 001233A CI 014040A CIB 002533A CIBB 002540A CIBC 002546A CIBD 002551A CIBZ 002553A CIXS 002554A CL 000046A CN00 011363A CODE 000027A CONN 000000E CONT 004262A CRET 000702A CSR1 013452A CSR4 012766A D 000642A D0 000030A D1 000031A D2 000032A D3 000033A DA00 003477A DA10 003503A DA20 003513A DF 000035A DFL 000037A DISC 000000E DM00 003464A DN00 001350A DN01 001351A DN06 001363A DN07 001365A DN10 001374A DN14 001435A DN16 001441A DN17 001456A DN22 001461A DN25 001476A DN26 001507A DN28 001512A DN29 001514A DN30 001517A DN50 001533A DN52 001567A DN54 001577A DN56 001606A DN58 001610A DN63 001627A DN64 001632A DN66 001634A DN67 001643A DN68 001644A DN69 001647A DN70 001651A DN71 001652A DN72 001656A DN74 001663A DN78 001705A DN80 001707A DN81 001710A DN82 001723A DN84 001726A DN85 001751A DN87 002000A DN8A 001742A DN8B 001745A DN8C 001747A DN90 002015A DN9A 002023A DN9B 002037A DN9C 002036A DN9D 002050A DN9E 002104A DN9G 002122A DN9H 002153A DN9J 002175A DN9K 002212A DN9N 002214A DND1 002064A DNO2 001555A DNOC 001554A DNX1 002221A DO 000655A DP 017400A DP00 006064A DP10 006117A DP20 006125A DQ00 006155A DS00 006131A DS20 006146A DS90 006154A DT 000047A E 000040A E0 000042A EBAR 000654A EL00 007602A EL40 007613A EL90 007624A EP 000041A ER00 002615A ER01 002634A ER02 002637A ER03 002621A ER04 002617A ER20 002666A ER91 002673A ER92 002674A ET00 007470A ETXS 007511A EX00 006225A EX10 006252A EX11 006263A EX12 006301A EX14 006305A EX16 006307A EX18 006332A EX20 006347A EX22 006352A EX24 006356A EX26 006367A EX30 006375A EX31 006376A EX32 006407A EX34 006411A EX38 006430A EX39 006447A EX40 006453A EX41 006462A EX42 006463A EX44 006475A EX50 006477A EX54 006545A EX55 006553A EX56 006570A EX57 006611A EX58 006620A EX59 006571A EX60 006640A EX62 006656A EX63 006676A EX64 006722A EX65 006727A EX66 006736A EX67 006742A EX68 006755A EX69 006770A EX74 007020A EX75 007023A EX76 007026A EX78 007036A EX79 007037A EX80 007041A EX81 007043A EX82 007046A EX83 007050A EX84 007066A EX85 007070A EX86 007044A EX91 014502A EX92 014510A EX93 014526A EX95 007100A EX96 007102A EX97 007104A EX99 007106A EXI1 006276A EXT0 006216A EXT7 006223A F 000045A F1 001342A
* NAME: FRTN DWG 70180463000 REV J PAGE 220

F2 001343A F3 001344A F4 001345A F6 001346A FA00 003317A FA10 003353A FA22 003377A FA24 003402A FA26 003405A FA40 003413A FA91 003423A FL00 003426A FLT1 000044A FN00 001307A FN05 001317A FN10 001320A FN20 001330A FN82 001315A FN90 000715A FS00 013531A FS09 013552A FS10 013555A FS11 013601A FS12 013603A FS20 013614A FS30 013634A FS40 013644A FS41 013645A FSXS 013633A FTOP 000043A G 010731A G1 005507A G1A 005524A G1B 005546A G2 005452A G2A 005461A GE00 007514A GE10 007521A GE20 007546A GFA 000704A HBIT 000703A HC2 000714A HEAD 000000E HOLF 001347A HS00 006046A HS10 006047A HS15 006062A I 000626A IA00 001253A IA10 001261A IA20 001270A IA50 001272A IA90 000756A IA99 001305A IAXS 001306A IB00 004606A IB10 004615A IBUF 001333A IC00 001061A IC12 001072A IC18 001111A IC19 001120A IC20 001131A IC21 001121A IC22 001132A IC24 001135A IC26 001140A IC30 001144A ICSW 000705A ICXS 001134A ID 000774A ID00 001240A ID1 000775A ID10 001251A IFF 000636A IFLG 000077A IG00 007645A IG20 007663A II00 002224A IL00 007755A IL10 010016A IL16 010011A IL18 010014A IL20 010024A IL30 010026A IM 000706A IM00 002462A IM10 002470A IN00 005313A IOF 000707A IP00 002360A IPTR 014424A IR00 002260A IS00 002264A IS04 002265A IS10 002274A IS20 002312A IS22 002316A IS25 002320A ISTR 000767A IT00 002433A IU 000710A IV00 002253A K 007117A K1 014134A K10 000661A K100 000667A K101 000735A K102 000736A K103 000737A K104 000740A K105 000741A K106 000742A K107 000743A K108 001150A K109 000666A K11 000763A K110 000671A K111 000670A K116 000672A K118 000673A K119 000674A K12 000716A K120 002461A K122 000675A K123 000676A K124 000745A K125 000744A K126 000746A K127 000747A K128 000750A K129 000751A K130 000762A K131 006366A K132 000677A K133 000764A K134 000754A K137 006721A K138 000700A K139 000701A K14 014501A K140 013347A K142 000760A K143 000761A K145 013647A K146 013530A K149 013401A K15 000662A K150 011673A K152 012427A K153 000753A K155 001336A K156 001337A K157 001340A K158 001341A K16 001147A K17 014474A K18 000733A K2 014137A K200 013030A K201 013026A K202 013031A K203 013025A K206 013033A K207 013046A K34 000663A K35 004635A K357 001146A K4 000657A K40 004733A K41 002336A K42 004734A K43 000664A K46 005364A K47 005365A K48 014501A K49 000755A K5 000734A K50 000664A K51 005366A K52 000763A K53 005367A K54 014276A K55 014275A K60 000665A K62 001722A K63 001236A K69 007601A K71 004730A K72 004731A K73 004732A K74 005434A K75 004634A K77 012240A K772 001237A K78 012137A K79 002337A K79X 002340A K8 000660A K80 002507A
* NAME: FRTN DWG 70180463000 REV J PAGE 221

K81 000765A K9 000720A K90 001576A KACG 004261A KAEQ 000726A KASP 001151A KBAR 000711A KI9 014246A KM8 007120A KM92 003310A KNOT 014142A KPRM 000712A KRE1 011441A KT00 003443A L 000627A L0 000113A LIBF 001060A LIF 000650A LIST 002745A LO00 003604A LSTF 000652A LSTN 000651A LSTP 000653A M 000027A MFL 000630A MIN2 000713A MOV3 002523A MSPL 004240A NA00 002242A NA10 002251A NA7X 002247A NAMF 000051A NC00 002407A ND 000076A ND00 007634A ND10 007643A NF00 002501A NINS 000043A NM00 007625A NMF1 000052A NP00 004272A NP10 004313A NP15 004326A NP16 004333A NP20 004336A NP25 004340A NP30 004352A NP35 004370A NP37 004372A NPT0 004267A NR00 002372A NS 000053A NS00 002415A NT 000054A NTF 000055A NTID 000056A NU00 002401A NZ00 005305A NZ10 005311A O1 000057A O2 000060A OA00 013251A OB00 011471A OB06 011517A OB08 011540A OB10 011543A OB15 011550A OB20 011554A OB30 011637A OB40 011653A OB60 011660A OB61 011667A OBXS 011636A OC00 013243A OCI 013650A OCI7 013657A OCI8 013660A OCNT 000063A OI00 011337A OI10 011355A OI20 011357A OK00 011444A OK10 011452A OK20 011455A OK30 011462A OL00 011332A OM00 012247A OM01 012250A OM05 012262A OM07 012273A OM10 012301A OM13 012305A OM14 012306A OM20 012330A OM26 012343A OM30 012355A OM36 012372A OM38 012374A OM40 012401A OM44 012411A OM46 012421A OM50 012423A OM52 012431A OM56 012437A OM60 012441A OM62 012452A OM64 012466A OM66 012475A OM70 012477A OM74 012506A OM76 012511A OM78 012526A OM80 012531A OM84 012563A OM86 012573A OM88 012601A OM90 012615A OM92 012616A OM93 012617A OM94 012620A OM95 012621A OM96 012622A OMA1 012623A OMA4 012645A OMA5 012656A OMA6 012662A OMA7 012670A OMA8 012676A OMA9 012700A OMB1 012701A OMB3 012703A OMC1 012722A OMC5 012743A OMD1 012745A OME1 012747A OME5 012751A OMHW 012605A OMI0 013021A OMI1 013022A OMI2 013023A OMI3 013024A OMI4 013025A OMI5 013026A OMI6 013027A OMI7 013030A OMI8 013031A OMI9 013032A OMJ1 013033A OMJ2 013034A OMJ3 013035A OMJ4 013036A OMJ5 013037A OMJ6 013040A OMJ7 013041A OMK1 013042A OMK2 013043A OMK3 013044A OMK4 013045A OMK5 013046A OMK7 013055A OMK8 013065A OMK9 013056A OML1 013067A OML2 013053A OML3 013054A ON00 013331A ON02 013377A ONT1 013400A OP00 002232A OPST 000000E OQ00 013235A OR00 013072A OR10 013076A OR13 013113A OR15 013115A OR18 013131A OR19 013132A OR20 013170A OR23 013133A OR24 013153A OR30 013177A OR40 013222A OR80 013272A OR85 013305A OR89 013317A OR90 013320A OR91 013022A OR92 014564A OR93 014631A ORPL 013475A ORXS 013167A OS00 013257A OT00 011701A OT02 011710A OT03 011737A OT04 011740A OT06 011745A OT10 011746A OT16 012061A OT18 012011A
* NAME: FRTN DWG 70180463000 REV J PAGE 222

OT22 012017A OT28 012052A OT30 012054A OT32 012063A OT35 012140A OT36 012172A OT37 012201A OT3A 012114A OT3B 012116A OT3C 012120A OT3D 012125A OT3E 012127A OT3F 012132A OT3G 012133A OT3H 012135A OT40 012207A OT45 012213A OT50 012216A OT60 012225A OT99 012232A OTXS 012231A OW00 013402A OW10 013435A OW14 013460A OW20 013473A OWXS 013471A P 000061A PACK 002555A PAK1 002560A PAK2 002573A PAK3 002576A PAK4 002603A PAK7 002612A PAK8 002613A PAK9 002614A PCNT 000062A PKF 011442A PO00 006042A PRI 013744A PRIN 000000E PRSK 013330A PRSP 013321A PU00 013476A PU08 013507A PU10 013515A PU11 013524A PU12 013521A R1 010031A R2 010033A R2A 010040A R2B 010036A R2C 010061A R2D 010065A R3 011305A R7 004526A R7B 004535A R7B1 004533A R7D 004550A R7F 004571A R8 005435A R8A 005450A R9 005463A R9C 005501A RE00 011370A REQU 000000E RPL 000643A S1 000064A S2 000065A S3 000066A SAF 010717A SBF 000632A SC00 007666A SC10 007676A SC15 007704A SC20 007715A SC30 007716A SC40 007732A SC50 007734A SC60 007714A SC70 007741A SC90 007753A SC91 007754A SCHE 000000E SCT0 007665A SFF 000631A SFT 002720A SFXS 002744A SI00 005320A SI05 005323A SI10 005346A SKIP 001427A SOF 000647A SPF 000634A SRT 002675A SRXS 002717A ST00 007411A ST05 007416A ST10 007427A ST20 007430A STFL 013472A STMT 000046A SUED 006033A SUID 006034A SXF 000633A SY00 002341A T0AS 002761A T0C3 010403A T0CA 007121A T0EX 006216A T0GE 007513A T0NP 004267A T0OK 011443A T0OM 012241A T0OT 011674A T0V2 005131A T0W4 010725A T1C3 010404A T1CA 007122A T1EX 006217A T1IM 002477A T1NP 004271A T1OB 011470A T1OM 012242A T1OT 011676A T1V3 004523A T1W3 004700A T1W4 010726A T1W5 005555A T1W7 005370A T2CA 007123A T2EX 006220A T2IM 002500A T2NP 004270A T2OM 012243A T2OT 011675A T2V2 005132A T2V3 004524A T3C3 010406A T3EX 006221A T3OT 011677A T3V3 004525A T4C3 010407A T4OT 011700A T5EX 006222A T8OM 012244A T9CA 007124A T9EX 006224A T9OM 012245A TC 000067A TC00 007456A TCF 000635A TERM 000000E TG00 003222A TG04 003231A TG06 003235A TG08 003237A TG10 003250A TG22 003270A TGT1 014145A TGT2 014172A TGT3 014217A TID 000774A TIDB 003271A TIDN 000766A TRAC 011315A TRAD 011324A TRF 000645A TRFA 000646A TRS7 012773A TRSE 012754A TS00 002352A TT 000070A TV00 003274A TXOM 012246A UC00 001152A V2 005133A V2A 005142A V2A1 005145A V2B 005154A V2C 005163A V2DA 005200A V2E 005214A V2E2 005221A V2E5 005223A V2F 005232A V2G 005256A V2H 005261A V2J 005266A V2K 005270A V2M 005350A V2N 003637A V2P 005352A V2Q 005355A V2T2 005132A V3 004405A V308 004413A V310 004415A V320 004450A V324 004455A V330 004476A
* NAME: FRTN DWG 70180463000 REV J PAGE 223

V340 004507A V350 004511A V360 004514A V4 004737A V5 004735A V5B 004755A V5B2 004762A V5C 004770A V5D 004773A V5E 005012A V5E4 005030A V5E5 005031A V5E7 005037A V5F 005051A V5G 005056A V5H 005061A V5H7 005075A V5J 005112A V5T1 005115A V5X 005116A V5X2 005123A V5X5 005126A V6 004717A V6A 004720A V7 004724A V8 004726A W3 004636A W305 004653A W4 010732A W403 011154A W404 011160A W405 011164A W406 011165A W420 011175A W4B 010734A W4C 010745A W4E 010765A W4F 010770A W4G 011043A W4K 011057A W4L 011062A W4M 011067A W4O 011101A W4P 011217A W4Q 011036A W4S 011222A W4T 011273A W4X 011022A W4Y 011002A W5 005556A W5B 005565A W5D 005570A W5F 005601A W5H 005612A W5I 005645A W5J 005654A W5K 005672A W5M 005700A W5N 005712A W5O 005721A W5P 005731A W5Q 005754A W5R 005773A W5S 005763A W5T 005776A W5T5 006013A W5U 006003A W5X 006036A W5Z1 000667A W5Z2 000675A W5Z3 000672A W7 005371A W7A 005372A W7C 005407A W8 005432A WAIT 000000E WERR 011173A WHOW 011125A WSNG 011144A X 000071A X1 000072A X2 000073A X3 000074A X4 000075A XN00 002346A XST 000640A ZERO 003313A 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71