1 2 * S2 00000000 3 S9300 EQU 0 00000000 4 X0 EQU S9300 00000002 5 X2 EQU 2-S9300 D 16400000 6 CAB OPD 016400000 D 16500000 7 CBA OPD 016500000 D 16600000 8 CAX OPD 016600000 D 15700000 9 CXA OPD 015700000 D 17000000 10 CBX OPD 017000000 D 17100000 11 CNA OPD 017100000 D 17200000 12 SKE OPD 017200000 D 17300000 13 SKR OPD 017300000 D 17400000 14 MUL OPD 017400000 D 17500000 15 DIV OPD 017500000 D 17500000 16 ADM OPD 017500000 D 17700000 17 XMA OPD 017700000 00000 0 00 00035 18 $LSYM HLT SM1 00001 19 $MLOC RES 1 00002 20 $SCNX RES 1 00003 21 $LOP RES 1 00004 22 $LITM RES 1 00005 23 $SCIX RES 1 00006 23305101 24 CHR1 TEXT 4,CHR1 00007 23305102 25 CHR2 TEXT 4,CHR2 00010 26 LREF RES 1 00011 23452363 27 CNCT TEXT 4,CNCT 00012 28 TEMP RES 2 * 00014 0 00 00000 29 LLT HLT TPL LOCATION OF LITERAL TABLE PACKET * 00015 0 00 00000 30 LLTR HLT LTR1 LOCATION OF LTR1 * 00016 0 00 00000 31 SCNO HLT SOT SCAN STORAGE LIMIT 00017 32 B1 RES 0 00017 20000000 33 B1 DATA 020000000 00020 70000000 34 A0 DATA 070000000 00021 00007000 35 A4 DATA 07000 00022 00000700 36 A5 DATA 0700 00023 00040000 37 B9 DATA 040000 00024 77000000 38 C0 DATA 077000000 00025 00007700 39 C2 DATA 07700 00026 77007700 40 C02 DATA 077007700 00027 00000105 41 P69 DATA 69 00030 00000057 42 P47 DATA 47 00031 00000011 43 P9 DATA 011 00032 00000005 44 P5 DATA 5 00033 00000202 45 RRM DATA 0202 00034 2 00 37777 46 XADR HLT -1,X2 00035 47 $SM1 RES 1 00036 62440260 48 SM2 TEXT 4,SM2 00037 62440360 49 SM3 TEXT 4,SM3 00040 67257001 50 KEY1 TEXT 4,XEY1 00041 42257002 51 KEY2 TEXT 4,KEY2 00042 43420160 52 LKI TEXT 4,LK1 00043 43424460 53 LKM TEXT 4,LKM 00044 43424760 54 LKP TEXT 4,LKP 00045 43426260 55 LKS TEXT 4,LKS 00046 43426360 56 LKT TEXT 4,LKT 00047 57 SIGN RES 1 00050 58 DPSIGN RES 1 00051 59 BEXP RES 1 00052 60 $SCALE RES 1 00053 61 DEXP RES 1 00054 62 FFLG RES 1 00055 63 MULT1 RES 1 00056 64 MULT2 RES 1 00057 0 00 04522 65 AP HLT PCON PRODUCT CONNECTER 66 KF1 FORM 7,17 67 KF2 FORM 13,11 00060 112 000000 68 K1 KF1 10-0100,0 00061 10144 0000 69 K2 KF2 100-010000,0 00062 00011610 70 K3 DATA 5000 00063 110 000000 71 KF1 010-0100,0 00064 10100 0000 72 KF2 0100-010000,0 00065 00004000 73 DATA 010000/2 00066 74 B23 RES 0 00066 75 ONE RES 0 00066 00000001 76 FIVES DATA 1 00067 00000005 77 DATA 5 00070 00000031 78 DATA 25 00071 00000175 79 DATA 125 00072 00001161 80 DATA 625 00073 00006065 81 DATA 3125 00074 00036411 82 DATA 15625 00075 00230455 83 DATA 78125 00076 01372741 84 DATA 390625 00077 07346545 85 DATA 1953125 00100 86 M2 RES 0 00100 77777776 87 LOM DATA 077777776 00101 00000777 88 FEM DATA 0777 00102 77777000 89 FMM DATA 077777000 00103 00007777 90 MK12 DATA 07777 00104 00770077 91 MK6 DATA 0770077 00105 07070707 92 MK3 DATA 07070707 06000000 93 XYZ OPD 06000000 04000000 94 ITM OPD 04000000 ITEM 02000000 95 CON OPD 02000000 CONNECTER 05400000 96 STM OPD 05400000 SYMBOL,LABEL,ITEM 04600000 97 DTM OPD 04600000 DECIMAL,SYMBOL,ITEM 04700000 98 OTM OPD 04700000 OCTAL,DECIMAL,SYMBOL,ITEM 00106 99 $CTT RES 0 00106 0 47 00443 100 OTM SCO 00107 0 47 00443 101 OTM SCD 1 01 00110 0 47 00443 102 OTM SCD 2 02 00111 0 47 00443 103 OTM SCD 3 03 00112 0 47 00443 104 OTM SCD 4 04 00113 0 47 00443 105 OTM SCD 5 05 00114 0 47 00443 106 OTM SCD 6 06 00115 0 47 00443 107 OTM SCD 7 07 00116 0 47 00443 108 OTM SCD 8 10 00117 0 47 00443 109 OTM SCD 9 11 00120 0 00 00000 110 Z HLT 0 00121 0 00 00077 111 C3 HLT 077 00122 0 40 00577 112 ITM SCA ' 14 00123 40000000 113 B0 DATA 040000000 00124 0 00 00002 114 B22 HLT 2 00125 0 00 00030 115 P24 HLT 24 00126 0 20 03310 116 CON SCON + 20 00127 0 54 00443 117 STM SCS A 21 00130 0 54 00443 118 STM SCS B 22 00131 0 54 00443 119 STM SCS C 23 00132 0 54 00443 120 STM SCS D 24 00133 0 54 00443 121 STM SCS E 25 00134 0 54 00443 122 STM SCS F 26 00135 0 54 00443 123 STM SCS G 27 00136 0 54 00443 124 STM SCS H 30 00137 0 54 00443 125 STM SCS I 31 00140 0 00 00013 126 ECHR HLT '=' 00141 0 00 00040 127 MCHR HLT '-' 00142 0 20 00020 128 CON RCON ) 34 00143 0 00 00007 129 A7 HLT 7 00144 0 00 00003 130 P3 HLT 3 00145 0 00 00100 131 B17 HLT 0100 00146 0 20 03411 132 CON DCON - 40 00147 0 54 00443 133 STM SCS J 41 00150 0 54 00443 134 STM SCS K 42 00151 0 54 00443 135 STM SCS L 43 00152 0 54 00443 136 STM SCS M 44 00153 0 54 00443 137 STM SCS N 45 00154 0 54 00443 138 STM SCS O 45 00155 0 54 00443 139 STM SCS P 47 00156 0 54 00443 140 STM SCS Q 50 00157 0 54 00443 141 STM SCS R 51 00160 0 00 00020 142 PLUS HLT '+' 00161 0 40 00555 143 ITM SCL $ 53 00162 0 60 00555 144 XYZ SCL * 54 00163 0 00 00033 145 PCHR HLT '.' 00164 0 00 00014 146 QCHR HLT 014 00165 0 00 00034 147 RCHR HLT ')' 00166 0 20 00000 148 CON BCON 60 00167 0 20 04647 149 CON QCON / 61 00170 0 54 00443 150 STM SCS S 62 00171 0 54 00443 151 STM SCS T 63 00172 0 54 00443 152 STM SCS L 64 00173 0 54 00443 153 STM SCS V 65 00174 0 54 00443 154 STM SCS W 66 00175 0 54 00443 155 STM SCS X 67 00176 0 54 00443 156 STM SCS Y 70 00177 0 54 00443 157 STM SCS Z 71 00200 0 00 00000 158 HLT 0 00201 0 20 00100 159 CON CCON , 73 00202 0 40 00621 160 ITM SCX ( 74 00203 0 00 00022 161 HB HLT 'B' 00204 0 00 00025 162 HE HLT 'E' 00205 2 00 00000 163 X2W HLT 0,X2 00206 0 00 00000 164 $SCNL HLT 0 * 00207 0 76 00000 165 LDA CHR 00210 0 50 00140 166 SKE ECHR TEST FOR = 00211 0 01 00245 167 BRU SCR1 NOT LITERAL * 00212 0 43 00000 168 BRM GET SKIP = 00213 0 43 00315 169 BRM SCAN 00214 0 43 00216 170 BRM SCNM 00215 0 51 00206 171 BRR SCNL EXIT SCNL 00216 0 00 00000 172 $SCNM HLT 0 * 00217 0 35 00015 173 SCKS STA LTR1 * 00220 0 53 00000 174 SKN PASS 00221 0 51 00216 175 BRR SCNM EXIT 00222 0 76 00015 176 LDA LLTR * 00223 0 36 00000 177 STB LTR2 STORE LITERAL 00224 0 75 00014 178 LDB LLT 00225 0 43 01103 179 BRM SRCH SEARCH FOR LITERAL 00226 0 01 00237 180 BRU SCK2 NOT IN TABLE 00227 2 76 00002 181 LDA 2,X2 LOCATION OF LITERAL 00230 0 75 00120 182 SCK3 LDB Z * 00231 0 72 00000 183 SKA B8 * 00232 0 75 00000 184 LDB RELM * 00233 0 14 00000 185 ETR ADDR * 00234 0 35 00000 186 STA VALU * 00235 0 36 00000 187 STB MODE 00236 0 51 00216 188 BRR SCNM EXIT SCNM * 00237 0 76 00000 189 SCK2 LDA LADD * 00240 0 35 00000 190 STA LTR3 * 00241 0 61 00237 191 MIN LADD INCREMENT LITERAL LOCATION 00242 0 43 01205 192 BRM MOVE INSERT LITERAL IN TABLE * 00243 0 76 00240 193 LDA LTR3 LOCATION OF LITERAL 00244 0 01 00230 194 BRU SCK3 00245 0 43 00247 195 SCR1 BRM SCNR GET EXPRESSION OR REFERENCE 00246 0 51 00206 196 BRR SCNL 00247 0 00 00000 197 SCNR HLT 0 00250 0 43 00315 198 BRM SCAN GET EXPRESSION * 00251 0 76 00000 199 LDA VERR UNDEFINED FLAG 00252 0 73 00120 200 SKG Z 00253 0 01 00313 201 BRU SCR2 ALL SYMBOL DEFINED 00254 0 76 00006 202 LDA CHR1 00255 0 50 00120 203 SKE Z TEST FOR NO CONNECTERS 00256 0 01 00313 204 BRU SCR2 UNDEFINED ITEM 00257 0 76 00120 205 LDA Z REFERENCE * 00260 0 53 00220 206 SKN PASS 00261 0 51 00247 207 BRR SCNR * 00262 0 35 00251 208 STA VERR RESET UNDEFINED FLAG * 00263 0 61 00000 209 MIN XERR SET EXTERNALFLAG 00264 0 76 00000 210 LDA LSYM * 00265 0 75 00000 211 LDB LRT 00266 0 43 01103 212 BRM SRCH SEARCH FOR REFERENCE 00267 0 01 00307 213 BRU SCR3 NOT INTABLE * 00270 0 14 00233 214 SCR4 ETR ADDR * 00271 0 35 00234 215 STA VALU * 00272 0 36 00235 216 STB MODE * 00273 0 76 00000 217 LDA LOC * 00274 0 75 00000 218 LDB REFM * 00275 0 72 00231 219 SKA B8 00276 0 75 00033 220 LDB RRM 00277 2 35 00002 221 STA 2,X2 00300 2 76 00001 222 LDA 1,X2 00301 0 14 02064 223 ETR =077770000 00302 2 36 00001 224 STB 1,X2 00303 2 63 00001 225 ADM 1,X2 * 00304 0 76 00271 226 LDA VALU * 00305 0 75 00272 227 LDB MODE 00306 0 51 00247 228 BRR SCNR EXIT 00307 0 35 00037 229 SCR3 STA SM3 NO PREVIOUS REF 00310 0 43 01205 230 BRM MOVE INSERT REFERENCE 00311 0 46 30003 231 CLR 00312 0 01 00270 232 BRU SCR4 * 00313 0 76 00304 233 SCR2 LDA VALU NO REF OR LIT 00314 0 51 00247 234 BRR SCNR EXIT 00315 0 00 00000 235 $SCAN HLT 0 00316 0 46 30003 236 CLR 00317 0 35 40003 237 STA *LOP 0 TO BASE CONECTER * 00320 0 35 00313 238 STA VALU 0 TO VALUE * 00321 0 35 00305 239 STA MODE 0 TO MODE 00322 0 35 00006 240 STA CHR1 RESET * 00323 0 71 00207 241 LDX CHR,X0 00324 2 75 00106 242 LDB CTT,X2 * 00325 0 43 00000 243 BRM SKB * 00326 0 00 00000 244 HLT IC 00327 0 01 00337 245 BRU SCN1 NOT CONECTER 00330 0 01 00345 246 BRU SCN8 00331 0 61 00003 247 SCN3 MIN LOP INCR OP 00332 0 61 00004 248 MIN LITM INCR ITEM * 00333 0 76 00321 249 LDA MODE 00334 0 35 40003 250 STA *LOP STORE OP * 00335 0 76 00320 251 LDA VALU 00336 0 35 40004 252 STA *LITM STORE ITEM * 00337 0 76 00323 253 SCN1 LDA CHR 00340 0 46 00400 254 CAX 00341 0 43 00431 255 BRM SCI GET NEXT ITEM * 00342 0 35 00335 256 STA VALU * 00343 0 36 00333 257 STB MODE * 00344 0 71 00337 258 LDX CHR,X0 00345 0 43 00660 259 SCN8 BRM SCC GET NEXT CONECTER * 00346 0 35 00343 260 STA MODE 00347 0 75 00021 261 SCN7 LDB A4 HIERARCHY MASK 00350 0 73 40003 262 SKG *LOP MODE IS IN A 00351 0 01 00354 263 BRU SCN2 LEVEL NOT GREATER 00352 0 70 40003 264 SKM *LOP 00353 0 01 00331 265 BRU SCN3 LEVEL GREATER 00354 0 76 40003 266 SCN2 LDA *LOP LAST CONECTER 00355 0 70 00120 267 SKM Z TEST FOR TERMINATER 00356 0 01 00400 268 BRU SCN4 DO OPERATION * 00357 0 76 00346 269 LDA MODE 00360 0 14 00121 270 ETR C3 MASK MODE 00361 0 46 00004 271 CAB MODE TO B 00362 0 76 00002 272 LDA SCNX * 00363 0 50 00000 273 SKE LSXT TEST P LEVEL 00364 0 01 00371 274 BRU SCN11 NOT 0 00365 0 76 00165 275 LDA RCHR * 00366 0 50 00000 276 SKE TERM ERROR IF ) 00367 0 01 00376 277 BRU SCN12 00370 0 01 00373 278 BRU SCN13 00371 0 76 00165 279 SCN11 LDA RCHR * 00372 0 50 00366 280 SKE TERM * 00373 0 61 00000 281 SCN13 MIN PERR SET P ERROR * 00374 0 76 00342 282 SCN14 LDA VALU 00375 0 51 00315 283 BRR SCAN EXIT SCAN 00376 0 43 02041 284 SCN12 BRM GNF SKIP TO NEXT FIELD 00377 0 01 00374 285 BRU SCN14 00400 0 75 00021 286 SCN4 LDB A4 00401 0 70 02065 287 SKM =05000 00402 0 14 00022 288 ETR A5 00403 0 14 02066 289 ETR =01700 00404 0 66 00006 290 RSH 6 00405 0 46 00400 291 CAX OP NUMBER TO X 00406 0 75 40003 292 LDB *LOP 00407 0 02 20001 293 ROV 00410 0 76 40004 294 LDA *LITM 00411 2 01 40412 295 BRU *SCN5,X2 BRANCH TO OP CODE 00412 0 01 00734 296 SCN5 BRU CLS LOSICALSUM 00413 0 01 00752 297 BRU CLD LOGICAL DIFFERENCE 00414 0 01 00754 298 BRU CLP LOGICAL PRODUCT 00415 0 01 00756 299 BRU CAS ARITHMETIC SUM 00416 0 01 00762 300 BRU CAD ARITHMETIC DIFFERENCE 00417 0 01 00770 301 BRU CAP ARITHMETIC PRODUCT 00420 0 01 00776 302 BRU CXQ EXCLUSIVE QUOTIENT 00421 0 01 00774 303 BRU CEQ INCLUSIE QUOTIENT 00422 0 01 01001 304 BRU CDS 00423 0 01 01025 305 BRU CBS * 00424 0 76 00000 306 SCN6 LDA M1 00425 0 63 00003 307 ADM LOP DECR OP 00426 0 63 00004 308 ADM LITM DECR ITEM * 00427 0 76 00357 309 LDA MODE 00430 0 01 00347 310 BRU SCN7 TEST PREVIOUS OP 00431 0 00 00000 311 SCI HLT 0 * 00432 0 75 00326 312 SCI2 LDB IC * 00433 0 43 00325 313 BRM SKB 00434 2 00 00106 314 HLT CTT,X2 00435 0 01 00442 315 BRU SCI1 * 00436 0 61 00000 316 MIN EERR SET EFLAG * 00437 0 43 00212 317 BRM GET SKIP CHAR 00440 0 46 30003 318 CLR 00441 0 51 00431 319 BRR SCI EXIT 00442 2 01 40106 320 SCI1 BRU *CTT,X2 00000443 321 SCS EQU $ 00000443 322 SCO EQU $ 00000443 323 SCD EQU $ 00443 0 75 00143 324 SCIT LDB A7 * 00444 0 36 00000 325 STB CNTR MAX CHARACTER COUNT 00445 0 35 00007 326 STA CHR2 SAVE LEAD CHAR 00446 0 50 00120 327 SKE Z 00447 0 01 00457 328 BRU SCIT7 * 00450 0 43 00437 329 BRM GET SKIP 0 * 00451 0 75 00000 330 LDB SC * 00452 0 43 00433 331 BRM SKB 00453 2 00 00106 332 HLT CTT,X2 00454 0 01 00457 333 BRU SCIT7 VALID SYMBOL CHARACTER 00455 0 46 30003 334 CLR 00456 0 51 00431 335 BRR SCI EXIT WITH ZERO 00457 0 75 00120 336 SCIT7 LDB Z 00460 0 01 00465 337 BRU SCIT1 00461 0 75 00036 338 SCIT3 LDB SM2 00462 0 62 00035 339 XMA SM1 00463 0 67 20006 340 LCY 6 00464 0 16 00035 341 MRG SM1 INSERT NEW CHARACTER 00465 0 35 00035 342 SCIT1 STA SM1 00466 0 36 00036 343 STB SM2 * 00467 0 75 00451 344 LDB SC * 00470 0 43 00000 345 BRM TCHR TEST FOR ALPHANUMERIC 00471 0 01 00474 346 BRU SCIT2 END OF SYMBOLIC ITEM * 00472 0 60 00444 347 SKR CNTR TEST FOR MAX SIZE 00473 0 01 00461 348 BRU SCIT3 00474 0 76 00035 349 SCIT2 LDA SM1 00475 0 16 00036 350 MRG SM2 * 00476 0 72 00000 351 SKA DLY1 TEST ZONE BITS 00477 0 01 00526 352 BRU SCIT4 SYMBOL 00500 0 71 00120 353 LDX Z,X0 00501 0 75 00007 354 LDB CHR2 * 00502 0 43 00452 355 BRM SKB * 00503 0 00 00000 356 HLT OCTF 00504 0 01 00510 357 BRU SCIT21 00505 0 71 00144 358 LDX P3,X0 00506 0 72 02067 359 SKA =010101010 * 00507 0 61 00436 360 MIN EERR 00510 0 76 00036 361 SCIT21 LDA SM2 HIGH ORDER HALF 00511 0 43 01321 362 BRM CNVRT CONVERT 00512 2 64 00062 363 MUL K3,X2 TIMES BASE TO THE 4TH 00513 0 36 00036 364 STB SM2 PARTIAL RESULT 00514 0 50 00120 365 SKE Z * 00515 0 61 00000 366 MIN TERR SET TRUNCATION ERROR 00516 0 76 00035 367 LDA SM1 LOW ORDER HALF 00517 0 43 01321 368 BRM CNVRT CONVERT 00520 0 02 20001 369 ROV 00521 0 55 00036 370 ADD SM2 00522 0 40 20001 371 OVT * 00523 0 61 00515 372 MIN TERR SET TRUNCATION ERROR 00524 0 75 00120 373 LDB Z 0 TO MODE 00525 0 51 00431 374 BRR SCI EXIT 00526 0 76 00035 375 SCIT4 LDA SM1 00527 0 75 00036 376 LDB SM2 00530 0 01 00533 377 BRU SCIT5 00531 0 67 20006 378 SCIT6 LCY 6 ADDUST * 00532 0 16 00000 379 MRG BCHR INSERT BLANK * 00533 0 60 00472 380 SCIT5 SKR CNTR TEST FOR SYMBOL ADJUSTED 00534 0 01 00531 381 BRU SCIT6 00535 0 14 02064 382 ETR =077770000 00536 0 35 00036 383 STA SM2 00537 0 36 00035 384 STB SM1 00540 0 76 00000 385 LDA LSYM LOCATION OF SYMBOL * 00541 0 75 00000 386 LDB LST LOCATION OF SYMBOL TABLE 00542 0 43 01103 387 BRM SRCH SEARCH * 00543 0 61 00262 388 MIN VERR NOT FOUND 00544 0 46 00014 389 XAB 00545 0 72 00145 390 SKA B17 * 00546 0 61 00000 391 MIN DERR 00547 0 14 00121 392 ETR C3 SAVE MODE 00550 0 46 00014 393 XAB * 00551 0 43 00502 394 BRM SKB * 00552 0 00 00232 395 HLT RELM * 00553 0 14 00270 396 ETR ADDR 00554 0 51 00431 397 BRR SCI EXIT * 00555 0 76 00344 398 SCL LDA CHR * 00556 0 50 00000 399 SKE SCHR TEST FOR * 00557 0 01 00570 400 BRU SCL1 $ IS ALWAYS LOCATION COUNTER * 00560 0 43 00450 401 BRM GET 00561 0 46 00400 402 CAX * 00562 0 75 00000 403 LDB CC * 00563 0 43 00551 404 BRM SKB 00564 2 00 00106 405 HLT CTT,X2 00565 0 01 00571 406 BRU SCL2 * 00566 0 61 00000 407 MIN IFLG 00567 0 01 00432 408 BRU SCI2 * 00570 0 43 00560 409 SCL1 BRM GET * 00571 0 76 00273 410 SCL2 LDA LOC 00572 0 75 00120 411 LDB Z * 00573 0 72 00275 412 SKA B8 * 00574 0 75 00552 413 LDB RELM * 00575 0 14 00553 414 ETR ADDR 00576 0 51 00431 415 BRR SCI EXIT 00577 0 76 00120 416 SCA LDA Z 00600 0 01 00610 417 BRU SCA2 * 00601 0 76 00374 418 SCA1 LDA VALU 00602 0 72 00024 419 SKA C0 * 00603 0 61 00523 420 MIN TERR 00604 0 72 00024 421 SKA C0 00605 0 01 00615 422 BRU SCA3 00606 0 67 00006 423 LSH 6 * 00607 0 16 00555 424 MRG CHR INSERT NEW CHAR * 00610 0 35 00601 425 SCA2 STA VALU * 00611 0 43 00570 426 BRM GET GET CHAR 00612 0 75 00120 427 LDB Z 00613 0 50 00164 428 SKE QCHR TEST FOR QUOTE 00614 0 01 00601 429 BRU SCA1 * 00615 0 43 00611 430 SCA3 BRM GET 00616 0 75 00120 431 LDB Z * 00617 0 76 00610 432 LDA VALU 00620 0 51 00431 433 BRR SCI EXIT 00621 0 76 00016 434 SCX LDA SCNO 00622 0 73 00002 435 SKG SCNX 00623 0 01 00651 436 BRU SCX1 TOO MANY LEYELS 00624 0 76 00315 437 LDA SCAN 00625 0 35 40002 438 STA *SCNX SAVE EXIT 00626 0 76 00431 439 LDA SCI 00627 0 35 40005 440 STA *SCIX 00630 0 61 00005 441 MIN SCIX 00631 0 61 00002 442 MIN SCNX INCR 00632 0 61 00003 443 MIN LOP 00633 0 61 00004 444 MIN LITM * 00634 0 43 00615 445 BRM GET SKIP ( 00635 0 43 00315 446 BRM SCAN GET SUB-EXPRESSION * 00636 0 76 00424 447 LDA M1 00637 0 63 00002 448 ADM SCNX DECR 00640 0 63 00003 449 ADM LOP 00641 0 63 00004 450 ADM LITM 00642 0 63 00005 451 ADM SCIX 00643 0 76 40005 452 LDA *SCIX 00644 0 35 00431 453 STA SCI 00645 0 76 40002 454 LDA *SCNX 00646 0 35 00315 455 STA SCAN RESTORE EXIT * 00647 0 76 00617 456 LDA VALU 00650 0 51 00431 457 BRR SCI EXIT * 00651 0 61 00373 458 SCX1 MIN PERR SET P FLAG * 00652 0 43 00634 459 SCX2 BRM GET 00653 0 50 00165 460 SKE RCHR 00654 0 01 00652 461 BRU SCX2 SKIP SUB+EXPRESSIDN * 00655 0 43 00652 462 BRM GET SKIP ) 00656 0 46 30003 463 CLR 00657 0 51 00431 464 BRR SCI EXIT 00660 0 00 00000 465 SCC HLT 0 * 00661 0 75 00562 466 LDB CC * 00662 0 43 00563 467 BRM SKB 00663 2 00 00106 468 HLT CTT,X2 00664 0 01 00672 469 BRU SCC1 * 00665 0 35 00372 470 STA TERM * 00666 0 61 00507 471 MIN EERR SET E FLAG * 00667 0 43 00655 472 BRM GET SKIP CHAR * 00670 0 76 00427 473 LDA MODE 00671 0 51 00660 474 BRR SCC EXIT 00672 0 46 00200 475 SCC1 CXA * 00673 0 50 00556 476 SKE SCHR CONECTER IS AP IF * 00674 0 01 00711 477 BRU SCC7 00675 0 35 00006 478 STA CHR1 * 00676 0 43 00667 479 BRM GET 00677 0 50 02070 480 SKE ='+' 00700 0 01 00703 481 BRU SCC5 00701 0 75 02065 482 LDB =05000 00702 0 01 00732 483 BRU SCC8 00703 0 75 00057 484 SCC5 LDB AP 00704 0 36 00011 485 STB CNCT 00705 0 50 02071 486 SKE ='/' 00706 0 01 00727 487 BRU SCC6 00707 0 75 02072 488 LDB =05100 00710 0 01 00732 489 BRU SCC8 00711 2 75 00106 490 SCC7 LDB CTT,X2 00712 0 36 00011 491 STB CNCT SAVE CONECTER * 00713 0 43 00662 492 BRM SKB 00714 0 00 00021 493 HLT A4 00715 0 01 00724 494 BRU SCC2 NOT TERMTNATER * 00716 0 37 00665 495 STX TERM,X0 SAVE TERMINATER * 00717 0 43 00676 496 SCC4 BRM GET POSITION AT NEXT CHAR 00720 0 76 00011 497 SCC3 LDA CNCT 00721 0 14 00025 498 ETR C2 EXTRACT CONNECTER * 00722 0 16 00670 499 MRG MODE 00723 0 51 00660 500 BRR SCC EXIT 00724 0 35 00006 501 SCC2 STA CHR1 SAVE CHAR * 00725 0 43 00717 502 BRM GET GET NEXT CHAR 00726 0 75 00011 503 LDB CNCT 00727 0 50 00006 504 SCC6 SKE CHR1 00730 0 01 00720 505 BRU SCC3 00731 0 67 00006 506 LSH 6 USE ALTERNATE CONNECTER 00732 0 36 00011 507 SCC8 STB CNCT 00733 0 01 00717 508 BRU SCC4 * 00734 0 16 00647 509 CLS MRG VALU V = L++V * 00735 0 35 00734 510 CLS1 STA VALU * 00736 0 76 00722 511 LDA MODE 00737 0 16 40003 512 MRG *LOP ERROR IF EITHER ARE REL * 00740 0 72 00574 513 CLS2 SKA RELM * 00741 0 61 00000 514 MIN RERR 00742 0 40 20001 515 OVT * 00743 0 61 00603 516 MIN TERR SET TRUNCATION ERROR * 00744 0 76 00736 517 LDA MODE * 00745 0 17 00740 518 EOR RELM 00746 0 46 00014 519 XAB * 00747 0 72 00745 520 SKA RELM * 00750 0 36 00744 521 STB MODE 00751 0 01 00424 522 BRU SCN6 * 00752 0 17 00735 523 CLD EOR VALU V=L--V 00753 0 01 00735 524 BRU CLS1 * 00754 0 14 00752 525 CLP ETR VALU V=L**V 00755 0 01 00735 526 BRU CLS1 * 00756 0 63 00754 527 CAS ADM VALU V=L+V * 00757 0 76 00750 528 LDA MODE 00760 0 14 40003 529 ETR *LOP ERROR IF BOTH ARE REL 00761 0 01 00740 530 BRU CLS2 * 00762 0 54 00756 531 CAD SUB VALU * 00763 0 35 00762 532 STA VALU V=L-V 00764 0 76 40003 533 LDA *LOP * 00765 0 17 00636 534 EOR M1 COMPLEMENT OF UMODE * 00766 0 14 00757 535 ETR MODE ERROR IF V REL AND U NOT 00767 0 01 00740 536 BRU CLS2 ERROR IF V IS REL * 00770 0 64 00763 537 CAP MUL VALU 00771 0 67 00027 538 LSH 23 V=L*Y 00772 0 75 40003 539 CAP1 LDB *LOP RESTORE B 00773 0 01 00735 540 BRU CLS1 * 00774 0 55 00765 541 CEQ ADD M1 * 00775 0 55 00770 542 ADD VALU L+V-1 00776 0 66 00027 543 CXQ RSH 23 * 00777 0 65 00775 544 DIV VALU L/V OR (L+Y-1)/V 01000 0 01 00772 545 BRU CAP1 * 01001 0 76 00777 546 CDS LDA VALU * 01002 0 73 00774 547 SKG M1 01003 0 46 01000 548 CNA 01004 0 73 00031 549 SKG P9 01005 0 01 01007 550 BRU $+2 * 01006 0 61 00743 551 MIN TERR 01007 0 46 00400 552 CAX 01010 0 75 00120 553 LDB Z 01011 0 02 20001 554 ROV 01012 2 76 00066 555 LDA FIVES,X2 01013 2 67 00000 556 LSH 0,X2 01014 0 40 20001 557 OVT * 01015 0 61 01006 558 MIN TERR * 01016 0 62 01001 559 XMA VALU * 01017 0 73 01002 560 SKG M1 01020 0 01 01023 561 BRU CDS1 01021 0 76 40004 562 LDA *LITM 01022 0 01 00770 563 BRU CAP 01023 0 76 40004 564 CDS1 LDA *LITM 01024 0 01 00776 565 BRU CXQ * 01025 0 76 01016 566 CBS LDA VALU * 01026 0 53 01025 567 SKN VALU 01027 0 01 01043 568 BRU CBS1 01030 0 46 01000 569 CNA 01031 0 46 00400 570 CAX 01032 0 75 00120 571 LDB Z 01033 0 76 40004 572 LDA *LITM 01034 2 66 00000 573 RSH 0,X2 * 01035 0 43 00713 574 BRM SKB * 01036 0 00 01017 575 HLT M1 01037 0 73 40004 576 SKG *LITM 01040 0 01 00772 577 BRU CAP1 01041 0 55 00066 578 ADD ONE 01042 0 01 00772 579 BRU CAP1 01043 0 46 00400 580 CBS1 CAX 01044 0 75 00120 581 LDB Z 01045 0 76 40004 582 LDA *LITM 01046 2 67 00000 583 LSH 0,X2 01047 0 01 00772 584 BRU CAP1 01050 0 00 00000 585 $SYM HLT 0 01051 0 75 00120 586 LDB Z 01052 0 35 00035 587 SYM2 STA SM1 01053 0 36 00036 588 STB SM2 * 01054 0 75 00467 589 LDB SC * 01055 0 43 00470 590 BRM TCHR TEST FOR SYMBOL CHAR 01056 0 01 01067 591 BRU SYM1 END SYMBOL 01057 0 75 00036 592 LDB SM2 01060 0 62 00035 593 XMA SM1 * 01061 0 43 01035 594 BRM SKB 01062 0 00 00025 595 HLT C2 01063 0 01 01077 596 BRU SYM3 01064 0 67 20006 597 LCY 6 01065 0 16 00035 598 MRG SM1 01066 0 01 01052 599 BRU SYM2 01067 0 75 00036 600 SYM1 LDB SM2 01070 0 76 00035 601 LDA SM1 * 01071 0 43 01061 602 SYM4 BRM SKB 01072 0 00 00025 603 HLT C2 01073 0 01 01077 604 BRU SYM3 01074 0 67 20006 605 LCY 6 * 01075 0 16 00532 606 MRG BCHR 01076 0 01 01071 607 BRU SYM4 01077 0 66 20014 608 SYM3 RCY 12 01100 0 35 00035 609 STA SM1 01101 0 36 00036 610 STB SM2 01102 0 51 01050 611 BRR SYM EXIT 01103 0 00 00000 612 $SRCH HLT 0 01104 0 35 00042 613 STA LKI SAVE ITEM LOC 01105 0 36 00046 614 STB LKT SAVE PACKET LOC 01106 0 46 00400 615 CAX LOC OF ITEM 01107 2 76 00000 616 LDA 0,X2 01110 0 35 00040 617 STA KEY1 01111 2 76 00001 618 LDA 1,X2 01112 0 46 00020 619 CBX 01113 2 14 00003 620 ETR 3,X2 01114 0 35 00041 621 STA KEY2 STORE KEY 01115 2 76 00000 622 LDA 0,X2 T = END OF TABLE 01116 0 35 00045 623 STA LKS S=T 01117 2 76 00001 624 LDA 1,X2 F = LOC OF 1ST ITEM 01120 2 75 00003 625 LDB 3,X2 01121 0 36 00043 626 STB LKM MASK FOR 2ND KEY WORD 01122 2 75 00002 627 LDB 2,X2 I = INITIAL INCR 01123 0 01 01132 628 BRU LK1 01124 0 66 00001 629 LK3 RSH 1 01125 2 76 00000 630 LDA 0,X2 K(X) 01126 0 73 00040 631 SKG KEY1 COMPARE WITH K(L) 01127 0 01 01142 632 BRU LK2 K(L) GREATER OR EQUAL 01130 0 46 00010 633 LK7 CBA 01131 0 55 00045 634 ADD LKS 01132 0 46 00400 635 LK1 CAX 01133 0 76 00120 636 LDA Z * 01134 0 43 01071 637 BRM SKB 01135 0 00 00100 638 HLT M2 01136 0 01 01124 639 BRU LK3 01137 0 46 30003 640 CLR NOT FOUND 01140 0 71 00045 641 LDX LKS,X0 01141 0 01 01153 642 BRU LK5 01142 0 50 00040 643 LK2 SKE KEY1 01143 0 01 01155 644 BRU LK4 KEYS NOT EQUAL 01144 2 76 00001 645 LDA 1,X2 2ND WORD OF KEY 01145 0 14 00043 646 ETR LKM MASK OUT MODE 01146 0 50 00041 647 SKE KEY2 TEST FOR EQUAL KEYS 01147 0 01 01154 648 BRU LK6 KEYS NOT EQUAL 01150 0 61 01103 649 MIN SRCH TAPE FOUND EX1T 01151 2 75 00001 650 LDB 1,X2 MODE 01152 2 76 00002 651 LDA 2,X2 VALUE 01153 0 51 01103 652 LK5 BRR SRCH EXIT 01154 0 73 00041 653 LK6 SKG KEY2 COMPARE 2ND WORDS 01155 0 37 00045 654 LK4 STX LKS,X0 K(L) GREATER, S = X 01156 0 01 01130 655 BRU LK7 01157 0 00 00000 656 $NSRT HLT 0 01160 0 43 01103 657 BRM SRCH SEARCH FOR ITEM 01161 0 01 01201 658 BRU NS3 NOT FOUND 01162 0 61 00042 659 MIN LKI 01163 0 76 40042 660 LDA *LKI 01164 0 61 00042 661 MIN LKI 01165 0 75 40042 662 LDB *LKI 01166 2 50 00001 663 SKE 1,X2 01167 0 01 01174 664 BRU NS1 1ST WORD NOT EQUAL 01170 0 46 00014 665 XAB 01171 2 50 00002 666 SKE 2,X2 01172 0 01 01174 667 BRU NS1 2ND WORDS NOT EQUAL 01173 0 51 01157 668 BRR NSRT EXIT * 01174 0 76 00000 669 NS1 LDA DUPM 01175 2 16 00001 670 MRG 1,X2 SET DUP FLAG 01176 2 35 00001 671 STA 1,X2 * 01177 0 61 00546 672 MIN DERR SET DUP ERROR 01200 0 51 01157 673 BRR NSRT EXIT 01201 0 43 01205 674 NS3 BRM MOVE MOVE ITEM TO TABLE 01202 0 51 01157 675 BRR NSRT EXIT * 01203 0 61 00000 676 OFLO MIN OERR 01204 0 51 01205 677 BRR MOVE 01205 0 00 00000 678 MOVE HLT 0 01206 0 76 00144 679 LDA P3 * 01207 0 63 00000 680 ADM LIMT -(M-3) TO M * 01210 0 53 01207 681 SKN LIMT 01211 0 01 01203 682 BRU OFLO 01212 0 37 00044 683 STX LKP,X0 SAVE P 01213 0 71 00046 684 LDX LKT,X0 PACKET LOCATION 01214 0 76 00205 685 LDA X2W CONSTRUCTION INDIRECT WORD 01215 0 16 00044 686 MRG LKP P,X2 01216 2 53 00005 687 SKN 5,X2 TYPE (UP OR DOWN) 01217 0 01 01274 688 BRU MOV1 MOVE UP 01220 0 35 00043 689 STA LKM P,X2 (TO) 01221 0 55 00144 690 ADD P3 P+3,X2 (FORM) 01222 0 35 00045 691 STA LKS P+3,X2 IFORM) 01223 2 76 00000 692 LDA 0,X2 B 01224 0 54 00044 693 SUB LKP NO, OF WORDS TO MOYE 01225 0 55 02073 694 ADD =0177777 01226 0 46 00400 695 CAX 01227 0 01 01232 696 BRU MOV2 01230 0 76 40045 697 MOV3 LDA *LKS 01231 0 35 40043 698 STA *LKM MOVE ONE WORD DOWN 01232 0 41 01230 699 MOV2 BRX MOV3,X0 01233 0 71 02074 700 MV1 LDX =00200000-3,X0 01234 0 76 00045 701 LDA LKS 01235 0 54 00144 702 SUB P3 01236 0 35 00044 703 STA LKP LOCATIONOF INSERTED ITEM 01237 0 76 40042 704 MOV4 LDA *LKI 01240 0 35 40045 705 STA *LKS INSERT NEW ITEM 01241 0 61 00042 706 MIN LKI 01242 0 41 01237 707 BRX MOV4,X0 01243 0 71 00046 708 LDX LKT,X0 PACKET LOCATION 01244 0 76 00144 709 LDA P3 01245 2 63 00004 710 ADM 4,X2 N+3 TO N 01246 2 76 00002 711 LDA 2,X2 M 01247 2 73 00004 712 SKG 4,X2 M:N 01250 0 01 01263 713 BRU MOV5 M=N 01251 2 53 00005 714 SKN 5,X2 TYPE 01252 0 01 01257 715 BRU MOV8 UP TABLE 01253 2 76 00000 716 LDA 0,X2 01254 0 54 00144 717 MV2 SUB P3 01255 2 35 00000 718 STA 0,X2 B-3 TO B 01256 0 01 01261 719 BRU MV3 01257 0 76 00144 720 MOV8 LDA P3 01260 2 63 00001 721 ADM 1,X2 F+3 TO F 01261 0 71 00044 722 MV3 LDX LKP,X0 LOCATION OF INSERTED ITEM 01262 0 51 01205 723 BRR MOVE EXIT 01263 0 75 00120 724 MOV5 LDB Z 01264 2 55 00004 725 ADD 4,X2 M+N TO M 01265 2 35 00002 726 STA 2,X2 01266 2 36 00004 727 STB 4,X2 0 TO N 01267 2 76 00000 728 LDA 0,X2 B 01270 2 53 00005 729 SKN 5,X2 01271 0 55 00144 730 ADD P3 B + 3 TO B 01272 2 35 00001 731 STA 1,X2 B TO F 01273 0 01 01254 732 BRU MV2 01274 0 55 00124 733 MOV1 ADD B22 01275 0 14 00034 734 ETR XADR CONSTRUCT INDIRECT WORD 01276 0 35 00045 735 STA LKS P+2,X2 (FROM) 01277 0 55 00144 736 ADD P3 01300 0 35 00043 737 STA LKM P+5,X2 (TO) 01301 2 76 00000 738 LDA 0,X2 B 01302 2 55 00002 739 ADD 2,X2 B+M 01303 2 55 00004 740 ADD 4,X2 B+M+N 01304 0 54 00044 741 SUB LKP B+M+N-P 01305 0 73 00120 742 SKG Z NO OF WORDS TO MOVE 01306 0 01 01315 743 BRU MOV6 0 WORDS 01307 0 16 02075 744 MRG =040000*/S9300 01310 0 46 00400 745 CAX 01311 0 76 40045 746 MOV7 LDA *LKS 01312 0 35 40043 747 STA *LKM MOVE ONE WORD UP 3 01313 2 77 37776 748 EAX -2,X2 01314 0 41 01311 749 BRX MOV7,X0 01315 0 76 00043 750 MOV6 LDA LKM P+5,X2 01316 0 55 00066 751 ADD B23 P+6,X2 01317 0 35 00045 752 STA LKS 01320 0 01 01233 753 BRU MV1 01321 0 00 00000 754 CNVRT HLT 0 * 01322 0 35 01026 755 STA VALU 01323 0 14 00026 756 ETR C02 MASK 1ST AND 3RD CHARACTERS 01324 2 64 00060 757 MUL K1,X2 T1MES BASE - 64 * 01325 0 55 01322 758 ADD VALU * 01326 0 35 01325 759 STA VALU 01327 0 14 02064 760 ETR =077770000 01330 2 64 00061 761 MUL K2,X2 TIMES BASE SQUARED - 4096 * 01331 0 55 01326 762 ADD VALU RESULT 01332 0 51 01321 763 BRR CNVRT EXIT 01333 0 00 00000 764 SSIGN HLT 0 * 01334 0 76 00607 765 LDA CHR * 01335 0 35 00716 766 STA TERM 01336 0 75 00120 767 LDB Z 01337 0 36 00047 768 STB SIGN + TO SIGN 01340 0 50 00141 769 SKE MCHR TEST FOR - 01341 0 01 01345 770 BRU SSIGN1 * 01342 0 75 01036 771 LDB M1 01343 0 36 00047 772 STB SIGN - TO SIGN 01344 0 01 01347 773 BRU SSIGN2 01345 0 50 00160 774 SSIGN1 SKE PLUS TEST FOR + 01346 0 01 01350 775 BRU SSIGN3 * 01347 0 43 00725 776 SSIGN2 BRM GET SKIP + OR - 01350 0 51 01333 777 SSIGN3 BRR SSIGN EXIT 01351 0 00 00000 778 DPMT HLT 0 * 01352 0 36 00000 779 STB WORD LOW 01353 0 64 00032 780 MUL P5 10*HOW TO B * 01354 0 76 01352 781 LDA WORD LOW * 01355 0 36 01354 782 STB WORD 01356 0 66 20001 783 RCY 1 MUL CLEARS B23 01357 0 64 02076 784 MUL =10 01360 0 02 20001 785 ROV * 01361 0 55 01355 786 ADD WORD 10*HIGH + CARRY 01362 0 40 20001 787 OVT * 01363 0 61 01015 788 MIN TERR SET TRUNCATION ERROR 01364 0 51 01351 789 BRR DPMT EXIT 01365 0 00 00000 790 DPA HLT 0 01366 0 35 00012 791 STA TEMP * 01367 0 76 00000 792 LDA WRD2 01370 0 14 00100 793 ETR M2 01371 0 66 00001 794 RSH 1 01372 0 14 02077 795 ETR =037777777 01373 0 36 00013 796 STB TEMP+1 01374 0 55 00013 797 ADD TEMP+1 01375 0 66 00027 798 RSH 23 01376 0 14 00066 799 ETR ONE 01377 0 02 20001 800 ROV 01400 0 55 00012 801 ADD TEMP * 01401 0 55 00000 802 ADD WRD1 01402 0 40 20001 803 OVT * 01403 0 61 01363 804 MIN TERR SET TRUNCATION ERROR 01404 0 51 01365 805 BRR DPA EXIT 01405 0 00 00000 806 DPNM HLT 0 * 01406 0 76 01401 807 LDA WRD1 * 01407 0 75 01367 808 LDB WRD2 * 01410 0 36 01361 809 STB WORD X2 01411 0 64 00055 810 MUL MULT1 * 01412 0 62 01406 811 XMA WRD1 X1 TO A, SAVE H * 01413 0 36 01407 812 STB WRD2 SAVE L 01414 0 64 00056 813 MUL MULT2 01415 0 66 00027 814 RSH 23 01416 0 14 00066 815 ETR ONE 01417 0 43 01365 816 BRM DPA AB + HL TO AB * 01420 0 35 01412 817 STA WRD1 SAVE H * 01421 0 36 01413 818 STB WRD2 SAVEL * 01422 0 76 01410 819 LDA WORD X2 01423 0 66 00001 820 RSH 1 01424 0 14 02077 821 ETR =037777777 01425 0 64 00055 822 MUL MULT1 01426 0 66 00027 823 RSH 23 01427 0 14 00066 824 ETR ONE 01430 0 43 01365 825 BRM DPA AB + HL TO AB * 01431 0 35 01420 826 STA WRD1 * 01432 0 36 01421 827 STB WRD2 01433 0 51 01405 828 BRR DPNM EXIT 01434 0 00 00000 829 $DPW HLT 0 01435 0 76 00052 830 LDA SCALE 01436 0 35 00051 831 STA BEXP SCALING (IF NOT SPECIFIED 01437 0 75 00120 832 LDB Z * 01440 0 36 01431 833 STB WRD1 CLEAR HOW * 01441 0 36 01432 834 STB WRD2 CLEAR LOW * 01442 0 75 01342 835 LDB M1 01443 0 36 00054 836 STB FFLG RESET FLOATING FLAG 01444 0 36 00053 837 STB DEXP -1 TO DECIMAL EXPONNET 01445 0 43 01333 838 BRM SSIGN SET SIGN 01446 0 75 00047 839 LDB SIGN 01447 0 36 00050 840 STB DPSIGN SET DP SIGN 01450 0 50 00163 841 DPW3 SKE PCHR TEST FOR . 01451 0 01 01472 842 BRU DPW4 01452 0 61 00054 843 MIN FFLG SET FLOAT FLAG 01453 0 01 01465 844 BRU DPW2 * 01454 0 55 01334 845 DPW1 ADD CHR 2*CHR TO A * 01455 0 62 01441 846 XMA WRD2 2*CHR TO L 01456 0 46 20005 847 ABC L TO B * 01457 0 62 01440 848 XMA WRD1 H TO A, 0 TO H 01460 0 43 01351 849 BRM DPMT 10*AB TO AB 01461 0 43 01365 850 BRM DPA 10*AB+CHR TO AB * 01462 0 35 01457 851 STA WRD1 SAVE H * 01463 0 36 01455 852 STB WRD2 SAVE L 01464 0 53 00053 853 SKN DEXP SKIP UNLESS PERIOED SEEN 01465 0 61 00053 854 DPW2 MIN DEXP INCR DECIMAL EXPONENT * 01466 0 75 00000 855 LDB DC * 01467 0 43 01055 856 BRM TCHR TEST FOR DECIMAL DIGIT 01470 0 01 01450 857 BRU DPW3 01471 0 01 01454 858 BRU DPW1 01472 0 46 00400 859 DPW4 CAX * 01473 0 75 01466 860 LDB DC * 01474 0 43 01134 861 BRM SKB 01475 2 00 00106 862 HLT CTT,X2 01476 0 01 01454 863 BRU DPW1 01477 0 76 00120 864 LDA Z 01500 0 53 00053 865 SKN DEXP TEST FOR PERIOD 01501 0 54 00053 866 SUB DEXP DECIMAL EXPONENT 01502 0 35 00053 867 STA DEXP * 01503 0 76 01454 868 LDA CHR 01504 0 50 00204 869 DECK2 SKE HE 01505 0 01 01512 870 BRU DECK3 * 01506 0 43 01347 871 BRM GET 01507 0 43 02007 872 BRM DECW 01510 0 63 00053 873 DECK6 ADM DEXP * 01511 0 76 01503 874 LDA CHR 01512 0 50 00203 875 DECK3 SKE HB 01513 0 01 01524 876 BRU DECK4 * 01514 0 43 01506 877 BRM GET 01515 0 43 02007 878 BRM DECW 01516 0 46 01000 879 CNA 01517 0 35 00051 880 DECK8 STA BEXP * 01520 0 76 01442 881 LDA M1 01521 0 35 00054 882 STA FFLG * 01522 0 76 01511 883 LDA CHR 01523 0 01 01504 884 BRU DECK2 01524 0 50 02100 885 DECK4 SKE ='*' 01525 0 01 01543 886 BRU DECK5 * 01526 0 43 01514 887 BRM GET 01527 0 50 00020 888 SKE '+' 01530 0 01 01535 889 BRU DECK7 * 01531 0 43 01526 890 BRM GET 01532 0 43 00431 891 BRM SCI 01533 0 63 00053 892 ADM DEXP 01534 0 01 01503 893 BRU DECK2-1 01535 0 50 02071 894 DECK7 SKE ='/' 01536 0 01 01543 895 BRU DECK5 * 01537 0 43 01531 896 BRM GET 01540 0 43 00431 897 BRM SCI 01541 0 55 00051 898 ADD BEXP 01542 0 01 01517 899 BRU DECK8 * 01543 0 76 01462 900 DECK5 LDA WRD1 * 01544 0 75 01463 901 LDB WRD2 01545 0 71 00120 902 LDX Z,X0 01546 0 67 10056 903 NOD 46 NORMALIIE * 01547 0 35 01543 904 STA WRD1 * 01550 0 36 01544 905 STB WRD2 01551 0 46 00200 906 CXA 01552 0 67 20011 907 LCY 9 01553 0 66 00011 908 RSH 9 01554 0 73 02101 909 SKG =-46 01555 0 76 02101 910 LDA =-46 01556 0 53 00053 911 SKN DEXP 01557 0 55 00125 912 ADD P24 01560 0 63 00051 913 ADM BEXP MODIFY B1NARY EXPONENT 01561 0 53 00053 914 SKN DEXP TEST SIGN OF DECIMAL EXPONENT 01562 0 01 01655 915 BRU DPW5A 01563 0 46 30003 916 CLR 01564 0 54 00053 917 SUB DEXP 01565 0 01 01571 918 BRU DPW9 01566 0 76 02101 919 DPW91 LDA =-46 01567 0 63 00051 920 ADM BEXP 01570 0 76 00053 921 LDA DEXP 01571 0 75 00120 922 DPW9 LDB Z 01572 0 36 00053 923 STB DEXP 0 TO D 01573 0 73 00031 924 SKG P9 TEST RANGE 01574 0 01 01600 925 BRU DPW6 01575 0 54 00031 926 SUB P9 01576 0 35 00053 927 STA DEXP D-9 TO D 01577 0 76 00031 928 LDA P9 01600 0 46 00400 929 DPW6 CAX 01601 0 46 01000 930 CNA 01602 0 63 00051 931 ADM BEXP MODIFY BINARY EXPONENT 01603 2 75 00066 932 LDB FIVES,X2 POWER OF 5 01604 0 76 00120 933 LDA Z 01605 0 71 00120 934 LDX Z,X0 01606 0 67 10056 935 NOD 46 NORMALIZE POWER OF F1VE * 01607 0 35 01422 936 STA WORD 01610 0 46 00200 937 CXA 01611 0 67 20011 938 LCY 9 01612 0 66 00011 939 RSH 9 01613 0 46 01000 940 CNA 01614 0 63 00051 941 ADM BEXP BINARY EXPONENT 01615 0 76 00017 942 LDA B1 01616 0 75 00120 943 LDB Z * 01617 0 65 01607 944 DIV WORD 01620 0 35 00055 945 STA MULT1 1ST WORD OF RECIPRICAL 01621 0 46 10012 946 BAC * 01622 0 65 01617 947 DIV WORD 01623 0 55 00066 948 ADD ONE 01624 0 35 00056 949 STA MULT2 2ND WORD OF RECIPRICAL 01625 0 43 01405 950 BRM DPNM DATA TIMES POWER OF 5 01626 0 76 00053 951 LDA DEXP 01627 0 50 00120 952 SKE Z TEST FOR DECIMAL SCALING DONE 01630 0 01 01566 953 BRU DPW91 * 01631 0 76 01547 954 DPW10 LDA WRD1 01632 0 53 00054 955 SKN FFLG TEST FOR FLOATING PO1NT 01633 0 01 01706 956 BRU DPF 01634 0 02 20001 957 ROV 01635 0 71 00051 958 LDX BEXP,X0 01636 0 53 00051 959 SKN BEXP 01637 0 01 01646 960 BRU DPW12 01640 0 62 00051 961 XMA BEXP 01641 0 46 01000 962 CNA 01642 0 62 00051 963 XMA BEXP 01643 0 71 00051 964 LDX BEXP,X0 01644 2 66 00000 965 RSH 0,X2 01645 0 01 01651 966 BRU DPW13 01646 2 67 00000 967 DPW12 LSH 0,X2 01647 0 40 20001 968 OVT * 01650 0 61 01403 969 MIN TERR SET TRUNCATION ERROR * 01651 0 35 01631 970 DPW13 STA WRD1 * 01652 0 36 01550 971 DPW14 STB WRD2 01653 0 43 01737 972 BRM DPSS COMPLEMENT IF NEG 01654 0 01 01730 973 BRU DPW20 01655 0 76 02102 974 DPW5A LDA =22 01656 0 63 00051 975 ADM BEXP 01657 0 75 00120 976 DPW5 LDB Z 01660 0 76 00053 977 LDA DEXP 01661 0 36 00053 978 STB DEXP 0 TO B 01662 0 73 00031 979 SKG P9 TEST RANGE 01663 0 01 01667 980 BRU DPW11 01664 0 54 00031 981 SUB P9 01665 0 35 00053 982 STA DEXP 01666 0 76 00031 983 LDA P9 01667 0 46 00400 984 DPW11 CAX 01670 0 63 00051 985 ADM BEXP MODIFY BINARY EXPONENT 01671 2 75 00066 986 LDB FIVES,X2 PWER OF 5 01672 0 76 00120 987 LDA Z 01673 0 71 00030 988 LDX P47,X0 01674 0 67 10056 989 NOD 46 01675 0 35 00055 990 STA MULT1 NORMALIZED POWER OF 5 01676 0 46 00200 991 CXA 01677 0 63 00051 992 ADM BEXP MODIFY B 01700 0 36 00056 993 STB MULT2 CLEAR LOW ORDER WORD 01701 0 43 01405 994 BRM DPNM DATA TIMES POWER OF 5 01702 0 76 00053 995 LDA DEXP 01703 0 73 00120 996 SKG Z 01704 0 01 01631 997 BRU DPW10 FINISHED 01705 0 01 01657 998 BRU DPW5 01706 0 43 01737 999 DPF BRM DPSS COMPLEMENT IF NEG 01707 0 71 00030 1000 LDX P47,X0 01710 0 67 10057 1001 NOD 47 * 01711 0 35 01651 1002 STA WRD1 01712 0 46 00200 1003 CXA 01713 0 72 00102 1004 SKA FMM 01714 0 76 00120 1005 LDA Z 01715 0 50 00120 1006 SKE Z 01716 0 55 00051 1007 ADD BEXP MODIFY BINARY EXPONENT 01717 0 35 00051 1008 STA BEXP 01720 0 67 00017 1009 LSH 15 01721 0 66 00017 1010 RSH 15 01722 0 50 00051 1011 SKE BEXP * 01723 0 61 01650 1012 MIN TERR SET TRUNCATION ERROR 01724 0 67 20017 1013 LCY 15 01725 0 46 00004 1014 CAB 01726 0 66 20017 1015 RCY 15 * 01727 0 36 01652 1016 STB WRD2 * 01730 0 76 01522 1017 DPW20 LDA CHR * 01731 0 35 01335 1018 STA TERM SET TERMINATIR * 01732 0 43 01537 1019 BRM GET SKIP , 01733 0 43 02041 1020 BRM GNF * 01734 0 75 01727 1021 LDB WRD2 * 01735 0 76 01711 1022 LDA WRD1 01736 0 51 01434 1023 BRR DPW EXIT 01737 0 00 00000 1024 DPSS HLT 0 01740 0 53 00050 1025 SKN DPSIGN TEST DP SIGN 01741 0 51 01737 1026 BRR DPSS EXIT 01742 0 46 00014 1027 XAB * 01743 0 17 01520 1028 EOR M1 * 01744 0 54 01743 1029 SUB M1 01745 0 46 00014 1030 XAB * 01746 0 55 01744 1031 ADD M1 * 01747 0 43 01474 1032 BRM SKB * 01750 0 00 01746 1033 HLT M1 * 01751 0 54 01750 1034 SUB M1 * 01752 0 17 01751 1035 EOR M1 * 01753 0 35 01735 1036 STA WRD1 * 01754 0 36 01734 1037 STB WRD2 01755 0 51 01737 1038 BRR DPSS EXIT 01756 0 00 00000 1039 $OCTW HLT 0 01757 0 43 01333 1040 BRM SSIGN SET SIGN 01760 0 73 00143 1041 SKG A7 01761 0 01 01764 1042 BRU OCT1 * 01762 0 61 00666 1043 MIN EERR NOT OCTAL CHAR 01763 0 51 01756 1044 BRR OCTW EXIT * 01764 0 35 01331 1045 OCT1 STA VALU * 01765 0 75 00000 1046 LDB OC * 01766 0 43 01467 1047 BRM TCHR TEST FOR OCTAL CHAR 01767 0 01 01776 1048 BRU OCT2 01770 0 66 00003 1049 RSH 3 * 01771 0 76 01764 1050 LDA VALU 01772 0 72 00020 1051 SKA A0 * 01773 0 61 01723 1052 MIN TERR 01774 0 67 00003 1053 LSH 3 INSERT NEW CHAR 01775 0 01 01764 1054 BRU OCT1 TRY NEXT CHAR * 01776 0 35 01731 1055 OCT2 STA TERM * 01777 0 43 01732 1056 BRM GET 02000 0 43 02041 1057 BRM GNF * 02001 0 76 01771 1058 LDA VALU 02002 0 17 00123 1059 EOR B0 02003 0 53 00047 1060 SKN SIGN TEST FOR PRECEDING MINUS 02004 0 17 00123 1061 EOR B0 NO PRECEDING MUNUS * 02005 0 35 02001 1062 STA VALU RESULT 02006 0 51 01756 1063 BRR OCTW EXIT 02007 0 00 00000 1064 $DECW HLT 0 02010 0 43 01333 1065 BRM SSIGN SET SIGN 02011 0 73 00031 1066 SKG P9 02012 0 01 02015 1067 BRU DEC1 02013 0 76 00120 1068 LDA Z 02014 0 01 02034 1069 BRU DEC3 * 02015 0 35 02005 1070 DEC1 STA VALU * 02016 0 75 01473 1071 LDB DC * 02017 0 43 01766 1072 BRM TCHR 02020 0 01 02033 1073 BRU DEC2 * 02021 0 76 02015 1074 LDA VALU 02022 0 75 00120 1075 LDB Z 02023 0 02 20001 1076 ROV 02024 0 67 00002 1077 LSH 2 * 02025 0 55 02021 1078 ADD VALU 02026 0 67 00001 1079 LSH 1 * 02027 0 55 01730 1080 ADD CHR 02030 0 40 20001 1081 OVT * 02031 0 61 01773 1082 MIN TERR SET TRUNCATION ERROR 02032 0 01 02015 1083 BRU DEC1 * 02033 0 76 02025 1084 DEC2 LDA VALU 02034 0 46 01000 1085 DEC3 CNA 02035 0 53 00047 1086 SKN SIGN TEST FOR PRECEDING M1NUS 02036 0 46 01000 1087 CNA * 02037 0 35 02033 1088 STA VALU RESULT 02040 0 51 02007 1089 BRR DECW EXIT 02041 0 00 00000 1090 GNF HLT 0 * 02042 0 76 01776 1091 GNF1 LDA TERM * 02043 0 50 00000 1092 SKE CCHR TEST FOR COMMA * 02044 0 53 01752 1093 SKN M1 ALWAYS SKIP 02045 0 51 02041 1094 BRR GNF EXIT * 02046 0 50 01075 1095 SKE BCHR TEST FOR BLANK * 02047 0 53 02044 1096 SKN M1 ALWAYS SKIP 02050 0 51 02041 1097 BRR GNF EXIT IF BLANK * 02051 0 61 01762 1098 MIN EERR ILLEGAL CHARACTER * 02052 0 76 02027 1099 LDA CHR * 02053 0 35 02042 1100 STA TERM * 02054 0 43 01777 1101 BRM GET SKIP CHARACTER 02055 0 01 02042 1102 BRU GNF1 02056 0 00 00000 1103 $MAXL HLT 0 02057 0 76 00001 1104 LDA MLOC OLD MAX * 02060 0 73 00571 1105 SKG LOC * 02061 0 76 02060 1106 LDA LOC 02062 0 35 00001 1107 STA MLOC NEW MAX 02063 0 51 02056 1108 BRR MAXL 00000000 1109 BCON EQU 0 BLANK CONNECTER CODE 00000100 1110 CCON EQU 0100 , CONNECTER CODE 00000020 1111 RCON EQU 020 ) CONNECTER CODE 00003310 1112 SCON EQU 03310 + ++ CONNECTER CODES 00003411 1113 DCON EQU 03411 - -- CONNECTER CDDES 00004522 1114 PCON EQU 04522 * ** CONNECTER CODES 00004647 1115 QCON EQU 04647 / // CONNECTER CODES 1116 END 02064 77770000 02065 00005000 02066 00001700 02067 10101010 02070 00000020 02071 00000061 02072 00005100 02073 00177777 02074 00177775 02075 00040000 02076 00000012 02077 37777777 02100 00000054 02101 77777722 02102 00000026 00241 LADD 01210 LIMT 02061 LOC 00265 LRT 00541 LST 00363 LSXT 00217 LTR1 00223 LTR2 00243 LTR3 02047 M1 00766 MODE 01765 OC 00503 OCTF 01203 OERR 00260 PASS 00651 PERR 00274 REFM 00747 RELM 00741 RERR 00673 SCHR 01054 SC 01747 SKB 00016 SOT 02017 TCHR 02053 TERM 02031 TERR 00014 TPL 02037 VALU 00543 VERR 01622 WORD 01753 WRD1 01754 WRD2 00263 XERR 00575 ADDR 00573 B8 02046 BCHR 02043 CCHR 00661 CC 02052 CHR 00533 CNTR 02016 DC 01177 DERR 00476 DLY1 01174 DUPM 02051 EERR 02054 GET 00432 IC 00566 IFLG