1 | APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR. | ||||||
2 | T04 FORTRAN II / SECTI0N ONE. 29 OCT 58 | ||||||
3 | 8K VERSION WITHOUT CODING ON DRUMS. | ||||||
4 | |||||||
5 | SECTI0N 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIE | 4F10000 | |||||
6 | FORMULAS, COMPILES THE OBJECT (OUTPUTI INSTRUCTIONS. FOR | 4F10001 | |||||
7 | N0NARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A | 4F10002 | |||||
8 | PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION | 4F10003 | |||||
9 | IN TABLES. | 4F10004 | |||||
10 | THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= | 4F10005 | |||||
11 | COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY | 4F10006 | |||||
12 | TNROUGHOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL | 4F10007 | |||||
13 | STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B, | 4F10008 | |||||
14 | C, AND D TREAT ARITHMETIC FORMULAS. | 4F10009 | |||||
15 | 4F10010 | ||||||
16 | SECTION 1 / COMMON = | 4F10011 | |||||
17 | 704 FORTRAN MASTER RECORD CARD / COMMON = F0140000. | 4F10012 | |||||
18 | WST | 10,1 | |||||
00000 | 19 | ORG | 0 | 4F100121 | |||
00000 | 0 00004 0 00030 | 20 | PZE | ORGCOM,,1TOCS | 4F100122 | ||
00001 | 0 00000 0 06322 | 21 | PZE | STATEB−1 | 4F100123 | ||
22 | 4F10013 | ||||||
23 | PART I / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= | 4F10014 | |||||
24 | EIFNO AND SENSE SWITCH SIMULATORS. | 4F10015 | |||||
25 | TAPE TABLE BUFFERS. | 4F10016 | |||||
26 | TAPE TABLE PARAMETERS - INTET. | 4F10017 | |||||
27 | DRUM TABLE PARAMETERS. | 4F10018 | |||||
28 | FORSUB COUNT AND BUFFER. | 4F10019 | |||||
29 | CIB BUFFER AND PARAMETERS. | 4F10020 | |||||
30 | REMAINING WORKING STORAGE. | 4F10021 | |||||
31 | PART 2 / CONSTANTS USED BY SECTION ONE. | 4F10022 | |||||
32 | PART 3 / SUBROUTINES USED BY SECTION ONE= | 4F10023 | |||||
33 | NAME FUNCTION | 4F10024 | |||||
34 | C0I50,2 SCAN, AND CONVERT NUMERICS. | 4F10025 | |||||
35 | C0160,2 SCAN CHARACTERS. | 4F10026 | |||||
36 | C0180,Z CONVERT NUMERICS. | 4F10027 | |||||
37 | C0I90X,4 INITIALIZE C0190 TO 1ST WORD OF F. | 4F10028 | |||||
38 | C0390,4 INSERT CHARACTER. | 4F10029 | |||||
39 | C0190,4 OBTAIN NEXT NON-BLANK CHAR IN AC. | 4F10030 | |||||
40 | CIT00,4 COMPILED INSTRUCTION TABLE ENTRIES. | 4F10031 | |||||
41 | DIM.SR,4 DIMENSION TABLE SEARCH. | 4F10032 | |||||
42 | DRTABS(,4) DRUM TABLE ENTRIES. | 4F10033 | |||||
43 | 0ETIFN,4 GET INTERNAL FORMULA NUMBER. | 4F10034 | |||||
44 | JIF(GIF),4 JUMPS (GETS) IFN IN SL AND TL. | 4F10035 | |||||
45 | MTR000 MONITOR STATES FROM DRUM. | 4F10036 | |||||
46 | RA000,4 COMPUTE RELATIVE ADDRESS. | 4F10037 | |||||
47 | RDRX,4 READ DRUM INTO BUFR. | 4F10038 | |||||
48 | SR6DCI,1 CONVERT 6 BCD DIGITS TO 1 BINARY. | 4F10039 | |||||
49 | SS000,4 SOAN AND PR0CESS SUBSCRIPTS. | 4F10040 | |||||
50 | SUBX00,4 ADD BLANKS TO SUBROUTINE NAMES. | 4F10041 | |||||
51 | TESTFX,1 TEST FOR FIXED OR FLOATING POINT. | 4F10042 | |||||
52 | TEST..,4 TEST CHARACTER IN THE AC. | 4F10043 | |||||
53 | TET00,1 TAPE TABLE ENTRIES. | 4F10044 | |||||
54 | 4F10045 | ||||||
55 | DIAG DIAGNOSTIC OALLERS. | 4F10046 | |||||
56 | 4F10047 | ||||||
57 | TNE FOLLOWING CONVENTIONS ARE USED IN TNIS LISTING= | 4F10048 | |||||
58 | 4F10049 | ||||||
59 | ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION | 4F10050 | |||||
60 | INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. | 4F10051 | |||||
61 | * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT 0F | 4F10052 | |||||
62 | TNIS LOGICAL BLOCK OR SUBROUTINE. | 4F10053 | |||||
63 | C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. | 4F10054 | |||||
64 | P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). | 4F10055 | |||||
65 | 4F10056 | ||||||
66 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10057 | |||||
67 | 4F10058 | ||||||
68 | COMMON/1-WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS= | 4F10059 | |||||
00030 | 69 | ORGCOM | ORG | 24 | 4F10060 | ||
70 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10061 | |||||
71 | 4F10062 | ||||||
72 | EIFNO AND SENSE SWITCH SIMULATORS. | 4F10063 | |||||
00030 | 0 00000 0 00000 | 73 | EIFNO | PZE | **,,** EXTERNAL,,INTERNAL FORMULA NUMBER. | 4F10064 | |
00031 | 0 00000 0 00002 | 74 | ENDI1 | PZE | 2 SIMULATOR FOR SENSE SWITCH 1. | 4F10065 | |
00032 | 0 00000 0 00002 | 75 | ENDI2 | PZE | 2 SIMULATOR FOR SENSE SWITCH 2. | 4F10066 | |
00033 | 0 00000 0 00002 | 76 | ENDI3 | PZE | 2 SIMULATOR FOR SENSE SWITCH 3. | 4F10067 | |
00034 | 0 00000 0 00002 | 77 | ENDI4 | PZE | 2 SIMULATOR FOR SENSE SWITCH 4. | 4F10068 | |
00035 | 0 00000 0 00002 | 78 | ENDI5 | PZE | 2 SIMULATOR FOR SENSE SWITCH 5. | 4F10069 | |
79 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10070 | |||||
80 | 4F10071 | ||||||
81 | BUFFERS USED BY TET00 FOR THE TAPE TABLES. | 4F10072 | |||||
00036 | 82 | TEIFNO | BSS | 10 EXTERNAL,,INTERNAL FORMULA NUMBERS. | 4F10073 | ||
00050 | 83 | TDO | BSS | 10 DO STATEMENTS. | 4F10074 | ||
00062 | 84 | TIFGO | BSS | 10 IF AND GO TO STATEMENTS. | 4F10075 | ||
00074 | 85 | TRAD | BSS | 10 IF AND GO TO TRANSFER ADDRESSES. | 4F10076 | ||
00106 | 86 | FORTAG | BSS | 10 INDEXES TO TAU AND SIGMA TABLES. | 4F10077 | ||
00120 | 87 | FORVAR | BSS | 10 RIGHT - NON-SUB. FX. PT. VARIABLES. | 4F10078 | ||
00132 | 88 | FORVAL | BSS | 10 LEFT - NON-SUB. FX. PT. VARIABLES. | 4F10079 | ||
00144 | 89 | FRET | BSS | 10 FREQUENCY STATEMENTS. | 4F10080 | ||
00156 | 90 | EQUIT | BSS | 10 EQUIVALENCE STATEMENTS. | 4F10081 | ||
00170 | 91 | CLOSUB | BSS | 10 NAMES OF SUBROUTINES. | 4F10082 | ||
00202 | 92 | FORMAT | BSS | 10 FORMAT STATEMENTS. | 4F10083 | ||
00214 | 93 | SUBDEF | BSS | 10 SUBROUTINE DEFINITION STATEMENTS. | 4F10084 | ||
00226 | 94 | COMMON | BSS | 10 UPPER MEMORY STORAGE STATEMENTS. | 4F10085 | ||
00240 | 95 | NOLARG | BSS | 10 HOLLERITH ARGUMENTS FOR SUBROUTINE. | 4F10086 | ||
00252 | 96 | NONEXC | BSS | 10 NON-EXECUTED STATEMENTS. | 4F10087 | ||
00264 | 97 | TSTOPS | BSS | 10 STOP STATEMENTS. | 4F10088 | ||
00276 | 98 | CALLFN | BSS | 10 1ST / LAST IFN FOR CALL STATEMENTS. | 4F10089 | ||
00310 | 99 | FMTEFN | BSS | 10 TABLE OF FORMAT EXTERNAL FORMNOS. | 4F10090 | ||
100 | FND OF THE TAPE TABLE BUFFERS. | 4F10091 | |||||
101 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10092 | |||||
102 | 4F10093 | ||||||
103 | INTET/ TABLE PARAMETERS USED BY TET00, WHERE | 4F10094 | |||||
104 | O = ORIGIN OF TABLE BUFFER, | 4F10095 | |||||
105 | B = BUFFER CAPACITY, | 4F10096 | |||||
106 | A = ADDRESS OF TABLE ENTRY, | 4F10097 | |||||
107 | E = ENTRY LENGTH IN WORDS, | 4F10098 | |||||
108 | C = COUNT OF BLOCKS PUT ON TAPE, | 4F10099 | |||||
109 | P = PORTION OF BUFFER THAT IS FULL. | 4F10100 | |||||
110 | 4F10101 | ||||||
00322 | 0 00012 0 00036 | 111 | INTET | PZE | TEIFNO,,10 00) O,,B. | 4F10102 | |
00323 | 0 00001 0 00030 | 112 | PZE | EIFNO,,1 A,,E. | 4F10103 | ||
00324 | 0 00000 0 00000 | 113 | PZE | **,,** C,,P. | 4F10104 | ||
114 | 4F10105 | ||||||
00325 | 0 00012 0 00050 | 115 | PZE | TDO,,10 01) O,,B. | 4F10106 | ||
00326 | 0 00005 0 01105 | 116 | PZE | 1C,,5 A,,E. | 4F10107 | ||
00327 | 0 00000 0 00000 | 117 | PZE | **,,** C,,P. | 4F10108 | ||
118 | 4F10109 | ||||||
00330 | 0 00012 0 00062 | 119 | PZE | TIFGO,,10 02) O,,B. | 4F10110 | ||
00331 | 0 00002 0 01105 | 120 | PZE | 1C,,2 A,,E. | 4F10111 | ||
00332 | 0 00000 0 00000 | 121 | PZE | **,,** C,,P. | 4F10112 | ||
122 | 4F10113 | ||||||
00333 | 0 00012 0 00074 | 123 | PZE | TRAD,,10 03) O,,B. | 4F10114 | ||
00334 | 0 00001 0 01112 | 124 | PZE | 1G,,1 A,,E. | 4F10115 | ||
00335 | 0 00000 0 00000 | 125 | PZE | **,,** C,,P. | 4F10116 | ||
126 | 4F10117 | ||||||
00336 | 0 00012 0 00106 | 127 | PZE | FORTAG,,10 04) 0,,B. | 4F10118 | ||
00337 | 0 00001 0 01347 | 128 | PZE | G,,1 A,,E. | 4F10119 | ||
00340 | 0 00000 0 00000 | 129 | PZE | **,,** C,,P. | 4F10120 | ||
130 | 4F10121 | ||||||
00341 | 0 00012 0 00120 | 131 | PZE | FORVAR,,10 05) O,,B. | 4F10122 | ||
00342 | 0 00002 0 01347 | 132 | PZE | G,,2 A,,E. | 4F10123 | ||
00343 | 0 00000 0 00000 | 133 | PZE | **,,** C,,P. | 4F10124 | ||
134 | 4F10125 | ||||||
00344 | 0 00012 0 00132 | 135 | PZE | FORVAL,,10 06) O,,B. | 4F10126 | ||
00345 | 0 00002 0 01347 | 136 | PZE | G,,2 A,,E. | 4F10127 | ||
00346 | 0 00000 0 00000 | 137 | PZE | **,,** C,,P. | 4F10128 | ||
138 | 4F10129 | ||||||
00347 | 0 00012 0 00144 | 139 | PZE | FRET,,10 07) O,,B. | 4F10130 | ||
00350 | 0 00001 0 01112 | 140 | PZE | 1G,,1 A,,E. | 4F10131 | ||
00351 | 0 00000 0 00000 | 141 | PZE | **,,** C,,P. | 4F10132 | ||
142 | 4F10133 | ||||||
00352 | 0 00012 0 00156 | 143 | PZE | EQUIT,,10 06) O,,B. | 4F10134 | ||
00353 | 0 00002 0 01105 | 144 | PZE | 1C,,2 A,,E. | 4F10135 | ||
00354 | 0 00000 0 00000 | 145 | PZE | **,,** C,,P. | 4F10136 | ||
146 | 4F10137 | ||||||
00355 | 0 00012 0 00170 | 147 | PZE | CLOSUB,,10 09) O,,B. | 4F10138 | ||
00356 | 0 00001 0 01347 | 148 | PZE | G,,1 A,,E. | 4F10139 | ||
00357 | 0 00000 0 00000 | 149 | PZE | **,,** C,,P. | 4F10140 | ||
150 | 4F10141 | ||||||
00360 | 0 00012 0 00202 | 151 | PZE | FORMAT,,10 10) O,.B. | 4F10142 | ||
00361 | 0 00002 0 01347 | 152 | PZE | G,,2 A,,E. | 4F10143 | ||
00362 | 0 00000 0 00000 | 153 | PZE | **,,** C,,P. | 4F10144 | ||
154 | 4F10145 | ||||||
00363 | 0 00012 0 00214 | 155 | PZE | SUBDEF,,10 11) O,,0. | 4F10146 | ||
00364 | 0 00001 0 01112 | 156 | PZE | 1G,,1 A,,E. | 4F10147 | ||
00365 | 0 00000 0 00000 | 157 | SBDFCN | PZE | **,,** O,,P. | 4F10148 | |
158 | 4F10149 | ||||||
00366 | 0 00012 0 00226 | 159 | PZE | COMMON,,10 12I O,,B. | 4F10150 | ||
00367 | 0 00001 0 01112 | 160 | PZE | 1G,,1 A,,E. | 4F10151 | ||
00370 | 0 00000 0 00000 | 161 | PZE | **,,** O,,P. | 4F10152 | ||
162 | 4F10153 | ||||||
00371 | 0 00012 0 00240 | 163 | PZE | NOLARG,,10 I3) 0,,0. | 4F10154 | ||
00372 | 0 00001 0 01112 | 164 | PZE | 1G,,1 A,,E. | 4F10155 | ||
00373 | 0 00000 0 00000 | 165 | PZE | **,,** C,,P. | 4F10156 | ||
166 | 4F10157 | ||||||
00374 | 0 00012 0 00252 | 167 | PZE | NONEXC,,10 14) O,,0. | 4F10158 | ||
00375 | 0 00001 0 00030 | 168 | PZE | EIFNO,,1 A,,E. | 4F10159 | ||
00376 | 0 00000 0 00000 | 169 | PZE | **,,** C,,P. | 4F10160 | ||
170 | 4F10161 | ||||||
00377 | 0 00012 0 00264 | 171 | PZE | TSTOPS,,10 15) O,,B. | 4F10162 | ||
00400 | 0 00001 0 00030 | 172 | PZE | EIFNO,,1 A,,E. | 4F10163 | ||
00401 | 0 00000 0 00000 | 173 | PZE | **,,** C,,P. | 4F10164 | ||
174 | 4F10165 | ||||||
00402 | 0 00012 0 00276 | 175 | PZE | CALLFN,,10 16) 0,,B. | 4F10166 | ||
00403 | 0 00001 0 01123 | 176 | PZE | CALLNM,,1 A,,E. | 4F10167 | ||
00404 | 0 00000 0 00000 | 177 | PZE | **,,** C,,P. | 4F10168 | ||
178 | 4F10169 | ||||||
00405 | 0 00012 0 00310 | 179 | PZE | FMTEFN,,10 17) O,,B. | 4F10170 | ||
00406 | 0 00001 0 01366 | 180 | PZE | SET,,1 A,,E. | 4F10171 | ||
00407 | 0 00000 0 00000 | 181 | PZE | **,,** C,,P. | 4F10172 | ||
182 | 4F10173 | ||||||
00410 | 183 | BSS | 3 EXPANSION SPACE FOR INTET. | 4F10174 | |||
184 | END OF TAPE TABLE PARAMETERS. | 4F10175 | |||||
185 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10176 | |||||
186 | 4F10177 | ||||||
187 | ....IX/ TABLE PARAMETERS USED BY DRTABS, WHERE | 4F10178 | |||||
188 | ARG1 = 1ST LOCATION OF ARGUMENT, | 4F10179 | |||||
189 | L = LENGTH 0F ARGUMENT IN WORDS, | 4F10180 | |||||
190 | TDA = LOC. OF NEXT DRUM ENTRY, | 4F10181 | |||||
191 | N = NO. OF ENTRIES ON DRUM, | 4F10182 | |||||
192 | *** = TXL FOR ENTRY SUM TABLES, | 4F10183 | |||||
193 | *** = TXH FOR BLOCK SUM TAB(FLCN), | 4F10184 | |||||
194 | FDA = LOC. OF 1ST DRUM ENTRY, | 4F10185 | |||||
195 | K = BUFFER CAPACITY IN ENTRIES, | 4F10186 | |||||
196 | DBL = N*(L+I) FOR ENTRY SUM TABLE, | 4F10187 | |||||
197 | DBL = K*L+I FOR BLOCK SUM TABLE, | 4F10188 | |||||
198 | J = DRUM CAPACITY IN ENTRIES, | 4F10189 | |||||
199 | I = 5 - DRUM NUMBER. | 4F10190 | |||||
200 | 4F10191 | ||||||
00413 | 0 00001 0 01350 | 201 | PZE | G+1,,1 FIXCON) ARG1+L,,L | 4F10192 | ||
00414 | 0 00000 0 00002 | 202 | PZE | FIXCON,,** TDA,,N | 4F10193 | ||
00415 | −3 00062 0 00002 | 203 | TXLOP | TXL | FIXCON,,50*1 *** FDA,,K*L | 4F10194 | |
00416 | 0 00144 0 00144 | 204 | PZE | 50*2,,100 DBL,,J | 4F10195 | ||
00417 | 1 00003 0 02073 | 205 | FXCNIX | TXI | ALT,,5−2 TXI ALT,,I | 4F10196 | |
206 | 4F10197 | ||||||
00420 | 0 00001 0 01350 | 207 | PZE | G+1,,1 FLOCON) ARG1+L,,L | 4F10198 | ||
00421 | 0 00000 0 00312 | 208 | PZE | FLOCON,,** TDA,,N | 4F10199 | ||
00422 | 3 00062 0 00312 | 209 | TXHOP | TXH | FLOCON,,50*1 *** FDA,,K*L | 4F10200 | |
00423 | 0 00702 0 00063 | 210 | PZE | 50*1+1,,450 DBL,,J | 4F10201 | ||
00424 | 1 00003 0 02073 | 211 | FLCNIX | TXI | ALT,,5−2 TXI ALT,,I | 4F10202 | |
212 | 4F10203 | ||||||
00425 | 0 00002 0 01133 | 213 | PZE | E+3+2,,2 TAU1 ) ARG1+L,,L | 4F10204 | ||
00426 | 0 00000 0 00000 | 214 | PZE | TAU1,,** TDA,,N | 4F10205 | ||
00427 | −3 00062 0 00000 | 215 | TXL | TAU1,,25*2 *** FDA,,K*L | 4F10206 | ||
00430 | 0 00144 0 00113 | 216 | PZE | 25*3,,100 DBL,,J | 4F10207 | ||
00431 | 1 00001 0 02073 | 217 | TAU1IX | TXI | ALT,,5−4 TAI ALT,,I | 4F10208 | |
218 | 4F10209 | ||||||
00432 | 0 00004 0 01135 | 219 | PZE | E+3+4,,4 TAU2 ) ARG1+L,,L | 4F10210 | ||
00433 | 0 00000 0 00454 | 220 | PZE | TAU2,,** TDA,,N | 4F10211 | ||
00434 | −3 00060 0 00454 | 221 | TXL | TAU2,,12*4 *** FDA,,K*L | 4F10212 | ||
00435 | 0 00132 0 00074 | 222 | PZE | 12*5,,90 DBL,,J | 4F10213 | ||
00436 | 1 00001 0 02073 | 223 | TAU2IX | TXI | ALT,,5−4 TXI ALT,,I | 4F10214 | |
224 | 4F10215 | ||||||
00437 | 0 00006 0 01137 | 225 | PZE | E+3+6,,6 TAU3 ) ARG1+L,,L | 4F10216 | ||
00440 | 0 00000 0 01356 | 226 | PZE | TAU3,,** TDA,,N | 4F10217 | ||
00441 | −3 00060 0 01356 | 227 | TXL | TAU3,,8*6 *** FDA,,K*L | 4F10218 | ||
00442 | 0 00113 0 00070 | 228 | PZE | 8*7,,75 DBL,,J | 4F10219 | ||
00443 | 1 00001 0 02073 | 229 | TAU3IX | TXI | ALT,,5−4 TXI ALT,,I | 4F10220 | |
230 | 4F10221 | ||||||
00444 | 0 00001 0 01142 | 231 | PZE | E+11+1,,1 SIGMA1) ARG1+L,,L | 4F10222 | ||
00445 | 0 00001 0 01230 | 232 | PZE | SIGMA1+2,,1 TDA,,N | 4F10223 | ||
00446 | −3 00036 0 01226 | 233 | TXL | SIGMA1,,30*1 *** FDA,,K*L | 4F10224 | ||
00447 | 0 00036 0 00074 | 234 | PZE | 30*2,,30 DBL,,J | 4F10225 | ||
00450 | 1 00003 0 02073 | 235 | SIG1IX | TXI | ALT,,5−2 TXI ALT,,I | 4F10226 | |
236 | 4F10227 | ||||||
00451 | 0 00002 0 01107 | 237 | PZE | 1C+2,,2 DIM1 ) ARG1+L,,L | 4F10228 | ||
00452 | 0 00000 0 00310 | 238 | PZE | DIM1,,** TDA,,N | 4F10229 | ||
00453 | −3 00000 0 00310 | 239 | ORGDM1 | TXL | DIM1,,0 *** FDA,,K*L | 4F10230 | |
00454 | 0 00144 0 00000 | 240 | PZE | 0,,100 DBL,,J | 4F10231 | ||
00455 | 1 00002 0 02071 | 241 | DIM1IX | TXI | DIMALT,,5−3 TXI ALT,,I | 4F10232 | |
242 | 4F10233 | ||||||
00456 | 0 00002 0 01107 | 243 | PZE | 1C+2,,2 DIM2 ) ARG1+L,,L | 4F10234 | ||
00457 | 0 00000 0 00764 | 244 | PZE | DIM2,,** T0A,,N 4 | 4F10235 | ||
00460 | −3 00000 0 00764 | 245 | ORGDM2 | TXL | DIM2,,0 *** FDA,,K*L | 4F10236 | |
00461 | 0 00144 0 00000 | 246 | PZE | 0,,100 DBL,,J | 4F10237 | ||
00462 | 1 00002 0 02071 | 247 | DIM2IX | TXI | DIMALT,,5−3 TXI ALT,,I | 4F10238 | |
248 | 4F10239 | ||||||
00463 | 0 00003 0 01110 | 249 | PZE | 1C+3,,3 DIM3 ) ARG1+L,,L | 4F10240 | ||
00464 | 0 00000 0 01440 | 250 | PZE | DIM3,,** TDA,,N | 4F10241 | ||
00465 | −3 00000 0 01440 | 251 | ORGDM3 | TXL | DIM3,,0 *** FDA,,K*L | 4F10242 | |
00466 | 0 00132 0 00000 | 252 | PZE | 0,,90 DBL,,J | 4F10243 | ||
00467 | 1 00002 0 02071 | 253 | DIM3IX | TXI | DIMALT,,5−3 TXI ALT,,I | 4F10244 | |
254 | END OF DRUM TABLE PARAMETERS. | 4F10245 | |||||
255 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10246 | |||||
256 | 4F10247 | ||||||
257 | COUNT AND,BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES. | 4F10248 | |||||
00470 | 258 | BK | BSS | 1 FORSUB COUNTER. | 4F10249 | ||
00471 | 259 | FORSUB | BSS | 100 NAMES AND DEGREES OF FUNCTIONS. | 4F10250 | ||
260 | END OF FUNCTION COUNT AND BUFFER. | 4F10251 | |||||
261 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10252 | |||||
262 | 4F10253 | ||||||
263 | PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE. | 4F10254 | |||||
00635 | 0 00144 0 00000 | 264 | BS | PZE | ,,100 CIB CAPACITY (4 * 25). | 4F10255 | |
00636 | 0 00000 0 00000 | 265 | EC | PZE | ,,** ENTRY COUNT = NO. WORDS IN CIB. | 4F10256 | |
00637 | 0 00000 0 00000 | 266 | BBOX | PZE | ,,** 2S COMPLEMENT OF THE ENTRY COUNT. | 4F10257 | |
00640 | 267 | CIB | BSS | 100 COMPILED INSTRUCTION BUFFER. | 4F10258 | ||
268 | END OF CIT PARAMETERS AND BUFFER. | 4F10259 | |||||
269 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10260 | |||||
270 | 4F10261 | ||||||
271 | ALL 0F THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. | 4F10262 | |||||
01100 | 272 | ORG | 576 | 4F102625 | |||
01100 | 273 | ERASE | BSS | 5 C0MMON WORKING STORAGE. | 4F10263 | ||
01105 | 274 | 1C | BSS | 5 C0MMON NORKING STORAGE. | 4F10264 | ||
01112 | 275 | 1G | BSS | 1 COMMON NORKING STORAGE. | 4F10265 | ||
01113 | 276 | 2G | BSS | 1 COMMON WORKING STORAGE FOR STATE A. | 4F10266 | ||
01114 | 277 | 3G | BSS | 1 | 4F10267 | ||
01115 | 278 | 1H | BSS | 1 | 4F10268 | ||
01116 | 279 | 2H | BSS | 1 | 4F10269 | ||
01117 | 280 | 3LBAR | BSS | 1 STORAGE USED BY ARITHMETIC. | 4F10270 | ||
01120 | 281 | ARERAS | BSS | 1 STORAGE USED BY ARITHMETIC. | 4F10271 | ||
01121 | −0 00001 0 00004 | 282 | ARGCNT | MZE | 4,,1 ARGUMENT COUNTER USED BY C30,C32. | 4F10272 | |
01122 | 283 | ARGCTR | BSS | 1 STORAGE USED BY ARITHMETIC. | 4F10273 | ||
01123 | 0 00000 0 00000 | 284 | CALLNM | PZE | **,,** | 4F10274 | |
01124 | 285 | CHSAVE | BSS | 1 WORKING STORAGE USED BY ROYCNV. | 4F10275 | ||
01125 | 286 | DIMSAV | BSS | 1 WORKING STORAGE USED BY SS000. | 4F10276 | ||
01126 | 287 | E | BSS | 14 WORKING STORAGE USED BY SS000. | 4F10277 | ||
01144 | 288 | EPSM3 | BSS | 3 | 4F10278 | ||
01147 | 289 | EPS | BSS | 1 EPSILON - VARIABLE USED BY RA000. | 4F10279 | ||
01150 | 290 | E1C | BSS | 1 COMMON WORKING STORAGE. | 4F10280 | ||
01151 | 291 | EFN | BSS | 1 EXTERNAL FORMULA NUMBER (F-1). | 4F10281 | ||
01152 | 292 | F | BSS | 111 ASSEMBLED STATEMENT REGION. | 4F10282 | ||
01331 | 293 | FIRSTC | BSS | 1 USED BY SS000,TESTFX,C3000. | 4F10283 | ||
01332 | 294 | FSNAME | BSS | 1 NAME OF FUNCTION. | 4F10284 | ||
01333 | 295 | FT | BSS | 12 SOURCE PROGRAM INPUT BUFFER. | 4F10285 | ||
01347 | 296 | G | BSS | 2 | 4F10286 | ||
01351 | 297 | GTAG | BSS | 1 VARIABLE USED BY IOT, RA. | 4F10287 | ||
01352 | 307400000000 | 298 | HOLCNT | BCD | 1H(0000 WORKING STORAGE USED BY C3300. | 4F10288 | |
01353 | 299 | I | BSS | 1 | 4F10289 | ||
01354 | 300 | LEFT | BSS | 3 STORAGE USED BY ARITHMETIC. | 4F10290 | ||
01357 | 0 00000 0 00000 | 301 | LENGTH | PZE | **,,** | 4F10291 | |
01360 | 302 | NBAR | BSS | 1 STORAGE USED BY ARITHMETIC. | 4F10292 | ||
01361 | 303 | N2 | BSS | 1 | 4F10293 | ||
01362 | 304 | OPNWRD | BSS | 1 ERASABLE USED BY STATE D. | 4F10294 | ||
01363 | 0 00000 0 00000 | 305 | PHI(I) | PZE | **,,** | 4F10295 | |
01364 | 0 00000 0 00010 | 306 | RAT | PZE | 8,,** VARIABLE USED BY IOT. | 4F10296 | |
01365 | 307 | RESIDU | BSS | 1 REMAINDER OF F-REGION WORD.(C0190) | 4F10297 | ||
01366 | 1 00000 0 00000 | 308 | SET | PON | .. | 4F10298 | |
01367 | 309 | SL | BSS | 1 | 4F10299 | ||
01370 | 310 | SYMBOL | BSS | 1 WORKING STORAGE USED BY SS000. | 4F10300 | ||
01371 | 0 00000 0 00370 | 311 | TL | PZE | 31*8,,** | 4F10301 | |
01372 | 0 00000 0 00000 | 312 | TLINE | PZE | ** VARIABLE USED BY IOT. | 4F10302 | |
313 | END OF COMMON WORKING STORAGE, BUFFERS, AND PARAMETERS. | 4F10303 | |||||
314 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10304 | |||||
315 | 4F10305 | ||||||
316 | C0MMON/2-CONSTANTS USED BY SECTION ONE= | 4F10306 | |||||
317 | 4F10307 | ||||||
01373 | +000000000012 | 318 | TEN | OCT | 12 (1010) - CTEST-1I | 4F10308 | |
01374 | +000000000077 | 319 | ENDMK | OCT | 77 111111 - CTEST-I0 | 4F10309 | |
01375 | +000000000074 | 320 | OPEN | OCT | 74 ( - CTEST-9 | 4F10310 | |
01376 | +000000000073 | 321 | COMMA | OCT | 73 , - CTEST-8 | 4F10311 | |
01377 | +000000000034 | 322 | CLOS | OCT | 34 ) - CTEST-7 | 4F10312 | |
01400 | +000000000013 | 323 | EQUAL | OCT | 13 = - CTEST-6 | 4F10313 | |
01401 | +000000000040 | 324 | 11Z | OCT | 40 - - CTEST-5 | 4F10314 | |
01402 | +000000000061 | 325 | SLASH | OCT | 61 / - CTEST-4 | 4F10315 | |
01403 | +000000000033 | 326 | POINT | OCT | 33 . - CTEST-3 | 4F10316 | |
01404 | +000000000020 | 327 | 12Z | OCT | 20 + - CTEST-2 | 4F10317 | |
01405 | +000000000054 | 328 | STAR | OCT | 54 * - CTEST-1 | 4F10318 | |
01406 | 329 | CTEST | BSS | 0 ADDRESS USED FOR INDEXING ABOVE. | 4F10319 | ||
330 | 4F10320 | ||||||
01406 | 000000000000 | 331 | L(0) | BCD | 1000000 0 | 4F10321 | |
01407 | 000000000001 | 332 | L(1) | BCD | 1000001 1 | 4F10322 | |
01410 | 000000000002 | 333 | L(2) | BCD | 1000002 2 | 4F10323 | |
01411 | 000000000003 | 334 | L(3) | BCD | 1000003 3 | 4F10324 | |
01412 | 000000000004 | 335 | L(4) | BCD | 1000004 4 | 4F10325 | |
01413 | 000000000005 | 336 | L(5) | BCD | 1000005 5 | 4F10326 | |
01414 | 000000000006 | 337 | L(6) | BCD | 1000006 6 | 4F10327 | |
01415 | 000000000007 | 338 | L(7) | BCD | 1000007 7 | 4F10328 | |
01416 | 000000000010 | 339 | L(8) | BCD | 1000008 8 | 4F10329 | |
01417 | 000000000011 | 340 | L(9) | BCD | 1000009 9 | 4F10330 | |
01420 | +000000000014 | 341 | MINUS | OCT | 14 - | 4F10331 | |
01421 | 000000000023 | 342 | L(C) | BCD | 100000C C | 4F10332 | |
01422 | 000000000026 | 343 | L(F) | BCD | 100000F F | 4F10333 | |
01423 | 000000000030 | 344 | L(H) | BCD | 100000H H | 4F10334 | |
01424 | +000000000032 | 345 | CHAR2 | OCT | 32 CONSTANT USED BY CD000. | 4F10335 | |
01425 | 000000000046 | 346 | L(O) | BCD | 100000O O (ALPHABETIC) | 4F10336 | |
01426 | +000000000052 | 347 | CHAR3 | OCT | 52 CONSTANT USED BY CD000. | 4F10337 | |
01427 | +000000000053 | 348 | SPECOP | OCT | 53 00000$ | 4F10338 | |
01430 | +000000000060 | 349 | BLANK | OCT | 60 000000000060 | 4F10339 | |
01431 | 000000000062 | 350 | L(S) | BCD | 100000S S | 4F10340 | |
01432 | 000000000063 | 351 | L(T) | BCD | 100000T T | 4F10341 | |
01433 | 000000000067 | 352 | L(X) | BCD | 100000X X | 4F10342 | |
01434 | 000000000071 | 353 | L(Z) | BCD | 100000Z Z | 4F10343 | |
01435 | +000000000072 | 354 | PM | OCT | 72 RECORD MARK (ILLEGAL) -CD000 | 4F10344 | |
01436 | +000000000100 | 355 | BIT29 | OCT | 100 | 4F10345 | |
01437 | +000000000121 | 356 | A81 | DEC | 81 CONSTANT USED BY IOT. | 4F10346 | |
01440 | +000000000140 | 357 | L(96) | OCT | 140 USED BY C0500. | 4F10347 | |
01441 | +000000000160 | 358 | L(112) | OCT | 160 USED BY C0400. | 4F10348 | |
01442 | +000000000777 | 359 | MASK3 | OCT | 777 ,ARITHMETIC. | 4F10349 | |
01443 | +000000001000 | 360 | 1E9 | OCT | 1000 A0DRESS=8 | 4F10350 | |
01444 | 000000002174 | 361 | L(A() | BCD | 10000A( INTERNAL FLO-PT VARIABLE PREFIX. | 4F10351 | |
01445 | 000000003074 | 362 | L(H() | BCD | 10000H( | 4F10352 | |
01446 | 000000003174 | 363 | L(I() | BCD | 10000I( INTERNAL FXD-PT VARIABLE PREFIX. | 4F10353 | |
01447 | +000000006212 | 364 | SAPSYM | OCT | 6212 | 4F10354 | |
01450 | +000000006712 | 365 | IFSYM | OCT | 6712 | 4F10355 | |
01451 | +000000007112 | 366 | CALLER | OCT | 7112 | 4F10356 | |
01452 | +000000077777 | 367 | MASK2 | OCT | 77777 2**15-I -ARITHMETIC. | 4F10357 | |
01453 | +000000400000 | 368 | 2E17 | OCT | 400000 TAG=4 | 4F10358 | |
01454 | +000001000000 | 369 | 2E18 | OCT | 1000000 DECREMENT=1 | 4F10359 | |
01455 | 0 00001 0 00001 | 370 | DECR1 | PZE | 1,,1 CONSTANT USED BY DRTABS. | 4F10360 | |
01456 | +000001000002 | 371 | ABTAG2 | OCT | 1000002 CONSTANT USED BY C3200. | 4F10361 | |
01457 | 0 00002 0 00000 | 372 | D2 | PZE | ,,2 CONSTANT USED BY IOT. | 4F10362 | |
01460 | +000002000004 | 373 | ABTAG3 | OCT | 2000004 CONSTANT USED BY C3200. | 4F10363 | |
01461 | 0 00003 0 00000 | 374 | D3CN | PZE | ,,3 CONSTANT USED BY IOT. | 4F10364 | |
01462 | +000003077775 | 375 | BETAD2 | OCT | 3077775 3*2**18+(-3) -ARITHMETIC. | 4F10365 | |
01463 | 0 00006 0 00000 | 376 | D6 | PZE | ,,6 CONSTANT USED BY IOT. | 4F10366 | |
01464 | 0 00020 0 00000 | 377 | FSIND | PZE | ,,16 | 4F10367 | |
01465 | 0 00021 0 00000 | 378 | DEC17 | PZE | ,,17 | 4F10368 | |
01466 | 0 00022 0 00000 | 379 | DEC18 | PZE | ,,18 | 4F10369 | |
01467 | +000032000000 | 380 | PZ | OCT | 32000000 PLUS ZERO -ED000. | 4F10370 | |
01470 | +000037777600 | 381 | MASK5 | OCT | 37777600 -ARITHMETIC. | 4F10371 | |
01471 | 0 00040 0 00000 | 382 | FNIND | PZE | ,,32 | 4F10372 | |
01472 | 0 00043 0 00000 | 383 | DEC35 | PZE | ,,35 | 4F10373 | |
01473 | +000052000000 | 384 | MZ | OCT | 52000000 MINUS ZERO -CD000. | 4F10374 | |
01474 | +000200000000 | 385 | NGTBIT | OCT | 000200000000 | 4F10375 | |
01475 | 0 00220 0 00000 | 386 | BTA | PZE | ,,144 CONSTANT USED BY IOT. | 4F10376 | |
01476 | 0 00300 0 00000 | 387 | BDA | PZE | 0,0,192 CONSTANT USED BY I0T. | 4F10377 | |
01477 | 006060606060 | 388 | 5BLANS | BCD | 10␣␣␣␣␣ 006060606060 | 4F10378 | |
01500 | 010000000000 | 389 | E( | BCD | 1100000 -ARITHMETIC. | 4F10379 | |
01501 | 020000000000 | 390 | I( | BCD | 1200000 -ARITHMETIC. | 4F10380 | |
01502 | 030000000000 | 391 | A( | BCD | 1300000 -ARITHMETIC. | 4F10381 | |
01503 | 040000000000 | 392 | P( | BCD | 1400000 -ARITHMETIC. | 4F10382 | |
01504 | 060000000000 | 393 | O( | BCD | 1600000 -ARITHMETIC. | 4F10383 | |
01505 | 070000000000 | 394 | X( | BCD | 1700000 -ARITHMETIC. | 4F10384 | |
01506 | +077775077775 | 395 | BETAD1 | OCT | 77775077775 (-3(*2**18+(-3) -ARITHMETIC. | 4F10365 | |
01507 | +077777000000 | 396 | 1BAR | OCT | 77777000000 (2**15-1)*2**18DECREMENT MASK. | 4F10386 | |
01510 | +170000000000 | 397 | 15P | DEC | 15B5 CONSTANT USED BY IOT. | 4F10387 | |
01511 | +176060606060 | 398 | PROCTR | OCT | 176060606060 | 4F10388 | |
01512 | +200000000000 | 399 | ADPLUS | OCT | 200000000000 ADDITION SIGN -ARITHMETIC. | 4F10389 | |
01513 | 217400000000 | 400 | FLOVAR | BCD | 1A(0000 A( INTERNAL FLOATING PT. VARIABLE. | 4F10390 | |
01514 | 256747740160 | 401 | FXFX | BCD | 1EXP(1␣ | 4F10391 | |
01515 | 256747740260 | 402 | FLFX | BCD | 1EXP(2␣ | 4F10392 | |
01516 | 256747740360 | 403 | FLFL | BCD | 1EXP(3␣ | 4F10393 | |
01517 | 317400000000 | 404 | FIXVAR | BCD | 1I(0000 I( INTERNAL FIXED PT. VARIABLE. | 4F10394 | |
01520 | −0 00000 0 00000 | 405 | MINUS0 | MZE | 0 | 4F10395 | |
01521 | −0 00002 0 00000 | 406 | DECMI2 | MZE | ,,2 | 4F10396 | |
01522 | −130000000000 | 407 | ADSPOP | OCT | 530000000000 $00000 | 4F10397 | |
01523 | −136000000000 | 408 | DOLSGN | OCT | 536000000000 CONSTANT USED BY C32000 | 4F10398 | |
01524 | −140000000000 | 409 | ADSTAR | OCT | −140000000000 MULTIPLICATION SIGN -ARITHMETIC. | 4F10399 | |
01525 | −145400000000 | 410 | STRSTR | OCT | −145400000000 EXPONENTIATION SIGN -ARITHMETIC. | 4F10400 | |
01526 | 606060606060 | 411 | BLANKS | BCD | 1␣␣␣␣␣␣ 606O60606060 | 4F10401 | |
01527 | −377777700000 | 412 | MASK1 | OCT | −377777700000 -(2**20-U.*2**15 -ARITHMETIC. | 4F10402 | |
01530 | −377777777737 | 413 | MASK4 | OCT | −377777777737 -ARITHMETIC. | 4F10403 | |
01531 | −377777777777 | 414 | ALL1 | OCT | −377777777777 END OF STATEMENT WORD. | 4F10404 | |
415 | 4F10405 | ||||||
01532 | 212424000000 | 416 | L(ADD) | BCD | 1ADD000 SYMBOLIC OPERATION CODE. | 4F10406 | |
01533 | 214362000000 | 417 | L(ALS) | BCD | 1ALS000 SYMBOLIC OPERATION CODE. | 4F10407 | |
01534 | 214521000000 | 418 | L(ANA) | BCD | 1ANA000 SYMBOLIC OPERATION CODE. | 4F10408 | |
01535 | 215162000000 | 419 | L(ARS) | BCD | 1ARS000 SYMBOLIC OPERATION CODE. | 4F10409 | |
01536 | 226262000000 | 420 | L(BSS) | BCD | 1BSS000 SYMBOLIC OPERATION CODE. | 4F10410 | |
01537 | 232143000000 | 421 | L(CAL) | BCD | 1CAL000 | 4F10411 | |
01540 | 233062000000 | 422 | L(CHS) | BCD | 1CHS000 SYMBOLIC OPERATION CODE. | 4F10412 | |
01541 | 234321000000 | 423 | L(CLA) | BCD | 1CLA000 SYMBOLIC OPERATI0N CODE. | 4F10413 | |
01542 | 234344000000 | 424 | L(CLM) | BCD | 1CLM000 SYMBOLIC OPERATION CODE. | 4F10414 | |
01543 | 234362000000 | 425 | L(CLS) | BCD | 1CLS000 SYMBOLIC OPERATION CODE. | 4F10415 | |
01544 | 234770000000 | 426 | L(CPY) | BCD | 1CPY000 | 4F10416 | |
01545 | 242363000000 | 427 | L(DCT) | BCD | 1DCT000 SYMBOLIC OPERATION CODE. | 4F10417 | |
01546 | 242524000000 | 428 | L(DED) | BCD | 1DED000 | 4F10418 | |
01547 | 246547000000 | 429 | L(DVP) | BCD | 1DVP000 SYMBOLIC OPERATION CODE. | 4F10419 | |
01550 | 262124000000 | 430 | L(FAD) | BCD | 1FAD000 SYMBOLIC OPERATI0N CODE. | 4F10420 | |
01551 | 262447000000 | 431 | LIFDP) | BCD | 1FDP000 SYMBOLIC OPERATION CODE. | 4F10421 | |
01552 | 264447000000 | 432 | L(FMP) | BCD | 1FMP000 SYMBOLIC OPERATION CODE. | 4F10422 | |
01553 | 266222000000 | 433 | L(FSB) | BCD | 1FSB000 SYMBOLIC OPERATION C0DE. | 4F10423 | |
01554 | 304751000000 | 434 | L(HPR) | BCD | 1HPR000 SYMBOLIC OPERATION CODE. | 4F10424 | |
01555 | 432421000000 | 435 | L(LDA) | BCD | 1LDA000 | 4F10425 | |
01556 | 432450000000 | 436 | L(LDQ) | BCD | 1LDQ000 SYMBOLIO OPERATION CODE. | 4F10426 | |
01557 | 434362000000 | 437 | L(LLS) | BCD | 1LLS000 SYMBOLIC OPERATION CODE. | 4F10427 | |
01560 | 435162000000 | 438 | L(LRS) | BCD | 1LRS000 SYMBOLIC OPERATION CODE. | 4F10428 | |
01561 | 436724000000 | 439 | L(LXD) | BCD | 1LXD000 SYMBOLIC OPERATION CODE. | 4F10429 | |
01562 | 444770000000 | 440 | L(MPY) | BCD | 1MPY000 SYMBOLIC OPERATION CODE. | 4F10430 | |
01563 | 446225000000 | 441 | L(MSE) | BCD | 1MSE000 IDMBOLIC OPERATION CODE. | 4F10431 | |
01564 | 465121000000 | 442 | L(ORA) | BCD | 1ORA000 SYMBOLIC OPERATION CODE. | 4F10432 | |
01565 | 476225000000 | 443 | L(PSE) | BCD | 1PSE000 SYMBOLIC OPERATION CODE. | 4F10433 | |
01566 | 476724000000 | 444 | L(PXD) | BCD | 1PXD000 SYMBOLIC OPERATION CODE. | 4F10434 | |
01567 | 504751000000 | 445 | L(QPR) | BCD | 1QPR000 CONSTANT USED BY C3200. | 4F10435 | |
01570 | 506724000000 | 446 | L(QXD) | BCD | 1QXD000 CONSTANT USED BY C3200. | 4F10436 | |
01571 | 626321000000 | 447 | L(STA) | BCD | 1STA000 SYMBOLIC OPERATION CODE. | 4F10437 | |
01572 | 626346000000 | 448 | L(STO) | BCD | 1STO000 SYMBOLIC OPERATION CODE. | 4F10438 | |
01573 | 626350000000 | 449 | L(STQ) | BCD | 1STQ000 SYMBOLIC OPERATION CODE. | 4F10439 | |
01574 | 626422000000 | 450 | L(SUB) | BCD | 1SUB000 SYMBOLIC OPERATION CODE. | 4F10440 | |
01575 | 626724000000 | 451 | L(SXD) | BCD | 1SXD000 SYMBOLIC OPERATION C0DE. | 4F10441 | |
01576 | 633167000001 | 452 | L(TIX) | BCD | 1TIX001 | 4F10442 | |
01577 | 634665000000 | 453 | L(TOV) | BCD | 1TOV000 SYMBOLIC OPERATION CODE. | 4F10443 | |
01600 | 635046000000 | 454 | L(TQO) | BCD | 1TQO000 SYMBOLIC OPERATION CODE. | 4F10444 | |
01601 | 635121000000 | 455 | L(TRA) | BCD | 1TRA000 SYMBOLIC OPERATION C0DE. | 4F10445 | |
01602 | 636267000000 | 456 | L(TSX) | BCD | 1TSX000 SYMBOLIC OPERATION CODE. | 4F10446 | |
01603 | 642621000000 | 457 | L(UFA) | BCD | 1UFA000 IYMBOLIC OPERATION CODE. | 4F10447 | |
458 | END 0F COMMON CONSTANTS USED BY SECTION ONE. | 4F10448 | |||||
459 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10449 | |||||
460 | 4F10450 | ||||||
461 | COMMON/3-SUBROUTINES USED BY SECTION ONE= | 4F10451 | |||||
462 | 4F10452 | ||||||
463 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10453 | |||||
464 | 4F10454 | ||||||
465 | C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100. | 4F10455 | |||||
466 | C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I | 4F10456 | |||||
467 | = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- | 4F10457 | |||||
468 | NUMERIC, SETS I = -0, AND PACKS INTO 1G SUCCESSIVE CHARACTERS | 4F10458 | |||||
469 | UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC. | 4F10459 | |||||
01604 | −0 63400 2 01607 | 470 | C0150 | SXD | C015X,2 SAVE THE C(XR2). | 4F10460 | |
01605 | 0 07400 4 01707 | 471 | TSX | C0190,4 * TEST 1ST NON-BLANK CHARACTER | 4F10461 | ||
01606 | 0 34000 0 01417 | 472 | CAS | L(9) FOR NUMERIC OR NON-NUMERIC. | 4F10462 | ||
01607 | 1 00000 0 01615 | 473 | C015X | TXI | C0151,0,** IF NON-NUMERIC, TRANSFER. | 4F10463 | |
01610 | 0 76100 0 00000 | 474 | NOP | IF NUMERIC, THEN | 4F10464 | ||
01611 | 0 07400 2 01655 | 475 | TSX | C0180,2 * GO CONVERT TO BINARY. | 4F10465 | ||
01612 | 0 60100 0 01113 | 476 | STO | 2G SAVE NEXT NON-NUMERIC CHARACTER. | 4F10466 | ||
01613 | 0 50000 0 01406 | 477 | CLA | L(0) PREPARE TO SET I T0 +0. | 4F10467 | ||
01614 | 1 00000 0 01620 | 478 | FWA | TXI | C0152,0,** GO SET I FOR NUMERIC. | 4F10468 | |
01615 | 0 07400 2 01624 | 479 | C0151 | TSX | C0160,2 * ASSEMBLE NON-NUMERICS IN 1G. | 4F10469 | |
01616 | 0 60100 0 01113 | 480 | STO | 2G SAVE PUNCTUATION MARK, AND | 4F10470 | ||
01617 | 0 50200 0 01406 | 481 | CLS | L(0) PREPARE TO SET I TO -0. | 4F10471 | ||
01620 | 0 60100 0 01353 | 482 | C0152 | STO | I SET I = +0, OR -0. | 4F10472 | |
01621 | 0 50000 0 01113 | 483 | CLA | 2G PICKUP NEXT CHARACTER, | 4F10473 | ||
01622 | −0 53400 2 01607 | 484 | LXD | C015X,2 RESTORE THE C(XR2), AND | 4F10474 | ||
01623 | 0 02000 2 00001 | 485 | TRA | 1,2 * RETURN TO CALLER. | 4F10475 | ||
486 | END OF PROGRAM C0150. | 4F10476 | |||||
487 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10477 | |||||
488 | 4F10478 | ||||||
489 | C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200, | 4F10479 | |||||
490 | C1500,C3000,C3100,C0150. | 4F10480 | |||||
491 | C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND | 4F10481 | |||||
492 | SUOCESS.VE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK | 4F10482 | |||||
493 | IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A | 4F10483 | |||||
494 | BLANK, IF LESS THAN 6 CHARACTERS. | 4F10484 | |||||
01624 | −0 63400 2 01631 | 495 | C0160 | SXD | C016X,2 SAVE THE C(XR2), AND | 4F10485 | |
01625 | 0 53400 2 01406 | 496 | LXA | L(0),2 SET XR2 TO CONTROL SHIFTING. | 4F10486 | ||
01626 | 0 60000 0 01112 | 497 | STZ | 1G CLEAR WORKING STORAGE. | 4F10487 | ||
01627 | 0 53400 4 02652 | 498 | C0161 | LXA | CTESTX,4 TEST | 4F10488 | |
01630 | 0 34000 4 01406 | 499 | C0162 | CAS | CTEST,4 CHARACTER | 4F10489 | |
01631 | 1 00000 0 01633 | 500 | C016X | TXI | C0163,0,** IN THE AC | 4F10490 | |
D | 01632 | 1 00000 0 01642 | 501 | TXI | C0165,0 AGAINST | 4F10491 | |
01633 | 2 00001 4 01630 | 502 | C0163 | TIX | C0162,4,1 ALL PUNCTUATION. | 4F10492 | |
01634 | −3 00036 2 01636 | 503 | TXL | C0164,2,30 IF SYMBOL EXCEEDS 6 CHARACTERS, | 4F10493 | ||
01635 | 0 07400 4 03400 | 504 | TSX | DIAG,4 * GO TO THE DIAGNOSTIC. | 4F10494 | ||
01636 | 0 76700 2 00036 | 505 | C0164 | ALS | 30,2 BUILD LEFT-ADJUSTED | 4F10495 | |
01637 | −0 60200 0 01112 | 506 | ORS | 1G SYMBOL IN WORKING STORAGE. | 4F10496 | ||
01640 | 0 07400 4 01707 | 507 | TSX | C0190,4 * GET NEXT NB CHARACTER IN THE AC. | 4F10497 | ||
01641 | 1 00006 2 01627 | 508 | TXI | C0161,2,6 UPDATE SHIFT COUNT, AND CONTINUE. | 4F10498 | ||
01642 | 3 00000 2 01644 | 509 | C0165 | TXH | C0167,2,0 IF PUNCTUATION IS 1ST CHARACTER, | 4F10499 | |
01643 | 0 07400 4 03400 | 510 | C0166 | TSX | DIAG,4 * OR ILLEGAL, GO TO THE DIAGNOSTIC. | 4F10500 | |
01644 | −3 00005 4 01643 | 511 | C0167 | TXL | C0166,4,5 IF LEGAL PUNCTUATION, THEN | 4F10501 | |
01645 | 0 60100 0 01115 | 512 | STO | 1H 4 SAVE, AND | 4F10502 | ||
01646 | 0 50000 0 01430 | 513 | CLA | BLANK ADD A BLANK | 4F10503 | ||
01647 | 0 76700 2 00036 | 514 | ALS | 30,2 TO SYMBOLS THAT ARE LESS | 4F10504 | ||
01650 | −0 60200 0 01112 | 515 | ORS | 1G THAN 6 CHARACTERS IN LENGTH. | 4F10505 | ||
01651 | 0 50000 0 01115 | 516 | CLA | 1H PICKUP PUNCTUATION MARK, | 4F10506 | ||
01652 | −0 53400 2 01631 | 517 | LXD | C016X,2 RESTORE THE C(XR2), AND | 4F10507 | ||
01653 | 0 02000 2 00001 | 518 | TRA | 1,2 * RETURN TO CALLER. | 4F10508 | ||
519 | END OF PROGRAM C0160. | 4F10509 | |||||
520 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10510 | |||||
521 | 4F10511 | ||||||
522 | C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400, | 4F10512 | |||||
523 | C1000,C1100,C1200,C1400,C1500,C0150. | 4F10513 | |||||
524 | C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ T0 | 4F10514 | |||||
525 | BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN | 4F10515 | |||||
526 | THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC. | 4F10516 | |||||
01654 | 0 07400 4 01707 | 527 | C0180X | TSX | C0190,4 * OBTAIN 1ST NUMERIC IN THE AC. | 4F105165 | |
01655 | 0 60100 0 01112 | 528 | C0180 | STO | 1G PLACE 1ST NUMERIC IN 1G. | 4F10517 | |
01656 | 0 07400 4 01707 | 529 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, | 4F10518 | ||
01657 | 0 34000 0 01417 | 530 | CAS | L(9) AND IF NON-NUMERIC, THEN | 4F10519 | ||
01660 | 0 02000 2 00001 | 531 | TRA | 1,2 * RETURN TO CALLER. | 4F10520 | ||
01661 | 0 76100 0 00000 | 532 | NOP | IF NUMERIC, THEN | 4F10521 | ||
01662 | 0 60100 0 01113 | 533 | STO | 2G SAVE DIGIT IN 2G. | 4F10522 | ||
01663 | 0 50000 0 01112 | 534 | CLA | 1G MULTIPLY | 4F10523 | ||
01664 | 0 76700 0 00002 | 535 | ALS | 2 C(1G) | 4F10524 | ||
01665 | 0 40000 0 01112 | 536 | ADD | 1G BY | 4F10525 | ||
01666 | 0 76700 0 00001 | 537 | ALS | 1 10, | 4F10526 | ||
01667 | 0 40000 0 01113 | 538 | ADD | 2G AND ADD CURRENT DIGIT. | 4F10527 | ||
01670 | 1 76626 0 01655 | 539 | DCF | TXI | C0180,0,−F REPEAT PR0CESS FOR NEXT CHARACTER. | 4F10528 | |
540 | END OF PR0GRAM C01080 | 4F10529 | |||||
541 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10530 | |||||
542 | 4F10531 | ||||||
543 | C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300. | 4F10532 | |||||
544 | C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F. | 4F10533 | |||||
01671 | 0 50000 0 01670 | 545 | C0190X | CLA | DCF SET FORMULA WORD | 4F10534 | |
01672 | 0 62200 0 01614 | 546 | STD | FWA ADDRESS = -(F-REGION ADDRESS), | 4F10535 | ||
01673 | −0 63400 0 01724 | 547 | SXD | CHCTR,0 SET CHARACTER C0UNT = 0, | 4F10536 | ||
01674 | 0 02000 4 00001 | 548 | TRA | 1,4 * RETURN TO MAIN ROUTINE. | 4F10537 | ||
549 | END OF PROGRAM C0190X. | 4F10538 | |||||
550 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10539 | |||||
551 | 4F10540 | ||||||
552 | C0390,4/ CALLERS=C0300,C3300. | 4F10541 | |||||
553 | C0390 INSERTS THE CHARACTER IN THE AC INT0 THE 1ST POSITION | 4F10542 | |||||
554 | TO THE LEFT OF THAT DEFINED BY FWA AND XR1. | 4F10543 | |||||
01675 | 0 50000 0 01374 | 555 | C0390 | CLA | ENDMK PREPARE TO CHANGE | 4F10544 | |
01676 | −0 53400 2 01614 | 556 | LXD | FWA,2 THE PROPER CHARACTER | 4F10545 | ||
01677 | −0 53400 1 01724 | 557 | LXD | CHCTR,1 IN THE F-REGION. | 4F10546 | ||
01700 | −2 00001 1 01703 | 558 | TNX | C0393,1,1 ADJUST MASK | 4F10547 | ||
01701 | −0 76300 0 00006 | 559 | C0392 | LGL | 6 TO POSITION | 4F10548 | |
01702 | 2 00001 1 01701 | 560 | TIX | C0392,1,1 CHARACTER. | 4F10549 | ||
01703 | 0 76000 0 00006 | 561 | C0393 | COM | INVERT MASK, AND | 4F10550 | |
01704 | 0 32000 2 77777 | 562 | ANS | −1,2 ERASE PROPER CHARACTER. | 4F10551 | ||
01705 | −0 76300 0 00044 | 563 | LGL | 36 ADJUST CHARACTER, AND | 4F10552 | ||
01706 | −0 60200 2 77777 | 564 | ORS | −1,2 INSERT IN ERASED POSITION. | 4F10553 | ||
565 | C0390 CONTINUES BY USING C0190. | 4F10554 | |||||
566 | 4F10555 | ||||||
567 | C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C0200,C0300,C0400, | 4F10556 | |||||
568 | C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, | 4F10557 | |||||
569 | C3300,C3400,C0150,C0160,C0180,SS000,ROYCNV,RSC,LPR. | 4F10558 | |||||
570 | C0190 OBTAINS IN AC TH NEXT NON-BLANK CHARACTER OF FORMULA. | 4F10559 | |||||
01707 | −0 63400 1 01723 | 571 | C0190 | SXD | C0194,1 SAVE THE C(XR1), AND | 4F10560 | |
01710 | −0 53400 1 01724 | 572 | LXD | CHCTR,1 SET XR1 = CHARACTER COUNT. | 4F10561 | ||
01711 | 0 56000 0 01365 | 573 | LDQ | RESIDU PICK UP ANY REMAINING CHARACTERS. | 4F10562 | ||
01712 | 2 00001 1 01720 | 574 | C0191 | TIX | C0193,1,1 IF NONE, | 4F10563 | |
01713 | −0 53400 1 01614 | 575 | LXD | FWA,1 PICK UP NEXT FORMULA | 4F10564 | ||
01714 | 0 56000 1 00000 | 576 | LDQ | 0,1 WORD FROM F-REGION, | 4F10565 | ||
01715 | 1 77777 1 01716 | 577 | TXI | C0192,1,−1 AND INCREASE | 4F10566 | ||
01716 | −0 63400 1 01614 | 578 | C0192 | SXD | FWA,1 FORMULA WORD ADDRESS BY 1. | 4F10567 | |
01717 | 0 53400 1 01414 | 579 | LXA | L(6),1 RESET XR1 FOR 6 NEW CHARACTERS. | 4F10568 | ||
01720 | −0 75400 0 00000 | 580 | C0193 | PXD | ,0 EXAMINE | 4F10569 | |
01721 | −0 76300 0 00006 | 581 | LGL | 6 NEXT CHARACTER | 4F10570 | ||
01722 | 0 34000 0 01430 | 582 | CAS | BLANK AND COMPARE WITH A BLANK. | 4F10571 | ||
01723 | 1 00000 0 01725 | 583 | C0194 | TXI | C0195,0,** IF BLANK, | 4F10572 | |
01724 | 1 00000 0 01712 | 584 | CHCTR | TXI | C0191,0,** GO EXAMINE NEXT CHARACTER. | 4F10573 | |
01725 | −0 63400 1 01724 | 585 | C0195 | SXD | CHCTR,1 IF NOT BLANK, RESET CHAR COUNT, | 4F10574 | |
01726 | −0 60000 0 01365 | 586 | STQ | RESIDU SAVE ANY REMAINING CHARACTERS, | 4F10575 | ||
01727 | −0 53400 1 01723 | 587 | LXD | C0194,1 RESTORE THE C(XR1), AND | 4F10576 | ||
01730 | 0 02000 4 00001 | 588 | TRA | 1,4 * RETURN TO MAIN ROUTINE. | 4F10577 | ||
589 | END OF PROGRAM C0190. | 4F10578 | |||||
590 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10579 | |||||
591 | 4F10580 | ||||||
592 | CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600, | 4F10581 | |||||
593 | C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT), | 4F10582 | |||||
594 | ETMSW(LTMSWI,LIB,VRA(VRD). | 4F10583 | |||||
595 | CIT00 MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN | 4F10584 | |||||
596 | THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. | 4F10585 | |||||
01731 | −0 63400 2 01102 | 597 | CIT00 | SXD | CITXR2,2 SAVE THE C(XR2). | 4F10586 | |
01732 | −0 63400 1 01101 | 598 | SXD | CITXR1,1 SAVE THE C(XR1). | 4F10587 | ||
01733 | −0 60000 0 01150 | 599 | STQ | CITMQR SAVE THE C(MQR). | 4F10588 | ||
01734 | −0 53400 2 00637 | 600 | LXD | BBOX,2 SET XR2 = 2S COMPL OF NO-WRDS-ENTD. | 4F10589 | ||
01735 | 0 50000 0 00635 | 601 | CLA | BS COMPARE BLOCK SIZE | 4F10590 | ||
01736 | 0 40200 0 00636 | 602 | SUB | EC WITH ENTRY COUNT. | 4F10591 | ||
01737 | −0 10000 0 01747 | 603 | TNZ | CIT04 IF BLOCK IS NOT FULL,GO MAKE ENTRY. | 4F10592 | ||
01740 | 0 76600 0 00223 | 604 | WRS | CITTAP PREPARE TO WRITE BLOCK ON CIT TAPE. | 4F10593 | ||
01741 | 0 73400 1 00000 | 605 | PAX | ,1 SET XR1 = 0, AND | 4F10594 | ||
01742 | 0 70000 1 00640 | 606 | CIT01 | CPY | CIB,1 COPY SUCCESSIVE | 4F10595 | |
01743 | 1 77777 1 01744 | 607 | TXI | CIT02,1,−1 WORDS OF BLOCK | 4F10596 | ||
01744 | 1 00001 2 01745 | 608 | CIT02 | TXI | CIT03,2,1 AND CONTINUE | 4F10597 | |
01745 | 3 00001 2 01742 | 609 | CIT03 | TXH | CIT01,2,1 UNTIL XR2 = 0. | 4F10598 | |
01746 | 0 76600 0 00333 | 610 | IOD | WHEN DONE, | 4F10599 | ||
01747 | 0 53400 1 01412 | 611 | CIT04 | LXA | L(4),1 SET XR1 = ENTRY SIZE. | 4F10600 | |
01750 | 1 77777 4 01751 | 612 | CIT05 | TXI | CIT05+1,4,−1 SET XR4 = -(ADDR OF NEXT ENTRY WRD) | 4F10601 | |
01751 | 0 50000 4 00000 | 613 | CLA | 0,4 AND PICK UP ADDRESS OF NEXT ENTRY | 4F10602 | ||
01752 | 0 62100 0 01753 | 614 | STA | CIT06 TO SET NEXT ADDRESS. | 4F10603 | ||
01753 | 0 50000 0 00000 | 615 | CIT06 | CLA | ** MOVE ENTRY | 4F10604 | |
01754 | 0 60100 2 00640 | 616 | STO | CIB,2 INTO CIB BUFFER, | 4F10605 | ||
01755 | 1 77777 2 01756 | 617 | TXI | CIT07,2,−1 AND C0UNT -1 FOR EACH WORD ENTERED. | 4F10606 | ||
01756 | 2 00001 1 01750 | 618 | CIT07 | TIX | CIT05,1,1 WHEN DONE, | 4F10607 | |
01757 | −0 63400 2 00637 | 619 | SXD | BBOX,2 SAVE THE C(XR2), AND | 4F10608 | ||
01760 | −0 75400 2 02032 | 620 | DMSR99 | PXD | DMSR05+1,2 COMPUTE THE | 4F10609 | |
01761 | 0 76000 0 00006 | 621 | COM | REAL NUMBER | 4F10610 | ||
01762 | 0 40000 0 01454 | 622 | ADD | 2E18 OF WORDS ENTERED | 4F10611 | ||
01763 | −0 73400 2 02031 | 623 | DMSR98 | PDX | DMSR05,2 IN CIB BUFFER, AND | 4F10612 | |
01764 | −0 63400 2 00636 | 624 | SXD | EC,2 SAVE IN EC. | 4F10613 | ||
01765 | 0 56000 0 01150 | 625 | LDQ | CITMQR RESTORE THE C(MQR), | 4F10614 | ||
01766 | −0 53400 1 01101 | 626 | LXD | CITXR1,1 RESTORE THE C(XR1), | 4F10615 | ||
01767 | −0 53400 2 01102 | 627 | LXD | CITXR2,2 RESTORE THE C(XR2I, AND | 4F10616 | ||
01770 | 0 02000 4 00001 | 628 | TRA | 1,4 * EXIT TO MAIN ROUTINE (5TH WRD CS). | 4F10617 | ||
629 | END OF PROGRAM CIT00. | 4F10618 | |||||
630 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10619 | |||||
631 | 4F10620 | ||||||
632 | DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA. | 4F10621 | |||||
633 | DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR, | 4F10622 | |||||
634 | DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. | 4F10623 | |||||
635 | DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. | 4F10624 | |||||
01771 | −0 63400 4 01774 | 636 | DIM1SR | SXD | DMSR00,4 SAVE THE C(XR4) FOR RETURN, | 4F10625 | |
01772 | −0 53400 4 00452 | 637 | LXD | DIM1IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM1 | 4F10626 | ||
01773 | 0 50000 0 00453 | 638 | CLA | ORGDM1 AND PICK UP 1ST ADDRESS 0F DIM1 TO | 4F10627 | ||
01774 | 1 00000 0 02000 | 639 | DMSR00 | TXI | DMSR01,0,** GO SET DRUM ADDRESS. | 4F10628 | |
640 | DIM2SR= ENTRY POINT FOR 2 DIMENSION TABLE. | 4F10629 | |||||
01775 | −0 63400 4 01774 | 641 | DIM2SR | SXD | DMSR00,4 SAVE THE C(XR4) FOR RETURN, | 4F10630 | |
01776 | −0 53400 4 00457 | 642 | LXD | DIM2IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM2 | 4F10631 | ||
01777 | 0 50000 0 00460 | 643 | CLA | ORGDM2 AND PICK UP 1ST ADDRESS OF DIM2 TO | 4F10632 | ||
02000 | 0 62100 0 01104 | 644 | DMSR01 | STA | DRMADR SET DRUM ADDRESS. | 4F10633 | |
02001 | 0 50000 0 01760 | 645 | CLA | DMSR99 SET LOOP ADDRESS TO | 4F10634 | ||
02002 | 0 62100 0 02041 | 646 | STA | DMSR15 DMSRO5+1 FOR DIM1 AND DIM2. | 4F10635 | ||
02003 | −0 50000 0 02065 | 647 | CAL | DMCN12 (STZ D3) | 4F10636 | ||
02004 | 1 00000 0 02014 | 648 | DMSR11 | TXI | DMSR02,0,** GO SET OP FOR DIM1 AND DIM2. | 4F10637 | |
649 | DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE. | 4F10638 | |||||
02005 | −0 63400 4 01774 | 650 | DIM3SR | SXD | DMSR00,4 SAVE THE C(XR4) FOR RETURN, | 4F10639 | |
02006 | −0 53400 4 00464 | 651 | LXD | DIM3IX−3,4 SET XR4 = NUMBER OF ENTRIES IN DIM3 | 4F10640 | ||
02007 | 0 50000 0 00465 | 652 | CLA | ORGDM3 AND PICK UP 1ST ADDRESS 0F DIM3 TO | 4F10641 | ||
02010 | 0 62100 0 01104 | 653 | STA | DRMADR SET DRUM ADDRESS. | 4F10642 | ||
02011 | 0 50000 0 01763 | 654 | CLA | DMSR98 SET LOOP ADDRESS TO | 4F10643 | ||
02012 | 0 62100 0 02041 | 655 | STA | DMSR15 DMSR05 FOR DIM3. | 4F10644 | ||
02013 | −0 50000 0 02066 | 656 | CAL | DMCN3 (CPY D3) | 4F10645 | ||
02014 | 0 60200 0 02031 | 657 | DMSR02 | SLW | DMSR05 4 SET OP CODES ACCORDING | 4F10646 | |
02015 | 0 60200 0 02044 | 658 | SLW | DMSR07 TO DIMENSION. | 4F10647 | ||
02016 | −3 00000 4 02047 | 659 | TXL | DMSR08,4,0 IF TABLE IS EMPTY, GO OUT. | 4F10648 | ||
02017 | −0 63400 4 02004 | 660 | SXD | DMSR11,4 SAVE ENTRY COUNT IN CASE OF ERROR. | 4F10649 | ||
02020 | 0 53400 4 01413 | 661 | DMSR14 | LXA | L(5),4 SET ERROR COUNTER FOR 5 ATTEMPTS. | 4F10650 | |
02021 | −0 63400 4 02035 | 662 | DMSR13 | SXD | DMSR12,4 SAVE ERROR COUNTER, AND | 4F10651 | |
02022 | −0 53400 4 02004 | 663 | LXD | DMSR11,4 RESET ENTRY COUNT. | 4F10652 | ||
02023 | 0 76200 0 00303 | 664 | RDR | 3 SELECT DRUM. | 4F10653 | ||
02024 | 0 50000 0 01130 | 665 | CLA | E+2 GET NAME OF VARIABLE. | 4F10654 | ||
02025 | 0 46000 0 01104 | 666 | LDA | DRMADR LOAD CURRENT DRUM ADDRESS, AND | 4F10655 | ||
02026 | 0 70000 0 01100 | 667 | DMSR04 | CPY | DRSYM COPY DRUM SYMBOL. | 4F10656 | |
02027 | 0 04000 0 02043 | 668 | TLQ | DMSR06 COMPARE WITH NAME OF VARIABLE, AND | 4F10657 | ||
02030 | 0 70000 0 01101 | 669 | CPY | D12 IF NOT LESS, COPY N1 AND N2. | 4F10658 | ||
02031 | 0 00000 0 01102 | 670 | DMSR05 | PZE | D3 (DIM1 AND DIM2 = STZ , DIM3 = CPY). | 4F10659 | |
02032 | 0 70000 0 01103 | 671 | CPY | DRCKSM COPY CHECKSUM. | 4F10660 | ||
02033 | 0 34000 0 01100 | 672 | CAS | DRSYM COMPARE DRUM SYMBOL WITH NAME OF V. | 4F10661 | ||
02034 | 0 07400 4 03400 | 673 | TSX | DIAG,4 * GO TO DIAGNOSTIC - MACHINE ERROR. | 4F10662 | ||
02035 | 1 00000 0 02051 | 674 | DMSR12 | TXI | DMSR09,0,** IF NOT EQUAL, THEN | 4F10663 | |
02036 | 0 70000 0 01100 | 675 | CPY | DRSYM CONTINUE | 4F10664 | ||
02037 | 0 04000 0 02043 | 676 | TLQ | DMSR06 PROCESS | 4F10665 | ||
02040 | 0 70000 0 01101 | 677 | CPY | D12 UNTIL | 4F10666 | ||
02041 | 2 00001 4 00000 | 678 | DMSR15 | TIX | **,4,1 TABLE | 4F10667 | |
D | 02042 | 1 00000 0 02047 | 679 | TXI | DMSR08,0 IS EXHAUSTED. | 4F10668 | |
02043 | 0 70000 0 01101 | 680 | DMSR06 | CPY | D12 PASS OVER ENTRY | 4F10669 | |
02044 | 0 00000 0 01102 | 681 | DMSR07 | PZE | D3 (DIM1 AND DIM2 = STZ, DIM3 = CPY). | 4F10670 | |
02045 | 0 70000 0 01103 | 682 | CPY | DRCKSM AND CHECKSUM, AND | 4F10671 | ||
02046 | 2 00001 4 02026 | 683 | TIX | DMSR04,4,1 REPEAT LOOP. | 4F10672 | ||
02047 | −0 53400 4 01774 | 684 | DMSR08 | LXD | DMSR00,4 RESTORE THE C(XR4), AND | 4F10673 | |
02050 | 0 02000 4 00001 | 685 | TRA | 1,4 * TAKE NOT FOUND EXIT. | 4F10674 | ||
02051 | −0 50000 0 01100 | 686 | DMSR09 | CAL | DRSYM COMPUTE A | 4F10675 | |
02052 | 0 36100 0 01101 | 687 | ACL | D12 NEW | 4F10676 | ||
02053 | 0 36100 0 01102 | 688 | ACL | D3 LOGICAL CHECKSUM | 4F10677 | ||
02054 | 0 76000 0 00006 | 689 | COM | FOR ENTRY, AND | 4F10678 | ||
02055 | 0 36100 0 01103 | 690 | ACL | DRCKSM COMPARE WITH | 4F10679 | ||
02056 | 0 76000 0 00006 | 691 | COM | DRUM CHECKSUM. | 4F10680 | ||
02057 | 0 10000 0 02063 | 692 | TZE | DMSR10 IF NOT EQUAL, THEN | 4F10681 | ||
02060 | −0 53400 4 02035 | 693 | LXD | DMSR12,4 REPEAT ATTEMPT, | 4F10682 | ||
02061 | 2 00001 4 02021 | 694 | TIX | DMSR13,4,1 UNLESS PROCESS | 4F10683 | ||
02062 | 0 07400 4 03400 | 695 | TSX | DIAG,4 * FAILED 5 TIMES IN READING DRUM. | 4F10684 | ||
02063 | −0 53400 4 01774 | 696 | DMSR10 | LXD | DMSR00,4 RESTORE THE C(XR4), AND | 4F10685 | |
02064 | 0 02000 4 00002 | 697 | TRA | 2,4 * TAKE FOUND EXIT TO MAIN ROUTINE. | 4F10686 | ||
698 | 4F10687 | ||||||
02065 | 0 60000 0 01102 | 699 | DMCN12 | STZ | D3 CONSTANT USED BY DIM.SR. | 4F10688 | |
02066 | 0 70000 0 01102 | 700 | DMCN3 | CPY | D3 CONSTANT USED BY DIM.SR. | 4F10689 | |
02067 | 456351000000 | 701 | ENT | BCD | 1NTR000 VARIABLE USED BY IO AND FL. | 4F10690 | |
02070 | 477125000000 | 702 | NZE | BCD | 1PZE000 VARIABLE USED BY FL. | 4F10691 | |
703 | END OF PROGRAM DIM.SR. | 4F10692 | |||||
704 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10693 | |||||
705 | 4F10604 | ||||||
706 | DRTABS(,4)/ CALLS=RDRX,DIAG. CALLERS=C1200,SS000,ROYCNV,CMA, | 4F10695 | |||||
707 | VRA(VRD). | 4F10696 | |||||
708 | DRTABS IS CALLED BY TSX ....IX,4 -WHERE .... IS THE NAME OF | 4F10697 | |||||
709 | THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM | 4F10698 | |||||
710 | TABLES, AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION. | 4F10699 | |||||
711 | DIMALT= ENTRY POINT FOR DIMENSION TABLES. | 4F10700 | |||||
02071 | −0 50000 0 00415 | 712 | DIMALT | CAL | TXLOP PICK UP SNITCH CONTROL, | 4F10701 | |
D | 02072 | 1 00000 0 02074 | 713 | TXI | DRTABS,0 AND GO SET SNITCH FOR DIM TABLES. | 4F10702 | |
714 | ALT= ENTRY POINT FOR ALL OTHER DRUM TABLES. | 4F10703 | |||||
02073 | 0 50000 0 00422 | 715 | ALT | CLA | TXHOP PICK UP SWITCH CONTROL, | 4F10704 | |
02074 | 0 63000 0 02135 | 716 | DRTABS | STP | DIMSW SET SNITCH. | 4F10705 | |
02075 | 0 50000 4 00000 | 717 | CLA | 0,4 GET CALLER (TSX ....IX,4) IN AC. | 4F10706 | ||
02076 | −0 63400 1 02535 | 718 | SXD | XR1,1 SAVE THE C(XR1), | 4F10707 | ||
02077 | −0 63400 2 02173 | 719 | SXD | XR2,2 SAVE THE C(XR2), | 4F10708 | ||
02100 | −0 63400 4 02215 | 720 | SXD | XR4,4 SAVE THE C(XR4), AND | 4F10709 | ||
02101 | −0 60000 0 02357 | 721 | STQ | MQ SAVE THE C(MQR). | 4F10710 | ||
02102 | 0 40000 0 01407 | 722 | ADD | L(1) PREPARE TO MOVE PARAMETERS | 4F10711 | ||
02103 | 0 62100 0 02107 | 723 | STA | MOVE INTO WORKING STORAGE. | 4F10712 | ||
02104 | 0 40200 0 01412 | 724 | SUB | L(4) PREPARE TO UPDATE | 4F10713 | ||
02105 | 0 62100 0 02213 | 725 | STA | UPDATE PERMANENT PARAMETER. | 4F10714 | ||
02106 | 0 53400 1 01413 | 726 | LXA | L(5),1 MOVE 5 WORDS | 4F10715 | ||
02107 | −0 50000 1 00000 | 727 | MOVE | CAL | **,1 (....IX+1) | 4F10716 | |
02110 | 0 60200 1 02365 | 728 | SLW | TEMP,1 OF PARAMETERS | 4F10717 | ||
02111 | 2 00001 1 02107 | 729 | TIX | MOVE,1,1 INTO WORKING STORAGE. | 4F10718 | ||
02112 | 0 50200 0 02360 | 730 | CLS | NAR INITIALIZE | 4F10719 | ||
02113 | 0 62100 0 02221 | 731 | STA | TRY ALL | 4F10720 | ||
02114 | 0 40000 0 01407 | 732 | ADD | L(1) GENERAL | 4F10721 | ||
02115 | 0 62100 0 02200 | 733 | STA | ESUM1 INSTRUCTIONS= | 4F10722 | ||
02116 | 0 62100 0 02202 | 734 | STA | ESUM2 X | 4F10723 | ||
02117 | 0 77100 0 00021 | 735 | ARS | 17 X | 4F10724 | ||
02120 | 0 40100 0 02526 | 736 | ADM | BIAS X | 4F10725 | ||
02121 | 0 62100 0 02530 | 737 | STA | JUMP1 X | 4F10726 | ||
02122 | 0 62100 0 02555 | 738 | STA | JUMP2 X | 4F10727 | ||
02123 | −0 50000 0 02362 | 739 | CAL | FDA X | 4F10728 | ||
02124 | 0 62200 0 02235 | 740 | STD | COMPR X | 4F10729 | ||
02125 | 0 63000 0 02530 | 741 | STP | JUMP1 X | 4F10730 | ||
02126 | 0 63000 0 02152 | 742 | STP | SW X | 4F10731 | ||
02127 | 0 63000 0 02210 | 743 | STP | RX4 X | 4F10732 | ||
02130 | 0 50000 0 02533 | 744 | CLA | LBUF X | 4F10733 | ||
02131 | 0 62100 0 02222 | 745 | STA | BUFL X | 4F10734 | ||
02132 | 0 50000 0 02361 | 746 | CLA | TDA X | 4F10735 | ||
02133 | −0 53400 2 02361 | 747 | LXD | TDA,2 X | 4F10736 | ||
02134 | −0 63400 2 02146 | 748 | SXD | BUFF+1,2 X | 4F10737 | ||
D | 02135 | −3 00000 0 02145 | 749 | DIMSW | TXL | BUFF,0 IF DIM TABLE, SKIP SEARCH. | 4F10738 |
02136 | −3 00000 2 02150 | 750 | TXL | XERR01+1,2,0 SKIP IF TABLE IS EMPTY. | 4F10739 | ||
02137 | −0 53400 1 02360 | 751 | LXD | NAR,1 | 4F10740 | ||
02140 | −0 63400 2 02223 | 752 | SXD | NC,2 | 4F10741 | ||
02141 | −0 63400 2 02143 | 753 | SXD | ADD01,2 | 4F10742 | ||
02142 | −2 00001 1 02235 | 754 | ADD02 | TNX | COMPR,1,1 COMPUTES (N*L). | 4F10743 | |
02143 | 1 00000 2 02142 | 755 | ADD01 | TXI | ADD02,2,** (N) | 4F10744 | |
02144 | −0 53400 2 02362 | 756 | BUFFM1 | LXD | FDA,2 | 4F10745 | |
02145 | −0 53400 1 02363 | 757 | BUFF | LXD | DBL,1 L(J) | 4F10746 | |
02146 | 2 00000 1 02150 | 758 | TIX | BUFF+3,1,** (N) TEST FOR TABLE OVERFLOW. | 4F10747 | ||
D | 02147 | 1 00000 0 02256 | 759 | XERR01 | TXI | WHICH,0 GO FIND OUT WHICH TABLE OVERFLOWED. | 4F10748 |
02150 | −0 53400 1 02364 | 760 | LXD | DI,1 | 4F10749 | ||
02151 | 0 76600 1 00305 | 761 | WDR | 5,1 | 4F10750 | ||
D | 02152 | −3 00000 0 02174 | 762 | SW | TXL | EBLK,0 ENTRY SUM=TXL, BLOCK SUM=TXH. | 4F10751 |
02153 | −3 00000 2 02156 | 763 | TXL | ADD04,2,0 SKIP IF TABLE IS EMPTY. | 4F10752 | ||
02154 | 1 00001 2 02155 | 764 | TXI | ADD03,2,1 | 4F10753 | ||
02155 | −2 00062 2 02163 | 765 | ADD03 | TNX | ADD05,2,50 SKIP IF BLOCK IS NOT YET FULL. | 4F10754 | |
02156 | 0 60000 0 02365 | 766 | ADD04 | STZ | DUMP START NEW BLOCK CHECKSUM. | 4F10755 | |
02157 | 0 50000 0 02361 | 767 | CLA | TDA CHANGE CHECKSUM ADDRESS. | 4F10756 | ||
02160 | 0 62100 0 02362 | 768 | STA | FDA | 4F10757 | ||
02161 | 0 40000 0 01407 | 769 | ADD | L(1) SET ENTRY ADDR = CHECKSUM ADDR +1. | 4F10758 | ||
02162 | 0 62100 0 02361 | 770 | STA | TDA | 4F10759 | ||
02163 | −0 50000 0 02365 | 771 | ADD05 | CAL | DUMP | 4F10760 | |
02164 | 0 36100 0 01347 | 772 | ACL | G ADD NEW FLOCON TO | 4F10761 | ||
02165 | 0 60200 0 02365 | 773 | SLW | DUMP CHECKSUM FOR THIS BLOCK. | 4F10762 | ||
02166 | 0 46000 0 02362 | 774 | LDA | FDA | 4F10763 | ||
02167 | 0 70000 0 02365 | 775 | CPY | DUMP WRITE BLOCK CHECKSUM ON DRUM. | 4F10764 | ||
02170 | 0 76600 1 00305 | 776 | WDR | 5,1 | 4F10765 | ||
02171 | 0 46000 0 02361 | 777 | LDA | TDA | 4F10766 | ||
02172 | 0 70000 0 01347 | 778 | CPY | G WRITE NEW FLOCON ON DRUM. | 4F10767 | ||
02173 | 1 00000 0 02205 | 779 | XR2 | TXI | NOWIN,0,** GO UPDATE FLOCON PARAMETER. | 4F10768 | |
02174 | −0 75400 0 00000 | 780 | EBLK | PXD | ,0 FOR ALL TABLES EXCEPT FLOCON= | 4F10769 | |
02175 | −0 53400 2 02360 | 781 | LXD | NAR,2 (L) | 4F10770 | ||
02176 | 0 46000 0 02361 | 782 | LDA | TDA NEXT DRUM ENTRY ADDRESS. | 4F10771 | ||
02177 | −2 00001 2 02202 | 783 | TNX | ESUM2,2,1 IF L = 1, | 4F10772 | ||
02200 | −0 70000 2 00000 | 784 | ESUM1 | CAD | **,2 (ARG1+L-1) WRITE NEW | 4F10773 | |
02201 | 2 00001 2 02200 | 785 | TIX | ESUM1,2,1 ENTRY ON DRUM. | 4F10774 | ||
02202 | −0 70000 0 00000 | 786 | ESUM2 | CAD | ** (ARG1+L-1) | 4F10775 | |
02203 | 0 60200 0 02365 | 787 | SLW | DUMP COMPUTE AND | 4F10776 | ||
02204 | 0 70000 0 02365 | 788 | CPY | DUMP WRITE CHECKSUM FOR NEW ENTRY. | 4F10777 | ||
02205 | −0 50000 0 02360 | 789 | NOWIN | CAL | NAR UPDATE PERMANENT | 4F10778 | |
02206 | 0 77100 0 00022 | 790 | ARS | 18 PARAMETERS FOR ENTRY | 4F10779 | ||
02207 | 0 40000 0 01455 | 791 | ADD | DECR1 JUST ADDED TO TABLE. | 4F10780 | ||
02210 | −3 00000 0 02212 | 792 | RX4 | TXL | RX4+2,0,** IF TABLE WAS FLOCON, | 4F10781 | |
02211 | 0 40200 0 01407 | 793 | SUB | L(1) READJUST. | 4F10782 | ||
02212 | 0 40100 0 02361 | 794 | ADM | TDA N=N+1,TDA=TDA+(L+1) OR (L). | 4F10783 | ||
02213 | 0 60100 0 00000 | 795 | UPDATE | STO | ** (....IX-3) | 4F10784 | |
02214 | −0 53400 2 02361 | 796 | LXD | TDA,2 L(N) | 4F10785 | ||
02215 | 1 00000 0 02247 | 797 | XR4 | TXI | OUT,0,** GET TAG AND EXIT. | 4F10786 | |
02216 | −0 53400 4 02223 | 798 | NXBLK | LXD | NC,4 | 4F10787 | |
02217 | −0 53400 2 02362 | 799 | LXD | FDA,2 L(K*L),K=K. | 4F10788 | ||
02220 | −0 53400 1 02360 | 800 | NEW | LXD | NAR,1 L(L) | 4F10789 | |
02221 | 0 50000 1 00000 | 801 | TRY | CLA | **,1 (ARG1+L) | 4F10790 | |
02222 | 0 34000 2 00000 | 802 | BUFL | CAS | **,2 (BUFR OR CTABL) | 4F10791 | |
02223 | 1 00000 0 02225 | 803 | NC | TXI | NC+2,0,** NOT FOUND. | 4F10792 | |
02224 | 1 77777 2 02242 | 804 | TXI | YEA,2,−1 K*L = K*L-1. | 4F10793 | ||
02225 | −2 00001 4 02144 | 805 | TNX | BUFFM1,4,1 N = N-1 OR ITEM NOT IN TABLE. | 4F10794 | ||
02226 | −0 63400 1 02227 | 806 | SXD | NC+4,1 | 4F10795 | ||
02227 | 2 00000 2 02220 | 807 | TIX | NEW,2,** K = K-1. | 4F10796 | ||
02230 | −0 63400 4 02223 | 808 | SXD | NC,4 SAVE CURRENT VALUE OF N, | 4F10797 | ||
02231 | −0 50000 0 02363 | 809 | CAL | DBL AND GET NEW BLOCK. | 4F10798 | ||
02232 | 0 40100 0 02362 | 810 | ADM | FDA | 4F10799 | ||
02233 | 0 62100 0 02362 | 811 | STA | FDA | 4F10800 | ||
02234 | −0 53400 2 02241 | 812 | LXD | NTL,2 | 4F10801 | ||
02235 | 2 00000 2 02237 | 813 | COMPR | TIX | COMPR+2,2,** (K*L) | 4F10802 | |
02236 | −0 63400 2 02362 | 814 | SXD | FDA,2 K*L = (N*L)MOD K*L IF N*L IS | 4F10803 | ||
02237 | −0 63400 2 02241 | 815 | SXD | NTL,2 LESS TNAN K*L, OTHERWISE K*L = K*L. | 4F10804 | ||
02240 | 0 07400 4 02520 | 816 | TSX | RDRX,4 * GO READ NEXT BLOCK INTO BUFFER. | 4F10805 | ||
02241 | 1 00000 0 02216 | 817 | NTL | TXI | NXBLK,0,** (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD | 4F10806 | |
02242 | 2 00001 1 02221 | 818 | YEA | TIX | TRY,1,1 K*L). TEST NEXT WORD OF ARG. L=L-1. | 4F10807 | |
02243 | −0 53400 2 02361 | 819 | LXD | TDA,2 (N) | 4F10808 | ||
02244 | −0 63400 4 02245 | 820 | SXD | YEA+3,4 | 4F10809 | ||
02245 | 2 00000 2 02247 | 821 | TIX | OUT,2,** COMPUTE TAG. | 4F10810 | ||
02246 | 0 53400 2 01406 | 822 | LXA | L(0),2 | 4F10811 | ||
02247 | −0 75400 2 00000 | 823 | OUT | PXD | ,2 EXIT WITH TAG IN THE AC. | 4F10812 | |
02250 | 0 77100 0 00022 | 824 | ARS | 18 (TAG = NUMBER OF ENTRIES | 4F10813 | ||
02251 | −0 53400 2 02173 | 825 | LXD | XR2,2 WHICH PRECEED THE ENTRY | 4F10814 | ||
02252 | −0 53400 4 02215 | 826 | LXD | XR4,4 WHICH EQUALS THE ARGUMENT. | 4F10815 | ||
02253 | −0 53400 1 02535 | 827 | LXD | XR1,1 RESTORE THE C(XR1,XR2,XR4), | 4F10816 | ||
02254 | 0 56000 0 02357 | 828 | LDQ | MQ RESTORE THE C(MQR), AND | 4F10817 | ||
02255 | 0 02000 4 00001 | 829 | TRA | 1,4 * RETURN TO MAIN ROUTINE. | 4F10818 | ||
02256 | −0 53400 4 02215 | 830 | WHICH | LXD | XR4,4 GET ALPHA BAR, AND | 4F10819 | |
02257 | 0 50000 4 00000 | 831 | CLA | 0,4 AND,PICK UP ALPHA (TSX ...NIX,4). | 4F10820 | ||
02260 | −0 32000 0 01452 | 832 | ANA | MASK2 BLANK ALL BUT ...NIX. | 4F10821 | ||
02261 | 0 40200 0 02274 | 833 | SUB | CONX (...NIX) - (ADDR OF FXCNIX-5). | 4F10822 | ||
02262 | 0 53400 4 01417 | 834 | LXA | L(9),4 SET XR4 FOR 9 TABLES. | 4F10823 | ||
02263 | 0 40200 0 01413 | 835 | COMPUT | SUB | L(5) COMPUTE WHICH | 4F10824 | |
02264 | 0 10000 0 02267 | 836 | TZE | WHICHX TABLE OVERFLOWED. | 4F10825 | ||
02265 | 2 00001 4 02263 | 837 | TIX | COMPUT,4,1 IF TABLE IS NOT FOUND, | 4F10826 | ||
02266 | 0 07400 4 03400 | 838 | TSX | DIAG,4 * GO TO DIAGNOSTIC. | 4F10827 | ||
02267 | −0 75400 4 00000 | 839 | WHICHX | PXD | ,4 OTHERWISE, | 4F10826 | |
02270 | 0 76000 0 00006 | 840 | COM | CONVERT 2S COMPLEMENT | 4F10829 | ||
02271 | 0 40000 0 01454 | 841 | ADD | 2E18 OF NUMBER, | 4F10630 | ||
02272 | −0 73400 4 00000 | 842 | PDX | ,4 PLACE IN XR4, AND | 4F10831 | ||
D | 02273 | 1 00000 0 03400 | 843 | TXI | DIAG,0 * GO TO DIAGNOSTIC. | 4F11832 | |
844 | 4F10833 | ||||||
02274 | 0 00000 0 00412 | 845 | CONX | PZE | FXCNIX−5 CONSTANT USED BY DRTABS. | 4F10834 | |
02357 | 846 | BUFR | BES | 50 DRUM TABLE BUFFER. | 4F10835 | ||
02357 | 847 | MQ | BSS | 1 WORKING STORAGE USED BY DRTABS. | 4F10836 | ||
02360 | 848 | NAR | BSS | 1 WORKING STORAGE USED BY DRTABS. | 4F10837 | ||
02361 | 849 | TDA | BSS | 1 NORKING STORAGE USED BY DRTABS. | 4F10838 | ||
02362 | 850 | FDA | BSS | 1 WORKING STORAGE USED BY DRTABS. | 4F10839 | ||
02363 | 851 | DBL | BSS | 1 WORKING STORAGE USED BY DRTABS. | 4F10840 | ||
02364 | 852 | DI | BSS | 1 WORKING STORAGE USED BY DRTABS. | 4F10841 | ||
02365 | 853 | TEMP | BSS | 0 INDEXING ADDRESS FOR ABOVE -DRTABS. | 4F10842 | ||
02365 | 854 | DUMP | BSS | 1 WORKING STORAGE USED BY DRTABS. | 4F10643 | ||
855 | END OF PROGRAM DRTABS. | 4F10844 | |||||
856 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10845 | |||||
857 | 4F10646 | ||||||
858 | GETIFN,4/ OALLERS=COI00,CO200,C1000,C1100,C1600,C3200. | 4F10847 | |||||
859 | GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. | 4F10848 | |||||
02366 | −0 53400 1 00030 | 860 | GETIFN | LXD | EIFNO,1 PLACE THE INTERNAL FORMULA | 4F10849 | |
02367 | −0 75400 1 00000 | 861 | PXD | ,1 NUMBER IN XRI, IN THE DECREMENT | 4F10850 | ||
02370 | 0 60100 0 01105 | 862 | STO | 1C OF THE AC, AND IN IC. THEN | 4F10851 | ||
02371 | 0 02000 4 00001 | 863 | TRA | 1,4 RETURN TO CALLER. | 4F10852 | ||
864 | END OF PROGRAM GETIFN. | 4F10853 | |||||
865 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10854 | |||||
866 | 4F10855 | ||||||
867 | JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT), | 4F10856 | |||||
868 | VRA(VRD),C3200. | 4F10857 | |||||
869 | JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200. | 4F10858 | |||||
02372 | −0 50000 0 00030 | 870 | JIF | CAL | EIFNO INCREASE THE | 4F10859 | |
02373 | 0 40000 0 01454 | 871 | ADD | D1 INTERNAL FORMULA NUMBER | 4F10860 | ||
02374 | 0 62200 0 00030 | 872 | STD | EIFNO BY 1. | 4F10861 | ||
873 | GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT). | 4F10862 | |||||
02375 | −0 50000 0 00030 | 874 | GIF | CAL | EIFNO PICKUP IFN, | 4F10863 | |
02376 | −0 32000 0 01507 | 875 | ANA | 1BAR CLEAR SL, AND | 4F10864 | ||
02377 | 0 60200 0 01367 | 876 | L(SL) | SLW | SL PLACE IFN IN THE DECREMENTS | 4F10865 | |
02400 | 0 62200 0 01371 | 877 | L(TL) | STD | TL OF SL AND TL. | 4F10866 | |
02401 | 0 02000 4 00001 | 878 | TRA | 1,4 * EXIT TO CALLER. | 4F10867 | ||
879 | END OF PROGRAM JIF(GIF). | 4F10868 | |||||
880 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10869 | |||||
881 | 4F10870 | ||||||
02402 | 0 02000 0 03440 | 882 | TRA | STATEA RETURN FROM DIAGNOSTIC | 4F10873 | ||
02403 | 883 | BSS | 28 NOT USED. | 4F10874 | |||
884 | 4F10901 | ||||||
885 | 4F10908 | ||||||
886 | RA000,4/ CALLERS=LPR,ARITH. | 4F10909 | |||||
887 | RA000 COMPUTES RELATIVE ADDRESS. | 4F10910 | |||||
02437 | −0 63400 4 01100 | 888 | RA000 | SXD | RAXR4,4 SAVE THE C(XR4) FOR RETURN. | 4F10911 | |
02440 | 0 60000 0 01147 | 889 | STZ | EPS CLEAR EPSILON (WORKING STORAGE). | 4F10912 | ||
02441 | 0 50000 0 01125 | 890 | CLA | DIMSAV EXAMINE THE | 4F10913 | ||
02442 | 0 73400 4 01132 | 891 | ED2 | PAX | E+4,4 DIMENSION COUNT, AND | 4F10914 | |
02443 | −3 00002 4 02445 | 892 | TXL | ED1,4,2 IF 3 DIMENSION, | 4F10915 | ||
02444 | 0 40000 0 01407 | 893 | ADD | L(1) INCREASE IT 1. | 4F10916 | ||
02445 | 0 40100 0 02442 | 894 | ED1 | ADM | ED2 THEN SET | 4F10917 | |
02446 | 0 62100 0 02447 | 895 | STA | ED3 ED3 ADDRESS TO | 4F10918 | ||
02447 | 0 50000 4 00000 | 896 | ED3 | CLA | **,4 EXAMINE SUCCESSIVE | 4F10919 | |
02450 | 0 56000 0 01454 | 897 | LDQ | D1 SUBSCRIPT | 4F10920 | ||
02451 | 0 10000 0 02454 | 898 | TZE | ED4 VARIABLES, AND | 4F10921 | ||
02452 | −0 60000 0 01147 | 899 | STQ | EPS ACCORDINGLY SET | 4F10922 | ||
02453 | 0 56000 0 01406 | 900 | LDQ | L(0) EPSILON AND | 4F10923 | ||
02454 | −0 60000 4 01147 | 901 | ED4 | STQ | EPS,4 EPSILON SUB I | 4F10924 | |
02455 | 2 00001 4 02447 | 902 | TIX | ED3,4,1 TO 1 OR TO 0. WHEN DONE, | 4F10925 | ||
02456 | 0 50000 0 01454 | 903 | CLA | D1 IF 1 DIMENSION, PICKUP DECREMENT 1, | 4F10926 | ||
02457 | 0 53400 4 01125 | 904 | LXA | DIMSAV,4 AND GO SUBTRACT ADDEND 1. | 4F10927 | ||
02460 | −3 00001 4 02511 | 905 | TXL | 1D1,4,1 IF 2 OR 3 DIMENSION, THEN | 4F10928 | ||
02461 | 0 56000 0 01141 | 906 | LDQ | E+11 PICKUP ADDENDS 1 AND 2, | 4F10929 | ||
02462 | 0 60000 0 01141 | 907 | STZ | E+11 CLEAR E+11, AND | 4F10930 | ||
02463 | −0 62000 0 01141 | 908 | SLQ | E+11 RESTORE ADDEND 1 TO E+11. | 4F10931 | ||
02464 | −0 76300 0 00022 | 909 | LGL | 18 ADJUST AND PLACE | 4F10932 | ||
02465 | −0 60000 0 01361 | 910 | STQ | N2 ADDEND 2 IN N2. | 4F10933 | ||
02466 | 0 56000 0 01134 | 911 | LDQ | E+6 AND, IF 2 DIMENSION | 4F10934 | ||
02467 | 0 50000 0 01146 | 912 | CLA | EPS−1 PICKUP EPSILON SUB 1, | 4F10935 | ||
02470 | −3 00002 4 02503 | 913 | TXL | 2D1,4,2 AND GO SUBTRACT ADDEND 2. | 4F10936 | ||
02471 | 0 40200 0 01142 | 914 | SUB | E+12 IF 3 DIMENSION, SET GTAG | 4F10937 | ||
02472 | 0 60100 0 01351 | 915 | STO | GTAG TO EPSILON SUB 1 - ADDEND 3. | 4F10938 | ||
02473 | 0 56000 0 01136 | 916 | LDQ | E+8 PICKUP DIMENSIONS 1 AND 2, | 4F10939 | ||
02474 | 0 60000 0 01136 | 917 | STZ | E+8 CLEAR E+8, AND | 4F10940 | ||
02475 | −0 62000 0 01136 | 918 | SLQ | E+8 RESTORE DIMENSION 1 TQ E+8. | 4F10941 | ||
02476 | −0 76300 0 00022 | 919 | LGL | 18 ADJUST, AND MULTIPLY | 4F10942 | ||
02477 | 0 20000 0 01351 | 920 | MPY | GTAG DIMENSION 2 TIMES GTAG. | 4F10943 | ||
02500 | 0 76700 0 00021 | 921 | ALS | 17 THEN ADD | 4F10944 | ||
02501 | 0 40000 0 01145 | 922 | ADD | EPS−2 EPSILON SUB 2 | 4F10045 | ||
02502 | 0 56000 0 01136 | 923 | LDQ | E+8 TO THE PRODUCT, AND | 4F10946 | ||
02503 | 0 40200 0 01361 | 924 | 2D1 | SUB | N2 SUBTRACT ADDEND 2. | 4F10047 | |
02504 | 0 60100 0 01351 | 925 | STO | GTAG MULTIPLY | 4F10040 | ||
02505 | 0 20000 0 01351 | 926 | MPY | GTAG THE RESULT | 4F10049 | ||
02506 | 0 76700 0 00021 | 927 | ALS | 17 TIMES | 4F10950 | ||
02507 | 0 40000 4 01147 | 928 | ADD | EPS,4 DIMENSION 1, AND,ADD,IN EPSILON | 4F10951 | ||
02510 | 0 40000 0 01147 | 929 | ADD | EPS SUB 1 AND EPSILON. | 4F10952 | ||
02511 | 0 40200 0 01141 | 930 | 1D1 | SUB | E+11 SUBTRACT ADDEND 1, | 4F10953 | |
02512 | 0 60100 0 01351 | 931 | STO | GTAG AND PLACE THE RESULT | 4F10954 | ||
02513 | −0 50000 0 01126 | 932 | CAL | E IN TNE DECREMENT OF GTAG, | 4F10955 | ||
02514 | 0 77100 0 00030 | 933 | ARS | 24 WITH I-TAUTAG | 4F10956 | ||
02515 | 0 62100 0 01351 | 934 | STA | GTAG IN THE ADDRESS. | 4F10957 | ||
02516 | −0 53400 4 01100 | 935 | LXD | RAXR4,4 RESTORE THE C(XR4), AND | 4F10958 | ||
02517 | 0 02000 4 00001 | 936 | TRA | 1,4 * EXIT TO CALLER. | 4F10959 | ||
937 | END OF PROGRAM RA000. | 4F10960 | |||||
938 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F10961 | |||||
939 | 4F10962 | ||||||
940 | RDRX*4/ CALLS=DIAG. CALLER=DRTABS. | 4F10963 | |||||
941 | RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR. | 4F10964 | |||||
02520 | 0 53400 1 01413 | 942 | RDRX | LXA | DRMERC,1 SET FOR 5 ATTEMPTS TO READ,DRUM. | 4F10965 | |
02521 | −0 53400 2 02364 | 943 | REP | LXD | DI,2 SET XRZ = (5-DRUM NUMBER). | 4F10966 | |
02522 | 3 00000 2 02524 | 944 | TXH | BIAS−2,2,0 IF NOT GREATER THAN ZERO, | 4F10967 | ||
02523 | 0 07400 4 03400 | 945 | TSX | DIAG,4 * GO TO DIAGNOSTIC. | 4F10968 | ||
02524 | 0 76200 2 00305 | 946 | RDR | 5,2 SELECT CURRENT DRUM. | 4F10969 | ||
02525 | −0 53400 2 02362 | 947 | LXD | FDA,2 SET XR2 = NO. OF WORDS TO COPY. | 4F10970 | ||
02526 | −0 75400 0 02554 | 948 | BIAS | PXD | ETSUM,0 CLEAR THE AC. | 4F10971 | |
02527 | 0 46000 0 02362 | 949 | LDA | FDA DRUM ORIGIN OF CURRENT BLOCK. | 4F10972 | ||
TD | 02530 | −3 00000 0 00000 | 950 | JUMP1 | TXL | ** (ETSUM-2*L) TXL=ENTRY,TXH=BLOCK. | 4F10973 |
02531 | −0 70000 0 02365 | 951 | CAD | DUMP READ | 4F10974 | ||
02532 | 0 76000 0 00006 | 952 | COM | FLOCON BLOCK | 4F10975 | ||
02533 | −0 70000 2 02357 | 953 | LBUF | CAD | BUFR,2 AND COMPUTE | 4F10976 | |
02534 | 2 00001 2 02533 | 954 | TIX | LBUF,2,1 LOGICAL CHECKSUM. | 4F10977 | ||
02535 | 1 00000 0 02562 | 955 | XR1 | TXI | PROVE,0,** GO TEST CHECKSUM. | 4F10978 | |
02536 | 0 70000 2 02357 | 956 | CPY | BUFR,2 COPY LOOP, | 4F10979 | ||
02537 | −2 00001 2 02564 | 957 | TNX | ERR,2,1 FOR ALL | 4F10980 | ||
02540 | 0 70000 2 02357 | 958 | CPY | BUFR,2 TABLES | 4F10901 | ||
02541 | −2 00001 2 02564 | 959 | TNX | ERR,2,1 EXCEPT | 4F10902 | ||
02542 | 0 70000 2 02357 | 960 | CPY | BUFR,2 FLOCON= | 4F10903 | ||
02543 | −2 00001 2 02564 | 961 | TNX | ERR,2,1 X | 4F10904 | ||
02544 | 0 70000 2 02357 | 962 | CPY | BUFR,2 X | 4F10905 | ||
02545 | −2 00001 2 02564 | 963 | TNX | ERR,2,1 X | 4F10906 | ||
02546 | 0 70000 2 02357 | 964 | CPY | BUFR,2 X | 4F10907 | ||
02547 | −2 00001 2 02564 | 965 | TNX | ERR,2,1 X | 4F10906 | ||
02550 | 0 70000 2 02357 | 966 | CPY | BUFR,2 X | 4F10909 | ||
02551 | −2 00001 2 02564 | 967 | TNX | ERR,2,1 X | 4F10990 | ||
02552 | 0 70000 2 02357 | 968 | CPY | BUFR,2 X | 4F10901 | ||
02553 | 0 76100 0 00000 | 969 | NOP | X | 4F10992 | ||
02554 | −0 70000 0 02365 | 970 | ETSUM | CAD | DUMP SUM CHECKSUMS. | 4F10993 | |
02555 | 2 00001 2 00000 | 971 | JUMP2 | TIX | **,2,1 (ETSUM-2*L) TEST END OF BLOCK. | 4F10994 | |
02556 | −0 53400 2 02362 | 972 | RDRXCR | LXD | FDA,2 COMPUTE | 4F10995 | |
02557 | 0 76000 0 00006 | 973 | COM | NEW | 4F10996 | ||
02560 | 0 36100 2 02357 | 974 | ACL | BUFR,2 LOGICAL | 4F10997 | ||
02561 | 2 00001 2 02560 | 975 | TIX | RDRXCR+2,2,1 CHECKSUM, AND | 4F10998 | ||
02562 | 0 76000 0 00006 | 976 | PROVE | COM | IF CHECKSUMS COMPARE | 4F10999 | |
02563 | 0 10000 4 00001 | 977 | TZE | 1,4 * RETURN TO MAIN ROUTINE. | 4F11000 | ||
02564 | 2 00001 1 02521 | 978 | ERR | TIX | REP,1,1 OTHERWISE, REPEAT UP TO 5 TIMES. | 4F11001 | |
02565 | 0 07400 4 03400 | 979 | TSX | DIAG,4 * FAILED 5 TIMES IN READING DRUM. | 4F11002 | ||
980 | END OF PROGRAM RDRX. | 4F11003 | |||||
981 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11004 | |||||
982 | 4F11005 | ||||||
983 | SR6DC1,1/ CALLS=DIAG. CALLERS=CA000,SS000. | 4F11006 | |||||
984 | SR6DC1 CONVERTS UP TO 6 BCD DIGITS TO THEIR BINARY EQUIV. | 4F11007 | |||||
02566 | −0 63400 2 02574 | 985 | SR6DC1 | SXD | SR6XR2,2 SAVE THE C(XR2), AND | 4F11008 | |
02567 | 0 53400 2 01414 | 986 | LXA | L(6),2 SET TO COUNT 6 CHARACTERS. | 4F11009 | ||
02570 | 0 60000 0 01101 | 987 | STZ | SR6WRK INITIALIZE OUTPUT CELL TO 0. | 4F11010 | ||
02571 | −0 75400 0 00000 | 988 | SR6DC2 | PXD | ,0 OBTAIN NEXT CHARACTER | 4F11011 | |
02572 | −0 76300 0 00006 | 989 | LGL | 6 IN AC AND | 4F11012 | ||
02573 | 0 34000 0 01430 | 990 | CAS | ABLANK TEST FOR BLANK. | 4F11013 | ||
02574 | 1 00000 0 02576 | 991 | SR6XR2 | TXI | SR6DC3,0,** IF NOT BLANK, | 4F11014 | |
02575 | 1 77777 0 02610 | 992 | ENDWRD | TXI | SR6DC4,0,−1 (DECR= END OF PROBLEM INDICATOR) | 4F11015 | |
02576 | 0 34000 0 01417 | 993 | SR6DC3 | CAS | L(9) TEST FOR NUMERIC. | 4F11016 | |
02577 | 0 07400 4 03400 | 994 | TSX | DIAG,4 * IF NON-NUMERIC - GO TO DIAGNOSTIC. | 4F11017 | ||
02600 | 0 76100 0 00000 | 995 | NOP | NOP | IF NUMERIC, | 4F11018 | |
02601 | 0 60100 0 01102 | 996 | STO | SR6WRK+1 SAVE DIGIT, AND | 4F11019 | ||
02602 | 0 50000 0 01101 | 997 | CLA | SR6WRK MULTIPLY PREVIOUS PARTIAL | 4F11020 | ||
02603 | 0 76700 0 00002 | 998 | ALS | 2 RESULT BY 10, | 4F11021 | ||
02604 | 0 40000 0 01101 | 999 | ADD | SR6WRK AND ADD IN | 4F11022 | ||
02605 | 0 76700 0 00001 | 1000 | ALS | 1 CURRENT DIGIT, SAVING | 4F11023 | ||
02606 | 0 40000 0 01102 | 1001 | ADD | SR6WRK+1 NEW PARTIAL RESULT. | 4F11024 | ||
02607 | 0 60100 0 01101 | 1002 | STO | SR6WRK THEN ADJUST C0UNT, AND | 4F11025 | ||
02610 | 2 00001 2 02571 | 1003 | SR6DC4 | TIX | SR6DC2,2,1 WHEN 6 CHARS HAVE BEEN TREATED, | 4F11026 | |
02611 | 0 50000 0 01101 | 1004 | CLA | SR6WRK LEAVE OUTPUT IN AC, | 4F11027 | ||
02612 | −0 53400 2 02574 | 1005 | LXD | SR6XR2,2 RESTORE THE C(XR2), AND | 4F11028 | ||
02613 | 0 02000 1 00001 | 1006 | TRA | TRA | 1,1 * EXIT TO MAIN ROUTINE. | 4F11029 | |
1007 | END OF PROGRAM SR6DC1. | 4F11030 | |||||
1008 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11031 | |||||
1009 | 4F11032 | ||||||
1010 | SS000,4/ CALLS=C0190,DIAG,SR6DC1,DIM.SR,DRTABS,TET00,TESTFX. | 4F11033 | |||||
1011 | CALLERS=ARITH,LPR,C0200. | 4F11034 | |||||
1012 | SS000 SCANS SUBSCRIPT COMB1NATIONS AND MAKES TABLE ENTRIES. | 4F11035 | |||||
02614 | −0 63400 2 02731 | 1013 | SS000 | SXD | SXR2,2 SAVE C(XR2), | 4F11036 | |
02615 | −0 63400 1 02730 | 1014 | SXD | SXR1,1 SAVE C(XR1), | 4F11037 | ||
02616 | −0 63400 4 02732 | 1015 | SXD | SXR4,4 SAVE C(XR4), AND | 4F11038 | ||
02617 | 0 60000 0 01100 | 1016 | STZ | DIMCTR SET DIMCTR = 0. | 4F11039 | ||
02620 | 0 53400 4 01414 | 1017 | LXA | L(6),4 INITIALIZE | 4F11040 | ||
02621 | −0 63400 4 02726 | 1018 | SXD | SBS2,4 FOR EACH SUBSCRIPT MEMBER. | 4F11041 | ||
02622 | −0 50000 0 00422 | 1019 | CAL | TXHOP PICK UP TXH OP, AND | 4F11042 | ||
02623 | 0 63000 0 02776 | 1020 | STP | SBC6 SET OP | 4F11043 | ||
02624 | 0 63000 0 02777 | 1021 | STP | SBC8 SWITCHES. | 4F11044 | ||
02625 | −0 50000 0 00415 | 1022 | CAL | TXLOP PICK UP TXL OP, AND | 4F11045 | ||
02626 | 0 63000 0 03014 | 1023 | STP | SBC4 SET OP SWITCH. | 4F11046 | ||
02627 | 0 53400 3 01414 | 1024 | SS001 | LXA | L(6),3 SET FOR 6 CHARACTERS OF MULTIPLIER. | 4F11047 | |
02630 | 0 60000 0 01370 | 1025 | STZ | SYMBOL CLEAR WORKING STORAGE. | 4F11048 | ||
02631 | 0 07400 4 01707 | 1026 | TSX | C0190,4 * GET FIRST PON BLANK CHAR IN THE AC. | 4F11049 | ||
02632 | 0 34000 0 01417 | 1027 | CAS | L(9) COMPARE IT UITH 9. | 4F11050 | ||
D | 02633 | 1 00000 0 02704 | 1028 | TXI | SS0045,0 RETURN TO EXPLICIT CODING. | 4F11051 | |
02634 | 0 76100 0 00000 | 1029 | NOP | IF NUMERIC, | 4F11052 | ||
02635 | 0 60100 0 01331 | 1030 | STO | FIRSTC SAVE RIGHT-ADJUSTED DIGIT, AND | 4F11053 | ||
02636 | 0 76700 2 00044 | 1031 | SS0012 | ALS | 36,2 LEFT-ADJUST DIGIT TO | 4F11054 | |
02637 | −0 60200 0 01370 | 1032 | ORS | SYMBOL BUILD SYMBOL. | 4F11055 | ||
02640 | 1 00006 2 02641 | 1033 | TXI | SS0013,2,6 UPDATE SHIFT DECREMENT, AND | 4F11056 | ||
02641 | 1 77777 1 02642 | 1034 | SS0013 | TXI | SS0014,1,−1 UPDATE COUNT OF CHARS COLLECTED. | 4F11057 | |
02642 | 0 07400 4 01707 | 1035 | SS0014 | TSX | C0190,4 * GET NEXT NB CHARACTER IN THE AC. | 4F11058 | |
02643 | 0 53400 4 02652 | 1036 | LXA | CTESTX,4 SST XR4 = NO. OF PUNCTUATION MARKS. | 4F11059 | ||
02644 | 0 34000 4 01406 | 1037 | SS0015 | CAS | CTEST,4 TEST THIS CHARACTER AGAINST | 4F11060 | |
D | 02645 | 1 00000 0 02647 | 1038 | TXI | SS0016,0 ALL PUNCTUATION. | 4F11061 | |
02646 | 0 02000 4 02733 | 1039 | TRA | SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. | 4F11062 | ||
02647 | 2 00001 4 02644 | 1040 | SS0016 | TIX | SS0015,4,1 IF NOT FOUND TO BE PUNCTUATION, | 4F11063 | |
02650 | 0 34000 0 01417 | 1041 | CAS | L(9) TEST FOR NUMERIC. | 4F11064 | ||
D | 02651 | 1 00000 0 02655 | 1042 | TXI | SS0017,0 AND IF | 4F11065 | |
02652 | 0 76100 0 00012 | 1043 | CTESTX | NOP | CTEST−ENDMK FOUND TO BE NUMERIC, | 4F11066 | |
02653 | 3 00000 1 02636 | 1044 | TXH | SS0012,1,0 CONTINUE BUILDING SYMBOL. BUT IF | 4F11067 | ||
D | 02654 | 1 00000 0 02720 | 1045 | TXI | STOP49,0 SEVENTH CHAR, GO TO DIAGNOSTIC. | 4F11066 | |
02655 | 0 07400 1 03242 | 1046 | SS0017 | TSX | TESTFX+1,1 * GO TEST FOR FIXED POINT VARIABLE. | 4F11069 | |
02656 | 0 07400 4 03400 | 1047 | TSX | DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC. | 4F11070 | ||
02657 | −0 76300 0 00036 | 1048 | LGL | 30 RESTORE FIXED POINT VARIABLE | 4F11071 | ||
02660 | 0 60200 0 01365 | 1049 | SLW | RESIDU TO RESIDU, AND | 4F11072 | ||
02661 | −0 53400 4 01724 | 1050 | LXD | CHCTR,4 RESET CHARACTER COUNTER | 4F11073 | ||
02662 | 1 00001 4 02663 | 1051 | TXI | SS0018,4,1 TO BEGIN PROCESSING | 4F11074 | ||
02663 | −0 63400 4 01724 | 1052 | SS0018 | SXD | CHCTR,4 SUBSCRIPT MULTIPLIER. | 4F11075 | |
02664 | 0 50200 0 02776 | 1053 | SBX | CLS | SBC6 TEST FOR | 4F11076 | |
02665 | −0 12000 0 02667 | 1054 | TMI | SBX1 PREVIOUS MULTIPLIER. | 4F11077 | ||
02666 | 0 07400 4 03400 | 1055 | TSX | DIAG,4 * DOUBLE MULTIPLIER FOR SUBSCRIPT. | 4F11078 | ||
02667 | 0 60100 0 02776 | 1056 | SBX1 | STO | SBC6 RESET MULTIPLIER SWITCH. | 4F11079 | |
02670 | 0 50000 0 01331 | 1057 | CLA | FIRSTC TEST | 4F11080 | ||
02671 | 0 40200 0 01373 | 1058 | SUB | L(10) MULTIPLIER | 4F11081 | ||
02672 | −0 12000 0 02674 | 1059 | TMI | SBX2 FOR CONSTANT. | 4F11082 | ||
02673 | 0 07400 4 03400 | 1060 | TSX | DIAG,4 * SUBS-MULTIPLIER NOT A CONSTANT. | 4F11083 | ||
02674 | −0 50000 0 01370 | 1061 | SBX2 | CAL | SYMBOL ADJUST MULTIPLIER | 4F11084 | |
02675 | 0 77100 2 00052 | 1062 | ARS | 42,2 TO LOW ORDER POSITION. | 4F11085 | ||
02676 | −0 53400 4 02726 | 1063 | LXD | SBS2,4 GET STORING TAG, | 4F11086 | ||
02677 | 0 60200 4 01137 | 1064 | SLW | E+9,4 AND STORE MULTIPLIER. | 4F11087 | ||
02700 | 0 60000 4 01145 | 1065 | STZ | E+15,4 SET ADDEND = 0. | 4F11088 | ||
02701 | 0 53400 3 01414 | 1066 | SS003 | LXA | L(6),3 SET FOR 6 CHARS OF VARIABLE/ADDEND. | 4F11089 | |
02702 | 0 60000 0 01370 | 1067 | STZ | SYMBOL CLEAR WORKING STORAGE. | 4F11090 | ||
02703 | 0 07400 4 01707 | 1068 | SS004 | TSX | C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. | 4F11091 | |
02704 | 0 53400 4 02652 | 1069 | SS0045 | LXA | CTESTX,4 COMPARE CHARACTER | 4F11092 | |
02705 | 0 34000 4 01406 | 1070 | SS005 | CAS | CTEST,4 TO ALL | 4F11093 | |
D | 02706 | 1 00000 0 02710 | 1071 | TXI | SS006,0 PUNCTUATION. | 4F11094 | |
02707 | 0 02000 4 02733 | 1072 | TRA | SUBTR,4 IF EQUALITY IS FOUND, TRANSFER. | 4F11095 | ||
02710 | 2 00001 4 02705 | 1073 | SS006 | TIX | SS005,4,1 IF NOT FOUND TO BE PUNCTUATION, | 4F11096 | |
02711 | −3 00005 1 02713 | 1074 | TXL | SS008,1,5 IF 1ST CHARACTER OF VARIABLE OR | 4F11097 | ||
02712 | 0 60100 0 01331 | 1075 | STO | FIRSTC ADDEND, SAVE FOR LATER TESTS. | 4F11098 | ||
02713 | 0 76700 2 00044 | 1076 | SS008 | ALS | 36,2 POSITION EACH CHARACTER. BUT | 4F11099 | |
02714 | −3 00000 1 02720 | 1077 | SS009 | TXL | STOP49,1,0 * ON 7TH CHARACTER, GO TO STOP. | 4F11100 | |
02715 | −0 60200 0 01370 | 1078 | ORS | SYMBOL BUILD SYMBOL. | 4F11101 | ||
02716 | 1 00006 2 02717 | 1079 | TXI | SS007,2,6 UPDATE EFFECTIVE ADDRESS OF SHIFT. | 4F11102 | ||
02717 | 1 77777 1 02703 | 1080 | SS007 | TXI | SS004,1,−1 UPDATE FOR ANOTHER CHAR COLLECTED. | 4F11103 | |
02720 | 0 07400 4 03400 | 1081 | STOP49 | TSX | DIAG,4 * GO TO DIAGNOSTIC ON 7TH CHARACTER. | 4F11104 | |
1082 | SUBTR/ CONTR0L TRANSFERS FOR SUBSCRIPT SCAN= | 4F11105 | |||||
D | 02721 | 1 00000 0 02722 | 1083 | TXI | ISC,0 EMK (ILLEGAL IN LIST SUBSCRIPT). | 4F11106 | |
02722 | 0 07400 4 03400 | 1084 | ISC | TSX | DIAG,4 * ( (ILLEGAL IN LIST SUBSCRIPT). | 4F11107 | |
D | 02723 | 1 00000 0 02772 | 1085 | TXI | SBC,0 , | 4F11108 | |
D | 02724 | 1 00000 0 02770 | 1086 | TXI | SBR,0 ) | 4F11109 | |
D | 02725 | 1 00000 0 02722 | 1087 | TXI | ISC,0 = (ILLEGAL IN LIST SUBSCRIPT). | 4F11110 | |
02726 | 1 00000 0 02733 | 1088 | SBS2 | TXI | SBM,0,** - ,,SUBSCRIPT ELEMENT COUNTER. | 4F11111 | |
D | 02727 | 1 00000 0 02722 | 1089 | TXI | ISC,0 / (ILLEGAL IN LIST SUBSCRIPT). | 4F11112 | |
02730 | 1 00000 0 02722 | 1090 | SXR1 | TXI | ISC,0,** . (ILLEGAL IN LIST SUBSCRIPT). | 4F11113 | |
02731 | 1 00000 0 02734 | 1091 | SXR2 | TXI | SBP,0,** + | 4F11114 | |
02732 | 1 00000 0 02664 | 1092 | SXR4 | TXI | SBX,0,** * | 4F11115 | |
02733 | 1093 | SUBTR | BSS | 0 INDEXING ADDRESS FOR ABOVE LIST. | 4F11116 | ||
02733 | −0 76000 0 00003 | 1094 | SBM | SSM | MINUS ADDEND. | 4F11117 | |
02734 | 0 76000 0 00000 | 1095 | SBP | CLM | PLUS ADDEND. | 4F11118 | |
02735 | −0 53400 4 02726 | 1096 | LXD | SBS2,4 GET STORING TAG, AND | 4F11119 | ||
02736 | 0 60100 4 01145 | 1097 | STO | E+15,4 STORE SIGN OF ADDEND. | 4F11120 | ||
02737 | 0 50200 0 02777 | 1098 | CLS | SBC8 TEST SWITCH | 4F11121 | ||
02740 | −0 12000 0 02742 | 1099 | TMI | SBP1 FOR PREVIOUS ADDEND. | 4F11122 | ||
02741 | 0 07400 4 03400 | 1100 | TSX | DIAG,4 * DOUBLE ADDEND FOR SUBSCRIPT. | 4F11123 | ||
02742 | 0 60100 0 02777 | 1101 | SBP1 | STO | SBC8 RESET ADDEND SWITCH. | 4F11124 | |
02743 | 0 07400 1 03241 | 1102 | TSX | TESTFX,1 * GO TO TEST FOR FIXED POINT. | 4F11125 | ||
02744 | 0 07400 4 03400 | 1103 | TSX | DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC. | 4F11126 | ||
02745 | −0 53400 4 02726 | 1104 | LXD | SBS2,4 GET STORING TAG, AND | 4F11127 | ||
02746 | 0 50200 0 02776 | 1105 | CLS | SBC6 TEST SWITCH | 4F11128 | ||
02747 | 0 12000 0 02754 | 1106 | TPL | SBP2 FOR PREVIOUS MULTIPLIER. | 4F11129 | ||
02750 | 0 50000 0 01407 | 1107 | CLA | L(1) IF NONE, | 4F11130 | ||
02751 | 0 60100 4 01137 | 1108 | STO | E+9,4 SET MULTIPLIER | 4F11131 | ||
D | 02752 | 1 00000 0 02755 | 1109 | TXI | SBP4,0 TO 1, AND CONTINUE. | 4F11132 | |
02753 | 0 50200 0 02776 | 1110 | SBC1 | CLS | SBC6 RESET MULTIPLIER | 4F11133 | |
02754 | 0 60100 0 02776 | 1111 | SBP2 | STO | SBC6 OP SWITCH. | 4F11134 | |
02755 | −0 50000 0 01370 | 1112 | SBP4 | CAL | SYMBOL IF VARIABLE SUBSCRIPT, | 4F11135 | |
02756 | 3 00044 2 02762 | 1113 | TXH | SBP41,2,36 ADD A BLANK | 4F11136 | ||
02757 | −0 50000 0 01430 | 1114 | CAL | BLANK IF LESS | 4F11137 | ||
02760 | 0 76700 2 00044 | 1115 | ALS | 36,2 THAN 6 | 4F11138 | ||
02761 | −0 50100 0 01370 | 1116 | ORA | SYMBOL CHARACTERS, AND | 4F11139 | ||
02762 | 0 60200 4 01140 | 1117 | SBP41 | SLW | E+10,4 PLACE IN E-REGION. | 4F11140 | |
02763 | 0 07400 1 03241 | 1118 | TSX | TESTFX,1 * GO TO TEST FOR FIXED POINT. | 4F11141 | ||
02764 | 0 07400 4 03400 | 1119 | TSX | DIAG,4 * NOT FIXED POINT --GO TO DIAGNOSTIC. | 4F11142 | ||
02765 | 0 50000 0 02777 | 1120 | CLA | SBC8 IF THERE IS AN ADDEND, | 4F11143 | ||
02766 | −0 12000 0 02701 | 1121 | TMI | SS003 GO COLLECT, OTHERWISE | 4F11144 | ||
D | 02767 | 1 00000 0 03012 | 1122 | TXI | SBC7,0 GO UPDATE STORING TAG. | 4F11145 | |
02770 | 0 50200 0 03014 | 1123 | SBR | CLS | SBC4 SET SWITCH | 4F11146 | |
02771 | 0 60100 0 03014 | 1124 | STO | SBC4 FOR CLOSING PARENTHESIS. | 4F11147 | ||
02772 | −0 50000 0 01100 | 1125 | SBC | CAL | DIMCTR UPDATE | 4F11148 | |
02773 | 0 40000 0 01407 | 1126 | ADD | L(1) DIMENSION COUNTER | 4F11149 | ||
02774 | 0 62100 0 01100 | 1127 | STA | DIMCTR BY 1. | 4F11150 | ||
02775 | −0 53400 4 02726 | 1128 | LXD | SBS2,4 GET STORING TAG. | 4F11151 | ||
D | 02776 | 3 00000 0 02753 | 1129 | SBC6 | TXH | SBC1,0 SWITCH-IF NO MULTIPLIER, AND | 4F11152 |
D | 02777 | 3 00000 0 03016 | 1130 | SBC8 | TXH | SBC2,0 SWITCH-IF NO ADDEND, THEN | 4F11153 |
03000 | 0 50000 0 01407 | 1131 | CLA | L(1) SET | 4F11154 | ||
03001 | 0 60100 4 01137 | 1132 | STO | E+9,4 MULTIPLIER = 1. | 4F11155 | ||
03002 | 0 60000 4 01145 | 1133 | STZ | E+15,4 SET ADDEND = 0. | 4F11156 | ||
03003 | 0 50000 0 01331 | 1134 | CLA | FIRSTC TEST FOR | 4F11157 | ||
03004 | 0 40200 0 01373 | 1135 | SUB | L(10) CONSTANT OR VARIABLE. | 4F11158 | ||
03005 | 0 12000 0 02755 | 1136 | TPL | SBP4 IF CONSTANT, THEN | 4F11159 | ||
03006 | 0 60000 4 01140 | 1137 | STZ | E+10,4 SET VARIABLE = 0. | 4F11160 | ||
03007 | −0 50000 0 01370 | 1138 | SBC9 | CAL | SYMBOL ADJUST | 4F11161 | |
03010 | 0 77100 2 00052 | 1139 | ARS | 42,2 CONSTANT | 4F11162 | ||
03011 | −0 60200 4 01145 | 1140 | ORS | E+15,4 TO LOW ORDER POSITION. | 4F11163 | ||
03012 | −2 00002 4 03024 | 1141 | SBC7 | TNX | SBC3,4,2 UPDATE STORING TAG | 4F11164 | |
03013 | −0 63400 4 02726 | 1142 | SXD | SBS2,4 BY -2, AND SAVE. | 4F11165 | ||
D | 03014 | −3 00000 0 02627 | 1143 | SBC4 | TXL | SS001,0 SWITCH-REPEAT FOR NEXT SUB-COMB. | 4F11166 |
D | 03015 | 1 00000 0 03030 | 1144 | TXI | SA000,0 GO MAKE TABLE ENTRIES AND GET TAG. | 4F11167 | |
03016 | 0 50200 0 02777 | 1145 | SBC2 | CLS | SBC8 RESET ADDEND | 4F11168 | |
03017 | 0 60100 0 02777 | 1146 | STO | SBC8 OP SWITCH. | 4F11169 | ||
03020 | 0 50200 0 01373 | 1147 | CLS | L(10) TEST | 4F11170 | ||
03021 | 0 40000 0 01331 | 1148 | ADD | FIRSTC ADDEND | 4F11171 | ||
03022 | −0 12000 0 03007 | 1149 | TMI | SBC9 FOR CONSTANT. | 4F11172 | ||
03023 | 0 07400 4 03400 | 1150 | TSX | DIAG,4 * SUBSCRIPT ADDEND NOT A CONSTANT. | 4F11173 | ||
03024 | 0 50200 0 03014 | 1151 | SBC3 | CLS | SBC4 AFTER SCANNING 3 SUBSCRIPTS, | 4F11174 | |
03025 | −0 12000 0 03030 | 1152 | TMI | SA000 GO MAKE TABLE ENTRIES AND GET TAG. | 4F11175 | ||
03026 | 0 07400 4 03400 | 1153 | TSX | DIAG,4 * GO TO DIAG - NO ) AFTER 3RD SUBS. | 4F11176 | ||
1154 | CSA000= ENTRY POINT USED BY C0200 (GO TO ROUTINE). | 4F11177 | |||||
03027 | −0 63400 4 02732 | 1155 | CSA000 | SXD | SXR4,4 SAVE C(XR4) FOR RETURN TO C0200. | 4F11178 | |
03030 | 0 50000 0 01100 | 1156 | SA000 | CLA | DIMCTR SAVE | 4F11179 | |
03031 | 0 60100 0 01125 | 1157 | STO | DIMSAV THE CONTENTS OF DIMCTR. | 4F11180 | ||
03032 | 0 76700 0 00041 | 1158 | ALS | 33 POSITION AND | 4F11181 | ||
03033 | 0 60100 0 01126 | 1159 | STO | E STORE I TAG. | 4F11182 | ||
03034 | 0 50000 0 01141 | 1160 | CLA | E+11 MOVE SUBSCRIPT ADDENDS | 4F11183 | ||
03035 | 0 60100 0 01142 | 1161 | STO | E+12 INTO POSITION | 4F11184 | ||
03036 | 0 50000 0 01137 | 1162 | CLA | E+9 FOR FOLLOWING | 4F11185 | ||
03037 | 0 60100 0 01141 | 1163 | STO | E+11 PROGRAM. | 4F11186 | ||
03040 | 0 50000 0 01410 | 1164 | CLA | L(2) EXAMINE DIMCTR | 4F11187 | ||
03041 | 0 34000 0 01100 | 1165 | CAS | DIMCTR TO DETERMINE | 4F11188 | ||
D | 03042 | 1 00000 0 03174 | 1166 | TXI | 1D0000,0 WHETHER DIMENSION OF | 4F11189 | |
D | 03043 | 1 00000 0 03131 | 1167 | TXI | 2D0000,0 VARIABLE IS 1, 2, OR 3. | 4F11190 | |
03044 | 0 53400 4 01414 | 1168 | 3D0000 | LXA | L(6),4 PREPARE TO PICK UP 3 COEFFICIENTS. | 4F11191 | |
03045 | 0 56000 4 01137 | 1169 | 3D0001 | LDQ | E+9,4 CONVERT THEM FROM BCD TO BINARY | 4F11192 | |
03046 | 0 07400 1 02566 | 1170 | TSX | SR6DC1,1 * IN E+3,5,7, AND | 4F11193 | ||
03047 | 0 60100 4 01137 | 1171 | STO | E+9,4 STORE BACK IN E+3,5,7. | 4F11194 | ||
03050 | 2 00002 4 03045 | 1172 | TIX | 3D0001,4,2 WHEN DONE, PREPARE | 4F11195 | ||
03051 | 0 53400 4 01411 | 1173 | LXA | L(3),4 TO PICK UP 3 ADDENDS. | 4F11196 | ||
03052 | 0 50000 4 01144 | 1174 | 3D0002 | CLA | E+14,4 CONVERT ADDENDS (BCD TO BINARY)= | 4F11197 | |
03053 | 0 60200 0 01347 | 1175 | SLW | G STRIP OFF | 4F11198 | ||
03054 | 0 56000 0 01347 | 1176 | LDQ | G SIGN, | 4F11199 | ||
03055 | 0 07400 1 02566 | 1177 | TSX | SR6DC1,1 * CONVERT ADDENDS IN E+11,12,13, | 4F11200 | ||
03056 | 0 56000 4 01144 | 1178 | LDQ | E+14,4 PUT SIGN IN S-BIT 0F MQ, AND | 4F11201 | ||
03057 | 0 16200 0 03061 | 1179 | TQP | 3D0040 IF PLUS--SKIP NEXT, | 4F11202 | ||
03060 | −0 50100 0 01453 | 1180 | ORA | 2E17 IF MINUS--OR SIGN INTO BIT 18, | 4F11203 | ||
03061 | 0 60100 4 01144 | 1181 | 3D0040 | STO | E+14,4 AND STORE BACK INT0 E+11,12,13. | 4F11204 | |
03062 | 2 00001 4 03052 | 1182 | TIX | 3D0002,4,1 WHEN DONE, | 4F11205 | ||
03063 | 0 07400 4 02005 | 1183 | TSX | DIM3SR,4 * GO SEARCH DIM3 TABLE. | 4F11206 | ||
03064 | 0 07400 4 03400 | 1184 | TSX | DIAG,4 * --ERROR...NOT ON DRUM. | 4F11207 | ||
03065 | 0 50000 0 01131 | 1185 | 3D0060 | CLA | E+3 REFORMATIZE E-STRING = | 4F11208 | |
03066 | 0 76700 0 00022 | 1186 | ALS | 18 PACK TOGETHER COEFFICIENTS 1 AND 2 | 4F11209 | ||
03067 | 0 40000 0 01133 | 1187 | ADD | E+5 AND STORE THEM | 4F11210 | ||
03070 | 0 60100 0 01131 | 1188 | STO | E+3 IN E+3. | 4F11211 | ||
03071 | 0 50000 0 01132 | 1189 | CLA | E+4 MOVE SUBSCRIPT 1 | 4F11212 | ||
03072 | 0 60100 0 01133 | 1190 | STO | E+5 TO E+5. | 4F11213 | ||
03073 | 0 50000 0 01135 | 1191 | CLA | E+7 AND MOVE | 4F11214 | ||
03074 | 0 76700 0 00022 | 1192 | ALS | 18 COEFFICIENT 3 | 4F11215 | ||
03075 | 0 60100 0 01132 | 1193 | STO | E+4 INTO E+4. | 4F11216 | ||
03076 | 0 50000 0 01136 | 1194 | CLA | E+8 MOVE SUBSCRIPT 3 INTO E+7, | 4F11217 | ||
03077 | 0 60100 0 01135 | 1195 | STO | E+7 NEXT TO SUBSCRIPT 2 IN E+6. | 4F11218 | ||
03100 | 0 50000 0 01101 | 1196 | CLA | D12 MOVE DIMENSIONS 1 AND 2 | 4F11219 | ||
03101 | 0 60100 0 01136 | 1197 | STO | E+8 INTO E+8. | 4F11220 | ||
03102 | −0 50000 0 01141 | 1198 | CAL | E+11 PACK TOGETHER | 4F11221 | ||
03103 | 0 76700 0 00022 | 1199 | ALS | 18 ADDENDS 1 AND 2 | 4F11222 | ||
03104 | −0 50100 0 01142 | 1200 | ORA | E+12 AND | 4F11223 | ||
03105 | 0 60200 0 01141 | 1201 | SLW | E+11 STORE THEM IN E+11. | 4F11224 | ||
03106 | −0 50000 0 01143 | 1202 | CAL | E+13 MOVE | 4F11225 | ||
03107 | 0 76700 0 00022 | 1203 | ALS | 18 ADDEND 3 | 4F11226 | ||
03110 | 0 60200 0 01142 | 1204 | SLW | E+12 INTO E+12. | 4F11227 | ||
03111 | 0 07400 4 00443 | 1205 | TSX | TAU3IX,4 * GO SEARCH TAU3 TABLE. | 4F11228 | ||
03112 | 0 76700 0 00030 | 1206 | ALS | 24 POSITION TAU3 TAG, AND | 4F11229 | ||
03113 | −0 60200 0 01126 | 1207 | ORS | E PLACE TAU3 TAG IN TAG WORD. | 4F11230 | ||
03114 | −0 50000 0 01135 | 1208 | CAL | E+7 COMBINE | 4F11231 | ||
03115 | −0 50100 0 01134 | 1209 | ORA | E+6 SUBSCRIPTS 3,2, AND 1, | 4F11232 | ||
03116 | −0 50100 0 01133 | 1210 | 3D0340 | ORA | E+5 AND IF THEY ARE ALL ZERO, | 4F11233 | |
03117 | 0 10000 0 03216 | 1211 | 3D0350 | TZE | NOTAG --DON,T ENTER FORTAG. | 4F11234 | |
03120 | −0 50000 0 00030 | 1212 | FTG000 | CAL | EIFNO ENTER FORTAG= | 4F11235 | |
03121 | −0 32000 0 01527 | 1213 | ANA | MASK1 BRING UP ALPHA (INTFORMNO) | 4F11236 | ||
03122 | 0 60200 0 01347 | 1214 | SLW | G AND STORE IN G. | 4P11237 | ||
03123 | −0 50000 0 01126 | 1215 | CAL | E BRING UP TAUTAG FOR I, | 4F11238 | ||
03124 | 0 77100 0 00030 | 1216 | ARS | 24 ADJUST, AND | 4F11239 | ||
03125 | −0 60200 0 01347 | 1217 | ORS | G PLACE IN G WITH ALPHA. THEN | 4F11240 | ||
03126 | 0 07400 1 03321 | 1218 | TSX | TET00,1 * ENTER INTO FORTAG TABLE | 4F11241 | ||
03127 | 0 00000 0 00004 | 1219 | PZE | 4 (TET TABLE 4). | 4F11242 | ||
D | 03130 | 1 00000 0 03220 | 1220 | TXI | SAEXIT,0 GO TO EXIT. | 4F11243 | |
03131 | 0 53400 4 01412 | 1221 | 2D0000 | LXA | L(4),4 THEN PICKUP AND | 4F11244 | |
03132 | 0 56000 4 01135 | 1222 | 2D0001 | LDQ | E+7,4 CONVERT COEFFICIENTS | 4F11245 | |
03133 | 0 07400 1 02566 | 1223 | TSX | SR6DC1,1 * (BCD TO BINARY), | 4F11246 | ||
03134 | 0 60100 4 01135 | 1224 | STO | E+7,4 AND STORE BACK IN E+3 AND E+5. | 4F11247 | ||
03135 | 2 00002 4 03132 | 1225 | TIX | 2D0001,4,2 WHEN DONE, | 4F11248 | ||
03136 | 0 53400 4 01410 | 1226 | LXA | L(2),4 PREPARE TO | 4F11249 | ||
03137 | 0 50000 4 01143 | 1227 | 2D0002 | CLA | E+13,4 PICKUP THE TWO ADDENDS. | 4F11250 | |
03140 | 0 60200 0 01347 | 1228 | SLW | G STRIP OFF | 4F11251 | ||
03141 | 0 56000 0 01347 | 1229 | LDQ | G THEIR SIGNS, | 4F11252 | ||
03142 | 0 07400 1 02566 | 1230 | TSX | SR6DC1,1 * CONVERT THEM FROM BCD TO BINARY, | 4F11253 | ||
03143 | 0 56000 4 01143 | 1231 | LDQ | E+13,4 PUT SIGN IN S-BIT OF MQ, AND | 4F11254 | ||
03144 | 0 16200 0 03146 | 1232 | TQP | 2D0040 IF PLUS--SKIP NEXT, | 4F11255 | ||
03145 | −0 50100 0 01453 | 1233 | ORA | 2E17 IF MINUS--OR SIGN INTO BIT 18, | 4F11256 | ||
03146 | 0 60100 4 01143 | 1234 | 2D0040 | STO | E+13,4 AND STORE BACK IN E+11 AND E+12. | 4F11257 | |
03147 | 2 00001 4 03137 | 1235 | TIX | 2D0002,4,1 WHEN DONE, | 4F11258 | ||
03150 | 0 07400 4 01775 | 1236 | TSX | DIM2SR,4 * GO SEARCH DIM2 TABLE. | 4F11259 | ||
03151 | 0 07400 4 03400 | 1237 | TSX | DIAG,4 * --ERROR...NOT ON DRUM. | 4F11260 | ||
03152 | 0 50000 0 01131 | 1238 | 2D0060 | CLA | E+3 REFORMATIZE E-STRING = | 4F11261 | |
03153 | 0 76700 0 00022 | 1239 | ALS | 18 PACK TOGETHER | 4F11262 | ||
03154 | 0 40000 0 01133 | 1240 | ADD | E+5 COEFFICIENTS 1 AND 2, | 4F11263 | ||
03155 | 0 60100 0 01131 | 1241 | STO | E+3 AND STORE THEM IN E+3. | 4F11264 | ||
03156 | 0 50000 0 01134 | 1242 | CLA | E+6 MOVE SUBSCRIPT 2 INTO E+5 | 4F11265 | ||
03157 | 0 60100 0 01133 | 1243 | STO | E+5 (NEXT TO SUBSCRIPT 1 IN E+4). | 4F11266 | ||
03160 | 0 50000 0 01101 | 1244 | CLA | D12 OBTAIN | 4F11267 | ||
03161 | −0 32000 0 01527 | 1245 | ANA | MASK1 DIMENSION 1, AND MOVE IT | 4F11268 | ||
03162 | 0 60100 0 01134 | 1246 | STO | E+6 INTO E+6. | 4F11269 | ||
03163 | −0 50000 0 01141 | 1247 | CAL | E+11 PACK TOGETHER | 4F11270 | ||
03164 | 0 76700 0 00022 | 1248 | ALS | 18 ADDENDS 1 AND 2, | 4F11271 | ||
03165 | −0 50100 0 01142 | 1249 | ORA | E+12 AND STORE THEM | 4F11272 | ||
03166 | 0 60200 0 01141 | 1250 | SLW | E+11 IN E+11. | 4F11273 | ||
03167 | 0 07400 4 00436 | 1251 | TSX | TAU2IX,4 * GO SEARCH TAU2 TABLE. | 4F11274 | ||
03170 | 0 76700 0 00030 | 1252 | ALS | 24 POSITION TAU2 TAG, AND | 4F11275 | ||
03171 | −0 60200 0 01126 | 1253 | ORS | E PLACE TAU2 TAG IN TAG WORD. | 4F11276 | ||
03172 | −0 50000 0 01132 | 1254 | CAL | E+4 COMBINE SUBSCRIPTS 1 AND 2, AND | 4F11277 | ||
D | 03173 | 1 00000 0 03116 | 1255 | TXI | 3D0340,0 GO TO FORTAG SECTION. | 4F11278 | |
03174 | 0 56000 0 01131 | 1256 | 1D0000 | LDQ | E+3 PICKUP AND CONVERT COEFFICIENTS | 4F11279 | |
03175 | 0 07400 1 02566 | 1257 | TSX | SR6DC1,1 * (BCD TO BINARY), AND | 4F11280 | ||
03176 | 0 76700 0 00022 | 1258 | ALS | 18 THEN ADJUST THEM, | 4F11281 | ||
03177 | 0 60100 0 01131 | 1259 | STO | E+3 AND STORE THEM BACK IN E+3. | 4F11282 | ||
03200 | 0 50000 0 01141 | 1260 | CLA | E+11 PICKUP ADDEND, | 4F11283 | ||
03201 | 0 60200 0 01347 | 1261 | SLW | G STRIP OFF SIGN, | 4F11284 | ||
03202 | 0 56000 0 01347 | 1262 | LDQ | G CONVERT ADDEND | 4F11285 | ||
03203 | 0 07400 1 02566 | 1263 | TSX | SR6DC1,1 * (BCD TO BINARY), AND THEN | 4F11286 | ||
03204 | 0 56000 0 01141 | 1264 | LDQ | E+11 PUT SIGN IN S-BIT OF MQ, AND | 4F11287 | ||
03205 | 0 16200 0 03207 | 1265 | TQP | 1D0001 IF PLUS--SKIP NEXT, | 4F11288 | ||
03206 | −0 50100 0 01453 | 1266 | ORA | 2E17 IF MINUS--OR SIGN INTO BIT 18. | 4F11289 | ||
03207 | 0 76700 0 00022 | 1267 | 1D0001 | ALS | 18 THEN ADJUST AND STORE | 4F11290 | |
03210 | 0 60200 0 01141 | 1268 | SLW | E+11 BACK INTO E+11. | 4F11291 | ||
03211 | 0 07400 4 00431 | 1269 | TSX | TAU1IX,4 * GO SEARCH TAU1 TABLE. | 4F11292 | ||
03212 | 0 76700 0 00030 | 1270 | ALS | 24 POSITION TAU1 TAG, AND | 4F11293 | ||
03213 | −0 60200 0 01126 | 1271 | ORS | E PLACE TAU1 TAG IN TAG WORD. | 4F11294 | ||
03214 | −0 50000 0 01132 | 1272 | CAL | E+4 TAKE SUBSCRIPT, AND | 4F11295 | ||
D | 03215 | 1 00000 0 03117 | 1273 | TXI | 3D0350,0 GO TO FORTAG SECTION. | 4F11296 | |
03216 | −0 50000 0 01471 | 1274 | NOTAG | CAL | FNIND POSITI0N SIGMA1 TAG, AND | 4F11297 | |
03217 | −0 60200 0 01126 | 1275 | ORS | E PLACE SIGMA1 TAG IN TAG WORD. | 4F11298 | ||
03220 | −0 53400 1 02730 | 1276 | SAEXIT | LXD | SXR1,1 RESTORE THE C(XR1), | 4F11299 | |
03221 | −0 53400 2 02731 | 1277 | LXD | SXR2,2 RESTORE THE C(XR2), | 4F11300 | ||
03222 | −0 53400 4 02732 | 1278 | LXD | SXR4,4 RESTORE THE C(XR4), AND | 4F11301 | ||
03223 | 0 02000 4 00001 | 1279 | TRA | 1,4 * EXIT TO MAIN ROUTINE. | 4F11302 | ||
1280 | END OF PROGRAM SS000. | 4F11303 | |||||
1281 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11304 | |||||
1282 | 4F11305 | ||||||
1283 | SUBX00,4/ CALLERS=C3000,C3300. | 4F11306 | |||||
1284 | SUBX00 ADDS BLANKS TO THE NAMES 0F SUBROUTINES. | 4F11307 | |||||
03224 | 0 53400 3 01414 | 1285 | SUBX00 | LXA | L(6),3 PREPARE TO COUNT CHARS AND SHIFTS. | 4F11308 | |
03225 | 0 56000 0 01112 | 1286 | LDQ | 1G PICKUP SUBROUTINE NAME. | 4F11309 | ||
03226 | −0 75400 0 00000 | 1287 | SUBX01 | PXD | ,0 CLEAR THE AC, AND | 4F11310 | |
03227 | −0 76300 0 00006 | 1288 | LGL | 6 SEARCH FOR A BLANK | 4F11311 | ||
03230 | 0 40200 0 01430 | 1289 | SUB | BLANK CHARACTER IN THIS NAME. | 4F11312 | ||
03231 | 0 10000 0 03235 | 1290 | TZE | SUBX03 IF NOT BLANK, THEN | 4F11313 | ||
03232 | 1 00006 1 03233 | 1291 | TXI | SUBX02,1,6 UPDATE SHIFT COUNT, AND | 4F11314 | ||
03233 | 2 00001 2 03226 | 1292 | SUBX02 | TIX | SUBX01,2,1 CONTINUE UNTIL 6 CHARS ARE COUNTED. | 4F11315 | |
03234 | 0 02000 4 00001 | 1293 | TRA | 1,4 * RETURN TO CALLER AFTER 6TH CHAR. | 4F11316 | ||
03235 | 0 56000 0 01526 | 1294 | SUBX03 | LDQ | BLANKS IF LESS THAN 6 CHARACTERS IN NAME, | 4F11317 | |
03236 | −0 76300 1 00044 | 1295 | LGL | 36,1 SHIFT ENOUGH BLANKS INTO THE AC, | 4F11318 | ||
03237 | −0 60200 0 01112 | 1296 | ORS | 1G AND FILL OUT NAME WITH BLANKS. | 4F11319 | ||
03240 | 0 02000 4 00001 | 1297 | TRA | 1,4 * RETURN TO CALLER. | 4F11320 | ||
1298 | END OF PROGRAM SUBX00. | 4F11321 | |||||
1299 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11322 | |||||
1300 | 4F11323 | ||||||
1301 | TESTFX,1/ CALLERS=SS000,C3000,IFFIX. | 4F11324 | |||||
1302 | TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES. | 4F11325 | |||||
03241 | −0 50000 0 01331 | 1303 | TESTFX | CAL | FIRSTC COMPARE FIRST CHARACTER | 4F11326 | |
03242 | 0 34000 0 01423 | 1304 | CAS | L(H) WITH H. | 4F11327 | ||
03243 | 0 34000 0 01425 | 1305 | CAS | L(O) IF GREATER THAN H, COMPARE WITH O. | 4F11328 | ||
03244 | 0 02000 1 00001 | 1306 | TRA | 1,1 * IF NOT GREATER THAN H, LESS THAN O, | 4F11329 | ||
03245 | 0 02000 1 00001 | 1307 | TRA | 1,1 * THEN TAKE FLOATING POINT EXIT. | 4F11330 | ||
03246 | 0 02000 1 00002 | 1308 | TRA | 2,1 * OTHERWISE, TAKE FIXED POINT EXIT. | 4F11331 | ||
1309 | END OF PROGRAM TESTFX. | 4F11332 | |||||
1310 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11333 | |||||
1311 | 4F11334 | ||||||
1312 | TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, | 4F11335 | |||||
1313 | C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR. | 4F11336 | |||||
1314 | TEST.. TESTS THE CHARACTER IN THE AC(30-35). | 4F11337 | |||||
1315 | TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. | 4F11338 | |||||
03247 | 0 34000 0 01376 | 1316 | TESTA0 | CAS | COMMA | 4F11339 | |
03250 | 0 02000 0 03252 | 1317 | TRA | TESTA1 | 4F11340 | ||
03251 | 0 02000 4 00001 | 1318 | TRA | 1,4 * RETURN TO CALLER. | 4F11341 | ||
03252 | 0 40200 0 01374 | 1319 | TESTA1 | SUB | ENDMK | 4F11342 | |
03253 | 0 10000 4 00001 | 1320 | TZE | 1,4 * RETURN TO CALLER. | 4F11343 | ||
03254 | 0 07400 4 03400 | 1321 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11344 | ||
1322 | TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. | 4F11345 | |||||
03255 | 0 34000 0 01376 | 1323 | TESTB0 | CAS | COMMA | 4F11346 | |
03256 | 0 02000 0 03260 | 1324 | TRA | TESTB1 | 4F11347 | ||
03257 | 0 02000 4 00001 | 1325 | TRA | 1,4 * RETURN TO CALLER. | 4F11348 | ||
03260 | 0 40200 0 01377 | 1326 | TESTB1 | SUB | CLOS | 4F11349 | |
03261 | 0 10000 4 00001 | 1327 | TZE | 1,4 * RETURN TO CALLER. | 4F11350 | ||
03262 | 0 07400 4 03400 | 1328 | TSX | DIAG,4 * ERROR -- GO T0 DIAGNOSTIC. | 4F11351 | ||
1329 | TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. | 4F11352 | |||||
03263 | 0 34000 0 01375 | 1330 | TESTC0 | CAS | OPEN | 4F11353 | |
03264 | 0 02000 0 03266 | 1331 | TRA | TESTC1 | 4F11354 | ||
03265 | 0 02000 4 00001 | 1332 | TRA | 1,4 * RETURN TO CALLER. | 4F11355 | ||
03266 | 0 40200 0 01374 | 1333 | TESTC1 | SUB | ENDMK | 4F11356 | |
03267 | 0 10000 4 00001 | 1334 | TZE | 1,4 * RETURN TO CALLER. | 4F11357 | ||
03270 | 0 07400 4 03400 | 1335 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11358 | ||
1336 | TEST CHARACTER IN THE AC FOR ENDMARK. | 4F11359 | |||||
03271 | 0 34000 0 01374 | 1337 | TESTD0 | CAS | ENDMK | 4F11360 | |
03272 | 0 07400 4 03400 | 1338 | ERR77P | TSX | DIAG,4 * MACHINE ERROR, GO TO DIAGNOSTIC. | 4F11361 | |
03273 | 0 02000 4 00001 | 1339 | TRA | 1,4 * RETURN TO CALLER. | 4F11362 | ||
03274 | 0 07400 4 03400 | 1340 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11363 | ||
1341 | TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. | 4F11364 | |||||
03275 | 0 34000 0 01375 | 1342 | TESTE0 | CAS | OPEN | 4F11365 | |
03276 | 0 02000 0 03300 | 1343 | TRA | TESTE1 | 4F11366 | ||
03277 | 0 02000 4 00001 | 1344 | TRA | 1,4 * RETURN TO CALLER. | 4F11367 | ||
03300 | 0 07400 4 03400 | 1345 | TESTE1 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11368 | |
1346 | TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. | 4F11369 | |||||
03301 | 0 34000 0 01377 | 1347 | TESTF0 | CAS | CLOS | 4F11370 | |
03302 | 0 02000 0 03304 | 1348 | TRA | TESTF1 | 4F11371 | ||
03303 | 0 02000 4 00001 | 1349 | TRA | 1,4 * RETURN TO CALLER. | 4F11372 | ||
03304 | 0 07400 4 03400 | 1350 | TESTF1 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11373 | |
1351 | TEST CHARACTER IN THE AC FOR COMMA. | 4F11374 | |||||
03305 | 0 34000 0 01376 | 1352 | TESTG0 | CAS | COMMA | 4F11375 | |
03306 | 0 02000 0 03310 | 1353 | TRA | TESTG1 | 4F11376 | ||
03307 | 0 02000 4 00001 | 1354 | TRA | 1,4 * RETURN TO CALLER. | 4F11377 | ||
03310 | 0 07400 4 03400 | 1355 | TESTG1 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11378 | |
1356 | TEST CHARACTER IN THE AC FOR NON-NUMERIC. | 4F11379 | |||||
03311 | 0 34000 0 01417 | 1357 | TESTH0 | CAS | L(9) | 4F11380 | |
03312 | 0 02000 4 00001 | 1358 | TRA | 1,4 * RETURN TO CALLER. | 4F11381 | ||
03313 | 0 76100 0 00000 | 1359 | NOP | 4F11382 | |||
03314 | 0 07400 4 03400 | 1360 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11383 | ||
1361 | TEST CHARACTER IN THE AC FOR NUMERIC. | 4F11384 | |||||
03315 | 0 34000 0 01417 | 1362 | TESTI0 | CAS | L(9) | 4F11385 | |
03316 | 0 07400 4 03400 | 1363 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11386 | ||
03317 | 0 02000 4 00001 | 1364 | TRA | 1,4 * RETURN TO CALLER. | 4F11387 | ||
03320 | 0 02000 4 00001 | 1365 | TRA | 1,4 * RETURN TO CALLER. | 4F11388 | ||
1366 | END OF PROGRAM TEST... | 4F11389 | |||||
1367 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11390 | |||||
1368 | 4F11391 | ||||||
1369 | TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400, | 4F11392 | |||||
1370 | C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD). | 4F11393 | |||||
1371 | TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS | 4F11394 | |||||
1372 | FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4. | 4F11395 | |||||
03321 | −0 63400 2 01100 | 1373 | TET00 | SXD | TETXR2,2 SAVE THE C(XR2), | 4F11396 | |
03322 | −0 63400 4 01101 | 1374 | SXD | TETXR4,4 SAVE THE C(XR4), AND | 4F11397 | ||
03323 | −0 60000 0 01103 | 1375 | STQ | TETMQR SAVE THE C(MQR). | 4F11398 | ||
03324 | 0 50000 1 00001 | 1376 | CLA | 1,1 COMPUTE TABLE NUMBER | 4F11399 | ||
03325 | 0 76700 0 00001 | 1377 | ALS | 1 TIMES 3 | 4F11400 | ||
03326 | 0 40000 1 00001 | 1378 | ADD | 1,1 AND | 4F11401 | ||
03327 | 0 76000 0 00006 | 1379 | COM | PLACE THE 2S COMPLEMENT | 4F11402 | ||
03330 | 0 40000 0 01407 | 1380 | ADD | L(1) OF THIS | 4F11403 | ||
03331 | 0 73400 2 00000 | 1381 | PAX | ,2 IN XR2. | 4F11404 | ||
03332 | 0 50000 2 00322 | 1382 | CLA | INTET,2 OBTAIN THE CURRENT | 4F11405 | ||
03333 | 0 77100 0 00022 | 1383 | ARS | 18 B (BUFFER CAPACITY), | 4F11406 | ||
03334 | 0 60100 0 01102 | 1384 | STO | TETWRK AND SAVE IT. THEN | 4F11407 | ||
03335 | 0 50000 2 00324 | 1385 | CLA | INTET+2,2 GET P (PORTION OF BUFFER FULL), | 4F11408 | ||
03336 | 0 77100 0 00022 | 1386 | ARS | 18 AND | 4F11409 | ||
03337 | 0 40200 0 01102 | 1387 | SUB | TETWRK COMPARE TO B. | 4F11410 | ||
03340 | −0 10000 0 03356 | 1388 | TNZ | TET03 IF BUFFER IS FULL, | 4F11411 | ||
03341 | 0 62200 2 00324 | 1389 | STD | INTET+2,2 SET P = O, AND | 4F11412 | ||
03342 | 0 76600 0 00224 | 1390 | TET01 | WRS | TABTAP PREPARE TO WRITE BLOCK ON TABTAP. | 4F11413 | |
03343 | 0 53400 4 01102 | 1391 | LXA | TETWRK,4 SET XR4 = BLOCK SIZE (B). | 4F11414 | ||
03344 | 0 50000 0 01102 | 1392 | CLA | TETWRK ADD BLOCK SIZE TO | 4F11415 | ||
03345 | 0 40000 2 00322 | 1393 | ADD | INTET,2 ORIGIN OF CURRENT BLOCK (O), | 4F11416 | ||
03346 | 0 62100 0 03350 | 1394 | STA | TET02 AND SET ADDRESS OF COPY LOOP (O+B). | 4F11417 | ||
03347 | 0 70000 1 00001 | 1395 | CPY | 1,1 COPY TABLE NUM FOR IDENTIFICATION. | 4F11418 | ||
03350 | 0 70000 4 00000 | 1396 | TET02 | CPY | **,4 WRITE BLOCK ONTO | 4F11419 | |
03351 | 2 00001 4 03350 | 1397 | TIX | TET02,4,1 TABLE TAPE, AND | 4F11420 | ||
03352 | 0 76600 0 00333 | 1398 | IOD | WHEN DONE, | 4F11421 | ||
03353 | 0 50000 2 00324 | 1399 | CLA | INTET+2,2 INCREASE C (BLOCK COUNT) | 4F11422 | ||
03354 | 0 40000 0 01407 | 1400 | ADD | L(1) BY 1 FOR | 4F11423 | ||
03355 | 0 62100 2 00324 | 1401 | STA | INTET+2,2 BLOCK JUST WRITTEN ON TABLE TAPE. | 4F11424 | ||
03356 | 0 50000 2 00324 | 1402 | TET03 | CLA | INTET+2,2 ADD P (PORTION OF BUFFER FULL) | 4F11425 | |
03357 | 0 77100 0 00022 | 1403 | ARS | 18 TO O (ORIGIN OF CURRENT TABLE | 4F11426 | ||
03360 | 0 40000 2 00322 | 1404 | ADD | INTET,2 BUFFER) TO SET | 4F11427 | ||
03361 | 0 62100 0 03371 | 1405 | STA | TET05 ADDRESS OF ENTRY LOOP (P+O). | 4F11428 | ||
03362 | 0 50000 2 00323 | 1406 | CLA | INTET+1,2 OBTAIN CURRENT A (ENTRY ADDRESS), | 4F11429 | ||
03363 | 0 62100 0 03370 | 1407 | STA | TET04 AND SET ADDRESS OF ENTRY LOOP. | 4F11430 | ||
03364 | −0 73400 4 00000 | 1408 | PDX | ,4 SET XR4 = E (ENTRY LENGTH IN WRDS). | 4F11431 | ||
03365 | 0 40000 2 00324 | 1409 | ADD | INTET+2,2 INCREASE P BY E TO ACCOUNT | 4F11432 | ||
03366 | 0 62200 2 00324 | 1410 | STD | INTET+2,2 FOR FOLLOWING ENTRY. | 4F11433 | ||
03367 | −0 53400 2 01406 | 1411 | LXD | L(0),2 SET XR2 = 0. THEN | 4F11434 | ||
03370 | 0 50000 2 00000 | 1412 | TET04 | CLA | **,2 MOVE THE CURRENT ENTRY | 4F11435 | |
03371 | 0 60100 2 00000 | 1413 | TET05 | STO | **,2 INTO THE CURRENT TABLE BUFFER, AND | 4F11436 | |
03372 | 1 77777 2 03373 | 1414 | TXI | TET06,2,−1 WHEN | 4F11437 | ||
03373 | 2 00001 4 03370 | 1415 | TET06 | TIX | TET04,4,1 DONE, | 4F11438 | |
03374 | 0 56000 0 01103 | 1416 | LDQ | TETMQR RESTORE ORIGINAL C(MQR), | 4F11439 | ||
03375 | −0 53400 2 01100 | 1417 | LXD | TETXR2,2 RESTORE ORIGINAL C(XR2), | 4F11440 | ||
03376 | −0 53400 4 01101 | 1418 | LXD | TETXR4,4 RESTORE ORIGINAL C(XR4), AND | 4F11441 | ||
03377 | 0 02000 1 00002 | 1419 | TRA | 2,1 * EXIT TO MAIN ROUTINE. | 4F11442 | ||
1420 | END OF PROGRAM TET00. | 4F11443 | |||||
1421 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11444 | |||||
1422 | DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, | 4F11445 | |||||
1423 | C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST.., | 4F11446 | |||||
1424 | SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR, | 4F11447 | |||||
1425 | CMA,EMK,BEG(TYP),VRA(VRD). | 4F11448 | |||||
1426 | (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE | 4F11449 | |||||
1427 | BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO | 4F11450 | |||||
1428 | THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.) | 4F11451 | |||||
D | 03400 | 1 00000 0 00004 | 1429 | DIAG | TXI | 4,0 * GO GET THE DIAGNOSTIC. | 4F11452 |
1430 | END OF PROGRAM DIAG. | 4F11453 | |||||
1431 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11454 | |||||
1432 | 4F11455 | ||||||
1433 | ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. | 4F11456 | |||||
03401 | −0 63400 4 03437 | 1434 | FLTR00 | SXD | FLTR05,4 SAVE CALLING TAG. | 4F114571 | |
03402 | 0 50000 0 00030 | 1435 | CLA | EIFNO GET LAST INTERNAL AND EXTERNAL FORMULA NOS. | 4F114572 | ||
03403 | 0 62100 0 02067 | 1436 | STA | ENT PLACE LAST EFN IN DEC OF NTR INSTRUCTION. | 4F114573 | ||
03404 | 0 77100 0 00022 | 1437 | ARS | 18 | 4F114574 | ||
03405 | 0 62100 0 02070 | 1438 | STA | NZE PLACE LAST IFN IN DEC OF PZE | 4F114575 | ||
03406 | −0 53400 4 01122 | 1439 | LXD | ARGCTR,4 | 4F114576 | ||
03407 | −3 00000 4 03413 | 1440 | TXL | FLTR01,4,0 IS THIS AN FN FUNCTION, NO SKIP. | 4F114577 | ||
03410 | 0 60000 0 01107 | 1441 | STZ | 1C+2 | 4F114578 | ||
03411 | 0 50200 0 01454 | 1442 | CLS | 2E18 SET ADDRESS TO -1 | 4F114579 | ||
03412 | 0 02000 0 03423 | 1443 | TRA | FLTR03 | 4F11457A | ||
03413 | 0 50000 0 00365 | 1444 | FLTR01 | CLA | SBDFCN IS THIS A MAIN PROGRAM OR SUBPROGRAM. | 4F11457B | |
03414 | −0 10000 0 03420 | 1445 | TNZ | FLTR02 SKIP ON SUBPROGRAM | 4F11457C | ||
03415 | 0 60000 0 01107 | 1446 | STZ | 1C+2 SET ADDRESS TO 0 | 4F11457D | ||
03416 | 0 60000 0 01110 | 1447 | STZ | 1C+3 | 4F11457E | ||
03417 | 0 02000 0 03424 | 1448 | TRA | FLTR04 | 4F11457F | ||
03420 | 0 50000 0 01523 | 1449 | FLTR02 | CLA | DOLSGN SET ADDRESS TO $+2 | 4F11457G | |
03421 | 0 60100 0 01107 | 1450 | STO | 1C+2 | 4F11457H | ||
03422 | 0 50000 0 01457 | 1451 | CLA | D2 | 4F11457I | ||
03423 | 0 60100 0 01110 | 1452 | FLTR03 | STO | 1C+3 SET RELATIVE ADDRESS WORD OF CIT. | 4F11457J | |
03424 | 0 07400 4 01731 | 1453 | FLTR04 | TSX | CIT00,4 | 4F11457K | |
03425 | 0 00000 0 01406 | 1454 | PZE | L(0) COMPILE NTR *+2,0,EFN | 4F11457L | ||
03426 | 0 00000 0 02067 | 1455 | PZE | ENT | 4F11457M | ||
03427 | 0 00000 0 01510 | 1456 | PZE | 15P | 4F11457N | ||
03430 | 0 00000 0 01457 | 1457 | PZE | D2 | 4F11457O | ||
03431 | 0 07400 4 01731 | 1458 | TSX | CIT00,4 | 4F11457P | ||
03432 | 0 00000 0 01406 | 1459 | PZE | L(0) COMPILE PZE ALPHA,0,IFN | 4F11457Q | ||
03433 | 0 00000 0 02070 | 1460 | PZE | NZE WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR | 4F11457R | ||
03434 | 0 00000 0 01107 | 1461 | PZE | 1C+2 SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER | 4F11457S | ||
03435 | 0 00000 0 01110 | 1462 | PZE | 1C+3 MAIN OR SUBPROGRAM. | 4F11457T | ||
03436 | −0 53400 4 03437 | 1463 | LXD | FLTR05,4 | 4F11457U | ||
D | 03437 | 1 00000 4 01731 | 1464 | FLTR05 | TXI | CIT00,4 GO COMPILE LXD M(,4 OR 7(TYPE=,4 | 4F11457V |
1465 | 4F11457W | ||||||
1466 | 4F11458 | ||||||
1467 | END OF THE COMMON PART OF SECTION ONE. | 4F11459 | |||||
1468 | 4F11460 | ||||||
1469 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11461 | |||||
1470 | 4F11462 | ||||||
1471 | SECTION 1 / INITIALIZATION = | 4F11463 | |||||
00471 | 1472 | ORG | FORSUB | 4F11465 | |||
1473 | INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER | 4F11466 | |||||
1474 | BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE | 4F11467 | |||||
1475 | PROGRAM. | 4F11468 | |||||
1476 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11469 | |||||
1477 | 4F11470 | ||||||
1478 | PART I / CLEAR DRUMS 1,2,3,4, AND REWIND TAPES 2,3,4 = | 4F11471 | |||||
00471 | 0 53400 1 00504 | 1479 | CLDR00 | LXA | CLDR07,1 CLEAR DRUMS 1,2,3,4 TO +0. | 4F11472 | |
00472 | 0 76600 1 00305 | 1480 | CLDR01 | WRS | 197,1 X | 4F11473 | |
00473 | −0 53400 2 00504 | 1481 | LXD | CLDR07,2 X | 4F11474 | ||
00474 | 0 70000 0 00505 | 1482 | CLDR03 | CPY | CLDR08 X | 4F11475 | |
00475 | 2 00001 2 00474 | 1483 | TIX | CLDR03,2,1 X | 4F11476 | ||
00476 | 2 00001 1 00472 | 1484 | TIX | CLDR01,1,1 X | 4F11477 | ||
00477 | 0 77200 0 00222 | 1485 | REW | 146 REWIND WORKING TAPES 2,3,4. | 4F11478 | ||
00500 | 0 77200 0 00223 | 1486 | REW | 147 X | 4F11479 | ||
00501 | 0 77200 0 00224 | 1487 | REW | 148 X | 4F11480 | ||
00502 | 0 07400 4 05702 | 1488 | DMWR99 | TSX | CA100,4 * GO TO SUBROUTINE TO LOAD FT REGION. | 4F11540 | |
00503 | 0 02000 0 03440 | 1489 | TRA | CA010 * GO BEGIN STATE A OF SECTION ONE. | 4F11541 | ||
1490 | END OF INITIALIZATION / PART 2. | 4F11542 | |||||
1491 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11543 | |||||
1492 | 4F11544 | ||||||
1493 | PART3 / VARIABLES AND CONSTANTS USED BY INITIALIZATION= | 4F11545 | |||||
00504 | 0 04000 0 00004 | 1494 | CLDR07 | PZE | 4,,2048 CONSTANT FOR CLEARING DRUMS. | 4F11548 | |
00505 | 0 00000 0 00000 | 1495 | CLDR08 | PZE | 0 CONSTANT FOR CLEARING DRUMS. | 4F11549 | |
1496 | END OF INITIALIZATION / PART 3. | 4F11552 | |||||
1497 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11553 | |||||
1498 | 4F11554 | ||||||
1499 | 4F11555 | ||||||
1500 | SECTION 1 / STATEA = | 4F11556 | |||||
1501 | 4F11558 | ||||||
1502 | NAME FUNCTION | 4F11559 | |||||
1503 | PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS= | 4F11560 | |||||
1504 | CA000 ASSEMBLE STATEMENT. | 4F11561 | |||||
1505 | CD000 SCAN FOR HOLLERITH AND ILLEGAL CHS. | 4F11562 | |||||
1506 | CB000 CLASSIFY=ARITHMETIC/NON-ARITHMETIC. | 4F11563 | |||||
1507 | CC000 CLASSIFY=WHICH NON-ARITHMETIC. | 4F11564 | |||||
1508 | PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS. | 4F11565 | |||||
1509 | C0100 DO. | 4F11566 | |||||
1510 | C0200 GO TO. | 4F11567 | |||||
1511 | C0300 IF. | 4F11568 | |||||
1512 | C0400 IF (SENSE SWITCH. | 4F11569 | |||||
1513 | C0500 IF (SENSE LIGHT. | 4F11570 | |||||
1514 | C0600 IF DIVIDE CHECK. | 4F11571 | |||||
1515 | C0700 IF AC OVERFLOW. | 4F11572 | |||||
1516 | C0800 IF MQ OVERFLOW. | 4F11573 | |||||
1517 | C0900 PAUSE. | 4F11574 | |||||
1518 | C1000 ASSIGN. | 4F11575 | |||||
1519 | C1100 SENSE LIGHT. | 4F11576 | |||||
1520 | C1200 DIMENSION. | 4F11577 | |||||
1521 | C1300 STOP. | 4F11578 | |||||
1522 | C1400 FREQUENCY. | 4F11579 | |||||
1523 | C1500 EQUIVALENCE. | 4F11580 | |||||
1524 | C1600 CONTINUE. | 4F11581 | |||||
1525 | C3000(C3500) SUBROUTINE / FUNCTION. | 4F11582 | |||||
1526 | C3100 COMMON. | 4F11583 | |||||
1527 | C3200 RETURN. | 4F11584 | |||||
1528 | C3300 CALL. | 4F11585 | |||||
1529 | C3400 END. | 4F11586 | |||||
1530 | PART 3 / PROCESS INPUT-OUTPUT STATEMENTS= | 4F11587 | |||||
1531 | RDC READ CARD | 4F11588 | |||||
1532 | RIT READ INPUT TAPE. | 4F11589 | |||||
1533 | RDP PRINT. | 4F11590 | |||||
1534 | WOT WRITE OUTPUT TAPE. | 4F11591 | |||||
1535 | PDC PUNCH. | 4F11592 | |||||
1536 | WBT WRITE TAPE. | 4F11593 | |||||
1537 | RBT READ TAPE. | 4F11594 | |||||
1538 | WRD WRITE DRUM. | 4F11595 | |||||
1539 | RDD READ DRUM. | 4F11596 | |||||
1540 | EFT END FILE. | 4F11597 | |||||
1541 | RWN REWIND. | 4F11598 | |||||
1542 | BSP BACKSPACE. | 4F11599 | |||||
1543 | FOR FORMAT. | 4F11600 | |||||
1544 | RSC RESET AND SCAN. | 4F11601 | |||||
1545 | LISTR CONTROL FOR LIST SCAN. | 4F11602 | |||||
1546 | LPR LEFT PARENTHESES IN LIST SCAN. | 4F11603 | |||||
1547 | EOS EQUAL SIGN IN LIST SCAN. | 4F11604 | |||||
1548 | SPCTR CONTROL FOR SPECIFICATION SCAN. | 4F11605 | |||||
1549 | SPC SUBSCRIPT SPECIFICATIONS. | 4F11606 | |||||
1550 | RPR RIGHT PARENTHESIS IN LIST SCAN. | 4F11607 | |||||
1551 | CMA COMMA IN LIST SCAN. | 4F11608 | |||||
1552 | EMK ENDMARK IN LIST SCAN. | 4F11609 | |||||
1553 | PART 4 / SUBROUTINES USED BY STATE A= | 4F11610 | |||||
1554 | BEG(TYP),4 BEGIN SCAN AND TYPE TEST. | 4F11611 | |||||
1555 | BEGTR CONTROL FOR BEGINNING SCAN. | 4F11612 | |||||
1556 | BRW,4 BINARY READ OR WRITE COMPILER. | 4F11613 | |||||
1557 | BSS,2 COMPILES= IFN BSS 0. | 4F11614 | |||||
1558 | CA100,4 READ SOURCE PROGRAM TAPE. | 4F11615 | |||||
1559 | CC500,4 SCAN DICTIONARY. | 4F11616 | |||||
1560 | ETM(LTM)SW,4 IF SW=NOP, COMPILES ETM(LTM). SL=0. | 4F11617 | |||||
1561 | IFFIX,1 SETS UP FORVAR OR FORVAL ENTRY. | 4F11618 | |||||
1562 | IN(OUT)PUT,2 COMPILES CAL *, AND XIT (LEV). | 4F11619 | |||||
1563 | LIB,1 MAKES CLOSUB ENTRY, COMPILES CIT. | 4F11620 | |||||
1564 | VRA(VRD),4 MAKES FORVAR, FIXCON, CIT ENTRIES. | 4F11621 | |||||
1565 | PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. | 4F11622 | |||||
1566 | DIC DICTIONARY. | 4F11623 | |||||
1567 | T TRANSFER TABLE. | 4F11624 | |||||
1568 | 4F11625 | ||||||
1569 | THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= | 4F11626 | |||||
1570 | 4F11627 | ||||||
1571 | ** IN THE ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION | 4F11628 | |||||
1572 | INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. | 4F11629 | |||||
1573 | * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF | 4F11630 | |||||
1574 | THIS LOGICAL BLOCK OR SUBROUTINE. | 4F11631 | |||||
1575 | C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. | 4F11632 | |||||
1576 | P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). | 4F11633 | |||||
1577 | 4F11634 | ||||||
1578 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11635 | |||||
1579 | 4F11636 | ||||||
1580 | STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= | 4F11637 | |||||
03440 | 1581 | ORGA | ORG | 1824 | 4F11638 | ||
1582 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11639 | |||||
03440 | 1583 | STATEA | BSS | 0 | 4F11640 | ||
1584 | CA000/ CALLS=CA100,SR6DC1,TET00,DIAG. | 4F11641 | |||||
1585 | CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO ASSIGNS AN IFN. | 4F11642 | |||||
03440 | −0 53400 4 02575 | 1586 | CA010 | LXD | ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN | 4F11643 | |
03441 | −3 00000 4 03400 | 1587 | TXL | DIAG,4,0 * PROCESSED, THEN GO CALL DIAGNOSTIC. | 4F11644 | ||
03442 | −0 53400 1 00030 | 1588 | LXD | EIFNO,1 KEEP INTERNAL FORMULA NUMBER | 4F11645 | ||
03443 | 1 00001 1 03444 | 1589 | TXI | CA013,1,1 (DECR PART OF EIFNO) | 4F11646 | ||
03444 | −0 63400 1 00030 | 1590 | CA013 | SXD | EIFNO,1 UP TO DATE BY ADDING 1. | 4F11647 | |
03445 | −0 50000 0 01333 | 1591 | CAL | FT OBTAIN HOLLERITH CODED 5-DIGIT | 4F11648 | ||
03446 | 0 77100 0 00006 | 1592 | ARS | 6 EXTERNAL FORMULA NO IN ACC, | 4F11649 | ||
03447 | 0 60200 0 01151 | 1593 | SLW | F−1 AND RETAIN IN F-01. | 4F11650 | ||
03450 | −0 53400 1 01670 | 1594 | LXD | DCF,1 INITIALIZE INDEX A TO COMPL OF F. | 4F11651 | ||
03451 | 0 53400 2 01400 | 1595 | CA018 | LXA | L(11),2 SET UP LOOP FOR 11 CYCLES. | 4F11652 | |
03452 | 0 56000 2 01347 | 1596 | CA019 | LDQ | FT+12,2 MOVE WORD FROM REG1ON FT | 4F11653 | |
03453 | −0 60000 1 00000 | 1597 | STQ | 0,1 TO REGION F. | 4F11654 | ||
03454 | 2 00001 1 03455 | 1598 | TIX | CA020,1,1 KEEP F-REGION ADDRESS UP-TO-DATE. | 4F11655 | ||
03455 | 2 00001 2 03452 | 1599 | CA020 | TIX | CA019,2,1 TEST END OF LOOP. | 4F11656 | |
03456 | 0 07400 4 05702 | 1600 | TSX | CA100,4 * GO READ NEXT NON-BLANK CARD. | 4F11657 | ||
03457 | −0 50000 0 01333 | 1601 | CAL | FT TEST RIGHTMOST CHARACTER OF | 4F11658 | ||
03460 | −0 32000 0 01374 | 1602 | ANA | L(63) FIRST WORD FOR CONTINUATION MARK, | 4F11659 | ||
03461 | 0 10000 0 03464 | 1603 | TZE | CA021 IF ZERO OR BLANK, | 4F11660 | ||
03462 | 0 40200 0 01430 | 1604 | SUB | ABLANK DISCONTINUE READING, | 4F11661 | ||
03463 | −0 10000 0 03451 | 1605 | TNZ | CA018 OTHERWISE CONTINUE. | 4F11662 | ||
03464 | 0 50000 0 01526 | 1606 | CA021 | CLA | BLANKS BEGIN SCANNING REGION F BACKWARDS | 4F11663 | |
03465 | 0 34000 1 77777 | 1607 | CA022 | CAS | −1,1 T0 FIND FIRST NON BLANK WORD. | 4F11664 | |
03466 | 0 02000 0 03470 | 1608 | TRA | CA023 NOT BLANK. | 4F11665 | ||
03467 | 1 00001 1 03465 | 1609 | TXI | CA022,1,1 BLANK, SO CONTINUE SCAM. | 4F11666 | ||
03470 | 0 56000 0 01531 | 1610 | CA023 | LDQ | 36ONES PLACE BINARY ONES IN FIRST WORD | 4F11667 | |
03471 | −0 60000 1 00000 | 1611 | STQ | 0,1 FOLLOWING RIGHTMOST NONBLANK WORD. | 4F11668 | ||
03472 | −0 50000 0 01151 | 1612 | CAL | F−1 PICK UP EXTERNAL FORMULA NUMBER AND | 4F11669 | ||
03473 | 0 34000 0 01477 | 1613 | CAS | 5BLANS COMPARE WITH /0 /. | 4F11670 | ||
03474 | 0 02000 0 03476 | 1614 | TRA | CA015 NOT COMPARE. | 4F11671 | ||
03475 | 0 02000 0 03503 | 1615 | TRA | CD000 * TAKE EXTFORMNO, IF ANY, AND | 4F11672 | ||
03476 | 0 76500 0 00043 | 1616 | CA015 | LRS | 35 GO TO CONVERSION SUBROUTINE AND | 4F11673 | |
03477 | 0 07400 1 02566 | 1617 | TSX | SR6DC1,1 * RETURN HERE WITH RESULT IN ACC. | 4F11674 | ||
03500 | 0 62100 0 00030 | 1618 | STA | EIFNO STORE RESULT IN ADDRESS OF EIFNO. | 4F11675 | ||
03501 | 0 07400 1 03321 | 1619 | TSX | TET00,1 * GO TO PROGRAM TET TO ENTER EIFNO | 4F11676 | ||
03502 | 0 00000 0 00000 | 1620 | PZE | 0 INTO TABLE TEIFNO (TABLE O). | 4F11677 | ||
1621 | END OF PROGRAM CA000. | 4F11678 | |||||
1622 | * * *,* * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11679 | |||||
1623 | 4F11680 | ||||||
1624 | CD000/ CALLS=C0190X,C0190,DIAG. | 4F11681 | |||||
1625 | CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. | 4F11682 | |||||
03503 | 0 07400 4 01671 | 1626 | CD000 | TSX | C0190X,4 * SET SCAN TO PICK UP 1ST CHARACTER. | 4F11683 | |
03504 | 0 07400 1 03534 | 1627 | CD001 | TSX | CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER | 4F11684 | |
03505 | 0 34000 0 01376 | 1628 | CAS | COMMA SCAN | 4F11685 | ||
D | 03506 | 1 00000 0 03510 | 1629 | TXI | CD002,0 FOR | 4F11686 | |
D | 03507 | 1 00000 0 03512 | 1630 | TXI | CD003,0 HOLLERITH | 4F11687 | |
03510 | 0 40200 0 01375 | 1631 | CD002 | SUB | OPEN SPECIFICATION | 4F11688 | |
03511 | −0 10000 0 03504 | 1632 | TNZ | CD001 WHICH | 4F11689 | ||
03512 | 0 07400 1 03534 | 1633 | CD003 | TSX | CD900,1 * CAN BE= | 4F11690 | |
03513 | 0 40200 0 01373 | 1634 | SUB | L(10) , N H | 4F11691 | ||
03514 | 0 12000 0 03504 | 1635 | TPL | CD001 OR = ( N H. | 4F11692 | ||
03515 | 0 07400 1 03534 | 1636 | CD004 | TSX | CD900,1 * IF NOT ENDMARK OR ILLEGAL CHARACTER | 4F11693 | |
03516 | 0 34000 0 01417 | 1637 | CAS | L(9) CONTINUE SCAN. | 4F11694 | ||
D | 03517 | 1 00000 0 03522 | 1638 | TXI | CD005,0 N | 4F11695 | |
D | 03520 | 1 00000 0 03515 | 1639 | TXI | CD004,0 IS | 4F11696 | |
D | 03521 | 1 00000 0 03515 | 1640 | TXI | CD004,0 A | 4F11697 | |
03522 | 0 34000 0 01423 | 1641 | CD005 | CAS | L(H) FIXED | 4F11698 | |
D | 03523 | 1 00000 0 03505 | 1642 | TXI | CD001+1,0 POINT | 4F11699 | |
D | 03524 | 1 00000 0 03526 | 1643 | TXI | CD700,0 INTEGER. | 4F11700 | |
D | 03525 | 1 00000 0 03505 | 1644 | TXI | CD001+1,0 X | 4F11701 | |
03526 | 0 07400 4 01707 | 1645 | CD700 | TSX | C0190,4 * G0 GET NEXT NONBLANK CHARACTER, | 4F11702 | |
03527 | 0 34000 0 01374 | 1646 | CAS | ENDMK AND IF ENDMARK, | 4F11703 | ||
D | 03530 | 1 00000 0 03532 | 1647 | TXI | CD701,0 THEN SKIP | 4F11704 | |
D | 03531 | 1 00000 0 03616 | 1648 | TXI | CC000,0 * TO NON-ARITHMETIC CLASSIFICATI0N. | 4F11705 | |
03532 | 0 07400 1 03543 | 1649 | CD701 | TSX | CD600,1 * SINCE HOLLERITH HAS BEEN FOUND, | 4F11706 | |
D | 03533 | 1 00000 0 03526 | 1650 | TXI | CD700,0 THEN S IS LEGAL IN FORMAT TEXT. | 4F11707 | |
03534 | 0 07400 4 01707 | 1651 | CD900 | TSX | C0190,4 * OBTAIN NEXT NONBLANK CHARACTER, | 4F11708 | |
03535 | 0 34000 0 01374 | 1652 | CAS | ENDMK AND IF NOT | 4F11709 | ||
D | 03536 | 1 00000 0 03540 | 1653 | TXI | CD800,0 ENDMARK, THEN SKIP | 4F11710 | |
D | 03537 | 1 00000 0 03562 | 1654 | TXI | CB000,0 * EXIT TO ARITH/NON-ARITH SCAN. | 4F11711 | |
03540 | 0 34000 0 01427 | 1655 | CD800 | CAS | SPECOP CMECK FOR S | 4F11712 | |
D | 03541 | 1 00000 0 03546 | 1656 | TXI | CD601,0 WHICH, UNLESS HOLLERITH, IS AN | 4F11713 | |
03542 | 0 07400 4 03400 | 1657 | TSX | DIAG,4 * ERROR -- G0 T0 DIAGNOSTIC. | 4F11714 | ||
03543 | 0 34000 0 01435 | 1658 | CD600 | CAS | PM CMECK FOR RECORD MARK | 4F11715 | |
03544 | 0 02000 1 00001 | 1659 | TRA | 1,1 WHICH IS AN | 4F11716 | ||
03545 | 0 07400 4 03400 | 1660 | TSX | DIAG,4 * ERROR -- GO,TO DIAGNOSTIC. | 4F11717 | ||
03546 | 0 34000 0 01426 | 1661 | CD601 | CAS | CHAR3 CHECK FOR MINUS ZERO | 4F11718 | |
03547 | 0 02000 1 00001 | 1662 | TRA | 1,1 WHICH IS AN | 4F11719 | ||
03550 | 0 07400 4 03400 | 1663 | TSX | DIAG,4 * ERROR --,GO TO DIAGNOSTIC. | 4F11720 | ||
03551 | 0 34000 0 01424 | 1664 | CAS | CHAR2 CHECK FOR PLUS ZERO | 4F11721 | ||
03552 | 0 02000 1 00001 | 1665 | TRA | 1,1 WHICH IS AN | 4F11722 | ||
03553 | 0 07400 4 03400 | 1666 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11723 | ||
03554 | 0 34000 0 01420 | 1667 | CAS | MINUS CHECK FOR MINUS SIGN | 4F11724 | ||
03555 | 0 02000 1 00001 | 1668 | TRA | 1,1 WHICH IS AN | 4F11725 | ||
03556 | 0 07400 4 03400 | 1669 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11726 | ||
03557 | 0 40200 0 01373 | 1670 | SUB | TEN CHECK FOR TEN | 4F11727 | ||
03560 | −0 10000 1 00001 | 1671 | TNZ | 1,1 WHICH IS AN | 4F11728 | ||
03561 | 0 07400 4 03400 | 1672 | TSX | DIAG,4 * ERROR -- GO TO DIAGNOSTIC. | 4F11729 | ||
1673 | END OF PROGRAM CD000. | 4F11730 | |||||
1674 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11731 | |||||
1675 | 4F11732 | ||||||
1676 | CB000/ CALLS=C0190X,C0190,DIAG. | 4F11733 | |||||
1677 | CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC. | 4F11734 | |||||
03562 | 0 53400 1 01407 | 1678 | CB000 | LXA | L(1),1 SET XR1 TO COUNT PARENTHESES. | 4F11735 | |
03563 | 0 07400 4 01671 | 1679 | TSX | C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. | 4F11736 | ||
03564 | 0 07400 4 01707 | 1680 | CB001 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. | 4F11737 | |
03565 | 0 34000 0 01400 | 1681 | CAS | AEQUAL IF AN EQUAL SIGN, | 4F11738 | ||
D | 03566 | 1 00000 0 03570 | 1682 | TXI | CB005,0 THEN | 4F11739 | |
D | 03567 | 1 00000 0 03601 | 1683 | TXI | CB200,0 GO TEST PAREN-COUNT. | 4F11740 | |
03570 | 0 34000 0 01375 | 1684 | CB005 | CAS | ALPAR IF A LEFT PARENTHESIS, | 4F11741 | |
D | 03571 | 1 00000 0 03573 | 1685 | TXI | CB006,0 THEN | 4F11742 | |
03572 | 1 00001 1 03564 | 1686 | TXI | CB001,1,1 UPDATE PAREN-COUNT BY 1. | 4F11743 | ||
03573 | 0 34000 0 01377 | 1687 | CB006 | CAS | ARPAR IF A RIGHT PARENTHESIS, | 4F11744 | |
D | 03574 | 1 00000 0 03576 | 1688 | TXI | CB007,0 THEN | 4F11745 | |
D | 03575 | 1 00000 0 03614 | 1689 | TXI | CB500,0 GO TEST PAREN-COUNT. | 4F11746 | |
03576 | 0 40200 0 01374 | 1690 | CB007 | SUB | ENDMK IF NOT ENDMARK, THEN | 4F11747 | |
03577 | −0 10000 0 03564 | 1691 | TNZ | CB001 GO EXAMINE NEXT CHARACTER. | 4F11748 | ||
D | 03600 | 1 00000 0 03616 | 1692 | TXI | CC000,0 * OTHERWISE, GO TO DIC LOOK-UP. | 4F11749 | |
03601 | 2 00001 1 03616 | 1693 | CB200 | TIX | CC000,1,1 * IF EQUAL WAS,NOT WITHIN PARENS, | 4F11750 | |
03602 | 0 07400 4 01707 | 1694 | CB201 | TSX | C0190,4 * THEN EXAMINE NEXT CHARACTER. | 4F11751 | |
03603 | 0 34000 0 01375 | 1695 | CAS | ALPAR IF LEFT PAR6NTHESIS, | 4F11752 | ||
D | 03604 | 1 00000 0 03606 | 1696 | TXI | CB205,0 THEN | 4F11753 | |
D | 03605 | 1 00000 0 06323 | 1697 | TXI | ARITH,0 * THIS IS AN ARITHMETIC FORMULA. | 4F11754 | |
03606 | 0 34000 0 01376 | 1698 | CB205 | CAS | ACOMMA IF A COMMA, | 4F11755 | |
D | 03607 | 1 00000 0 03611 | 1699 | TXI | CB206,0 THEN | 4F11756 | |
D | 03610 | 1 00000 0 03616 | 1700 | TXI | CC000,0 * GO TO NO,-ARITHMETIC DIC LOOK-UP. | 4F11757 | |
03611 | 0 40200 0 01374 | 1701 | CB206 | SUB | ENDMK IF NOT ENDMARK, THEN | 4F11758 | |
03612 | −0 10000 0 03602 | 1702 | TNZ | CB201 GO EXAMINE NEXT CHARACTER. | 4F11759 | ||
D | 03613 | 1 00000 0 06323 | 1703 | TXI | ARITH,0 * THIS IS AN ARITHMETIC FORMULA. | 4F11760 | |
03614 | 2 00001 1 03564 | 1704 | CB500 | TIX | CB001,1,1 IF PAREN-COUNT DOES NOT BALANCE, | 4F11761 | |
03615 | 0 07400 4 03400 | 1705 | TSX | DIAG,4 * ERROR-GO TO DIAGNOSTIC ROUTINE. | 4F11762 | ||
1706 | END 0F PROGRAM CB000. | 4F11763 | |||||
1707 | * * * * * * * * * * * * * * * . * * * * * * * * * * * * * * * | 4F11764 | |||||
1708 | 4F11765 | ||||||
1709 | CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00. | 4F11766 | |||||
1710 | CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITH.ETIC. | 4F11767 | |||||
03616 | 0 60000 0 01113 | 1711 | CC000 | STZ | 2G SET DICTIONARY WORD TAG, AND | 4F11768 | |
03617 | 0 53400 3 01406 | 1712 | LXA | L(0),3 CHARACTER COUNT AND ENTRY COUNT. | 4F11769 | ||
03620 | 0 07400 4 01671 | 1713 | CC001 | TSX | C0190X,4 * RESET CHCTR AND FWA TO BEGIN SCAN. | 4F11770 | |
03621 | 0 07400 4 05743 | 1714 | TSX | CC500,4 * EXAMINE NEXT DICTI0NARY CHARACTER. | 4F11771 | ||
03622 | 0 34000 0 01374 | 1715 | CAS | ENDMK TEST FOR CONSECUTIVE ENDMARKS. | 4F11772 | ||
03623 | 0 02000 0 03272 | 1716 | TRA | ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. | 4F11773 | ||
03624 | 0 07400 4 03400 | 1717 | TSX | DIAG,4 * ERROR = NOT FOUND IN DICTIONARY. | 4F11774 | ||
D | 03625 | 1 00000 0 03632 | 1718 | TXI | CC004,0 GO BEGIN COMPARISON. | 4F11775 | |
03626 | 0 07400 4 05743 | 1719 | CC002 | TSX | CC500,4 * EXAMINE NEXT DICTIONARY CHARACTER. | 4F11776 | |
03627 | 0 34000 0 01374 | 1720 | CAS | ENDMK TEST FOR END OF DIC ENTRY. | 4F11777 | ||
D | 03630 | 1 00000 0 03272 | 1721 | TXI | ERR77P,0 * MACHINE ERROR, GO T0 DIAGNOSTIC. | 4F11778 | |
D | 03631 | 1 00000 0 03644 | 1722 | TXI | CC007,0 IF END OF ENTRY, LOOK NO FURTHER. | 4F11779 | |
03632 | 0 60100 0 01105 | 1723 | CC004 | STO | 1C OTHERWISE, SAVE CHARACTER | 4F11780 | |
03633 | −0 60000 0 01106 | 1724 | STQ | 1C+1 AND REMAINDER OF DICTIONARY WORD. | 4F11781 | ||
03634 | 0 07400 4 01707 | 1725 | TSX | C0190,4 * GO GET NEXT FORMULA CHARACTER, | 4F11782 | ||
03635 | 0 56000 0 01106 | 1726 | LDQ | 1C+1 AND RESTORE DICTIONARY WORD. | 4F11783 | ||
03636 | 0 40200 0 01105 | 1727 | SUB | 1C IF CHARACTERS ARE EQUAL, | 4F11784 | ||
03637 | 0 10000 0 03626 | 1728 | TZE | CC002 THEN GO COMPARE NEXT CHARACTERS. | 4F11785 | ||
03640 | 0 07400 4 05743 | 1729 | CC005 | TSX | CC500,4 * OTHERWISE, EXAMINE NEXT DIC CHAR. | 4F11786 | |
03641 | 0 40200 0 01374 | 1730 | SUB | ENDMK CONTINUE JNTIL AN ENDMARK IS | 4F11787 | ||
03642 | −0 10000 0 03640 | 1731 | TNZ | CC005 FOUND, THEN | 4F11788 | ||
03643 | 1 77777 1 03620 | 1732 | TXI | CC001,1,−1 COUNT ENTRY, AND BEGIN AGAIN. | 4=11789 | ||
03644 | 0 50000 1 06246 | 1733 | CC007 | CLA | T,1 IF THE CURRENT STATEMENT IS | 4F11790 | |
03645 | 0 12000 1 06246 | 1734 | TPL | T,1 OF THE NON-EXECUTABLE TYPE, | 4F11791 | ||
03646 | −0 63400 1 01107 | 1735 | SXD | 1C+2,1 THEN | 4F11792 | ||
03647 | 0 07400 1 03321 | 1736 | TSX | TET00,1 * GO ENTER EIFNO IN THE | 4F11793 | ||
03650 | 0 00000 0 00016 | 1737 | PZE | 14 NONEXC TABLE. | 4F11794 | ||
03651 | −0 53400 1 01107 | 1738 | LXD | 1C+2,1 AND THEN | 4F11795 | ||
03652 | 0 02000 1 06246 | 1739 | CC008 | TRA | T,1 * TAKE INDICATED TRANSFER. | 4F11796 | |
1740 | END 0F PROGRAM CC000. | 4F11797 | |||||
1741 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11798 | |||||
1742 | 4F11799 | ||||||
1743 | STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS= | 4F11800 | |||||
1744 | 4F11801 | ||||||
1745 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11802 | |||||
1746 | 4F11803 | ||||||
1747 | C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00. | 4F11804 | |||||
1748 | C0100 PROCESSES DO STATEMENTS. | 4F11805 | |||||
03653 | 0 07400 4 02366 | 1749 | C0100 | TSX | GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. | 4F11806 | |
03654 | 0 07400 4 01707 | 1750 | TSX | C0190,4 * OBTAIN 1ST NON-BLANK CHARACTER | 4F11807 | ||
03655 | 0 07400 4 03315 | 1751 | TSX | TESTI0,4 * WHICH SHOULD BE NUMERIC. | 4F11808 | ||
03656 | 0 07400 2 01655 | 1752 | TSX | C0180,2 * OBTAIN IN 1G THE BIN EQUIV OF BETA. | 4F11809 | ||
03657 | 0 60100 0 01113 | 1753 | STO | 2G SAVE THE 1ST CHAR OF SUBSCRIPT. | 4F11810 | ||
03660 | 0 50000 0 01112 | 1754 | CLA | 1G TAKE CONVERTED RESULT FOR BETA | 4F11811 | ||
03661 | 0 62100 0 01105 | 1755 | STA | 1C AND STORE IN ADDR OF 1C. | 4F11812 | ||
03662 | 0 50000 0 01113 | 1756 | CLA | 2G 1C IS NOW COMPLETE EXCEPT FOR TAG. | 4F11813 | ||
03663 | 0 07400 2 01624 | 1757 | TSX | C0160,2 * OBTAIN IN 1G THE SUBSCRIPT. | 4F11814 | ||
03664 | 0 50000 0 01112 | 1758 | CLA | 1G STORE SUBSCRIPT | 4F11815 | ||
03665 | 0 60100 0 01106 | 1759 | STO | 1C+1 IN 1C+1. | 4F11816 | ||
03666 | 0 07400 2 01604 | 1760 | TSX | C0150,2 * OBTAIN IN 1G THE PROPER N1. | 4F11817 | ||
03667 | 0 50000 0 01112 | 1761 | CLA | 1G STORE N1 | 4F11818 | ||
03670 | 0 60100 0 01107 | 1762 | STO | 1C+2 IN 1C+2. | 4F1.819 | ||
03671 | −0 50000 0 01353 | 1763 | CAL | I OBTAIN I IN LOGICAL ACC AND | 4F11820 | ||
03672 | 0 77100 0 00022 | 1764 | ARS | 18 STORE IN POS 18 OF 1C | 4F11821 | ||
03673 | −0 60200 0 01105 | 1765 | ORS | 1C 0 IF NUMERIC, OR 1 IF NO,-NUMERIC. | 4F11822 | ||
03674 | 0 07400 2 01604 | 1766 | TSX | C0150,2 * OBTAIN IN 1G THE PROPER N2. | 4F11823 | ||
03675 | 0 07400 4 03247 | 1767 | TSX | TESTA0,4 * TEST THE AC FOR COMMA OR ENDMARK. | 4F11824 | ||
03676 | −0 10000 0 03701 | 1768 | TNZ | C0113 IF ENDMARK, THEN | 4F11825 | ||
03677 | −0 77300 0 00037 | 1769 | RQL | 31 CREATE ONE IN MQ FOR N3 | 4F11826 | ||
03700 | −0 60000 0 01365 | 1770 | STQ | RESIDU AND PLACE IN RESIDU. | 4F11827 | ||
03701 | 0 50000 0 01112 | 1771 | C0113 | CLA | 1G STORE N2 | 4F11820 | |
03702 | 0 60100 0 01110 | 1772 | STO | 1C+3 IN 1C+3. | 4F11829 | ||
03703 | −0 50000 0 01353 | 1773 | CAL | I OBTAIN I IN LOG ACC AND | 4F11830 | ||
03704 | 0 77100 0 00023 | 1774 | ARS | 19 STORE IN POS 19 OF 1C | 4F11831 | ||
03705 | −0 60200 0 01105 | 1775 | ORS | 1C 0 IF NUMERIC, OR 1 IF NON-NUMERIC. | 4F11832 | ||
03706 | 0 07400 2 01604 | 1776 | TSX | C0150,2 * OBTAIN IN 1G THE PROPER N3. | 4F11833 | ||
03707 | 0 07400 4 03271 | 1777 | TSX | TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. | 4F11834 | ||
03710 | 0 50000 0 01112 | 1778 | CLA | 1G STORE N3 | 4F11835 | ||
03711 | 0 60100 0 01111 | 1779 | STO | 1C+4 IN 1C+4. | 4F11836 | ||
03712 | −0 50000 0 01353 | 1780 | CAL | I OBTAIN I IN LOG ACC AND | 4F11837 | ||
03713 | 0 77100 0 00024 | 1781 | ARS | 20 STORE IN POS 20 OF 1C | 4F11838 | ||
03714 | −0 60200 0 01105 | 1782 | ORS | 1C O IF NUMERIC, OR 1 IF NON-NUMERIC. | 4F11839 | ||
03715 | 0 07400 1 03321 | 1783 | TSX | TET00,1 * GO TO TET PROGRAM TO ENTER | 4F11840 | ||
03716 | 0 00000 0 00001 | 1784 | PZE | 1 1C,1C+1,..1C+4 IN TDO TABLE 1. | 4F11841 | ||
D | 03717 | 1 00000 0 03440 | 1785 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F11842 | |
1786 | END OF PROGRAM C0100. | 4F11843 | |||||
1787 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11844 | |||||
1788 | 4F11845 | ||||||
1789 | C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160, | 4F11846 | |||||
1790 | CIT00,SS000(CSA000). | 4F11847 | |||||
1791 | C0200 PROCESSES GO TO STATEMENTS. | 4F11848 | |||||
03720 | 0 07400 4 02366 | 1792 | C0200 | TSX | GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C | 4F11849 | |
03721 | 0 60100 0 01107 | 1793 | STO | 1C+2 AND IN 1C+2. | 4F11850 | ||
03722 | 0 07400 4 01707 | 1794 | TSX | C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER | 4F11851 | ||
03723 | 0 34000 0 01417 | 1795 | CAS | L(9) AND COMPARE IT WITH 9. | 4F11852 | ||
D | 03724 | 1 00000 0 03733 | 1796 | TXI | C0205,0 IF NON-NUMERIC, GO COMPARE WITH (. | 4F11853 | |
03725 | 0 76100 0 00000 | 1797 | NOP | IF NUMERIC, THEN | 4F11854 | ||
03726 | 0 07400 2 01655 | 1798 | TSX | C0180,2 * OBTAIN IN 1G THE BINARY EQUV BETA. | 4F11855 | ||
03727 | 0 07400 4 03271 | 1799 | TSX | TESTD0,4 * THE AC SHOULD CONTAIN AN ENDMARK. | 4F11856 | ||
03730 | 0 50000 0 01112 | 1800 | CLA | 1G STORE BETA IN 1C+1 TO CONSTRUCT | 4F11857 | ||
03731 | 0 60100 0 01106 | 1801 | STO | 1C+1 THE 2ND WORD OF TIFGO TABLE ENTRY. | 4F11858 | ||
D | 03732 | 1 00000 0 04030 | 1802 | TXI | C0202,0 GO TO ENTER 1C,1C+1 INTO TIFGO. | 4F11859 | |
03733 | 0 34000 0 01375 | 1803 | C0205 | CAS | ALPAR TEST CHARACTER FOR ALPHABETIC. | 4F11860 | |
D | 03734 | 1 00000 0 03736 | 1804 | TXI | C0210,0 IF NOT ALPHABETIC, THEN | 4F11861 | |
D | 03735 | 1 00000 0 03746 | 1805 | TXI | C0212,0 THIS IS TYPE= GO TO ( ), I. | 4F11862 | |
03736 | 0 07400 2 01624 | 1806 | C0210 | TSX | C0160,2 * TYPE= GO TO N,(),SO OBTAIN IN 1G N | 4F11863 | |
03737 | 0 07400 4 03305 | 1807 | TSX | TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. | 4F11864 | ||
03740 | 0 50000 0 01112 | 1808 | CLA | 1G SAVE THE SYMBOL N IN 1C+3 | 4F11865 | ||
03741 | 0 60100 0 01110 | 1809 | STO | 1C+3 FOR COMPILED INSTRUCTION. | 4F11866 | ||
03742 | 0 07400 4 01707 | 1810 | TSX | C0190,4 * OBTAIN IN ACC NEXT NB CHARACTER, | 4F11867 | ||
03743 | 0 07400 4 03275 | 1811 | TSX | TESTE0,4 * WHICH SHOULD BE A LPAREN. | 4F11868 | ||
03744 | 0 50000 0 01407 | 1812 | CLA | L(1) PREPARE TO SET ADDRESS PART OF 1C | 4F11869 | ||
03745 | 0 02000 0 03747 | 1813 | TRA | C0213 TO 1 TO INDICATE CLASS OF TRANSFER. | 4F11870 | ||
03746 | 0 50000 0 01410 | 1814 | C0212 | CLA | L(2) PREPARE TO SET ADDR OF 1C TO 2. | 4F11871 | |
03747 | 0 62100 0 01105 | 1815 | C0213 | STA | 1C STORE 1 OR 2 IN ADDR OF 1C. | 4F11872 | |
03750 | −0 53400 2 04032 | 1816 | LXD | CTRAD,2 OBTAIN 250-(NO. TRAD ENTRIES), AND | 4F11873 | ||
03751 | −0 75400 2 00000 | 1817 | PXD | ,2 PLACE IN THE DECREMENT OF THE AC | 4F11874 | ||
03752 | 0 60100 0 01106 | 1818 | STO | 1C+1 AND STORE IN 1C+1. | 4F11875 | ||
03753 | 0 07400 4 01707 | 1819 | C0215 | TSX | C0190,4 * OBTAIN IN ACC NEXT NB CHAR. | 4F11876 | |
03754 | 0 07400 2 01655 | 1820 | TSX | C0180,2 * OBTAIN IN 1G THE BIN EQU OF BETA. | 4F11877 | ||
03755 | 0 60100 0 01113 | 1821 | STO | 2G SAVE CHAR IN ACC. | 4F11878 | ||
03756 | 0 07400 1 03321 | 1822 | TSX | TET00,1 * GO TO ENTER 1G | 4F11879 | ||
03757 | 0 00000 0 00003 | 1823 | PZE | 3 INTO TRAD TABLE (TABLE 3). | 4F11880 | ||
03760 | −0 53400 2 04032 | 1824 | LXD | CTRAD,2 REDUCE COUNTER | 4F11881 | ||
03761 | 2 00001 2 03762 | 1825 | TIX | C0216,2,1 CTRAD | 4F11882 | ||
03762 | −0 63400 2 04032 | 1826 | C0216 | SXD | CTRAD,2 BY 1. | 4F11883 | |
03763 | 0 50000 0 01113 | 1827 | CLA | 2G RESTORE CHAR TO ACC. | 4F11884 | ||
03764 | 0 07400 4 03255 | 1828 | TSX | TESTB0,4 * TEST FOR COMMA OR RPAREN. | 4F11885 | ||
03765 | −0 10000 0 03753 | 1829 | TNZ | C0215 IF RIGHT PARENTHESIS, THEN | 4F11886 | ||
03766 | 0 50000 0 04032 | 1830 | CLA | CTRAD OBTAIN IN ADDR OF ACC 250-NO. OF | 4F11887 | ||
03767 | 0 77100 0 00022 | 1831 | ARS | 18 ENTRIES IN TRAD TABLE,AND STORE | 4F11888 | ||
03770 | 0 62100 0 01106 | 1832 | STA | 1C+1 IN ADDR OF 1C+1. | 4F11889 | ||
03771 | 0 50000 0 01105 | 1833 | CLA | 1C OBTAIN 1C IN ACC | 4F11890 | ||
03772 | 0 76000 0 00001 | 1834 | LBT | AND TEST L0W ORDER BIT. | 4F11891 | ||
03773 | 0 02000 0 04004 | 1835 | TRA | C0220 THIS IS A TYPE GO TO (),I FORMULA. | 4F11892 | ||
03774 | 0 07400 4 01707 | 1836 | TSX | C0190,4 * OBTAIN NEXT NB CHAR AND | 4F11893 | ||
03775 | 0 07400 4 03271 | 1837 | TSX | TESTD0,4 * TEST FOR ENDMK. | 4F11894 | ||
03776 | 0 07400 4 01731 | 1838 | TSX | CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY= | 4F11895 | ||
03777 | 0 00000 0 01107 | 1839 | PZE | 1C+2 WORD 1--DECR= INTFORMNO (LOCATION) | 4F11896 | ||
04000 | 0 00000 0 01601 | 1840 | PZE | L(TRA) WORD 2--TRA000 (OP AND DECR) | 4F11897 | ||
04001 | 0 00000 0 01110 | 1841 | PZE | 1C+3 WORD 3--VARIABLE N IADDRESS) | 4F11898 | ||
04002 | 0 00000 0 01406 | 1842 | PZE | L(0) WORD 4--000000 IREL ADDR AND TAG). | 4F11899 | ||
04003 | 0 02000 0 04030 | 1843 | TRA | C0202 GO TO ENTER 1C,1C+1 INTO TIFGO. | 4F11900 | ||
04004 | 0 07400 4 01707 | 1844 | C0220 | TSX | C0190,4 * EXAMINE NEXT NB CHARACTER, | 4F11901 | |
04005 | 0 07400 4 03305 | 1845 | TSX | TESTG0,4 * WHICH SHOULD BE A COMMA. | 4F11902 | ||
04006 | 0 07400 4 01707 | 1846 | TSX | C0190,4 * OBTAIN IN ACC NEXT NB CHAR, ANO | 4F11903 | ||
04007 | 0 07400 2 01624 | 1847 | TSX | C0160,2 * OBTAIN IN 1G THE FXD-PT. VARIABLE, | 4F11904 | ||
04010 | 0 07400 4 03271 | 1848 | TSX | TESTD0,4 * WHICH SHOULD BE FOLLOWED BY ENDMK. | 4F11905 | ||
04011 | 0 50000 0 01407 | 1849 | CLA | L(1) PREPARE PROPER FORM OF SUBSCRIPT | 4F11906 | ||
04012 | 0 60100 0 01131 | 1850 | STO | E+3 COMBINATION AS | 4F11907 | ||
04013 | 0 60100 0 01100 | 1851 | STO | DIMCTR INPUT T0 SUBSCRIPT ANALYSIS= | 4F11908 | ||
04014 | 0 50000 0 01112 | 1852 | CLA | 1G E+3 = 1ST COEFFICIENT, | 4F11909 | ||
04015 | 0 60100 0 01132 | 1853 | STO | E+4 E+6 = 1ST SUBSCRIPT VARIABLE, | 4F11910 | ||
04016 | 0 60000 0 01137 | 1854 | STZ | E+9 E+9 = ADDEND OF SUBSCRIPT, | 4F11911 | ||
04017 | 0 07400 4 03027 | 1855 | TSX | CSA000,4 * DIMCTR = DIMENSION OF VARIABLE. | 4F11912 | ||
04020 | 0 50000 0 01126 | 1856 | CLA | E OUTPUT FROM CSA IS FOUND IN | 4F11913 | ||
04021 | 0 77100 0 00030 | 1857 | ARS | 24 E = I--TAUTAG (GENERAL TAG) 1-11. | 4F11914 | ||
04022 | 0 60100 0 01113 | 1858 | STO | 2G ADJUST AND SAVE FOR COMP. 1NSTR. | 4F11915 | ||
04023 | 0 07400 4 01731 | 1859 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F11916 | ||
04024 | 0 00000 0 01107 | 1860 | PZE | 1C+2 WORD 1--DECR-INTFORMNO(LOCAT1ON) | 4F11917 | ||
04025 | 0 00000 0 01601 | 1861 | PZE | L(TRA) WORD 2--TRA000(OP ANO 0ECR) | 4F11918 | ||
04026 | 0 00000 0 01406 | 1862 | PZE | L(0) WORD 3--000000(ADDRESS) | 4F11919 | ||
04027 | 0 00000 0 01113 | 1863 | PZE | 2G WORD 4--ADDR = TAUTAG FOR I | 4F11920 | ||
1864 | C0200= ENTPY POINT USED BY C0400,C1000. | 4F11921 | |||||
04030 | 0 07400 1 03321 | 1865 | C0202 | TSX | TET00,1 * GO TO TET TO ENTER 1C AND 1C+1 | 4F11922 | |
04031 | 0 00000 0 00002 | 1866 | PZE | 2 INTO TIFGO TABLE ITABLE 2). | 4F11923 | ||
04032 | 1 00372 0 03440 | 1867 | CTRAD | TXI | CA010,0,250 * EXIT TO PROCESS NEXT STATEMENT. | 4F11924 | |
1868 | END OF PROGRAM C0200. | 4F11925 | |||||
1869 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11926 | |||||
1870 | 4F11927 | ||||||
1871 | C030O/ CALLS=C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00, | 4F11928 | |||||
1872 | =STATEB. | 4F11929 | |||||
1873 | C0300 PROCESSES IF STATEMENTS. | 4F11930 | |||||
04033 | −0 53400 4 00030 | 1874 | C0300 | LXD | EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA | 4F11931 | |
04034 | −0 75400 4 00000 | 1875 | PXD | ,4 NUMBER IN THE DECREMENT OF 1C | 4F11932 | ||
04035 | −0 76000 0 00003 | 1876 | SSM | WITH SIGN SET TO MINUS | 4F11933 | ||
04036 | 0 60100 0 01105 | 1877 | STO | 1C FOR FUTURE TIFGO ENTRY. | 4F11934 | ||
04037 | 0 07400 4 01671 | 1878 | TSX | C0190X,4 * SET CHCTR AND FWA TO BEGIN SCAN. | 4F11935 | ||
04040 | 0 07400 4 01707 | 1879 | TSX | C0190,4 * OBTAIN IN AC THE 1ST NB CHAR (I). | 4F11936 | ||
04041 | 0 56000 0 01433 | 1880 | LDQ | L(X) REPLACE THE CHARACTER I | 4F11937 | ||
04042 | 0 07400 4 01675 | 1881 | TSX | C0390,4 * WITH THE CHARACTER X. | 4F11938 | ||
04043 | 0 56000 0 01373 | 1882 | LDQ | L(10) REPLACE THE CHARACTER F | 4F11939 | ||
04044 | 0 07400 4 01675 | 1883 | TSX | C0390,4 * WITH THE CHARACTER 001010. | 4F11940 | ||
04045 | 0 07400 4 03275 | 1884 | TSX | TESTE0,4 * IF NOT LPAREN -- THEN ERROR. | 4F11941 | ||
04046 | 0 56000 0 01400 | 1885 | LDQ | AEQUAL REPLACE THE CHARACTER LPAREN | 4F11942 | ||
04047 | 0 07400 4 01675 | 1886 | TSX | C0390,4 * WITH THE CHARACTER EQUAL. | 4F11943 | ||
04050 | 0 53400 2 01407 | 1887 | LXA | L(1),2 SET XR2 FOR COUNTING PARENTHESES. | 4F11944 | ||
04051 | 0 02000 0 04053 | 1888 | TRA | *+2 | 4F11945 | ||
04052 | 0 07400 4 01707 | 1889 | C0302 | TSX | C0190,4 * MAKE SURE THAT NEXT NB CHARACTER | 4F11946 | |
04053 | 0 34000 0 01374 | 1890 | CAS | ENDMK IS NOT AN ENDMARK. | 4F11947 | ||
04054 | 0 02000 0 03272 | 1891 | TRA | ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. | 4F11948 | ||
04055 | 0 07400 4 03400 | 1892 | TSX | DIAG,4 * PROGRAM ERROR, GO TO DIAGNOSTIC. | 4F11949 | ||
04056 | 0 34000 0 01375 | 1893 | CAS | ALPAR IF IT IS A LPAREN, | 4F11950 | ||
D | 04057 | 1 00000 0 04061 | 1894 | TXI | C0303,0 THEN ADD 1 TO PAREN COUNT, AND | 4F11951 | |
04060 | 1 00001 2 04052 | 1895 | TXI | C0302,2,1 GO EXAMINE NEXT CHARACTER. | 4F11952 | ||
04061 | 0 40200 0 01377 | 1896 | C0303 | SUB | ARPAR IF IT IS A RPAREN, | 4F11953 | |
04062 | −0 10000 0 04052 | 1897 | TNZ | C0302 THEN TEST PAREN COUNT, AND IF IT | 4F11954 | ||
04063 | 2 00001 2 04052 | 1898 | TIX | C0302,2,1 CAN NO, BE REDUCED,MATE IS FOUND. | 4F11955 | ||
04064 | 0 56000 0 01374 | 1899 | LDQ | ENDMK SO REPLACE THE CHARACTER RPAREN | 4F11956 | ||
04065 | 0 07400 4 01675 | 1900 | TSX | C0390,4 * WITH THE CHARACTER ENDMK. | 4F11957 | ||
04066 | 0 07400 2 01655 | 1901 | TSX | C0180,2 * BINARY EQUIVALENT OF BETA 1. | 4F11958 | ||
04067 | 0 07400 4 03305 | 1902 | TSX | TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA. | 4F11959 | ||
04070 | 0 50000 0 01112 | 1903 | CLA | 1G MOVE BETA1 | 4F11960 | ||
04071 | 0 62100 0 01105 | 1904 | STA | 1C TO ADDRESS OF 1C. | 4F11961 | ||
04072 | 0 07400 4 01707 | 1905 | TSX | C0190,4 * AND PROCEED TO FORM | 4F11962 | ||
04073 | 0 07400 2 01655 | 1906 | TSX | C0180,2 * THE BINARY EQUIVALENT OF BETA 2. | 4F11963 | ||
04074 | 0 07400 4 03305 | 1907 | TSX | TESTG0,4 * THIS SHOULD BE FOLLOWED BY A COMMA. | 4F11964 | ||
04075 | 0 50000 0 01112 | 1908 | CLA | 1G MOVE BETA2 | 4F11965 | ||
04076 | 0 76700 0 00022 | 1909 | ALS | 18 TO DECR PART | 4F11966 | ||
04077 | 0 60100 0 01106 | 1910 | STO | 1C+1 OF 1C+1. | 4F11967 | ||
04100 | 0 07400 4 01707 | 1911 | TSX | C0190,4 * AND PROCEED TO FORM | 4F11968 | ||
04101 | 0 07400 2 01655 | 1912 | TSX | C0180,2 * THE BINARY EQUIVALENT OF BETA 3. | 4F11969 | ||
04102 | 0 07400 4 03271 | 1913 | TSX | TESTD0,4 * THIS SHOULD BE FOLLOWED BY ENOMARK. | 4F11970 | ||
04103 | 0 50000 0 01112 | 1914 | CLA | 1G MOVE BETA3 | 4F11971 | ||
04104 | 0 62100 0 01106 | 1915 | STA | 1C+1 TO ADDRESS OF 1C+1. | 4F11972 | ||
D | 04105 | 1 00000 0 06323 | 1916 | TXI | ARITH,0 * EXIT T0 ARITH FOR FINAL PROCESSING. | 4F11973 | |
1917 | END OF PROGRAM C0300. | 4F11974 | |||||
1918 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F11975 | |||||
1919 | 4F11976 | ||||||
1920 | C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200. | 4F11977 | |||||
1921 | C0400 PROCESSES IF (SENSE SWITCH STATEMENTS. | 4F11978 | |||||
04106 | 0 50000 0 01441 | 1922 | C0400 | CLA | L(112) FOR SENSE SWITCH | 4F11979 | |
04107 | 0 60100 0 01115 | 1923 | STO | 1H SET 1H TO 112, AND PREPARE TO | 4F11980 | ||
04110 | 0 50000 0 01565 | 1924 | CLA | L(PSE) SET 2H TO PSE. | 4F11981 | ||
1925 | C0401= ENTRY POINT USED BY C0500. | 4F11982 | |||||
04111 | 0 60100 0 01116 | 1926 | C0401 | STO | 2H SET 2H FOR SENSE SWITCH OR LIGHT. | 4F11983 | |
04112 | 0 07400 4 01707 | 1927 | TSX | C0190,4 * PROCEED TO FORM THE BINARY | 4F11984 | ||
04113 | 0 07400 2 01655 | 1928 | TSX | C0180,2 * EQUIVALENT OF SW OR SL NUMBER. | 4F11985 | ||
04114 | 0 07400 4 03301 | 1929 | TSX | TESTF0,4 * THIS SHOULD BE FOLLOWED BY RPAREN. | 4F11986 | ||
04115 | 0 50000 0 01411 | 1930 | CLA | L(3) STORE 3 | 4F11987 | ||
04116 | 0 60100 0 01105 | 1931 | STO | 1C IN ADDRESS 0F 1C. | 4F11988 | ||
04117 | 0 50000 0 01112 | 1932 | CLA | 1G ADD THE PROPER INCREMENT TO THE | 4F11989 | ||
04120 | 0 40000 0 01115 | 1933 | ADD | 1H NUMBER OF SENSE SWITCH OR LIGHT, | 4F11990 | ||
04121 | 0 76700 0 00022 | 1934 | ALS | 18 AND ADJUST TO THE DECREMENT. | 4F11991 | ||
1935 | C0402= ENTRY POINT USED BY C0600. | 4F11992 | |||||
04122 | 0 60100 0 01110 | 1936 | C0402 | STO | 1C+3 SET 1C+3 FOR CIT ENTRY. | 4F11993 | |
04123 | −0 53400 4 00030 | 1937 | LXD | EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA | 4F11994 | ||
04124 | −0 75400 4 00000 | 1938 | PXD | ,4 NUMBER IN THE DECREMENT OF | 4F11995 | ||
04125 | 0 62200 0 01105 | 1939 | STD | 1C 1C FOR FUTURE TIFGO ENTRY, AND | 4F11996 | ||
04126 | 0 60100 0 01107 | 1940 | STO | 1C+2 1C+2 FOR FUTURE CIT ENTRY. | 4F11997 | ||
04127 | 0 07400 4 01707 | 1941 | TSX | C0190,4 * PROCEED TO FORM THE BINARY | 4F11998 | ||
04130 | 0 07400 2 01655 | 1942 | TSX | C0180,2 * EQUIVALENT OF BETA 1, | 4F11999 | ||
04131 | 0 07400 4 03305 | 1943 | TSX | TESTG0,4 * WHICH SHOULD BE FOLLOWED BY COMMA. | 4F12000 | ||
04132 | 0 50000 0 01112 | 1944 | CLA | 1G BRING UP, | 4F12001 | ||
04133 | 0 76700 0 00022 | 1945 | ALS | 18 ADJUST AND | 4F12002 | ||
04134 | 0 60100 0 01106 | 1946 | STO | 1C+1 STORE BETA1 IN DECR OF 1C+1. | 4F12003 | ||
04135 | 0 07400 4 01707 | 1947 | TSX | C0190,4 * PROCEED TO FORM THE BINARY | 4F12004 | ||
04136 | 0 07400 2 01655 | 1948 | TSX | C0180,2 * EQUIVALENT OF BETA 2, | 4F12005 | ||
04137 | 0 07400 4 03271 | 1949 | TSX | TESTD0,4 * WHICH SHOULD BE FOLL0WED BY ENDMK. | 4F12006 | ||
04140 | 0 50000 0 01112 | 1950 | CLA | 1G BRING UP AND | 4F12007 | ||
04141 | 0 62100 0 01106 | 1951 | STA | 1C+1 STORE BETA2 IN ADDR OF 1C+1. | 4F12008 | ||
04142 | 0 07400 4 01731 | 1952 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12009 | ||
04143 | 0 00000 0 01107 | 1953 | PZE | 1C+2 WORD1--DECR = INTFORMNO (LOCATION) | 4F12010 | ||
04144 | 0 00000 0 01116 | 1954 | PZE | 2H WORD2--PSE,MSE,DCT,TOV,OR TQO. | 4F12011 | ||
04145 | 0 00000 0 01406 | 1955 | PZE | L(0) WORD3--000000 (ADDRESSI | 4F12012 | ||
04146 | 0 00000 0 01110 | 1956 | PZE | 1C+3 WORD4--DECR=SS OR SL NO., OR 000000 | 4F12013 | ||
D | 04147 | 1 00000 0 04030 | 1957 | TXI | C0202,0 * MAKE TIFGO ENTRY, AND RETURN TO CA. | 4F12014 | |
1958 | END OF PROGRAM C0400. | 4F12015 | |||||
1959 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12016 | |||||
1960 | 4F12017 | ||||||
1961 | C0500/ USES=C0400. | 4F12018 | |||||
1962 | C0500 PROCESSES IF (SENSE LIGHT STATEMENTS. | 4F12019 | |||||
04150 | 0 50000 0 01440 | 1963 | C0500 | CLA | L(96) STORE 96 IN | 4F12020 | |
04151 | 0 60100 0 01115 | 1964 | STO | 1H 1H AND | 4F12021 | ||
04152 | 0 50000 0 01563 | 1965 | CLA | L(MSE) OBTAIN (MSE000) IN ACC. | 4F12022 | ||
04153 | 0 02000 0 04111 | 1966 | TRA | C0401 * AND CONTINUE BY USING PROGRAM C04. | 4F12023 | ||
1967 | END OF PROGRAM C0500. | 4F12024 | |||||
1968 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12025 | |||||
1969 | 4F12026 | ||||||
1970 | C0600/ USES=C0400. | 4F12027 | |||||
1971 | C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. | 4F12028 | |||||
04154 | 0 50000 0 01545 | 1972 | C0600 | CLA | L(DCT) STORE (DCT000) | 4F12029 | |
04155 | 0 60100 0 01116 | 1973 | STO | 2H IN 2H | 4F12030 | ||
04156 | 0 50000 0 01412 | 1974 | CLA | L(4) AND PICK UP 4 TO SET 1C. | 4F12031 | ||
1975 | C0601= ENTRY POINT USED BY C0700. | 4F12032 | |||||
04157 | 0 60100 0 01105 | 1976 | C0601 | STO | 1C SET 1C FOR FUTURE TIFGO ENTRY. | 4F12033 | |
04160 | −0 75400 0 00000 | 1977 | PXD | ,0 CLEAR THE AC, | 4F12034 | ||
04161 | 0 02000 0 04122 | 1978 | TRA | C0402 * AND CONTINUE BY USING PROGRAM C04. | 4F12035 | ||
1979 | END OF PROGRAM C0600. | 4F12036 | |||||
1980 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12037 | |||||
1981 | 4F12038 | ||||||
1982 | C0700/ USES C0600. | 4F12039 | |||||
1983 | C0700 PROCESSES IF AC OVERFLOW STATEMENTS. | 4F12040 | |||||
04162 | 0 50000 0 01577 | 1984 | C0700 | CLA | L(TOV) PICKUP TOV000 TO SET 2H. | 4F12041 | |
1985 | C0701= ENTRY POINT USED BY C0800. | 4F12042 | |||||
04163 | 0 60100 0 01116 | 1986 | C0701 | STO | 2H SET 2H FOR FUTURE CIT ENTRY. | 4F12043 | |
04164 | 0 50000 0 01413 | 1987 | CLA | L(5) PICKUP 5 TO SET 1C, AND | 4F12044 | ||
04165 | 0 02000 0 04157 | 1988 | TRA | C0601 * CONTINUE BY USING PROGRAM C06. | 4F12045 | ||
1989 | END OF PROGRAM C0700. | 4F12046 | |||||
1990 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12047 | |||||
1991 | 4F12048 | ||||||
1992 | C0800/ USES=C0700. | 4F12049 | |||||
1993 | C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. | 4F12050 | |||||
04166 | 0 50000 0 01600 | 1994 | C0800 | CLA | L(TQO) PICKUP TQO000 TO SET 2H, | 4F12051 | |
04167 | 0 02000 0 04163 | 1995 | TRA | C0701 * AND CONTINUE BY USING PROGRAM C07. | 4F12052 | ||
1996 | END OF PROGRAM C0800. | 4F12053 | |||||
1997 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12054 | |||||
1998 | 4F12055 | ||||||
1999 | C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300. | 4F12056 | |||||
2000 | C0900 PROCESSES PAUSE STATEMENTS. | 4F12057 | |||||
04170 | −0 53400 2 04175 | 2001 | C0900 | LXD | C090X,2 SET XR2 FOR EXIT TO CA000. | 4F12058 | |
2002 | C0901= ENTRY POINT USED BY C1300. | 4F12059 | |||||
04171 | 0 60000 0 01112 | 2003 | C0901 | STZ | 1G CLEAR 1G. | 4F12060 | |
04172 | 0 07400 4 01707 | 2004 | C0902 | TSX | C0190,4 * TEST NEXT NON-BLANK CHARACTER | 4F12061 | |
04173 | 0 34000 0 01374 | 2005 | CAS | ENDMK FOR END OF STATEMENT MARK. | 4F12062 | ||
04174 | 0 02000 0 03272 | 2006 | TRA | ERR77P * MACHINE ERROR, GO TO DIAGNOSTIC. | 4F12063 | ||
04175 | 1 74341 0 04202 | 2007 | C090X | TXI | C0903,0,−CA010+1 IF NOT END OF STATEMENT, THEN | 4F12064 | |
04176 | 0 40000 0 01112 | 2008 | ADD | 1G ADD 1G TO DIGIT, | 4F12065 | ||
04177 | 0 76700 0 00003 | 2009 | ALS | 3 MULTIPLY BY 8, | 4F12066 | ||
04200 | 0 60100 0 01112 | 2010 | STO | 1G AND STORE BACK IN 1G. | 4F12067 | ||
D | 04201 | 1 00000 0 04172 | 2011 | TXI | C0902,0 CONTINUE UNTIL END OF STATEMENT. | 4F12068 | |
04202 | 0 50000 0 01112 | 2012 | C0903 | CLA | 1G THEN PLACE 0CTAL ALPHA | 4F12069 | |
04203 | 0 76700 0 00017 | 2013 | ALS | 15 IN THE DECREMENT | 4F12070 | ||
04204 | 0 60100 0 01105 | 2014 | STO | 1C OF 1C FOR FUTURE CIT ENTRY. | 4F12071 | ||
04205 | −0 53400 4 00030 | 2015 | LXD | EIFNO,4 PLACE THE CURRENT INTERNAL FORMULA | 4F12072 | ||
04206 | −0 75400 4 00000 | 2016 | PXD | ,4 NUMBER IN THE DECREMENT | 4F12073 | ||
04207 | 0 60100 0 01106 | 2017 | STO | 1C+1 OF 1C+1,WITH ZEROS ELSEWHERE. | 4F12074 | ||
04210 | 0 07400 4 01731 | 2018 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12075 | ||
04211 | 0 00000 0 01106 | 2019 | PZE | 1C+1 WORD1--DECR = INTFORMNO (LOCATION) | 4F12076 | ||
04212 | 0 00000 0 01554 | 2020 | PZE | L(HPR) WORD2--HPR000 (OP AND DECR) | 4F12077 | ||
04213 | 0 00000 0 01406 | 2021 | PZE | L(0) WORD3--000000 (ADDRESS) | 4F12078 | ||
04214 | 0 00000 0 01105 | 2022 | PZE | 1C WORD4--DECR = ALPHA, REST ZEROS. | 4F12079 | ||
04215 | 0 02000 2 00001 | 2023 | TRA | 1,2 * EXIT TO CA000, OR TO C1300. | 4F12080 | ||
2024 | END OF PROGRAM C0900. | 4F12081 | |||||
2025 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12082 | |||||
2026 | 4F12083 | ||||||
2027 | C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0160,TEST.. | 4F12084 | |||||
2028 | CIT00. | 4F12085 | |||||
2029 | C1000 PROCESSES ASSIGN STATEMENTS. | 4F12086 | |||||
04216 | 0 07400 4 02366 | 2030 | C1000 | TSX | GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C | 4F12087 | |
04217 | 0 60100 0 01107 | 2031 | STO | 1C+2 AND 1C+2,WITH ZEROS ELSEWHERE. | 4F12088 | ||
04220 | 0 50000 0 01414 | 2032 | CLA | L(6) STORE 6 IN | 4F12089 | ||
04221 | 0 62100 0 01105 | 2033 | STA | 1C ADDRE=S OF 1C. | 4F12090 | ||
04222 | 0 07400 2 01654 | 2034 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF ALPHA. | 4F12091 | ||
04223 | 0 40200 0 01432 | 2035 | SUB | L(T) IF NEXT CHARACTER IS NOT T, THEN | 4F12093 | ||
04224 | 0 10000 0 04226 | 2036 | TZE | *+2 THIS IS AN | 4F12094 | ||
04225 | 0 07400 4 03400 | 2037 | TSX | DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. | 4F12095 | ||
04226 | 0 07400 4 01707 | 2038 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER | 4F12096 | ||
04227 | 0 40200 0 01425 | 2039 | SUB | L(O) AND IF IT IS NOT O, THEN | 4F12097 | ||
04230 | −0 10000 0 04225 | 2040 | TNZ | *−3 ERROR, GO TO DIAGNOSTIC. | 4F12098 | ||
04231 | 0 50000 0 01112 | 2041 | CLA | 1G PUT BIN EQUIV OF ALPHA | 4F12099 | ||
04232 | 0 60100 0 01106 | 2042 | STO | 1C+1 IN ADDRESS OF 1C+1. | 4F12100 | ||
04233 | 0 07400 4 01707 | 2043 | TSX | C0190,4 * PROCEED TO ASSEMBLE IN 1G | 4F12101 | ||
04234 | 0 07400 2 01624 | 2044 | TSX | C0160,2 * THE SYMBOL N. | 4F12102 | ||
04235 | 0 07400 4 03271 | 2045 | TSX | TESTD0,4 * THE NEXT NB CHAR SHOULD BE ENDMK. | 4F12103 | ||
04236 | 0 07400 4 01731 | 2046 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12104 | ||
04237 | 0 00000 0 01107 | 2047 | PZE | 1C+2 WORD1--DECR = INTFORMNO (LOCATION) | 4F12105 | ||
04240 | 0 00000 0 01541 | 2048 | PZE | L(CLA) WORD2--CLA000 (OP AND DECR) | 4F12106 | ||
04241 | 0 00000 0 01406 | 2049 | PZE | L(0) WORD3--000000 (ADDRESS) | 4F12107 | ||
04242 | 0 00000 0 01406 | 2050 | PZE | L(0) WORD4--000000 (RELADDR AN0 TAG). | 4F12108 | ||
04243 | 0 07400 4 01731 | 2051 | TSX | CIT00,4 * STORE SECOND COMPILED INSTRUCTION= | 4F12109 | ||
04244 | 0 00000 0 01406 | 2052 | PZE | L(0) WORD1--0OOOO0 (ALL ZEROS) | 4F12110 | ||
04245 | 0 00000 0 01572 | 2053 | PZE | L(STO) WORD2--STO000 (OP AND DECR) | 4F12111 | ||
04246 | 0 00000 0 01112 | 2054 | PZE | 1G WORD3--SYMBOL N IADDRESS) | 4F12112 | ||
04247 | 0 00000 0 01406 | 2055 | PZE | L(0) WORD4--000000 (REL ADDR AND TAG). | 4F12113 | ||
04250 | 0 02000 0 04030 | 2056 | TRA | C0202 * CONTINUE BY USING PROGRAM C02. | 4F12114 | ||
2057 | END OF PROGRAM C1000. | 4F12115 | |||||
2058 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12116 | |||||
2059 | 4F12117 | ||||||
2060 | C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00. | 4F12118 | |||||
2061 | C1100 PROCESSES SENSE LIGHT STATEMENTS. | 4F12119 | |||||
04251 | 0 07400 2 01654 | 2062 | C1100 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF SL NUMBER. | 4F12120 | |
04252 | 0 07400 4 03271 | 2063 | TSX | TESTD0,4 * THE NEXT NB CHARACTER SHD BE ENDMK. | 4F12122 | ||
04253 | 0 50000 0 01112 | 2064 | CLA | 1G STORE SENSE LIGHT NUMBER | 4F12123 | ||
04254 | 0 40000 0 01440 | 2065 | ADD | L(96) PLUS 96 | 4F12124 | ||
04255 | 0 76700 0 00022 | 2066 | ALS | 18 IN DECR | 4F12125 | ||
04256 | 0 60100 0 01112 | 2067 | STO | 1G OF 1G. | 4F12126 | ||
04257 | 0 07400 4 02366 | 2068 | TSX | GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. | 4F12127 | ||
04260 | 0 07400 4 01731 | 2069 | TSX | CIT00,4 * G0 MAKE THE FOLLOWING CIT ENTRY= | 4F12128 | ||
04261 | 0 00000 0 01105 | 2070 | PZE | 1C WORD1--DECR = INTFORMNO (LOCATION) | 4F12129 | ||
04262 | 0 00000 0 01565 | 2071 | PZE | L(PSE) WORD2--PSE000 (OP AND DECREMENT) | 4F12130 | ||
04263 | 0 00000 0 01406 | 2072 | PZE | L(0) WORD3--000000 (ADDRESS PART) | 4F12131 | ||
04264 | 0 00000 0 01112 | 2073 | PZE | 1G WORD4--DECR = 96+ALPHA,REST ZEROS. | 4F12132 | ||
D | 04265 | 1 00000 0 03440 | 2074 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12133 | |
2075 | END OF PROGRAM C1100. | 4F12134 | |||||
2076 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12135 | |||||
2077 | 4F12136 | ||||||
2078 | C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS. | 4F12137 | |||||
2079 | C1200 PR0CESSES DIMENSION STATEMENTS. | 4F12138 | |||||
04266 | 0 07400 4 01707 | 2080 | C1200 | TSX | C0190,4 * PROCEED TO ASSEMBLE IN 1G | 4F12139 | |
04267 | 0 07400 2 01624 | 2081 | TSX | C0160,2 * THE VARIABLE SYMBOL. | 4F12140 | ||
04270 | 0 07400 4 03275 | 2082 | TSX | TESTE0,4 * NEXT NB CHARACTER SH0ULD BE LPAREN. | 4F12141 | ||
04271 | 0 50000 0 01112 | 2083 | CLA | 1G PUT VARIABLE SYMBOL | 4F12142 | ||
04272 | 0 60100 0 01105 | 2084 | STO | 1C IN 1C. | 4F12143 | ||
04273 | 0 60100 0 01130 | 2085 | STO | E+2 ALS0 IN E+2. THEN | 4F12144 | ||
04274 | 0 07400 4 01771 | 2086 | TSX | DIM1SR,4 * GO SEARCH DIM1 TABLE. | 4F12145 | ||
04275 | 0 02000 0 04277 | 2087 | TRA | C1280 THEN IF NOT | 4F12146 | ||
04276 | 0 02000 0 04304 | 2088 | TRA | C1299 FOUND, | 4F12147 | ||
04277 | 0 07400 4 01775 | 2089 | C1280 | TSX | DIM2SR,4 * GO SEAROH DIM2 TABLE. | 4F12148 | |
04300 | 0 02000 0 04302 | 2090 | TRA | C1281 THEN IF NOT | 4F12149 | ||
04301 | 0 02000 0 04304 | 2091 | TRA | C1299 FOUND, | 4F12150 | ||
04302 | 0 07400 4 02005 | 2092 | C1281 | TSX | DIM3SR,4 * GO SEARCH DIM3 TABLE. | 4F12151 | |
04303 | 0 02000 0 04305 | 2093 | TRA | C1282 DO NOT CONTINUE IF | 4F12152 | ||
04304 | 0 07400 4 03400 | 2094 | C1299 | TSX | DIAG,4 * VARIABLE PREVIOUSLY APPEARED. | 4F12153 | |
04305 | 0 07400 2 01654 | 2095 | C1282 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF D1. | 4F12154 | |
04306 | 0 40200 0 01377 | 2096 | SUB | CLOS IF NOT 1 DIMENSION, | 4F12156 | ||
04307 | 0 10000 0 04330 | 2097 | TZE | C1210 THEN | 4F12157 | ||
04310 | 0 50000 0 01112 | 2098 | CLA | 1G PUT D1 | 4F12158 | ||
04311 | 0 76700 0 00022 | 2099 | ALS | 18 IN DECR | 4F12159 | ||
04312 | 0 60100 0 01106 | 2100 | STO | 1C+1 OF 1C+1. | 4F12160 | ||
04313 | 0 07400 2 01654 | 2101 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF D2. | 4F12161 | ||
04314 | 0 40200 0 01377 | 2102 | SUB | CLOS IF NOT 2 DIMENSION, | 4F12163 | ||
04315 | 0 10000 0 04334 | 2103 | TZE | C1220 THEN | 4F12164 | ||
04316 | 0 50000 0 01112 | 2104 | CLA | 1G PUT D2 | 4F12165 | ||
04317 | 0 62100 0 01106 | 2105 | STA | 1C+1 IN ADDRESS OF 1C+1. | 4F12166 | ||
04320 | 0 07400 2 01654 | 2106 | TSX | C0180X,2 * GO FORM BINARY EQUIV 0F D3. | 4F12168 | ||
04321 | 0 40200 0 01377 | 2107 | SUB | CLOS IF MORE THAN 3 DIMENSION, | 4F12169 | ||
04322 | 0 10000 0 04324 | 2108 | TZE | *+2 THIS IS AN | 4F12170 | ||
04323 | 0 07400 4 03400 | 2109 | TSX | DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. | 4F12171 | ||
04324 | 0 50000 0 01112 | 2110 | CLA | 1G IF 3 DIMENSION, PUT D3 | 4F12172 | ||
04325 | 0 60100 0 01107 | 2111 | STO | 1C+2 IN 1C+2, AND | 4F12173 | ||
04326 | 0 07400 4 00467 | 2112 | TSX | DIM3IX,4 * GO MAKE DIM3 ENTRY. | 4F12174 | ||
D | 04327 | 1 00000 0 04337 | 2113 | TXI | C1201,0 GO TO TEST FOR END OF STATEMENT. | 4F12175 | |
04330 | 0 50000 0 01112 | 2114 | C1210 | CLA | 1G IF 1 DIMENSION, PUT D1 | 4F12176 | |
04331 | 0 60100 0 01106 | 2115 | STO | 1C+1 IN 1C+1, AND | 4F12177 | ||
04332 | 0 07400 4 00455 | 2116 | TSX | DIM1IX,4 * GO MAKE DIM1 ENTRY. THEN | 4F12178 | ||
D | 04333 | 1 00000 0 04337 | 2117 | TXI | C1201,0 GO TO TEST FOR END 0F STATEMENT. | 4F12179 | |
04334 | 0 50000 0 01112 | 2118 | C1220 | CLA | 1G IF 2 DIMENSION, PUT D2 IN | 4F12180 | |
04335 | 0 62100 0 01106 | 2119 | STA | 1C+1 ADDRESS PART OF 1C+1. AND | 4F12181 | ||
04336 | 0 07400 4 00462 | 2120 | TSX | DIM2IX,4 * GO MAKE DIM2 ENTRY. THEN | 4F12182 | ||
04337 | 0 07400 4 01707 | 2121 | C1201 | TSX | C0190,4 * OBTAIN NB CHAR FOLLOWING RPAREN. | 4F12183 | |
04340 | 0 07400 4 03247 | 2122 | TSX | TESTA0,4 * TEST FOR COMMA OR ENDMARK. | 4F12184 | ||
04341 | −0 10000 0 04266 | 2123 | TNZ | C1200 IF CHARACTER IS ENDMARK, THEN | 4F12185 | ||
D | 04342 | 1 00000 0 03440 | 2124 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12186 | |
2125 | END OF PROGRAM C1200. | 4F12187 | |||||
2126 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12188 | |||||
2127 | 4F12189 | ||||||
2128 | C1300/ CALLS=C0901,TET00,CIT00. | 4F12190 | |||||
2129 | C1300 PROCESSES STOP STATEMENTS. | 4F12191 | |||||
04343 | 0 07400 1 03321 | 2130 | C1300 | TSX | TET00,1 * GO MAKE EIFNO ENTRY | 4F12192 | |
04344 | 0 00000 0 00017 | 2131 | PZE | 15 IN TSTOP TABLE. | 4F12193 | ||
04345 | 0 07400 2 04171 | 2132 | TSX | C0901,2 * USE C0900 TO BEGIN PROCESSING. | 4F12194 | ||
04346 | 0 07400 4 01731 | 2133 | TSX | CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= | 4F12195 | ||
04347 | 0 00000 0 01406 | 2134 | PZE | L(0) WORD1--ALL ZEROS | 4F12196 | ||
04350 | 0 00000 0 01601 | 2135 | PZE | L(TRA) WORD2--TRA000 (OP+DECR) | 4F12197 | ||
04351 | 0 00000 0 01106 | 2136 | PZE | 1C+1 WORD3--DECR = INTFORMNO (SYMBOL) | 4F12198 | ||
04352 | 0 00000 0 01406 | 2137 | PZE | L(0) WORD4--ZEROS (REL ADDR AND TAG) | 4F12199 | ||
D | 04353 | 1 00000 0 03440 | 2138 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12200 | |
2139 | END OF PROGRAM C1300. | 4F12201 | |||||
2140 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12202 | |||||
2141 | 4F12203 | ||||||
2142 | C1400/ CALLS=C0190,C0180,TEST..,TET00. | 4F12204 | |||||
2143 | C1400 PROCESSES FREQUENCY STATEMENTS. | 4F12205 | |||||
04354 | 0 07400 2 01654 | 2144 | C1400 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF EFN. | 4F122006 | |
04355 | 0 07400 4 03275 | 2145 | TSX | TESTE0,4 * CHARACTER SHOULD BE A LPAREN. | 4F12208 | ||
04356 | 0 50200 0 01112 | 2146 | CLS | 1G CHANGE SIGN OF SYMBOL | 4F12209 | ||
04357 | 0 60100 0 01112 | 2147 | STO | 1G TO MINUS. | 4F12210 | ||
04360 | 0 07400 1 03321 | 2148 | TSX | TET00,1 * GO TO PROGRAM TET TO ENTER | 4F12211 | ||
04361 | 0 00000 0 00007 | 2149 | PZE | 7 SYMBOL INTO FRET (TABLE 7), AND | 4F12212 | ||
04362 | 0 07400 2 01654 | 2150 | C1401 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF M(1). | 4F12213 | |
04363 | 0 60100 0 01105 | 2151 | STO | 1C SAVE CHAR IN ACC. | 4F12215 | ||
04364 | 0 07400 1 03321 | 2152 | TSX | TET00,1 * GO TO PROGRAM TET TO ENTER M(1) | 4F12216 | ||
04365 | 0 00000 0 00007 | 2153 | PZE | 7 INTO TABLE FRET (TABLE7), AND | 4F12217 | ||
04366 | 0 50000 0 01105 | 2154 | CLA | 1C RESTORE CHAR IN ACC, AND | 4F12218 | ||
04367 | 0 07400 4 03255 | 2155 | TSX | TESTB0,4 * TEST FOR , OR ). | 4F12219 | ||
04370 | −0 10000 0 04362 | 2156 | TNZ | C1401 IF RIGHT PARENTHESIS, THEN | 4F12220 | ||
04371 | 0 07400 4 01707 | 2157 | TSX | C0190,4 * OBTAIN IN ACC NEXT NBCHAR, AND | 4F12221 | ||
04372 | 0 07400 4 03247 | 2158 | TSX | TESTA0,4 * TEST FOR COMMA OR ENDMARK. | 4F12222 | ||
04373 | −0 10000 0 04354 | 2159 | TNZ | C1400 IF ENDMARK, THIS STATEMENT IS DONE. | 4F12223 | ||
D | 04374 | 1 00000 0 03440 | 2160 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12224 | |
2161 | END OF PROGRAM C1400. | 4F12225 | |||||
2162 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12226 | |||||
2163 | 4F12227 | ||||||
2164 | C1500/ CALLS=C0190,TEST..,C0160,C01B0,TET00. | 4F12228 | |||||
2165 | C1500 PROCESSES EQUIVALENCE STATEMENTS. | 4F12229 | |||||
04375 | 0 07400 4 01707 | 2166 | C1500 | TSX | C0190,4 * OBTAIN NEXT NBCHAR IN ACC. | 4F12230 | |
04376 | 0 07400 4 03275 | 2167 | TSX | TESTE0,4 * CHARACTER SHOULD BE A LPAREN. | 4F12231 | ||
04377 | 0 50000 0 01407 | 2168 | C1501 | CLA | L(1) INITIALIZE 1C | 4F12232 | |
04400 | 0 60100 0 01106 | 2169 | STO | 1C+1 TO 1. | 4F12233 | ||
04401 | 0 07400 4 01707 | 2170 | TSX | C0190,4 * OBTAIN NEXT NBCHAR IN ACC AND | 4F12234 | ||
04402 | 0 07400 2 01624 | 2171 | TSX | C0160,2 * OBTAIN IN 1G THE SYMBOL V. | 4F12235 | ||
04403 | 0 56000 0 01112 | 2172 | LDQ | 1G MOVE V | 4F12236 | ||
04404 | −0 60000 0 01105 | 2173 | STQ | 1C INTO 1C. | 4F12237 | ||
04405 | 0 34000 0 01375 | 2174 | CAS | ALPAR EXAMINE CHARACTER LEFT IN THE AC, | 4F12238 | ||
D | 04406 | 1 00000 0 04416 | 2175 | TXI | C1503,0 AND IF | 4F12239 | |
D | 04407 | 1 00000 0 04411 | 2176 | TXI | C1502,0 CHARACTER IS A LEFT PARENTHESIS, | 4F12240 | |
D | 04410 | 1 00000 0 04416 | 2177 | TXI | C1503,0 THEN | 4F12241 | |
04411 | 0 07400 2 01654 | 2178 | C1502 | TSX | C0180X,2 * GO FORM BINARY EQUIV OF N. | 4F12242 | |
04412 | 0 07400 4 03301 | 2179 | TSX | TESTF0,4 * 1ST NON-NUMERIC SHOULD BE A RPAREN. | 4F12244 | ||
04413 | 0 50000 0 01112 | 2180 | CLA | 1G PUT BIN EQUIV OF N | 4F12245 | ||
04414 | 0 60100 0 01106 | 2181 | STO | 1C+1 IN 1C+1. | 4F12246 | ||
04415 | 0 07400 4 01707 | 2182 | TSX | C0190,4 * OBTAIN NEXT NBCHAR IN AC, AND | 4F12247 | ||
04416 | 0 07400 4 03255 | 2183 | C1503 | TSX | TESTB0,4 * TEST FOR COMMA OR RPAREN. | 4F12248 | |
04417 | 0 10000 0 04423 | 2184 | TZE | C1504 IF COMMA, THEN | 4F12249 | ||
04420 | 0 07400 1 03321 | 2185 | TSX | TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL | 4F12250 | ||
04421 | 0 00000 0 00010 | 2186 | PZE | 8 AND N IN EQUIT (TABLE 8), AND | 4F12251 | ||
D | 04422 | 1 00000 0 04377 | 2187 | TXI | C1501,0 RETURN TO CONTINUE PROCESSING X. | 4F12252 | |
04423 | 0 50200 0 01106 | 2188 | C1504 | CLS | 1C+1 MAKE SIGN OF N MINUS SINCE | 4F12253 | |
04424 | 0 60100 0 01106 | 2189 | STO | 1C+1 TNIS IS LAST ITEM. | 4F12254 | ||
04425 | 0 07400 1 03321 | 2190 | TSX | TET00,1 * GO TO PROGRAM TET TO ENTER SYMBOL | 4F12255 | ||
04426 | 0 00000 0 00010 | 2191 | PZE | 8 AND N IN EQUIT (TABLE 8), AND | 4F12256 | ||
04427 | 0 07400 4 01707 | 2192 | TSX | C0190,4 * OBTAIN NEXT NBCHAR IN ACC, AND | 4F12257 | ||
04430 | 0 07400 4 03247 | 2193 | TSX | TESTA0,4 * TEST FOR COMMA OR ENDMARK. | 4F12258 | ||
04431 | −0 10000 0 04375 | 2194 | TNZ | C1500 IF ENDMARK, THEN | 4F12259 | ||
D | 04432 | 1 00000 0 03440 | 2195 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12260 | |
2196 | END OF PROGRAM C1500. | 4F12261 | |||||
2197 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12262 | |||||
2198 | 4F12263 | ||||||
2199 | C1600/ CALLS=C0190,TEST..,GIF,BSS. | 4F12264 | |||||
2200 | C1600 PROCESSES CONTINUE STATEMENTS. | 4F12265 | |||||
04433 | 0 07400 4 01707 | 2201 | C1600 | TSX | C0190,4 * OBTAIN NEXT NBCHAR IN ACC. | 4F12266 | |
04434 | 0 07400 4 03271 | 2202 | TSX | TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. | 4F12267 | ||
04435 | 0 07400 4 02375 | 2203 | TSX | GIF,4 * GET INTERNAL FORMULA NUMBER, AND | 4F12268 | ||
04436 | 0 07400 2 05674 | 2204 | TSX | BSS,2 * GO COMPILE= IFN BSS 0. | 4F12269 | ||
D | 04437 | 1 00000 0 03440 | 2205 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12270 | |
2206 | END OF PROGRAM C1600. | 4F12271 | |||||
2207 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12272 | |||||
2208 | 4F12273 | ||||||
2209 | C3000/ CALLS=DIAG,C0190,C0160,TEST..,SUBX00,TET00,TESTFX. | 4F12274 | |||||
2210 | C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. | 4F12275 | |||||
04440 | −0 50000 0 00422 | 2211 | C3500 | CAL | TXHOP | 4F12276 | |
04441 | 0 63000 0 04454 | 2212 | STP | C3003 | 4F12277 | ||
04442 | −0 53400 4 00030 | 2213 | C3000 | LXD | EIFNO,4 EXAMINE INTERNAL FORMULA NO., AND | 4F12278 | |
04443 | −3 00001 4 04445 | 2214 | TXL | *+2,4,1 IF NOT THE 1ST STATEMENT, THEN | 4F12279 | ||
04444 | 0 07400 4 03400 | 2215 | TSX | DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. | 4F12280 | ||
04445 | 0 50000 0 01121 | 2216 | CLA | ARGCNT SET ARGCNT TO INDICATE TO LATER | 4F12281 | ||
04446 | 0 76000 0 00003 | 2217 | SSP | RETURN THAT THERE WAS A PRECEEDING | 4F12282 | ||
04447 | 0 60100 0 01121 | 2218 | STO | ARGCNT SUBROUTINE OR FUNCTION STATEMENT. | 4F12283 | ||
04450 | 0 07400 4 01707 | 2219 | TSX | C0190,4 * IF 1ST CHARACTER OF NAME IS | 4F12284 | ||
04451 | 0 07400 4 03311 | 2220 | TSX | TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC. | 4F12285 | ||
04452 | 0 07400 2 01624 | 2221 | TSX | C0160,2 * ASSEMBLE NAME IN 1G. | 4F12286 | ||
04453 | 0 07400 4 03263 | 2222 | TSX | TESTC0,4 * NEXT CHAR SHD BE LPAREN OR ENDMARK. | 4F12287 | ||
D | 04454 | −3 00000 0 04457 | 2223 | C3003 | TXL | *+3,0 | 4F12288 |
04455 | 0 50000 0 01112 | 2224 | CLA | 1G | 4F12289 | ||
04456 | 0 60100 0 01332 | 2225 | STO | FSNAME | 4F12290 | ||
04457 | 0 07400 4 03224 | 2226 | TSX | SUBX00,4 * FILL OUT NAME WITH BLANKS. | 4F12291 | ||
04460 | 0 07400 1 03321 | 2227 | TSX | TET00,1 * GO ENTER NAME | 4F12292 | ||
04461 | 0 00000 0 00013 | 2228 | PZE | 11 IN SUBDEF TABLE. | 4F12293 | ||
04462 | −0 53400 4 00030 | 2229 | LXD | EIFNO,4 PLACE | 4F12294 | ||
04463 | −0 75400 4 00000 | 2230 | PXD | ,4 INTERNAL FORMULA NUMBER | 4F12295 | ||
04464 | 0 60100 0 01347 | 2231 | STO | G IN G. | 4F12296 | ||
D | 04465 | 1 00000 0 04506 | 2232 | TXI | C3002,0 GO TEST FOR END OF STATEMENT. | 4F12297 | |
04466 | 0 40000 0 01374 | 2233 | C3001 | ADD | ENDMK IF NOT ENDMARK, RESTORE CHARACTER | 4F12298 | |
04467 | 0 07400 4 03311 | 2234 | TSX | TESTH0,4 * WHICH SHOULD BE NON-NUMERIC | 4F12299 | ||
04470 | 0 60100 0 01331 | 2235 | STO | FIRSTC 1ST CHARACTER OF ARGUMENT. | 4F12300 | ||
04471 | 0 07400 2 01624 | 2236 | TSX | C0160,2 * ASSEMBLE ARGUMENT IN 1G. | 4F12301 | ||
04472 | 0 07400 4 03255 | 2237 | TSX | TESTB0,4 * NEXT CHAR SHD BE COMMA OR RPAREN. | 4F12302 | ||
04473 | 0 50000 0 01112 | 2238 | CLA | 1G MOVE ARGUMENT | 4F12303 | ||
04474 | 0 60100 0 01350 | 2239 | STO | G+1 INTO G+1. | 4F12304 | ||
04475 | 0 07400 1 03241 | 2240 | TSX | TESTFX,1 * GO TEST FOR FIXED OR FLOATING PT. | 4F12305 | ||
D | 04476 | 1 00000 0 04501 | 2241 | TXI | C3004,0 IF FLOATING PT., SKIP FORVAL ENTRY. | 4F12306 | |
04477 | 0 07400 1 03321 | 2242 | TSX | TET00,1 * IF FIXED POINT, GO MAKE ENTRY | 4F12307 | ||
04500 | 0 00000 0 00006 | 2243 | PZE | 6 IN FORVAL TABLE. | 4F12308 | ||
04501 | 0 07400 1 03321 | 2244 | C3004 | TSX | TET00,1 * IN BOTH CASES, MAKE ENTRIES IN | 4F12309 | |
04502 | 0 00000 0 00013 | 2245 | PZE | 11 SUBDEF TABLE. | 4F12310 | ||
04503 | 0 50000 0 01121 | 2246 | CLA | ARGCNT UPDATE | 4F12311 | ||
04504 | 0 40000 0 01454 | 2247 | ADD | D1 ARGUMENT COUNT | 4F12312 | ||
04505 | 0 60100 0 01121 | 2248 | STO | ARGCNT BY 1. AND | 4F12313 | ||
04506 | 0 07400 4 01707 | 2249 | C3002 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER. | 4F12314 | |
04507 | 0 40200 0 01374 | 2250 | SUB | ENDMK IF NOT ENDMARK, THEN | 4F12315 | ||
04510 | −0 10000 0 04466 | 2251 | TNZ | C3001 GO PROCESS NEXT ARGUMENT. | 4F12316 | ||
D | 04511 | 1 00000 0 03440 | 2252 | TXI | CA010,0 * OTHERWISE, EXIT TO CA000. | 4F12317 | |
2253 | END OF PROGRAM C3000. | 4F12318 | |||||
2254 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12319 | |||||
2255 | 4F12320 | ||||||
2256 | C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00. | 4F12321 | |||||
2257 | C3100 PROCESSES COMMON STATEMENTS. | 4F12322 | |||||
04512 | 0 07400 4 01707 | 2258 | C3100 | TSX | C0190,4 * GET FIRST NON-BLANK CHAR OF SYMBOL | 4F12323 | |
04513 | 0 07400 4 03311 | 2259 | TSX | TESTH0,4 * WHICH SHOULD BE NON-NUMERIC. | 4F12324 | ||
04514 | 0 07400 2 01624 | 2260 | TSX | C0160,2 * ASSEMBLE SYMBOL IN 1G, AND TEST | 4F12325 | ||
04515 | 0 07400 4 03247 | 2261 | TSX | TESTA0,4 * NEXT CHARACTER FOR COMMA OR ENDMK. | 4F12326 | ||
04516 | 0 73400 4 00000 | 2262 | PAX | ,4 SAVE RESULT OF TEST IN XR4, AND | 4F12327 | ||
04517 | 0 07400 1 03321 | 2263 | TSX | TET00,1 * GO ENTER THIS SYMBOL | 4F12328 | ||
04520 | 0 00000 0 00014 | 2264 | PZE | 12 IN COMMON TABLE. | 4F12329 | ||
04521 | 0 50000 0 00365 | 2265 | CLA | SBDFCN ANY ENTRIES IN SUBDEF | 4F123291 | ||
04522 | 0 10000 0 04534 | 2266 | TZE | C3101 INDICATE THIS IS NOT A | 4F123292 | ||
04523 | 0 50000 0 01454 | 2267 | CLA | 2E18 MAIN PROGRAM. SINCE THIS | 4F123293 | ||
04524 | 0 60100 0 01347 | 2268 | STO | G IS A COMMON | 4F123294 | ||
04525 | −0 50000 0 01112 | 2269 | CAL | 1G STATEMENT WHICH | 4F123296 | ||
04526 | 0 60200 0 01350 | 2270 | SLW | G+1 APPEARS IN A SUBPROGRAM | 4F123297 | ||
04527 | 0 77100 0 00036 | 2271 | ARS | 30 ENTER ANY4 | 4F123298 | ||
04530 | 0 07400 1 03242 | 2272 | TSX | TESTFX+1,1 * FIXED POINT | 4F123299 | ||
04531 | 0 02000 0 04534 | 2273 | TRA | C3101 VARIABLES | 4F12330 | ||
04532 | 0 07400 1 03321 | 2274 | TSX | TET00,1 * IN | 4F123301 | ||
04533 | 0 00000 0 00006 | 2275 | PZE | 6 FORVAL TABLE. | 4F123302 | ||
04534 | 3 00000 4 04512 | 2276 | C3101 | TXH | C3100,4,0 IF CHARACTER WAS COMMA, REPEAT. | 4F123303 | |
D | 04535 | 1 00000 0 03440 | 2277 | TXI | CA010,0 * IF ENDMK, EXIT TO CA000. | 4F12331 | |
2278 | END OF PROGRAM C3100. | 4F12332 | |||||
2279 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12333 | |||||
2280 | 4F12334 | ||||||
2281 | C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF). | 4F12335 | |||||
2282 | C3200 PROCESSES RETURN STATEMENTS. | 4F12336 | |||||
04536 | 0 07400 4 01707 | 2283 | C3200 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, | 4F12337 | |
04537 | 0 07400 4 03271 | 2284 | TSX | TESTD0,4 * WHICH SHOULD BE AN ENDMARK. | 4F12338 | ||
04540 | 0 07400 4 02366 | 2285 | TSX | GETIFN,4 * GET INTERNAL FORMULA NUMBER IN 1C. | 4F12339 | ||
04541 | 0 07400 4 02372 | 2286 | TSX | JIF,4 * SET SL TO ALPHA+1. | 4F12340 | ||
04542 | 0 50000 0 01121 | 2287 | CLA | ARGCNT TEST ARGCNT FOR PRECEEDING | 4F12341 | ||
04543 | 0 12000 0 04545 | 2288 | TPL | *+2 SUBROUTINE - IF NONE, THEN | 4F12342 | ||
04544 | 0 07400 4 03400 | 2289 | TSX | DIAG,4 * ERROR - GO TO THE DIAGNOSTIC. | 4F12343 | ||
04545 | 0 50000 0 01332 | 2290 | CLA | FSNAME | 4F12344 | ||
04546 | 0 10000 0 04555 | 2291 | TZE | *+7 | 4F12345 | ||
04547 | 0 07400 4 01731 | 2292 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12346 | ||
04550 | 0 00000 0 01105 | 2293 | PZE | 1C WORD1--O(IFN)000 | 4F12347 | ||
04551 | 0 00000 0 01541 | 2294 | PZE | L(CLA) WORD2--CLA000 | 4F12348 | ||
04552 | 0 00000 0 01332 | 2295 | PZE | FSNAME WORD3--NAME OF FUNCTION | 4F12349 | ||
04553 | 0 00000 0 01406 | 2296 | PZE | L(0) WORD4--000000 | 4F12350 | ||
04554 | 0 60000 0 01105 | 2297 | STZ | 1C CLEAR 1C. | 4F12351 | ||
04555 | 0 07400 4 01731 | 2298 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12352 | ||
04556 | 0 00000 0 01105 | 2299 | PZE | 1C WORD1--O(IFN)000 | 4F12353 | ||
04557 | 0 00000 0 01561 | 2300 | PZE | L(LXD) WORD2--LXD000 | 4F12354 | ||
04560 | 0 00000 0 01523 | 2301 | PZE | DOLSGN WORD3--$ | 4F12355 | ||
04561 | 0 00000 0 01407 | 2302 | PZE | L(1) WORD4--000001 | 4F12356 | ||
04562 | 0 07400 4 01731 | 2303 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12357 | ||
04563 | 0 00000 0 01406 | 2304 | PZE | L(0) WORD1--000000 | 4F12358 | ||
04564 | 0 00000 0 01561 | 2305 | PZE | L(LXD) WORD2--LXD000 | 4F12359 | ||
04565 | 0 00000 0 01523 | 2306 | PZE | DOLSGN WORD3--$ | 4F12360 | ||
04566 | 0 00000 0 01456 | 2307 | PZE | ABTAG2 WORD4--001002 | 4F12361 | ||
04567 | 0 07400 4 01731 | 2308 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12362 | ||
04570 | 0 00000 0 01406 | 2309 | PZE | L(0) WORD1--000000 | 4F12363 | ||
04571 | 0 00000 0 01570 | 2310 | PZE | L(QXD) WORD2--QXD000 | 4F12364 | ||
04572 | 0 00000 0 01523 | 2311 | PZE | DOLSGN WORD3--$ | 4F12365 | ||
04573 | 0 00000 0 01460 | 2312 | PZE | ABTAG3 WORD4--002000 | 4F12366 | ||
04574 | 0 07400 4 01731 | 2313 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12367 | ||
04575 | 0 00000 0 01367 | 2314 | PZE | SL WORD1--O(IFN+1)000 | 4F12368 | ||
04576 | 0 00000 0 01567 | 2315 | PZE | L(QPR) WORD2--OPR000 | 4F12369 | ||
04577 | 0 00000 0 01406 | 2316 | PZE | L(0) WORD3--000000 | 4F12370 | ||
04600 | 0 00000 0 01121 | 2317 | PZE | ARGCNT WORD4--0(N+1)004 | 4F12371 | ||
04601 | 0 07400 4 01731 | 2318 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12372 | ||
04602 | 0 00000 0 01406 | 2319 | PZE | L(0) WORD1--000000 | 4F12373 | ||
04603 | 0 00000 0 01601 | 2320 | PZE | L(TRA) WORD2--TRA000 | 4F12374 | ||
04604 | 0 00000 0 01367 | 2321 | PZE | SL WORD3--O(IFN+1)000 | 4F12375 | ||
04605 | 0 00000 0 01406 | 2322 | PZE | L(0) WORD4--000000 | 4F12376 | ||
D | 04606 | 1 00000 0 03440 | 2323 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12377 | |
2324 | END OF PROGRAM C3200. | 4F12378 | |||||
2325 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12379 | |||||
2326 | 4F12380 | ||||||
2327 | C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00. | 4F12381 | |||||
2328 | C3300 PROCESSES CALL STATEMENTS. | 4F12382 | |||||
04607 | 0 07400 4 01707 | 2329 | C3300 | TSX | C0190,4 * IF 1ST CHARACTER OF NAME IS | 4F12383 | |
04610 | 0 07400 4 03311 | 2330 | TSX | TESTH0,4 * NUMERIC, THEN GO TO THE DIAGNOSTIC. | 4F12384 | ||
04611 | 0 07400 2 01624 | 2331 | TSX | C0160,2 * COLLECT THF REST OF THE NAME, WHICH | 4F12385 | ||
04612 | 0 07400 4 03263 | 2332 | TSX | TESTC0,4 * SHD BE FOLLOWED BY LPAREN OR ENDMK. | 4F12386 | ||
04613 | 0 10000 0 04632 | 2333 | TZE | C3301 IF LPAREN, THEN CHANGE CALL TO A | 4F12387 | ||
04614 | 0 07400 4 01671 | 2334 | TSX | C0190X,4 * PSEUDO-ARITHMETIC FORMULA (Z10=). | 4F12388 | ||
04615 | 0 07400 4 01707 | 2335 | TSX | C0190,4 * PICKUP THE CHARACTER C, | 4F12389 | ||
04616 | 0 56000 0 01434 | 2336 | LDQ | L(Z) AND | 4F12390 | ||
04617 | 0 07400 4 01675 | 2337 | TSX | C0390,4 * REPLACE C WITH Z. | 4F12391 | ||
04620 | 0 56000 0 01373 | 2338 | LDQ | L(10) AND | 4F12392 | ||
04621 | 0 07400 4 01675 | 2339 | TSX | C0390,4 * REPLACE A WITH TEN. | 4F12393 | ||
04622 | 0 56000 0 01400 | 2340 | LDQ | EQUAL AND | 4F12394 | ||
04623 | 0 07400 4 01675 | 2341 | TSX | C0390,4 * REPLACE FIRST L WITH =. | 4F12395 | ||
04624 | 0 56000 0 01430 | 2342 | LDQ | BLANK AND | 4F12396 | ||
04625 | 0 07400 4 01675 | 2343 | TSX | C0390,4 * REPLACE SECOND L WITH BLANK. | 4F12397 | ||
04626 | 0 50000 0 00030 | 2344 | CLA | EIFNO PUT 1ST IFN OF THIS CALL IN CALLNM | 4F12398 | ||
04627 | 0 77100 0 00022 | 2345 | ARS | 18 FOR LATER TABLE ENTRY OF | 4F12399 | ||
04630 | 0 62100 0 01123 | 2346 | STA | CALLNM FIRST / LAST NUMBERS OF CALLS. | 4F12400 | ||
D | 04631 | 1 00000 0 06323 | 2347 | TXI | ARITH,0 * THEN EXIT TO ARITH TO PROCESS. | 4F12401 | |
04632 | 0 07400 4 03224 | 2348 | C3301 | TSX | SUBX00,4 * IF THERE ARE NO ARGUMENTS, THEN | 4F12402 | |
04633 | 0 50000 0 01112 | 2349 | CLA | 1G AFTER COMPLETING NAME W1TH BLANKS, | 4F12403 | ||
04634 | 0 60100 0 01347 | 2350 | STO | G MOVE IT INTO G, AND | 4F12404 | ||
04635 | 0 07400 1 03321 | 2351 | TSX | TET00,1 * GO ENTER NAME | 4F12405 | ||
04636 | 0 00000 0 00011 | 2352 | PZE | 9 IN CLOSUB TABLE. | 4F12406 | ||
04637 | 0 07400 4 02366 | 2353 | TSX | GETIFN,4 * PUT INTERNAL FORMULA NUMBER IN 1C. | 4F12407 | ||
04640 | 0 07400 4 01731 | 2354 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12408 | ||
04641 | 0 00000 0 01105 | 2355 | PZE | 1C WORD1--0(IFN)000 | 4F12409 | ||
04642 | 0 00000 0 01575 | 2356 | PZE | L(SXD) WORD2--SXD000 | 4F12410 | ||
04643 | 0 00000 0 01505 | 2357 | PZE | X( WORD3--700000 | 4F12411 | ||
04644 | 0 00000 0 01412 | 2358 | PZE | L(4) WORD4--000004 | 4F12412 | ||
04645 | 0 07400 4 01731 | 2359 | TSX | CIT00,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12413 | ||
04646 | 0 00000 0 01406 | 2360 | PZE | L(0) WORD1--000000 | 4F12414 | ||
04647 | 0 00000 0 01602 | 2361 | PZE | L(TSX) WORD2--TSX000 | 4F12415 | ||
04650 | 0 00000 0 01112 | 2362 | PZE | 1G WORD3--(NAME) | 4F12416 | ||
04651 | 0 00000 0 01412 | 2363 | PZE | L(4) WORD4--000004 | 4F12417 | ||
04652 | 0 07400 4 03401 | 2364 | TSX | FLTR00,4 * GO MAKE FLOW TRACING INSTRUCTIONS. | 4F12418 | ||
04653 | 0 00000 0 01406 | 2365 | PZE | L(0) WORD1--000000 | 4F12419 | ||
04654 | 0 00000 0 01561 | 2366 | PZE | L(LXD) WORD2--LXD000 | 4F12420 | ||
04655 | 0 00000 0 01505 | 2367 | PZE | X( WORD3--700000 | 4F12421 | ||
04656 | 0 00000 0 01412 | 2368 | PZE | L(4) WORD4--000004 | 4F12422 | ||
D | 04657 | 1 00000 0 03440 | 2369 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12423 | |
2370 | END OF PROGRAM C3300. | 4F12424 | |||||
2371 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12425 | |||||
2372 | 4F12426 | ||||||
2373 | C3400/ CALLS=C0190,DIAG,TEST... | 4F12427 | |||||
2374 | C3400 PROCESSES END STATEMENTS. | 4F12428 | |||||
04660 | 0 53400 2 01413 | 2375 | C3400 | LXA | L(5),2 PREPARE TO SET 5 SS S1MULATORS. | 4F12429 | |
04661 | 0 07400 4 01707 | 2376 | C3405 | TSX | C0190,4 * PICKUP CONSTANT, | 4F12430 | |
04662 | 0 34000 0 01410 | 2377 | CAS | L(2) WHICH SH0ULD BE 0,1, OR 2. | 4F12431 | ||
04663 | 0 07400 4 03400 | 2378 | TSX | DIAG,4 * OTHERWISE, GO TO THE DIAGNOSTIC. | 4F12432 | ||
D | 04664 | 1 00000 0 04666 | 2379 | TXI | C3410,0 SIMULATOR IS PRESET TO 2. | 4F12433 | |
04665 | 0 60100 2 00036 | 2380 | STO | ENDI1+5,2 IF 0 OR 1, SET PROPER SIMULATOR. | 4F12434 | ||
04666 | 0 07400 4 01707 | 2381 | C3410 | TSX | C0190,4 * SKIP NEXT NON-BLANK CHARACTER, AND | 4F12435 | |
04667 | 2 00001 2 04661 | 2382 | TIX | C3405,2,1 REPEAT PROCESS FOR 5 CONSTANTS. | 4F12436 | ||
04670 | 0 07400 4 01707 | 2383 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER, | 4F12437 | ||
04671 | 0 07400 4 03271 | 2384 | TSX | TESTD0,4 * WHICH SHOULD BE AN ENDMK. | 4F12438 | ||
D | 04672 | 1 00000 0 03440 | 2385 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F12439 | |
2386 | END OF PROGRAM C3400. | 4F12440 | |||||
2387 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12441 | |||||
2388 | 4F12442 | ||||||
2389 | STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS= | 4F12443 | |||||
2390 | 4F12444 | ||||||
2391 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12445 | |||||
2392 | 4F12446 | ||||||
2393 | RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF. | 4F12447 | |||||
2394 | RDC PROCESSES READ STATEMENTS. | 4F12448 | |||||
04673 | 0 50000 0 01437 | 2395 | RDC | CLA | A81 SET THE ADDRESS FIELD OF | 4F12449 | |
04674 | 0 62100 0 02067 | 2396 | STA | ENT ENT (NTR000) TO 81. | 4F12450 | ||
04675 | 0 07400 2 06002 | 2397 | TSX | INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12451 | ||
04676 | 0 50000 0 06127 | 2398 | CLA | CSH PICKUP (CSH) TO | 4F12452 | ||
2399 | TSC= ENTRY POINT USED BY RIT. | 4F12453 | |||||
04677 | 0 60100 0 06143 | 2400 | TSC | STO | TSA SET TSA. | 4F12454 | |
04700 | −0 50000 0 06133 | 2401 | CAL | RTN MOVE (RTN) | 4F12455 | ||
04701 | 0 60200 0 06141 | 2402 | SLW | END INTO END. | 4F12456 | ||
04702 | 0 50000 0 06130 | 2403 | CLA | DBC PICKUP (DBC) TO | 4F12457 | ||
2404 | TTC= ENTRY POINT USED BY RDP. | 4F12458 | |||||
04703 | 0 60100 0 06144 | 2405 | TTC | STO | TTA SET TTA. | 4F12459 | |
04704 | 0 07400 4 05603 | 2406 | TSX | BEG,4 * CONVERT CONSTANT FORMAT NUMBER. | 4F12460 | ||
04705 | 0 07400 4 03400 | 2407 | TSX | DIAG,4 * ATTEMPT TO USE VARIABLE FORMAT NO. | 4F12461 | ||
04706 | −0 10000 4 00004 | 2408 | TNZ | 4,4 GO TO THE DIAGNOSTIC, IF THERE WAS | 4F12462 | ||
04707 | 0 07400 4 03400 | 2409 | TSX | DIAG,4 * NO FORMAT NUMBER GIVEN. | 4F12463 | ||
04710 | 0 62100 0 01366 | 2410 | STA | SET MOVE BINARY FORMAT NUMBER INTO SET. | 4F12464 | ||
04711 | −0 50000 0 06114 | 2411 | CAL | NTR MOVE NTR000 | 4F12465 | ||
04712 | 0 60200 0 17401 | 2412 | SLW | OP INTO OP. | 4F12466 | ||
04713 | 0 50000 0 00415 | 2413 | CLA | TXLOP SET OP-SWITCHES, | 4F12467 | ||
04714 | 0 63000 0 05754 | 2414 | STP | ETMSW , ETMSW AND LTMSW, | 4F12468 | ||
04715 | 0 63000 0 05757 | 2415 | STP | LTMSW TO NO TRANSFER CASE. | 4F12469 | ||
04716 | 0 07400 4 05754 | 2416 | TSX | ETMSW,4 * O0 COMPILE ETM. | 4F12470 | ||
04717 | 0 07400 4 06023 | 2417 | TSX | LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= | 4F12471 | ||
04720 | 0 00000 0 01406 | 2418 | PZE | L(0) WORD1--000000 | 4F12472 | ||
04721 | 0 00000 0 01537 | 2419 | PZE | CAL WORD2--CAL000 | 4F12473 | ||
04722 | 0 00000 0 06144 | 2420 | PZE | TTA WORD3--(DBC) OR (BDC) | 4F12474 | ||
04723 | 0 00000 0 01406 | 2421 | PZE | L(0) WORD4--000000 | 4F12475 | ||
04724 | 0 07400 4 01731 | 2422 | TSX | CIT,4 * GO MAKE THE FOLIOWING CIT ENTRY= | 4F12476 | ||
04725 | 0 00000 0 01406 | 2423 | PZE | L(0) WORD1--000000 | 4F12477 | ||
04726 | 0 00000 0 06120 | 2424 | PZE | SLW WORD2--SLW000 | 4F12478 | ||
04727 | 0 00000 0 01406 | 2425 | PZE | L(0) WORD3--000000 | 4F12479 | ||
04730 | 0 00000 0 01454 | 2426 | PZE | D1 WORD4--001000 | 4F12480 | ||
04731 | 0 07400 4 06023 | 2427 | TSX | LIB,4 * MAKE CL0SUB ENTRY, AND COMPILE= | 4F12481 | ||
04732 | 0 00000 0 01406 | 2428 | PZE | L(0) WORD1--000000 | 4F12482 | ||
04733 | 0 00000 0 01537 | 2429 | PZE | CAL WORD2--CAL000 | 4F12483 | ||
04734 | 0 00000 0 06143 | 2430 | PZE | TSA WORD3--(CSH) OR (TSH) | 4F12404 | ||
04735 | 0 00000 0 01406 | 2431 | PZE | L(0) WORD4--000000 | 4F12405 | ||
04736 | 0 07400 4 01731 | 2432 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12486 | ||
04737 | 0 00000 0 01371 | 2433 | PZE | TL NORD1--0(IFN)0(248) | 4F12487 | ||
04740 | 0 00000 0 02067 | 2434 | PZE | ENT WORD2--NTR0(81, OR UNIT, OR 00) | 4F12486 | ||
04741 | 0 00000 0 01366 | 2435 | PZE | SET WORD3--800(FORMAT NUMBER) | 4F12489 | ||
04742 | 0 00000 0 01406 | 2436 | PZE | L(0) WORD4--000000 | 4F12490 | ||
04743 | 0 07400 4 02372 | 2437 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F12491 | ||
2438 | BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD. | 4F12492 | |||||
D | 04744 | 1 00000 0 05141 | 2439 | BXT | TXI | RSC,0 * EXIT TO SCAN LIST, IF THERE IS ONE. | 4F12493 |
2440 | END OF PROGRAM RDC. | 4F12494 | |||||
2441 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12495 | |||||
2442 | 4F12496 | ||||||
2443 | RIT/ CALLS=INPUT,BEG,VRD. USES=RDC. | 4F12497 | |||||
2444 | RIT PROCESSES READ INPUT TAPE STATEMENTS. | 4F12498 | |||||
04745 | 0 07400 2 06002 | 2445 | RIT | TSX | INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12499 | |
04746 | 0 07400 4 05603 | 2446 | TSX | BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. | 4F12500 | ||
04747 | 0 07400 4 06036 | 2447 | TSX | VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS. | 4F12501 | ||
04750 | 0 62100 0 02067 | 2448 | STA | ENT IF CONSTANT, SET ENT= NTR0(UNIT). | 4F12502 | ||
04751 | 0 50000 0 06137 | 2449 | CLA | TSH PICKUP (TSH) TO SET TSA, AND | 4F12503 | ||
D | 04752 | 1 00000 0 04677 | 2450 | TXI | TSC,0 * CONTINUE BY USING PROGRAM RDC. | 4F12504 | |
2451 | END OF PROGRAM RIT. | 4F12505 | |||||
2452 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12506 | |||||
2453 | 4F12507 | ||||||
2454 | RDP/ CALLS=OUTPUT. USES=RDC. | 4F12508 | |||||
2455 | RDP PROCESSES PRINT STATEMENTS. | 4F12509 | |||||
04753 | −0 75400 0 00000 | 2456 | RDP | PXD | ,0 RESET ENT | 4F12510 | |
04754 | 0 62100 0 02067 | 2457 | STA | ENT TO NTR000. | 4F12511 | ||
04755 | 0 07400 2 06004 | 2458 | TSX | OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12512 | ||
04756 | 0 50000 0 06135 | 2459 | CLA | SPH PICKUP (SPH), AND | 4F12513 | ||
2460 | TSD= ENTRY POINT USED BY WOT, PDC. | 4F12514 | |||||
04757 | 0 60100 0 06143 | 2461 | TSD | STO | TSA SET TSA. | 4F12515 | |
04760 | −0 50000 0 06131 | 2462 | CAL | FIL MOVE (FIL) | 4F12516 | ||
04761 | 0 60200 0 06141 | 2463 | SLW | END INTO END. | 4F12517 | ||
04762 | 0 50000 0 06126 | 2464 | CLA | BDC PICKUP (BDC) TO SET TTA, AND | 4F12518 | ||
D | 04763 | 1 00000 0 04703 | 2465 | TXI | TTC,0 * CONTINUE BY USING PROGRAM RDC. | 4F12519 | |
2466 | END OF PROGRAM RDP. | 4F12520 | |||||
2467 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12521 | |||||
2468 | 4F12522 | ||||||
2469 | WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP. | 4F12523 | |||||
2470 | WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS. | 4F12524 | |||||
04764 | 0 07400 2 06004 | 2471 | WOT | TSX | OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12525 | |
04765 | 0 07400 4 05603 | 2472 | TSX | BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. | 4F12526 | ||
04766 | 0 07400 4 06036 | 2473 | TSX | VRD,4 * IF VARIABLE, ENTER FORVAR AND CITS. | 4F12527 | ||
04767 | 0 62100 0 02067 | 2474 | STA | ENT IF CONSTANT, SET ENT= NTR0(UNIT). | 4F12528 | ||
04770 | 0 50000 0 06136 | 2475 | CLA | STH PICKUP (STH) TO SET TSA, AND | 4F12529 | ||
D | 04771 | 1 00000 0 04757 | 2476 | TXI | TSD,0 * CONTINUE BY USING PROGRAM RDP. | 4F12530 | |
2477 | END OF PROGRAM WOT. | 4F12531 | |||||
2478 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12532 | |||||
2479 | 4F12533 | ||||||
2480 | PDC/ CALLS=OUTPUT. USES=RDP. | 4F12534 | |||||
2481 | PDC PROCESSES PUNCH STATEMENTS. | 4F12535 | |||||
04772 | −0 75400 0 00000 | 2482 | PDC | PXD | ,0 RESET ENT | 4F12536 | |
04773 | 0 62100 0 02067 | 2483 | STA | ENT TO NTR000. | 4F12537 | ||
04774 | 0 07400 2 06004 | 2484 | TSX | OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12538 | ||
04775 | 0 50000 0 06134 | 2485 | CLA | SCH PICKUP (SCH) TO SET TSA, AND | 4F12539 | ||
D | 04776 | 1 00000 0 04757 | 2486 | TXI | TSD,0 * CONTINUE BY USING PROGRAM RDP. | 4F12540 | |
2487 | END 0F PROGRAM PDC. | 4F12541 | |||||
2488 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12542 | |||||
2489 | 4F12543 | ||||||
2490 | WBT/ CALLS=OUTPUT,BRW,CIT. | 4F12544 | |||||
2491 | WBT PROCESSES WRITE TAPE STATEMENTS. | 4F12545 | |||||
04777 | −0 50000 0 06124 | 2492 | WBT | CAL | WTB MOVE WTB0004 | 4F12546 | |
05000 | 0 60200 0 17401 | 2493 | SLW | OP INTO OP. | 4F12547 | ||
05001 | 0 07400 2 06004 | 2494 | TSX | OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12548 | ||
05002 | −0 50000 0 01475 | 2495 | CAL | BTA PICKUP BINARY TAPE ADDRESS, AND | 4F12549 | ||
05003 | 0 07400 4 05646 | 2496 | TSX | BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. | 4F12550 | ||
05004 | 0 07400 4 01731 | 2497 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12551 | ||
05005 | 0 00000 0 01406 | 2498 | PZE | L(0) WORD1--000000 | 4F12552 | ||
05006 | 0 00000 0 01544 | 2499 | PZE | CPY WORD2--CPY000 | 4F12553 | ||
05007 | 0 00000 0 01504 | 2500 | PZE | ZER WORD3--600000 | 4F12554 | ||
05010 | 0 00000 0 01457 | 2501 | PZE | D2 WORD4--002000 | 4F12555 | ||
D | 05011 | 1 00000 0 04744 | 2502 | TXI | BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE. | 4F12556 | |
2503 | END OF PROGRAM WBT. | 4F12557 | |||||
2504 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12558 | |||||
2505 | 4F12559 | ||||||
2506 | RBT/ CALLS=INPUT,BRW,CIT. | 4F12560 | |||||
2507 | RBT PROCESSES READ TAPE STATEMENTS. | 4F12561 | |||||
05012 | −0 50000 0 06117 | 2508 | RBT | CAL | RTB MOVE RTB000 | 4F12562 | |
05013 | 0 60200 0 17401 | 2509 | SLW | OP INTO OP. | 4F12563 | ||
05014 | 0 07400 2 06002 | 2510 | TSX | INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12564 | ||
05015 | −0 50000 0 01475 | 2511 | CAL | BTA PICKUP BINARY TAPE ADDRESS, AND | 4F12565 | ||
05016 | 0 07400 4 05646 | 2512 | TSX | BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. | 4F12566 | ||
05017 | 0 07400 4 01731 | 2513 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12567 | ||
05020 | 0 00000 0 01406 | 2514 | PZE | L(0) WORD1--000000 | 4F12568 | ||
05021 | 0 00000 0 01544 | 2515 | PZE | CPY WORD2--CPY000 | 4F12569 | ||
05022 | 0 00000 0 01500 | 2516 | PZE | DMP WORD3--100000 | 4F12570 | ||
05023 | 0 00000 0 01406 | 2517 | PZE | L(0) WORD4--000000 | 4F12571 | ||
05024 | 0 07400 4 01731 | 2518 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12572 | ||
05025 | 0 00000 0 01406 | 2519 | PZE | L(0) WORD1--000000 | 4F12573 | ||
05026 | 0 00000 0 06125 | 2520 | PZE | XIT WORD2--XIT000 | 4F12574 | ||
05027 | 0 00000 0 01510 | 2521 | PZE | 15P WORD3--*00000 | 4F12575 | ||
05030 | 0 00000 0 01461 | 2522 | PZE | D3CN WORD4--003000 | 4F12576 | ||
05031 | 0 07400 4 01731 | 2523 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12577 | ||
05032 | 0 00000 0 01406 | 2524 | PZE | L(0) WORD1--000000 | 4F12578 | ||
05033 | 0 00000 0 01554 | 2525 | PZE | HPR WORD2--HPR000 | 4F12579 | ||
05034 | 0 00000 0 01406 | 2526 | PZE | L(0) WORD3--000000 | 4F12560 | ||
05035 | 0 00000 0 01406 | 2527 | PZE | L(0) WORD4--000000 | 4F12581 | ||
05036 | 0 07400 4 01731 | 2528 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12582 | ||
05037 | 0 00000 0 01406 | 2529 | PZE | L(0) WORD1--000000 | 4F12583 | ||
05040 | 0 00000 0 06125 | 2530 | PZE | XIT WORD2--XIT000 | 4F12584 | ||
05041 | 0 00000 0 01371 | 2531 | PZE | TL WORD3--0(IFN)0(248) | 4F12585 | ||
05042 | 0 00000 0 01406 | 2532 | PZE | L(0) WORD4--000000 | 4F12586 | ||
D | 05043 | 1 00000 0 04744 | 2533 | TXI | BXT,0 * EXIT TO SCAN LIST, IF THEPE IS ONE. | 4F12587 | |
2534 | END OF PROGRAM RBT. | 4F12588 | |||||
2535 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12589 | |||||
2536 | 4F12590 | ||||||
2537 | WRD/ CALLS=OUTPUT,BRW,CIT. | 4F12591 | |||||
2538 | WRD PROCESSES WRITE DRUM STATEMENTS. | 4F12592 | |||||
05044 | 0 07400 2 06004 | 2539 | WRD | TSX | OUTPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12593 | |
05045 | −0 50000 0 06122 | 2540 | CAL | WDR PICKUP WDR000, AND | 4F12594 | ||
2541 | XDR= ENTRY POINT USED BY RDD. | 4F12595 | |||||
05046 | 0 60200 0 17401 | 2542 | XDR | SLW | OP SET OP. | 4F12596 | |
05047 | −0 50000 0 01476 | 2543 | CAL | BDA PICKUP 0INARY DRUM ADDRESS, AND | 4F12597 | ||
05050 | 0 07400 4 05646 | 2544 | TSX | BRW,4 * COMPILE INSTRS TO SET UNIT DESIG. | 4F12598 | ||
05051 | −0 50000 0 01566 | 2545 | CAL | PXD MOVE PXD000 | 4F12599 | ||
05052 | 0 60200 0 17401 | 2546 | SLW | OP INTO OP. | 4F12600 | ||
05053 | −0 75400 0 00000 | 2547 | PXD | ,0 CLEAR THE AC, AND | 4F12601 | ||
05054 | 0 07400 4 05646 | 2548 | TSX | BRW,4 * COMPILE INSTRS TO SET DRUM LOC. | 4F12602 | ||
05055 | 0 07400 4 01731 | 2549 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12603 | ||
05056 | 0 00000 0 01406 | 2550 | PZE | L(0) WORD1--000000 | 4F12604 | ||
05057 | 0 00000 0 01555 | 2551 | PZE | LDA WORD2--LDA000 | 4F12605 | ||
05060 | 0 00000 0 01371 | 2552 | PZE | TL WORD3--0(IFN)0(248) | 4F12606 | ||
05061 | 0 00000 0 01406 | 2553 | PZE | L(0) WORD4--000000 | 4F12607 | ||
D | 05062 | 1 00000 0 04744 | 2554 | TXI | BXT,0 * EXIT TO SCAN LIST, IF THERE IS ONE. | 4F12608 | |
2555 | END OF PROGRAM WRD. | 4F12609 | |||||
2556 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12610 | |||||
2557 | 4F12611 | ||||||
2558 | RDD/ CALLS=INPUT. USES=WRD. | 4F12612 | |||||
2559 | RDD PROCESSES READ DRUM STATEMENTS. | 4F12613 | |||||
05063 | 0 07400 2 06002 | 2560 | RDD | TSX | INPUT,2 * GO COMPILE CAL *, AND XIT (LEV). | 4F12614 | |
05064 | −0 50000 0 06115 | 2561 | CAL | RDR PICKUP RDR000 TO SET OP, AND | 4F12615 | ||
D | 05065 | 1 00000 0 05046 | 2562 | TXI | XDR,0 * CONTINUE BY USING PROGRAM WRD. | 4F12616 | |
2563 | END OF PROGRAM RDD. | 4F12617 | |||||
2564 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12618 | |||||
2565 | 4F12619 | ||||||
2566 | EFT/ CALLS=GIF,BEG,VRAX,CIT. | 4F12620 | |||||
2567 | EFT PROCESSES WRITE END OF FILE STATEMENTS. | 4F12621 | |||||
05066 | −0 50000 0 06123 | 2568 | EFT | CAL | WEF PICKUP WEF000, AND | 4F12622 | |
2569 | TPO= ENTRY POINT USED BY RWN, BSP. | 4F12623 | |||||
05067 | 0 60200 0 17401 | 2570 | TPO | SLW | OP SET OP. | 4F12624 | |
05070 | −0 50000 0 01475 | 2571 | CAL | BTA MOVE BINARY TAPE ADDRESS | 4F12625 | ||
05071 | 0 60200 0 06140 | 2572 | SLW | CON INTO CON. | 4F12626 | ||
05072 | 0 07400 4 02375 | 2573 | TSX | GIF,4 * GET IFN INTO SL AND TL. | 4F12627 | ||
05073 | 0 50000 0 02377 | 2574 | CLA | L(SL) RESET TP0A ADDRESS | 4F12628 | ||
05074 | 0 62100 0 05102 | 2575 | STA | TPOA TO SL. | 4F12629 | ||
05075 | 0 07400 4 05603 | 2576 | TSX | BEG,4 * SCAN AND TEST TYPE OF UNIT SYMBOL. | 4F12630 | ||
05076 | 0 07400 4 06032 | 2577 | TSX | VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS. | 4F12631 | ||
05077 | 0 76700 0 00022 | 2578 | ALS | 18 IF CONSTANT, ADJUST AND | 4F12632 | ||
05100 | 0 60100 0 17402 | 2579 | STO | RA PLACE IN THE DECREMENT OF RA. | 4F)2633 | ||
05101 | 0 07400 4 01731 | 2580 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12634 | ||
05102 | 0 00000 0 01367 | 2581 | TPOA | PZE | SL WORD1--0(IFN)O0O OR 0(IFN)0(248) | 4F12635 | |
05103 | 0 00000 0 17401 | 2582 | PZE | OP NORD2--(WEF,REW,OR BSP)000 | 4F12636 | ||
05104 | 0 00000 0 01406 | 2583 | PZE | L(0) WORD3--000000 | 4F12637 | ||
05105 | 0 00000 0 17402 | 2584 | PZE | RA WORD4--0(CON)000 OR 000000 | 4F12638 | ||
D | 05106 | 1 00000 0 05567 | 2585 | TXI | FINI,0 * GO RESET BXT, AND TEST FOR EFN. | 4F12639 | |
2586 | END OF PROGRAM EFT. | 4F12640 | |||||
2587 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12641 | |||||
2588 | 4F12642 | ||||||
2589 | RWN/ USES=EFT. | 4F12643 | |||||
2590 | RWN PROCESSES REWIND TAPE STATEMENTS. | 4F12644 | |||||
05107 | −0 50000 0 06116 | 2591 | RWN | CAL | REW PICKUP REW000 TO SET OP, AND | 4F12645 | |
D | 05110 | 1 00000 0 05067 | 2592 | TXI | TPO,0 * CONTINUE BY USING PROGRAM EFT. | 4F12646 | |
2593 | END OF PROGRAM RWN. | 4F12647 | |||||
2594 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12648 | |||||
2595 | 4F12649 | ||||||
2596 | BSP/ USES=EFT. | 4F12650 | |||||
2597 | BSP PR0CESSES BACKSPACE TAPE STATEMENTS. | 4F12651 | |||||
05111 | −0 50000 0 06111 | 2598 | BSP | CAL | BST PICKUP BST000 TO SET OP, AND | 4F12652 | |
D | 05112 | 1 00000 0 05067 | 2599 | TXI | TPO,0 * CONTINUE BY USING PROGRAM EFT. | 4F12653 | |
2600 | END OF PROGRAM BSP. | 4F12654 | |||||
2601 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12655 | |||||
2602 | 4F12656 | ||||||
2603 | FOR/ CALLS=TET00. | 4F12657 | |||||
2604 | FOR PROCESSES FORMAT STATEMENTS. | 4F12658 | |||||
05113 | −0 50000 0 00030 | 2605 | FOR | CAL | EIFNO MOVE EXTERNAL FORMULA NUMBER | 4F12659 | |
05114 | 0 62100 0 01366 | 2606 | STA | SET INTO THE ADDRESS OF SET, | 4F12660 | ||
05115 | −0 50000 0 01366 | 2607 | CAL | SET AND MOVE SET (8000(EFN)) | 4F12661 | ||
05116 | 0 60200 0 01347 | 2608 | SLW | G INTO G. | 4F12662 | ||
05117 | −0 53400 1 01724 | 2609 | LXD | CHCTR,1 SET XR1 = CHARACTER COUNT. | 4F12663 | ||
05120 | −0 53400 2 01614 | 2610 | LXD | FWA,2 SET XR2 = -(CURRENT F-WORD ADDR). | 4F12664 | ||
05121 | −3 00001 1 05137 | 2611 | TXL | NFFW,1,1 UNLESS POSITIONED AT THE | 4F12665 | ||
05122 | 1 77777 1 05123 | 2612 | TXI | *+1,1,−1 BEGINNING OF A FORMAT WORD, | 4F12666 | ||
05123 | 0 56000 0 01365 | 2613 | LDQ | RESIDU THEN PICKUP AND | 4F12667 | ||
05124 | −0 50000 0 01526 | 2614 | CAL | BLANKS PRECEED WITH BLANKS ANY | 4F12668 | ||
05125 | −0 76300 0 00006 | 2615 | NFC | LGL | 6 CHARACTERS | 4F12669 | |
05126 | 2 00001 1 05125 | 2616 | TIX | NFC,1,1 REMAINING IN THE MQ, AND | 4F12670 | ||
05127 | 0 60200 0 01350 | 2617 | NFW | SLW | G+1 MOVE FORMAT WORDS INTO G+1. | 4F12671 | |
05130 | 0 07400 1 03321 | 2618 | TSX | TET00,1 * GO ENTER THEN IN | 4F12672 | ||
05131 | 0 00000 0 00012 | 2619 | PZE | 10 THE FORMAT TABLE. | 4F12673 | ||
05132 | −0 50000 0 01350 | 2620 | CAL | G+1 WHEN THE | 4F12674 | ||
05133 | −0 32000 0 01374 | 2621 | ANA | ENDMK END OF STATEMENT MARK | 4F12675 | ||
05134 | 0 40200 0 01374 | 2622 | SUB | ENDMK HAS BEEN ENTERED, | 4F12676 | ||
05135 | 0 10000 0 03440 | 2623 | TZE | CA010 * EXIT TO PROCESS NEXT STATEMENT. | 4F12677 | ||
05136 | 0 60000 0 01347 | 2624 | STZ | G PRECEED ALL BUT 1ST ENTRY WITH 0. | 4F12678 | ||
05137 | −0 50000 2 00000 | 2625 | NFFW | CAL | 0,2 PICKUP NEXT FORMAT WORD, | 4F12679 | |
05140 | 1 77777 2 05127 | 2626 | TXI | NFW,2,−1 UPDATE SCAN INDEX, AND CONTINUE. | 4F12680 | ||
2627 | END OF PROGRAM FOR. | 4F12681 | |||||
2628 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12682 | |||||
2629 | 4F12683 | ||||||
2630 | RSC/ CALLS=C0190,DIAG. | 4F12684 | |||||
2631 | RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS | 4F12685 | |||||
2632 | FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN | 4F12686 | |||||
2633 | COMMON. THEN A TAGGED EXIT IS MADE THR0UGH THE BLOCK OF | 4F12687 | |||||
2634 | CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT. | 4F12688 | |||||
2635 | RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC. | 4F12689 | |||||
05141 | −0 50000 0 05361 | 2636 | RSC | CAL | FLINE RESET TEMPORARY | 4F12690 | |
05142 | 0 62100 0 01372 | 2637 | STA | TLINE TABLE LINE C0UNTER. | 4F12691 | ||
05143 | 0 60000 0 17400 | 2638 | STZ | DOLEV CLEAR DO LEVEL COUNTER. | 4F12692 | ||
05144 | 0 60000 0 01351 | 2639 | STZ | GTAG CLEAR GENERALIZED TAG. | 4F12693 | ||
2640 | LSC = ENTRY POINT FROM SPC. | 4F12694 | |||||
05145 | −0 50000 0 05204 | 2641 | LSC | CAL | LISTR SET CONTROL TRANSFER | 4F12695 | |
2642 | CXS = ENTRY POINT FROM EQS, BEG. | 4F12696 | |||||
05146 | 0 62100 0 05156 | 2643 | CXS | STA | CEXIT FOR LIST SCAN. | 4F12697 | |
2644 | NXS = ENTRY POINT FROM LPR, SPC, CMA. | 4F12698 | |||||
05147 | 0 53400 2 01414 | 2645 | NXS | LXA | L(6),2 RESET SYMBOL CHARACTER COUNT | 4F12699 | |
05150 | −0 63400 2 05637 | 2646 | SXD | CSJ,2 AND SHIFT COUNT. | 4F12700 | ||
05151 | 0 60000 0 17404 | 2647 | STZ | SYM CLEAR SYMBOL WORKING STORAGE. | 4F12701 | ||
2648 | NXC = ENTRY POINT FROM CMA. | 4F12702 | |||||
05152 | 0 07400 4 01707 | 2649 | NXC | TSX | C0190,4 * OBTAIN NEXT NB CHARACTER IN THE AC. | 4F12703 | |
05153 | 0 53400 4 02652 | 2650 | CLOAD | LXA | CTESTX,4 SET XR4 TO PICK CONTROL CHARACTERS. | 4F12704 | |
05154 | 0 34000 4 01406 | 2651 | CCOMP | CAS | CTEST,4 COMPARE CHARACTER WITH CONSTANTS. | 4F12705 | |
D | 05155 | −3 00000 0 05160 | 2652 | TXL | BUILD,0 IF EQUALITY IS FOUND ON SOME | 4F12706 | |
05156 | 0 02000 4 00000 | 2653 | CEXIT | TRA | **,4 * CONTROL CHAR, EXIT TO TRA LIST. | 4F12707 | |
05157 | 2 00001 4 05154 | 2654 | TIX | CCOMP,4,1 CONTINUE THROUGH PUNCTUATION. | 4F12708 | ||
05160 | −0 53400 4 05637 | 2655 | BUILD | LXD | CSJ,4 BUILD A | 4F12709 | |
05161 | 0 60100 4 17316 | 2656 | STO | CHR,4 SYMBOL | 4F12710 | ||
05162 | −2 00001 4 05167 | 2657 | TNX | LCT,4,1 COMPOSED OF | 4F12711 | ||
05163 | 0 76700 2 00044 | 2658 | ALS | 36,2 SIX OR LESS CHARACTERS. | 4F12712 | ||
05164 | −0 63400 4 05637 | 2659 | CSZ | SXD | CSJ,4 SAVE SYMBOL CHARACTER COUNT. | 4F12713 | |
05165 | −0 60200 0 17404 | 2660 | ORS | SYM ALSO, SAVE EACH | 4F12714 | ||
05166 | 1 00006 2 05152 | 2661 | TXI | NXC,2,6 CHARACTER SEPARATELY. | 4F12715 | ||
05167 | −3 00044 2 05171 | 2662 | LCT | TXL | LCS,2,36 GO TO DIAGNOSTIC IF | 4F12716 | |
05170 | 0 07400 4 03400 | 2663 | TSX | DIAG,4 * MORE THAN 6 CHARACTERS IN SYMBOL. | 4F12717 | ||
05171 | 1 77777 4 05164 | 2664 | LCS | TXI | CSZ,4,−1 ADJUST C0UNT, AND CONTINUE SCAN. | 4F12718 | |
2665 | END OF PROGRAM RSC. | 4F12719 | |||||
2666 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12720 | |||||
2667 | 4F12721 | ||||||
2668 | LISTR/ CONTROL TRANSFERS FOR LIST SCAN= | 4F12722 | |||||
D | 05172 | 1 00000 0 05547 | 2669 | TXI | EMK,0 * ENDMARK | 4F12723 | |
D | 05173 | 1 00000 0 05205 | 2670 | TXI | LPR,0 * ( | 4F12724 | |
D | 05174 | 1 00000 0 05413 | 2671 | TXI | CMA,0 * , | 4F12725 | |
D | 05175 | 1 00000 0 05377 | 2672 | TXI | RPR,0 * ) | 4F12726 | |
D | 05176 | 1 00000 0 05261 | 2673 | TXI | EQS,0 * = | 4F12727 | |
D | 05177 | 1 00000 0 05200 | 2674 | TXI | ILC,0 - (ILLEGAL CHARACTER IN I/O LIST). | 4F12728 | |
05200 | 0 07400 4 03400 | 2675 | ILC | TSX | DIAG,4 * / (ILLEGAL CHARACTER IN I/O LIST). | 4F12729 | |
D | 05201 | 1 00000 0 05200 | 2676 | TXI | ILC,0 . (ILLEGAL CHARACTER IN I/O LISTI. | 4F12730 | |
D | 05202 | 1 00000 0 05200 | 2677 | TXI | ILC,0 + (ILLEGAL CHARACTER IN I/O LIST). | 4F12731 | |
D | 05203 | 1 00000 0 05200 | 2678 | TXI | ILC,0 * (ILLEGAL CHARACTER 1N I/O LIST). | 4F12732 | |
05204 | 0 00000 0 05204 | 2679 | LISTR | PZE | LISTR INDEXING ADDRESS FOR ABOVE LIST. | 4F12733 | |
2680 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12734 | |||||
2681 | 4F12735 | ||||||
2682 | LPR/ CALLS=TYP,SS000,RA000,C0190,TEST..,LTMSW,CIT,JIF,DIAG, | 4F12736 | |||||
2683 | BSS. USES=CMA,RSC. | 4F12737 | |||||
2684 | EPR = ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. | 4F12738 | |||||
05205 | −0 50000 0 17404 | 2685 | LPR | CAL | SYM TEST FOR SUBSCRIPT OR DO NEST. | 4F12739 | |
05206 | 0 10000 0 05230 | 2686 | TZE | LPRD IF SUBSCRIPT, THEN | 4F12740 | ||
05207 | 0 07400 4 05624 | 2687 | TSX | TYP,4 * IF VARIABLE SYMBOL CONTAINS LESS | 4F12741 | ||
05210 | 0 02000 4 00003 | 2688 | TRA | 3,4 THAN 6 CHARACTERS, ADD A BLANK. | 4F12742 | ||
D | 05211 | 1 00000 0 05416 | 2689 | TXI | ERRC,0 * ON CONSTANT RETURN, GO TO DIAG. | 4F12743 | |
05212 | −0 50000 0 17404 | 2690 | CAL | SYM MOVE SYMBOL | 4F12744 | ||
05213 | 0 60200 0 01130 | 2691 | SLW | E+2 INTO E+2, AND | 4F12745 | ||
05214 | 0 60200 0 17403 | 2692 | SLW | SA COMPILE SYMBOLIC ADDRESS. | 4F12746 | ||
05215 | 0 07400 4 02614 | 2693 | TSX | SS000,4 * GO SCAN AND PROCESS SUBSCRIPT. | 4F12747 | ||
05216 | 0 07400 4 02437 | 2694 | TSX | RA000,4 * THEN GO =OMPUTE RELATIVE ADDRESS. | 4F12748 | ||
05217 | 0 07400 4 01707 | 2695 | TSX | C0190,4 * EXAMINE NEXT NON-BLANK CHARACTER | 4F12749 | ||
05220 | 0 34000 0 01377 | 2696 | CAS | CLOS | 4F12750 | ||
05221 | 0 02000 0 05226 | 2697 | TRA | *+5 | 4F12751 | ||
05222 | 0 02000 0 05224 | 2698 | TRA | *+2 | 4F12752 | ||
05223 | 0 02000 0 05226 | 2699 | TRA | *+3 | 4F12753 | ||
05224 | 0 60000 0 17400 | 2700 | STZ | DOLEV | 4F12754 | ||
05225 | 0 07400 4 01707 | 2701 | TSX | C0190,4 | 4F12755 | ||
05226 | 0 07400 4 03247 | 2702 | TSX | TESTA0,4 * FOR EITHER COMMA OR ENDMARK. | 4F12756 | ||
D | 05227 | 1 00000 0 05421 | 2703 | TXI | CMA7,0 * AND CONTINUE BY USING PROGRAM CMA. | 4F12757 | |
05230 | −0 50000 0 17400 | 2704 | LPRD | CAL | DOLEV IF THE BEGINNING OF A DO NEST, | 4F12758 | |
05231 | 0 10000 0 05242 | 2705 | TZE | LPR3 AND DOLEV IS NOT ZERO, THEN | 4F12759 | ||
05232 | 0 53400 4 17400 | 2706 | LXA | DOLEV,4 TEST FOR NULL FORMULA. | 4F12760 | ||
05233 | −3 00000 4 05236 | 2707 | TXL | LPRE,4,0 IF NULL, GO ESTABLISH POSITION. | 4F12761 | ||
05234 | 0 07400 4 05757 | 2708 | TSX | LTMSW,4 * OTHERWISE, COMPILE LTM, AND | 4F12762 | ||
D | 05235 | 1 00000 0 05241 | 2709 | TXI | LPR4,0 AND GO JUMP IFN. | 4F12763 | |
05236 | −0 50000 0 01367 | 2710 | LPRE | CAL | SL IF C(SL) 0O NOT = 0, | 4F12764 | |
05237 | 0 10000 0 05241 | 2711 | TZE | *+2 THEN | 4F12765 | ||
05240 | 0 07400 2 05674 | 2712 | TSX | BSS,2 * GO COMPILE= IFN BSS 0. | 4F12766 | ||
05241 | 0 07400 4 02372 | 2713 | LPR4 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F12767 | |
05242 | −0 53400 4 17400 | 2714 | LPR3 | LXD | DOLEV,4 INCREASE THE C(DOLEV D) | 4F12768 | |
05243 | 1 00001 4 05244 | 2715 | TXI | LPR1,4,1 BY 1, AND | 4F12769 | ||
05244 | −0 75400 4 00000 | 2716 | LPR1 | PXD | ,4 SET THE C(DOLEV A) | 4F12770 | |
05245 | 0 60200 0 17400 | 2717 | SLW | DOLEV TO ZERO. | 4F12771 | ||
05246 | −0 50000 0 01372 | 2718 | CAL | TLINE NOTE AT | 4F12772 | ||
05247 | 0 62100 0 05254 | 2719 | STA | LPR2 THIS LEVEL | 4F12773 | ||
05250 | 0 60100 4 17400 | 2720 | STO | DOLEV,4 THE LOCATI0N IN TLDO | 4F12774 | ||
05251 | 0 40000 0 01413 | 2721 | ADD | L(5) OF THIS DO FORMULA | 4F12775 | ||
05252 | 0 62100 0 01372 | 2722 | STA | TLINE AND INCREASE LINE IN TLINE. | 4F12776 | ||
05253 | 0 50200 0 01371 | 2723 | CLS | TL MOVE -(0(IFN)0(248)) INTO THE | 4F12777 | ||
05254 | 0 60100 0 00000 | 2724 | LPR2 | STO | ** LOCATION WORD OF CURRENT TEMP DO. | 4F12778 | |
05255 | 0 07400 4 02372 | 2725 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F12779 | ||
05256 | −0 53400 4 17400 | 2726 | LXD | DOLEV,4 IF 3 OR FEWER LEVELS IN LIST DO, | 4F12780 | ||
05257 | −3 00003 4 05147 | 2727 | TXL | NXS,4,3 * RETURN TO LIST SCAN. | 4F12781 | ||
05260 | 0 07400 4 03400 | 2728 | TSX | DIAG,4 * OTHERWISE, GO TO DIAGNOSTIC. | 4F12782 | ||
2729 | END OF PROGRAM LPR. | 4F12783 | |||||
2730 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12784 | |||||
2731 | 4F12785 | ||||||
2732 | EQS/ CALLS=DIAG. USES=RSC. | 4F12786 | |||||
2733 | EQS = ENTRY POINT WHEN EQUAL SIGN IS MET IN LIST CAN. | 4F12787 | |||||
05261 | −0 53400 4 17400 | 2734 | EQS | LXD | DOLEV,4 TEST THE LEGALITY OF EQUAL SIGN, | 4F12788 | |
05262 | 3 00000 4 05264 | 2735 | TXH | EQS2,4,0 AND GO TO DIAG ON THE ATTEMPT TO | 4F12789 | ||
05263 | 0 07400 4 03400 | 2736 | TSX | DIAG,4 * SPECIFY SUBSCRIPT RANGE WITHOUT (. | 4F12790 | ||
05264 | −0 50000 4 17400 | 2737 | EQS2 | CAL | DOLEV,4 INITIALIZE SPECIFICATION | 4F12791 | |
05265 | 0 62100 0 05331 | 2738 | STA | SPC2 OF GENERATED DO FORMULA | 4F12792 | ||
05266 | 0 62100 0 05345 | 2739 | STA | SPC5 AT CURRENT LEVEL. | 4F12793 | ||
05267 | 0 40000 0 01407 | 2740 | ADD | L(1) PREPARE TO ENTER FORMULA NUMBERS | 4F12794 | ||
05270 | 0 62100 0 05302 | 2741 | STA | EQS1 IN LOCATION WORD,SUBSCRIPT IN | 4F12795 | ||
05271 | 0 40000 0 01412 | 2742 | ADD | L(4) SYMBOL WORD, AND SUBSCRIPT SPECS | 4F12796 | ||
05272 | 0 62100 0 05333 | 2743 | STA | SPC3 IN TEMPDO ENTRY. | 4F12797 | ||
05273 | 0 53400 4 01411 | 2744 | LXA | L(3),4 PREPARE TO COUNT THE | 4F12798 | ||
05274 | −0 63400 4 05304 | 2745 | SXD | NSJ,4 NUMBER OF SPECIFICATIONS. | 4F12799 | ||
05275 | −0 50000 0 17404 | 2746 | CAL | SYM OBTAIN SUBSCRIPT | 4F12800 | ||
05276 | 3 00044 2 05302 | 2747 | TXH | EQS1,2,36 FOR THIS DO, AND | 4F12801 | ||
05277 | −0 50000 0 01430 | 2748 | CAL | BLANK STORE IN PROPER | 4F12802 | ||
05300 | 0 76700 2 00044 | 2749 | ALS | 36,2 LINE OF TEMPORARY | 4F12803 | ||
05301 | −0 50100 0 17404 | 2750 | ORA | SYM LIST DO TABLE. | 4F12804 | ||
05302 | 0 60200 0 00000 | 2751 | EQS1 | SLW | ** (SUBSCRIPT SYMBOL WORD) | 4F12805 | |
05303 | −0 50000 0 05317 | 2752 | CAL | SPCTR SET CONTROL LOOP FOR | 4F12806 | ||
05304 | 1 00000 0 05146 | 2753 | NSJ | TXI | CXS,0,** * EXIT TO SPECIFICATION. | 4F12807 | |
2754 | END OF PROGRAM EQS. | 5F12808 | |||||
2755 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12809 | |||||
2756 | 4F12810 | ||||||
2757 | SPCTR/ CONTR0L TRANSFERS FOR SPECIFICATION SCAN= | 4F12811 | |||||
05305 | 0 07400 4 03400 | 2758 | TSX | DIAG,4 * E (ILLEGAL IN CONTROL FOR LIST DO). | 4F12812 | ||
05306 | 0 07400 4 03400 | 2759 | ICC | TSX | DIAG,4 * ( (ILLEGAL IN CONTROL FOR LIST DO). | 4F12813 | |
D | 05307 | 1 00000 0 05322 | 2760 | TXI | SPC,0 * , | 4F12814 | |
D | 05310 | 1 00000 0 05320 | 2761 | TXI | SPCX,0 * ) | 4F12815 | |
D | 05311 | 1 00000 0 05306 | 2762 | TXI | ICC,0 = (ILLEGAL IN CONTROL FOR LIST DO). | 4F12816 | |
D | 05312 | 1 00000 0 05306 | 2763 | TXI | ICC,0 - (ILLEGAL IN CONTROL FOR LIST DO). | 4F12817 | |
D | 05313 | 1 00000 0 05306 | 2764 | TXI | ICC,0 / (ILLEGAL IN CONTR0L FOR LIST DO). | 4F12818 | |
D | 05314 | 1 00000 0 05306 | 2765 | TXI | ICC,0 . (ILLEGAL IN CONTROL FOR LIST DO). | 4F12819 | |
D | 05315 | 1 00000 0 05306 | 2766 | TXI | ICC,0 + (ILLEGAL IN CONTR0L FOR LIST DO). | 4F12820 | |
D | 05316 | 1 00000 0 05306 | 2767 | TXI | ICC,0 * (ILLEGAL IN CONTR0L FOR LIST DO). | 4F12821 | |
05317 | 0 00000 0 05317 | 2768 | SPCTR | PZE | SPCTR INDEXING ADDRESS FOR ABOVE LIST. | 4F12822 | |
2769 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12823 | |||||
2770 | 4F12824 | ||||||
2771 | SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=RSC. | 4F12825 | |||||
2772 | SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. | 4F12826 | |||||
05320 | −0 50000 0 05336 | 2773 | SPCX | CAL | SPC1 PREPARE FOR END OF SPECIFICATION. | 4F12827 | |
05321 | 0 60100 0 05336 | 2774 | STO | SPC1 SET SPC1 OP-SWITCH TO NOP CASE. | 4F12828 | ||
2775 | SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATI0N SCAN. | 4F12829 | |||||
05322 | 0 07400 4 05624 | 2776 | SPC | TSX | TYP,4 * G0 TEST TYPE OF SUBSCRIPT SPEC. | 4F12830 | |
D | 05323 | 1 00000 0 05326 | 2777 | TXI | SPCS,0 IF FIXED POINT CONSTANT, | 4F12831 | |
05324 | −0 53400 4 05304 | 2778 | LXD | NSJ,4 SET C(XR4) = SPECIFICATION COUNT, | 4F12832 | ||
D | 05325 | 1 00000 0 05333 | 2779 | TXI | SPC3,0 AND GO ENTER CONSTANT IN TABLE. | 4F12833 | |
05326 | −0 53400 4 05304 | 2780 | SPCS | LXD | NSJ,4 OTHERWISE, SET SPEC COUNT AND | 4F12834 | |
05327 | −0 50000 0 01453 | 2781 | CAL | TAG4 IF VARIABLE, NOTE BY | 4F12835 | ||
05330 | 0 77100 4 00003 | 2782 | ARS | 3,4 PLACING BIT IN TAG FIELD | 4F12836 | ||
05331 | −0 60200 0 00000 | 2783 | SPC2 | ORS | ** OF TABLE ENTRY. | 4F12837 | |
05332 | −0 50000 0 17404 | 2784 | CAL | SYM PICKUP VARIABLE SYMBOL AND | 4F12838 | ||
05333 | 0 60200 4 00000 | 2785 | SPC3 | SLW | **,4 ENTER N SUB J IN TABLE. | 4F12839 | |
05334 | −2 00001 4 05341 | 2786 | TNX | SPC4,4,1 REDUCE J. | 4F12840 | ||
05335 | −0 63400 4 05304 | 2787 | SXD | NSJ,4 SAVE SPEC COUNT, AND | 4F12841 | ||
D | 05336 | −3 00000 0 05147 | 2788 | SPC1 | TXL | NXS,0 * EXIT TO SCAN, IF SWITCH IS TXL. | 4F12842 |
05337 | −0 50000 0 01407 | 2789 | CAL | L(1) SET N SUB 3 = 1 IF NOT | 4F12843 | ||
D | 05340 | 1 00000 0 05333 | 2790 | TXI | SPC3,0 OTHERWISE SPECIFIED. | 4F12844 | |
05341 | 0 50200 0 05336 | 2791 | SPC4 | CLS | SPC1 RESTORE SPC1 EXIT. | 4F12845 | |
05342 | 0 60100 0 05336 | 2792 | STO | SPC1 (3 SPECS HAVE BEEN TREATED) | 4F12846 | ||
05343 | −0 50000 0 00030 | 2793 | CAL | EIFNO ALS0 RESTORE INTERNAL FORMULA N0. | 4F12847 | ||
05344 | 0 77100 0 00022 | 2794 | ARS | 18 (PUT BETA IN TEMPDO TABLE) | 4F12848 | ||
2795 | SPC5 = ENTRY POINT USED BY RPR. | 4F12849 | |||||
05345 | 0 62100 0 00000 | 2796 | SPC5 | STA | ** SET BETA EQUAL TO IFNO. | 4F12850 | |
05346 | 0 53400 4 17400 | 2797 | LXA | DOLEV,4 EXAMINE DOLEV ADDRESS FOR ZERO TO | 4F12851 | ||
05347 | −3 00000 4 05352 | 2798 | TXL | SPCR,4,0 TEST NEED FOR LTM, JIF AFTER ). | 4F12852 | ||
05350 | 0 07400 4 05757 | 2799 | TSX | LTMSW,4 * GO COMPILE LTM. | 4F12853 | ||
05351 | 0 07400 4 02372 | 2800 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F12854 | ||
05352 | −0 53400 4 17400 | 2801 | SPCR | LXD | DOLEV,4 DECREASE DOLEV D | 4F12855 | |
05353 | 1 77777 4 05354 | 2802 | TXI | SPC6,4,−1 BY 1, AND INDICATE A TREATED LEVEL. | 4F12856 | ||
05354 | −0 75400 4 00000 | 2803 | SPC6 | PXD | ,4 IF NOT ZERO, | 4F12857 | |
05355 | 0 60200 0 17400 | 2804 | SLW | DOLEV THEN ALL LEVELS ARE NOT TREATED. | 4F12858 | ||
05356 | 3 00000 4 05145 | 2805 | TXH | LSC,4,0 * RETURN T0 SCAN NEXT LEVEL. | 4F12859 | ||
05357 | 0 50000 0 01372 | 2806 | CLA | TLINE IF LEVEL IS ZERO | 4F12860 | ||
05360 | 0 62100 0 05364 | 2807 | STA | SPC7 ENTER GENERATED | 4F12861 | ||
05361 | 0 73400 2 17405 | 2808 | FLINE | PAX | TLDOS,2 DO FORMULAS IN TDO BY | 4F12862 | |
05362 | 1 60373 2 05363 | 2809 | TXI | *+1,2,−TLDOS SUBROUTINE TET. | 4F12863 | ||
05363 | 0 53400 4 01413 | 2810 | SPC9 | LXA | L(5),4 (MOVE EACH | 4F12864 | |
05364 | 0 50000 2 00000 | 2811 | SPC7 | CLA | **,2 TEMPD0 TABLE ENTRY | 4F12865 | |
05365 | 0 60100 4 01112 | 2812 | STO | 1C+5,4 INTO 1C...1C+4, | 4F12866 | ||
05366 | −2 00001 2 05370 | 2813 | TNX | SPC8,2,1 AND THEN | 4F12867 | ||
05367 | 2 00001 4 05364 | 2814 | TIX | SPC7,4,1 WHEN DONE, | 4F12868 | ||
05370 | 0 53400 4 01105 | 2815 | SPC8 | LXA | 1C,4 TEST TO SKIP | 4F12869 | |
05371 | −3 00000 4 05374 | 2816 | TXL | SPCT,4,0 NULL DO. | 4F12870 | ||
05372 | 0 07400 1 03321 | 2817 | TSX | TET00,1 * GO MAKE AN ENTRY | 4F12871 | ||
05373 | 0 00000 0 00001 | 2818 | PZE | 1 IN TDO TABLE.)AND WHEN THE WH0LE | 4F12872 | ||
05374 | 3 00001 2 05363 | 2819 | SPCT | TXH | SPC9,2,1 DO NEST HAS BEEN ENTERED, | 4F12873 | |
05375 | 0 07400 4 02372 | 2820 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AN0 TL. | 4F12874 | ||
D | 05376 | 1 00000 0 05141 | 2821 | RESET | TXI | RSC,0 * THEN EXIT TO CONTINUE LIST SCAN. | 4F12875 |
2822 | END OF PROGRAM SPC. | 4F12876 | |||||
2823 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12877 | |||||
2824 | 4F12878 | ||||||
2825 | RPR/ CALLS=DIAG. USES=CMA,SPC. | 4F12879 | |||||
2826 | RPR = ENTRY POINT WHEN RPAREN IS MET 1N LIST SCAN. | 4F12880 | |||||
05377 | −0 53400 4 17400 | 2827 | RPR | LXD | DOLEV,4 TEST LEGALITY OF 1. | 4F12881 | |
05400 | 3 00000 4 05402 | 2828 | TXH | RPS,4,0 IF THERE ARE TOO MANY ) IN LIST, | 4F12882 | ||
05401 | 0 07400 4 03400 | 2829 | TSX | DIAG,4 * GO TO THE DIAGNOST1C. | 4F12883 | ||
05402 | −0 50000 4 17400 | 2830 | RPS | CAL | DOLEV,4 NULLIFY DO AT CURRENT LEVEL. | 4F12884 | |
05403 | 0 62100 0 05345 | 2831 | STA | SPC5 SET SPC5 ADDRESS, | 4F12885 | ||
05404 | 0 50000 0 05411 | 2832 | CLA | RPA SET CMA3 SWITCH TO RETURN TO | 4F12886 | ||
05405 | 0 62100 0 05546 | 2833 | STA | CMA3 RPT, AND IF ANY CHARACTERS | 4F12887 | ||
05406 | 3 00006 2 05414 | 2834 | TXH | CMA1,2,6 * WERE COLLECTED, EXIT,TO CMA. | 4F12888 | ||
2835 | RPT = REENTRY POINT USED BY CMA. | 4F12889 | |||||
05407 | 0 50000 0 05336 | 2836 | RPT | CLA | SPC1 RESET CMA3 SWITCH | 4F12890 | |
05410 | 0 62100 0 05546 | 2837 | STA | CMA3 TO NXS, | 4F12891 | ||
05411 | −0 75400 0 05407 | 2838 | RPA | PXD | RPT,0 CLEAR THE AC, AND | 4F12892 | |
D | 05412 | 1 00000 0 05345 | 2839 | TXI | SPC5,0 * CONTINUE BY USING PROGRAM SPC. | 4F12893 | |
2840 | END OF PROGRAM RPR. | 4F12894 | |||||
2841 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12895 | |||||
2842 | 4F12896 | ||||||
2843 | CMA/ CALLS=TYP,D1AG,ETMSW,DIM.SR,IFFIX,TET00,DRTABS,JIF,CIT, | 4F12897 | |||||
2844 | LTMSW. USES=RSC. | 4F12898 | |||||
2845 | CMA = ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. | 4F12899 | |||||
05413 | −3 00006 2 05152 | 2846 | CMA | TXL | NXC,2,6 * IF NOTHING COLLECTED, RETURN -SCAN. | 4F12900 | |
2847 | CMA1 = ENTRY POINT USED BY EMK. | 4F12901 | |||||
05414 | 0 07400 4 05624 | 2848 | CMA1 | TSX | TYP,4 * TYPE TEST FOR NON-SUBSCR. VAR. | 4F12902 | |
05415 | 0 02000 4 00003 | 2849 | TRA | 3,4 ILLEGAL USE OF CONSTANT IN LIST, | 4F12903 | ||
05416 | 0 07400 4 03400 | 2850 | ERRC | TSX | DIAG,4 * GO TO THE DIAGNOSTIC. | 4F12904 | |
05417 | −0 50000 0 17404 | 2851 | CAL | SYM INVE VARIABLE SYMBOL | 4F12905 | ||
05420 | 0 60200 0 17403 | 2852 | CMA4 | SLW | SA INTO SA. AND | 4F12906 | |
2853 | CMA7 = ENTRY POINT USED BY LPR. | 4F12907 | |||||
05421 | 0 53400 4 17400 | 2854 | CMA7 | LXA | DOLEV,4 IF DOLEV ADDRESS = 0, AND IF | 4F12908 | |
05422 | 3 00000 4 05424 | 2855 | TXH | CMA6,4,0 ETMSW IS SET TO TXH (NOP CASE), | 4F12909 | ||
05423 | 0 07400 4 05754 | 2856 | TSX | ETMSW,4 * GO COMPILE ETM, AND CLEAR SL. | 4F12910 | ||
05424 | −0 50000 0 17400 | 2857 | CMA6 | CAL | DOLEV IN ANY CASE, | 4F12911 | |
05425 | 0 40000 0 01407 | 2858 | ADD | L(1) UPDATE DOLEV ADDRESS | 4F12912 | ||
05426 | 0 60100 0 17400 | 2859 | STO | DOLEV BY 1, AND THEN | 4F12913 | ||
05427 | 0 50000 0 01351 | 2860 | CLA | GTAG SET GENERALIZED TAG. | 4F12914 | ||
05430 | 0 60100 0 17402 | 2861 | STO | RA (RELATIVE ADDRESS) | 4F12915 | ||
05431 | 0 10000 0 05436 | 2862 | TZE | DIMSR IF THIS VARIABLE HAS A SUBSCRIPT, | 4F12916 | ||
05432 | 0 50000 0 01147 | 2863 | CLA | EPS AND IF SUBSCRIPT | 4F12917 | ||
05433 | −0 10000 0 05537 | 2864 | TNZ | CMA5 IS A CONSTANT, | 4F12918 | ||
05434 | 0 62100 0 17402 | 2865 | STA | RA TMEN CLEAR THE ADDRESS OF RA. | 4F12919 | ||
D | 05435 | 1 00000 0 05537 | 2866 | TXI | CMA5,0 THEN GO MAKE CIT ENTRY. | 4F12920 | |
05436 | −0 50000 0 17403 | 2867 | DIMSR | CAL | SA IF THIS VARIABLE | 4F12921 | |
05437 | 0 60200 0 01130 | 2868 | SLW | E+2 DOES NOT HAVE A SUBSCRIPT, THEN | 4F12922 | ||
05440 | 0 07400 4 01771 | 2869 | RD1 | TSX | DIM1SR,4 * GO SEARCH DIM1 TABLE. | 4F12923 | |
D | 05441 | 1 00000 0 05444 | 2870 | TXI | RD2,0 IF FOUND, THEN | 4F12924 | |
05442 | 0 50000 0 01101 | 2871 | CS1 | CLA | D12 PICKUP DIMENSION 1 | 4F12925 | |
D | 05443 | 1 00000 0 05467 | 2872 | TXI | DVS,0 AND GO TEST SIZE. OTHERWISE, | 4F12926 | |
05444 | 0 07400 4 01775 | 2873 | RD2 | TSX | DIM2SR,4 * GO SEARCH DIM2 TABLE. | 4F12927 | |
D | 05445 | 1 00000 0 05455 | 2874 | TXI | RD3,0 AND IF FOUND, | 4F12928 | |
05446 | 0 56000 0 01101 | 2875 | CS2 | LDQ | D12 PICKUP | 4F12929 | |
05447 | 0 60000 0 01361 | 2876 | STZ | N2 DIMENSION 1 AND | 4F12930 | ||
05450 | −0 62000 0 01361 | 2877 | SLQ | N2 DIMENSION 2 | 4F12931 | ||
05451 | −0 76300 0 00022 | 2878 | LGL | 18 AND MULTIPLY | 4F12932 | ||
05452 | 0 20000 0 01361 | 2879 | MPY | N2 THEM TOGETHER. | 4F12933 | ||
05453 | 0 77100 0 00001 | 2880 | ARS | 1 THEN | 4F12934 | ||
D | 05454 | 1 00000 0 05467 | 2881 | TXI | DVS,0 GO TEST THE PRODUCT. OTHERWISE, | 4F12935 | |
05455 | 0 07400 4 02005 | 2882 | RD3 | TSX | DIM3SR,4 * GO SEARCH DIM3 TABLE. | 4F12936 | |
D | 05456 | 1 00000 0 05533 | 2883 | TXI | NODIM,0 AND IF FOUND, | 4F12937 | |
05457 | 0 56000 0 01101 | 2884 | CS3 | LDQ | D12 PICKUP | 4F12938 | |
05460 | 0 60000 0 01361 | 2885 | STZ | N2 DIMENSION 1, | 4F12939 | ||
05461 | −0 62000 0 01361 | 2886 | SLQ | N2 DIMENSION 2, | 4F12940 | ||
05462 | −0 76300 0 00022 | 2887 | LGL | 18 AND DIMENSION 3. | 4F12941 | ||
05463 | 0 20000 0 01361 | 2888 | MPY | N2 MULTIPLY | 4F12942 | ||
05464 | 0 76500 0 00022 | 2889 | LRS | 18 THEM TOGETHER, | 4F12943 | ||
05465 | 0 20000 0 01102 | 2890 | MPY | D3 AND IF | 4F12944 | ||
05466 | 0 76300 0 00021 | 2891 | LLS | 17 THEIR | 4F12945 | ||
05467 | 0 40200 0 01407 | 2892 | DVS | SUB | L(1) PRODUCT IS | 4F12946 | |
05470 | 0 10000 0 05533 | 2893 | TZE | NODIM GREATER THAN 1, THEN | 4F12947 | ||
05471 | 0 76700 0 00022 | 2894 | ALS | 18 PLACE DIMENSION-1 IN THE | 4F12948 | ||
05472 | 0 60100 0 01347 | 2895 | STO | G DECREMENT OF G, AND | 4F12949 | ||
05473 | 0 07400 4 00417 | 2896 | TSX | FXCNIX,4 * GO ENTER IN FIXCON, AND GET TAG. | 4F12950 | ||
05474 | 0 76700 0 00022 | 2897 | ALS | 18 ADJUST, AND STORE TAG IN THE | 4F12951 | ||
05475 | 0 62200 0 01364 | 2898 | STD | RAT IMCREMENT OF RAT. THEN | 4F12952 | ||
05476 | 0 07400 4 02372 | 2899 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F12953 | ||
05477 | 0 07400 4 01731 | 2900 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12954 | ||
05500 | 0 00000 0 01367 | 2901 | PZE | SL WORD1--0(IFN)000 | 4F12955 | ||
05501 | 0 00000 0 01561 | 2902 | PZE | LXD WORD2--LXD000 | 4F12956 | ||
05502 | 0 00000 0 01501 | 2903 | PZE | 2P WORO3--200000 | 4F12957 | ||
05503 | 0 00000 0 01364 | 2904 | PZE | RAT WORD4--0(FIXCON TAG)008 | 4F12958 | ||
05504 | 0 07400 4 02372 | 2905 | TSX | JIF,4 * GO JONP IFN, AND SET SL AND TL. | 4F12959 | ||
05505 | 0 07400 4 05754 | 2906 | TSX | ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. | 4F12960 | ||
05506 | 0 07400 4 01731 | 2907 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12961 | ||
05507 | 0 00000 0 01367 | 2908 | PZE | SL WORD1--0(IFN)000 OR 000000 | 4F12962 | ||
05510 | 0 00000 0 17401 | 2909 | PZE | OP WORD2--(OPERATION CODE) | 4F12963 | ||
05511 | 0 00000 0 17403 | 2910 | PZE | SA WORD3--(SYMBOLIC ADDRESS) | 4F12964 | ||
05512 | 0 00000 0 01416 | 2911 | PZE | ST WORD4--000008 | 4F12965 | ||
05513 | 0 60000 0 01367 | 2912 | STZ | SL CLEAR SL, AND | 4F12966 | ||
05514 | 0 07400 4 05757 | 2913 | TSX | LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. | 4F12967 | ||
05515 | 0 07400 4 02375 | 2914 | TSX | GIF,4 * GET IFN IN SL AND TL. | 4F12968 | ||
05516 | 0 07400 4 01731 | 2915 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12969 | ||
05517 | 0 00000 0 01406 | 2916 | PZE | L(0) WORD1--000000 | 4F12970 | ||
05520 | 0 00000 0 01576 | 2917 | PZE | TIX WORD2--TIX001 | 4F12971 | ||
05521 | 0 00000 0 01367 | 2918 | PZE | SL WORD3--0(IFN)0004 | 4F12972 | ||
05522 | 0 00000 0 01416 | 2919 | PZE | ST WORD4--000008 | 4F12973 | ||
05523 | 0 60000 0 01367 | 2920 | STZ | SL CLEAR SL, AND | 4F12974 | ||
05524 | 0 07400 4 05754 | 2921 | TSX | ETMSW,4 * IF ETMSW = NOP, COMPILE ETM, SL=0. | 4F12975 | ||
05525 | 0 07400 4 01731 | 2922 | TSX | CIT,4 * G0 MAKE THE FOLLOWING CIT ENTRY= | 4F12976 | ||
05526 | 0 00000 0 01406 | 2923 | PZE | L(0) WORD1--000000 | 4F12977 | ||
05527 | 0 00000 0 01546 | 2924 | PZE | DED WORD2--DED000 | 4F12978 | ||
05530 | 0 00000 0 01406 | 2925 | PZE | L(0) WORD3--000000 | 4F12979 | ||
05531 | 0 00000 0 01416 | 2926 | PZE | ST WORD4--000008 | 4F12980 | ||
D | 05532 | 1 00000 0 05537 | 2927 | TXI | CMA5,0 IF THE PRODUCT OF DIMENSIONS IS | 4F12981 | |
05533 | 0 07400 1 05773 | 2928 | NODIM | TSX | IFFIX,1 * LESS THAN 2, TEST TYPE OF VARIABLE, | 4F12982 | |
D | 05534 | 1 00000 0 05537 | 2929 | TXI | CMA5,0 AND IF FIXED POINT, | 4F12983 | |
05535 | 0 07400 1 03321 | 2930 | TSX | TET00,1 * GO ENTER VARIABLE IN | 4F12984 | ||
05536 | 0 00000 0 00000 | 2931 | INOUT | PZE | ** EITHER FORVAL OR FORVAR TABLE. | 4F12985 | |
05537 | 0 07400 4 01731 | 2932 | CMA5 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F12986 | |
05540 | 0 00000 0 01367 | 2933 | PZE | SL WORD1--0(IFN)000 OR 000000 | 4F12987 | ||
05541 | 0 00000 0 17401 | 2934 | PZE | OP WORD2--NTR000 OR CPY000 | 4F12988 | ||
05542 | 0 00000 0 17403 | 2935 | PZE | SA WORD3--(SYMBOL) | 4F12989 | ||
05543 | 0 00000 0 17402 | 2936 | PZE | RA WORD4--(RELATIVE ADDRESS) | 4F12990 | ||
05544 | 0 60000 0 01367 | 2937 | STZ | SL CLEAR SL, AND | 4F12991 | ||
05545 | 0 60000 0 01351 | 2938 | STZ | GTAG CLEAR GTAG. THEN TAKE EXIT | 4F12992 | ||
D | 05546 | 1 00000 0 05147 | 2939 | CMA3 | TXI | NXS,0 * SWITCH TO RPT OR NXS. | 4F12993 |
2940 | END OF PROGRAM CMA. | 4F12994 | |||||
2941 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F12995 | |||||
2942 | 4F12996 | ||||||
2943 | EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00. USES=CMA. | 4F12997 | |||||
2944 | EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN. | 4F12998 | |||||
05547 | 3 00006 2 05414 | 2945 | EMK | TXH | CMA1,2,6 * IF NO CHARACTERS REMAIN, THEN | 4F12999 | |
05550 | −0 53400 4 17400 | 2946 | LXD | DOLEV,4 CHECK THE NUMBER OF PARENTHESES. | 4F13000 | ||
05551 | −3 00000 4 05553 | 2947 | TXL | FIN,4,0 IF THERE ARE TOO MANY LPARENS, | 4F13001 | ||
05552 | 0 07400 4 03400 | 2948 | TSX | DIAG,4 * GO TO THE DIAGNOSTIC. OTHERWISE, | 4F13002 | ||
05553 | 0 07400 4 05757 | 2949 | FIN | TSX | LTMSW,4 * IF LTMSW = NOP, COMPILE LTM. SL=0. | 4F13003 | |
05554 | 0 07400 4 02372 | 2950 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F13004 | ||
2951 | LAST = ENTRY POINT SET BY BXT SWITCH. | 4F13005 | |||||
05555 | 0 07400 4 01731 | 2952 | LAST | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13006 | |
05556 | 0 00000 0 01367 | 2953 | PZE | SL WORD1--0(IFN)000 | 4F13007 | ||
05557 | 0 00000 0 01537 | 2954 | PZE | CAL WORD2--CAL000 | 4F13008 | ||
05560 | 0 00000 0 01510 | 2955 | PZE | 15P WORD3--*00000 | 4F13009 | ||
05561 | 0 00000 0 01406 | 2956 | PZE | L(0) WORD4--000000 | 4F13010 | ||
05562 | 0 07400 4 06023 | 2957 | TSX | LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= | 4F13011 | ||
05563 | 0 00000 0 01406 | 2958 | PZE | L(0) WORD1--000000 | 4F13012 | ||
05564 | 0 00000 0 06125 | 2959 | PZE | XIT WORD2--XITO00 | 4F13013 | ||
05565 | 0 00000 0 06141 | 2960 | PZE | END WORD3--(RTN) OR (FIL) | 4F13014 | ||
05566 | 0 00000 0 01406 | 2961 | PZE | L(0) WORD4--000000 | 4F13015 | ||
2962 | FINI = ENTRY POINT USED BY EFT. | 4F13016 | |||||
05567 | 0 50000 0 05376 | 2963 | FINI | CLA | RESET RESET BXT SWITCH | 4F13017 | |
05570 | 0 62100 0 04744 | 2964 | STA | BXT TO RSC. | 4F13018 | ||
05571 | 0 50000 0 01151 | 2965 | CLA | F−1 TEST FOR AN EXTERNAL | 4F13019 | ||
05572 | 0 40200 0 01477 | 2966 | SUB | 5BLANS STATEMENT NUMBER, AND IF NONE, | 4F13020 | ||
05573 | 0 10000 0 03440 | 2967 | TZE | CA010 * EXIT TO PROCESS NEXT STATEMENT. | 4F13021 | ||
05574 | −0 50000 0 01520 | 2968 | CAL | MINUS0 OTHERWISE, SET THE SIGN | 4F13022 | ||
05575 | −0 60200 0 00030 | 2969 | ORS | EIFNO OF EIFNO TO MINUS, AND | 4F13023 | ||
05576 | 0 07400 1 03321 | 2970 | TSX | TET00,1 * GO ENTER -(EIFNO) | 4F13024 | ||
05577 | 0 00000 0 00000 | 2971 | PZE | 0 IN THE TEIFNO TABLE. | 4F13025 | ||
05600 | −0 50000 0 00030 | 2972 | CAL | EIFNO THEN RESTORE | 4F13026 | ||
05601 | 0 60100 0 00030 | 2973 | STO | EIFNO EIFNO, AND | 4F13027 | ||
D | 05602 | 1 00000 0 03440 | 2974 | TXI | CA010,0 * EXIT TO PROCESS NEXT STATEMENT. | 4F13028 | |
2975 | END OF PROGRAM EMK. | 4F13029 | |||||
2976 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13030 | |||||
2977 | 4F13031 | ||||||
2978 | STATEA/4-SUBROUTINES USED BY STATE A= | 4F13032 | |||||
2979 | |||||||
2980 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | ||||||
2981 | 4F13033 | ||||||
2982 | BEG(TYP),4/ CALLS=DIAG. USES RSC. | 4F13034 | |||||
2983 | BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT. | 4F13035 | |||||
05603 | −0 63400 4 05605 | 2984 | BEG | SXD | BEX,4 SAVE C(XR4) FOR RETURN, | 4F13036 | |
05604 | −0 50000 0 05620 | 2985 | CAL | BEGTR SET CONTROL TRANSFER | 4F13037 | ||
05605 | 1 00000 0 05146 | 2986 | BEX | TXI | CXS,0,** * AND GO EXECUTE BEGINNING SCAN. | 4F13038 | |
2987 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13039 | |||||
2988 | 4F13040 | ||||||
2989 | BEGTR/ CONTR0L TRANSFERS FOR BEGINNING SCAN= | 4F13041 | |||||
D | 05606 | 1 00000 0 05621 | 2990 | TXI | NLS,0 * ENDMARK (NO LIST SCAN) | 4F13042 | |
05607 | 0 07400 4 03400 | 2991 | IBC | TSX | DIAG,4 * ( (ILLEGAL CHARACTER IN I/O SETUP). | 4F13043 | |
D | 05610 | 1 00000 0 05623 | 2992 | TXI | CMB,0 * , | 4F13044 | |
D | 05611 | 1 00000 0 05607 | 2993 | TXI | IBC,0 ) (ILLEGAL CHARACTER IN I/O SETUP). | 4F13045 | |
D | 05612 | 1 00000 0 05607 | 2994 | TXI | IBC,0 = (ILLEGAL CHARACTER IN I/O SETUPI. | 4F13046 | |
D | 05613 | 1 00000 0 05607 | 2995 | TXI | IBC,0 - (ILLEGAL CHARACTER IN I/O SETUP). | 4F13047 | |
D | 05614 | 1 00000 0 05607 | 2996 | TXI | IBC,0 / (ILLEGAL CHARACTER IN I/O SETUP). | 4F13048 | |
D | 05615 | 1 00000 0 05607 | 2997 | TXI | IBC,0 . (ILLEGAL CHARACTER IN I/O SETUP). | 4F13049 | |
D | 05616 | 1 00000 0 05607 | 2998 | TXI | IBC,0 + (ILLEGAL CHARACTER IN I/O SETUP). | 4F13050 | |
D | 05617 | 1 00000 0 05607 | 2999 | TXI | IBC,0 * (ILLEGAL CHARACTER IN I/O SETUP). | 4F13051 | |
05620 | 0 00000 0 05620 | 3000 | BEGTR | PZE | BEGTR INDEXING ADDRESS FOR ABOVE LIST. | 4F13052 | |
3001 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13053 | |||||
3002 | 4F13054 | ||||||
3003 | NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN. | 4F13055 | |||||
05621 | 0 50000 0 06105 | 3004 | NLS | CLA | NLA IF ENDMARK IS MET, | 4F13056 | |
05622 | 0 62100 0 04744 | 3005 | STA | BXT SET BXT SWITCH TO LAST. | 4F13057 | ||
3006 | CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. | 4F13058 | |||||
05623 | −0 53400 4 05605 | 3007 | CMB | LXD | BEX,4 RESTORE THE C(XR4), AND | 4F13059 | |
3008 | TYP = ENTRY POINT USED BY LPR,SPC,CMA. | 4F13060 | |||||
05624 | 0 50000 0 17310 | 3009 | TYP | CLA | CHR−6 TEST FIRST CHARACTER | 4F13061 | |
05625 | 0 40200 0 01404 | 3010 | SUB | PLUS FOR VARIABLE | 4F13062 | ||
05626 | −0 12000 0 05634 | 3011 | TMI | ABS OR CONSTANT. | 4F13063 | ||
05627 | 3 00044 2 05633 | 3012 | TXH | SMB,2,36 IF VARIABLE, | 4F13064 | ||
05630 | −0 50000 0 01430 | 3013 | CAL | BLANK ADD A BLANK | 4F13065 | ||
05631 | 0 76700 2 00044 | 3014 | ALS | 36,2 IF SYMBOL CONTAINS | 4F13066 | ||
05632 | −0 60200 0 17404 | 3015 | ORS | SYM LESS THAN 6 CHARACTERS, AND | 4F13067 | ||
05633 | 0 02000 4 00001 | 3016 | SMB | TRA | 1,4 * TAKE VARIABLE EXIT TO CALLER. | 4F13068 | |
05634 | 0 53400 2 01413 | 3017 | ABS | LXA | L(5),2 IF CONSTANT, | 4F13069 | |
05635 | 0 50000 2 17315 | 3018 | CLA | CHR−1,2 TNEN | 4F13070 | ||
05636 | 0 60100 0 17307 | 3019 | STO | BIN CONVERT | 4F13071 | ||
05637 | −3 00000 2 05645 | 3020 | CSJ | TXL | INT,2,** BCD | 4F13072 | |
05640 | 0 76700 0 00002 | 3021 | ALS | 2 DIGITS | 4F13073 | ||
05641 | 0 40000 0 17307 | 3022 | ADD | BIN TO THEIR | 4F13074 | ||
05642 | 0 76700 0 00001 | 3023 | ALS | 1 BINARY | 4F13075 | ||
05643 | 0 40000 2 17316 | 3024 | ADD | CHR,2 EOUIVALENT, | 4F13076 | ||
05644 | 1 77777 2 05636 | 3025 | TXI | CSJ−1,2,−1 AND WHEN DONE, | 4F13077 | ||
05645 | 0 02000 4 00002 | 3026 | INT | TRA | 2,4 * TAKE CONSTANT EXIT TO CALLER. | 4F13078 | |
3027 | END 0F PROGRAM BEG(TYP). | 4F13079 | |||||
3028 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13080 | |||||
3029 | 4F13081 | ||||||
3030 | BRW,4/ CALLS=JIF,BEG,VRA,CIT. CALLERS=WBT,RBT,WRD. | 4F13082 | |||||
05646 | −0 63400 4 06054 | 3031 | BRW | SXD | XRW,4 SAVE THE C(XR4), AND | 4F13083 | |
05647 | 0 60200 0 06140 | 3032 | SLW | CON SET CON = 0 OR ,,144 OR ,,192. | 4F13084 | ||
05650 | 0 07400 4 02372 | 3033 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F13085 | ||
05651 | 0 07400 4 05603 | 3034 | TSX | BEG,4 * GO SCAN AND TEST TYPE OF SYMBOL. | 4F13086 | ||
05652 | 0 07400 4 06032 | 3035 | TSX | VRA,4 * IF VARIABLE, ENTER FORVAR AND CITS. | 4F13087 | ||
05653 | 0 76700 0 00022 | 3036 | ALS | 18 IF CONSTANT, ADJUST CONVERTED | 4F13088 | ||
05654 | 0 60100 0 17402 | 3037 | STO | RA NUMBER, AND SET RA. | 4F13089 | ||
05655 | 0 07400 4 01731 | 3038 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13090 | ||
05656 | 0 00000 0 01371 | 3039 | PZE | TL WORD1--0(IFN)0(248) | 4F13091 | ||
05657 | 0 00000 0 17401 | 3040 | PZE | OP WORD2--(WTB,RBT,WRD,RDD)000 | 4F13092 | ||
05660 | 0 00000 0 01406 | 3041 | PZE | L(0) WORD3--000000 | 4F13093 | ||
05661 | 0 00000 0 17402 | 3042 | PZE | RA WORD4--000000 OR 0(UNIT)000 | 4F13094 | ||
05662 | −0 50000 0 01544 | 3043 | CAL | CPY MOVE CPY000 | 4F13095 | ||
05663 | 0 60200 0 17401 | 3044 | SLW | OP INTO OP. | 4F13096 | ||
05664 | −0 50000 0 00415 | 3045 | CAL | TXLOP SET OP-SWITCHES, | 4F13097 | ||
05665 | 0 63000 0 05754 | 3046 | STP | ETMSW ETMSW AND LTMSW, | 4F13098 | ||
05666 | 0 63000 0 05757 | 3047 | STP | LTMSW TO THE TRA CASE. | 4F13099 | ||
05667 | −0 50000 0 06133 | 3048 | CAL | RTN MOVE (RTN) | 4F13100 | ||
05670 | 0 60200 0 06141 | 3049 | SLW | END INTO END. | 4F13101 | ||
05671 | 0 60000 0 01367 | 3050 | STZ | SL CLEAR SL, | 4F13102 | ||
05672 | −0 53400 4 06054 | 3051 | LXD | XRW,4 RESTORE THE C(XR4), AND | 4F13103 | ||
05673 | 0 02000 4 00001 | 3052 | TRA | 1,4 * EXIT TO CALLER. | 4F13104 | ||
3053 | END OF PROGRAM BRW. | 4F13105 | |||||
3054 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13106 | |||||
3055 | 4F13107 | ||||||
3056 | BSS,2/ CALLS=CIT00. CALLERS=LPR,C1600. | 4F13108 | |||||
3057 | BSS COMPILES= IFN BSS 0. | 4F13109 | |||||
05674 | 0 07400 4 01731 | 3058 | BSS | TSX | CIT00,4 * GO MAKE FOLLOWING CIT ENTRY= | 4F13110 | |
05675 | 0 00000 0 01367 | 3059 | PZE | SL WORD1--0(IFN)000 | 4F13111 | ||
05676 | 0 00000 0 01536 | 3060 | PZE | L(BSS) WORD2--BSS000 | 4F13112 | ||
05677 | 0 00000 0 01406 | 3061 | PZE | L(0) WORD3--000000 | 4F13113 | ||
05700 | 0 00000 0 01406 | 3062 | PZE | L(0) NORD4--000000 | 4F13114 | ||
05701 | 0 02000 2 00001 | 3063 | TRA | 1,2 * EXIT TO CALLER+1. | 4F13115 | ||
3064 | END OF PROGRAM BSS. | 4F13116 | |||||
3065 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13117 | |||||
3066 | 4F13118 | ||||||
3067 | CA100,4/ CALLS=DIAG. CALLER=CA000. | 4F13119 | |||||
3068 | CA100 READS NEXT S0URCE PROGRAM CARD (1 TAPE RECORD). | 4F13120 | |||||
05702 | 0 53400 2 01413 | 3069 | CA100 | LXA | TERC,2 PREPARE TO C0UNT | 4F13121 | |
05703 | −0 63400 2 01112 | 3070 | SXD | 1G,2 TAPE READING ERRORS. | 4F13122 | ||
05704 | −0 76000 0 00012 | 3071 | RTT | TURN OFF TAPE CHECK INDICATOR. | 4F13123 | ||
05705 | 0 76100 0 00000 | 3072 | NOP | PROCEED TO NEXT INSTRUCTION. | 4F13124 | ||
05706 | 0 76200 0 00202 | 3073 | CA101 | RDS | 130 SELECT SOURCE TAPE FOR READING. | 4F13125 | |
05707 | 0 53400 2 01420 | 3074 | LXA | L(12),2 INITIALIZE INDEX B FOR 12 CYCLES 0F | 4F13126 | ||
3075 | C0PY LOOP. | 4F13127 | |||||
05710 | 0 70000 2 01347 | 3076 | CA102 | CPY | FT+12,2 C0PY INTO FT REGION | 4F13128 | |
05711 | 0 02000 0 05721 | 3077 | TRA | CA103 NEXT SOURCE PROGRAM CARD. | 4F13129 | ||
05712 | 0 02000 0 05740 | 3078 | TRA | CA120 END OF FILE, GO FINISH LAST STATEM. | 4F13130 | ||
05713 | −0 53400 2 01112 | 3079 | CA130 | LXD | 1G,2 TEST TAPE ERROR COUNTER | 4F13131 | |
05714 | 2 00001 2 05716 | 3080 | TIX | CA131,2,1 BY TRYING TO REDUCE BY 1. | 4F13132 | ||
05715 | 0 07400 4 03400 | 3081 | TSX | DIAG,4 * FAILED 5 TIMES IN READING TAPE 2. | 4F13133 | ||
05716 | −0 63400 2 01112 | 3082 | CA131 | SXD | 1G,2 SAVE REDUCED VALUE IN COUNTER. | 4F13134 | |
05717 | 0 76400 0 00202 | 3083 | BST | 130 BACKSPACE FORMULA TAPE, | 4F13135 | ||
05720 | 0 02000 0 05706 | 3084 | TRA | CA101 AND GO BACK TO READ AGAIN. | 4F13136 | ||
05721 | 2 00001 2 05710 | 3085 | CA103 | TIX | CA102,2,1 TEST EXIT FROM LOOP. | 4F13137 | |
05722 | 0 76600 0 00333 | 3086 | IOD | DELAY UNTIL TAPE DISCONNECTS. | 4F13138 | ||
05723 | −0 76000 0 00012 | 3087 | RTT | CHECK READING OF TAPE. | 4F13139 | ||
D | 05724 | 1 00000 0 05713 | 3088 | TXI | CA130,0 IF INCORRECT, GO CHECK ERROR C0UNT. | 4F13140 | |
05725 | 0 53400 2 01420 | 3089 | LXA | L(12),2 PREPARE TO SCAN 12 WORDS OF CARD. | 4F13141 | ||
05726 | 0 50000 0 01526 | 3090 | CA112 | CLA | BLANKS TEST | 4F13142 | |
05727 | 0 40200 2 01347 | 3091 | SUB | FT+12,2 FOR | 4F13143 | ||
05730 | −0 10000 0 05733 | 3092 | TNZ | CA113 BLANK | 4F13144 | ||
05731 | 2 00001 2 05726 | 3093 | TIX | CA112,2,1 CARD. | 4F13145 | ||
05732 | 0 02000 0 05702 | 3094 | TRA | CA100 IF BLANK, GO TO READ NEXT CARD. | 4F13146 | ||
05733 | −0 50000 0 01333 | 3095 | CA113 | CAL | FT IF NOT BLANK, | 4F13147 | |
05734 | 0 77100 0 00036 | 3096 | ARS | 30 EXAMINE FIRST | 4F13148 | ||
05735 | 0 40200 0 01421 | 3097 | SUB | L(C) CHARACTER TO | 4F13149 | ||
05736 | 0 10000 0 05702 | 3098 | TZE | CA100 TEST FOR COMMENT CARD. | 4F13150 | ||
05737 | 0 02000 4 00001 | 3099 | TRA | 1,4 * EXIT IF NEITHER BLANK NOR COMMENT. | 4F13151 | ||
05740 | 0 60000 0 01333 | 3100 | CA120 | STZ | FT INDICATE THAT FINAL | 4F13152 | |
05741 | −0 63400 0 02575 | 3101 | SXD | ENDWRD,0 STATEMENT HAS BEEN READ IN. | 4F13153 | ||
05742 | 0 02000 4 00001 | 3102 | TRA | 1,4 * EXIT TO MAIN ROUTINE TO FINISH. | 4F13154 | ||
3103 | END OF PROGRAM CA100. | 4F13155 | |||||
3104 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13156 | |||||
3105 | 4F13157 | ||||||
3106 | CC500,4/ CALLER=CC000. | 4F13158 | |||||
3107 | CC500 BRINGS NEXT CHARACTER OF DICTIONARY INTO AC(30-35). | 4F13159 | |||||
05743 | −0 75400 0 00000 | 3108 | CC500 | PXD | ,0 CLEAR THE AC. | 4F13160 | |
05744 | 2 00001 2 05752 | 3109 | TIX | CC502,2,1 IF NO DICTIONARY CHARACTERS | 4F13161 | ||
05745 | −0 53400 2 01113 | 3110 | LXD | 2G,2 REMAIN IN THE MO, THEN | 4F13162 | ||
05746 | 0 56000 2 06145 | 3111 | LDQ | DIC,2 REFILL WITH NEXT DICTIONARY WORD. | 4F13163 | ||
05747 | 1 77777 2 05750 | 3112 | TXI | CC501,2,−1 RESET THE | 4F13164 | ||
05750 | −0 63400 2 01113 | 3113 | CC501 | SXD | 2G,2 DICTIONARY WORD TAG, AND | 4F13165 | |
05751 | 0 53400 2 01414 | 3114 | LXA | L(6),2 SET THE CHARACTER COUNT = 6. | 4F13166 | ||
05752 | −0 76300 0 00006 | 3115 | CC502 | LGL | 6 SMIFT CHAR INTO AC(30-35), | 4F13167 | |
05753 | 0 02000 4 00001 | 3116 | TRA | 1,4 * AND RETURN TO CALLER. | 4F13168 | ||
3117 | END OF PROGRAM CC500. | 4F13169 | |||||
3118 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13170 | |||||
3119 | 4F13171 | ||||||
3120 | ETMSW(LTMSW),4/ CALLS=CIT. CALLERS=RDC,LPR,SPC,CMA,EMK. | 4F13172 | |||||
3121 | ETMSW = ENTRY POINT USED BY RDC,CMA. | 4F13173 | |||||
D | 05754 | −3 00000 0 05772 | 3122 | ETMSW | TXL | NOTTM,0 SWITCH (TXL=TRA, TXH=NOPI. | 4F13174 |
05755 | −0 50000 0 06112 | 3123 | CAL | ETM PICKUP ETM000, AND | 4F13175 | ||
05756 | 1 00000 0 05761 | 3124 | XR4X | TXI | SETOP,0,** GO SET OP. | 4F13176 | |
3125 | LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK. | 4F13177 | |||||
D | 05757 | −3 00000 0 05772 | 3126 | LTMSW | TXL | NOTTM,0 SWITCH (TXL=TRA, TXH=NOP). | 4F13178 |
05760 | −0 50000 0 06113 | 3127 | CAL | LTM PICKUP LTM000, AND | 4F13179 | ||
05761 | 0 60200 0 06142 | 3128 | SETOP | SLW | TOP SET TOP. | 4F13180 | |
05762 | −0 63400 4 05756 | 3129 | SXD | XR4X,4 SAVE THE C(XR4), AND | 4F13181 | ||
05763 | 0 07400 4 01731 | 3130 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13182 | ||
05764 | 0 00000 0 01367 | 3131 | PZE | SL WORD1--0(IFN)000 | 4F13183 | ||
05765 | 0 00000 0 06142 | 3132 | PZE | TOP WORD2--ETM000 OR LTM000 | 4F13184 | ||
05766 | 0 00000 0 01406 | 3133 | PZE | L(0) WORD3--000000 | 4F13185 | ||
05767 | 0 00000 0 01406 | 3134 | PZE | L(0) WORD4--000000 | 4F13186 | ||
05770 | 0 60000 0 01367 | 3135 | STZ | SL CLEAR,SL, | 4F13187 | ||
05771 | −0 53400 4 05756 | 3136 | LXD | XR4X,4 RESTORE THE C(XR4), AND | 4F13188 | ||
05772 | 0 02000 4 00001 | 3137 | NOTTM | TRA | 1,4 * EXIT TO CALLER. | 4F13189 | |
3138 | END OF PROGRAM ETMSW(LTMSW). | 4F13190 | |||||
3139 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13191 | |||||
3140 | 4F13192 | ||||||
3141 | IFFIX,1/ USES=TESTFX. CALLERS=CMA,VRA(VRD). | 4F13193 | |||||
05773 | −0 50000 0 00030 | 3142 | IFFIX | CAL | EIFNO SET | 4F13194 | |
05774 | 0 60000 0 01347 | 3143 | STZ | G G TO | 4F13195 | ||
05775 | 0 62200 0 01347 | 3144 | STD | G (0(IFN)000). | 4F13196 | ||
05776 | −0 50000 0 17404 | 3145 | CAL | SYM MOVE SYMBOL | 4F13197 | ||
05777 | 0 60200 0 01350 | 3146 | SLW | G+1 INTO G+1. | 4F13198 | ||
06000 | −0 50000 0 17310 | 3147 | CAL | CHR−6 PICKUP 1ST CHARACTER OF SYMBOL, AND | 4F13199 | ||
D | 06001 | 1 00000 0 03242 | 3148 | TXI | TESTFX+1,0 * GO TEST FOR FIXED OR FLOATING PT. | 4F13200 | |
3149 | END OF PROGRAM IFFIX. | 4F13201 | |||||
3150 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13202 | |||||
3151 | 4F13203 | ||||||
3152 | INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB. | 4F13204 | |||||
3153 | CALLERS=RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD. | 4F13205 | |||||
3154 | INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD. | 4F13206 | |||||
06002 | 0 50000 0 01414 | 3155 | INPUT | CLA | L(6) PICKUP 6 TO | 4F13207 | |
TD | 06003 | 1 00000 0 06005 | 3156 | TXI | OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY. | 4F13208 | |
3157 | OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD. | 4F13209 | |||||
06004 | 0 50000 0 01413 | 3158 | OUTPUT | CLA | L(5) PICKUP 5 TO | 4F13210 | |
06005 | 0 60100 0 05536 | 3159 | STO | INOUT SET INOUT FOR FORVAR ENTRY. | 4F13211 | ||
06006 | 0 07400 4 02375 | 3160 | TSX | GIF,4 * SET SL = IFN,000. | 4F13212 | ||
06007 | 0 07400 4 01731 | 3161 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13213 | ||
06010 | 0 00000 0 01367 | 3162 | PZE | SL WORD1--0(IFN)000 | 4F13214 | ||
06011 | 0 00000 0 01537 | 3163 | PZE | CAL WORD2--CAL000 | 4F13215 | ||
06012 | 0 00000 0 01510 | 3164 | PZE | 15P WORD3--*00000 | 4F13216 | ||
06013 | 0 00000 0 01406 | 3165 | PZE | L(0) WORD4--000000 | 4F13217 | ||
06014 | 0 07400 4 06023 | 3166 | TSX | LIB,4 * MAKE CLOSUB ENTRY, AND COMPILE= | 4F13218 | ||
06015 | 0 00000 0 01406 | 3167 | PZE | L(0) WORD1--000000 | 4F13219 | ||
06016 | 0 00000 0 06125 | 3168 | PZE | XIT WORD2--XIT000 | 4F13220 | ||
06017 | 0 00000 0 06132 | 3169 | PZE | LEV WORD3--(LEV) | 4F13221 | ||
06020 | 0 00000 0 01406 | 3170 | PZE | L(0) WORD4--000000 | 4F13222 | ||
06021 | 0 60000 0 01367 | 3171 | STZ | SL CLEAR SL, AND | 4F13223 | ||
06022 | 0 02000 2 00001 | 3172 | TRA | 1,2 * EXIT TO CALLER. | 4F13224 | ||
3173 | END OF PROGRAM INPUT(OUTPUT). | 4F13225 | |||||
3174 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13226 | |||||
3175 | 4F13227 | ||||||
3176 | LIB,1/ CALLS=TET00,CIT. CA=LERS=RDC,EMK,INPUT(OUTPUT). | 4F13228 | |||||
06023 | −0 50000 4 00003 | 3177 | LIB | CAL | 3,4 MOVE NAME OF SUBROUTINE, | 4F13229 | |
06024 | 0 62100 0 06025 | 3178 | STA | LIC ADDRESS OF WHICH | 4F13230 | ||
06025 | −0 50000 0 00000 | 3179 | LIC | CAL | ** IS IN WORD3 OF CALLING SEQ, | 4F13231 | |
06026 | 0 60200 0 01347 | 3180 | SLW | G INTO G, AND | 4F13232 | ||
06027 | 0 07400 1 03321 | 3181 | TSX | TET00,1 * GO ENTER IN THE | 4F13233 | ||
06030 | 0 00000 0 00011 | 3182 | PZE | 9 CLOSUB TABLE. | 4F13234 | ||
D | 06031 | 1 00000 0 01731 | 3183 | TXI | CIT,0 * MAKE CIT ENTRY, AND EXIT TO CALLER. | 4F13235 | |
3184 | END OF PROGRAM LIB. | 4F13236 | |||||
3185 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13237 | |||||
3186 | 4F13236 | ||||||
3187 | VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF. | 4F13239 | |||||
3188 | CALLERS=RIT,WOT,EFT. | 4F13240 | |||||
3189 | VRA = ENTRY POINT USED BY EFT. | 4F13241 | |||||
06032 | 0 50000 0 02400 | 3190 | VRA | CLA | L(TL) RESET TPOA ADDRESS | 4F13242 | |
06033 | 0 62100 0 05102 | 3191 | STA | TPOA TO TL. | 4F13243 | ||
06034 | −0 50000 0 00415 | 3192 | CAL | TXLOP PREPARE TO SET OP-SWITCH TO TRA. | 4F13244 | ||
06035 | 1 77777 4 06037 | 3193 | TXI | VRD1,4,−1 SET RETURN TO TSX+2, AND GO SET OP. | 4F13245 | ||
3194 | VRD = ENTRY POINT USED BY RIT,WOT. | 4F13246 | |||||
06036 | 0 50000 0 00415 | 3195 | VRD | CLA | TXLOP PREPARE TO SET OP-SWITCH TO NOP. | 4F13247 | |
06037 | 0 63000 0 06052 | 3196 | VRD1 | STP | VRX SET VRX OP-SWITCH. | 4F13248 | |
06040 | −0 63400 4 06052 | 3197 | SXD | VRX,4 SAVE THE C(XR4) FOR RETURN. | 4F13249 | ||
06041 | 0 07400 1 05773 | 3198 | TSX | IFFIX,1 * SET UP IFN AND SYMBOL FOR FORVAR. | 4F13250 | ||
06042 | 0 07400 4 03400 | 3199 | TSX | DIAG,4 * ILLEGAL USE OF FLOATING VARIABLE. | 4F13251 | ||
06043 | 0 07400 1 03321 | 3200 | TSX | TET00,1 * IF SYMBOL IS FXD-PT, GO MAKE | 4F13252 | ||
06044 | 0 00000 0 00005 | 3201 | PZE | 5 ENTRY IN FORVAR TABLE. | 4F13253 | ||
06045 | 0 07400 4 01731 | 3202 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13254 | ||
06046 | 0 00000 0 01367 | 3203 | PZE | SL WORD1--0(IFN)000 | 4F13255 | ||
06047 | 0 00000 0 01537 | 3204 | PZE | CAL WORD2--CAL000 | 4F13256 | ||
06050 | 0 00000 0 17404 | 3205 | PZE | SYM WORD3--(FXD-PT SYMBOL) | 4F13257 | ||
06051 | 0 00000 0 01406 | 3206 | PZE | L(0) WORD4--000000 | 4F13258 | ||
06052 | 3 00000 0 06055 | 3207 | VRX | TXH | VDA,0,** SWITCH (TXL=TRA, TXH=NOP). | 4F13259 | |
06053 | −0 50000 0 06121 | 3208 | CAL | STD PICKUP STD000, AND | 4F13260 | ||
06054 | 1 00000 0 06076 | 3209 | XRW | TXI | RVX,0,** GO SET TOP. | 4F13261 | |
06055 | 0 50000 0 06140 | 3210 | VDA | CLA | CON IF CON | 4F13262 | |
06056 | 0 10000 0 06070 | 3211 | TZE | SDA IS NOT ZERO, | 4F13263 | ||
06057 | 0 60100 0 01347 | 3212 | STO | G THEN | 4F13264 | ||
06060 | 0 07400 4 00417 | 3213 | TSX | FXCNIX,4 * ENTER CON IN FIXCON,AND GET TAG. | 4F13265 | ||
06061 | 0 76700 0 00022 | 3214 | ALS | 18 ADJUST TAG, AND | 4F13266 | ||
06062 | 0 60100 0 17402 | 3215 | STO | RA SET RA. | 4F13267 | ||
06063 | 0 07400 4 01731 | 3216 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY. | 4F13268 | ||
06064 | 0 00000 0 01406 | 3217 | PZE | L(0) WORD1--000000 | 4F13269 | ||
06065 | 0 00000 0 01532 | 3218 | PZE | ADD WORD2--ADD000 | 4F13270 | ||
06066 | 0 00000 0 01501 | 3219 | PZE | 2P WORD3--200000 | 4F13271 | ||
06067 | 0 00000 0 17402 | 3220 | PZE | RA WORD4--(FIXCON TAG) | 4F13272 | ||
06070 | 0 07400 4 01731 | 3221 | SDA | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13273 | |
06071 | 0 00000 0 01406 | 3222 | PZE | L(0) WORD1--000000 | 4F13274 | ||
06072 | 0 00000 0 01535 | 3223 | PZE | ARS WORD2--ARS000 | 4F13275 | ||
06073 | 0 00000 0 01406 | 3224 | PZE | L(0) WORD3--000000 | 4F13276 | ||
06074 | 0 00000 0 01466 | 3225 | PZE | D18 NORD4--0(18)000 | 4F13277 | ||
06075 | −0 50000 0 01571 | 3226 | CAL | STA PICKUP STA000, AND | 4F13278 | ||
06076 | 0 60200 0 06142 | 3227 | RVX | SLW | TOP SET TOP TO STA OR STD. | 4F13279 | |
06077 | 0 07400 4 02372 | 3228 | TSX | JIF,4 * GO JUMP IFN, AND SET SL AND TL. | 4F13280 | ||
06100 | 0 07400 4 01731 | 3229 | TSX | CIT,4 * GO MAKE THE FOLLOWING CIT ENTRY= | 4F13281 | ||
06101 | 0 00000 0 01406 | 3230 | PZE | L(0) WORD1--000000 | 4F13282 | ||
06102 | 0 00000 0 06142 | 3231 | PZE | TOP WORD2--STA000 OR STD000 | 4F13283 | ||
06103 | 0 00000 0 01371 | 3232 | PZE | TL WORD3--0(IFN)000 | 4F13284 | ||
06104 | 0 00000 0 01406 | 3233 | PZE | L(0) WORD4--000000 | 4F13285 | ||
06105 | −0 75400 0 05555 | 3234 | NLA | PXD | LAST,0 CLEAR THE AC, | 4F13286 | |
06106 | −0 53400 4 06052 | 3235 | LXD | VRX,4 RESTORE THE C(XR4), AND | 4F13287 | ||
06107 | 0 02000 4 00001 | 3236 | TRA | 1,4 * EXIT TO CALLER. | 4F13288 | ||
3237 | END OF PROGRAM VRA(VRD). | 4F13289 | |||||
3238 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13290 | |||||
3239 | , | 4F13291 | |||||
3240 | STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= | 4F13292 | |||||
3241 | 4F13293 | ||||||
06110 | 222324000000 | 3242 | BCD | BCD | 1BCD000 CONSTANT USED BY IOT. | 4F13294 | |
06111 | 226263000000 | 3243 | BST | BCD | 1BST000 CONSTANT USED BY IOT. | 4F13295 | |
06112 | 256344000000 | 3244 | ETM | BCD | 1ETM000 CONSTANT USED BY IOT. | 4F13296 | |
06113 | 436344000000 | 3245 | LTM | BCD | 1LTM000 CONSTANT USED BY IOT. | 4F13297 | |
06114 | 456351000000 | 3246 | NTR | BCD | 1NTR000 CONSTANT USED BY IOT. | 4F13298 | |
06115 | 512451000000 | 3247 | RDR | BCD | 1RDR000 CONSTANT USED BY IOT. | 4F13299 | |
06116 | 512566000000 | 3248 | REW | BCD | 1REW000 CONSTANT USED BY IOT. | 4F13300 | |
06117 | 516322000000 | 3249 | RTB | BCD | 1RTB000 CONSTANT USED BY IOT. | 4F13301 | |
06120 | 624366000000 | 3250 | SLW | BCD | 1SLW000 CONSTANT USED BY IOT. | 4F13302 | |
06121 | 626324000000 | 3251 | STD | BCD | 1STD000 CONSTANT USED BY IOT. | 4F13303 | |
06122 | 662451000000 | 3252 | WDR | BCD | 1WDR000 CONSTANT USED BY IOT. | 4F13304 | |
06123 | 662526000000 | 3253 | WEF | BCD | 1WEF000 CONSTANT USED BY IOT. | 4F13305 | |
06124 | 666322000000 | 3254 | WTB | BCD | 1WTB000 CONSTANT USED BY IOT. | 4F13306 | |
06125 | 673163000000 | 3255 | XIT | BCD | 1XIT000 CONSTANT USED BY IOT. | 4F13307 | |
06126 | 742224233460 | 3256 | BDC | BCD | 1(BDC)␣ CONSTANT USED BY IOT. | 4F13308 | |
06127 | 742362303460 | 3257 | CSH | BCD | 1(CSH)␣ CONSTANT USED BY IOT. | 4F13309 | |
06130 | 742422233460 | 3258 | DBC | BCD | 1(DBC)␣ CONSTANT USED BY IOT. | 4F13310 | |
06131 | 742631433460 | 3259 | FIL | BCD | 1(FIL)␣ CONSTANT USED BY IOT. | 4F13311 | |
06132 | 744325653460 | 3260 | LEV | BCD | 1(LEV)␣ CONSTANT USED BY IOT. | 4F13312 | |
06133 | 745163453460 | 3261 | RTN | BCD | 1(RTN)␣ CONSTANT USED BY IOT. | 4F13313 | |
06134 | 746223303460 | 3262 | SCH | BCD | 1(SCH)␣ CONSTANT USED BY IOT. | 4F13314 | |
06135 | 746247303460 | 3263 | SPH | BCD | 1(SPH)␣ CONSTANT USED BY IOT. | 4F13315 | |
06136 | 746263303460 | 3264 | STH | BCD | 1(STH)␣ CONSTANT USED BY IOT. | 4F13316 | |
06137 | 746362303460 | 3265 | TSH | BCD | 1(TSH)␣ CONSTANT USED BY IOT. | 4F13317 | |
3266 | 4F13318 | ||||||
06140 | 3267 | CON | BSS | 1 VARIABLE USED BY IOT. | 4F13319 | ||
06141 | 0 00000 0 00000 | 3268 | END | PZE | ** VARIABLE USED BY IOT. | 4F13320 | |
06142 | 3269 | TOP | BSS | 1 VARIABLE USED BY IOT. | 4F13322 | ||
06143 | 0 00000 0 00000 | 3270 | TSA | PZE | ** VARIABLE USED BY IOT. | 4F13323 | |
06144 | 0 00000 0 00000 | 3271 | TTA | PZE | ** VARIABLE USED BY IOT. | 4F13324 | |
3272 | 4F13325 | ||||||
3273 | DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500). | 4F13326 | |||||
06145 | +244677274663 | 3274 | DIC | OCT | 244677274663 DO-GOT | 4F13327 | |
06146 | −067731267462 | 3275 | OCT | −67731267462 O-IF(S | 4F13328 | ||
06147 | +254562256266 | 3276 | OCT | 254562256266 ENSESW | 4F13329 | ||
06150 | +316323307731 | 3277 | OCT | 316323307731 ITCH-I | 4F13330 | ||
06151 | +267462254562 | 3278 | OCT | 267462254562 F(SENS | 4F13331 | ||
06152 | +254331273063 | 3279 | OCT | 254331273063 ELIGHT | 4F13332 | ||
06153 | −373126243165 | 3280 | OCT | −373126243165 -IFDIV | 4F13333 | ||
06154 | +312425233025 | 3281 | OCT | 312425233025 IDECHE | 4F13334 | ||
06155 | +234277312621 | 3282 | OCT | 234277312621 CK-IFA | 4F13335 | ||
06156 | +232364446443 | 3283 | OCT | 232364446443 CCUMUL | 4F13336 | ||
06157 | +216346514665 | 3284 | OCT | 216346514665 ATOROV | 4F13337 | ||
06160 | +255126434666 | 3285 | OCT | 255126434666 ERFLOW | 4F13338 | ||
06161 | −373126506446 | 3286 | OCT | −373126506446 -IFQUO | 4F13339 | ||
06162 | −233125456346 | 3287 | OCT | −233125456346 TIENTO | 4F13340 | ||
06163 | −252551264346 | 3288 | OCT | −252551264346 VERFLO | 4F13341 | ||
06164 | −267731267721 | 3289 | OCT | −267731267721 W-IF-A | 4F13342 | ||
06165 | −226231274577 | 3290 | OCT | −226231274577 SSIGN- | 4F13343 | ||
06166 | −226346477747 | 3291 | OCT | −226346477747 STOP-P | 4F13344 | ||
06167 | +216462257762 | 3292 | OCT | 216462257762 AUSE-S | 4F13345 | ||
06170 | +254562254331 | 3293 | OCT | 254562254331 ENSELI | 4F13346 | ||
06171 | +273063772431 | 3294 | OCT | 273063772431 GHT-DI | 4F13347 | ||
06172 | −042545623146 | 3295 | OCT | −42545623146 MENSIO | 4F13348 | ||
06173 | −057725506431 | 3296 | OCT | −57725506431 N-EQUI | 4F13349 | ||
06174 | −252143254523 | 3297 | OCT | −252143254523 VALENC | 4F13350 | ||
06175 | +257726512550 | 3298 | OCT | 257726512550 E-FREQ | 4F13351 | ||
06176 | −242545237077 | 3299 | OCT | −242545237077 UENCY- | 4F13352 | ||
06177 | +234645633145 | 3300 | OCT | 234645633145 CONTIN | 4F13353 | ||
06200 | −242577512521 | 3301 | OCT | −242577512521 UE-REA | 4F13354 | ||
06201 | +246321472577 | 3302 | OCT | 246321472577 DTAPE- | 4F13355 | ||
06202 | −112521243145 | 3303 | OCT | −112521243145 READIN | 4F13356 | ||
06203 | −076463632147 | 3304 | OCT | −76463632147 PUTTAP | 4F13357 | ||
06204 | +257751252124 | 3305 | OCT | 257751252124 E-READ | 4F13358 | ||
06205 | +245164447751 | 3306 | OCT | 245164447751 DRUM-R | 4F13359 | ||
06206 | +252124776651 | 3307 | OCT | 252124776651 EAD-WR | 4F13360 | ||
06207 | +316325632147 | 3308 | OCT | 316325632147 ITETAP | 4F13361 | ||
06210 | +257766513163 | 3309 | OCT | 257766513163 E-WRIT | 4F13362 | ||
06211 | +254664634764 | 3310 | OCT | 254664634764 EOUTPU | 4F13363 | ||
06212 | −236321472577 | 3311 | OCT | −236321472577 TTAPE- | 4F13364 | ||
06213 | −265131632524 | 3312 | OCT | −265131632524 WRITED | 4F13365 | ||
06214 | −116444774751 | 3313 | OCT | −116444774751 RUM-PR | 4F13366 | ||
06215 | +314563774764 | 3314 | OCT | 314563774764 INT-PU | 4F13367 | ||
06216 | −052330775125 | 3315 | OCT | −52330775125 NCH-RE | 4F13368 | ||
06217 | −263145247722 | 3316 | OCT | −263145247722 WIND-B | 4F13369 | ||
06220 | +212342624721 | 3317 | OCT | 212342624721 ACKSPA | 4F13370 | ||
06221 | +232577254524 | 3318 | OCT | 232577254524 CE-END | 4F13371 | ||
06222 | +263143257726 | 3319 | OCT | 263143257726 FILE-F | 4F13372 | ||
06223 | −065144216377 | 3320 | OCT | −65144216377 ORMAT- | 4F13373 | ||
06224 | −226422514664 | 3321 | OCT | −226422514664 SUBROU | 4F13374 | ||
06225 | −233145257723 | 3322 | OCT | −233145257723 TINE-C | 4F13375 | ||
06226 | −064444464577 | 3323 | OCT | −064444464577 OMMON- | 4F13376 | ||
06227 | −112563645145 | 3324 | OCT | −112563645145 RETURN | 4F13377 | ||
06230 | −372321434377 | 3325 | OCT | −372321434377 -CALL- | 4F13378 | ||
06231 | +254524747726 | 3326 | OCT | 254524747726 END(-F | 4F13379 | ||
06232 | −244523633146 | 3327 | OCT | −244523633146 UNCTIO | 4F13380 | ||
06233 | −057777777777 | 3328 | OCT | −057777777777 N-----. | 4F13381 | ||
06234 | 3329 | BSS | 10 | 4F133815 | |||
3330 | END OF DICTIONARY. | 4F13382 | |||||
3331 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13383 | |||||
3332 | 4F13384 | ||||||
3333 | T/ TRANSFER TABLE (USED BY CC000). | 4F13385 | |||||
D | 06246 | 1 00000 0 03653 | 3334 | T | TXI | C0100,0 DO. | 4F13386 |
D | 06247 | 1 00000 0 03720 | 3335 | TXI | C0200,0 G0 TO. | 4F13387 | |
D | 06250 | 1 00000 0 04106 | 3336 | TXI | C0400,0 IF (SENSE SWITCH. | 4F13388 | |
D | 06251 | 1 00000 0 04150 | 3337 | TXI | C0500,0 IF (SENSE LIGHT. | 4F13389 | |
D | 06252 | 1 00000 0 04154 | 3338 | TXI | C0600,0 IF DIVIDE CHECK. | 4F13390 | |
D | 06253 | 1 00000 0 04162 | 3339 | TXI | C0700,0 IF AC OVERFLOW. | 4F13391 | |
D | 06254 | 1 00000 0 04166 | 3340 | TXI | C0800,0 IF MQ OVERFLOW. | 4F13392 | |
D | 06255 | 1 00000 0 04033 | 3341 | TXI | C0300,0 IF. | 4F13393 | |
D | 06256 | 1 00000 0 04216 | 3342 | TXI | C1000,0 ASSIGN. | 4F13394 | |
D | 06257 | 1 00000 0 04343 | 3343 | TXI | C1300,0 STOP. | 4F13395 | |
D | 06260 | 1 00000 0 04170 | 3344 | TXI | C0900,0 PAUSE. | 4F13396 | |
D | 06261 | 1 00000 0 04251 | 3345 | TXI | C1100,0 SENSE LIGHT. | 4F13397 | |
D | 06262 | −3 00000 0 04266 | 3346 | TXL | C1200,0 DIMENSION. | 4F13398 | |
D | 06263 | −3 00000 0 04375 | 3347 | TXL | C1500,0 EQUIVALENCE. | 4F13399 | |
D | 06264 | −3 00000 0 04354 | 3348 | TXL | C1400,0 FREQUENCY. | 4F13400 | |
D | 06265 | 1 00000 0 04433 | 3349 | TXI | C1600,0 CONTINUE. | 4F13401 | |
D | 06266 | 1 00000 0 05012 | 3350 | TXI | RBT,0 READ TAPE. | 4F13402 | |
D | 06267 | 1 00000 0 04745 | 3351 | TXI | RIT,0 READ INPUT TAPE. | 4F13403 | |
D | 06270 | 1 00000 0 05063 | 3352 | TXI | RDD,0 READ DRUM. | 4F13404 | |
D | 06271 | 1 00000 0 04673 | 3353 | TXI | RDC,0 READ CARD. | 4F13405 | |
D | 06272 | 1 00000 0 04777 | 3354 | TXI | WBT,0 WRITE TAPE. | 4F13406 | |
D | 06273 | 1 00000 0 04764 | 3355 | TXI | WOT,0 WRITE OUTPUT TAPE. | 4F13407 | |
D | 06274 | 1 00000 0 05044 | 3356 | TXI | WRD,0 WRITE DRUM. | 4F13408 | |
D | 06275 | 1 00000 0 04753 | 3357 | TXI | RDP,0 PRINT. | 4F13409 | |
D | 06276 | 1 00000 0 04772 | 3358 | TXI | PDC,0 PUNCH. | 4F13410 | |
D | 06277 | 1 00000 0 05107 | 3359 | TXI | RWN,0 REWIND. | 4F13411 | |
D | 06300 | 1 00000 0 05111 | 3360 | TXI | BSP,0 BACKSPACE. | 4F13412 | |
D | 06301 | 1 00000 0 05066 | 3361 | TXI | EFT,0 END FILE. | 4F13413 | |
D | 06302 | −3 00000 0 05113 | 3362 | TXL | FOR,0 FORMAT. | 4F13414 | |
D | 06303 | −3 00000 0 04442 | 3363 | TXL | C3000,0 SUBROUTINE. | 4F13415 | |
D | 06304 | −3 00000 0 04512 | 3364 | TXL | C3100,0 COMMON. | 4F13416 | |
D | 06305 | 1 00000 0 04536 | 3365 | TXI | C3200,0 RETURN. | 4F13417 | |
D | 06306 | 1 00000 0 04607 | 3366 | TXI | C3300,0 CALL. | 4F13418 | |
D | 06307 | −3 00000 0 04660 | 3367 | TXL | C3400,0 END. | 4F13419 | |
D | 06310 | −3 00000 0 04440 | 3368 | TXL | C3500,0 FUNCTION. | 4F13420 | |
06311 | 3369 | BSS | 10 | 4F134205 | |||
3370 | END OF TRANSFER TABLE. | 4F13421 | |||||
06323 | 3371 | STATEB | BSS | 0 | 4F134215 | ||
3372 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13422 | |||||
3373 | 4F13423 | ||||||
17307 | 3374 | ORG | 3783+4096 | 4F13424 | |||
17307 | 3375 | BIN | BSS | 1 VARIABLE USED BY IOT. | 4F13425 | ||
17316 | 3376 | CHR | BES | 6 VARIABLE USED BY IOT. 4 | 4F13426 | ||
17316 | 3377 | BSS | 50 PARAMETERS FOR TLDOS TABLE -IOT. | 4F13427 | |||
17400 | 3378 | DOLEV | BSS | 1 PARAMETERS FOR TLDOS TABLE -IOT. | 4F13428 | ||
17401 | 3379 | OP | BSS | 1 VARIABLE USED BY IOT. | 4F13429 | ||
17402 | 3380 | RA | BSS | 1 VARIABLE USED BY IOT. | 4F13430 | ||
17403 | 3381 | SA | BSS | 1 VARIABLE USED BY IOT. | 4F13431 | ||
17404 | 3382 | SYM | BSS | 1 VARIABLE USED BY IOT. | 4F13432 | ||
17405 | 3383 | TLDOS | BSS | 250 DO TABLE USED BY IOT. | 4F13433 | ||
3384 | END OF WORKING STORAGE USED BY STATEA. | 4F13434 | |||||
3385 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13435 | |||||
3386 | 4F13436 | ||||||
3387 | END OF THE NON-ARITHMETIC PART OF SECTION ONE. | 4F13437 | |||||
3388 | 4F13438 | ||||||
3389 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13439 | |||||
3390 | 4F13440 | ||||||
3391 | ARITHMETIC / STATE B= | 4F13441 | |||||
00000 | 3392 | ORG | 0 | 4F13442 | |||
00000 | 0 00471 0 06323 | 3393 | PZE | STATEB,,FORSUB | 4F13443 | ||
00001 | 0 00000 0 12764 | 3394 | PZE | ENDD | 4F13444 | ||
06323 | 3395 | ORG | STATEB | 4F134441 | |||
3396 | 4F13445 | ||||||
3397 | THIS IS A RECODED VERSI0N 0F STATE B OF SECTION ONE, 704 | 4F13446 | |||||
3398 | FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL | 4F13447 | |||||
3399 | ANALYSIS HAS BEEN FOLDED OVER. | 4F13448 | |||||
3400 | 4F13449 | ||||||
3401 | STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. | 4F13450 | |||||
3402 | THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS | 4F13451 | |||||
3403 | IN THE F REGION OF COMMON AND IS IN BCD. | 4F13452 | |||||
3404 | EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD | 4F13453 | |||||
3405 | ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN | 4F13454 | |||||
3406 | TABLES AND GIVEN AN INTERNAL VARIABLE NAME. | 4F13455 | |||||
3407 | LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT | 4F13456 | |||||
3408 | WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR ( | 4F13457 | |||||
3409 | AND THE OPERATOR WHICH PRECEDES IT. | 4F13458 | |||||
06323 | 0 76000 0 00140 | 3410 | SLF | 4F13459 | |||
06324 | 0 50000 0 07624 | 3411 | CLA | SIG1ST | 4F13460 | ||
06325 | 0 60100 0 00445 | 3412 | STO | SIG1IX−3 | 4F13461 | ||
06326 | 0 60000 0 01122 | 3413 | STZ | ARGCTR CLEAR | 4F13462 | ||
06327 | 0 60000 0 01124 | 3414 | STZ | CHSAVE X | 4F13463 | ||
06330 | 0 60000 0 01117 | 3415 | STZ | 3LBAR X | 4F13464 | ||
06331 | 0 60000 0 01360 | 3416 | STZ | NBAR X | 4F13465 | ||
06332 | 0 60000 0 15277 | 3417 | STZ | CBAR X | 4F13466 | ||
06333 | 0 60000 0 15300 | 3418 | STZ | ABAR X | 4F13467 | ||
06334 | 0 60000 0 15301 | 3419 | STZ | FSTYPE X | 4F13468 | ||
06335 | −0 53400 4 01507 | 3420 | LXD | 1BAR,4 SET NBAR=-1 | 4F13469 | ||
06336 | −0 63400 4 01360 | 3421 | SXD | NBAR,4 X | 4F13470 | ||
06337 | −0 50000 0 01500 | 3422 | CAL | E( SET ARERAS - E( | 4F13471 | ||
06340 | 0 60200 0 01120 | 3423 | SLW | ARERAS X | 4F13472 | ||
06341 | 0 07400 4 01671 | 3424 | TSX | C0190X,4 SET FWA - -F AND CHCTR - 0 | 4F13473 | ||
06342 | −0 50000 0 00422 | 3425 | CAL | TXHOP SET SWITCHES FOR LEFT SCAN. | 4F13474 | ||
06343 | 0 63000 0 06446 | 3426 | STP | MS093 X | 4F13475 | ||
06344 | 0 63000 0 06652 | 3427 | STP | MS310 X | 4F13476 | ||
06345 | 0 63000 0 06633 | 3428 | STP | MS321 X | 4F13477 | ||
06346 | −0 50000 0 01512 | 3429 | MS010 | CAL | ADPLUS SET OP TO ADDITION | 4F13478 | |
06347 | 0 60200 0 01127 | 3430 | MS030 | SLW | E+1 X | 4F13479 | |
06350 | 0 60000 0 15303 | 3431 | STZ | FNBITS CLEAR FUNCTION NAME INDICATOR | 4F13480 | ||
06351 | 0 60000 0 15304 | 3432 | STZ | FNCTR CLEAR FUNCTION ARG COUNTER. | 4F13481 | ||
06352 | 0 60000 0 01347 | 3433 | STZ | G CLEAR RECEIVING CELL. | 4F13482 | ||
06353 | 0 50200 0 01406 | 3434 | CLS | L(0) SET E = -0 | 4F13483 | ||
06354 | 0 60100 0 01126 | 3435 | STO | E X | 4F13484 | ||
06355 | 0 53400 2 01414 | 3436 | LXA | L(6),2 SET IR2 FOR SIX CHARS. | 4F13485 | ||
06356 | −0 50000 0 01124 | 3437 | MS040 | CAL | CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. | 4F13486 | |
06357 | −0 10000 0 06361 | 3438 | TNZ | MS041 X | 4F13487 | ||
06360 | 0 07400 4 01707 | 3439 | TSX | C0190,4 CHSAVE EMPTY, GET NEXT CHAR. | 4F13488 | ||
06361 | 0 34000 0 01417 | 3440 | MS041 | CAS | L(9) IS CHAR. NUMERIC. | 4F13489 | |
06362 | 0 02000 0 06367 | 3441 | TRA | MS050 N/, TAKE TRA | 4F13490 | ||
D | 06363 | 3 00000 0 07302 | 3442 | MS4007 | TXH | CM4100,0 | 4F13491 |
06364 | 0 07400 4 07346 | 3443 | TSX | ROYCNV,4 X | 4F13492 | ||
06365 | 0 02000 0 06713 | 3444 | TRA | HOLL RETURN 1, THIS WAS HOLLERITH. | 4F13493 | ||
06366 | 0 02000 0 06761 | 3445 | TRA | LATXH THIS WAS FIXED OR FLOATING CONSTANT. | 4F13494 | ||
06367 | 0 53400 4 01373 | 3446 | MS050 | LXA | L(10),4 PREPARE TO TEST FOR PUNCTUATION. | 4F13495 | |
06370 | 0 34000 4 01406 | 3447 | MS051 | CAS | CTEST,4 | 4F13496 | |
06371 | 0 02000 0 06373 | 3448 | TRA | MS052 X | 4F13497 | ||
06372 | 0 02000 0 06426 | 3449 | TRA | MS090 CHAR IS SOME PUNCTUATION. | 4F13498 | ||
06373 | 2 00001 4 06370 | 3450 | MS052 | TIX | MS051,4,1 X | 4F13499 | |
06374 | 0 76700 2 00044 | 3451 | MS060 | ALS | 36,2 POSITI0N CHAR FOR BUILDING SYMBOL. | 4F13500 | |
06375 | −0 60200 0 01347 | 3452 | ORS | G ADD CHAR TO THOSE IN G. | 4F13501 | ||
06376 | 1 00006 2 06377 | 3453 | TXI | MS061,2,6 UPDATE POSITIONING TAG. | 4F13502 | ||
06377 | 0 07400 4 01707 | 3454 | MS061 | TSX | C0190,4 GET NEXT CHAR. | 4F13503 | |
06400 | 0 53400 4 01373 | 3455 | MS070 | LXA | L(10),4 PREPARE TO TEST FOR PUNCTUATION. | 4F13504 | |
06401 | 0 34000 4 01406 | 3456 | MS071 | CAS | CTEST,4 X | 4F13505 | |
06402 | 0 02000 0 06404 | 3457 | TRA | MS072 X | 4F13506 | ||
06403 | 0 02000 0 06430 | 3458 | TRA | MS091 CHAR IS SOME PUNCTUATION. | 4F13507 | ||
06404 | 2 00001 4 06401 | 3459 | MS072 | TIX | MS071,4,1 X | 4F13508 | |
06405 | −3 00022 2 06374 | 3460 | TXL | MS060,2,18 IF THIS IS CHAR 1, 2 /R 3 GO BUILD G. | 4F13509 | ||
06406 | 0 34000 0 01422 | 3461 | CAS | L(F) IS THIS AN F ENDING FUNCTION NAME. | 4F13510 | ||
06407 | 0 02000 0 06411 | 3462 | TRA | MS073 X | 4F13511 | ||
06410 | 0 02000 0 06413 | 3463 | TRA | MS080 MAYBE, GO LOOK AT NEXT CHAR. | 4F13512 | ||
06411 | −3 00044 2 06374 | 3464 | MS073 | TXL | MS060,2,36 TEST FOR UNDER 7 CHARS. | 4F13513 | |
06412 | 0 07400 4 03400 | 3465 | MS074 | TSX | DIAG,4 BUILD G, 7TH CHAR IS ERROR. | 4F13514 | |
06413 | 0 07400 4 01707 | 3466 | MS080 | TSX | C0190,4 GET NEXT CHAR. | 4F13515 | |
06414 | 0 34000 0 01375 | 3467 | CAS | OPEN TEST FOR (. | 4F13516 | ||
06415 | 0 02000 0 06417 | 3468 | TRA | MS081 X | 4F13517 | ||
06416 | 0 02000 0 06440 | 3469 | TRA | MS092 YES, THIS IS A FUNCTION NAME. | 4F13518 | ||
06417 | 0 60100 0 01331 | 3470 | MS081 | STO | FIRSTC NO, SAVE CURRENT CHAR. | 4F13519 | |
06420 | −0 50000 0 01422 | 3471 | CAL | L(F) ADD F TO CONTENTS OF G. | 4F13520 | ||
06421 | 0 76700 2 00044 | 3472 | ALS | 36,2 X | 4F13521 | ||
06422 | −0 60200 0 01347 | 3473 | ORS | G X | 4F13522 | ||
06423 | 3 00044 2 06412 | 3474 | TXH | MS074,2,36 TEST FOR 7TH CHAR, YES IS ERROR. | 4F13523 | ||
06424 | 0 50000 0 01331 | 3475 | CLA | FIRSTC RESTORE CURRENT CHAR. | 4F13524 | ||
06425 | 1 00006 2 06400 | 3476 | TXI | MS070,2,6 UPDATE POSITIONING TAG. | 4F13525 | ||
06426 | 0 60000 0 01124 | 3477 | MS090 | STZ | CHSAVE CLEAR | 4F13526 | |
06427 | 0 02000 4 06562 | 3478 | TRA | TRBLKA,4 | 4F13527 | ||
06430 | 0 60200 0 01124 | 3479 | MS091 | SLW | CHSAVE OP IS IN NEXT ELEMENT, SAVE. | 4F13528 | |
06431 | −0 50000 0 01430 | 3480 | CAL | BLANK ADD,BLANK TO CHARS IN G. | 4F13529 | ||
06432 | 0 76700 2 00044 | 3481 | ALS | 36,2 X | 4F13530 | ||
06433 | −0 60200 0 01347 | 3482 | ORS | G X | 4F13531 | ||
06434 | 0 56000 0 01347 | 3483 | LDQ | G MOVE G TO E+2 AND TO G+1. | 4F13532 | ||
06435 | −0 60000 0 01130 | 3484 | STQ | E+2 X | 4F13533 | ||
06436 | −0 60000 0 01350 | 3485 | STQ | G+1 X | 4F13534 | ||
06437 | 0 02000 4 06612 | 3486 | TRA | TRBLKB,4 NOW BRANCH TO INDIVIDUAL ROUTINE | 4F13535 | ||
06440 | −0 75400 0 00000 | 3487 | MS092 | PXD | ,0 CLEAR | 4F13536 | |
06441 | 0 56000 0 01526 | 3488 | LDQ | BLANKS ADD BLANKS TO SUBROUTINE NAME IN G. | 4F13537 | ||
06442 | −0 76300 2 00052 | 3489 | LGL | 42,2 X | 4F13538 | ||
06443 | −0 50100 0 01347 | 3490 | ORA | G X | 4F13539 | ||
06444 | 0 60200 0 01347 | 3491 | SLW | G X | 4F13540 | ||
06445 | 0 60200 0 01130 | 3492 | SLW | E+2 MOVE FUNCTION NAME TO E+2. | 4F13541 | ||
U | 06446 | 00000 0 06711 | 3493 | MS093 | *** | MS335,0 TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. | 4F13542 |
06447 | −0 53400 4 00470 | 3494 | LXD | BK,4 THIS IS ARITH FUNCTION STATEMENT. | 4F13543 | ||
06450 | 0 60200 4 00471 | 3495 | SLW | FORSUB,4 ENTER FUNCTION NAME IN FORSUB TABLE. | 4F13544 | ||
06451 | −0 50000 0 00030 | 3496 | CAL | EIFNO ENTER INTERNAL FORMULA NO IN FORSUB. | 4F13545 | ||
06452 | −0 32000 0 01527 | 3497 | ANA | MASK1 X | 4F13546 | ||
06453 | 0 60100 4 00472 | 3498 | STO | FORSUB+1,4 X | 4F13547 | ||
06454 | 1 77776 4 06455 | 3499 | TXI | FS010,4,−2 UPDATE COUNT OF ENTRIES IN FORSUB. | 4F13548 | ||
06455 | −0 63400 4 00470 | 3500 | FS010 | SXD | BK,4 X | 4F13549 | |
06456 | 0 07400 4 01707 | 3501 | FS020 | TSX | C0190,4 GET FIRST CHAR OF ARGUMENT. | 4F13550 | |
06457 | 0 34000 0 01400 | 3502 | CAS | EQUAL TEST FOR EQUAL. | 4F13551 | ||
06460 | 0 02000 0 06462 | 3503 | TRA | FS030 X | 4F13552 | ||
06461 | 0 02000 0 06640 | 3504 | TRA | MS322 GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+2 | 4F13553 | ||
06462 | 0 34000 0 01417 | 3505 | FS030 | CAS | L(9) TEST FOR ILLEGAL ARGUMENT. | 4F13554 | |
06463 | 0 02000 0 06466 | 3506 | TRA | FS040 LEGAL, CONTINUE | 4F13555 | ||
D | 06464 | 3 00000 0 07312 | 3507 | MS9002 | TXH | CM4200,0 | 4F13556 |
06465 | 0 07400 4 03400 | 3508 | TSX | DIAG,4 BEGINS NUMERIC, ERROR. | 4F13557 | ||
06466 | 0 07400 2 01624 | 3509 | FS040 | TSX | C0160,2 COLLECT ARGUMENT NAME IN 1G. | 4F13558 | |
06467 | 0 07400 4 03255 | 3510 | TSX | TESTB0,4 TEST CHAR FOLLOWING ARG FOR , OR) | 4F13559 | ||
06470 | −0 53400 2 01122 | 3511 | LXD | ARGCTR,2 GET COUNT OF ARGUMENTS | 4F13560 | ||
06471 | 0 56000 0 01112 | 3512 | LDQ | 1G ENTER ARGUMENT NAME IN ARGREG TABLE. | 4F13561 | ||
06472 | −0 60000 2 15215 | 3513 | STQ | ARGREG,2 X | 4F13562 | ||
06473 | 1 77777 2 06474 | 3514 | TXI | FS050,2,−1 UPDATE COUNT OF ARGUMENTS. | 4F13563 | ||
06474 | −0 63400 2 01122 | 3515 | FS050 | SXD | ARGCTR,2 | 4F13564 | |
06475 | 3 77716 2 06456 | 3516 | TXH | FS020,2,−50 TEST FOR ARGREG TABLE OVERFLOW. | 4F13565 | ||
06476 | 0 07400 4 03400 | 3517 | TSX | DIAG,4 YES, ERROR. | 4F13566 | ||
06477 | 0 07400 4 07353 | 3518 | MS200 | TSX | DECPNT,4 CONVERT BCD NUMBER T0 BINARY | 4F13567 | |
06500 | 0 07400 4 03400 | 3519 | TSX | DIAG,4 HOLLERITH RETURN, ERROR. | 4F13568 | ||
06501 | 0 02000 0 06761 | 3520 | TRA | LATXH FLOATING POINT CONSTANT RETURN. | 4F13569 | ||
06502 | 0 76000 0 00141 | 3521 | MS210 | SLN | 1 TURN , LITE ON. | 4F13570 | |
06503 | −0 53400 1 01117 | 3522 | LXD | 3LBAR,1 PERFORM LEVEL ANALYSIS FOR , | 4F13571 | ||
06504 | −0 53400 4 15300 | 3523 | LXD | ABAR,4 | 4F13572 | ||
06505 | 0 50200 4 15301 | 3524 | CLS | ALPHA−4,4 | 4F13573 | ||
06506 | 0 60100 1 15520 | 3525 | STO | LAMBDA,1 | 4F13574 | ||
06507 | −0 50000 0 01522 | 3526 | CAL | ADSPOP | 4F13575 | ||
06510 | 0 60200 1 15521 | 3527 | SLW | LAMBDA+1,1 | 4F13576 | ||
06511 | 0 50000 0 01360 | 3528 | CLA | NBAR | 4F13577 | ||
06512 | 0 77100 0 00022 | 3529 | ARS | 18 | 4F13578 | ||
06513 | 0 60100 1 15522 | 3530 | STO | LAMBDA+2,1 | 4F13579 | ||
06514 | 1 77775 1 06515 | 3531 | TXI | MS211,1,−3 | 4F13580 | ||
06515 | −0 63400 1 01117 | 3532 | MS211 | SXD | 3LBAR,1 | 4F13581 | |
06516 | −0 53400 1 01360 | 3533 | LXD | NBAR,1 | 4F13582 | ||
06517 | −0 63400 1 15277 | 3534 | SXD | CBAR,1 | 4F13583 | ||
06520 | 1 77777 1 06521 | 3535 | TXI | MS212,1,−1 | 4F13584 | ||
06521 | −0 63400 1 01360 | 3536 | MS212 | SXD | NBAR,1 | 4F13585 | |
06522 | 1 00003 4 06523 | 3537 | TXI | MS213,4,3 | 4F13586 | ||
06523 | −0 63400 4 15300 | 3538 | MS213 | SXD | ABAR,4 | 4F13587 | |
06524 | 0 02000 0 06346 | 3539 | TRA | MS010 | 4F13588 | ||
06525 | −0 53400 4 15300 | 3540 | MS220 | LXD | ABAR,4 PERFORM LEVEL ANALYSIS FOR ) | 4F13589 | |
06526 | 0 50000 4 15301 | 3541 | CLA | ALPHA−4,4 | 4F13590 | ||
06527 | 0 73400 1 00000 | 3542 | PAX | ,1 | 4F13591 | ||
06530 | −0 63400 1 15277 | 3543 | SXD | CBAR,1 | 4F13592 | ||
06531 | 1 00004 4 06532 | 3544 | TXI | MS221,4,4 | 4F13593 | ||
06532 | −0 63400 4 15300 | 3545 | MS221 | SXD | ABAR,4 | 4F13594 | |
06533 | 0 02000 0 07310 | 3546 | TRA | MS020 | 4F13595 | ||
06534 | −0 53400 4 15300 | 3547 | MS230 | LXD | ABAR,4 PERFORM LEVEL ANALYSIS FOE ENDMK. | 4F13596 | |
06535 | 1 00003 4 06536 | 3548 | TXI | MS231,4,3 | 4F13597 | ||
06536 | −3 00000 4 06540 | 3549 | MS231 | TXL | MS232,4,0 FINISHED, HAS LEVEL BEEN REDUCED TO ZERO, | 4F13598 | |
06537 | 0 07400 4 03400 | 3550 | TSX | DIAG,4 NO, ERROR. | 4F13599 | ||
06540 | −0 53400 4 01122 | 3551 | MS232 | LXD | ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT | 4F13600 | |
06541 | −3 00000 4 07625 | 3552 | TXL | STATEC,4,0 | 4F13601 | ||
06542 | −0 50000 0 15301 | 3553 | CAL | FSTYPE YES, UPDATE FUNCTION TYPE AND | 4F13602 | ||
06543 | 0 40000 0 01407 | 3554 | ADD | L(1) COMPLETE FORSUB ENTRY BY ASSIGNING | 4F13603 | ||
06544 | −0 53400 1 00470 | 3555 | LXD | BK,1 TYPE NUMBER. | 4F13604 | ||
06545 | 0 62100 1 00470 | 3556 | STA | FORSUB−1,1 X | 4F13605 | ||
06546 | −0 60200 0 01120 | 3557 | ORS | ARERAS ALSO SAVE FOR LATER REFERENCF. | 4F13606 | ||
06547 | 0 02000 0 07625 | 3558 | TRA | STATEC | 4F13607 | ||
06550 | 0 02000 0 06534 | 3559 | TRA | MS230 ENDMK | 4F13608 | ||
06551 | 0 02000 0 06575 | 3560 | TRA | MS260 ( | 4F13609 | ||
06552 | 0 02000 0 06502 | 3561 | TRA | MS210 , | 4F13610 | ||
06553 | 0 02000 0 06525 | 3562 | TRA | MS220 ) | 4F13611 | ||
06554 | 0 07400 4 03400 | 3563 | MSERR= | TSX | DIAG,4 = | 4F13612 | |
06555 | 0 02000 0 06572 | 3564 | TRA | MS250 - | 4F13613 | ||
06556 | 0 02000 0 06572 | 3565 | TRA | MS250 / | 4F13614 | ||
06557 | 0 02000 0 06477 | 3566 | TRA | MS200 . | 4F13615 | ||
06560 | 0 02000 0 06572 | 3567 | TRA | MS250 + | 4F13616 | ||
06561 | 0 76700 0 00036 | 3568 | MS240 | ALS | 30 * SAVE * | 4F13617 | |
06562 | 3569 | TRBLKA | BSS | 0 | 4F13618 | ||
06562 | 0 60200 0 01127 | 3570 | SLW | E+1 X | 4F13619 | ||
06563 | 0 07400 4 01707 | 3571 | TSX | C0190,4 GET NEXT CHAR. | 4F13620 | ||
06564 | 0 34000 0 01405 | 3572 | CAS | STAR IS IT * | 4F13621 | ||
06565 | 0 02000 0 06361 | 3573 | TRA | MS041 X | 4F13622 | ||
06566 | 0 02000 0 06570 | 3574 | TRA | MS241 YES, THIS WAS ** | 4F13623 | ||
06567 | 0 02000 0 06361 | 3575 | TRA | MS041 NO, GO COMPARE TO OTHER PUNCTUATION. | 4F13624 | ||
06570 | −0 50000 0 01525 | 3576 | MS241 | CAL | STRSTR REPLACE * WITH ** | 4F13625 | |
06571 | 0 02000 0 06573 | 3577 | TRA | MS251 X | 4F13626 | ||
06572 | 0 76700 0 00036 | 3578 | MS250 | ALS | 30 POSITI0N CHAR WHICH IS + OR - OR / | 4F13627 | |
06573 | 0 60200 0 01127 | 3579 | MS251 | SLW | E+1 PUT CURRENT OP IN E+1. | 4F13628 | |
06574 | 0 02000 0 06356 | 3580 | TRA | MS040 NOW GO COLLECT SYMBOL. | 4F13629 | ||
06575 | 0 76700 0 00036 | 3581 | MS260 | ALS | 30 ( TO SYMBOL WORD | 4F13630 | |
06576 | 0 60200 0 01130 | 3582 | SLW | E+2 X | 4F13631 | ||
06577 | 0 02000 0 06757 | 3583 | TRA | LATXL GO PERFORM LEVEL ANALYSIS FOR ( | 4F13632 | ||
06600 | 0 02000 0 06611 | 3584 | TRA | MS300 ENDMK | 4F13633 | ||
06601 | 0 02000 0 06632 | 3585 | TRA | MS320 ( | 4F13634 | ||
06602 | 0 02000 0 06611 | 3586 | TRA | MS300 , | 4F13635 | ||
06603 | 0 02000 0 06611 | 3587 | TRA | MS300 ) | 4F13636 | ||
06604 | 0 02000 0 06652 | 3588 | TRA | MS310 = | 4F13637 | ||
06605 | 0 02000 0 06611 | 3589 | TRA | MS300 - | 4F13638 | ||
06606 | 0 02000 0 06611 | 3590 | TRA | MS300 / | 4F13639 | ||
06607 | 0 07400 4 03400 | 3591 | TSX | DIAG,4 . | 4F13640 | ||
06610 | 0 02000 0 06611 | 3592 | TRA | MS300 + | 4F13641 | ||
06611 | −0 75400 0 00000 | 3593 | MS300 | PXD | ,0 * CLEAR | 4F13642 | |
06612 | 3594 | TRBLKB | BSS | 0 BASE ADDRESS FOR TAGGED TRANSFER. | 4F13643 | ||
06612 | −0 76300 0 00006 | 3595 | LGL | 6 GET FIRST CHAR OF SYMBOL. | 4F13644 | ||
06613 | 0 07400 1 03242 | 3596 | TSX | TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT. | 4F13645 | ||
06614 | 0 02000 0 06757 | 3597 | TRA | LATXL FLOATING, GO PERFORM LEVEL ANALYSIS. | 4F13646 | ||
06615 | −0 50000 0 00030 | 3598 | CAL | EIFNO FIXED, PREPARE FORVAR ENTRY. | 4F13647 | ||
06616 | −0 32000 0 01527 | 3599 | ANA | MASK1 X | 4F13648 | ||
06617 | 0 60200 0 01347 | 3600 | SLW | G X | 4F13649 | ||
06620 | 0 07400 1 03321 | 3601 | TSX | TET00,1 MAKE FORVAR ENTRY. | 4F13650 | ||
06621 | 0 00000 0 00005 | 3602 | 5 | 4F13651 | |||
06622 | −0 75400 0 00000 | 3603 | PXD | ,0 | 4F13652 | ||
06623 | 0 56000 0 01356 | 3604 | LDQ | LEFT+2 | 4F13653 | ||
06624 | −0 76300 0 00014 | 3605 | LGL | 12 | 4F13654 | ||
06625 | 0 40200 0 01451 | 3606 | SUB | CALLER | 4F13655 | ||
06626 | −0 10000 0 06757 | 3607 | TNZ | LATXL | 4F13656 | ||
06627 | 0 07400 1 03321 | 3608 | TSX | TET00,1 | 4F13657 | ||
06630 | 0 00000 0 00006 | 3609 | 6 | 4F13658 | |||
06631 | 0 02000 0 06757 | 3610 | TRA | LATXL GO PERFORM LEVEL ANALYSIS. | 4F13659 | ||
06632 | 0 60000 0 01124 | 3611 | MS320 | STZ | CHSAVE CLEAR CELL FOR OP. | 4F13660 | |
U | 06633 | 00000 0 06666 | 3612 | MS321 | *** | MS330,0 TXH ON LEFT, TXL ON RIGHT OF = SIGN. | 4F13661 |
06634 | 0 07400 4 07333 | 3613 | TSX | SS000X,4 G0 PROCESS SUBSCRIPT COMBINATION. | 4F13662 | ||
06635 | 0 07400 4 01707 | 3614 | TSX | C0190,4 GET NEXT CHAR. | 4F13663 | ||
06636 | 0 40200 0 01400 | 3615 | SUB | EQUAL TEST FOR EQUAL SIGN. | 4F13664 | ||
06637 | −0 10000 0 06554 | 3616 | TNZ | MSERR= NO, ERROR. | 4F13665 | ||
06640 | 0 53400 4 01411 | 3617 | MS322 | LXA | L(3),4 MOVE CONTENT4 OF E WORDS TO LEFT WORDS. | 4F13666 | |
06641 | 0 56000 4 01131 | 3618 | MS323 | LDQ | E+3,4 X | 4F13667 | |
06642 | −0 60000 4 01357 | 3619 | STQ | LEFT+3,4 X | 4F13668 | ||
06643 | 2 00001 4 06641 | 3620 | TIX | MS323,4,1 X | 4F13669 | ||
06644 | −0 50000 0 00415 | 3621 | MS311 | CAL | TXLOP SET SWITCHES FOR RIGHT SIDE SCAN. | 4F13670 | |
06645 | 0 63000 0 06446 | 3622 | STP | MS093 X | 4F13671 | ||
06646 | 0 63000 0 06652 | 3623 | STP | MS310 X | 4F13672 | ||
06647 | 0 63000 0 06633 | 3624 | STP | MS321 X | 4F13673 | ||
06650 | 0 76000 0 00141 | 3625 | SLN | 1 TURN = OR ) LITE ON. | 4F13674 | ||
06651 | 0 02000 0 06346 | 3626 | TRA | MS010 GO SCAN NEXT ELEMENT. | 4F13675 | ||
U | 06652 | 00000 0 06554 | 3627 | MS310 | *** | MSERR=,0 TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. | 4F13676 |
06653 | 0 60000 0 01124 | 3628 | STZ | CHSAVE CLEAR | 4F13677 | ||
06654 | −0 75400 0 00000 | 3629 | PXD | ,0 CLEAR AC. | 4F136775 | ||
06655 | −0 76300 0 00006 | 3630 | LGL | 6 GET FIRST CHAR OF SYMBOL. | 4F13678 | ||
06656 | 0 07400 1 03242 | 3631 | TSX | TESTFX+1,1 TEST FOR FIXED OR FLOATING POINT | 4F13679 | ||
06657 | 0 02000 0 06640 | 3632 | TRA | MS322 FLOATING, | 4F13680 | ||
06660 | −0 50000 0 00030 | 3633 | CAL | EIFNO FIXED, PREPARE FORVAL ENTRY. | 4F13681 | ||
06661 | −0 32000 0 01527 | 3634 | ANA | MASK1 X | 4F13682 | ||
06662 | 0 60200 0 01347 | 3635 | SLW | G X | 4F13683 | ||
06663 | 0 07400 1 03321 | 3636 | TSX | TET00,1 MAKE FORVAL ENTRY. | 4F13684 | ||
06664 | 0 00000 0 00006 | 3637 | 6 | 4F13685 | |||
06665 | 0 02000 0 06640 | 3638 | TRA | MS322 | 4F13686 | ||
06666 | 0 07400 4 01771 | 3639 | MS330 | TSX | DIM1SR,4 SEARCH FOR THIS NAME IN THE DIM1, DIM2, | 4F13687 | |
06667 | 0 02000 0 06671 | 3640 | TRA | MS331 AND DIM3 TABLES. IF IT IS FOUND IN ONE OF | 4F13688 | ||
06670 | 0 02000 0 06676 | 3641 | TRA | MS333 THESE TABLES IT IS A SUBSCRIPTED VARIABLE | 4F13689 | ||
06671 | 0 07400 4 01775 | 3642 | MS331 | TSX | DIM2SR,4 OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT | 4F13690 | |
06672 | 0 02000 0 06674 | 3643 | TRA | MS332 FOUND IN ANY DIMENSION TABLE THEN IT IS | 4F13691 | ||
06673 | 0 02000 0 06676 | 3644 | TRA | MS333 ASSUMED TO BE THE NAME OF A FORTRAN II | 4F13692 | ||
06674 | 0 07400 4 02005 | 3645 | MS332 | TSX | DIM3SR,4 SUBROUTINE OR FUNCTION COMPILED SEPARATELY. | 4F13693 | |
06675 | 0 02000 0 06700 | 3646 | TRA | MS334 X | 4F13694 | ||
06676 | 0 07400 4 07333 | 3647 | MS333 | TSX | SS000X,4 . GO PROCESS SUBSCRIPT COMBINATION. | 4F13695 | |
06677 | 0 02000 0 06761 | 3648 | TRA | LATXH GO PERFORM LEVEL ANALYSIS. | 4F13696 | ||
06700 | −0 50000 0 01471 | 3649 | MS334 | CAL | FNIND NOT FOUND, TREAT AS FUNCTION NAME. | 4F13697 | |
06701 | 0 60200 0 15303 | 3650 | SLW | FNBITS X | 4F13698 | ||
06702 | −0 75400 0 00000 | 3651 | PXD | ,0 X | 4F13699 | ||
06703 | 0 56000 0 01526 | 3652 | LDQ | BLANKS COMPLETE NAME WITH BLANKS. | 4F13700 | ||
06704 | −0 76300 2 00052 | 3653 | LGL | 42,2 X | 4F13701 | ||
06705 | −0 60200 0 01347 | 3654 | ORS | G X | 4F13702 | ||
06706 | −0 60200 0 01130 | 3655 | ORS | E+2 X | 4F13703 | ||
06707 | 0 07400 1 03321 | 3656 | TSX | TET00,1 ENTER NAME IN CLOSUB TABLE. | 4F13704 | ||
06710 | 0 00000 0 00011 | 3657 | 9 | 4F13705 | |||
06711 | 0 76000 0 00142 | 3658 | MS335 | SLN | 2 TURN FUNCTION LITE ON. | 4F13706 | |
06712 | 0 02000 0 06757 | 3659 | TRA | LATXL GO PERFORM LEVEL ANALYSIS. | 4F13707 | ||
06713 | 0 60000 0 01124 | 3660 | HOLL | STZ | CHSAVE CLEAR CHSAVE | 4F13708 | |
06714 | −0 50000 0 01352 | 3661 | CAL | HOLCNT GET CURRENT H(+I WORD | 4F13709 | ||
06715 | 0 60200 0 01130 | 3662 | SLW | E+2 | 4F13710 | ||
06716 | 0 53400 2 01103 | 3663 | LXA | N,2 GET NUMBER OF CHARACTERS IN THIS ARG | 4F13711 | ||
06717 | −0 53400 4 01724 | 3664 | LXD | CHCTR,4 GET CURRENT RESIDUE CHAR COUNT | 4F13712 | ||
06720 | 0 56000 0 01365 | 3665 | LDQ | RESIDU GET CURRENT RESIDU WORD | 4F13713 | ||
06721 | 0 53400 1 01414 | 3666 | C3351 | LXA | L(6),1 SET TO COLLECT SIX CHARS | 4F13714 | |
06722 | −0 75400 0 00000 | 3667 | PXD | 0,0 CLEAR AC | 4F13715 | ||
06723 | −2 00001 4 06736 | 3668 | C3352 | TNX | C3354,4,1 TEST FOR NO MORE CHARS IN RESIDU | 4F13716 | |
06724 | −0 76300 0 00006 | 3669 | C33525 | LGL | 6 GET NEXT CHAR | 4F13717 | |
06725 | 0 60200 0 01112 | 3670 | SLW | 1G STORE WORD | 4F13718 | ||
06726 | −0 32000 0 01374 | 3671 | ANA | ENDMK BLANK ALL EXCEPT CURRENT CHAR | 4F13719 | ||
06727 | 0 40200 0 01374 | 3672 | SUB | ENDMK TEST FOR INTERNAL ENDMK | 4F13720 | ||
06730 | −0 10000 0 06732 | 3673 | TNZ | C3353 | 4F13721 | ||
06731 | 0 07400 4 03400 | 3674 | TSX | DIAG,4 YES, ERROR, GO TO DIAGNOSTIC. | 4F13722 | ||
06732 | −0 50000 0 01112 | 3675 | C3353 | CAL | 1G RETREIVE WORD | 4F13723 | |
06733 | −2 00001 2 06746 | 3676 | TNX | C3358,2,1 TEST FOR ALL CHARS COLLECTED | 4F13724 | ||
06734 | −2 00001 1 06744 | 3677 | TNX | C3356,1,1 TEST FOR SIX CHARS COLLECTED | 4F13725 | ||
06735 | 0 02000 0 06723 | 3678 | TRA | C3352 NOT SIX CHARS YET, CONTINUE COLLECTING | 4F13726 | ||
06736 | −0 53400 4 01614 | 3679 | C3354 | LXD | FWA,4 L0AD MQ WITH NEXT F REGION WORD | 4F13727 | |
06737 | 0 56000 4 00000 | 3680 | LDQ | 0,4 | 4F13728 | ||
06740 | 1 77777 4 06741 | 3681 | TXI | C3355,4,−1 UPDATE FWA | 4F13729 | ||
06741 | −0 63400 4 01614 | 3682 | C3355 | SXD | FWA,4 | 4F13730 | |
06742 | 0 53400 4 01414 | 3683 | LXA | L(6),4 RESET MQ CHAR CQUNT T0 SIX | 4F13731 | ||
06743 | 0 02000 0 06724 | 3684 | TRA | C33525 CONTINUE COLLECTING | 4F13732 | ||
06744 | 0 07400 1 07322 | 3685 | C3356 | TSX | C3390,1 GO TO ENTER WORD IN HOLARG TABLE | 4F13733 | |
06745 | 1 00000 0 06721 | 3686 | C3357 | TXI | C3351,0,** RETURN TO CONTINUE COLLECTING | 4F13734 | |
06746 | −0 60000 0 01365 | 3687 | C3358 | STQ | RESIDU UPDATE RESIDU | 4F13735 | |
06747 | −0 63400 4 01724 | 3688 | SXD | CHCTR,4 UPDATE CHCTR | 4F13736 | ||
06750 | −2 00001 1 06754 | 3689 | TNX | C3360,1,1 TEST FOR SIX CHARS IN AC, DEC IR1 | 4F13737 | ||
06751 | 0 56000 0 01526 | 3690 | LDQ | BLANKS NOT SIX CHARS, PREPARE TO ADD BLANKS | 4F13738 | ||
06752 | −0 76300 0 00006 | 3691 | C3359 | LGL | 6 ADD BLANKS | 4F13739 | |
06753 | 2 00001 1 06752 | 3692 | TIX | C3359,1,1 | 4F13740 | ||
06754 | 0 07400 1 07322 | 3693 | C3360 | TSX | C3390,1 GO TO ENTER WORD IN HOLARG TABLE | 4F13741 | |
06755 | −0 50000 0 01531 | 3694 | CAL | ALL1 GET WORD OF ONES | 4F13742 | ||
06756 | 0 07400 1 07322 | 3695 | TSX | C3390,1 GO TO ENTER WORD IN HOLARG TABLE | 4F13743 | ||
3696 | LEVEL ANALYSIS | 4F13744 | |||||
06757 | −0 50000 0 00415 | 3697 | LATXL | CAL | TXLOP | 4F13745 | |
06760 | 0 02000 0 06762 | 3698 | TRA | LATXL+3 | 4F13746 | ||
06761 | −0 50000 0 00422 | 3699 | LATXH | CAL | TXHOP | 4F13747 | |
06762 | 0 63000 0 07307 | 3700 | STP | CM4105 | 4F13748 | ||
06763 | 0 53400 1 01406 | 3701 | LA0000 | LXA | L(0),A | 4F13749 | |
06764 | 0 50000 0 01130 | 3702 | CLA | E+2 | 4F13750 | ||
06765 | −0 76000 0 00142 | 3703 | SLT | 2 IS THIS A FUNCTION NAME | 4F13751 | ||
06766 | 0 02000 0 07027 | 3704 | TRA | LA0000+36 NO | 4F13752 | ||
06767 | 0 76000 0 00142 | 3705 | SLN | 2 YES - TURN F LITE BACK ON | 4F13753 | ||
06770 | −0 53400 4 00470 | 3706 | LXD | BK,C IS FORSUB EMPTY | 4F13754 | ||
06771 | −3 00000 4 07000 | 3707 | TXL | LA0000+13,C,0 YES. GO SET FS BITS TO 0 | 4F13755 | ||
06772 | −0 63400 4 06777 | 3708 | SXD | LA0000+12,C | 4F13756 | ||
06773 | 0 34000 1 00471 | 3709 | CAS | FORSUB,A SEARCH FN NAME IN FORSUB | 4F13757 | ||
06774 | 1 77776 1 06777 | 3710 | TXI | LA0000+12,A,−2 | 4F13758 | ||
06775 | 0 02000 0 07002 | 3711 | TRA | LA0000+15 | 4F13759 | ||
06776 | 1 77776 1 06777 | 3712 | TXI | LA0000+12,A,−2 | 4F13760 | ||
06777 | 3 00000 1 06773 | 3713 | TXH | LA0000+8,A,0 | 4F13761 | ||
07000 | 0 60000 0 15302 | 3714 | STZ | FSBITS SET FSBITS TO 0 | 4F13762 | ||
07001 | 0 02000 0 07014 | 3715 | TRA | LA0000+25 | 4F13763 | ||
07002 | −0 50000 1 00472 | 3716 | CAL | FORSUB+1,A FN NAME IN FORSUB | 4F13764 | ||
07003 | −0 32000 0 01452 | 3717 | ANA | MASK2 EXTRACT TYPE NUMBER | 4F14765 | ||
07004 | −0 53400 4 01122 | 3718 | LXD | ARGCTR,C IS THIS A FUNCTION STATEMENT | 4F13766 | ||
07005 | −3 00000 4 07011 | 3719 | TXL | LA0000+22,C,0 NO | 4F13767 | ||
07006 | 0 34000 0 15301 | 3720 | CAS | FSTYPE YES - UPDATE FS TYPE | 4F13768 | ||
07007 | 0 62100 0 15301 | 3721 | STA | FSTYPE | 4F13769 | ||
D | 07010 | 3 00000 0 00000 | 3722 | TXH | 0,0 | 4F13770 | |
07011 | 0 76700 0 00007 | 3723 | ALS | 7 | 4F13771 | ||
07012 | −0 50100 0 01464 | 3724 | ORA | FSIND | 4F13772 | ||
07013 | 0 60200 0 15302 | 3725 | SLW | FSBITS | 4F137)3 | ||
07014 | −0 53400 1 01117 | 3726 | LXD | 3LBAR,A LOAD LA COUNTERS | 4F13774 | ||
07015 | −0 53400 2 01360 | 3727 | LXD | NBAR,B | 4F13775 | ||
07016 | −0 53400 4 15300 | 3728 | LXD | ABAR,C | 4F13776 | ||
07017 | −3 00000 1 07043 | 3729 | TXL | LA0003,A,0 | 4F13777 | ||
07020 | 3 75520 1 07022 | 3730 | TXH | LA0001,A,−1200 | 4F13778 | ||
07021 | 0 07400 4 03400 | 3731 | TSX | DIAG,4 ERROR..LAMBDA TABLE EXCEEDED. | 4F13779 | ||
07022 | 3 77323 2 07024 | 3732 | LA0001 | TXH | LA0002,B,−301 | 4F13780 | |
07023 | 0 07400 4 03400 | 3733 | TSX | DIAG,4 ERROR..BETA TABLE EXCEEDED | 4F13781 | ||
07024 | −3 00000 4 07043 | 3734 | LA0002 | TXL | LA0003,C,0 | 4F13782 | |
07025 | 3 77565 4 07043 | 3735 | TXH | LA0003,C,−139 | 4F13783 | ||
07026 | 0 07400 4 03400 | 3736 | TSX | DIAG,4 ERROR..ALPHA TABLE EXCEEDED | 4F13784 | ||
07027 | −0 53400 4 01122 | 3737 | LXD | ARGCTR,C VARIABLE OR ( | 4F13785 | ||
07030 | −3 00000 4 07000 | 3738 | TXL | LA0000+13,C,0 NOT AN FS - GO SET FS BITS TO 0 | 4F13786 | ||
07031 | −0 63400 4 07036 | 3739 | SXD | LA0000+43,C FUNCTION STATEMENT | 4F13787 | ||
07032 | 0 34000 1 15215 | 3740 | CAS | ARGREG,A SEARCH FREE VARIABLE TABLE | 4F13788 | ||
07033 | 1 77777 1 07036 | 3741 | TXI | LA0000+43,A,−1 | 4F13789 | ||
07034 | 0 02000 0 07040 | 3742 | TRA | MS1018 | 4F13790 | ||
07035 | 1 77777 1 07036 | 3743 | TXI | LA0000+43,A,−1 | 4F13791 | ||
07036 | 3 00000 1 07032 | 3744 | TXH | LA0000+39,A,0 | 4F13792 | ||
07037 | 0 02000 0 07000 | 3745 | TRA | LA0000+13 NOT PRESENT - GO SET FSBITS TO 0 | 4F13793 | ||
07040 | −0 75400 1 00000 | 3746 | MS1018 | PXD | 0,A PRESENT - STORE TYPE IN FSBITS | 4F13794 | |
07041 | 0 77100 0 00013 | 3747 | ARS | 11 | 4F13795 | ||
07042 | 0 02000 0 07012 | 3748 | TRA | LA0000+23 | 4F13796 | ||
07043 | 0 50000 0 06464 | 3749 | LA0003 | CLA | MS9002 | 4F13797 | |
07044 | 0 62100 0 07251 | 3750 | STA | LA4320 | 4F13798 | ||
07045 | −0 75400 0 00000 | 3751 | PXD | 0,0 | 4F13799 | ||
07046 | 0 56000 0 01130 | 3752 | LDQ | E+2 | 4F13800 | ||
07047 | −0 60000 1 15533 | 3753 | STQ | LAMBDA+11,A | 4F13801 | ||
07050 | −0 60000 1 15530 | 3754 | STQ | LAMBDA+8,A | 4F13802 | ||
07051 | −0 60000 1 15525 | 3755 | STQ | LAMBDA+5,A | 4F13803 | ||
07052 | −0 76300 0 00006 | 3756 | LGL | 6 | 4F13804 | ||
07053 | 0 60100 0 01331 | 3757 | STO | FIRSTC | 4F13805 | ||
07054 | 0 40200 0 01375 | 3758 | SUB | OPEN | 4F13806 | ||
07055 | 0 10000 0 07064 | 3759 | TZE | LA003 | 4F13807 | ||
07056 | 0 50000 0 06363 | 3760 | CLA | MS4007 | 4F13808 | ||
07057 | −0 76000 0 00142 | 3761 | SLT | 2 | 4F13809 | ||
07060 | 0 02000 0 07063 | 3762 | TRA | LA002 | 4F13810 | ||
07061 | 0 76000 0 00142 | 3763 | SLN | 2 | 4F13811 | ||
07062 | 0 50000 0 07112 | 3764 | CLA | FINI03 | 4F13812 | ||
07063 | 0 62100 0 07251 | 3765 | LA002 | STA | LA4320 | 4F13813 | |
07064 | 0 50000 0 01126 | 3766 | LA003 | CLA | E | 4F13814 | |
07065 | 0 60100 1 15531 | 3767 | STO | LAMBDA+9,A | 4F13815 | ||
07066 | 0 60100 1 15526 | 3768 | STO | LAMBDA+6,A | 4F13816 | ||
07067 | 0 60100 1 15523 | 3769 | STO | LAMBDA+3,A | 4F13817 | ||
07070 | −0 50000 0 01522 | 3770 | CAL | ADSPOP | 4F13818 | ||
07071 | 0 60200 1 15535 | 3771 | SLW | LAMBDA+13,A | 4F13819 | ||
07072 | 0 60200 1 15532 | 3772 | SLW | LAMBDA+10,A | 4F13820 | ||
07073 | 0 60200 1 15527 | 3773 | SLW | LAMBDA+7,A | 4F13821 | ||
07074 | −0 75400 0 00000 | 3774 | PXD | ,0 | 4F13822 | ||
07075 | 0 56000 0 01127 | 3775 | LDQ | E+1 | 4F13823 | ||
07076 | −0 60000 1 15521 | 3776 | STQ | LAMBDA+1,A | 4F13824 | ||
07077 | −0 76300 0 00006 | 3777 | LGL | 6 | 4F13825 | ||
07100 | 0 34000 0 01405 | 3778 | CAS | STAR | 4F13826 | ||
07101 | 0 02000 0 07145 | 3779 | TRA | LA0015 / SIGN | 4F13827 | ||
07102 | 0 02000 0 07135 | 3780 | TRA | LA0010 * OR ** SIGN | 4F13828 | ||
07103 | −0 76000 0 00142 | 3781 | SLT | 2 + OR - SIGN | 4F13829 | ||
07104 | 0 02000 0 07121 | 3782 | TRA | LA0044 | 4F13830 | ||
07105 | 1 77775 2 07106 | 3783 | TXI | MS1033,B,−3 -N TO -(N+3) | 4F13831 | ||
07106 | −0 75400 2 00000 | 3784 | MS1033 | PXD | ,B | 4F13832 | |
07107 | 0 77100 0 00022 | 3785 | ARS | 18 | 4F13833 | ||
07110 | 0 60100 1 15536 | 3786 | STO | LAMBDA+14,A STO (N+3) IN LAMBDA+3 (L+4)+2 | 4F13834 | ||
07111 | 1 00001 2 07112 | 3787 | TXI | FINI03,B,1 -(N+3) TO - (N+2) | 4F13835 | ||
07112 | −0 75400 2 07315 | 3788 | FINI03 | PXD | CM4300,B | 4F13836 | |
07113 | 0 77100 0 00022 | 3789 | ARS | 18 | 4F13837 | ||
07114 | −0 76000 0 00003 | 3790 | SSM | 4F13838 | |||
07115 | 0 60100 1 15534 | 3791 | STO | LAMBDA+12,A STO -(N+2) IN LAMBDA+3 (L+4) | 4F13839 | ||
07116 | −0 76000 0 00141 | 3792 | LA0041 | SLT | 1 | 4F13840 | |
07117 | 1 00001 2 07213 | 3793 | TXI | L43130,B,1 UNARY... -(N+2) TO -(N+1) | 4F13841 | ||
07120 | 1 00001 2 07155 | 3794 | TXI | L13130,B,1 BINARY... -(N+2) TO - (N+1) | 4F13842 | ||
07121 | 0 50000 0 01331 | 3795 | LA0044 | CLA | FIRSTC | 4F13843 | |
07122 | 0 34000 0 01375 | 3796 | CAS | OPEN EXAMINE SYMBOL | 4F13844 | ||
07123 | 0 02000 0 07125 | 3797 | TRA | LA0050 | 4F13845 | ||
07124 | 1 77775 2 07130 | 3798 | TXI | LA0058,B,−3 -N TO -(N+3) | 4F13846 | ||
07125 | −0 76000 0 00141 | 3799 | LA0050 | SLT | 1 | 4F13847 | |
07126 | 1 77777 2 07217 | 3800 | TXI | LA4000,B,−1 UNARY... -NTO -(N+1) | 4F13848 | ||
07127 | 1 77777 2 07161 | 3801 | TXI | LA1000,B,−1 BINARY... -N TO -(N+I) | 4F13849 | ||
07130 | −0 75400 2 00000 | 3802 | LA0058 | PXD | ,B | 4F13850 | |
07131 | 0 77100 0 00022 | 3803 | ARS | 18 | 4F13851 | ||
07132 | 0 60100 1 15533 | 3804 | STO | LAMBDA+11,A STO S(N+3) IN LAMBDA +3(L+3)+2 | 4F13852 | ||
07133 | 0 40000 0 01407 | 3805 | ADD | L(1) FORM -(N+2) IN ADD (ACC) | 4F13853 | ||
07134 | 1 00001 2 07116 | 3806 | TXI | LA0041,2,1 | 4F13854 | ||
07135 | 0 16200 0 07145 | 3807 | LA0010 | TQP | LA0015 G0 TO * ROUTINE | 4F13855 | |
07136 | −0 76000 0 00142 | 3808 | SLT | 2 ** | 4F13856 | ||
07137 | 0 02000 0 07141 | 3809 | TRA | LA0072 | 4F13857 | ||
07140 | 1 77777 2 07174 | 3810 | TXI | L23000,B,−1 -N TO -(N+1) | 4F13858 | ||
07141 | 0 50000 0 01331 | 3811 | LA0072 | CLA | FIRSTC | 4F13859 | |
07142 | 0 40200 0 01375 | 3812 | SUB | OPEN | 4F13860 | ||
07143 | −0 10000 0 07207 | 3813 | TNZ | LA2000 | 4F13861 | ||
07144 | 1 77777 2 07167 | 3814 | TXI | L22000,B,−1 -N TO -(N+1) | 4F13862 | ||
07145 | −0 76000 0 00142 | 3815 | LA0015 | SLT | 2 * OR / | 4F13863 | |
07146 | 0 02000 0 07150 | 3816 | TRA | LA0021 | 4F13864 | ||
07147 | 1 77776 2 07257 | 3817 | TXI | L33000,B,−2 -N TO -(N+2) | 4F13865 | ||
07150 | 0 50000 0 01331 | 3818 | LA0021 | CLA | FIRSTC | 4F13066 | |
07151 | 0 34000 0 01375 | 3819 | CAS | OPEN | 4F13867 | ||
07152 | 1 77777 2 07272 | 3820 | TXI | LA3000,B,−1 | 4F13868 | ||
07153 | 1 77776 2 07252 | 3821 | TXI | L32000,B,−2 -N TO -N(+2) | 4F13869 | ||
07154 | 1 77777 2 07272 | 3822 | TXI | LA3000,B,−1 | 4F13870 | ||
07155 | 0 60200 4 15310 | 3823 | L13130 | SLW | ALPHA+3,C STO -(N+2) IN ALPHA+A+3 | 4F13871 | |
07156 | 0 50200 0 01406 | 3824 | CLS | L(0) | 4F13872 | ||
07157 | 0 60100 1 15531 | 3825 | STO | LAMBDA+9,A STO -0 IN LAMBDA +3(L+3) | 4F13873 | ||
07160 | 0 76000 0 00141 | 3826 | SLN | 1 | 4F13074 | ||
07161 | 0 50200 0 15277 | 3827 | LA1000 | CLS | CBAR | 4F13875 | |
07162 | 0 77100 0 00022 | 3828 | ARS | 18 | 4F13876 | ||
07163 | 0 60200 4 15305 | 3829 | SLW | ALPHA,C STO -C IN ALPHA+A | 4F13877 | ||
07164 | 1 77775 4 07165 | 3830 | TXI | LA1040,C,−3 -A TO - (A+3) | 4F13878 | ||
07165 | −0 63400 4 15300 | 3831 | LA1040 | SXD | ABAR,C | 4F13879 | |
07166 | 0 02000 0 07220 | 3832 | TRA | LA4010 | 4F13880 | ||
07167 | −0 75400 2 00000 | 3833 | L22000 | PXD | ,B | 4F13881 | |
07170 | 0 77100 0 00022 | 3834 | ARS | 18 | 4F13882 | ||
07171 | 0 60100 1 15525 | 3835 | STO | LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 | 4F13883 | ||
07172 | 0 40000 0 01407 | 3836 | ADD | L(1) | 4F13884 | ||
07173 | 1 00001 2 07203 | 3837 | TXI | L23130,B,1 -(N+1) TO -N | 4F13885 | ||
07174 | −0 75400 2 00000 | 3838 | L23000 | PXD | ,B | 4F13886 | |
07175 | 0 77100 0 00022 | 3839 | ARS | 18 | 4F13887 | ||
07176 | 0 60100 1 15530 | 3840 | STO | LAMBDA+8,A STO S(N+1) IN LAMBDA+3(L+2)+2 | 4F13888 | ||
07177 | 0 40000 0 01407 | 3841 | ADD | L(1) | 4F13889 | ||
07200 | −0 76000 0 00003 | 3842 | SSM | 4F13890 | |||
07201 | 1 00001 2 07202 | 3843 | TXI | L23090,B,1 -(N+1) TO -N | 4F13891 | ||
07202 | 0 60100 1 15526 | 3844 | L23090 | STO | LAMBDA+6,A STO -N IN LAMBDA+3(L+2) | 4F13892 | |
07203 | 0 60200 4 15305 | 3845 | L23130 | SLW | ALPHA,C STO -N IN ALPHA +A | 4F13893 | |
07204 | 0 50200 0 01406 | 3846 | CLS | L(0) | 4F13894 | ||
07205 | 0 60100 1 15523 | 3847 | STO | LAMBDA+3,A STO -0 IN LAMBDA+3(L+1) | 4F13895 | ||
07206 | 0 76000 0 00141 | 3848 | SLN | 1 | 4F13896 | ||
07207 | 0 50200 4 15304 | 3849 | LA2000 | CLS | ALPHA−1,C | 4F13897 | |
07210 | 0 60100 1 15520 | 3850 | STO | LAMBDA,A STO C(ALPHA+A-1) IN LAMBDA+3L | 4F13898 | ||
07211 | 0 50000 0 01360 | 3851 | CLA | NBAR | 4F13899 | ||
07212 | 1 00006 1 07240 | 3852 | TXI | LA4180,A,6 | 4F13900 | ||
07213 | 0 60200 4 15305 | 3853 | L43130 | SLW | ALPHA,C STO -(N+2) IN ALPHA+A | 4F13901 | |
07214 | 0 50200 0 01406 | 3854 | CLS | L(0) | 4F13902 | ||
07215 | 0 60100 1 15531 | 3855 | STO | LAMBDA+9,A STO -0 IN LAMBDA+3(L+3) | 4F13903 | ||
07216 | 0 76000 0 00141 | 3856 | SLN | 1 | 4F13904 | ||
07217 | 0 50200 4 15302 | 3857 | LA4000 | CLS | ALPHA−3,C | 4F13905 | |
07220 | 0 60100 1 15520 | 3858 | LA4010 | STO | LAMBDA,A STO C(ALPHA+A-3) IN LAMBDA+3L | 4F13906 | |
07221 | 0 50200 0 01360 | 3859 | CLS | NBAR | 4F13907 | ||
07222 | 0 77100 0 00022 | 3860 | ARS | 18 | 4F13908 | ||
07223 | 0 60200 4 15303 | 3861 | SLW | ALPHA−2,C STO-N IN ALPHA+A-2 | 4F13909 | ||
07224 | 0 60200 1 15522 | 3862 | SLW | LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 | 4F13910 | ||
07225 | 0 60100 1 15523 | 3863 | STO | LAMBDA+3,A STO -N IN LAMBDA+3(L+1) | 4F13911 | ||
07226 | −0 75400 2 00000 | 3864 | PXD | ,B | 4F13912 | ||
07227 | 0 77100 0 00022 | 3865 | ARS | 18 | 4F13913 | ||
07230 | 0 60100 1 15525 | 3866 | STO | LAMBDA+5,A STO S(N+1) IN LAMBDA+3(L+1)+2 | 4F13914 | ||
07231 | 0 60100 4 15304 | 3867 | STO | ALPHA−1,C STO-(N,1) IN ALPHA+A-1 | 4F13915 | ||
07232 | −0 76000 0 00003 | 3868 | SSM | 4F13916 | |||
07233 | 0 60100 1 15526 | 3869 | STO | LAMBDA+6,A STO -(N+1) IN LAMBDA+3IL+2) | 4F13917 | ||
07234 | 1 77777 2 07235 | 3870 | TXI | LA4150,B,−1 -(N+1) TO -(N+2) | 4F13916 | ||
07235 | −0 50000 0 01524 | 3871 | LA4150 | CAL | ADSTAR | 4F13919 | |
07236 | 0 60200 1 15524 | 3872 | SLW | LAMBDA+4,A STO * IN LAMBDA+3(L+1)+1 | 4F13920 | ||
07237 | −0 75400 2 00000 | 3873 | LA4170 | PXD | ,B | 4F13921 | |
07240 | 0 77100 0 00022 | 3874 | LA4180 | ARS | 18 | 4F13922 | |
07241 | 0 60100 1 15530 | 3875 | STO | LAMBDA+8,A STOS(N+2) IN LAMBDA+3(L+2)+2 | 4F13923 | ||
07242 | −0 60200 1 15531 | 3876 | ORS | LAMBDA+9,A STO -(N+2) IN LAMBDA+3(L+3) | 4F13924 | ||
07243 | −0 50000 0 01525 | 3877 | CAL | STRSTR | 4F13925 | ||
07244 | 0 60200 1 15527 | 3878 | SLW | LAMBDA+7,A STO SPOP IN LAMBDA+3(L+2)+1 | 4F13926 | ||
07245 | −0 50000 0 01522 | 3879 | CAL | ADSPOP | 4F13927 | ||
07246 | −0 50100 0 15302 | 3880 | ORA | FSBITS | 4F13928 | ||
07247 | −0 50100 0 15303 | 3881 | ORA | FNBITS | 4F13929 | ||
07250 | 0 60200 1 15532 | 3882 | SLW | LAMBDA+10,A STO SPOP IN LAMBDA+3(L+3)+1 | 4F13930 | ||
07251 | 1 77767 1 00000 | 3883 | LA4320 | TXI | **,A,−9 | 4F13931 | |
07252 | −0 75400 2 00000 | 3884 | L32000 | PXD | ,B | 4F13932 | |
07253 | 0 77100 0 00022 | 3885 | ARS | 18 | 4F13933 | ||
07254 | 0 60100 1 15530 | 3886 | STO | LAMBDA+8,A STO 5(N+2) IN LAMBDA+3(L+2)+2 | 4F13934 | ||
07255 | 0 40000 0 01407 | 3887 | ADD | L(1) | 4F13935 | ||
07256 | 1 00001 2 07266 | 3888 | TXI | L33130,B,1 -(N+2) TO -(N+1) | 4F13936 | ||
07257 | −0 75400 2 00000 | 3889 | L33000 | PXD | ,B | 4F13937 | |
07260 | 0 77100 0 00022 | 3890 | ARS | 18 | 4F13938 | ||
07261 | 0 60100 1 15533 | 3891 | STO | LAMBDA+11,A STO S(N+2) IN LAMBDA+3(L+3)+2 | 4F13939 | ||
07262 | 0 40000 0 01407 | 3892 | ADD | L(1) | 4F13940 | ||
07263 | −0 76000 0 00003 | 3893 | SSM | 4F13941 | |||
07264 | 1 00001 2 07265 | 3894 | TXI | L33090,B,1 -(N+2) TO -(N+1) | 4F13942 | ||
07265 | 0 60100 1 15531 | 3895 | L33090 | STO | LAMBDA+9,A STO -(N+1) IN LAMBDA+3(L+3) | 4F13943 | |
07266 | 0 60200 4 15305 | 3896 | L33130 | SLW | ALPHA,C STO -(N+1) IN ALPHA+A | 4F13944 | |
07267 | 0 50200 0 01406 | 3897 | CLS | L(0) | 4F13945 | ||
07270 | 0 60100 1 15526 | 3898 | STO | LAMBDA+6,A | 4F13946 | ||
07271 | 0 76000 0 00141 | 3899 | SLN | 1 | 4F13947 | ||
07272 | 0 50200 4 15303 | 3900 | LA3000 | CLS | ALPHA−2,C | 4F13948 | |
07273 | 0 60100 1 15520 | 3901 | STO | LAMBDA,A STO C(ALPHA+A-2) IN LAMBDA+3L | 4F13949 | ||
07274 | 0 50200 0 01360 | 3902 | CLS | NBAR | 4F13950 | ||
07275 | 0 77100 0 00022 | 3903 | ARS | 18 | 4F13951 | ||
07276 | 0 60200 4 15304 | 3904 | SLW | ALPHA−1,C STO -N IN ALPHA+A-1 | 4F13952 | ||
07277 | 0 60200 1 15522 | 3905 | SLW | LAMBDA+2,A STO S(N) IN LAMBDA+3L+2 | 4F13953 | ||
07300 | 0 60100 1 15523 | 3906 | STO | LAMBDA+3,A STO -N IN LAMBDA+3(L+1) | 4F13954 | ||
07301 | 1 00003 1 07237 | 3907 | TXI | LA4170,A,3 | 4F13955 | ||
07302 | 1 77775 1 07303 | 3908 | CM4100 | TXI | CM4101,A,−3 LA COUNTER MODIFICATION ROUTINES | 4F13956 | |
07303 | −0 63400 1 01117 | 3909 | CM4101 | SXD | 3LBAR,A | 4F13957 | |
07304 | −0 63400 2 15277 | 3910 | CM4102 | SXD | CBAR,B | 4F13958 | |
07305 | 1 77777 2 07306 | 3911 | TXI | CM4104,B,−1 | 4F13959 | ||
07306 | −0 63400 2 01360 | 3912 | CM4104 | SXD | NBAR,B | 4F13960 | |
U | 07307 | 00000 0 06346 | 3913 | CM4105 | *** | MS010,0 | 4F13961 |
07310 | −0 50000 0 01524 | 3914 | MS020 | CAL | ADSTAR | 4F13962 | |
07311 | 0 02000 0 06347 | 3915 | TRA | MS030 | 4F13963 | ||
07312 | 1 77775 1 07313 | 3916 | CM4200 | TXI | CM4201,A,−3 | 4F13964 | |
07313 | −0 63400 1 01117 | 3917 | CM4201 | SXD | 3LBAR,A | 4F13965 | |
07314 | 1 77777 4 07320 | 3918 | TXI | CM4303,C,−1 | 4F13966 | ||
07315 | 1 77772 1 07316 | 3919 | CM4300 | TXI | CM4301,A,−6 | 4F13967 | |
07316 | −0 63400 1 01117 | 3920 | CM4301 | SXD | 3LBAR,A | 4F13968 | |
07317 | 1 77777 4 07320 | 3921 | TXI | CM4303,C,−1 | 4F13969 | ||
07320 | −0 63400 4 15300 | 3922 | CM4303 | SXD | ABAR,C | 4F13970 | |
07321 | 1 77777 2 07304 | 3923 | TXI | CM4102,B,−1 | 4F13971 | ||
3924 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13972 | |||||
3925 | 4F13973 | ||||||
3926 | CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE | 4F13974 | |||||
07322 | −0 63400 1 06745 | 3927 | C3390 | SXD | C3357,1 SAVE CALLING IR | 4F13975 | |
07323 | 0 60200 0 01112 | 3928 | SLW | 1G MOVE WORD TO BE ENTERED TO 1G | 4F13976 | ||
07324 | 0 07400 1 03321 | 3929 | TSX | TET00,1 GO TO ENTER WORD IN HOLARG TABLE | 4F13977 | ||
07325 | 0 00000 0 00015 | 3930 | 13 | 4F13978 | |||
07326 | 0 50000 0 01352 | 3931 | CLA | HOLCNT | 4F13979 | ||
07327 | 0 40000 0 01407 | 3932 | ADD | L(1) UPDATE HOLCNT | 4F13980 | ||
07330 | 0 60100 0 01352 | 3933 | STO | HOLCNT | 4F13981 | ||
07331 | −0 53400 1 06745 | 3934 | LXD | C3357,1 RELOAD CALLING IR | 4F13982 | ||
07332 | 0 02000 1 00001 | 3935 | TRA | 1,1 RETURN TO CALLER+1 | 4F13983 | ||
3936 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F13984 | |||||
3937 | 4F13985 | ||||||
3938 | PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN | 4F13986 | |||||
3939 | SECTION ONE THRU THE USE OF THE RA000 SUBROUTINE BY STATE B. | 4F13987 | |||||
07333 | −0 63400 4 07366 | 3940 | SS000X | SXD | SSIR4,4 SAVE CALLING TAG. | 4F13988 | |
07334 | 0 07400 4 02614 | 3941 | TSX | SS000,4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. | 4F13989 | ||
07335 | 0 07400 4 02437 | 3942 | TSX | RA000,4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE. | 4F13990 | ||
07336 | −0 50000 0 01351 | 3943 | CAL | GTAG | 4F13991 | ||
07337 | −0 32000 0 01527 | 3944 | ANA | MASK1 | 4F13992 | ||
07340 | 0 60200 0 01141 | 3945 | SLW | E+11 | 4F13993 | ||
07341 | 0 07400 4 00450 | 3946 | TSX | SIG1IX,4 GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. | 4F13994 | ||
07342 | 0 76700 0 00017 | 3947 | ALS | 15 POSITION SIGMA TAG. | 4F13995 | ||
07343 | −0 60200 0 01126 | 3948 | ORS | E ADD SIGMA TAG TO I-TAU TAGS IN E. | 4F13996 | ||
07344 | −0 53400 4 07366 | 3949 | LXD | SSIR4,4 RELOAD CALLING TAG. | 4F13997 | ||
07345 | 0 02000 4 00001 | 3950 | TRA | 1,4 RETURN TO CALLER +1. | 4F13998 | ||
3951 | 4F13999 | ||||||
3952 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F14000 | |||||
3953 | 4F14001 | ||||||
3954 | ROYCNV,4/ CALLS=C0190,FXCNIX,FLCNIX,DIAG. | 4F14002 | |||||
3955 | ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION | 4F14003 | |||||
3956 | ARITHMETIC. | 4F14004 | |||||
3957 | ROYCNV= ENTRY POINT FOR FIXED OR FLQATING POINT INTEGERS. | 4F14005 | |||||
07346 | 0 60100 0 01103 | 3958 | ROYCNV | STO | N SAVE DECIMAL DIGIT IN N. | 4F14006 | |
07347 | −0 63400 4 07352 | 3959 | SXD | EXIT,4 SAVE C(XR4) FOR RETURN. | 4F14007 | ||
07350 | 0 60000 0 01100 | 3960 | STZ | DOE CLEAR DOE (IMPLICIT EXPONENT). | 4F14008 | ||
07351 | 0 50000 0 07370 | 3961 | CLA | CM1 PICK UP SWITCH CONTROL, | 4F14009 | ||
07352 | 1 00000 0 07357 | 3962 | EXIT | TXI | IN2,0,** AND G0 SET SWITCH. | 4F14010 | |
3963 | DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS. | 4F14011 | |||||
07353 | 0 60000 0 01103 | 3964 | DECPNT | STZ | N CLEAR N (NO INTEGER). | 4F14012 | |
07354 | −0 63400 4 07352 | 3965 | SXD | EXIT,4 SAVE C(XR4) FOR RETURN. | 4F14013 | ||
07355 | 0 60000 0 01100 | 3966 | STZ | DOE CLEAR DOE (IMPLICIT EXPONENT). | 4F14014 | ||
07356 | −0 50000 0 07370 | 3967 | NC7 | CAL | CM1 PICK UP SWITCH CONTROL. | 4F14015 | |
07357 | 0 63000 0 07400 | 3968 | IN2 | STP | CM2 SET SWITCHES CM2, AND | 4F14016 | |
07360 | 0 63000 0 07412 | 3969 | STP | CM3 CM3. | 4F14017 | ||
07361 | 0 14000 0 07362 | 3970 | TOV | NC5 TURN OFF OV TRIGGER. | 4F14018 | ||
07362 | 0 07400 4 01707 | 3971 | NC5 | TSX | C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. | 4F14019 | |
07363 | 0 60200 0 01124 | 3972 | SLW | CHSAVE SAVE IT FOR STATE B, AND THEN | 4F14020 | ||
07364 | 0 34000 0 01423 | 3973 | CAS | L(H) COMPARE IT WITH H. | 4F14021 | ||
D | 07365 | 1 00000 0 07367 | 3974 | TXI | NC1,0 IF H, GO TO HEXIT. | 4F14022 | |
D | 07366 | 1 00000 0 07533 | 3975 | SSIR4 | TXI | HEXIT,0 IF NOT H, CONTINUE | 4F14023 |
07367 | 0 34000 0 01373 | 3976 | NC1 | CAS | TEN AND COMPARE WITH TEN. | 4F14024 | |
D | 07370 | −3 00000 0 07404 | 3977 | CM1 | TXL | NC2,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. | 4F14025 |
07371 | −0 75400 0 00000 | 3978 | PXD | ,0 CLEAR THE AC (MACHINE ERROR). | 4F14026 | ||
07372 | 0 60100 0 01102 | 3979 | STO | H CHARACTER IS NUMERIC, SO HOLD IT. | 4F14027 | ||
07373 | 0 50000 0 01103 | 3980 | CLA | N MULTIPLY THE PREVIOUS | 4F14028 | ||
07374 | 0 76700 0 00002 | 3981 | ALS | 2 PARTIAL RESULT (OR ZERO) | 4F14029 | ||
07375 | 0 40000 0 01103 | 3982 | ADD | N BY 10, | 4F14030 | ||
07376 | 0 76700 0 00001 | 3983 | ALS | 1 AND ADD IN | 4F14031 | ||
07377 | 0 40000 0 01102 | 3984 | ADD | H THE CURRENT DIGIT. | 4F14032 | ||
D | 07400 | 3 00000 0 07421 | 3985 | CM2 | TXH | NC3,0 SWITCH (NO TRANSFER IF INTEGER). | 4F14033 |
07401 | 0 14000 0 07427 | 3986 | TOV | NC4 TEST OVERFLOW, AND | 4F14034 | ||
07402 | 0 60100 0 01103 | 3987 | STO | N IF NONE, SAVE NEW PARTIAL RESULT. | 4F14035 | ||
D | 07403 | 1 00000 0 07362 | 3988 | TXI | NC5,0 THEN GO PICK UP NEXT CHARACTER. | 4F14036 | |
07404 | 0 34000 0 01403 | 3989 | NC2 | CAS | POINT COMPARE NON-NUMERIC WITH A POINT. | 4F14037 | |
D | 07405 | 1 00000 0 07412 | 3990 | TXI | CM3,0 IF GREATER THAN 27, GO OUT. | 4F14038 | |
D | 07406 | 1 00000 0 07356 | 3991 | TXI | NC7,0 IF POINT, GO BACK AND SET SWITCH. | 4F14039 | |
07407 | 0 34000 0 07542 | 3992 | CAS | L(E) IF LESS THAN 27, COMPARE WITH E. | 4F14040 | ||
D | 07410 | 1 00000 0 07412 | 3993 | TXI | CM3,0 IF GREATER THAN 21, GO OUT. | 4F14041 | |
D | 07411 | 1 00000 0 07431 | 3994 | TXI | EC1,0 IF E, GO TO EXPONENT ROUTINE. | 4F14042 | |
D | 07412 | 3 00000 0 07470 | 3995 | CM3 | TXH | FN4,0 SWITCH (NO TRANSFER IF INTEGER). | 4F14043 |
07413 | 0 50000 0 01103 | 3996 | CLA | N PICK UP CONVERTED CONSTANT, AND | 4F14044 | ||
07414 | 0 76700 0 00022 | 3997 | MS9506 | ALS | 18 STORE IN THE | 4F14045 | |
07415 | 0 60100 0 01347 | 3998 | STO | G DECREMENT OF G, AND | 4F14046 | ||
07416 | 0 07400 4 00417 | 3999 | TSX | FXCNIX,4 * GO MAKE FIXCON ENTRY. | 4F14047 | ||
07417 | −0 50100 0 01517 | 4000 | ORA | FIXVAR CREATE INTERNAL FXD-P, VARIABLE,AND | 4F14048 | ||
D | 07420 | 1 00000 0 07521 | 4001 | TXI | EXITR,0 GO TAKE EXITR. | 4F14049 | |
07421 | 0 14000 0 07426 | 4002 | NC3 | TOV | NC8 IF THERE WAS NO OVERFLOW, | 4F14050 | |
07422 | 0 60100 0 01103 | 4003 | STO | N SAVE PARTIAL RESULT, AND | 4F14051 | ||
07423 | 0 50200 0 01407 | 4004 | CLS | L(1) SUBTRACT 1 FROM DOE | 4F14052 | ||
07424 | 0 40000 0 01100 | 4005 | NC9 | ADD | DOE TO ADJUST EXPONENT | 4F14053 | |
07425 | 0 60100 0 01100 | 4006 | STO | DOE IN FINAL RESULT. | 4F14054 | ||
D | 07426 | 1 00000 0 07362 | 4007 | NC8 | TXI | NC5,0 THEN GO PICK UP NEXT CHARACTER. | 4F14055 |
07427 | 0 50000 0 01407 | 4008 | NC4 | CLA | L(1) ADD 1 TO DOE , | 4F14056 | |
D | 07430 | 1 00000 0 07424 | 4009 | TXI | NC9,0 IF THERE WAS INTEGER OVERFLOW. | 4F14057 | |
07431 | 0 07400 4 01707 | 4010 | EC1 | TSX | C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. | 4F14058 | |
07432 | 0 60200 0 01124 | 4011 | SLW | CHSAVE SAVE IT FOR STATE B, AND | 4F14059 | ||
07433 | 0 60000 0 01101 | 4012 | STZ | EKE CLEAR EKE (EXPLICIT EXPONENT). | 4F14060 | ||
07434 | 0 34000 0 01401 | 4013 | CAS | 11Z COMPARE CHARACTER WITH A DASH. | 4F14061 | ||
D | 07435 | 1 00000 0 07465 | 4014 | TXI | FN5,0 IF GREATER THAN 32, GO OUT. | 4F14062 | |
D | 07436 | 1 00000 0 07444 | 4015 | TXI | EC3,0 IF A DASH, SET EKE MINUS. | 4F14063 | |
07437 | 0 34000 0 01404 | 4016 | CAS | 12Z IF LESS THAN 32, COMPARE WITH PLUS. | 4F14064 | ||
D | 07440 | 1 00000 0 07465 | 4017 | TXI | FN5,0 IF GREATER THAN 16, GO OUT. | 4F14065 | |
D | 07441 | 1 00000 0 07451 | 4018 | TXI | EC6,0 IF PLUS, GO EXAMINE NEXT CHAR. | 4F14066 | |
07442 | 0 34000 0 01420 | 4019 | CAS | MINUS IF LESS THAN 16,COMPARE WITH MINUS. | 4F14067 | ||
D | 07443 | 1 00000 0 07465 | 4020 | TXI | FN5,0 IF GREATER THAN 12, GO OUT. | 4F14068 | |
07444 | 0 50200 0 01101 | 4021 | EC3 | CLS | EKE IF MINUS, SET EKE TO -0. | 4F14069 | |
07445 | 0 34000 0 01373 | 4022 | CAS | TEN COMPARE WITH TEN. | 4F14070 | ||
D | 07446 | 1 00000 0 07465 | 4023 | TXI | FN5,0 IF NON-NUMERIC, GO EXAMINE NEXT CH. | 4F14071 | |
07447 | −0 75400 0 00000 | 4024 | EC4 | PXD | ,0 CLEAR ACC, | 4F14072 | |
07450 | 0 60100 0 01101 | 4025 | EC5 | STO | EKE SAVE PARTIAL RESULT(OR 0) IN EKE. | 4F14073 | |
07451 | 0 07400 4 01707 | 4026 | EC6 | TSX | C0190,4 * GO GET NEXT NB CHARACTER IN THE AC. | 4F14074 | |
07452 | 0 60200 0 01124 | 4027 | SLW | CHSAVE SAVE IT FOR STATE B, | 4F14075 | ||
07453 | 0 34000 0 01373 | 4028 | CAS | TEN AND COMPARE WITH TEN. | 4F14076 | ||
D | 07454 | 1 00000 0 07465 | 4029 | TXI | FN5,0 CHAR EXCEEDS 10, SO IS NON-NUMERIC. | 4F14077 | |
07455 | −0 75400 0 00000 | 4030 | PXD | ,0 CLEAR THE AC (MACHINE ERROR). | 4F14078 | ||
07456 | 0 60100 0 01102 | 4031 | STO | H CHARACTER IS NUMERIC, SO HOLD IT. | 4F14079 | ||
07457 | 0 50000 0 01101 | 4032 | CLA | EKE MULTIPLY THE PREVIOUS | 4F14080 | ||
07460 | 0 76700 0 00002 | 4033 | ALS | 2 PARTIAL RESULT (OR ZERO) | 4F14081 | ||
07461 | 0 40000 0 01101 | 4034 | ADD | EKE BY 10, | 4F14082 | ||
07462 | 0 76700 0 00001 | 4035 | ALS | 1 AND ADD IN | 4F14083 | ||
07463 | 0 36100 0 01102 | 4036 | ACL | H THE CURRENT DIGIT. | 4F14084 | ||
D | 07464 | 1 00000 0 07450 | 4037 | TXI | EC5,0 CONTINUE UNTIL NON-NUMERIC IS MET. | 4F14085 | |
07465 | 0 50000 0 01101 | 4038 | FN5 | CLA | EKE COMBINE EXPLICIT EXPONENT | 4F14086 | |
07466 | 0 40000 0 01100 | 4039 | ADD | DOE WITH IMPLICIT EXPONENT, | 4F14087 | ||
07467 | 0 60100 0 01100 | 4040 | STO | DOE AND SAVE IN DOE. | 4F14088 | ||
07470 | 0 50000 0 01103 | 4041 | FN4 | CLA | N IF N CONTAINS ZERO, TAKE | 4F14089 | |
07471 | 0 10000 0 07516 | 4042 | TZE | MS9500 FLO PT CONSTANT RETURN. | 4F14090 | ||
07472 | 0 62100 0 07535 | 4043 | STA | K1 PUT INTEGER INTO FLO PT WORD, | 4F14091 | ||
07473 | 0 77100 0 00017 | 4044 | ARS | 15 ADJUST, AND | 4F14092 | ||
07474 | 0 10000 0 07476 | 4045 | TZE | FN1 IF MORE THAN 15 BITS IN LENGTH | 4F14093 | ||
07475 | −0 50100 0 07536 | 4046 | ORA | K2 AFFIX CORRECT EXPONENT. | 4F14094 | ||
07476 | 0 30000 0 07535 | 4047 | FN1 | FAD | K1 THEN FLOATING ADD THE RESULT | 4F14095 | |
07477 | −0 77300 0 00010 | 4048 | RQL | 8 OF INTEGER CONVERSION, AND | 4F14096 | ||
07500 | 0 76000 0 00010 | 4049 | RND | ROUND --TO OBTAIN | 4F14097 | ||
07501 | −0 50100 0 07537 | 4050 | ORA | K3 NORMALIZED RESULT. | 4F14098 | ||
07502 | 0 53400 1 01100 | 4051 | LXA | DOE,1 EXAMINE THE C(DOE), AN0 | 4F14099 | ||
07503 | −3 00000 1 07516 | 4052 | TXL | MS9500,1,0 IF ZERO, TAKE FLO PT RETURN. | 4F14100 | ||
07504 | −3 00062 1 07506 | 4053 | TXL | FN2,1,50 IF GREATER THAN 50, THEN | 4F14101 | ||
D | 07505 | 1 00000 0 07532 | 4054 | TXI | CER,0 ERROR. --GO TO DIAGNOSTIC. | 4F14102 | |
07506 | 0 56000 0 01100 | 4055 | FN2 | LDQ | DOE DETERMINE WHETHER INTEGER WAS | 4F14103 | |
07507 | 0 16200 0 07524 | 4056 | TQP | FN3 TO THE RIGHT OR TO THE LEFT OF DP. | 4F14104 | ||
07510 | 0 24100 1 07623 | 4057 | FDP | TAB,1 IF TO THE RIGHT, DIVIDE BY A | 4F14105 | ||
07511 | −0 60000 0 01103 | 4058 | STQ | N SUITABLE CONSTANT | 4F14106 | ||
07512 | 0 50000 0 01103 | 4059 | CLA | N TO ADJUST RESULT | 4F14107 | ||
07513 | 0 36100 0 07540 | 4060 | ACL | K4 AND TEST FOR OUT OF RANGE. | 4F14108 | ||
07514 | −0 76000 0 00001 | 4061 | PBT | IF P=1, SKIP TO ARITH RETURN. | 4F14109 | ||
D | 07515 | 1 00000 0 07532 | 4062 | TXI | CER,0 ERROR. --GO TO DIAGNOSTIC. | 4F14110 | |
07516 | 0 60100 0 01347 | 4063 | MS9500 | STO | G STORE IN G, AND | 4F14111 | |
07517 | 0 07400 4 00424 | 4064 | TSX | FLCNIX,4 * GO MAKE FLOCON ENTRY. | 4F14112 | ||
07520 | −0 50100 0 01513 | 4065 | ORA | FLOVAR CREATE INTERNAL FLO-PT VARIABLE, | 4F14113 | ||
07521 | 0 60200 0 01130 | 4066 | EXITR | SLW | E+2 SAVE VARIABLE IN E+2, | 4F14114 | |
07522 | −0 53400 4 07352 | 4067 | LXD | EXIT,4 RESTORE THE C(XR4), AND | 4F14115 | ||
07523 | 0 02000 4 00002 | 4068 | TRA | 2,4 * RETURN TO MAIN ROUTINE. | 4F14116 | ||
07524 | 0 60100 0 01103 | 4069 | FN3 | STO | N IF INTEGER WAS SITUATED | 4F14117 | |
07525 | 0 56000 0 01103 | 4070 | LDQ | N TO THE LEFT OF THE DECIMAL POINT, | 4F14118 | ||
07526 | 0 26000 1 07623 | 4071 | FMP | TAB,1 MULTIPLY BY A SUITABLE | 4F14119 | ||
07527 | 0 36100 0 07541 | 4072 | ACL | K5 CONSTANT TO ADJUST AND TEST RANGE. | 4F14120 | ||
07530 | −0 76000 0 00001 | 4073 | PBT | IF P=1, SKIP TO ERROR. | 4F14121 | ||
D | 07531 | 1 00000 0 07516 | 4074 | TXI | MS9500,0 RETURN TO ARITHMETIC ROUTINE. | 4F14122 | |
07532 | 0 07400 4 03400 | 4075 | CER | TSX | DIAG,4 * CONVERSION ERROR, GO TO DIAGNOSTIC. | 4F14123 | |
07533 | −0 53400 4 07352 | 4076 | HEXIT | LXD | EXIT,4 RESTORE THE C(XR4), AND | 4F14124 | |
07534 | 0 02000 4 00001 | 4077 | TRA | 1,4 * RETURN TO MAIN ROUTINE. | 4F14125 | ||
4078 | 4F14126 | ||||||
07535 | +233000000000 | 4079 | K1 | OCT | 233000000000 CONSTANT USED BY ROYCNV. | 4F14127 | |
07536 | +252000000000 | 4080 | K2 | OCT | 252000000000 CONSTANT USED BY ROYCNV. | 4F14128 | |
07537 | +000400000000 | 4081 | K3 | OCT | 400000000 CONSTANT USED BY ROYCNV. | 4F14129 | |
07540 | +335000000000 | 4082 | K4 | OCT | 335000000000 CONSTANT USED BY ROYCNV. | 4F14130 | |
07541 | +043000000000 | 4083 | K5 | OCT | 43000000000 CONSTANT USED BY ROYCNV. | 4F14131 | |
07542 | 000000000025 | 4084 | L(E) | BCD | 100000E CONSTANT USED BY ROYCNV. | 4F14132 | |
4085 | 4F14133 | ||||||
07543 | +375536246150 | 4086 | OCT | 375536246150 48-TABLE USED BY ROYCNV. | 4F14134 | ||
07544 | +372430204754 | 4087 | OCT | 372430204754 47-TABLE USED BY ROYCNV. | 4F14135 | ||
07545 | +366700324573 | 4088 | OCT | 366700324573 46-TABLE USED BY ROYCNV. | 4F14136 | ||
07546 | +363546566774 | 4089 | OCT | 363546566774 45-TABLE USED BY ROYCNV. | 4F14137 | ||
07547 | +360436770626 | 4090 | OCT | 360436770626 44-TABLE USED BY ROYCNV. | 4F14138 | ||
07550 | +354713132675 | 4091 | OCT | 354713132675 43-TABLE USED BY ROYCNV. | 4F14139 | ||
07551 | +351557257061 | 4092 | OCT | 351557257061 42-TABLE USED BY ROYCNV. | 4F14140 | ||
07552 | +346445677215 | 4093 | OCT | 346445677215 41-TABLE USED BY ROYCNV. | 4F14141 | ||
07553 | +342726145174 | 4094 | OCT | 342726145174 40-TABLE USED BY ROYCNV. | 4F14142 | ||
07554 | +337570120775 | 4095 | OCT | 337570120775 39-TABLE USED BY ROYCNV. | 4F14143 | ||
07555 | +334454732312 | 4096 | OCT | 334454732312 38-TABLE USED BY ROYCNV. | 4F14144 | ||
07556 | +330741367020 | 4097 | OCT | 330741367020 37-TABLE USED BY ROYCNV. | 4F14145 | ||
07557 | +325601137163 | 4098 | OCT | 325601137163 36-TABLE USED BY ROYCNV. | 4F14146 | ||
07560 | +322464114134 | 4099 | OCT | 322464114134 35-TABLE USED BY ROYCNV. | 4F14147 | ||
07561 | +316755023372 | 4100 | OCT | 316755023372 34-TABLE USED BY ROYCNV. | 4F14148 | ||
07562 | +313612334310 | 4101 | OCT | 313612334310 33-TABLE USED BY ROYCNV. | 4F14149 | ||
07563 | +310473426555 | 4102 | OCT | 310473426555 32-TABLE USED BY ROYCNV. | 4F14150 | ||
07564 | +304770675742 | 4103 | OCT | 304770675742 31-TABLE USED BY ROYCNV. | 4F14151 | ||
07565 | +301623713116 | 4104 | OCT | 301623713116 30-TABLE USED BY ROYCNV. | 4F14152 | ||
07566 | +276503074076 | 4105 | OCT | 276503074076 29-TABLE USED BY ROYCNV. | 4F14153 | ||
07567 | +273402374713 | 4106 | OCT | 273402374713 28-TABLE USED BY R0YCNV. | 4F14154 | ||
07570 | +267635456171 | 4107 | OCT | 267635456171 27-TABLE USED BY ROYCNV. | 4F14155 | ||
07571 | +264512676456 | 4108 | OCT | 264512676456 26-TABLE USED BY ROYCNV. | 4F14156 | ||
07572 | +261410545213 | 4109 | OCT | 261410545213 25-TABLE USED BY ROYCNV. | 4F14157 | ||
07573 | +255647410337 | 4110 | OCT | 255647410337 24-TABLE USED BY ROYCNV. | 4F14158 | ||
07574 | +252522640262 | 4111 | OCT | 252522640262 23-TABLE USED BY ROYCNV. | 4F14159 | ||
07575 | +247417031702 | 4112 | OCT | 247417031702 22-TABLE USED BY ROYCNV. | 4F14160 | ||
07576 | +243661534466 | 4113 | OCT | 243661534466 21-TABLE USED BY ROYCNV. | 4F14161 | ||
07577 | +240532743536 | 4114 | OCT | 240532743536 20-TABLE USED BY ROYCNV. | 4F14162 | ||
07600 | +235425434430 | 4115 | OCT | 235425434430 19-TABLE USED BY ROYCNV. | 4F14163 | ||
07601 | +231674055530 | 4116 | OCT | 231674055530 18-TABLE USED BY ROYCNV. | 4F14164 | ||
07602 | +226543212741 | 4117 | OCT | 226543212741 17-TABLE USED BY ROYCNV. | 4F14165 | ||
07603 | +223434157116 | 4118 | OCT | 223434157116 16-TABLE USED BY ROYCNV. | 4F14166 | ||
07604 | +217706576512 | 4119 | OCT | 217706576512 15-TABLE USED BY ROYCNV. | 4F14167 | ||
07605 | +214553630410 | 4120 | OCT | 214553630410 14-TABLE USED BY ROYCNV. | 4F14168 | ||
07606 | +211443023471 | 4121 | OCT | 211443023471 13-TABLE USED BY ROYCNV. | 4F14169 | ||
07607 | +205721522451 | 4122 | OCT | 205721522451 12-TABLE USED BY ROYCNV. | 4F14170 | ||
07610 | +202564416672 | 4123 | OCT | 202564416672 11-TABLE USED BY ROYCNV. | 4F14171 | ||
07611 | +177452013710 | 4124 | OCT | 177452013710 10-TABLE USED BY ROYCNV. | 4F14172 | ||
07612 | +173734654500 | 4125 | OCT | 173734654500 09-TABLE USED BY ROYCNV. | 4F14173 | ||
07613 | +170575360400 | 4126 | OCT | 170575360400 08-TABLE USED BY ROYCNV. | 4F14174 | ||
07614 | +165461132000 | 4127 | OCT | 165461132000 07-TABLE USED BY ROYCNV. | 4F14175 | ||
07615 | +161750220000 | 4128 | OCT | 161750220000 06-TABLE USED BY ROYCNV. | 4F14176 | ||
07616 | +156606500000 | 4129 | OCT | 156606500000 05-TABLE USED BY ROYCNV. | 4F14177 | ||
07617 | +153470400000 | 4130 | OCT | 153470400000 04-TABLE USED BY ROYCNV. | 4F14178 | ||
07620 | +147764000000 | 4131 | OCT | 147764000000 03-TABLE USED BY ROYCNV. | 4F14179 | ||
07621 | +144620000000 | 4132 | OCT | 144620000000 02-TABLE USED BY ROYCNV. | 4F14180 | ||
07622 | +141500000000 | 4133 | OCT | 141500000000 01-TABLE USED BY ROYCNV. | 4F14181 | ||
07623 | +136400000000 | 4134 | TAB | OCT | 136400000000 00-TABLE USED BY ROYCNV. | 4F14182 | |
4135 | END OF PROGRAM ROYCNV. | 4F14183 | |||||
4136 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F14184 | |||||
4137 | 4F14185 | ||||||
07624 | 0 00001 0 01230 | 4138 | SIG1ST | PZE | SIGMA1+2,,1 | 4F14186 | |
07625 | 4139 | STATEC | BSS | 0 | 4F141865 | ||
4140 | 4F14187 | ||||||
15215 | 4141 | ORG | 2701+4096 | 4F14188 | |||
15215 | 4142 | ARGREG | BSS | 50 | 4F14189 | ||
15277 | 4143 | CBAR | BSS | 1 | 4F14190 | ||
15300 | 4144 | ABAR | BSS | 1 | 4F14191 | ||
15301 | 4145 | FSTYPE | BSS | 1 | 4F14192 | ||
15302 | 4146 | FSBITS | BSS | 1 | 4F14193 | ||
15303 | 4147 | FNBITS | BSS | 1 | 4F14194 | ||
15304 | 4148 | FNCTR | BSS | 1 | 4F14195 | ||
15305 | 4149 | ALPHA | BSS | 139 | 4F14196 | ||
15520 | 4150 | LAMBDA | BSS | 1200 | 4F14197 | ||
4151 | END OF ARITHMETIC / STATE B. | 4F14198 | |||||
4152 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F14199 | |||||
4153 | 4F14200 | ||||||
4154 | ARITHMETIC / STATE C= | 4F14201 | |||||
4155 | STATE C. PERFOPMS OPTIMIZATION ON LAMBDA TABLE. | 4F14204 | |||||
4156 | 4F14205 | ||||||
07625 | 4157 | ORG | STATEC | 4F14206 | |||
07625 | 0 56000 0 01406 | 4158 | R00000 | LDQ | L(0) CLEAR MQ | 4F14207 | |
07626 | −0 53400 1 01360 | 4159 | LXD | NBAR,A LDXA WITH -N | 4F14208 | ||
07627 | −0 63400 1 07636 | 4160 | SXD | R00700,A | 4F14209 | ||
07630 | −0 63400 1 07714 | 4161 | SXD | R05200,A | 4F14210 | ||
07631 | −0 63400 1 10266 | 4162 | SXD | AS0800,A | 4F14211 | ||
07632 | −0 63400 1 10313 | 4163 | SXD | AS2900,A | 4F14212 | ||
07633 | 0 53400 7 01406 | 4164 | LXA | L(0),7 CLEAR XA,XB,XC, | 4F14213 | ||
07634 | −0 60000 2 15044 | 4165 | R00500 | STQ | BETA,B | 4F14214 | |
07635 | 1 77777 2 07636 | 4166 | TXI | R00700,B,−1 | 4F14215 | ||
07636 | 3 00000 2 07634 | 4167 | R00700 | TXH | R00500,B,0 | 4F14216 | |
07637 | 0 50000 0 01117 | 4168 | CLA | 3LBAR | 4F14217 | ||
07640 | 0 62200 0 07651 | 4169 | STD | R01700 | 4F14218 | ||
07641 | 0 62200 0 07726 | 4170 | STD | R06200 | 4F14219 | ||
07642 | 0 50000 1 15520 | 4171 | R01000 | CLA | LAMBDA,A ADD INTO GAMMA COUNTERS | 4F14220 | |
07643 | 0 73400 2 00000 | 4172 | PAX | 0,B | 4F14221 | ||
07644 | 0 50000 2 15044 | 4173 | CLA | BETA,B | 4F14222 | ||
07645 | 0 40000 0 01506 | 4174 | ADD | BETAD1 (-3)*2**18+(-3) | 4F14223 | ||
07646 | 0 62200 2 15044 | 4175 | STD | BETA,B | 4F14224 | ||
07647 | 0 62100 2 15044 | 4176 | STA | BETA,B | 4F14225 | ||
07650 | 1 77775 1 07651 | 4177 | TXI | R01700,A,−3 | 4F14226 | ||
07651 | 3 00000 1 07642 | 4178 | R01700 | TXH | R01000,A,0 -3L IN XA AT END | 4F14227 | |
07652 | 3 77772 1 07703 | 4179 | R01800 | TXH | R04200,A,−6 EXIT FROM SINGLE ELEMENT REDUCTION | 4F14228 | |
07653 | 0 50000 1 15515 | 4180 | CLA | LAMBDA−3,A | 4F14229 | ||
07654 | 0 73400 2 00000 | 4181 | PAX | 0,B | 4F14230 | ||
07655 | 0 50000 2 15044 | 4182 | CLA | BETA,B | 4F14231 | ||
07656 | 0 40200 0 01506 | 4183 | SUB | BETAD1 | 4F14232 | ||
07657 | 0 10000 0 07661 | 4184 | TZE | R02600 | 4F14233 | ||
07660 | 1 00003 1 07652 | 4185 | TXI | R01800,A,3 | 4F14234 | ||
07661 | 0 56000 1 15516 | 4186 | R02600 | LDQ | LAMBDA−2,A SINGLE ELEMENT | 4F14235 | |
07662 | −0 76300 0 00006 | 4187 | LGL | 6 EXAMINE OPERATION | 4F14236 | ||
07663 | 0 40200 0 01401 | 4188 | SUB | 11Z | 4F14237 | ||
07664 | −0 10000 0 07666 | 4189 | TNZ | R03200 | 4F14238 | ||
07665 | 1 00003 1 07652 | 4190 | TXI | R01800,A,3 | 4F14239 | ||
07666 | −0 50000 0 01527 | 4191 | R03200 | CAL | MASK1 SINGLE ELEMENT, NON-UNARY OP | 4F14240 | |
07667 | 0 32000 1 15515 | 4192 | ANS | LAMBDA−3,A EXTRACT TAGS AND STORE BACK | 4F14241 | ||
07670 | 0 50000 1 15512 | 4193 | CLA | LAMBDA−6,A | 4F14242 | ||
07671 | −0 50100 1 15515 | 4194 | ORA | LAMBDA−3,A | 4F14243 | ||
07672 | 0 60200 1 15512 | 4195 | SLW | LAMBDA−6,A | 4F14244 | ||
07673 | −0 50000 1 15516 | 4196 | CAL | LAMBDA−2,A EXTRACT FS BITS AND STORE BACK | 4F14245 | ||
07674 | −0 32000 0 01470 | 4197 | ANA | MASK5 | 4F14246 | ||
07675 | −0 60200 1 15513 | 4198 | ORS | LAMBDA−5,A | 4F14247 | ||
07676 | −0 50000 1 15517 | 4199 | CAL | LAMBDA−1,A STORE BACK SYMBOL | 4F14248 | ||
07677 | 0 60200 1 15514 | 4200 | SLW | LAMBDA−4,A | 4F14249 | ||
07700 | 0 60000 2 15044 | 4201 | STZ | BETA,B REDUCE GAMMA COUNT TO 0 | 4F14250 | ||
07701 | 0 60000 1 15515 | 4202 | STZ | LAMBDA−3,A CLEAR TAG WORD | 4F14251 | ||
07702 | 1 00003 1 07652 | 4203 | TXI | R01800,A,3 RESUME SCAN-BACK | 4F14252 | ||
07703 | 0 60000 0 01347 | 4204 | R04200 | STZ | G | 4F14253 | |
07704 | 0 53400 7 01406 | 4205 | LXA | L(0),7 CLEAR XA,XB,XC | 4F14254 | ||
07705 | 0 50000 2 15044 | 4206 | R04500 | CLA | BETA,B SET ORIGINS OF SCRIPL TABLE | 4F14255 | |
07706 | 0 10000 0 07713 | 4207 | TZE | R05100 | 4F14256 | ||
07707 | 0 56000 0 01347 | 4208 | LDQ | G | 4F14257 | ||
07710 | −0 62000 2 15044 | 4209 | SLQ | BETA,B | 4F14258 | ||
07711 | 0 40000 0 01347 | 4210 | ADD | G | 4F14259 | ||
07712 | 0 62200 0 01347 | 4211 | STD | G | 4F14260 | ||
07713 | 1 77777 2 07714 | 4212 | R05100 | TXI | R05200,B,−1 | 4F14261 | |
07714 | 3 00000 2 07705 | 4213 | R05200 | TXH | R04500,B,0 DEC(K)=DEC(ACC)=-3P AT END | 4F14262 | |
07715 | −0 50000 1 15520 | 4214 | R05300 | CAL | LAMBDA,A STRING BEADS... COMPRESS LAMBDA TABLE | 4F14263 | |
07716 | 0 10000 0 07725 | 4215 | TZE | R06100 | 4F14264 | ||
07717 | 0 60200 4 15520 | 4216 | SLW | LAMBDA,C | 4F14265 | ||
07720 | 0 50000 1 15521 | 4217 | CLA | LAMBDA+1,A | 4F14266 | ||
07721 | 0 60100 4 15521 | 4218 | STO | LAMBDA+1,C | 4F14267 | ||
07722 | 0 50000 1 15522 | 4219 | CLA | LAMBDA+2,A | 4F14268 | ||
07723 | 0 60100 4 15522 | 4220 | STO | LAMBDA+2,C | 4F14269 | ||
07724 | 1 77775 4 07725 | 4221 | TXI | R06100,C,−3 | 4F14270 | ||
07725 | 1 77775 1 07726 | 4222 | R06100 | TXI | R06200,A,−3 | 4F14271 | |
07726 | 3 00000 1 07715 | 4223 | R06200 | TXH | R05300,A,0 | 4F14272 | |
07727 | −0 63400 4 07750 | 4224 | SXD | R07800,C -3P IN XC AT END | 4F14273 | ||
07730 | −0 63400 4 10074 | 4225 | SXD | CS0760,C | 4F14274 | ||
07731 | 0 53400 1 01406 | 4226 | LXA | L(0),A | 4F14275 | ||
07732 | 0 50000 1 15520 | 4227 | R06400 | CLA | LAMBDA,A STORE ORDERED, REDUCED LAMBDA TABLE | 4F14276 | |
07733 | 0 73400 2 00000 | 4228 | PAX | 0,B IN SCRIPL TABLE | 4F14277 | ||
07734 | 0 50000 2 15044 | 4229 | CLA | BETA,B | 4F14278 | ||
07735 | −0 73400 4 00000 | 4230 | PDX | 0,C | 4F14279 | ||
07736 | 0 50000 1 15520 | 4231 | CLA | LAMBDA,A | 4F14280 | ||
07737 | 0 60100 4 16650 | 4232 | STO | SCRIPL,C | 4F14281 | ||
07740 | 0 50000 1 15521 | 4233 | CLA | LAMBDA+1,A | 4F14282 | ||
07741 | 0 60100 4 16651 | 4234 | STO | SCRIPL+1,C | 4F14283 | ||
07742 | 0 50000 1 15522 | 4235 | CLA | LAMBDA+2,A | 4F14284 | ||
07743 | 0 60100 4 16652 | 4236 | STO | SCRIPL+2,C | 4F14285 | ||
07744 | 1 77775 4 07745 | 4237 | TXI | R07500,C,−3 | 4F14286 | ||
07745 | −0 75400 4 00000 | 4238 | R07500 | PXD | 0,C | 4F14287 | |
07746 | 0 62200 2 15044 | 4239 | STD | BETA,B | 4F14288 | ||
07747 | 1 77775 1 07750 | 4240 | TXI | R07800,A,−3 | 4F14289 | ||
07750 | 3 00000 1 07732 | 4241 | R07800 | TXH | R06400,A,0 -3P IN XA AT END | 4F14290 | |
07751 | 0 56000 0 01406 | 4242 | CS0000 | LDQ | L(0) ELIMINATE COMMON,SEGMENTS | 4F14291 | |
07752 | −0 50000 1 16645 | 4243 | CS0010 | CAL | SCRIPL−3,A | 4F14292 | |
07753 | 0 10000 0 07762 | 4244 | TZE | CS0080 ERASED SEGMENT - CONTINUE BACK-SCAN | 4F14293 | ||
07754 | 0 73400 2 00000 | 4245 | CS0030 | PAX | 0,B | 4F14294 | |
07755 | −3 00000 2 10062 | 4246 | TXL | CS0660,B,0 EXIT FROM CS ROUTINE | 4F14295 | ||
07756 | 0 62100 0 07754 | 4247 | STA | CS0030 | 4F14296 | ||
07757 | 0 50000 2 15044 | 4248 | CLA | BETA,B | 4F14297 | ||
07760 | 0 73400 4 00000 | 4249 | CS0060 | PAX | 0,C | 4F14298 | |
07761 | −3 77772 4 07763 | 4250 | TXL | CS0090,C,−6 AT LEAST TWO ELEMENTS | 4F14299 | ||
07762 | 1 00003 1 07752 | 4251 | CS0080 | TXI | CS0010,A,3 ONE ELEMENT OR ERASED SEGMENT | 4F14300 | |
07763 | −0 63400 1 10036 | 4252 | CS0090 | SXD | CS0470,A SAVE XA | 4F14301 | |
07764 | −0 63400 4 01357 | 4253 | SXD | LENGTH,C SAVE XC, CONTAINING LENGTH OF SEGMENT | 4F14302 | ||
07765 | −3 00000 4 07770 | 4254 | CS0100 | TXL | CS0130,C,0 SEARCH UP FOR MATCHING SEGMENT | 4F14303 | |
07766 | 1 00003 1 07767 | 4255 | TXI | CS0120,A,3 | 4F14304 | ||
07767 | 1 00003 4 07765 | 4256 | CS0120 | TXI | CS0100,C,3 | 4F14305 | |
07770 | −0 50000 1 16645 | 4257 | CS0130 | CAL | SCRIPL−3,A | 4F14306 | |
07771 | −0 10000 0 07773 | 4258 | TNZ | CS0151 | 4F14307 | ||
07772 | 1 00003 1 07770 | 4259 | TXI | CS0130,A,3 ERASED SEGMENT | 4F14308 | ||
07773 | 0 73400 2 00000 | 4260 | CS0151 | PAX | 0,B | 4F14309 | |
07774 | −3 00000 2 10055 | 4261 | TXL | CS0610,B,0 G0 ON TO NEXT SEGMENT | 4F14310 | ||
07775 | 0 62100 0 07760 | 4262 | STA | CS0060 | 4F14311 | ||
07776 | 0 50000 2 15044 | 4263 | CLA | BETA,B | 4F14312 | ||
07777 | 0 73400 4 00000 | 4264 | PAX | 0,C | 4F14313 | ||
10000 | −0 75400 4 00000 | 4265 | PXD | 0,C | 4F14314 | ||
10001 | 0 40200 0 01357 | 4266 | SUB | LENGTH | 4F14315 | ||
10002 | −0 10000 0 07765 | 4267 | TNZ | CS0100 NOT SAME LENGTH SEGMENT-CONTINUE SEARCH | 4F14316 | ||
10003 | −0 53400 2 10036 | 4268 | LXD | CS0470,B SAME LENGTH SEGMENT | 4F14317 | ||
10004 | −0 63400 1 10054 | 4269 | SXD | CS0600,A | 4F14318 | ||
10005 | −3 00000 4 10032 | 4270 | CS0250 | TXL | CS0430,C,0 MATCHING SEGMENTS | 4F14319 | |
10006 | 0 50000 2 16647 | 4271 | CLA | SCRIPL−1,B | 4F14320 | ||
10007 | 0 40200 1 16647 | 4272 | SUB | SCRIPL−1,A | 4F14321 | ||
10010 | −0 10000 0 07765 | 4273 | TNZ | CS0100 | 4F14322 | ||
10011 | −0 50000 2 16645 | 4274 | CAL | SCRIPL−3,B SYMBOLS MATCH | 4F14323 | ||
10012 | −0 32000 0 01527 | 4275 | ANA | MASK1 | 4F14324 | ||
10013 | 0 60200 0 01347 | 4276 | SLW | G | 4F14325 | ||
10014 | −0 50000 1 16645 | 4277 | CAL | SCRIPL−3,A | 4F14326 | ||
10015 | −0 32000 0 01527 | 4278 | ANA | MASK1 | 4F14327 | ||
10016 | 0 76000 0 00006 | 4279 | COM | 4F14328 | |||
10017 | 0 36100 0 01347 | 4280 | ACL | G | 4F14329 | ||
10020 | 0 76000 0 00006 | 4281 | COM | 4F14330 | |||
10021 | −0 10000 0 07765 | 4282 | TNZ | CS0100 | 4F14331 | ||
10022 | 0 50000 2 16646 | 4283 | CLA | SCRIPL−2,B TAGS MATCH | 4F14332 | ||
10023 | 0 77100 0 00006 | 4284 | ARS | 6 | 4F14333 | ||
10024 | 0 76700 0 00006 | 4285 | ALS | 6 | 4F14334 | ||
10025 | 0 40200 1 16646 | 4286 | SUB | SCRIPL−2,A | 4F14335 | ||
10026 | −0 10000 0 07765 | 4287 | TNZ | CS0100 | 4F14336 | ||
10027 | 1 00003 1 10030 | 4288 | TXI | CS0360,A,3 OPS MATCH | 4F14337 | ||
10030 | 1 00003 2 10031 | 4289 | CS0360 | TXI | CS0370,B,3 | 4F14338 | |
10031 | 1 00003 4 10005 | 4290 | CS0370 | TXI | CS0250,C,3 | 4F14339 | |
10032 | −0 50000 1 16650 | 4291 | CS0430 | CAL | SCRIPL,A MATCHING SEGMENTS | 4F14340 | |
10033 | −0 32000 0 01452 | 4292 | ANA | MASK2 SEARCH FOR REFERENCES | 4F14341 | ||
10034 | 0 34000 1 16647 | 4293 | CS0450 | CAS | SCRIPL−1,A | 4F14342 | |
10035 | 1 00003 1 10034 | 4294 | TXI | CS0450,A,3 | 4F14343 | ||
10036 | 1 00000 0 10040 | 4295 | CS0470 | TXI | CS0490,0,0 | 4F14344 | |
10037 | 1 00003 1 10034 | 4296 | TXI | CS0450,A,3 | 4F14345 | ||
10040 | 0 50000 0 07754 | 4297 | CS0490 | CLA | CS0030 CHANGE REFERENCE | 4F14346 | |
10041 | 0 62100 1 16647 | 4298 | STA | SCRIPL−1,A | 4F14347 | ||
10042 | −0 53400 4 01357 | 4299 | LXD | LENGTH,C | 4F14348 | ||
10043 | −0 53400 1 10054 | 4300 | LXD | CS0600,A | 4F14349 | ||
10044 | −3 00000 4 10050 | 4301 | CS0530 | TXL | CS0570,C,0 ERASE DUPLICATE SEGMENT | 4F14350 | |
10045 | −0 60000 1 16645 | 4302 | STQ | SCRIPL−3,A | 4F14351 | ||
10046 | 1 00003 1 10047 | 4303 | TXI | CS0560,A,3 | 4F14352 | ||
10047 | 1 00003 4 10044 | 4304 | CS0560 | TXI | CS0530,C,3 | 4F14353 | |
10050 | 0 53400 4 07760 | 4305 | CS0570 | LXA | CS0060,C | 4F14354 | |
10051 | −0 60000 4 15044 | 4306 | STQ | BETA,C | 4F14355 | ||
10052 | −0 50000 0 01401 | 4307 | CAL | 11Z STORE CS BIT | 4F14356 | ||
10053 | −0 60200 2 16651 | 4308 | ORS | SCRIPL+1,B | 4F14357 | ||
10054 | 1 00000 0 07770 | 4309 | CS0600 | TXI | CS0130,0,0 | 4F14358 | |
10055 | −0 53400 1 10036 | 4310 | CS0610 | LXD | CS0470,A | 4F14359 | |
10056 | −0 53400 4 01357 | 4311 | LXD | LENGTH,C | 4F14360 | ||
10057 | −3 00000 4 07752 | 4312 | CS0630 | TXL | CS0010,C,0 | 4F14361 | |
10060 | 1 00003 1 10061 | 4313 | TXI | CS0650,A,3 | 4F14362 | ||
10061 | 1 00003 4 10057 | 4314 | CS0650 | TXI | CS0630,C,3 | 4F14363 | |
10062 | 0 53400 5 01406 | 4315 | CS0660 | LXA | L(0),5 STRING BEADS... COMPRESS SCRIPL TABLE | 4F14364 | |
10063 | −0 50000 1 16650 | 4316 | CS0670 | CAL | SCRIPL,A | 4F14365 | |
10064 | 0 10000 0 10073 | 4317 | TZE | CS0750 | 4F14366 | ||
10065 | 0 60200 4 16650 | 4318 | SLW | SCRIPL,C | 4F14367 | ||
10066 | 0 50000 1 16651 | 4319 | CLA | SCRIPL+1,A | 4F14368 | ||
10067 | 0 60100 4 16651 | 4320 | STO | SCRIPL+1,C | 4F14369 | ||
10070 | 0 50000 1 16652 | 4321 | CLA | SCRIPL+2,A | 4F14370 | ||
10071 | 0 60100 4 16652 | 4322 | STO | SCRIPL+2,C | 4F14371 | ||
10072 | 1 77775 4 10073 | 4323 | TXI | CS0750,C,−3 | 4F14372 | ||
10073 | 1 77775 1 10074 | 4324 | CS0750 | TXI | CS0760,A,−3 | 4F14373 | |
10074 | 3 00000 1 10063 | 4325 | CS0760 | TXH | CS0670,A,0 | 4F14374 | |
10075 | −0 63400 4 10111 | 4326 | SXD | PM0080,C -3Q IN XC AT END | 4F14375 | ||
10076 | −0 63400 4 10300 | 4327 | SXD | AS1800,C | 4F14376 | ||
10077 | −0 63400 4 10323 | 4328 | SXD | AS3600,C | 4F14377 | ||
10100 | 0 76000 0 00140 | 4329 | PM0000 | SLF | TURN OFF ALL SENSE LITES | 4F14378 | |
10101 | 0 53400 1 01406 | 4330 | LXA | L(0),A PERMUTE * AND / | 4F14379 | ||
10102 | 0 50000 1 16650 | 4331 | PM0010 | CLA | SCRIPL,A | 4F14380 | |
10103 | 0 73400 2 00000 | 4332 | PAX | 0,B | 4F14381 | ||
10104 | 0 50000 2 15044 | 4333 | CLA | BETA,B | 4F14382 | ||
10105 | 0 73400 4 00000 | 4334 | PAX | 0,C LDXC WITH SEGMENT LENGTH | 4F14383 | ||
10106 | −0 63400 4 10110 | 4335 | SXD | PM0070,C | 4F14384 | ||
10107 | −3 77767 4 10113 | 4336 | TXL | PM0100,C,−9 | 4F14385 | ||
10110 | 1 00000 1 10111 | 4337 | PM0070 | TXI | PM0080,A,0 LENGTH LESS THAN 3 OR OD NOT = TO * | 4F14386 | |
10111 | −3 00000 1 10256 | 4338 | PM0080 | TXL | AS0000,A,0 EXIT FROM PERMUTATION ROUTINE | 4F14387 | |
10112 | 0 02000 0 10102 | 4339 | TRA | PM0010 | 4F14388 | ||
10113 | 0 56000 1 16651 | 4340 | PM0100 | LDQ | SCRIPL+1,A SEGMENT LENGTH AT LEAST = TO 3 | 4F14389 | |
10114 | −0 75400 0 00000 | 4341 | PXD | 0,0 | 4F14390 | ||
10115 | −0 76300 0 00006 | 4342 | LGL | 6 | 4F14391 | ||
10116 | 0 40200 0 01405 | 4343 | SUB | STAR | 4F14392 | ||
10117 | −0 10000 0 10110 | 4344 | TNZ | PM0070 | 4F14393 | ||
10120 | 0 16200 0 10122 | 4345 | TQP | PM0170 | 4F14394 | ||
10121 | 0 02000 0 10110 | 4346 | TRA | PM0070 | 4F14395 | ||
10122 | −0 63400 4 10131 | 4347 | PM0170 | SXD | PM0260,C | 4F14396 | |
10123 | −0 63400 4 10147 | 4348 | SXD | PM0400,C | 4F14397 | ||
10124 | −0 63400 4 10200 | 4349 | SXD | PM0680,C | 4F14398 | ||
10125 | 0 53400 4 01406 | 4350 | LXA | L(0),C LDXC WITH 0 | 4F14399 | ||
10126 | 1 77775 1 10127 | 4351 | TXI | PM0240,A,−3 | 4F14400 | ||
10127 | 0 76000 0 00143 | 4352 | PM0240 | SLN | 3 TURN * LITE ON | 4F14401 | |
10130 | 1 77775 4 10131 | 4353 | PM0250 | TXI | PM0260,C,−3 | 4F14402 | |
10131 | −3 00000 4 10212 | 4354 | PM0260 | TXL | PM0790,C,0 EXIT | 4F14403 | |
10132 | −0 63400 4 10142 | 4355 | SXD | PM0340,C | 4F14404 | ||
10133 | −0 53400 2 10134 | 4356 | LXD | PM0290,B | 4F14405 | ||
10134 | 1 00000 3 10135 | 4357 | PM0290 | TXI | PM0300,3,0 XA TO XA AND XB | 4F14406 | |
10135 | −0 75400 0 00000 | 4358 | PM0300 | PXD | 0,0 | 4F14407 | |
10136 | 0 56000 1 16651 | 4359 | LDQ | SCRIPL+1,A | 4F14408 | ||
10137 | −0 76300 0 00006 | 4360 | LGL | 6 | 4F14409 | ||
10140 | 0 34000 0 01402 | 4361 | CAS | SLASH | 4F14410 | ||
10141 | 0 00007 0 00000 | 4362 | FEXUB | HTR | 0,0,7 | 4F14411 | |
10142 | −3 00000 0 10174 | 4363 | PM0340 | TXL | PM0640,0,0 / SIGN | 4F14412 | |
10143 | −0 76000 0 00143 | 4364 | SLT | 3 * SIGN... IS * LITE ON | 4F14413 | ||
10144 | 1 77775 1 10127 | 4365 | TXI | PM0240,A,−3 NO | 4F14414 | ||
10145 | 1 77775 2 10146 | 4366 | TXI | PM0390,B,−3 YES - SEARCH FOR / SIGN | 4F14415 | ||
10146 | 1 77775 4 10147 | 4367 | PM0390 | TXI | PM0400,C,−3 | 4F14416 | |
10147 | −3 00000 4 10210 | 4368 | PM0400 | TXL | PM0770,C,0 EXIT | 4F14417 | |
10150 | −0 75400 0 00000 | 4369 | PXD | 0,0 | 4F14418 | ||
10151 | 0 56000 2 16651 | 4370 | LDQ | SCRIPL+1,B | 4F14419 | ||
10152 | −0 76300 0 00006 | 4371 | LGL | 6 | 4F14420 | ||
10153 | 0 40200 0 01402 | 4372 | SUB | SLASH | 4F14421 | ||
10154 | 0 10000 0 10156 | 4373 | TZE | PM0480 | 4F14422 | ||
10155 | 1 77775 2 10146 | 4374 | TXI | PM0390,B,−3 | 4F14423 | ||
10156 | 0 50000 1 16650 | 4375 | PM0480 | CLA | SCRIPL,A PERMUTE TAG WORDS | 4F14424 | |
10157 | 0 56000 2 16650 | 4376 | LDQ | SCRIPL,B | 4F14425 | ||
10160 | −0 60000 1 16650 | 4377 | STQ | SCRIPL,A | 4F14426 | ||
10161 | 0 60100 2 16650 | 4378 | STO | SCRIPL,B | 4F14427 | ||
10162 | 0 50000 1 16651 | 4379 | CLA | SCRIPL+1,A PERMUTE OP WORDS | 4F14428 | ||
10163 | 0 56000 2 16651 | 4380 | LDQ | SCRIPL+1,B | 4F14429 | ||
10164 | −0 60000 1 16651 | 4381 | STQ | SCRIPL+1,A | 4F14430 | ||
10165 | 0 60100 2 16651 | 4382 | STO | SCRIPL+1,B | 4F14431 | ||
10166 | 0 50000 1 16652 | 4383 | CLA | SCRIPL+2,A PERMUTE SYMBOL WORDS | 4F14432 | ||
10167 | 0 56000 2 16652 | 4384 | LDQ | SCRIPL+2,B | 4F14433 | ||
10170 | −0 60000 1 16652 | 4385 | STQ | SCRIPL+2,A | 4F14434 | ||
10171 | 0 60100 2 16652 | 4386 | STO | SCRIPL+2,B | 4F14435 | ||
10172 | −0 53400 4 10142 | 4387 | LXD | PM0340,C | 4F14436 | ||
10173 | 1 77775 1 10130 | 4388 | TXI | PM0250,A,−3 RESUME SEGMENT SCAN | 4F14437 | ||
10174 | −0 76000 0 00143 | 4389 | PM0640 | SLT | 3 / SIGN... IS * LITE ON | 4F14438 | |
10175 | 1 77775 2 10177 | 4390 | PM0650 | TXI | PM0670,B,−3 NO | 4F14439 | |
10176 | 1 77775 1 10130 | 4391 | TXI | PM0250,A,−3 | 4F14440 | ||
10177 | 1 77775 4 10200 | 4392 | PM0670 | TXI | PM0680,C,−3 | 4F14441 | |
10200 | −3 00000 4 10210 | 4393 | PM0680 | TXL | PM0770,C,0 | 4F14442 | |
10201 | −0 75400 0 00000 | 4394 | PXD | 0,0 | 4F14443 | ||
10202 | 0 56000 2 16651 | 4395 | LDQ | SCRIPL+1,B | 4F14444 | ||
10203 | −0 76300 0 00006 | 4396 | LGL | 6 | 4F14445 | ||
10204 | 0 40200 0 01402 | 4397 | SUB | SLASH | 4F14446 | ||
10205 | 0 10000 0 10175 | 4398 | TZE | PM0650 | 4F14447 | ||
10206 | 0 76000 0 00143 | 4399 | SLN | 3 TORN * LITE ON | 4F14448 | ||
10207 | 0 02000 0 10156 | 4400 | TRA | PM0480 | 4F14449 | ||
10210 | −0 53400 1 10211 | 4401 | PM0770 | LXD | PM0780,A | 4F14450 | |
10211 | 1 00000 3 10212 | 4402 | PM0780 | TXI | PM0790,3,0 XB TO XA,XB | 4F14451 | |
10212 | −0 75400 0 00000 | 4403 | PM0790 | PXD | 0,0 | 4F14452 | |
10213 | 0 56000 1 16646 | 4404 | LDQ | SCRIPL−2,A | 4F14453 | ||
10214 | −0 76300 0 00006 | 4405 | LGL | 6 | 4F14454 | ||
10215 | 0 40200 0 01402 | 4406 | SUB | SLASH | 4F14455 | ||
10216 | 0 10000 0 10111 | 4407 | TZE | PM0080 ... / - EXIT FROM SEGMENT SCAN | 4F14456 | ||
10217 | −0 75400 0 00000 | 4408 | PXD | 0,0 | 4F14457 | ||
10220 | 0 56000 1 16643 | 4409 | LDQ | SCRIPL−5,A | 4F14458 | ||
10221 | −0 76300 0 00006 | 4410 | LGL | 6 | 4F14459 | ||
10222 | 0 40200 0 01402 | 4411 | SUB | SLASH | 4F14460 | ||
10223 | 0 10000 0 10111 | 4412 | TZE | PM0080 ... / * - EXIT FROM SEGMENT SCAN | 4F14461 | ||
10224 | 0 50000 1 16645 | 4413 | CLA | SCRIPL−3,A ... ** | 4F14462 | ||
10225 | 0 60100 0 01126 | 4414 | STO | E | 4F14463 | ||
10226 | 0 50000 1 16646 | 4415 | CLA | SCRIPL−2,A | 4F14464 | ||
10227 | 0 60100 0 01127 | 4416 | STO | E+1 | 4F14465 | ||
10230 | 0 50000 1 16647 | 4417 | CLA | SCRIPL−1,A | 4F14466 | ||
10231 | 0 60100 0 01130 | 4418 | STO | E+2 | 4F14467 | ||
10232 | 1 00003 1 10233 | 4419 | TXI | PM0980,A,3 | 4F14468 | ||
10233 | 1 00003 4 10234 | 4420 | PM0980 | TXI | PM0990,C,3 | 4F14469 | |
10234 | −3 00000 4 10244 | 4421 | PM0990 | TXL | PM1070,C,0 FINIS | 4F14470 | |
10235 | 0 50000 1 16645 | 4422 | CLA | SCRIPL−3,A | 4F14471 | ||
10236 | 0 60100 1 16650 | 4423 | STO | SCRIPL,A | 4F14472 | ||
10237 | 0 50000 1 16646 | 4424 | CLA | SCRIPL−2,A | 4F14473 | ||
10240 | 0 60100 1 16651 | 4425 | STO | SCRIPL+1,A | 4F14474 | ||
10241 | 0 50000 1 16647 | 4426 | CLA | SCRIPL−1,A | 4F14475 | ||
10242 | 0 60100 1 16652 | 4427 | STO | SCRIPL+2,A | 4F14476 | ||
10243 | 1 00003 1 10233 | 4428 | TXI | PM0980,A,3 | 4F14477 | ||
10244 | 0 50000 0 01126 | 4429 | PM1070 | CLA | E | 4F14478 | |
10245 | 0 60100 1 16650 | 4430 | STO | SCRIPL,A | 4F14479 | ||
10246 | 0 50000 0 01127 | 4431 | CLA | E+1 | 4F14480 | ||
10247 | 0 60100 1 16651 | 4432 | STO | SCRIPL+1,A | 4F14481 | ||
10250 | 0 50000 0 01130 | 4433 | CLA | E+2 | 4F14482 | ||
10251 | 0 60100 1 16652 | 4434 | STO | SCRIPL+2,A | 4F14483 | ||
10252 | −0 50000 1 16654 | 4435 | CAL | SCRIPL+4,A PRESERVE CS BIT | 4F14464 | ||
10253 | −0 32000 0 01401 | 4436 | ANA | 11Z | 4F14485 | ||
10254 | −0 60200 1 16651 | 4437 | ORS | SCRIPL+1,A | 4F14486 | ||
10255 | 0 02000 0 10110 | 4438 | TRA | PM0070 | 4F14487 | ||
10256 | 0 53400 7 01406 | 4439 | AS0000 | LXA | L(0),7 RENUMBER SEGMENT OF SCRIPL | 4F14488 | |
10257 | 0 50000 2 15044 | 4440 | AS0100 | CLA | BETA,B | 4F14489 | |
10260 | 0 10000 0 10265 | 4441 | TZE | AS0700 | 4F14490 | ||
10261 | −0 75400 4 00000 | 4442 | PXD | 0,C | 4F14491 | ||
10262 | 0 77100 0 00022 | 4443 | ARS | 18 | 4F14492 | ||
10263 | 0 62100 2 15044 | 4444 | STA | BETA,B | 4F14493 | ||
10264 | 1 77777 4 10265 | 4445 | TXI | AS0700,C,−1 | 4F14494 | ||
10265 | 1 77777 2 10266 | 4446 | AS0700 | TXI | AS0800,B,−1 | 4F14495 | |
10266 | 3 00000 2 10257 | 4447 | AS0800 | TXH | AS0100,B,0 | 4F14496 | |
10267 | 0 50000 1 16650 | 4448 | AS0900 | CLA | SCRIPL,A | 4F14497 | |
10270 | 0 73400 2 00000 | 4449 | PAX | 0,B | 4F14498 | ||
10271 | 0 50000 2 15044 | 4450 | CLA | BETA,B | 4F14499 | ||
10272 | 0 62100 1 16650 | 4451 | STA | SCRIPL,A | 4F14500 | ||
10273 | 0 56000 1 16652 | 4452 | LDQ | SCRIPL+2,A | 4F14501 | ||
10274 | −0 76300 0 00001 | 4453 | LGL | 1 | 4F14502 | ||
10275 | 0 76000 0 00001 | 4454 | LBT | 4F14503 | |||
10276 | 0 16200 0 10302 | 4455 | TQP | AS2000 | 4F14504 | ||
10277 | 1 77775 1 10300 | 4456 | TXI | AS1800,A,−3 | 4F14505 | ||
10300 | 3 00000 1 10267 | 4457 | AS1800 | TXH | AS0900,A,0 | 4F14506 | |
10301 | 0 02000 0 10307 | 4458 | TRA | AS2500 | 4F14507 | ||
10302 | −0 76300 0 00043 | 4459 | AS2000 | LGL | 35 | 4F14508 | |
10303 | 0 73400 2 00000 | 4460 | PAX | 0,B | 4F14509 | ||
10304 | 0 50000 2 15044 | 4461 | CLA | BETA,B | 4F14510 | ||
10305 | 0 62100 1 16652 | 4462 | STA | SCRIPL+2,A | 4F14511 | ||
10306 | 1 77775 1 10300 | 4463 | TXI | AS1800,A,−3 | 4F14512 | ||
10307 | 0 53400 3 01406 | 4464 | AS2500 | LXA | L(0),3 LDXA,XB WITH 0 | 4F14513 | |
10310 | 0 56000 0 01406 | 4465 | LDQ | L(0) CLEAR MQ | 4F14514 | ||
10311 | −0 60000 2 15044 | 4466 | AS2700 | STQ | BETA,B RECLEAR BETA TABLE | 4F14515 | |
10312 | 1 77777 2 10313 | 4467 | TXI | AS2900,B,−1 | 4F14516 | ||
10313 | 3 00000 2 10311 | 4468 | AS2900 | TXH | AS2700,B,0 | 4F14517 | |
10314 | 0 50000 1 16650 | 4469 | AS3000 | CLA | SCRIPL,A ADD INTO GAMMA COUNTERS | 4F14518 | |
10315 | 0 73400 2 00000 | 4470 | PAX | 0,B | 4F14519 | ||
10316 | 0 50000 2 15044 | 4471 | CLA | BETA,B | 4F14520 | ||
10317 | 0 40000 0 01462 | 4472 | ADD | BETAD2 3*2**18+(-3) | 4F14521 | ||
10320 | 0 62200 2 15044 | 4473 | STD | BETA,B | 4F14522 | ||
10321 | 0 62100 2 15044 | 4474 | STA | BETA,B | 4F14523 | ||
10322 | 1 77775 1 10323 | 4475 | TXI | AS3600,A,−3 | 4F14524 | ||
10323 | 3 00000 1 10314 | 4476 | AS3600 | TXH | AS3000,A,0 -3Q IN XA AT END | 4F14525 | |
10324 | −0 63400 1 01117 | 4477 | SXD | 3QBAR,A -3Q TO 3QBAR = 3LBAR | 4F14526 | ||
10325 | −0 50000 1 16645 | 4478 | CCS000 | CAL | SCRIPL−3,A ELIMINATE COMMON SUBEXPRESSIONS | 4F14527 | |
10326 | 0 73400 2 00000 | 4479 | PAX | 0,B LOAD XB WITH S(I) | 4F14528 | ||
10327 | −3 00000 2 10354 | 4480 | TXL | CCS240,B,0 EXIT AT S(0) | 4F14529 | ||
10330 | −0 50000 2 15044 | 4481 | CAL | BETA,B OBTAIN LENGTH OF S(I) | 4F14530 | ||
10331 | 0 62200 0 10332 | 4482 | STD | CCS060 AND BACK UP TO | 4F14531 | ||
10332 | 1 00000 1 10333 | 4483 | CCS060 | TXI | CCS070,A,0 BEGINNING OF CURRENT SEGMENT | 4F14532 | |
10333 | −0 50000 1 16651 | 4484 | CCS070 | CAL | SCRIPL+1,A OBTAIN OP1 (S(I)) | 4F14533 | |
10334 | −0 32000 0 01401 | 4485 | ANA | 11Z EXTRACT CS-BIT | 4F14534 | ||
10335 | 0 10000 0 10325 | 4486 | TZE | CCS000 CONTINUE TO S(I-1) | 4F14535 | ||
10336 | −0 75400 2 00000 | 4487 | PXD | 0,B | 4F14536 | ||
10337 | 0 77100 0 00022 | 4488 | ARS | 18 | 4F14537 | ||
10340 | 0 53400 4 01406 | 4489 | LXA | L(0),C TO S(I) | 4F14538 | ||
10341 | −0 53400 2 10342 | 4490 | LXD | CCS140,B AND KEEP COUNT OF SAME | 4F14539 | ||
10342 | 1 00000 3 10343 | 4491 | CCS140 | TXI | CCS150,3,0 XA TO XA,XB | 4F14540 | |
10343 | −3 00000 2 10350 | 4492 | CCS150 | TXL | CCS200,B,0 SEARCH-UP FINISHED. EXAMINE COUNT | 4F14541 | |
10344 | 0 34000 2 16647 | 4493 | CAS | SCRIPL−1,B | 4F14542 | ||
10345 | 1 00003 2 10343 | 4494 | TXI | CCS150,B,3 CONTINUE SEARCH | 4F14543 | ||
10346 | 1 00001 4 10347 | 4495 | TXI | CCS190,C,1 RAISE REF COUNTER AND | 4F14544 | ||
10347 | 1 00003 2 10343 | 4496 | CCS190 | TXI | CCS150,B,3 CONTINUE SEARCH | 4F14545 | |
10350 | 3 00001 4 10325 | 4497 | CCS200 | TXH | CCS000,C,1 MULTIPLE REFERENCE | 4F14546 | |
10351 | −0 50000 0 01530 | 4498 | CAL | MASK4 SINGLE REFERENCE - SO SET | 4F14547 | ||
10352 | 0 32000 1 16651 | 4499 | ANS | SCRIPL+1,A OP1(S(I))30 TO 0, AND | 4F14548 | ||
10353 | 0 02000 0 10325 | 4500 | TRA | CCS000 CONTINUE FOR S(I-1) | 4F14549 | ||
10354 | −0 53400 1 10323 | 4501 | CCS240 | LXD | AS3600,A -3Q TO XA | 4F14550 | |
10355 | −3 00000 1 10610 | 4502 | PL0000 | TXL | LK0000,A,0 GO TO LINKAGE | 4F14551 | |
10356 | 0 50000 1 16645 | 4503 | CLA | SCRIPL−3,A | 4F14552 | ||
10357 | 0 73400 2 00000 | 4504 | PAX | 0,B | 4F14553 | ||
10360 | −0 50000 2 15044 | 4505 | CAL | BETA,B | 4F14554 | ||
10361 | 0 73400 4 00000 | 4506 | PAX | 0,C | 4F14555 | ||
10362 | 0 62200 0 10363 | 4507 | STD | PL0060 | 4F14556 | ||
10363 | 1 00000 1 10364 | 4508 | PL0060 | TXI | PL0070,A,0 SET XA TO BEGINNING OF S(I) | 4F14557 | |
10364 | −0 75400 0 00000 | 4509 | PL0070 | PXD | 0,0 | 4F14558 | |
10365 | 0 56000 1 16651 | 4510 | LDQ | SCRIPL+1,A OBTAIN | 4F14559 | ||
10366 | −0 76300 0 00006 | 4511 | LGL | 6 AND | 4F14560 | ||
10367 | 0 34000 0 01427 | 4512 | CAS | SPECOP EXAMINE OP1 (S(I)) | 4F14561 | ||
10370 | 0 02000 0 10465 | 4513 | TRA | PL0680 | 4F14562 | ||
10371 | 0 02000 0 10427 | 4514 | TRA | PL0460 | 4F14563 | ||
10372 | −0 75400 0 00000 | 4515 | PL0130 | PXD | 0,0 OP1 (S(I)) IS +, - OR * | 4F14564 | |
10373 | 0 56000 1 16652 | 4516 | LDQ | SCRIPL+2,A OBTAIN | 4F14565 | ||
10374 | −0 76300 0 00001 | 4517 | LGL | 1 AND | 4F14566 | ||
10375 | 0 76000 0 00001 | 4518 | LBT | EXAMINE SYM1 (S(I)) | 4F14567 | ||
10376 | 0 16200 0 10410 | 4519 | TQP | PL0300 | 4F14568 | ||
10377 | −0 76300 0 00005 | 4520 | LGL | 5 EX (IN)TERNAL VARIAVLE | 4F14569 | ||
10400 | 0 34000 0 01423 | 4521 | PL0135 | CAS | L(H) IS SYM1 (S(I)) FIX OR FLO PT | 4F14570 | |
10401 | 0 34000 0 01425 | 4522 | CAS | L(O) | 4F14571 | ||
10402 | 0 02000 0 10405 | 4523 | TRA | PL0240 FLO PT... SET OP1 (S(I)) 32 = 1 | 4F14572 | ||
10403 | 0 02000 0 10405 | 4524 | TRA | PL0240 FLO PT... DITTO | 4F14573 | ||
10404 | 0 02000 0 10355 | 4525 | TRA | PL0000 FIX PT... OP1 (S(I)) 32 = 0 | 4F14574 | ||
10405 | −0 50000 0 01416 | 4526 | PL0240 | CAL | L(8) SET OP1 (S(I)) 32 = 1 | 4F14575 | |
10406 | −0 60200 1 16651 | 4527 | PL0250 | ORS | SCRIPL+1,A | 4F14576 | |
10407 | 1 00000 0 10355 | 4528 | PL0260 | TXI | PL0000,0,0 CONTINUE SCAN | 4F14577 | |
10410 | −0 53400 2 10411 | 4529 | PL0300 | LXD | PL0310,B SYM1 (S(I)) = SOME S(J) | 4F14578 | |
10411 | 1 00000 3 10412 | 4530 | PL0310 | TXI | PL0320,3,0 XA TO XA,XB | 4F14579 | |
10412 | −0 63400 4 10413 | 4531 | PL0320 | SXD | PL0330,C | 4F14580 | |
10413 | 1 00000 2 10414 | 4532 | PL0330 | TXI | PL0340,B,0 | 4F14581 | |
10414 | −0 50000 2 16650 | 4533 | PL0340 | CAL | SCRIPL,B | 4F14582 | |
10415 | 0 73400 4 00000 | 4534 | PAX | 0,C | 4F14583 | ||
10416 | −0 32000 0 01452 | 4535 | ANA | MASK2 | 4F14584 | ||
10417 | 0 40200 1 16652 | 4536 | SUB | SCRIPL+2,A | 4F14585 | ||
10420 | 0 10000 0 10424 | 4537 | TZE | PL0420 | 4F14586 | ||
10421 | 0 50000 4 15044 | 4538 | CLA | BETA,C | 4F14587 | ||
10422 | 0 73400 4 00000 | 4539 | PAX | 0,C | 4F14588 | ||
10423 | 0 02000 0 10412 | 4540 | TRA | PL0320 | 4F14589 | ||
10424 | −0 50000 2 16651 | 4541 | PL0420 | CAL | SCRIPL+1,B SYM1(S(I)) = S(J) | 4F14590 | |
10425 | −0 32000 0 01416 | 4542 | ANA | L(8) EXTRACT OP1 (S(J)) 32 AND GO | 4F14591 | ||
10426 | 0 02000 0 10406 | 4543 | TRA | PL0250 SET OP1 (S(I)) 32 = OP1 (S(J)) 32 | 4F14592 | ||
10427 | −0 76300 0 00007 | 4544 | PL0460 | LGL | 7 OP1 (S(I)) IS SPOP | 4F14593 | |
10430 | 0 16200 0 10437 | 4545 | TQP | PL0465 | 4F14594 | ||
10431 | 0 56000 1 16652 | 4546 | PL0461 | LDQ | SCRIPL+2,A FS NAME - | 4F14595 | |
10432 | −0 75400 0 00000 | 4547 | PXD | 0,0 EXAMINE SUM1 (S(I)) S,1-5 | 4F14596 | ||
10433 | −0 76300 0 00006 | 4548 | LGL | 6 | 4F14597 | ||
10434 | 0 40200 0 01433 | 4549 | SUB | L(X) | 4F14598 | ||
10435 | −0 10000 0 10405 | 4550 | TNZ | PL0240 FLO PT... GO SET OP1 (S(I)) 32 = 1 | 4F14599 | ||
10436 | 0 02000 0 10355 | 4551 | TRA | PL0000 FIX PT ... OP1 (S(I)) 32 = 0 | 4F14600 | ||
10437 | 0 76000 0 00001 | 4552 | PL0465 | LBT | 4F14601 | ||
10440 | 0 02000 0 10445 | 4553 | TRA | PL0470 | 4F14602 | ||
10441 | 0 56000 1 16652 | 4554 | LDQ | SCRIPL+2,A | 4F14603 | ||
10442 | −0 75400 0 00000 | 4555 | PXD | ,0 | 4F14604 | ||
10443 | −0 76300 0 00006 | 4556 | LGL | 6 | 4F14605 | ||
10444 | 0 02000 0 10400 | 4557 | TRA | PL0135 | 4F14606 | ||
10445 | 0 50000 1 16652 | 4558 | PL0470 | CLA | SCRIPL+2,A NOT AN FS NAME | 4F14607 | |
10446 | 0 53400 2 01406 | 4559 | LXA | L(0),B | 4F14608 | ||
10447 | 0 34000 2 11117 | 4560 | PL0480 | CAS | OPSUB,B | 4F14609 | |
10450 | 1 77777 2 10453 | 4561 | TXI | PL0520,B,−1 | 4F14610 | ||
10451 | 0 02000 0 10462 | 4562 | TRA | PL0650 | 4F14611 | ||
10452 | 1 77777 2 10453 | 4563 | TXI | PL0520,B,−1 | 4F14612 | ||
10453 | 3 77754 2 10447 | 4564 | PL0520 | TXH | PL0480,B,−20 | 4F14613 | |
10454 | 0 60100 0 01347 | 4565 | STO | G | 4F14614 | ||
10455 | −0 63400 1 10407 | 4566 | SXD | PL0260,A | 4F14615 | ||
10456 | 0 07400 1 03321 | 4567 | TSX | TET00,A | 4F14616 | ||
10457 | 0 00000 0 00011 | 4568 | HTR | 9 | 4F14617 | ||
10460 | −0 53400 1 10407 | 4569 | LXD | PL0260,A | 4F14618 | ||
10461 | 0 02000 0 10431 | 4570 | TRA | PL0461 | 4F14619 | ||
10462 | −0 50000 0 01412 | 4571 | PL0650 | CAL | L(4) SET OP1 (S(I)) 33 =1 | 4F14620 | |
10463 | −0 60200 1 16651 | 4572 | ORS | SCRIPL+1,A | 4F14621 | ||
10464 | 0 02000 0 10431 | 4573 | TRA | PL0461 | 4F14622 | ||
10465 | 0 16200 0 10372 | 4574 | PL0680 | TQP | PL0130 | 4F14623 | |
10466 | −0 75400 0 00000 | 4575 | PXD | 0,0 OP1 (S(I) IS ** | 4F14624 | ||
10467 | 0 56000 1 16652 | 4576 | LDQ | SCRIPL+2,A OBTAIN AND | 4F14625 | ||
10470 | −0 76300 0 00001 | 4577 | LGL | 1 EXAMINE | 4F14626 | ||
10471 | 0 76000 0 00001 | 4578 | LBT | SYM1 (S(I)) | 4F14627 | ||
10472 | 0 16200 0 10550 | 4579 | TQP | PL1000 | 4F14628 | ||
10473 | −0 76300 0 00005 | 4580 | LGL | 5 EX (IN)TERNAL VARIABLE | 4F14629 | ||
10474 | 0 34000 0 01423 | 4581 | CAS | L(H) IS OT FIX OR FLO PT | 4F14630 | ||
10475 | 0 34000 0 01425 | 4582 | CAS | L(O) | 4F14631 | ||
10476 | 0 02000 0 10501 | 4583 | TRA | PL0800 | 4F14632 | ||
10477 | 0 02000 0 10501 | 4584 | TRA | PL0800 | 4F14633 | ||
10500 | 0 02000 0 10503 | 4585 | TRA | PL0830 FIX PT | 4F14634 | ||
10501 | −0 50000 0 01416 | 4586 | PL0800 | CAL | L(8) FLO PT... SET OP1 (S(I)) 32 = 1 | 4F14635 | |
10502 | −0 60200 1 16651 | 4587 | PL0820 | ORS | SCRIPL+1,A | 4F14636 | |
10503 | −0 75400 0 00000 | 4588 | PL0830 | PXD | 0,0 | 4F14637 | |
10504 | 0 56000 1 16655 | 4589 | LDQ | SCRIPL+5,A OBTAIN | 4F14638 | ||
10505 | −0 76300 0 00001 | 4590 | LGL | 1 AND | 4F14639 | ||
10506 | 0 76000 0 00001 | 4591 | LBT | EXAMINE | 4F14640 | ||
10507 | 0 16200 0 10567 | 4592 | TQP | PL1200 SYM2 (S(I)) | 4F14641 | ||
10510 | −0 76300 0 00005 | 4593 | LGL | 5 | 4F14642 | ||
10511 | 0 34000 0 01423 | 4594 | CAS | L(H) | 4F14643 | ||
10512 | 0 34000 0 01425 | 4595 | CAS | L(O) | 4F14644 | ||
10513 | 0 02000 0 10545 | 4596 | TRA | PL0940 SYM2 (S(I)) IS FLO PT, SO GO | 4F14645 | ||
10514 | 0 02000 0 10545 | 4597 | TRA | PL0940 SET OP2 (S(I)) 32 = 1 | 4F14646 | ||
10515 | −0 75400 0 00000 | 4598 | PL0850 | PXD | 0,0 SYM2(S(I)) IS FIX PT | 4F14647 | |
10516 | −0 76300 0 00006 | 4599 | LGL | 6 | 4F14648 | ||
10517 | 0 40200 0 01375 | 4600 | SUB | OPEN | 4F14649 | ||
10520 | −0 10000 0 10355 | 4601 | TNZ | PL0000 SYM2 (S(I)) IS EXTERNAL | 4F14650 | ||
10521 | −0 76300 0 00031 | 4602 | LGL | 25 SYM2 (S(I)) IS INTERNAL (AND FIX PT) | 4F14651 | ||
10522 | 0 40000 0 10537 | 4603 | ADD | PL0880 | 4F14652 | ||
10523 | 0 62100 0 10515 | 4604 | STA | PL0850 | 4F14653 | ||
10524 | 0 76200 0 00302 | 4605 | RDR | FXCODR | 4F14654 | ||
10525 | 0 46000 0 10515 | 4606 | LDA | PL0850 | 4F14655 | ||
10526 | 0 70000 0 01347 | 4607 | CPY | G | 4F14656 | ||
10527 | 0 70000 0 01350 | 4608 | CPY | G+1 | 4F14657 | ||
10530 | 0 50000 0 01347 | 4609 | CLA | G | 4F14658 | ||
10531 | 0 34000 0 01350 | 4610 | CAS | G+1 | 4F14659 | ||
10532 | 0 02000 0 10534 | 4611 | TRA | *+2 GO TO THE DIAGNOSTIC. | 4F14660 | ||
10533 | 0 02000 0 10535 | 4612 | TRA | PL1570 | 4F14661 | ||
10534 | 0 07400 4 03400 | 4613 | TSX | DIAG,4 * GO TO THE DIAGNOSTIC. | 4F14662 | ||
10535 | 0 10000 0 10355 | 4614 | PL1570 | TZE | PL0000 EXP IS 0, SO OP1 (S(I)) 33 = 0 | 4F14663 | |
10536 | 0 34000 0 10141 | 4615 | CAS | FEXUB | 4F14664 | ||
10537 | 3 00000 0 00002 | 4616 | PL0880 | TXH | FIXCON,0,0 EXP NOT LESS THAN 7, SO | 4F14665 | |
10540 | 0 02000 0 10355 | 4617 | TRA | PL0000 OP1 (S(I)) 33 = 0 | 4F14666 | ||
10541 | 0 60100 1 16655 | 4618 | STO | SCRIPL+5,A EXP LESS THAN 7, SO STORE EXP | 4F14667 | ||
10542 | −0 50000 0 01412 | 4619 | CAL | L(4) AS SYM2 (S(I)) AND SET | 4F14668 | ||
10543 | −0 60200 1 16651 | 4620 | ORS | SCRIPL+1,A OP1 (S(I)) 33 = 1 | 4F14669 | ||
10544 | 0 02000 0 10355 | 4621 | TRA | PL0000 | 4F14670 | ||
10545 | −0 50000 0 01416 | 4622 | PL0940 | CAL | L(8) SYM2 (S(I)) IS FLO PT | 4F14671 | |
10546 | −0 60200 1 16654 | 4623 | ORS | SCRIPL+4,A SET OP2 (S(I)) 32 = 1 | 4F14672 | ||
10547 | 0 02000 0 10355 | 4624 | TRA | PL0000 | 4F14673 | ||
10550 | −0 53400 2 10551 | 4625 | PL1000 | LXD | PL1010,B SYM1 (S(I)) IS SOME S(J) | 4F14674 | |
10551 | 1 00000 3 10552 | 4626 | PL1010 | TXI | PL1020,3,0 XA TO XA,XB | 4F14675 | |
10552 | −0 63400 4 10553 | 4627 | PL1020 | SXD | PL1030,C | 4F14676 | |
10553 | 1 00000 2 10554 | 4628 | PL1030 | TXI | PL1040,B,0 | 4F14677 | |
10554 | −0 50000 2 16650 | 4629 | PL1040 | CAL | SCRIPL,B | 4F14678 | |
10555 | 0 73400 4 00000 | 4630 | PAX | 0,C | 4F14679 | ||
10556 | −0 32000 0 01452 | 4631 | ANA | MASK2 | 4F14680 | ||
10557 | 0 40200 1 16652 | 4632 | SUB | SCRIPL+2,A | 4F14681 | ||
10560 | 0 10000 0 10564 | 4633 | TZE | PL1130 | 4F14682 | ||
10561 | 0 50000 4 15044 | 4634 | CLA | BETA,C | 4F14683 | ||
10562 | 0 73400 4 00000 | 4635 | PAX | 0,C | 4F14684 | ||
10563 | 0 02000 0 10552 | 4636 | TRA | PL1020 | 4F14685 | ||
10564 | −0 50000 2 16651 | 4637 | PL1130 | CAL | SCRIPL+1,B | 4F14686 | |
10565 | −0 32000 0 01416 | 4638 | ANA | L(8) | 4F14687 | ||
10566 | 0 02000 0 10502 | 4639 | TRA | PL0820 | 4F14688 | ||
10567 | −0 53400 2 10570 | 4640 | PL1200 | LXD | PL1210,B SYM2 (S(I)) = SOME S(K) | 4F14689 | |
10570 | 1 00000 3 10571 | 4641 | PL1210 | TXI | PL1220,3,0 XA TO XA,XB | 4F14690 | |
10571 | −0 53400 4 10603 | 4642 | PL1220 | LXD | PL1330,C LKXC WITH -6 | 4F14691 | |
10572 | −0 63400 4 10573 | 4643 | PL1230 | SXD | PL1240,C | 4F14692 | |
10573 | 1 00000 2 10574 | 4644 | PL1240 | TXI | PL1250,B,0 | 4F14693 | |
10574 | −0 50000 2 16650 | 4645 | PL1250 | CAL | SCRIPL,B | 4F14694 | |
10575 | 0 73400 4 00000 | 4646 | PAX | 0,C | 4F14695 | ||
10576 | −0 32000 0 01452 | 4647 | ANA | MASK2 | 4F14696 | ||
10577 | 0 40200 1 16655 | 4648 | SUB | SCRIPL+5,A | 4F14697 | ||
10600 | 0 10000 0 10604 | 4649 | TZE | PL1340 SYM2(S(I)) = S(K) | 4F14698 | ||
10601 | 0 50000 4 15044 | 4650 | CLA | BETA,C | 4F14699 | ||
10602 | 0 73400 4 00000 | 4651 | PAX | 0,C | 4F14700 | ||
10603 | 1 77772 0 10572 | 4652 | PL1330 | TXI | PL1230,0,−6 | 4F14701 | |
10604 | −0 50000 2 16651 | 4653 | PL1340 | CAL | SCRIPL+1,B SET OP2(S(I)) 32 = OP1 (S(K)) 32 | 4F14702 | |
10605 | −0 32000 0 01416 | 4654 | ANA | L(8) | 4F14703 | ||
10606 | −0 60200 1 16654 | 4655 | ORS | SCRIPL+4,A | 4F14704 | ||
10607 | 0 02000 0 10355 | 4656 | TRA | PL0000 RESUME SCAN | 4F14705 | ||
10610 | −0 53400 1 10323 | 4657 | LK0000 | LXD | AS3600,A -3Q TO XA | 4F14706 | |
10611 | −0 50000 1 16645 | 4658 | LK0030 | CAL | SCRIPL−3,A | 4F14707 | |
10612 | 0 73400 2 00000 | 4659 | PAX | 0,B S(I) TO XB | 4F14708 | ||
10613 | −3 00000 2 11020 | 4660 | TXL | LK1610,B,0 EXIT UPON ENCOUNTERING S(0) | 4F14709 | ||
10614 | 0 56000 1 16646 | 4661 | LDQ | SCRIPL−2,A PLACE LAST OP OP S(I) IN MQ | 4F14710 | ||
10615 | 0 50000 2 15044 | 4662 | CLA | BETA,B | 4F14711 | ||
10616 | 0 62200 0 10617 | 4663 | STD | LK0110 | 4F14712 | ||
10617 | 1 00000 1 10620 | 4664 | LK0110 | TXI | LK0120,A,0 MOVE XA TO BEGINNING OF S(I) | 4F14713 | |
10620 | −0 53400 4 10621 | 4665 | LK0120 | LXD | LK0130,C | 4F14714 | |
10621 | 1 00000 5 10622 | 4666 | LK0130 | TXI | LK0140,5,0 XA TO XA,XC | 4F14715 | |
10622 | −0 63400 1 10323 | 4667 | LK0140 | SXD | AS3600,A | 4F14716 | |
10623 | 0 50000 2 15043 | 4668 | CLA | BETA−1,B | 4F14717 | ||
10624 | −0 73400 2 00000 | 4669 | PDX | 0,B LENGTH OF S(I-1) TO XB | 4F14718 | ||
10625 | −0 63400 2 10626 | 4670 | SXD | LK0180,B | 4F14719 | ||
10626 | 1 00000 4 10627 | 4671 | LK0180 | TXI | LK0190,C,0 MOVE XC TO BEGINNING OF S(I-1) | 4F14720 | |
10627 | 0 16200 0 10753 | 4672 | LK0190 | TQP | LK1200 S(I) TYPE AC | 4F14721 | |
10630 | −0 77300 0 00001 | 4673 | RQL | 1 | 4F14722 | ||
10631 | 0 16200 0 10753 | 4674 | TQP | LK1200 S(I) TYPE AC | 4F14723 | ||
10632 | −0 50000 0 01404 | 4675 | CAL | 12Z S(I) RESULTS IN MQ (TYPE MQ) | 4F14724 | ||
10633 | −0 60200 1 16651 | 4676 | ORS | SCRIPL+1,A SET OP1 (S(I)) 31 = 1 | 4F14725 | ||
10634 | −0 75400 0 00000 | 4677 | PXD | 0,0 | 4F14726 | ||
10635 | 0 56000 4 16651 | 4678 | LDQ | SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ | 4F14727 | ||
10636 | −0 76300 0 00006 | 4679 | LGL | 6 | 4F14728 | ||
10637 | 0 34000 0 01427 | 4680 | CAS | SPECOP | 4F14729 | ||
10640 | 0 02000 0 10643 | 4681 | TRA | LK0320 | 4F14730 | ||
10641 | 0 02000 0 10730 | 4682 | TRA | LK0950 | 4F14731 | ||
10642 | 0 02000 0 10611 | 4683 | TRA | LK0030 S(I)TYPTMQ, S(I-1)TYPEAC . OP1(S(I))29=0 | 4F14732 | ||
10643 | 0 16200 0 10664 | 4684 | LK0320 | TQP | LK0570 | 4F14733 | |
10644 | −0 76300 0 00033 | 4685 | LGL | 27 S(I)TYPE MQ, OP1(S(I-1) = ** | 4F14734 | ||
10645 | −0 50000 1 16650 | 4686 | CAL | SCRIPL,A | 4F14735 | ||
10646 | −0 32000 0 01452 | 4687 | ANA | MASK2 EXTRACT S(I) IN ACC | 4F14736 | ||
10647 | 0 16200 0 10657 | 4688 | TQP | LK0480 OP1 (S(I-1)) 33 = 0 | 4F14737 | ||
10650 | 0 40200 4 16652 | 4689 | SUB | SCRIPL+2,C OP1 (S(I-1)) 33 = 1. OPEN ** SUBROUTINE. | 4F14738 | ||
10651 | −0 10000 0 10611 | 4690 | TNZ | LK0030 SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 = 0 | 4F14739 | ||
10652 | −0 50000 0 01411 | 4691 | CAL | L(3) S(I) = SYM1 (S(I-1)), SO | 4F14740 | ||
10653 | −0 60200 4 16651 | 4692 | LK0430 | ORS | SCRIPL+1,C | 4F14741 | |
10654 | −0 50000 0 01436 | 4693 | LK0440 | CAL | BIT29 | 4F14742 | |
10655 | −0 60200 1 16651 | 4694 | ORS | SCRIPL+1,A | 4F14743 | ||
10656 | 0 02000 0 10611 | 4695 | TRA | LK0030 OP1 (S(I-1)) = 0. CLOSED ** SUBROUTINE. | 4F14744 | ||
10657 | 0 40200 4 16655 | 4696 | LK0480 | SUB | SCRIPL+5,C | 4F14745 | |
10660 | −0 10000 0 10611 | 4697 | TNZ | LK0030 SET OP1,S(I))29=OP1(S(I-1))35=0 | 4F14746 | ||
10661 | −0 50000 0 01407 | 4698 | CAL | L(1) S(I) = SYM2 (S(I-1)), S0 | 4F14747 | ||
10662 | −0 60200 4 16654 | 4699 | ORS | SCRIPL+4,C SET OP2 (S(I-1)) 35 = 1 | 4F14748 | ||
10663 | 0 02000 0 10654 | 4700 | TRA | LK0440 | 4F14749 | ||
10664 | −0 75400 0 00000 | 4701 | LK0570 | PXD | 0,0 S(I) TYPE MQ, OP1 (S(I-1)) = * | 4F14750 | |
10665 | 0 56000 4 16654 | 4702 | LDQ | SCRIPL+4,C F1ACE PO2 (S(I-1)) IN MQ | 4F14751 | ||
10666 | −0 76300 0 00006 | 4703 | LGL | 6 IS OP2 (S(I-1)) = * | 4F14752 | ||
10667 | 0 40200 0 01405 | 4704 | SUB | STAR | 4F14753 | ||
10670 | −0 10000 0 10611 | 4705 | TNZ | LK0030 NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =0 | 4F14754 | ||
10671 | −0 50000 0 01410 | 4706 | CAL | L(2) YES | 4F14755 | ||
10672 | −0 60200 4 16651 | 4707 | ORS | SCRIPL+1,C SET OP1(S(I-1))34=1 | 4F14756 | ||
10673 | −0 50000 1 16650 | 4708 | LK0630 | CAL | SCRIPL,A | 4F14757 | |
10674 | −0 32000 0 01452 | 4709 | ANA | MASK2 SEARCH FOR S(I) IN S(I-1) | 4F14758 | ||
10675 | −3 00000 2 10610 | 4710 | LK0650 | TXL | LK0000,B,0 NOT FOUND AT ALL | 4F14759 | |
10676 | 0 34000 1 16647 | 4711 | CAS | SCRIPL−1,A | 4F14760 | ||
10677 | 1 00003 1 10702 | 4712 | TXI | LK0700,A,3 | 4F14761 | ||
10700 | 0 02000 0 10703 | 4713 | TRA | LK0710 | 4F14762 | ||
10701 | 1 00003 1 10702 | 4714 | TXI | LK0700,A,3 NOT FOUND - CONTINUE SEARCH | 4F14763 | ||
10702 | 1 77775 2 10675 | 4715 | LK0700 | TXI | LK0650,B,−3 | 4F14764 | |
10703 | 0 56000 1 16646 | 4716 | LK0710 | LDQ | SCRIPL−2,A S(I) IS SYMJ (S(I-1)) | 4F14765 | |
10704 | −0 77300 0 00001 | 4717 | RQL | 1 IS OPJ (S(I-1)) = * | 4F14766 | ||
10705 | 0 16200 0 10707 | 4718 | TQP | LK0750 | 4F14767 | ||
10706 | 1 00003 1 10702 | 4719 | TXI | LK0700,A,3 NO... CONTINUE SEARCH | 4F14768 | ||
10707 | 0 50000 4 16650 | 4720 | LK0750 | CLA | SCRIPL,C YES...PERMUTE EL1(S(I-1)) WITH ELJIS(I-1)) | 4F14769 | |
10710 | 0 56000 1 16645 | 4721 | LDQ | SCRIPL−3,A EXCHANGE | 4F14770 | ||
10711 | 0 60100 1 16645 | 4722 | STO | SCRIPL−3,A TAG | 4F14771 | ||
10712 | −0 60000 4 16650 | 4723 | STQ | SCRIPL,C WORDS | 4F14772 | ||
10713 | −0 50000 4 16651 | 4724 | CAL | SCRIPL+1,C PLACE OP1 (S(I-1)) IN ACC | 4F14773 | ||
10714 | 0 56000 1 16646 | 4725 | LDQ | SCRIPL−2,A PLACE OPJ (S(I-1)) IN MQ | 4F14774 | ||
10715 | 0 60200 1 16646 | 4726 | SLW | SCRIPL−2,A EXCHANGE | 4F14775 | ||
10716 | −0 60000 4 16651 | 4727 | STQ | SCRIPL+1,C OP | 4F14776 | ||
10717 | −0 32000 0 01452 | 4728 | ANA | MASK2 WORDS AND | 4F14777 | ||
10720 | −0 60200 4 16651 | 4729 | ORS | SCRIPL+1,C SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33 | 4F14778 | ||
10721 | 0 50000 4 16652 | 4730 | CLA | SCRIPL+2,C THEN | 4F14779 | ||
10722 | 0 56000 1 16647 | 4731 | LDQ | SCRIPL−1,A EXCHANGE | 4F14780 | ||
10723 | 0 60100 1 16647 | 4732 | STO | SCRIPL−1,A SYMBOL | 4F14781 | ||
10724 | −0 60000 4 16652 | 4733 | STQ | SCRIPL+2,C WORDS | 4F14782 | ||
10725 | −0 53400 1 10323 | 4734 | LXD | AS3600,A RESTORE XA | 4F14783 | ||
10726 | −0 50000 0 01407 | 4735 | LK0900 | CAL | L(1) AND | 4F14784 | |
10727 | 0 02000 0 10653 | 4736 | TRA | LK0430 | 4F14785 | ||
10730 | −0 77300 0 00033 | 4737 | LK0950 | RQL | 27 S(I) TYPE MQ, OP1 (S(I-1)) = SPOP | 4F14786 | |
10731 | −0 50000 1 16650 | 4738 | CAL | SCRIPL,A | 4F14787 | ||
10732 | −0 32000 0 01452 | 4739 | ANA | MASK2 EXTRACT S(I) IN ACC | 4F14788 | ||
10733 | 0 16200 0 10742 | 4740 | TQP | LK1050 0P1 (S(I-1)) 33 = 0 (CLOSED SUBROUTINE) | 4F14789 | ||
10734 | 3 00006 2 10611 | 4741 | TXH | LK0030,B,6 OPEN MULTIV... SET OP1 (S(I)) 29 = 0 | 4F14790 | ||
10735 | 0 40200 4 16655 | 4742 | SUB | SCRIPL+5,C OPEN UNIV... IS S(I) = SUM2 (S(I-1)) | 4F14791 | ||
10736 | −0 10000 0 10611 | 4743 | TNZ | LK0030 NO... SET OP1 (S(I))29 = OP2 (S(I-1))35 = 0 | 4F14792 | ||
10737 | −0 50000 0 01411 | 4744 | CAL | L(3) AND | 4F14793 | ||
10740 | −0 60200 4 16654 | 4745 | ORS | SCRIPL+4,C SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1 | 4F14794 | ||
10741 | 0 02000 0 10654 | 4746 | TRA | LK0440 | 4F14795 | ||
10742 | −0 77300 0 00017 | 4747 | LK1050 | RQL | 15 | 4F14796 | |
10743 | 0 16200 0 10745 | 4748 | TQP | LK1100 TEST OP1(S(I-1))12 | 4F14797 | ||
10744 | 0 02000 0 10611 | 4749 | TRA | LK0030 FN-NAME | 4F14798 | ||
10745 | −3 00006 2 10611 | 4750 | LK1100 | TXL | LK0030,B,6 CLOSED UNIV. SBRTN | 4F14799 | |
10746 | 0 40200 4 16660 | 4751 | SUB | SCRIPL+8,C CLOSED MULTIV. SBRTN | 4F14800 | ||
10747 | −0 10000 0 10611 | 4752 | TNZ | LK0030 S(I) NOT = SYM3 (S (I-1)) | 4F14801 | ||
10750 | −0 50000 0 01407 | 4753 | CAL | L(1) S(I) = SYM3 (S(I-1)), S0 | 4F14802 | ||
10751 | −0 60200 4 16657 | 4754 | ORS | SCRIPL+7,C SET OP3 (S(I-1))35 = 1 | 4F14803 | ||
10752 | 0 02000 0 10654 | 4755 | TRA | LK0440 | 4F14804 | ||
10753 | −0 75400 0 00000 | 4756 | LK1200 | PXD | 0,0 S(I) TYPE AC | 4F14805 | |
10754 | 0 56000 4 16651 | 4757 | LDQ | SCRIPL+1,C PLACE OP1 (S(I-1)) IN MQ | 4F14806 | ||
10755 | −0 76300 0 00006 | 4758 | LGL | 6 | 4F14807 | ||
10756 | 0 34000 0 01427 | 4759 | CAS | SPECOP | 4F14808 | ||
10757 | 0 02000 0 10771 | 4760 | TRA | LK1340 | 4F14809 | ||
10760 | 0 02000 0 11007 | 4761 | TRA | LK1470 | 4F14810 | ||
10761 | −0 50000 1 16650 | 4762 | CAL | SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = + OR - | 4F14811 | ||
10762 | −0 32000 0 01452 | 4763 | ANA | MASK2 SEARCH FOR S(I) IN S(I-1) | 4F14812 | ||
10763 | −3 00000 2 10610 | 4764 | LK1280 | TXL | LK0000,B,0 NOT FOUND AT ALL | 4F14813 | |
10764 | 0 34000 1 16647 | 4765 | CAS | SCRIPL−1,A | 4F14814 | ||
10765 | 1 00003 1 10770 | 4766 | TXI | LK1330,A,3 | 4F14815 | ||
10766 | 0 02000 0 10707 | 4767 | TRA | LK0750 S(I) = SOME SYMJ (S(I-1))... GO PERMUTE | 4F14816 | ||
10767 | 1 00003 1 10770 | 4768 | TXI | LK1330,A,3 NOT FOUND... CONTINUE SEARCH | 4F14817 | ||
10770 | 1 77775 2 10763 | 4769 | LK1330 | TXI | LK1280,B,−3 | 4F14818 | |
10771 | 0 16200 0 10777 | 4770 | LK1340 | TQP | LK1410 | 4F14819 | |
10772 | −0 50000 1 16650 | 4771 | CAL | SCRIPL,A S(I) TYPE AC, OP1 (S(I-1)) = ** | 4F14820 | ||
10773 | −0 32000 0 01452 | 4772 | ANA | MASK2 | 4F14821 | ||
10774 | 0 40200 4 16652 | 4773 | SUB | SCRIPL+2,C IS S(I) = SYM1 (S(I-1)) | 4F14822 | ||
10775 | −0 10000 0 10611 | 4774 | TNZ | LK0030 NO | 4F14823 | ||
10776 | 0 02000 0 10726 | 4775 | TRA | LK0900 YES | 4F14824 | ||
10777 | −0 75400 0 00000 | 4776 | LK1410 | PXD | 0,0 S(I) TYPE AC, OP1 (S(I-1)) = * | 4F14825 | |
11000 | 0 56000 4 16654 | 4777 | LDQ | SCRIPL+4,C | 4F14826 | ||
11001 | −0 76300 0 00006 | 4778 | LGL | 6 IS OP2 (S(I-1)) = 1 | 4F14827 | ||
11002 | 0 40200 0 01402 | 4779 | SUB | SLASH | 4F14828 | ||
11003 | 0 10000 0 10673 | 4780 | TZE | LK0630 YES | 4F14829 | ||
11004 | −0 50000 0 01410 | 4781 | CAL | L(2) NO | 4F14830 | ||
11005 | −0 60200 4 16651 | 4782 | ORS | SCRIPL+1,C SET OP1 (S(I-1)) 34 = 1 | 4F14831 | ||
11006 | 0 02000 0 10610 | 4783 | TRA | LK0000 | 4F14832 | ||
11007 | −0 77300 0 00033 | 4784 | LK1470 | RQL | 27 S(I) TYPE AC, OP1 (S(I-1)) = SPOP | 4F14833 | |
11010 | −0 50000 1 16650 | 4785 | CAL | SCRIPL,A | 4F14834 | ||
11011 | −0 32000 0 01452 | 4786 | ANA | MASK2 EXTRACT S(I) IN ACC | 4F14835 | ||
11012 | 0 16200 0 11015 | 4787 | TQP | LK1530 | 4F14836 | ||
11013 | 3 00006 2 10611 | 4788 | TXH | LK0030,B,6 OPEN MULTIV. | 4F14837 | ||
11014 | 0 02000 0 10657 | 4789 | LK1520 | TRA | LK0480 | 4F14838 | |
11015 | −0 77300 0 00017 | 4790 | LK1530 | RQL | 15 | 4F14839 | |
11016 | 0 16200 0 10657 | 4791 | TQP | LK0480 | 4F14840 | ||
11017 | 0 02000 0 10611 | 4792 | TRA | LK0030 FN-NAME | 4F14841 | ||
11020 | −0 53400 2 15044 | 4793 | LK1610 | LXD | BETA,B IS S(0) A SINGLE ELEMENT | 4F14842 | |
11021 | −0 75400 0 00000 | 4794 | PXD | 0,0 | 4F14843 | ||
11022 | 0 56000 1 16646 | 4795 | LDQ | SCRIPL−2,A | 4F14844 | ||
11023 | 3 00003 2 11042 | 4796 | TXH | LK1780,B,3 NO | 4F14845 | ||
11024 | −0 76300 0 00006 | 4797 | LGL | 6 YES | 4F14846 | ||
11025 | 0 40200 0 01401 | 4798 | SUB | 11Z IS OP (S(0)) = + OR - | 4F14847 | ||
11026 | 0 10000 0 11047 | 4799 | TZE | LKK000 OP (S(0)) = - | 4F14848 | ||
11027 | −0 50000 0 16652 | 4800 | CAL | SCRIPL+2 OP (S(0)) = + | 4F14849 | ||
11030 | −0 32000 0 01527 | 4801 | ANA | MASK1 DOES SYM (S(0)) = S(1) | 4F14850 | ||
11031 | −0 10000 0 11047 | 4802 | TNZ | LKK000 NO | 4F14851 | ||
11032 | −0 50000 0 16654 | 4803 | CAL | SCRIPL+4 YES - PLACE OP1 (S(1)) IN ACC | 4F14852 | ||
11033 | −0 32000 0 01404 | 4804 | ANA | 12Z | 4F14853 | ||
11034 | 0 10000 0 11047 | 4805 | TZE | LKK000 OP1 (S(1)) 31 = 0 | 4F14854 | ||
11035 | −0 60200 0 16651 | 4806 | ORS | SCRIPL+1 SET OP (S(0)) 31 = 1 | 4F14855 | ||
11036 | 0 76700 0 00002 | 4807 | ALS | 2 | 4F14856 | ||
11037 | −0 60200 0 16654 | 4808 | ORS | SCRIPL+4 SET OP1 (S(1)) 29 = 1 | 4F14857 | ||
11040 | 0 77100 0 00006 | 4809 | ARS | 6 | 4F14858 | ||
11041 | 0 02000 0 11046 | 4810 | TRA | LK1820 | 4F14859 | ||
11042 | 0 16200 0 11047 | 4811 | LK1780 | TQP | LKK000 S(0) TYPT AC | 4F14860 | |
11043 | −0 77300 0 00001 | 4812 | RQL | 1 | 4F14861 | ||
11044 | 0 16200 0 11047 | 4813 | TQP | LKK000 S(0) TYPE AC | 4F14862 | ||
11045 | −0 50000 0 01404 | 4814 | CAL | 12Z S(0) TYPE MQ, SO | 4F14863 | ||
11046 | −0 60200 0 16651 | 4815 | LK1820 | ORS | SCRIPL+1 | 4F14864 | |
11047 | −0 53400 5 01117 | 4816 | LKK000 | LXD | 3QBAR,5 -3Q TO XA,XC | 4F14865 | |
11050 | −0 50000 4 16645 | 4817 | CAL | SCRIPL−3,C | 4F14866 | ||
11051 | 0 73400 2 00000 | 4818 | PAX | 0,B | 4F14867 | ||
11052 | 0 50000 2 15044 | 4819 | CLA | BETA,B | 4F14868 | ||
11053 | 0 62200 0 11054 | 4820 | STD | LKK050 | 4F14869 | ||
11054 | 1 00000 4 11055 | 4821 | LKK050 | TXI | LKK060,C,0 BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT | 4F14870 | |
11055 | −0 75400 0 00000 | 4822 | LKK060 | PXD | 0,0 | 4F14871 | |
11056 | 0 56000 4 16651 | 4823 | LDQ | SCRIPL+1,C PLACE OP1 OF LAST SEGMENT 1N MQ | 4F14872 | ||
11057 | −0 76300 0 00006 | 4824 | LGL | 6 | 4F14873 | ||
11060 | 0 40200 0 01405 | 4825 | SUB | STAR | 4F14874 | ||
11061 | −0 10000 0 11070 | 4826 | TNZ | PC0000 | 4F14875 | ||
11062 | 0 16200 0 11064 | 4827 | TQP | LKK130 | 4F14876 | ||
11063 | 0 02000 0 11070 | 4828 | TRA | PC0000 | 4F14877 | ||
11064 | 0 56000 4 16654 | 4829 | LKK130 | LDQ | SCRIPL+4,C OP1 OF LAST SEGMENT IS * | 4F14878 | |
11065 | −0 76300 0 00002 | 4830 | LGL | 2 | 4F14879 | ||
11066 | 0 76000 0 00001 | 4831 | LBT | 4F14880 | |||
11067 | −0 60200 4 16651 | 4832 | ORS | SCRIPL+1,C OP2 IS *, SO SET OP1 (S(L)) 34 = 1 | 4F14881 | ||
11070 | −0 53400 4 01122 | 4833 | PC0000 | LXD | ARGCTR,C IS THIS AN FS | 4F14882 | |
11071 | 3 00000 4 11073 | 4834 | TXH | PC0030,C,0 | 4F14883 | ||
11072 | 1 00001 4 11074 | 4835 | TXI | PC0040,C,1 NO | 4F14884 | ||
11073 | 0 53400 4 01406 | 4836 | PC0030 | LXA | L(0),C YES | 4F14885 | |
11074 | −0 50000 1 16645 | 4837 | PC0040 | CAL | SCRIPL−3,A | 4F14886 | |
11075 | 0 73400 2 00000 | 4838 | PAX | 0,B | 4F14887 | ||
11076 | −3 00000 2 11112 | 4839 | TXL | PC0190,B,0 EXIT AT S(0) | 4F14888 | ||
11077 | 0 50000 2 15044 | 4840 | CLA | BETA,B | 4F14889 | ||
11100 | 0 62200 0 11101 | 4841 | STD | PC0100 | 4F14890 | ||
11101 | 1 00000 1 11102 | 4842 | PC0100 | TXI | PC0110,A,0 | 4F14891 | |
11102 | 0 56000 1 16651 | 4843 | PC0110 | LDQ | SCRIPL+1,A PLACE OP1 (S(I)) IN MQ | 4F14892 | |
11103 | −0 76300 0 00036 | 4844 | LGL | 30 | 4F14893 | ||
11104 | 0 76000 0 00001 | 4845 | LBT | 4F14894 | |||
11105 | 1 00454 0 11107 | 4846 | PC0140 | TXI | PC0160,0,300 | 4F14895 | |
11106 | 0 16200 0 11074 | 4847 | TQP | PC0040 OP1 (S(I)) 29= 1 AND OP1 (S(I)) 30 = 0 | 4F14896 | ||
11107 | −0 75400 4 00000 | 4848 | PC0160 | PXD | 0,C OP1 (S(I)) 29 = 0 OR OP1 (S(1)) 30 = 1 | 4F14897 | |
11110 | 0 62200 2 15044 | 4849 | STD | BETA,B STORE ERAS. REL. ADD. COUNT IN BETA, | 4F14898 | ||
11111 | 1 00001 4 11074 | 4850 | TXI | PC0040,C,1 AND UPDATE FOR NEXT SEGMENT | 4F14899 | ||
11112 | −0 53400 2 11105 | 4851 | PC0190 | LXD | PC0140,B | 4F14900 | |
11113 | 0 50000 2 15520 | 4852 | PC0200 | CLA | BETA+300,B | 4F14901 | |
11114 | 0 60100 2 16650 | 4853 | STO | CPBETA+300,B | 4F14902 | ||
11115 | 2 00001 2 11113 | 4854 | TIX | PC0200,B,1 | 4F14903 | ||
11116 | 0 02000 0 11155 | 4855 | TRA | STATED GO FETCH STATE D | 4F14904 | ||
4856 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F14905 | |||||
4857 | 4F14906 | ||||||
4858 | DICTIONARY OF OPEN SUBROUTINES FOLLOWS | 4F14907 | |||||
11117 | −272122626060 | 4859 | OPSUB | OCT | 672122626060 XABS | 4F14908 | |
11120 | +212262606060 | 4860 | OCT | 212262606060 ABS | 4F14909 | ||
11121 | −273145636060 | 4861 | OCT | 673145636060 XINT | 4F14910 | ||
11122 | +314563606060 | 4862 | OCT | 314563606060 INT | 4F14911 | ||
11123 | −274446246060 | 4863 | OCT | 674446246060 XMOD | 4F14912 | ||
11124 | −044624606060 | 4864 | OCT | 444624606060 MOD | 4F14913 | ||
11125 | −274421670060 | 4865 | OCT | 674421670060 XMAX0 | 4F14914 | ||
11126 | −042167016060 | 4866 | OCT | 442167016060 MAX1 | 4F14915 | ||
11127 | −274421670160 | 4867 | OCT | 674421670160 XMAX1 | 4F14916 | ||
11130 | −042167006060 | 4868 | OCT | 442167006060 MAX0 | 4F14917 | ||
11131 | −274431450060 | 4869 | OCT | 674431450060 XMIN0 | 4F14918 | ||
11132 | −043145016060 | 4870 | OCT | 443145016060 MIN1 | 4F14919 | ||
11133 | −274431450160 | 4871 | OCT | 674431450160 XMIN1 | 4F14920 | ||
11134 | −043145006060 | 4872 | OCT | 443145006060 MIN0 | 4F14921 | ||
11135 | +264346216360 | 4873 | OCT | 264346216360 FLOAT | 4F14922 | ||
11136 | −272631676060 | 4874 | OCT | 672631676060 XFIX | 4F14923 | ||
11137 | −223127456060 | 4875 | OCT | 623127456060 SIGN | 4F14924 | ||
11140 | −276231274560 | 4876 | OCT | 676231274560 XSIGN | 4F14925 | ||
11141 | −272431446060 | 4877 | OCT | 672431446060 XDIM | 4F14926 | ||
11142 | +243144606060 | 4878 | OCT | 243144606060 DIM | 4F14927 | ||
11143 | 4879 | BSS | 10 | 4F14928 | |||
4880 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F14929 | |||||
11155 | 4881 | STATED | BSS | 0 | 4F149295 | ||
4882 | 4F14930 | ||||||
15044 | 4883 | ORG | 2596+4096 | 4F14931 | |||
15044 | 4884 | BETA | BSS | 300 | 4F14932 | ||
4885 | END OF ARITHMETIC / STATE C. | 4F14933 | |||||
4886 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F14934 | |||||
4887 | 4F14935 | ||||||
4888 | ARITHMETIC / STATE D= | 4F14936 | |||||
11155 | 4889 | ORG | STATED | 4F14939 | |||
11155 | −0 53400 1 01117 | 4890 | MC00OO | LXD | 3QBAR,A MODE CHECKING ROUTINE | 4F14940 | |
11156 | −0 63400 1 11227 | 4891 | SXD | MC0420,A | 4F14941 | ||
11157 | 0 53400 1 01406 | 4892 | LXA | L(0),A | 4F14942 | ||
11160 | −0 63400 1 11176 | 4893 | MC0030 | SXD | XASAVE,A | 4F14943 | |
11161 | −0 50000 1 16650 | 4894 | CAL | SCRIPL,A | 4F14944 | ||
11162 | 0 73400 2 00000 | 4895 | MC0050 | PAX | ,2 S(I) TO XB | 4F14945 | |
11163 | 0 50000 2 16174 | 4896 | CLA | CPBETA,B | 4F14946 | ||
11164 | 0 73400 2 00454 | 4897 | MC0070 | PAX | TAU2,B | 4F14947 | |
11165 | −0 63400 2 11226 | 4898 | SXD | MC0410,B | 4F14946 | ||
11166 | −0 63400 2 11233 | 4899 | SXD | MC0460,B | 4F14949 | ||
11167 | 3 77772 2 11226 | 4900 | TXH | MC0410,B,−6 SINGLE ELEMENT - GO ONTO S(I+1) | 4F14950 | ||
11170 | 0 76000 0 00140 | 4901 | SLF | TURN OFF ALL SENSE LITES | 4F14951 | ||
11171 | −0 75400 0 00000 | 4902 | PXD | 0,0 CLEAR ACC | 4F14952 | ||
11172 | 0 56000 1 16651 | 4903 | LDQ | SCRIPL+1,A PLACE OP1 (S(I)) IN MQ | 4F14953 | ||
11173 | −0 76300 0 00006 | 4904 | LGL | 6 | 4F14954 | ||
11174 | 0 34000 0 01427 | 4905 | CAS | SPECOP | 4F14955 | ||
11175 | 0 16200 0 11177 | 4906 | TQP | MC0180 | 4F14956 | ||
11176 | 1 00000 0 11226 | 4907 | XASAVE | TXI | MC0410,0,0 | 4F14957 | |
11177 | −0 76300 0 00032 | 4908 | MC0180 | LGL | 26 OP1 (S(I)) = +, - OR * | 4F14958 | |
11200 | 0 16200 0 11202 | 4909 | TQP | MC0210 FIX PT | 4F14959 | ||
11201 | 0 76000 0 00141 | 4910 | SLN | 1 FLO PT | 4F14960 | ||
11202 | −0 75400 0 00000 | 4911 | MC0210 | PXD | 0,0 | 4F14961 | |
11203 | 0 56000 1 16652 | 4912 | LDQ | SCRIPL+2,A PLACE SYMJ (S(I)) IN MQ - J = 1.... | 4F14962 | ||
11204 | −0 76300 0 00001 | 4913 | LGL | 1 | 4F14963 | ||
11205 | 0 76000 0 00001 | 4914 | LBT | 4F14964 | |||
11206 | 0 16200 0 11231 | 4915 | TQP | MC0440 | 4F14965 | ||
11207 | −0 76300 0 00005 | 4916 | LGL | 5 SYMJ (S(I)) IS A VARIABLE | 4F14966 | ||
11210 | 0 34000 0 01423 | 4917 | CAS | L(H) | 4F14967 | ||
11211 | 0 34000 0 01425 | 4918 | CAS | L(O) | 4F14968 | ||
11212 | 1 00000 0 11217 | 4919 | XBSAVE | TXI | MC0340,0,0 FLO PT | 4F14969 | |
11213 | 0 02000 0 11217 | 4920 | TRA | MC0340 FLO PT | 4F14970 | ||
11214 | −0 76000 0 00141 | 4921 | MC0310 | SLT | 1 SYMJ (S(I)) IS A FIX PT VARIABLE | 4F14971 | |
11215 | 1 00003 2 11223 | 4922 | TXI | MC0380,B,3 OK | 4F14972 | ||
11216 | 0 07400 4 03400 | 4923 | TSX | DIAG,4 ERROR.. FLO PT LITE ON | 4F14973 | ||
11217 | −0 76000 0 00141 | 4924 | MC0340 | SLT | 1 SYMJ(S(I)) IS A FLO PT VARIABLE | 4F14974 | |
11220 | 0 07400 4 03400 | 4925 | TSX | DIAG,4 ERROR.. FLO PT LITE OFF | 4F14975 | ||
11221 | 0 76000 0 00141 | 4926 | SLN | 1 RESTORE FLO PT LITE | 4F14976 | ||
11222 | 1 00003 2 11223 | 4927 | TXI | MC0380,B,3 | 4F14977 | ||
11223 | −3 00000 2 11225 | 4928 | MC0380 | TXL | MC0400,B,0 FINISHED WITH S(I) | 4F14978 | |
11224 | 1 77775 1 11202 | 4929 | TXI | MC0210,A,−3 CONTINUE SCANNING S(I). J TO J+1 | 4F14979 | ||
11225 | −0 53400 1 11176 | 4930 | MC0400 | LXD | XASAVE,A GO T0 S(I+1) | 4F14980 | |
11226 | 1 00000 1 11227 | 4931 | MC0410 | TXI | MC0420,A,0 | 4F14981 | |
11227 | 3 00000 1 11160 | 4932 | MC0420 | TXH | MC0030,A,0 | 4F14982 | |
11230 | 0 02000 0 11254 | 4933 | TRA | CP0000 EXIT TO COMPILER | 4F14983 | ||
11231 | −0 63400 2 11212 | 4934 | MC0440 | SXD | XBSAVE,B SYMJ (S(ITT = SAME S(K) | 4F14984 | |
11232 | −0 53400 4 11176 | 4935 | LXD | XASAVE,C | 4F14985 | ||
11233 | 1 00000 4 11234 | 4936 | MC0460 | TXI | MC0470,C,0 MOVE XC TO 1ST ELEMENT OF S(I+1) | 4F14986 | |
11234 | −0 50000 4 16650 | 4937 | MC0470 | CAL | SCRIPL,C | 4F14987 | |
11235 | −0 32000 0 01452 | 4938 | ANA | MASK2 EXTRACT S(K) IN ACC | 4F14988 | ||
11236 | 0 34000 1 16652 | 4939 | CAS | SCRIPL+2,A AND COMPARE WITH SYMJ (S(I)) | 4F14989 | ||
11237 | 0 02000 0 11241 | 4940 | TRA | MC0520 | 4F14990 | ||
11240 | 0 02000 0 11246 | 4941 | TRA | MC0570 | 4F14991 | ||
11241 | 0 73400 2 01226 | 4942 | MC0520 | PAX | SIGMA1,B S(K) TO XB | 4F14992 | |
11242 | 0 50000 2 16174 | 4943 | CLA | CPBETA,B | 4F14993 | ||
11243 | 0 73400 2 00000 | 4944 | MC0540 | PAX | TAU1,B | 4F14994 | |
11244 | −0 63400 2 11245 | 4945 | SXD | MC0560,B | 4F14995 | ||
11245 | 1 00000 4 11234 | 4946 | MC0560 | TXI | MC0470,C,0 | 4F14996 | |
11246 | −0 53400 2 11212 | 4947 | MC0570 | LXD | XBSAVE,B SYMJ (S(I)) = S(K) FOR SOME K | 4F14997 | |
11247 | −0 50000 4 16651 | 4948 | CAL | SCRIPL+1,C PLACE OP1 (S(K)) IN ACC | 4F14998 | ||
11250 | 0 77100 0 00003 | 4949 | ARS | 3 | 4F14999 | ||
11251 | 0 76000 0 00001 | 4950 | LBT | 4F15000 | |||
11252 | 0 02000 0 11214 | 4951 | TRA | MC0310 S(K) IS FIX PT | 4F15001 | ||
11253 | 0 02000 0 11217 | 4952 | TRA | MC0340 S(K) IS FL0 PT | 4F15002 | ||
4953 | 4F15003 | ||||||
11254 | 0 76000 0 00140 | 4954 | CP0000 | SLF | TURN OFF ALL SENSE LITES | 4F15004 | |
11255 | 0 60000 0 16160 | 4955 | STZ | FNSW | 4F15005 | ||
11256 | −0 53400 4 01122 | 4956 | LXD | ARGCTR,C IS THIS AN FS STATEMENT | 4F15006 | ||
11257 | −3 00000 4 11265 | 4957 | TXL | CP0090,C,0 NO | 4F15007 | ||
11260 | 0 07400 4 01731 | 4958 | TSX | CIT00,C YES - COMPILE FOUR 36 - BIT | 4F15008 | ||
11261 | 0 00000 0 01531 | 4959 | HTR | ALL1 STRINGS IN 1 AS A PRELUDE TO | 4F15009 | ||
11262 | 0 00000 0 01531 | 4960 | HTR | ALL1 FS STATEMENT COMPILATION | 4F15010 | ||
11263 | 0 00000 0 01531 | 4961 | HTR | ALL1 | 4F15011 | ||
11264 | 0 00000 0 01531 | 4962 | HTR | ALL1 | 4F15012 | ||
11265 | −0 50000 0 00030 | 4963 | CP0090 | CAL | EIFNO | 4F15013 | |
11266 | −0 32000 0 01527 | 4964 | ANA | MASK1 | 4F15014 | ||
11267 | 0 60200 0 16164 | 4965 | SLW | CW STO INT. FORM. NO. IN DEC. FIELD 0F CW. | 4F15015 | ||
11270 | −0 53400 1 01117 | 4966 | LXD | 3QBAR,A -3Q TO XA | 4F15016 | ||
11271 | 0 50000 1 16645 | 4967 | CP0130 | CLA | SCRIPL−3,A EXTRACT CURRENT S(II | 4F15017 | |
11272 | 0 73400 2 00000 | 4968 | CP0140 | PAX | ,2 | 4F15018 | |
11273 | 0 50000 2 16174 | 4969 | CLA | CPBETA,B | 4F15019 | ||
11274 | 0 62200 0 01363 | 4970 | STD | PHI(I) STO ERAS. REL. ADD. IN PHI (I) | 4F15020 | ||
11275 | −0 32000 0 01452 | 4971 | ANA | MASK2 | 4F15021 | ||
11276 | 0 73400 2 01356 | 4972 | CP0180 | PAX | TAU3,B | 4F15022 | |
11277 | −0 63400 2 11324 | 4973 | SXD | CP0400,B | 4F15023 | ||
11300 | 0 76000 0 00006 | 4974 | COM | 4F15024 | |||
11301 | 0 40000 0 01407 | 4975 | ADD | L(1) | 4F15025 | ||
11302 | 0 76700 0 00022 | 4976 | ALS | 18 | 4F15026 | ||
11303 | 0 62200 0 11304 | 4977 | STD | CP0240 | 4F15027 | ||
11304 | 1 00000 1 11305 | 4978 | CP0240 | TXI | CP0250,A,0 MOVE XA TO 1ST ELEMENT OF CURRENT S(I) | 4F15028 | |
11305 | −0 63400 1 01117 | 4979 | CP0250 | SXD | 3QBAR,A | 4F15029 | |
11306 | 0 56000 1 16651 | 4980 | LDQ | SCRIPL+1,A EXAMINE OP1 (S(I)I 29,30,31,32 | 4F15030 | ||
11307 | −0 76300 0 00036 | 4981 | LGL | 30 | 4F15031 | ||
11310 | 0 76000 0 00001 | 4982 | LBT | 4F15032 | |||
11311 | 0 02000 0 11313 | 4983 | TRA | CP0310 OP1 (S(I)) 29 = 0 | 4F15033 | ||
11312 | 0 16200 0 11321 | 4984 | TQP | CP0370 OP1 (S(I)) 30 = 0 | 4F15034 | ||
11313 | 0 76000 0 00141 | 4985 | CP0310 | SLN | 1 OP1 (S(I)) 29 = 0 OR OP1 (S(I)) 30 = 1, SO | 4F15035 | |
11314 | −0 77300 0 00001 | 4986 | RQL | 1 SET STORE LITE | 4F15036 | ||
11315 | 0 16200 0 11317 | 4987 | TQP | CP0350 OP1 (S(I)) 31 = 0, SO SET STO LITE | 4F15037 | ||
11316 | 0 76000 0 00142 | 4988 | SLN | 2 OP1 (S(I)) 31 = 1, SO SET STQ LITE | 4F15038 | ||
11317 | −0 77300 0 00001 | 4989 | CP0350 | RQL | 1 | 4F15039 | |
11320 | 0 02000 0 11322 | 4990 | TRA | CP0380 | 4F15040 | ||
11321 | −0 77300 0 00002 | 4991 | CP0370 | RQL | 2 | 4F15041 | |
11322 | 0 16200 0 11326 | 4992 | CP0380 | TQP | CP0420 TEST OP1 (S(I)) 32 | 4F15042 | |
11323 | −0 76000 0 00144 | 4993 | SLT | 4 OP1 (S(I)) 32 = 1, SO SET FLPTSW | 4F15043 | ||
11324 | 3 00000 0 00000 | 4994 | CP0400 | TXH | 0,0,0 | 4F15044 | |
11325 | 0 02000 0 11327 | 4995 | TRA | CP0430 | 4F15045 | ||
11326 | 0 76000 0 00144 | 4996 | CP0420 | SLN | 4 OP1 (S(II) 32 = 0, SO SET FXPTSW | 4F15046 | |
11327 | −0 75400 0 00000 | 4997 | CP0430 | PXD | 0,0 | 4F15047 | |
11330 | 0 56000 1 16651 | 4998 | LDQ | SCRIPL+1,A PLACE OP1 (S(I)) IN MQ | 4F15048 | ||
11331 | −0 76300 0 00006 | 4999 | LGL | 6 | 4F15049 | ||
11332 | 0 34000 0 01427 | 5000 | CAS | SPECOP | 4F15050 | ||
11333 | 1 00000 0 11407 | 5001 | TXI | CP0960,0,0 | 4F15051 | ||
11334 | 1 77775 1 11543 | 5002 | TXI | CP2040,A,−3 | 4F15052 | ||
11335 | 0 40200 0 01401 | 5003 | SUB | 11Z | 4F15053 | ||
11336 | 0 10000 0 11365 | 5004 | TZE | CP0760 | 4F15054 | ||
11337 | −0 76300 0 00035 | 5005 | LGL | 29 OP1 (S(I)) = + | 4F15055 | ||
11340 | 0 16200 0 11425 | 5006 | TQP | CP1130 OP1 (S(I)) 35 = 0 | 4F15056 | ||
11341 | −0 53400 2 11324 | 5007 | CP0540 | LXD | CP0400,B OP1 (S(I)) 35 = 1 | 4F15057 | |
11342 | 1 00003 2 11343 | 5008 | TXI | CP0560,B,3 | 4F15058 | ||
11343 | −3 00000 2 12337 | 5009 | CP0560 | TXL | ES0000,B,0 GO TO END-OF-SEGMENT SBRTN | 4F15059 | |
11344 | −0 63400 2 11324 | 5010 | SXD | CP0400,B | 4F15060 | ||
11345 | 1 77775 1 11346 | 5011 | TXI | CP0590,A,−3 | 4F15061 | ||
11346 | −0 75400 0 00000 | 5012 | CP0590 | PXD | 0,0 | 4F15062 | |
11347 | 0 56000 1 16651 | 5013 | LDQ | SCRIPL+1,A PLACE OPJ (S(I)) IN MQ | 4F15063 | ||
11350 | −0 76300 0 00006 | 5014 | LGL | 6 | 4F15064 | ||
11351 | 0 34000 0 01405 | 5015 | CAS | STAR | 4F15065 | ||
11352 | 0 02000 0 11433 | 5016 | TRA | CP1200 OPJ (S(I)) = / | 4F15066 | ||
11353 | 0 02000 0 11506 | 5017 | TRA | CP1720 OPJ (S(I)) = * | 4F15067 | ||
11354 | 0 40200 0 01401 | 5018 | SUB | 11Z | 4F15068 | ||
11355 | 0 10000 0 11400 | 5019 | TZE | CP0880 OPJ (S(I)) = - | 4F15069 | ||
11356 | −0 50000 0 01550 | 5020 | CAL | L(FAD) OPJ (S(I)) = + | 4F15070 | ||
11357 | −0 76000 0 00144 | 5021 | SLT | 4 | 4F15071 | ||
11360 | 0 02000 0 11363 | 5022 | TRA | CP0740 | 4F15072 | ||
11361 | 0 76000 0 00144 | 5023 | SLN | 4 FIX PT. RESTORE FXPTSW | 4F15073 | ||
11362 | −0 50000 0 01532 | 5024 | CAL | L(ADD) | 4F15074 | ||
11363 | 0 60200 0 16165 | 5025 | CP0740 | SLW | CW+1 | 4F15075 | |
11364 | 0 02000 0 11503 | 5026 | TRA | CP1690 | 4F15076 | ||
11365 | −0 76300 0 00035 | 5027 | CP0760 | LGL | 29 OP1 (S(I)) = - | 4F15077 | |
11366 | 0 16200 0 11375 | 5028 | TQP | CP0850 | 4F15078 | ||
11367 | −0 50000 0 01540 | 5029 | CAL | L(CHS) C81 (SI))) 35 = 1, SO | 4F15079 | ||
11370 | 0 60200 0 16165 | 5030 | SLW | CW+1 COMPILE CHS FOR 1ST ELEMENT | 4F15080 | ||
11371 | 0 60000 0 16166 | 5031 | STZ | CW+2 | 4F15081 | ||
11372 | 0 60000 0 16167 | 5032 | STZ | CW+3 | 4F15082 | ||
11373 | 0 07400 2 12621 | 5033 | TSX | COMP,B | 4F15083 | ||
11374 | 0 02000 0 11341 | 5034 | TRA | CP0540 | 4F15084 | ||
11375 | −0 50000 0 01543 | 5035 | CP0850 | CAL | L(CLS) OP1 (S(I)) 35 = 0, S0 | 4F15085 | |
11376 | 0 60200 0 16165 | 5036 | SLW | CW+1 COMPILE CLS SYM1 (S(I)) FOR 1ST ELEMENT | 4F15086 | ||
11377 | 0 02000 0 11427 | 5037 | TRA | CP1150 | 4F15087 | ||
11400 | −0 50000 0 01553 | 5038 | CP0880 | CAL | L(FSB) OPJ (SII)I = - | 4F15088 | |
11401 | −0 76000 0 00144 | 5039 | SLT | 4 | 4F15089 | ||
11402 | 0 02000 0 11405 | 5040 | TRA | CP0940 | 4F15090 | ||
11403 | 0 76000 0 00144 | 5041 | SLN | 4 FIX PT. RESTORE FXPTSW | 4F15091 | ||
11404 | −0 50000 0 01574 | 5042 | CAL | L(SUB) | 4F15092 | ||
11405 | 0 60200 0 16165 | 5043 | CP0940 | SLW | CW+1 | 4F15093 | |
11406 | 0 02000 0 11503 | 5044 | TRA | CP1690 | 4F15094 | ||
11407 | 0 16200 0 11411 | 5045 | CP0960 | TQP | CP0980 | 4F15095 | |
11410 | 0 02000 0 12100 | 5046 | TRA | CP4140 | 4F15096 | ||
11411 | −0 76300 0 00035 | 5047 | CP0980 | LGL | 29 OP1 (S(I)) = * | 4F15097 | |
11412 | 0 76000 0 00143 | 5048 | SLN | 3 TURN LITE 3 ON | 4F15098 | ||
11413 | 0 76000 0 00001 | 5049 | LBT | TEST OP1 (S(I)) 34 | 4F15099 | ||
11414 | 0 02000 0 11417 | 5050 | TRA | CP1050 OP1 (S(I)) 34 = 0, SO LEAVE LITE 3 ON | 4F15100 | ||
11415 | −0 76000 0 00143 | 5051 | SLT | 3 OP1 (S(I)) 34 = 1, SO TURN LITE 3 OFF | 4F15101 | ||
11416 | 3 00000 0 00000 | 5052 | TXH | 0,0,0 | 4F15102 | ||
11417 | 0 16200 0 11421 | 5053 | CP1050 | TQP | CP1070 | 4F15103 | |
11420 | 0 02000 0 11341 | 5054 | TRA | CP0540 OP1 (S(I)) 35 = 1, SO GO MODIFY J | 4F15104 | ||
11421 | −0 50000 0 01556 | 5055 | CP1070 | CAL | L(LDQ) OP1 (S(I)) 35 = 0 | 4F15105 | |
11422 | −0 76000 0 00143 | 5056 | SLT | 3 | 4F15106 | ||
11423 | 0 02000 0 11426 | 5057 | TRA | CP1140 EL1 (S(I)) TO MQ | 4F15107 | ||
11424 | 0 76000 0 00143 | 5058 | SLN | 3 EL1 (S(I)) TO ACC | 4F15108 | ||
11425 | −0 50000 0 01541 | 5059 | CP1130 | CAL | L(CLA) | 4F15109 | |
11426 | 0 60200 0 16165 | 5060 | CP1140 | SLW | CW+1 | 4F15110 | |
11427 | 0 07400 4 12627 | 5061 | CP1150 | TSX | AC0000,C ADDRESS COMPILE SYM1 (S(I)) | 4F15111 | |
11430 | 0 07400 2 12621 | 5062 | TSX | COMP,B | 4F15112 | ||
11431 | 0 60000 0 16164 | 5063 | STZ | CW RESET CW | 4F15113 | ||
11432 | 0 02000 0 11341 | 5064 | TRA | CP0540 GO MODIFY J | 4F15114 | ||
11433 | −0 76000 0 00143 | 5065 | CP1200 | SLT | 3 OPJ (S(I)) = / | 4F15115 | |
11434 | 0 02000 0 11446 | 5066 | TRA | CP1330 | 4F15116 | ||
11435 | −0 76000 0 00144 | 5067 | SLT | 4 PREDECESSOR IN ACC | 4F15117 | ||
11436 | 0 02000 0 11501 | 5068 | TRA | CP1670 FLO PT. | 4F15118 | ||
11437 | 0 76000 0 00144 | 5069 | SLN | 4 FIX PT. RESTORE FXPTSW | 4F15119 | ||
11440 | 0 07400 4 01731 | 5070 | TSX | CIT00,C COMPILE LRS 35 | 4F15120 | ||
11441 | 0 00000 0 01406 | 5071 | HTR | L(0) | 4F15121 | ||
11442 | 0 00000 0 01560 | 5072 | HTR | L(LRS) | 4F15122 | ||
11443 | 0 00000 0 01406 | 5073 | HTR | L(0) | 4F15123 | ||
11444 | 0 00000 0 01472 | 5074 | HTR | DEC35 | 4F15124 | ||
11445 | 0 02000 0 11451 | 5075 | TRA | CP1450 | 4F15125 | ||
11446 | −0 76000 0 00144 | 5076 | CP1330 | SLT | 4 PREDECESSOR IN MQ | 4F15126 | |
11447 | 0 02000 0 11470 | 5077 | TRA | CP1570 AND SEGMENT IS | 4F15127 | ||
11450 | 0 76000 0 00144 | 5078 | SLN | 4 FIX PT. RESTORE FXPTSW | 4F15128 | ||
11451 | 0 50000 0 01547 | 5079 | CP1450 | CLA | L(DVP) | 4F15129 | |
11452 | 0 60100 0 16165 | 5080 | STO | CW+1 | 4F15130 | ||
11453 | 0 07400 4 12627 | 5081 | TSX | AC0000,C ADDRESS COMPILE SYMJ (S(I)) | 4F15131 | ||
11454 | 0 07400 2 12621 | 5082 | TSX | COMP,B COMPILE DVP SYMJ (S(I)) | 4F15132 | ||
11455 | 0 07400 4 01731 | 5083 | TSX | CIT00,C COMPILE CLM | 4F15133 | ||
11456 | 0 00000 0 01406 | 5084 | HTR | L(0) | 4F15134 | ||
11457 | 0 00000 0 01542 | 5085 | HTR | L(CLM) | 4F15135 | ||
11460 | 0 00000 0 01406 | 5086 | HTR | L(0) | 4F15136 | ||
11461 | 0 00000 0 01406 | 5087 | HTR | L(0) | 4F15137 | ||
11462 | 0 07400 4 01731 | 5088 | TSX | CIT00,C COMPILE LLS 18 | 4F15138 | ||
11463 | 0 00000 0 01406 | 5089 | HTR | L(0) | 4F15139 | ||
11464 | 0 00000 0 01557 | 5090 | HTR | L(LLS) | 4F15140 | ||
11465 | 0 00000 0 01406 | 5091 | HTR | L(0) | 4F15141 | ||
11466 | 0 00000 0 01466 | 5092 | HTR | DEC18 | 4F15142 | ||
11467 | 0 02000 0 11341 | 5093 | TRA | CP0540 GO MODIFY J | 4F15143 | ||
11470 | 0 50000 0 01573 | 5094 | CP1570 | CLA | L(STQ) PREDECESSOR IN MQ | 4F15144 | |
11471 | 0 60100 0 16165 | 5095 | STO | CW+1 AND SEGMENT IS FLO PT | 4F15145 | ||
11472 | 0 50000 0 01505 | 5096 | CLA | X( | 4F15146 | ||
11473 | 0 60100 0 16166 | 5097 | STO | CW+2 | 4F15147 | ||
11474 | 0 60000 0 16167 | 5098 | STZ | CW+3 | 4F15148 | ||
11475 | 0 07400 2 12621 | 5099 | TSX | COMP,B COMPILE STQ 700000 | 4F15149 | ||
11476 | 0 50000 0 01541 | 5100 | CLA | L(CLA) | 4F15150 | ||
11477 | 0 60100 0 16165 | 5101 | STO | CW+1 | 4F15151 | ||
11500 | 0 07400 2 12621 | 5102 | TSX | COMP,B COMPILE CLA 700000 | 4F15152 | ||
11501 | 0 50000 0 01551 | 5103 | CP1670 | CLA | LIFDP) | 4F15153 | |
11502 | 0 60100 0 16165 | 5104 | STO | CW+1 COMPILE FDP SYMJ (S(I)) | 4F15154 | ||
11503 | 0 07400 4 12627 | 5105 | CP1690 | TSX | AC0000,C ADDRESS COMPILE SYMJ (S(I)) | 4F15155 | |
11504 | 0 07400 2 12621 | 5106 | TSX | COMP,B | 4F15156 | ||
11505 | 0 02000 0 11341 | 5107 | TRA | CP0540 GO MODIFY J | 4F15157 | ||
11506 | −0 76000 0 00143 | 5108 | CP1720 | SLT | 3 OPJ(S(I))=* | 4F15158 | |
11507 | 0 02000 0 11521 | 5109 | TRA | CP1840 | 4F15159 | ||
11510 | 0 50000 0 01572 | 5110 | CLA | L(STO) PREDECESSOR IN ACC | 4F15160 | ||
11511 | 0 60100 0 16165 | 5111 | STO | CW+1 | 4F15161 | ||
11512 | 0 50000 0 01505 | 5112 | CLA | X( | 4F15162 | ||
11513 | 0 60100 0 16166 | 5113 | STO | CW+2 | 4F15163 | ||
11514 | 0 60000 0 16167 | 5114 | STZ | CW+3 | 4F15164 | ||
11515 | 0 07400 2 12621 | 5115 | TSX | COMP,B COMPILE STO 700000 | 4F15165 | ||
11516 | 0 50000 0 01556 | 5116 | CLA | L(LDQ) | 4F15166 | ||
11517 | 0 60100 0 16165 | 5117 | STO | CW+1 | 4F15167 | ||
11520 | 0 07400 2 12621 | 5118 | TSX | COMP,B COMPILE LDQ 700000 | 4F15168 | ||
11521 | 0 76000 0 00143 | 5119 | CP1840 | SLN | 3 TURN LATE 3 ON | 4F15169 | |
11522 | 0 07400 4 12627 | 5120 | TSX | AC0000,C ADDRESS COMPILE SYMJ(S(I)) | 4F15170 | ||
11523 | −0 76000 0 00144 | 5121 | SLT | 4 | 4F15171 | ||
11524 | 0 02000 0 11537 | 5122 | TRA | CP2000 | 4F15172 | ||
11525 | 0 76000 0 00144 | 5123 | SLN | 4 FIX PT. RESTORE FXPTSW | 4F15173 | ||
11526 | 0 50000 0 01562 | 5124 | CLA | L(MPY) | 4F15174 | ||
11527 | 0 60100 0 16165 | 5125 | STO | CW+1 | 4F15175 | ||
11530 | 0 07400 2 12621 | 5126 | TSX | COMP,B COMPILE MPY SYMJ(S(I)) | 4F15176 | ||
11531 | 0 07400 4 01731 | 5127 | TSX | CIT00,C COMPILE ALS 17 | 4F15177 | ||
11532 | 0 00000 0 01406 | 5128 | HTR | L(0) | 4F15178 | ||
11533 | 0 00000 0 01533 | 5129 | HTR | L(ALS) | 4F15179 | ||
11534 | 0 00000 0 01406 | 5130 | HTR | L(0) | 4F15180 | ||
11535 | 0 00000 0 01465 | 5131 | HTR | DEC17 | 4F15181 | ||
11536 | 0 02000 0 11341 | 5132 | TRA | CP0540 GO MODIFY J | 4F15182 | ||
11537 | 0 50000 0 01552 | 5133 | CP2000 | CLA | L(FMP) FLO PT. | 4F15183 | |
11540 | 0 60100 0 16165 | 5134 | STO | CW+1 | 4F15184 | ||
11541 | 0 07400 2 12621 | 5135 | TSX | COMP,B COMPILE FMP SYMJ(S(I)) | 4F15185 | ||
11542 | 0 02000 0 11341 | 5136 | TRA | CP0540 GO MODIFY J. | 4F15186 | ||
11543 | −0 76300 0 00007 | 5137 | CP2040 | LGL | 7 OP1(S(I))=SPOP | 4F15187 | |
11544 | 0 76000 0 00001 | 5138 | LBT | TEST OP1(S(I))12 | 4F15188 | ||
11545 | 0 16200 0 11665 | 5139 | TQP | CP2650 LIB OR OPEN FUNCTION | 4F15189 | ||
11546 | 0 16200 0 12210 | 5140 | TQP | CP5000 FN-FUNCTION | 4F15190 | ||
11547 | −0 75400 0 00000 | 5141 | PXD | 0,0 FS-FUNCTION | 4F15191 | ||
11550 | 0 76300 0 00017 | 5142 | LLS | 15 PUT TYPE NO IN ADD(ACC) | 4F15192 | ||
11551 | −0 50100 0 01503 | 5143 | ORA | P( FORM 4...TYPE NO. | 4F15193 | ||
11552 | 0 60200 0 16162 | 5144 | SLW | ARGORG AND STO IN ARGORG | 4F15194 | ||
11553 | −0 32000 0 01452 | 5145 | ANA | MASK2 | 4F15195 | ||
11554 | −0 50100 0 01505 | 5146 | ORA | X( FORM 7...TYPE NO. | 4F15196 | ||
11555 | 0 60200 0 16163 | 5147 | SLW | XRSAVE AND STO IN XRSAVE | 4F15197 | ||
11556 | 0 50000 1 16651 | 5148 | CLA | SCRIPL+1,A | 4F15198 | ||
11557 | 0 76000 0 00001 | 5149 | LBT | EXAMINE OP2(S(I))35 | 4F15199 | ||
11560 | 0 02000 0 11567 | 5150 | TRA | CP2150 1ST ARG STORED | 4F15200 | ||
11561 | 0 07400 4 01731 | 5151 | CP2100 | TSX | CIT00,C 1ST ARG IN ACC | 4F15201 | |
11562 | 0 00000 0 01406 | 5152 | HTR | L(0) COMPILE STO 4...TYPE NO. + 0 | 4F15202 | ||
11563 | 0 00000 0 01572 | 5153 | HTR | L(STO) | 4F15203 | ||
11564 | 0 00000 0 16162 | 5154 | HTR | ARGORG | 4F15204 | ||
11565 | 0 00000 0 01406 | 5155 | HTR | L(0) | 4F15205 | ||
11566 | 1 77775 1 11574 | 5156 | TXI | CP2200,A,−3 GO ON TO OP3(S(I)) | 4F15206 | ||
11567 | −0 50000 0 01541 | 5157 | CP2150 | CAL | L(CLA) | 4F15207 | |
11570 | 0 60200 0 16165 | 5158 | SLW | CW+1 | 4F15208 | ||
11571 | 0 07400 4 12627 | 5159 | TSX | AC0000,C ADDRESS COMPILE SYM2(S(I)) | 4F15209 | ||
11572 | 0 07400 2 12621 | 5160 | TSX | COMP,B COMPILE CLA SYM2(S(I)) | 4F15210 | ||
11573 | 0 02000 0 11561 | 5161 | TRA | CP2100 | 4F15211 | ||
11574 | 0 60000 0 16164 | 5162 | CP2200 | STZ | CW RESET CW | 4F15212 | |
11575 | −0 53400 2 11324 | 5163 | LXD | CP0400,B | 4F15213 | ||
11576 | 1 00003 2 11577 | 5164 | TXI | CP2230,B,3 | 4F15214 | ||
11577 | 3 77772 2 11642 | 5165 | CP2230 | TXH | CP2500,B,−6 FINISHED WITH S(I) | 4F15215 | |
11600 | −0 63400 2 11324 | 5166 | SXD | CP0400,B | 4F15216 | ||
11601 | 0 50000 1 16651 | 5167 | CLA | SCRIPL+1,A | 4F15217 | ||
11602 | 0 76000 0 00001 | 5168 | LBT | EXAMINE OP3(S(I))35 | 4F15218 | ||
11603 | 0 02000 0 11612 | 5169 | TRA | CP2300 2ND ARG STORED | 4F15219 | ||
11604 | 0 07400 4 01731 | 5170 | CP2250 | TSX | CIT00,C 2ND ARG IN MQ | 4F15220 | |
11605 | 0 00000 0 01406 | 5171 | HTR | L(0) COMPILE STQ 4...TYPE NO. + 1 | 4F15221 | ||
11606 | 0 00000 0 01573 | 5172 | HTR | L(STQ) | 4F15222 | ||
11607 | 0 00000 0 16162 | 5173 | HTR | ARGORG | 4F15223 | ||
11610 | 0 00000 0 01454 | 5174 | HTR | 2E18 | 4F15224 | ||
11611 | 1 77775 1 11617 | 5175 | TXI | CP2350,A,−3 GO ON TO SYM4(S(I)) | 4F15225 | ||
11612 | −0 50000 0 01556 | 5176 | CP2300 | CAL | L(LDQ) | 4F15226 | |
11613 | 0 60200 0 16165 | 5177 | SLW | CW+1 | 4F15227 | ||
11614 | 0 07400 4 12627 | 5178 | TSX | AC0000,C ADDRESS COMPILE SYM3(S(I)) | 4F15228 | ||
11615 | 0 07400 2 12621 | 5179 | TSX | COMP,B COMPILE LDQ SYM3(S(I)) | 4F15229 | ||
11616 | 0 02000 0 11604 | 5180 | TRA | CP2250 | 4F15230 | ||
11617 | 0 50000 0 01521 | 5181 | CP2350 | CLA | DECMI2 INITIALIZE DEC(P(CNTR) TO 2 | 4F15231 | |
11620 | 0 60200 0 16161 | 5182 | SLW | P(CNTR | 4F15232 | ||
11621 | −0 53400 2 11324 | 5183 | CP2370 | LXD | CP0400,B | 4F15233 | |
11622 | 1 00003 2 11623 | 5184 | TXI | CP2390,B,3 | 4F15234 | ||
11623 | 3 77772 2 11642 | 5185 | CP2390 | TXH | CP2500,B,−6 FINISHED WITH S(I) | 4F15235 | |
11624 | −0 63400 2 11324 | 5186 | SXD | CP0400,B | 4F15236 | ||
11625 | −0 50000 0 01541 | 5187 | CAL | L(CLA) | 4F15237 | ||
11626 | 0 60200 0 16165 | 5188 | SLW | CW+1 | 4F15238 | ||
11627 | 0 07400 4 12627 | 5189 | TSX | AC0000,C ADDRESS COMPILE SYMJ(S(I)), J=4,... | 4F15239 | ||
11630 | 0 07400 2 12621 | 5190 | TSX | COMP,B COMPILE CLA SYMJ(S(I)), J=4,... | 4F15240 | ||
11631 | 0 07400 4 01731 | 5191 | TSX | CIT00,C COMPILE STO 4...TYPE NO. + J-2, J=4,... | 4F15241 | ||
11632 | 0 00000 0 01406 | 5192 | HTR | L(0) | 4F15242 | ||
11633 | 0 00000 0 01572 | 5193 | HTR | L(STO) | 4F15243 | ||
11634 | 0 00000 0 16162 | 5194 | HTR | ARGORG | 4F15244 | ||
11635 | 0 00000 0 16161 | 5195 | HTR | P(CNTR | 4F15245 | ||
11636 | 0 50000 0 16161 | 5196 | CLA | P(CNTR UPDATE P(CNTR | 4F15246 | ||
11637 | 0 40000 0 01454 | 5197 | ADD | 2E18 | 4F15247 | ||
11640 | 0 60100 0 16161 | 5198 | STO | P(CNTR | 4F15248 | ||
11641 | 1 77775 1 11621 | 5199 | TXI | CP2370,A,−3 | 4F15249 | ||
11642 | −0 53400 1 01117 | 5200 | CP2500 | LXD | 3QBAR,A FINISHED WITH S(I) | 4F15250 | |
11643 | −0 50000 0 01575 | 5201 | CAL | L(SXD) | 4F15251 | ||
11644 | 0 60200 0 16165 | 5202 | SLW | CW+1 | 4F15252 | ||
11645 | −0 50000 0 16163 | 5203 | CAL | XRSAVE | 4F15253 | ||
11646 | 0 60200 0 16166 | 5204 | SLW | CW+2 | 4F15254 | ||
11647 | −0 50000 0 01412 | 5205 | CAL | L(4) | 4F15255 | ||
11650 | 0 60200 0 16167 | 5206 | SLW | CW+3 | 4F15256 | ||
11651 | 0 07400 2 12621 | 5207 | TSX | COMP,B COMPILE SXD 7...TYPE NO. , 4 | 4F15257 | ||
11652 | −0 50000 0 01602 | 5208 | CAL | L(TSX) | 4F15258 | ||
11653 | 0 60200 0 16165 | 5209 | SLW | CW+1 | 4F15259 | ||
11654 | −0 50000 1 16652 | 5210 | CAL | SCRIPL+2,A | 4F15260 | ||
11655 | 0 60200 0 16166 | 5211 | SLW | CW+2 | 4F15261 | ||
11656 | 0 07400 2 12621 | 5212 | TSX | COMP,B COMPILE TSX SYM1(S(I)),4 | 4F15262 | ||
11657 | −0 50000 0 01561 | 5213 | CAL | L(LXD) , | 4F15263 | ||
11660 | 0 60200 0 16165 | 5214 | SLW | CW+1 | 4F15264 | ||
11661 | −0 50000 0 16163 | 5215 | CAL | XRSAVE | 4F15265 | ||
11662 | 0 60200 0 16166 | 5216 | SLW | CW+2 | 4F15266 | ||
11663 | 0 02000 0 12756 | 5217 | TRA | CP6000 | 4F15267 | ||
11664 | 1 00000 0 12337 | 5218 | CP5830 | TXI | ES0000,0,0 | 4F15268 | |
5219 | 4F15269 | ||||||
11665 | −0 76300 0 00024 | 5220 | CP2650 | LGL | 20 TEST OPI(S(I))33 | 4F15270 | |
11666 | 0 16200 0 11734 | 5221 | TQP | CP3060 0... LIB. SBRTN | 4F15271 | ||
11667 | 0 50200 0 16164 | 5222 | CLS | CW 1... OPEN SBRTN | 4F15272 | ||
11670 | 0 60100 0 16164 | 5223 | STO | CW CW TO -CW | 4F15273 | ||
11671 | 0 50000 1 16647 | 5224 | CLA | SCRIPL−1,A | 4F15274 | ||
11672 | 0 60100 0 16166 | 5225 | STO | CW+2 | 4F15275 | ||
11673 | 0 07400 2 12621 | 5226 | TSX | COMP,B COMPILE FUNCTION NAME | 4F15276 | ||
11674 | 0 60000 0 16164 | 5227 | STZ | CW RESET CW | 4F15277 | ||
11675 | −0 53400 2 11324 | 5228 | LXD | CP0400,B | 4F15278 | ||
11676 | −3 77767 2 11720 | 5229 | TXL | CP2930,B,−9 | 4F15279 | ||
11677 | −0 50000 0 01531 | 5230 | CAL | ALL1 OPEN UNIVARIATE FUNCTION | 4F15280 | ||
11700 | 0 60200 0 16164 | 5231 | SLW | CW | 4F15281 | ||
11701 | 0 50000 1 16651 | 5232 | CLA | SCRIPL+1,A | 4F15282 | ||
11702 | 0 76000 0 00001 | 5233 | LBT | EXAMINE OP2(S(I))35 | 4F15283 | ||
11703 | 0 02000 0 11716 | 5234 | TRA | CP2900 0... ARG STORED | 4F15284 | ||
11704 | 0 77100 0 00001 | 5235 | ARS | 1 1... ARG NOT STORED | 4F15285 | ||
11705 | 0 56000 0 01512 | 5236 | LDQ | ADPLUS | 4F15286 | ||
11706 | 0 76000 0 00001 | 5237 | LBT | 4F15287 | |||
11707 | 0 02000 0 11711 | 5238 | TRA | CP2860 | 4F15288 | ||
11710 | 0 56000 0 01524 | 5239 | LDQ | ADSTAR | 4F15289 | ||
11711 | −0 60000 0 16166 | 5240 | CP2860 | STQ | CW+2 | 4F15290 | |
11712 | 0 60000 0 16167 | 5241 | STZ | CW+3 | 4F15291 | ||
11713 | 0 07400 2 12621 | 5242 | CP2880 | TSX | COMP,B COMPILE ACC OR MQ INDICATOR | 4F15292 | |
11714 | 0 60000 0 16164 | 5243 | STZ | CW RESET CW | 4F15293 | ||
11715 | 0 02000 0 12337 | 5244 | TRA | ES0000 | 4F15294 | ||
11716 | 0 07400 4 12627 | 5245 | CP2900 | TSX | AC0000,C ADDRESS COMPILE SYM2(S(I)) | 4F15295 | |
11717 | 0 02000 0 11713 | 5246 | TRA | CP2880 GO COMPILE SYM2(S(I)) | 4F15296 | ||
11720 | 0 07400 4 12627 | 5247 | CP2930 | TSX | AC0000,C OPEN MULTIVARIATE FUNCTION | 4F15297 | |
11721 | −0 53400 2 11324 | 5248 | LXD | CP0400,B | 4F15298 | ||
11722 | 1 00003 2 11723 | 5249 | TXI | CP2960,B,3 | 4F15299 | ||
11723 | 3 77772 2 11727 | 5250 | CP2960 | TXH | CP3000,B,−6 | 4F15300 | |
11724 | −0 63400 2 11324 | 5251 | SXD | CP0400,B | 4F15301 | ||
11725 | 0 07400 2 12621 | 5252 | TSX | COMP,B COMPILE SYMJ(S(I)) | 4F15302 | ||
11726 | 1 77775 1 11720 | 5253 | TXI | CP2930,A,−3 | 4F15303 | ||
11727 | −0 50000 0 01531 | 5254 | CP3000 | CAL | ALL1 | 4F15304 | |
11730 | 0 60200 0 16164 | 5255 | SLW | CW | 4F15305 | ||
11731 | 0 07400 2 12621 | 5256 | TSX | COMP,B COMPILE LAST ARGUMENT NAME | 4F15306 | ||
11732 | 0 60000 0 16164 | 5257 | STZ | CW RESET CW | 4F15307 | ||
11733 | 0 02000 0 12337 | 5258 | TRA | ES0000 GO TO END-OF-SEGMENT SBRTN | 4F15308 | ||
11734 | −3 77767 2 11763 | 5259 | CP3060 | TXL | CP3350,B,−9 | 4F15309 | |
11735 | 0 50000 1 16651 | 5260 | CLA | SCRIPL+1,A CLOSED UNIVARIATE FUNCTION | 4F15310 | ||
11736 | 0 76000 0 00001 | 5261 | LBT | EXAMINE OP2(S(I))35 | 4F15311 | ||
11737 | 0 02000 0 11755 | 5262 | TRA | CP3280 0... ARG STORED | 4F15312 | ||
11740 | 0 50000 0 01575 | 5263 | CP3100 | CLA | L(SXD) 1... ARG IN ACC | 4F15313 | |
11741 | 0 60100 0 16165 | 5264 | STO | CW+1 | 4F15314 | ||
11742 | 0 50000 0 01505 | 5265 | CLA | X( | 4F15315 | ||
11743 | 0 60100 0 16166 | 5266 | STO | CW+2 | 4F15316 | ||
11744 | 0 50000 0 01412 | 5267 | CLA | L(4) | 4F15317 | ||
11745 | 0 60100 0 16167 | 5268 | STO | CW+3 | 4F15318 | ||
11746 | 0 07400 2 12621 | 5269 | TSX | COMP,B COMPILE SXD7...0,4 | 4F15319 | ||
11747 | 0 50000 0 01602 | 5270 | CLA | L(TSX) | 4F15320 | ||
11750 | 0 60100 0 16165 | 5271 | STO | CW+1 | 4F15321 | ||
11751 | 0 50000 1 16647 | 5272 | CLA | SCRIPL−1,A | 4F15322 | ||
11752 | 0 60100 0 16166 | 5273 | STO | CW+2 | 4F15323 | ||
11753 | 0 07400 2 12621 | 5274 | TSX | COMP,B COMPILE TSX SYM1(S(I)),4 | 4F15324 | ||
11754 | 0 02000 0 12332 | 5275 | TRA | CP5780 COMPILE FLOW TRACE INFO AND LXD 7(,4 | 4F15325 | ||
11755 | 0 50000 0 01541 | 5276 | CP3280 | CLA | L(CLA) | 4F15331 | |
11756 | 0 60100 0 16165 | 5277 | STO | CW+1 | 4F15332 | ||
11757 | 0 07400 4 12627 | 5278 | TSX | AC0000,C ADDRESS COMPILE SYM2(S(I)) | 4F15333 | ||
11760 | 0 07400 2 12621 | 5279 | TSX | COMP,B COMPILE CLA SYM2(S(I)) | 4F15334 | ||
11761 | 0 60000 0 16164 | 5280 | STZ | CW RESET CW | 4F15335 | ||
11762 | 0 02000 0 11740 | 5281 | TRA | CP3100 GO COMPILE SXD,TSX,LXD SEQUENCE | 4F15336 | ||
11763 | −3 77764 2 12007 | 5282 | CP3350 | TXL | CP3560,B,−12 | 4F15337 | |
11764 | 0 50000 1 16651 | 5283 | CLA | SCRIPL+1,A CLOSED BIVARIATE FUNCTION | 4F15338 | ||
11765 | 0 76000 0 00001 | 5284 | LBT | EXAMINE OP2(S(I))35 | 4F15339 | ||
11766 | 0 02000 0 11775 | 5285 | TRA | CP3450 0... ARG1 STORED | 4F15340 | ||
11767 | 0 50000 0 01556 | 5286 | CP3390 | CLA | L(LDQ) 1... ARG1 IN ACC | 4F15341 | |
11770 | 0 60100 0 16165 | 5287 | STO | CW+1 | 4F15342 | ||
11771 | 1 77775 1 11772 | 5288 | TXI | CP3420,A,−3 | 4F15343 | ||
11772 | 0 07400 4 12627 | 5289 | CP3420 | TSX | AC0000,C ADDRESS COMPILE SYM3(S(I)) | 4F15344 | |
11773 | 0 07400 2 12621 | 5290 | TSX | COMP,B COMPILE LDQ SYM3(S(I)) | 4F15345 | ||
11774 | 1 00003 1 11740 | 5291 | TXI | CP3100,A,3 GO COMPILE SXD,TSX,LXD SEQUENCE | 4F15346 | ||
11775 | 0 50000 1 16654 | 5292 | CP3450 | CLA | SCRIPL+4,A | 4F15347 | |
11776 | 0 76000 0 00001 | 5293 | LBT | EXAMINE OP3(S(I))35 | 4F15348 | ||
11777 | 0 02000 0 12001 | 5294 | TRA | CP3490 0... ARG2 STORED | 4F15349 | ||
12000 | 0 02000 0 11755 | 5295 | TRA | CP3280 1... ARG2 IN MQ | 4F15350 | ||
12001 | 0 50000 0 01541 | 5296 | CP3490 | CLA | L(CLA) | 4F15351 | |
12002 | 0 60100 0 16165 | 5297 | STO | CW+1 | 4F15352 | ||
12003 | 0 07400 4 12627 | 5298 | TSX | AC0000,C ADDRESS COMPILE SYM2(SI))) | 4F15353 | ||
12004 | 0 07400 2 12621 | 5299 | TSX | COMP,B COMPILE CLA SYM2(S(I)) | 4F15354 | ||
12005 | 0 60000 0 16164 | 5300 | STZ | CW REST CW | 4F15355 | ||
12006 | 0 02000 0 11767 | 5301 | TRA | CP3390 GO COMPILE LDQ,SXD,TSX,LXD SEQUENCE | 4F15356 | ||
12007 | 0 50000 1 16651 | 5302 | CP3560 | CLA | SCRIPL+1,A CLOSED MULTIVARIATE FUNCTION | 4F15357 | |
12010 | 0 76000 0 00001 | 5303 | LBT | EXAMINE OP2(S(I))35 | 4F15358 | ||
12011 | 1 77772 1 12041 | 5304 | TXI | CP3820,A,−6 0... ARG1 STORED | 4F15359 | ||
12012 | 1 77772 1 12013 | 5305 | TXI | CP3600,A,−6 1... ARG1 IN ACC | 4F15360 | ||
12013 | 0 50000 0 01521 | 5306 | CP3600 | CLA | DECMI2 | 4F15361 | |
12014 | 0 60100 0 16161 | 5307 | STO | P(CNTR INITIALIZE P(CNTR TO -2 | 4F15362 | ||
12015 | 0 50000 0 01556 | 5308 | CP3620 | CLA | L(LDQ) | 4F15363 | |
12016 | 0 60100 0 16165 | 5309 | STO | CW+1 | 4F15364 | ||
12017 | 0 07400 4 12627 | 5310 | TSX | AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... | 4F15365 | ||
12020 | 0 07400 2 12621 | 5311 | TSX | COMP,B COMPILE LDQ SYMJ(S(I)) | 4F15366 | ||
12021 | 0 50000 0 01573 | 5312 | CLA | L(STQ) | 4F15367 | ||
12022 | 0 60100 0 16165 | 5313 | STO | CW+1 | 4F15368 | ||
12023 | 0 50000 0 01503 | 5314 | CLA | P( | 4F15369 | ||
12024 | 0 60100 0 16166 | 5315 | STO | CW+2 | 4F15370 | ||
12025 | 0 50000 0 16161 | 5316 | CLA | P(CNTR | 4F15371 | ||
12026 | 0 60100 0 16167 | 5317 | STO | CW+3 | 4F15372 | ||
12027 | 0 40200 0 01454 | 5318 | SUB | 2E18 | 4F15373 | ||
12030 | 0 60100 0 16161 | 5319 | STO | P(CNTR | 4F15374 | ||
12031 | 0 07400 2 12621 | 5320 | TSX | COMP,B COMPILE STQ 4...0-(J-2) | 4F15375 | ||
12032 | −0 53400 2 11324 | 5321 | LXD | CP0400,B | 4F15376 | ||
12033 | 1 00003 2 12034 | 5322 | TXI | CP3770,B,3 | 4F15377 | ||
12034 | −3 77764 2 12037 | 5323 | CP3770 | TXL | CP3800,B,−12 | 4F15378 | |
12035 | −0 53400 1 01117 | 5324 | LXD | 3QBAR,A FINISHED WITH ARG VECTOR | 4F15379 | ||
12036 | 1 77775 1 11767 | 5325 | TXI | CP3390,A,−3 | 4F15380 | ||
12037 | −0 63400 2 11324 | 5326 | CP3800 | SXD | CP0400,B | 4F15381 | |
12040 | 1 77775 1 12015 | 5327 | TXI | CP3620,A,−3 GO PICK UP NEXT ARG. | 4F15382 | ||
12041 | 0 50000 1 16646 | 5328 | CP3820 | CLA | SCRIPL−2,A | 4F15383 | |
12042 | 0 76000 0 00001 | 5329 | LBT | EXAMINE OP3(S(I))35 | 4F15384 | ||
12043 | 1 00006 1 12072 | 5330 | TXI | CP4070,A,6 0... ARG2 STORED | 4F15385 | ||
12044 | 0 50000 0 01521 | 5331 | CLA | DECMI2 1... ARG2 IN MQ | 4F15386 | ||
12045 | 0 60100 0 16161 | 5332 | STO | P(CNTR | 4F15387 | ||
12046 | 0 50000 0 01541 | 5333 | CP3870 | CLA | L(CLA) | 4F15388 | |
12047 | 0 60100 0 16165 | 5334 | STO | CW+1 | 4F15389 | ||
12050 | 0 07400 4 12627 | 5335 | TSX | AC0000,C ADDRESS COMPILE SYMJ(S(I)) FOR J=4,5,... | 4F15390 | ||
12051 | 0 07400 2 12621 | 5336 | TSX | COMP,B COMPILE CLA SYMJ(S(I)) | 4F15391 | ||
12052 | 0 50000 0 01572 | 5337 | CLA | L(STO) | 4F15392 | ||
12053 | 0 60100 0 16165 | 5338 | STO | CW+1 | 4F15393 | ||
12054 | 0 50000 0 01503 | 5339 | CLA | P( | 4F15394 | ||
12055 | 0 60100 0 16166 | 5340 | STO | CW+2 | 4F15395 | ||
12056 | 0 50000 0 16161 | 5341 | CLA | P(CNTR | 4F15396 | ||
12057 | 0 60100 0 16167 | 5342 | STO | CW+3 | 4F15397 | ||
12060 | 0 40200 0 01454 | 5343 | SUB | 2E18 | 4F15398 | ||
12061 | 0 60100 0 16161 | 5344 | STO | P(CNTR | 4F15399 | ||
12062 | 0 07400 2 12621 | 5345 | TSX | COMP,B COMPILE STO 4...0-(J-2) | 4F15400 | ||
12063 | −0 53400 2 11324 | 5346 | LXD | CP0400,B | 4F15401 | ||
12064 | 1 00003 2 12065 | 5347 | TXI | CP4020,B,3 | 4F15402 | ||
12065 | −3 77764 2 12070 | 5348 | CP4020 | TXL | CP4050,B,−12 | 4F15403 | |
12066 | −0 53400 1 01117 | 5349 | LXD | 3QBAR,A FINISHED WITH ARG VECTOR | 4F15404 | ||
12067 | 1 77775 1 11755 | 5350 | TXI | CP3280,A,−3 | 4F15405 | ||
12070 | −0 63400 2 11324 | 5351 | CP4050 | SXD | CP0400,B | 4F15406 | |
12071 | 1 77775 1 12046 | 5352 | TXI | CP3870,A,−3 GO PICK UP NEXT ARG | 4F15407 | ||
12072 | 0 50000 0 01541 | 5353 | CP4070 | CLA | L(CLA) | 4F15408 | |
12073 | 0 60100 0 16165 | 5354 | STO | CW+1 | 4F15409 | ||
12074 | 0 07400 4 12627 | 5355 | TSX | AC0000,C ASDRESS COMPILE SYM2(S(I)) | 4F15410 | ||
12075 | 0 07400 2 12621 | 5356 | TSX | COMP,B COMPILE CLASYM2(S(I)) | 4F15411 | ||
12076 | 0 60000 0 16164 | 5357 | STZ | CW RESET CW | 4F15412 | ||
12077 | 1 77772 1 12013 | 5358 | TXI | CP3600,A,−6 | 4F15413 | ||
12100 | −0 76300 0 00033 | 5359 | CP4140 | LGL | 27 OP1(S(I))=** | 4F15414 | |
12101 | 0 16200 0 12132 | 5360 | TQP | CP4410 CLOSED SBRTN SINCE OP1(S(I))33=0 | 4F15415 | ||
12102 | 0 76000 0 00001 | 5361 | LBT | OPEN SBRTN SINCE OP1(S(I))33=1 | 4F15416 | ||
12103 | 0 02000 0 12106 | 5362 | TRA | CP4200 BASE FIX PT SINCE OP1(S(I))32=0 | 4F15417 | ||
12104 | 0 50000 0 01525 | 5363 | CLA | STRSTR BASE FLO PT SINCE OP1(S(II)I32=1 | 4F15418 | ||
12105 | 0 02000 0 12107 | 5364 | TRA | CP4210 | 4F15419 | ||
12106 | 0 50000 0 01524 | 5365 | CP4200 | CLA | ADSTAR | 4F15420 | |
12107 | 0 60100 0 16165 | 5366 | CP4210 | STO | CW+1 | 4F15421 | |
12110 | −0 76300 0 00002 | 5367 | LGL | 2 EXAMINE OP1(S(I))35 | 4F15422 | ||
12111 | 0 16200 0 12120 | 5368 | TQP | CP4310 0... BASE STORED | 4F15423 | ||
12112 | 0 56000 0 01524 | 5369 | LDQ | ADSTAR 1... BASE NOT STORED | 4F15424 | ||
12113 | 0 76000 0 00001 | 5370 | LBT | EXAMINE OP1(S(I))34 | 4F15425 | ||
12114 | 0 56000 0 01512 | 5371 | LDQ | ADPLUS 0... BASE IN ACC | 4F15426 | ||
12115 | −0 60000 0 16166 | 5372 | STQ | CW+2 1...BASE IN MQ | 4F15427 | ||
12116 | 0 60000 0 16167 | 5373 | STZ | CW+3 | 4F15428 | ||
12117 | 0 02000 0 12121 | 5374 | TRA | CP4320 | 4F15429 | ||
12120 | 0 07400 4 12627 | 5375 | CP4310 | TSX | AC0000,C ADDRESS COMPILE SYM1(S(I)) | 4F15430 | |
12121 | 0 50200 0 16164 | 5376 | CP4320 | CLS | CW | 4F15431 | |
12122 | 0 60100 0 16164 | 5377 | STO | CW CW TO -CW | 4F15432 | ||
12123 | 0 07400 2 12621 | 5378 | TSX | COMP,B COMPILE BASE | 4F15433 | ||
12124 | 0 60000 0 16164 | 5379 | STZ | CW RESET CW | 4F15434 | ||
12125 | 0 50000 1 16655 | 5380 | CLA | SCRIPL+5,A | 4F15435 | ||
12126 | 0 60100 0 16166 | 5381 | STO | CW+2 | 4F15436 | ||
12127 | 0 07400 2 12621 | 5382 | TSX | COMP,B COMPILE FIX PT CONSTANT EXPONENT | 4F15437 | ||
12130 | 0 60000 0 16165 | 5383 | STZ | CW+1 RESET CW+1 | 4F15438 | ||
12131 | 0 02000 0 12337 | 5384 | TRA | ES0000 | 4F15439 | ||
12132 | −0 76300 0 00003 | 5385 | CP4410 | LGL | 3 CLOSED EXP. SBRTN | 4F15440 | |
12133 | 0 76000 0 00001 | 5386 | LBT | EXAMINE OP1(S(I))35 | 4F15441 | ||
12134 | 0 02000 0 12177 | 5387 | TRA | CP4860 0... BASE STORED | 4F15442 | ||
12135 | 0 50000 0 01556 | 5388 | CP4440 | CLA | L(LDQ) 1... BASE IN ACC. | 4F15443 | |
12136 | 0 60100 0 16165 | 5389 | STO | CW+1 | 4F15444 | ||
12137 | 1 77775 1 12140 | 5390 | TXI | CP4470,A,−3 | 4F15445 | ||
12140 | 0 07400 4 12627 | 5391 | CP4470 | TSX | AC0000,C ADDRESS COMPILE SYM2(S(I)) | 4F15446 | |
12141 | 0 07400 2 12621 | 5392 | TSX | COMP,B COMPILE LDQ SYM2 (S(I)) | 4F15447 | ||
12142 | 0 50000 0 01575 | 5393 | CP4490 | CLA | L(SXD) | 4F15448 | |
12143 | 0 60100 0 16165 | 5394 | STO | CW+1 | 4F15449 | ||
12144 | 0 50000 0 01505 | 5395 | CLA | X( | 4F15450 | ||
12145 | 0 60100 0 16166 | 5396 | STO | CW+2 | 4F15451 | ||
12146 | 0 50000 0 01412 | 5397 | CLA | L(4) | 4F15452 | ||
12147 | 0 60100 0 16167 | 5398 | STO | CW+3 | 4F15453 | ||
12150 | 0 07400 2 12621 | 5399 | TSX | COMP,B COMPILE SXD 7...0,4 | 4F15454 | ||
12151 | 0 50000 0 01602 | 5400 | CLA | L(TSX) | 4F15455 | ||
12152 | 0 60100 0 16165 | 5401 | STO | CW+1 | 4F15456 | ||
12153 | 0 50000 1 16651 | 5402 | CLA | SCRIPL+1,A | 4F15457 | ||
12154 | 0 77100 0 00003 | 5403 | ARS | 3 | 4F15458 | ||
12155 | 0 76000 0 00001 | 5404 | LBT | EXAMINE OP2(S(I))32 | 4F15459 | ||
12156 | 1 00003 1 12164 | 5405 | TXI | CP4660,A,3 0... | 4F15460 | ||
12157 | 0 50000 0 01516 | 5406 | CLA | FLFL 1... FLO**FLO | 4F15461 | ||
12160 | 0 56000 1 16646 | 5407 | LDQ | SCRIPL−2,A EXAMINE OP1(S(I))32 TO CHECK | 4F15462 | ||
12161 | −0 77300 0 00040 | 5408 | RQL | 32 FOR MIXED EXPONENTIAL EXPRESSION | 4F15463 | ||
12162 | 0 16200 0 11216 | 5409 | TQP | MC0310+2 ERROR FIX PT BASE, FLOAT EXP. | 4F15464 | ||
12163 | 0 02000 0 12171 | 5410 | TRA | CP4730 | 4F15465 | ||
12164 | 0 56000 1 16651 | 5411 | CP4660 | LDQ | SCRIPL+1,A | 4F15466 | |
12165 | −0 77300 0 00040 | 5412 | RQL | 32 EXAMINE OP1(SI)))32 | 4F15467 | ||
12166 | 0 50000 0 01514 | 5413 | CLA | FXFX | 4F15468 | ||
12167 | 0 16200 0 12171 | 5414 | TQP | CP4730 0...FX**FX | 4F15469 | ||
12170 | 0 50000 0 01515 | 5415 | CLA | FLFX 1... FL**FX | 4F15470 | ||
12171 | 0 60100 0 16166 | 5416 | CP4730 | STO | CW+2 | 4F15471 | |
12172 | 0 60100 0 01347 | 5417 | STO | G | 4F15472 | ||
12173 | 0 07400 2 12621 | 5418 | TSX | COMP,B COMPILE TSX FXFX/FLEX/FLFL,4 | 4F15473 | ||
12174 | 0 07400 1 03321 | 5419 | TSX | TET00,A | 4F15474 | ||
12175 | 0 00000 0 00011 | 5420 | HTR | 9 | 4F15475 | ||
12176 | 0 02000 0 12332 | 5421 | TRA | CP5780 COMPILE FL0W TRACE INFO AND LXD 7(,4 | 4F15476 | ||
12177 | 0 50000 0 01541 | 5422 | CP4860 | CLA | L(CLA) | 4F15482 | |
12200 | 0 60100 0 16165 | 5423 | STO | CW+1 | 4F15483 | ||
12201 | 0 07400 4 12627 | 5424 | TSX | AC0000,C ADDRESS COMPILE SYM1(S(I)) | 4F15484 | ||
12202 | 0 07400 2 12621 | 5425 | TSX | COMP,B COMPILE CLA SYM1(S(I)) | 4F15485 | ||
12203 | 0 60000 0 16164 | 5426 | STZ | CW | 4F15486 | ||
12204 | 0 50000 1 16654 | 5427 | CLA | SCRIPL+4,A | 4F15487 | ||
12205 | 0 76000 0 00001 | 5428 | LBT | EXAMINE OP2(S(I))35 | 4F15488 | ||
12206 | 1 00000 0 12135 | 5429 | TXI | CP4440,0,0 0...EXP STORED | 4F15489 | ||
12207 | 1 77775 1 12142 | 5430 | TXI | CP4490,A,−3 1... EXP IN MQ | 4F15490 | ||
5431 | 4F15491 | ||||||
12210 | 0 50000 0 00030 | 5432 | CP5000 | CLA | EIFNO FN FUNCTI0N | 4F15492 | |
12211 | 0 40000 0 01454 | 5433 | ADD | 2E18 UPDATE EIFNO | 4F15493 | ||
12212 | 0 60100 0 00030 | 5434 | STO | EIFNO AND | 4F15494 | ||
12213 | 0 60100 0 16160 | 5435 | STO | FNSW SET FN SWITCH | 4F15495 | ||
12214 | 0 62200 0 01105 | 5436 | STD | 1C KEEP 1C UPDATED FOR PENDING TIFGO ENTRY. | 4F15496 | ||
12215 | 0 53400 4 01407 | 5437 | LXA | L(1),C INITIALIZE STAIX T0 1 | 4F15497 | ||
12216 | 0 50000 1 16650 | 5438 | CP5050 | CLA | SCRIPL,A EXAMINE TAGJ(S(I)), J=2,... | 4F15498 | |
12217 | −0 12000 0 12233 | 5439 | TMI | CP5180 NONSUBSCRIPTED | 4F15499 | ||
12220 | −0 63400 2 11664 | 5440 | SXD | CP5830,B SOBSCRIPTED-IS THERE A GENERAL TAG | 4F15500 | ||
12221 | −0 63400 4 12314 | 5441 | SXD | STACTR,C | 4F15501 | ||
12222 | 0 07400 4 12627 | 5442 | TSX | AC0000,C | 4F15502 | ||
12223 | −0 50000 0 16173 | 5443 | CAL | TAGPRT | 4F15503 | ||
12224 | −0 10000 0 12237 | 5444 | TNZ | CP5220 GENERAL TAG PRESENT | 4F15504 | ||
12225 | −0 50000 0 16167 | 5445 | CAL | CW+3 NO GENERAL TAG PRESENT,SO PLACE | 4F15505 | ||
12226 | 0 77100 0 00013 | 5446 | ARS | 11 RELATIVE ADDRESS IN OPJ(S(II)14-28 AND | 4F15506 | ||
12227 | −0 50100 0 01474 | 5447 | ORA | NGTBIT SET OPJ(S(I))10=1 FROM NGTBIT | 4F15507 | ||
12230 | −0 60200 1 16651 | 5448 | ORS | SCRIPL+1,A | 4F15508 | ||
12231 | −0 53400 4 12314 | 5449 | CP5160 | LXD | STACTR,C | 4F15509 | |
12232 | −0 53400 2 11664 | 5450 | LXD | CP5830,B | 4F15510 | ||
12233 | 1 00003 2 12234 | 5451 | CP5180 | TXI | CP5190,B,3 | 4F15511 | |
12234 | 3 77772 2 12267 | 5452 | CP5190 | TXH | CP5460,B,−6 FINISHED WITH PRELUDE,IF ANY | 4F15512 | |
12235 | 1 00001 4 12236 | 5453 | TXI | CP5210,C,1 NOT FINISHED-STAIX=STAIX+1 | 4F15513 | ||
12236 | 1 77775 1 12216 | 5454 | CP5210 | TXI | CP5050,A,−3 GO ON TO NEXT ARGUMENT | 4F15513 | |
12237 | −0 50000 0 01566 | 5455 | CP5220 | CAL | L(PXD) | 4F15515 | |
12240 | 0 60200 0 16165 | 5456 | SLW | CW+1 | 4F15516 | ||
12241 | 0 07400 2 12621 | 5457 | TSX | COMP,B COMPILE PXD SYMJ(S(I)), TAGJ(S(I)) | 4F15517 | ||
12242 | 0 60000 0 16164 | 5458 | STZ | CW RESET CW | 4F15518 | ||
12243 | 0 07400 4 01731 | 5459 | TSX | CIT00,C COMPILE ARS 18 | 4F15519 | ||
12244 | 0 00000 0 01406 | 5460 | HTR | L(0) | 4F15520 | ||
12245 | 0 00000 0 01535 | 5461 | HTR | L(ARS) | 4F15521 | ||
12246 | 0 00000 0 01406 | 5462 | HTR | L(0) | 4F15522 | ||
12247 | 0 00000 0 01466 | 5463 | HTR | DEC18 | 4F15523 | ||
12250 | 0 07400 4 01731 | 5464 | TSX | CIT00,C COMPILE ADD *-2 | 4F15524 | ||
12251 | 0 00000 0 01406 | 5465 | HTR | L(0) | 4F15525 | ||
12252 | 0 00000 0 01532 | 5466 | HTR | L(ADD) | 4F15526 | ||
12253 | 0 00000 0 01511 | 5467 | HTR | PROCTR | 4F15527 | ||
12254 | 0 00000 0 01521 | 5468 | HTR | DECMI2 | 4F15528 | ||
12255 | −0 50000 0 01571 | 5469 | CAL | L(STA) | 4F15529 | ||
12256 | 0 60200 0 16165 | 5470 | SLW | CW+1 | 4F15530 | ||
12257 | −0 50000 0 00030 | 5471 | CAL | EIFNO | 4F15531 | ||
12260 | −0 32000 0 01527 | 5472 | ANA | MASK1 | 4F15532 | ||
12261 | 0 60200 0 16166 | 5473 | SLW | CW+2 | 4F15533 | ||
12262 | −0 53400 4 12314 | 5474 | LXD | STACTR,C | 4F15534 | ||
12263 | −0 75400 4 00000 | 5475 | PXD | 0,C | 4F15535 | ||
12264 | 0 60200 0 16167 | 5476 | SLW | CW+3 | 4F15536 | ||
12265 | 0 07400 2 12621 | 5477 | TSX | COMP,B COMPILE STA IFN+STAIX | 4F15537 | ||
12266 | 1 00000 0 12231 | 5478 | TXI | CP5160,0,0 GO ON TO NEXT ARGUMENT,IF ANY | 4F15538 | ||
12267 | −0 53400 1 01117 | 5479 | CP5460 | LXD | 3QBAR,A | 4F15539 | |
12270 | −0 50000 0 01575 | 5480 | CAL | L(SXD) | 4F15540 | ||
12271 | 0 60200 0 16165 | 5481 | SLW | CW+1 | 4F15541 | ||
12272 | −0 50000 0 01505 | 5482 | CAL | X( | 4F15542 | ||
12273 | 0 60200 0 16166 | 5483 | SLW | CW+2 | 4F15543 | ||
12274 | −0 50000 0 01412 | 5484 | CAL | L(4) | 4F15544 | ||
12275 | 0 60200 0 16167 | 5485 | SLW | CW+3 | 4F15545 | ||
12276 | 0 07400 2 12621 | 5486 | TSX | COMP,B COMPILE SXD 7,4 | 4F15546 | ||
12277 | −0 50000 0 00030 | 5487 | CAL | EIFNO | 4F15547 | ||
12300 | −0 32000 0 01527 | 5488 | ANA | MASK1 | 4F15548 | ||
12301 | 0 60200 0 16164 | 5489 | SLW | CW | 4F15549 | ||
12302 | −0 50000 0 01602 | 5490 | CAL | L(TSX) | 4F15550 | ||
12303 | 0 60200 0 16165 | 5491 | SLW | CW+1 | 4F15551 | ||
12304 | −0 50000 1 16652 | 5492 | CAL | SCRIPL+2,A | 4F15552 | ||
12305 | 0 60200 0 16166 | 5493 | SLW | CW+2 | 4F15553 | ||
12306 | 0 07400 2 12621 | 5494 | TSX | COMP,B COMPILE TSX SYM1(S(I)),4 | 4F15554 | ||
12307 | 0 60000 0 16164 | 5495 | STZ | CW RESET CW | 4F15555 | ||
12310 | 1 77775 1 12311 | 5496 | TXI | CP5680,A,−3 POSITION XA TO SYM2(S(I)) | 4F15556 | ||
12311 | 0 50000 1 16650 | 5497 | CP5680 | CLA | SCRIPL,A | 4F15557 | |
12312 | 0 12000 0 12315 | 5498 | TPL | CP5700 | 4F15558 | ||
12313 | 0 07400 4 12627 | 5499 | TSX | AC0000,C NONSUBSCRIPTED | 4F15559 | ||
12314 | 1 00000 0 12324 | 5500 | STACTR | TXI | CP5720,0,0 | 4F15560 | |
12315 | 0 56000 1 16651 | 5501 | CP5700 | LDQ | SCRIPL+1,A SUBSCRIPTED | 4F15561 | |
12316 | −0 76300 0 00013 | 5502 | LGL | 11 | 4F15562 | ||
12317 | 0 76000 0 00001 | 5503 | LBT | 4F15563 | |||
12320 | 0 56000 0 01406 | 5504 | LDQ | L(0) GENERAL TAG PRESENT | 4F15564 | ||
12321 | −0 60000 0 16167 | 5505 | STQ | CW+3 NO GENERAL TAG PRESENT | 4F15565 | ||
12322 | −0 50000 1 16652 | 5506 | CAL | SCRIPL+2,A | 4F15566 | ||
12323 | 0 60200 0 16166 | 5507 | SLW | CW+2 | 4F15567 | ||
12324 | 0 07400 2 12621 | 5508 | CP5720 | TSX | COMP,B COMPILE TSX SYMJ(S(I)) , J=2,... | 4F15568 | |
12325 | −0 53400 2 11324 | 5509 | LXD | CP0400,B | 4F15569 | ||
12326 | 1 00003 2 12327 | 5510 | TXI | CP5750,B,3 | 4F15570 | ||
12327 | 3 77772 2 12332 | 5511 | CP5750 | TXH | CP5780,B,−6 FINISHED SCANNING | 4F15571 | |
12330 | −0 63400 2 11324 | 5512 | SXD | CP0400,B | 4F15572 | ||
12331 | 1 77775 1 12311 | 5513 | TXI | CP5680,A,−3 | 4F15573 | ||
12332 | 0 07400 4 03401 | 5514 | CP5780 | TSX | FLTR00,4 COMPILE FLOW TRACE INFO AND LXD 7(,4 | 4F15574 | |
12333 | 0 00000 0 01406 | 5515 | HTR | L(0) | 4F15575 | ||
12334 | 0 00000 0 01561 | 5516 | HTR | L(LXD) | 4F15576 | ||
12335 | 0 00000 0 01505 | 5517 | HTR | X( | 4F15577 | ||
12336 | 0 00000 0 01412 | 5518 | HTR | L(4) | 4F15578 | ||
12337 | −0 53400 1 01117 | 5519 | ES0000 | LXD | 3QBAR,A -3Q TO XA | 4F15579 | |
12340 | −0 76000 0 00141 | 5520 | SLT | 1 | 4F15580 | ||
12341 | 0 02000 0 11271 | 5521 | TRA | CP0130 GO TO NEXT SEGMENT | 4F15581 | ||
12342 | −0 50000 1 16650 | 5522 | CAL | SCRIPL,A | 4F15582 | ||
12343 | −0 32000 0 01452 | 5523 | ANA | MASK2 | 4F15583 | ||
12344 | 0 10000 0 12357 | 5524 | TZE | ES0160 | 4F15584 | ||
12345 | 0 50000 0 01120 | 5525 | CLA | ARERAS S(I) NOT = S(0) | 4F15585 | ||
12346 | 0 60100 0 16166 | 5526 | STO | CW+2 | 4F15586 | ||
12347 | 0 50000 0 01363 | 5527 | CLA | PHI(I) | 4F15587 | ||
12350 | 0 60100 0 16167 | 5528 | STO | CW+3 | 4F15588 | ||
12351 | 0 50000 0 01573 | 5529 | CLA | L(STQ) | 4F15589 | ||
12352 | −0 76000 0 00142 | 5530 | SLT | 2 | 4F15590 | ||
12353 | 0 50000 0 01572 | 5531 | CLA | L(STO) | 4F15591 | ||
12354 | 0 60100 0 16165 | 5532 | STO | CW+1 | 4F15592 | ||
12355 | 0 07400 2 12621 | 5533 | TSX | COMP,B COMPILE STO/STQ 1... TYPE NO + PHI(I) | 4F15593 | ||
12356 | 0 02000 0 11271 | 5534 | TRA | CP0130 GO TO NEXT SEGMENT | 4F15594 | ||
12357 | 0 56000 0 01356 | 5535 | ES0160 | LDQ | LEFT+2 S(I)=S(0) | 4F15595 | |
12360 | −0 76300 0 00014 | 5536 | LGL | 12 | 4F15596 | ||
12361 | 0 34000 0 01450 | 5537 | CAS | IFSYM IS THIS AN IF STATEMENT | 4F15597 | ||
12362 | 0 02000 0 12364 | 5538 | TRA | ES0200 | 4F15598 | ||
12363 | 0 02000 0 12556 | 5539 | TRA | ES1500 | 4F15599 | ||
12364 | 0 34000 0 01451 | 5540 | ES0200 | CAS | CALLER IS THIS A CALL STATEMENT | 4F15600 | |
12365 | 0 02000 0 12367 | 5541 | TRA | ES0210 | 4F15601 | ||
12366 | 0 02000 0 12561 | 5542 | TRA | ES1520 | 4F15602 | ||
12367 | 0 34000 0 01447 | 5543 | ES0210 | CAS | SAPSYM | 4F15603 | |
12370 | 0 02000 0 12372 | 5544 | TRA | ES0220 | 4F15604 | ||
12371 | 0 02000 0 12615 | 5545 | TRA | ES1710 | 4F15605 | ||
12372 | 0 77100 0 00006 | 5546 | ES0220 | ARS | 6 | 4F15606 | |
12373 | −0 53400 4 01122 | 5547 | LXD | ARGCTR,C IS THIS A FUNCTION STATEMENT | 4F15607 | ||
12374 | 3 00000 4 12533 | 5548 | TXH | ES1300,C,0 YES | 4F15608 | ||
12375 | 0 34000 0 01423 | 5549 | CAS | L(H) NOT A FUNCTION STATEMENT | 4F15609 | ||
12376 | 0 34000 0 01425 | 5550 | CAS | L(O) | 4F15610 | ||
12377 | 0 02000 0 12465 | 5551 | TRA | ES0300 | 4F15611 | ||
12400 | 0 02000 0 12465 | 5552 | TRA | ES0300 | 4F15612 | ||
12401 | −0 76000 0 00144 | 5553 | SLT | 4 | 4F15613 | ||
12402 | 0 02000 0 12420 | 5554 | TRA | ES0870 | 4F15614 | ||
12403 | 0 50000 0 01573 | 5555 | ES0710 | CLA | L(STQ) FX(FLO) PT ON LEFT, FX(FLO) PT ON RIGHT | 4F15615 | |
12404 | −0 76000 0 00142 | 5556 | SLT | 2 | 4F15616 | ||
12405 | 0 50000 0 01572 | 5557 | ES0730 | CLA | L(STO) | 4F15617 | |
12406 | 0 60100 0 16165 | 5558 | STO | CW+1 | 4F15618 | ||
12407 | 0 50000 0 01354 | 5559 | CLA | LEFT | 4F15619 | ||
12410 | 0 60100 0 16170 | 5560 | STO | TAGWRD | 4F15620 | ||
12411 | 0 50000 0 01355 | 5561 | CLA | LEFT+1 | 4F15621 | ||
12412 | 0 60100 0 16171 | 5562 | STO | OPWORD | 4F15622 | ||
12413 | 0 50000 0 01356 | 5563 | CLA | LEFT+2 | 4F15623 | ||
12414 | 0 60100 0 16172 | 5564 | STO | SYMWRD | 4F15624 | ||
12415 | 0 07400 4 12635 | 5565 | TSX | AC0060,C ADDRESS COMPILE VAR1ABLE ON LEFT | 4F15625 | ||
12416 | 0 07400 2 12621 | 5566 | TSX | COMP,B COMPILE STO/STQ LEFT+2 | 4F15626 | ||
12417 | 0 02000 0 12601 | 5567 | TRA | ES1590 EXIT TO FETCH STATE A | 4F15627 | ||
12420 | −0 76000 0 00142 | 5568 | ES0870 | SLT | 2 FX PT ON LEFT, FLO PT ON RIGHT | 4F15628 | |
12421 | 0 02000 0 12433 | 5569 | TRA | ES0990 | 4F15629 | ||
12422 | 0 50000 0 01573 | 5570 | CLA | L(STQ) RESULT ON RIGHT APPEARS IN MQ | 4F15630 | ||
12423 | 0 60100 0 16165 | 5571 | STO | CW+1 | 4F15631 | ||
12424 | 0 50000 0 01505 | 5572 | CLA | X( | 4F15632 | ||
12425 | 0 60100 0 16166 | 5573 | STO | CW+2 | 4F15633 | ||
12426 | 0 60000 0 16167 | 5574 | STZ | CW+3 | 4F15634 | ||
12427 | 0 07400 2 12621 | 5575 | TSX | COMP,B COMPILE STQ 700000 | 4F15635 | ||
12430 | 0 50000 0 01541 | 5576 | CLA | L(CLA) | 4F15636 | ||
12431 | 0 60100 0 16165 | 5577 | STO | CW+1 | 4F15637 | ||
12432 | 0 07400 2 12621 | 5578 | TSX | COMP,B COMPILE CLA 700000 | 4F15638 | ||
12433 | 0 07400 4 01731 | 5579 | ES0990 | TSX | CIT00,C COMPILE FIXING INSTRUCTIONS, WHEN | 4F15639 | |
12434 | 0 00000 0 01406 | 5580 | HTR | L(0) RESULT ON RIGHT IS IN ACC. | 4F15640 | ||
12435 | 0 00000 0 01603 | 5581 | HTR | L(UFA) | 4F15641 | ||
12436 | 0 00000 0 01504 | 5582 | HTR | O( | 4F15642 | ||
12437 | 0 00000 0 01406 | 5583 | HTR | L(0) | 4F15643 | ||
12440 | 0 07400 4 01731 | 5584 | TSX | CIT00,C | 4F15644 | ||
12441 | 0 00000 0 01406 | 5585 | HTR | L(0) | 4F15645 | ||
12442 | 0 00000 0 01560 | 5586 | HTR | L(LRS) | 4F15646 | ||
12443 | 0 00000 0 01406 | 5587 | HTR | L(0) | 4F15647 | ||
12444 | 0 00000 0 01406 | 5588 | HTR | L(0) | 4F15648 | ||
12445 | 0 07400 4 01731 | 5589 | TSX | CIT00,C | 4F15649 | ||
12446 | 0 00000 0 01406 | 5590 | HTR | L(0) | 4F15650 | ||
12447 | 0 00000 0 01534 | 5591 | HTR | L(ANA) | 4F15651 | ||
12450 | 0 00000 0 01504 | 5592 | HTR | O( | 4F15652 | ||
12451 | 0 00000 0 01454 | 5593 | HTR | 2E18 | 4F15653 | ||
12452 | 0 07400 4 01731 | 5594 | TSX | CIT00,C | 4F15654 | ||
12453 | 0 00000 0 01406 | 5595 | HTR | L(0) | 4F15655 | ||
12454 | 0 00000 0 01557 | 5596 | HTR | L(LLS) | 4F15656 | ||
12455 | 0 00000 0 01406 | 5597 | HTR | L(0) | 4F15657 | ||
12456 | 0 00000 0 01406 | 5598 | HTR | L(0) | 4F15658 | ||
12457 | 0 07400 4 01731 | 5599 | TSX | CIT00,C | 4F15659 | ||
12460 | 0 00000 0 01406 | 5600 | HTR | L(0) | 4F15660 | ||
12461 | 0 00000 0 01533 | 5601 | HTR | L(ALS) | 4F15661 | ||
12462 | 0 00000 0 01406 | 5602 | HTR | L(0) | 4F15662 | ||
12463 | 0 00000 0 01466 | 5603 | HTR | DEC18 | 4F15663 | ||
12464 | 0 02000 0 12521 | 5604 | TRA | ES0610 | 4F15664 | ||
12465 | −0 76000 0 00144 | 5605 | ES0300 | SLT | 4 | 4F15665 | |
12466 | 0 02000 0 12403 | 5606 | TRA | ES0710 | 4F15666 | ||
12467 | −0 76000 0 00142 | 5607 | ES0320 | SLT | 2 FLO PT ON LEFT, FX PT ON RIGHT | 4F15667 | |
12470 | 0 02000 0 12502 | 5608 | TRA | ES0440 | 4F15668 | ||
12471 | 0 50000 0 01573 | 5609 | CLA | L(STQ) RESULT ON RIGHT APPEARS IN MQ | 4F15669 | ||
12472 | 0 60100 0 16165 | 5610 | STO | CW+1 | 4F15670 | ||
12473 | 0 50000 0 01505 | 5611 | CLA | X( | 4F15671 | ||
12474 | 0 60100 0 16166 | 5612 | STO | CW+2 | 4F15672 | ||
12475 | 0 60000 0 16167 | 5613 | STZ | CW+3 | 4F15673 | ||
12476 | 0 07400 2 12621 | 5614 | TSX | COMP,B COMPILE STQ 700000 | 4F15674 | ||
12477 | 0 50000 0 01541 | 5615 | CLA | L(CLA) | 4F15675 | ||
12500 | 0 60100 0 16165 | 5616 | STO | CW+1 | 4F15676 | ||
12501 | 0 07400 2 12621 | 5617 | TSX | COMP,B COMPILE CLA 700000 | 4F15677 | ||
12502 | 0 07400 4 01731 | 5618 | ES0440 | TSX | CIT00,C COMPILE FLOATING INSTRUCTIONS, WHEN | 4F15678 | |
12503 | 0 00000 0 01406 | 5619 | HTR | L(0) RESULT ON RIGHT IS IN ACC | 4F15679 | ||
12504 | 0 00000 0 01560 | 5620 | HTR | L(LRS) | 4F15680 | ||
12505 | 0 00000 0 01406 | 5621 | HTR | L(0) | 4F15681 | ||
12506 | 0 00000 0 01466 | 5622 | HTR | DEC18 | 4F15682 | ||
12507 | 0 07400 4 01731 | 5623 | TSX | CIT00,C | 4F15683 | ||
12510 | 0 00000 0 01406 | 5624 | HTR | L(0) | 4F15684 | ||
12511 | 0 00000 0 01564 | 5625 | HTR | L(ORA) | 4F15685 | ||
12512 | 0 00000 0 01504 | 5626 | HTR | O( | 4F15686 | ||
12513 | 0 00000 0 01406 | 5627 | HTR | L(0) | 4F15687 | ||
12514 | 0 07400 4 01731 | 5628 | TSX | CIT00,C | 4F15688 | ||
12515 | 0 00000 0 01406 | 5629 | HTR | L(0) | 4F15689 | ||
12516 | 0 00000 0 01550 | 5630 | HTR | L(FAD) | 4F15690 | ||
12517 | 0 00000 0 01504 | 5631 | HTR | O( | 4F15691 | ||
12520 | 0 00000 0 01406 | 5632 | HTR | L(0) | 4F15692 | ||
12521 | −0 53400 4 01122 | 5633 | ES0610 | LXD | ARGCTR,C IS THIS A FUNCTION STATEMENT | 4F15693 | |
12522 | −3 00000 4 12405 | 5634 | TXL | ES0730,C,0 NO | 4F15694 | ||
12523 | 0 50000 0 01601 | 5635 | ES0630 | CLA | L(TRA) YES | 4F15695 | |
12524 | 0 60100 0 16165 | 5636 | STO | CW+1 | 4F15696 | ||
12525 | 0 60000 0 16166 | 5637 | STZ | CW+2 | 4F15697 | ||
12526 | −0 50000 0 01454 | 5638 | CAL | 2E18 | 4F15698 | ||
12527 | −0 50100 0 01412 | 5639 | ORA | L(4) | 4F15699 | ||
12530 | 0 60200 0 16167 | 5640 | SLW | CW+3 | 4F15700 | ||
12531 | 0 07400 2 12621 | 5641 | TSX | COMP,B COMPILE TRA 1,4 | 4F15701 | ||
12532 | 0 02000 0 12601 | 5642 | TRA | ES1590 EXIT TO FETCH STATE A | 4F15702 | ||
12533 | 0 40200 0 01433 | 5643 | ES1300 | SUB | L(X) | 4F15703 | |
12534 | 0 10000 0 12540 | 5644 | TZE | ES1360 | 4F15704 | ||
12535 | −0 76000 0 00144 | 5645 | SLT | 4 | 4F15705 | ||
12536 | 0 02000 0 12542 | 5646 | TRA | ES1380 | 4F15706 | ||
12537 | 0 02000 0 12467 | 5647 | TRA | ES0320 | 4F15707 | ||
12540 | −0 76000 0 00144 | 5648 | ES1360 | SLT | 4 | 4F15708 | |
12541 | 0 02000 0 12420 | 5649 | TRA | ES0870 | 4F15709 | ||
12542 | −0 76000 0 00142 | 5650 | ES1380 | SLT | 2 | 4F15710 | |
12543 | 0 02000 0 12523 | 5651 | TRA | ES0630 | 4F15711 | ||
12544 | 0 50000 0 01573 | 5652 | CLA | L(STQ) | 4F15712 | ||
12545 | 0 60100 0 16165 | 5653 | STO | CW+1 | 4F15713 | ||
12546 | 0 50000 0 01505 | 5654 | CLA | X( | 4F15714 | ||
12547 | 0 60100 0 16166 | 5655 | STO | CW+2 | 4F15715 | ||
12550 | 0 60000 0 16167 | 5656 | STZ | CW+3 | 4F15716 | ||
12551 | 0 07400 2 12621 | 5657 | TSX | COMP,B COMPILE STQ 700000 | 4F15717 | ||
12552 | 0 50000 0 01541 | 5658 | CLA | L(CLA) | 4F15718 | ||
12553 | 0 60100 0 16165 | 5659 | STO | CW+1 | 4F15719 | ||
12554 | 0 07400 2 12621 | 5660 | TSX | COMP,B COMPILE CLA 700000 | 4F15720 | ||
12555 | 0 02000 0 12523 | 5661 | TRA | ES0630 | 4F15721 | ||
12556 | 0 07400 1 03321 | 5662 | ES1500 | TSX | TET00,1 * GO TO PROGRAM TET TO ENTER 1C,1C+1 | 4F15722 | |
12557 | 0 00000 0 00002 | 5663 | PZE | 2 INTO TIFGO TABLE (TABLE 2). | 4F15723 | ||
12560 | 0 02000 0 12565 | 5664 | TRA | ES1530 | 4F15724 | ||
12561 | −0 53400 4 00030 | 5665 | ES1520 | LXD | EIFNO,4 | 4F15725 | |
12562 | −0 63400 4 01123 | 5666 | SXD | CALLNM,4 PREPARE ENTRY FOR TABLE OF CALL FIRST AND | 4F15726 | ||
12563 | 0 07400 1 03321 | 5667 | TSX | TET00,1 LAST IFN NUMBERS. | 4F15727 | ||
12564 | 0 00000 0 00020 | 5668 | 16 | 4F15728 | |||
12565 | −0 76000 0 00142 | 5669 | ES1530 | SLT | 2 | 4F15729 | |
12566 | 0 02000 0 12601 | 5670 | TRA | ES1590 EXIT T0 FETCH STATE A | 4F15730 | ||
12567 | 0 07400 4 01731 | 5671 | TSX | CIT00,C COMPILE LLS 37 | 4F15731 | ||
12570 | 0 00000 0 01406 | 5672 | L(0) | 4F15732 | |||
12571 | 0 00000 0 01573 | 5673 | L(STQ) | 4F15733 | |||
12572 | 0 00000 0 01505 | 5674 | X( | 4F15734 | |||
12573 | 0 00000 0 01406 | 5675 | L(0) | 4F15735 | |||
12574 | 0 07400 4 01731 | 5676 | TSX | CIT00,4 | 4F15736 | ||
12575 | 0 00000 0 01406 | 5677 | L(0) | 4F15737 | |||
12576 | 0 00000 0 01541 | 5678 | L(CLA) | 4F15738 | |||
12577 | 0 00000 0 01505 | 5679 | X( | 4F15739 | |||
12600 | 0 00000 0 01406 | 5680 | L(0) | 4F15740 | |||
12601 | 0 50000 0 16160 | 5681 | ES1590 | CLA | FNSW | 4F15741 | |
12602 | 0 10000 0 03440 | 5682 | TZE | MTR000 | 4F15742 | ||
12603 | 0 50000 0 01151 | 5683 | CLA | F−1 | 4F15743 | ||
12604 | 0 40200 0 01477 | 5684 | SUB | 5BLANS | 4F15744 | ||
12605 | 0 10000 0 03440 | 5685 | TZE | MTR000 | 4F15745 | ||
12606 | 0 50200 0 00030 | 5686 | CLS | EIFNO | 4F15746 | ||
12607 | 0 60100 0 00030 | 5687 | STO | EIFNO | 4F15747 | ||
12610 | 0 07400 1 03321 | 5688 | TSX | TET00,A | 4F15748 | ||
12611 | 0 00000 0 00000 | 5689 | HTR | 0 | 4F15749 | ||
12612 | 0 50200 0 00030 | 5690 | CLS | EIFNO | 4F15750 | ||
12613 | 0 60100 0 00030 | 5691 | STO | EIFNO | 4F15751 | ||
12614 | 0 02000 0 03440 | 5692 | TRA | MTR000 | 4F15752 | ||
12615 | −0 53400 2 00637 | 5693 | ES1710 | LXD | BBOX,B | 4F15753 | |
12616 | 0 50000 0 01362 | 5694 | CLA | OPNWRD | 4F15754 | ||
12617 | 0 60100 2 00635 | 5695 | STO | CIB−3,B | 4F15755 | ||
12620 | 0 02000 0 03440 | 5696 | TRA | MTR000 | 4F15756 | ||
5697 | 4F15757 | ||||||
12621 | 0 07400 4 01731 | 5698 | COMP | TSX | CIT00,C | 4F15758 | |
12622 | 0 00000 0 16164 | 5699 | HTR | CW | 4F15759 | ||
12623 | 0 00000 0 16165 | 5700 | HTR | CW+1 | 4F15760 | ||
12624 | 0 00000 0 16166 | 5701 | HTR | CW+2 | 4F15761 | ||
12625 | 0 00000 0 16167 | 5702 | HTR | CW+3 | 4F15762 | ||
12626 | 0 02000 2 00001 | 5703 | TRA | 1,B | 4F15763 | ||
5704 | 4F15764 | ||||||
12627 | 0 50000 1 16650 | 5705 | AC0000 | CLA | SCRIPL,A | 4F15765 | |
12630 | 0 60100 0 16170 | 5706 | STO | TAGWRD | 4F15766 | ||
12631 | 0 50000 1 16651 | 5707 | CLA | SCRIPL+1,A | 4F15767 | ||
12632 | 0 60100 0 16171 | 5708 | STO | OPWORD | 4F15768 | ||
12633 | 0 50000 1 16652 | 5709 | CLA | SCRIPL+2,A | 4F15769 | ||
12634 | 0 60100 0 16172 | 5710 | STO | SYMWRD | 4F15770 | ||
12635 | −0 50000 0 16170 | 5711 | AC0060 | CAL | TAGWRD | 4F15771 | |
12636 | −0 32000 0 01527 | 5712 | ANA | MASK1 EXTRACT TAGS IN ACC. | 4F15772 | ||
12637 | −0 76000 0 00001 | 5713 | PBT | 4F15773 | |||
12640 | 0 02000 0 12721 | 5714 | TRA | AC0540 | 4F15774 | ||
12641 | −0 75400 0 00000 | 5715 | PXD | 0,0 NON-SUBSCRIPTED SYMBOL | 4F15775 | ||
12642 | 0 56000 0 16172 | 5716 | LDQ | SYMWRD | 4F15776 | ||
12643 | −0 76300 0 00001 | 5717 | LGL | 1 | 4F15777 | ||
12644 | 0 76000 0 00001 | 5718 | LBT | 4F15778 | |||
12645 | 0 16200 0 12712 | 5719 | TQP | AC0460 SYMBOL IS SOME S(K) | 4F15779 | ||
12646 | −0 76300 0 00013 | 5720 | LGL | 11 NON-SUBSCRIPTED EX/INTERNAL VARIABLE | 4F15780 | ||
12647 | 0 40200 0 01444 | 5721 | SUB | L(A() IS THIS A FLO PT CONSTANT | 4F15781 | ||
12650 | 0 10000 0 12705 | 5722 | TZE | AC0410 YES | 4F15782 | ||
12651 | 0 40000 0 01444 | 5723 | ADD | L(A() NO | 4F15783 | ||
12652 | 0 40200 0 01446 | 5724 | SUB | L(I() IS THIS A FIX PT CONSTANT | 4F15784 | ||
12653 | 0 10000 0 12703 | 5725 | TZE | AC0390 YES | 4F15785 | ||
12654 | 0 40000 0 01446 | 5726 | ADD | L(I() NO | 4F15786 | ||
12655 | 0 40200 0 01445 | 5727 | SUB | L(H() IS THIS A HOLLERITH FIELD | 4F15787 | ||
12656 | 0 10000 0 12701 | 5728 | TZE | AC0350 YES | 4F15788 | ||
12657 | 0 56000 0 16171 | 5729 | LDQ | OPWORD NON-SUBSCRIPTD0 EXTERNAL VARIABLE | 4F15789 | ||
12660 | −0 76300 0 00015 | 5730 | LGL | 13 IS THIS A FREE VARIABLE | 4F15790 | ||
12661 | 0 16200 0 12676 | 5731 | TQP | AC0340 NO | 4F15791 | ||
12662 | 0 76300 0 00017 | 5732 | LLS | 15 YES | 4F15792 | ||
12663 | 0 76000 0 00006 | 5733 | COM | 4F15793 | |||
12664 | 0 40200 0 01407 | 5734 | SUB | L(1) | 4F15794 | ||
12665 | 0 73400 2 00000 | 5735 | PAX | 0,B | 4F15795 | ||
12666 | −0 75400 2 00000 | 5736 | PXD | 0,B | 4F15796 | ||
12667 | 0 60200 0 16167 | 5737 | SLW | CW+3 STORE ARGUMENT BUFFER RELATIVE ADDRESS | 4F15797 | ||
12670 | −0 53400 2 00470 | 5738 | LXD | BK,B | 4F15798 | ||
12671 | −0 50000 2 00470 | 5739 | CAL | FORSUB−1,B | 4F15799 | ||
12672 | −0 32000 0 01452 | 5740 | ANA | MASK2 EXTRACT FUNCTION STATEMENT TYPE | 4F15800 | ||
12673 | −0 50100 0 01503 | 5741 | ORA | P( | 4F15801 | ||
12674 | 0 60200 0 16166 | 5742 | AC0320 | SLW | CW+2 | 4F15802 | |
12675 | 0 02000 4 00001 | 5743 | TRA | 1,C RETURN | 4F15803 | ||
12676 | 0 60000 0 16167 | 5744 | AC0340 | STZ | CW+3 NON-SUBSCRIPTED, REAL VARIABLE | 4F15804 | |
12677 | −0 50000 0 16172 | 5745 | CAL | SYMWRD | 4F15805 | ||
12700 | 0 02000 0 12674 | 5746 | TRA | AC0320 | 4F15806 | ||
12701 | −0 50000 0 01522 | 5747 | AC0350 | CAL | H( | 4F15807 | |
12702 | 0 02000 0 12706 | 5748 | TRA | AC0420 | 4F15808 | ||
12703 | 0 50000 0 01501 | 5749 | AC0390 | CLA | I( FIX PT INTERNAL VARIABLE | 4F15809 | |
12704 | 0 02000 0 12706 | 5750 | TRA | AC0420 | 4F15810 | ||
12705 | 0 50000 0 01502 | 5751 | AC0410 | CLA | A( FLO PT INTERNAL VARIABLE | 4F15811 | |
12706 | 0 60100 0 16166 | 5752 | AC0420 | STO | CW+2 | 4F15812 | |
12707 | −0 77300 0 00006 | 5753 | RQL | 6 | 4F15813 | ||
12710 | −0 60000 0 16167 | 5754 | STQ | CW+3 | 4F15814 | ||
12711 | 0 02000 4 00001 | 5755 | TRA | 1,C RETURN | 4F15815 | ||
12712 | −0 76300 0 00043 | 5756 | AC0460 | LGL | 35 SYMBOL IS SOME S(K). | 4F15816 | |
12713 | 0 73400 2 00000 | 5757 | TDRADD | PAX | 0,B | 4F15817 | |
12714 | −0 50000 2 16174 | 5758 | CAL | CPBETA,B | 4F15818 | ||
12715 | −0 32000 0 01527 | 5759 | ANA | MASK1 EXTRACT PHI(K) | 4F15819 | ||
12716 | 0 60200 0 16167 | 5760 | SLW | CW+3 | 4F15820 | ||
12717 | −0 50000 0 01120 | 5761 | CAL | ARERAS | 4F15821 | ||
12720 | 0 02000 0 12674 | 5762 | TRA | AC0320 | 4F15822 | ||
12721 | 0 60200 0 16170 | 5763 | AC0540 | SLW | TAGWRD SUBSCRIPTED VARIABLE | 4F15823 | |
12722 | 0 56000 0 16170 | 5764 | LDQ | TAGWRD | 4F15824 | ||
12723 | −0 75400 0 00000 | 5765 | PXD | ,0 CLEAR AC. | 4F15825 | ||
12724 | −0 76300 0 00014 | 5766 | LGL | 12 I-TAU TAGS TO AC. | 4F15826 | ||
12725 | 0 60200 0 16167 | 5767 | SLW | CW+3 STORE FOR NEXT CIT ENTRY. | 4F15827 | ||
12726 | 0 16200 0 12731 | 5768 | TQP | *+3 | 4F15828 | ||
12727 | 0 60000 0 16167 | 5769 | STZ | CW+3 | 4F15829 | ||
12730 | −0 50000 0 01454 | 5770 | CAL | 2E18 REPLACE NULL TAG. | 4F15830 | ||
12731 | 0 60200 0 16173 | 5771 | SLW | TAGPRT SAVE FOR LATER USE. | 4F15831 | ||
12732 | −0 76300 0 00001 | 5772 | LGL | 1 | 4F15832 | ||
12733 | −0 75400 0 00000 | 5773 | PXD | ,0 CLEAR AC. | 4F15833 | ||
12734 | −0 76300 0 00010 | 5774 | LGL | 8 FORM TWICE SIGMA TAG. | 4F15834 | ||
12735 | 0 76700 0 00001 | 5775 | ALS | 1 | 4F15835 | ||
12736 | 0 40100 0 00446 | 5776 | ADM | SIG1IX−2 FORM BASE OF TABLE + SIGMA TAG. | 4F15836 | ||
12737 | 0 62100 0 12740 | 5777 | STA | SDRADD | 4F15837 | ||
12740 | −0 75400 0 00000 | 5778 | SDRADD | PXD | **,0 | 4F15838 | |
12741 | 0 76200 0 00302 | 5779 | RDR | 2 | 4F15839 | ||
12742 | 0 46000 0 12740 | 5780 | LDA | SDRADD | 4F15840 | ||
12743 | −0 70000 0 02365 | 5781 | CAD | DUMP | 4F15841 | ||
12744 | 0 76000 0 00006 | 5782 | COM | 4F15842 | |||
12745 | −0 70000 0 02365 | 5783 | CAD | DUMP | 4F15843 | ||
12746 | 0 76000 0 00006 | 5784 | COM | 4F15844 | |||
12747 | 0 10000 0 12751 | 5785 | TZE | *+2 CHECK SUM TEST. | 4F15845 | ||
12750 | 0 07400 4 03400 | 5786 | TSX | DIAG,4 ERROR SIGMA1 CKSUM FAILS | 4F15846 | ||
12751 | −0 50000 0 02365 | 5787 | CAL | DUMP | 4F15847 | ||
12752 | −0 60200 0 16167 | 5788 | ORS | CW+3 ADD RELATIVE ADDRESS TO I-TAU TAG. | 4F15848 | ||
12753 | 0 50000 0 16172 | 5789 | CLA | SYMWRD MOVE VARIABLE NAME FOR NEXT CIT ENTRY. | 4F15849 | ||
12754 | 0 60100 0 16166 | 5790 | STO | CW+2 | 4F15850 | ||
12755 | 0 02000 4 00001 | 5791 | TRA | 1,4 RETURN TO CALLER | 4F15851 | ||
5792 | 4F158511 | ||||||
12756 | 0 07400 4 03401 | 5793 | CP6000 | TSX | FLTR00,4 COMPILE FLOW TRACE INFORMATI0N AND THEN | 4F158512 | |
12757 | 0 00000 0 16164 | 5794 | CW | 4F158513 | |||
12760 | 0 00000 0 16165 | 5795 | CW+1 | 4F158514 | |||
12761 | 0 00000 0 16166 | 5796 | CW+2 | 4F158515 | |||
12762 | 0 00000 0 16167 | 5797 | CW+3 | 4F158516 | |||
12763 | 0 02000 0 12337 | 5798 | TRA | ES0000 | 4F158517 | ||
5799 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F15852 | |||||
12764 | 5800 | ENDD | BSS | 0 | 4F158525 | ||
5801 | 4F15853 | ||||||
16160 | 5802 | ORG | 3184+4096 | 4F15854 | |||
16160 | 5803 | FNSW | BSS | 1 | 4F15855 | ||
16161 | 5804 | P(CNTR | BSS | 1 | 4F15856 | ||
16162 | 5805 | ARGORG | BSS | 1 | 4F15857 | ||
16163 | 5806 | XRSAVE | BSS | 1 | 4F15858 | ||
16164 | 5807 | CW | BSS | 4 | 4F15859 | ||
16170 | 5808 | TAGWRD | BSS | 1 | 4F15860 | ||
16171 | 5809 | OPWORD | BSS | 1 | 4F15861 | ||
16172 | 5810 | SYMWRD | BSS | 1 | 4F15862 | ||
16173 | 5811 | TAGPRT | BSS | 1 | 4F15863 | ||
16174 | 5812 | CPBETA | BSS | 300 | 4F15864 | ||
16650 | 5813 | SCRIPL | BSS | 600 | 4F15865 | ||
5814 | END OF ARITHMETIC / STATE D. | 4F15866 | |||||
5815 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F15867 | |||||
5816 | 4F15868 | ||||||
5817 | SYNONYMS USED BY SECTION ONE. | 4F15869 | |||||
01100 | 5818 | 1E | SYN | ERASE COMMON WORKING STORAGE. | 4F15870 | ||
00004 | 5819 | 1TOCS | SYN | 4 ENTRY TO SYSTEM TAPE MONITOR. | 4F15871 | ||
01101 | 5820 | 2E | SYN | ERASE+1 COMMON WORKING STORAGE. | 4F15872 | ||
01501 | 5821 | 2P | SYN | I( | 4F15873 | ||
01531 | 5822 | 36ONES | SYN | ALL1 | 4F15874 | ||
01102 | 5823 | 3E | SYN | ERASE+2 COMMON WORKING STORAGE. | 4F15875 | ||
01117 | 5824 | 3QBAR | SYN | 3LBAR | 4F15876 | ||
01103 | 5825 | 4E | SYN | ERASE+3 COMMON WORKING STORAGE. | 4F15877 | ||
00001 | 5826 | A | EQU | 1 | 4F15878 | ||
01430 | 5827 | ABLANK | SYN | BLANK | 4F15879 | ||
01376 | 5828 | ACOMMA | SYN | COMMA | 4F15880 | ||
01532 | 5829 | ADD | SYN | L(ADD) | 4F15881 | ||
01400 | 5830 | AEQUAL | SYN | EQUAL | 4F15882 | ||
01375 | 5831 | ALPAR | SYN | OPEN | 4F15883 | ||
06323 | 5832 | ARITH | SYN | STATEB | 4F15884 | ||
01377 | 5833 | ARPAR | SYN | CLOS | 4F15885 | ||
01535 | 5834 | ARS | SYN | L(ARS) | 4F15886 | ||
00002 | 5835 | B | EQU | 2 | 4F15887 | ||
00004 | 5836 | C | EQU | 4 | 4F15888 | ||
01537 | 5837 | CAL | SYN | L(CAL) | 4F15889 | ||
01731 | 5838 | CIT | SYN | CIT00 | 4F15890 | ||
01150 | 5839 | CITMQR | SYN | E1C ERASABLE STORAGE. | 4F15891 | ||
00223 | 5840 | CITTAP | SYN | 147 COMPILED INSTRUCTION TAPE. | 4F15892 | ||
01101 | 5841 | CITXR1 | SYN | ERASE+1 ERASABLE STORAGE. | 4F15893 | ||
01102 | 5842 | CITXR2 | SYN | ERASE+2 ERASABLE STORAGE. | 4F15894 | ||
01544 | 5843 | CPY | SYN | L(CPY) | 4F15895 | ||
01454 | 5844 | D1 | SYN | 2E18 | 4F15896 | ||
01101 | 5845 | D12 | SYN | ERASE+1 COMMON WORKING STORAGE. | 4F15897 | ||
01466 | 5846 | D18 | SYN | DEC18 | 4F15898 | ||
01102 | 5847 | D3 | SYN | ERASE+2 COMMON WORKING STORAGE. | 4F15899 | ||
01546 | 5848 | DED | SYN | L(DED) | 4F15900 | ||
00310 | 5849 | DIM1 | SYN | 0200 DRUM TABLE ORIGIN -DRTABS,DIM.SR. | 4F15905 | ||
00764 | 5850 | DIM2 | SYN | 0500 DRUM TABLE ORIGIN -DRTABS,DIM.SR. | 4F15906 | ||
01440 | 5851 | DIM3 | SYN | 0800 DRUM TABLE ORIGIN -DRTABS,DIM.9R. | 4F15907 | ||
01100 | 5852 | DIMCTR | SYN | ERASE COMMON WORKING STORAGE. | 4F15908 | ||
01500 | 5853 | DMP | SYN | E( | 4F15909 | ||
01100 | 5854 | DOE | SYN | ERASE COMMON WORKING STORAGE. | 4F15910 | ||
01103 | 5855 | DRCKSM | SYN | ERASE+3 COMMON WORKING STORAGE. | 4F15911 | ||
01104 | 5856 | DRMADR | SYN | ERASE+4 ERASABLE STORAGE. | 4F15912 | ||
01413 | 5857 | DRMERC | SYN | L(5) NUMBER OF DRUM READING ATTEMPTS. | 4F15913 | ||
01100 | 5858 | DRSYM | SYN | ERASE COMMON WORKING STORAGE. | 4F15914 | ||
01100 | 5859 | E1TDR | SYN | ERASE COMMON WORKING STORAGE. | 4F15915 | ||
01101 | 5860 | E2C | SYN | ERASE+1 COMMON WORKING STORAGE. | 4F15916 | ||
01101 | 5861 | E2TDR | SYN | ERASE+1 COMMON WORKING STORAGE. | 4F15917 | ||
01102 | 5862 | E3C | SYN | ERASE+2 COMMON WORKING STORAGE. | 4F15918 | ||
01102 | 5863 | E3TDR | SYN | ERASE+2 COMMON WORKING STORAGE. | 4F15919 | ||
01101 | 5864 | EKE | SYN | ERASE+1 COMMON WORKING STORAGE. | 4F15920 | ||
01103 | 5865 | ENONO | SYN | ERASE+3 COMMON WORKING STORAGE. | 4F15921 | ||
01104 | 5866 | FEOD | SYN | ERASE+4 COMMON WORKING STORAGE. | 4F15922 | ||
00002 | 5867 | FIXCON | SYN | 0002 DRUM TABLE ORIGIN -DRTABS. | 4F15923 | ||
00312 | 5868 | FLOCON | SYN | 202 DRUM TABLE ORIGIN -DRTABS. | 4F15924 | ||
00002 | 5869 | FXCODR | SYN | 2 | 4F15925 | ||
01102 | 5870 | H | SYN | ERASE+2 COMMON WORKING STORAGE. | 4F15926 | ||
01522 | 5871 | H( | SYN | ADSPOP | 4F15927 | ||
01554 | 5872 | HPR | SYN | L(HPR) | 4F15928 | ||
01555 | 5873 | LDA | SYN | L(LDA) | 4F15929 | ||
01561 | 5874 | LXD | SYN | L(LXD) | 4F15930 | ||
01373 | 5875 | L(10) | SYN | TEN | 4F15931 | ||
01400 | 5876 | L(11) | SYN | EQUAL | 4F15932 | ||
01420 | 5877 | L(12) | SYN | MINUS | 4F15933 | ||
01454 | 5878 | L(1DI | SYN | 2E18 | 4F15934 | ||
01374 | 5879 | L(63) | SYN | ENDMK | 4F15935 | ||
03440 | 5880 | MEMORG | SYN | 1824 MEMORY ORIGIN FOR ALL STATES. | 4F15936 | ||
01452 | 5881 | MSK | SYN | MASK2 | 4F15937 | ||
03440 | 5882 | MTR000 | SYN | STATEA | 4F15938 | ||
01103 | 5883 | N | SYN | ERASE+3 COMMON WORKING STORAGE. | 4F15943 | ||
01404 | 5884 | PLUS | SYN | 12Z | 4F15945 | ||
01566 | 5885 | PXD | SYN | L(PXD) | 4F15946 | ||
01100 | 5886 | RAXR4 | SYN | ERASE COMMON WORKING STORAGE. | 4F15947 | ||
01226 | 5887 | SIGMA1 | SYN | 0662 DRUM TABLE ORIGIN -DRTABS. | 4F15948 | ||
01101 | 5888 | SR6WRK | SYN | ERASE+1 ERASABLE STORAGE. | 4F15949 | ||
01416 | 5889 | ST | SYN | L(8) | 4F15950 | ||
01571 | 5890 | STA | SYN | L(STA) | 4F15951 | ||
01104 | 5891 | STCKSM | SYN | ERASE+4 COMMON WORKING STORAGE. | 4F15952 | ||
00224 | 5892 | TABTAP | SYN | 148 TABLE TAPE. | 4F15953 | ||
01453 | 5893 | TAG4 | SYN | 2E17 | 4F15954 | ||
00000 | 5894 | TAU1 | SYN | 0000 DRUM TABLE ORIGIN -DRTABS. | 4F15955 | ||
00454 | 5895 | TAU2 | SYN | 0300 DRUM TABLE ORIGIN -DRTABS. | 4F15956 | ||
01356 | 5896 | TAU3 | SYN | 0750 DRUM TABLE ORIGIN -DRTABS. | 4F15957 | ||
01413 | 5897 | TERC | SYN | L(5) TAPE ERROR COUNTER. | 4F15958 | ||
01103 | 5898 | TETMQR | SYN | ERASE+3 ERASABLE STORAGE. | 4F15959 | ||
01102 | 5899 | TETWRK | SYN | ERASE+2 ERASABLE STORAGE. | 4F15960 | ||
01100 | 5900 | TETXR2 | SYN | ERASE ERASABLE STORAGE. | 4F15961 | ||
01101 | 5901 | TETXR4 | SYN | ERASE+1 ERASABLE STORAGE. | 4F15962 | ||
01576 | 5902 | TIX | SYN | L(TIX) | 4F15963 | ||
01504 | 5903 | ZER | SYN | O( | 4F15964 | ||
00000 | 5904 | .. | EQU | 0 | 4F15965 | ||
5905 | END OF SYNONYMS USED BY SECTION ONE. | 4F15966 | |||||
5906 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * | 4F15967 | |||||
5907 | 4F15968 | ||||||
5908 | END OF SECTION ONE. | 4F15969 |