1 2 ****************************** 3 * ALGOL * 4 * 910/920 60-4 * 5 * 012016 * 6 ****************************** 00001 7 AORG 1 00001 0 32 00002 8 WIM 2 00016000 9 OBJTY EQU 016000 ALGOL OBJECT CODE TYPER 00000176 10 NLIT EQU 0176 NUMBER OF LITERALS 00000103 11 STL EQU 67 00000020 12 NIMF EQU 16 NUMBER OF IMPLICIT FUNCTIONS 00000024 13 LIMF EQU 20 LENGTH OF IMPLICIT DECS 14000000 14 ZZA EQU 014000000 APOSTROPHE 61000000 15 ZZD EQU 061000000 DIVIDE 76000000 16 ZZI EQU 076000000 INVERSE DIVIDE 20000000 17 ZZP EQU 020000000 PLUS 35000000 18 ZZL EQU 035000000 LEFT BRACKET 55000000 19 ZZR EQU 055000000 RIGHT BRACKET 56000000 20 ZZSC EQU 056000000 SEMICOLON 00002 21 IMAGE RES 20 00026 00050000 22 BUF DATA 050000 CONTROL WORD 00027 02100000 23 DATA 02100000 LOAD ADDR WORD 00030 24 RES 24 00060 00000000 25 DATA 0,0,0,0,0,0,0,0 00061 00000000 00062 00000000 00063 00000000 00064 00000000 00065 00000000 00066 00000000 00067 00000000 00070 26 RAST RES 1 00071 27 CHAR RES 1 00072 28 LEN RES 1 00073 29 NAME RES 2 00075 30 CNT RES 1 00076 31 OP RES 1 00077 00000120 32 CC DATA 80 00100 33 AORG 0100 10000000 34 TYY OPD 010000000 00100 0 02 02041 35 TYPW 1,1 00101 0 12 40000 36 MIW *0 00102 0 02 14000 37 TOPW 00103 0 40 21000 38 BRTW 00104 0 01 00103 39 BRU $-1 00105 0 51 00000 40 BRR 0 10600000 41 SKMA OPD 010600000 00106 0 70 40000 42 SKMA SKM *0 00107 0 61 00000 43 MIN 0 00110 0 51 00000 44 BRR 0 11100000 45 SKGA OPD 011100000 00111 0 73 40000 46 SKGA SKG *0 00112 0 61 00000 47 MIN 0 00113 0 51 00000 48 BRR 0 11400000 49 SKNA OPD 011400000 00114 0 53 40000 50 SKNA SKN *0 00115 0 61 00000 51 MIN 0 00116 0 51 00000 52 BRR 0 D 11700000 53 CXA OPD 011700000 00117 0 37 00224 54 STX TT 00120 0 76 00224 55 LDA TT 00121 0 51 00000 56 BRR 0 12200000 57 STZ OPD 012200000 00122 0 46 30003 58 STZ CLR 00123 0 35 40000 59 STA *0 00124 0 51 00000 60 BRR 0 00125 00000000 61 SS DATA 0 12600000 62 COP OPD 012600000 00126 0 76 00000 63 COP LDA 0 00127 0 35 00133 64 STA RECUR 00130 0 76 40000 65 LDA *0 00131 0 43 04141 66 BRM COA 00132 0 51 00133 67 BRR RECUR 00133 00000000 68 RECUR DATA 0 D 13400000 69 CAX OPD 013400000 00134 0 35 00224 70 STA TT 00135 0 71 00224 71 LDX TT 00136 0 51 00000 72 BRR 0 D 13700000 73 CNA OPD 013700000 00137 0 17 07130 74 EOR =-1 00140 0 55 07131 75 ADD =1 00141 0 51 00000 76 BRR 0 D 14200000 77 XMA OPD 014200000 00142 0 35 00225 78 STA TT+1 00143 0 76 40000 79 LDA *0 00144 0 35 00224 80 STA TT 00145 0 76 00225 81 LDA TT+1 00146 0 35 40000 82 XMA1 STA *0 00147 0 76 00224 83 LDA TT 00150 0 51 00000 84 BRR 0 D 15100000 85 ADM OPD 015100000 00151 0 35 00224 86 STA TT 00152 0 55 40000 87 ADD *0 00153 0 01 00146 88 BRU XMA1 D 15400000 89 SKE OPD 015400000 00154 0 36 00224 90 STB TT 00155 0 75 07130 91 LDB =-1 00156 0 70 40000 92 SKM *0 00157 0 01 00165 93 BRU SKEA2 00160 0 01 00164 94 BRU SKEA1 16100000 95 SKEA OPD 016100000 00161 0 36 00224 96 STB TT 00162 0 75 07130 97 LDB =-1 00163 0 70 40000 98 SKM *0 00164 0 61 00000 99 SKEA1 MIN 0 00165 0 75 00224 100 SKEA2 LDB TT 00166 0 51 00000 101 BRR 0 D 16700000 102 SKR OPD 016700000 06000000 103 MDE OPD 06000000 00167 0 60 40000 104 MDE *0 00170 0 20 00000 105 NOP FOR 920 TESTING 00171 0 53 40000 106 SKN *0 00172 0 51 00000 107 BRR 0 00173 0 61 00000 108 MIN 0 00174 0 51 00000 109 BRR 0 D 07600175 110 CLA OPD 07600175 D 07500175 111 CLB OPD 07500175 00175 00000000 112 DATA 0 17600000 113 ERR OPD 017600000 00176 0 37 00223 114 STX ERRX 00177 0 71 00000 115 LDX 0 00200 0 37 00133 116 STX RECUR 00201 1 00 07132 117 TYY =052000000 00202 2 76 00000 118 LDA 0,IX2 00203 0 67 00022 119 LSH 18 00204 0 35 00222 120 STA ERRT 00205 1 00 00222 121 TYY ERRT 00206 1 00 07133 122 TYY =054000000 00207 0 76 00077 123 LDA CC 00210 0 35 00222 124 STA ERRT 00211 1 22 00077 125 STZ CC 00212 0 43 00226 126 BRM GETC 00213 1 00 00071 127 TYY CHAR 00214 0 61 00077 128 MIN CC 00215 0 60 00222 129 SKR ERRT 00216 0 01 00212 130 BRU $-4 00217 0 60 00077 131 SKR CC 00220 0 71 00223 132 LDX ERRX 00221 0 51 00133 133 BRR RECUR 00222 134 ERRT RES 1 00223 135 ERRX RES 1 00224 136 TT RES 2 00226 0 00 00000 137 GETC PZE 00227 0 76 00077 138 LDA CC 00230 0 66 00002 139 RSH 2 00231 0 46 00400 140 CAX 00232 2 75 00002 141 LDB IMAGE,IX2 00233 0 76 00077 142 LDA CC 00234 0 72 07134 143 SKA =2 00235 0 67 00014 144 LSH 12 00236 0 76 00077 145 LDA CC 00237 0 72 07131 146 SKA =1 00240 0 67 00006 147 LSH 6 00241 0 46 00014 148 XAB 00242 0 14 07135 149 ETR =077000000 00243 1 61 07136 150 SKEA =074000000 00244 0 76 07137 151 LDA =035000000 00245 1 61 07140 152 SKEA =034000000 00246 0 76 07141 153 LDA =055000000 00247 1 61 07142 154 SKEA =060000000 00250 0 76 07143 155 LDA =012000000 00251 0 35 00071 156 STA CHAR 00252 0 51 00226 157 BRR GETC 158 * GETS NEXT CHAR FROM INPUT SOURCE 00253 0 53 00414 159 FETCH SKN STOPSW 00254 0 01 03674 160 BRU ENDPO 00255 0 61 00077 161 MIN CC 00256 0 76 00077 162 LDA CC 00257 0 73 04561 163 SKG HICOL MAXIMUM SIGNIFICANT CHARACTERS 00260 0 01 00265 164 BRU FETCH1 00261 0 43 04530 165 FETCHR BRM CARD 00262 0 46 30003 166 CLR 00263 0 35 00125 167 STA SS 00264 0 35 00077 168 STA CC 00265 0 43 00226 169 FETCH1 BRM GETC 00266 0 53 00341 170 SKN KSW 00267 0 01 00332 171 BRU FETCH5 00270 1 61 07143 172 SKEA =012000000 00271 0 01 00301 173 BRU FETCH2 00272 0 40 20100 174 BPT 3 00273 0 01 00276 175 BRU $+3 00274 0 01 00302 176 BRU FETCH3 00275 1 00 07143 177 TYY =012000000 00276 0 60 00125 178 SKR SS 00277 0 01 00275 179 BRU $-2 00300 1 00 00071 180 TYY CHAR 00301 0 61 00125 181 FETCH2 MIN SS 00302 0 46 20005 182 FETCH3 ABC 00303 0 76 07144 183 LDA =4 00304 1 11 05117 184 SKGA TMIN 00305 0 01 00312 185 BRU FETCH4 00306 1 76 00042 186 ERR 'K' MINOR SYNTAX OVERFLOW 00307 1 22 00341 187 FETCH6 STZ KSW 00310 1 22 05442 188 STZ NOCOD 00311 0 01 00253 189 BRU FETCH 00312 0 76 07145 190 FETCH4 LDA =0 00313 0 67 00006 191 LSH 6 LD INDEX 00314 0 75 05245 192 LDB A8 LD BASE PZE CVERT,IX2 00315 0 43 00420 193 BRM LDCON 00316 0 35 05174 194 STA T 00317 1 61 07146 195 SKEA =BOUND 00320 0 35 00414 196 STA STOPSW 00321 0 76 05117 197 LDA TMIN 00322 0 75 05152 198 LDB A4 00323 0 43 00456 199 BRM LDSNG 00324 0 50 07147 200 SKE =APOST2 00325 0 01 00342 201 BRU PREC2 00326 0 76 05174 202 LDA T 00327 0 50 07150 203 SKE =APOST 00330 0 01 03526 204 BRU SN25 00331 0 01 00412 205 BRU PREC1 00332 0 50 07151 206 FETCH5 SKE =ZZSC 00333 0 01 00253 207 BRU FETCH 00334 0 76 07130 208 LDA =-1 00335 0 35 00341 209 STA KSW 00336 1 22 05117 210 STZ TMIN 00337 1 22 05115 211 STZ RMIN 00340 0 01 01453 212 BRU SYN2 00341 77777777 213 KSW DATA -1 00342 0 50 07150 214 PREC2 SKE =APOST 00343 0 01 00367 215 BRU PREC3 00344 0 76 05117 216 LDA TMIN 00345 0 54 07131 217 SUB =1 00346 0 75 05152 218 LDB A4 00347 0 43 00456 219 BRM LDSNG 00350 0 50 07147 220 SKE =APOST2 00351 0 01 00407 221 BRU PREC5 00352 0 76 05174 222 LDA T 00353 1 61 07150 223 SKEA =APOST 00354 0 01 03612 224 BRU SN21 00355 0 60 05117 225 SKR TMIN 00356 0 60 05115 226 SKR RMIN 00357 0 76 07152 227 LDA =ZZA 00360 0 62 00071 228 XMA CHAR 00361 0 35 05175 229 STA T+1 00362 0 43 04626 230 BRM STRWD 00363 0 76 05175 231 LDA T+1 00364 0 35 00071 232 STA CHAR 00365 0 43 04626 233 BRM STRWD 00366 0 01 00253 234 BRU FETCH 00367 0 50 07153 235 PREC3 SKE =COMENT 00370 0 01 00375 236 BRU PREC4 00371 0 76 05174 237 LDA T 00372 0 50 07154 238 SKE =SEMCOL 00373 0 01 00253 239 BRU FETCH 00374 0 01 00412 240 BRU PREC1 00375 0 50 07155 241 PREC4 SKE =END 00376 0 01 00407 242 BRU PREC5 00377 0 76 05174 243 LDA T 00400 1 61 07154 244 SKEA =SEMCOL 00401 0 01 00412 245 BRU PREC1 00402 1 61 07150 246 SKEA =APOST 00403 0 01 00412 247 BRU PREC1 00404 0 50 07146 248 SKE =BOUND 00405 0 01 00253 249 BRU FETCH 00406 0 01 00412 250 BRU PREC1 00407 0 76 05174 251 PREC5 LDA T 00410 1 61 07156 252 SKEA =BLANK 00411 0 01 00253 253 BRU FETCH 00412 0 75 05174 254 PREC1 LDB T 00413 0 01 03322 255 BRU LW10 00414 77777777 256 STOPSW DATA -1 257 * 258 * LD CONSTRUCT FROM BASE AND INDEX TO ACC,RJE 00415 0 67 00010 259 ZRSH LSH 8 00416 0 67 00020 260 LSH 16 00417 0 46 00014 261 XAB 00420 0 00 00000 262 LDCON PZE 00421 0 36 05222 263 STB T+22 00422 0 71 07157 264 LDX =040000 00423 0 73 07134 265 SKG =2 00424 0 01 00427 266 BRU $+3 00425 0 54 07146 267 SUB =3 00426 0 41 00423 268 BRX $-3 00427 0 75 45222 269 LDB *T+22 00430 0 46 00400 270 CAX D 02300000 271 EXU OPD 02300000 00431 2 23 00415 272 EXU ZRSH,IX2 00432 0 14 07160 273 ETR =0377 00433 0 71 05127 274 LDX MODE 00434 0 51 00420 275 BRR LDCON 276 * ST CONSTRUCT INTO BASE AND INDEX FROM ACC,RJE 00435 0 00 00000 277 STCON PZE 00436 0 35 05222 278 STA T+22 00437 0 76 05172 279 LDA P+8 00440 0 66 00001 280 RSH 1 00441 0 46 00400 281 CAX 00442 0 76 05222 282 LDA T+22 00443 0 36 05222 283 STB T+22 00444 0 75 07161 284 LDB =07777 00445 0 53 05222 285 SKN T+22 00446 0 67 00014 286 LSH 12 00447 0 36 05222 287 STB T+22 00450 0 17 45173 288 EOR *P+9 00451 0 14 05222 289 ETR T+22 00452 0 17 45173 290 EOR *P+9 00453 0 35 45173 291 STA *P+9 00454 0 71 05127 292 LDX MODE 00455 0 51 00435 293 BRR STCON 00456 0 00 00000 294 LDSNG PZE 00457 0 36 05222 295 STB T+22 00460 0 66 00001 296 RSH 1 00461 0 46 00400 297 CAX 00462 0 76 45222 298 LDA *T+22 00463 0 36 05222 299 STB T+22 00464 0 53 05222 300 SKN T+22 00465 0 66 00014 301 RSH 12 00466 0 14 07160 302 ETR =0377 00467 0 71 05127 303 LDX MODE 00470 0 51 00456 304 BRR LDSNG 305 * COMPARES RULE IMPLIERS WITH CONSTRUCT STRING 00471 0 00 00000 306 CPARE PZE 00472 0 71 05127 307 LDX MODE 00473 2 76 05115 308 LDA RMIN,IX2 00474 0 55 05206 309 ADD T+10 R+Q LD INDEX 00475 0 35 05210 310 STA T+12 00476 2 75 05152 311 CP2 LDB A4,IX2 00477 0 43 00456 312 BRM LDSNG 00500 0 35 05207 313 STA T+11 00501 0 76 05175 314 LDA T+1 00502 0 55 07162 315 ADD =020000000 00503 0 46 00014 316 XAB 00504 0 76 05205 317 LDA T+9 X LD INDEX 00505 0 43 00420 318 BRM LDCON 00506 0 50 05207 319 SKE T+11 00507 0 51 00471 320 BRR CPARE 00510 0 61 05205 321 MIN T+9 EQ 00511 0 61 05210 322 MIN T+12 00512 0 76 05210 323 LDA T+12 00513 0 60 05211 324 SKR T+13 00514 0 01 00476 325 BRU CP2 00515 0 61 00471 326 CP1 MIN CPARE 00516 0 51 00471 327 BRR CPARE 328 * INSERTS IMPLICAND STRING INTO CONSTRUCT STRING 00517 0 00 00000 329 MASAGE PZE 00520 0 54 07131 330 SUB =1 00521 0 35 05176 331 STA T+2 NO. IMPLAND CONSTR -1 IS CNTR 00522 0 54 05163 332 SUB P+1 00523 0 55 05164 333 ADD P+2 00524 0 35 05340 334 STA DELTA P5-P2+P3-1 00525 0 53 05176 335 SKN T+2 00526 0 01 00532 336 BRU MS6 00527 0 76 07130 337 LDA =-1 00530 0 63 00070 338 ADM RAST 00531 0 01 00552 339 BRU MS5 00532 0 76 05340 340 MS6 LDA DELTA 00533 0 50 07145 341 SKE =0 00534 0 01 00556 342 BRU MS2 00535 0 76 05164 343 MS3 LDA P+2 00536 0 35 05172 344 STA P+8 ST INDEX 00537 2 76 05152 345 LDA A4,IX2 00540 0 35 05173 346 STA P+9 ST BASE 00541 0 76 05167 347 MS1 LDA P+5 00542 0 75 05165 348 LDB P+3 LD BASE 00543 0 43 00420 349 BRM LDCON 00544 0 43 00435 350 BRM STCON 00545 0 61 05167 351 MIN P+5 00546 0 61 05200 352 MIN T+4 00547 0 61 05172 353 MIN P+8 00550 0 60 05176 354 SKR T+2 00551 0 01 00541 355 BRU MS1 00552 0 76 05340 356 MS5 LDA DELTA 00553 2 55 05117 357 ADD TMIN,IX2 00554 2 35 05117 358 STA TMIN,IX2 00555 0 51 00517 359 BRR MASAGE 00556 0 76 05163 360 MS2 LDA P+1 00557 1 61 05162 361 SKEA P 00560 0 01 00535 362 BRU MS3 P1 EQ P2 00561 0 55 07131 363 ADD =1 00562 0 35 05200 364 STA T+4 LD INDEX 00563 0 55 05340 365 ADD DELTA 00564 0 35 05172 366 STA P+8 ST INDEX 00565 0 76 05162 367 LDA P 00566 0 54 05200 368 SUB T+4 00567 0 35 05201 369 STA T+5 CNTR P1-(P2+1) 00570 2 75 05152 370 LDB A4,IX2 00571 0 36 05173 371 STB P+9 00572 0 75 05173 372 MS4 LDB P+9 00573 0 76 05200 373 LDA T+4 00574 0 43 00456 374 BRM LDSNG 00575 0 43 00435 375 BRM STCON 00576 0 61 05200 376 MIN T+4 00577 0 61 05172 377 MIN P+8 00600 0 60 05201 378 SKR T+5 00601 0 01 00572 379 BRU MS4 00602 0 01 00535 380 BRU MS3 381 * FINDS MATE DEF WITHIN A RULE 00603 0 76 05175 382 RULER LDA T+1 IMPLY DICT WD 00604 0 14 07161 383 ETR =07777 00605 0 35 05175 384 STA T+1 00606 0 71 07163 385 LDX =-3 00607 0 75 45175 386 LDB *T+1 00610 0 46 00001 387 RL1 CLA 00611 0 67 00002 388 LSH 2 00612 2 35 05205 389 STA T+9,IX2 F,G,H ARE T+6,7,8 RESPECT 00613 0 41 00610 390 BRX RL1 00614 0 76 07134 391 LDA =2 00615 0 35 05205 392 STA T+9 00616 0 76 05203 393 LDA T+7 00617 0 73 07145 394 SKG =0 00620 0 01 00631 395 BRU RL2 G EQ 0 00621 0 46 30003 396 CLR G GT 0 00622 0 54 05203 397 SUB T+7 00623 0 35 05206 398 STA T+10 Q 00624 0 55 07131 399 ADD =1 00625 0 46 01000 400 CNA 00626 0 35 05211 401 STA T+13 00627 0 43 00471 402 BRM CPARE 00630 0 01 00701 403 BRU RL3 00631 0 76 05202 404 RL2 LDA T+6 00632 0 54 05203 405 SUB T+7 00633 1 61 07145 406 SKEA =0 00634 0 01 00643 407 BRU RL4 F EQ G 00635 0 54 07131 408 SUB =1 00636 0 35 05211 409 STA T+13 00637 0 76 07131 410 LDA =1 00640 0 35 05206 411 STA T+10 Q 00641 0 43 00471 412 BRM CPARE 00642 0 01 00701 413 BRU RL3 NO GOOD 00643 0 71 05127 414 RL4 LDX MODE 00644 2 76 05117 415 LDA TMIN,IX2 T 00645 0 35 05162 416 STA P 00646 2 76 05115 417 LDA RMIN,IX2 00647 0 55 05202 418 ADD T+6 00650 0 54 05203 419 SUB T+7 00651 0 35 05163 420 STA P+1 R+F-G 00652 0 54 05202 421 SUB T+6 00653 0 35 05164 422 STA P+2 R-G 00654 0 76 05202 423 LDA T+6 00655 0 55 07134 424 ADD =2 00656 0 35 05167 425 STA P+5 00657 0 76 05175 426 LDA T+1 00660 0 55 05161 427 ADD A3 00661 0 35 05165 428 STA P+3 00662 2 76 05112 429 LDA A1,IX2 00663 0 35 05166 430 STA P+4 00664 0 76 05204 431 LDA T+8 00665 0 43 00517 432 BRM MASAGE 00666 2 76 05115 433 LDA RMIN,IX2 00667 0 54 05203 434 SUB T+7 00670 2 35 05115 435 STA RMIN,IX2 R=R-G 00671 0 76 45175 436 RL5 LDA *T+1 00672 0 66 00010 437 RSH 8 00673 0 14 07164 438 ETR =01777 00674 2 55 05154 439 ADD SEM,IX2 00675 0 35 05175 440 STA T+1 00676 0 46 30003 441 CLR 00677 0 76 07130 442 LDA =-1 00700 0 01 45175 443 BRU *T+1 RCVRY PT 00701 0 76 05202 444 RL3 LDA T+6 00702 0 55 05204 445 ADD T+8 00703 0 61 05175 446 MIN T+1 00704 0 61 05175 447 RL6 MIN T+1 00705 0 54 07146 448 SUB =3 00706 0 73 07131 449 SKG =1 00707 0 01 00606 450 BRU RULER+3 00710 0 01 00704 451 BRU RL6 452 * CORRESPONDENCE BETWEEN PRIMITIVES AND CONSTRUCTS 453 CON FORM 8,8,8 00711 027 027 027 454 CVERT CON DGT,DGT,DGT 00712 027 027 027 455 CON DGT,DGT,DGT 00713 027 027 027 456 CON DGT,DGT,DGT 00714 027 261 010 457 CON DGT,BLANK,EQUAL 00715 025 007 012 458 CON APOST,COLON,RPT 00716 255 014 030 459 CON ILLEG,AOP,LTR 00717 030 030 030 460 CON LTR,LTR,LTR 00720 030 030 030 461 CON LTR,LTR,LTR 00721 030 030 261 462 CON LTR,LTR,BLANK 00722 175 255 023 463 CON PT,ILLEG,LPAREN 00723 011 003 014 464 CON LPT,BOUND,AOP 00724 030 030 030 465 CON LTR,LTR,LTR 00725 030 030 030 466 CON LTR,LTR,LTR 00726 030 030 030 467 CON LTR,LTR,LTR 00727 261 255 013 468 CON BLANK,ILLEG,AST 00730 022 021 171 469 CON RPAREN,SEMCOL,TEN 00731 255 004 030 470 CON ILLEG,MOP,LTR 00732 030 030 030 471 CON LTR,LTR,LTR 00733 030 030 030 472 CON LTR,LTR,LTR 00734 030 261 017 473 CON LTR,BLANK,COMMA 00735 255 255 004 474 CON ILLEG,ILLEG,MOP 00736 261 000 000 475 CON BLANK,0,0 00000737 476 M EQU $ 00737 0 71 05127 477 SM LDX MODE 00000737 478 LW102 EQU SM 00740 2 76 05112 479 DEF LDA A1,IX2 00741 0 35 05114 480 STA D 00742 2 76 05115 481 LDA RMIN,IX2 00743 0 35 00070 482 STA RAST 00744 2 75 05152 483 LDB A4,IX2 00745 0 43 00456 484 BRM LDSNG 00746 0 54 07146 485 SUB =3 00747 0 54 05127 486 SUB MODE 00750 0 73 07130 487 SKG =-1 00751 0 01 01000 488 BRU DF8 00752 3 11 05156 489 SKGA SIZE,IX2 00753 0 01 01000 490 BRU DF8 00754 0 46 00400 491 CAX 00755 0 76 45114 492 LDA *D 00756 0 01 01011 493 BRU DF2 00757 0 35 00070 494 DF4 STA RAST 00760 2 75 05152 495 LDB A4,IX2 00761 0 43 00456 496 BRM LDSNG 00762 0 46 00002 497 CLB 00763 0 67 00014 498 LSH 12 00764 0 35 05175 499 STA T+1 CONSTR IN B2-9 00765 0 71 07145 500 LDX =0 00766 0 75 07165 501 LDB =07770000 00767 0 76 45114 502 DF1 LDA *D 00770 0 70 05175 503 SKM T+1 00771 0 01 00773 504 BRU $+2 00772 0 01 01011 505 BRU DF2 00773 0 61 05114 506 MIN D 00774 0 73 07130 507 SKG =-1 00775 0 01 00777 508 BRU $+2 00776 0 01 00767 509 BRU DF1 00777 0 71 05127 510 LDX MODE 01000 2 61 05115 511 DF8 MIN RMIN,IX2 01001 2 76 05115 512 LDA RMIN,IX2 01002 2 73 05117 513 SKG TMIN,IX2 01003 0 01 00740 514 BRU DEF R LE T 01004 2 01 01005 515 DF7 BRU $+1,IX2 01005 0 01 00253 516 BRU FETCH 01006 0 71 07145 517 LDX =0 01007 0 37 05127 518 STX MODE 01010 0 01 00740 519 BRU DEF 01011 0 35 05175 520 DF2 STA T+1 IMPLY DICT WD 01012 0 66 00025 521 RSH 21 01013 0 14 07146 522 ETR =3 01014 0 55 05160 523 ADD A2 01015 0 35 01017 524 STA $+2 01016 0 71 05127 525 LDX MODE 01017 0 01 00000 526 BRU 01020 0 01 01027 527 DF6 BRU DF3 01021 0 01 01035 528 BRU DF5 1 - IMPLAND ADDR 01022 0 01 00603 529 BRU RULER 2 - RULE 01023 2 76 05117 530 LDA TMIN,IX2 3 - RULEF 01024 2 73 05115 531 SKG RMIN,IX2 01025 0 01 01004 532 BRU DF7 01026 0 01 00603 533 BRU RULER 01027 0 76 05175 534 DF3 LDA T+1 01030 0 14 07161 535 ETR =07777 01031 0 35 05114 536 STA D 01032 0 76 00070 537 LDA RAST 01033 0 54 07131 538 SUB =1 01034 0 01 00757 539 BRU DF4 01035 2 76 05117 540 DF5 LDA TMIN,IX2 01036 0 35 05162 541 STA P 01037 2 76 05115 542 LDA RMIN,IX2 01040 0 35 05163 543 STA P+1 01041 0 76 00070 544 LDA RAST 01042 0 35 05164 545 STA P+2 01043 0 76 05175 546 LDA T+1 01044 0 14 07161 547 ETR =07777 01045 0 35 05175 548 STA T+1 01046 0 35 05165 549 STA P+3 01047 2 76 05112 550 LDA A1,IX2 01050 0 35 05166 551 STA P+4 01051 0 75 45165 552 LDB *P+3 01052 0 76 07162 553 LDA =020000000 01053 0 63 05165 554 ADM P+3 01054 0 76 07134 555 LDA =2 01055 0 35 05167 556 STA P+5 01056 0 76 07145 557 LDA =0 01057 0 67 00006 558 LSH 6 01060 0 43 00517 559 BRM MASAGE 01061 0 76 00070 560 LDA RAST 01062 2 35 05115 561 STA RMIN,IX2 01063 0 01 00671 562 BRU RL5 01064 0 76 07134 563 SM1 LDA =2 01065 0 35 05150 564 STA TYPES 01066 0 01 00737 565 BRU SM 01067 0 76 07146 566 SM2 LDA =3 01070 0 01 01065 567 BRU SM1+1 01071 0 76 07131 568 SM3 LDA =1 01072 0 01 01065 569 BRU SM1+1 01073 0 76 07166 570 SM17 LDA =01600 OPARY 01074 0 35 45312 571 STA *SK 01075 0 01 00737 572 BRU SM 01076 1 22 05126 573 SM64 STZ NDIM 01077 0 53 05151 574 SKN STYPE 01100 0 61 05126 575 MIN NDIM 01101 0 76 07131 576 LDA =1 01102 0 35 01653 577 STA TOT 01103 0 01 00737 578 BRU SM 01104 0 46 30003 579 SM68 CLR 01105 0 35 05135 580 STA DECST 01106 0 35 05151 581 STA STYPE 01107 0 35 05126 582 STA NDIM 01110 0 76 07131 583 LDA =1 01111 0 35 01653 584 STA TOT 01112 0 01 00737 585 BRU SM 01113 0 76 07167 586 SM133 LDA =8 01114 0 01 01175 587 BRU R2D2+1 01115 0 76 07170 588 SM134 LDA =9 01116 0 01 01175 589 BRU R2D2+1 01117 0 76 45250 590 SM135 LDA *BCTAB 01120 0 66 00011 591 RSH 9 01121 0 14 07171 592 ETR =0777 01122 0 46 00400 593 CAX 01123 2 76 07325 594 LDA BASEA-1,IX2 01124 0 75 07172 595 LDB =00600000 01125 1 06 07145 596 SKMA =0 01126 0 01 01134 597 BRU SM135A 01127 0 14 07173 598 ETR =077777 01130 0 55 07174 599 ADD =060100000 01131 0 35 05225 600 STA WORDS 01132 0 46 20005 601 ABC 01133 0 43 04403 602 BRM MOVE 01134 0 61 02321 603 SM135A MIN NDB6 01135 0 01 02303 604 BRU ENDBLK 01136 1 22 05147 605 SM22 STZ PARA 01137 0 01 00737 606 BRU SM 01140 0 46 30003 607 SM117 CLR 01141 0 35 05151 608 STA STYPE 01142 0 01 01065 609 BRU SM1+1 01143 0 76 45312 610 SM137 LDA *SK 01144 0 50 05537 611 SKE CW+14 - CW 01145 0 01 01151 612 BRU $+4 01146 0 76 05555 613 LDA CW+28 01147 0 35 45312 614 STA *SK 01150 0 01 00737 615 BRU SM 01151 1 14 05442 616 SKNA NOCOD 01152 0 60 05312 617 SKR SK 01153 0 01 00737 618 BRU SM 01154 0 55 05116 619 R1D1 ADD RMIN+1 01155 0 75 05153 620 LDB A4+1 01156 0 43 00456 621 BRM LDSNG 01157 0 46 00002 622 CLB 01160 1 61 07134 623 SKEA =BLKHD 01161 0 36 05143 624 STB TEMPT 01162 0 01 00737 625 BRU SM 01163 0 36 05136 626 R1D2 STB DECSW 01164 0 01 00737 627 BRU SM 01165 00000000 628 SIGN DATA 0 01166 0 00 00000 629 FRACP PZE 01167 0 76 05401 630 LDA NUMB 01170 0 35 05122 631 STA FRAC 01171 0 76 05400 632 LDA ND 01172 0 35 05123 633 STA EXP 01173 0 51 01166 634 BRR FRACP 01174 0 76 07131 635 R2D2 LDA =1 01175 0 35 05146 636 STA KIND 01176 0 01 00737 637 BRU SM 01177 0 35 05135 638 R2D4 STA DECST 01200 0 76 05150 639 LDA TYPES 01201 0 35 05144 640 STA SWIND 01202 0 36 05132 641 R2D5 STB NENT 01203 0 76 07134 642 LDA =2 01204 0 35 05146 643 R2D5A STA KIND 01205 0 43 01654 644 BRM DUP 01206 0 76 05146 645 LDA KIND 01207 0 43 02113 646 BRM ADST 01210 0 01 00737 647 BRU SM 01211 0 61 05132 648 R2D6A MIN NENT 01212 0 01 01203 649 BRU R2D5+1 01213 0 76 07146 650 R2D6 LDA =3 01214 0 01 01175 651 BRU R2D2+1 01215 0 36 05150 652 R2D8 STB TYPES 01216 1 22 05133 653 R2D7 STZ LA 01217 0 76 07175 654 LDA =5 01220 0 01 01204 655 BRU R2D5A 01221 0 00 00000 656 XNAM PZE 01222 0 36 05206 657 STB T+10 01223 0 75 07176 658 LDB =060606060 01224 0 36 00030 659 STB BUF+2 01225 0 75 07177 660 LDB =BUF+1 01226 0 43 02155 661 BRM MOVNAM 01227 0 76 07200 662 LDA =010450000 01230 0 35 00026 663 STA BUF 01231 0 76 05206 664 LDA T+10 01232 0 14 07173 665 ETR =077777 01233 0 55 07201 666 ADD =020100000 01234 0 51 01221 667 BRR XNAM 01235 0 76 07144 668 R2D9A LDA =4 01236 0 43 02113 669 BRM ADST 01237 0 76 45265 670 LDA *A15B 01240 2 75 07326 671 LDB BASEA,IX2 01241 0 43 01221 672 BRM XNAM 01242 0 55 07162 673 ADD =020000000 01243 0 35 00031 674 STA BUF+3 01244 0 43 04614 675 BRM SEND 01245 0 01 01252 676 BRU R2D9B 01246 0 76 05134 677 R2D9 LDA MAD 01247 0 35 05133 678 STA LA 01250 0 76 07144 679 LDA =4 01251 0 43 02113 680 BRM ADST 01252 0 76 07130 681 R2D9B LDA =-1 01253 0 35 05136 682 STA DECSW 01254 0 35 05142 683 STA PROCSW 01255 0 35 05132 684 STA NENT 01256 0 46 30003 685 CLR 01257 0 76 07146 686 LDA =3 01260 0 54 05150 687 SUB TYPES 01261 0 67 00025 688 LSH 21 01262 0 55 07202 689 ADD =04100000 01263 0 35 05225 690 STA WORDS 01264 0 46 30003 691 CLR 01265 0 43 04403 692 BRM MOVE 01266 0 01 02242 693 BRU BEGBLK+1 01267 0 46 30003 694 R2D10 CLR 01270 0 35 05132 695 STA NENT 01271 0 55 07203 696 ADD =WORDS 01272 0 35 05220 697 STA T+20 01273 0 43 02023 698 BRM BLKAD 01274 0 55 07162 699 ADD =020000000 01275 0 35 45220 700 STA *T+20 01276 0 76 05134 701 LDA MAD 01277 0 55 05132 702 ADD NENT 01300 0 35 05133 703 STA LA 01301 0 76 07131 704 LDA =1 01302 0 35 05147 705 STA PARA 01303 0 35 05150 706 STA TYPES 01304 0 61 05150 707 MIN TYPES 01305 0 43 02113 708 BRM ADST 01306 0 61 05141 709 MIN NDAD 01307 0 01 00737 710 BRU SM 01310 0 76 05132 711 R2D11 LDA NENT 01311 0 55 07131 712 ADD =1 01312 0 01 01270 713 BRU R2D10+1 01313 0 43 02171 714 R2D12 BRM STSCH 01314 0 72 07204 715 SKA =040000000 01315 0 01 01327 716 BRU R2D12A 01316 0 76 07205 717 LDA =01000000 01317 2 55 07326 718 ADD BASEA,IX2 01320 2 35 07326 719 STA BASEA,IX2 01321 0 14 07173 720 ETR =077777 01322 0 54 05134 721 SUB MAD 01323 0 46 00400 722 CAX 01324 0 76 07162 723 LDA =020000000 01325 2 63 05225 724 ADM WORDS,IX2 01326 0 01 00737 725 BRU SM 01327 1 76 00023 726 R2D12A ERR 'C' VALUE BUT NO PARAMETER 01330 0 01 00737 727 BRU SM 01331 0 76 07131 728 R2D1 LDA =1 01332 0 35 05146 729 STA KIND 01333 0 43 02171 730 R2D14 BRM STSCH 01334 0 72 07204 731 SKA =040000000 01335 0 01 01327 732 BRU R2D12A 01336 0 46 30003 733 CLR 01337 0 76 05146 734 LDA KIND 01340 0 67 00004 735 LSH 4 01341 0 55 05150 736 ADD TYPES 01342 0 67 00020 737 LSH 16 01343 0 35 05221 738 STA T+21 01344 2 76 07326 739 LDA BASEA,IX2 01345 0 14 07206 740 ETR =03177777 01346 0 55 05221 741 ADD T+21 01347 2 35 07326 742 STA BASEA,IX2 01350 0 75 07135 743 LDB =077000000 01351 1 06 07143 744 SKMA =012000000 KIND=ARIDT,PARA=CBV 01352 0 61 05141 745 MIN NDAD 01353 0 14 07173 746 ETR =077777 01354 0 54 05134 747 SUB MAD 01355 0 46 00400 748 CAX 01356 0 46 30003 749 CLR 01357 0 76 07146 750 LDA =3 01360 0 54 05150 751 SUB TYPES 01361 0 67 00004 752 LSH 4 01362 0 55 05146 753 ADD KIND 01363 0 67 00017 754 LSH 15 01364 2 63 05225 755 ADM WORDS,IX2 01365 0 01 00737 756 BRU SM 01366 0 36 05150 757 R4D1 STB TYPES 01367 0 76 07144 758 R4D2 LDA =4 01370 0 01 01175 759 BRU R2D2+1 01371 0 36 05150 760 R4D4 STB TYPES 01372 0 01 00737 761 BRU SM 01373 0 76 07134 762 R5D1 LDA =2 01374 0 35 05150 763 STA TYPES 01375 0 76 07134 764 R5D3 LDA =2 01376 0 01 01175 765 BRU R2D2+1 01377 0 35 05151 766 R5D2 STA STYPE 01400 0 01 00737 767 BRU SM 01401 0 35 05151 768 R5D5 STA STYPE 01402 0 76 07134 769 LDA =2 01403 0 35 05150 770 STA TYPES 01404 0 01 00737 771 BRU SM 01405 0 76 07134 772 R5D6 LDA =2 01406 0 35 05150 773 STA TYPES 01407 0 61 05126 774 R5D4 MIN NDIM 01410 0 01 00737 775 BRU SM 01411 0 35 05151 776 R7D2 STA STYPE 01412 0 01 01760 777 BRU VAR 01413 0 76 07170 778 R7D4 LDA =9 01414 0 01 01751 779 BRU MODB 01415 0 76 07207 780 R11D14 LDA =11 01416 0 01 01751 781 BRU MODB 01417 0 76 05521 782 R26D4 LDA CW LBRACK 01420 0 35 45312 783 STA *SK 01421 0 76 07210 784 LDA =13 01422 0 01 01751 785 BRU MODB 01423 0 75 05566 786 R8D2 LDB CW+37 01424 0 76 45272 787 LDA *SJ 01425 1 61 07345 788 SKEA IO 01426 0 01 01431 789 BRU R8D2A 01427 1 26 05617 790 COP BCJM0 01430 0 75 05557 791 LDB CW+30 PROC OP 01431 0 36 45312 792 R8D2A STB *SK 01432 0 75 05140 793 LDB RAND 01433 1 14 01437 794 SKNA NEST 01434 0 36 01440 795 STB INDEX 01435 0 61 01437 796 MIN NEST 01436 0 01 00737 797 BRU SM 01437 77777777 798 NEST DATA -1 01440 00000000 799 INDEX DATA 0 01441 0 76 05272 800 R10D2 LDA SJ 01442 0 54 05262 801 SUB A12 01443 0 35 05124 802 STA PTR 01444 0 01 00737 803 BRU SM 01445 1 76 00024 804 SYND ERR 'D' 'DO' SYNTAX ERROR 01446 0 01 01452 805 BRU SYN1 01447 1 76 00025 806 SYNS ERR 'E' STATEMENT SYNTAX ERROR 01450 0 01 01452 807 BRU SYN1 01451 1 76 00044 808 SYN ERR 'M' SEMICOLON SYNTAX ERROR 01452 0 60 05116 809 SYN1 SKR RMIN+1 01453 0 76 05116 810 SYN2 LDA RMIN+1 01454 0 35 05120 811 STA TMIN+1 01455 0 75 05153 812 LDB A4+1 01456 0 43 00456 813 BRM LDSNG 01457 1 11 07211 814 SKGA =SPECAL 01460 0 01 01452 815 BRU SYN1 01461 0 76 05262 816 LDA A12 01462 0 55 07212 817 ADD =7 01463 0 35 05272 818 STA SJ 01464 0 76 05261 819 LDA A11 01465 0 35 05312 820 STA SK 01466 1 22 05442 821 STZ NOCOD 01467 0 01 00737 822 BRU SM 01470 1 22 05130 823 R29D1 STZ RSULT 01471 0 01 00737 824 BRU SM 01472 0 35 05125 825 R39D1 STA SCSW 01473 0 01 03675 826 R39D2 BRU ENDPRG 01474 1 14 05442 827 R40D1 SKNA NOCOD 01475 0 60 05272 828 SKR SJ 01476 0 01 00737 829 BRU SM 830 * PROC CALL CODE GENERATOR 01477 0 43 02762 831 OPPROC BRM SAVE 01500 1 26 05614 832 COP PJM0 01501 0 76 45272 833 LDA *SJ 01502 0 75 07136 834 LDB =074000000 01503 1 06 07162 835 SKMA =020000000 01504 0 01 01507 836 BRU OPPR3 01505 0 70 07213 837 SKM =024000000 01506 0 60 05272 838 OPPR2 SKR SJ 01507 0 76 00076 839 OPPR3 LDA OP 01510 0 50 05535 840 SKE CW+12 RPAREN OP 01511 0 01 04672 841 BRU TSEX 01512 0 76 45272 842 LDA *SJ 01513 0 50 07345 843 SKE IO 01514 1 26 05620 844 COP ECJM0 01515 0 75 01440 845 LDB INDEX 01516 0 76 07130 846 LDA =-1 01517 0 63 01437 847 ADM NEST 01520 1 14 01437 848 SKNA NEST 01521 0 36 05140 849 STB RAND 01522 0 63 05312 850 ADM SK 01523 0 76 45272 851 LDA *SJ 01524 0 75 07172 852 LDB =00600000 01525 1 06 07145 853 SKMA =0 01526 0 01 01531 854 BRU OPPR1 01527 0 43 05020 855 BRM RST 01530 0 01 04672 856 BRU TSEX 01531 0 60 05272 857 OPPR1 SKR SJ 01532 0 01 04672 858 BRU TSEX 01533 0 43 02762 859 OPIO BRM SAVE 01534 1 26 05613 860 COP IOJM0 01535 0 01 01506 861 BRU OPPR2 862 * STATIC ARRAY DECLARATION OPERATOR 01536 0 61 05126 863 OPARY MIN NDIM 01537 0 71 05126 864 LDX NDIM 01540 0 76 05401 865 LDA NUMB 01541 2 35 05225 866 STA WORDS,IX2 01542 0 76 00076 867 LDA OP 01543 1 61 05554 868 SKEA CW+27 01544 0 01 04672 869 BRU TSEX 01545 2 76 05224 870 LDA WORDS-1,IX2 01546 3 11 05225 871 SKGA WORDS,IX2 01547 1 76 00026 872 ERR 'F' ILLEGAL ARRAY BOUND 01550 2 76 05224 873 LDA WORDS-1,IX2 01551 2 54 05225 874 SUB WORDS,IX2 01552 0 54 07131 875 SUB =1 01553 0 46 00400 876 CAX 01554 0 46 30003 877 CLR 01555 0 55 01653 878 ADD TOT 01556 0 41 01555 879 BRX $-1 01557 0 35 01653 880 STA TOT 01560 0 76 00076 881 LDA OP 01561 0 50 05535 882 SKE CW+12 01562 0 01 04672 883 BRU TSEX 01563 0 46 30003 884 CLR 01564 0 76 05144 885 LDA SWIND HAS TYPES 01565 0 50 07131 886 SKE =1 01566 0 01 01575 887 BRU OPAR6 01567 0 62 01653 888 XMA TOT BOOLEAN 01570 0 54 07214 889 OPAR7 SUB =24 01571 0 73 07145 890 SKG =0 01572 0 01 01602 891 BRU OPAR2 01573 0 61 01653 892 MIN TOT 01574 0 01 01570 893 BRU OPAR7 01575 0 50 07134 894 OPAR6 SKE =2 01576 0 01 01602 895 BRU OPAR2 01577 0 76 01653 896 OPAR1 LDA TOT 01600 0 67 00001 897 LSH 1 01601 0 35 01653 898 OPAR3 STA TOT 01602 0 76 05246 899 OPAR2 LDA NABADD 01603 0 54 05132 900 SUB NENT 01604 0 54 07131 901 SUB =1 01605 0 46 00400 902 CAX 01606 2 76 07326 903 LDA BASEA,IX2 01607 0 14 07215 904 ETR =077700000 01610 0 55 05134 905 ADD MAD 01611 2 35 07326 906 STA BASEA,IX2 01612 0 46 30003 907 CLR 01613 0 76 07146 908 LDA =3 01614 0 54 05144 909 SUB SWIND 01615 0 67 00005 910 LSH 5 01616 0 55 05126 911 ADD NDIM 01617 0 67 00016 912 LSH 14 01620 0 14 07215 913 ETR =077700000 01621 0 53 05151 914 SKN STYPE 01622 0 01 01640 915 BRU OPAR4 01623 0 55 05134 916 ADD MAD 01624 0 55 07131 917 ADD =1 01625 0 35 05225 918 STA WORDS 01626 0 76 05126 919 LDA NDIM 01627 0 75 07204 920 LDB =040000000 01630 0 43 04403 921 BRM MOVE 01631 0 43 04460 922 BRM CODOUT 01632 0 76 01653 923 LDA TOT 01633 0 63 05134 924 ADM MAD 01634 0 60 05132 925 OPAR5 SKR NENT 01635 0 01 01602 926 BRU OPAR2 01636 0 60 05312 927 SKR SK 01637 0 01 04672 928 BRU TSEX 01640 0 55 05141 929 OPAR4 ADD NDAD 01641 0 55 07216 930 ADD =010000000 01642 0 35 05225 931 STA WORDS 01643 0 43 02023 932 BRM BLKAD 01644 0 35 05226 933 STA WORDS+1 01645 0 76 01653 934 LDA TOT 01646 0 63 05141 935 ADM NDAD 01647 0 76 05126 936 LDA NDIM 01650 0 75 07162 937 LDB =020000000 01651 0 43 04403 938 BRM MOVE 01652 0 01 01634 939 BRU OPAR5 01653 00000001 940 TOT DATA 1 01654 0 00 00000 941 DUP PZE 01655 0 76 07130 942 LDA =-1 01656 0 43 02171 943 BRM STSCH 01657 0 50 07130 944 SKE =-1 01660 1 76 00027 945 ERR 'G' DUPLICATE USE OF IDENTIFIER 01661 0 51 01654 946 BRR DUP 947 * CHANGES CONSTRUCT FROM KIND -LAST DEF OF IDT RULE 01662 0 46 30003 948 MODA CLR 01663 0 43 02171 949 BRM STSCH 01664 0 72 07204 950 SKA =040000000 01665 0 01 02064 951 BRU LABREF 01666 0 35 05140 952 STA RAND 01667 2 76 07326 953 LDA BASEA,IX2 01670 0 75 07136 954 LDB =074000000 01671 1 06 07213 955 SKMA =024000000 XPRIDT 01672 0 01 01700 956 BRU MODA2 01673 0 70 07140 957 SKM =034000000 01674 0 01 01703 958 BRU MODA1 01675 0 76 05140 959 LDA RAND 01676 0 55 07131 960 ADD =1 01677 0 01 02070 961 BRU LBRF1 01700 0 14 07215 962 MODA2 ETR =077700000 01701 0 55 07217 963 ADD =BASEA 01702 0 55 05140 964 ADD RAND 01703 1 14 05442 965 MODA1 SKNA NOCOD 01704 0 61 05272 966 MIN SJ 01705 0 35 45272 967 STA *SJ 01706 0 72 07205 968 SKA =01000000 01707 0 43 04106 969 BRM FFDZ 01710 0 76 45272 970 LDA *SJ 01711 0 72 07162 971 SKA =020000000 PRIDT 01712 0 01 01724 972 BRU MODA4 01713 0 71 05140 973 MODA5 LDX RAND 01714 0 46 30003 974 CLR 01715 2 75 07326 975 LDB BASEA,IX2 01716 0 67 00004 976 LSH 4 01717 0 46 00400 977 MODA3 CAX 01720 2 75 05632 978 LDB TAB1,IX2 01721 0 71 05127 979 LDX MODE 01722 0 76 05116 980 LDA RMIN+1 01723 0 01 03314 981 BRU LW14+1 01724 0 76 05120 982 MODA4 LDA TMIN+1 01725 0 75 05153 983 LDB A4+1 01726 0 43 00456 984 BRM LDSNG 01727 1 61 07220 985 SKEA =ASSIGN 01730 0 01 01713 986 BRU MODA5 01731 0 43 04106 987 BRM FFDZ 01732 0 76 05117 988 LDA TMIN 01733 0 75 05152 989 LDB A4 01734 0 43 00456 990 BRM LDSNG 01735 1 61 07221 991 SKEA =LPAREN 01736 0 01 01713 992 BRU MODA5 01737 1 26 05617 993 COP BCJM0 01740 1 26 05620 994 COP ECJM0 01741 0 76 45272 995 LDA *SJ 01742 0 72 07172 996 SKA =00600000 01743 0 01 01747 997 BRU MODA6 01744 1 14 05442 998 SKNA NOCOD 01745 0 60 05272 999 SKR SJ 01746 0 01 01713 1000 BRU MODA5 01747 0 43 05020 1001 MODA6 BRM RST 01750 0 01 01713 1002 BRU MODA5 1003 * CHANGES CONSTRUCT FROM TYPE 01751 0 71 05140 1004 MODB LDX RAND 01752 2 75 07326 1005 LDB BASEA,IX2 01753 0 35 05175 1006 STA T+1 01754 0 67 00007 1007 LSH 7 GET MSB OF TYPE 01755 0 14 07131 1008 ETR =1 01756 0 55 05175 1009 ADD T+1 01757 0 01 01717 1010 BRU MODA3 1011 * ENTERS VARIABLES INTO S-T,BUILDS DESCRIPTORS 01760 0 76 05134 1012 VAR LDA MAD 01761 0 35 05133 1013 STA LA 01762 0 43 01654 1014 BRM DUP 01763 0 76 07131 1015 LDA =1 SIMP VAR IDT 01764 0 43 02113 1016 BRM ADST 01765 0 46 30003 1017 CLR 01766 0 53 05151 1018 SKN STYPE 01767 0 01 02005 1019 BRU VAR4 NON-OWN 01770 0 71 05150 1020 LDX TYPES 01771 2 01 01771 1021 BRU $,IX2 01772 0 01 02001 1022 BRU VAR1 BOOLEAN 01773 0 01 02003 1023 BRU VAR2 REAL 01774 0 75 07142 1024 LDB =060000000 INTEGER 01775 0 36 05225 1025 VAR3 STB WORDS 01776 0 46 00002 1026 CLB 01777 0 43 04403 1027 BRM MOVE 02000 0 01 00737 1028 BRU SM 02001 0 75 07216 1029 VAR1 LDB =010000000 02002 0 01 01775 1030 BRU VAR3 02003 0 55 07131 1031 VAR2 ADD =1 02004 0 01 01775 1032 BRU VAR3 02005 0 76 07212 1033 VAR4 LDA =7 02006 0 54 05150 1034 SUB TYPES 02007 0 67 00023 1035 LSH 19 02010 0 55 05141 1036 ADD NDAD 02011 0 35 05225 1037 STA WORDS 02012 0 61 05141 1038 MIN NDAD 02013 0 75 07222 1039 LDB =06000000 02014 1 06 07223 1040 SKMA =02000000 02015 0 61 05141 1041 MIN NDAD 02016 0 43 02023 1042 BRM BLKAD 02017 0 75 07162 1043 LDB =020000000 02020 0 35 05226 1044 STA WORDS+1 02021 0 76 07131 1045 LDA =1 02022 0 01 01777 1046 BRU VAR3+2 1047 * GETS ADDRESS OF BB COMMAND FOR DESCRIPTORS 02023 0 00 00000 1048 BLKAD PZE 02024 0 76 05452 1049 LDA BLKPAR 02025 0 54 07175 1050 SUB =5 02026 0 35 02027 1051 STA $+1 02027 0 76 00000 1052 LDA 02030 0 14 07173 1053 ETR =077777 02031 0 51 02023 1054 BRR BLKAD 00002032 1055 N EQU $ 1056 * LABEL DEFINITION POINTS 02032 0 43 03565 1057 LABDEF BRM ADBLNK 02033 0 53 05142 1058 SKN PROCSW 02034 0 01 02041 1059 BRU LBDF3 02035 0 76 05132 1060 LDA NENT 02036 0 35 05142 1061 STA PROCSW 02037 0 75 07130 1062 LDB =-1 02040 0 43 04403 1063 BRM MOVE 02041 0 76 07130 1064 LBDF3 LDA =-1 02042 0 43 02171 1065 BRM STSCH SRCH THIS BLOCK ONLY 02043 0 73 07130 1066 SKG =-1 02044 0 01 02057 1067 BRU LBDF1 02045 2 76 07326 1068 LDA BASEA,IX2 02046 0 14 07136 1069 ETR =074000000 02047 0 50 07140 1070 SKE =034000000 UNCLAB 02050 1 76 00027 1071 ERR 'G' DUPLICATE USE OF IDENTIFIER 02051 0 76 05134 1072 LDA MAD LA=MAD 02052 0 55 07204 1073 ADD =040000000 KIND=LABEL 02053 2 62 07326 1074 XMA BASEA,IX2 02054 0 43 04442 1075 BRM INTOUT 02055 0 75 07224 1076 LBDF2 LDB =LBLSL 02056 0 01 03310 1077 BRU LW9 02057 0 76 05134 1078 LBDF1 LDA MAD 02060 0 35 05133 1079 STA LA 02061 0 76 07167 1080 LDA =8 02062 0 43 02113 1081 BRM ADST 02063 0 01 02055 1082 BRU LBDF2 02064 1 22 05133 1083 LABREF STZ LA 02065 0 76 07212 1084 LDA =7 02066 0 43 02113 1085 BRM ADST 02067 0 76 05246 1086 LDA NABADD 02070 0 55 07225 1087 LBRF1 ADD =BASEA-1+034000000 02071 1 14 05442 1088 SKNA NOCOD 02072 0 61 05272 1089 MIN SJ 02073 0 35 45272 1090 STA *SJ 02074 0 01 00737 1091 BRU SM 02075 0 76 05134 1092 SWIT LDA MAD 02076 0 35 05145 1093 STA POSADD 02077 1 22 05133 1094 STZ LA 02100 1 22 05132 1095 STZ NENT 02101 0 76 07226 1096 LDA =0400 02102 0 35 45312 1097 STA *SK 02103 0 76 07130 1098 LDA =-1 02104 0 35 05136 1099 STA DECSW 02105 0 76 05246 1100 LDA NABADD 02106 0 35 05144 1101 STA SWIND 02107 0 43 01654 1102 BRM DUP 02110 0 76 07146 1103 LDA =3 02111 0 43 02113 1104 BRM ADST 02112 0 01 00737 1105 BRU SM 1106 * PUTS NEW ENTRY INTO SYMBOL TABLE 02113 0 00 00000 1107 ADST PZE 02114 0 46 00002 1108 CLB 02115 0 67 00002 1109 LSH 2 02116 0 55 05147 1110 ADD PARA 02117 0 67 00002 1111 LSH 2 02120 0 55 05150 1112 ADD TYPES 02121 0 67 00001 1113 LSH 1 02122 1 14 05151 1114 SKNA STYPE 02123 0 55 07131 1115 ADD =1 02124 0 67 00017 1116 LSH 15 02125 0 55 05133 1117 ADD LA 02126 0 71 05246 1118 ADS1 LDX NABADD 02127 2 35 07326 1119 STA BASEA,IX2 A PART 02130 0 76 00072 1120 LDA LEN 02131 0 67 00017 1121 LSH 15 02132 0 55 05267 1122 ADD A16 BASEC-1 02133 0 55 05247 1123 ADD NCADD 02134 0 35 45265 1124 STA *A15B B PART 02135 0 61 05246 1125 MIN NABADD 02136 0 55 07131 1126 ADD =1 02137 0 35 05215 1127 STA T+17 02140 0 75 05215 1128 LDB T+17 02141 0 14 07215 1129 ETR =077700000 02142 0 55 07227 1130 ADD =NAME-1 02143 0 43 02155 1131 BRM MOVNAM 02144 0 76 00072 1132 LDA LEN 02145 0 66 00002 1133 RSH 2 02146 0 55 07131 1134 ADD =1 02147 0 63 05247 1135 ADM NCADD 02150 0 76 05246 1136 LDA NABADD 02151 0 73 05266 1137 SKG A15L 02152 0 51 02113 1138 BRR ADST 02153 1 76 00030 1139 ERR 'H' SYMBOL TABLE OVERFLOW 02154 0 01 03763 1140 BRU WAIT 1141 * NAME MOVER: A=LEN,'FROM' ADDR.-1; B='TO' ADDR. 02155 0 00 00000 1142 MOVNAM PZE 02156 0 35 05215 1143 STA T+17 02157 0 36 05216 1144 STB T+18 02160 0 66 00021 1145 RSH 17 02161 0 35 05217 1146 STA T+19 02162 0 61 05215 1147 MVN1 MIN T+17 02163 0 76 45215 1148 LDA *T+17 02164 0 35 45216 1149 STA *T+18 02165 0 61 05216 1150 MIN T+18 02166 0 60 05217 1151 SKR T+19 02167 0 01 02162 1152 BRU MVN1 02170 0 51 02155 1153 BRR MOVNAM 1154 * S-T SEARCH A=0 IS ALL ON INPUT 02171 0 00 00000 1155 STSCH PZE 02172 0 46 00002 1156 CLB 02173 0 72 07130 1157 SKA =-1 02174 0 75 45250 1158 LDB *BCTAB THIS BLOCK ONLY 02175 0 67 00017 1159 LSH 15 02176 0 14 07171 1160 ETR =00000777 02177 0 35 05174 1161 STA T END ENTRY 02200 0 76 05246 1162 LDA NABADD 02201 0 54 07131 1163 SUB =1 02202 0 46 00400 1164 STS1 CAX 02203 0 55 07131 1165 ADD =1 02204 0 73 05174 1166 SKG T 02205 0 01 02237 1167 BRU STS4 DONE - NON-EXIST 02206 0 46 30003 1168 CLR 02207 0 75 45265 1169 LDB *A15B 02210 0 67 00011 1170 LSH 9 02211 0 50 00072 1171 SKE LEN 02212 0 01 02234 1172 BRU STS3 02213 0 66 00002 1173 RSH 2 02214 0 35 05175 1174 STA T+1 02215 0 76 45265 1175 LDA *A15B 02216 0 14 07173 1176 ETR =077777 02217 0 55 07131 1177 ADD =1 02220 0 35 05223 1178 STA T+23 02221 0 76 05260 1179 LDA A10 SKE NAME 02222 0 35 02224 1180 STA STS2+1 02223 0 76 45223 1181 STS2 LDA *T+23 02224 0 50 00073 1182 SKE NAME 02225 0 01 02234 1183 BRU STS3 02226 0 61 05223 1184 MIN T+23 02227 0 61 02224 1185 MIN STS2+1 02230 0 60 05175 1186 SKR T+1 02231 0 01 02223 1187 BRU STS2 02232 0 46 00200 1188 CXA 02233 0 51 02171 1189 BRR STSCH EXIT WITH ENTRY NO. 02234 0 46 00200 1190 STS3 CXA 02235 0 54 07131 1191 SUB =1 02236 0 01 02202 1192 BRU STS1 02237 0 76 07130 1193 STS4 LDA =-1 EXIT WITH NON-EXIST FLAG 02240 0 51 02171 1194 BRR STSCH 1195 * BLOCK PUSH-DOWN MAINTENANCE 02241 1 26 05607 1196 BEGBLK COP BBNA 02242 0 46 30003 1197 CLR 02243 0 35 05225 1198 STA WORDS 02244 0 35 05226 1199 STA WORDS+1 02245 0 35 05227 1200 STA WORDS+2 02246 0 76 07134 1201 LDA =2 02247 0 43 04403 1202 BRM MOVE 02250 0 61 05250 1203 MIN BCTAB 02251 0 46 30003 1204 CLR 02252 0 55 05246 1205 ADD NABADD NEXT AVAIL ABADD 02253 0 67 00011 1206 LSH 9 02254 0 55 05247 1207 ADD NCADD NEXT AVAIL CADD 02255 0 35 45250 1208 STA *BCTAB 02256 0 61 05452 1209 MIN BLKPAR 02257 0 76 05134 1210 LDA MAD 02260 0 55 07201 1211 ADD =020100000 02261 0 54 07144 1212 SUB =4 02262 0 75 07134 1213 LDB =2 02263 0 71 07230 1214 LDX =-2 02264 0 35 45452 1215 STA *BLKPAR 02265 0 55 07131 1216 BEGB1 ADD =1 02266 0 46 00014 1217 XAB 02267 0 63 05452 1218 ADM BLKPAR 02270 0 46 00014 1219 XAB 02271 0 35 45452 1220 STA *BLKPAR 02272 0 41 02265 1221 BRX BEGB1 02273 0 61 05452 1222 MIN BLKPAR 02274 0 61 05443 1223 MIN MTEMP 02275 0 61 05512 1224 MIN DNSP 02276 0 76 05141 1225 LDA NDAD 02277 0 35 45512 1226 STA *DNSP 02300 1 22 45443 1227 STZ *MTEMP CLEAR MAX TEMP USAGE, THIS BLOCK 02301 1 22 05141 1228 STZ NDAD 02302 0 01 00737 1229 BRU SM 1230 * PERFORM END-OF-BLOCK OPERATIONS 02303 0 76 07204 1231 ENDBLK LDA =040000000 02304 0 55 05141 1232 ADD NDAD 02305 0 35 45452 1233 STA *BLKPAR 02306 0 76 45512 1234 LDA *DNSP 02307 0 35 05141 1235 STA NDAD 02310 0 76 05452 1236 LDA BLKPAR 02311 0 54 07134 1237 SUB =2 02312 0 35 05222 1238 STA T+22 02313 0 76 05134 1239 LDA MAD 02314 0 55 07231 1240 ADD =040100000 02315 0 35 45222 1241 STA *T+22 02316 0 76 45443 1242 LDA *MTEMP 02317 0 67 00020 1243 LSH 16 02320 0 14 07232 1244 ETR =077600000 02321 0 55 05611 1245 NDB6 ADD EBNA 02322 0 43 04141 1246 BRM COA 02323 0 60 05443 1247 SKR MTEMP 02324 0 43 04460 1248 BRM CODOUT 02325 0 76 05452 1249 LDA BLKPAR 02326 0 14 07173 1250 ETR =077777 02327 0 55 07233 1251 ADD =02677772 02330 0 75 07234 1252 LDB =040750000 02331 0 36 00026 1253 STB BUF 02332 0 75 07177 1254 LDB =BUF+1 02333 0 43 02155 1255 BRM MOVNAM 02334 0 43 04614 1256 BRM SEND 02335 0 76 07235 1257 LDA =-6 02336 0 63 05452 1258 ADM BLKPAR 02337 0 76 05246 1259 LDA NABADD 02340 0 55 05264 1260 ADD A15 LDA BASEA,IX2 02341 0 35 05213 1261 STA T+15 02342 0 55 05266 1262 ADD A15L 02343 0 35 05214 1263 STA T+16 02344 0 76 45250 1264 LDA *BCTAB 02345 0 66 00011 1265 RSH 9 02346 0 14 07171 1266 ETR =0777 02347 0 62 05246 1267 XMA NABADD 02350 0 54 05246 1268 SUB NABADD 02351 0 46 01000 1269 CNA 02352 0 46 00400 1270 CAX 02353 0 76 45250 1271 LDA *BCTAB 02354 0 14 07171 1272 ETR =0777 02355 0 35 05247 1273 STA NCADD 02356 0 60 05250 1274 SKR BCTAB 02357 0 60 05512 1275 SKR DNSP 02360 0 75 07136 1276 NDB2 LDB =074000000 02361 0 76 45213 1277 LDA *T+15 02362 1 06 07140 1278 SKMA =034000000 UNENCLAB 02363 0 01 02403 1279 BRU NDB3 02364 0 70 07213 1280 SKM =024000000 XPRIDT 02365 0 01 02376 1281 BRU NDB5 02366 0 75 07173 1282 LDB =077777 02367 1 06 07145 1283 SKMA =0 02370 0 01 02376 1284 BRU NDB5 02371 0 76 45214 1285 LDA *T+16 02372 0 75 45213 1286 LDB *T+15 02373 0 43 01221 1287 BRM XNAM 02374 0 35 00031 1288 STA BUF+3 02375 0 43 04614 1289 BRM SEND 02376 0 41 02360 1290 NDB5 BRX NDB2 02377 0 76 02402 1291 LDA NDB7 02400 0 35 02321 1292 STA NDB6 02401 0 01 00737 1293 BRU SM 02402 0 55 05611 1294 NDB7 ADD EBNA 02403 0 76 45214 1295 NDB3 LDA *T+16 02404 0 75 07236 1296 LDB =NAME 02405 0 43 02155 1297 BRM MOVNAM 02406 0 76 45214 1298 LDA *T+16 02407 0 66 00017 1299 RSH 15 02410 0 35 00072 1300 STA LEN 02411 0 37 05220 1301 STX T+20 02412 0 76 07130 1302 LDA =-1 02413 0 43 02171 1303 BRM STSCH 02414 0 72 07204 1304 SKA =040000000 02415 0 01 02434 1305 BRU NDB4 NONE FOUND 02416 2 76 07326 1306 LDA BASEA,IX2 02417 0 75 07136 1307 LDB =074000000 02420 0 70 07204 1308 SKM =040000000 LABEL 02421 0 01 02434 1309 BRU NDB4 02422 0 14 07173 1310 ETR =077777 02423 0 35 05217 1311 STA T+19 02424 0 43 04460 1312 BRM CODOUT 02425 0 71 05220 1313 LDX T+20 02426 0 75 45213 1314 LDB *T+15 02427 0 36 05216 1315 STB T+18 02430 0 75 07237 1316 LDB =NDB8-1 02431 0 36 04442 1317 STB INTOUT 02432 0 76 05217 1318 LDA T+19 02433 0 01 04446 1319 BRU INT1 02434 0 76 07237 1320 NDB4 LDA =NDB8-1 02435 0 35 02113 1321 STA ADST 02436 0 71 05220 1322 LDX T+20 02437 0 46 30003 1323 CLR 02440 0 76 45213 1324 LDA *T+15 02441 0 01 02126 1325 BRU ADS1 02442 0 71 05220 1326 NDB8 LDX T+20 02443 0 01 02376 1327 BRU NDB5 1328 * SWITCH DECLARATION OPERATOR 02444 0 61 05132 1329 OPSW MIN NENT 02445 0 76 05132 1330 LDA NENT 02446 0 55 07134 1331 ADD =2 02447 0 46 00400 1332 CAX 02450 0 76 05145 1333 LDA POSADD 02451 2 35 05225 1334 STA WORDS,IX2 02452 0 43 02505 1335 BRM GOSW 02453 0 76 00076 1336 LDA OP 02454 0 50 05531 1337 SKE CW+8 SEMCOL 02455 0 01 02477 1338 BRU OPSW1 02456 0 76 05134 1339 LDA MAD 02457 0 55 07240 1340 ADD =0100001 DESCR 0, T=0,N=1,ADDR=MAD 02460 0 35 05225 1341 STA WORDS 02461 0 76 07131 1342 LDA =1 LOB 02462 0 35 05226 1343 STA WORDS+1 02463 0 76 05132 1344 LDA NENT UPB 02464 0 35 05227 1345 STA WORDS+2 02465 0 71 05144 1346 LDX SWIND 02466 0 76 05134 1347 LDA MAD 02467 2 63 07326 1348 ADM BASEA,IX2 02470 0 76 05132 1349 LDA NENT 02471 0 55 07134 1350 ADD =2 02472 0 75 07241 1351 LDB =047777777 RELOC INFO 02473 0 43 04403 1352 BRM MOVE 02474 0 60 05312 1353 SKR SK 02475 1 22 05136 1354 STZ DECSW 02476 0 01 04672 1355 BRU TSEX 02477 0 76 05134 1356 OPSW1 LDA MAD 02500 0 35 05145 1357 STA POSADD 02501 0 01 04672 1358 BRU TSEX 02502 0 43 02505 1359 OPGO BRM GOSW 02503 0 60 05312 1360 SKR SK 02504 0 01 04660 1361 BRU TS2 1362 * GOTO,SWITCH COMMON GENERATION 02505 0 00 00000 1363 GOSW PZE 02506 0 46 30003 1364 CLR 02507 0 76 05131 1365 LDA ITESW 02510 0 36 05131 1366 STB ITESW 02511 0 72 07130 1367 SKA =-1 02512 0 51 02505 1368 BRR GOSW 02513 0 76 45272 1369 LDA *SJ 02514 0 14 07136 1370 ETR =074000000 02515 1 61 07204 1371 SKEA =040000000 LABEL 02516 0 01 02524 1372 BRU GOSW1 02517 1 61 07140 1373 SKEA =034000000 UNCLAB 02520 0 01 02524 1374 BRU GOSW1 02521 0 43 02607 1375 BRM GOSS 02522 0 63 05272 1376 GOSW2 ADM SJ 02523 0 51 02505 1377 BRR GOSW 02524 1 26 05605 1378 GOSW1 COP UJJM0 02525 0 76 07130 1379 LDA =-1 02526 0 01 02522 1380 BRU GOSW2 1381 * ELSE OPERATOR 02527 0 76 45272 1382 OPELS LDA *SJ 02530 1 61 05272 1383 SKEA SJ 02531 0 01 02605 1384 BRU OPELS7 02532 0 14 07136 1385 ETR =074000000 02533 1 61 07142 1386 SKEA =060000000 FR 02534 0 01 02602 1387 BRU OPELS5 02535 1 61 07204 1388 SKEA =040000000 02536 0 01 02600 1389 BRU OPELS3 LABEL 02537 1 61 07140 1390 SKEA =034000000 02540 0 01 02600 1391 BRU OPELS3 UNENCLAB 02541 0 76 05272 1392 LDA SJ 02542 0 54 07131 1393 SUB =1 02543 0 35 02544 1394 STA $+1 02544 0 76 00000 1395 LDA 02545 0 14 07136 1396 ETR =074000000 02546 1 61 07152 1397 SKEA =014000000 02547 0 01 02562 1398 BRU OPELS1 SWIDT 02550 0 76 05130 1399 LDA RSULT 02551 1 61 07145 1400 SKEA =0 02552 1 26 05572 1401 COP LDJM0 02553 0 76 07130 1402 LDA =-1 02554 0 43 04375 1403 BRM RECFR 02555 0 75 45272 1404 LDB *SJ 02556 0 60 05272 1405 SKR SJ 02557 0 36 45272 1406 STB *SJ 02560 0 43 05020 1407 BRM RST 02561 0 01 02576 1408 BRU OPELS2 02562 0 43 02607 1409 OPELS1 BRM GOSS SJ-1 = SWIDT 02563 0 76 07130 1410 OPELS4 LDA =-1 02564 0 55 05312 1411 ADD SK 02565 0 35 02566 1412 STA $+1 02566 0 76 00000 1413 LDA 02567 1 61 05527 1414 SKEA CW+6 SW OPERATOR 02570 0 01 02573 1415 BRU $+3 02571 0 50 05530 1416 SKE CW+7 GOTO OPERATOR 02572 0 01 02575 1417 BRU $+3 02573 0 76 07131 1418 LDA =1 02574 0 35 05131 1419 STA ITESW 02575 0 60 05272 1420 OPELS6 SKR SJ 02576 0 60 05312 1421 OPELS2 SKR SK 02577 0 01 04660 1422 BRU TS2 02600 1 26 05605 1423 OPELS3 COP UJJM0 02601 0 01 02563 1424 BRU OPELS4 02602 0 46 30003 1425 OPELS5 CLR 02603 0 43 04375 1426 BRM RECFR 02604 0 01 02575 1427 BRU OPELS6 02605 0 61 05272 1428 OPELS7 MIN SJ 02606 0 01 02563 1429 BRU OPELS4 1430 * OUTPUTS GO SJ-1,SSSJ-0 02607 0 00 00000 1431 GOSS PZE 02610 0 43 02762 1432 BRM SAVE 02611 1 26 05604 1433 COP UJJM1 02612 1 26 05573 1434 COP SSJM0 02613 0 76 07130 1435 LDA =-1 02614 0 63 05272 1436 ADM SJ 02615 0 51 02607 1437 BRR GOSS 1438 * THEN OPERATOR 02616 0 76 45272 1439 OPTH LDA *SJ 02617 0 14 07136 1440 ETR =074000000 02620 1 61 07142 1441 SKEA =060000000 02621 0 01 02665 1442 BRU OPTH3 FR 02622 1 61 07204 1443 SKEA =040000000 02623 0 01 02703 1444 BRU OPTH8 LABEL 02624 1 61 07140 1445 SKEA =034000000 02625 0 01 02703 1446 BRU OPTH8 UNENCLAB 02626 0 76 05272 1447 LDA SJ 02627 0 54 07131 1448 SUB =1 02630 0 35 02631 1449 STA $+1 02631 0 76 00000 1450 LDA 02632 0 14 07136 1451 ETR =074000000 02633 1 61 07152 1452 SKEA =014000000 02634 0 01 02677 1453 BRU OPTH6 SWIDT 02635 0 43 02753 1454 BRM FINDR 02636 0 72 07204 1455 SKA =040000000 02637 0 01 02642 1456 BRU OPTH1 NO RESULT 02640 1 22 05130 1457 STZ RSULT 02641 0 01 02643 1458 BRU OPTH2 02642 1 26 05572 1459 OPTH1 COP LDJM0 02643 0 46 30003 1460 OPTH2 CLR 02644 0 43 04367 1461 BRM SETFR SJ-0 02645 1 26 05605 1462 COP UJJM0 02646 0 76 07130 1463 LDA =-1 02647 0 43 04375 1464 BRM RECFR SJ-1 02650 0 76 05272 1465 LDA SJ 02651 0 54 07131 1466 SUB =1 02652 0 35 05216 1467 STA T+18 02653 0 76 45272 1468 LDA *SJ 02654 0 35 45216 1469 STA *T+18 02655 0 76 00076 1470 OPTH7 LDA OP 02656 0 50 05526 1471 SKE CW+5 ELSE (OP) OPERATOR 02657 0 01 02674 1472 BRU OPTH5 02660 0 76 05525 1473 LDA CW+4 ELSE (STACK) OPERATOR 02661 0 35 45312 1474 STA *SK 02662 0 76 07130 1475 LDA =-1 02663 0 63 05272 1476 OPTH4 ADM SJ 02664 0 01 04672 1477 BRU TSEX 02665 0 76 00076 1478 OPTH3 LDA OP 02666 0 50 05526 1479 SKE CW+5 ELSE 02667 0 01 02672 1480 BRU $+3 02670 0 61 05272 1481 MIN SJ 02671 0 01 02643 1482 BRU OPTH2 02672 0 46 30003 1483 CLR 02673 0 43 04375 1484 BRM RECFR 02674 0 60 05312 1485 OPTH5 SKR SK 02675 0 60 05272 1486 SKR SJ 02676 0 01 04660 1487 BRU TS2 02677 0 43 02607 1488 OPTH6 BRM GOSS SJ-1 = SWIDT 02700 0 43 04375 1489 OPTH9 BRM RECFR SJ-1 02701 0 60 05272 1490 SKR SJ 02702 0 01 02655 1491 BRU OPTH7 02703 1 26 05605 1492 OPTH8 COP UJJM0 02704 0 76 07130 1493 LDA =-1 02705 0 01 02700 1494 BRU OPTH9 1495 * IF OPERATOR 02706 0 76 05130 1496 OPIF LDA RSULT 02707 1 61 07145 1497 SKEA =0 02710 1 26 05572 1498 COP LDJM0 02711 0 46 30003 1499 CLR 02712 0 35 05130 1500 STA RSULT 02713 0 43 04367 1501 BRM SETFR 02714 1 26 05602 1502 COP JFJM0 02715 0 76 05523 1503 LDA CW+2 THEN 02716 0 35 45312 1504 STA *SK 02717 0 01 04672 1505 BRU TSEX 1506 * ASSIGNMENT OPERATOR CODE GENERATOR 02720 0 76 05130 1507 OPASS LDA RSULT 02721 1 61 07145 1508 SKEA =0 02722 1 26 05572 1509 COP LDJM0 02723 0 60 05272 1510 SKR SJ 02724 0 76 45272 1511 LDA *SJ 02725 0 75 07136 1512 LDB =074000000 02726 0 70 07162 1513 SKM =020000000 INT PRIDT 02727 0 01 02736 1514 BRU OPAS3 02730 0 14 07173 1515 ETR =077777 02731 0 55 07242 1516 ADD =060400000 02732 0 35 05225 1517 STA WORDS 02733 0 46 20005 1518 ABC 02734 0 43 04403 1519 BRM MOVE 02735 0 01 02737 1520 BRU $+2 02736 1 26 05574 1521 OPAS3 COP STJM0 02737 0 60 05312 1522 SKR SK 02740 0 76 45312 1523 LDA *SK 02741 0 50 05522 1524 SKE CW+1 ASSIGN 02742 0 01 02747 1525 BRU OPAS1 02743 0 76 05272 1526 LDA SJ 02744 0 54 05262 1527 SUB A12 LDA SJ 02745 0 35 05130 1528 OPAS2 STA RSULT 02746 0 01 04660 1529 BRU TS2 02747 0 50 05560 1530 OPAS1 SKE CW+31 PHI OP 02750 0 60 05272 1531 SKR SJ 02751 0 46 30003 1532 CLR 02752 0 01 02745 1533 BRU OPAS2 1534 * GETS INCREMENT OF RESULT,IF ANY,RELATIVE TO NORMAL SJ 02753 0 00 00000 1535 FINDR PZE 02754 0 76 05272 1536 LDA SJ 02755 0 54 05130 1537 SUB RSULT 02756 1 61 05272 1538 SKEA SJ 02757 0 46 30003 1539 CLR 02760 0 54 05262 1540 SUB A12 LDA SJ 02761 0 51 02753 1541 BRR FINDR 02762 0 00 00000 1542 SAVE PZE 02763 0 76 05130 1543 LDA RSULT 02764 1 11 07145 1544 SKGA =0 02765 1 26 05567 1545 COP STT 02766 0 51 02762 1546 BRR SAVE 02767 0 00 00000 1547 XCH PZE 02770 0 76 05272 1548 LDA SJ 02771 0 55 07130 1549 ADD =-1 02772 0 35 05216 1550 STA T+18 02773 0 76 45216 1551 LDA *T+18 02774 0 62 45272 1552 XMA *SJ 02775 0 35 45216 1553 STA *T+18 02776 0 51 02767 1554 BRR XCH 1555 * FOR STMT CODE GENERATOR 02777 0 76 00076 1556 OPFOR LDA OP 03000 0 50 05562 1557 SKE CW+33 WHILE OP 03001 0 01 03005 1558 BRU OPF1 03002 0 76 07131 1559 LDA =1 03003 0 35 05137 1560 OPF3 STA TELE 03004 0 01 04672 1561 BRU TSEX 03005 0 50 05563 1562 OPF1 SKE CW+34 UNTIL OP 03006 0 01 03011 1563 BRU OPF2 03007 0 43 02762 1564 BRM SAVE 03010 0 01 04672 1565 BRU TSEX 03011 0 50 05564 1566 OPF2 SKE CW+35 STEP OP 03012 0 01 03017 1567 BRU OPF4 03013 0 76 05134 1568 LDA MAD 03014 0 35 05631 1569 STA BR 03015 0 76 07134 1570 LDA =2 03016 0 01 03003 1571 BRU OPF3 03017 0 76 05137 1572 OPF4 LDA TELE 03020 0 50 07131 1573 SKE =1 WH 03021 0 01 03025 1574 BRU OPF5 03022 0 43 02762 1575 BRM SAVE 03023 1 26 05575 1576 COP WHJM0 03024 0 01 03033 1577 BRU OPF6 03025 0 50 07134 1578 OPF5 SKE =2 STEP-UNTIL 03026 0 01 03105 1579 BRU OPF13 03027 0 43 02762 1580 BRM SAVE 03030 1 26 05621 1581 COP SUJM0 03031 0 60 05272 1582 SKR SJ 03032 1 26 05570 1583 COP PZJMO 03033 0 53 05375 1584 OPF6 SKN FEFSW 03034 0 01 03040 1585 BRU OPF7 03035 0 60 05272 1586 SKR SJ 03036 0 43 02767 1587 BRM XCH 03037 0 01 03044 1588 BRU OPF8 03040 0 76 07130 1589 OPF7 LDA =-1 03041 0 35 05375 1590 STA FEFSW 03042 0 76 07145 1591 LDA =0 03043 0 43 04367 1592 BRM SETFR 03044 0 76 05137 1593 OPF8 LDA TELE 03045 1 61 07145 1594 SKEA =0 03046 0 01 03057 1595 BRU OPF9 03047 1 26 05622 1596 COP JPJM0 03050 0 76 05631 1597 LDA BR 03051 0 55 07243 1598 ADD =04000000 03052 0 35 05225 1599 STA WORDS 03053 0 46 30003 1600 CLR 03054 0 75 07130 1601 LDB =-1 03055 0 43 04403 1602 BRM MOVE 03056 0 01 03061 1603 BRU OPF11 03057 1 26 05623 1604 OPF9 COP SPLJM0 03060 1 26 05624 1605 COP DEALNA 03061 1 22 05137 1606 OPF11 STZ TELE 03062 0 76 00076 1607 LDA OP 03063 0 50 05565 1608 SKE CW+36 DO 03064 0 01 03076 1609 BRU OPF12 03065 0 76 07130 1610 LDA =-1 03066 0 43 04367 1611 BRM SETFR 03067 1 26 05625 1612 COP JPJM1 03070 0 76 07145 1613 LDA =0 03071 0 43 04375 1614 BRM RECFR 03072 0 60 05272 1615 SKR SJ 03073 0 76 05561 1616 LDA CW+32 PHI R OP 03074 0 35 45312 1617 OPF14 STA *SK 03075 0 01 04672 1618 BRU TSEX 03076 1 26 05626 1619 OPF12 COP ALJM2 03077 0 43 02767 1620 BRM XCH 03100 0 76 05134 1621 LDA MAD 03101 0 35 05631 1622 STA BR 03102 0 61 05312 1623 MIN SK 03103 0 76 05522 1624 LDA CW+1 ASSIGN 03104 0 01 03074 1625 BRU OPF14 03105 0 61 05272 1626 OPF13 MIN SJ 03106 0 01 03033 1627 BRU OPF6 03107 0 53 05442 1628 OPFRR SKN NOCOD 03110 0 01 04660 1629 BRU TS2 03111 0 76 07130 1630 LDA =-1 03112 0 43 04375 1631 BRM RECFR 03113 1 26 05627 1632 COP EFBNA 03114 0 76 07145 1633 LDA =0 03115 0 43 04375 1634 BRM RECFR 03116 0 76 07230 1635 LDA =-2 03117 0 63 05272 1636 ADM SJ 03120 0 60 05312 1637 SKR SK 03121 0 01 04660 1638 BRU TS2 1639 * UNARY OPERATOR CODE GENERATOR 03122 0 53 05135 1640 OPUN SKN DECST 03123 0 01 03130 1641 BRU OPU4 03124 0 46 30003 1642 CLR NEG ARRAY BOUND 03125 0 54 05401 1643 SUB NUMB 03126 0 35 05401 1644 STA NUMB 03127 0 01 03140 1645 BRU OPU3 03130 0 43 02753 1646 OPU4 BRM FINDR 03131 0 72 07204 1647 SKA =040000000 03132 0 01 03136 1648 BRU OPU1 NO RESULT LEFT 03133 0 73 07145 1649 SKG =0 03134 0 01 03142 1650 BRU OPU2 03135 1 26 05567 1651 COP STT 03136 1 26 05576 1652 OPU1 COP LDNJM0 03137 0 43 05020 1653 BRM RST 03140 0 60 05312 1654 OPU3 SKR SK 03141 0 01 04660 1655 BRU TS2 03142 1 26 05577 1656 OPU2 COP NEG 03143 0 01 03140 1657 BRU OPU3 1658 * BINARY OPERATOR CODE GENERATOR 03144 0 76 45312 1659 OPBIN LDA *SK 03145 0 50 05553 1660 SKE CW+26 ** 03146 0 01 03161 1661 BRU OPB6 03147 0 43 02762 1662 BRM SAVE 03150 0 76 07244 1663 LDA =XPON+024400000 03151 0 61 05272 1664 MIN SJ 03152 0 35 45272 1665 STA *SJ 03153 1 26 05617 1666 COP BCJM0 03154 1 26 05616 1667 COP PJM2 03155 1 26 05615 1668 COP PJM1 03156 1 26 05620 1669 COP ECJM0 03157 0 60 05272 1670 SKR SJ 03160 0 01 03175 1671 BRU OPB3 03161 0 43 02753 1672 OPB6 BRM FINDR 03162 0 72 07204 1673 SKA =040000000 03163 0 01 03201 1674 BRU OPB4 NO RESULT LEFT 03164 0 73 07131 1675 SKG =1 03165 0 01 03170 1676 BRU OPB1 03166 1 26 05567 1677 COP STT 03167 0 01 03201 1678 BRU OPB4 03170 0 73 07145 1679 OPB1 SKG =0 03171 0 01 03174 1680 BRU OPB2 03172 1 26 05600 1681 OPB5 COP OPJM0 03173 0 01 03175 1682 BRU OPB3 03174 1 26 05601 1683 OPB2 COP OPIJM1 03175 0 60 05272 1684 OPB3 SKR SJ 03176 0 43 05020 1685 BRM RST 03177 0 60 05312 1686 SKR SK 03200 0 01 04660 1687 BRU TS2 03201 1 26 05571 1688 OPB4 COP LDJM1 03202 0 01 03172 1689 BRU OPB5 1690 * CHECK NAME WITH LEXICON - INT FCNS 03203 0 76 05244 1691 LWCHK LDA A7 03204 0 35 05211 1692 STA T+13 03205 1 22 00075 1693 STZ CNT 03206 0 46 00400 1694 LW3 CAX 03207 0 75 45211 1695 LDB *T+13 03210 0 67 00004 1696 LSH 4 03211 0 35 05213 1697 STA T+15 03212 0 66 00002 1698 RSH 2 03213 0 55 07131 1699 ADD =1 03214 0 35 05212 1700 STA T+14 NO. NAME WDS 03215 0 76 05213 1701 LDA T+15 LEX WD LEN 03216 0 50 00072 1702 SKE LEN 03217 0 01 03232 1703 BRU LW2 03220 0 76 05212 1704 LDA T+14 03221 0 46 00400 1705 LW1 CAX 03222 0 76 45211 1706 LDA *T+13 03223 2 50 00072 1707 SKE NAME-1,IX2 03224 0 01 03234 1708 BRU LW4 03225 0 46 00200 1709 CXA 03226 0 54 07131 1710 SUB =1 03227 1 61 07145 1711 SKEA =0 03230 0 01 03245 1712 BRU LW5 03231 0 01 03221 1713 BRU LW1 03232 1 11 00072 1714 LW2 SKGA LEN 03233 0 01 03342 1715 LW6 BRU LW16 NON-LEXICON IN QUOTES 03234 0 61 00075 1716 LW4 MIN CNT 03235 0 76 07245 1717 LDA =29 03236 0 73 00075 1718 SKG CNT 03237 0 01 03233 1719 BRU LW6 03240 0 76 05212 1720 LDA T+14 03241 0 55 07131 1721 ADD =1 03242 0 63 05211 1722 ADM T+13 03243 0 46 30003 1723 CLR 03244 0 01 03206 1724 BRU LW3 03245 0 46 00400 1725 LW5 CAX 03246 0 75 45211 1726 LDB *T+13 03247 0 67 00007 1727 LSH 7 03250 0 14 07212 1728 ETR =7 03251 0 55 05377 1729 ADD A24 BRU LW7 03252 0 35 03261 1730 STA LW7-1 03253 0 46 00001 1731 CLA 03254 0 67 00005 1732 LSH 5 03255 0 46 00400 1733 CAX 03256 0 67 00014 1734 LSH 12 03257 0 14 07161 1735 ETR =07777 03260 0 46 00014 1736 XAB 03261 0 01 00000 1737 BRU 03262 0 01 03303 1738 LW7 BRU LW8 03263 0 01 03310 1739 BRU LW9 03264 0 01 03322 1740 BRU LW10 03265 0 01 03324 1741 BRU LW11 03266 0 01 03331 1742 BRU LW12 TRUE 03267 0 01 03340 1743 BRU LW13 FALSE 03270 1 14 05442 1744 SKNA NOCOD 03271 0 61 05272 1745 MIN SJ 03272 0 46 30003 1746 CLR 03273 0 35 05375 1747 STA FEFSW 03274 0 43 04367 1748 BRM SETFR 03275 1 26 05630 1749 COP ALJM0 03276 0 76 05134 1750 LDA MAD 03277 0 35 05631 1751 STA BR 03300 0 71 07146 1752 LDX =3 03301 0 75 07246 1753 LDB =FOR 03302 0 01 03324 1754 BRU LW11 03303 2 76 06167 1755 LW8 LDA OPTAB,IX2 03304 0 35 00076 1756 STA OP 03305 0 36 05211 1757 STB T+13 03306 0 43 04655 1758 BRM TS 03307 0 75 05211 1759 LW15 LDB T+13 03310 0 71 07131 1760 LW9 LDX =1 03311 0 37 05127 1761 STX MODE 03312 2 61 05117 1762 MIN TMIN,IX2 03313 2 76 05117 1763 LW14 LDA TMIN,IX2 03314 0 35 05172 1764 STA P+8 03315 2 76 05152 1765 LDA A4,IX2 03316 0 35 05173 1766 STA P+9 03317 0 46 00014 1767 XAB 03320 0 43 00435 1768 BRM STCON 03321 0 01 00737 1769 SN BRU LW102 03322 0 71 07145 1770 LW10 LDX =0 03323 0 01 03311 1771 BRU LW9+1 03324 2 76 06167 1772 LW11 LDA OPTAB,IX2 03325 1 14 05442 1773 SKNA NOCOD 03326 0 61 05312 1774 MIN SK 03327 0 35 45312 1775 STA *SK 03330 0 01 03310 1776 BRU LW9 03331 0 76 07131 1777 LW12 LDA =1 03332 0 36 05211 1778 STB T+13 03333 0 35 05133 1779 STA LA 03334 0 76 07131 1780 LDA =1 03335 0 35 05150 1781 STA TYPES 03336 0 43 04074 1782 BRM SETK 03337 0 01 03307 1783 BRU LW9-1 03340 0 76 07145 1784 LW13 LDA =0 03341 0 01 03332 1785 BRU LW12+1 03342 1 76 00041 1786 LW16 ERR 'J' NON-LEXICON IN QUOTES 03343 0 01 00307 1787 BRU FETCH6 03344 0 00 00000 1788 ADNM PZE 03345 0 37 05206 1789 STX T+10 03346 0 76 00072 1790 LDA LEN 03347 1 61 07212 1791 SKEA =7 03350 0 51 03344 1792 BRR ADNM 03351 0 55 07131 1793 ADD =1 03352 0 35 00072 1794 STA LEN 03353 0 66 00002 1795 RSH 2 03354 0 46 00400 1796 CAX 03355 0 46 00001 1797 CLA 03356 0 67 00002 1798 LSH 2 03357 0 55 07247 1799 ADD =ADNMT 03360 0 35 05221 1800 STA T+21 03361 0 76 00071 1801 LDA CHAR 03362 0 46 00002 1802 CLB 03363 0 23 45221 1803 EXU *T+21 03364 2 55 00073 1804 ADD NAME,IX2 03365 2 35 00073 1805 ADN1 STA NAME,IX2 03366 0 71 05127 1806 LDX MODE 03367 0 51 03344 1807 BRR ADNM 03370 0 01 03365 1808 ADNMT BRU ADN1 03371 0 66 20006 1809 RCY 6 03372 0 66 20014 1810 RCY 12 03373 0 66 20022 1811 RCY 18 03374 0 76 07130 1812 SN1 LDA =-1 03375 0 35 00072 1813 STA LEN 03376 0 43 03344 1814 BRM ADNM 03377 0 01 00253 1815 BRU FETCH 03400 0 76 07131 1816 SN2 LDA =1 03401 0 35 05400 1817 STA ND 03402 0 46 30003 1818 CLR 03403 0 75 00071 1819 LDB CHAR 03404 0 67 00006 1820 LSH 6 03405 0 35 05401 1821 STA NUMB 03406 0 01 00253 1822 BRU FETCH 03407 0 75 07250 1823 SN3 LDB =APRI 03410 0 01 03310 1824 BRU LW9 03411 0 75 07210 1825 SN4 LDB =IDT 03412 0 01 03310 1826 BRU LW9 03413 0 76 05531 1827 SN5 LDA CW+8 03414 0 75 07154 1828 LDB =SEMCOL 03415 0 01 03304 1829 BRU LW8+1 03416 0 76 05532 1830 SN6 LDA CW+9 03417 0 75 07155 1831 LDB =END 03420 0 01 03304 1832 BRU LW8+1 03421 0 76 05533 1833 SN7 LDA CW+10 03422 0 75 07251 1834 LDB =COMMA 03423 0 01 03304 1835 BRU LW8+1 03424 0 76 05534 1836 SN8 LDA CW+11 03425 0 75 07221 1837 LDB =LPAREN 03426 0 01 03325 1838 BRU LW11+1 03427 0 76 05535 1839 SN9 LDA CW+12 03430 0 75 07252 1840 LDB =RPAREN 03431 0 01 03304 1841 BRU LW8+1 03432 0 75 05536 1842 SN12 LDB CW+13 03433 0 76 00071 1843 LDA CHAR 03434 0 50 07162 1844 SKE =ZZP 03435 0 75 05537 1845 LDB CW+14 - CW 03436 0 46 00014 1846 XAB 03437 0 75 07253 1847 LDB =AOP 03440 0 01 03304 1848 BRU LW8+1 03441 0 76 05554 1849 SN13 LDA CW+27 03442 0 75 07254 1850 LDB =COLONE 03443 0 01 03304 1851 BRU LW8+1 03444 0 75 07255 1852 SN14 LDB =ROPE 03445 0 01 03305 1853 BRU LW8+2 03446 0 75 05540 1854 SN15 LDB CW+15 03447 0 76 00071 1855 LDA CHAR 03450 1 61 07256 1856 SKEA =ZZD 03451 0 01 03455 1857 BRU SN15A 03452 0 75 05541 1858 LDB CW+16 \ CW 03453 0 50 07257 1859 SKE =ZZI 03454 0 75 05542 1860 LDB CW+17 * CW 03455 0 46 00014 1861 SN15A XAB 03456 0 75 07260 1862 LDB =MOPE 03457 0 01 03304 1863 BRU LW8+1 03460 0 76 05526 1864 SN16 LDA CW+5 03461 0 75 07261 1865 LDB =ELSE 03462 0 01 03304 1866 BRU LW8+1 03463 0 43 03565 1867 SN27 BRM ADBLNK 03464 0 76 07210 1868 LDA =IDT 03465 0 61 05120 1869 MIN TMIN+1 03466 0 75 05120 1870 LDB TMIN+1 03467 0 36 05172 1871 STB P+8 03470 0 75 05153 1872 LDB A4+1 03471 0 36 05173 1873 STB P+9 03472 0 43 00435 1874 BRM STCON 03473 0 76 05522 1875 SN27A LDA CW+1 03474 0 75 07220 1876 LDB =ASSIGN 03475 0 01 03325 1877 BRU LW11+1 03476 0 76 05543 1878 SN28 LDA CW+18 03477 0 75 07262 1879 LDB =EQUIV 03500 0 01 03304 1880 BRU LW8+1 03501 0 76 05544 1881 SN29 LDA CW+19 03502 0 35 00076 1882 STA OP 03503 0 01 00737 1883 BRU LW102 03504 0 76 05545 1884 SN30 LDA CW+20 03505 0 01 03502 1885 BRU SN29+1 03506 0 76 05546 1886 SN31 LDA CW+21 03507 0 01 03502 1887 BRU SN29+1 03510 0 76 05547 1888 SN32 LDA CW+22 03511 0 01 03502 1889 BRU SN29+1 03512 0 76 05550 1890 SN34 LDA CW+23 03513 0 01 03502 1891 BRU SN29+1 03514 0 76 05552 1892 SN35 LDA CW+25 03515 0 75 07263 1893 LDB =IMPLIC 03516 0 01 03304 1894 BRU LW8+1 03517 0 76 05551 1895 SN38 LDA CW+24 03520 0 01 03502 1896 BRU SN29+1 03521 0 76 05553 1897 SN39 LDA CW+26 03522 0 75 07264 1898 LDB =EOP 03523 0 01 03304 1899 BRU LW8+1 03524 0 43 03344 1900 SN24 BRM ADNM 03525 0 01 00253 1901 SN24B BRU FETCH 03526 0 43 04626 1902 SN25 BRM STRWD 03527 0 01 00253 1903 BRU FETCH 03530 0 76 00071 1904 SN24A LDA CHAR 03531 0 75 07131 1905 LDB =1 03532 0 50 07162 1906 SKE =020000000 03533 0 36 01165 1907 STB SIGN 03534 0 01 00737 1908 BRU LW102 03535 0 61 05400 1909 SN26 MIN ND 03536 0 46 30003 1910 CLR 03537 0 75 00071 1911 LDB CHAR 03540 0 67 00006 1912 LSH 6 03541 0 35 00071 1913 STA CHAR 03542 0 76 05401 1914 LDA NUMB 03543 0 67 00002 1915 LSH 2 03544 0 55 05401 1916 ADD NUMB 03545 0 67 00001 1917 LSH 1 03546 0 55 00071 1918 ADD CHAR 03547 0 35 05401 1919 STA NUMB 03550 0 01 00253 1920 BRU FETCH 03551 0 61 05120 1921 SN22 MIN TMIN+1 03552 0 76 05120 1922 LDA TMIN+1 03553 0 35 05172 1923 STA P+8 03554 0 76 05153 1924 LDA A4+1 03555 0 35 05173 1925 STA P+9 03556 0 76 07155 1926 LDA =END 03557 0 43 00435 1927 BRM STCON 03560 0 76 05532 1928 LDA CW+9 END CW 03561 0 75 07146 1929 LDB =BOUND 03562 0 01 03304 1930 BRU LW8+1 03563 0 43 03565 1931 SN40 BRM ADBLNK 03564 0 01 00737 1932 BRU SM 03565 0 00 00000 1933 ADBLNK PZE 03566 0 76 00072 1934 LDA LEN 03567 0 66 00002 1935 RSH 2 03570 0 35 05174 1936 STA T 03571 0 46 00001 1937 CLA 03572 0 67 00002 1938 LSH 2 03573 0 46 00400 1939 CAX 03574 2 76 03600 1940 LDA BLKTAB,IX2 03575 0 71 05174 1941 LDX T 03576 2 63 00073 1942 ADM NAME,IX2 03577 0 51 03565 1943 BRR ADBLNK 03600 00606060 1944 BLKTAB DATA 0606060 03601 00006060 1945 DATA 06060 03602 00000060 1946 DATA 060 03603 00000000 1947 DATA 0 03604 0 76 05134 1948 SN19 LDA MAD 03605 0 35 03633 1949 STA SAD 03606 1 26 05606 1950 COP BSNA 03607 0 76 07137 1951 LDA =ZZL LPAREN 03610 0 35 00071 1952 STA CHAR 03611 0 01 03374 1953 BRU SN1 03612 1 22 05115 1954 SN21 STZ RMIN 03613 1 22 05117 1955 STZ TMIN 03614 0 76 07141 1956 LDA =ZZR RPAREN 03615 0 35 00071 1957 STA CHAR 03616 0 43 03344 1958 BRM ADNM 03617 0 76 07265 1959 LDA =SN21A 03620 0 35 04626 1960 STA STRWD 03621 0 01 04633 1961 SN21A BRU STRW1 03622 0 76 07266 1962 LDA =044000000 03623 0 55 03633 1963 ADD SAD 03624 1 14 05442 1964 SKNA NOCOD 03625 0 61 05272 1965 MIN SJ 03626 0 35 45272 1966 STA *SJ 03627 0 76 03633 1967 LDA SAD 03630 0 43 04442 1968 BRM INTOUT 03631 0 75 07267 1969 LDB =STRX 03632 0 01 03310 1970 BRU LW9 03633 00000000 1971 SAD DATA 0 03634 0 76 05401 1972 R9D1 LDA NUMB 03635 0 35 05121 1973 STA INT 03636 0 01 00737 1974 BRU SM 03637 0 43 01166 1975 R9D2 BRM FRACP 03640 0 01 00737 1976 BRU SM 03641 0 43 01166 1977 R9D3 BRM FRACP 03642 0 01 03653 1978 BRU R9D41 03643 0 76 07131 1979 R9D6 LDA =1 03644 0 35 05121 1980 STA INT 03645 0 76 05401 1981 R9D4 LDA NUMB 03646 0 60 01165 1982 SKR SIGN 03647 0 46 01000 1983 CNA 03650 0 46 00002 1984 CLB 03651 0 67 00014 1985 LSH 12 03652 0 63 05123 1986 ADM EXP 03653 0 43 03773 1987 R9D41 BRM NTSCH 03654 0 46 30003 1988 CLR 03655 0 35 05121 1989 STA INT 03656 0 35 05122 1990 STA FRAC 03657 0 35 05123 1991 STA EXP 03660 0 76 07134 1992 LDA =2 03661 0 01 03671 1993 BRU R9D5A 03662 1 14 05135 1994 R9D5 SKNA DECST 03663 0 01 00737 1995 BRU SM 03664 0 76 05401 1996 LDA NUMB 03665 1 11 07173 1997 SKGA =077777 03666 1 76 00043 1998 ERR 'L' INTEGER LITERAL GT 15 BITS 03667 0 35 05133 1999 STA LA 03670 0 76 07146 2000 LDA =3 03671 0 35 05150 2001 R9D5A STA TYPES 03672 0 43 04074 2002 BRM SETK 03673 0 01 00737 2003 BRU SM 2004 * OUTPUTS CONSTANTS AND REF-DEFS 03674 1 76 00021 2005 ENDPO ERR 'A' 03675 0 76 07155 2006 ENDPRG LDA =NIMF 03676 1 61 05246 2007 NDPR1 SKEA NABADD 03677 0 01 03725 2008 BRU NDPR2 03700 0 46 00400 2009 CAX 03701 2 76 07326 2010 LDA BASEA,IX2 03702 0 72 07243 2011 SKA =04000000 03703 0 01 03707 2012 BRU NDPR3 03704 0 46 00200 2013 NDPR5 CXA 03705 0 55 07131 2014 ADD =1 03706 0 01 03676 2015 BRU NDPR1 03707 0 76 45265 2016 NDPR3 LDA *A15B 03710 0 35 05174 2017 STA T 03711 0 66 00021 2018 RSH 17 03712 0 35 05175 2019 STA T+1 03713 1 00 07132 2020 TYY =052000000 03714 0 61 05174 2021 NDPR4 MIN T 03715 0 02 02641 2022 TYPW 1,4 03716 0 12 45174 2023 MIW *T 03717 0 02 14000 2024 TOPW 03720 0 40 21000 2025 BRTW 03721 0 01 03720 2026 BRU $-1 03722 0 60 05175 2027 SKR T+1 03723 0 01 03714 2028 BRU NDPR4 03724 0 01 03704 2029 BRU NDPR5 03725 0 43 04050 2030 NDPR2 BRM RELOUT 03726 0 71 07270 2031 LDX =-NIMF+1 03727 0 76 05265 2032 LDA A15B 03730 0 54 07270 2033 SUB =-NIMF+1 03731 0 35 05214 2034 STA T+16 03732 2 76 07345 2035 NDPR6 LDA BASEA+NIMF-1,IX2 03733 0 75 07173 2036 LDB =077777 03734 1 06 07145 2037 SKMA =0 03735 0 01 03743 2038 BRU NDPR7 03736 0 46 00014 2039 XAB 03737 0 76 45214 2040 LDA *T+16 03740 0 43 01221 2041 BRM XNAM 03741 0 35 00031 2042 STA BUF+3 03742 0 43 04614 2043 BRM SEND 03743 0 41 03732 2044 NDPR7 BRX NDPR6 03744 0 76 07223 2045 LDA =02000000 03745 0 55 05134 2046 ADD MAD 03746 0 35 00027 2047 STA BUF+1 03747 0 76 07271 2048 LDA =00100000 03750 0 35 00030 2049 STA BUF+2 03751 0 76 07204 2050 LDA =040000000 03752 0 35 00031 2051 STA BUF+3 03753 0 76 07272 2052 LDA =030250000 03754 0 53 05125 2053 SKN SCSW 03755 0 55 07273 2054 ADD =00200000 03756 0 35 00026 2055 STA BUF 03757 0 43 04614 2056 BRM SEND 03760 0 02 02641 2057 TYPW 1,4 03761 0 12 07274 2058 MIW =052224645 03762 0 02 14000 2059 TOPW 03763 0 00 00000 2060 WAIT HLT 03764 0 01 05025 2061 BRU RESTRT 03765 0 71 07275 2062 $OLODE LDX =-7 03766 0 02 03604 2063 EOM 03604 03767 0 76 03772 2064 LDA NDPR9 03770 0 35 00001 2065 STA 1 03771 0 01 00001 2066 BRU 1 03772 0 32 00002 2067 NDPR9 WIM 2 2068 * SEARCHES NUMBER TABLE -ADD TO TABLE IF FIRST TIME 03773 0 00 00000 2069 NTSCH PZE 03774 0 53 05442 2070 SKN NOCOD 03775 0 51 03773 2071 BRR NTSCH 03776 0 37 05203 2072 STX T+7 03777 0 76 05404 2073 LDA NN 04000 0 55 05270 2074 NTS6 ADD A19 04001 0 73 05270 2075 NTS4 SKG A19 04002 0 01 04021 2076 BRU NTS1 04003 0 35 05202 2077 STA T+6 04004 0 71 07163 2078 LDX =-3 04005 2 76 05124 2079 NTS2 LDA EXP+1,IX2 04006 0 50 45202 2080 SKE *T+6 04007 0 01 04016 2081 BRU NTS3 04010 0 41 04005 2082 BRX NTS2 04011 0 76 05202 2083 NTS8 LDA T+6 04012 0 14 07173 2084 ETR =077777 04013 0 35 05133 2085 STA LA 04014 0 71 05203 2086 LDX T+7 04015 0 51 03773 2087 BRR NTSCH 04016 0 76 05202 2088 NTS3 LDA T+6 04017 0 54 07144 2089 SUB =4 04020 0 01 04001 2090 BRU NTS4 04021 0 76 05404 2091 NTS1 LDA NN 04022 1 11 07214 2092 SKGA =24 04023 0 01 04036 2093 BRU NTS5 04024 0 55 07144 2094 ADD =4 04025 0 35 05404 2095 STA NN 04026 0 55 05270 2096 ADD A19 04027 0 35 05202 2097 STA T+6 04030 0 71 07163 2098 LDX =-3 04031 2 76 05124 2099 NTS7 LDA EXP+1,IX2 04032 0 35 45202 2100 STA *T+6 04033 0 41 04031 2101 BRX NTS7 04034 1 22 45202 2102 STZ *T+6 04035 0 01 04011 2103 BRU NTS8 04036 0 76 05134 2104 NTS5 LDA MAD 04037 0 55 07276 2105 ADD =040000017 04040 0 61 05272 2106 MIN SJ 04041 0 35 45272 2107 STA *SJ 04042 1 26 05605 2108 COP UJJM0 04043 0 43 04050 2109 BRM RELOUT 04044 0 76 07130 2110 LDA =-1 04045 0 35 05404 2111 STA NN 04046 0 63 05272 2112 ADM SJ 04047 0 01 04000 2113 BRU NTS6 04050 0 00 00000 2114 RELOUT PZE 04051 0 43 04460 2115 BRM CODOUT 04052 1 14 05404 2116 SKNA NN 04053 0 51 04050 2117 BRR RELOUT 04054 0 46 30003 2118 CLR 04055 0 76 05404 2119 LDA NN 04056 0 67 00017 2120 LSH 15 04057 0 35 00026 2121 STA BUF 04060 0 55 07277 2122 ADD =060250000 04061 0 62 00026 2123 XMA BUF 04062 0 67 00002 2124 LSH 2 04063 0 55 07300 2125 ADD =NUMTAB-1 04064 0 75 07177 2126 LDB =BUF+1 04065 0 43 02155 2127 BRM MOVNAM 04066 0 43 04614 2128 BRM SEND 04067 0 76 05404 2129 LDA NN 04070 0 55 07131 2130 ADD =1 04071 0 66 00001 2131 RSH 1 04072 0 63 05134 2132 ADM MAD 04073 0 51 04050 2133 BRR RELOUT 2134 * BUILDS STACK WORD FOR A CONSTANT 04074 0 00 00000 2135 SETK PZE 04075 0 46 30003 2136 CLR 04076 0 76 07301 2137 LDA =0260 04077 0 55 05150 2138 ADD TYPES 04100 0 67 00020 2139 LSH 16 04101 0 55 05133 2140 ADD LA 04102 1 14 05442 2141 SKNA NOCOD 04103 0 61 05272 2142 MIN SJ 04104 0 35 45272 2143 STA *SJ 04105 0 51 04074 2144 BRR SETK 2145 * SAVE SIMP VAR,IF ANY -FDZ FOUND 04106 0 00 00000 2146 FFDZ PZE 04107 0 53 05442 2147 SKN NOCOD 04110 0 51 04106 2148 BRR FFDZ 04111 0 43 02762 2149 BRM SAVE 04112 0 76 05272 2150 LDA SJ 04113 0 54 05262 2151 SUB A12 LDA SJ 04114 0 54 07131 2152 FF1 SUB =1 04115 0 35 05202 2153 STA T+6 04116 0 73 05124 2154 SKG PTR 04117 0 51 04106 2155 BRR FFDZ 04120 0 46 00400 2156 CAX 04121 0 75 07136 2157 LDB =074000000 04122 2 76 05272 2158 LDA SJ,IX2 04123 0 70 07243 2159 SKM =04000000 04124 0 01 04137 2160 BRU FF2 04125 0 76 05202 2161 LDA T+6 04126 0 35 05130 2162 STA RSULT 04127 0 46 01000 2163 CNA 04130 0 55 05272 2164 ADD SJ 04131 0 54 05262 2165 SUB A12 04132 0 46 00002 2166 CLB 04133 0 67 00012 2167 LSH 10 04134 0 55 05572 2168 ADD LDJM0 04135 0 43 04141 2169 BRM COA 04136 1 26 05567 2170 COP STT 04137 0 76 05202 2171 FF2 LDA T+6 04140 0 01 04114 2172 BRU FF1 2173 * BUILD EXECUTION LANGUAGE WORD 04141 0 00 00000 2174 COA PZE 04142 0 53 05442 2175 SKN NOCOD 04143 0 51 04141 2176 BRR COA 04144 0 35 05170 2177 STA P+6 04145 0 53 05142 2178 SKN PROCSW 04146 0 01 04155 2179 BRU CO15 04147 0 76 05132 2180 LDA NENT 04150 0 75 07130 2181 LDB =-1 04151 0 43 04403 2182 BRM MOVE 04152 0 76 05170 2183 LDA P+6 04153 0 35 05142 2184 STA PROCSW 04154 0 35 05136 2185 STA DECSW 04155 0 14 07302 2186 CO15 ETR =077 04156 0 72 07130 2187 SKA =-1 04157 0 01 04162 2188 BRU CO1 04160 0 76 45312 2189 LDA *SK OP-BIN 04161 0 01 04166 2190 BRU CO2 04162 0 50 07302 2191 CO1 SKE =077 04163 0 01 04166 2192 BRU CO2 04164 0 76 45312 2193 LDA *SK OP-BIN INVERSE 04165 0 66 00014 2194 RSH 12 04166 0 67 00017 2195 CO2 LSH 15 04167 0 14 07303 2196 ETR =07700000 04170 0 35 05225 2197 STA WORDS OP PART SET 04171 0 53 05136 2198 SKN DECSW 04172 1 14 45250 2199 SKNA *BCTAB 04173 0 01 04204 2200 BRU CO16 04174 0 76 05452 2201 LDA BLKPAR 04175 0 54 07144 2202 SUB =4 04176 0 35 05206 2203 STA T+10 04177 0 76 05134 2204 LDA MAD 04200 0 55 07231 2205 ADD =040100000 04201 0 35 45206 2206 STA *T+10 04202 0 76 07204 2207 LDA =040000000 04203 0 63 45250 2208 ADM *BCTAB 04204 0 76 05170 2209 CO16 LDA P+6 04205 0 66 00006 2210 RSH 6 04206 0 14 07251 2211 ETR =017 04207 0 37 05206 2212 STX T+10 04210 0 46 00400 2213 CAX 04211 2 01 04212 2214 BRU $+1,IX2 04212 0 01 04215 2215 BRU CO3 LIT ADDR 04213 0 01 04253 2216 BRU CO4 STACK REF 04214 0 01 04236 2217 BRU CO5 TEMP 04215 0 46 30003 2218 CO3 CLR 04216 0 75 05170 2219 LDB P+6 04217 0 67 00011 2220 LSH 9 04220 0 63 05225 2221 CO6 ADM WORDS 04221 0 01 04232 2222 BRU CO21 04222 0 63 05225 2223 CO22 ADM WORDS 04223 0 76 44263 2224 CO23 LDA *CO19 04224 0 14 07304 2225 ETR =03000000 04225 1 61 07145 2226 SKEA =0 04226 0 01 04232 2227 BRU CO21 04227 0 76 07204 2228 LDA =040000000 04230 0 16 05225 2229 MRG WORDS 04231 0 35 05225 2230 STA WORDS 04232 0 46 00001 2231 CO21 CLA 04233 0 43 04403 2232 BRM MOVE 04234 0 71 05206 2233 LDX T+10 04235 0 51 04141 2234 BRR COA 04236 0 71 05130 2235 CO5 LDX RSULT 04237 0 76 05143 2236 LDA TEMPT 04240 0 55 07305 2237 ADD =050000000 KIND=TEMP 04241 2 35 05272 2238 STA SJ,IX2 04242 0 61 05143 2239 MIN TEMPT 04243 0 76 05143 2240 LDA TEMPT 04244 1 11 45443 2241 SKGA *MTEMP MAX TEMP USAGE IN BLOCK 04245 0 35 45443 2242 STA *MTEMP 04246 0 54 07131 2243 SUB =1 04247 0 55 07306 2244 ADD =030000000 04250 0 46 00002 2245 CLB 04251 0 36 05130 2246 STB RSULT 04252 0 01 04220 2247 BRU CO6 04253 0 76 05170 2248 CO4 LDA P+6 04254 0 66 00012 2249 RSH 10 04255 0 14 07251 2250 ETR =017 04256 0 46 01000 2251 CNA 04257 0 55 05272 2252 ADD SJ 04260 0 73 05262 2253 SKG A12 04261 0 01 04365 2254 BRU CO77 04262 0 35 04263 2255 STA $+1 04263 0 76 00000 2256 CO19 LDA STACK WORD 04264 0 35 05207 2257 STA T+11 04265 0 75 07136 2258 LDB =074000000 04266 0 70 07133 2259 SKM =054000000 CONSTANT 04267 0 01 04313 2260 BRU CO7 04270 0 75 07172 2261 LDB =00600000 04271 0 70 07307 2262 SKM =00400000 04272 0 01 04353 2263 BRU CO9 04273 0 76 07162 2264 LDA =020000000 FLAG BIT=CONSTANT REF 04274 0 63 05225 2265 ADM WORDS 04275 0 76 05207 2266 LDA T+11 04276 0 14 07173 2267 CO8 ETR =077777 04277 0 35 05207 2268 STA T+11 04300 0 76 45207 2269 LDA *T+11 04301 0 14 07173 2270 CO18 ETR =077777 04302 0 63 05225 2271 ADM WORDS 04303 0 46 00002 2272 CLB 04304 0 72 07130 2273 SKA =-1 04305 0 75 07204 2274 LDB =040000000 04306 0 76 45207 2275 LDA *T+11 04307 0 14 07215 2276 ETR =077700000 04310 0 55 05134 2277 ADD MAD 04311 0 35 45207 2278 STA *T+11 04312 0 01 04223 2279 BRU CO23 04313 1 06 07142 2280 CO7 SKMA =060000000 FR 04314 0 01 04362 2281 BRU CO17 04315 1 06 07140 2282 SKMA =034000000 UNCLAB 04316 0 01 04276 2283 BRU CO8 04317 1 06 07213 2284 SKMA =024000000 EXT PROC 04320 0 01 04276 2285 BRU CO8 04321 1 06 07216 2286 SKMA =010000000 ARIDT 04322 0 01 04342 2287 BRU CO12 04323 1 06 07152 2288 SKMA =014000000 SWIDT 04324 0 01 04342 2289 BRU CO12 04325 1 06 07310 2290 SKMA =064000000 ADDRESS 04326 0 01 04360 2291 BRU CO14 04327 0 70 07305 2292 SKM =050000000 04330 0 01 04335 2293 BRU CO13 04331 0 76 07306 2294 LDA =030000000 04332 0 63 05225 2295 ADM WORDS 04333 0 46 00002 2296 CLB 04334 0 01 04350 2297 BRU CO11+3 04335 0 70 07243 2298 CO13 SKM =04000000 04336 0 01 04346 2299 BRU CO11+1 04337 0 14 07271 2300 ETR =00100000 04340 0 50 07145 2301 SKE =0 04341 0 01 04344 2302 BRU $+3 04342 0 76 07204 2303 CO12 LDA =040000000 NON-OWN 04343 0 01 04345 2304 BRU $+2 04344 0 76 07162 2305 LDA =020000000 04345 0 63 05225 2306 CO11 ADM WORDS 04346 0 75 05170 2307 LDB P+6 04347 0 67 00011 2308 LSH 9 04350 0 76 05207 2309 LDA T+11 04351 0 14 07173 2310 ETR =077777 04352 0 01 04222 2311 BRU CO22 04353 0 70 07273 2312 CO9 SKM =00200000 04354 0 01 04350 2313 BRU CO11+3 04355 0 76 07216 2314 LDA =010000000 04356 0 63 05225 2315 ADM WORDS 04357 0 01 04350 2316 BRU CO11+3 04360 0 76 07305 2317 CO14 LDA =050000000 04361 0 01 04345 2318 BRU CO11 04362 0 75 04263 2319 CO17 LDB CO19 04363 0 36 05207 2320 STB T+11 04364 0 01 04301 2321 BRU CO18 04365 1 22 05442 2322 CO77 STZ NOCOD 04366 0 01 04234 2323 BRU CO21+2 2324 * SETS REFERENCE TO FORWARD REF 04367 0 00 00000 2325 SETFR PZE 04370 0 55 05272 2326 ADD SJ 04371 0 35 05216 2327 STA T+18 04372 0 76 07142 2328 LDA =060000000 04373 0 35 45216 2329 STA *T+18 04374 0 51 04367 2330 BRR SETFR 2331 * SATISFIES DEFINITION OF FRWRD REF 04375 0 00 00000 2332 RECFR PZE 04376 0 55 05272 2333 ADD SJ 04377 0 35 05216 2334 STA T+18 04400 0 76 45216 2335 LDA *T+18 04401 0 43 04442 2336 BRM INTOUT 04402 0 51 04375 2337 BRR RECFR 2338 * MOVES CODE INTO OUTPUT BUFFER 04403 0 00 00000 2339 MOVE PZE 04404 0 53 05442 2340 SKN NOCOD 04405 0 51 04403 2341 BRR MOVE 04406 0 73 07130 2342 SKG =-1 04407 0 51 04403 2343 BRR MOVE 04410 0 36 05217 2344 STB T+19 04411 0 75 05263 2345 LDB A13 LDA WORDS 04412 0 36 04416 2346 STB MV1 04413 0 37 05215 2347 STX T+17 04414 0 35 05216 2348 STA T+18 NO. WDS TO GO -1 04415 0 71 05441 2349 LDX NWDS 04416 0 76 05225 2350 MV1 LDA WORDS 04417 2 35 00060 2351 STA BUF+26,IX2 04420 0 40 20040 2352 BPT 4 04421 0 20 00000 2353 OBJT NOP BRM OBJTY OVERLAYS THIS 04422 0 61 05134 2354 MIN MAD 04423 0 61 04416 2355 MIN MV1 04424 1 14 05217 2356 SKNA T+19 04425 0 43 04642 2357 BRM RELO 04426 0 75 05217 2358 LDB T+19 04427 0 67 00001 2359 LSH 1 04430 0 36 05217 2360 STB T+19 04431 0 41 04435 2361 BRX MV2 04432 0 37 05441 2362 STX NWDS 04433 0 43 04460 2363 BRM CODOUT BUFFER FULL 04434 0 71 07311 2364 LDX =-24 04435 0 60 05216 2365 MV2 SKR T+18 04436 0 01 04416 2366 BRU MV1 04437 0 37 05441 2367 STX NWDS ALL WDS OUT 04440 0 71 05215 2368 LDX T+17 04441 0 51 04403 2369 BRR MOVE 2370 * OUTPUTS A REF-DEF 04442 0 00 00000 2371 INTOUT PZE 04443 0 35 05216 2372 STA T+18 04444 0 43 04460 2373 BRM CODOUT 04445 0 76 05134 2374 LDA MAD 04446 0 55 07231 2375 INT1 ADD =040100000 04447 0 35 00030 2376 STA BUF+2 04450 0 76 05216 2377 LDA T+18 04451 0 14 07173 2378 ETR =077777 04452 0 55 07201 2379 ADD =020100000 04453 0 35 00027 2380 STA BUF+1 04454 0 76 07312 2381 LDA =040350000 04455 0 35 00026 2382 STA BUF 04456 0 43 04614 2383 BRM SEND 04457 0 51 04442 2384 BRR INTOUT 2385 * BUILDS CW,LAW,FCHSM,MOVES LRW,BIN CARDS OUT 04460 0 00 00000 2386 CODOUT PZE 04461 0 46 30003 2387 CLR 04462 0 76 07214 2388 LDA =24 04463 0 55 05441 2389 ADD NWDS 04464 0 73 07145 2390 SKG =0 04465 0 51 04460 2391 BRR CODOUT 04466 0 35 05176 2392 STA T+2 NO. DATA WDS 04467 0 37 05200 2393 STX T+4 04470 0 55 07146 2394 ADD =3 04471 0 46 00400 2395 CAX TOT. WDS IN REC 04472 0 67 00017 2396 LSH 15 04473 0 55 07313 2397 ADD =050000 04474 0 35 00026 2398 STA BUF CW 04475 0 76 07314 2399 LDA =02100000 04476 0 55 05134 2400 ADD MAD 04477 0 54 05176 2401 SUB T+2 04500 0 35 00027 2402 STA BUF+1 LAW 04501 0 76 00060 2403 LDA BUF+26 04502 2 35 00025 2404 STA BUF-1,IX2 POSITION LRW 04503 0 43 04614 2405 BRM SEND 04504 0 71 05200 2406 LDX T+4 04505 0 51 04460 2407 BRR CODOUT 2408 * FORM FOLDED CHECKSUM,STORE IN RH OF BUF 04506 0 00 00000 2409 FCHK PZE 04507 0 76 05271 2410 LDA A22 EOR BUF 04510 0 35 04517 2411 STA FCHK1 04511 0 76 00026 2412 LDA BUF 04512 0 66 00017 2413 RSH 15 04513 0 14 07315 2414 ETR =037 04514 0 46 01000 2415 CNA 04515 0 46 00400 2416 CAX 04516 0 76 07161 2417 LDA =07777 04517 0 17 00026 2418 FCHK1 EOR BUF 04520 0 61 04517 2419 MIN FCHK1 04521 0 41 04517 2420 BRX FCHK1 04522 0 35 05176 2421 STA T+2 04523 0 66 00014 2422 RSH 12 04524 0 17 05176 2423 EOR T+2 04525 0 14 07161 2424 ETR =07777 04526 0 63 00026 2425 ADM BUF 04527 0 51 04506 2426 BRR FCHK 2427 * PAPER TAPE READ 04530 0 00 00000 2428 CARD PZE 04531 0 76 04553 2429 LDA SPACES 04532 0 71 07316 2430 LDX =-20 04533 2 35 00026 2431 STA IMAGE+20,IX2 04534 0 41 04533 2432 BRX $-1 04535 0 40 21000 2433 BRTW 04536 0 01 04535 2434 BRU $-1 04537 0 02 02604 2435 RPTW 1,4 04540 0 71 07316 2436 LDX =-20 04541 2 32 00026 2437 WIM IMAGE+20,IX2 04542 0 40 21000 2438 BRTW 04543 0 41 04541 2439 BRX $-2 04544 0 40 20010 2440 BETW 04545 0 01 04550 2441 BRU ERRB 04546 0 02 00000 2442 DISW 04547 0 51 04530 2443 BRR CARD **EXIT** 04550 1 76 00022 2444 ERRB ERR 'B' 04551 0 00 00000 2445 HLT 04552 0 01 04531 2446 BRU CARD+1 04553 12121212 2447 SPACES DATA 012121212 04554 2448 RES 5 04561 00000117 2449 HICOL DATA 79 04562 2450 READ RES 0 2451 * PUNCH A BINARY CARD -40 WORDS ONLY 04562 0 00 00000 2452 PUNCH PZE 04563 0 76 07317 2453 LDA =-12 04564 0 40 14046 2454 SKS 014046 SKIP IF PUNCH 1,CHANNEL 0 IS READY 04565 0 01 04564 2455 BRU $-1 04566 0 40 21000 2456 PUNCH1 SKS 021000 SKIP IF CHANNEL 0 IS READY 04567 0 01 04566 2457 BRU $-1 04570 0 02 03646 2458 EOM 003646 START PUNCH 04571 0 71 07320 2459 LDX =-40 04572 2 12 00076 2460 MIW BUF+40,IX2 04573 0 41 04572 2461 BRX $-1 04574 0 02 14000 2462 EOM 014000 TERMINATE OUTPUT 04575 0 55 07131 2463 ADD =1 ROW COUNTER 04576 0 73 07130 2464 SKG =-1 SKIP IF 12TH ROW PUNCHED 04577 0 01 04566 2465 BRU PUNCH1 NEXT ROW 04600 0 35 00060 2466 STA BUF+26 CLR LD RELOC WD 04601 0 40 21000 2467 SKS 021000 04602 0 01 04601 2468 BRU $-1 04603 0 46 30003 2469 CLR 04604 0 71 07321 2470 LDX =-31 04605 2 35 00065 2471 STA BUF+31,IX2 04606 0 41 04605 2472 BRX $-1 04607 0 51 04562 2473 BRR PUNCH 04610 2474 RES 4 04614 2475 WRITE RES 0 04614 0 00 00000 2476 SEND PZE 04615 0 53 05442 2477 SKN NOCOD 04616 0 51 04614 2478 BRR SEND 04617 0 37 05174 2479 STX T 04620 0 43 04506 2480 BRM FCHK 04621 0 43 04562 2481 BRM PUNCH 04622 0 76 07311 2482 LDA =-24 04623 0 35 05441 2483 STA NWDS 04624 0 71 05174 2484 LDX T 04625 0 51 04614 2485 BRR SEND 04626 0 00 00000 2486 STRWD PZE 04627 0 43 03344 2487 BRM ADNM 04630 0 76 00072 2488 LDA LEN 04631 0 50 07146 2489 SKE =3 04632 0 51 04626 2490 BRR STRWD 04633 0 76 00073 2491 STRW1 LDA NAME 04634 0 35 05225 2492 STA WORDS 04635 0 76 07130 2493 LDA =-1 04636 0 35 00072 2494 STA LEN 04637 0 46 30003 2495 CLR 04640 0 43 04403 2496 BRM MOVE 04641 0 51 04626 2497 BRR STRWD 2498 * SET RELOC BIT =1 04642 0 00 00000 2499 RELO PZE 04643 0 37 05203 2500 STX T+7 04644 0 46 00200 2501 CXA 04645 0 46 01000 2502 CNA 04646 0 46 00400 2503 CAX 04647 0 46 30003 2504 CLR 04650 0 75 07204 2505 LDB =040000000 04651 2 67 00000 2506 LSH 0,IX2 04652 0 63 00060 2507 ADM BUF+26 LOAD RELOC WD. 04653 0 71 05203 2508 LDX T+7 04654 0 51 04642 2509 BRR RELO 2510 * STACK CONTROL BASED ON PRECEDENCE 04655 0 00 00000 2511 TS PZE 04656 0 53 05442 2512 SKN NOCOD 04657 0 51 04655 2513 BRR TS 04660 0 76 45312 2514 TS2 LDA *SK 04661 0 14 07322 2515 ETR =037000000 04662 0 35 05213 2516 STA T+15 04663 0 76 00076 2517 LDA OP 04664 0 14 07322 2518 ETR =037000000 04665 0 73 05213 2519 SKG T+15 04666 0 01 04673 2520 BRU TS1 04667 0 61 05312 2521 MIN SK 04670 0 76 00076 2522 LDA OP 04671 0 35 45312 2523 STA *SK 04672 0 51 04655 2524 TSEX BRR TS 04673 0 76 45312 2525 TS1 LDA *SK 04674 0 66 00006 2526 RSH 6 04675 0 14 07302 2527 ETR =077 04676 0 46 00400 2528 CAX 04677 2 01 04700 2529 BRU $+1,IX2 04700 0 01 03144 2530 BRU OPBIN 04701 0 01 03122 2531 BRU OPUN 04702 0 01 02720 2532 BRU OPASS 04703 0 01 04720 2533 BRU OPBRK 04704 0 01 02444 2534 BRU OPSW 04705 0 01 02706 2535 BRU OPIF 04706 0 01 02616 2536 BRU OPTH 04707 0 01 02527 2537 BRU OPELS 04710 0 01 02502 2538 BRU OPGO 04711 0 01 05001 2539 BRU OPBEG 04712 0 01 05013 2540 BRU OPLPAR 04713 0 01 02777 2541 BRU OPFOR 04714 0 01 01477 2542 BRU OPPROC 04715 0 01 03107 2543 BRU OPFRR 04716 0 01 01536 2544 BRU OPARY 04717 0 01 01533 2545 BRU OPIO 2546 * SUBSCRIPT OPERATOR CODE GENERATOR 04720 0 43 02762 2547 OPBRK BRM SAVE 04721 0 76 45272 2548 LDA *SJ 04722 0 14 07136 2549 ETR =074000000 04723 0 50 07133 2550 SKE =054000000 CONSTANT 04724 0 01 04770 2551 BRU OPBR5 04725 0 76 00076 2552 OPBR6 LDA OP 04726 0 50 05535 2553 SKE CW+12 RPAREN 04727 0 01 04672 2554 BRU TSEX 04730 0 76 07130 2555 LDA =-1 04731 0 55 05272 2556 ADD SJ 04732 0 35 05175 2557 OPBR2 STA T+1 04733 0 76 45175 2558 LDA *T+1 04734 0 14 07136 2559 ETR =074000000 04735 0 50 07216 2560 SKE =010000000 04736 0 01 04776 2561 BRU OPBR1 04737 0 46 30003 2562 CLR 04740 0 76 05272 2563 LDA SJ 04741 0 54 05175 2564 SUB T+1 04742 0 35 05175 2565 STA T+1 04743 0 67 00012 2566 LSH 10 04744 0 35 05177 2567 STA T+3 04745 0 76 05570 2568 LDA PZJMO 04746 0 01 04750 2569 BRU $+2 04747 0 76 05573 2570 OPBR4 LDA SSJM0 04750 0 55 05177 2571 ADD T+3 04751 0 43 04141 2572 BRM COA 04752 0 76 07323 2573 LDA =077776000 04753 0 63 05177 2574 ADM T+3 04754 0 53 05177 2575 SKN T+3 04755 0 01 04747 2576 BRU OPBR4 04756 0 46 30003 2577 CLR 04757 0 54 05175 2578 SUB T+1 04760 0 63 05272 2579 ADM SJ 04761 0 76 07310 2580 LDA =064000000 ADDRESS 04762 0 55 05134 2581 ADD MAD 04763 0 54 05175 2582 SUB T+1 04764 0 54 07131 2583 SUB =1 04765 0 35 45272 2584 STA *SJ 04766 0 60 05312 2585 SKR SK 04767 0 01 04672 2586 BRU TSEX 04770 1 61 07305 2587 OPBR5 SKEA =050000000 TEMP 04771 0 01 04725 2588 BRU OPBR6 04772 1 26 05572 2589 COP LDJM0 04773 0 43 05020 2590 BRM RST 04774 1 26 05567 2591 COP STT 04775 0 01 04725 2592 BRU OPBR6 04776 0 76 05175 2593 OPBR1 LDA T+1 04777 0 54 07131 2594 SUB =1 05000 0 01 04732 2595 BRU OPBR2 2596 * BEGIN BLOCK AND COMP ST MARKER 05001 0 76 00076 2597 OPBEG LDA OP 05002 0 50 05532 2598 SKE CW+9 END OP 05003 0 01 04672 2599 BRU TSEX 05004 0 60 05312 2600 SKR SK 05005 0 76 05531 2601 LDA CW+8 SEMCOL 05006 0 35 00076 2602 STA OP 05007 0 76 45312 2603 LDA *SK 05010 0 50 05561 2604 SKE CW+32 PHI R 05011 0 01 04672 2605 BRU TSEX 05012 0 01 03107 2606 BRU OPFRR 2607 * LPAREN OPERATOR 05013 0 76 00076 2608 OPLPAR LDA OP 05014 0 50 05535 2609 SKE CW+12 RPAREN OP 05015 0 01 04672 2610 BRU TSEX 05016 0 60 05312 2611 SKR SK 05017 0 01 04672 2612 BRU TSEX 05020 0 00 00000 2613 RST PZE 05021 0 76 05272 2614 LDA SJ 05022 0 54 05262 2615 SUB A12 05023 0 35 05130 2616 STA RSULT 05024 0 51 05020 2617 BRR RST 05025 0 46 30003 2618 RESTRT CLR 05026 0 71 07324 2619 LDX =-NZER 05027 2 35 05152 2620 STA ZERS+NZER,IX2 05030 0 41 05027 2621 BRX $-1 05031 0 35 00060 2622 STA BUF+26 05032 0 76 07130 2623 LDA =-1 05033 0 35 00341 2624 STA KSW 05034 0 35 00414 2625 STA STOPSW 05035 0 35 01437 2626 STA NEST 05036 0 35 05404 2627 STA NN 05037 0 35 05442 2628 STA NOCOD 05040 0 76 07131 2629 LDA =1 05041 0 35 01653 2630 STA TOT 05042 0 35 05115 2631 STA RMIN 05043 0 35 05116 2632 STA RMIN+1 05044 0 76 05262 2633 LDA A12 05045 0 35 05272 2634 STA SJ 05046 0 76 05261 2635 LDA A11 05047 0 35 05312 2636 STA SK 05050 0 76 07155 2637 LDA =NIMF 05051 0 35 05246 2638 STA NABADD 05052 0 76 07261 2639 LDA =LIMF 05053 0 35 05247 2640 STA NCADD 05054 0 76 05105 2641 LDA I1 05055 0 35 05250 2642 STA BCTAB 05056 0 76 05106 2643 LDA I3 05057 0 35 05512 2644 STA DNSP 05060 0 76 05107 2645 LDA I4 05061 0 35 05452 2646 STA BLKPAR 05062 0 76 05110 2647 LDA I5 05063 0 35 05443 2648 STA MTEMP 05064 0 76 07204 2649 LDA =040000000 05065 0 35 05251 2650 STA BCTAB+1 05066 0 76 07311 2651 LDA =-24 05067 0 35 05441 2652 STA NWDS 05070 0 76 07134 2653 LDA =2 05071 0 35 05375 2654 STA FEFSW 05072 0 76 05111 2655 LDA I6 05073 0 35 05341 2656 STA STRMIN 05074 0 35 05344 2657 STA STRMAJ 05075 0 76 06202 2658 LDA OPTAB+11 05076 0 35 05313 2659 STA SK+1 05077 0 71 07270 2660 LDX =-NIMF+1 05100 2 76 07345 2661 REST1 LDA BASEA+NIMF-1,IX2 05101 0 14 07215 2662 ETR =077700000 05102 2 35 07345 2663 STA BASEA+NIMF-1,IX2 05103 0 41 05100 2664 BRX REST1 05104 0 01 00261 2665 BRU FETCHR 05105 0 76 05251 2666 I1 LDA BCTAB+1 05106 0 76 05512 2667 I3 LDA DNSP 05107 0 76 05452 2668 I4 LDA BLKPAR 05110 0 76 05443 2669 I5 LDA MTEMP 2670 SNG FORM 12,12 05111 0003 0000 2671 I6 SNG BOUND,0 05112 2 76 05651 2672 A1 LDA MMIN,IX2 MAIN DICT BASE (MINOR) 05113 2 76 06205 2673 LDA MMAJ,IX2 (MAJOR) 05114 00000000 2674 D DATA 0 ACCESS DICT BASE 05115 00000001 2675 RMIN DATA 1 05116 00000001 2676 DATA 1 00005117 2677 ZERS EQU $ 05117 00000000 2678 TMIN DATA 0 05120 00000000 2679 DATA 0 05121 00000000 2680 INT DATA 0 05122 00000000 2681 FRAC DATA 0 05123 00000000 2682 EXP DATA 0 05124 00000000 2683 PTR DATA 0 05125 00000000 2684 SCSW DATA 0 05126 00000000 2685 NDIM DATA 0 05127 00000000 2686 MODE DATA 0 05130 00000000 2687 RSULT DATA 0 05131 00000000 2688 ITESW DATA 0 05132 00000000 2689 NENT DATA 0 05133 00000000 2690 LA DATA 0 05134 00000000 2691 $MAD DATA 0 05135 00000000 2692 DECST DATA 0 05136 00000000 2693 DECSW DATA 0 05137 00000000 2694 TELE DATA 0 05140 00000000 2695 RAND DATA 0 05141 00000000 2696 NDAD DATA 0 05142 00000000 2697 PROCSW DATA 0 05143 00000000 2698 TEMPT DATA 0 05144 00000000 2699 SWIND DATA 0 05145 00000000 2700 POSADD DATA 0 05146 00000000 2701 KIND DATA 0 05147 00000000 2702 PARA DATA 0 05150 00000000 2703 TYPES DATA 0 05151 00000000 2704 STYPE DATA 0 00000033 2705 NZER EQU $-ZERS 05152 2 00 05341 2706 A4 PZE STRMIN,IX2 05153 2 00 05344 2707 PZE STRMAJ,IX2 05154 0 00 02032 2708 SEM PZE N 05155 0 00 00737 2709 PZE M 05156 00000030 2710 SIZE DATA LDICTN-1 05157 00000104 2711 DATA LDICTJ-1 05160 0 01 01020 2712 A2 BRU DF6 05161 2 76 00000 2713 A3 LDA 0,IX2 05162 2714 P RES 10 MASAGE PARA STORE 05174 2715 T RES 25 05225 2716 WORDS RES 15 05244 2 00 06056 2717 A7 PZE LWTAB,IX2 05245 2 00 00711 2718 A8 PZE CVERT,IX2 05246 00000020 2719 NABADD DATA NIMF 05247 00000024 2720 NCADD DATA LIMF 05250 0 76 05251 2721 BCTAB LDA $+1 05251 40000000 2722 DATA 040000000 05252 2723 RES 5 05257 2 35 00000 2724 A9 STA 0,IX2 05260 0 50 00073 2725 A10 SKE NAME 05261 0 76 05313 2726 A11 LDA SK+1 05262 0 76 05272 2727 A12 LDA SJ 05263 0 76 05225 2728 A13 LDA WORDS 05264 2 76 07326 2729 A15 LDA BASEA,IX2 05265 2 76 07451 2730 A15B LDA BASEB,IX2 05266 0 00 00123 2731 A15L PZE BASEB-BASEA 05267 0 00 07573 2732 A16 PZE BASEC-1 05270 2 76 05405 2733 A19 LDA NUMTAB,IX2 05271 0 17 00026 2734 A22 EOR BUF 05272 0 76 05272 2735 SJ LDA $ 05273 2736 RES 15 05312 0 76 05313 2737 SK LDA $+1 05313 00771100 2738 DATA 0771100 BEGIN 05314 2739 RES 20 05340 00000000 2740 DELTA DATA 0 05341 0003 0000 2741 STRMIN SNG BOUND,0 05342 2742 RES 2 05344 0003 0000 2743 STRMAJ SNG BOUND,0 05345 2744 RES 24 05375 2745 FEFSW RES 1 05376 0 35 07326 2746 A23 STA BASEA 05377 0 01 03262 2747 A24 BRU LW7 05400 00000000 2748 ND DATA 0 05401 00000000 2749 NUMB DATA 0 05402 00000000 2750 NUM1 DATA 0 05403 00000000 2751 NUM2 DATA 0 05404 77777777 2752 NN DATA -1 05405 2753 NUMTAB RES 28 05441 77777750 2754 NWDS DATA -24 05442 77777777 2755 NOCOD DATA -1 05443 0 76 05443 2756 MTEMP LDA $ 05444 2757 RES 6 05452 0 76 05452 2758 BLKPAR LDA $ 05453 2759 RES 31 05512 0 76 05512 2760 DNSP LDA $ 05513 2761 RES 6 05521 00000300 2762 CW DATA 0300 LBRACK 05522 02000200 2763 DATA 002000200 ASSIGN 05523 01000600 2764 DATA 001000600 THEN (STACK) 05524 00000600 2765 DATA 000000600 THEN (OP) 05525 02000700 2766 DATA 002000700 ELSE (STACK) 05526 01000700 2767 DATA 001000700 ELSE (OP) 05527 00000400 2768 DATA 0400 SWITCH 05530 01001000 2769 DATA 001001000 GOTO 05531 00007600 2770 DATA 07600 SEMCOL 05532 00001177 2771 DATA 01177 END 05533 00007500 2772 DATA 07500 COMMA 05534 00771200 2773 DATA 0771200 LPAREN 05535 00001277 2774 DATA 01277 RPAREN 05536 11060006 2775 DATA 011060006 + 05537 11110010 2776 DATA 011110010 - 05540 12140013 2777 DATA 012140013 / 05541 12160015 2778 DATA 012160015 \ 05542 12120012 2779 DATA 012120012 * 05543 03250025 2780 DATA 03250025 EQUIV 05544 10320031 2781 DATA 010320031 GE 05545 10310032 2782 DATA 010310032 LE 05546 10300030 2783 DATA 010300030 EQ 05547 10330033 2784 DATA 010330033 NE 05550 10260027 2785 DATA 010260027 LS 05551 10270026 2786 DATA 010270026 GT 05552 04240023 2787 DATA 04240023 IMPLIC 05553 13200017 2788 DATA 013200017 EOP 05554 00007400 2789 DATA 07400 COLON 05555 11000100 2790 DATA 011000100 UOP 05556 00007700 2791 DATA 07700 BOUND 05557 00001401 2792 DATA 01401 PROC 05560 00001300 2793 DATA 01300 PHI 05561 00001501 2794 DATA 01501 PHI R 05562 00001400 2795 DATA 01400 WHILE 05563 00001600 2796 DATA 01600 UNTIL 05564 00001500 2797 DATA 01500 STEP 05565 00001700 2798 DATA 01700 DO 05566 00001701 2799 DATA 01701 05567 00000204 2800 STT DATA 000204 05570 00040145 2801 PZJMO DATA 040145 05571 00042101 2802 LDJM1 DATA 042101 05572 00040101 2803 LDJM0 DATA 040101 05573 00040150 2804 SSJM0 DATA 040150 05574 00040104 2805 STJM0 DATA 040104 05575 00040120 2806 WHJM0 DATA 040120 05576 00040102 2807 LDNJM0 DATA 040102 05577 00000003 2808 NEG DATA 000003 05600 00040100 2809 OPJM0 DATA 040100 05601 00042177 2810 OPIJM1 DATA 042177 05602 00040136 2811 JFJM0 DATA 040136 05603 00000034 2812 UJNA DATA 000034 05604 00042134 2813 UJJM1 DATA 042134 05605 00040134 2814 UJJM0 DATA 040134 05606 00000054 2815 BSNA DATA 054 05607 00000043 2816 BBNA DATA 043 05610 00000041 2817 BPNA DATA 041 05611 00000044 2818 EBNA DATA 044 05612 00000042 2819 EPNA DATA 042 05613 00040152 2820 IOJM0 DATA 040152 05614 00040155 2821 PJM0 DATA 040155 05615 00042155 2822 PJM1 DATA 042155 05616 00044155 2823 PJM2 DATA 044155 05617 00040137 2824 BCJM0 DATA 040137 05620 00040153 2825 ECJM0 DATA 040153 05621 00040117 2826 SUJM0 DATA 040117 05622 00040140 2827 JPJM0 DATA 040140 05623 00040157 2828 SPLJM0 DATA 040157 05624 00000007 2829 DEALNA DATA 7 05625 00042140 2830 JPJM1 DATA 042140 05626 00044105 2831 ALJM2 DATA 044105 05627 00000060 2832 EFBNA DATA 060 05630 00040105 2833 ALJM0 DATA 040105 2834 STFA FORM 4,5,15 05631 2835 BR RES 1 05632 00000211 2836 TAB1 DATA UNKIDT 05633 00000051 2837 DATA VRIDT 05634 00000034 2838 DATA ARIDT 05635 00000032 2839 DATA SWIDT 05636 00000052 2840 DATA PRIDT 05637 00000052 2841 DATA PRIDT 05640 00000052 2842 DATA PRIDT 05641 00000043 2843 DATA SDX 05642 00000043 2844 DATA SDX 05643 00000076 2845 DATA BVAR 05644 00000070 2846 DATA AVAR 05645 00000077 2847 DATA BPRI 05646 00000016 2848 DATA APRI 05647 00000147 2849 DATA BVARP 05650 00000145 2850 DATA AVARP 00000002 2851 IX2 EQU 2 00000006 2852 SPECAL EQU 6 00000000 2853 EMP EQU 0 00000001 2854 PRHED EQU SPECAL-5 00000002 2855 BLKHD EQU SPECAL-4 00000003 2856 BOUND EQU SPECAL-3 00000004 2857 MOP EQU 4 00000004 2858 BEGINB EQU SPECAL-2 00000005 2859 USI EQU 5 00000005 2860 BEGINC EQU SPECAL-1 00000006 2861 RPAR EQU 6 00000006 2862 STMTSQ EQU SPECAL 00000007 2863 ASN EQU 7 00000007 2864 COLON EQU 7 00000010 2865 EQUAL EQU 8 00000010 2866 ULBLK EQU 8 00000011 2867 LPT EQU 9 00000011 2868 BLOCK EQU 9 00000012 2869 RPT EQU 10 00000012 2870 CMPD EQU 10 00000013 2871 AST EQU 11 00000013 2872 UCS EQU 11 00000014 2873 AOP EQU 12 00000015 2874 IDT EQU 13 00000016 2875 APRI EQU 14 00000017 2876 COMMA EQU 15 00000020 2877 END EQU 16 00000021 2878 SEMCOL EQU 17 00000022 2879 RPAREN EQU 18 00000023 2880 LPAREN EQU 19 00000024 2881 ELSE EQU 20 00000025 2882 APOST EQU 21 00000025 2883 UBS EQU 21 00000026 2884 ROP EQU 22 00000026 2885 STRING EQU 22 00000027 2886 DGT EQU 23 00000027 2887 UFORS EQU 23 00000030 2888 LTR EQU 24 00000030 2889 ULCOMP EQU 24 00000031 2890 IDTP EQU 25 00000031 2891 SWDES EQU 25 00000032 2892 USIP EQU 26 00000032 2893 SWIDT EQU 26 00000033 2894 IDTPA EQU 27 00000033 2895 FL EQU 27 00000034 2896 ARIDT EQU 28 00000035 2897 APL EQU 29 00000036 2898 REAL EQU 30 00000037 2899 INTGER EQU 31 00000040 2900 BOOL EQU 32 00000041 2901 FORS EQU 33 00000042 2902 BEGIN EQU 34 00000043 2903 SDX EQU 35 00000044 2904 IFS EQU 36 00000045 2905 CS EQU 37 00000046 2906 SUBX EQU 38 00000047 2907 PROCED EQU 39 00000050 2908 ARRAY EQU 40 00000051 2909 VRIDT EQU 41 00000052 2910 PRIDT EQU 42 00000053 2911 ALPL EQU 43 00000054 2912 DO EQU 44 00000055 2913 FPL EQU 45 00000056 2914 AX EQU 46 00000057 2915 ARLIS EQU 47 00000060 2916 PRHDB EQU 48 00000061 2917 BPL EQU 49 00000062 2918 BOX EQU 50 00000063 2919 STRX EQU 51 00000064 2920 THEN EQU 52 00000065 2921 BLPL EQU 53 00000066 2922 DEX EQU 54 00000067 2923 LBLSL EQU 55 00000070 2924 AVAR EQU 56 00000071 2925 FDZ EQU 57 00000072 2926 STMT EQU 58 00000073 2927 AFCT EQU 59 00000074 2928 ATRM EQU 60 00000075 2929 SAX EQU 61 00000076 2930 BVAR EQU 62 00000077 2931 BPRI EQU 63 00000100 2932 BSEC EQU 64 00000101 2933 BFCT EQU 65 00000102 2934 BTRM EQU 66 00000103 2935 IMP EQU 67 00000104 2936 SBX EQU 68 00000105 2937 PRODEC EQU 69 00000106 2938 LABEL EQU 70 00000107 2939 IFC EQU 71 00000110 2940 SWITCH EQU 72 00000111 2941 FPLPD EQU 73 00000112 2942 PRHDA EQU 74 00000114 2943 STEP EQU 76 00000115 2944 ELA EQU 77 00000116 2945 UNTIL EQU 78 00000117 2946 ELB EQU 79 00000120 2947 ELC EQU 80 00000121 2948 WHILE EQU 81 00000122 2949 ELD EQU 82 00000123 2950 FCP EQU 83 00000126 2951 LBROCK EQU 86 00000131 2952 FDZP EQU 89 00000132 2953 VUL EQU 90 00000137 2954 USNA EQU 95 00000141 2955 ARSEG EQU 97 00000142 2956 LBRACK EQU 98 00000143 2957 PRHDCP EQU 99 00000144 2958 LPD EQU 100 00000145 2959 AVARP EQU 101 00000146 2960 SUBL EQU 102 00000147 2961 BVARP EQU 103 00000150 2962 DECLAR EQU 104 00000151 2963 LOB EQU 105 00000152 2964 XPRIDT EQU 106 00000155 2965 BXP EQU 109 00000156 2966 IF EQU 110 00000157 2967 PRHDEP EQU 111 00000160 2968 APLPD EQU 112 00000161 2969 SPECLS EQU 113 00000162 2970 ERROR EQU 114 00000164 2971 DXP EQU 116 00000165 2972 ASSIGN EQU 117 00000166 2973 SWL EQU 118 00000167 2974 GOTO EQU 119 00000171 2975 TEN EQU 121 00000174 2976 FORC EQU 124 00000175 2977 PT EQU 125 00000177 2978 USN EQU 127 00000203 2979 SWDP EQU 131 00000204 2980 VRLIS EQU 132 00000205 2981 USNB EQU 133 00000206 2982 IFSP EQU 134 00000207 2983 XTRNAL EQU 135 00000210 2984 PIFS EQU 136 00000211 2985 UNKIDT EQU 137 00000213 2986 LBL EQU 139 00000215 2987 XPRLIS EQU 141 00000216 2988 AXP EQU 142 00000221 2989 ARY EQU 145 00000222 2990 EXT EQU 146 00000223 2991 PROC EQU 147 00000224 2992 OWN EQU 148 00000225 2993 SWDESP EQU 149 00000226 2994 FOR EQU 150 00000227 2995 AFCTP EQU 151 00000230 2996 ATRMP EQU 152 00000231 2997 SAXP EQU 153 00000232 2998 EOP EQU 154 00000234 2999 RELP EQU 156 00000235 3000 NOT EQU 157 00000236 3001 BFCTP EQU 158 00000237 3002 AND EQU 159 00000240 3003 BTRMP EQU 160 00000241 3004 OR EQU 161 00000242 3005 IMPP EQU 162 00000243 3006 IMPLIC EQU 163 00000244 3007 SBXP EQU 164 00000245 3008 EQUIV EQU 165 00000246 3009 VALUE EQU 166 00000247 3010 UNDEF EQU 167 00000250 3011 PRGRAM EQU 168 00000251 3012 TRUE EQU 169 00000252 3013 FALSE EQU 170 00000253 3014 FORMAT EQU 171 00000254 3015 COMENT EQU 172 00000255 3016 ILLEG EQU 173 00000256 3017 IGNOR EQU 174 00000257 3018 UOP EQU 175 00000260 3019 DOTDOT EQU 176 00000261 3020 BLANK EQU 177 00000264 3021 APOST2 EQU 180 00000265 3022 TYPE EQU 181 00000266 3023 COMST EQU 182 00000270 3024 USNC EQU 184 00000271 3025 USND EQU 185 00000273 3026 PRHDC EQU 187 00000274 3027 ROPE EQU 188 00000275 3028 MOPE EQU 189 00000276 3029 COLONE EQU 190 00000000 3030 SUBD EQU 0 00000001 3031 IMPA EQU 1 00000002 3032 RULE EQU 2 00000003 3033 RULEF EQU 3 3034 ICON FORM 6,10,8 3035 CON FORM 8,8,8 3036 RL FORM 2,2,2,10,8 3037 DICT FORM 3,9,12 05651 3038 MMIN RES 0 05651 0 003 5722 3039 DICT SUBD,BOUND,BND1 05652 0 004 5716 3040 DICT SUBD,MOP,MOP1 05653 3 005 6031 3041 DICT RULEF,USI,RR9 05654 0 006 5711 3042 DICT SUBD,RPAR,RPAR1 05655 3 007 5772 3043 DICT RULEF,COLON,RR3 05656 3 010 6000 3044 DICT RULEF,EQUAL,RR4 05657 3 011 6007 3045 DICT RULEF,LPT,RR5 05660 3 012 6014 3046 DICT RULEF,RPT,RR6 05661 3 013 6023 3047 DICT RULEF,AST,RR7 05662 0 014 5712 3048 DICT SUBD,AOP,AOP1 05663 0 015 5703 3049 DICT SUBD,IDT,IDT1 05664 0 016 5730 3050 DICT SUBD,APRI,APR1 05665 0 017 5707 3051 DICT SUBD,COMMA,COM1 05666 0 020 5721 3052 DICT SUBD,END,END1 05667 0 021 5704 3053 DICT SUBD,SEMCOL,SEM1 05670 3 022 6026 3054 DICT RULEF,RPAREN,RR8 05671 0 023 5710 3055 DICT SUBD,LPAREN,LPAR1 05672 0 024 5717 3056 DICT SUBD,ELSE,ELS1 05673 0 025 5723 3057 DICT SUBD,APOST,APST1 05674 0 026 5715 3058 DICT SUBD,ROP,ROP1 05675 1 027 5732 3059 DICT IMPA,DGT,X2 05676 1 030 5731 3060 DICT IMPA,LTR,X1 05677 3 031 5756 3061 DICT RULEF,IDTP,RR1 05700 3 032 5767 3062 DICT RULEF,USIP,RR2 05701 3 033 6052 3063 DICT RULEF,IDTPA,RR10 00000031 3064 LDICTN EQU $-MMIN 05702 3065 USI1 RES 0 05702 5 003 5733 3066 DICT 4+IMPA,BOUND,X3 05703 3067 IDT1 RES 0 05703 5 003 5734 3068 DICT 4+IMPA,BOUND,X4 05704 3069 SEM1 RES 0 05704 1 003 5735 3070 DICT IMPA,BOUND,X5 05705 1 020 5736 3071 DICT IMPA,END,X6 05706 4 254 5725 3072 DICT 4+SUBD,COMENT,SEM11 05707 3073 COM1 RES 0 05707 5 003 5737 3074 DICT 4+IMPA,BOUND,X7 05710 3075 LPAR1 RES 0 05710 5 003 5740 3076 DICT 4+IMPA,BOUND,X8 05711 3077 RPAR1 RES 0 05711 5 003 5741 3078 DICT 4+IMPA,BOUND,X9 05712 3079 AOP1 RES 0 05712 1 171 5754 3080 DICT IMPA,TEN,X24 05713 1 205 5755 3081 DICT IMPA,USNB,X26 05714 5 003 5742 3082 DICT 4+IMPA,BOUND,X12 05715 3083 ROP1 RES 0 05715 5 003 5743 3084 DICT 4+IMPA,BOUND,X14 05716 3085 MOP1 RES 0 05716 5 003 5744 3086 DICT 4+IMPA,BOUND,X15 05717 3087 ELS1 RES 0 05717 1 003 5745 3088 DICT IMPA,BOUND,X16 05720 5 020 5746 3089 DICT 4+IMPA,END,X17 05721 5 020 5747 3090 END1 DICT 4+IMPA,END,X18 05722 4 020 5726 3091 BND1 DICT 4+SUBD,END,BND11 05723 0 015 5727 3092 APST1 DICT SUBD,IDT,APST12 05724 5 025 5750 3093 DICT 4+IMPA,APOST,X19 05725 5 003 5751 3094 SEM11 DICT 4+IMPA,BOUND,X20 05726 5 003 5752 3095 BND11 DICT 4+IMPA,BOUND,X22 05727 5 025 5753 3096 APST12 DICT 4+IMPA,APOST,X23 05730 5 003 5733 3097 APR1 DICT 4+IMPA,BOUND,X3 05731 01 1342 031 3098 X1 ICON 1,SN1-N,IDTP 05732 01 1346 032 3099 X2 ICON 1,SN2-N,USIP 05733 01 1355 003 3100 X3 ICON 1,SN3-N,BOUND 05734 01 1357 003 3101 X4 ICON 1,SN4-N,BOUND 05735 01 1361 003 3102 X5 ICON 1,SN5-N,BOUND 05736 01 1364 021 3103 X6 ICON 1,SN6-N,SEMCOL 05737 01 1367 003 3104 X7 ICON 1,SN7-N,BOUND 05740 01 1372 003 3105 X8 ICON 1,SN8-N,BOUND 05741 01 1375 003 3106 X9 ICON 1,SN9-N,BOUND 05742 01 1400 003 3107 X12 ICON 1,SN12-N,BOUND 05743 01 1412 003 3108 X14 ICON 1,SN14-N,BOUND 05744 01 1414 003 3109 X15 ICON 1,SN15-N,BOUND 05745 01 1426 003 3110 X16 ICON 1,SN16-N,BOUND 05746 01 1364 024 3111 X17 ICON 1,SN6-N,ELSE 05747 01 1364 020 3112 X18 ICON 1,SN6-N,END 05750 01 1552 264 3113 X19 ICON 1,SN19-N,APOST2 05751 01 1473 003 3114 X20 ICON 1,SN24B-N,BOUND 05752 01 1517 003 3115 X22 ICON 1,SN22-N,BOUND 05753 00 1151 000 3116 X23 ICON 0,LWCHK-N,0 05754 01 1476 171 3117 X24 ICON 1,SN24A-N,TEN 05755 01 1476 205 3118 X26 ICON 1,SN24A-N,USNB 05756 25533544 3119 RR1 RL 1,1,1,SN-N,LPD 05757 144 000 000 3120 CON LPD,0,0 05760 21635030 3121 RL 1,0,1,SN24-N,LTR 05761 031 000 000 3122 CON IDTP,0,0 05762 21635027 3123 RL 1,0,1,SN24-N,DGT 05763 031 000 000 3124 CON IDTP,0,0 05764 21533407 3125 RL 1,0,1,SN-N,COLON 05765 033 000 000 3126 CON IDTPA,0,0 05766 01654415 3127 RL 0,0,1,SN40-N,IDT 05767 21641427 3128 RR2 RL 1,0,1,SN26-N,DGT 05770 032 000 000 3129 CON USIP,0,0 05771 01533405 3130 RL 0,0,1,SN-N,USI 05772 45533544 3131 RR3 RL 2,1,1,SN-N,LPD 05773 023 017 000 3132 CON LPAREN,COMMA,0 05774 45620403 3133 RL 2,1,1,SN27A-N,BOUND 05775 010 003 000 3134 CON EQUAL,BOUND,0 05776 25603403 3135 RL 1,1,1,SN13-N,BOUND 05777 003 000 000 3136 CON BOUND,0,0 06000 45622003 3137 RR4 RL 2,1,1,SN28-N,BOUND 06001 010 003 000 3138 CON EQUAL,BOUND,0 06002 21623412 3139 RL 1,0,1,SN29-N,RPT 06003 026 000 000 3140 CON ROP,0,0 06004 21625011 3141 RL 1,0,1,SN30-N,LPT 06005 026 000 000 3142 CON ROP,0,0 06006 01626026 3143 RL 0,0,1,SN31-N,ROP 06007 21627012 3144 RR5 RL 1,0,1,SN32-N,RPT 06010 026 000 000 3145 CON ROP,0,0 06011 21625010 3146 RL 1,0,1,SN30-N,EQUAL 06012 026 000 000 3147 CON ROP,0,0 06013 01630026 3148 RL 0,0,1,SN34-N,ROP 06014 45631003 3149 RR6 RL 2,1,1,SN35-N,BOUND 06015 012 003 000 3150 CON RPT,BOUND,0 06016 21627011 3151 RL 1,0,1,SN32-N,LPT 06017 026 000 000 3152 CON ROP,0,0 06020 21623410 3153 RL 1,0,1,SN29-N,EQUAL 06021 026 000 000 3154 CON ROP,0,0 06022 01632426 3155 RL 0,0,1,SN38-N,ROP 06023 45633403 3156 RR7 RL 2,1,1,SN39-N,BOUND 06024 013 003 000 3157 CON AST,BOUND,0 06025 01533404 3158 RL 0,0,1,SN-N,MOP 06026 21533430 3159 RR8 RL 1,0,1,SN-N,LTR 06027 144 000 000 3160 CON LPD,0,0 06030 01533406 3161 RL 0,0,1,SN-N,RPAR 06031 21701175 3162 RR9 RL 1,0,1,R9D1-N,PT 06032 137 000 000 3163 CON USNA,0,0 06033 46702537 3164 RL 2,1,2,R9D2-N,USNA 06034 171 205 171 3165 CON TEN,USNB,TEN 06035 25703537 3166 RL 1,1,1,R9D3-N,USNA 06036 016 000 000 3167 CON APRI,0,0 06037 46702575 3168 RL 2,1,2,R9D2-N,PT 06040 171 205 171 3169 CON TEN,USNB,TEN 06041 25703575 3170 RL 1,1,1,R9D3-N,PT 06042 016 000 000 3171 CON APRI,0,0 06043 22701171 3172 RL 1,0,2,R9D1-N,TEN 06044 205 171 000 3173 CON USNB,TEN,0 06045 51705605 3174 RL 2,2,1,R9D4-N,USNB 06046 171 016 000 3175 CON TEN,APRI,0 06047 25704571 3176 RL 1,1,1,R9D6-N,TEN 06050 016 000 000 3177 CON APRI,0,0 06051 01714016 3178 RL 0,0,1,R9D5-N,APRI 06052 45614403 3179 RR10 RL 2,1,1,SN27-N,BOUND 06053 010 003 000 3180 CON EQUAL,BOUND,0 06054 25000003 3181 RL 1,1,1,LABDEF-N,BOUND 06055 003 000 000 3182 CON BOUND,0,0 3183 LEX FORM 4,3,5,12 06056 01 3 00 0156 3184 LWTAB LEX 1,3,0,IF 06057 31266060 3185 TEXT 4,IF 06060 01 0 01 0054 3186 LEX 1,0,1,DO 06061 24466060 3187 TEXT 4,DO 06062 01 0 02 0241 3188 LEX 1,0,2,OR 06063 46516060 3189 TEXT 4,OR 06064 02 6 03 0226 3190 LEX 2,6,3,FOR 06065 26465160 3191 TEXT 4,FOR 06066 02 2 00 0020 3192 LEX 2,2,0,END 06067 25452460 3193 TEXT 4,END 06070 02 1 00 0224 3194 LEX 2,1,0,OWN 06071 46664560 3195 TEXT 4,OWN 06072 02 0 05 0237 3196 LEX 2,0,5,AND 06073 21452460 3197 TEXT 4,AND 06074 02 0 06 0235 3198 LEX 2,0,6,NOT 06075 45466360 3199 TEXT 4,NOT 06076 03 0 07 0064 3200 LEX 3,0,7,THEN 06077 63302545 3201 TEXT 4,THEN 06100 03 2 00 0024 3202 LEX 3,2,0,ELSE 06101 25436225 3203 TEXT 4,ELSE 06102 03 1 00 0036 3204 LEX 3,1,0,REAL 06103 51252143 3205 TEXT 4,REAL 06104 03 0 11 0114 3206 LEX 3,0,9,STEP 06105 62632547 3207 TEXT 4,STEP 06106 03 3 12 0167 3208 LEX 3,3,10,GOTO 06107 27466346 3209 TEXT 4,GOTO 06110 03 4 00 0077 3210 LEX 3,4,0,BPRI 06111 63516425 3211 TEXT 4,TRUE 06112 04 3 13 0042 3212 LEX 4,3,11,BEGIN 06113 22252731 3213 TEXT 8,BEGIN 06114 45606060 06115 04 1 00 0050 3214 LEX 4,1,0,ARRAY 06116 21515121 3215 TEXT 8,ARRAY 06117 70606060 06120 04 0 14 0116 3216 LEX 4,0,12,UNTIL 06121 64456331 3217 TEXT 8,UNTIL 06122 43606060 06123 04 0 15 0121 3218 LEX 4,0,13,WHILE 06124 66303143 3219 TEXT 8,WHILE 06125 25606060 06126 04 5 00 0077 3220 LEX 4,5,0,BPRI 06127 26214362 3221 TEXT 8,FALSE 06130 25606060 06131 04 1 00 0246 3222 LEX 4,1,0,VALUE 06132 65214364 3223 TEXT 8,VALUE 06133 25606060 06134 04 1 00 0106 3224 LEX 4,1,0,LABEL 06135 43212225 3225 TEXT 8,LABEL 06136 43606060 06137 05 1 00 0253 3226 LEX 5,1,0,FORMAT 06140 26465144 3227 TEXT 8,FORMAT 06141 21636060 06142 05 1 00 0110 3228 LEX 5,1,0,SWITCH 06143 62663163 3229 TEXT 8,SWITCH 06144 23306060 06145 05 1 00 0026 3230 LEX 5,1,0,STRING 06146 62635131 3231 TEXT 8,STRING 06147 45276060 06150 06 1 00 0037 3232 LEX 6,1,0,INTGER 06151 31456325 3233 TEXT 8,INTEGER 06152 27255160 06153 06 2 00 0254 3234 LEX 6,2,0,COMENT 06154 23464444 3235 TEXT 8,COMMENT 06155 25456360 06156 06 1 00 0040 3236 LEX 6,1,0,BOOL 06157 22464643 3237 TEXT 8,BOOLEAN 06160 25214560 06161 07 1 00 0207 3238 LEX 7,1,0,XTRNAL 06162 25676325 3239 TEXT 8,EXTERNAL 06163 51452143 06164 07 1 10 0047 3240 LEX 7,1,8,PROCED 06165 47514623 3241 TEXT 8,PROCEDUR 06166 25246451 06167 00000500 3242 OPTAB DATA 0500 IF 06170 00001700 3243 DATA 01700 DO 06171 05210021 3244 DATA 05210021 OR 06172 00001300 3245 DATA 01300 FOR 06173 00000400 3246 DATA 0400 SWITCH 06174 06220022 3247 DATA 06220022 AND 06175 07000100 3248 DATA 07000100 NOT 06176 00000600 3249 DATA 0600 THEN(OP) 06177 00000000 3250 DATA 0 PROCEDURE 06200 00001500 3251 DATA 01500 STEP 06201 01001000 3252 DATA 01001000 GO TO 06202 00771100 3253 DATA 0771100 BEGIN 06203 00001600 3254 DATA 01600 UNTIL 06204 00001400 3255 DATA 01400 WHILE 06205 3256 MMAJ RES 0 06205 0 004 6333 3257 DICT SUBD,BEGINB,BGB1 06206 0 005 6337 3258 DICT SUBD,BEGINC,BGC1 06207 0 006 6312 3259 DICT SUBD,STMTSQ,DEC1 06210 1 007 6467 3260 DICT IMPA,ASN,Y93 06211 2 010 6760 3261 DICT RULE,ULBLK,R34 06212 3 011 6763 3262 DICT RULEF,BLOCK,R38 06213 3 012 6763 3263 DICT RULEF,CMPD,R38 06214 2 013 6774 3264 DICT RULE,UCS,R29 06215 1 014 6516 3265 DICT IMPA,AOP,Y137 06216 2 015 7016 3266 DICT RULE,IDT,R2 06217 2 016 6636 3267 DICT RULE,APRI,R12 06220 0 017 6325 3268 DICT SUBD,COMMA,CM1 06221 0 020 6420 3269 DICT SUBD,END,END2 06222 2 021 7066 3270 DICT RULE,SEMCOL,R1 06223 0 022 6363 3271 DICT SUBD,RPAREN,RPR1 06224 0 023 6336 3272 DICT SUBD,LPAREN,LPR1 06225 2 024 7125 3273 DICT RULE,ELSE,R44 06226 2 025 7002 3274 DICT RULE,UBS,R31 06227 0 026 6324 3275 DICT SUBD,STRING,STRG1 06230 2 027 7005 3276 DICT RULE,UFORS,R32 06231 2 030 7010 3277 DICT RULE,ULCOMP,R33 06232 1 031 6453 3278 DICT IMPA,SWDES,Y62 06233 3 032 6753 3279 DICT RULEF,SWIDT,R36 06234 0 033 6343 3280 DICT SUBD,FL,FL1 06235 3 034 6766 3281 DICT RULEF,ARIDT,R26 06236 0 035 6341 3282 DICT SUBD,APL,APL1 06237 1 036 6427 3283 DICT IMPA,REAL,Y1 06240 1 037 6430 3284 DICT IMPA,INTGER,Y2 06241 1 040 6431 3285 DICT IMPA,BOOL,Y3 06242 2 041 6525 3286 DICT RULE,FORS,R35 06243 3 042 6530 3287 DICT RULEF,BEGIN,R6 06244 3 043 6771 3288 DICT RULEF,SDX,R27 06245 3 044 6777 3289 DICT RULEF,IFS,R30 06246 1 045 6527 3290 DICT IMPA,CS,R35Z 06247 3 046 6626 3291 DICT RULEF,SUBX,R3 06250 2 047 6551 3292 DICT RULE,PROCED,R4 06251 2 050 6560 3293 DICT RULE,ARRAY,R5 06252 2 051 6573 3294 DICT RULE,VRIDT,R7 06253 3 052 6602 3295 DICT RULEF,PRIDT,R8 06254 0 053 6342 3296 DICT SUBD,ALPL,ALPL1 06255 2 054 6666 3297 DICT RULE,DO,R16 06256 0 055 6335 3298 DICT SUBD,FPL,FPL1 06257 0 056 6345 3299 DICT SUBD,AX,AX1 06260 0 057 6357 3300 DICT SUBD,ARLIS,ARL1 06261 3 060 6750 3301 DICT RULEF,PRHDB,R37 06262 0 061 6361 3302 DICT SUBD,BPL,BPL1 06263 0 062 6402 3303 DICT SUBD,BOX,BX1 06264 2 063 6522 3304 DICT RULE,STRX,R40 06265 2 064 7122 3305 DICT RULE,THEN,R42 06266 0 065 6407 3306 DICT SUBD,BLPL,BLPL1 06267 0 066 6410 3307 DICT SUBD,DEX,DEX1 06270 0 067 6417 3308 DICT SUBD,LBLSL,LBLS1 06271 3 070 6631 3309 DICT RULEF,AVAR,R10 06272 2 071 6607 3310 DICT RULE,FDZ,R11 06273 3 072 6673 3311 DICT RULEF,STMT,R18 06274 3 073 6641 3312 DICT RULEF,AFCT,R13 06275 3 074 6646 3313 DICT RULEF,ATRM,R14 06276 3 075 6655 3314 DICT RULEF,SAX,R15 06277 3 076 6713 3315 DICT RULEF,BVAR,R17 06300 2 077 6716 3316 DICT RULE,BPRI,R19 06301 2 100 6721 3317 DICT RULE,BSEC,R20 06302 3 101 6724 3318 DICT RULEF,BFCT,R21 06303 3 102 6731 3319 DICT RULEF,BTRM,R22 06304 3 103 6736 3320 DICT RULEF,IMP,R23 06305 3 104 6743 3321 DICT RULEF,SBX,R24 06306 3 105 7013 3322 DICT RULEF,PRODEC,R39 06307 0 106 6323 3323 DICT SUBD,LABEL,LAB1 06310 0 107 6313 3324 DICT SUBD,IFC,IFC1 06311 0 110 6322 3325 DICT SUBD,SWITCH,SWCH1 00000105 3326 LDICTJ EQU $-MMAJ 06312 5 006 6477 3327 DEC1 DICT 4+IMPA,STMTSQ,Y112 06313 3328 IFC1 RES 0 06313 1 067 6511 3329 DICT IMPA,LBLSL,Y124 06314 1 174 6507 3330 DICT IMPA,FORC,Y123 06315 1 005 6503 3331 DICT IMPA,BEGINC,Y121 06316 1 006 6505 3332 DICT IMPA,STMTSQ,Y122 06317 1 002 6501 3333 DICT IMPA,BLKHD,Y120 06320 1 206 6512 3334 DICT IMPA,IFSP,Y125 06321 5 210 6514 3335 DICT 4+IMPA,PIFS,Y126 06322 5 273 6517 3336 SWCH1 DICT 4+IMPA,PRHDC,Y132 06323 5 273 6520 3337 LAB1 DICT 4+IMPA,PRHDC,Y133 06324 5 273 6521 3338 STRG1 DICT 4+IMPA,PRHDC,Y134 06325 1 055 6432 3339 CM1 DICT IMPA,FPL,Y15 06326 1 035 6442 3340 DICT IMPA,APL,Y39 06327 4 056 6330 3341 DICT 4+SUBD,AX,CM12 06330 1 123 6445 3342 CM12 DICT IMPA,FCP,Y48 06331 4 017 6332 3343 DICT 4+SUBD,COMMA,CM121 06332 5 033 6447 3344 CM121 DICT 4+IMPA,FL,Y50 06333 4 273 6334 3345 BGB1 DICT 4+SUBD,PRHDC,BGB11 06334 5 112 6436 3346 BGB11 DICT 4+IMPA,PRHDA,Y22 06335 5 111 6433 3347 FPL1 DICT 4+IMPA,FPLPD,Y16 06336 5 141 6434 3348 LPR1 DICT 4+IMPA,ARSEG,Y17 06337 4 273 6340 3349 BGC1 DICT 4+SUBD,PRHDC,BGC11 06340 5 112 6440 3350 BGC11 DICT 4+IMPA,PRHDA,Y23 06341 5 160 6757 3351 APL1 DICT 4+IMPA,APLPD,R36Z 06342 5 053 6443 3352 ALPL1 DICT 4+IMPA,ALPL,Y42 06343 4 017 6344 3353 FL1 DICT 4+SUBD,COMMA,FL11 06344 5 033 6475 3354 FL11 DICT 4+IMPA,FL,Y103 06345 1 216 6665 3355 AX1 DICT IMPA,AXP,R15Z 06346 1 053 6444 3356 DICT IMPA,ALPL,Y43 06347 1 131 6451 3357 DICT IMPA,FDZP,Y52 06350 1 142 6461 3358 DICT IMPA,LBRACK,Y74 06351 0 116 6422 3359 DICT SUBD,UNTIL,ELC1 06352 1 160 6470 3360 DICT IMPA,APLPD,Y95 06353 0 276 6355 3361 DICT SUBD,COLONE,AX11 06354 4 017 6356 3362 DICT 4+SUBD,COMMA,AX12 06355 5 056 6460 3363 AX11 DICT 4+IMPA,AX,Y71 06356 5 146 6630 3364 AX12 DICT 4+IMPA,SUBL,R3Z 06357 4 017 6360 3365 ARL1 DICT 4+SUBD,COMMA,ARL11 06360 5 057 6457 3366 ARL11 DICT 4+IMPA,ARLIS,Y67 06361 4 017 6362 3367 BPL1 DICT 4+SUBD,COMMA,BPL11 06362 5 061 6460 3368 BPL11 DICT 4+IMPA,BPL,Y71 06363 0 146 6371 3369 RPR1 DICT SUBD,SUBL,RPR11 06364 0 061 6374 3370 DICT SUBD,BPL,RPR12 06365 0 066 6376 3371 DICT SUBD,DEX,RPR13 06366 0 062 6377 3372 DICT SUBD,BOX,RPR14 06367 0 056 6400 3373 DICT SUBD,AX,RPR15 06370 4 035 6401 3374 DICT 4+SUBD,APL,RPR161 06371 4 142 6372 3375 RPR11 DICT 4+SUBD,LBRACK,RPR111 06372 1 147 6456 3376 RPR111 DICT IMPA,BVARP,Y66 06373 5 145 6455 3377 DICT 4+IMPA,AVARP,Y65 06374 4 126 6375 3378 RPR12 DICT 4+SUBD,LBROCK,RPR121 06375 5 141 6454 3379 RPR121 DICT 4+IMPA,ARSEG,Y64 06376 5 023 6453 3380 RPR13 DICT 4+IMPA,LPAREN,Y62 06377 5 023 6715 3381 RPR14 DICT 4+IMPA,LPAREN,R17Z 06400 5 023 6635 3382 RPR15 DICT 4+IMPA,LPAREN,R10Z 06401 5 131 6606 3383 RPR161 DICT 4+IMPA,FDZP,R8Z 06402 1 160 6470 3384 BX1 DICT IMPA,APLPD,Y95 06403 0 121 6424 3385 DICT SUBD,WHILE,ELC3 06404 1 131 6451 3386 DICT IMPA,FDZP,Y52 06405 1 155 6747 3387 DICT IMPA,BXP,R24Z 06406 5 065 6444 3388 DICT 4+IMPA,BLPL,Y43 06407 5 065 6463 3389 BLPL1 DICT 4+IMPA,BLPL,Y83 06410 1 167 6467 3390 DEX1 DICT IMPA,GOTO,Y93 06411 1 160 6470 3391 DICT IMPA,APLPD,Y95 06412 1 131 6451 3392 DICT IMPA,FDZP,Y52 06413 1 164 6773 3393 DICT IMPA,DXP,R27Z 06414 1 165 6464 3394 DICT IMPA,ASSIGN,Y91 06415 4 017 6416 3395 DICT 4+SUBD,COMMA,DEX11 06416 5 166 6466 3396 DEX11 DICT 4+IMPA,SWL,Y92 06417 5 067 6472 3397 LBLS1 DICT 4+IMPA,LBLSL,Y97 06420 1 067 6473 3398 END2 DICT IMPA,LBLSL,Y98 06421 4 006 6425 3399 DICT 4+SUBD,STMTSQ,SQ1 06422 4 056 6423 3400 ELC1 DICT 4+SUBD,AX,ELC2 06423 4 114 6424 3401 ELC2 DICT 4+SUBD,STEP,ELC3 06424 5 056 6475 3402 ELC3 DICT 4+IMPA,AX,Y103 06425 1 002 6500 3403 SQ1 DICT IMPA,BLKHD,Y114 06426 5 005 6476 3404 DICT 4+IMPA,BEGINC,Y110 06427 01 0125 265 3405 Y1 ICON 1,SM1-M,TYPE 06430 01 0130 265 3406 Y2 ICON 1,SM2-M,TYPE 06431 01 0132 265 3407 Y3 ICON 1,SM3-M,TYPE 06432 01 0000 111 3408 Y15 ICON 1,SM-M,FPLPD 06433 01 0000 055 3409 Y16 ICON 1,SM-M,FPL 06434 02 0134 141 3410 Y17 ICON 2,SM17-M,ARSEG 06435 126 000 000 3411 CON LBROCK,0,0 06436 02 0177 001 3412 Y22 ICON 2,SM22-M,PRHED 06437 004 000 000 3413 CON BEGINB,0,0 06440 02 0177 001 3414 Y23 ICON 2,SM22-M,PRHED 06441 005 000 000 3415 CON BEGINC,0,0 06442 01 0000 160 3416 Y39 ICON 1,SM-M,APLPD 06443 01 0000 053 3417 Y42 ICON 1,SM-M,ALPL 06444 01 0000 007 3418 Y43 ICON 1,SM-M,ASN 06445 03 0000 123 3419 Y48 ICON 3,SM-M,FCP 06446 033 017 000 3420 CON FL,COMMA,0 06447 02 0000 033 3421 Y50 ICON 2,SM-M,FL 06450 017 000 000 3422 CON COMMA,0,0 06451 02 0000 131 3423 Y52 ICON 2,SM-M,FDZP 06452 035 000 000 3424 CON APL,0,0 06453 01 0000 043 3425 Y62 ICON 1,SM-M,SDX 06454 01 0137 057 3426 Y64 ICON 1,SM64-M,ARLIS 06455 01 0000 070 3427 Y65 ICON 1,SM-M,AVAR 06456 01 0000 076 3428 Y66 ICON 1,SM-M,BVAR 06457 01 0000 057 3429 Y67 ICON 1,SM-M,ARLIS 06460 01 0000 061 3430 Y71 ICON 1,SM-M,BPL 06461 02 0000 142 3431 Y74 ICON 2,SM-M,LBRACK 06462 046 000 000 3432 CON SUBX,0,0 06463 01 0000 065 3433 Y83 ICON 1,SM-M,BLPL 06464 02 0000 165 3434 Y91 ICON 2,SM-M,ASSIGN 06465 166 000 000 3435 CON SWL,0,0 06466 01 0000 166 3436 Y92 ICON 1,SM-M,SWL 06467 01 0000 025 3437 Y93 ICON 1,SM-M,UBS 06470 02 0000 160 3438 Y95 ICON 2,SM-M,APLPD 06471 035 000 000 3439 CON APL,0,0 06472 01 0000 067 3440 Y97 ICON 1,SM-M,LBLSL 06473 02 0000 013 3441 Y98 ICON 2,SM-M,UCS 06474 020 000 000 3442 CON END,0,0 06475 01 0000 033 3443 Y103 ICON 1,SM-M,FL 06476 01 0000 030 3444 Y110 ICON 1,SM-M,ULCOMP 06477 01 0000 006 3445 Y112 ICON 1,SM-M,STMTSQ 06500 01 0000 010 3446 Y114 ICON 1,SM-M,ULBLK 06501 02 0000 002 3447 Y120 ICON 2,SM-M,BLKHD 06502 210 000 000 3448 CON PIFS,0,0 06503 02 0000 005 3449 Y121 ICON 2,SM-M,BEGINC 06504 210 000 000 3450 CON PIFS,0,0 06505 02 0000 006 3451 Y122 ICON 2,SM-M,STMTSQ 06506 210 000 000 3452 CON PIFS,0,0 06507 02 0000 174 3453 Y123 ICON 2,SM-M,FORC 06510 210 000 000 3454 CON PIFS,0,0 06511 01 0000 210 3455 Y124 ICON 1,SM-M,PIFS 06512 02 0000 206 3456 Y125 ICON 2,SM-M,IFSP 06513 210 000 000 3457 CON PIFS,0,0 06514 02 0000 210 3458 Y126 ICON 2,SM-M,PIFS 06515 210 000 000 3459 CON PIFS,0,0 06516 01 0204 257 3460 Y137 ICON 1,SM137-M,UOP 06517 01 0254 157 3461 Y132 ICON 1,R2D6-M,PRHDEP 06520 01 0154 157 3462 Y133 ICON 1,SM133-M,PRHDEP 06521 01 0156 157 3463 Y134 ICON 1,SM134-M,PRHDEP 06522 51256467 3464 R40 RL 2,2,1,R40D1-M,LBLSL 06523 253 072 000 3465 CON FORMAT,STMT,0 06524 01000035 3466 RL 0,0,1,SM-M,APL 06525 25000210 3467 R35 RL 1,1,1,SM-M,PIFS 06526 072 000 000 3468 CON STMT,0,0 06527 01000072 3469 R35Z RL 0,0,1,SM-M,STMT 06530 22541036 3470 R6 RL 1,0,2,BEGBLK-M,REAL 06531 004 036 000 3471 CON BEGINB,REAL,0 06532 22541037 3472 RL 1,0,2,BEGBLK-M,INTGER 06533 004 037 000 3473 CON BEGINB,INTGER,0 06534 22541040 3474 RL 1,0,2,BEGBLK-M,BOOL 06535 004 040 000 3475 CON BEGINB,BOOL,0 06536 22541224 3476 RL 1,0,2,BEGBLK-M,OWN 06537 004 224 000 3477 CON BEGINB,OWN,0 06540 22541047 3478 RL 1,0,2,BEGBLK-M,PROCED 06541 004 047 000 3479 CON BEGINB,PROCED,0 06542 22541050 3480 RL 1,0,2,BEGBLK-M,ARRAY 06543 004 050 000 3481 CON BEGINB,ARRAY,0 06544 22541110 3482 RL 1,0,2,BEGBLK-M,SWITCH 06545 004 110 000 3483 CON BEGINB,SWITCH,0 06546 22541207 3484 RL 1,0,2,BEGBLK-M,XTRNAL 06547 004 207 000 3485 CON BEGINB,XTRNAL,0 06550 01000005 3486 RL 0,0,1,SM-M,BEGINC 06551 25213673 3487 R4 RL 1,1,1,R4D1-M,PRHDC 06552 157 000 000 3488 CON PRHDEP,0,0 06553 51214273 3489 RL 2,2,1,R4D2-M,PRHDC 06554 265 157 000 3490 CON TYPE,PRHDEP,0 06555 25000265 3491 RL 1,1,1,SM-M,TYPE 06556 223 000 000 3492 CON PROC,0,0 06557 01215223 3493 RL 0,0,1,R4D4-M,PROC 06560 25216273 3494 R5 RL 1,1,1,R5D1-M,PRHDC 06561 157 000 000 3495 CON PRHDEP,0,0 06562 51220224 3496 RL 2,2,1,R5D2-M,OWN 06563 265 221 000 3497 CON TYPE,ARY,0 06564 51217273 3498 RL 2,2,1,R5D3-M,PRHDC 06565 265 157 000 3499 CON TYPE,PRHDEP,0 06566 25224265 3500 RL 1,1,1,R5D4-M,TYPE 06567 221 000 000 3501 CON ARY,0,0 06570 25221224 3502 RL 1,1,1,R5D5-M,OWN 06571 221 000 000 3503 CON ARY,0,0 06572 01223221 3504 RL 0,0,1,R5D6-M,ARY 06573 51410604 3505 R7 RL 2,2,1,VAR-M,VRLIS 06574 017 204 000 3506 CON COMMA,VRLIS,0 06575 51225224 3507 RL 2,2,1,R7D2-M,OWN 06576 265 204 000 3508 CON TYPE,VRLIS,0 06577 25410665 3509 RL 1,1,1,VAR-M,TYPE 06600 204 000 000 3510 CON VRLIS,0,0 06601 01226070 3511 RL 0,0,1,R7D4-M,AVAR 06602 21232023 3512 R8 RL 1,0,1,R8D2-M,LPAREN 06603 131 000 000 3513 CON FDZP,0,0 06604 22226165 3514 RL 1,0,2,R7D4-M,ASSIGN 06605 070 165 000 3515 CON AVAR,ASSIGN,0 06606 01000071 3516 R8Z RL 0,0,1,SM-M,FDZ 06607 26000006 3517 R11 RL 1,1,2,SM-M,STMTSQ 06610 006 025 000 3518 CON STMTSQ,UBS,0 06611 26000005 3519 RL 1,1,2,SM-M,BEGINC 06612 005 025 000 3520 CON BEGINC,UBS,0 06613 26000002 3521 RL 1,1,2,SM-M,BLKHD 06614 002 025 000 3522 CON BLKHD,UBS,0 06615 26000174 3523 RL 1,1,2,SM-M,FORC 06616 174 025 000 3524 CON FORC,UBS,0 06617 26000067 3525 RL 1,1,2,SM-M,LBLSL 06620 067 025 000 3526 CON LBLSL,UBS,0 06621 26000206 3527 RL 1,1,2,SM-M,IFSP 06622 206 025 000 3528 CON IFSP,UBS,0 06623 26000210 3529 RL 1,1,2,SM-M,PIFS 06624 210 025 000 3530 CON PIFS,UBS,0 06625 01227016 3531 RL 0,0,1,R11D14-M,APRI 06626 71000225 3532 R3 RL 3,2,1,SM-M,SWDESP 06627 142 022 031 3533 CON LBRACK,RPAREN,SWDES 06630 01000146 3534 R3Z RL 0,0,1,SM-M,SUBL 06631 45241226 3535 R10 RL 2,1,1,R10D2-M,FOR 06632 165 123 000 3536 CON ASSIGN,FCP,0 06633 21241165 3537 RL 1,0,1,R10D2-M,ASSIGN 06634 053 000 000 3538 CON ALPL,0,0 06635 01000016 3539 R10Z RL 0,0,1,SM-M,APRI 06636 25000227 3540 R12 RL 1,1,1,SM-M,AFCTP 06637 073 000 000 3541 CON AFCT,0,0 06640 01000073 3542 RL 0,0,1,SM-M,AFCT 06641 21000232 3543 R13 RL 1,0,1,SM-M,EOP 06642 227 000 000 3544 CON AFCTP,0,0 06643 25000230 3545 RL 1,1,1,SM-M,ATRMP 06644 074 000 000 3546 CON ATRM,0,0 06645 01000074 3547 RL 0,0,1,SM-M,ATRM 06646 21000275 3548 R14 RL 1,0,1,SM-M,MOPE 06647 230 000 000 3549 CON ATRMP,0,0 06650 25000231 3550 RL 1,1,1,SM-M,SAXP 06651 075 000 000 3551 CON SAX,0,0 06652 25000257 3552 RL 1,1,1,SM-M,UOP 06653 075 000 000 3553 CON SAX,0,0 06654 01000075 3554 RL 0,0,1,SM-M,SAX 06655 21000014 3555 R15 RL 1,0,1,SM-M,AOP 06656 231 000 000 3556 CON SAXP,0,0 06657 21000274 3557 RL 1,0,1,SM-M,ROPE 06660 234 000 000 3558 CON RELP,0,0 06661 45000107 3559 RL 2,1,1,SM-M,IFC 06662 024 216 000 3560 CON ELSE,AXP,0 06663 25000234 3561 RL 1,1,1,SM-M,RELP 06664 077 000 000 3562 CON BPRI,0,0 06665 01000056 3563 R15Z RL 0,0,1,SM-M,AX 06666 51000123 3564 R16 RL 2,2,1,SM-M,FCP 06667 033 174 000 3565 CON FL,FORC,0 06670 26000056 3566 RL 1,1,2,SM-M,AX 06671 033 054 000 3567 CON FL,DO,0 06672 01243162 3568 RL 0,0,1,SYND-M,ERROR 06673 45106406 3569 R18 RL 2,1,1,R1D1-M,STMTSQ 06674 021 006 000 3570 CON SEMCOL,STMTSQ,0 06675 25000174 3571 RL 1,1,1,SM-M,FORC 06676 027 000 000 3572 CON UFORS,0,0 06677 25000206 3573 RL 1,1,1,SM-M,IFSP 06700 072 000 000 3574 CON STMT,0,0 06701 22000020 3575 RL 1,0,2,SM-M,END 06702 006 020 000 3576 CON STMTSQ,END,0 06703 72070112 3577 RL 3,2,2,SM135-M,PRHDA 06704 273 021 105 3578 CON PRHDC,SEMCOL,PRODEC 06705 021 000 000 3579 CON SEMCOL,0,0 06706 46070001 3580 RL 2,1,2,SM135-M,PRHED 06707 021 105 021 3581 CON SEMCOL,PRODEC,SEMCOL 06710 21106421 3582 RL 1,0,1,R1D1-M,SEMCOL 06711 006 000 000 3583 CON STMTSQ,0,0 06712 01244162 3584 RL 0,0,1,SYNS-M,ERROR 06713 21241165 3585 R17 RL 1,0,1,R10D2-M,ASSIGN 06714 065 000 000 3586 CON BLPL,0,0 06715 01000077 3587 R17Z RL 0,0,1,SM-M,BPRI 06716 25000235 3588 R19 RL 1,1,1,SM-M,NOT 06717 100 000 000 3589 CON BSEC,0,0 06720 01000100 3590 RL 0,0,1,SM-M,BSEC 06721 25000236 3591 R20 RL 1,1,1,SM-M,BFCTP 06722 101 000 000 3592 CON BFCT,0,0 06723 01000101 3593 RL 0,0,1,SM-M,BFCT 06724 21000237 3594 R21 RL 1,0,1,SM-M,AND 06725 236 000 000 3595 CON BFCTP,0,0 06726 25000240 3596 RL 1,1,1,SM-M,BTRMP 06727 102 000 000 3597 CON BTRM,0,0 06730 01000102 3598 RL 0,0,1,SM-M,BTRM 06731 21000241 3599 R22 RL 1,0,1,SM-M,OR 06732 240 000 000 3600 CON BTRMP,0,0 06733 25000242 3601 RL 1,1,1,SM-M,IMPP 06734 103 000 000 3602 CON IMP,0,0 06735 01000103 3603 RL 0,0,1,SM-M,IMP 06736 21000243 3604 R23 RL 1,0,1,SM-M,IMPLIC 06737 242 000 000 3605 CON IMPP,0,0 06740 25000244 3606 RL 1,1,1,SM-M,SBXP 06741 104 000 000 3607 CON SBX,0,0 06742 01000104 3608 RL 0,0,1,SM-M,SBX 06743 21000245 3609 R24 RL 1,0,1,SM-M,EQUIV 06744 244 000 000 3610 CON SBXP,0,0 06745 45000107 3611 RL 2,1,1,SM-M,IFC 06746 024 155 000 3612 CON ELSE,BXP,0 06747 01000062 3613 R24Z RL 0,0,1,SM-M,BOX 06750 21000246 3614 R37 RL 1,0,1,SM-M,VALUE 06751 143 000 000 3615 CON PRHDCP,0,0 06752 01000273 3616 RL 0,0,1,SM-M,PRHDC 06753 25457110 3617 R36 RL 1,1,1,SWIT-M,SWITCH 06754 203 000 000 3618 CON SWDP,0,0 06755 22000023 3619 RL 1,0,2,SM-M,LPAREN 06756 225 142 000 3620 CON SWDESP,LBRACK,0 06757 01000035 3621 R36Z RL 0,0,1,SM-M,APL 06760 25562067 3622 R34 RL 1,1,1,ENDBLK-M,LBLSL 06761 011 000 000 3623 CON BLOCK,0,0 06762 01562011 3624 RL 0,0,1,ENDBLK-M,BLOCK 06763 45256003 3625 R38 RL 2,1,1,R39D2-M,BOUND 06764 003 250 000 3626 CON BOUND,PRGRAM,0 06765 01000013 3627 RL 0,0,1,SM-M,UCS 06766 22230023 3628 R26 RL 1,0,2,R26D4-M,LPAREN 06767 145 142 000 3629 CON AVARP,LBRACK,0 06770 01000035 3630 RL 0,0,1,SM-M,APL 06771 45000107 3631 R27 RL 2,1,1,SM-M,IFC 06772 024 164 000 3632 CON ELSE,DXP,0 06773 01000066 3633 R27Z RL 0,0,1,SM-M,DEX 06774 25000210 3634 R29 RL 1,1,1,SM-M,PIFS 06775 044 000 000 3635 CON IFS,0,0 06776 01254472 3636 RL 0,0,1,R29D1-M,STMT 06777 21000024 3637 R30 RL 1,0,1,SM-M,ELSE 07000 206 000 000 3638 CON IFSP,0,0 07001 01000072 3639 RL 0,0,1,SM-M,STMT 07002 25000067 3640 R31 RL 1,1,1,SM-M,LBLSL 07003 013 000 000 3641 CON UCS,0,0 07004 01000013 3642 RL 0,0,1,SM-M,UCS 07005 25000067 3643 R32 RL 1,1,1,SM-M,LBLSL 07006 041 000 000 3644 CON FORS,0,0 07007 01000041 3645 RL 0,0,1,SM-M,FORS 07010 25000067 3646 R33 RL 1,1,1,SM-M,LBLSL 07011 012 000 000 3647 CON CMPD,0,0 07012 01000012 3648 RL 0,0,1,SM-M,CMPD 07013 45255403 3649 R39 RL 2,1,1,R39D1-M,BOUND 07014 021 250 000 3650 CON SEMCOL,PRGRAM,0 07015 01077550 3651 RL 0,0,1,SM22-M,DECLAR 07016 52175273 3652 R2 RL 2,2,2,R2D1-M,PRHDC 07017 265 157 161 3653 CON TYPE,PRHDEP,SPECLS 07020 26116665 3654 RL 1,1,2,R2D2-M,TYPE 07021 265 051 000 3655 CON TYPE,VRIDT,0 07022 53000204 3656 RL 2,2,3,SM-M,VRLIS 07023 017 204 017 3657 CON COMMA,VRLIS,COMMA 07024 051 000 000 3658 CON VRIDT,0,0 07025 25120221 3659 RL 1,1,1,R2D4-M,ARY 07026 141 000 000 3660 CON ARSEG,0,0 07027 53121457 3661 RL 2,2,3,R2D5-M,ARLIS 07030 017 057 017 3662 CON COMMA,ARLIS,COMMA 07031 141 000 000 3663 CON ARSEG,0,0 07032 51125141 3664 RL 2,2,1,R2D6A-M,ARSEG 07033 017 141 000 3665 CON COMMA,ARSEG,0 07034 26126110 3666 RL 1,1,2,R2D6-M,SWITCH 07035 110 032 000 3667 CON SWITCH,SWIDT,0 07036 51127665 3668 RL 2,2,1,R2D7-M,TYPE 07037 207 215 000 3669 CON XTRNAL,XPRLIS,0 07040 25127207 3670 RL 1,1,1,R2D8-M,XTRNAL 07041 215 000 000 3671 CON XPRLIS,0,0 07042 51127615 3672 RL 2,2,1,R2D7-M,XPRLIS 07043 017 215 000 3673 CON COMMA,XPRLIS,0 07044 52137003 3674 RL 2,2,2,R2D9A-M,BOUND 07045 223 003 112 3675 CON PROC,BOUND,PRHDA 07046 25143623 3676 RL 1,1,1,R2D9-M,PROC 07047 112 000 000 3677 CON PRHDA,0,0 07050 53154112 3678 RL 2,2,3,R2D10-M,PRHDA 07051 023 112 023 3679 CON LPAREN,PRHDA,LPAREN 07052 055 000 000 3680 CON FPL,0,0 07053 25164511 3681 RL 1,1,1,R2D11-M,FPLPD 07054 055 000 000 3682 CON FPL,0,0 07055 26166143 3683 RL 1,1,2,R2D12-M,PRHDCP 07056 143 132 000 3684 CON PRHDCP,VUL,0 07057 51166132 3685 RL 2,2,1,R2D12-M,VUL 07060 017 132 000 3686 CON COMMA,VUL,0 07061 26176157 3687 RL 1,1,2,R2D14-M,PRHDEP 07062 157 161 000 3688 CON PRHDEP,SPECLS,0 07063 51176161 3689 RL 2,2,1,R2D14-M,SPECLS 07064 017 161 000 3690 CON COMMA,SPECLS,0 07065 01351443 3691 RL 0,0,1,MODA-M,SDX 07066 51112002 3692 R1 RL 2,2,1,R1D2-M,BLKHD 07067 150 002 000 3693 CON DECLAR,BLKHD,0 07070 26100604 3694 RL 1,1,2,SM117-M,VRLIS 07071 150 021 000 3695 CON DECLAR,SEMCOL,0 07072 26062457 3696 RL 1,1,2,SM68-M,ARLIS 07073 150 021 000 3697 CON DECLAR,SEMCOL,0 07074 25000112 3698 RL 1,1,1,SM-M,PRHDA 07075 001 000 000 3699 CON PRHED,0,0 07076 75000023 3700 RL 3,3,1,SM-M,LPAREN 07077 055 022 060 3701 CON FPL,RPAREN,PRHDB 07100 51000143 3702 RL 2,2,1,SM-M,PRHDCP 07101 132 273 000 3703 CON VUL,PRHDC,0 07102 51000157 3704 RL 2,2,1,SM-M,PRHDEP 07103 161 273 000 3705 CON SPECLS,PRHDC,0 07104 26000215 3706 RL 1,1,2,SM-M,XPRLIS 07105 150 021 000 3707 CON DECLAR,SEMCOL,0 07106 51112004 3708 RL 2,2,1,R1D2-M,BEGINB 07107 150 002 000 3709 CON DECLAR,BLKHD,0 07110 76000203 3710 RL 3,3,2,SM-M,SWDP 07111 165 166 150 3711 CON ASSIGN,SWL,DECLAR 07112 021 000 000 3712 CON SEMCOL,0,0 07113 26000067 3713 RL 1,1,2,SM-M,LBLSL 07114 013 021 000 3714 CON UCS,SEMCOL,0 07115 25000006 3715 RL 1,1,1,SM-M,STMTSQ 07116 006 000 000 3716 CON STMTSQ,0,0 07117 25000002 3717 RL 1,1,1,SM-M,BLKHD 07120 002 000 000 3718 CON BLKHD,0,0 07121 01245162 3719 RL 0,0,1,SYN-M,ERROR 07122 51000156 3720 R42 RL 2,2,1,SM-M,IF 07123 062 107 000 3721 CON BOX,IFC,0 07124 01243162 3722 RL 0,0,1,SYND-M,ERROR 07125 26000067 3723 R44 RL 1,1,2,SM-M,LBLSL 07126 013 024 000 3724 CON UCS,ELSE,0 07127 01243162 3725 RL 0,0,1,SYND-M,ERROR 07130 3726 LITERA RES NLIT 3727 STFA FORM 4,5,15 3728 STFB FORM 9,15 07326 05 04 00000 3729 BASEA STFA 5,4,0 07327 05 04 00000 3730 STFA 5,4,0 07330 05 04 00000 3731 STFA 5,4,0 07331 05 04 00000 3732 STFA 5,4,0 07332 05 04 00000 3733 STFA 5,4,0 07333 05 04 00000 3734 STFA 5,4,0 07334 05 04 00000 3735 XPON STFA 5,4,0 07335 05 04 00000 3736 STFA 5,4,0 07336 05 04 00000 3737 STFA 5,4,0 07337 05 04 00000 3738 STFA 5,4,0 07340 05 04 00000 3739 STFA 5,4,0 07341 05 04 00000 3740 STFA 5,4,0 07342 05 00 00000 3741 STFA 5,0,0 07343 05 00 00000 3742 STFA 5,0,0 07344 05 00 00000 3743 STFA 5,0,0 07345 24007345 3744 IO DATA $+024000000 07346 0 00 00000 3745 START HLT 07347 0 76 07131 3746 LDA =1 07350 0 35 17777 3747 STA 017777 07351 0 50 17777 3748 SKE 017777 07352 0 01 07471 3749 BRU STRT0 07353 0 71 07406 3750 LDX STRTN 07354 2 76 07471 3751 LDA BASEB+NIMF,IX2 07355 0 55 07403 3752 ADD STRTK 07356 2 35 11316 3753 STA BASSB+NIMF,IX2 07357 0 41 07354 3754 BRX $-3 07360 0 76 07401 3755 LDA STRTB 07361 0 55 05161 3756 ADD A3 07362 0 35 05265 3757 STA A15B 07363 0 76 07404 3758 LDA STRTL 07364 0 35 05266 3759 STA A15L 07365 0 76 07402 3760 LDA STRTC 07366 0 35 05267 3761 STA A16 07367 0 71 07405 3762 LDX STRTM 07370 2 76 07620 3763 LDA BASEC+LIMF,IX2 07371 2 35 13272 3764 STA BASSC+LIMF,IX2 07372 0 41 07370 3765 BRX $-2 07373 0 76 07400 3766 LDA OBJ4 07374 0 50 16000 3767 SKE OBJTY BRM OBJTY 07375 0 01 07471 3768 BRU STRT0 07376 0 35 04421 3769 STA OBJT 07377 0 01 07471 3770 BRU STRT0 07400 0 43 16000 3771 OBJ4 BRM OBJTY 00011276 3772 BASSB EQU BASEA+1000 00013246 3773 BASSC EQU BASSB+1000 07401 0 00 11276 3774 STRTB PZE BASSB 07402 0 00 13245 3775 STRTC PZE BASSC-1 07403 00003452 3776 STRTK DATA BASSC-BASEC 07404 0 00 01750 3777 STRTL PZE BASSB-BASEA 07405 77777754 3778 STRTM DATA -LIMF 07406 77777760 3779 STRTN DATA -NIMF 07451 3780 AORG BASEA+NIMF+STL 07451 002 07573 3781 BASEB STFB 2,BASEC-1 07452 003 07574 3782 STFB 3,BASEC 07453 002 07575 3783 STFB 2,BASEC+1 07454 002 07576 3784 STFB 2,BASEC+2 07455 002 07577 3785 STFB 2,BASEC+3 07456 005 07600 3786 STFB 5,BASEC+4 07457 003 07602 3787 STFB 3,BASEC+6 07460 001 07603 3788 STFB 1,BASEC+7 07461 002 07604 3789 STFB 2,BASEC+8 07462 003 07605 3790 STFB 3,BASEC+9 07463 002 07606 3791 STFB 2,BASEC+10 07464 002 07607 3792 STFB 2,BASEC+11 07465 004 07610 3793 STFB 4,BASEC+12 07466 004 07612 3794 STFB 4,BASEC+14 07467 005 07614 3795 STFB 5,BASEC+16 07470 001 07616 3796 STFB 1,BASEC+18 07471 0 40 20400 3797 STRT0 BPT 1 07472 0 01 07474 3798 BRU $+2 07473 0 01 07500 3799 BRU STRT1 07474 0 71 07507 3800 LDX STRT5 07475 2 76 07652 3801 LDA STRT3,IX2 07476 2 35 04562 3802 STA READ,IX2 07477 0 41 07475 3803 BRX $-2 07500 0 40 20200 3804 STRT1 BPT 2 07501 0 01 00253 3805 BRU FETCH 07502 0 71 07510 3806 LDX STRT6 07503 2 76 07704 3807 LDA STRT4,IX2 07504 2 35 04614 3808 STA WRITE,IX2 07505 0 41 07503 3809 BRX $-2 07506 0 01 00253 3810 BRU FETCH 07507 77777746 3811 STRT5 DATA STRT2-STRT3 07510 77777746 3812 STRT6 DATA STRT3-STRT4 07574 3813 AORG BASEB+NIMF+STL 07574 21226260 3814 BASEC TEXT 4,ABS 07575 62312745 3815 TEXT 4,SIGN 07576 44462460 3816 TEXT 4,MOD 07577 44314560 3817 TEXT 4,MIN 07600 44216760 3818 TEXT 4,MAX 07601 21512363 3819 TEXT 8,ARCTAN 07602 21456060 07603 01256747 3820 TEXT 4,1EXP 07604 43456060 3821 TEXT 4,LN 07605 25674760 3822 TEXT 4,EXP 07606 62505163 3823 TEXT 4,SQRT 07607 23466260 3824 TEXT 4,COS 07610 62314560 3825 TEXT 4,SIN 07611 25452431 3826 TEXT 8,ENDIO 07612 46606060 07613 31454764 3827 TEXT 8,INPUT 07614 63606060 07615 46646347 3828 TEXT 8,OUTPUT 07616 64636060 07617 31466060 3829 TEXT 4,IO 3830 * READ ONE HOLLERITH CODED CARD,UNIT 1,W BUFFER 07620 0 00 00000 3831 STRT2 PZE READ CARD 07621 0 40 20100 3832 BPT 3 07622 1 00 07132 3833 TYY =052000000 CARRIAGE RETURN 07623 0 43 04554 3834 CARD1 BRM CARD+20 CLEAR W AND DISCONNECT 07624 0 40 12006 3835 SKS 012006 SKIP IF READER IS READY 07625 0 01 04534 3836 BRU CARD+4 07626 0 02 02606 3837 EOM 02606 START CARD READER 07627 0 71 07316 3838 LDX =-20 07630 2 32 00026 3839 WIM IMAGE+20,IX2 READ 4 CHARACTERS 07631 0 40 21000 3840 SKS 021000 SKIP IF BUFFER READY BEFORE LAST WORD 07632 0 01 04544 3841 BRU CARD+12 07633 0 01 04551 3842 BRU CARD+17 READ ERROR-CARD FEED 07634 0 41 04540 3843 BRX CARD+8 07635 0 40 20010 3844 SKS 020010 SKIP IF NO BUFFER ERROR 07636 0 01 04551 3845 BRU CARD+17 READ ERROR-DATA TRANSMISSION 07637 0 43 04554 3846 BRM CARD+20 CLEAR W AND DISCONNECT 07640 0 51 04530 3847 BRR CARD **EXIT** 07641 1 76 00022 3848 ERR 'B' INPUT ERROR. RE-READ LAST CARD 07642 0 00 00000 3849 HLT 07643 0 01 04533 3850 BRU CARD+3 07644 0 00 00000 3851 PZE *ENTRY* 07645 0 02 00000 3852 EOM DISCONNECT 07646 0 40 21000 3853 SKS 021000 SKIP IF BUFFER IS READY 07647 0 01 04556 3854 BRU CARD+22 07650 0 51 04554 3855 BRR CARD+20 *EXIT* 07651 00000107 3856 DATA 71 HICOL. HIGHEST CARD COLUMN 3857 * PUNCH TAPE 07652 0 00 00000 3858 STRT3 PZE 07653 0 76 07325 3859 PNCHT LDA =BUF 07654 0 35 04612 3860 STA PUNCH+24 07655 0 76 00026 3861 LDA BUF 07656 0 66 00017 3862 RSH 15 07657 0 14 07315 3863 ETR =037 07660 0 54 07131 3864 SUB =1 07661 0 35 04613 3865 STA PUNCH+25 07662 0 40 21000 3866 BRTW 07663 0 01 04571 3867 BRU PUNCH+7 07664 0 02 01644 3868 EOM 01644 PUNCH TAPE WITH LEADER 07665 0 12 44612 3869 PNCHT1 MIW *PUNCH+24 07666 0 61 04612 3870 MIN PUNCH+24 07667 0 60 04613 3871 SKR PUNCH+25 07670 0 01 04575 3872 BRU PUNCH+11 07671 0 40 20010 3873 SKS 020010 07672 0 00 00000 3874 HLT BAD PAPER PUNCH 07673 0 02 14000 3875 EOM 014000 07674 0 40 21000 3876 SKS 021000 07675 0 01 04604 3877 BRU PUNCH+18 07676 0 02 00000 3878 EOM 0 07677 0 46 30003 3879 CLR 07700 0 35 00060 3880 STA BUF+26 07701 0 51 04562 3881 BRR PUNCH 07702 0 00 00000 3882 PNCHTA PZE 0 07703 0 00 00000 3883 PNCHTB PZE 0 07704 3884 STRT4 RES 0 10026 3885 AORG BASEC+LIMF+2*STL 07130 3886 AORG LITERA 3887 END 07130 77777777 07131 00000001 07132 52000000 07133 54000000 07134 00000002 07135 77000000 07136 74000000 07137 35000000 07140 34000000 07141 55000000 07142 60000000 07143 12000000 07144 00000004 07145 00000000 07146 00000003 07147 00000264 07150 00000025 07151 56000000 07152 14000000 07153 00000254 07154 00000021 07155 00000020 07156 00000261 07157 00040000 07160 00000377 07161 00007777 07162 20000000 07163 77777775 07164 00001777 07165 07770000 07166 00001600 07167 00000010 07170 00000011 07171 00000777 07172 00600000 07173 00077777 07174 60100000 07175 00000005 07176 60606060 07177 00000027 07200 10450000 07201 20100000 07202 04100000 07203 00005225 07204 40000000 07205 01000000 07206 03177777 07207 00000013 07210 00000015 07211 00000006 07212 00000007 07213 24000000 07214 00000030 07215 77700000 07216 10000000 07217 00007326 07220 00000165 07221 00000023 07222 06000000 07223 02000000 07224 00000067 07225 34007325 07226 00000400 07227 00000072 07230 77777776 07231 40100000 07232 77600000 07233 02677772 07234 40750000 07235 77777772 07236 00000073 07237 00002441 07240 00100001 07241 47777777 07242 60400000 07243 04000000 07244 24407334 07245 00000035 07246 00000226 07247 00003370 07250 00000016 07251 00000017 07252 00000022 07253 00000014 07254 00000276 07255 00000274 07256 61000000 07257 76000000 07260 00000275 07261 00000024 07262 00000245 07263 00000243 07264 00000232 07265 00003621 07266 44000000 07267 00000063 07270 77777761 07271 00100000 07272 30250000 07273 00200000 07274 52224645 07275 77777771 07276 40000017 07277 60250000 07300 00005404 07301 00000260 07302 00000077 07303 07700000 07304 03000000 07305 50000000 07306 30000000 07307 00400000 07310 64000000 07311 77777750 07312 40350000 07313 00050000 07314 02100000 07315 00000037 07316 77777754 07317 77777764 07320 77777730 07321 77777741 07322 37000000 07323 77776000 07324 77777745 07325 00000026