github.com/kenrector.sds-kit
1
0
Fork 0
mirror of https://github.com/kenrector/sds-kit.git synced 2026-01-13 07:09:56 +00:00
Code Issues Projects Releases Wiki Activity
kenrector.sds-kit/850816/algol.lo
ken rector ed9512b1e8
added .bo and .lo
2023-01-17 07:53:55 -08:00

4040 lines
434 KiB
Plaintext
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink