| Previous File | Multiple Pages | Next File |
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 1
0001 * C210-001-6601 (FRTN) 3C NO.180463000 REV. D 0002 * 0003 * 0004 * 0005 * COMPUTER. DDP-116,516 0006 * 0007 * 0008 * 0009 * 0010 * PROGRAM CATEGORY- COMPILER 0011 * 0012 * 0013 * 0014 * 0015 * PROGRAM TITLE. FRTN 0016 * EXPANDED FORTRAN IV COMPILER 0017 * FOR DDP-116,516 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * 0025 * APPROVAL DATE 0026 * 0027 * 0028 * PROG--------------------- ------------ 0029 * 0030 * 0031 * SUPR---------------------- ------------ 0032 * 0033 * 0034 * QUAL---------------------- ------------ 0035 * 0036 * 0037 * NO. OF PAGES ------------ 0038 * 0039 * REVISIONS 0040 * 0041 * REV. D ECO 5249 0042 * REV. C ECO 3824 10-31-66 0043 * REV. B ECO 3476 09-19-66 0044 * REV. A 06-08-66 0045 * 0046 * AUTHOR 0047 * 0048 * HONEYWELL. INC. - COMPUTER CONTROL DIVISION 0049 * 0050 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 2
0051 * PURPOSE 0052 * 0053 * THIS PROGRAM IS DESIGNED TO COMPILE ASA STANDARD FORTRAN IV 0054 * PROGRAMS IN ONE PASS, GENERATING OPTIMUM OBJECT CODE FOR THE 0055 * DDP-116 OR DDP-516. 0056 * 0057 * 0058 * RESTRICTIONS 0059 * 0060 * MINIMUM 8K CORE STORAGE 0061 * 0062 * 0063 * STORAGE 0064 * 0065 * 6682 (DECIMAL) 0066 * 15034 (OCTAL) 0067 * 0068 * 0069 * USE 0070 * 0071 * 0072 * ******************************** 0073 * 0074 * *FORTRAN-IV OPERATING PROCEDURE* 0075 * ******************************** 0076 * 0077 * 1. LOAD THE COMPILER SYSTEM TAPE USING STANDARD 'LOAD-MODE' 0078 * (DDP-116), OR "PAL-MODE (DDP-516) LOADING PROCEDURES 0079 * 0080 * 2. SET THE (A) REGISTER FOR THE DESIRED INPUT/OUTPUT DEVICE 0081 * SELECTION AS DESCRIBED BELOW, SET (P) TO '1000, SET THE 0082 * SENSE SWITCHES AS DESCRIBED BELOW, AND PRESS START. 0083 * 0084 * 3. INPUT/OUTPUT DEVICE SELECTION (BITS SET IN (A) ON ENTRY)..... 0085 * 1......IF SET, CERTAIN ERROR CHECKS ARE NOT MADE. THIS 0086 * OPTION IS USED WHEN COMPILING THOSE PARTS OF THE 0087 * LIBRARY WRITTEN IN FORTRAN LANGUAGE AND IT ALLOWS THE 0088 * LIBRARY TO TAKE ADVANTAGE OF THE COMPILER'S LOGIC TO 0089 * GENERATE SPECIAL CODING. 0090 * 0091 * 2-7....NOT ASSIGNED 0092 * 0093 * 8-10...INPUT DEVICE SELECTION 0094 * 1 = ASR-33/35 KEYBOARD (OR ITS PAPER TAPE READER) 0095 * 2 = NCR CARD READER 0096 * 3 = DIGITRONICS PAPER TAPE READER 0097 * 4 = MAGNETIC TAPE ( UNIT 1 ) 0098 * 5-7 = (SPARES) 0099 * 0100 * 11-13..SYMBOLIC LISTING SELECTION
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 3
0101 * 0. SUPPRESS ALL SYMBOLIC LISTINGS 0102 * 1. ASR-33/35 TYPEWRITER 0103 * 2. LINE PRINTER 0104 * 3 = ( SPARE ) 0105 * 4 = LISTING ON MAGNETIC TAPE UNIT 2 0106 * 5-7 = (SPARES) 0107 * 0108 * 14-16..BINARY OUTPUT SELECTION 0109 * 0. SUPPRESS BINARY OUTPUT. 0110 * 1. BRPE HIGH SPEED PAPER TAPE PUNCH 0111 * 2. ASR BINARY OUTPUT ASR/33 0112 * 3. ASR BINARY OUTPUT ASR/35 0113 * 4 = MAGNETIC TAPE OUTPUT 0114 * 5-7 (SPARES) 0115 * 0116 * 0117 * 4. SENSE SWITCH SETTINGS AND MEANINGS....... 0118 * 1......EXPAND THE SYMBOLIC LISTING TO INCLUDE 0119 * SIDE-BY-SIDE OCTAL INFORMATION. 0120 * 2......INHIBIT SYMBOLIC LISTING (AS LONG AS SSW-1 NOT SET). 0121 * 3......PAUSE BEFORE INPUT OF THE NEXT RECORD. DURING 0122 * THIS PAUSE, THE (A) REGISTER WILL DISPLAY THE CURRENT 0123 * STATUS OF THE I/O KEYBOARD, IT MAY BE 0124 * CHANGED AT THIS TIME IF DESIRED BEFORE RESETTING 0125 * SSW-3 AND PRESSING START TO CONTINUE. 0126 * 4......CAUSE TRACE COUPLING INFORMATION TO BE INCLUDED 0127 * IN THE OBJECT CODING BEING GENERATED REGARDLESS OF 0128 * ANY TRACE STATEMENTS WITHIN THE PROGRAM (OPERATOR 0129 * OVERRIDE). 0130 * 0131 * 5. WHEN BINARY TAPE IS BEING GENERATED, THE COMPILER 0132 * AUTOMATICALLY TURNS ON THE TAPE PUNCH AND PUNCHES OUT A 0133 * LENGTH OF LEADER. AFTER THE END-OF-JOB IS TYPED, A LENGTH OF 0134 * TRAILER IS PUNCHED BEFORE TURNING OFF THE PUNCH, AND THE LINE 0135 * PRINTER IS ADVANCED TO THE NEXT PAPER SEAM. PRESS 'START' 0136 * TO PROCESS THE NEXT PROGRAM (BATCH COMPILING). 0137 * 0138 * FOR ASR BINARY OUTPUT, NO LEADER OR TRAILER IS 0139 * PROVIDED, AND THE BINARY PUNCH IS LEFT ON THROUGHOUT 0140 * THE COMPILATION. 0141 * 0142 * 0143 * ERRORS 0144 * 0145 * THE ERROR MESSAGES OUTPUT BY THIS COMPILER ARE LISTED ON A 0146 * SEPERATE DOCUMENT FOR EASE OF DISTRIBUTION. 0147 * ************************* 0148 * *DATA POOL ENTRY FORMATS* 0149 * ************************* 0150 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 4
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 (IU) 0166 * 0 = NO USAGE 2 = VAR/CONSTAN^ 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 = DUMMT 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 * 00IIIIIIIIIIIII 0184 * 00TTTITTTTTTTTT 0185 * 00XXXXXXXXXXXXX 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 (A0I TABLE) 'FLOATS' ON TOP 0195 * THE DO TABLE AND CONSISTS OF 2 WORD ENTRIES. 0196 * 0197 * NOOOOOOOOIIIIIII.....DP(I+1) 0198 * 00AAAAAAAAAAAAAAAA...DP(I) 0199 * N = NEGATION INDICATOR 0200 * O = OPERATOR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 5
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 ABS 0215 ORG '100 0216 * 0217 * ************************************ 0218 * * DIRECTORY OF FORTRAN IV COMPILER * 0219 * ************************************ 0220 * 0221 * 0222 * 0223 *..............ENTRANCE GROUP 0224 00100 0 011101 DAC A3 (ENG1) COMPILER ENTRANCE/INITIALIZE 0225 00101 0 015400 DAC DP DATA POOL START 0226 * 0227 *..............INPUT GROUP 0228 00102 0 001066 DAC IC00 (IPG1) INPUT COLUMN 0229 00103 0 001251 DAC UC00 (IPG2) UNINPUT COLUMN 0230 00104 0 001256 DAC CH00 (IPG3) INPUT CHARACTER 0231 00105 0 001342 DAC ID00 (IPG4) INPUT DIGIT 0232 00106 0 001355 DAC IA00 (IPG5) INPUT (A) CHARACTERS 0233 00107 0 001412 DAC FN00 (IPG6) FINISH OPERATOR 0234 00110 0 001521 DAC DN00 (IPG7) INPUT DNA 0235 00111 0 002354 DAC II00 (IPG8) INPUT ITEM 0236 00112 0 002363 DAC OP00 (IPG9) INPUT OPERAND 0237 00113 0 002373 DAC NA00 (IPG10) INPUT NAME 0238 00114 0 002404 DAC IG00 (IPG11) INPUT INTEGER 0239 00115 0 002432 DAC IV00 (IPG12) INPUT INTEGER VARIABLE/CONSTANT 0240 00116 0 002437 DAC IR00 (IPG13) INPUT INTEGER VARIABLE 0241 00117 0 002443 DAC IS00 (IPG14) INPUT STATEMENT NUMBER 0242 00120 0 002525 DAC XN00 (IPG15) EXAMINE NEXT CHARACTER 0243 00121 0 002520 DAC SY00 INPUT STMBOL 0244 * 0245 *..............TEST GROUP 0246 00122 0 002547 DAC TS00 (TSG1) ALL CHARACTER TEST (EXCEPT C/R) 0247 00123 0 002555 DAC IP00 (TSG2) )-INPUT OPERATOR 0248 00124 0 004266 DAC A1 (TSG3) C/R TEST 0249 00125 0 002567 DAC B1 (TSG4) , OR C/R TEST 0250 00126 0 002603 DAC NU00 (TSG5) NO USAGE TEST
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 6
0251 00127 0 002611 DAC NC00 (TSG6) NON CONSTANT TEST 0252 00130 0 002617 DAC NS00 (TSG7) NON SUBPROGRAM TEST 0253 00131 0 002626 DAC AT00 (TSG8) ARRAY TEST 0254 00132 0 002635 DAC IT00 (TSG9) INTEGER TEST 0255 00133 0 002574 DAC NR00 (TSG10) NON REL TEST 0256 * 0257 *..............ASSIGNMENT GROUP 0258 00134 0 003241 DAC AS00 (ASG1) ASSIGN ITEM 0259 00135 0 003465 DAC TG00 (ASG2) TAG SUBPROGRAM 0260 00136 0 003642 DAC TV00 (ASG3) TAG VARIABLE 0261 00137 0 003656 DAC FA00 (ASG4) FETCH ASSIGN 0262 00140 0 003770 DAC FL00 (ASG5) FETCH LINK 0263 00141 0 004005 DAC KT00 (ASG6) D(0)= SIZE OF ARRAY DEFLECTION 0264 00142 0 004026 DAC DM00 (ASG7) DEFINE IM 0265 00143 0 004041 DAC DA00 (ASG8) DEFINE AF 0266 00144 0 004214 DAC AF00 (ASG9) DEFINE AFT 0267 00145 0 004233 DAC LO00 (ASG10) DEFINE LOCATION 0268 00146 0 004241 DAC AI00 (ASG11) ASSIGN INTEGER CONSTANT 0269 00147 0 004252 DAC AA00 (ASG12) ASSIGN SPECIAL 0270 00150 0 004062 DAC NXT GET NEXT ENTRY FROM ASSGN TABLE 0271 00151 0 004142 DAC BUD BUILD ASSIGNMENT TABLE ENTRT 0272 * 0273 *..............CONTROL GROUP 0274 00152 0 004262 DAC B6 (CNG1) JUMP 0275 00153 0 004264 DAC C5 ILL TERM 0276 00154 0 004271 DAC C6 (CNG2) CONTINUE 0277 00155 0 004353 DAC C7 (CNG3) STATEMENT INPUT 0278 00156 0 004456 DAC C8 (CNG4) STATEMENT SCAN 0279 00157 0 004602 DAC A9 (CNG5) STATEMENT IDENTIFICATION 0280 00160 0 005074 DAC NP00 (CNG6) FIRST NON-SPEC CHECK 0281 * 0282 *..............SPECIFICATIONS GROUP 0283 00161 0 010624 DAC EL00 (SPG1) EXCHANGE LINKS 0284 00162 0 010650 DAC NM00 (SPG2) NON COMM0N TEST 0285 00163 0 010657 DAC ND00 (SPG3) NON DUMMY OR SUBPROGRAM TEST 0286 00164 0 010672 DAC SC00 (SPG4) INPUT SUBSCRIPT 0287 00165 0 010761 DAC IL00 (SPG5) INPUT LIST ELEMENT 0288 00166 0 011042 DAC R1 (SPG6) FUNCTION 0289 00167 0 011044 DAC R2 SUBROUTINE 0290 00170 0 011101 DAC A3 (SPG7) INTEGER 0291 00171 0 011103 DAC A4 REAL 0292 00172 0 011105 DAC A5 DOUBLE PRECISION 0293 00173 0 011107 DAC A6 COMPLEX 0294 00174 0 011111 DAC A7 LOGICAL 0295 00175 0 011145 DAC B2 (SPG8) EXTERNAL 0296 00176 0 011154 DAC B3 (SPG9) DIMENSION 0297 00177 0 011246 DAC B7 INPUT DIMENSION 0298 00200 0 011253 DAC B4 (SPG10) COMMON 0299 00201 0 011335 DAC B5 (SPG11) EQUIVALENCE 0300 00202 0 011375 DAC C2 (SPG12) RELATE COMMON ITEMS
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 7
0301 00203 0 011442 DAC C3 (SPG13) GROUP EOUIVALENCE 0302 00204 0 011715 DAC C4 (SPG14) ASSIGN SPECIFICATIONS 0303 00205 0 011762 DAC W4 (SPG15) DATA 0304 00206 0 012303 DAC R3 (SPG16) BLOCK DATA 0305 00207 0 012313 DAC TRAC (SPG17) TRACE 0306 * 0307 *..............PROCESSOR GROUP 0308 00210 0 005210 DAC V3 (PRG1) IF 0309 00211 0 005334 DAC R7 (PRG2) GO TO 0310 00212 0 005414 DAC IB00 INPUT BRANCH LIST 0311 00213 0 005443 DAC W3 (PRG3) ASSIGN 0312 00214 0 005510 DAC C9 (PRG5) DO 0313 00215 0 005533 DAC V7 (PRG6) END FILE 0314 00216 0 005526 DAC V6 BACKSPACE 0315 00217 0 005535 DAC V8 REWIND 0316 00220 0 005543 DAC V5 (PRG7) READ 0317 00221 0 005552 DAC V4 WRITE 0318 00222 0 005771 DAC V2 (PRG8) FORMAT 0319 00223 0 006160 DAC SI00 INPUT FORMAT STRING 0320 00224 0 006153 DAC IN00 INPUT NUMERIC FORMAT STRING 0321 00225 0 006145 DAC NZ00 NON ZERO STRING TEST 0322 00226 0 006274 DAC W8 (PRG9) PAUSE 0323 00227 0 006233 DAC W7 STOP 0324 00230 0 006301 DAC R8 (PRG10) CALL 0325 00231 0 006321 DAC G2 ASSIGNMENT STATEMENT 0326 00232 0 006330 DAC R9 (PRG11) RETURN 0327 00233 0 006367 DAC G1 (PRG12) STATEMENT FUNCTION 0328 00234 0 006444 DAC W5 (PRG13) END 0329 * 0330 *..............PROCESSOR SUBROUTINES GROUP 0331 00235 0 006660 DAC PO00 (PSG1) INPUT CHAR AND OUTPUT PACK 0332 00236 0 006664 DAC HS00 (PSG2) TRANSMIT HOLLERITH STRING 0333 00237 0 006702 DAC DP00 (PSG3) DO INPUT 0334 00240 0 006747 DAC DS00 (PSG4) DO INITIALIZE 0335 00241 0 006773 DAC DQ00 (PSG5) DO TERMINATION 0336 00242 0 007041 DAC EX00 (PSG6) EXPRESSION 0337 00243 0 010040 DAC CA00 (PSG7) SCAN 0338 00244 0 010335 DAC ST00 TRIAD SEARCH 0339 00245 0 010404 DAC TC00 TEMP STORE CHECK 0340 00246 0 010436 DAC ET00 (PSG8) ENTER TRIAD 0341 00247 0 010525 DAC GE00 (PSG9) GENERATE SUBPROGRAM ENTRANCE 0342 * 0343 *..............OUTPUT GROUP 0344 00250 0 012330 DAC OL00 (OPG1) OUTPUT OBJECT LINK 0345 00251 0 012337 DAC OI00 (OPG2) OUTPUT I/O LINK 0346 00252 0 012363 DAC CN00 (OPG3) CALL NAME 0347 00253 0 012437 DAC OK00 (OPG4) OUTPUT PACK 0348 00254 0 012467 DAC OB00 (OPG5) OUTPUT OA 0349 00255 0 012700 DAC OT00 (OPG6) OUTPUT TRIADS 0350 00256 0 013147 DAC OM00 (OPG7) OUTPUT ITEM
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 8
0351 00257 0 013773 DAC OR00 (OPG8) OUTPUT REL 0352 00260 0 014127 DAC OA00 OUTPUT ABS 0353 00261 0 014135 DAC OS00 OUTPUT STRING 0354 00262 0 014365 DAC OW00 (OPG9) OUTPUT WORD 0355 00263 0 014465 DAC PU00 PICKUP 0356 00264 0 014523 DAC FS00 (OPG10) FLUSH 0357 00265 0 013663 DAC TRSE (OPG11) OUTPUT TRACE COUPLING 0358 00266 0 014301 DAC PRSP SET BUFFER TO SPACES 0359 * 0360 *..............MISC. GROUP 0361 00267 0 002653 DAC AD3 ADD TWO 3 WORD INTEGERS 0362 00270 0 002703 DAC IM00 MULTIPLY (A) BY (B) 0363 00271 0 002672 DAC STXA SET A INTO INDEX 0364 00272 0 002676 DAC STXI SET I INTO INDEX 0365 00273 0 002722 DAC NF00 SET FS INTO NAMF 0366 00274 0 002741 DAC BLNK SET AREA TO ZEROS 0367 00275 0 002754 DAC MOV3 MOVE 3 WORDS TO TEMP STORAGE 0368 00276 0 002764 DAC CIB COMPARE IBUF TO A CONSTANT 0369 00277 0 003007 DAC SAV SAVE INDEX IN PUSH-DOWN STACK 0370 00300 0 003016 DAC RST RESET INDEX FROM PUSH-DOWN STACK 0371 00301 0 003055 DAC PACK 0372 00302 0 003116 DAC ER00 ERROR OUTPUT 0373 00303 0 003157 DAC SRT SHIFT RIGHT 1 (TRIPLE PRES.) 0374 00304 0 003202 DAC SFT SHIFT LEFT 1 (TRIPLE PRES.) 0375 00305 0 003227 DAC LIST 0376 * 0377 * 0378 * **************************** 0379 * *CONSTANT AND VARIABLE POOL* 0380 * **************************** 0381 * 0382 000000 XR EQU 0 INDEX REGISTER 0383 * THE FOLLOWING 62 VARIABLES ARE SET TO ZERO DURING 0384 * PROGRAM INITIALIZATION 0385 000040 A EQU '40 ASSIGNMENT TABLE INDEX 0386 000041 I EQU A+1 EXPRESSION TABLE INDEX 0387 000042 C EQU A+2 0388 000043 ASAV EQU A+3 0389 000044 L EQU A+4 0390 000045 MFL EQU A+5 MODE FLAG 0391 000046 SFF EQU A+6 FUNCTION FLAG 0392 000047 SBF EQU A+7 SUBFUNCTION FLAG 0393 000050 SXF EQU A+8 POSSIBLE CPX FLAG 0394 000051 SPF EQU A+9 PEC. FLAG 0395 000052 TCF EQU A+10 TEMP STORE COUNT 0396 000053 IFF EQU A+11 0397 000054 ABAR EQU A+12 BASE OF ASSIGN TABLE 0398 000055 XST EQU A+13 FIRST EXECUTABLE STMNT. 0399 000056 CFL EQU A+14 MON FLAG 0400 000057 D EQU A+15 DO INDEX
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 9
0401 000060 RPL EQU A+16 RELATE PROGRAM LOCATION 0402 000061 BDF EQU A+17 LOCK DATA FLAG 0403 000062 SLST EQU A+18 SOURCE LIST 0404 000063 OBLS EQU A+19 OUTPUT BINARY LIST 0405 000064 BNOT EQU A+20 BINART OUTPUT FLAG 0406 000065 TRF EQU A+21 TRACE FLAG (END TRACE STATEMENT NO.) 0407 000066 TRFA EQU A+22 POINTER TO FIRST VAR, 0R ARRAY NAME IN 0408 * AN EXPRESSION (FOR USE BY TRACE). 0409 000067 SOF EQU A+23 SUBSCRIPT CONSTANT FLAG (NON-ZERO IF SET) 0410 000070 LIF EQU A+24 LOGICAL IF FLAG 0411 000071 LSTN EQU A+25 LAST STATEMENT NO. 0412 000072 LSTF EQU A+26 LAST STATEMENT FLAG 0413 000073 LSTP EQU A+27 LAST STATEMENT STOP 0414 000074 SDSW EQU A+28 STATEMENT I0 SWITCH 0415 * 0416 000570 NAMF EQU '570 NAME FUNCTION 0417 000571 ND EQU NAMF+1 NO OF DIMENSIONS 0418 000572 NS EQU '572 NO OF SUBSCRIPTS 0419 000573 NT EQU NS+1 NAME TAG 0420 000574 NTF EQU NS+2 NAME TAG FLAG 0421 000575 NTID EQU NS+3 NO. WORDS IN TID 0422 000576 O1 EQU NS+4 OPERATOR 1 0423 000577 O2 EQU NS+5 OPERATOR 2 0424 000600 P EQU NS+6 0425 000601 PCNT EQU NS+7 0426 000602 OCNT EQU NS+8 OUTPUT COUNT 0427 000603 S0 EQU NS+9 0428 000604 S1 EQU NS+10 SUBSCRIPT NO.1 0429 000605 S2 EQU NS+11 SUBSCRIPT NO.2 0430 000606 S3 EQU NS+12 SUBSCRIPT NO.3 0431 000607 TC EQU NS+13 TERMINAL CHAR 0432 000610 TT EQU NS+14 0433 000611 TYPE EQU NS+15 0434 000612 X EQU NS+16 ARRAY INDICES 0435 000613 X1 EQU NS+17 0436 000614 X2 EQU NS+18 0437 000615 X3 EQU NS+19 0438 000616 X4 EQU NS+20 0439 000617 NTA EQU NS+21 UNPACKED ASSIGNMENT ITEMS 0440 000620 ATA EQU NS+22 0441 000621 IMA EQU NS+23 0442 000622 CLA EQU NS+24 0443 000623 IUA EQU NS+25 0444 000624 DTA EQU NS+26 0445 000625 TTA EQU NS+27 0446 *..........ADJUST THIS ORG IF THE SIZE OF THE CONSTAST POOL IS MODIFIED 0447 ORG '630 0448 00630 0 00 00000 AF PZE 0 ADDRESS FIELD 0449 000630 GF EQU AF 0450 00631 0 00 00000 AT PZE 0 ADDRESS TYPE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 10
0451 00632 0 00 00000 CODE PZE 0 OUTPUT CODE 0452 00633 0 00 00000 D0 PZE 0 DIMENSIONS 0453 00634 0 00 00000 D1 PZE 0 0454 00635 0 00 00000 D2 PZE 0 0455 00636 0 00 00000 D3 PZE 0 0456 00637 0 00 00000 D4 PZE 0 0457 00640 0 00 00000 DF PZE 0 DATA FLAG 0458 00641 0 00 00000 NF PZE 0 0459 00642 0 00 00000 B PZE 0 0460 00643 0 00 00000 DFL PZE 0 DELIMITER FLAG 0461 00644 000000 E OCT 0 EQUIVALENCE INDEX 0462 00645 0 00 00000 EP PZE 0 E-PRIME 0463 00646 0 00 00000 E0 PZE 0 E-ZERO 0464 00647 0 00 00000 FTOP PZE 0 OUTPUT COMMAND 0465 00650 0 00 00000 GFA PZE 0 0466 00651 0 00 00001 ICSW PZE 1 INPUT CONTROL SWITCH 0467 00652 0 00 00000 IFLG PZE 0 I-FLAG 0468 00653 0 00 00000 IM PZE 0 ITEM MODE 0469 00654 0 00 00000 IOF PZE 0 I-0 FLAG 0470 00655 0 00 00000 IU PZE 0 ITEM USAGE 0471 00656 0 00 00000 KBAR PZE 0 TEM STORE 0472 00657 0 00 00000 KPRM PZE 0 TEM STORE 0473 00660 177777 EBAR OCT -1 E-BAR 0474 00661 000017 DO OCT 17 DO TABLE INDEX(FLOATS ABOVE ASSIGNMENT) 0475 00662 0 00 00111 CC PZE '111 CARD COLUMN COUNTER 0476 00663 0 00 00000 DCT PZE 0 DUMMY ARGUMENT COUNT 0477 00664 0 00 00000 F PZE 0 TRIAD TABLE INDEX 0478 00665 0 00 00000 CL PZE 0 ASSIGNMENT ITEMS UNPACKED 0479 00666 0 00 00000 DT PZE 0 0480 00667 0 00 00000 FLT1 PZE 0 FETCH LINK CL POINTER LOCATION 0481 00670 0 00 00000 LIBF PZE 0 SPECIAL LIBRARY FLAG (NON-ZERO IF SET) 0482 *..........CONSTANTS USED BY THE COMPILER 0483 00671 000251 K4 OCT 251 0) 0484 00672 000254 K5 OCT 254 0, 0485 00673 000240 K8 OCT 240 0-SPACE 0486 00674 000257 K9 OCT 257 0/ 0487 00675 000256 K10 OCT 256 0. 0488 00676 000255 K12 OCT 255 0- 0489 00677 000253 K13 OCT 253 0+ 0490 00700 000244 K15 OCT 244 0$ 0491 00701 000016 K16X OCT 16 0492 00702 000250 K17 OCT 250 0( 0493 00703 000275 K18 OCT 275 0= 0494 00704 142317 K19 BCI 1,DO DO 0495 00705 000324 K34 OCT 324 0T 0496 00706 000317 K35 OCT 317 0O 0497 00707 153716 K40 BCI 1,WN 0498 00710 151316 K41 BCI 1,RN RN 0499 00711 141702 K42 BCI 1,CB 0500 00712 000311 K43 OCT 311 0I
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 11
0501 00713 000321 K44 OCT 321 0Q 0502 000705 K45 EQU K34 0T 0503 00714 000252 K57 OCT 252 0* 0504 00715 000260 K60 OCT 260 00 (BCI ZERO) 0505 00716 000271 K61 OCT 271 09 0506 000704 K68 EQU K19 0507 00717 000001 K101 OCT 1 0508 00720 000002 K102 OCT 2 0509 00721 000003 K103 OCT 3 0510 00722 000004 K104 OCT 4 0511 00723 000005 K105 OCT 5 0512 00724 000006 K106 OCT 6 0513 00725 000007 K107 OCT 7 0514 00726 000020 K109 DEC 16 0515 00727 000377 K100 OCT 377 0516 00730 037777 K111 OCT 37777 0517 00731 177757 K110 DEC -17 0518 00732 170777 K115 OCT 170777 0519 00733 177400 K116 OCT 177400 0520 00734 177745 K117 DEC -27 0521 00735 000777 K118 OCT 777 0522 00736 177000 K119 OCT 177000 0523 00737 177761 K120 DEC -15 0524 00740 040000 K122 OCT 040000 0525 00741 177777 K123 DEC -1 0526 00742 000011 K124 DEC 9 0527 00743 000010 K125 DEC 8 0528 00744 000012 K126 DEC 10 0529 00745 000013 K127 DEC 11 0530 00746 000014 K128 DEC 12 0531 00747 000015 K129 DEC 13 0532 00750 177762 K131 DEC -14 0533 00751 000022 K132 OCT 22 0534 00752 000017 K134 OCT 17 0535 00753 024002 K137 OCT 24002 0536 00754 000025 K138 OCT 25 0537 00755 000024 K139 OCT 24 0538 00756 000215 CRET OCT 215 0 C/R 0539 00757 000000 ZERO OCT 0 0540 00760 140000 HBIT OCT 140000 HIGH BITS FOR ALPHA DATA 0541 00761 142721 KAEQ BCI 1,EQ EQUIVALENCE ERROR MESSAGE ATTACHMENT 0542 00762 177776 MIN2 DEC -2 -2 0543 00763 000340 HC2 OCT 340 0544 00764 000357 K357 OCT 357 0545 * 0546 * 0547 015400 DP EQU '15400 DUMMY START OF DATA POOL (ACTUALLY SET 0548 * BY THE FORTRAN IOS SUBROUTINE.) 0549 000113 L0 EQU '113 DUMMY END OF DATA POOL (MINUS 3 WORDS) 0550 * THE FOLLOWING INSTRUCTIONS CAUSE THE LOADER
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 12
0551 * TO ASSIGN ALL REFERENCES TO THE DATA POOL IN WORDS 0552 * 100 TO 112 OF THE ZERO SECTOR, FORTRAN IOS WILL 0553 * CAUSE THESE CELLS TO BE SET TO THE ACTUAL DATA POOL 0554 * LOCATIONS WHICH WILL BE DETERMINED BY COMPUTER 0555 * CONFIGURATION. 0556 ORG '1000 0557 01000 1 00 15374 PZE DP-4,1 (100) 0558 01001 1 00 15375 PZE DP-3,1 (101) DATA POOL REFERENCES 0559 01002 1 00 15376 PZE DP-2,1 (102) 0560 01003 1 00 15377 PZE DP-1,1 (103) 0561 01004 1 00 15400 PZE DP,1 (104) 0562 01005 1 00 15401 PZE DP+1,1 (105) 0563 01006 1 00 15402 PZE DP+2,1 (106) 0564 01007 1 00 15403 PZE DP+3,1 (107) 0565 01010 1 00 15404 PZE DP+4,1 (108) 0566 01011 1 00 15411 PZE DP+9,1 (111) 0567 01012 1 00 15406 PZE DP+6,1 (112) 0568 01013 0 00 15407 PZE DP+7 (113) NO WDS IN DATA POOL SET BY IOS 0569 * 0570 * 0571 ORG 1 0572 00001 0 10 03116 JST ER00 THIS INSTRUCTION REACHED ONLY IF THE 0573 00002 141707 BCI 1,CG COMPILER JUMPED TO ZERO BY MISTAKE. 0574 * 0575 * 0576 * 0577 * 0578 * ******************* 0579 * *START OF COMPILER* 0580 * ******************* 0581 * 0582 ORG '1000 0583 * 0584 * 0585 * 0586 * - A0 COMP ENT EMPTY BUFFERS 0587 01000 0400 61 LRL 15 0588 01001 0 04 00670 STA LIBF SET SPECIAL LIBRARY FLAG 0589 01002 0410 61 LLL 15 (BIT 1 ON INHIBITS CERTAIN ERROR CHECKS) 0590 01003 0 10 00000 A0 CALL F4$INT INITIALIZE I/O DEVICES 0591 01004 0 02 01153 LDA K108 0592 01005 0 04 00662 STA CC CC = 73 0593 01006 0 10 01066 JST IC00 INPUT COLUMN 0594 01007 0 02 01063 A051 LDA A090 0595 01010 0 04 00000 STA XR 0596 01011 0 02 01065 LDA A092 LOC, OF INDEX PUSH-DOWN BUFFER 0597 01012 0 04 03030 STA SAV9 INITIALIZE PUSH-DOWN BUFR, 0598 01013 140040 CRA 0599 01014 1 04 00076 STA A+M,1 SET M VARIABLES TO ZERO 0600 01015 1 04 00626 STA NAMF+M,1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 13
0601 01016 0 12 00000 IRS XR 0602 01017 0 01 01014 JMP *-3 0603 01020 0 04 00652 STA IFLG 0604 01021 0 04 12435 STA PKF 0605 01022 0 10 14523 JST FS00 INITIALIZE OUTPUT BUFFER 0606 01023 140401 CMA 0607 01024 0 04 00072 STA LSTF LSTF NOT EQ 0 0608 01025 0 04 00073 STA LSTP LSTP NOT EQ 0 0609 01026 0 04 00660 STA EBAR EBAR SET NEGATIVE 0610 01027 0 02 00113 LDA L0 0611 01030 0 04 00651 STA ICSW 0612 01031 0 04 00646 STA E0 INITIALIZE EQUIVALENCE TABLE 0613 01032 0 04 00044 STA L INITIALIZE TRIAD TABLE POINTER 0614 01033 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 0615 01034 0 02 00752 LDA K134 0616 01035 0 04 00661 STA DO INITIALIZE DO TABLE POINTER 0617 01036 0 07 00754 SUB K138 0618 01037 0 04 01064 STA A091 0619 01040 140040 CRA 0620 01041 0 04 01475 STA ID 0621 01042 0 12 01475 A055 IRS ID ESTABLISH CONSTANTS 0622 01043 0 10 04241 JST AI00 0623 01044 0 12 01064 IRS A091 0624 01045 0 01 01042 JMP A055 0625 01046 0 02 02731 LDA K81 0626 01047 0 04 01475 STA ID 0627 01050 0 04 01476 STA ID+1 0628 01051 0 04 01477 STA ID+2 0629 01052 140040 CRA 0630 01053 0400 40 LRL 32 (B)=0 IM=NO USAGE 0631 01054 0 02 00717 LDA K101 (A)=1 IU=SUBR 0632 01055 0 10 04252 JST AA00 ASSIGN (SPECIAL) 0633 01056 0 10 02672 JST STXA SET POINTER A INTO INDEX AND (A) 0634 01057 0 04 00056 STA CFL CFL=A (LOCATION OF FIRST COMMON BLOCK) 0635 01060 0 06 00740 ADD K122 ='40000 (IU=SUBR) 0636 01061 1 04 15401 STA DP+1,1 GF(A)=A (IN CASE NO BLANK COMMON IS SPECIFI 0637 01062 0 01 04353 JMP C7 GO TO STMNT INPUT 0638 000036 M EQU 30 0639 01063 -1 177742 A090 DAC* -M,1 0640 01064 0 00 00000 A091 PZE 0 0641 01065 0 003031 A092 DAC SAVX START OF INDEX PUSH-DOWN BUFFER 0642 * 0643 * 0644 * 0645 * ************** 0646 * *INPUT COLUMN* 0647 * ************** 0648 * 0649 * INPUT NEXT CHARACTER 0650 * IGNORE BLANKS
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 14
0651 * CHECK FOR COMMENTS 0652 * IC02 SET AS FOLLOWS - 0653 * NORMAL - ICIP 0654 * INITIAL SCAN -ICSR 0655 01066 0 000000 IC00 DAC ** LINK STORE 0656 01067 0 10 03007 JST SAV SAVE INDEX 0657 01070 0 02 00662 LDA CC IF CC = 73, GO TO IC 10 0658 01071 0 07 01153 SUB K108 0659 01072 100040 SZE 0660 01073 0 01 01125 JMP IC19 ELSE, GO TO IC 0661 01074 0 02 00651 IC10 LDA ICSW IF ICSW. GO TO IC12 0662 01075 101040 SNZ 0663 01076 0 01 01141 JMP IC24 ELSE, GO TO IC24 0664 01077 0 10 00000 IC12 CALL F4$IN INPUT SYMBOLIC CARD IMAGE 0665 01100 0 001155 DAC CI 0666 01101 0 02 01155 LDA CI 0667 01102 0404 70 LGR 8 GO 70 IC 14 0668 01103 0 11 01152 CAS K16 =(C) 0669 01104 0 01 01106 JMP *+2 0670 01105 0 01 01150 JMP IC30 COMMENT CARD (IGNORE) 0671 01106 0 07 00700 SUB K15 =($) 0672 01107 101040 SNZ 0673 01110 0 01 01116 JMP IC18 CONTROL CARD (IGNORE COLUMN 6) 0674 01111 0 02 00764 LDA K357 IF CARD COL, SIX IS 0675 01112 0 03 01157 ANA CI+2 ZERO OR BLANK, GO TO IC18 0676 01113 0 07 00673 SUB K8 0677 01114 100040 SZE 0678 01115 0 01 01144 JMP IC26 ELSE, GO TO IC26 0679 01116 0 04 00662 IC18 STA CC CC = 0. 0680 01117 0 02 01157 LDA CI+2 CI(6) = SPECIAL 0681 01120 0 03 00733 ANA K116 0682 01121 0 06 00763 ADD HC2 ='340 0683 01122 0 04 01157 STA CI+2 0684 01123 0 02 00756 LDA CRET 0685 01124 0 01 01135 JMP IC20 TC = C.R. 0686 01125 0 02 00662 IC19 LDA CC TC = CI(CC) 0687 01126 0 07 00717 SUB K101 0688 01127 0404 77 LGR 1 0689 01130 0 04 00000 STA XR 0690 01131 1 02 01155 LDA CI,1 0691 01132 101001 SSC 0692 01133 0404 70 LGR 8 0693 01134 0 03 00727 ANA K100 0694 01135 0 04 00607 IC20 STA TC 0695 01136 0 12 00662 IRS CC CC = CC+1 0696 01137 0 10 03016 IC22 JST RST RESTORE INDEX 0697 01140 -0 01 01066 JMP* IC00 RETURN 0698 01141 0 02 00674 IC24 LDA K9 TC = /, END OF LINE - STATEMENT SCAN 0699 01142 0 04 00607 STA TC 0700 01143 0 01 01137 JMP IC22 GO TO IC22
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 15
0701 01144 0 10 03227 IC26 JST LIST LIST, CONTINUATION CARD 0702 01145 0 02 00725 LDA K107 CC = 7. IGNORE STATEMENT NO. 0703 01146 0 04 00662 STA CC 0704 01147 0 01 01125 JMP IC19 G0 TO IC19 0705 01150 0 10 03227 IC30 JST LIST PRINT CARD IMAGE 0706 01151 0 01 01077 JMP IC12 READ IN NEW CARD 0707 01152 000303 K16 OCT 303 0C 0708 01153 000111 K108 DEC 73 0709 01154 120240 KASP BCI 1, (SP)(SP) MUST PRECEDE CARD IMAGE BUFFER 0710 01155 CI BSS 40 0711 01225 120240 BCI 20, 01226 120240 01227 120240 01230 120240 01231 120240 01232 120240 01233 120240 01234 120240 01235 120240 01236 120240 01237 120240 01240 120240 01241 120240 01242 120240 01243 120240 01244 120240 01245 120240 01246 120240 01247 120240 01250 120240 0712 * 0713 * 0714 * 0715 * **************** 0716 * *UNINPUT COLUMN* 0717 * **************** 0718 * BACK UP ONE COLUMN 0719 * 0720 01251 0 000000 UC00 DAC ** 0721 01252 0 13 00662 IMA CC CC= CC-1 0722 01253 0 07 00717 SUB K101 RETAIN (A) 0723 01254 0 13 00662 IMA CC 0724 01255 -0 01 01251 JMP* UC00 0725 * 0726 * 0727 * ***************** 0728 * *INPUT CHARACTER* 0729 * ***************** 0730 * INPUT ONE CHARACTER FROM EITHER 0731 * 1, INPUT BUFFER (EBAR POSITIVE) OR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 16
0732 * 2, EQUIVALENCE BUFFER (EBAR NEGATIVE) 0733 * 0734 01256 0 000000 CH00 DAC ** 0735 01257 0 02 00660 LDA EBAR IF EBAR 7 0, 0736 01260 101400 SMI 0737 01261 0 01 01314 JMP CH10 G0 10 CH10 0738 01262 0 10 01066 CH03 JST IC00 INPUT COLUMN 0739 01263 0 07 00673 SUB K8 IF BLANK, REPEAT 0740 01264 101040 SNZ 0741 01265 0 01 01262 JMP CH03 0742 01266 0 02 00607 LDA TC ELSE, 0743 * 0744 01267 0 11 01341 CH04 CAS CH13 ='301 0745 01270 101000 NOP 0746 01271 0 01 01306 JMP CH06 0747 01272 0 11 00716 CAS K61 ='271 0748 01273 0 01 01303 JMP CH05 0749 01274 101000 NOP 0750 01275 0 11 00700 CAS K15 ='244 0751 01276 0 01 01300 JMP *+2 0752 01277 0 01 01302 JMP CH05-1 0753 01300 0 11 00715 CAS K60 ='260 0754 01301 101000 NOP 0755 01302 140040 CRA ALPHA NUMERIC CHARACTER 0756 01303 0 04 00643 CH05 STA DFL DELIMITER ENTRY 0757 01304 0 02 00607 LDA TC EXIT WITH TC IN A 0758 01305 -0 01 01256 JMP* CH00 0759 01306 0 11 01340 CH06 CAS K63 ='332 0760 01307 0 01 01303 JMP CH05 0761 01310 101000 NOP 0762 01311 0 01 01302 JMP CH05-1 0763 01312 0 04 00643 CH08 STA DFL 0764 01313 -0 01 01256 JMP* CH00 0765 01314 0 02 00644 CH10 LDA E IF E = EBAR 0766 01315 0 11 00660 CAS EBAR 0767 01316 0 01 01320 JMP *+2 0768 01317 0 01 01335 JMP CH12 GO TO CH12 0769 01320 0 04 00000 STA 0 SET E INTO INDEX 0770 01321 0410 60 LLL 16 SET (B) TO ZERO 0771 01322 1 02 15400 LDA DP,1 CURRENT CHARACTER WORD 0772 01323 0412 70 LLR 8 0773 01324 1 04 15400 STA DP,1 SAVE REMAINING CHARACTER IF ANY 0774 01325 000201 IAB 0775 01326 0 04 00607 STA TC TC=LEFTMOST CHARACTER 0776 01327 100040 SZE SKIP IF NEW CHARACTER WORD NEEDED 0777 01330 0 01 01267 JMP CH04 0778 01331 0 02 00644 LDA E E=E-1 0779 01332 0 07 00717 SUB K101 =1 0780 01333 0 04 00644 STA E 0781 01334 0 01 01314 JMP CH10 PICK UP NEXT CHARACTER WORD
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 17
0782 01335 140500 CH12 SSM MAKE E MINUS 0783 01336 0 04 00660 STA EBAR 0784 01337 0 01 11715 JMP C4 GO TO ASSIGN SPEC 0785 01340 000332 K63 OCT 332 0Z 0786 01341 000301 CH13 OCT 301 0787 * 0788 * 0789 * ************* 0790 * *INPUT DIGIT* 0791 * ************* 0792 * A IS ZERO IF NOT DIGIT 0793 * 0794 01342 0 000000 ID00 DAC ** INPUT DIGIT 0795 01343 0 10 01256 JST CH00 INPUT A CHAR 0796 01344 0 11 00716 CAS K61 ='271 (9) 0797 01345 -0 01 01342 JMP* ID00 (A) = TC 0798 01346 0 01 01353 JMP ID10 ELSE, (A) = 0 0799 01347 0 11 00715 CAS K60 RETURN 0800 01350 101000 NOP 0801 01351 0 01 01353 JMP *+2 0802 01352 -0 01 01342 JMP* ID00 0803 01353 140040 ID10 CRA 0804 01354 -0 01 01342 JMP* ID00 0805 * 0806 * 0807 * ********************** 0808 * *INPUT (A) CHARACTERS* 0809 * ********************** 0810 * CHAR COUNT IN XR, TERMINATES WITH EITHER 0811 * 1, CHAR COUNT -1 = ZERO OR 0812 * 2, LAST CHAR IS A DELIMITER 0813 * 0814 01355 0 000000 IA00 DAC ** 0815 01356 140407 TCA SET COUNTER 0816 01357 0 04 01411 STA IA99 0817 01360 0 10 01374 JST IA50 EXCHANGE IBUF AND ID 0818 01361 140040 CRA 0819 01362 0 04 00575 STA NTID NTID = 0 0820 01363 0 10 01256 IA10 JST CH00 INPUT A CHARACTER 0821 01364 0 10 03055 JST PACK 0822 01365 0 02 00643 LDA DFL IF DFL NOT ZERO, 0823 01366 100040 SZE CONTINUE 0824 01367 0 01 01372 JMP IA20 ELSE, 0825 01370 0 12 01411 IRS IA99 TEST COUNTER 0826 01371 0 01 01363 JMP IA10 MORE CHARACTERS TO INPUT 0827 01372 0 10 01374 IA20 JST IA50 EXCHANGE ID AND IBUF 0828 01373 -0 01 01355 JMP* IA00 RETURN 0829 01374 0 000000 IA50 DAC ** EXCHANGE IBUF AND ID 0830 01375 0 10 03007 JST SAV SAVE INDEX 0831 01376 0 02 01410 LDA IA90
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 18
0832 01377 0 04 00000 STA XR 0833 01400 1 02 01504 LDA IBUF+3,1 0834 01401 1 13 01500 IMA ID+3,1 0835 01402 1 04 01504 STA IBUF+3,1 0836 01403 0 12 00000 IRS XR 0837 01404 0 01 01400 JMP *-4 0838 01405 0 10 03016 JST RST RESTORE INDEX 0839 01406 0 02 00575 LDA NTID 0840 01407 -0 01 01374 JMP* IA50 0841 01410 177775 IA90 OCT -3 0842 01411 0 00 00000 IA99 PZE 0 0843 * 0844 * 0845 * ***************** 0846 * *FINISH OPERATOR* 0847 * ***************** 0848 * WRAP UP LOGICAL/RELATIONAL OPERATORS 0849 * 0850 01412 0 000000 FN00 DAC ** 0851 01413 0 02 00643 LDA DFL IF DFL NOT . , 0852 01414 0 04 01501 STA IBUF 0853 01415 0 07 00675 SUB K10 0854 01416 100040 SZE 0855 01417 0 01 01422 JMP FN05 GO TO FN05 0856 01420 0 02 00722 LDA K104 0857 01421 0 10 01355 JST IA00 0858 01422 0 02 00731 FN05 LDA K110 USE TABLE TO CONVERT 0859 01423 0 04 00000 STA XR OPERATOR 0860 01424 1 02 01460 FN10 LDA FN90+17,1 0861 01425 0 11 01501 CAS IBUF 0862 01426 0 01 01430 JMP *+2 0863 01427 0 01 01434 JMP FN20 0864 01430 0 12 00000 IRS XR 0865 01431 0 01 01424 JMP FN10 0866 01432 0 02 00607 LDA TC 0867 01433 -0 01 01412 JMP* FN00 0868 01434 1 02 01477 FN20 LDA FN91+17,1 FOUND A LOGICAL OPERATOR 0869 01435 0 04 00607 STA TC SET INTO TC 0870 01436 -0 01 01412 JMP* FN00 0871 01437 000253 FN90 OCT 253,255,252,257 +-*/ 01440 000255 01441 000252 01442 000257 0872 01443 147317 BCI 9,NOANORLTLEEQGEGTNE 01444 140716 01445 147722 01446 146324 01447 146305 01450 142721 01451 143705
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 19
01452 143724 01453 147305 0873 01454 000275 OCT 275,254 =, 01455 000254 0874 01456 000001 FN91 OCT 1,2,3,4,5,6,7,10,11,12,13,14,15,16,17 01457 000002 01460 000003 01461 000004 01462 000005 01463 000006 01464 000007 01465 000010 01466 000011 01467 000012 01470 000013 01471 000014 01472 000015 01473 000016 01474 000017 0875 * 0876 * 0877 * *********** 0878 * *INPUT DNA* 0879 * *********** 0880 * BASIC INPUT ROUTINE, HANDLES FOLLOWING - 0881 * CONSTANT CONVERSION 0882 * MODE TYPING (CONSTANTS, IMPLIED/VARIABLES) 0883 * ALL OPERATORS (TERMINATE ITEM) 0884 * 0885 01475 ID BSS 4 0886 001475 TID EQU ID TEMP STORE FOR ID 0887 01501 IBUF BSS 3 3-WORD BUF 0888 01504 0 00 00000 TIDN PZE 0 0889 01505 177727 K155 OCT 177727 -41 0890 01506 024000 K156 OCT 024000 1085 0891 01507 007777 K157 OCT 007777 0892 01510 074000 K158 OCT 074000 0893 01511 0 00 00000 F1 PZE 0 SIGN FLAG 0894 01512 0 00 00000 F2 PZE 0 0895 01513 0 00 00000 F3 PZE 0 INPUT EXPONENT 0896 01514 0 00 00000 F4 PZE 0 NO, FRAC. POSITIONS 0897 01515 0 00 00000 F5 PZE 0 TEMP DELIMITER STORE 0898 01516 0 00 00000 F6 PZE 0 0899 01517 0 00 00000 L4 PZE 0 0900 01520 0 00 00000 HOLF PZE 0 HOLLERITH FLAG 0901 01521 0 000000 DN00 DAC ** 0902 01522 140040 DN01 CRA 0903 01523 0 04 01520 STA HOLF SET HOLF =0 0904 01524 0 04 01514 STA F4 F4 = 0 0905 01525 0 04 00655 STA IU
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 20
0906 01526 0 04 00573 STA NT IU=NT=NTID=0 0907 01527 0 04 00575 STA NTID 0908 01530 0 10 02741 JST BLNK CLEAR OUT TID = ID 0909 01531 0 001475 DAC TID 0910 01532 0 10 02741 JST BLNK 0911 01533 0 001511 DAC F1 F1,F2,F3 = 0 0912 01534 140040 DN06 CRA 0913 01535 0 04 00653 STA IM 0914 01536 0 04 02352 STA DNX2 0915 01537 0 10 01342 DN07 JST ID00 INPUT DIGIT 0916 01540 100040 SZE 0917 01541 0 01 01603 JMP DN14 (A) NON-ZERO, G0 T0 DN14 0918 01542 0 02 01477 DN10 LDA TID+2 CHECK FOR OVERFLOW AND ADJUST 0919 01543 0 03 01510 ANA K158 POSITION COUNT IF NECESSARY, 0920 01544 100040 SZE 0921 01545 0 01 01575 JMP SKIP 0922 01546 0 06 00653 ADD IM 0923 01547 0405 77 ARS 1 0924 01550 0 06 01514 ADD F4 F4 = F4+1 IF NO OVERFLOW 0925 01551 0 04 01514 STA F4 AND IM ALREADY SET TO REAL 0926 01552 0 02 00717 LDA K101 0927 01553 0 04 00573 STA NT NT=1 0928 01554 0 06 00717 ADD K101 0929 01555 0 04 00655 STA IU IU = VAR/COD 0930 01556 0 10 03202 JST SFT SHIFT ID LEFT 0931 01557 0 001475 DAC ID 0932 01560 0 10 02754 JST MOV3 MOVE TO TEMP STORE 0933 01561 0 10 03202 JST SFT 0934 01562 0 001475 DAC ID 0935 01563 0 10 03202 JST SFT 0936 01564 0 001475 DAC ID 0937 01565 0 10 02653 JST AD3 ID = 10*ID+TC 0938 01566 0 10 02741 JST BLNK 0939 01567 0 002347 DAC DNX1 0940 01570 0 02 00607 LDA TC 0941 01571 0 07 00715 SUB K60 0942 01572 0 04 02347 STA DNX1 0943 01573 0 10 02653 JST AD3 0944 01574 0 01 01537 JMP DN07 0945 01575 0 02 00762 SKIP LDA MIN2 0946 01576 0 06 00653 ADD IM 0947 01577 0405 77 ARS 1 0948 01600 0 06 01514 ADD F4 0949 01601 0 04 01514 STA F4 0950 01602 0 01 01537 JMP DN07 0951 01603 0 02 00653 DN14 LDA IM IM = REAL 0952 01604 0 07 00720 SUB K102 0953 01605 100040 SZE 0954 01606 0 01 01704 JMP DN50 NO, GO TO DN50 0955 01607 0 02 00675 DN16 LDA K10 YES,
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 21
0956 01610 0 04 01515 DN17 STA F5 F5 = '.' 0957 01611 0 02 00643 LDA DFL IF DFL =0, GO SO DN20 (5) 0958 01612 100040 SZE 0959 01613 0 01 02144 JMP DN90 ELSE GO TO DN90 (9) 0960 01614 0 02 00607 DN20 LDA TC IF TC = D, GO TO DN26 0961 01615 0 07 02543 SUB K11 0962 01616 101040 SNZ 0963 01617 0 01 01660 JMP DN26 0964 01620 0 07 00717 SUB K101 ELSE, IF TC = E, GO TO DN22 0965 01621 101040 SNZ 0966 01622 0 01 01631 JMP DN22 TERMINATOR = E 0967 01623 0 10 01251 JST UC00 0968 01624 0 02 00675 LDA K10 ='256 (,) 0969 01625 0 04 00643 STA DFL SET DELIMITER FLAG 0970 01626 0 02 00717 LDA K101 =1 0971 01627 0 04 00653 STA IM SET ITEM MODE TO INTEGER 0972 01630 0 01 01772 JMP DN67 FINISH OPERATOR AND EXIT 0973 * 0974 01631 0 10 01342 DN22 JST ID00 INPUT DIGIT 0975 01632 101040 SNZ IF (A) = 0, GO TO DN30 0976 01633 0 01 01670 JMP DN30 0977 01634 0 02 00607 LDA TC IF TC = -, GO TO DN28 0978 01635 0 07 00676 SUB K12 0979 01636 101040 SNZ 0980 01637 0 01 01663 JMP DN28 0981 01640 0 06 00720 ADD K102 0982 01641 101040 SNZ 0983 01642 0 01 01665 JMP DN29 0984 01643 0 02 01515 LDA F5 0985 01644 0 04 00643 STA DFL 0986 01645 0 10 01251 JST UC00 UN-INPUT COL 0987 01646 0 10 01412 DN24 JST FN00 FINISH OPERATOR 0988 01647 0 02 00717 DN25 LDA K101 IM = INT 0989 01650 0 04 00653 STA IM 0990 01651 0 02 01476 LDA ID+1 IF ID IS TOO BIG TO 0991 01652 100040 SZE BE AN INTEGER (>L2), 0992 01653 0 01 01776 JMP DN69 GO TO DN69 (20) 0993 01654 0 02 01477 LDA ID+2 0994 01655 100040 SZE 0995 01656 0 01 01776 JMP DN69 0996 01657 0 01 02055 JMP DN84 OTHERWISE, GO TO DN84(12) 0997 01660 0 02 00724 DN26 LDA K106 IM = DBL 0998 01661 0 04 00653 STA IM 0999 01662 0 01 01631 JMP DN22 1000 01663 0 02 00717 DN28 LDA K101 F2 = 1 1001 01664 0 04 01512 STA F2 1002 01665 0 10 01342 DN29 JST ID00 INPUT DIGIT 1003 01666 100040 SZE IF (A) = 0, GO TO DN30 (8.5) 1004 01667 0 01 01776 JMP DN69 ELSE, GO TO DN69 (20) 1005 01670 0 02 01513 DN30 LDA F3 F3 = 10 * F3
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 22
1006 01671 0415 75 ALS 3 1007 01672 0 13 01513 IMA F3 F3 = F3 +TC 1008 01673 0415 77 ALS 1 1009 01674 0 06 01513 ADD F3 1010 01675 0 06 00607 ADD TC INPUT DIGIT 1011 01676 0 07 00715 SUB K60 1012 01677 0 04 01513 STA F3 IF (A) = 0, GO TO DN30 (8.5) 1013 01700 0 10 01342 JST ID00 ELSE, GO TO DN90 (9) 1014 01701 100040 SZE 1015 01702 0 01 02144 JMP DN90 1016 01703 0 01 01670 JMP DN30 1017 01704 0 02 00720 DN50 LDA K102 IM=REA 1018 01705 0 04 00653 STA IM 1019 01706 0 02 00607 LDA TC IF TC = ., GO TO DN54 1020 01707 0 07 00675 SUB K10 1021 01710 101040 SNZ 1022 01711 0 01 01725 JMP DN54 ELSE, 1023 01712 0 02 00573 LDA NT 1024 01713 101040 SNZ IF NT = 0, GO TO DN72 1025 01714 0 01 02005 JMP DN72 1026 01715 0 02 00607 LDA TC IF TC = H, GO TO DN9H (22) 1027 01716 0 07 02544 SUB K14 1028 01717 101040 SNZ 1029 01720 0 01 02301 JMP DN9H 1030 01721 0 02 00643 LDA DFL IF DFL = 0, 1031 01722 100040 SZE GO TO DN16 (4.9) 1032 01723 0 01 01647 JMP DN25 ELSE, GO TO DN25 1033 01724 0 01 01607 JMP DN16 1034 01725 0 10 01342 DN54 JST ID00 INPUT DIGIT 1035 01726 101040 SNZ 1036 01727 0 01 01542 JMP DN10 IF (A) = 0, GO TO DN10 (3) 1037 01730 0 02 00573 LDA NT 1038 01731 101040 SNZ IF NT = 0, GO TO DN56 1039 01732 0 01 01735 JMP DN56 1040 01733 0 02 00607 LDA TC F5 = TC 1041 01734 0 01 01607 JMP DN16 GO TO DN16 (4) 1042 01735 140040 DN56 CRA 1043 01736 0 04 00607 STA TC TC = ) 1044 01737 0 10 01251 DN58 JST UC00 UN-INPUT A COLUMN, 1045 01740 0 02 01511 LDA F1 IF F1 = 0, GO TO DN60 1046 01741 100040 SZE 1047 01742 0 01 01756 JMP DN63 ELSE, GO TO DN63 (15) 1048 01743 0 02 00724 DN60 LDA K106 1049 01744 0 10 01355 JST IA00 INPUT (6) CHARS 1050 01745 0 10 02764 JST CIB IF IBUF = TRUE., 1051 01746 1 002534 DAC K1+3,1 1052 01747 0 01 01761 JMP DN64 1053 01750 0 10 02764 JST CIB IF IBUF = FALSE., 1054 01751 1 002537 DAC K2+3,1 GO TO DN66 (16) 1055 01752 0 01 01763 JMP DN66
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 23
1056 01753 0 10 02764 JST CIB CHECK FOR .NOT. OPERATOR 1057 01754 1 002543 DAC KNOT+3,1 CHECK FOR .NOT. OPERATOR 1058 01755 0 01 02342 JMP DN9N OPERATOR IS .NOT. 1059 01756 140040 DN63 CRA IM = 0 1060 01757 0 04 00653 STA IM 1061 01760 0 01 01772 JMP DN67 GO TO DN67 (18) 1062 01761 0 02 00717 DN64 LDA K101 1063 01762 0 04 01475 STA TID 1064 01763 0 02 00717 DN66 LDA K101 1065 01764 0 04 00573 STA NT NAME TAG = 1 (CONSTANT) 1066 01765 0 02 00720 LDA K102 IU=VAR 1067 01766 0 04 00655 STA IU 1068 01767 0 02 00721 LDA K103 1069 01770 0 04 00653 STA IM IM = LOG 1070 01771 0 10 01256 JST CH00 1071 01772 0 10 01412 DN67 JST FN00 FINISH OPERATOR 1072 01773 0 02 01516 DN68 LDA F6 IF F6 = 0, 1073 01774 101040 SNZ GO TO DN70 (21) 1074 01775 0 01 02000 JMP DN70 1075 01776 0 02 00675 DN69 LDA K10 1076 01777 0 04 00607 STA TC TC = . 1077 02000 140040 DN70 CRA 1078 02001 0 04 01516 STA F6 F6 = SXF = 0 1079 02002 0 04 00050 STA SXF 1080 02003 0 02 00653 LDA IM (A) = IM 1081 02004 -0 01 01521 JMP* DN00 RETURN 1082 02005 0 02 01511 DN72 LDA F1 IF F1 = 0, GO TO DN74 1083 02006 101040 SNZ 1084 02007 0 01 02013 JMP DN74 1085 02010 0 02 01511 LDA F1 ELSE, TC = F1 1086 02011 0 04 00607 STA TC 1087 02012 0 01 01737 JMP DN58 GO TO DN58 (14) 1088 02013 0 02 00607 DN74 LDA TC IF TC = -, GO TO DN82 1089 02014 0 07 00676 SUB K12 1090 02015 101040 SNZ 1091 02016 0 01 02052 JMP DN82 1092 02017 0 06 00720 ADD K102 CHECK FOR TC = + 1093 02020 101040 SNZ 1094 02021 0 01 02052 JMP DN82 1095 02022 0 02 00643 LDA DFL IF DFL = NON-ZERO 1096 02023 100040 SZE 1097 02024 0 01 01756 JMP DN63 GO TO DN63 (15) 1098 02025 0 02 00607 LDA TC 1099 02026 0 11 00712 CAS K43 1100 02027 0 01 02032 JMP *+3 1101 02030 0 01 02035 JMP DN78 1102 02031 0 01 02037 JMP DN80 1103 02032 0 11 02545 CAS K62 1104 02033 0 01 02037 JMP DN80 1105 02034 101000 NOP
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 24
1106 02035 0 02 00717 DN78 LDA K101 IM < INT 1107 02036 0 04 00653 STA IM 1108 02037 0 02 00607 DN80 LDA TC PACK TC TO ID 1109 02040 0 10 03055 JST PACK 1110 02041 0 10 01256 JST CH00 INPUT CHAR 1111 02042 0 02 00643 LDA DFL IF DFL IS NOT ZERO, 1112 02043 100040 SZE GO TO DN67 (18) 1113 02044 0 01 01772 JMP DN67 1114 02045 0 02 00575 LDA NTID IF NTID = 6, GO TO DN67 1115 02046 0 07 00724 SUB K106 1116 02047 100040 SZE 1117 02050 0 01 02037 JMP DN80 1118 02051 0 01 01772 JMP DN67 1119 02052 0 10 01412 DN82 JST FN00 1120 02053 0 04 01511 STA F1 F1 = CONVERTED TC 1121 02054 0 01 01534 JMP DN06 GO TO DN06 (2) 1122 02055 0 02 01511 DN84 LDA F1 IF F1 = -, 1123 02056 0 07 00720 SUB K102 GO TO DN85(13) 1124 02057 100040 SZE 1125 02060 0 01 02100 JMP DN85 1126 02061 140040 CRA 1127 02062 0 07 01475 SUB TID COMPLEMENT THREE WORDS AT TID 1128 02063 100040 SZE 1129 02064 0 01 02071 JMP DN8A 1130 02065 0 07 01476 SUB TID+1 1131 02066 100040 SZE 1132 02067 0 01 02074 JMP DN8B 1133 02070 0 01 02076 JMP DN8C 1134 02071 0 04 01475 DN8A STA TID 1135 02072 0 02 00741 LDA K123 1136 02073 0 07 01476 SUB TID+1 1137 02074 0 04 01476 DN8B STA TID+1 1138 02075 0 02 00741 LDA K123 1139 02076 0 07 01477 DN8C SUB TID+2 1140 02077 0 04 01477 STA TID+2 1141 02100 0 02 00050 DN85 LDA SXF IF SXF = 0, GO T0 DN67 (18) 1142 02101 101040 SNZ 1143 02102 0 01 01772 JMP DN67 ELSE, 1144 02103 0 02 00653 LDA IM IF IM NOT = REA, 1145 02104 0 07 00720 SUB K102 1146 02105 100040 SZE GO TO DN67 (18) 1147 02106 0 01 01772 JMP DN67 1148 02107 0 02 01516 LDA F6 ELSE, 1149 02110 101040 SNZ IF F6 = 0, GO TO DN87 1150 02111 0 01 02127 JMP DN87 1151 02112 0 02 00723 LDA K105 1152 02113 0 04 00653 STA IM IM = CPX 1153 02114 0 02 01475 LDA TID INTERCHANGE 1154 02115 0 13 03637 IMA TIDB 3 CELLS 1155 02116 0 04 01475 STA TID TID
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 25
1156 02117 0 02 01476 LDA TID+1 WITH 1157 02120 0 13 03640 IMA TIDB+1 3 CELLS 1158 02121 0 04 01476 STA TID+1 OF 1159 02122 0 02 01477 LDA TID+2 TIDB 1160 02123 0 13 03641 IMA TIDB+2 1161 02124 0 04 01477 STA TID+2 1162 02125 0 10 02555 JST IP00 )-INPUT OPERATOR 1163 02126 0 01 02000 JMP DN70 GO TO DN70 (21) 1164 02127 0 02 00607 DN87 LDA TC IF TC = , 1165 02130 0 07 00672 SUB K5 1166 02131 100040 SZE 1167 02132 0 01 01772 JMP DN67 TID-BAR = TID 1168 02133 0 02 01475 LDA TID F6 = 1 1169 02134 0 04 03637 STA TIDB GO TO DN01 (1) 1170 02135 0 02 01476 LDA TID+1 1171 02136 0 04 03640 STA TIDB+1 ELSE, GO TO DN67 (18) 1172 02137 0 02 01477 LDA TID+2 1173 02140 0 04 03641 STA TIDB+2 1174 02141 0 02 00717 LDA K101 1175 02142 0 04 01516 STA F6 1176 02143 0 01 01522 JMP DN01 1177 02144 0 02 01512 DN90 LDA F2 IF F2= 0, GO TO DN9A (10) 1178 02145 101040 SNZ 1179 02146 0 01 02152 JMP DN9A 1180 02147 0 02 01513 LDA F3 F3 = - F3 1181 02150 140407 TCA 1182 02151 0 04 01513 STA F3 1183 02152 0 02 01513 DN9A LDA F3 F4 = F3 - F4 1184 02153 0 07 01514 SUB F4 1185 02154 0 04 01514 STA F4 1186 02155 0 02 00676 LDA K12 F2 = EXP, BIAS + MANTISSA 1187 02156 0 04 01512 STA F2 1188 02157 0 02 01475 LDA TID IF TID = 0, 1189 02160 0 06 01476 ADD TID+1 1190 02161 0 06 01477 ADD TID+2 GO TO DN85(13) 1191 02162 101040 SNZ 1192 02163 0 01 02100 JMP DN85 1193 02164 0 02 01477 DN9C LDA TID+2 1194 02165 0414 77 LGL 1 NORMALIZE ID 1195 02166 100400 SPL 1196 02167 0 01 02176 JMP DN9D ID IS NORMALIZED 1197 02170 0 10 03202 JST SFT 1198 02171 0 001475 DAC ID 1199 * F2 = F2 - = SHIFTS 1200 02172 0 02 01512 LDA F2 1201 02173 0 07 00717 SUB K101 1202 02174 0 04 01512 STA F2 1203 02175 0 01 02164 JMP DN9C CONTINUE NORMALIZE LOOP 1204 02176 0 02 01514 DN9D LDA F4 1205 02177 0 11 00757 CAS ZERO
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 26
1206 02200 0 01 02232 JMP DN9E 1207 02201 0 01 02250 JMP DN9G FINISHED E FACTOR LOOP 1208 02202 0 12 01514 IRS F4 1209 02203 101000 NOP F4 = F4 +1 1210 02204 0 02 01505 LDA K155 DIVIDE LOOP COUNTER 1211 02205 0 04 01504 STA TIDN 1212 02206 0 10 03157 JST SRT 1213 02207 0 001475 DAC TID 1214 02210 0 10 03157 JST SRT 1215 02211 0 001475 DAC TID 1216 02212 0 10 03202 DND1 JST SFT 1217 02213 0 001475 DAC TID 1218 02214 0 02 01477 LDA TID+2 1219 02215 0 07 01506 SUB K156 10 AT B=4 1220 02216 101400 SMI 1221 02217 0 04 01477 STA TID+2 1222 02220 101400 SMI 1223 02221 0 12 01475 IRS TID 1224 02222 0 12 01504 IRS TIDN 1225 02223 0 01 02212 JMP DND1 REDUCE DIVIDE COUNTER 1226 02224 0 10 03202 JST SFT 1227 02225 0 001475 DAC TID 1228 02226 0 02 01477 LDA TID+2 1229 02227 0 03 01507 ANA K157 1230 02230 0 04 01477 STA TID+2 1231 02231 0 01 02164 JMP DN9C 1232 02232 0 07 00717 DN9E SUB K101 1233 02233 0 04 01514 STA F4 F4 = F4-1 1234 02234 0 02 01512 LDA F2 F2 = F2+4 1235 02235 0 06 00722 ADD K104 1236 02236 0 04 01512 STA F2 1237 02237 0 10 03157 JST SRT 1238 02240 0 001475 DAC ID 1239 02241 0 10 02754 JST MOV3 1240 02242 0 10 03157 JST SRT ID = ID*10 1241 02243 0 001475 DAC ID 1242 02244 0 10 03157 JST SRT 1243 02245 0 001475 DAC ID 1244 02246 0 10 02653 JST AD3 ADD THREE WORD INTEGERS 1245 02247 0 01 02164 JMP DN9C 1246 * CONVERT THREE WORD INTEGER TO INTERNAL FORMAT 1247 02250 0 02 01477 DN9G LDA TID+2 1248 02251 000201 IAB 1249 02252 0 02 01512 LDA F2 1250 02253 0401 70 LRS 8 1251 02254 101040 SNZ 1252 02255 0 01 02260 JMP *+3 1253 02256 0 10 03116 JST ER00 1254 02257 141705 BCI 1,CE CONSTANT'S EXPONENT OVER 8 BITS (OVERFLOW) 1255 02260 000201 IAB
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 27
1256 02261 0 13 01477 IMA TID+2 1257 02262 000201 IAB 1258 02263 0 02 01476 LDA TID+1 1259 02264 0414 77 LGL 1 1260 02265 0402 70 LRR 8 1261 02266 0 04 01476 STA TID+1 1262 02267 0402 67 LRR 9 1263 02270 0 02 01475 LDA TID PACK UP TRIPLE PRECISION 1264 02271 0414 77 LGL 1 1265 02272 0402 71 LRR 7 REAL CONSTANT 1266 02273 0 04 01475 STA TID 1267 02274 0 02 01512 LDA F2 1268 02275 0404 70 LGR 8 1269 02276 100040 SZE 1270 02277 0 01 01776 JMP DN69 GO TO DN69 (20) 1271 02300 0 01 02055 JMP DN84 ELSE. GO TO DN84 (12) 1272 02301 0 04 00653 DN9H STA IM 1273 02302 0 02 00051 LDA SPF 1274 02303 0 07 00720 SUB K102 1275 02304 100040 SZE 1276 02305 0 02 00724 LDA K106 1277 02306 0 07 00742 SUB K124 1278 02307 0 06 01475 ADD TID 1279 02310 101400 SMI 1280 02311 0 01 02000 JMP DN70 1281 02312 0 02 01475 LDA TID 1282 02313 0 04 01520 STA HOLF HOLF=NO.OF HOLLERITH CHARS, 1283 02314 0 04 01513 STA F3 1284 02315 140407 TCA 1285 02316 101040 SNZ 1286 02317 0 01 02340 JMP DN9K FIELD WIDTH OF ZERO 1287 02320 0 04 01512 STA F2 F2= -1(1 CHAR) OR -2(2 CHAR) 1288 02321 0 10 02741 JST BLNK SET ID,ID+1(ID+2 TO ZERO 1289 02322 0 001475 DAC TID 1290 02323 0 10 01066 DN9J JST IC00 INPUT COLUMN (INCLUDING BLANKS) 1291 02324 0 10 03055 JST PACK PACK CHARACTERS 2 PER WORD 1292 02325 0 12 01512 IRS F2 REDUCE CHARACTER COUNT 1293 02326 0 01 02323 JMP DN9J INPUT AND PACK MORE CHARACTERS 1294 02327 0 02 01513 LDA F3 F3= 0 IF 2 CHAR. HAVE BEEN INPUT 1295 02330 0 03 00717 ANA K101 1296 02331 101040 SNZ 1297 02332 0 01 02335 JMP *+3 1298 02333 0 02 00673 LDA K8 ='240 (SP) 1299 02334 0 10 03055 JST PACK SHIFT A SPACE INTO THE LAST WORD 1300 02335 0 12 00653 IRS IM 1301 02336 0 10 01256 DN9M JST CH00 INPUT THE TERMINATING CHARACTER 1302 02337 0 01 01772 JMP DN67 FINISH OPERATOR AND EXIT 1303 02340 0 10 03116 DN9K JST ER00 1304 02341 144306 BCI 1,HF 1305 02342 0 02 00723 DN9N LDA K105 SET .NOT. OPERATOR (TC=5)
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 28
1306 02343 0 04 00607 STA TC SET .NOT. OPERATOR (TC=5) 1307 02344 140040 CRA 1308 02345 0 04 00653 STA IM IM=0 = UNDEFINED 1309 02346 0 01 01773 JMP DN68 1310 02347 DNX1 BSS 3 1311 02352 0 000000 DNX2 DAC ** OVERFLOW FLAG 1312 02353 -0 01 02352 JMP* *-1 1313 * 1314 * 1315 * ************ 1316 * *INPUT ITEM* 1317 * ************ 1318 * INPUTS AND ASSIGNS ITEM (IF ONE EXISTS) 1319 * 1320 02354 0 000000 II00 DAC ** 1321 02355 0 10 01521 JST DN00 INPUT DNA 1322 02356 101040 SNZ IF (A) = 0 1323 02357 -0 01 02354 JMP* II00 RETURN 1324 02360 0 10 03241 JST AS00 NO, ASSIGN ITEM 1325 02361 0 02 00653 LDA IM 1326 02362 -0 01 02354 JMP* II00 RETURN (A) = IM 1327 * 1328 * 1329 * *************** 1330 * *INPUT OPERAND* 1331 * *************** 1332 * EXIT WITH ITEM MODE IN A (TC SET TO . IF NO 1333 * OPERAND) 1334 * 1335 02363 0 000000 OP00 DAC ** INPUT OPERAND 1336 02364 0 10 02354 JST II00 INPUT ITEM 1337 02365 100040 SZE IF IM = 0, SKIP 1338 02366 -0 01 02363 JMP* OP00 ELSE (A) = IM, RETURN 1339 02367 0 02 00675 LDA K10 TC = . 1340 02370 0 04 00607 STA TC (A) = 0 1341 02371 140040 CRA 1342 02372 -0 01 02363 JMP* OP00 RETURN 1343 * 1344 * 1345 * ************ 1346 * *INPUT NAME* 1347 * ************ 1348 * INPUT OPERAND AND ENSURE THAT IT IS A NAME 1349 * 1350 02373 0 000000 NA00 DAC ** INPUT NAME 1351 02374 0 10 02363 JST OP00 INPUT OPERAND 1352 02375 0 02 00573 LDA NT IF NT = 1, 1353 02376 101040 SNZ 1354 02377 0 01 02402 JMP NA10 1355 02400 0 10 03116 JST ER00
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 29
1356 02401 0 00 00011 PZE 9 1357 02402 0 02 00653 NA10 LDA IM (A) = IM 1358 02403 -0 01 02373 JMP* NA00 RETURN 1359 * 1360 * 1361 * *************** 1362 * *INPUT INTEGER* 1363 * *************** 1364 * INPUT ITEM AND ENSURE THAT IT IS AN INTEGER CONSTANT 1365 * GREATER THAN ZERO 1366 * 1367 02404 0 000000 IG00 DAC ** INPUT INTEGER 1368 02405 0 10 01521 JST DN00 INPUT - DNA 1369 02406 0 02 01511 LDA F1 1370 02407 100040 SZE IF F1 = 0, 1371 02410 0 01 02430 JMP IG20 AND NT = 1, 1372 02411 0 02 00573 LDA NT AND IM = INT, 1373 02412 101040 SNZ AND TID L2**15, 1374 02413 0 01 02430 JMP IG20 GO TO IG10 1375 02414 0 02 00653 LDA IM LSE, GO TO IG20 1376 02415 0 07 00717 SUB K101 1377 02416 100040 SZE 1378 02417 0 01 02430 JMP IG20 1379 02420 0 02 01476 LDA TID+1 1380 02421 100040 SZE 1381 02422 0 01 02430 JMP IG20 1382 02423 0 02 01477 LDA TID+2 1383 02424 100040 SZE 1384 02425 0 01 02430 JMP IG20 1385 02426 0 02 01475 IG10 LDA TID 1386 02427 -0 01 02404 JMP* IG00 1387 02430 0 10 03116 IG20 JST ER00 ERROR 1388 02431 144716 BCI 1,IN INTEGER REQUIRED 1389 * 1390 * 1391 * *********************** 1392 * *INPUT INTEGER VAR/CON* 1393 * *********************** 1394 * 1395 02432 0 000000 IV00 DAC ** 1396 02433 0 10 02363 JST OP00 INPUT OPERAND 1397 02434 0 10 02635 JST IT00 INTER TEST 1398 02435 0 10 03642 JST TV00 TAG VARIABLE 1399 02436 -0 01 02432 JMP* IV00 EXIT 1400 * 1401 * 1402 * ************************ 1403 * *INPUT INTEGER VARIABLE* 1404 * ************************ 1405 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 30
1406 02437 0 000000 IR00 DAC ** INPUT INT VAR 1407 02440 0 10 02432 JST IV00 INPUT INT VAR/CON 1408 02441 0 10 02611 JST NC00 NON-CONSTANT TEST 1409 02442 -0 01 02437 JMP* IR00 RETURN 1410 * 1411 * 1412 * ************************ 1413 * *INPUT STATEMENT NUMBER* 1414 * ************************ 1415 * NUMBER IS FORMED AS SPECIAL NAME , NOT CONVERTED 1416 * TO NUMERIC 1417 * 1418 02443 0 000000 IS00 DAC ** 1419 02444 140040 IS04 CRA 1420 02445 0 04 00573 STA NT 1421 02446 0 04 00653 STA IM 1422 02447 0 04 00655 STA IU IU = IM = IT = 0 1423 02450 0 04 00575 STA NTID PUT LEADING 'S' IN STATEMENT NO, 1424 02451 0 02 02516 LDA K79 1425 02452 0 10 03055 JST PACK 1426 02453 0 10 01342 IS10 JST ID00 INPUT DIGIT 1427 02454 100040 SZE 1428 02455 0 01 02471 JMP IS20 NOT A DIGIT GO TO IS20 1429 02456 0 02 00575 LDA NTID 1430 02457 0 07 00724 SUB K106 1431 02460 101400 SMI 1432 02461 0 01 02475 JMP IS22 1433 02462 0 02 00607 LDA TC 1434 02463 0 10 03055 JST PACK PACK TC TO ID - LEGAL ST, NO, CHAR 1435 02464 0 02 01475 LDA TID 1436 02465 0 11 02517 CAS K79X 1437 02466 0 01 02453 JMP IS10 1438 02467 0 01 02444 JMP IS04 IGNORE LEAD ZERO ON ST. NO, 1439 02470 0 01 02453 JMP IS10 1440 02471 0 02 00575 IS20 LDA NTID 1441 02472 0 07 00717 SUB K101 1442 02473 101400 SMI 1443 02474 0 01 02477 JMP IS25 1444 02475 0 10 03116 IS22 JST ER00 1445 02476 151724 BCI 1,ST ILLEGAL STATEMENT NUMBER FORMAT 1446 02477 0 10 03241 IS25 JST AS00 ASSIGN ITEM 1447 02500 0 10 02672 JST STXA 1448 02501 1 02 15401 LDA DP+1,1 1449 02502 0 03 00730 ANA K111 1450 02503 1 04 15401 STA DP+1,1 IU = 0 1451 02504 0 02 00630 LDA AF ADDRESS FIELD IS 1452 02505 0 11 00055 CAS XST LE XST - ALREADY ASSIGNED 1453 02506 -0 01 02443 JMP* IS00 1454 02507 -0 01 02443 JMP* IS00 OK - OTHERWISE 1455 02510 0 02 00631 LDA AT MUST HAVE STR-ABS OTHERWISE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 31
1456 02511 0 11 00720 CAS K102 1457 02512 0 01 02514 JMP *+2 1458 02513 -0 01 02443 JMP* IS00 !!! 1459 02514 0 10 03116 JST ER00 1460 02515 151316 BCI 1,RN REFERENCE TO A SPECIFICATION STMNT NUMBER 1461 02516 000337 K79 OCT 337 1462 02517 157660 K79X OCT 157660 1463 * 1464 02520 0 000000 SY00 DAC ** INPUT SYMBOL 1465 02521 0 02 00717 LDA K101 1466 02522 0 04 00574 STA NTF NTF NOT 0 - DON'T SET IU IN AS00 1467 02523 0 10 02373 JST NA00 INPUT NAME 1468 02524 -0 01 02520 JMP* SY00 EXIT 1469 * 1470 * ************************ 1471 * *EXAMINE NEXT CHARACTER* 1472 * ************************ 1473 * CHECK NEXT CHAR FOR DIGIT (BACKUP ONE COL, THEN EXIT) 1474 * 1475 02525 0 000000 XN00 DAC ** 1476 02526 0 10 01342 JST ID00 INPUT DIGIT 1477 02527 0 10 01251 JST UC00 UNINPUT COLUMM 1478 02530 -0 01 02525 JMP* XN00 1479 02531 152322 K1 BCI 3,TRUE. 02532 152705 02533 127240 1480 02534 143301 K2 BCI 3,FALSE. 02535 146323 02536 142656 1481 02537 000247 K3 OCT 247 1482 02540 147317 KNOT BCI 3,NOT. CONSTANT FOR .NOT. TEST 02541 152256 02542 120240 1483 02543 000304 K11 OCT 304 0D 1484 02544 000310 K14 OCT 310 0H 1485 02545 000316 K62 OCT 316 0N 1486 02546 000336 K64 OCT 336 0) 1487 * 1488 * 1489 * ******************** 1490 * *ALL CHARACTER TEST* 1491 * ******************** 1492 * 1493 02547 0 000000 TS00 DAC ** TEST (A) AGAINST TC 1494 02550 0 07 00607 SUB TC 1495 02551 101040 SNZ 1496 02552 -0 01 02547 JMP* TS00 RETURN 1497 02553 0 10 03116 JST ER00 TO ERROR TEST 1498 02554 141710 BCI 1,CH IMPROPER TERMINATING CHARACTER 1499 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 32
1500 * 1501 * ******************* 1502 * *)- INPUT OPERATOR* 1503 * ******************* 1504 * 1505 02555 0 000000 IP00 DAC ** 1506 02556 0 02 00671 LDA K4 TEST - ) 1507 02557 0 10 02547 JST TS00 1508 02560 0 10 01256 JST CH00 INPUT CHAR 1509 02561 0 10 01412 JST FN00 FINISH OPERATOR 1510 02562 0 02 00642 LDA B B = B-16 1511 02563 0 07 00726 SUB K109 1512 02564 0 04 00642 STA B 1513 02565 140040 CRA (A) = 0 1514 02566 -0 01 02555 JMP* IP00 RETURN 1515 * 1516 * 1517 * 1518 * B1 COMMA OR C/R TST 1519 02567 0 02 00752 B1 LDA K134 IF TC = ','(CONVERTED TO 17) 1520 02570 0 07 00607 SUB TC 1521 02571 101040 SNZ 1522 02572 -0 01 04600 JMP* A9T2 GO TO SIDSW 1523 02573 0 01 04266 JMP A1 ELSE, GO TO C/R TEST 1524 * 1525 * 1526 02574 0 000000 NR00 DAC ** NON-REL TEST 1527 02575 0 02 00631 LDA AT 1528 02576 0 07 00717 SUB K101 IF AT = 1 GO TO ERROR- 1529 02577 100040 SZE TEST 1530 02600 -0 01 02574 JMP* NR00 RETURN 1531 02601 0 10 03116 JST ER00 ERROR TEST ROUTINE 1532 02602 146723 BCI 1,MS MULTIPLY DEFINED STATEMENT NUMBER 1533 * 1534 * 1535 * *************** 1536 * *NO USAGE TEST* 1537 * *************** 1538 * 1539 02603 0 000000 NU00 DAC ** N0 USAGE TEST 1540 02604 0 02 00655 LDA IU 1541 02605 101040 SNZ IF IU NOT = 0, TO ERROR 1542 02606 -0 01 02603 JMP* NU00 RETURN 1543 02607 0 10 03116 JST ER00 ERROR TEST 1544 02610 147325 BCI 1,NU NAME ALREADY BEING USED 1545 * 1546 * 1547 * ******************* 1548 * *NON-CONSTANT TEST* 1549 * *******************
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 33
1550 * 1551 02611 0 000000 NC00 DAC ** NON CONSTANT TEST 1552 02612 0 02 00573 LDA NT 1553 02613 101040 SNZ IF NT NOT = 0, TO ERROR TEST 1554 02614 -0 01 02611 JMP* NC00 RETURN 1555 02615 0 10 03116 JST ER00 ERROR TEST 1556 02616 147303 BCI 1,NC CONSTANT MUST BE PRESENT 1557 * 1558 * 1559 * ********************* 1560 * *NON SUBPROGRAM TEST* 1561 * ********************* 1562 * 1563 02617 0 000000 NS00 DAC ** NON SUBPROGRAM TEST 1564 02620 0 02 00655 LDA IU 1565 02621 0 07 00717 SUB K101 IF IU = 1, GO TO- 1566 02622 100040 SZE ERROR TEST 1567 02623 -0 01 02617 JMP* NS00 RETURN 1568 02624 0 10 03116 JST ER00 ERROR TEST 1569 02625 147323 BCI 1,NS SUBPROGRAM NAME NOT ALLOWED 1570 * 1571 * 1572 * ********** 1573 * *ARR TEST* 1574 * ********** 1575 * 1576 02626 0 000000 AT00 DAC ** ARRAY TEST 1577 02627 0 02 00655 LDA IU 1578 02630 0 07 00721 SUB K103 IF IU = 3, GO TO 1579 02631 101040 SNZ 1580 02632 -0 01 02626 JMP* AT00 RETURN 1581 02633 0 10 03116 JST ER00 ERROR TEST 1582 02634 140722 BCI 1,AR ITEM NOT AN ARRAY NAME 1583 * 1584 * 1585 * ************** 1586 * *INTEGER TEST* 1587 * ************** 1588 * 1589 02635 0 000000 IT00 DAC ** INTEGER TEST 1590 02636 0 02 00653 LDA IM 1591 02637 0 07 00717 SUB K101 IF IM = 1, GO TO- 1592 02640 101040 SNZ ERROR ROUTINE, ELSE 1593 02641 -0 01 02635 JMP* IT00 RETURN 1594 02642 0 10 03116 JST ER00 TO ERROR TEST 1595 02643 144724 BCI 1,IT ITEM NOT AN INTEGER 1596 * 1597 * 1598 02644 0 000000 TA00 DAC ** 1599 02645 0 02 00631 LDA AT STRING-ABS TEST
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 34
1600 02646 0 07 00720 SUB K102 1601 02647 101040 SNZ 1602 02650 -0 01 02644 JMP* TA00 1603 02651 0 10 03116 JST ER00 1604 02652 147322 BCI 1,NR ITEM NOT A RELATIVE VARIABLE 1605 * 1606 * 1607 * 1608 * 1609 * 1610 * 1611 * 1612 * 1613 02653 0 000000 AD3 DAC ** ADD TWO THREE WORD INTEGERS, 1614 02654 0 02 01475 LDA TID 1615 02655 0 06 02347 ADD DNX1 1616 02656 140320 CSA 1617 02657 0 04 01475 STA TID 1618 02660 0 02 01476 LDA TID+1 1619 02661 141216 ACA 1620 02662 0 06 02350 ADD DNX1+1 1621 02663 140320 CSA 1622 02664 0 04 01476 STA TID+1 1623 02665 0 02 01477 LDA TID+2 1624 02666 141216 ACA 1625 02667 0 06 02351 ADD DNX1+2 1626 02670 0 04 01477 STA TID+2 1627 02671 -0 01 02653 JMP* AD3 1628 * 1629 * 1630 * *********************** 1631 * *ASSIGN INDEX REGISTER* 1632 * *********************** 1633 * 1634 02672 0 000000 STXA DAC ** 1635 02673 0 02 00040 LDA A 1636 02674 0 04 00000 STA 0 1637 02675 -0 01 02672 JMP* STXA 1638 02676 0 000000 STXI DAC ** 1639 02677 0 02 00041 LDA I 1640 02700 0 04 00000 STA 0 1641 02701 -0 01 02676 JMP* STXI 1642 02702 000016 K153 OCT 16 1643 02703 0 000000 IM00 DAC ** 1644 02704 0 04 02720 STA T1IM MULTIPLY A BY B 1645 02705 0 02 00737 LDA K120 =-15 1646 02706 0 04 02721 STA T2IM 1647 02707 140040 CRA 1648 02710 140200 RCB C BIT = 0 1649 02711 0400 77 IM10 LRL 1 LOW BIT OF B INTO C
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 35
1650 02712 100001 SRC SKIP IF B = 0 1651 02713 0 06 02720 ADD T1IM 1652 02714 0 12 02721 IRS T2IM 1653 02715 0 01 02711 JMP IM10 1654 02716 0410 62 LLL 14 1655 02717 -0 01 02703 JMP* IM00 RETURN, RESULT IN A 1656 02720 0 00 00000 T1IM PZE 0 1657 02721 0 00 00000 T2IM PZE 0 1658 * 1659 * 1660 02722 0 000000 NF00 DAC ** CONSTRUCT EXTERNAL NAME 1661 02723 0 02 02730 LDA K80 ENTRY FOR FORTRAN GENERATER 1662 02724 0 04 00570 STA NAMF 1663 02725 0 02 02731 LDA K81 SUBROUTINE CALLS, 1664 02726 0 04 00572 STA NAMF+2 1665 02727 -0 01 02722 JMP* NF00 1666 02730 143244 K80 BCI 1,F$ 1667 02731 120240 K81 BCI 1, 1668 02732 000001 KM92 DEC 1 001 = INT 1669 02733 000002 DEC 2 010 = REA 1670 02734 000001 DEC 1 011 = LOG 1671 02735 000000 DEC 0 - - 1672 02736 000004 DEC 4 101 = CPX 1673 02737 000003 DEC 3 110 = DSL 1674 02740 000003 OCT 3 111 = HOL 1675 * 1676 * 1677 02741 0 000000 BLNK DAC ** CLEAR A 3/36 1678 02742 0 10 03007 JST SAV AREA TO ZEROS 1679 02743 -0 02 02741 LDA* BLNK 1680 02744 0 04 00000 STA XR 1681 02745 140040 CRA CLEAR 3 WORDS OF MEMORY 1682 02746 1 04 00001 STA 1,1 PARAMETER INPUT ADDRESS TO 0 1683 02747 1 04 00002 STA 2,1 1684 02750 1 04 00000 STA 0,1 1685 02751 0 10 03016 JST RST 1686 02752 0 12 02741 IRS BLNK 1687 02753 -0 01 02741 JMP* BLNK EXIT 1688 * 1689 * 1690 02754 0 000000 MOV3 DAC ** MOVE 3-WORDS 1691 02755 0 02 01475 LDA TID TO TEMO STORE 1692 02756 0 04 02347 STA DNX1 1693 02757 0 02 01476 LDA TID+1 1694 02760 0 04 02350 STA DNX1+1 1695 02761 0 02 01477 LDA TID+2 1696 02762 0 04 02351 STA DNX1+2 1697 02763 -0 01 02754 JMP* MOV3 1698 * 1699 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 36
1700 * 1701 * 1702 02764 0 000000 CIB DAC ** COMPARE IBUF TO A CONSTANT 1703 02765 0 10 03007 JST SAV SAVE INDEX 1704 02766 -0 02 02764 LDA* CIB +DDR OF CON+3,0 1705 02767 0 04 03006 STA CIBZ 1706 02770 140040 CRA 1707 02771 0 07 00721 SUB K103 XR=-3 1708 02772 0 04 00000 STA XR 1709 02773 1 02 01504 CIBB LDA IBUF+3,1 1710 02774 -0 07 03006 SUB* CIBZ 1711 02775 100040 SZE 1712 02776 0 01 03004 JMP CIBD 1713 02777 0 12 00000 IRS XR 1714 03000 0 01 02773 JMP CIBB 1715 03001 0 12 02764 CIBC IRS CIB 1716 03002 0 10 03016 JST RST RESTORE INDEX 1717 03003 -0 01 02764 JMP* CIB 1718 03004 0 12 02764 CIBD IRS CIB 1719 03005 0 01 03001 JMP CIBC 1720 03006 0 000000 CIBZ DAC ** 1721 * 1722 * 1723 * 1724 * 1725 03007 0 000000 SAV DAC ** SAVE INDEX REGISTER 1726 03010 0 04 03027 STA SAVY STACKED IN PUSH DOWN LIST 1727 03011 0 02 00000 LDA XR 1728 03012 -0 04 03030 STA* SAV9 1729 03013 0 12 03030 IRS SAV9 1730 03014 0 02 03027 LDA SAVY 1731 03015 -0 01 03007 JMP* SAV 1732 03016 0 000000 RST DAC ** RESTORE INDEX REGISTER 1733 03017 0 04 03027 STA SAVY 1734 03020 0 02 03030 LDA SAV9 UNSTACK PUSH DOWN LIST 1735 03021 0 07 00717 SUB K101 1736 03022 0 04 03030 STA SAV9 1737 03023 -0 02 03030 LDA* SAV9 1738 03024 0 04 00000 STA XR 1739 03025 0 02 03027 LDA SAVY 1740 03026 -0 01 03016 JMP* RST 1741 03027 0 00 00000 SAVY PZE 0 1742 03030 0 003031 SAV9 DAC SAVX IS INITIATED BY A092 1743 03031 SAVX BSS 20 1744 * 1745 * 1746 03055 0 000000 PACK DAC ** PLACE CHARACTER IN A 1747 03056 0 04 03113 STA PAK7 1748 03057 0 02 00575 LDA NTID INTO ID - UPDATE 3 WORDS OF 1749 03060 101040 PAK1 SNZ
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 37
1750 03061 0 01 03103 JMP PAK4 ID 1751 03062 0400 77 LRL 1 1752 03063 0 06 03115 ADD PAK9 1753 03064 0 04 03114 STA PAK8 1754 03065 0 02 03113 LDA PAK7 1755 03066 000201 IAB 1756 03067 100400 SPL 1757 03070 0 01 03076 JMP PAK3 1758 03071 0410 50 LLL 24 1759 03072 0 06 00673 ADD K8 1760 03073 -0 04 03114 PAK2 STA* PAK8 1761 03074 0 12 00575 IRS NTID 1762 03075 -0 01 03055 JMP* PACK 1763 03076 0410 70 PAK3 LLL 8 1764 03077 -0 02 03114 LDA* PAK8 1765 03100 0404 70 LGR 8 1766 03101 0410 70 LLL 8 1767 03102 0 01 03073 JMP PAK2 1768 03103 0 02 03112 PAK4 LDA PAK6 1769 03104 0 04 01475 STA TID 1770 03105 0 04 01476 STA TID+1 1771 03106 0 04 01477 STA TID+2 1772 03107 0 04 01500 STA TID+3 1773 03110 0 02 00575 LDA NTID 1774 03111 0 01 03062 JMP PAK1+2 1775 03112 120240 PAK6 BCI 1, 1776 03113 0 000000 PAK7 DAC ** 1777 03114 0 000000 PAK8 DAC ** 1778 03115 0 001475 PAK9 DAC TID 1779 * 1780 * 1781 * *************** 1782 * *ERROR ROUTINE* 1783 * *************** 1784 * 1785 03116 0 000000 ER00 DAC ** ERROR ROUTINE 1786 03117 0 02 03030 LDA SAV9 1787 03120 0 04 03031 STA SAVX 1788 03121 0 02 03156 LDA ER93 =-35 1789 03122 0 04 00000 STA 0 SET INDEX 1790 03123 0 02 03155 LDA ER91 (*)(*) 1791 03124 1 04 14745 STA PRI+35,1 SET ** INTO PRINT BUFFER 1792 03125 0 12 00000 IRS 0 SET COMPLETE PRINT BUFFER TO ******** 1793 03126 0 01 03124 JMP *-2 1794 03127 0 02 00662 LDA CC 1795 03130 0405 77 ARS 1 CC = CC/2 1796 03131 0 07 00717 SUB K101 =1 1797 03132 100400 SPL 1798 03133 140040 CRA 1799 03134 0 04 00000 STA XR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 38
1800 03135 0 02 00660 LDA EBAR (NEGATIVE IF NOT WITHIN AN EQUIVALENCE ST.) 1801 03136 100400 SPL SKIP IF PROCESSING AN EQUIVALENCE STATEMENT 1802 03137 0 01 03142 JMP *+3 1803 03140 0 02 00761 LDA KAEQ ='142721 (=(E)(Q) ) 1804 03141 1 04 14703 STA PRI+1,1 1805 03142 -0 02 03116 LDA* ER00 1806 03143 1 04 14702 STA PRI,1 SET ERROR TYPE LETTERS INTO THE BUFFER 1807 03144 0 10 00000 CALL F4$SYM PRINT THE BUFFER 1808 03145 0 014702 DAC PRI 1809 03146 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 1810 03147 0 02 00607 LDA TC 1811 03150 0 11 00756 ER20 CAS CRET INPUT CHARACTERS UNTIL C/R 1812 03151 0 01 03153 JMP *+2 1813 03152 0 01 04353 JMP C7 GO TO STATEMENT INPUT 1814 03153 0 10 01256 JST CH00 1815 03154 0 01 03150 JMP ER20 1816 03155 125252 ER91 BCI 1,** 1817 03156 177735 ER93 OCT 177735 -35 1818 * 1819 * 1820 03157 0 000000 SRT DAC ** 1821 03160 0 10 03007 JST SAV 1822 03161 -0 02 03157 LDA* SRT SHIFT RIGHT ONE PLACE 1823 03162 0 04 00000 STA XR TRIPLE PRECISION 1824 03163 1 02 00000 LDA 0,1 1825 03164 000201 IAB 1826 03165 1 02 00001 LDA 1,1 1827 03166 0401 77 LRS 1 1828 03167 0414 77 LGL 1 1829 03170 000201 IAB 1830 03171 1 04 00000 STA 0,1 1831 03172 1 02 00002 LDA 2,1 1832 03173 0401 77 LRS 1 1833 03174 1 04 00002 STA 2,1 1834 03175 000201 IAB 1835 03176 1 04 00001 STA 1,1 1836 03177 0 10 03016 JST RST 1837 03200 0 12 03157 IRS SRT 1838 03201 -0 01 03157 JMP* SRT 1839 * 1840 * 1841 03202 0 000000 SFT DAC ** TRIPLE PRECISION 1842 03203 0 10 03007 JST SAV SHIFT LEFT ONE PLACE 1843 03204 -0 02 03202 LDA* SFT 1844 03205 0 04 00000 STA XR 1845 03206 1 02 00000 LDA 0,1 1846 03207 000201 IAB 1847 03210 1 02 00001 LDA 1,1 1848 03211 0411 77 LLS 1 1849 03212 140320 CSA
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 39
1850 03213 1 04 00001 STA 1,1 1851 03214 000201 IAB 1852 03215 1 04 00000 STA 0,1 1853 03216 141216 ACA 1854 03217 0401 77 LRS 1 1855 03220 1 02 00002 LDA 2,1 1856 03221 0411 77 LLS 1 1857 03222 140320 CSA 1858 03223 1 04 00002 STA 2,1 1859 03224 0 10 03016 JST RST 1860 03225 0 12 03202 IRS SFT 1861 03226 -0 01 03202 JMP* SFT 1862 * 1863 03227 0 000000 LIST DAC ** 1864 03230 0 10 14301 JST PRSP 1865 03231 100010 SR2 1866 03232 0 01 03235 JMP *+3 1867 03233 0 10 00000 CALL F4$SYM PRINT BLANK LINE 1868 03234 0 014702 DAC PRI 1869 03235 0 10 00000 CALL F4$SYM PRINT SOURCE INPUT LINE 1870 03236 0 001155 DAC CI 1871 03237 -0 01 03227 JMP* LIST 1872 * ************* 1873 * *ASSIGN ITEM* 1874 * ************* 1875 * CHECKS ASSIGNMENT AREA OF DATA POOL (A0 TO ABAR) 1876 * FOR ITEM DEFINED BY ID, IM, IU, ETC. 1877 * IF FOUND, EXIT WITH POINTER AND 1878 * ASSIGNMENTS DATA SET, OTHERWISE 1879 * ASSIGN THE ITEM. 1880 * 1881 * 1882 * 1883 03240 0 00 00000 T0AS PZE 0 1884 03241 0 000000 AS00 DAC ** 1885 03242 140040 CRA 1886 03243 0 04 00040 STA A A = A (0) 1887 03244 0 10 02672 AS04 JST STXA 1888 03245 0 10 04062 JST NXT GET NEXT ENTRY 1889 03246 0 01 03355 JMP AS30 AT END, GO TO AS30 1890 03247 0 02 00573 LDA NT 1891 03250 0 07 00617 SUB NTA NT = NT(A) 1892 03251 100040 SZE 1893 03252 0 01 03244 JMP AS04 NO, G0 TO AS04 1894 03253 0 02 01475 LDA TID 1895 03254 0 07 03634 SUB TIDA 1896 03255 100040 SZE 1897 03256 0 01 03244 JMP AS04 TID = TID(A) 1898 03257 0 02 01476 LDA TID+1 1899 03260 0 07 03635 SUB TIDA+1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 40
1900 03261 100040 SZE 1901 03262 0 01 03244 JMP AS04 NO, GO TO AS04 1902 03263 0 02 01477 LDA TID+2 1903 03264 0 07 03636 SUB TIDA+2 1904 03265 100040 SZE 1905 03266 0 01 03244 JMP AS04 1906 03267 0 02 00573 LDA NT IF NT (A) .NE. 0, 1907 03270 101040 SNZ GO TO AS10 1908 03271 0 01 03331 JMP AS16 GO TO AS16 (4) 1909 03272 0 02 00653 AS10 LDA IM IF IM .NE. IM (A), 1910 03273 0 07 00621 SUB IMA GO TO AS04 (1) 1911 03274 100040 SZE 1912 03275 0 01 03244 JMP AS04 1913 03276 0 02 00655 LDA IU IF IU = 0, 1914 03277 101040 SNZ OR NOT EQUAL IU (A) 1915 03300 0 01 03244 JMP AS04 GO T0 AS04 (1) 1916 03301 0 07 00623 SUB IUA 1917 03302 100040 SZE 1918 03303 0 01 03244 JMP AS04 ELSE, 1919 03304 0 02 00653 LDA IM 1920 03305 0 07 00723 SUB K105 GO TO AS16 (4) 1921 03306 100040 SZE 1922 03307 0 01 03331 JMP AS16 1923 03310 0 10 04062 JST NXT ELSE, GET NEXT ENTRY 1924 03311 0 01 03355 JMP AS30 1925 03312 0 02 03634 LDA TIDA IF IU (A) = TIDB 1926 03313 0 07 03637 SUB TIDB GO TO AS16 (4) 1927 03314 100040 SZE ELSE, GO TO AS04 (1) 1928 03315 0 01 03244 JMP AS04 1929 03316 0 02 03635 LDA TIDA+1 1930 03317 0 07 03640 SUB TIDB+1 1931 03320 100040 SZE 1932 03321 0 01 03244 JMP AS04 1933 03322 0 02 03636 LDA TIDA+2 1934 03323 0 07 03641 SUB TIDB+2 1935 03324 100040 SZE 1936 03325 0 01 03244 JMP AS04 1937 03326 0 02 00040 LDA A 1938 03327 0 07 00723 SUB K105 1939 03330 0 04 00040 STA A 1940 03331 0 02 00623 AS16 LDA IUA IF IU (A) .NE. 0 1941 03332 0 06 00574 ADD NTF 1942 03333 100040 SZE 1943 03334 0 01 03345 JMP AS18 GO TO AS18 (5) 1944 03335 0 02 00051 LDA SPF IF SPF = 0, GO TO AS18 (5) 1945 03336 101040 SNZ 1946 03337 0 01 03345 JMP AS18 1947 03340 0 02 00607 LDA TC IF TC = ( 1948 03341 0 07 00702 SUB K17 1949 03342 100040 SZE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 41
1950 03343 0 01 03353 JMP AS19 1951 03344 0 10 03465 JST TG00 TAG SUBPROGRAM 1952 03345 140040 AS18 CRA SET NTF TO 0 1953 03346 0 04 00574 STA NTF SET NTF TO 0 1954 03347 0 10 03656 JST FA00 GO TO FETCH ASSIGNS 1955 03350 0 10 02672 JST STXA 1956 03351 0 02 00653 LDA IM 1957 03352 -0 01 03241 JMP* AS00 RETURN 1958 03353 0 10 03642 AS19 JST TV00 TAG VARIABLE 1959 03354 0 01 03345 JMP AS18 1960 03355 0 10 04142 AS30 JST BUD BUILD ASSIGNMENT ENTRY 1961 03356 0 02 00573 LDA NT IF NT = 1 1962 03357 100040 SZE 1963 03360 0 01 03365 JMP AS32 OR IV = VAR, 1964 03361 0 02 00655 LDA IU 1965 03362 0 07 00720 SUB K102 1966 03363 100040 SZE 1967 03364 0 01 03407 JMP AS40 AMD 1968 03365 0 02 00653 AS32 LDA IM IF IM = CPX, 1969 03366 0 07 00723 SUB K105 1970 03367 100040 SZE 1971 03370 0 01 03407 JMP AS40 1972 03371 0 04 00655 STA IU MOVE 1ST PART OF 1973 03372 0 02 03637 LDA TIDB COMPLEX ENTRY TO 1974 03373 0 04 01475 STA TID TID AND BUILD 1975 03374 0 02 03640 LDA TIDB+1 ASSIGNMENT ENTRY 1976 03375 0 04 01476 STA TID+1 1977 03376 0 02 03641 LDA TIDB+2 1978 03377 0 04 01477 STA TID+2 1979 03400 0 02 00040 LDA A 1980 03401 0 06 00723 ADD K105 1981 03402 0 04 00040 STA A 1982 03403 0 10 04142 JST BUD 1983 03404 0 02 00040 LDA A 1984 03405 0 07 00723 SUB K105 RESTORE A 1985 03406 0 04 00040 STA A 1986 03407 0 02 00054 AS40 LDA ABAR 1987 03410 0 07 00040 SUB A TO = -(ABAR-A+5) 1988 03411 0 06 00723 ADD K105 GIVING NO. OF WORDS TO MOVE TABLES UP 1989 03412 140407 TCA 1990 03413 0 04 03240 STA T0AS 1991 03414 140407 TCA 1992 03415 0 06 00661 ADD DO CO=DO+TO 1993 03416 0 04 00661 STA DO 1994 03417 0 02 00652 LDA IFLG IF IFLG = 0, THERE IS NO EXPRESSION TABLE 1995 03420 101040 SNZ 1996 03421 0 01 03460 JMP AS60 GO TO AS60 1997 03422 0 02 00041 LDA I 1998 03423 0 07 03240 SUB T0AS 1999 03424 0 04 00041 STA I I = I - T0(T0 IS NEGATIVE)
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 42
2000 03425 141206 AOA 2001 03426 0 11 00044 AS41 CAS L CHECK AGAINST BOTTOM OF TRIAD TABLE 2002 03427 101000 NOP 2003 03430 0 01 03456 JMP AS50 2004 03431 0 06 00104 ADD '104 =DP,1 2005 03432 0 04 03463 STA AS91 AS91 = NEW TABLE TOP 2006 03433 0 06 03240 ADD T0AS 2007 03434 0 04 03464 STA AS92 AS92 2008 03435 0 07 03240 SUB T0AS COMPUTE SIZE OF FLOATING TABLES 2009 03436 0 07 00104 SUB '104 =DP,1 2010 03437 0 07 00661 SUB DO 2011 03440 101040 SNZ IF ZERO, ASSIGN TABLE ONLY, 2012 03441 0 01 03331 JMP AS16 2013 03442 140407 TCA 2014 03443 0 04 03240 STA T0AS 2015 03444 140040 CRA 2016 03445 0 04 00000 STA XR 2017 03446 -0 02 03464 AS46 LDA* AS92 END-5 2018 03447 -0 04 03463 STA* AS91 END (MOVE TABLES UP) 2019 03450 0 02 00000 LDA 0 2020 03451 0 07 00717 SUB K101 =1 2021 03452 0 04 00000 STA 0 REDUCE INDEX 2022 03453 0 12 03240 IRS T0AS = NO, OF WORDS TO MOVE 2023 03454 0 01 03446 JMP AS46 2024 03455 0 01 03331 JMP AS16 2025 03456 0 10 03116 AS50 JST ER00 2026 03457 146717 BCI 1,MO DATA POOL OVERFLOW 2027 03460 0 02 00661 AS60 LDA DO 2028 03461 0 06 00057 ADD D 2029 03462 0 01 03426 JMP AS41 2030 03463 0 000000 AS91 DAC 0 2031 03464 0 000000 AS92 DAC ** 2032 * 2033 * 2034 * 2035 * 2036 * **************** 2037 * *TAG SUBPROGRAM* 2038 * **************** 2039 * TAG ITEM AS A SUBPROGRAM, CHECK TO SEE IF 2040 * NAME IS IN IMPLICIT MODE TABLE AND SET 2041 * MODE ACCORDINGLY 2042 * 2043 03465 0 000000 TG00 DAC ** 2044 03466 0 02 00655 LDA IU 2045 03467 0 07 00717 SUB K101 IF IU = SUB 2046 03470 101040 SNZ 2047 03471 -0 01 03465 JMP* TG00 RETURN, ELSE 2048 03472 0 10 02603 JST NU00 NO * USAGE TEST 2049 03473 0 02 03534 LDA TG22 =-21
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 43
2050 03474 0 04 00000 STA 0 SET INDEX 2051 03475 0 02 01476 TG04 LDA ID+1 CHARACTERS 3 AND 4 2052 03476 1 11 03607 CAS TGT2+21,1 IMPLICIT MODE SUBR. NAME TABLE 2053 03477 0 01 03501 JMP *+2 2054 03500 0 01 03514 JMP TG10 2055 03501 0 12 00000 TG06 IRS 0 2056 03502 0 01 03475 JMP TG04 NOT DONE WITH TABLE 2057 03503 0 02 00717 TG08 LDA K101 =1 (IU=SUBR.) 2058 03504 0 04 00655 STA IU 2059 03505 0 10 02672 JST STXA 2060 03506 1 02 15401 LDA DP+1,1 IU(A) = SUB 2061 03507 0414 77 LGL 1 2062 03510 140500 SSM 2063 03511 0404 77 LGR 1 2064 03512 1 04 15401 STA DP+1,1 2065 03513 -0 01 03465 JMP* TG00 RETURN 2066 * 2067 03514 0 02 01475 TG10 LDA ID CHARACTERS 1 AND 2 2068 03515 0 03 00730 ANA K111 ='37777 2069 03516 0 06 00760 ADD HBIT ='140000 2070 03517 1 07 03562 SUB TGT1+21,1 2071 03520 100040 SZE 2072 03521 0 01 03501 JMP TG06 CONTINUE SEARCH 2073 03522 0 02 01477 LDA ID+2 CHARACTERS 5 AND 6 2074 03523 1 07 03634 SUB TGT3+21,1 2075 03524 100040 SZE 2076 03525 0 01 03501 JMP TG06 CONTINUE SEARCH 2077 03526 1 02 03562 LDA TGT1+21,1 2078 03527 0404 70 LGR 8 2079 03530 0 03 00725 ANA K107 =7 (=3 IF CPX, 4 IF DBL) 2080 03531 0 06 00720 ADD K102 =2 (=5 IF CPX, 6 IF DBL) 2081 03532 0 10 04026 JST DM00 DEFINE IM 2082 03533 0 01 03503 JMP TG08 2083 * 2084 03534 177753 TG22 OCT 177753 =-21 2085 * 2086 *...........IMPLICIT MODE SUBROUTINE NAME TABLE 2087 03535 142305 TGT1 BCI 6,DECEDLCLDLDS 03536 141705 03537 142314 03540 141714 03541 142314 03542 142323 2088 03543 141723 BCI 6,CSDCCCDSCSDA 03544 142303 03545 141703 03546 142323 03547 141723 03550 142301 2089 03551 142301 BCI 6,DADMDADMDMDS
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 44
03552 142315 03553 142301 03554 142315 03555 142315 03556 142323 2090 03557 142302 BCI 3,DBCMCO 03560 141715 03561 141717 2091 03562 154320 TGT2 BCI 6,XPXPOGOGOGIN 03563 154320 03564 147707 03565 147707 03566 147707 03567 144716 2092 03570 144716 BCI 6,INOSOSQRQRTA 03571 147723 03572 147723 03573 150722 03574 150722 03575 152301 2093 03576 152301 BCI 6,TAODBSAXINIG 03577 147704 03600 141323 03601 140730 03602 144716 03603 144707 2094 03604 146305 BCI 3,LEPLNJ 03605 150314 03606 147312 2095 03607 120240 TGT3 BCI 6, 10 / 03610 120240 03611 120240 03612 120240 03613 120240 03614 120240 2096 03615 120240 BCI 6, T T N / 03616 120240 03617 120240 03620 120240 03621 120240 03622 120240 2097 03623 147262 BCI 6,N2 1 1 N / 03624 120240 03625 120240 03626 120240 03627 120240 03630 120240 2098 03631 120240 BCI 3, X G / 03632 120240 03633 120240
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 45
2099 * 2100 * 2101 03634 TIDA BSS 3 2102 03637 TIDB BSS 3 2103 * 2104 * - TV00 TAG VARIABLE 2105 03642 0 000000 TV00 DAC ** 2106 03643 0 02 00655 LDA IU IF IU = 'VAR', 2107 03644 0 07 00720 SUB K102 2108 03645 101040 SNZ 2109 03646 -0 01 03642 JMP* TV00 RETURN 2110 03647 0 10 02603 JST NU00 ELSE, NO USAGE TEST 2111 03650 0 10 02672 JST STXA 2112 03651 1 02 15401 LDA DP+1,1 2113 03652 0 03 00730 ANA K111 IU (A) = 'VAR' 2114 03653 140500 SSM 2115 03654 1 04 15401 STA DP+1,1 2116 03655 -0 01 03642 JMP* TV00 RETURN 2117 * 2118 * 2119 * 2120 * 2121 * 2122 * ************** 2123 * *FETCH ASSIGN* 2124 * ************** 2125 * SET ASSIGNMENT DATA FROM ASSIGN (EXCEPT ID) 2126 * EXPAND DIMENSION INFO IF ARRAY 2127 * 2128 03656 0 000000 FA00 DAC ** 2129 03657 0 10 02672 JST STXA 2130 03660 1 02 15400 LDA DP,1 2131 03661 0400 61 LRL 15 2132 03662 0 04 00573 STA NT NT=NT(A) 2133 03663 140040 CRA 2134 03664 0410 75 LLL 3 2135 03665 0 04 00631 STA AT AT=AT(A) 2136 03666 140040 CRA 2137 03667 0410 75 LLL 3 IM = IM(A) 2138 03670 0 04 00653 STA IM 2139 03671 0 04 00000 STA 0 2140 03672 1 02 02731 LDA KM92-1,1 2141 03673 0 04 00633 STA D0 D0 = NUMBER OF WORDS 2142 03674 0415 76 ALS 2 2143 03675 0 06 00633 ADD D0 2144 03676 0 04 00612 STA X X = POINTER TO CONSTANT NUMBER OF WORDS 2145 03677 0 10 02672 JST STXA 2146 03700 1 02 15401 LDA DP+1,1 2147 03701 0400 62 LRL 14 2148 03702 0 04 00655 STA IU
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 46
2149 03703 0 07 00721 SUB K103 IF IU NOT 'ARR' 2150 03704 101040 SNZ 2151 03705 0 01 03712 JMP FA10 2152 03706 140040 CRA 2153 03707 0410 62 LLL 14 AF = GF(A) 2154 03710 0 04 00630 STA AF 2155 03711 -0 01 03656 JMP* FA00 2156 03712 0410 62 FA10 LLL 14 2157 03713 0 04 00000 STA 0 INDEX = GF(A) 2158 03714 1 02 15404 LDA DP+4,1 2159 03715 0 04 00613 STA X1 POINTER OF DIMENSION 1 2160 03716 1 02 15403 LDA DP+3,1 2161 03717 0 04 00614 STA X2 POINTER OF DIMENSION 2 2162 03720 1 02 15402 LDA DP+2,1 2163 03721 0 04 00615 STA X3 POINTER OF DIMENSION 3 2164 03722 1 02 15401 LDA DP+1,1 2165 03723 0 03 00730 ANA K111 ='37777 2166 03724 0 04 00630 STA AF AF = GF(GF(A)) 2167 03725 1 02 15400 LDA DP,1 2168 03726 0404 67 LGR 9 2169 03727 0 03 00725 ANA K107 =7 2170 03730 0 04 00571 STA ND NUMBER OF DIMENSIONS 2171 03731 0 04 00000 STA 0 2172 03732 0 02 00717 LDA K101 =1 2173 03733 0 04 00635 STA D2 2174 03734 0 04 00636 STA D3 2175 03735 -1 01 03764 JMP* FA91-1,1 2176 03736 0 02 00615 FA22 LDA X3 FETCH 3RD DIMENSION SIZE 2177 03737 0 04 00000 STA XR 2178 03740 0 10 03755 JST FA40 2179 03741 0 04 00636 STA D3 STORE D3 2180 03742 0 02 00614 FA24 LDA X2 2181 03743 0 04 00000 STA XR 2182 03744 0 10 03755 JST FA40 2183 03745 0 04 00635 STA D2 D2 = 2ND DIMENSION SIZE 2184 03746 0 02 00613 FA26 LDA X1 2185 03747 0 04 00000 STA XR 2186 03750 0 10 03755 JST FA40 2187 03751 0 04 00634 STA D1 D1 = 1ST DIMENSION SIZE 2188 03752 0 10 02672 JST STXA EXIT WITH AF IN A 2189 03753 0 02 00630 LDA AF 2190 03754 -0 01 03656 JMP* FA00 2191 03755 0 000000 FA40 DAC ** 2192 03756 1 02 15400 LDA DP,1 IM OF SUBSCRIPT VALUE 2193 03757 140100 SSP 2194 03760 0404 64 LGR 12 2195 03761 0 07 00723 SUB K105 =5 2196 03762 100040 SZE SKIP IF DUMMY SUBSCRIPT 2197 03763 1 02 15404 LDA DP+4,1 FETCH VALUE OF SUBSCRIPT 2198 03764 -0 01 03755 JMP* FA40
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 47
2199 03765 0 003746 FA91 DAC FA26 2200 03766 0 003742 DAC FA24 2201 03767 0 003736 DAC FA22 2202 * 2203 * 2204 * ************ 2205 * *FETCH LINK* 2206 * ************ 2207 * EXPAND LINK FIELD AND FETCH ASSIGNS FOR THE 2208 * LINKED ITEM 2209 * 2210 03770 0 000000 FL00 DAC ** 2211 03771 0 10 02672 JST STXA 2212 03772 1 02 15400 LDA DP,1 A = 5 * CL(A) 2213 03773 0 03 00735 ANA K118 2214 03774 0 04 00667 STA FLT1 2215 03775 0415 76 ALS 2 2216 03776 0 06 00667 ADD FLT1 (FLT1 ALSO USED BY ASSIGN SPEC) 2217 03777 0 04 00040 STA A 2218 04000 0 10 03656 JST FA00 FETCH ASSIGN 2219 04001 0 10 04005 JST KT00 D0 = = WDS /ITEM 2220 04002 0 02 00040 LDA A 2221 04003 0 07 00664 SUB F (A) = A-F 2222 04004 -0 01 03770 JMP* FL00 RETURN 2223 * 2224 * 2225 * ******************* 2226 * *D0=WORDS FOR LINK* 2227 * ******************* 2228 * D = ITEM MODE SIZE TIMES THE TOTAL SIZE IF 2229 * THE ITEM IS AN ARRAY 2230 * 2231 04005 0 000000 KT00 DAC ** 2232 04006 0 02 00655 LDA IU IF IU NOT 'ARR' 2233 04007 0 07 00721 SUB K103 2234 04010 100040 SZE 2235 04011 -0 01 04005 JMP* KT00 RETURN 2236 04012 0 02 00633 LDA D0 2237 04013 000201 IAB D0 = D0 * D1 * D2 * D3 2238 04014 0 02 00634 LDA D1 2239 04015 0 10 02703 JST IM00 MULTIPLY A BY B 2240 04016 000201 IAB 2241 04017 0 02 00635 LDA D2 2242 04020 0 10 02703 JST IM00 MULTIPLY A BY B 2243 04021 000201 IAB 2244 04022 0 02 00636 LDA D3 2245 04023 0 10 02703 JST IM00 MULTIPLY A BY B 2246 04024 0 04 00633 STA D0 2247 04025 -0 01 04005 JMP* KT00 RETURN 2248 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 48
2249 * 2250 * 2251 * *********** 2252 * *DEFINE IM* 2253 * *********** 2254 * IM SUBA = IM (SET FROM A REG) 2255 * 2256 04026 0 000000 DM00 DAC ** 2257 04027 0 04 00653 STA IM IM = (A) 2258 04030 0 10 02672 JST STXA ESTABLISH A 2259 04031 1 02 15400 LDA DP,1 2260 04032 0400 67 LRL 9 2261 04033 0404 75 LGR 3 IM(A) = IM 2262 04034 0414 75 LGL 3 2263 04035 0 06 00653 ADD IM 2264 04036 0410 67 LLL 9 2265 04037 1 04 15400 STA DP,1 2266 04040 -0 01 04026 JMP* DM00 2267 * 2268 * 2269 * *********** 2270 * *DEFINE AF* 2271 * *********** 2272 * AF SUBA = AF (SET FROM A REG) 2273 * 2274 04041 0 000000 DA00 DAC ** 2275 04042 0 04 00630 STA AF AF = (A) 2276 04043 0400 62 LRL 14 2277 04044 0 10 02672 JST STXA 2278 04045 1 02 15401 DA10 LDA DP+1,1 IF IU (A) NOT ARR 2279 04046 0404 62 LGR 14 2280 04047 0 11 00721 CAS K103 GF (A) : AF 2281 04050 0 01 04052 JMP *+2 2282 04051 0 01 04055 JMP DA20 ELSE, GF (GF (A)) = AF 2283 04052 0410 62 LLL 14 2284 04053 1 04 15401 STA DP+1,1 2285 04054 -0 01 04041 JMP* DA00 RETURN 2286 04055 1 02 15401 DA20 LDA DP+1,1 2287 04056 0 03 00730 ANA K111 2288 04057 0 04 00650 STA GFA 2289 04060 0 04 00000 STA 0 2290 04061 0 01 04045 JMP DA10 2291 04062 0 000000 NXT DAC ** GET NEXT ENTRY 2292 04063 0 02 00040 LDA A FROM ASSIGNMENT 2293 04064 0 06 00723 ADD K105 =5 2294 04065 0 04 00040 STA A 2295 04066 0 04 00000 STA 0 2296 04067 0 11 00054 CAS ABAR 2297 04070 -0 01 04062 JMP* NXT 2298 04071 101000 NOP
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 49
2299 04072 0 12 04062 IRS NXT 2300 04073 1 02 15400 LDA DP,1 2301 04074 0400 61 LRL 15 2302 04075 0 04 00617 STA NTA NT(A) = NT FROM (A) 2303 04076 140040 CRA 2304 04077 0410 75 LLL 3 2305 04100 0 04 00620 STA ATA AT(A) = AT FROM (A) 2306 04101 140040 CRA 2307 04102 0410 75 LLL 3 2308 04103 0 04 00621 STA IMA IM(A) = IM FROM (A) 2309 04104 140040 CRA 2310 04105 0410 67 LLL 9 2311 04106 0 04 00622 STA CLA CL(A) = CL FROM (A) 2312 04107 1 02 15401 LDA DP+1,1 2313 04110 0400 62 LRL 14 2314 04111 0 04 00623 STA IUA IU(A) = IU FROM (A) 2315 04112 140040 CRA 2316 04113 0410 62 LLL 14 2317 04114 0 04 00650 STA GFA GF(A) = GF FROM (A) 2318 04115 1 02 15402 LDA DP+2,1 2319 04116 0 04 03636 STA TIDA+2 TID(A) = TID FROM (A) 2320 04117 1 02 15403 LDA DP+3,1 2321 04120 0 04 03635 STA TIDA+1 2322 04121 1 02 15404 LDA DP+4,1 2323 04122 0 04 03634 STA TIDA 2324 04123 0400 61 LRL 15 2325 04124 0 04 00624 STA DTA DT(A) = DT FROM (A) 2326 04125 140040 CRA 2327 04126 0410 77 LLL 1 2328 04127 0 04 00625 STA TTA TT(A) = TT FROM (A) 2329 04130 0 02 00617 LDA NTA NT(A) = NT FROM (A) 2330 04131 100040 SZE 2331 04132 -0 01 04062 JMP* NXT 2332 04133 1 02 15404 LDA DP+4,1 2333 04134 140500 SSM 2334 04135 0416 77 ALR 1 2335 04136 140500 SSM 2336 04137 0406 77 ARR 1 2337 04140 0 04 03634 STA TIDA 2338 04141 -0 01 04062 JMP* NXT 2339 * 2340 * 2341 04142 0 000000 BUD DAC ** BUILD ASSIGNMENT 2342 04143 0 10 02672 JST STXA 2343 04144 0 04 00054 STA ABAR 2344 04145 0 02 01475 LDA TID TABLE ENTRY 2345 04146 1 04 15404 STA DP+4,1 2346 04147 0 02 01476 LDA TID+1 2347 04150 1 04 15403 STA DP+3,1 2348 04151 0 02 01477 LDA TID+2
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 50
2349 04152 1 04 15402 STA DP+2,1 2350 04153 0 02 00655 LDA IU 2351 04154 0 04 00623 STA IUA 2352 04155 0414 62 LGL 14 2353 04156 1 04 15401 STA DP+1,1 2354 04157 0 02 00573 LDA NT 2355 04160 0414 75 LGL 3 2356 04161 0 06 00720 ADD K102 AT = STR/+BS 2357 04162 0414 75 LGL 3 2358 04163 0 06 00653 ADD IM 2359 04164 0400 60 LRL 16 2360 04165 0 04 00665 STA CL 2361 04166 0 02 00720 LDA K102 2362 04167 0 04 00631 STA AT 2363 04170 0 02 00040 LDA A CL(A) = A/5 2364 04171 0 07 00723 SUB K105 2365 04172 100400 SPL 2366 04173 0 01 04176 JMP *+3 2367 04174 0 12 00665 IRS CL 2368 04175 0 01 04171 JMP *-4 2369 04176 0410 47 LLL 25 2370 04177 0 06 00665 ADD CL 2371 04200 1 04 15400 STA DP,1 2372 04201 100400 SPL 2373 04202 -0 01 04142 JMP* BUD 2374 04203 0 02 00666 LDA DT 2375 04204 0414 77 LGL 1 2376 04205 0 06 00610 ADD TT 2377 04206 0414 62 LGL 14 2378 04207 1 13 15404 IMA DP+4,1 2379 04210 0 03 00730 ANA K111 2380 04211 1 06 15404 ADD DP+4,1 2381 04212 1 04 15404 STA DP+4,1 2382 04213 -0 01 04142 JMP* BUD 2383 * 2384 * 2385 * 2386 * 2387 * 2388 * ************ 2389 * *DEFINE AFT* 2390 * ************ 2391 * AT SUBA = AT (FROM B REG), THEN DEFINE AF 2392 * 2393 04214 0 000000 AF00 DAC ** 2394 04215 000201 IAB 2395 04216 0 04 04231 STA AF90 2396 04217 0 10 02672 JST STXA 2397 04220 0 02 04231 LDA AF90 2398 04221 0414 64 LGL 12
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 51
2399 04222 1 13 15400 IMA DP,1 2400 04223 0 03 04232 ANA AF91 2401 04224 1 06 15400 ADD DP,1 2402 04225 1 04 15400 STA DP,1 AT(A) = CONTENTS OF B INPUT 2403 04226 000201 IAB 2404 04227 0 10 04041 JST DA00 DEFINE AF 2405 04230 -0 01 04214 JMP* AF00 2406 04231 0 00 00000 AF90 PZE 0 2407 04232 107777 AF91 OCT 107777 2408 * 2409 * 2410 * ***************** 2411 * *DEFINE LOCATION* 2412 * ***************** 2413 * SET AF = RPL, AT = REL 2414 04233 0 000000 LO00 DAC ** 2415 04234 0 02 00717 LDA K101 REL 2416 04235 000201 IAB 2417 04236 0 02 00060 LDA RPL 2418 04237 0 10 04214 JST AF00 DEFINE AF 2419 04240 -0 01 04233 JMP* LO00 2420 * ************************* 2421 * *ASSIGN INTEGER CONSTANT* 2422 * ************************* 2423 * IM (INTEGER), IU(VARIABLE) , ASSIGN SPECIAL 2424 04241 0 000000 AI00 DAC ** 2425 04242 140040 CRA 2426 04243 0 04 01476 STA ID+1 2427 04244 0 04 01477 STA ID+2 2428 04245 0 02 00717 LDA K101 (B) = INT 2429 04246 000201 IAB 2430 04247 0 02 00720 LDA K102 (A) = VAR 2431 04250 0 10 04252 JST AA00 ASSIGN SPECIAL 2432 04251 -0 01 04241 JMP* AI00 RETURN 2433 * 2434 * 2435 * **************** 2436 * *ASSIGN SPECIAL* 2437 * **************** 2438 * B REG TO IM, A REG TO IU, 1 TO NT (CONSTANT), THEN 2439 * ASSIGN ITEM 2440 04252 0 000000 AA00 DAC ** 2441 04253 0 04 00655 STA IU IU = (A) 2442 04254 000201 IAB 2443 04255 0 04 00653 STA IM IM = (B) 2444 04256 0 02 00717 LDA K101 2445 04257 0 04 00573 STA NT NT = 1 2446 04260 0 10 03241 JST AS00 ASSIGN ITEM 2447 04261 -0 01 04252 JMP* AA00 RETURN 2448 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 52
2449 * 2450 * ********** 2451 * *JUMP * 2452 * *ILL TERM* 2453 * ********** 2454 * 2455 * CLEAR LAST OP FLAG FOR NO PATH TESTING 2456 * 2457 04262 140040 B6 CRA 2458 04263 0 04 00073 STA LSTP LSTP = 0 2459 * SET ILLEGAL DO TERM FLAG 2460 04264 0 02 00717 C5 LDA K101 2461 04265 0 04 00072 STA LSTF LSTF =1 2462 04266 0 02 00756 A1 LDA CRET 2463 04267 0 10 02547 JST TS00 IF TC NOT C/R, ERROR 2464 04270 0 01 04271 JMP C6 2465 * 2466 * 2467 * ********** 2468 * *CONTINUE* 2469 * ********** 2470 * WRAPUP LOGICAL IF, CHECK TRACE STOP AND SEARCH 2471 * DO TABLE FOR DO TERMINATION 2472 04271 0 02 00070 C6 LDA LIF 2473 04272 100040 SZE IF LIF NON-ZERO, 2474 04273 0 01 04333 JMP C6H GO TO 2475 04274 0 02 00071 C6A LDA LSTN IF LSTN NON-ZERO, 2476 04275 100040 SZE GO TO 2477 04276 0 01 04301 JMP C6C 2478 04277 0 04 00072 C6B STA LSTF LSTF = 0 2479 04300 0 01 04353 JMP C7 GO TO STATEMENT INPUT 2480 04301 0 07 00065 C6C SUB TRF TRACE FLAG 2481 04302 101040 SNZ SMP IF NOT END OF TRACE ZONE 2482 04303 0 04 00065 STA TRF SET TRF TO ZERO (TURN FLAG OFF) 2483 04304 0 02 00661 LDA DO START OF DO TABLE 2484 04305 0 06 00057 ADD D 2485 04306 0 04 00041 C6D STA I I = DO + D 2486 04307 0 10 02676 JST STXI 2487 04310 0 07 00661 SUB DO 2488 04311 101040 SNZ 2489 04312 0 01 04277 JMP C6B GO TO C6B - FINISHED DO 2490 04313 1 02 15374 LDA DP-4,1 2491 04314 0 07 00071 SUB LSTN 2492 04315 100040 SZE 2493 04316 0 01 04327 JMP C6E 2494 04317 0 02 00072 LDA LSTF 2495 04320 100040 SZE 2496 04321 0 01 04351 JMP C6K 2497 04322 0 10 06773 JST DQ00 DO TERMINATION 2498 04323 0 02 00057 LDA D
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 53
2499 04324 0 07 00723 SUB K105 2500 04325 0 04 00057 STA D D = D-5 2501 04326 0 02 00072 LDA LSTF 2502 04327 0 04 00072 C6E STA LSTF 2503 04330 0 02 00041 LDA I 2504 04331 0 07 00723 SUB K105 2505 04332 0 01 04306 JMP C6D I = I-5 - CONTINUE DO LOOP 2506 04333 0 02 00053 C6H LDA IFF 2507 04334 0 04 00040 STA A 2508 04335 101040 SNZ 2509 04336 0 01 04344 JMP C6J 2510 04337 0410 60 LLL 16 2511 04340 0 02 13733 LDA OMI5 (A) = JMP INSTRUCTION 2512 04341 0 10 12467 JST OB00 OUTPUT OA 2513 04342 140040 CRA 2514 04343 0 04 00053 STA IFF IFF = 0 2515 04344 0 04 00040 C6J STA A A = U 2516 04345 0 02 00070 LDA LIF 2517 04346 0 04 00073 STA LSTP SET TO NON-ZERO TO PREVENT DATA ERROR MSG 2518 04347 0 10 14135 JST OS00 OUTPUT STRING - RPL 2519 04350 0 01 04274 JMP C6A 2520 * 2521 04351 0 10 03116 C6K JST ER00 2522 04352 142324 BCI 1,DT 2523 * 2524 * ***************** 2525 * *STATEMENT INPUT* 2526 * ***************** 2527 * SET UP PROCESSING OF NEXT SOURCE STATEMENT 2528 * PROCESS STATEMENT NUMBER IF PRESENT 2529 * WRAPUP ANY OUTSTANDING ARITHMETIC IF 2530 04353 140040 C7 CRA 2531 04354 0 04 00071 STA LSTN LSTN = 0 2532 04355 0 04 00652 STA IFLG IFLG = 0 2533 04356 0 04 00070 STA LIF LIF = 0 2534 04357 0 02 00113 LDA L0 L = L (0) 2535 04360 0 04 00044 STA L 2536 04361 0 02 01155 LDA CI CHECK CARD COLUMN 1 2537 04362 0404 70 LGR 8 FOR $ CHARACTER 2538 04363 0 07 00700 SUB K15 *($) 2539 04364 101040 SNZ 2540 04365 0 01 04433 JMP CCRD CONTROL CARD 2541 04366 0 10 02525 JST XN00 EXAMINE NEXT CHAR 2542 04367 100040 SZE 2543 04370 0 01 04375 JMP C71 2544 04371 0 10 02443 JST IS00 INPUT STATEMENT = 2545 04372 0 02 00040 LDA A 2546 04373 0 04 00071 STA LSTN LSTN = A 2547 04374 0 04 00073 STA LSTP 2548 04375 0 02 00053 C71 LDA IFF CHECK FOR IFF=0
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 54
2549 04376 0 02 00053 LDA IFF IF IFF = 0, 2550 04377 101040 SNZ 2551 04400 0 01 04405 JMP C7B GO TO C7B 2552 04401 0 07 00071 SUB LSTN IF = LSTN 2553 04402 100040 SZE 2554 04403 0 01 04407 JMP C7C 2555 04404 0 04 00053 C7A STA IFF IFF = 0 2556 04405 0 10 04416 C7B JST C7LT LINE TEST 2557 04406 0 01 04456 JMP C8 2558 04407 0 02 00053 C7C LDA IFF IFF = A 2559 04410 0 04 00040 STA A 2560 04411 0400 40 LRL 32 2561 04412 0 02 13733 LDA K201 (A) = JMP INSTRUCTION 2562 04413 0 10 12467 JST OB00 OUTPUT OA 2563 04414 140040 CRA 2564 04415 0 01 04404 JMP C7A GO TO C7A 2565 04416 0 000000 C7LT DAC ** LINE TEST 2566 04417 0 02 01157 LDA CI+2 CI = BLANK 2567 04420 0 03 00733 ANA K116 LIST LINE 2568 04421 0 06 00673 ADD K8 RETURN 2569 04422 0 04 01157 STA CI+2 2570 04423 0 02 00607 LDA TC 2571 04424 0 07 00763 SUB HC2 IF TC : SPECIAL 2572 04425 100040 SZE 2573 04426 0 01 04431 JMP C7LU 2574 04427 0 10 03227 JST LIST 2575 04430 -0 01 04416 JMP* C7LT 2576 04431 0 10 03116 C7LU JST ER00 CONSTRUCTION ERROR 2577 04432 151703 BCI 1,SC STATEMENT NO. ON A CONTINUATION CARD 2578 * 2579 * 2580 * 2581 * ************************ 2582 * *CONTROL CARD PROCESSOR* 2583 * ************************ 2584 04433 0 10 14523 CCRD JST FS00 FLUSH BUFFER IF NECESSARY 2585 04434 0 10 03227 JST LIST LIST CARD 2586 04435 0 02 01155 LDA CI WORD CONTAINING COLUMN 1 2587 04436 0414 64 LGL 12 2588 04437 101040 SNZ 2589 04440 0 02 04454 LDA CCRK ='030000 (EOJ CODE = 3) 2590 04441 0404 72 LGR 6 TRUNCATE TO A DIGIT 2591 04442 0 04 14632 STA OCI 2592 04443 0 02 00724 LDA K106 =6 2593 04444 0 04 00602 STA OCNT SET BUFFER WORD COUNT TO 3 2594 04445 0 10 14523 JST FS00 FLUSH BUFFER 2595 04446 0 02 01155 LDA CI 2596 04447 0414 64 LGL 12 CHECK COLUMN 1 FOR CONTROL CODE 0 2597 04450 100040 SZE 2598 04451 0 01 03150 JMP ER20 SKIP TO NEXT CARD (NOT CONTROL CARD)
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 55
2599 04452 0 10 00000 CALL F4$END CLOSE-OUT I/0 DEVICES AND STOP 2600 04453 0 01 01003 JMP A0 RESTART NEW COMPILATION 2601 04454 030000 CCRK OCT 030000 EOJ CONTROL CODE 2602 * 2603 * **************** 2604 * *STATEMENT SCAN* 2605 * **************** 2606 * DETERMINE THE CLASS OF THE STATEMENT 2607 * IF AN = IS FOUND WITH A FOLLOWING , 2608 * THE STATEMENT IS A DO 2609 * IF NO FOLLOWING COMMA, THE PAREN FLAG 2610 * IS TESTED, IF NO PARENS, THE STATEMENT 2611 * IS ARITHMETIC ASSIGNMENT 2612 * IF PARENS WERE DETECTED AND THE FIRST 2613 * NAME IS AN ARRAY, THE STATEMENT IS 2614 * ARITHMETIC ASSIGNMENT 2615 * OTHERWISE, IT IS A STATEMENT FUNCTION 2616 * IF NO = IS FOUND, THE STATEMENT IS 2617 * PROCESSED FURTHER IN STATEMENT ID 2618 04455 0 00 00000 C8T1 PZE 0 2619 04456 0 02 00662 C8 LDA CC SAVE CC 2620 04457 0 04 04576 STA C8X9 2621 04460 0 02 00717 LDA K101 2622 04461 0 04 04455 STA C8T1 T (1) = 1 2623 04462 140040 CRA 2624 04463 0 04 00651 STA ICSW ICSW = SIR 2625 04464 0 10 01256 C8A JST CH00 INPUT CHARACTER 2626 04465 0 02 00607 C8B LDA TC IF TC = ) 2627 04466 0 07 00671 SUB K4 2628 04467 100040 SZE 2629 04470 0 01 04502 JMP C8C 2630 04471 0 10 01256 JST CH00 INPUT CHAR 2631 04472 0 02 00643 C8B2 LDA DFL IF DFL NOT ZERO 2632 04473 100040 SZE 2633 04474 0 01 04465 JMP C8B GO TO C8B 2634 04475 0 02 04576 C8B4 LDA C8X9 RESTORE CC 2635 04476 0 04 00662 STA CC 2636 04477 0 02 00717 LDA K101 IPL 2637 04500 0 04 00651 STA ICSW ICSW = IPL 2638 04501 0 01 04602 JMP A9 GO TO STATEMENT ID 2639 04502 0 02 00607 C8C LDA TC IF TC NOT (, 2640 04503 0 07 00702 SUB K17 2641 04504 100040 SZE 2642 04505 0 01 04515 JMP C8D GO TO C8D 2643 04506 0 02 04455 LDA C8T1 T1 = T1 - 1 2644 04507 0 07 00717 SUB K101 2645 04510 0 04 04455 STA C8T1 2646 04511 100040 C8C4 SZE IF T1 = 0 2647 04512 0 01 04475 JMP C8B4 2648 04513 0 10 01521 JST DN00 INPUT DNA
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 56
2649 04514 0 01 04472 JMP C8B2 GO TO C8B2 2650 04515 0 02 00607 C8D LDA TC IF TC = , 2651 04516 0 11 00752 CAS K134 ='17 ('FINISHED' CODE FOR COMMA) 2652 04517 0 01 04521 JMP *+2 2653 04520 0 01 04524 JMP C8D2 TC = COMMA 2654 04521 0 07 00672 SUB K5 2655 04522 100040 SZE 2656 04523 0 01 04526 JMP C8E 2657 04524 0 02 04455 C8D2 LDA C8T1 GO TO C8C4, 2658 04525 0 01 04511 JMP C8C4 2659 04526 0 02 00607 C8E LDA TC ELSE, IF TC = '/' 2660 04527 0 07 00674 SUB K9 2661 04530 101040 SNZ 2662 04531 0 01 04475 JMP C8B4 GO TO C8B4 2663 04532 0 02 00607 LDA TC 2664 04533 0 07 00703 SUB K18 IF NOT = , 2665 04534 100040 SZE 2666 04535 0 01 04464 JMP C8A GO TO C8A 2667 04536 0 02 00725 LDA K107 INPUT 7 CHARACTERS 2668 04537 0 10 01355 JST IA00 2669 04540 0 02 04576 LDA C8X9 RESTORE CC 2670 04541 0 04 00662 STA CC 2671 04542 0 02 00717 LDA K101 IPL 2672 04543 0 04 00651 STA ICSW ICSW = IPL 2673 04544 0 02 00607 LDA TC 2674 04545 0 07 00672 SUB K5 IF TC NOT, 2675 04546 100040 SZE 2676 04547 0 01 04563 JMP C8G GO TO C8G 2677 04550 0 02 00720 LDA K102 ELSE, INPUT 2 CHARS 2678 04551 0 10 01355 JST IA00 2679 04552 0 02 01501 LDA IBUF IF (A) = 'DO' 2680 04553 0 07 00704 SUB K19 2681 04554 101040 SNZ 2682 04555 0 01 04560 JMP *+3 2683 04556 0 10 03116 JST ER00 2684 04557 141715 BCI 1,CM COMMA OUTSIDE PARENTHESES, NOT IN DO STMNT, 2685 04560 0 02 00722 LDA K104 2686 04561 0 10 05074 JST NP00 FIRST NON-SPEC CHECK 2687 04562 0 01 05510 JMP C9 GO TO DO 2688 04563 0 02 04455 C8G LDA C8T1 1 IF NO ( TO LEFT OF EQUALS 2689 04564 100040 SZE 2690 04565 0 01 06321 JMP G2 ARITHMETIC ASSIGNMENT STATEMENT 2691 04566 0 10 02520 JST SY00 INPUT SYMBOL 2692 04567 0 02 04576 LDA C8X9 2693 04570 0 04 00662 STA CC RESTORE CC 2694 04571 0 02 00655 LDA IU IF IU = SUBR 2695 04572 0 07 00721 SUB K103 2696 04573 100040 SZE 2697 04574 0 01 06367 JMP G1 GO TO ARITH ST. FUNCT, 2698 04575 0 01 06321 JMP G2 OTHERWISE = ASSIGNMENT STATEMENT
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 57
2699 04576 0 00 00000 C8X9 PZE 0 2700 * 2701 * 2702 * ************************** 2703 * *STATEMENT IDENTIFICATION* 2704 * ************************** 2705 * READ FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE 2706 * FOR PROCESSING, THEN CHECK SPELLING ON REST 2707 04577 0 00 00000 A9T1 PZE 0 2708 04600 0 00 00000 A9T2 PZE 0 2709 04601 0 00 00000 A9T3 PZE 0 2710 04602 0 02 00722 A9 LDA K104 2711 04603 0 10 01355 JST IA00 INPUT (4) CHARS 2712 04604 0 02 01501 LDA IBUF 2713 04605 0 04 00570 STA NAMF NAMF = IBUF 2714 04606 0 02 01502 LDA IBUF+1 2715 04607 0 04 00571 STA NAMF+1 2716 04610 0 02 05070 LDA A9Z9 INITIALIZE INDEX FOR LOOP 2717 04611 0 04 00000 STA XR THROUGH THE STATEMENT NAMES 2718 04612 0 02 00570 A9A LDA NAMF 2719 04613 1 07 04732 SUB A9X1+30,1 2720 04614 100040 SZE 2721 04615 0 01 04661 JMP A9F READ IN REST OF 2722 04616 0 02 00571 LDA NAMF+1 CHECK REST OF SPELLING FOR 2723 04617 1 07 04770 SUB A9X2+30,1 2724 04620 100040 SZE A MATCH ON 4 CHARACTERS 2725 04621 0 01 04661 JMP A9F NOT FOUND 2726 04622 1 02 05070 LDA A9X4+30,1 2727 04623 0 03 10027 ANA K133 2728 04624 0 04 04577 STA A9T1 T1 = NUMBER OF REMAINING CHARACTERS 2729 04625 1 02 05026 LDA A9X3+30,1 LEFT TO CHECK 2730 04626 0400 63 LRL 13 2731 04627 000201 IAB 2732 04630 0404 75 LGR 3 2733 04631 0 04 04600 STA A9T2 T2 = ADDRESS OF ROUTINE 2734 04632 000201 IAB 2735 04633 0 10 05074 JST NP00 FIRST NON-SPECIFIC. CHECK -(A) = 2736 04634 0 02 04577 A9B LDA A9T1 HIERARCHY CODE 2737 04635 100040 SZE 2738 04636 0 01 04640 JMP A9C MUST CHECK MORE CHARACTERS 2739 04637 -0 01 04600 JMP* A9T2 FINISHED CHARACTER CHECK, EXIT TO 2740 * SPECIFIC ANALYZER. 2741 04640 0 07 00724 A9C SUB K106 2742 04641 100400 SPL 2743 04642 0 01 04654 JMP A9E 2744 04643 0 04 04577 STA A9T1 2745 04644 0 02 00724 LDA K106 REMAINING SPELLING 1S CHECKED. 2746 04645 0 04 04601 A9D STA A9T3 2747 04646 0 10 01355 JST IA00 2748 04647 0 07 04601 SUB A9T3
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 58
2749 04650 101040 SNZ 2750 04651 0 01 04634 JMP A9B 2751 04652 0 10 03116 JST ER00 2752 04653 151720 BCI 1,SP STATEMENT NAME MISSPELLED 2753 04654 0 06 00724 A9E ADD K106 2754 04655 0 13 04577 IMA A9T1 2755 04656 140040 CRA 2756 04657 0 13 04577 IMA A9T1 2757 04660 0 01 04645 JMP A9D 2758 04661 0 12 00000 A9F IRS XR LOOP CONTROL FOR STATEMENT NAMES. 2759 04662 0 01 04612 JMP A9A MORE NAMES - CONTINUE LOOP 2760 04663 0 02 00607 LDA TC 2761 04664 0 07 00756 SUB CRET 2762 04665 100040 SZE 2763 04666 0 01 04672 JMP A9G 2764 04667 0 02 00071 LDA LSTN TC = C/R 2765 04670 101040 SNZ 2766 04671 0 01 04353 JMP C7 AND LSTN = 0 - INPUT NEW STATEMENT 2767 04672 0 10 03116 A9G JST ER00 2768 04673 144704 BCI 1,ID UNRECOGNIZED STATEMENT 2769 04674 144716 A9X1 BCI 10,INREDOCOLOFUSUBLEXDI 04675 151305 04676 142317 04677 141717 04700 146317 04701 143325 04702 151725 04703 141314 04704 142730 04705 142311 2770 04706 141717 BCI 10,COEQGOCARECOFOIFWRRE 04707 142721 04710 143717 04711 141701 04712 151305 04713 141717 04714 143317 04715 144706 04716 153722 04717 151305 2771 04720 141301 BCI 7,BAENREENASSTPA 04721 142716 04722 151305 04723 142716 04724 140723 04725 151724 04726 150301 2772 04727 142301 BCI 2,DATR 04730 152322 2773 04731 150322 BCI 1,PR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 59
2774 04732 152305 A9X2 BCI 10,TEALUBMPGINCBROCTEME 04733 140714 04734 152702 04735 146720 04736 143711 04737 147303 04740 141322 04741 147703 04742 152305 04743 146705 2775 04744 146715 BCI 10,MMUITOLLTUNTRM( ITAD 04745 152711 04746 152317 04747 146314 04750 152325 04751 147324 04752 151315 04753 124240 04754 144724 04755 140704 2776 04756 141713 BCI 3,CKDFWI 04757 142306 04760 153711 2777 04761 142215 OCT 142215 D, C/R 2778 04762 151711 BCI 3,SIOPUS 04763 147720 04764 152723 2779 04765 152301 BCI 2,TAAC 04766 140703 2780 04767 144716 BCI 1,IN 2781 04770 0 011101 A9X3 DAC A3 2782 04771 0 011103 DAC A4 2783 04772 0 011105 DAC A5 2784 04773 0 011107 DAC A6 2785 04774 0 011111 DAC A7 2786 04775 0 011042 DAC R1 2787 04776 0 011044 DAC R2 2788 04777 0 012303 DAC R3 2789 05000 0 011145 DAC B2 2790 05001 0 011154 DAC B3 2791 05002 0 011253 DAC B4 2792 05003 0 011335 DAC B5 2793 05004 -0 005334 DAC* R7 2794 05005 -0 006301 DAC* R8 2795 05006 -0 006330 DAC* R9 2796 05007 -0 005026 DAC* CONT 2797 05010 -0 005771 DAC* V2 2798 05011 -0 005210 DAC* V3 2799 05012 -0 005552 DAC* V4 2800 05013 -0 005543 DAC* V5
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 60
2801 05014 -0 005526 DAC* V6 2802 05015 -0 005533 DAC* V7 2803 05016 -0 005535 DAC* V8 2804 05017 0 026444 DAC W5+'20000 2805 05020 -0 005443 DAC* W3 2806 05021 -0 006233 DAC* W7 2807 05022 -0 006274 DAC* W8 2808 05023 1 011762 DAC W4,1 2809 05024 -1 032313 DAC* TRAC+'20000,1 TRACE STATEMENT 2810 05025 -0 005753 DAC* V10 2811 * 2812 * ****************************** 2813 * *CONTINUE STATEMENT PROCESS0R* 2814 * ****************************** 2815 05026 0 02 00073 CONT LDA LSTP ACCOUNTS FOR POSSIBLE PATH ERROR 2816 05027 0 06 00071 ADD LSTN ACCOUNTS FOR POSSIBLE PATH ERROR 2817 05030 0 04 00073 STA LSTP ACCOUNTS FOR POSSIBLE PATH ERROR 2818 05031 0 01 04271 JMP C6 2819 * 2820 *-------------THE FOLLOWING TABLE IS USED BY STATEMENT ID 2821 *-------------(RIGHT 6 BITS) AND OUTPUT ITEM, 2822 05032 000003 A9X4 OCT 000003 (00) 2823 05033 030100 OCT 030100 (01) + (A$--) 2824 05034 032313 OCT 032313 (02) - (S$--) 2825 05035 031503 OCT 031503 (03) * (M$--) 2826 05036 030403 OCT 030403 (04) / (D$--) 2827 05037 000004 OCT 000004 (05) .NOT. 2828 05040 000006 OCT 000006 (06) .AND. 2829 05041 031405 OCT 031405 (07) .OR. (L$-, 2830 05042 000004 OCT 000004 (10) .LT. 2831 05043 000005 OCT 000005 (11) .LE. 2832 05044 000002 OCT 000002 (12) .EQ. 2833 05045 000007 OCT 000007 (13) .GE. 2834 05046 000000 OCT 000000 (14) .GT. 2835 05047 000000 OCT 000000 (15) .NE. 2836 05050 031003 OCT 031003 (16) = (H$--) 2837 05051 000005 OCT 000005 (17) , 2838 05052 030503 OCT 030503 (20) 'E' (E$--) 2839 05053 031600 OCT 031600 (21) 'C' NC$--) 2840 05054 000001 OCT 000001 (22) 'A' 2841 05055 000000 OCT 000000 (23) 2842 05056 000005 OCT 000005 (24) 'X' 2843 05057 000003 OCT 000003 (25) 'H' 2844 05060 000002 OCT 000002 (26) 'L' 2845 05061 000000 OCT 000000 (27) 'I' 2846 05062 000002 OCT 000002 (30) 'T' 2847 05063 031400 OCT 031400 (31) 'F' (L$--) 2848 05064 000001 OCT 000001 (32) 'Q' 2849 05065 000000 OCT 000000 2850 05066 000001 OCT 000001
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 61
2851 05067 000001 OCT 000001 2852 05070 -1 177742 A9Z9 DAC* -30,1 NO. OF ITEMS IN STMNT NAME TABLE 2853 * 2854 * 2855 * ********************** 2856 * *FIRST NON-SPEC CHECK* 2857 * ********************** 2858 * AT FIRST SHIFT IN LEVEL FROM ZERO, WRAP-UP 2859 * SPECIFICATION STATEMENTS 2860 05071 0 00 00000 T0NP PZE 0 2861 005071 NPT0 EQU T0NP 2862 05072 0 00 00000 T2NP PZE 0 2863 05073 0 00 00000 T1NP PZE 0 2864 05074 0 000000 NP00 DAC ** 2865 05075 0 04 05071 STA NPT0 T0 = (A) 2866 05076 0 02 00040 LDA A 2867 05077 0 04 05073 STA T1NP T1 = A 2868 05100 0 02 05071 LDA NPT0 2869 05101 0 11 00725 CAS K107 =7 2870 05102 0 01 05104 JMP *+2 2871 05103 0 01 05115 JMP NP10 TRACE STMNT. (MAY OCCUR ANYWHERE) 2872 05104 0 11 00051 CAS SPF T0 , G.R. SPF, GO TO NP30 2873 05105 0 01 05154 JMP NP30 T0 = SPF, G0 TO NP25 2874 05106 0 01 05142 JMP NP25 2875 05107 0 02 00607 LDA TC IF TC = C/R 2876 05110 0 07 00756 SUB CRET GO TO NP10 2877 05111 101040 SNZ 2878 05112 0 01 05115 JMP NP10 2879 05113 0 10 03116 JST ER00 ELSE, ILLEGAL STATEMENT 2880 05114 142730 BCI 1,EX SPECIFICATION STATEMENT APPEARS AFTER 2881 * 2882 05115 0 02 00071 NP10 LDA LSTN SPECIFICATION STATEMENT CLEAN-UP 2883 05116 0 04 00040 STA A A = LSTN 2884 05117 101040 SNZ 2885 05120 0 01 05135 JMP NP16 IF ZERO, RETURN 2886 05121 0 10 03656 JST FA00 FETCH ASSIGNS 2887 05122 0 02 00721 LDA K103 STR-REL 2888 05123 0 07 00631 SUB AT 2889 05124 100040 SZE 2890 05125 0 01 05140 JMP NP20 2891 05126 0 02 00630 LDA AF 2892 05127 0 10 14135 JST OS00 OUTPUT STRING RPL 2893 05130 0 10 04233 NP15 JST LO00 DEFINE LOCATION 2894 05131 0 02 00570 LDA NAMF 2895 05132 0 07 04714 SUB A9X1+16 2896 05133 100040 SZE 2897 05134 0 10 13663 JST TRSE OUTPUT TRACE COUPLING 2898 05135 0 02 05073 NP16 LDA T1NP 2899 05136 0 04 00040 STA A 2900 05137 -0 01 05074 JMP* NP00
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 62
2901 05140 0 10 02574 NP20 JST NR00 NON-REL TEST 2902 05141 0 01 05130 JMP NP15 2903 05142 0 02 00070 NP25 LDA LIF 2904 05143 100040 SZE 2905 05144 0 01 05135 JMP NP16 2906 05145 0 02 00073 LDA LSTP IF LSTP + LSTN =0 2907 05146 0 06 00071 ADD LSTN 2908 05147 100040 SZE 2909 05150 0 01 05115 JMP NP10 2910 05151 0 12 00073 IRS LSTP 2911 05152 0 10 03116 JST ER00 'NO PATH' ERROR 2912 05153 150310 BCI 1,PH NO PATH LEADING TO THE STATEMENT 2913 05154 0 02 00051 NP30 LDA SPF IF SPF 0 0 2914 05155 100040 SZE 2915 05156 0 01 05175 JMP NP37 2916 05157 0 02 00607 NP32 LDA TC 2917 05160 0 04 05072 STA T2NP T2 = TC 2918 05161 0 02 00060 LDA RPL 2919 05162 0 04 00055 STA XST XST = RPL 2920 05163 0 02 00061 LDA BDF BLOCK DATA SUBPROGRAM FLAG 2921 05164 100040 SZE SKIP IF NOT BLOCK DATA SUBPROGRAM 2922 05165 0 01 11375 JMP C2 GO TO RELATE COMMON 2923 05166 0 04 00040 STA A SET LISTING FOR OCTAL ADDR. 2924 05167 0 02 13733 LDA OMI5 JMP INSTRUCTION 2925 05170 0 04 00640 STA DF SET LISTING FOR SYMBOLIC INSTR. 2926 05171 0 10 14127 JST OA00 OUTPUT ABSOLUTE 2927 05172 0 01 11375 JMP C2 GO TO RELATE COMMON 2928 05173 0 02 05072 NP35 LDA T2NP 2929 05174 0 04 00607 STA TC 2930 05175 0 02 05071 NP37 LDA T0NP 2931 05176 0 04 00051 STA SPF SPF = T0 2932 05177 0 07 00722 SUB K104 2933 05200 100040 SZE 2934 05201 0 01 05115 JMP NP10 2935 05202 0 04 00040 NP40 STA A SET LISTING FOR OCTAL ADDR. 2936 05203 0 02 00055 LDA XST LOCATION OF INITIAL JUMP 2937 05204 0 10 14135 JST OS00 OUTPUT STRING 2938 05205 0 02 00060 LDA RPL 2939 05206 0 04 00055 STA XST XST = RPL 2940 05207 0 01 05115 JMP NP10 GO TO NP10 2941 * 2942 * ***************** 2943 * *IF( PROCESSOR* 2944 * ***************** 2945 * ARITHMETIC IF ($1 $2 $3) 2946 * IF $2 NOT = $3, JZE $2 2947 * IF $3 NOT = $1, JPL $3 2948 * (IF $1 NOT = NEXT ST NO., JMP $1) LATER 2949 * LOGICAL IF 2950 * OUTPUT JZE 77777 (FOR STRINGING AROUND
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 63
2951 * IMBEDDED STATEMENT) 2952 05210 0 10 02354 V3 JST II00 INPUT ITEM 2953 05211 101040 SNZ 2954 05212 0 01 05220 JMP V310 IM=0 (POSSI8LE UNARY + OR -) 2955 05213 0 02 00643 LDA DFL 2956 05214 100040 SZE 2957 05215 0 01 05220 JMP V310 FIRST ITEM IN EXPRESSION 0.K. 2958 05216 0 10 03116 V308 JST ER00 ERROR.....IF(SENSE SWITCH,.ETC)..... 2959 05217 144706 BCI 1,IF ILLEGAL IF STATEMENT TYPE 2960 05220 140040 V310 CRA (A)=0 2961 05221 0 10 07041 JST EX00 EXPRESSION EVALUATOR 2962 05222 0 02 00671 LDA K4 2963 05223 0 10 02547 JST TS00 )-TEST 2964 05224 140040 CRA 2965 05225 0 04 00040 STA A SET A TO SPECIAL (IF) ENTRY IN DATA POOL 2966 05226 0 04 00000 STA 0 2967 05227 0 02 00045 LDA MFL SET MODE OF EXPRESSION INTO SPECIAL (IF) 2968 05230 0414 67 LGL 9 2969 05231 1 04 15400 STA DP,1 2970 05232 0 10 13663 JST TRSE OUTPUT TRACE COUPLING (IF NECESSARY) 2971 05233 0 02 00045 LDA MFL CHECK MODE FLAG FOR LOGICAL 2972 05234 0 07 00721 SUB K103 2973 05235 100040 SZE 2974 05236 0 01 05253 JMP V320 ARITHMETIC IF 2975 05237 0 02 00070 LDA LIF 2976 05240 100040 SZE 2977 05241 0 01 05216 JMP V308 2978 05242 0 04 00630 STA AF SET ADDR OF SNZ AND JMP INSTR TO 00000 2979 05243 0 02 13741 LDA OMJ2 =SNZ INSTR. 2980 05244 0 10 14127 JST OA00 OUTPUT ABSOLUTE 2981 05245 0 02 00060 LDA RPL SET LIF=CURRENT +DDR, (STRING BACK) 2982 05246 0 04 00070 STA LIF 2983 05247 0 02 13733 LDA OMI5 =JMP 0 INSTR. 2984 05250 0 10 14127 JST OA00 OUTPUT ABSOLUTE 2985 05251 0 10 02525 JST XN00 GO TO NEXT INPUT LINE 2986 05252 0 01 04456 JMP C8 GO TO STATEMENT SCAN 2987 * 2988 05253 0 07 00720 V320 SUB K102 CHECK FOR MODE = COMPLEX 2989 05254 101040 SNZ 2990 05255 0 01 05216 JMP V308 ERROR,...COMPLEX MODE EXPRESSION 2991 05256 0 02 05321 LDA V356 =-3 2992 05257 0 04 00041 STA I 2993 05260 0 10 02443 V324 JST IS00 INPUT STATEMENT NUMBER 2994 05261 0 10 02676 JST STXI SET INDEX TO I 2995 05262 0 02 00040 LDA A 2996 05263 1 04 05334 STA T1V3+3,1 SAVE BRANCH ADDRESSES 2997 05264 0 12 00041 IRS I I=I+1 2998 05265 0 01 05316 JMP V350 CHECK FOR TERMINAL COMMA 2999 05266 0 02 05333 LDA T3V3 3000 05267 0 11 05332 CAS T2V3 CHECK FOR ADDR-2 = ADDR-3
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 64
3001 05270 0 01 05272 JMP *+2 3002 05271 0 01 05302 JMP V330 ADDR-2 = ADDR-3 3003 05272 140040 CRA 3004 05273 0 04 00040 STA A 3005 05274 0 02 13741 LDA OMJ2 =SNZ INSTR. 3006 05275 0 04 00640 STA DF 3007 05276 0 10 14127 JST OA00 OUTPUT ABSOLUTE 3008 05277 0 02 05332 LDA T2V3 3009 05300 0 10 05322 JST V360 OUTPUT A JMP(ADDR-2) INSTR. 3010 05301 0 02 05333 LDA T3V3 3011 05302 0 11 05331 V330 CAS T1V3 CHECK FOR ADDR-3 = ADDR-2 3012 05303 0 01 05305 JMP *+2 3013 05304 0 01 05313 JMP V340 ADDR-3 = ADDR-1 3014 05305 140040 CRA 3015 05306 0 04 00040 STA A 3016 05307 0 02 13742 LDA OMJ3 =SMI INSTR. 3017 05310 0 10 14127 JST OA00 OUTPUT ABSOLUTE 3018 05311 0 02 05333 LDA T3V3 3019 05312 0 10 05322 JST V360 OUTPUT A JMP (ADDR-3) INSTR. 3020 05313 0 02 05331 V340 LDA T1V3 3021 05314 0 04 00053 STA IFF SET IFF ' ADDR-1 3022 05315 0 01 04264 JMP C5 GO TO ILL-TERM 3023 * 3024 05316 0 02 00672 V350 LDA K5 3025 05317 0 10 02547 JST TS00 COMMA TEST 3026 05320 0 01 05260 JMP V324 INPUT NEXT STATEMENT NO. 3027 * 3028 05321 177775 V356 OCT 177775 -3 3029 * 3030 *---------------SUBROUTINE TO OUTPUT A RELATIVE JMP 3031 05322 0 000000 V360 DAC ** 3032 05323 0 04 00040 STA A SET ADDR. OF JUMP REF. TO A 3033 05324 140040 CRA 3034 05325 000201 IAB SET (B) = 0 3035 05326 0 02 13733 LDA OMI5 SET (A) = JMP INSTR. 3036 05327 0 10 12467 JST OB00 OUTPUT OA 3037 05330 -0 01 05322 JMP* V360 EXIT 3038 * 3039 05331 0 00 00000 T1V3 *** ** ADDR-1 3040 05332 0 00 00000 T2V3 *** ** ADDR-2 3041 05333 0 00 00000 T3V3 *** ** ADDR-3 3042 * 3043 * ******* 3044 * *GO TO* 3045 * ******* 3046 * CHECK FOR NORMAL (R740), COMPUTED (R710) OR 3047 * ASSIGNED (R730). INPUT BRANCH LIST USED BY BOTH 3048 * R710 AND R730 FOR STATEMENT NO. LIST. 3049 * 3050 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 65
3051 05334 0 10 02525 R7 JST XN00 EXAMINE NEXT CHAR 3052 05335 100040 SZE 3053 05336 0 01 05343 JMP R78 GO TO TEST DFL 3054 05337 0 10 02443 JST IS00 INPUT STMNT = 3055 05340 0 02 00040 LDA A (GO TO 20) 3056 05341 0 04 00053 STA IFF IFF = A 3057 05342 0 01 04264 JMP C5 G0 TO ILLTERM 3058 05343 0 02 00643 R78 LDA DFL 3059 05344 100040 SZE 3060 05345 0 01 05356 JMP R7D 3061 05346 0 10 02437 JST IR00 GO TO I (10, 20, 30} 3062 05347 0400 40 LRL 32 3063 05350 0 02 13740 LDA K206 OUTPUT JMP* INSTRUCTION 3064 05351 0 10 12467 JST OB00 OUTPUT OA 3065 05352 0 02 00752 LDA K134 3066 05353 0 10 02547 JST TS00 , TEST 3067 05354 0 10 05414 JST IB00 INPUT BRANCH LIST 3068 05355 0 01 04262 JMP B6 GO TO JUMP 3069 05356 0 10 05414 R7D JST IB00 INPUT BRANCH LIST GO TO (10,11,12), I 3070 05357 0 02 00752 LDA K134 3071 05360 0 10 02547 JST TS00 , TEST 3072 05361 0 10 02437 JST IR00 INPUT INT VAR 3073 05362 0400 40 LRL 32 3074 05363 0 02 13735 LDA K200 OUTPUT LDA 3075 05364 0 10 12467 JST OB00 OUTPUT OA 3076 05365 140040 CRA 3077 05366 0 04 00040 STA A 3078 05367 0 04 00630 STA AF CAUSE OCTAL ADDRESS IN LISTING 3079 05370 0 02 05442 LDA K75 3080 05371 0 10 14127 JST OA00 OUTPUT ABS (STA 0) - INDEX LOAD 3081 05372 0 02 00060 LDA RPL 3082 05373 0 04 00630 STA AF CAUSE RPL T0 BE IN LISTING 3083 05374 0 02 13753 LDA K207 3084 05375 0 10 13773 JST OR00 OUTPUT RELATIVE (JMP RPL,1) 3085 05376 0 02 00113 LDA L0 3086 05377 0 07 00717 R7F SUB K101 3087 05400 0 04 00041 STA I I = L (0) 3088 05401 0 10 02676 JST STXI 3089 05402 1 02 15400 LDA DP,1 3090 05403 0 04 00040 STA A 3091 05404 0 10 02672 JST STXA 3092 05405 101040 SNZ 3093 05406 0 01 04262 JMP B6 FINISHED LOOPING ON LIST 3094 05407 0410 60 LLL 16 3095 05410 0 02 13733 LDA K201 OUTPUT JMP INSTRUCTIONS 3096 05411 0 10 12467 JST OB00 OUTPUT OA (JMP 0) 3097 05412 0 02 00041 LDA I 3098 05413 0 01 05377 JMP R7F 3099 * ******************* 3100 * *INPUT BRANCH LIST*
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 66
3101 * ******************* 3102 * INPUT STATEMENT NO. LISTS FOR GO TO PROCESSOR 3103 05414 0 000000 IB00 DAC ** 3104 05415 0 02 00113 LDA L0 3105 05416 0 07 00717 SUB K101 3106 05417 0 04 00041 STA I I = L0-1 3107 05420 0 10 01256 JST CH00 INPUT CHAR 3108 05421 0 02 00702 LDA K17 3109 05422 0 10 02547 JST TS00 (- TEST 3110 05423 0 10 02443 IB10 JST IS00 INPUT STMNT = 3111 05424 0 10 02676 JST STXI 3112 05425 0 02 00040 LDA A 3113 05426 1 04 15400 STA DP,1 SET POINTER OF ST. N0. INTO TRIAD TABLE 3114 * AREA 3115 05427 0 02 00041 LDA I DP (J) = A 3116 05430 0 07 00717 SUB K101 3117 05431 0 04 00041 STA I I = I-1 3118 05432 0 02 00607 LDA TC IF TC = , GO TO IB10 3119 05433 0 07 00672 SUB K5 3120 05434 101040 SNZ 3121 05435 0 01 05423 JMP IB10 CONTINUE LOOP 3122 05436 140040 CRA 3123 05437 1 04 15377 STA DP-1,1 SET END FLAG INTO TABLE 3124 05440 0 10 02555 JST IP00 )- INPUT OPEN 3125 05441 -0 01 05414 JMP* IB00 EXIT 3126 05442 0 04 00000 K75 STA 0 3127 * 3128 * 3129 * ******** 3130 * *ASSIGN* 3131 * ******** 3132 * CHECK TO SEE THAT 'TO' IS INCLUDED PROPERLY 3133 05443 0 10 02443 W3 JST IS00 INPUT STMNT = 3134 05444 0 02 00040 LDA A 3135 05445 0 04 05506 STA T1W3 SAVE A 3136 05446 0 02 00607 LDA TC 3137 05447 0 07 00705 SUB K34 CHECK FOR T0 3138 05450 100040 SZE 3139 05451 0 01 05460 JMP W305 CLEAR A FOR OUTPUT REL 3140 05452 0 04 00040 STA A CAUSE OCTAL ADDRESS IN LIST 3141 05453 0 10 01256 JST CH00 INPUT CHAR 3142 05454 0 02 00607 LDA TC 3143 05455 0 07 00706 SUB K35 3144 05456 101040 SNZ 3145 05457 0 01 05462 JMP *+3 3146 05460 0 10 03116 W305 JST ER00 ERROR 3147 05461 152317 BCI 1,TO GO TO IN ASSIGN STATEMENT 3148 05462 0 02 00060 LDA RPL 3149 05463 0 06 00720 ADD K102 3150 05464 0 04 00630 STA AF OUTPUT REL LDA *+2
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 67
3151 05465 0 02 13735 LDA K200 OUTPUT LDA *+2 3152 05466 0 10 13773 JST OR00 OUTPUT REL 3153 05467 0 02 00060 LDA RPL 3154 05470 0 06 00720 ADD K102 3155 05471 0 04 00630 STA AF OUTPUT REL JMP *+2 3156 05472 0 02 13733 LDA K201 3157 05473 0 10 13773 JST OR00 OUTPUT OA 3158 05474 0400 40 LRL 32 3159 05475 0 02 05506 LDA T1W3 3160 05476 0 04 00040 STA A RESTORE A 3161 05477 140040 CRA 3162 05500 0 10 12467 JST OB00 OUTPUT DAC ST. NO. 3163 05501 0 10 02437 JST IR00 INPUT INTEGER VARIABLE 3164 05502 0400 40 LRL 32 3165 05503 0 02 13736 LDA K202 OUTPUT STA INSTRUCTION 3166 05504 0 10 12467 JST OB00 OUTPUT OA 3167 05505 0 01 04266 JMP A1 GO TO C/R TEST 3168 05506 0 00 00000 T1W3 PZE ** TEMP STORE 3169 * 3170 * 3171 * ************************ 3172 * *DO STATEMENT PROCESSOR* 3173 * ************************ 3174 * STACK INFO IN DO TABLE. OUTPUT DO INITIAL 3175 * CODE 3176 05507 0 00 00000 C9T0 PZE ** 3177 05510 0 10 02443 C9 JST IS00 INPUT STATEMENT = 3178 05511 0 10 02574 JST NR00 NON-REL TEST 3179 05512 0 02 00040 LDA A 3180 05513 0 04 05507 STA C9T0 T0 = A 3181 05514 0 10 01251 JST UC00 UNINPUT COLUMN 3182 05515 0 10 02437 JST IR00 3183 05516 0 02 05525 LDA C951 3184 05517 0 10 02547 JST TS00 3185 05520 0 02 05507 LDA C9T0 (A) = T0 3186 05521 000201 IAB 3187 05522 0 10 06702 JST DP00 DO INPUT 3188 05523 0 10 06747 JST DS00 DO INITIALIZE 3189 05524 0 01 04264 JMP C5 GO TO ILLTERM 3190 05525 000016 C951 OCT 16 = 3191 * 3192 * 3193 * ********** 3194 * *END FILE* 3195 * ********** 3196 * *********** 3197 * *BACKSPACE* 3198 * *REWIND * 3199 * *********** 3200 05526 0 02 05537 V6 LDA K71
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 68
3201 05527 0 04 00571 V6A STA NAMF+1 3202 05530 0 10 02722 JST NF00 SET UP NAMF 3203 05531 0 10 12337 JST OI00 OUTPUT I/0 LINK 3204 05532 0 01 04266 JMP A1 GO TO C/R TEST 3205 05533 0 02 05540 V7 LDA K72 3206 05534 0 01 05527 JMP V6A 3207 05535 0 02 05541 V8 LDA K73 3208 05536 0 01 05527 JMP V6A 3209 05537 143316 K71 BCI 1,FN FN 3210 05540 142316 K72 BCI 1,DN 3211 05541 141316 K73 BCI 1,BN BN 3212 * 3213 * 3214 * ************** 3215 * *READ * 3216 * *WRITE * 3217 * *INPUT FORMAT* 3218 * ************** 3219 * LIST ELEMENT DATA AND IMPLIED DO CONTROL 3220 * STACKED IN TRIAD TABLE. PROCESSED BY 3221 * OUTPUT TRIAD ROUTINE, SPECIAL OPERATORS 3222 * ARE -I = DO INITIALIZATION 3223 * T = DO TERMINATION 3224 * Q = I/0 ARG TRANSFER 3225 05542 0 00 00000 T0V5 PZE ** 3226 05543 0 02 00710 V5 LDA K41 FSRN 3227 05544 0 04 00571 STA NAMF+1 3228 05545 0 10 02525 JST XN00 EXAM NEXT CHAR 3229 05546 100040 SZE 3230 05547 0 01 05554 JMP V5A GENERAL READ 3231 05550 0 02 05736 LDA V5K4 3232 05551 0 01 05754 JMP V10A CARD READ 3233 05552 0 02 00707 V4 LDA K40 NAWF = F$WN 3234 05553 0 04 00571 STA NAMF+1 3235 05554 0 10 02722 V5A JST NF00 SET UP REMAINING NAME 3236 05555 0 02 00057 LDA D 3237 05556 0 04 05732 STA V5T1 3238 05557 0 10 01256 JST CH00 INPUT CHARACTER 3239 05560 0 02 00702 LDA K17 ='250......( 3240 05561 0 10 02547 JST TS00 (-TEST 3241 05562 0 10 12337 JST OI00 OUTPUT I0 LINK 3242 05563 0 02 00607 LDA TC IF TC .NE. , 3243 05564 0 07 00752 SUB K134 ='17 (,) 3244 05565 100040 SZE G0 10 V5J 3245 05566 0 01 05726 JMP V5J 3246 05567 0 10 05740 JST V5X INPUT FORMAT 3247 05570 0 10 02555 V5B JST IP00 ) - INPUT OPERATOR 3248 05571 0 02 00607 LDA TC 3249 05572 0 07 00756 SUB CRET TEST FOR TC=C/R 3250 05573 100040 SZE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 69
3251 05574 0 01 05603 JMP V5C N0, G0 TO V5C 3252 05575 0 02 00711 V5B2 LDA K42 YES. NAMF = ND 3253 05576 0 04 00571 STA NAMF+1 3254 05577 0 10 12363 JST CN00 CALL NAME 3255 05600 0 02 05732 LDA V5T1 3256 05601 0 04 00057 STA D 3257 05602 0 01 04266 JMP A1 G0 TO C/R TEST 3258 05603 0 10 01251 V5C JST UC00 3259 05604 140040 V5C5 CRA 3260 05605 0 04 00654 STA IOF IOF = 0 3261 05606 0 10 02354 V5D JST II00 INPUT ITEM 3262 05607 100040 SZE 3263 05610 0 01 05625 JMP V5E IF (A) NOT 0, GO TO V5E 3264 05611 0 02 00702 LDA K17 3265 05612 0 10 02547 JST TS00 (-TEST 3266 05613 140040 CRA 3267 05614 0 04 00577 STA O2 O2 = 0 3268 05615 0 02 00654 LDA IOF 3269 05616 0 04 00576 STA O1 01 = IOF 3270 05617 0 02 05733 LDA V5K1 = '27 3271 05620 0 04 00600 STA P 3272 05621 0 10 10436 JST ET00 3273 05622 0 02 00044 LDA L 3274 05623 0 04 00654 STA IOF IOF = L 3275 05624 0 01 05606 JMP V5D GO TO V5D 3276 05625 0 10 02611 V5E JST NC00 NON-CONSTANT TEST 3277 05626 0 02 00655 LDA IU IF IU NOT ARR 3278 05627 0 07 00721 SUB K103 3279 05630 100040 SZE 3280 05631 0 01 05675 JMP V5H GO TO V5H 3281 05632 0 02 00607 LDA TC 3282 05633 0 07 00702 SUB K17 IF TC NOT -(, 3283 05634 100040 SZE 3284 05635 0 01 05673 JMP V5G GO TO V5G 3285 05636 0 02 00633 LDA D0 3286 05637 0 04 05542 STA T0V5 T5 = D0 3287 05640 0 02 00721 LDA K103 3288 05641 140407 TCA 3289 05642 0 10 07041 JST EX00 EXPRESSION 3290 05643 0 02 05542 LDA T0V5 3291 05644 0 04 00633 STA D0 D0 = T5 3292 05645 0 02 00040 V5E5 LDA A 3293 05646 0 04 00577 STA O2 3294 05647 0 02 00633 LDA D0 O2 = D0 3295 05650 0 04 00576 STA O1 3296 05651 0 02 05734 LDA V5K2 ='32 3297 05652 0 04 00600 STA P 3298 05653 0 10 10436 JST ET00 ENTER TRIAD 3299 05654 0 02 00607 V5E7 LDA TC IF TC = COMMA 3300 05655 0 07 00752 SUB K134 GO T0 V5D
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 70
3301 05656 101040 SNZ 3302 05657 0 01 05606 JMP V5D 3303 05660 0 02 00654 LDA IOF I = IOF 3304 05661 0 04 00041 STA I 3305 05662 100040 SZE IF NOT ZERO, 3306 05663 0 01 05666 JMP V5F GO TO V5F 3307 05664 0 10 12700 JST OT00 OUTPUT TRIADS 3308 05665 0 01 05575 JMP V5B2 GO TO V5B2 3309 05666 0 10 02555 V5F JST IP00 )-INPUT OPERATOR 3310 05667 0 10 02676 JST STXI 3311 05670 1 02 15401 LDA DP+1,1 3312 05671 0 04 00654 STA IOF IOF = O1 (I) 3313 05672 0 01 05654 JMP V5E7 3314 05673 0 10 04005 V5G JST KT00 K = = WDS/ITEM 3315 05674 0 01 05645 JMP V5E5 GO TO V5E5 3316 05675 0 10 03642 V5H JST TV00 TAG VARIABLE 3317 05676 0 02 00607 LDA TC 3318 05677 0 07 00701 SUB K16X ='16 (=) 3319 05700 100040 SZE GO TO V5E5 3320 05701 0 01 05645 JMP V5E5 ELSE, 3321 05702 0 10 02635 JST IT00 INTEGER TEST 3322 05703 0 02 00654 LDA IOF 3323 05704 101040 SNZ IF IOF = ZERO OR L 3324 05705 0 01 05711 JMP V5H7 3325 05706 0 07 00044 SUB L 3326 05707 100040 SZE 3327 05710 0 01 05713 JMP *+3 ERROR 3328 05711 0 10 03116 V5H7 JST ER00 3329 05712 150322 BCI 1,PR PARENTHESES MISSING IN DO STATEMENT 3330 05713 0 10 06702 JST DP00 DO INPUT 3331 05714 0 02 00654 LDA IOF 3332 05715 0 04 00041 STA I 3333 05716 0 10 02676 JST STXI 3334 05717 0 02 00057 LDA D 3335 05720 1 04 15400 STA DP,1 O2(IOF) = D 3336 05721 0 04 00577 STA O2 O2 = D 3337 05722 0 02 05735 LDA V5K3 ='30 3338 05723 0 04 00600 STA P 3339 05724 0 10 10436 JST ET00 ENTER TRIAD 'T'. 3340 05725 0 01 05666 JMP V5F 3341 05726 140040 V5J CRA 3342 05727 0 04 00040 STA A A = 0 3343 05730 0 10 14127 JST OA00 OUTPUT ABSOLUTE 3344 05731 0 01 05570 JMP V5B 3345 05732 0 00 00000 V5T1 PZE 0 3346 05733 000027 V5K1 OCT 27 3347 05734 000032 V5K2 OCT 32 3348 05735 000030 V5K3 OCT 30 3349 05736 151263 V5K4 BCI 1,R3 3350 05737 153664 V5K5 BCI 1,W4
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 71
3351 05740 0 000000 V5X DAC ** INPUT FORMAT 3352 05741 0 10 02525 JST XN00 EXAM NEXT CHARACTER 3353 05742 100040 SZE 3354 05743 0 01 05750 JMP V5X5 GO TO INPUT ARRAY NAME 3355 05744 0 10 02443 JST IS00 INPUT STMNT NO. 3356 05745 0400 40 V5X2 LRL 32 OUTPUT DAC A 3357 05746 0 10 12467 JST OB00 OUTPUT 0A 3358 05747 -0 01 05740 JMP* V5X RETURN 3359 05750 0 10 02373 V5X5 JST NA00 INPUT NAME 3360 05751 0 10 02626 JST AT00 ARRAY TEST 3361 05752 0 01 05745 JMP V5X2 3362 * PRINT 3363 05753 0 02 05737 V10 LDA V5K5 PRINTER 3364 05754 0 04 00571 V10A STA NAMF+1 3365 05755 0 10 02722 JST NF00 SET UP REST 0F NAME 3366 05756 0 10 12363 JST CN00 CALL NAME 3367 05757 0 10 05740 JST V5X INPUT FORMAT 3368 05760 0 02 00607 LDA TC 3369 05761 0 07 00752 SUB K134 3370 05762 100040 SZE SKIP IF COMMA 3371 05763 0 01 05575 JMP V5B2 3372 05764 0 02 00057 LDA D 3373 05765 0 04 05732 STA V5T1 3374 05766 0 01 05604 JMP V5C5 3375 * 3376 * 3377 * ************************** 3378 * *FORMAT * 3379 * *INPUT FORMAT STRING * 3380 * *INPUT NUMERIC FORMAT STR* 3381 * *NON ZERO TEST STRING * 3382 * ************************** 3383 05767 0 00 00000 T0V2 PZE 0 3384 05770 0 00 00000 T2V2 PZE 0 3385 005767 V2T0 EQU T0V2 3386 005770 V2T2 EQU T2V2 3387 05771 0 02 00702 V2 LDA K17 3388 05772 0 10 12437 JST OK00 OUTPUT RACK 3389 05773 140040 CRA 3390 05774 0 04 05767 STA T0V2 TO = 0 3391 05775 0 02 00073 LDA LSTP IF LSTOP .NE. 0 3392 05776 100040 SZE 3393 05777 0 01 06126 JMP V2K GO TO V2K 3394 06000 0 10 06160 V2A JST SI00 INPUT FORMAT STRING 3395 06001 100040 SZE 3396 06002 0 01 06012 JMP V2B 3397 06003 0 02 00607 V2A1 LDA TC 3398 06004 0 07 00676 SUB K12 IF TC NOT MINUS 3399 06005 100040 SZE 3400 06006 0 01 06070 JMP V2F GO TO V2F
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 72
3401 06007 0 10 06153 JST IN00 INPUT NUMERIC FORMAT STRING 3402 06010 140040 CRA 3403 06011 0 04 01475 STA TID TID = 0 3404 06012 0 02 00607 V2B LDA TC IF TC .NE. P 3405 06013 0 07 06224 SUB K46 3406 06014 100040 SZE 3407 06015 0 01 06117 JMP V2H GO TO V2H 3408 06016 0 10 06160 JST SI00 INPUT FORMAT STRING 3409 06017 100040 SZE 3410 06020 0 10 06145 JST NZ00 IF (A) .NE. 0 3411 06021 0 02 00607 V2C LDA TC 3412 06022 0 11 02543 CAS K52 IF TC = D,E,F, OR G 3413 06023 101000 NOP 3414 06024 0 01 06026 JMP *+2 3415 06025 0 01 06036 JMP V2DA 3416 06026 0 11 06230 CAS K53 3417 06027 0 01 06057 JMP V2E5-2 3418 06030 101000 NOP 3419 06031 0 10 06153 JST IN00 INPUT NUMERIC FORMAT STRING 3420 06032 0 10 06145 JST NZ00 NON-ZERO STRING TEST 3421 06033 0 02 00675 LDA K10 3422 06034 0 10 02547 JST TS00 PERIOD TEST 3423 06035 0 10 06153 V2D JST IN00 INPUT NUMERIC FORMAT STRING 3424 06036 0 02 00607 V2DA LDA TC IF TC = ) 3425 06037 0 07 00671 SUB K4 3426 06040 100040 SZE 3427 06041 0 01 06052 JMP V2E 3428 06042 0 10 01256 JST CH00 3429 06043 0 10 12437 JST OK00 INPUT CHAR AND OUTPUT PACK 3430 06044 0 02 05767 LDA T0V2 IF F4 + ( Z ( 3431 06045 0 07 00717 SUB K101 GO TO V2E 3432 06046 0 04 05767 STA T0V2 3433 06047 100400 SPL 3434 06050 0 01 04266 JMP V2N ELSE, 3435 06051 0 01 06036 JMP V2DA 3436 * GO TO C/R TEST 3437 06052 0 02 00607 V2E LDA TC IF TC =, 3438 06053 0 07 00672 SUB K5 3439 06054 101040 SNZ 3440 06055 0 01 06000 JMP V2A GO TO V2A 3441 06056 0 02 00674 LDA K9 3442 06057 0 10 02547 JST TS00 / TEST 3443 06060 0 01 06000 JMP V2A 3444 06061 0 10 06160 V2E5 JST SI00 INPUT FORMAT STRING 3445 06062 100040 SZE IF (A) NOT 0, 3446 06063 0 01 06012 JMP V2B GO TO V2B 3447 06064 0 02 00643 LDA DFL IF DFL .NE. ZERO, 3448 06065 100040 SZE 3449 06066 0 01 06036 JMP V2DA GO TO V2DA 3450 06067 0 01 06003 JMP V2A1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 73
3451 06070 0 02 00607 V2F LDA TC IF TC = H 3452 06071 0 11 02544 CAS K48 3453 06072 0 01 06074 JMP *+2 3454 06073 0 01 06212 JMP V2P GO TO V2P 3455 06074 0 11 06225 V2FB CAS K47 3456 06075 0 01 06077 JMP *+2 3457 06076 0 01 06061 JMP V2E5 3458 06077 0 11 00702 CAS K17 IF TC = (, 3459 06100 0 01 06102 JMP *+2 3460 06101 0 01 06215 JMP V2Q GO TO V2Q 3461 06102 0 02 00607 LDA TC IF TC .NE. A,I, OR L 3462 06103 0 11 06226 CAS K49 A 3463 06104 0 01 06106 JMP *+2 3464 06105 0 01 06114 JMP V2G 3465 06106 0 11 00712 CAS K50 I 3466 06107 0 01 06111 JMP *+2 3467 06110 0 01 06114 JMP V2G 3468 06111 0 07 06227 SUB K51 L 3469 06112 100040 SZE 3470 06113 0 01 06021 JMP V2C 3471 06114 0 10 06153 V2G JST IN00 INPUT NUMERIC FORMAT STRING 3472 06115 0 10 06145 JST NZ00 NON-ZERO STRING TEST 3473 06116 0 01 06036 JMP V2DA 3474 06117 0 10 06145 V2H JST NZ00 NON-ZERO STRING TEST 3475 06120 0 02 00607 LDA TC 3476 06121 0 07 02544 SUB K48 3477 06122 100040 SZE 3478 06123 0 01 06070 JMP V2F 3479 06124 0 10 06664 V2J JST HS00 TRANSMIT HOLLERITH STRING 3480 06125 0 01 06061 JMP V2E5 GO T0 V2E5 3481 06126 0 02 00071 V2K LDA LSTN IF LSTN = 0, 3482 06127 100040 SZE 3483 06130 0 01 06133 JMP *+3 3484 06131 0 10 03116 JST ER00 ERR0R, NO PATH 3485 06132 147306 BCI 1,NF NO REFERENCE T0 FORMAT STATEMENT 3486 06133 0 02 00060 LDA RPL LIF = RPL 3487 06134 0 04 00070 STA LIF 3488 06135 140040 CRA 3489 06136 0 04 00040 STA A 3490 06137 0 04 00630 STA AF 3491 06140 141206 AOA 3492 06141 0 04 00640 STA DF 3493 06142 0 02 13733 LDA K201 = JMP 0 3494 06143 0 10 14127 JST OA00 OUTPUT ABS 3495 06144 0 01 06000 JMP V2A GO T0 V2A 3496 * 3497 06145 0 000000 NZ00 DAC ** 3498 06146 0 02 01475 LDA TID 3499 06147 100040 SZE 3500 06150 -0 01 06145 JMP* NZ00
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 74
3501 06151 0 10 03116 NZ10 JST ER00 3502 06152 147332 BCI 1,NZ NON-ZERO STRING TEST FAILED 3503 06153 0 000000 IN00 DAC ** 3504 06154 0 10 06160 JST SI00 (A) = 0 IS ERROR CONDITION 3505 06155 100040 SZE 3506 06156 -0 01 06153 JMP* IN00 3507 06157 0 01 06151 JMP NZ10 3508 06160 0 000000 SI00 DAC ** 3509 06161 140040 CRA 3510 06162 0 04 01475 STA TID ID = T2 = 0 3511 06163 0 04 05770 SI05 STA V2T2 3512 06164 0 10 01256 JST CH00 INPUT CHAR 3513 06165 0 10 12437 JST OK00 OUTPUT PACK 3514 06166 0 02 00607 LDA TC 3515 06167 0 07 00715 SUB K60 ASC-2 ZERO 3516 06170 0 11 00742 CAS K124 3517 06171 0 01 06206 JMP SI10 3518 06172 101000 NOP 3519 06173 100400 SPL 3520 06174 0 01 06206 JMP SI10 3521 06175 0 04 00607 STA TC 3522 06176 0 02 01475 LDA TID TID = 10*TID+TC 3523 06177 0415 75 ALS 3 3524 06200 0 06 01475 ADD TID 3525 06201 0 06 01475 ADD TID 3526 06202 0 06 00607 ADD TC 3527 06203 0 04 01475 STA TID 3528 06204 0 02 00717 LDA K101 T2 =1 3529 06205 0 01 06163 JMP SI05 3530 06206 0 02 05770 SI10 LDA V2T2 (A) = ERROR CONDITION OR NOT 3531 06207 -0 01 06160 JMP* SI00 3532 06210 0 10 03116 V2M JST ER00 3533 06211 143322 BCI 1,FR FORMAT STATEMENT ERROR 3534 004266 V2N EQU A1 3535 06212 0 02 00717 V2P LDA K101 3536 06213 0 04 01475 STA ID ID = 1 3537 06214 0 01 06124 JMP V2J GO T0 V2J 3538 06215 0 02 05767 V2Q LDA T0V2 3539 06216 141206 AOA 3540 06217 0 04 05767 STA T0V2 3541 06220 0 07 00721 SUB K103 3542 06221 100040 SZE 3543 06222 0 01 06000 JMP V2A 3544 06223 0 01 06210 JMP V2M 3545 06224 000320 K46 OCT 320 0P 3546 06225 000330 K47 OCT 330 0X 3547 002544 K48 EQU K14 0H 3548 06226 000301 K49 OCT 301 0A 3549 06227 000314 K51 OCT 314 0L 3550 002543 K52 EQU K11 0D
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 75
3551 06230 000307 K53 OCT 307 0G 3552 000712 K50 EQU K43 0I 3553 * 3554 * 3555 * ******* 3556 * *STOP * 3557 * *PAUSE* 3558 * ******* 3559 * PAUSE AND STOP CENERATE CALLS TO F$HT 3560 06231 0 00 00000 T1W7 PZE 0 3561 06232 0 00 00000 T2W7 PZE 0 3562 06233 0 02 06300 W7 LDA K55 3563 06234 0 04 06231 STA T1W7 3564 06235 0 02 06276 W7A LDA K74 3565 06236 0 04 00571 STA NAMF+1 NAMF = F$HT 3566 06237 0 10 02722 JST NF00 SET-UP REMAINING CHAR 0F NAME 3567 06240 0 10 02525 JST XN00 EXAMINE NEXT CHAR 3568 06241 0 02 00607 LDA TC 3569 06242 0 07 00756 SUB CRET 3570 06243 101040 SNZ 3571 06244 0 01 06251 JMP W7C TC = C/R - NOTING FOLLOWING 3572 06245 0 10 02432 JST IV00 INPUT INTEGER/VARIA8LE 3573 06246 0400 40 LRL 32 3574 06247 0 02 13735 LDA K200 OUTPUT LDA 3575 06250 0 10 12467 JST OB00 OUTPUT OA 3576 06251 0 10 12363 W7C JST CN00 CALL NAME 3577 06252 140040 CRA 3578 06253 0 04 00640 STA DF DF = 0 3579 06254 0 02 06231 LDA T1W7 3580 06255 0 04 01475 STA ID 3581 06256 0 10 04241 JST AI00 ASSIGN INTEGER CONSTANT 3582 06257 140040 CRA OUTPUT DAC 3583 06260 0 10 12467 JST OB00 OUTPUT OA OF ST/PA OR HT 3584 06261 0 02 06231 LDA T1W7 3585 06262 0 07 06277 SUB K54 3586 06263 101040 SNZ 3587 06264 0 01 04264 JMP C5 PA-NOT THE CASE 3588 06265 0 02 00060 LDA RPL 3589 06266 0 04 00630 STA AF OUTPUT JMP * 3590 06267 140040 CRA 3591 06270 0 04 00040 STA A CAUSE LISTING TO HAVE OCTAL ADDRESS 3592 06271 0 02 13733 LDA K201 3593 06272 0 10 13773 JST OR00 OUTPUT RELATWE 3594 06273 0 01 04262 JMP B6 3595 06274 0 02 06277 W8 LDA K54 3596 06275 0 01 06234 JMP W7+1 3597 06276 144324 K74 BCI 1,HT HT 3598 06277 150301 K54 BCI 1,PA PA 3599 06300 151724 K55 BCI 1,ST ST 3600 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 76
3601 * 3602 * - R8 CALL 3603 * GENERATES CALL DIRECTLY OR USES EXPRESSION TO 3604 * ANALYZE AN ARGUMENT LIST. 3605 06301 0 10 02520 R8 JST SY00 INPUT SYMBOL 3606 06302 0 02 00655 LDA IU 3607 06303 0 07 00717 SUB K101 =1 (SUB) 3608 06304 100040 SZE SKIP IF IU=SUBR, 3609 06305 0 10 03465 JST TG00 TAG SUB PROCRAM 3610 06306 0 02 00607 LDA TC 3611 06307 0 07 00702 SUB K17 ='250 ( ( ) 3612 06310 100040 SZE 3613 06311 0 01 06314 JMP *+3 3614 06312 0 02 00717 G2B LDA K101 SET A=1 BEFORE EXPRESSION 3615 06313 0 01 06325 JMP G2A 3616 06314 140040 CRA 3617 06315 000201 IAB (B)=0 3618 06316 0 02 13730 LDA OMI2 =JST INSTR, 3619 06317 0 10 12467 JST OB00 OUTPUT 0A 3620 06320 0 01 04266 JMP A1 CR TEST 3621 * ********************** 3622 * *ASSIGNMENT STATEMENT* 3623 * ********************** 3624 06321 0 02 00722 G2 LDA K104 3625 06322 0 10 05074 JST NP00 FIRST NON-SPEC CHECK 3626 06323 0 10 02354 JST II00 INPUT ITEM 3627 06324 0 02 00720 LDA K102 SET A = 2 BEFORE EXPRESSION 3628 06325 140407 G2A TCA 3629 06326 0 10 07041 JST EX00 3630 06327 0 01 04266 JMP A1 3631 * 3632 * 3633 * ******** 3634 * *RETURN* 3635 * ******** 3636 * OPTIMIZES EXIT CODING FOR FUNCTIONS TO MINIMIZE 3637 * FETCHES OF THE FUNCTION VALUE. 3638 06330 0 02 00047 R9 LDA SBF A = SBF, 3639 06331 0 04 00040 STA A IF ZERO, GO TO ERROR 3640 06332 100040 SZE 3641 06333 0 01 06336 JMP *+3 3642 06334 0 10 03116 JST ER00 3643 06335 151324 BCI 1,RT RETURN NOT ALLOWED IN MAIN PROGRAM 3644 06336 0 02 00046 LDA SFF ELSE, IF SFF = 0, 3645 06337 101040 SNZ 3646 06340 0 01 06356 JMP R9C GO TO R9C 3647 06341 0 11 00717 CAS K101 IF SFF = 1, GO TO R98 3648 06342 0 01 06344 JMP *+2 3649 06343 0 01 06351 JMP R9B 3650 06344 0 04 00630 STA AF OUTPUT REL JMP TO 1ST RETN
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 77
3651 06345 0400 40 LRL 32 3652 06346 0 04 00040 STA A SET A=0 TO OUTPUT OCTAL ADDR ON LISTING 3653 06347 0 02 13733 LDA K201 3654 06350 0 01 06362 JMP R9A 3655 06351 000201 R9B IAB 3656 06352 0 02 00060 LDA RPL SFF = RPL 3657 06353 0 04 00046 STA SFF 3658 06354 0 02 06364 LDA K56 0UTPUT ITEM (F,A) 3659 06355 0 10 13147 JST OM00 3660 06356 0400 40 R9C LRL 32 3661 06357 0 04 00040 STA A SET FOR OCTAL ADDHESS IW LISTING 3662 06360 0 04 00630 STA AF SET RELATIVE ADDRESS TO ZERO 3663 06361 0 02 13740 LDA K206 JUMP I, 0 3664 06362 0 10 13773 R9A JST OR00 OUTPUT REL 3665 06363 0 01 04262 JMP B6 EXIT 3666 06364 000031 K56 OCT 31 P CODE FOR 'F' (FETCH) 3667 * 3668 * 3669 * ******************** 3670 * *STATEMENT FUNCTION* 3671 * ******************** 3672 * OLD ASSIGN VALUES ARE SAVED IN SFTB AND ARE 3673 * RESTORED AT COMPLETION. 3674 06365 0 00 00000 G1T0 PZE 0 3675 06366 0 00 00000 G1T1 PZE 0 3676 06367 0 02 00721 G1 LDA K103 (A) = 3 3677 06370 0 10 05074 JST NP00 FIRST NON-SPEC CHECK 3678 06371 0 10 02520 JST SY00 INPUT SYMBOL 3679 06372 0 10 04233 JST LO00 DEFINE LOCATION 3680 06373 0 02 00721 LDA K103 3681 06374 0 04 00041 STA I 3682 06375 0 10 10525 JST GE00 GENERATE SUBPROGRAM ENTRANCE 3683 06376 0 02 00041 LDA I 3684 06377 0 04 06366 STA G1T1 T1 = I 3685 06400 0 02 00701 LDA K16X '=' TEST 3686 06401 0 10 02547 JST TS00 3687 06402 0 10 02354 JST II00 INPUT ITEM 3688 06403 140040 CRA 3689 06404 0 10 07041 JST EX00 EXPRESSION 3690 06405 0 02 06366 LDA G1T1 3691 06406 0 04 00041 STA I I = T1 3692 06407 0 12 00052 IRS TCF TCF = TCF+1 3693 06410 0 10 02676 G1A JST STXI 3694 06411 1 02 10462 LDA SFTB+2,1 3695 06412 0 04 00040 STA A 3696 06413 1 02 10460 LDA SFTB+0,1 3697 06414 000201 IAB 3698 06415 0 10 02672 JST STXA SET R TO A 3699 06416 000201 IAB 3700 06417 1 04 15400 STA DP,1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 78
3701 06420 0 10 02676 JST STXI SET R TO I 3702 06421 1 02 10461 LDA SFTB+1,1 3703 06422 000201 IAB 3704 06423 0 10 02672 JST STXA SET R TO A 3705 06424 000201 IAB 3706 06425 1 04 15401 STA DP+1,1 3707 06426 0 02 00041 LDA I 3708 06427 0 07 00721 SUB K103 I = I-3 = 0 3709 06430 0 04 00041 STA I 3710 06431 0 07 00721 SUB K103 3711 06432 100040 SZE 3712 06433 0 01 06410 JMP G1A NO, GO TO G1A 3713 06434 0 02 05073 LDA T1NP 3714 06435 0 04 00040 STA A 3715 06436 0410 60 LLL 16 3716 06437 0 02 13740 LDA OMJ1 3717 06440 0 10 12467 JST OB00 3718 06441 0 10 03465 JST TG00 TAG SUBPROGRAM 3719 06442 0 01 04266 JMP A1 GO TO C/R TEST 3720 * - W5 END 3721 * *************** 3722 * *END PROC6SSOR* 3723 * *************** 3724 * FIRST CHECK SUBPROGRAMS FOR CORRECT USAGE, THEN 3725 * GENERATE MAP AND STRING BACK VARIABLES 3726 * AND CONSTANTS. 3727 06443 0 00 00000 T1W5 PZE 3728 06444 0 02 00061 W5 LDA BDF IF BLOCK DATA, 3729 06445 100040 SZE 3730 06446 0 01 06525 JMP W5K GO TO W5K 3731 06447 0 02 00047 LDA SBF IF SBF NOT ZERO 3732 06450 0 04 00040 STA A INDICATES SUBROUTINES 3733 06451 100040 SZE OR FUNCTION, 3734 06452 0 01 06532 JMP W5M GO TO W5M 3735 06453 140040 W5B CRA 3736 06454 0 04 00040 STA A A = J=0 3737 06455 0 01 06500 JMP W5H 3738 06456 0 10 03656 W5D JST FA00 FETCH ASSIGNS 3739 06457 0 10 02672 JST STXA 3740 06460 0 02 00573 LDA NT 3741 06461 100040 SZE IF NT=L (CONSTANT) 3742 06462 0 01 06552 JMP W5O GO TO W5O 3743 06463 0 02 00655 LDA IU 3744 06464 0 07 00717 SUB K101 IF IU=1 3745 06465 100040 SZE INDICATES VARIABLE, 3746 06466 0 01 06627 JMP W5T GO TO W5T 3747 06467 0 02 00060 W5F LDA RPL SAVE RPL 3748 06470 0 04 06443 STA T1W5 RPL=-AF (INHIBIT LISTING) 3749 06471 0 02 00630 LDA AF 3750 06472 140500 SSM
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 79
3751 06473 0 04 00060 STA RPL 3752 06474 140040 CRA 3753 06475 0 10 13773 JST OR00 OUTPUT REL 3754 06476 0 02 06443 LDA T1W5 RESTORE RPL 3755 06477 0 04 00060 STA RPL 3756 06500 0 02 00040 W5H LDA A A=A+5 3757 06501 0 06 00723 ADD K105 3758 06502 0 04 00040 STA A 3759 06503 0 07 00054 SUB ABAR IF A=ABAR, (DONE) 3760 06504 0 07 00723 SUB K105 3761 06505 100040 SZE 3762 06506 0 01 06456 JMP W5D ELSE, GO TO W5D 3763 06507 0 10 14523 W5J JST FS00 FLUSH BUFFER 3764 06510 0 02 00047 LDA SBF 3765 06511 100040 SZE 3766 06512 0 02 00727 LDA W5Z1 3767 06513 0 05 00740 ERA W5Z2 3768 06514 0 04 14632 STA OCI 3769 06515 0 02 00047 LDA SBF 3770 06516 100040 SZE 3771 06517 0 02 00733 LDA W5Z3 3772 06520 0 04 14633 STA OCI+1 3773 06521 0 02 00724 LDA K106 3774 06522 0 04 00602 STA OCNT 3775 06523 0 10 14523 JST FS00 3776 06524 0 01 01007 JMP A051 GO TO INITIALIZE 3777 06525 0 02 00060 W5K LDA RPL IF RPL NOT ZERO, 3778 06526 101040 SNZ 3779 06527 0 01 06507 JMP W5J 3780 06530 0 10 03116 JST ER00 ERROR-CODE GENERATED 3781 06531 141304 BCI 1,BD IN A BLOCK DATA SUBPROGRAM 3782 06532 0 10 03656 W5M JST FA00 FETCH ASSIGNS 3783 06533 0 02 00046 LDA SFF IF FUNCTION, 3784 06534 100040 SZE 3785 06535 0 01 06544 JMP W5N GO TO W5N 3786 06536 0 10 02603 JST NU00 NO USE TEST 3787 06537 0 10 02672 JST STXA 3788 06540 1 02 15400 LDA DP,1 IF NO ERROR, 3789 06541 140500 SSM NT(A)=1 3790 06542 1 04 15400 STA DP,1 3791 06543 0 01 06453 JMP W5B GO T0 W5B 3792 06544 0 02 00655 W5N LDA IU 3793 06545 0 07 00720 SUB K102 IU MUST BE VAR/CON, 3794 06546 101040 SNZ ELSE, 3795 06547 0 01 06453 JMP W5B 3796 06550 0 10 03116 JST ER00 ERROR-FUNCTION 3797 06551 143304 BCI 1,FD NAME NOT DEFINED BY AN ARITHM, STATEMENT 3798 06552 0 02 00655 W5O LDA IU IF IU=VAR/CON 3799 06553 0 07 00720 SUB K102 3800 06554 100040 SZE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 80
3801 06555 0 01 06500 JMP W5H 3802 06556 0 02 00631 LDA AT AND AT = STR/REL 3803 06557 0 07 00721 SUB K103 A "STRING" REQ'D. 3804 06560 100040 SZE 3805 06561 0 01 06500 JMP W5H 3806 06562 0 02 00633 W5P LDA D0 IF D0 IS 4, THE 3807 06563 0 07 00722 SUB K104 CONSTANT IS COMPLEX, 3808 06564 100040 SZE OTHERWISE 3809 06565 0 01 06605 JMP W5Q GO TO W5Q 3810 06566 0 02 00630 LDA AF 3811 06567 0 10 14135 JST OS00 OUTPUT STRING 3812 06570 0 10 02672 JST STXA 3813 06571 1 02 15402 LDA DP+2,1 OUTPUT 4 WORDS 3814 06572 0 10 06651 JST W5X OF CONSTANT 3815 06573 1 02 15403 LDA DP+3,1 3816 06574 0 10 06651 JST W5X 3817 06575 0 02 00573 LDA NT 3818 06576 101040 SNZ 3819 06577 0 01 06614 JMP W5S 3820 06600 0 02 00040 LDA A INCREMENT A 3821 06601 0 06 00723 ADD K105 3822 06602 0 04 00040 STA A 3823 06603 0 10 02672 JST STXA 3824 06604 0 01 06614 JMP W5S 3825 06605 0 02 00630 W5Q LDA AF 3826 06606 0 10 14135 JST OS00 OUTPUT STRING 3827 06607 0 10 02672 JST STXA 3828 06610 0 02 00633 LDA D0 IF D0=1, 3829 06611 0 07 00717 SUB K101 INDICATES INTEGER, 3830 06612 101040 SNZ 3831 06613 0 01 06624 JMP W5R GO TO W5R 3832 06614 1 02 15402 W5S LDA DP+2,1 OUTPUT TWO WORDS 3833 06615 0 10 06651 JST W5X FLOATING POINT CONSTANT 3834 06616 1 02 15403 LDA DP+3,1 3835 06617 0 10 06651 JST W5X 3836 06620 0 02 00633 LDA D0 IF DOUBLE PRECISION, 3837 06621 0 07 00721 SUB K103 3838 06622 100040 SZE 3839 06623 0 01 06500 JMP W5H 3840 06624 1 02 15404 W5R LDA DP+4,1 OUTPUT THE 3RD WORD 3841 06625 0 10 06651 JST W5X 3842 06626 0 01 06500 JMP W5H GO TO W5H 3843 06627 0 02 00631 W5T LDA AT 3844 06630 0 11 00721 CAS K103 3845 06631 0 01 06467 JMP W5F STRONG VARIABLE (IU = NON 0) 3846 06632 0 01 06644 JMP W5T5 3847 06633 0 11 00720 CAS K102 TEST FOR STG ABS ADDRESS 3848 06634 017400 OCT 17400 3849 06635 0 01 06637 JMP *+2 3850 06636 0 01 06467 JMP W5F NO
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 81
3851 06637 1 02 15404 LDA DP+4,1 TEST FOR PREFIX G 3852 06640 0 03 06634 ANA *-4 3853 06641 0 07 06634 SUB *-5 3854 06642 100040 SZE 3855 06643 0 01 06467 JMP W5F STRONG VARIABLE (IU = NON 0) 3856 06644 0 02 00655 W5T5 LDA IU 3857 06645 100040 SZE 3858 06646 0 01 06562 JMP W5P 3859 06647 0 10 03116 JST ER00 3860 06650 152723 BCI 1,US 3861 06651 0 000000 W5X DAC ** 3862 06652 0400 60 LRL 16 3863 06653 0 04 00640 STA DF 3864 06654 000201 IAB 3865 06655 0 10 14127 JST OA00 OUTPUT ABS 3866 06656 0 10 02672 JST STXA REST "A" 3867 06657 -0 01 06651 JMP* W5X EXIT 3868 000727 W5Z1 EQU K100 000377 3869 000740 W5Z2 EQU K122 040000 3870 000733 W5Z3 EQU K116 177400 3871 * 3872 * 3873 * 3874 * 3875 * 3876 * ************************ 3877 * *INPUT CHAR/OUTPUT PACK* 3878 * ************************ 3879 06660 0 000000 PO00 DAC ** 3880 06661 0 10 01256 JST CH00 INPUT CHAR 3881 06662 0 10 12437 JST OK00 OUTPUT PACK 3882 06663 -0 01 06660 JMP* PO00 RETURN 3883 * ************************ 3884 * *TRANS HOLLERITH STRING* 3885 * ************************ 3886 * FORM HOLLERITH STRING, CHARACTER COUNT IN ID 0N 3887 * ENTRY. C/R WILL ALSO TERMINATE STRING. 3888 06664 0 000000 HS00 DAC ** 3889 06665 0 10 01066 HS10 JST IC00 INPUT 1 CHARACTER 3890 06666 0 11 00756 CAS CRET CHECK FOR CHAR = C/R 3891 06667 0 01 06671 JMP *+2 3892 06670 0 01 06700 JMP HS15 HOLLERITH STRING EXTENDS PAST END 0F CARD 3893 06671 0 10 12437 JST OK00 OUTPUT PACK THE CHARACTER 3894 06672 0 02 01475 LDA ID 3895 06673 0 07 00717 SUB K101 REDUCE CHARACTER COUNT BY 1 3896 06674 0 04 01475 STA ID 3897 06675 100040 SZE 3898 06676 0 01 06665 JMP HS10 INPUT MORE CHARACTERS 3899 06677 -0 01 06664 JMP* HS00 3900 06700 0 10 03116 HS15 JST ER00
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 82
3901 06701 144323 BCI 1,HS HOLLERITH STRING EXTENDS OVER STATEMENT 3902 * 3903 * 3904 * ********** 3905 * *DO INPUT* 3906 * ********** 3907 * SET UP DO TABLE ENTRIES. 3908 06702 0 000000 DP00 DAC ** 3909 06703 0 02 00057 LDA D D = D+5 3910 06704 0 06 00723 ADD K105 IFLG = NON-ZERO 3911 06705 0 04 00652 STA IFLG 3912 06706 0 04 00057 STA D 3913 06707 0 06 00661 ADD DO I = D0+D 3914 06710 0 04 00041 STA I 3915 06711 0 10 02676 JST STXI 3916 06712 0 02 00040 LDA A DP (1-4) = (B) 3917 06713 1 04 15376 STA DP-2,1 DP (1-2) = A 3918 06714 000201 IAB 3919 06715 1 04 15374 STA DP-4,1 3920 06716 0 10 02432 JST IV00 INPUT INT VAR/CON 3921 06717 0 02 00752 LDA K134 = , 3922 06720 0 10 02547 JST TS00 COMMA TEST 3923 06721 0 10 02676 JST STXI 3924 06722 0 02 00040 LDA A 3925 06723 1 04 15400 STA DP,1 DP(I) = INITIAL VALUE POINTER 3926 06724 0 10 02432 JST IV00 INPUT INT VAR/CON 3927 06725 0 10 02676 JST STXI 3928 06726 0 02 00040 LDA A 3929 06727 1 04 15377 STA DP-1,1 DP (I-1) = A - FINAL VALUE POINTER 3930 06730 0 02 00607 LDA TC 3931 06731 0 07 00752 SUB K134 = , 3932 06732 100040 SZE IF THIRD TERM 3933 06733 0 01 06743 JMP DP20 3934 06734 0 10 02432 JST IV00 READ AND ASSIGN, 3935 06735 0 10 02676 DP10 JST STXI 3936 06736 0 02 00040 LDA A 3937 06737 1 04 15375 STA DP-3,1 DP(I-3) = INCREMENT POINTER 3938 06740 140040 CRA 3939 06741 0 04 00652 STA IFLG CLEAR IFLAG 3940 06742 -0 01 06702 JMP* DP00 EXIT 3941 06743 0 02 00717 DP20 LDA K101 3942 06744 0 04 01475 STA ID THIRD TERM = 1 3943 06745 0 10 04241 JST AI00 ASSIGN CONSTANT 3944 06746 0 01 06735 JMP DP10 3945 * *************** 3946 * *DO INITIALIZE* 3947 * *************** 3948 * GENERATE DO INITIALIZATION CODE. 3949 06747 0 000000 DS00 DAC ** 3950 06750 0 10 02676 JST STXI ESTABLISH I
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 83
3951 06751 1 02 15400 LDA DP,1 A = DP (I) 3952 06752 0 04 00040 STA A 3953 06753 0 02 13735 LDA K200 3954 06754 0 10 06764 JST DS20 LOAD - LDA INITIAL VALUE 3955 06755 1 02 15376 LDA DP-2,1 3956 06756 0 04 00040 STA A A = DP (I-2) 3957 06757 0 02 00060 LDA RPL 3958 06760 1 04 15400 STA DP,1 SET RETURN ADDRESS INTO DP(I) 3959 06761 0 02 13736 LDA K202 3960 06762 0 10 06764 JST DS20 STORE - STA VARIABLE NAME 3961 06763 -0 01 06747 JMP* DS00 3962 * OUTPUT OA SUBROUTINE 3963 06764 0 000000 DS20 DAC ** 3964 06765 000201 IAB 3965 06766 0410 60 LLL 16 SET B = 0 3966 06767 0 10 12467 JST OB00 OUTPUT OA 3967 06770 0 10 02676 JST STXI RESTORE I 3968 06771 -0 01 06764 JMP* DS20 RETURN 3969 * 3970 06772 0 00 00000 DS90 PZE 0 3971 * 3972 * **************** 3973 * *DO TERMINATION* 3974 * **************** 3975 * GENERATE DO TERMINATION CODE. 3976 06773 0 000000 DQ00 DAC ** 3977 06774 0 10 02676 JST STXI 3978 06775 1 02 15376 LDA DP-2,1 3979 06776 0 04 00040 STA A 3980 06777 0 02 13735 LDA K200 3981 07000 0 10 06764 JST DS20 OUTPUT LDA VARIABLE NAME 3982 07001 1 02 15375 LDA DP-3,1 3983 07002 0 04 00040 STA A 3984 07003 0 02 13732 LDA K203 3985 07004 0 10 06764 JST DS20 OUTPUT ADD INCREMENT 3986 07005 1 02 15377 LDA DP-1,1 3987 07006 0 04 00040 STA A 3988 07007 0 02 13760 LDA OMK9 3989 07010 0 10 06764 JST DS20 OUTPUT CAS FINAL VALUE 3990 07011 140040 CRA 3991 07012 0 04 00040 STA A 3992 07013 0 02 00060 LDA RPL 3993 07014 0 06 00721 ADD K103 3994 07015 0 04 00630 STA AF 3995 07016 1 02 15400 LDA DP,1 3996 07017 0 04 06772 STA DS90 3997 07020 0 02 13733 LDA OMI5 JUMP *+3 3998 07021 0 10 13773 JST OR00 OUTPUT REL 3999 07022 0 02 06772 LDA DS90 4000 07023 0 04 00630 STA AF
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 84
4001 07024 0 02 13733 LDA OMI5 JMP RPL (SAVED) - POINTS TO 'STA' INST. 4002 07025 0 10 13773 JST OR00 OUTPUT REL 4003 07026 0 02 13733 LDA OMI5 OUTPUT JMP RPL (SAVED) 4004 07027 0 10 13773 JST OR00 OUTPUT REL 4005 07030 -0 01 06773 JMP* DQ00 4006 * ************ 4007 * *EXPRESSION* 4008 * ************ 4009 * THE RESULTANT OUTPUT IS A BUILT UP AOIN 4010 * TABLE THAT IS FURTHER PROCESSED BY SCAN. 4011 07031 0 00 00000 T0EX PZE 0 4012 007031 EXT0 EQU T0EX 4013 07032 0 00 00000 T1EX PZE 0 4014 07033 0 00 00000 T2EX PZE 0 4015 07034 0 00 00000 T3EX PZE 0 4016 07035 0 00 00000 T5EX PZE 0 4017 07036 0 00 00000 T6EX PZE 0 4018 07037 0 00 00000 EXT7 PZE 0 4019 07040 0 00 00000 T9EX PZE 0 4020 07041 0 000000 EX00 DAC ** 4021 07042 0 04 00664 STA F F = (A) 4022 07043 0 02 00040 LDA A SAVE POINTER TO FIRST VARIABLE 4023 07044 0 04 00066 STA TRFA FOR LATER POSSIBLE TRACING 4024 07045 0 02 00057 LDA D I = D+D0+10 4025 07046 0 06 00661 ADD DO 4026 07047 0 06 00743 ADD K125 =8 4027 07050 0 04 00041 STA I 4028 07051 0 10 10016 JST EX99 DATA POOL CHECK 4029 07052 0 10 02676 JST STXI 4030 07053 140040 CRA 4031 07054 0 04 07031 STA EXT0 T0 = 0 4032 07055 0 04 00642 STA B B = 0 4033 07056 0 04 07037 STA EXT7 T7 = 0 4034 07057 0 06 07770 ADD EX92+12 4035 07060 0414 67 LGL 9 O(1-2) = '=' 4036 07061 1 04 15377 STA DP-1,1 0 (I) = 0 4037 07062 140401 CMA 4038 07063 0 04 00652 STA IFLG IFLM NOT 0 4039 07064 0 02 00113 LDA L0 4040 07065 1 04 15376 STA DP-2,1 O(I-2) = L0 4041 07066 0 10 02676 EX10 JST STXI 4042 07067 140040 CRA 4043 07070 0 04 07032 STA T1EX T1 = 0 4044 07071 1 04 15400 STA DP,1 AOIN(I) = T(1) = 0 4045 07072 1 04 15401 STA DP+1,1 4046 07073 0 02 00653 LDA IM IF IM NOT ZERO, 4047 07074 100040 SZE 4048 07075 0 01 07331 JMP EX50 GO TO EX50 4049 07076 0 02 00724 LDA K106 4050 07077 140407 TCA
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 85
4051 07100 0 04 00000 STA 0 4052 * PERFORM TABLE SEARCH 4053 07101 0 02 00607 EX11 LDA TC GO TO ROUTINE ACCORDING 4054 07102 1 07 07746 SUB EX90+6,1 TO TC. 4055 07103 101040 SNZ IF NO MATCH, ERROR 4056 07104 0 01 07114 JMP EXI1 4057 07105 0 12 00000 IRS XR 4058 07106 0 01 07101 JMP EX11 4059 07107 0 10 02676 JST STXI 4060 07110 0 02 00670 LDA LIBF SPECIAL LIBRARY FLAG 4061 07111 100040 SZE 4062 07112 0 01 07270 JMP EX39 4063 07113 0 01 10010 JMP EX95 ERROR CONDITION 4064 07114 1 02 07754 EXI1 LDA EX91+6,1 4065 07115 0 04 00000 STA 0 4066 07116 1 01 00000 JMP 0,1 PROCESS LEADING OPERATOR 4067 * SPECIAL OPERATOR FLAG SET WHEN COMPILING THE FORTRAN 4068 * LIBRARY IN WHICH CASE THE OPERATIONS ( A= ) AND 4069 * ( =A ) ARE REQUIRED, THIS LOGIC WILL ALLOW THESE 4070 * TO BE PROCESSED WITHOUT GIVING AN ERROR MESSAGE IF THE 4071 * SPECIAL LIBRARY FLAG, (LIBF) IS SET TO NON-ZERO, 4072 * 4073 07117 0 02 00642 EX12 LDA B TC = ( 4074 07120 0 06 00726 ADD K109 B = B+16 4075 07121 0 04 00642 STA B SXF = NON-ZERO 4076 07122 0 04 00050 STA SXF 4077 07123 0 10 02354 EX14 JST II00 INPUT ITEM 4078 07124 0 10 02676 JST STXI 4079 07125 0 01 07066 JMP EX10 GO TO EX10 4080 07126 0 10 02676 EX16 JST STXI TC = * 4081 07127 0 02 00607 LDA TC 4082 07130 0414 67 LGL 9 OI (I-2) = *, B+13 4083 07131 0 06 00642 ADD B 4084 07132 0 06 00747 ADD K129 4085 07133 1 05 15377 ERA DP-1,1 4086 07134 140100 SSP 4087 07135 101040 SNZ 4088 07136 0 01 07141 JMP *+3 4089 07137 0 10 03116 JST ER00 NO, CONSTR ERROR 4090 07140 150327 BCI 1,PW * NOT PRECEDED BY ANOTHER * 4091 07141 0 02 00726 LDA K109 (E = '20) 4092 07142 0414 67 LGL 9 4093 07143 1 13 15377 IMA DP-1,1 4094 07144 0 03 00735 ANA K118 ='777 4095 07145 0 06 00717 ADD K101 4096 07146 1 05 15377 ERA DP-1,1 CHAJNE * TO ** 4097 07147 1 04 15377 STA DP-1,1 4098 07150 0 01 07123 JMP EX14 GO TO EX14 4099 07151 0 02 00720 EX18 LDA K102 =2 4100 07152 0 04 00607 STA TC SET TC TO -
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 86
4101 07153 0 02 00743 LDA K125 =8 4102 07154 0 04 07032 STA T1EX T1 = 8 4103 07155 0 10 02676 JST STXI 4104 07156 1 02 15377 LDA DP-1,1 4105 07157 0 03 00735 ANA K118 4106 07160 0 07 00642 SUB B 8 .GT. I (I-2) -B 4107 07161 0 07 07032 SUB T1EX 4108 07162 100400 SPL 4109 07163 0 01 07166 JMP *+3 4110 07164 0 10 03116 EX19 JST ER00 NO, ERROR 4111 07165 147324 BCI 1,NT LOGICAL .NOT. NOT A UNARY OPERATOR 4112 07166 0 02 07031 EX20 LDA T0EX YES 4113 07167 100040 SZE T (0) = 0 4114 07170 0 01 07230 JMP EX34 4115 07171 0 02 00642 EX22 LDA B YES, 4116 07172 0 06 00664 ADD F B + + (5) .GT. 0 4117 07173 100400 SPL NO, ERROR 4118 07174 0 01 10012 JMP EX96 4119 07175 0 10 02676 EX24 JST STXI 4120 07176 0 02 00607 LDA TC 4121 07177 0414 67 LGL 9 4122 07200 0 06 07032 ADD T1EX 4123 07201 0 06 00642 ADD B 4124 07202 1 04 15401 STA DP+1,1 OI(I) = TC , T1+B 4125 07203 0 10 10016 JST EX99 DATA POOL CHECK 4126 07204 0 01 07123 JMP EX14 4127 07205 0 10 02676 EX26 JST STXI 4128 07206 1 02 15377 LDA DP-1,1 4129 07207 0 03 00735 ANA K118 IF I (I-2) .LT. B 4130 07210 0 11 00642 CAS B 4131 07211 0 01 10014 JMP EX97 ERROR-----MULTIPLE + OR - SIGNS 4132 07212 101000 NOP 4133 07213 0 02 00750 EX30 LDA K131 SET INDEX TO 4134 07214 0 04 00000 STA 0 SEARCH OPERATOR TABLE FOR TRAILING 4135 07215 1 02 07772 EX31 LDA EX92+14,1 OPERATOR AFTER HAVING ENCOUNTERED AN 4136 07216 0 07 00607 SUB TC ITEM 0R A NEGATE, 4137 07217 100040 SZE 4138 07220 0 01 07226 JMP EX32 4139 07221 1 02 10010 LDA EX93+14,1 4140 07222 0 04 07225 STA *+3 4141 07223 0 10 02676 JST STXI 4142 07224 -0 01 07225 JMP* *+1 4143 07225 0 000000 DAC ** 4144 07226 0 12 00000 EX32 IRS XR CONTROL OPERATOR LOOP 4145 07227 0 01 07215 JMP EX31 CONTINUE 4146 07230 0 02 00642 EX34 LDA B IF B = 0 4147 07231 0 07 07037 SUB EXT7 4148 07232 100040 SZE 4149 07233 0 01 07274 JMP EX40 NO, GO TO EX40 4150 07234 0 02 07031 LDA T0EX IF T (0) = 0
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 87
4151 07235 100040 SZE 4152 07236 0 01 07251 JMP EX38 NO, GO TO EX38 4153 07237 140040 EX35 CRA 4154 07240 0 04 00652 STA IFLG IFLG = 0 4155 07241 0 02 00664 LDA F 4156 07242 141206 AOA 4157 07243 101400 SMI F . GE. -1 4158 07244 0 01 07246 JMP EX36 YES 4159 07245 -0 01 07041 JMP* EX00 RETURN - NO 4160 07246 0 10 10040 EX36 JST CA00 SCAN 4161 07247 0 10 12700 JST OT00 OUTPUT TRIADS 4162 07250 -0 01 07041 JMP* EX00 RETURN 4163 07251 0 10 02676 EX38 JST STXI 4164 07252 0 02 00642 LDA B 4165 07253 0 07 00726 SUB K109 4166 07254 0 04 00642 STA B 4167 07255 0 02 00721 LDA K103 4168 07256 0 04 00045 STA MFL 4169 07257 0 02 07031 LDA T0EX 4170 07260 0414 67 LGL 9 O (I) = T (0) 4171 07261 0 06 00642 ADD B I (I) = B+9 4172 07262 0 06 00742 ADD K124 I = I+2 4173 07263 1 04 15401 STA DP+1,1 4174 07264 0 10 10016 JST EX99 DATA POOL CHECK 4175 07265 140040 CRA 4176 07266 0 04 07031 STA T0EX T0 = 0 4177 07267 0 04 07037 STA EXT7 T7 = 0 4178 07270 0 02 00113 EX39 LDA L0 4179 07271 0 04 00040 STA A A = L0 4180 07272 0 04 00653 STA IM IM NOT EQ 0 4181 07273 0 01 07066 JMP EX10 4182 07274 0 02 00607 EX40 LDA TC TC 0 , 4183 07275 0 11 00672 CAS K5 ='254 (,) IN BCD MODE 4184 07276 0 01 07300 JMP *+2 4185 07277 0 01 07303 JMP EX41 4186 07300 0 07 00752 SUB K134 =17 4187 07301 100040 SZE 4188 07302 0 01 07316 JMP EX44 NO, GO TO EX44 4189 07303 0 02 00041 EX41 LDA I 4190 07304 0 07 00720 EX42 SUB K102 4191 07305 0 04 00000 STA XR B VS. I (J) 4192 07306 1 02 15401 LDA DP+1,1 4193 07307 0 03 00735 ANA K118 4194 07310 0 11 00642 CAS B 4195 07311 0 01 07314 JMP *+3 4196 07312 0 01 07175 JMP EX24 EQUAL, GO TO EX24 4197 07313 -0 01 07041 JMP* EX00 LESS, RETURN 4198 07314 0 02 00000 LDA XR GREATER, REPEAT LOOP 4199 07315 0 01 07304 JMP EX42 4200 07316 0 10 02555 EX44 JST IP00 ) - INPUT OPERATOR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 88
4201 07317 0 01 07213 JMP EX30 GO TO EX30 4202 07320 -0 02 00040 EX46 LDA* A 4203 07321 0 04 07036 STA T6EX IF O1(O1(A)) = L(0) 4204 07322 -0 02 07036 LDA* T6EX 4205 07323 0 11 00113 CAS L0 4206 07324 0 01 07326 JMP *+2 4207 07325 0 01 07230 JMP EX34 GO TO EX34 4208 07326 0 04 00577 STA O2 O2 = L0 4209 07327 0 10 10436 EX48 JST ET00 ENTER TRIAD 4210 07330 0 01 07230 JMP EX34 4211 07331 0 10 02676 EX50 JST STXI 4212 07332 0 02 00040 LDA A A(I) = A 4213 07333 1 04 15400 STA DP,1 4214 07334 0 02 00655 LDA IU IU = SUB OR ARR 4215 07335 101100 SLN 4216 07336 0 01 07213 JMP EX30 NO, GO TO EX30 4217 07337 0 02 00607 LDA TC 4218 07340 0 07 00702 SUB K17 TC = ( 4219 07341 100040 SZE 4220 07342 0 01 07666 JMP EX76 NO, GO TO EX76 4221 07343 0 02 00642 LDA B YES, B = B+16 4222 07344 0 06 00726 ADD K109 4223 07345 0 04 00642 STA B 4224 07346 0 02 00655 LDA IU IU = ARR 4225 07347 0 07 00721 SUB K103 4226 07350 100040 SZE 4227 07351 0 01 07663 JMP EX75 NO, GO TO EX75 4228 07352 140040 CRA 4229 07353 1 04 15400 STA DP,1 A(I) = 0 4230 07354 0 04 00616 STA X4 X4 = 0 4231 07355 0 04 07034 STA T3EX T3 = 0 4232 07356 0 04 10032 STA K T5 = A 4233 07357 0 02 00633 LDA D0 4234 07360 0 04 07040 STA T9EX T9 = D0 4235 07361 0 02 00040 LDA A 4236 07362 0 04 07035 STA T5EX T5 = A 4237 07363 0 02 00631 LDA AT 4238 07364 0 07 00723 SUB K105 AT = DUM 4239 07365 100040 SZE 4240 07366 0 01 07660 JMP EX74 NO, GO TO EX74 4241 07367 140040 CRA 4242 07370 0 04 07033 STA T2EX YES, T (0) = 0 4243 07371 0 10 10016 JST EX99 DATA POOL CHECK 4244 07372 0 10 02676 JST STXI 4245 07373 0 02 00040 LDA A 4246 07374 1 04 15400 STA DP,1 A(I) = A 4247 07375 0 02 00751 LDA K132 OI (I) = A, 11 4248 07376 0414 67 LGL 9 4249 07377 0 06 00742 ADD K124 4250 07400 1 04 15401 STA DP+1,1 I=9
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 89
4251 07401 0 02 00633 EX54 LDA D0 IF D0 = 1, GO TO EX56 4252 07402 0 07 00717 SUB K101 4253 07403 101040 SNZ 4254 07404 0 01 07427 JMP EX56 4255 07405 0 10 10016 JST EX99 DATA POOL CHECK 4256 07406 0 01 07410 JMP *+2 4257 07407 0 12 10032 EX55 IRS K K = K+1 4258 07410 0 02 10032 LDA K 4259 07411 0 04 00000 STA XR 4260 07412 1 02 00612 LDA X,1 4261 07413 0 04 07036 STA T6EX T6 = X (K) 4262 07414 0 10 02676 JST STXI 4263 07415 0 02 07036 LDA T6EX 4264 07416 1 04 15400 STA DP,1 O(I) = * 4265 07417 0 02 00721 LDA K103 I (I) = T3+13 4266 07420 0414 67 LGL 9 T3 = T3+16 4267 07421 0 06 07034 ADD T3EX A (A) = T6 4268 07422 0 06 00747 ADD K129 =13 4269 07423 1 04 15401 STA DP+1,1 4270 07424 0 03 00735 ANA K118 4271 07425 0 06 00721 ADD K103 4272 07426 0 04 07034 STA T3EX T3 = A(A) 4273 07427 0 10 02432 EX56 JST IV00 INPUT INTEGER VARIABLE 4274 07430 0 10 10016 JST EX99 DATA POOL CHECK 4275 07431 0 10 02676 JST STXI 4276 07432 0 02 00040 LDA A A(I) = A 4277 07433 1 04 15400 STA DP,1 4278 07434 0 02 00573 LDA NT 4279 07435 100040 SZE 4280 07436 0 01 07614 JMP EX68 CONSTANT ENCOUNTERED 4281 07437 0 10 01251 JST UC00 UNINPUT COLUMN 4282 07440 0 10 01521 JST DN00 INPUT DO NOT ASSIGN 4283 07441 101040 SNZ 4284 07442 0 01 07450 JMP EX57 IM = 0 4285 07443 0 07 00717 SUB K101 4286 07444 101040 SNZ 4287 07445 0 01 07450 JMP EX57 IM * INTEGEH 4288 07446 0 10 03116 JST ER00 4289 07447 151725 BCI 1,SU SUBSCRIPT INCREMENTER NOT A CONSTANT 4290 07450 0 10 02676 EX57 JST STXI 4291 07451 0 02 00717 LDA K101 4292 07452 0414 67 LGL 9 4293 07453 0 06 07034 ADD T3EX 4294 07454 0 06 00745 ADD K127 4295 07455 1 04 15401 STA DP+1,1 O(1) = +, I(I) = T3+11 4296 07456 0 10 10016 JST EX99 DATA POOL CHECK 4297 07457 0 02 07040 EX58 LDA T9EX 4298 07460 0 04 00633 STA D0 RESET D(0) 4299 07461 0 02 01475 LDA ID SUBSCRIPT SIZE 4300 07462 0 07 00717 SUB K101 ID = ID-1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 90
4301 07463 0 04 01475 STA ID 4302 07464 101040 SNZ IF ZERO, GO TO EX60 4303 07465 0 01 07500 JMP EX60 4304 07466 0 02 10032 LDA K 4305 07467 0 04 00000 STA 0 4306 07470 1 02 00633 LDA D0,1 D(K) = 0 4307 07471 101040 SNZ 4308 07472 0 01 07601 JMP EX67 YES - (DUMMY DIMENSION) 4309 07473 000201 IAB 4310 07474 0 02 01475 LDA ID 4311 07475 0 10 02703 JST IM00 4312 07476 0 06 07033 ADD T2EX 4313 07477 0 04 07033 STA T2EX T2 = T2+ID*D(K) 4314 07500 0 02 07040 EX60 LDA T9EX 4315 07501 0 04 00633 STA D0 RESET D(0) 4316 07502 0 02 10032 LDA K 4317 07503 0 04 00000 STA 0 4318 07504 1 02 00614 LDA X+2,1 X(K+2) = 0 4319 07505 101040 SNZ 4320 07506 0 01 07517 JMP EX62 YES - FINISHED 4321 07507 0 02 00752 LDA K134 =17 4322 07510 0 10 02547 JST TS00 COMMA TEST 4323 07511 1 02 00634 LDA D0+1,1 4324 07512 000201 IAB 4325 07513 1 02 00633 LDA D0,1 4326 07514 0 10 02703 JST IM00 4327 07515 1 04 00634 STA D0+1,1 D(K+1) = D(K+1)*D(K) 4328 07516 0 01 07407 JMP EX55 4329 07517 0 10 02676 EX62 JST STXI 4330 07520 1 02 15377 LDA DP-1,1 DOES O(--2) = * 4331 07521 140100 SSP 4332 07522 0404 67 LGR 9 4333 07523 0 11 00721 CAS K103 4334 07524 0 01 07526 JMP *+2 4335 07525 0 01 07575 JMP EX66 YES. 4336 07526 101040 SNZ NO. 4337 07527 0 01 07562 JMP EX64 O(I-2) = 0 - YES 4338 07530 0 11 00751 CAS K132 DOES O(I-2) = A 4339 07531 0 01 07537 JMP EX63 4340 07532 0 01 07534 JMP *+2 YES 4341 07533 0 01 07537 JMP EX63 4342 07534 0 02 07033 LDA T2EX IS T2 = 0 4343 07535 101040 SNZ 4344 07536 0 01 07567 JMP EX65 YES (DUMMY ARRAY (1,1,1)) 4345 07537 0 02 00717 EX63 LDA K101 4346 07540 1 04 15377 STA DP-1,1 01(I-2) = 1 4347 07541 0 02 07033 LDA T2EX A(I) = T2 4348 07542 1 04 15400 STA DP,1 4349 07543 0 02 00753 LDA K137 0='X' ('24), I=2 4350 07544 1 04 15401 STA DP+1,1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 91
4351 07545 140040 CRA 4352 07546 1 04 15403 STA DP+3,1 O1(1+2) = 0 4353 07547 0 02 07035 LDA T5EX 4354 07550 1 04 15402 STA DP+2,1 A(I+2) = T5 4355 07551 0 10 10016 JST EX99 DATA POOL CHECK 4356 07552 0 10 10040 JST CA00 SCAN 4357 07553 0 02 00576 LDA O1 4358 07554 0 04 00040 STA A A = O1 4359 07555 0 10 02672 JST STXA 4360 07556 1 02 15402 LDA DP+2,1 S(A) = NON-ZERO 4361 07557 140500 SSM 4362 07560 1 04 15402 STA DP+2,1 S(A) = 1 4363 07561 0 01 07316 JMP EX44 4364 07562 0 02 00113 EX64 LDA L0 4365 07563 1 04 15400 STA DP,1 A(I) = L0 4366 07564 0 10 10016 JST EX99 DATA POOL CHECK 4367 07565 0 10 02676 JST STXI 4368 07566 0 01 07537 JMP EX63 4369 07567 0 02 00041 EX65 LDA I 4370 07570 0 07 00722 SUB K104 4371 07571 0 04 00041 STA I I = I-4 4372 07572 0 02 07035 LDA T5EX 4373 07573 1 04 15374 STA DP-4,1 A (I) = T5 4374 07574 0 01 07316 JMP EX44 4375 07575 0 02 00041 EX66 LDA I 4376 07576 0 07 00720 SUB K102 4377 07577 0 04 00041 STA I I = I-2 4378 07600 0 01 07517 JMP EX62 ASSIGN INT CONSTANT 4379 07601 0 10 04241 EX67 JST AI00 4380 07602 0 10 02676 JST STXI SET XR TO I 4381 07603 0 02 00040 LDA A 4382 07604 1 04 15400 STA DP,1 A(I) = A 4383 07605 0 02 00717 LDA K101 4384 07606 0414 67 LGL 9 4385 07607 0 06 07034 ADD T3EX 4386 07610 0 06 00745 ADD K127 4387 07611 1 04 15401 STA DP+1,1 OI(I) = +, T3+11 4388 07612 0 10 10016 JST EX99 DATA POOL CHECK 4389 07613 0 01 07500 JMP EX60 4390 07614 0 02 00607 EX68 LDA TC IS TC 4391 07615 0 11 00721 CAS K103 = * 4392 07616 0 01 07620 JMP *+2 4393 07617 0 01 07621 JMP *+2 4394 07620 0 01 07457 JMP EX58 NO 4395 07621 0414 67 LGL 9 4396 07622 0 06 07034 ADD T3EX 4397 07623 0 06 00747 ADD K129 =13 4398 07624 1 04 15401 STA DP+1,1 OI(I) = *, T3+13 4399 07625 0 10 02437 JST IR00 INPUT INTEGER VAR/CON 4400 07626 0 01 07430 JMP EX56+1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 92
4401 07627 140040 EX69 CRA SET LISTING FOR OCTAL ADDR 4402 07630 0 04 00040 STA A 4403 07631 0 02 13733 LDA OMI5 JMP 0 INSTRUCTION 4404 07632 0 04 00640 STA DF SET LISTING FOR SYMBOLIC A INSTR, 4405 07633 0 10 14127 JST OA00 OUTPUT ABSOLUTE 4406 07634 0 02 00060 LDA RPL 4407 07635 0 04 00577 STA O2 4408 07636 0 02 00754 LDA K138 4409 07637 0 04 00600 STA P P = H 4410 07640 0 10 10436 JST ET00 ENTER TRIAD 4411 07641 0 10 06664 JST HS00 TRANSFER HOLLERITH STRING 4412 07642 0 02 00756 LDA CRET (A) = C/R 4413 07643 0 10 12437 JST OK00 OUTPUT PACK 4414 07644 140040 CRA 4415 07645 0 04 00000 STA 0 SET LISTING FOR OCTAL ADDR. 4416 07646 0 04 00040 STA A SET LISTING FOR OCTAL ADDR. 4417 07647 0 02 00577 LDA O2 4418 07650 0 07 00717 SUB K101 4419 07651 0 10 14135 JST OS00 OUTPUT STRING RPL-1 4420 07652 0 10 01256 JST CH00 INPUT CHARACTER 4421 07653 0 10 01412 JST FN00 4422 07654 0 10 02676 JST STXI RESET INDEX TO I 4423 07655 0 02 00044 LDA L 4424 07656 1 04 15400 STA DP,1 A(I) = L 4425 07657 0 01 07666 JMP EX76 4426 07660 0 02 00630 EX74 LDA AF 4427 07661 0 04 07033 STA T2EX T2 = AF 4428 07662 0 01 07401 JMP EX54 GO TO EX54 4429 07663 0 02 00752 EX75 LDA K134 4430 07664 0 04 00607 STA TC TC = , 4431 07665 0 01 07175 JMP EX24 GO TO EX24 4432 07666 1 02 15377 EX76 LDA DP-1,1 4433 07667 0404 67 LGR 9 4434 07670 0 03 10027 ANA K133 4435 07671 0 07 00752 SUB K134 4436 07672 101040 SNZ 4437 07673 0 01 07230 JMP EX34 WITHIN AN ARGUMENT LIST 4438 07674 0 10 03116 JST ER00 4439 07675 140707 BCI 1,AG SUBROUTINE OR ARRAY NAME NOT IN ARG. LIST 4440 07676 0 02 00745 EX78 LDA K127 4441 07677 0 04 07032 EX79 STA T1EX T (1) = 11 4442 07700 0 01 07171 JMP EX22 4443 07701 0 02 00747 EX80 LDA K129 T (1) = 13 4444 07702 0 01 07677 JMP EX79 4445 07703 0 02 00724 EX81 LDA K106 4446 07704 0 04 07032 STA T1EX T (1) = 6 4447 07705 0 01 07166 JMP EX20 4448 07706 0 02 00722 EX82 LDA K104 T (1) = 4 4449 07707 0 01 07704 JMP EX81+1 4450 07710 0 02 07031 EX83 LDA T0EX T (0) =0
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 93
4451 07711 100040 SZE 4452 07712 0 01 07726 JMP EX84 4453 07713 0 02 00607 LDA TC YES, 4454 07714 0 04 07031 STA T0EX T (0) = TC 4455 07715 0 02 07755 LDA EX92+1 4456 07716 0 04 00607 STA TC TC = - 4457 07717 0 02 00642 LDA B 4458 07720 0 06 00726 ADD K109 4459 07721 0 04 00642 STA B 4460 07722 0 04 07037 STA EXT7 4461 07723 0 02 07725 LDA *+2 4462 07724 0 01 07677 JMP EX79 4463 07725 177773 DEC -5 4464 07726 0 10 03116 EX84 JST ER00 ERROR 4465 07727 151314 BCI 1,RL MORE THAN 1 RELATIONAL OPERATOR 4466 07730 0 02 00664 EX85 LDA F 4467 07731 0 06 00720 ADD K102 T (5) = T (5) +2 = B = 0 4468 07732 0 04 00664 STA F 4469 07733 0 06 00642 ADD B 4470 07734 101040 SNZ 4471 07735 0 01 07175 JMP EX24 4472 07736 0 10 03116 JST ER00 ERROR 4473 07737 142721 BCI 1,EQ MULTIPLE ='S, OR EXPRESSIUN TO LEFT OF = 4474 07740 000250 EX90 OCT 250 ( 4475 07741 000003 OCT 3 * 4476 07742 000005 OCT 5 NOT 4477 07743 000001 OCT 1 + 4478 07744 000002 OCT 2 - 4479 07745 000310 OCT 310 H 4480 07746 0 007117 EX91 DAC EX12 ( 4481 07747 0 007126 DAC EX16 * 4482 07750 0 007151 DAC EX18 NOT 4483 07751 0 007205 DAC EX26 + 4484 07752 0 007205 DAC EX26 - 4485 07753 0 007627 DAC EX69 H 4486 07754 000001 EX92 OCT 1 + 4487 07755 000002 OCT 2 - 4488 07756 000003 OCT 3 * 4489 07757 000004 OCT 4 / 4490 07760 000006 OCT 6 AND 4491 07761 000007 OCT 7 OR 4492 07762 000015 OCT 15 NE 4493 07763 000012 OCT 12 EQ 4494 07764 000014 OCT 14 GT 4495 07765 000010 OCT 10 LT 4496 07766 000013 OCT 13 GE 4497 07767 000011 OCT 11 LE 4498 07770 000016 OCT 16 = 4499 07771 000016 OCT 16 = (ERROR) 4500 07772 0 007676 EX93 DAC EX78 +
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 94
4501 07773 0 007676 DAC EX78 4502 07774 0 007701 DAC EX80 * 4503 07775 0 007701 DAC EX80 / 4504 07776 0 007703 DAC EX81 AND 4505 07777 0 007706 DAC EX82 OR 4506 10000 0 007710 DAC EX83 NE 4507 10001 0 007710 DAC EX83 EQ 4508 10002 0 007710 DAC EX83 GT 4509 10003 0 007710 DAC EX83 LT 4510 10004 0 007710 DAC EX83 GE 4511 10005 0 007710 DAC EX83 LE 4512 10006 0 007730 DAC EX85 = 4513 10007 0 007230 DAC EX34 NONE OF THESE 4514 10010 0 10 03116 EX95 JST ER00 4515 10011 147720 BCI 1,OP MURE THAN ONE OPERATOR IN A ROW 4516 10012 0 10 03116 EX96 JST ER00 ERROR 4517 10013 150301 BCI 1,PA OPERATOR MUST BE WITHIN PARENTHESES 4518 10014 0 10 03116 EX97 JST ER00 ERROR 4519 10015 152717 BCI 1,UO MULTIPLE + OR - SIGNS NOT AS UNARY OPS 4520 * BUMP THE I COUNT BY TWO AND CHECK FOR DATA OVERFLOW 4521 10016 0 000000 EX99 DAC ** 4522 10017 0 12 00041 IRS I 4523 10020 0 12 00041 IRS I 4524 10021 0 02 00041 LDA I 4525 10022 141206 AOA 4526 10023 0 11 00044 CAS L 4527 10024 101000 NOP 4528 10025 0 01 03456 JMP AS50 4529 10026 -0 01 10016 JMP* EX99 4530 10027 000077 K133 OCT 77 4531 10030 177772 K130 DEC -6 4532 10031 000041 K141 DEC 33 4533 10032 0 00 00000 K PZE 0 4534 10033 177770 KM8 DEC -8 4535 * 4536 * 4537 * 4538 * 4539 * ****************** 4540 * *SCAN * 4541 * *TRIAD SEARCH * 4542 * *TEMP STORE CHECK* 4543 * ****************** 4544 10034 0 00 00000 T0CA PZE 0 4545 10035 0 00 00000 T1CA PZE 0 4546 10036 0 00 00000 T2CA PZE 0 4547 10037 0 00 00000 T9CA PZE 0 4548 * THE AOIN TABLE IS PROCESSED FROM THE BOTTOM 4549 * UP AND ENTRIES ARE FORMED FOR INCLUSION 4550 * IN THE TRIAD TABLE, LEVELS ARE USED
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 95
4551 * TO CONTROL THE ORDER OF ENTRY INTO 4552 * THE TRIADS. SIGN CONTROL IS ALSO 4553 * ACCOMPLISHED IN THIS ROUTINE. 4554 10040 0 000000 CA00 DAC ** 4555 10041 0 02 00113 LDA L0 4556 10042 0 04 10457 STA ACCP INDICATE EMPTY ACCUM 4557 10043 0 10 02676 CA04 JST STXI ESTABLISH I 4558 10044 0 04 10035 STA T1CA T1 = I 4559 10045 1 02 15377 LDA DP-1,1 4560 10046 0 03 00735 ANA K118 IF I (I-2) = 0, 4561 * OR .LT. I (I) 4562 10047 0 04 10037 STA T9CA 4563 10050 1 02 15401 LDA DP+1,1 4564 10051 0 03 00735 ANA K118 4565 10052 0 11 10037 CAS T9CA 4566 10053 0 01 10061 JMP CA08 GO TO CA08 4567 10054 101000 NOP 4568 10055 0 02 00041 LDA I 4569 10056 0 07 00720 SUB K102 4570 10057 0 04 00041 STA I I = I-2 4571 10060 0 04 00000 STA 0 4572 10061 1 02 15403 CA08 LDA DP+3,1 4573 10062 1 05 15401 ERA DP+1,1 4574 10063 0 04 10034 STA T0CA 4575 10064 1 02 15401 LDA DP+1,1 4576 10065 0 03 00735 ANA K118 4577 10066 0 04 10036 STA T2CA 4578 10067 1 02 15401 LDA DP+1,1 4579 10070 140100 SSP 4580 10071 0404 67 LGR 9 P = O (I) 4581 10072 0 04 00600 STA P 4582 10073 0 11 00720 CAS K102 IF P IS NOT * OR /, GO TO CCA10 4583 10074 0 11 00723 CAS K105 4584 10075 0 01 10100 JMP CA10 4585 10076 0 01 10100 JMP CA10 4586 10077 0 01 10143 JMP CA14 GO T0 CA14 4587 10100 0 02 10034 CA10 LDA T0CA 4588 10101 101400 SMI 4589 10102 0 01 10121 JMP CA13 4590 10103 0 02 10033 LDA KM8 4591 10104 0 13 00000 IMA XR 4592 10105 000201 IAB 4593 10106 0 02 00600 LDA P 4594 10107 1 11 10426 CAS CA90+8,1 4595 10110 0 01 10112 JMP *+2 4596 10111 0 01 10115 JMP *+4 4597 10112 0 12 00000 IRS XR 4598 10113 0 01 10107 JMP *-4 4599 10114 0 01 10324 JMP CA45 4600 10115 1 02 10436 LDA CA91+8,1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 96
4601 10116 0 04 00600 STA P 4602 10117 000201 IAB 4603 10120 0 04 00000 STA XR 4604 10121 0 02 10030 CA13 LDA K130 4605 10122 0 13 00000 IMA XR 4606 10123 000201 IAB 4607 10124 0 02 00600 LDA P 4608 10125 1 11 10426 CAS CA90+8,1 4609 10126 0 01 10130 JMP *+2 4610 10127 0 01 10137 JMP CA50 4611 10130 0 12 00000 IRS XR 4612 10131 0 01 10125 JMP *-4 4613 10132 000201 IAB 4614 10133 0 04 00000 STA XR 4615 10134 000201 IAB 4616 10135 1 02 15401 LDA DP+1,1 4617 10136 0 01 10140 JMP *+2 4618 10137 140040 CA50 CRA 4619 10140 0 04 10034 STA T0CA 4620 10141 000201 IAB 4621 10142 0 04 00000 STA XR 4622 10143 1 02 15400 CA14 LDA DP,1 4623 10144 0 04 00576 STA O1 O1=A(I) 4624 10145 1 02 15402 LDA DP+2,1 4625 10146 0 04 00577 STA O2 O2 = A (I+2) 4626 10147 0 02 10036 LDA T2CA 4627 10150 101040 SNZ 4628 10151 0 01 10301 JMP CA37 IF ZER0, GO TO CA37 4629 10152 1 02 15377 LDA DP-1,1 4630 10153 140100 SSP 4631 10154 0404 67 LGR 9 4632 10155 0 04 10035 STA T1CA 4633 10156 1 02 15377 LDA DP-1,1 4634 10157 0 03 00735 ANA K118 IF T2 .GT. I (I-2) 4635 10160 0 07 10036 SUB T2CA 4636 10161 100400 SPL 4637 10162 0 01 10203 JMP CA18 4638 10163 100040 SZE 4639 10164 0 01 10043 JMP CA04 4640 10165 0 02 00577 LDA O2 4641 10166 0 07 10457 SUB ACCP 4642 10167 100040 SZE 4643 10170 0 01 10043 JMP CA04 4644 10171 0 02 00600 LDA P 4645 10172 0 07 00721 SUB K103 4646 10173 101400 SMI 4647 10174 0 01 10314 JMP CA39 4648 10175 0 02 10035 LDA T1CA 4649 10176 0 07 00600 SUB P 4650 10177 100040 SZE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 97
4651 10200 0 02 00717 LDA K101 GO TO 4652 10201 0 06 00717 ADD K101 P = - OR + 4653 10202 0 04 00600 STA P 4654 10203 0 02 00041 CA18 LDA I 4655 10204 0 04 00000 STA 0 J=I 4656 10205 1 02 15402 CA20 LDA DP+2,1 4657 10206 1 04 15400 STA DP,1 AOIN(J) = AOIN(J+2) 4658 10207 1 02 15403 LDA DP+3,1 4659 10210 1 04 15401 STA DP+1,1 4660 10211 140100 SSP 4661 10212 101040 SNZ 4662 10213 0 01 10217 JMP CA22 4663 10214 0 12 00000 IRS XR J = J+2 4664 10215 0 12 00000 IRS XR 4665 10216 0 01 10205 JMP CA20 4666 10217 0 10 02676 CA22 JST STXI 4667 10220 1 02 15401 LDA DP+1,1 4668 10221 140100 SSP IF O (I) = , 4669 10222 0404 67 LGR 9 4670 10223 0 11 00600 CAS P 4671 10224 0 01 10230 JMP CA24 4672 10225 0 11 00752 CAS K134 4673 10226 0 01 10230 JMP CA24 4674 10227 0 01 10256 JMP CA30 GO TO CA30 4675 10230 0 10 10335 CA24 JST ST00 TRIAD SEARCH 4676 10231 0 02 00600 LDA P 4677 10232 0 11 00751 CAS K132 IF P = +,*, AND, OR 4678 10233 0 01 10254 JMP CA28 4679 10234 0 01 10301 JMP CA37 GO TO CA37 4680 10235 0 11 00725 CAS K107 4681 10236 0 01 10254 JMP CA28 ELSE, GO TO CA26 4682 10237 0 01 10301 JMP CA37 4683 10240 0 11 00724 CAS K106 4684 10241 0 01 10254 JMP CA28 4685 10242 0 01 10301 JMP CA37 4686 10243 0 11 00721 CAS K103 4687 10244 0 01 10254 JMP CA28 4688 10245 0 01 10301 JMP CA37 4689 10246 0 11 00717 CAS K101 4690 10247 0 01 10251 JMP CA26 4691 * 4692 * 4693 * 4694 10250 0 01 10301 JMP CA37 4695 10251 0 11 00720 CA26 CAS K102 4696 10252 0 01 10254 JMP *+2 IF P = - 4697 10253 0 01 10276 JMP CA35 GO TO 4698 10254 0 02 00576 CA28 LDA O1 4699 10255 0 10 10404 JST TC00 TEMP STORE CHECK 4700 10256 0 02 00577 CA30 LDA O2
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 98
4701 10257 0 10 10404 JST TC00 TEMP STORE CHECK 4702 10260 0 10 10436 CA31 JST ET00 ENTER TRIAD 4703 10261 0 10 02676 CA32 JST STXI 4704 10262 0 02 00576 LDA O1 4705 10263 1 04 15400 STA DP,1 4706 10264 1 02 15401 LDA DP+1,1 4707 10265 0400 61 LRL 15 4708 10266 0 02 10034 LDA T0CA 4709 10267 0404 61 LGR 15 4710 10270 0410 61 LLL 15 4711 10271 1 04 15401 STA DP+1,1 4712 10272 0 02 10036 LDA T2CA IF T2 NOT ZERO, 4713 10273 100040 SZE 4714 10274 0 01 10043 JMP CA04 GO TU CA04 4715 10275 -0 01 10040 JMP* CA00 ELSE, RETURN 4716 10276 0 02 10034 CA35 LDA T0CA 4717 10277 0 05 15034 ERA ='100000 4718 10300 0 04 10034 STA T0CA 4719 10301 0 02 00577 CA37 LDA O2 4720 10302 0 13 00576 IMA O1 O1 * = O2 4721 10303 0 04 00577 STA O2 4722 10304 101040 SNZ IF 02 = 0, 4723 10305 0 01 10261 JMP CA32 GO TO CA32 4724 * 4725 * 4726 * 4727 10306 0 10 10335 JST ST00 TRIAD SEARCH 4728 10307 0 02 10034 LDA T0CA 4729 10310 101400 SMI 4730 10311 0 01 10254 JMP CA28 GO TO CA28 4731 10312 0 02 00600 LDA P 4732 10313 0 01 10251 JMP CA26 ELSE, GO TO CA26 4733 10314 0 07 00746 CA39 SUB K128 4734 10315 101040 SNZ IF P = , OR 4735 10316 0 01 10043 JMP CA04 4736 10317 0 02 10035 LDA T1CA 4737 10320 0 07 00722 SUB K104 4738 10321 100040 SZE ELSE, 4739 10322 0 01 10203 JMP CA18 GO TO CA18 4740 10323 0 01 10043 JMP CA04 4741 10324 0 02 10035 CA45 LDA T1CA 4742 10325 0 04 00041 STA I I = T1 4743 10326 0 04 10036 STA T2CA 4744 10327 140040 CRA 4745 10330 0 04 10034 STA T0CA * * * * * * * * * * * 4746 10331 0 04 00577 STA O2 O2 = C = 0 4747 10332 0 07 00731 SUB K110 P = C 4748 10333 0 04 00600 STA P 4749 10334 0 01 10230 JMP CA24 GO TO CA24 4750 * IF THE CURRENT TRIAD (IN WORKING STORAGE) MATCHES
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 99
4751 * ANY TRIAD TABLE ENTRY, EXIT WITH THE 4752 * POINTER VALUE OF THE MATCHING ENTRY 4753 * (THIS ACCOMPLISHES ELIMINATION OF REDUNDANT 4754 * SUBEXPRESSION CALCULATIONS. 4755 10335 0 000000 ST00 DAC ** TRIAD SEARCH 4756 10336 0 02 00664 LDA F 4757 10337 0 06 00721 ADD K103 4758 10340 100040 SZE 4759 10341 0 01 10353 JMP ST10 GO TO ST10 4760 10342 0 02 00600 ST05 LDA P ELSE, IF P = X 4761 10343 0 07 00755 SUB K139 4762 10344 101040 SNZ 4763 10345 0 01 10260 JMP CA31 GO TO CA31 4764 10346 0 02 00576 LDA O1 ELSE, IF 01=ACCP 4765 10347 0 07 10457 SUB ACCP 4766 10350 101040 SNZ 4767 10351 0 01 10256 JMP CA30 GO TO CA30 4768 10352 -0 01 10335 JMP* ST00 ELSE, RETURN 4769 10353 0 02 00113 ST10 LDA L0 4770 10354 0 04 00000 STA XR 4771 10355 0 02 00000 ST20 LDA XR 4772 10356 0 07 00721 SUB K103 4773 10357 0 04 00000 STA XR J = J-2 4774 10360 0 07 00044 SUB L IF J .LT. L 4775 10361 100400 SPL 4776 10362 0 01 10342 JMP ST05 GO TO ST05 4777 10363 0 02 00577 LDA O2 4778 10364 1 07 15400 SUB DP,1 IF O1/P/O2 .NE. O1/P/O2(J) 4779 10365 100040 SZE 4780 10366 0 01 10355 JMP ST20 GO TO ST20 4781 10367 1 02 15402 LDA DP+2,1 4782 10370 140100 SSP EXTRACT OFF STORE BIT 4783 10371 0 07 00600 SUB P 4784 10372 100040 SZE 4785 10373 0 01 10355 JMP ST20 4786 10374 0 02 00576 LDA O1 4787 10375 1 07 15401 SUB DP+1,1 4788 10376 100040 SZE 4789 10377 0 01 10355 JMP ST20 O1 = J 4790 10400 0 02 00000 LDA XR 4791 10401 0 04 00576 STA O1 4792 10402 0 10 02676 JST STXI ESTABLISH I 4793 10403 0 01 10261 JMP CA32 GO T0 CA32 4794 * IF J IS A REFERENCE TO A TRIAD , THE TEMP 4795 * STORE BIT 0F THE REFERENCED TRIAD IS SET.) 4796 10404 0 000000 TC00 DAC ** TEMP STORE CHECK 4797 10405 0 04 00000 STA XR 4798 10406 0 02 00054 LDA ABAR 4799 10407 0 07 00000 SUB XR 4800 10410 101400 SMI IS J .GR. ABAR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 100
4801 10411 -0 01 10404 JMP* TC00 NO. 4802 10412 1 02 15402 LDA DP+2,1 YES. 4803 10413 140500 SSM 4804 10414 1 04 15402 STA DP+2,1 S(J) = 1 4805 10415 -0 01 10404 JMP* TC00 4806 10416 000001 CA90 OCT 1,2,11,10,13,14,12,15 10417 000002 10420 000011 10421 000010 10422 000013 10423 000014 10424 000012 10425 000015 4807 10426 000002 CA91 OCT 2,1,13,14,11,10,12,15 10427 000001 10430 000013 10431 000014 10432 000011 10433 000010 10434 000012 10435 000015 4808 * 4809 * 4810 * ************* 4811 * *ENTER TRIAD* 4812 * ************* 4813 * STORE CURRENT TRIAD INTO THE NEXT TRIAD ENTRY 4814 * LOCATION. 4815 10436 0 000000 ET00 DAC ** 4816 10437 0 10 03007 JST SAV 4817 10440 0 02 00044 LDA L 4818 10441 0 07 00721 SUB K103 =3 4819 10442 0 04 00044 STA L L=L-3 4820 10443 0 04 10457 STA ACCP SET ACCUM PTR TO LAST TRIAD ENTRY 4821 10444 0 04 00000 STA 0 J=L 4822 10445 0 02 00600 LDA P 4823 10446 1 04 15402 STA DP+2,1 P(J) = P 4824 10447 0 02 00576 LDA O1 4825 10450 1 04 15401 STA DP+1,1 O1(J) = O1 4826 10451 0 02 00577 LDA O2 4827 10452 1 04 15400 STA DP,1 O2(J) = O2 4828 10453 0 02 00000 LDA 0 4829 10454 0 04 00576 STA O1 O1=J 4830 10455 0 10 03016 JST RST 4831 10456 -0 01 10436 JMP* ET00 4832 10457 0 000000 ACCP DAC ** ACCUM POINTER 4833 * 4834 * 4835 10460 SFTB BSS 36 SUBFUNCTION TABLE 4836 * **************************
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 101
4837 * *GENERATE SUBPRO ENTRANCE* 4838 * ************************** 4839 * OUTPUT SUBPROGRAM ENTRANCE CODE , INCLUDING THE 4840 * CALL TO ARGUMENT ADDRESS TRANSFER. 4841 10524 0 00 00000 T0GE PZE 0 4842 10525 0 000000 GE00 DAC ** 4843 10526 140040 CRA 4844 10527 0 04 10524 STA T0GE 4845 10530 0 02 00702 LDA K17 ( TEST 4846 10531 0 10 02547 JST TS00 4847 10532 0 10 02373 GE10 JST NA00 INPUT NAME 4848 10533 0 02 00041 LDA I IFF I=0, 4849 10534 101040 SNZ 4850 10535 0 01 10564 JMP GE20 GO TO GE20 4851 10536 0 11 10031 CAS K141 4852 10537 101000 NOP 4853 10540 0 01 10621 JMP GE30 MAKE ENTRY IN SFTB TABLE 4854 10541 0 06 00721 ADD K103 4855 10542 0 04 00041 STA I IF FULL, GO TO GE30 4856 10543 0 10 02672 JST STXA SET XR TO A 4857 10544 1 02 15400 LDA DP,1 4858 10545 000201 IAB 4859 10546 0 10 02676 JST STXI ESTABLISH I 4860 10547 000201 IAB 4861 10550 1 04 10460 STA SFTB,1 4862 10551 0 10 02672 JST STXA SET XR TO A 4863 10552 1 02 15401 LDA DP+1,1 4864 10553 000201 IAB 4865 10554 0 10 02676 JST STXI SET XR TO I 4866 10555 000201 IAB 4867 10556 1 04 10461 STA SFTB+1,1 4868 10557 0 02 00040 LDA A 4869 10560 1 04 10462 STA SFTB+2,1 4870 10561 0 10 02672 JST STXA SET XR TO A 4871 10562 140040 CRA 4872 10563 1 04 15401 STA DP+1,1 CLEAR OLD USACE 4873 10564 0 02 00723 GE20 LDA K105 4874 10565 000201 IAB 4875 10566 0 02 00060 LDA RPL 4876 10567 0 06 10524 ADD T0GE 4877 10570 0 06 00721 ADD K103 (B) = DUM 4878 10571 0 10 04214 JST AF00 DEFINE AFT (A=RPL+T0+3) 4879 10572 0 12 10524 IRS T0GE T0 = T0+1 4880 10573 0 02 00752 LDA K134 4881 10574 0 07 00607 SUB TC IF TC = , 4882 10575 101040 SNZ 4883 10576 0 01 10532 JMP GE10 GO TO GE10 4884 10577 0 10 02555 JST IP00 INPUT OPERATOR 4885 10600 140040 CRA 4886 10601 0 04 00640 STA DF
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 102
4887 10602 0 10 14127 JST OA00 OUTPUT ABS (0) 4888 10603 0 02 10524 LDA T0GE 4889 10604 0 04 01475 STA ID ID = T0 4890 10605 0 02 10623 LDA K69 4891 10606 0 04 00571 STA NAMF+1 NAMF = AT 4892 10607 0 10 02722 JST NF00 FILL IN REMAINING NAME 4893 10610 0 10 12330 JST OL00 OUTPUT OBJECT LINK 4894 10611 0 02 10524 LDA T0GE 4895 10612 140407 TCA 4896 10613 0 04 10524 STA T0GE 4897 10614 140040 CRA 4898 10615 0 10 14127 JST OA00 OUTPUT NUMBER OF ARGS 4899 10616 0 12 10524 IRS T0GE OUTPUT SPACE FOR ARG. ADDR. 4900 10617 0 01 10614 JMP *-3 4901 10620 -0 01 10525 JMP* GE00 RETURN 4902 10621 0 10 03116 GE30 JST ER00 CONSTR, ERROR 4903 10622 140705 BCI 1,AE 4904 10623 140724 K69 BCI 1,AT AT 4905 * 4906 * **************** 4907 * *EXCHANGE LINKS* 4908 * **************** 4909 * CL SUBA IS INTERCHANGED WITH CL SUBF 4910 10624 0 000000 EL00 DAC ** 4911 10625 0 10 02672 JST STXA 4912 10626 1 02 15400 LDA DP,1 4913 10627 0 04 10647 STA EL90 CL (F) == CL (A) 4914 10630 0 02 00664 LDA F 4915 10631 0 04 00000 STA 0 4916 10632 0 10 10636 JST EL40 4917 10633 0 10 02672 JST STXA 4918 10634 0 10 10636 JST EL40 4919 10635 -0 01 10624 JMP* EL00 4920 10636 0 000000 EL40 DAC ** 4921 10637 1 02 15400 LDA DP,1 4922 10640 0 13 10647 IMA EL90 4923 10641 0 03 00735 ANA K118 4924 10642 1 13 15400 IMA DP,1 4925 10643 0 03 00736 ANA K119 4926 10644 1 06 15400 ADD DP,1 4927 10645 1 04 15400 STA DP,1 4928 10646 -0 01 10636 JMP* EL40 4929 10647 0 00 00000 EL90 PZE 0 4930 * 4931 * 4932 * ***************** 4933 * *NON COMMON TEST* 4934 * ***************** 4935 10650 0 000000 NM00 DAC ** NON-COMMON TEST 4936 10651 0 02 00631 LDA AT
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 103
4937 10652 0 07 00722 SUB K104 4938 10653 100040 SZE 4939 10654 -0 01 10650 JMP* NM00 4940 10655 0 10 03116 JST ER00 4941 10656 141722 BCI 1,CR ILLEGAL COMMON REFERENCE 4942 * 4943 * 4944 * ************************** 4945 * *NON DUMMY OR SUBPRO TEST* 4946 * ************************** 4947 10657 0 000000 ND00 DAC ** 4948 10660 0 02 00631 LDA AT TEST 4949 10661 0 07 00723 SUB K105 4950 10662 100040 SZE 4951 10663 0 01 10667 JMP ND10 4952 10664 0 10 03116 JST ER00 4953 10665 142301 BCI 1,DA ILLEGAL USE OF A DUMMY ARGUMENT 4954 10666 -0 01 10657 JMP* ND00 4955 10667 0 10 02617 ND10 JST NS00 4956 10670 -0 01 10657 JMP* ND00 4957 * 4958 * 4959 * ***************** 4960 * *INPUT SUBSCRIPT* 4961 * ***************** 4962 10671 0 00 00000 SCT0 PZE 0 4963 10672 0 000000 SC00 DAC ** 4964 10673 0 04 10671 STA SCT0 T0 = (A) 4965 10674 140040 CRA 4966 10675 0 04 00572 STA NS 4967 10676 0 04 00605 STA S2 NS = S2 = S3 = 0 4968 10677 0 04 00606 STA S3 4969 10700 0 02 00702 LDA K17 (-TEST 4970 10701 0 10 02547 JST TS00 4971 10702 0 02 00660 SC10 LDA EBAR 4972 10703 101400 SMI 4973 10704 0 01 10710 JMP SC15 EBAR .GR. 0 4974 10705 0 10 02525 JST XN00 EXAMINE NEXT CHAR, 4975 10706 100040 SZE 4976 10707 0 01 10745 JMP SC70 IF (A) NON ZERO, 4977 10710 0 10 02404 SC15 JST IG00 GO TO SC70 4978 10711 0 02 10671 LDA SCT0 INPUT INTEGER 4979 10712 100040 SZE 4980 10713 100400 SPL 4981 10714 0 01 10720 JMP SC60 4982 10715 0 02 01475 LDA ID 4983 10716 0 07 00717 SUB K101 4984 10717 0 01 10722 JMP SC30 4985 10720 0 10 03241 SC60 JST AS00 ASSIGN ITEM 4986 10721 0 02 00040 SC20 LDA A S (NS+1) = A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 104
4987 10722 000201 SC30 IAB 4988 10723 0 02 10757 LDA SC90 4989 10724 0 06 00572 ADD NS 4990 10725 0 04 10760 STA SC91 4991 10726 000201 IAB S(NS + 1) = A 4992 10727 -0 04 10760 STA* SC91 4993 10730 0 02 00572 LDA NS 4994 10731 141206 AOA 4995 10732 0 04 00572 STA NS NS = NS + 1 4996 10733 0 07 00721 SUB K103 4997 10734 100040 SZE 4998 10735 0 01 10740 JMP SC50 MORE SUBSCRIPTS PERMITTED 4999 10736 0 10 02555 SC40 JST IP00 )-INPUT OPERATOR 5000 10737 -0 01 10672 JMP* SC00 RETURN 5001 10740 0 02 00607 SC50 LDA TC 5002 10741 0 07 00752 SUB K134 5003 10742 100040 SZE 5004 10743 0 01 10736 JMP SC40 TERMINATOR NOT A COMMA 5005 10744 0 01 10702 JMP SC10 G0 TO SC10 5006 10745 0 10 02437 SC70 JST IR00 INPUT INT VARIABLE 5007 10746 0 02 10671 LDA SCT0 CHECK FOR NON-DUMMY 5008 10747 101040 SNZ VARIABLE DIMENSIONS 5009 10750 0 01 10721 JMP SC20 5010 10751 0 02 00631 LDA AT 5011 10752 0 07 00723 SUB K105 5012 10753 101040 SNZ 5013 10754 0 01 10721 JMP SC20 5014 10755 0 10 03116 JST ER00 5015 10756 153304 BCI 1,VD ILLEGAL SYMBOLIC SUBSCRIPT 5016 10757 0 000604 SC90 DAC S1 5017 10760 0 000000 SC91 DAC ** 5018 * 5019 * 5020 * ******************** 5021 * *INPUT LIST ELEMENT* 5022 * ******************** 5023 * IF THE ITEM IS AN ARRAY, PROCESS THE SUBSCRIPT 5024 10761 0 000000 IL00 DAC ** 5025 10762 0 10 02373 JST NA00 INPUT NAME 5026 10763 0 02 00631 LDA AT 5027 10764 0 07 00723 SUB K105 NON-DUMMY TEST 5028 10765 100040 SZE 5029 10766 0 01 10771 JMP *+3 5030 10767 0 10 03116 JST ER00 USAGE ERROR 5031 10770 142304 BCI 1,DD DUMMY ITEM IN AN EQUIV, OR DATA LIST 5032 10771 0 02 00655 LDA IU IF IU NOT ARR, 5033 10772 0 07 00721 SUB K103 5034 10773 100040 SZE 5035 10774 0 01 11037 JMP IL30 GO TO IL30 5036 10775 0 02 00721 LDA K103
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 105
5037 10776 0 10 10672 JST SC00 INPUT SUBSCRIPTS 5038 10777 0 10 03656 JST FA00 FETCH ASSIGNS 5039 11000 0 02 00571 LDA ND IF ND = NS 5040 11001 0 07 00572 SUB NS 5041 11002 100040 SZE S1 = D* (S1 + D1* (S2+D2*S3) 5042 11003 0 01 11022 JMP IL10 ELSE, GO TO IL10 5043 11004 0 02 00606 LDA S3 5044 11005 000201 IAB 5045 11006 0 02 00635 LDA D2 5046 11007 0 10 02703 JST IM00 5047 11010 0 06 00605 ADD S2 5048 11011 000201 IAB 5049 11012 0 02 00634 LDA D1 5050 11013 0 10 02703 JST IM00 5051 11014 0 06 00604 ADD S1 5052 11015 000201 IAB 5053 11016 0 02 00633 LDA D0 5054 11017 0 10 02703 JST IM00 5055 11020 0 04 00604 STA S1 5056 11021 -0 01 10761 JMP* IL00 RETURN 5057 11022 0 02 00572 IL10 LDA NS IF NS NOT 1 5058 11023 0 07 00717 SUB K101 5059 11024 100040 SZE 5060 11025 0 01 11034 JMP IL20 GO TO IL20 5061 11026 0 02 00604 LDA S1 ELSE, 20 5062 11027 000201 IAB S1 * D0*S1 5063 11030 0 02 00633 LDA D0 5064 11031 0 10 02703 JST IM00 5065 11032 0 04 00604 IL18 STA S1 5066 11033 -0 01 10761 JMP* IL00 RETURN 5067 11034 0 10 03116 IL20 JST ER00 5068 11035 147304 BCI 1,ND WRONG NUMBER OF DIMENSIONS IN ARRAY ELEMENT 5069 11036 -0 01 10761 JMP* IL00 RETURN 5070 11037 0 10 03642 IL30 JST TV00 TAG VARIABLE 5071 11040 140040 CRA S1 = 0 5072 11041 0 01 11032 JMP IL18 RETURN 5073 * 5074 * 5075 * ************ 5076 * *FUNCTION * 5077 * *SUBROUTINE* 5078 * ************ 5079 * IF LSTF IS ZERO, THE STATEMENT IS OUT OF ORDER 5080 * FUNCTIONS ARE CHECKED TO ENSURE ARGUMENTS 5081 11042 0 02 00717 R1 LDA K101 5082 11043 0 04 00046 STA SFF SFF = 1 5083 11044 0 02 00072 R2 LDA LSTF 5084 11045 100040 SZE IF LSTF = 0 5085 11046 0 01 11051 JMP R2A 5086 11047 0 10 03116 JST ER00 ILLEGAL STATEMENT
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 106
5087 11050 143323 BCI 1,FS NOT FIRST STATEMENT IN SUBPROGRAM 5088 11051 0 10 02373 R2A JST NA00 INPUT NAME 5089 11052 0 02 00040 LDA A 5090 11053 0 04 00047 STA SBF SBF = A 5091 11054 140040 CRA ADDR=0, S/C CODE =0 5092 11055 0 10 14312 JST ON00 OUTPUT NAME BLOCK TO THE LOADER 5093 11056 0 02 00045 LDA MFL 5094 11057 100040 SZE 5095 11060 0 10 04026 JST DM00 DEFINE IM 5096 11061 0 02 00607 LDA TC 5097 11062 0 07 00756 SUB CRET IF IC NOT C/R 5098 11063 100040 SZE 5099 11064 0 01 11072 JMP R2C GO TO 5100 11065 0 02 00046 LDA SFF IF SFF = 0 5101 11066 101040 SNZ 5102 11067 0 01 11076 JMP R2D GO TO R2D 5103 11070 0 10 03116 JST ER00 ERROR 5104 11071 143301 BCI 1,FA FUNCTION HAS NO ARGUMENTS 5105 11072 140040 R2C CRA 5106 11073 0 04 00041 STA I I = 0 5107 11074 0 10 10525 JST GE00 GENERATE SUBPROGRAM ENTRY 5108 11075 0 01 04266 JMP A1 GO TO C/R TEST 5109 11076 140040 R2D CRA 5110 11077 0 10 14127 JST OA00 OUTPUT ABS 5111 11100 0 01 04271 JMP C6 GO TO CONTINUE 5112 * 5113 * 5114 * ****************** 5115 * *INTEGER * 5116 * *REAL * 5117 * *DOUBLE PRECISION* 5118 * *COMPLEX * 5119 * *LOGICAL * 5120 * ****************** 5121 * THE MODE FLAG (MFL) IS SET TO THE APPROPRIATE 5122 * VALUE AND ANY ARRAY INFO IS PROCESSED 5123 11101 0 02 00717 A3 LDA K101 INTEGER 5124 11102 0 01 11112 JMP A7A TMFL = INT 5125 11103 0 02 00720 A4 LDA K102 REAL 5126 11104 0 01 11112 JMP A7A TMFL = REAL 5127 11105 0 02 00724 A5 LDA K106 DOUBLE PRECISION 5128 11106 0 01 11112 JMP A7A TMFL = DBL 5129 11107 0 02 00723 A6 LDA K105 COMPLEX 5130 11110 0 01 11112 JMP A7A TMFL = CPX 5131 11111 0 02 00721 A7 LDA K103 LOGICAL 5132 11112 0 04 00045 A7A STA MFL TMFL = LOG 5133 11113 0 02 00072 LDA LSTF IF LSTF = 0, GO TO A7B (2) 5134 11114 101040 SNZ 5135 11115 0 01 11140 JMP A7B ELSE, 5136 11116 0 02 00662 LDA CC SAVE CC
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 107
5137 11117 0 04 11144 STA A790 5138 11120 140040 CRA 5139 11121 0 04 00651 STA ICSW 5140 11122 0 10 01521 JST DN00 INPUT DNA 5141 11123 0 02 11144 LDA A790 RESTORE CC 5142 11124 0 04 00662 STA CC 5143 11125 0 04 00651 STA ICSW ICSW = IPL 5144 11126 0 02 00643 LDA DFL IF DFL NOT = 0, GO TO A7B 5145 11127 100040 SZE 5146 11130 0 01 11140 JMP A7B 5147 11131 0 02 01475 LDA TID IF ID = FUNCTI, 5148 11132 0 07 11137 SUB A7K GO TO A9 5149 11133 101040 SNZ SKIP IF NOT 'FUNCTION' 5150 11134 0 01 04602 JMP A9 FUNCTION PROCESSOR 5151 11135 0 10 03116 A7A5 JST ER00 CONSTRUCTION ERROR 5152 11136 152306 BCI 1,TF 'TYPE' NOT FOLLOWED BY 'FUNCTION' OR LIST 5153 11137 143325 A7K BCI 1,FU CONSTANT FOR 'FUNCTION' CHECK 5154 11140 0 10 02373 A7B JST NA00 INPUT NAME 5155 11141 0 02 00045 LDA MFL 5156 11142 0 10 04026 JST DM00 DEFINE IM 5157 11143 0 01 11246 JMP B7 GO TO INPUT DIMENSION 5158 11144 0 00 00000 A790 PZE 0 5159 * 5160 * 5161 * - B2 EXTERNAL 5162 * TAGS NAME AS SUBPROGRAM 5163 11145 0 10 02373 B2 JST NA00 EXTERNAL, INPUT NAME 5164 11146 0 10 03465 JST TG00 TAG SUBPROGRAM 5165 11147 0 01 02567 JMP B1 GO TO , OR C/R TEST 5166 * 5167 * 5168 * ***************** 5169 * *DIMENSION * 5170 * *INPUT DIMENSION* 5171 * ***************** 5172 * PROCESS ARRAYS, PUT DIMENSION INFO IN SPECIAL 5173 * ARRAY POINTER ITEM 5174 11150 0 00 00000 B3T0 PZE 0 5175 11151 0 00 00000 B3T1 PZE 0 5176 11152 0 00 00000 B3T2 PZE 0 5177 11153 0 00 00000 B3T3 PZE 0 5178 11154 0 10 02373 B3 JST NA00 5179 11155 0 02 00631 B3A LDA AT IF AT = DUM 5180 11156 0 07 00723 SUB K105 (A) = 0 5181 11157 100040 SZE ELSE (A) = .LT. 0 5182 11160 140500 SSM 5183 11161 0 04 11150 B3B STA B3T0 T0 = (A) 5184 11162 0 02 00630 LDA AF 5185 11163 0 04 11153 STA B3T3 T3 = AF 5186 11164 0 02 00040 LDA A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 108
5187 11165 0 04 11151 STA B3T1 T1 = A 5188 11166 0 02 00631 LDA AT TEST FOR AT=DUMMY 5189 11167 0 07 00723 SUB K105 =5 5190 11170 100040 SZE SKIP NO-USAGE TEST IF DUMMY 5191 11171 0 10 02603 JST NU00 NO USAGE TEST 5192 11172 0 10 02672 JST STXA 5193 11173 1 02 15401 LDA DP+1,1 IU (A) = ARR 5194 11174 0400 62 LRL 14 5195 11175 0 02 00721 LDA K103 5196 11176 0410 62 LLL 14 5197 11177 1 04 15401 STA DP+1,1 5198 11200 0 02 11150 LDA B3T0 (A) = T0 5199 11201 0 10 10672 JST SC00 INPUT SUBSCRIPT 5200 11202 0 02 00604 LDA S1 5201 11203 0 04 01475 STA ID 5202 11204 0 02 00605 LDA S2 PLACE SUBSCRIPTS IN ID 5203 11205 0 04 01476 STA ID+1 5204 11206 0 02 00606 LDA S3 5205 11207 0 04 01477 STA ID+2 5206 11210 0 02 00572 LDA NS (A) = 0, B = NS 5207 11211 0400 60 LRL 16 5208 11212 0 10 04252 JST AA00 ASSIGN SPECIAL. 5209 11213 0 10 02672 JST STXA 5210 11214 1 02 15401 LDA DP+1,1 5211 11215 0412 76 LLR 2 5212 11216 0 02 11153 LDA B3T3 5213 11217 0414 76 LGL 2 5214 11220 0402 76 LRR 2 5215 11221 1 04 15401 STA DP+1,1 DEFINE GF T0 GF(A) 5216 11222 0 02 00040 LDA A 5217 11223 0 04 11152 STA B3T2 T2 = A 5218 11224 0 02 11151 LDA B3T1 5219 11225 0 04 00040 STA A A = T1 5220 11226 0 10 02672 JST STXA 5221 11227 1 02 15401 LDA DP+1,1 5222 11230 0412 76 LLR 2 5223 11231 0 02 11152 LDA B3T2 5224 11232 0414 76 LGL 2 5225 11233 0402 76 LRR 2 5226 11234 1 04 15401 STA DP+1,1 DEFINE GF TO GF(A) 5227 11235 0 02 00607 B3D LDA TC 5228 11236 0 07 00722 SUB K104 IF TC NOT SLASH 5229 11237 100040 SZE 5230 11240 0 01 02567 JMP B1 GO TO ,-C/R TEST 5231 11241 0 02 04600 LDA A9T2 IF SIDSW = COMMON-4 5232 11242 0 07 11333 SUB B4Z9 5233 11243 100040 SZE GO T0 B4 (COMMON-0) 5234 11244 0 01 02567 JMP B1 ELSE, GO TO ,-C/R TEST 5235 11245 0 01 11265 JMP B40 5236 11246 0 02 00607 B7 LDA TC IF TC = (
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 109
5237 11247 0 07 00702 SUB K17 5238 11250 100040 SZE 5239 11251 0 01 11235 JMP B3D 5240 11252 0 01 11155 JMP B3A 5241 * 5242 * 5243 * ******** 5244 * *COMMON* 5245 * ******** 5246 * INPUT BLOCK NAMES AND LINK THEM WITH THE 5247 * FOLLOWING VAR/ARRAY NAMES, BLOCK NAMES 5248 * ARE LINKED TOGETHER THROUGH THEIR GENERAL FIELDS 5249 11253 0 02 02731 B4 LDA K81 5250 11254 0 04 01475 STA ID 5251 11255 0 04 01476 STA ID+1 5252 11256 0 04 01477 STA ID+2 5253 11257 0 02 11333 LDA B4Z9 SET SWITCH IN INPUT DIMENSION 5254 11260 0 04 04600 STA A9T2 5255 11261 0 10 01256 JST CH00 INPUT CHAR 5256 11262 0 07 00674 SUB K9 IF NOT SLASH 5257 11263 100040 SZE GO TO 5258 11264 0 01 11331 JMP B4E 5259 11265 0 10 01521 B40 JST DN00 INPUT DNA 5260 11266 0 02 00722 LDA K104 SLASH TEST 5261 11267 0 10 02547 JST TS00 5262 11270 0400 40 B4B LRL 32 5263 11271 0 02 00717 LDA K101 (A) = SUB, (B) = 0 5264 11272 0 10 04252 JST AA00 ASSIGN SPECIAL 5265 11273 0 02 00056 LDA CFL 5266 11274 101040 SNZ 5267 11275 0 02 00040 LDA A 5268 11276 0 04 00056 STA CFL 5269 11277 0 02 00040 LDA A 5270 11300 0 04 00664 STA F 5271 11301 0 10 03770 JST FL00 FETCH LINK 5272 11302 100040 SZE 5273 11303 0 01 11320 JMP B4D 5274 11304 0 02 00056 LDA CFL 5275 11305 0 04 00000 STA 0 5276 11306 1 02 15401 LDA DP+1,1 GF(CFL) 5277 11307 0 13 00040 IMA A 5278 11310 0 04 00000 STA 0 INDEX = A 5279 11311 0 13 00040 IMA A 5280 11312 1 04 15401 STA DP+1,1 GF(A) = GF(CFL) 5281 11313 0 02 00056 LDA CFL 5282 11314 0 04 00000 STA 0 INDEX = CFL 5283 11315 0 02 00040 LDA A 5284 11316 0 06 00740 ADD K122 ='040000 5285 11317 1 04 15401 STA DP+1,1 GF(CFL) = A 5286 11320 0 10 02373 B4D JST NA00 INPUT NAME
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 110
5287 11321 0 10 10657 JST ND00 NON DUMMY/SUBPROG TEST 5288 11322 0 10 10650 JST NM00 NON-COMMON TEST 5289 11323 0 10 10624 JST EL00 EXCHANGE LINKS 5290 11324 1 02 15400 LDA DP,1 5291 11325 0 03 11334 ANA B4F ='107777 5292 11326 0 06 00740 ADD K122 AT(A) = COM (='040000) 5293 11327 1 04 15400 STA DP,1 5294 11330 0 01 11246 JMP B7 5295 11331 0 10 01251 B4E JST UC00 UNINPUT COLUMN 5296 11332 0 01 11270 JMP B4B 5297 11333 0 011320 B4Z9 DAC B4D GO TO INPUT DIMENSION 5298 11334 107777 B4F OCT 107777 EXTRACT MASK TO STRIP OFF AT FIELD 5299 * 5300 * 5301 * ************* 5302 * *EQUIVALENCE* 5303 * ************* 5304 * STORE EQUIV INFO IN THE DATA POOL FOR LATER 5305 * PROCESSING BY GROUP EQUIV (PART OF SPECS WRAPUP) 5306 11335 0 02 00646 B5 LDA E0 L = NEXT WORD IN EQUIVALENCE TABLE 5307 11336 0 04 00041 STA I I=L 5308 11337 0 07 00717 SUB K101 (=1) 5309 11340 0 04 00646 STA E0 L=L-1 5310 11341 0 07 00054 SUB ABAR 5311 11342 101400 SMI 5312 11343 0 01 11346 JMP *+3 5313 11344 0 10 03116 JST ER00 DATA POOL FULL 5314 11345 146717 BCI 1,MO MEMORY OVERFLOW 5315 11346 0 10 02676 JST STXI ESTABLISH I 5316 11347 140040 CRA 5317 11350 1 04 15400 STA DP,1 DP (I) = 0 5318 11351 0 10 01256 B5B JST CH00 5319 11352 1 02 15400 LDA DP,1 INPUT CHAR 5320 11353 100040 SZE 5321 11354 0 01 11371 JMP B5D 5322 11355 0 02 00607 LDA TC PUT IN FIRST CHARACTER 5323 11356 0414 70 LGL 8 PACK INTO DP (I) 5324 11357 1 04 15400 B5C STA DP,1 5325 11360 0 02 00607 LDA TC 5326 11361 0 07 00756 SUB CRET 5327 11362 101040 SNZ 5328 11363 0 01 04271 JMP C6 CHARACTER E C/R - EXIT 5329 11364 1 02 15400 LDA DP,1 5330 11365 0 03 00727 ANA K100 5331 11366 101040 SNZ 5332 11367 0 01 11351 JMP B5B WORD NOT FULL 5333 11370 0 01 11335 JMP B5 OBTAIN NEW WORD 5334 11371 0 02 00607 B5D LDA TC PUT IN SECOND CHARACTER 5335 11372 1 05 15400 ERA DP,1 5336 11373 0 01 11357 JMP B5C
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 111
5337 * 5338 * 5339 * ********************* 5340 * *RELATE COMMON ITEMS* 5341 * ********************* 5342 * ALL ITEMS LINKED TO A COMMON BLOCK ARE PROCESSED 5343 * AND THEIR INVERSE OFFSETS CALCULATED. THESE 5344 * WILL BE INVERTED LATER TO GIVE TRUE 5345 * POSITION IN THE BLOCK. 5346 11374 0 00 00000 C2T0 PZE 0 5347 11375 0 02 00056 C2 LDA CFL 5348 11376 0 04 00040 STA A A = F = CFL 5349 11377 140040 C2A CRA 5350 11400 0 04 11374 STA C2T0 T0 = 0 5351 11401 0 02 00040 LDA A 5352 11402 0 04 00664 STA F F = A 5353 11403 0 10 03770 C2B JST FL00 FETCH LINK 5354 11404 101040 SNZ 5355 11405 0 01 11413 JMP C2D 5356 11406 0 02 00633 LDA D0 5357 11407 0 06 11374 ADD C2T0 T0 = T0 + D0 5358 11410 0 04 11374 STA C2T0 5359 11411 0 10 04041 JST DA00 DEFINE ADDRESS FIELD 5360 11412 0 01 11403 JMP C2B 5361 11413 0 10 03770 C2D JST FL00 FETCH LINK 5362 11414 100040 SZE 5363 11415 0 01 11424 JMP C2F 5364 11416 0 02 00630 LDA AF 5365 11417 0 04 00040 STA A A = AF 5366 11420 0 07 00056 SUB CFL 5367 11421 100040 SZE 5368 11422 0 01 11377 JMP C2A AF = CFL. NO 5369 11423 0 01 11442 JMP C3 YES - GROUP EQUIVALENCE 5370 11424 0 02 11374 C2F LDA C2T0 5371 11425 0 07 00630 SUB AF (A) = T0 - AF 5372 11426 0 10 04041 JST DA00 DEFINE AF 5373 11427 0 02 00655 LDA IU 5374 11430 100040 SZE 5375 11431 0 01 11413 JMP C2D 5376 11432 0 10 03642 JST TV00 TAG VARIABLE 5377 11433 0 01 11413 JMP C2D 5378 * 5379 * 5380 * ******************* 5381 * *GROUP EQUIVALENCE* 5382 * ******************* 5383 * THE EQUIV GROUPS ARE PROCESSED NOW. ANY COMMON 5384 * USAGE IS CHECKED TO SEE THAT THE ORIGIN 5385 * IS NOT MOVED AND THAT ONLY ONE ITEM IS 5386 * COMMON.
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 112
5387 11434 0 00 00000 C3T0 PZE 0 5388 11435 0 00 00000 C3T1 PZE 0 5389 11436 0 00 00000 C3T2 PZE 0 5390 11437 0 00 00000 C3T3 PZE 0 5391 11440 0 00 00000 C3T4 PZE 0 5392 11441 0 00 00000 C3T5 PZE 0 5393 011434 T0C3 EQU C3T0 5394 011435 T1C3 EQU C3T1 5395 011436 T2C3 EQU C3T2 5396 011437 T3C3 EQU C3T3 5397 011440 T4C3 EQU C3T4 5398 11442 0 02 00646 C3 LDA E0 5399 11443 0 04 00660 STA EBAR EBAR=E(0) = END OF EQUIVALENCE TABLE 5400 11444 0 02 00113 LDA L0 5401 11445 0 04 00644 STA E E=L(0) = START OF EUUIVALENCE TABLE 5402 11446 0 02 00756 LDA CRET 5403 11447 0 04 00607 STA TC 5404 11450 0 02 00644 C3B LDA E 5405 11451 0 04 00645 STA EP E-PRIME = E 5406 11452 140040 CRA 5407 11453 0 04 00664 STA F I = 0 5408 11454 0 02 00720 LDA K102 T4 = STR-ABS 5409 11455 0 04 11440 STA C3T4 5410 11456 0 10 01256 JST CH00 INPUT CHARACTER 5411 11457 0 02 00702 LDA K17 5412 11460 0 10 02547 JST TS00 (TEST 5413 11461 0 10 10761 C3D JST IL00 INPUT LIST ELEMENT 5414 11462 0 10 11751 JST SAF 5415 11463 0 02 00604 LDA S1 5416 11464 0 07 00630 SUB AF TL = S1-AF 5417 11465 0 04 11435 STA C3T1 5418 11466 0 02 00040 LDA A T2 = A 5419 11467 0 04 11436 STA C3T2 5420 11470 0 02 00664 C3F LDA F IF I=0, GO TO C3P 5421 11471 101040 SNZ 5422 11472 0 01 11607 JMP C3P 5423 11473 0 02 00664 C3G LDA F ELSE, 5424 11474 0 07 00040 SUB A 5425 11475 101040 SNZ IF A = I, GO TO C3N 5426 11476 0 01 11556 JMP C3N 5427 11477 0 02 00631 C3H LDA AT 5428 11500 0 07 00722 SUB K104 ELSE, 5429 11501 101040 SNZ IF AT = COM, GO TO C3O 5430 11502 0 01 11563 JMP C3O 5431 11503 0 02 11435 C3H2 LDA T1C3 5432 11504 0 06 00630 ADD AF 5433 11505 0 04 11434 STA T0C3 T(0) = AF +T (1) 5434 11506 0 02 11440 LDA T4C3 5435 11507 0 07 00722 SUB K104 IF T(4) = 0, GO T0 C3K 5436 11510 100040 SZE
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 113
5437 11511 0 01 11521 JMP C3K 5438 11512 0 02 11437 LDA T3C3 5439 11513 0 07 11434 SUB T0C3 ELSE, 5440 11514 0 04 11434 STA T0C3 T(0) = T(3)-T(0) 5441 11515 101400 SMI 5442 11516 0 01 11521 JMP C3K 5443 11517 0 10 03116 JST ER00 IF T(0)<0, 5444 11520 144703 BCI 1,IC 5445 11521 0 02 11440 C3K LDA C3T4 IMPOSSIBLE COMMON EQUIVALENCING 5446 11522 000201 IAB 5447 11523 0 02 11434 LDA T0C3 AT (A) = COM 5448 11524 0415 76 ALS 2 5449 11525 0404 76 LGR 2 5450 11526 0 10 04214 JST AF00 5451 11527 0 10 03770 JST FL00 DEFINE AF 5452 11530 0 10 11751 JST SAF FETCH LINK 5453 11531 0 02 00040 LDA A 5454 11532 0 07 11436 SUB C3T2 5455 11533 100040 SZE IF A .NE. T (2), 5456 11534 0 01 11473 JMP C3G GO TO C3G (5) 5457 * 5458 11535 0 10 10624 JST EL00 EXCHANGE CL(A) == CL(I) 5459 11536 0 02 00607 C3M LDA TC EXCHANGE LINKS (CL(A) WITH CL(F) ) 5460 11537 0 07 00752 SUB K134 IF TC = , 5461 11540 101040 SNZ 5462 11541 0 01 11461 JMP C3D ELSE, 5463 11542 0 10 02555 JST IP00 )-INPUT OPERATOR 5464 11543 0 02 00607 LDA TC 5465 11544 0 07 00752 SUB K134 IF TC = , OR C/R 5466 11545 101040 SNZ GO TO C3B (1) 5467 11546 0 01 11450 JMP C3B 5468 11547 0 02 00607 LDA TC 5469 11550 0 07 00756 SUB CRET 5470 11551 101040 SNZ 5471 11552 0 01 11450 JMP C3B ELSE, 5472 11553 0 10 03116 JST ER00 5473 11554 142703 BCI 1,EC EOUIVALENCE GROUP NOT FOLLOWED BY , OR CR 5474 11555 0 01 11450 JMP C3B 5475 11556 0 02 11435 C3N LDA T1C3 IF T1 = 0, GO TO C3M 5476 11557 101040 SNZ 5477 11560 0 01 11536 JMP C3M 5478 11561 0 10 03116 C3N5 JST ER00 ERROR IMPOSSIBLE GROUP 5479 11562 144705 BCI 1,IE IMPOSSIBLE EQUIVALENCE GROUPING 5480 11563 0 02 00604 C3O LDA S1 5481 11564 0 06 00630 ADD AF 5482 11565 0 04 11437 STA T3C3 5483 11566 0 02 00722 LDA K104 =4 5484 11567 0 11 11440 CAS T4C3 5485 11570 0 01 11572 JMP *+2 5486 11571 0 01 11561 JMP C3N5
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 114
5487 11572 0 04 11440 STA T4C3 5488 11573 0 02 00664 LDA F 5489 11574 0 11 00040 CAS A IF A = F, GO TO C3M (B) 5490 11575 0 01 11577 JMP *+2 5491 11576 0 01 11536 JMP C3M ELSE, 5492 11577 0 04 00040 STA A A = I 5493 11600 0 13 11436 IMA C3T2 5494 11601 0 04 00664 STA F 5495 11602 140040 CRA T1 = 0 5496 11603 0 04 11435 STA C3T1 5497 11604 0 10 03656 JST FA00 FETCH ASSIGNS 5498 11605 0 10 11751 JST SAF 5499 11606 0 01 11503 JMP C3H2 GO TO C3H2 5500 11607 0 02 00040 C3P LDA A 5501 11610 0 04 00664 STA F 5502 11611 0 01 11477 JMP C3H 5503 * 5504 * 5505 * *********************** 5506 * *ASSIGN SPECIFICATIONS* 5507 * *********************** 5508 * NON-COMMON NON-EQUIV ITEMS ARE PROCESSED AFTER 5509 * COMMON BLOCKS ARE OUTPUT (WITH SIZE). 5510 11612 0 00 00000 C4T0 PZE 0 5511 11613 0 00 00000 C4T1 PZE 0 5512 11614 0 04 00040 C4B STA A A = 0 5513 11615 0 02 00040 C4C LDA A 5514 11616 0 06 00723 ADD K105 I = A = A+5 5515 11617 0 04 00040 STA A 5516 11620 0 04 00664 STA F 5517 11621 0 11 00054 CAS ABAR 5518 11622 0 01 05173 JMP NP35 RETURN TO FIRST NON-SPEC CHECK (POINT 1) 5519 11623 101000 NOP 5520 11624 0 10 03656 JST FA00 ELSE, FETCH ASSIGN 5521 11625 0 02 00631 LDA AT 5522 11626 0 07 00720 SUB K102 IF AT = STR-ABS 5523 11627 100040 SZE IU=VAR, OR ARR, AND 5524 11630 0 01 11615 JMP C4C NT = 0 5525 11631 0 02 00655 LDA IU GO TO C4E 5526 11632 0 07 00720 SUB K102 ELSE, GO TO C4C 5527 11633 100400 SPL 5528 11634 0 01 11615 JMP C4C 5529 11635 0 02 00573 LDA NT 5530 11636 100040 SZE 5531 11637 0 01 11615 JMP C4C 5532 11640 140040 C4E CRA 5533 11641 0 04 11612 STA C4T0 T0 = 0. T1 =-MAX 5534 11642 0 07 00730 SUB K111 5535 11643 0 04 11613 STA C4T1 5536 11644 0 10 04005 JST KT00 SET D(0) = NO. OF WORDS PER ITEM
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 115
5537 11645 0 10 11751 C4F JST SAF 5538 11646 0 11 11612 CAS C4T0 5539 11647 0 04 11612 STA C4T0 5540 11650 101000 NOP 5541 11651 0 02 00633 LDA D0 5542 11652 0 07 00630 SUB AF (A) = D(0) - AF 5543 11653 0 11 11613 CAS C4T1 5544 11654 0 04 11613 STA C4T1 5545 11655 101000 NOP 5546 11656 0 10 03770 JST FL00 FETCH LINK ( (A)=A - F ) 5547 11657 100040 SZE 5548 11660 0 01 11645 JMP C4F GO TO C4F 5549 11661 0 02 00060 LDA RPL 5550 11662 0 06 11612 ADD C4T0 RPL * RPL + T0 + TL 5551 11663 0 04 11612 STA C4T0 5552 11664 0 06 11613 ADD C4T1 TO = RPL-T1 5553 11665 0 04 00060 STA RPL 5554 11666 0 10 11751 C4I JST SAF 5555 11667 0 02 00717 LDA K101 5556 11670 000201 IAB (B) = REL 5557 11671 0 02 11612 LDA C4T0 (A) = TO-AF 5558 11672 0 07 00630 SUB AF 5559 11673 0 10 04214 JST AF00 DEFIME AFT 5560 11674 0 10 03770 JST FL00 FETCH LINK 5561 11675 100040 SZE IF (A) NOT ZERO, 5562 11676 0 01 11666 JMP C4I NOT END OF EQUIVALENCE GROUP 5563 11677 0 01 11615 JMP C4C CHECK NEXT ITEM IN ASSIGNMENI TABLE 5564 * 5565 11700 0 02 00667 C4L2 LDA FLT1 = LINK LOCATION TO COMMON BLOCK NAME 5566 11701 0 04 11613 STA C4T1 5567 11702 0 02 00040 C4L3 LDA A 5568 11703 0 04 00041 STA I SAVE A FOR LATER MODIFICATION 5569 11704 0 10 03770 JST FL00 FETCH LINK 5570 11705 101040 SNZ 5571 11706 0 01 11733 JMP C4M END OF COMMON GROUP 5572 11707 0 10 02676 JST STXI SET INDEX TO POINT TO CURRENT ITEM IN 5573 * COMMON GROUP. 5574 11710 1 02 15400 LDA DP,1 SET CL FIELD TO POINT AT COMMON BLOCK 5575 * NAME. 5576 11711 0 03 00736 ANA K119 ( = '177000) 5577 11712 0 06 11613 ADD C4T1 (= LINK LOCATION OF COMMON BLOCK NAME) 5578 11713 1 04 15400 STA DP,1 5579 11714 0 01 11702 JMP C4L3 PROCESS NEXT ITEM IN COMMON BLOCK 5580 * 5581 11715 0 02 00056 C4 LDA CFL LOC, OF FIRST (BLANK) COMMON BLOCK 5582 11716 0 04 00664 STA F 5583 11717 0 04 00040 C4L6 STA A 5584 11720 140040 CRA 5585 11721 0 04 11612 STA C4T0 5586 11722 0 10 03770 C4L JST FL00 FETCH LINK
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 116
5587 11723 101040 SNZ 5588 11724 0 01 11700 JMP C4L2 NO MORE ITEMS IN COMMON BLOCK 5589 11725 0 02 00633 LDA D0 ELSE, IF TO .LT. DO+AF, 5590 11726 0 06 00630 ADD AF 5591 11727 0 11 11612 CAS C4T0 T0 = D0 + AF 5592 11730 0 04 11612 STA C4T0 5593 11731 101000 NOP 5594 11732 0 01 11722 JMP C4L GO TO C4L 5595 11733 0 02 00630 C4M LDA AF 5596 11734 0 04 00664 STA F I=AF 5597 11735 0 02 11612 LDA C4T0 (A) = T0 5598 11736 0 10 04041 JST DA00 DEFINE AF 5599 *....OUTPUT COMMON BLOCK NAME AND SIZE TO LOADER 5600 11737 0 02 00630 LDA AF LENGTH OF COMMON BLOCK 5601 11740 0 03 00730 ANA K111 ='37777 5602 11741 0 06 00740 ADD K122 ='40000 (S/C CODE = 1) 5603 11742 0 10 14312 JST ON00 OUTPUT NAME BLOCK TO LOADER 5604 11743 0 02 00664 LDA F 5605 11744 0 07 00056 SUB CFL IF I = CFL 5606 11745 101040 SNZ 5607 11746 0 01 11614 JMP C4B 5608 11747 0 02 00664 LDA F 5609 11750 0 01 11717 JMP C4L6 5610 * 5611 11751 0 000000 SAF DAC ** 5612 11752 0 02 00630 LDA AF 5613 11753 0414 76 LGL 2 5614 11754 0405 76 ARS 2 5615 11755 0 04 00630 STA AF 5616 11756 -0 01 11751 JMP* SAF 5617 * 5618 * ************************** 5619 * *DATA STATEMENT PROCESSOR* 5620 * ************************** 5621 * PROCESS VARIABLE LIST .THEN OUTPUT LITERAL ITEMS 5622 * TO APPROPRIATE LOCATIONS. MODES MUST AGREE 5623 11757 0 00 00000 T0W4 PZE 0 5624 11760 0 00 00000 T1W4 PZE 0 5625 11761 0 00 00000 G PZE 0 LOWEST INDEX POINT IN LIST 5626 11762 0 02 00113 W4 LDA L0 5627 11763 0 04 00041 STA I I=END OF DATA POOL 5628 11764 0 10 10761 W4B JST IL00 INPUT LIST ELEMENT 5629 11765 0 02 00631 LDA AT D (0) = =WDS/ITEM 5630 11766 0 07 00720 SUB K102 5631 11767 101040 SNZ IF AT = 'STR-ABS' 5632 11770 0 01 12270 JMP W4T GO TO 5633 11771 0 02 00041 LDA I 5634 11772 0 04 00000 STA 0 5635 11773 0 02 00604 LDA S1 S1 * DEFLECTION IF AN ARRAY 5636 11774 0 06 00630 ADD AF
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 117
5637 11775 1 04 15400 STA DP,1 DP(E) = AF + S1 5638 11776 0 02 00040 W4C LDA A 5639 11777 1 04 15377 STA DP-1,1 DP (E-1) = A 5640 12000 0 02 00041 LDA I 5641 12001 0 07 00720 SUB K102 5642 12002 0 04 00041 STA I 5643 12003 0 04 11761 STA G 5644 12004 0 02 00607 LDA TC IF TC = , 5645 12005 0 07 00752 SUB K134 5646 12006 101040 SNZ 5647 12007 0 01 11764 JMP W4B GO TO W4B 5648 12010 0 02 00722 LDA K104 5649 12011 0 10 02547 JST TS00 TEST FOR SLASH TERMINATOR 5650 12012 0 02 00060 LDA RPL 5651 12013 0 04 11760 STA T1W4 5652 12014 0 02 00113 LDA L0 5653 12015 0 04 00041 STA I I= END OF DATA POOL 5654 12016 140040 W4E CRA 5655 12017 0 04 00657 STA KPRM K' = KBAR = 0 5656 12020 0 04 00656 STA KBAR 5657 12021 0 10 01521 W4F JST DN00 INPUT, DNA 5658 12022 0 02 00573 LDA NT 5659 12023 100040 SZE IF NT = 0 5660 12024 0 01 12035 JMP W4G VARIABLE OR ARRAY 5661 12025 0 02 00607 LDA TC LAST CHARACTER 5662 12026 0 11 00702 CAS K17 ='250 ( =( ) 5663 12027 0 01 12031 JMP *+2 5664 12030 0 01 12033 JMP *+3 START OF COMPLEX CONSTANT 5665 12031 0 10 03116 JST ER00 ERROR 5666 12032 141716 BCI 1,CN NON-CON DATA 5667 12033 0 04 00050 STA SXF SET SXF TO NON-ZERO 5668 12034 0 01 12021 JMP W4F FINISH INPUT OF COMPLEX CONSTANT 5669 12035 0 02 00656 W4G LDA KBAR MULTIPLY COUNT 5670 12036 100040 SZE 5671 12037 0 01 12051 JMP W4K GO TO W4K 5672 12040 0 02 00607 LDA TC IF TC NOT * 5673 12041 0 07 00721 SUB K103 5674 12042 100040 SZE 5675 12043 0 01 12054 JMP W4L 5676 12044 0 02 01475 LDA ID 5677 12045 0 07 00717 SUB K101 5678 12046 0 04 00656 STA KBAR KBAR = ID-1 5679 12047 0 10 02635 JST IT00 INTEGER TEST 5680 12050 0 01 12021 JMP W4F 5681 12051 0 02 00657 W4K LDA KPRM IF K NOT ZERO 5682 12052 100040 SZE 5683 12053 0 01 12061 JMP W4M GO TO W4M 5684 12054 0 02 00656 W4L LDA KBAR 5685 12055 0415 77 ALS 1 K ' = E-3* KBAR 5686 12056 140407 TCA
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 118
5687 12057 0 06 00041 ADD I 5688 12060 0 04 00657 STA KPRM 5689 12061 0 10 02676 W4M JST STXI SET INDEX = I 5690 12062 1 02 15377 LDA DP-1,1 5691 12063 0 04 00040 STA A A = DP (E-1) 5692 12064 0 02 00653 LDA IM 5693 12065 0 04 11757 STA T0W4 TO = IM 5694 12066 0 10 03656 JST FA00 5695 12067 0 02 00061 LDA BDF IF BDF NOT ZERO 5696 12070 100040 SZE 5697 12071 0 01 12217 JMP W4S GO TO W4S 5698 12072 0 10 10650 JST NM00 NON-COMMON TEST 5699 12073 0 10 02676 W4O JST STXI SET INDEX = I 5700 12074 1 02 15400 LDA DP,1 5701 12075 0 04 00060 STA RPL RPL = AF 5702 12076 0 10 14523 JST FS00 FLUSH 5703 12077 140040 CRA 5704 12100 0 04 00640 STA DF DF = 0 5705 12101 0 02 01520 LDA HOLF IS IT HOLLERITH DATA 5706 12102 100040 SZE NO 5707 12103 0 01 12122 JMP WHOW YES, GO TO OUTPUT IT 5708 12104 0 02 00633 LDA D0 5709 12105 0 04 00000 STA 0 5710 12106 1 01 12106 JMP *,1 SWITCH ON NUMBER OF WORDS TO OUTPUT 5711 12107 0 01 12161 JMP W405 5712 12110 0 01 12151 JMP W403 5713 12111 0 01 12155 JMP W404 5714 12112 0 02 01477 LDA TID+2 5715 12113 0 10 14127 JST OA00 5716 12114 0 02 01476 LDA TID+1 5717 12115 0 10 14127 JST OA00 5718 12116 0 02 03641 LDA TIDB+2 5719 12117 0 10 14127 JST OA00 5720 12120 0 02 03640 LDA TIDB+1 5721 12121 0 01 12162 JMP W406 5722 12122 0 02 00633 WHOW LDA D0 (A)=NO. OF WORDS PER ITEM 5723 12123 0415 77 ALS 1 (A)=NO. OF CHARS, PER ITEM 5724 12124 0 04 00575 STA NTID NTID=NO. OF CHARS. TO BE OUTPUT 5725 12125 0 07 01520 SUB HOLF 5726 12126 100400 SPL 5727 12127 0 01 12170 JMP WERR 5728 12130 0 02 01475 LDA ID FIRST WORD 5729 12131 0 10 12141 JST WSNG OUTPUT IT 5730 12132 0 02 01476 LDA ID+1 2ND WORD 5731 12133 0 10 12141 JST WSNG OUTPUT IT 5732 12134 0 02 01477 LDA ID+2 3RD WORD 5733 12135 0 10 12141 JST WSNG OUTPUT IT 5734 12136 0 02 01500 LDA ID+3 4TH WORD 5735 12137 0 10 14127 JST OA00 OUTPUT IT 5736 12140 0 01 12172 JMP W420 TO CHECK NEXT DATA
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 119
5737 * 5738 12141 0 00 00000 WSNG PZE 0 5739 12142 0 10 14127 JST OA00 OUTPUT (A) 5740 12143 0 02 00575 LDA NTID NO. OF CHARS, REMAINED TO BE OUTPUT 5741 12144 0 07 00720 SUB K102 5742 12145 0 04 00575 STA NTID NTID=NTID-2 5743 12146 101040 SNZ 5744 12147 0 01 12172 JMP W420 ALL FINISHED, CHECK NEXT ITEM 5745 12150 -0 01 12141 JMP* WSNG SOME HOLLERITH CHARS, REMAINED 5746 12151 0 02 01477 W403 LDA TID+2 REAL OUTPUT 5747 12152 0 10 14127 JST OA00 5748 12153 0 02 01476 LDA TID+1 5749 12154 0 01 12162 JMP W406 5750 12155 0 02 01477 W404 LDA TID+2 DOUBLE PRECISION OUTPUT 5751 12156 0 10 14127 JST OA00 5752 12157 0 02 01476 LDA TID+1 5753 12160 0 10 14127 JST OA00 5754 12161 0 02 01475 W405 LDA TID INTEGER OUTPUT 5755 12162 0 10 14127 W406 JST OA00 5756 12163 0 02 11757 LDA T0W4 5757 12164 0 05 00653 ERA IM 5758 12165 0 03 00723 ANA K105 5759 12166 101040 SNZ 5760 12167 0 01 12172 JMP *+3 5761 * TO BE OUTPUT, RETURN 5762 12170 0 10 03116 WERR JST ER00 5763 12171 142315 BCI 1,DM DATA AND DATA NAME MODE DO NOT AGREE 5764 12172 0 02 00041 W420 LDA I 5765 12173 0 07 00720 SUB K102 5766 12174 0 04 00041 STA I I = I-2 5767 12175 0 11 00657 CAS KPRM 5768 12176 101000 NOP 5769 12177 0 01 12061 JMP W4M MORE TO DO 5770 12200 0 07 11761 SUB G TEST FOR COMPLETE 5771 12201 100040 SZE 5772 12202 0 01 12214 JMP W4P 5773 12203 0 02 00722 LDA K104 5774 12204 0 10 02547 JST TS00 5775 12205 0 02 11760 LDA T1W4 5776 12206 0 04 00060 STA RPL 5777 12207 0 10 01256 JST CH00 INPUT NEXT CHARACTER 5778 12210 0 07 00672 SUB K5 ='254 (,) 5779 12211 100040 SZE SKIP IF CHAR = COMMA 5780 12212 0 01 04266 JMP A1 CHECK FOR (CR) 5781 12213 0 01 11762 JMP W4 PROCESS NEXT DATA GROUP 5782 12214 0 02 00752 W4P LDA K134 5783 12215 0 10 02547 JST TS00 5784 12216 0 01 12016 JMP W4E 5785 12217 0 10 14523 W4S JST FS00 FLUSH BUFFER IF NECESSARY 5786 12220 0 02 00630 LDA AF POSITION WITHIN COMMON BLOCK
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 120
5787 12221 0400 62 LRL 14 5788 12222 0 02 00724 LDA K106 FORMAT BCD OUTPUT 5789 12223 0414 72 LGL 6 5790 12224 0410 72 LLL 6 5791 12225 0 04 14632 STA OCI 5792 12226 000201 IAB 5793 12227 0 03 00733 ANA K116 5794 12230 0 04 14633 STA OCI+1 5795 12231 0 10 03770 JST FL00 FETCH LINK 5796 12232 1 02 15404 LDA DP+4,1 5797 12233 140500 SSM 5798 12234 0416 77 ALR 1 5799 12235 140500 SSM 5800 12236 0406 77 ARR 1 5801 12237 0400 70 LRL 8 5802 12240 0 05 14633 ERA OCI+1 5803 12241 0 04 14633 STA OCI+1 5804 12242 1 02 15403 LDA DP+3,1 5805 12243 000201 IAB 5806 12244 1 02 15404 LDA DP+4,1 5807 12245 0410 70 LLL 8 5808 12246 0 04 14634 STA OCI+2 5809 12247 1 02 15402 LDA DP+2,1 5810 12250 000201 IAB 5811 12251 1 02 15403 LDA DP+3,1 5812 12252 0410 70 LLL 8 5813 12253 0 04 14635 STA OCI+3 5814 12254 1 02 15402 LDA DP+2,1 5815 12255 0414 76 LGL 2 5816 12256 0 06 00721 ADD K103 5817 12257 0414 72 LGL 6 5818 12260 0 04 14636 STA OCI+4 5819 12261 0 02 00746 LDA K128 5820 12262 0 04 00602 STA OCNT 5821 12263 0 10 02676 JST STXI I POINTS TO DATA TABLE 5822 12264 1 02 15377 LDA DP-1,1 SET A TO VARIABLE 5823 12265 0 04 00040 STA A 5824 12266 0 10 03656 JST FA00 5825 12267 0 01 12073 JMP W4O 5826 12270 0 02 00717 W4T LDA K101 =1 (=REL) 5827 12271 000201 IAB 5828 12272 0 02 00060 LDA RPL 5829 12273 0 10 04214 JST AF00 DEFINE AFT (AT=REL. AF=RPL) 5830 12274 0 02 00041 LDA I SET POINTER IN DATA POOL 5831 12275 0 04 00000 STA 0 5832 12276 0 02 00060 LDA RPL 5833 12277 1 04 15400 STA DP,1 DP(I) = RPL OF VARIABLE 5834 12300 0 06 00633 ADD D0 5835 12301 0 04 00060 STA RPL 5836 12302 0 01 11776 JMP W4C
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 121
5837 * 5838 * 5839 * ********************************* 5840 * *BLOCK DATA SUBPROGRAM PROCESSOR* 5841 * ********************************* 5842 * SET BLOCK DATA FLAG AND OUTPUT FORCE LOAD CODE 5843 12303 0 02 00072 R3 LDA LSTF =0 IF FIRST STATEMENT IN THE SUBPROGRAM 5844 12304 100040 SZE 5845 12305 0 01 12310 JMP *+3 5846 12306 0 10 03116 JST ER00 ERROR...NOT FIRST STATEMENT 5847 12307 141314 BCI 1,BL 'BLOCK DATA' NOT FIRST STATEMENT 5848 12310 0 04 00061 STA BDF SET BLOCK DATA FLAG ON (NON-ZERO) 5849 12311 0 10 01256 JST CH00 INPUT NEXT CHARACTER 5850 12312 0 01 04266 JMP A1 CHECK FOR (CR) AND EXIT 5851 * 5852 * 5853 * 5854 * 5855 * 5856 * 5857 * 5858 * *************************** 5859 * *TRACE STATEMENT PROCESSOR* 5860 * *************************** 5861 * SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG 5862 12313 0 10 02525 TRAC JST XN00 EXAMINE NEXT CHARACTER 5863 12314 100040 SZE SKIP IF CHAR, WAS A DIGIT 5864 12315 0 01 12322 JMP TRAD JUMP IF CHAR. WAS A LETTER 5865 12316 0 10 02443 JST IS00 INPUT STATEMENT NO. 5866 12317 0 02 00040 LDA A STATEMENT NO. POINTER 5867 12320 0 04 00065 STA TRF SET TRACE FLAG ON 5868 12321 0 01 04266 JMP A1 TEST FOR (CR) AND EXIT 5869 * 5870 12322 0 10 02373 TRAD JST NA00 INPUT NAME 5871 12323 0 10 02672 JST STXA SET INDEX TO NAME ENTRY 5872 12324 1 02 15404 LDA DP+4,1 TT(A) TRACE TAG 5873 12325 140024 CHS 5874 12326 1 04 15404 STA DP+4,1 5875 12327 0 01 02567 JMP B1 (,) OR (CR) TEST 5876 * (RETURN TO TRAC IF (,) ) 5877 * 5878 * 5879 * 5880 * ******************** 5881 * *OUTPUT OBJECT LINK* 5882 * ******************** 5883 12330 0 000000 OL00 DAC ** 5884 12331 0 10 12363 JST CN00 CALL NAME 5885 12332 140040 CRA 5886 12333 0 04 00640 STA DF DF = 0
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 122
5887 12334 0 02 01475 LDA ID (A) = IP 5888 12335 0 10 14127 JST OA00 OUTPUT +BS 5889 * 5890 12336 -0 01 12330 JMP* OL00 5891 * 5892 * ***************** 5893 * *OUTPUT I/O LINK* 5894 * ***************** 5895 * GENERATE I/O DRIVER LINKAGE CODE. NAME OF 5896 * CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR 5897 * IS A CONSTANT. 5898 12337 0 000000 OI00 DAC ** 5899 12340 0 10 02432 JST IV00 INPUT INT VAR/CON 5900 12341 0 02 00573 LDA NT 5901 12342 101040 SNZ IF NT = 0 5902 12343 0 01 12357 JMP OI20 GO TO 0I20 5903 12344 0 02 01475 LDA ID IF ID CR 9 5904 12345 0 07 00744 SUB K126 G0 TU OI20 5905 12346 101400 SMI 5906 12347 0 01 12357 JMP OI20 5907 * FORM F$RN OR F$WN 5908 12350 0 02 00571 LDA NAMF+1 5909 12351 0 03 00733 ANA K116 5910 12352 0 06 01475 ADD ID 5911 12353 0 06 00715 ADD K60 ='260 (SP) 5912 12354 0 04 00571 STA NAMF+1 5913 12355 0 10 12363 OI10 JST CN00 CALL NAME 5914 12356 -0 01 12337 JMP* OI00 RETURN 5915 12357 0400 40 OI20 LRL 32 5916 12360 0 02 13735 LDA OMI7 OUTPUT OA 5917 12361 0 10 12467 JST OB00 (LOAD A (UNIT N0.)) 5918 12362 0 01 12355 JMP OI10 FO TO OI10 5919 * 5920 * 5921 * *********** 5922 * *CALL NAME* 5923 * *********** 5924 * SET UP NAME AND GENERATE CODE FOR CALLING IT. 5925 12363 0 000000 CN00 DAC ** 5926 12364 0 10 14523 JST FS00 FLUSH 5927 12365 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 5928 12366 0 02 12432 LDA K147 SET UP OCI FOR CALL 5929 12367 0 04 14632 STA OCI 5930 12370 0 02 00571 LDA NAMF+1 OCI = NAMF 5931 12371 0 04 14713 STA PRI+9 5932 12372 000201 IAB ALSO TO PRINT BUFFER 5933 12373 0 02 00570 LDA NAMF 5934 12374 0 04 14712 STA PRI+8 5935 12375 0400 70 LRL 8 5936 12376 0 04 14633 STA OCI+1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 123
5937 12377 0410 60 LLL 16 5938 12400 0 04 14634 STA OCI+2 5939 12401 0 02 00572 LDA NAMF+2 5940 12402 0 04 14714 STA PRI+10 5941 12403 000201 IAB 5942 12404 0 02 00571 LDA NAMF+1 5943 12405 0410 70 LLL 8 5944 12406 0 04 14635 STA OCI+3 5945 12407 0410 60 LLL 16 5946 12410 0 04 14636 STA OCI+4 5947 12411 0 02 00746 LDA K128 ='14 5948 12412 0 04 00602 STA OCNT OCNT = 6 5949 12413 0 02 12433 LDA CN90 5950 12414 0 04 14707 STA PRI+5 5951 12415 0 02 12434 LDA CN90+1 5952 12416 0 04 14710 STA PRI+6 5953 12417 0 02 00060 LDA RPL 5954 12420 0 10 14150 JST OR80 5955 12421 0 014702 DAC PRI 5956 12422 100010 SR2 5957 12423 0 01 12426 JMP *+3 INHIBIT SYMBOLIC OUTPUT 5958 12424 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC LINE, 5959 12425 0 014702 DAC PRI 5960 12426 0 12 00060 IRS RPL RPL = RPL + 1 5961 12427 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 5962 12430 0 10 14523 JST FS00 FLUSH 5963 12431 -0 01 12363 JMP* CN00 RETURN 5964 12432 055000 K147 OCT 55000 5965 12433 141701 CN90 BCI 2,CALL 12434 146314 5966 * ************* 5967 * *OUTPUT PACK* 5968 * ************* 5969 * OUTPUT THE PACK WORD WHEN IT IS FULL. 5970 12435 0 00 00000 PKF PZE 0 PACK FLAG 5971 12436 0 00 00000 T0OK PZE 0 5972 12437 0 000000 OK00 DAC ** 5973 12440 0 11 00756 CAS CRET IF (A) = C/R 5974 12441 0 01 12443 JMP *+2 5975 12442 0 01 12460 JMP OK30 GO TO OK30 5976 12443 0 12 12435 IRS PKF PKF = PKF + 1 5977 12444 0 01 12453 JMP OK20 IF NON-ZERO, GO TO OK20 5978 12445 0 06 12436 OK10 ADD T0OK (A) = (A) + T0 5979 12446 0400 60 LRL 16 5980 12447 0 04 00640 STA DF 5981 12450 000201 IAB 5982 12451 0 10 14127 JST OA00 OUTPUT ABS 5983 12452 -0 01 12437 JMP* OK00 5984 12453 0414 70 OK20 LGL 8 5985 12454 0 04 12436 STA T0OK
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 124
5986 12455 0 02 00741 LDA K123 PKF = - 1 5987 12456 0 04 12435 STA PKF 5988 12457 -0 01 12437 JMP* OK00 RETURN 5989 12460 0 02 12435 OK30 LDA PKF IF PKF = 0 5990 12461 101040 SNZ 5991 12462 -0 01 12437 JMP* OK00 RETURN 5992 12463 0 02 00673 LDA K8 ELSE (A) = SPACE, 5993 12464 0 04 12435 STA PKF 5994 12465 0 01 12445 JMP OK10 GO TO OK10 5995 * 5996 * 5997 * *********** 5998 * *OUTPUT OA* 5999 * *********** 6000 * GENERAL OUTPUT ROUTINE. MAKES CHECKS AGAINST 6001 * THE ASSIGNMENT TABLE ENTRY TO PROCESS DUMMY, 6002 * EXTERNAL, RELATIVE, ABSOLUTE OR STRING 6003 * REFERENCES PROPERLY. 6004 12466 0 00 00000 T1OB PZE 0 6005 12467 0 000000 OB00 DAC ** 6006 12470 0 04 00647 STA FTOP FTOP = (A) 6007 12471 000201 IAB 6008 12472 0 04 12466 STA T1OB 6009 12473 0 10 02672 JST STXA ESTABLISH A 6010 12474 101040 SNZ IF A = 0 6011 12475 0 01 12535 JMP OB08 GO TO OB08 6012 12476 0 10 03656 JST FA00 FETCH ASSIGNS 6013 12477 0 02 00067 LDA SOF SPECIAL OUTPUT FLAT 6014 12500 100040 SZE 6015 12501 0 01 12660 JMP OB60 SUBSCRIPT CONSTANT DEFLECTION 6016 12502 0 02 00630 LDA AF 6017 12503 0 04 12466 STA T1OB T0 = AF 6018 12504 0 02 00631 LDA AT 6019 12505 0 07 00723 SUB K105 IF AT = 'DUM' 6020 12506 101040 SNZ 6021 12507 0 01 12547 JMP OB15 GO TO OB15 6022 12510 0 02 00655 LDA IU 6023 12511 0 07 00717 SUB K101 IF IU = 'SUB' 6024 12512 101040 SNZ 6025 12513 0 01 12652 JMP OB40 GO TO OB40 6026 12514 0 02 00631 OB06 LDA AT 6027 12515 0 11 00722 CAS K104 IF AT = 'COM' 6028 12516 0 01 12520 JMP *+2 6029 12517 0 01 12553 JMP OB20 GO TO OB20 6030 12520 0 11 00717 CAS K101 6031 12521 0 01 12523 JMP *+2 IF AT = 'REL' 6032 12522 0 01 12542 JMP OB10 GO TO OB10 6033 12523 0 02 00721 LDA K103 6034 12524 000201 IAB 6035 12525 0 02 00060 LDA RPL
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 125
6036 12526 0 10 04214 JST AF00 DEFINE AF AND AT 6037 12527 0 02 00631 LDA AT IF AT = 'STR-RE' 6038 12530 0 07 00721 SUB K103 6039 12531 101040 SNZ 6040 12532 0 01 12542 JMP OB10 GO TO OB10 6041 12533 140040 CRA 6042 12534 0 04 00630 STA AF AF = 0 6043 12535 0 02 00720 OB08 LDA K102 6044 12536 0 04 00640 STA DF SET FLAG TO OUTPUT SYMBOLIC 6045 12537 0 02 00647 LDA FTOP 6046 12540 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6047 12541 -0 01 12467 JMP* OB00 RETURN 6048 12542 0 02 12466 OB10 LDA T1OB 6049 12543 0 04 00630 STA AF 6050 12544 0 02 00647 LDA FTOP 6051 12545 0 10 13773 JST OR00 OUTPUT REL 6052 12546 -0 01 12467 JMP* OB00 RETURN 6053 12547 0 02 00647 OB15 LDA FTOP 6054 12550 140024 CHS REVERSE INDIRECT BIT 6055 12551 0 04 00647 STA FTOP 6056 12552 0 01 12542 JMP OB10 GO TO OB10 6057 12553 0 10 14523 OB20 JST FS00 OUTPUT COMMON REOUEST 6058 12554 0 02 12466 LDA T1OB PACK ADDRESS INTO BLOCK 6059 12555 0400 62 LRL 14 6060 12556 0 02 00647 LDA FTOP 6061 12557 0404 66 LGR 10 6062 12560 0 06 12673 ADD K150 6063 12561 0410 72 LLL 6 6064 12562 0 04 14632 STA OCI 6065 12563 0410 70 LLL 8 6066 12564 0 04 14633 STA OCI+1 6067 12565 0 10 03007 JST SAV 6068 12566 0 10 03770 JST FL00 6069 12567 1 02 15402 LDA DP+2,1 6070 12570 0 04 14717 STA PRI+13 SET COMMON NAME INTO PRINT BUFFER 6071 12571 0412 70 LLR 8 6072 12572 0 04 14636 STA OCI+4 6073 12573 0410 70 LLL 8 6074 12574 1 02 15403 LDA DP+3,1 6075 12575 0 04 14716 STA PRI+12 SET COMMON NAME INTO PRINT BUFFER 6076 12576 0412 70 LLR 8 6077 12577 0 04 14635 STA OCI+3 6078 12600 0410 70 LLL 8 6079 12601 1 02 15404 LDA DP+4,1 6080 12602 0 03 00730 ANA K111 ='037777 6081 12603 0 11 12604 CAS *+1 LOOK FOR BLANK COMMON 6082 12604 020240 OCT 020240 6083 12605 0 05 00740 ERA K122 6084 12606 0 05 00760 ERA HBIT 6085 12607 0 04 14715 STA PRI+11 SET NAME INTO PRINT BUFFER
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 126
6086 12610 0412 70 LLR 8 6087 12611 0 04 14634 STA OCI+2 6088 12612 0410 70 LLL 8 6089 12613 0 02 14633 LDA OCI+1 6090 12614 0410 70 LLL 8 6091 12615 0 04 14633 STA OCI+1 6092 12616 0 02 00746 LDA K128 ='14 6093 12617 0 04 00602 STA OCNT 6094 12620 0 10 03016 JST RST 6095 12621 0 02 00000 LDA 0 6096 12622 0 04 00040 STA A RESTORE A TO POINT AT NAME 6097 12623 0 02 00060 LDA RPL SET RPL MINUS 6098 12624 140500 SSM TO DISABLE WORD OUTPUT 6099 12625 0 04 00060 STA RPL 6100 12626 0 02 00647 LDA FTOP OUTPUT WORD TO LIST 6101 12627 0 10 13773 JST OR00 SYMBOLIC COMMAND 6102 12630 0 02 00060 LDA RPL RESTORE AND 6103 12631 140100 SSP INCREMENT PROGRAM 6104 12632 141206 AOA COUNTER FOR COMMON 6105 12633 0 04 00060 STA RPL OUTPUT 6106 12634 0 10 14523 JST FS00 CLOSE OUT BLOCK 6107 12635 -0 01 12467 JMP* OB00 EXIT 6108 12636 1 02 15404 OB30 LDA DP+4,1 6109 12637 140500 SSM 6110 12640 0416 77 ALR 1 6111 12641 140500 SSM 6112 12642 0406 77 ARR 1 6113 12643 0 04 00570 STA NAMF 6114 12644 1 02 15403 LDA DP+3,1 6115 12645 0 04 00571 STA NAMF+1 6116 12646 1 02 15402 LDA DP+2,1 6117 12647 0 04 00572 STA NAMF+2 6118 12650 0 10 12363 JST CN00 6119 12651 -0 01 12467 JMP* OB00 6120 12652 0 02 00631 OB40 LDA AT 6121 12653 0 07 00720 SUB K102 6122 12654 101040 SNZ 6123 12655 0 01 12636 JMP OB30 6124 12656 0 01 12514 JMP OB06 6125 12657 140000 OB50 OCT 140000 6126 * 6127 12660 140040 OB60 CRA 6128 12661 0 04 00067 STA SOF RESET SPECIAL OUTPUT FLAG 6129 12662 0 02 00631 LDA AT ADDRESS TYPE 6130 12663 0 11 00723 CAS K105 TEST FOR DUMMY 6131 12664 0 01 12514 JMP OB06 PROCESS NORMALLY 6132 12665 0 01 12667 JMP OB61 6133 12666 0 01 12514 JMP OB06 PROCESS NORMALLY 6134 12667 0 02 12466 OB61 LDA T1OB 6135 12670 0 04 00647 STA FTOP
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 127
6136 12671 140040 CRA 6137 12672 0 01 12536 JMP OB08+1 6138 * 6139 12673 000700 K150 OCT 700 6140 * 6141 * 6142 * ************** 6143 * OUTPUT TRIADS* 6144 * ************** 6145 * PROCESSES THE TRIAD TABLE, HANDLES FETCH 6146 * GENERATION AND RELATIONAL OPERATOR CODE 6147 * GENERATION, DRIVES OUTPUT ITEM. ASSIGNS 6148 * AND OUTPUT TEMP STORES. 6149 12674 0 00 00000 T0OT PZE 0 6150 12675 0 00 00000 T2OT PZE 0 6151 12676 0 00 00000 T1OT PZE 0 6152 12677 0 00 00000 T3OT PZE 0 TEMP STORE FOR P 6153 12700 0 000000 OT00 DAC ** 6154 12701 0 10 03007 JST SAV 6155 12702 0 02 00113 LDA L0 6156 12703 0 04 00041 STA I I = L0 6157 12704 140040 CRA 6158 12705 0 04 12674 STA T0OT T0 = 0 6159 12706 0 04 00652 STA IFLG 6160 12707 0 04 12676 OT06 STA T1OT T1 = I 6161 12710 0 02 00041 OT10 LDA I 6162 12711 0 07 00721 SUB K103 I = I-3 6163 12712 0 04 00041 STA I 6164 12713 0 04 12675 STA T2OT T2 = I 6165 12714 0 07 00044 SUB L 6166 12715 100400 SPL 6167 12716 0 01 13121 JMP OT60 IF FINISHED, GO TO OT60 6168 12717 0 10 02676 JST STXI 6169 12720 1 02 15402 LDA DP+2,1 6170 12721 140100 SSP CHECK P (I) 6171 12722 0 11 00755 CAS K139 X 6172 12723 0 01 12725 JMP *+2 6173 12724 0 01 12710 JMP OT10 6174 12725 0 11 00754 CAS K138 H 6175 12726 0 01 12730 JMP *+2 6176 12727 0 01 12710 JMP OT10 6177 12730 0 11 13135 CAS K142 I 6178 12731 0 01 12733 JMP *+2 6179 12732 0 01 13112 JMP OT50 6180 12733 0 11 13136 CAS K143 T 6181 12734 0 01 12736 JMP *+2 6182 12735 0 01 13103 JMP OT40 6183 12736 0 11 13137 CAS K151 Q 6184 12737 0 01 12741 JMP *+2 6185 12740 0 01 13074 JMP OT35
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 128
6186 12741 0 04 12677 STA T3OT SAVE P 6187 12742 1 02 15401 LDA DP+1,1 6188 12743 0 04 00040 STA A A = O1(I) 6189 12744 0 11 12676 CAS T1OT 6190 12745 0 01 12747 JMP *+2 6191 12746 0 01 13016 JMP OT30 6192 12747 0 11 00113 CAS L0 6193 12750 0 01 13023 JMP OT16 6194 12751 0 01 13125 JMP OT99 MAYBE SPECIAL LOAD FOR (A=) STATEMENT 6195 12752 0 01 13023 JMP OT16 6196 12753 0 10 02676 OT18 JST STXI 6197 12754 1 02 15400 LDA DP,1 6198 12755 0 04 00040 STA A A = O2 (I) 6199 12756 1 02 15402 LDA DP+2,1 6200 12757 140100 SSP 6201 12760 0 10 13147 JST OM00 OUTPUT ITEM(P(I),A = 02(I)) 6202 12761 0 10 02676 OT22 JST STXI 6203 12762 1 02 15402 LDA DP+2,1 6204 12763 101400 SMI 6205 12764 0 01 13014 JMP OT28 6206 12765 140040 CRA ASSIGN TEMP STOR 6207 12766 0 04 00573 STA NT NT = 0 6208 12767 0 02 00720 LDA K102 6209 12770 0 04 00655 STA IU IU = VAR 6210 12771 0 02 12674 LDA T0OT 6211 12772 0400 72 LRL 6 6212 12773 0 02 00052 LDA TCF ID = 6213 12774 0400 75 LRL 3 TS-IM-TCF-T0 6214 12775 0 02 00045 LDA MFL 6215 12776 0 04 00653 STA IM 6216 12777 0410 67 LLL 9 6217 13000 0 10 14150 JST OR80 6218 13001 0 001475 DAC ID 6219 13002 0 02 13133 LDA K77 6220 13003 0 04 01475 STA ID 6221 13004 0 12 12674 IRS T0OT T0 = T0+1 6222 13005 0 10 03241 JST AS00 ASSIGN ITEM 6223 13006 0 10 02676 JST STXI 6224 13007 0 02 00040 LDA A 6225 13010 1 04 15400 STA DP,1 O2(I) = A 6226 13011 0 02 02702 LDA K153 6227 13012 140500 SSM SURPRESS TRACE OF TEMPORARY STORAGE 6228 13013 0 10 13147 JST OM00 OUTPUT ITEM (=,A) 6229 13014 0 02 00041 OT28 LDA I 6230 13015 0 01 12707 JMP OT06 6231 13016 0 10 02672 OT30 JST STXA 6232 13017 1 02 15402 LDA DP+2,1 6233 13020 140100 SSP IF P (A) = 0 6234 13021 100040 SZE 6235 13022 0 01 13025 JMP OT32
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 129
6236 13023 0 02 13140 OT16 LDA K152 GENERATE FETCH 6237 13024 0 10 13147 JST OM00 OUTPUT ITEM 6238 13025 0 02 12677 OT32 LDA T3OT CHECK FOR RELATIONALS 6239 13026 0 07 00743 SUB K125 ='10 6240 13027 100400 SPL 6241 13030 0 01 12753 JMP OT18 NOT LOGICAL OR6RATOR 6242 13031 0 07 00724 SUB K106 =6 6243 13032 101400 SMI 6244 13033 0 01 12753 JMP OT18 NOT A LOGICAL QPERATOR 6245 13034 0 04 00000 STA 0 SET INDEX = -1 TO -6 6246 13035 0 02 00721 LDA K103 =3 (LOG) 6247 13036 0 04 00045 STA MFL SET MODE TO LOGICAL 6248 13037 140040 CRA 6249 13040 0 04 00040 STA A SET FOR OCTAL ADDRESS 6250 13041 1 01 13050 JMP *+7,1 BRANCH TO OPERATOR PROCESSOR 6251 13042 0 01 13072 JMP OT3G .LT. 6252 13043 0 01 13066 JMP OT3E .LE. 6253 13044 0 01 13057 JMP OT3C .EQ. 6254 13045 0 01 13055 JMP OT3B .GE. 6255 13046 0 01 13053 JMP OT3A .GT. 6256 13047 0 02 13743 LDA OMJ4 .NE. =ALS 16 6257 13050 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6258 13051 0 02 13745 LDA OMJ6 =ACA 6259 13052 0 01 13064 JMP OT3D 6260 13053 0 02 13746 OT3A LDA OMJ7 *TCA 6261 13054 0 01 13071 JMP OT3F 6262 13055 0 02 13747 OT3B LDA OMK1 =CMA 6263 13056 0 01 13071 JMP OT3F 6264 13057 0 02 13743 OT3C LDA OMJ4 = ALS 16 6265 13060 0 10 14127 JST OA00 6266 13061 0 02 13750 LDA OMK2 =SSC 6267 13062 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6268 13063 0 02 13751 LDA OMK3 =AOA 6269 13064 0 10 14127 OT3D JST OA00 OUTPUT ABSOLUTE 6270 13065 0 01 12761 JMP OT22 6271 13066 0 02 13741 OT3E LDA OMJ2 =SNZ 6272 13067 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6273 13070 0 02 13752 LDA OMK4 =SSM 6274 13071 0 10 14127 OT3F JST OA00 OUTPUT ABSOLUTE 6275 13072 0 02 13744 OT3G LDA OMJ5 =LGR 15 6276 13073 0 01 13064 JMP OT3D 6277 * 6278 13074 1 02 15401 OT35 LDA DP+1,1 6279 13075 0 04 01475 STA ID 6280 13076 0 10 02722 JST NF00 6281 13077 0 02 13134 LDA K78 NAMF = F $AR 6282 13100 0 04 00571 STA NAMF+1 6283 13101 0 10 12330 JST OL00 OUTPUT OBJECT LINK 6284 13102 0 01 12753 JMP OT18 GO TO OT18 6285 13103 1 02 15400 OT40 LDA DP,1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 130
6286 13104 0 06 00661 ADD DO 6287 13105 0 04 00041 STA I I = 02 (I) + DO 6288 13106 0 10 06773 JST DQ00 DO TERMINATION 6289 13107 0 02 12675 OT45 LDA T2OT 6290 13110 0 04 00041 STA I I = T2 6291 13111 0 01 13014 JMP OT28 6292 13112 1 02 15400 OT50 LDA DP,1 6293 13113 0 06 00661 ADD DO I=O2(I)+DO 6294 13114 0 04 00041 STA I IF I = DO 6295 13115 0 07 00661 SUB DO 6296 13116 100040 SZE GO TO OT45 6297 13117 0 10 06747 JST DS00 DO INITIALIZE 6298 13120 0 01 13107 JMP OT45 GO TO OT45 6299 13121 0 10 03016 OT60 JST RST 6300 13122 0 02 00113 LDA L0 RESET TRIAD TABLE 6301 13123 0 04 00044 STA L 6302 13124 -0 01 12700 JMP* OT00 6303 * 6304 13125 0 02 12677 OT99 LDA T3OT 6305 13126 0 07 02702 SUB K153 CODE FOR = 6306 13127 100040 SZE 6307 13130 0 01 13023 JMP OT16 NOT SPECIAL LOAD 6308 13131 0 04 00045 STA MFL SPECIAL LOAD, SET MFL=0 6309 13132 0 01 12753 JMP OT18 OUTPUT A STORE 6310 13133 152244 K77 BCI 1,T$ T$ 6311 13134 140722 K78 BCI 1,AR AR 6312 13135 000027 K142 OCT 27 6313 13136 000030 K143 OCT 30 6314 13137 000032 K151 OCT 32 6315 13140 000031 K152 OCT 31 6316 * ************* 6317 * *OUTPUT ITEM* 6318 * ************* 6319 * 6320 * DRIVES BASIC OUTPUT ROUTINES. HANDLES SPECIAL 6321 * SUBSCRIPT PROCESSING, GENERATES NECESSARY 6322 * MODE CONVERSION CALLS AND HANDLES MODE 6323 * CHECKING. IN-LINE ARITHMETIC CODE IS 6324 * GENERATED WHERE POSSIBLE. OTHERWISE CALLS 6325 * TO ARITHMETIC ROUTINES ARE GENERATED. 6326 * 6327 13141 0 00 00000 T0OM PZE 0 6328 13142 0 00 00000 T1OM PZE 0 6329 13143 0 00 00000 T2OM PZE 0 6330 13144 0 00 00000 T8OM PZE 0 6331 13145 0 00 00000 T9OM PZE 0 6332 13146 0 00 00000 TXOM PZE 0 6333 * 6334 *-------------OUTPUT ITEM 6335 13147 0 000000 OM00 DAC ** RETURN ADDR
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 131
6336 13150 0 04 13144 STA T8OM 6337 13151 140100 SSP 6338 13152 0 04 13141 STA T0OM R(0)=(A)='P' CODE 6339 13153 0 11 00752 CAS K134 6340 13154 0 01 13156 JMP *+2 6341 13155 0 01 13653 JMP OMD1 6342 13156 0 02 13146 LDA TXOM 6343 13157 0 11 00717 CAS K101 6344 13160 0 01 13655 JMP OME1 6345 13161 0 01 13660 JMP OME5 6346 13162 140040 OM05 CRA 6347 13163 0 04 13142 STA T1OM T(1)=0 6348 13164 0 04 13145 STA T9OM T(9)=0 6349 13165 0 02 00040 LDA A 6350 13166 0 04 13143 STA T2OM T(2)=A 6351 13167 100040 SZE 6352 13170 0 01 13173 JMP OM07 6353 13171 0 02 00045 LDA MFL 6354 13172 0 01 13205 JMP OM13 6355 13173 0 11 00113 OM07 CAS L0 6356 13174 0 01 13176 JMP *+2 6357 13175 0 01 13770 JMP OML1 6358 13176 0 11 00054 CAS ABAR 6359 13177 0 01 13413 JMP OM76 A .LE. ABAR....WITHIN TRIAD TABLE 6360 13200 0 01 13201 JMP *+1 6361 13201 0 10 02672 OM10 JST STXA SET INDEX=A 6362 13202 1 02 15400 LDA DP,1 6363 13203 0405 67 ARS 9 SES IM=MODE OF ITEM 6364 13204 0 03 00725 ANA K107 6365 13205 0 04 00653 OM13 STA IM 6366 13206 0 02 00045 OM14 LDA MFL SET MFL,IM AS DIGITS INTO NAMF 6367 13207 0415 70 ALS 8 6368 13210 0 06 00653 ADD IM 6369 13211 0 05 13516 ERA OM90 ADD '0''0' 6370 13212 0 04 00571 STA NAMF+1 6371 13213 0 02 10030 LDA K130 6372 13214 0 04 00000 STA 0 INDEX=-6 6373 13215 0 02 13141 LDA T0OM 6374 13216 1 11 13333 CAS OM50+6,1 CHECK FOR SPECIAL OPERATOR 6375 13217 0 01 13221 JMP *+2 '1 6376 13220 -1 01 13341 JMP* OM52+6,1 'P'='Q',',','0','A'F', OR 'E' 6377 13221 0 12 00000 IRS 0 6378 13222 0 01 13216 JMP *-4 6379 13223 0 02 00045 LDA MFL 6380 13224 101040 SNZ 6381 13225 0 01 13354 JMP OM62 SPECIAL LIBRARY FIX FOR ( A= ) 6382 13226 0 11 00653 CAS IM CHECK FOR MODE MIXING 6383 13227 0 01 13231 JMP *+2 6384 13230 0 01 13526 JMP OMA1 ITEM MODE SAME AS CURRENT MODE 6385 13231 0 02 00721 OM20 LDA K103
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 132
6386 13232 0 10 13313 JST OM44 CHECK MODE FOR LOG 6387 13233 0 02 00720 LDA K102 =2 (MODE CODE FOR REAL) 6388 13234 0 11 00045 CAS MFL MODE OF EXPRESSION 6389 13235 0 01 13237 JMP *+2 6390 13236 0 01 13244 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6391 13237 0 11 00653 CAS IM MODE OF ITEM 6392 13240 0 01 13242 JMP *+2 6393 13241 0 01 13244 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6394 13242 0 02 00723 LDA K105 6395 13243 0 10 13313 JST OM44 TEST FOR MODE = COMPLEX 6396 13244 0 02 13141 OM26 LDA T0OM OPERATOR BEING PROCESSED 6397 13245 0 11 02702 CAS K153 6398 13246 0 01 13250 JMP *+2 6399 13247 0 01 13274 JMP OM36 T(0)='=' (ALLOW INTEGER MODE) 6400 13250 0 02 00717 LDA K101 6401 13251 0 10 13313 JST OM44 TEST FOR MODE=INTEGER 6402 13252 0 02 00653 LDA IM 6403 13253 0 11 00045 CAS MFL 6404 13254 0 01 13276 JMP OM38 CONVERT MODE OF ACCUMULATOR 6405 13255 0 01 13256 JMP *+1 6406 13256 0 10 02722 OM30 JST NF00 SET LBUF+2 TO SPACES 6407 13257 0 02 13141 LDA T0OM 6408 13260 0 04 00000 STA 0 6409 13261 1 02 05032 LDA A9X4,1 PICK-UP PRINT CODE FOR 'P' OPERATOR 6410 13262 0405 72 ARS 6 6411 13263 0 03 00727 ANA K100 ='377 6412 13264 101040 SNZ 6413 13265 0 01 13323 JMP OM46 MODE MIXING ERROR 6414 13266 0414 70 LGL 8 6415 13267 0 05 13517 ERA OM91 ADD '$' 6416 13270 0 04 00570 STA NAMF 6417 13271 0 02 00752 LDA K134 6418 13272 0 04 13141 STA T0OM T(0)=',' 6419 13273 0 01 13303 JMP OM40 6420 * 6421 13274 0 02 00723 OM36 LDA K105 6422 13275 0 10 13313 JST OM44 CHECK FOR MODE=COMPLEX 6423 13276 0 02 00653 OM38 LDA IM 6424 13277 0 04 00045 STA MFL 6425 13300 0 10 02722 JST NF00 SET LBUF+2 TO SPACES 6426 13301 0 02 13520 LDA OM92 'C$' 6427 13302 0 04 00570 STA NAMF 6428 13303 0 10 12363 OM40 JST CN00 OUTPUT....CALL NAMF 6429 13304 0 02 00045 LDA MFL 6430 13305 0 04 00653 STA IM SET ITEM MODE TO CURRENT MODE 6431 13306 0 02 00570 LDA NAMF 6432 13307 0 11 13524 CAS OM96 6433 13310 0 01 13206 JMP OM14 6434 13311 -0 01 13147 JMP* OM00 6435 13312 0 01 13206 JMP OM14 OUTPUT ARGUMENT ADDRESS
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 133
6436 * 6437 *-----SUBROUTINE TO CHECK FOR ILLEGAL IM OR MFL MODES, 6438 13313 0 000000 OM44 DAC ** RETURN ADDR, 6439 13314 0 11 00653 CAS IM CHECK FOR IM0(A) 6440 13315 0 01 13317 JMP *+2 6441 13316 0 01 13323 JMP OM46 ERROR 6442 13317 0 11 00045 CAS MFL CHECK FOR MFL=(A) 6443 13320 -0 01 13313 JMP* OM44 6444 13321 0 01 13323 JMP OM46 ERROR 6445 13322 -0 01 13313 JMP* OM44 6446 13323 0 10 03116 OM46 JST ER00 NON-RECOVERABLE ERROR...... 6447 13324 146715 BCI 1,MM MODE MIXING ERROR 6448 * 6449 *------SPECIAL 'P' OPERATOR TABLE 6450 13325 000032 OM50 OCT 32 'Q' 6451 13326 000017 OCT 17 ',' 6452 13327 000000 OCT 00 '0' 6453 13330 000022 OCT 22 'A' 6454 13331 000031 OCT 31 *F' 6455 13332 000020 OCT 20 'E' 6456 13333 0 013611 OM52 DAC OMB3 ('Q') 6457 13334 0 013611 DAC OMB3 (',') 6458 13335 0 013611 DAC OMB3 ('0') 6459 13336 0 013341 DAC OM56 ('A') 6460 13337 0 013343 DAC OM60 ('F') 6461 13340 0 013401 DAC OM70 ('E') 6462 * 6463 * 6464 13341 0 02 13727 OM56 LDA OMI1 SET T(1) = ADD* 6465 13342 0 01 13607 JMP OMB1 6466 * 6467 13343 0 10 02672 OM60 JST STXA SET INDEX = A 6468 13344 1 02 15401 LDA DP+1,1 6469 13345 0404 62 LGR 14 SET UV=IU(A) 6470 13346 0 04 00655 STA IU 6471 13347 0 10 02676 JST STXI SET INDEX=I 6472 13350 1 02 15402 LDA DP+2,1 P(I) 6473 13351 0 03 10027 ANA K133 ='77 6474 13352 101040 SNZ 6475 13353 0 01 13370 JMP OM64 (POSSIBLE DUMMY ARRAY FETCH) 6476 13354 0 02 00653 OM62 LDA IM 6477 13355 0 04 00045 STA MFL SET CURRENT MODE TO ITEM MODE 6478 13356 0414 70 LGL 8 6479 13357 0 06 00653 ADD IM 6480 13360 0 05 13516 ERA OM90 6481 13361 0 04 00571 STA NAMF+1 6482 13362 0 02 00655 LDA IU 6483 13363 0 07 00717 SUB K101 CHECK FOR IU=1 (SUBROUTINE) 6484 13364 100040 SZE 6485 13365 0 01 13526 JMP OMA1
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 134
6486 13366 0 02 13730 LDA OMI2 SET T(1) = JST 6487 13367 0 01 13377 JMP OM66 6488 13370 0 02 00655 OM64 LDA IU 6489 13371 0 07 00721 SUB K103 CHECK FOR IV=3 (ARRAY) 6490 13372 100040 SZE 6491 13373 0 01 13354 JMP OM62 6492 13374 0 02 00717 LDA K101 SET CURRENT MODE TO INTEGER 6493 13375 0 04 00045 STA MFL 6494 13376 0 02 13731 LDA OMI3 SET T(1) = LDA* 6495 13377 0 04 13142 OM66 STA T1OM 6496 13400 0 01 13611 JMP OMB3 6497 * 6498 13401 0 02 00717 OM70 LDA K101 6499 13402 0 11 00653 CAS IM CHECK ITEM MODE EQUALS INTEGER 6500 13403 0 01 13405 JMP *+2 6501 13404 0 01 13410 JMP OM74 6502 13405 0 02 00723 LDA K105 CHECK FOR MODE = COMPLEX 6503 13406 0 10 13313 JST OM44 6504 13407 0 01 13231 JMP OM20 6505 13410 0 02 00721 OM74 LDA K103 CHECK FOR MODE = LOGICAL 6506 13411 0 10 13313 JST OM44 6507 13412 0 01 13256 JMP OM30 OUTPUT SUBROUTINE CALL 6508 * 6509 13413 0 10 02672 OM76 JST STXA INDEX=A 6510 13414 1 02 15400 LDA DP,1 02(A) 6511 13415 0 04 13143 STA T2OM T(2)=02(A) 6512 13416 1 02 15402 LDA DP+2,1 P(A) 6513 13417 0 03 10027 ANA K133 ='77 6514 13420 101040 SNZ 6515 13421 0 01 13466 JMP OM84 P(A)='0' (SUBSCRIPTED VARIABLE) 6516 13422 0 11 00755 CAS K139 6517 13423 0 01 13425 JMP *+2 6518 13424 0 01 13433 JMP OM80 P(A) = 'X' (END OF ARRAY CALCULATION) 6519 13425 0 11 00754 CAS K138 6520 13426 0 01 13430 JMP *+2 6521 13427 0 01 13510 JMP OMHW 6522 13430 0 02 13143 OM78 LDA T2OM P(4)= 'H' (HOLLERITH DATA) 6523 13431 0 04 00040 STA A RESET A 6524 13432 0 01 13201 JMP OM10 6525 * 6526 13433 0 10 02676 OM80 JST STXI INDEX=I 6527 13434 0 02 13143 LDA T2OM 6528 13435 1 04 15401 STA DP+1,1 O1(I) = T(2) 6529 13436 140040 CRA 6530 13437 0 04 12676 STA T1OT SET T(1) OF OUTPUT TRIADS TO ZERO 6531 13440 0 02 00040 LDA A SAVE A 6532 13441 0 04 13142 STA T1OM 6533 13442 140040 CRA SET A=0 (NOT SYMBOLIC) 6534 13443 0 04 00040 STA A 6535 13444 0 02 00060 LDA RPL
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 135
6536 13445 0 06 00720 ADD K102 AF = RPL+ 2 6537 13446 0 04 00630 STA AF 6538 13447 0 02 13732 LDA OMI4 =ADD INSTRUCTION 6539 13450 0 10 13773 JST OR00 OUTPUT RELATIVE 6540 13451 0 02 00060 LDA RPL 6541 13452 0 06 00720 ADD K102 AF = RPL P+ 2 6542 13453 0 04 00630 STA AF 6543 13454 0 02 13733 LDA OMI5 = JMP INSTR, 6544 13455 0 10 13773 JST OR00 OUTPUT RELATIVE 6545 13456 0 02 13142 LDA T1OM 6546 13457 0 04 00040 STA A RESTORE A 6547 13460 0 04 00067 STA SOF SET SPECIAL OUTPUT FLAG TO NON-ZERO 6548 13461 140040 CRA = DAC INSTR. 6549 13462 0 04 13142 STA T1OM 6550 13463 0 02 00717 LDA K101 6551 13464 0 04 00631 STA AT 6552 13465 0 01 13504 JMP OM88 6553 13466 1 02 15401 OM84 LDA DP+1,1 O1(A) 6554 13467 0 04 00040 STA A A=O1(A) 6555 13470 0 11 00113 CAS L0 6556 13471 0 01 13473 JMP *+2 6557 13472 0 01 13476 JMP OM86 A=L(0)....CONSTANT SUBSCRIPT ONLY 6558 13473 0 02 13726 LDA OMI0 T(1) = INDIRECT BIT 6559 13474 0 04 13142 STA T1OM 6560 13475 0 01 13201 JMP OM10 6561 * 6562 13476 0 02 13143 OM86 LDA T2OM A=T(2) 6563 13477 0 04 00040 STA A 6564 13500 0 04 00000 STA 0 6565 13501 0 04 00067 STA SOF 6566 13502 1 02 15400 LDA DP,1 T(2) = 02(A) 6567 13503 0 04 13143 STA T2OM 6568 13504 0 10 02672 OM88 JST STXA INDEX=A 6569 13505 1 02 15401 LDA DP+1,1 O1(A) 6570 13506 0 04 13145 STA T9OM T(9)=O1(A) 6571 13507 0 01 13430 JMP OM78 6572 13510 0 02 13143 OMHW LDA T2OM 6573 13511 0 04 00630 STA AF 6574 13512 140040 CRA 6575 13513 0 04 00040 STA A 6576 13514 0 10 13773 JST OR00 6577 13515 -0 01 13147 JMP* OM00 6578 * 6579 13516 130260 OM90 OCT 130260 '00' 6580 13517 000244 OM91 OCT 000244 ' $' 6581 13520 141644 OM92 OCT 141644 'C$' 6582 13521 152322 OM93 OCT 152322 'TR' 6583 13522 000021 OM94 OCT 000021 'C' CODE 6584 13523 017777 OM95 OCT 017777 (MASK) 6585 13524 147244 OM96 BCI 1,N$
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 136
6586 13525 126661 OM97 BCI 1,-1 6587 * 6588 13526 0 02 00653 OMA1 LDA IM CHECK FOR IM=LOGICAL 6589 13527 0 11 00721 CAS K103 6590 13530 0 01 13532 JMP *+2 6591 13531 0 01 13630 JMP OMC1 IM=LOGICAL 6592 13532 0 11 00717 CAS K101 CHECK FOR IM=INTEGER 6593 13533 0 01 13535 JMP *+2 6594 13534 0 01 13536 JMP OMA3 IM=INTEGER 6595 13535 0 01 13256 JMP OM30 6596 * 6597 13536 0 02 13141 OMA3 LDA T0OM CHECK FOR T,0) = '+' 6598 13537 0 11 00721 CAS K103 =3 6599 13540 0 01 13542 JMP *+2 6600 13541 0 01 13551 JMP OMA4 T(0)= '*' 6601 13542 0 11 13522 CAS OM94 T(0) = 'C 6602 13543 0 01 13545 JMP *+2 6603 13544 0 01 13567 JMP OMA6 OUTPUT 'TCA' 6604 13545 0 11 00717 CAS K101 6605 13546 0 01 13563 JMP OMA5 6606 13547 0 02 13732 LDA OMI4 =ADD INSTR. 6607 13550 0 01 13607 JMP OMB1 6608 13551 0 02 13143 OMA4 LDA T2OM VALUE OF A 6609 13552 0 07 00744 SUB K126 ='12 KNOWN LOCATION OF A FOR 2 6610 13553 100040 SZE SMP IF MULTIPLIER IS A CONSTANT OF 2 6611 13554 0 01 13256 JMP OM30 COUPLE TO THE MULTIPLY SUBROUTINE 6612 13555 0 04 00040 STA A SET A AND AF TO ZERO (FOR LISTING FLAGS) 6613 13556 0 04 00630 STA AF 6614 13557 0 02 13562 LDA *+3 ALS 1 INSTRUCTION 6615 13560 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6616 13561 -0 01 13147 JMP* OM00 EXIT UUTPUT ITEM 6617 13562 0415 77 ALS 1 (INSTRUCTION TO BE OUTPUT) 6618 13563 0 11 00720 OMA5 CAS K102 CHECK FOR T(0) = '-' 6619 13564 0 01 13576 JMP OMA7 6620 13565 0 02 13734 LDA OMI6 =SUB INSTR, 6621 13566 0 01 13607 JMP OMB1 6622 13567 140040 OMA6 CRA 6623 13570 0 04 00040 STA A CAUSE OCTAL ADDR LISTING 6624 13571 0 04 00630 STA AF 6625 13572 0 02 13575 LDA *+3 TCA 6626 13573 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6627 13574 -0 01 13147 JMP* OM00 EXIT 6628 13575 140407 TCA 6629 13576 0 11 02702 OMA7 CAS K153 CHECK FOR T(0) = '=' 6630 13577 0 01 13601 JMP *+2 6631 13600 0 01 13606 JMP OMA9 OUTPUT A STA INSTR, 6632 13601 0 07 13140 SUB K152 CHECK FOR T(0) = 'F' 6633 13602 100040 SZE 6634 13603 0 01 13256 JMP OM30 6635 13604 0 02 13735 OMA8 LDA OMI7 =LDA INSTR,
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 137
6636 13605 0 01 13607 JMP OMB1 6637 13606 0 02 13736 OMA9 LDA OMI8 =STA INSTR, 6638 13607 0 06 13142 OMB1 ADD T1OM T(1) = T(1) + INSTR. 6639 13610 0 04 13142 STA T1OM 6640 13611 0 02 13143 OMB3 LDA T2OM SET A=T(2) 6641 13612 0 04 00040 STA A 6642 13613 0 02 13145 LDA T9OM OUTPUT INSTR. WITH T(1) AND T(9) 6643 13614 000201 IAB 6644 13615 0 02 13142 LDA T1OM 6645 13616 0 10 12467 JST OB00 OUTPUT OA 6646 13617 0 02 13144 LDA T8OM CHECK FOR T(8) = '=' 6647 13620 0 11 02702 CAS K153 ='16 6648 13621 -0 01 13147 JMP* OM00 6649 13622 0 01 13624 JMP *+2 6650 13623 -0 01 13147 JMP* OM00 EXIT 6651 13624 0 02 00066 LDA TRFA POINTER TO FIRST VARIABLE OR ARRAY 6652 13625 0 04 00040 STA A PROCESSED IN EXPRESSION 6653 13626 0 10 13663 JST TRSE OUTPUT TRACE COUPLING IF REQUIRED 6654 13627 -0 01 13147 JMP* OM00 EXIT OUTPUT ITEM 6655 * 6656 * 6657 13630 0 02 13141 OMC1 LDA T0OM 6658 13631 0 11 13140 CAS K152 CHECK FOR T(0) = 'F' 6659 13632 0 01 13634 JMP *+2 6660 13633 0 01 13604 JMP OMA8 OUTPUT A LDA INSTR. 6661 13634 0 11 02702 CAS K153 CHECK FOR T(0) = '=' 6662 13635 0 01 13637 JMP *+2 6663 13636 0 01 13606 JMP OMA9 OUTPUT A STA INSTR, 6664 13637 0 11 13522 CAS OM94 CHECK FOR T(0) = 'C' 6665 13640 0 01 13642 JMP *+2 6666 13641 0 01 13256 JMP OM30 OUTPUT COMPLEMENT CODING 6667 13642 0 11 00724 CAS K106 6668 13643 0 01 13645 JMP *+2 6669 13644 0 01 13651 JMP OMC5 OUTPUT AN ANA INSTR. 6670 13645 0 11 00725 CAS K107 6671 13646 0 01 13323 JMP OM46 ERROR 6672 13647 0 01 13256 JMP OM30 6673 13650 0 01 13323 JMP OM46 ERR0R 6674 13651 0 02 13737 OMC5 LDA OMI9 =ANA INSTR. 6675 13652 0 01 13607 JMP OMB1 6676 13653 0 12 13146 OMD1 IRS TXOM T0 = T0+1 6677 13654 0 01 13162 JMP OM05 6678 13655 140040 OME1 CRA 6679 13656 0 04 00640 STA DF DF = 0 6680 13657 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6681 13660 140040 OME5 CRA 6682 13661 0 04 13146 STA TXOM T0 = 0 6683 13662 0 01 13162 JMP OM05 6684 * 6685 13663 0 000000 TRSE DAC 0 SUBROUTINE TO OUTPUT TRACE COUPLING
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 138
6686 13664 0 10 02672 JST STXA SET INDEX = A 6687 13665 100040 SZE 6688 13666 1 02 15404 LDA DP+4,1 CHECK STATUS OF TRACE TAG 6689 13667 100400 SPL 6690 13670 0 01 13676 JMP TRS7 6691 13671 100002 SR4 6692 13672 0 01 13676 JMP TRS7 6693 13673 0 02 00065 LDA TRF CHECK STATUS OF TRACE FLAG 6694 13674 101040 SNZ 6695 13675 -0 01 13663 JMP* TRSE 6696 13676 0 10 02722 TRS7 JST NF00 SET LBUF TO 'F$', LSUF+2 TO SPACES 6697 13677 0 02 13521 LDA OM93 ='TR' 6698 13700 0 04 00571 STA NAMF+1 6699 13701 0 10 12363 JST CN00 OUTPUT.....CALL NAMF 6700 13702 0 10 02672 JST STXA SET INDEX = A 6701 13703 1 02 15404 LDA DP+4,1 6702 13704 0 03 13523 ANA OM95 6703 13705 0 04 13142 STA T1OM 6704 13706 1 02 15403 LDA DP+3,1 6705 13707 0 04 13144 STA T8OM 6706 13710 1 02 15402 LDA DP+2,1 6707 13711 0 04 13145 STA T9OM 6708 13712 140040 CRA 6709 13713 0 04 00640 STA DF 6710 13714 1 02 15400 LDA DP,1 MERGE IM WITH ITEM NAME 6711 13715 0405 67 ARS 9 6712 13716 0414 63 LGL 13 6713 13717 0 05 13142 ERA T1OM 6714 13720 0 10 14127 JST OA00 OUTPUT ABSOLUTE (FIRST 2 CHAR.) 6715 13721 0 02 13144 LDA T8OM 6716 13722 0 10 14127 JST OA00 OUTPUT ABSOLUTE (NEXT 2 CHAR.) 6717 13723 0 02 13145 LDA T9OM 6718 13724 0 10 14127 JST OA00 OUTPUT ABSOLUTE (LAST 2 CHAR.) 6719 13725 -0 01 13663 JMP* TRSE 6720 * 6721 *.................INSTRUCTION TABLE 6722 13726 100000 OMI0 OCT 100000 INDIRECT BIT 6723 13727 114000 OMI1 OCT 114000 ADD* 6724 13730 020000 OMI2 OCT 020000 JST 6725 13731 104000 OMI3 OCT 104000 LDA* 6726 13732 014000 OMI4 OCT 014000 ADD 6727 13733 002000 OMI5 OCT 002000 JMP 6728 13734 016000 OMI6 OCT 016000 SUB 6729 13735 004000 OMI7 OCT 004000 LDA 6730 13736 010000 OMI8 OCT 010000 STA 6731 13737 006000 OMI9 OCT 006000 ANA 6732 13740 102000 OMJ1 OCT 102000 JMP* 6733 13741 101040 OMJ2 OCT 101040 SNZ 6734 13742 101400 OMJ3 OCT 101400 SMI 6735 13743 0415 60 OMJ4 ALS 16
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 139
6736 13744 040461 OMJ5 OCT 040461 LGR 15 6737 13745 141216 OMJ6 OCT 141216 ACA 6738 13746 140407 OMJ7 OCT 140407 TCA 6739 13747 140401 OMK1 OCT 140401 CMA 6740 13750 101001 OMK2 OCT 101001 SSC 6741 13751 141206 OMK3 OCT 141206 AOA 6742 13752 140500 OMK4 OCT 140500 SSM 6743 13753 042000 OMK5 OCT 042000 JMP 0,1 6744 13754 000000 OMK6 OCT 000000 DAC ** 6745 13755 0415 77 ALS 1 ALS1 6746 13756 140407 TCA TCA 6747 13757 176000 OMK7 OCT 176000 STG 6748 13760 0 11 00000 OMK9 CAS 0 CAS 6749 13761 -0 04 00000 STA* 0 6750 13762 -0 07 00000 SUB* 0 6751 13763 -0 000000 DAC* ** 6752 13764 131001 OCT 131001 6753 13765 030000 OCT 030000 SUBR 6754 13766 -0 11 00000 CAS* 0 6755 13767 000000 OMK8 OCT 0 (///) 6756 13770 0 02 00717 OML1 LDA K101 6757 13771 0 04 00631 STA AT 6758 13772 0 01 12710 JMP OT10 6759 * 6760 * ************ 6761 * *OUTPUT REL* 6762 * ************ 6763 * ALSO DRIVES SYMBOLIC INSTRUCTION OUTPUT. 6764 13773 0 000000 OR00 DAC ** 6765 13774 0 04 00647 STA FTOP 6766 13775 0 02 00720 LDA K102 DF = NON ZER0 6767 13776 0 04 00640 STA DF CODE = 2 6768 13777 0 04 00632 OR10 STA CODE 6769 14000 0 02 00060 LDA RPL LIST RPL 6770 14001 140100 SSP 6771 14002 0 10 14150 JST OR80 6772 14003 0 014702 DAC PRI 6773 14004 0 02 00640 OR12 LDA DF IF DF NOT ZERO 6774 14005 100040 SZE 6775 14006 0 01 14031 JMP OR20 GO TO OR20 6776 14007 0 02 14027 LDA OR18 ='147703 6777 14010 0 04 14707 STA PRI+5 6778 14011 0 02 14030 LDA OR19 SET 'OCT' INTO PRINT IMAGE 6779 14012 0 04 14710 STA PRI+6 6780 14013 0 02 00647 LDA FTOP 6781 14014 0 10 14150 OR13 JST OR80 6782 14015 0 014712 DAC PRI+8 6783 14016 0 02 00060 OR15 LDA RPL IF RPL PLUS 6784 14017 101400 SMI 6785 14020 0 10 14365 JST OW00 OUTPUT WORD
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 140
6786 14021 100010 SR2 6787 14022 0 01 14025 JMP *+3 SURPRESS SYMBOLIC OUTPUT 6788 14023 0 10 00000 CALL F4$SYM LIST LINE 6789 14024 0 014702 DAC PRI 6790 14025 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 6791 14026 -0 01 13773 JMP* OR00 RETURN 6792 14027 147703 OR18 OCT 147703 (0)(C) 6793 14030 152240 OR19 OCT 152240 (T)(SP) 6794 14031 0 10 03007 OR20 JST SAV 6795 14032 0 02 14176 LDA OR90 SEARCH OP-CODE LIST 6796 14033 140407 TCA 6797 14034 0 04 00000 STA XR PUT BCI IN PRINT IMAGE 6798 14035 0 02 00647 LDA FTOP 6799 14036 140100 SSP 6800 14037 100040 SZE 6801 14040 0 01 14050 JMP OR24 6802 14041 0 02 00631 LDA AT 6803 14042 0 11 00721 CAS K103 6804 14043 0 07 00724 SUB K106 6805 14044 0 06 00720 ADD K102 6806 14045 140401 CMA 6807 14046 0 03 00725 ANA K107 6808 14047 0 04 00632 STA CODE 6809 14050 0 02 00647 OR24 LDA FTOP 6810 14051 1 11 13767 CAS OR91+NINS,1 6811 14052 0 01 14054 JMP *+2 6812 14053 0 01 14056 JMP *+3 6813 14054 0 12 00000 IRS XR 6814 14055 0 01 14051 JMP *-4 6815 14056 1 02 14237 LDA OR92+NINS,1 6816 14057 0 04 14707 STA PRI+5 6817 14060 1 02 14300 LDA OR93+NINS,1 6818 14061 0 04 14710 STA PRI+6 6819 14062 0 10 03016 JST RST 6820 14063 0 02 00040 LDA A 6821 14064 100040 SZE 6822 14065 0 01 14071 JMP OR30 6823 14066 0 02 00630 LDA AF 6824 14067 0 03 00730 ANA K111 MASK OUT HIGH BITS OF ADDRESS 6825 14070 0 01 14014 JMP OR13 6826 14071 0 10 02672 OR30 JST STXA 6827 14072 1 02 15400 LDA DP,1 6828 14073 101400 SMI 6829 14074 0 01 14114 JMP OR40 6830 14075 0 02 14363 LDA K149 6831 14076 0 04 14712 STA PRI+8 SET =' INTO LISTING 6832 14077 1 02 15400 LDA DP,1 CHECK IM (A) 6833 14100 0414 74 LGL 4 6834 14101 100400 SPL SKIP IF NOT COMPLEX 6835 14102 0 01 14106 JMP *+4
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 141
6836 14103 0414 76 LGL 2 6837 14104 100400 SPL SKIP IF INTEGER OR LOGICAL 6838 14105 0 01 14110 JMP *+3 6839 14106 1 02 15402 LDA DP+2,1 6840 14107 0 01 14111 JMP *+2 LIST EXPONENT AND PART OF FRACTION 6841 14110 1 02 15404 LDA DP+4,1 LIST INTEGER VALUE 6842 14111 0 10 14150 JST OR80 CONVERT OCTAL 6843 14112 0 014713 DAC PRI+9 6844 14113 0 01 14016 JMP OR15 6845 14114 1 02 15404 OR40 LDA DP+4,1 CONVERT AND PACK INTO 6846 14115 0416 77 ALR 1 6847 14116 140500 SSM SYMBOLIC IMAGE 6848 14117 0406 77 ARR 1 6849 14120 140500 SSM 6850 14121 0 04 14712 STA PRI+8 6851 14122 1 02 15403 LDA DP+3,1 6852 14123 0 04 14713 STA PRI+9 6853 14124 1 02 15402 LDA DP+2,1 6854 14125 0 04 14714 STA PRI+10 6855 14126 0 01 14016 JMP OR15 6856 * *********** 6857 * *OUTPUT ABS* 6858 * *********** 6859 14127 0 000000 OA00 DAC ** 6860 14130 0 04 00647 STA FTOP 6861 14131 0 02 14127 LDA OA00 6862 14132 0 04 13773 STA OR00 6863 14133 140040 CRA 6864 14134 0 01 13777 JMP OR10 6865 * ******************* 6866 * *OUTPUT STRING-RPL* 6867 * ******************* 6868 14135 0 000000 OS00 DAC 00 6869 14136 0 04 00630 STA AF 6870 14137 0 02 13757 LDA OMK7 6871 14140 0 04 00647 STA FTOP 6872 14141 0 02 14135 LDA OS00 6873 14142 0 04 13773 STA OR00 SET RETURN INTO OUTPUT REL 6874 14143 0 02 00722 LDA K104 6875 14144 0 04 00632 STA CODE 6876 14145 0 04 14461 STA STFL STRING FLAG = NON ZERO 6877 14146 0 10 14301 JST PRSP SET PRINT BUF. TO SPACES 6878 14147 0 01 14031 JMP OR20 JMP-OUTPUT REL FOR SYMBOLIC AND BINARY 6879 14150 0 000000 OR80 DAC ** 6880 14151 000201 IAB 6881 14152 -0 02 14150 LDA* OR80 6882 14153 0 04 14175 STA OR89 6883 14154 140040 CRA 6884 14155 0402 76 LRR 2 6885 14156 0 12 14150 IRS OR80
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 142
6886 14157 0 10 14163 JST OR85 6887 14160 0 10 14163 JST OR85 6888 14161 0 10 14163 JST OR85 6889 14162 -0 01 14150 JMP* OR80 6890 14163 0 000000 OR85 DAC ** 6891 14164 0 06 14364 ADD K140 6892 14165 0412 75 LLR 3 6893 14166 0414 73 LGL 5 6894 14167 0 06 14364 ADD K140 6895 14170 0410 75 LLL 3 6896 14171 -0 04 14175 STA* OR89 6897 14172 0 12 14175 IRS OR89 6898 14173 140040 CRA 6899 14174 -0 01 14163 JMP* OR85 6900 14175 0 00 00000 OR89 PZE 0 6901 14176 0 000040 OR90 DAC NINS 6902 013735 K200 EQU OMI7 6903 013733 K201 EQU OMI5 6904 013736 K202 EQU OMI8 6905 013732 K203 EQU OMI4 6906 013734 K204 EQU OMI6 6907 013742 K205 EQU OMJ3 6908 013740 K206 EQU OMJ1 6909 013753 K207 EQU OMK5 6910 013727 OR91 EQU OMI1 6911 14177 140704 OR92 BCI 22,ADJSLDADJMSULDSTANJMSNSMLLLRACTCCMSSAOSSJMDA 14200 145323 14201 146304 14202 140704 14203 145315 14204 151725 14205 146304 14206 151724 14207 140716 14210 145315 14211 151716 14212 151715 14213 146314 14214 146322 14215 140703 14216 152303 14217 141715 14220 151723 14221 140717 14222 151723 14223 145315 14224 142301 6912 14225 140714 BCI 2,ALTC 14226 152303 6913 14227 151724 BCI 9,STCASTSUDAERSUCA//
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 143
14230 141701 14231 151724 14232 151725 14233 142301 14234 142722 14235 151725 14236 141701 14237 127657 6914 14240 142252 OR93 BCI 22,D*T A*D P B A A A P*Z I 1515A A A C A M PXC 14241 152240 14242 120240 14243 120240 14244 120240 14245 120240 14246 120240 14247 120301 14250 125304 14251 120320 14252 120302 14253 120301 14254 120301 14255 120301 14256 120320 14257 125332 14260 120311 14261 120261 14262 132661 14263 132701 14264 120301 14265 120301 6915 14266 151661 BCI 2,S1A 14267 140640 6916 14270 143640 BCI 9,G S A*B*C*R/BRS*/ 14271 120240 14272 120240 14273 120240 14274 120240 14275 120240 14276 120240 14277 120240 14300 151640 6917 000040 NINS EQU 32 6918 * 6919 14301 0 000000 PRSP DAC ** SUBR. T0 SET PRINT BUF. T0 SPACES 6920 14302 0 02 14311 LDA PRSK =-40 6921 14303 0 04 00000 STA 0 6922 14304 0 02 01154 LDA KASP (SP)(SP) 6923 14305 1 04 14752 STA PRI+40,1 6924 14306 0 12 00000 IRS 0 6925 14307 0 01 14305 JMP *-2
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 144
6926 14310 -0 01 14301 JMP* PRSP EXIT 6927 14311 177730 PRSK OCT 177730 =-40 6928 * 6929 * ************************************* 6930 * *OUTPUT SUBROUTINE/COMMON BLOCK NAME* 6931 * ************************************ 6932 * OUTPUT AN EXTERNAL REFERENCE NAME. 6933 * 6934 14312 0 000000 ON00 DAC ** 6935 14313 0 04 14362 STA ONT1 SAVE ADDRESS 6936 14314 0 10 14523 JST FS00 FLUSH BUFFER IF NECESSARY 6937 14315 0 10 02672 JST STXA SET INDEX=A 6938 14316 0 02 14362 LDA ONT1 SUBR. ENTRY ADDR. 6939 14317 0400 62 LRL 14 6940 14320 0 04 14362 STA ONT1 SAVE S/C BITS 6941 14321 0 02 14361 LDA ON02 ='600 (=BLOCK CODE NO.) 6942 14322 0410 72 LLL 6 6943 14323 0 04 14632 STA OCI FILL BUFFER 6944 14324 0400 70 LRL 8 6945 14325 0 10 02672 JST STXA SET INDEX=A 6946 14326 1 02 15404 LDA DP+4,1 FIHST 2 CHAR. 0F NAME 6947 14327 0 03 00730 ANA K111 ='037777 6948 14330 0 11 14331 CAS *+1 6949 14331 020240 OCT 020240 6950 14332 0 05 00740 ERA K122 6951 14333 0 05 00760 ERA HBIT ='140000 6952 14334 0402 70 LRR 8 6953 14335 0 04 14633 STA OCI+1 BUFFER 6954 14336 0400 70 LRL 8 6955 14337 1 02 15403 LDA DP+3,1 SECOND 2 CHAR. OF NAME 6956 14340 0402 70 LRR 8 6957 14341 0 04 14634 STA OCI+2 BUFFER 6958 14342 0400 70 LRL 8 6959 14343 1 02 15402 LDA DP+2,1 LAST 2 CHAR. OF NAME 6960 14344 0402 70 LRR 8 6961 14345 0 04 14635 STA OCI+3 BUFFER 6962 14346 0410 70 LLL 8 6963 14347 0414 76 LGL 2 6964 14350 0 06 14362 ADD ONT1 S/C BITS 6965 14351 0414 72 LGL 6 6966 14352 0 04 14636 STA OCI+4 BUFFER 6967 14353 140040 CRA SET SIZE = 0 6968 14354 0 04 14637 STA OCI+5 8UFFER 6969 14355 0 02 00746 LDA K128 ='14 6970 14356 0 04 00602 STA OCNT SET 8LOCK SIZE (DOUBLED) 6971 14357 0 10 14523 JST FS00 FLUSH BUFFER 6972 14360 -0 01 14312 JMP* ON00 EXIT 6973 14361 000600 ON02 OCT 600 BLOCK CODE NUMBER (6) 6974 14362 000000 ONT1 OCT 0 TEMP STORE 6975 *
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 145
6976 14363 136647 K149 BCI 1,=' 6977 14364 000026 K140 OCT 26 6978 * 6979 14365 0 000000 OW00 DAC ** 6980 14366 0 10 03007 JST SAV 6981 14367 0 02 00060 LDA RPL 6982 14370 0 07 14464 SUB ORPL 6983 14371 100400 SPL 6984 14372 140407 TCA 6985 14373 0 11 00717 CAS K101 6986 14374 0 10 14523 JST FS00 FLUSH BUFFER IF DIFFERENCE IN RPL'S N0T 1 6987 14375 101000 NOP 6988 14376 0 02 00602 LDA OCNT 6989 14377 0 06 00721 ADD K103 6990 14400 0 11 14522 CAS K146 6991 14401 101000 NOP 6992 14402 0 10 14523 JST FS00 FLUSH BUFFER 6993 14403 0 02 00602 LDA OCNT 6994 14404 0 06 00721 ADD K103 6995 14405 0 04 00602 STA OCNT OCNT = OCNT+3 6996 14406 0 07 00721 SUB K103 6997 14407 0406 77 ARR 1 OCI (OUTPUT CARD IMAGE) 6998 14410 0 04 00000 STA XR 6999 14411 101400 SMI LEFT OR RIGHT POS, 7000 14412 0 01 14462 JMP OW20 7001 14413 0 10 14465 JST PU00 7002 14414 0400 70 LRL 8 IF BUFFER FULL 7003 14415 1 13 14632 IMA OCI,1 7004 14416 0 03 00733 ANA K116 CALL FLUSH (FS0O) 7005 14417 1 05 14632 ERA OCI,1 7006 14420 1 04 14632 OW10 STA OCI,1 7007 14421 000201 IAB 7008 14422 1 04 14633 STA OCI+1,1 7009 14423 0 02 14722 LDA PRI+16 7010 14424 000201 IAB 7011 14425 0 02 14720 LDA PRI+14 USE LOW BIT OF PRI+14 DATA 7012 14426 0410 67 LLL 9 7013 14427 0404 77 LGR 1 STRIP OFF HIGH BIT OF BLOCK CODE TYPE NO, 7014 14430 0410 75 LLL 3 SET DIGITS IN PRI+17, PRI+19 7015 14431 0 10 14150 JST OR80 7016 14432 0 014722 DAC PRI+16 7017 14433 0 02 14720 LDA PRI+14 7018 14434 0400 72 LRL 6 7019 14435 0414 77 LGL 1 SHIFT ADDR. TO RIGHT BY 1 BIT 7020 14436 0410 73 LLL 5 7021 14437 0 10 14150 JST OR80 SET DIGITS IN PRI+15, PRI+16 7022 14440 0 014720 DAC PRI+14 7023 14441 0 02 01154 LDA KASP (SP)(SP) 7024 14442 100020 SR1 7025 14443 0 01 14450 JMP OW14
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 146
7026 14444 0 04 14721 STA PRI+15 OVERWRITE BINARY DATA IN 7027 14445 0 04 14722 STA PRI+16 PRINT BUFFER WITH SPACES 7028 14446 0 04 14723 STA PRI+17 IF NO BINARY LISTING IS WANTED 7029 14447 0 04 14724 STA PRI+18 7030 14450 0 04 14720 OW14 STA PRI+14 7031 14451 0 10 03016 JST RST 7032 14452 0 02 00060 LDA RPL 7033 14453 0 04 14464 STA ORPL ORPL=RPL 7034 14454 140040 CRA 7035 14455 0 13 14461 IMA STFL INDICATE WORD WAS KEY TO LOADER 7036 14456 101040 SNZ THEN LEAVE RPL ALONE 7037 14457 0 12 00060 IRS RPL RPL = RPL+1 7038 14460 -0 01 14365 JMP* OW00 7039 14461 0 00 00000 STFL PZE 0 7040 14462 0 10 14465 OW20 JST PU00 7041 14463 0 01 14420 JMP OW10 7042 14464 0 00 00000 ORPL PZE 0 7043 14465 0 000000 PU00 DAC ** 7044 14466 0 02 00632 LDA CODE COMBINE CODES TO 7045 14467 0 11 00722 CAS K104 =4 7046 14470 101000 NOP 7047 14471 0 01 14504 JMP PU10 7048 14472 100040 SZE SKIP IF ABS 7049 14473 0 01 14504 JMP PU10 JUMP IF REL. 7050 14474 0400 70 LRL 8 7051 14475 0 02 00647 LDA FTOP 7052 14476 0400 74 PU08 LRL 4 7053 14477 0 04 14720 STA PRI+14 SAVE FOR LISTING 7054 14500 000201 IAB 7055 14501 0 04 14722 STA PRI+16 7056 14502 0402 64 LRR 12 RESTORE POSITION 7057 14503 -0 01 14465 JMP* PU00 7058 14504 0400 74 PU10 LRL 4 7059 14505 0 02 00630 LDA AF 7060 14506 0400 74 LRL 4 7061 14507 0 05 00647 ERA FTOP 7062 14510 0 01 14476 JMP PU08 7063 14511 0400 74 PU20 LRL 4 7064 14512 0 02 00630 LDA AF 7065 14513 0 03 00730 ANA K111 7066 14514 0400 74 LRL 4 7067 14515 0 13 00630 IMA AF 7068 14516 0 03 14521 ANA K114 7069 14517 0 05 00630 ERA AF 7070 14520 0 01 14476 JMP PU08 7071 14521 014000 K114 OCT 14000 7072 14522 000117 K146 OCT 117 7073 * 7074 * 7075 * ******************
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 147
7076 * *FLUSH SUBROUTINE* 7077 * ****************** 7078 14523 0 000000 FS00 DAC ** 7079 14524 0 02 00602 LDA OCNT BUFFER OCCUPANCY SIZE 7080 14525 0 10 03007 JST SAV SAVE INDEX REGESTER 7081 14526 0 07 00722 SUB K104 CHECK FOR OCNT .GT. 4 7082 14527 100400 SPL 7083 14530 0 01 14603 JMP FS20 SKIP OUTPUT IF BUFFER IS EMPTY 7084 14531 0 06 00723 ADD K105 ADD 1/2 AT B14 7085 14532 0405 77 ARS 1 DIVIDE BY 2 7086 14533 140407 TCA 7087 14534 0 04 00602 STA OCNT OCNT = -WORDS/BUFFER 7088 14535 0 07 00717 SUB K101 =1 7089 14536 0 04 00601 STA PCNT BUFFER SIZE INCLUDING CHECKSUM 7090 14537 0 02 14632 LDA OCI FIRST WORD IN BUFFER 7091 14540 0400 64 LRL 12 7092 14541 0 11 00720 CAS K102 =2 7093 14542 0 01 14544 JMP *+2 7094 14543 0 01 14615 JMP FS30 BLOCK TYPE = 2 (RELOCATABLE CODE) 7095 * EVERY TIME A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST 7096 * 3 WORDS OF THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT 7097 * ALONG WITH AN EOB OPERATOR CODE IF SENSE SWITCH 1 1S DOWN. 7098 * TO INHIBIT THIS LINE, REPLACE FROM FS10 TO AND INCLUDING 7099 * FS11 WITH (FS10 CRA ). 7100 14544 101020 FS10 SS1 7101 14545 0 01 14570 JMP FS11 N0 BINARY LISTING UNLESS SSW-1 IS DOWN 7102 14546 0 10 00000 CALL F4$SYM 7103 14547 0 014702 DAC PRI OUTPUT WHATEVER MIGHT BE IN SYMBOLIC BUF. 7104 14550 0 02 14626 LDA FS41 =(E)(O) 7105 14551 0 04 14707 STA PRI+5 ENTER 'EOB' INTO LISTING 7106 14552 0 02 14627 LDA FS41+1 =(B)(SP) 7107 14553 0 04 14710 STA PRI+6 7108 14554 0 02 14632 LDA OCI 7109 14555 0 10 14150 JST OR80 ENTER FIRST WORD FROM BUFFER INTO LISTING 7110 14556 0 014712 DAC PRI+8 7111 14557 0 02 14633 LDA OCI+1 7112 14560 0 10 14150 JST OR80 ENTER WORD 2 FROM BUFFER INTO LISTING 7113 14561 0 014716 DAC PRI+12 7114 14562 0 02 14634 LDA OCI+2 7115 14563 0 10 14150 JST OR80 ENTER WORD 3 FROM BUFFER INTO LISTING 7116 14564 0 014722 DAC PRI+16 7117 14565 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC BUFFER 7118 14566 0 014702 DAC PRI 7119 14567 0 10 14301 JST PRSP RESET SYMBOLIC BUFFER TO SPACES 7120 14570 140040 FS11 CRA 7121 14571 0 04 00000 STA 0 COMPUTE CHECKSUM 7122 14572 1 05 14632 FS12 ERA OCI,1 MERGE BUFFER WORD INTO CHECKSUM 7123 14573 0 12 00000 IRS 0 INCREMENT BUFFER POSITION 7124 14574 0 12 00602 IRS OCNT DECREMENT BUFFER SIZE 7125 14575 0 01 14572 JMP FS12
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 148
7126 14576 1 04 14632 STA OCI,1 SET CHECKSUM INTO BUFFER 7127 14577 0 02 00601 LDA PCNT = NO. OF WORDS IN BUFFER 7128 14600 0 13 00000 IMA 0 7129 14601 0 06 14625 ADD FS40 = OCI+1,1 7130 14602 0 10 00000 CALL F4$OUT PUNCH BUFFER 7131 14603 0 02 00060 FS20 LDA RPL SET UP BUFFER FOR NEXT OUTPUT 7132 14604 0400 70 LRL 8 7133 14605 0 06 14630 ADD K145 =#'2000 (BLOCK CODE 2) 7134 14606 0 04 14632 STA OCI 7135 14607 000201 IAB 7136 14610 0 04 14633 STA OCI+1 SET FIRST 2 WORDS OF BUFFER 7137 14611 0 02 00721 LDA K103 =O 7138 14612 0 04 00602 STA OCNT RESET BUFFER OCCUPANCY SIZE 7139 14613 0 10 03016 JST RST RESET INDEX REGISTER 7140 14614 -0 01 14523 JMP* FS00 EXIT 7141 * 7142 14615 0414 72 FS30 LGL 6 MERGE BUFFER SIZE INTO BLOCK HEADER 7143 14616 0 07 00602 SUB OCNT BUFFER SIZE 7144 14617 0 06 00717 ADD K101 =1 (ACCOUNT FOR CHECKSUM) 7145 14620 0412 72 LLR 6 7146 14621 0404 72 LGR 6 7147 14622 0410 72 LLL 6 BRING IN UPPER HALF OF ADDRESSES 7148 14623 0 04 14632 STA OCI STORE INTO BUFFER 7149 14624 0 01 14544 JMP FS10 COMPUTE CHECKSUM 7150 * 7151 14625 1 014633 FS40 DAC OCI+1,1 7152 14626 142717 FS41 BCI 2,EOB 'EOB' 14627 141240 7153 14630 020000 K145 OCT 20000 BLOCK TYPE 2 CODE 7154 14631 060000 C499 OCT 060000 7155 * 7156 14632 OCI BSS 40 40 WORD CARD IMAGE INPUT BUFFER 7157 14702 PRI BSS 40 40 WORD PRINT BUFFER 7158 14752 120240 BCI 20, 14753 120240 14754 120240 14755 120240 14756 120240 14757 120240 14760 120240 14761 120240 14762 120240 14763 120240 14764 120240 14765 120240 14766 120240 14767 120240 14770 120240 14771 120240 14772 120240
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 149
14773 120240 14774 120240 14775 120240 7159 14776 BSS 30 COMPILER PATCH AREA 7160 * 7161 * *********************** 7162 * *IOS (AND IOL) GO HERE* 7163 * *********************** 7164 * 7165 15034 100000 END A0 A 000040A A0 001003A A051 001007A A055 001042A A090 001063A A091 001064A A092 001065A A1 004266A A3 011101A A4 011103A A5 011105A A6 011107A A7 011111A A790 011144A A7A 011112A A7A5 011135A A7B 011140A A7K 011137A A9 004602A A9A 004612A A9B 004634A A9C 004640A A9D 004645A A9E 004654A A9F 004661A A9G 004672A A9T1 004577A A9T2 004600A A9T3 004601A A9X1 004674A A9X2 004732A A9X3 004770A A9X4 005032A A9Z9 005070A AA00 004252A ABAR 000054A ACCP 010457A AD3 002653A AF 000630A AF00 004214A AF90 004231A AF91 004232A AI00 004241A AS00 003241A AS04 003244A AS10 003272A AS16 003331A AS18 003345A AS19 003353A AS30 003355A AS32 003365A AS40 003407A AS41 003426A AS46 003446A AS50 003456A AS60 003460A AS91 003463A AS92 003464A ASAV 000043A AT 000631A AT00 002626A ATA 000620A B 000642A B1 002567A B2 011145A B3 011154A B3A 011155A B3B 011161A B3D 011235A B3T0 011150A B3T1 011151A B3T2 011152A B3T3 011153A B4 011253A B40 011265A B4B 011270A B4D 011320A B4E 011331A B4F 011334A B4Z9 011333A B5 011335A B5B 011351A B5C 011357A B5D 011371A B6 004262A B7 011246A BDF 000061A BLNK 002741A BNOT 000064A BUD 004142A C 000042A C2 011375A C2A 011377A C2B 011403A C2D 011413A C2F 011424A C2T0 011374A C3 011442A C3B 011450A C3D 011461A C3F 011470A C3G 011473A C3H 011477A C3H2 011503A C3K 011521A C3M 011536A C3N 011556A C3N5 011561A C3O 011563A C3P 011607A C3T0 011434A C3T1 011435A C3T2 011436A C3T3 011437A C3T4 011440A C3T5 011441A C4 011715A C499 014631A C4B 011614A C4C 011615A C4E 011640A C4F 011645A C4I 011666A C4L 011722A C4L2 011700A C4L3 011702A C4L6 011717A C4M 011733A C4T0 011612A C4T1 011613A C5 004264A C6 004271A C6A 004274A C6B 004277A C6C 004301A C6D 004306A C6E 004327A C6H 004333A C6J 004344A C6K 004351A C7 004353A C71 004375A C7A 004404A C7B 004405A C7C 004407A C7LT 004416A C7LU 004431A C8 004456A C8A 004464A C8B 004465A C8B2 004472A C8B4 004475A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 150
C8C 004502A C8C4 004511A C8D 004515A C8D2 004524A C8E 004526A C8G 004563A C8T1 004455A C8X9 004576A C9 005510A C951 005525A C9T0 005507A CA00 010040A CA04 010043A CA08 010061A CA10 010100A CA13 010121A CA14 010143A CA18 010203A CA20 010205A CA22 010217A CA24 010230A CA26 010251A CA28 010254A CA30 010256A CA31 010260A CA32 010261A CA35 010276A CA37 010301A CA39 010314A CA45 010324A CA50 010137A CA90 010416A CA91 010426A CC 000662A CCRD 004433A CCRK 004454A CFL 000056A CH00 001256A CH03 001262A CH04 001267A CH05 001303A CH06 001306A CH08 001312A CH10 001314A CH12 001335A CH13 001341A CI 001155A CIB 002764A CIBB 002773A CIBC 003001A CIBD 003004A CIBZ 003006A CL 000665A CLA 000622A CN00 012363A CN90 012433A CODE 000632A CONT 005026A CRET 000756A D 000057A D0 000633A D1 000634A D2 000635A D3 000636A D4 000637A DA00 004041A DA10 004045A DA20 004055A DCT 000663A DF 000640A DFL 000643A DM00 004026A DN00 001521A DN01 001522A DN06 001534A DN07 001537A DN10 001542A DN14 001603A DN16 001607A DN17 001610A DN20 001614A DN22 001631A DN24 001646A DN25 001647A DN26 001660A DN28 001663A DN29 001665A DN30 001670A DN50 001704A DN54 001725A DN56 001735A DN58 001737A DN60 001743A DN63 001756A DN64 001761A DN66 001763A DN67 001772A DN68 001773A DN69 001776A DN70 002000A DN72 002005A DN74 002013A DN78 002035A DN80 002037A DN82 002052A DN84 002055A DN85 002100A DN87 002127A DN8A 002071A DN8B 002074A DN8C 002076A DN90 002144A DN9A 002152A DN9C 002164A DN9D 002176A DN9E 002232A DN9G 002250A DN9H 002301A DN9J 002323A DN9K 002340A DN9M 002336A DN9N 002342A DND1 002212A DNX1 002347A DNX2 002352A DO 000661A DP 015400A DP00 006702A DP10 006735A DP20 006743A DQ00 006773A DS00 006747A DS20 006764A DS90 006772A DT 000666A DTA 000624A E 000644A E0 000646A EBAR 000660A EL00 010624A EL40 010636A EL90 010647A EP 000645A ER00 003116A ER20 003150A ER91 003155A ER93 003156A ET00 010436A EX00 007041A EX10 007066A EX11 007101A EX12 007117A EX14 007123A EX16 007126A EX18 007151A EX19 007164A EX20 007166A EX22 007171A EX24 007175A EX26 007205A EX30 007213A EX31 007215A EX32 007226A EX34 007230A EX35 007237A EX36 007246A EX38 007251A EX39 007270A EX40 007274A EX41 007303A EX42 007304A EX44 007316A EX46 007320A EX48 007327A EX50 007331A EX54 007401A EX55 007407A EX56 007427A EX57 007450A EX58 007457A EX60 007500A EX62 007517A EX63 007537A EX64 007562A EX65 007567A EX66 007575A EX67 007601A EX68 007614A EX69 007627A EX74 007660A EX75 007663A EX76 007666A EX78 007676A EX79 007677A EX80 007701A EX81 007703A EX82 007706A EX83 007710A EX84 007726A EX85 007730A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 151
EX90 007740A EX91 007746A EX92 007754A EX93 007772A EX95 010010A EX96 010012A EX97 010014A EX99 010016A EXI1 007114A EXT0 007031A EXT7 007037A F 000664A F1 001511A F2 001512A F3 001513A F4 001514A F5 001515A F6 001516A FA00 003656A FA10 003712A FA22 003736A FA24 003742A FA26 003746A FA40 003755A FA91 003765A FL00 003770A FLT1 000667A FN00 001412A FN05 001422A FN10 001424A FN20 001434A FN90 001437A FN91 001456A FS00 014523A FS10 014544A FS11 014570A FS12 014572A FS20 014603A FS30 014615A FS40 014625A FS41 014626A FTOP 000647A G 011761A G1 006367A G1A 006410A G1T0 006365A G1T1 006366A G2 006321A G2A 006325A G2B 006312A GE00 010525A GE10 010532A GE20 010564A GE30 010621A GF 000630A GFA 000650A HBIT 000760A HC2 000763A HOLF 001520A HS00 006664A HS10 006665A HS15 006700A I 000041A IA00 001355A IA10 001363A IA20 001372A IA50 001374A IA90 001410A IA99 001411A IB00 005414A IB10 005423A IBUF 001501A IC00 001066A IC10 001074A IC12 001077A IC18 001116A IC19 001125A IC20 001135A IC22 001137A IC24 001141A IC26 001144A IC30 001150A ICSW 000651A ID 001475A ID00 001342A ID10 001353A IFF 000053A IFLG 000652A IG00 002404A IG10 002426A IG20 002430A II00 002354A IL00 010761A IL10 011022A IL18 011032A IL20 011034A IL30 011037A IM 000653A IM00 002703A IM10 002711A IMA 000621A IN00 006153A IOF 000654A IP00 002555A IR00 002437A IS00 002443A IS04 002444A IS10 002453A IS20 002471A IS22 002475A IS25 002477A IT00 002635A IU 000655A IUA 000623A IV00 002432A K 010032A K1 002531A K10 000675A K100 000727A K101 000717A K102 000720A K103 000721A K104 000722A K105 000723A K106 000724A K107 000725A K108 001153A K109 000726A K11 002543A K110 000731A K111 000730A K114 014521A K115 000732A K116 000733A K117 000734A K118 000735A K119 000736A K12 000676A K120 000737A K122 000740A K123 000741A K124 000742A K125 000743A K126 000744A K127 000745A K128 000746A K129 000747A K13 000677A K130 010030A K131 000750A K132 000751A K133 010027A K134 000752A K137 000753A K138 000754A K139 000755A K14 002544A K140 014364A K141 010031A K142 013135A K143 013136A K145 014630A K146 014522A K147 012432A K149 014363A K15 000700A K150 012673A K151 013137A K152 013140A K153 002702A K155 001505A K156 001506A K157 001507A K158 001510A K16 001152A K16X 000701A K17 000702A K18 000703A K19 000704A K2 002534A K200 013735A K201 013733A K202 013736A K203 013732A K204 013734A K205 013742A K206 013740A K207 013753A K3 002537A K34 000705A K35 000706A K357 000764A K4 000671A K40 000707A K41 000710A K42 000711A K43 000712A K44 000713A K45 000705A K46 006224A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 152
K47 006225A K48 002544A K49 006226A K5 000672A K50 000712A K51 006227A K52 002543A K53 006230A K54 006277A K55 006300A K56 006364A K57 000714A K60 000715A K61 000716A K62 002545A K63 001340A K64 002546A K68 000704A K69 010623A K71 005537A K72 005540A K73 005541A K74 006276A K75 005442A K77 013133A K78 013134A K79 002516A K79X 002517A K8 000673A K80 002730A K81 002731A K9 000674A KAEQ 000761A KASP 001154A KBAR 000656A KM8 010033A KM92 002732A KNOT 002540A KPRM 000657A KT00 004005A L 000044A L0 000113A L4 001517A LIBF 000670A LIF 000070A LIST 003227A LO00 004233A LSTF 000072A LSTN 000071A LSTP 000073A M 000036A MFL 000045A MIN2 000762A MOV3 002754A NA00 002373A NA10 002402A NAMF 000570A NC00 002611A ND 000571A ND00 010657A ND10 010667A NF 000641A NF00 002722A NINS 000040A NM00 010650A NP00 005074A NP10 005115A NP15 005130A NP16 005135A NP20 005140A NP25 005142A NP30 005154A NP32 005157A NP35 005173A NP37 005175A NP40 005202A NPT0 005071A NR00 002574A NS 000572A NS00 002617A NT 000573A NTA 000617A NTF 000574A NTID 000575A NU00 002603A NXT 004062A NZ00 006145A NZ10 006151A O1 000576A O2 000577A OA00 014127A OB00 012467A OB06 012514A OB08 012535A OB10 012542A OB15 012547A OB20 012553A OB30 012636A OB40 012652A OB50 012657A OB60 012660A OB61 012667A OBLS 000063A OCI 014632A OCNT 000602A OI00 012337A OI10 012355A OI20 012357A OK00 012437A OK10 012445A OK20 012453A OK30 012460A OL00 012330A OM00 013147A OM05 013162A OM07 013173A OM10 013201A OM13 013205A OM14 013206A OM20 013231A OM26 013244A OM30 013256A OM36 013274A OM38 013276A OM40 013303A OM44 013313A OM46 013323A OM50 013325A OM52 013333A OM56 013341A OM60 013343A OM62 013354A OM64 013370A OM66 013377A OM70 013401A OM74 013410A OM76 013413A OM78 013430A OM80 013433A OM84 013466A OM86 013476A OM88 013504A OM90 013516A OM91 013517A OM92 013520A OM93 013521A OM94 013522A OM95 013523A OM96 013524A OM97 013525A OMA1 013526A OMA3 013536A OMA4 013551A OMA5 013563A OMA6 013567A OMA7 013576A OMA8 013604A OMA9 013606A OMB1 013607A OMB3 013611A OMC1 013630A OMC5 013651A OMD1 013653A OME1 013655A OME5 013660A OMHW 013510A OMI0 013726A OMI1 013727A OMI2 013730A OMI3 013731A OMI4 013732A OMI5 013733A OMI6 013734A OMI7 013735A OMI8 013736A OMI9 013737A OMJ1 013740A OMJ2 013741A OMJ3 013742A OMJ4 013743A OMJ5 013744A OMJ6 013745A OMJ7 013746A OMK1 013747A OMK2 013750A OMK3 013751A OMK4 013752A OMK5 013753A OMK6 013754A OMK7 013757A OMK8 013767A OMK9 013760A OML1 013770A ON00 014312A ON02 014361A ONT1 014362A OP00 002363A OR00 013773A OR10 013777A OR12 014004A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 153
OR13 014014A OR15 014016A OR18 014027A OR19 014030A OR20 014031A OR24 014050A OR30 014071A OR40 014114A OR80 014150A OR85 014163A OR89 014175A OR90 014176A OR91 013727A OR92 014177A OR93 014240A ORPL 014464A OS00 014135A OT00 012700A OT06 012707A OT10 012710A OT16 013023A OT18 012753A OT22 012761A OT28 013014A OT30 013016A OT32 013025A OT35 013074A OT3A 013053A OT3B 013055A OT3C 013057A OT3D 013064A OT3E 013066A OT3F 013071A OT3G 013072A OT40 013103A OT45 013107A OT50 013112A OT60 013121A OT99 013125A OW00 014365A OW10 014420A OW14 014450A OW20 014462A P 000600A PACK 003055A PAK1 003060A PAK2 003073A PAK3 003076A PAK4 003103A PAK6 003112A PAK7 003113A PAK8 003114A PAK9 003115A PCNT 000601A PKF 012435A PO00 006660A PRI 014702A PRSK 014311A PRSP 014301A PU00 014465A PU08 014476A PU10 014504A PU20 014511A R1 011042A R2 011044A R2A 011051A R2C 011072A R2D 011076A R3 012303A R7 005334A R78 005343A R7D 005356A R7F 005377A R8 006301A R9 006330A R9A 006362A R9B 006351A R9C 006356A RPL 000060A RST 003016A S0 000603A S1 000604A S2 000605A S3 000606A SAF 011751A SAV 003007A SAV9 003030A SAVX 003031A SAVY 003027A SBF 000047A SC00 010672A SC10 010702A SC15 010710A SC20 010721A SC30 010722A SC40 010736A SC50 010740A SC60 010720A SC70 010745A SC90 010757A SC91 010760A SCT0 010671A SDSW 000074A SFF 000046A SFT 003202A SFTB 010460A SI00 006160A SI05 006163A SI10 006206A SKIP 001575A SLST 000062A SOF 000067A SPF 000051A SRT 003157A ST00 010335A ST05 010342A ST10 010353A ST20 010355A STFL 014461A STXA 002672A STXI 002676A SXF 000050A SY00 002520A T0AS 003240A T0C3 011434A T0CA 010034A T0EX 007031A T0GE 010524A T0NP 005071A T0OK 012436A T0OM 013141A T0OT 012674A T0V2 005767A T0V5 005542A T0W4 011757A T1C3 011435A T1CA 010035A T1EX 007032A T1IM 002720A T1NP 005073A T1OB 012466A T1OM 013142A T1OT 012676A T1V3 005331A T1W3 005506A T1W4 011760A T1W5 006443A T1W7 006231A T2C3 011436A T2CA 010036A T2EX 007033A T2IM 002721A T2NP 005072A T2OM 013143A T2OT 012675A T2V2 005770A T2V3 005332A T2W7 006232A T3C3 011437A T3EX 007034A T3OT 012677A T3V3 005333A T4C3 011440A T5EX 007035A T6EX 007036A T8OM 013144A T9CA 010037A T9EX 007040A T9OM 013145A TA00 002644A TC 000607A TC00 010404A TCF 000052A TG00 003465A TG04 003475A TG06 003501A TG08 003503A TG10 003514A TG22 003534A TGT1 003535A TGT2 003562A TGT3 003607A TID 001475A TIDA 003634A TIDB 003637A TIDN 001504A TRAC 012313A TRAD 012322A TRF 000065A TRFA 000066A TRS7 013676A TRSE 013663A TS00 002547A TT 000610A TTA 000625A TV00 003642A TXOM 013146A TYPE 000611A UC00 001251A V10 005753A
* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 154
V10A 005754A V2 005771A V2A 006000A V2A1 006003A V2B 006012A V2C 006021A V2D 006035A V2DA 006036A V2E 006052A V2E5 006061A V2F 006070A V2FB 006074A V2G 006114A V2H 006117A V2J 006124A V2K 006126A V2M 006210A V2N 004266A V2P 006212A V2Q 006215A V2T0 005767A V2T2 005770A V3 005210A V308 005216A V310 005220A V320 005253A V324 005260A V330 005302A V340 005313A V350 005316A V356 005321A V360 005322A V4 005552A V5 005543A V5A 005554A V5B 005570A V5B2 005575A V5C 005603A V5C5 005604A V5D 005606A V5E 005625A V5E5 005645A V5E7 005654A V5F 005666A V5G 005673A V5H 005675A V5H7 005711A V5J 005726A V5K1 005733A V5K2 005734A V5K3 005735A V5K4 005736A V5K5 005737A V5T1 005732A V5X 005740A V5X2 005745A V5X5 005750A V6 005526A V6A 005527A V7 005533A V8 005535A W3 005443A W305 005460A W4 011762A W403 012151A W404 012155A W405 012161A W406 012162A W420 012172A W4B 011764A W4C 011776A W4E 012016A W4F 012021A W4G 012035A W4K 012051A W4L 012054A W4M 012061A W4O 012073A W4P 012214A W4S 012217A W4T 012270A W5 006444A W5B 006453A W5D 006456A W5F 006467A W5H 006500A W5J 006507A W5K 006525A W5M 006532A W5N 006544A W5O 006552A W5P 006562A W5Q 006605A W5R 006624A W5S 006614A W5T 006627A W5T5 006644A W5X 006651A W5Z1 000727A W5Z2 000740A W5Z3 000733A W7 006233A W7A 006235A W7C 006251A W8 006274A WERR 012170A WHOW 012122A WSNG 012141A X 000612A X1 000613A X2 000614A X3 000615A X4 000616A XN00 002525A XR 000000A XST 000055A ZERO 000757A 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
| Previous File | Multiple Pages | Next File |