1 MMCF=6771 2 DCF=6074 /LT PEN 3 ADRB=6541 /A-D 4 PLCF=6504 /PLOTTER 5 MTS=6711 /MAG 57A 6 /INTERPRETIVE EQUIVALENTS 7 ALL=7600 8 ANDS=3400 9 COMMA=0600 10 EQUALS=1400 11 EXCLAM=2200 12 FIN=7577 13 LANG=1200 14 MINUS=5200 15 PLUS=4600 16 QUOTES=2400 17 RTDIG=2316 18 SCOLON=0200 19 SPACE=5600 20 SYMB=1000 21 TOP=7407 22 USYMB=2000 23 /PAUSE 24 25 /MACRO COMPILER 26 / 27 /PAGE ZERO 28 *1 29 000001 7000 NOP 30 000002 5403 JMP I .+1 31 000003 3714 INTHAN /INTERRUPT HANDLER 32 000004 2600 DECOUT, TYPO 33 000005 1675 TSTPAS 34 000006 4200 MACREF 35 000007 7402 HLT 36 000010 0000 CKSUM, 0 37 000011 0000 NOW3, 0 38 000012 0000 CURADD, 0 39 000013 0000 TRUBL, 0 40 000014 7402 HLT 41 000015 7402 HLT 42 000016 0000 AUT16, 0 43 000017 0000 AUT17, 0 44 000020 4014 MACBOT, 4014 45 000021 0000 ANY, 0 /INSTRUCTION FLAG 46 000022 0000 TYPE, 0 /TYPE OF CURRENT SYMBOL 47 000023 0000 VADR, 0 /VALUE OF CURRENT SYMBOL 48 000024 0000 SADR, 0 /PTR TO 1ST WD OF CURRENT SYMBOL 49 000025 0000 VAL, 0 /VALUE OF CURRENT SYMBOL 50 000026 7577 STAB, FIN /PTR TOP ADDR OF SYMBOL TABLE 51 000027 6117 SEND, BOT /PTR TO IST FREE REG AFTER SYMBOL TABLE 52 000030 0000 AADR, 0 /ACTUAL CURRENT ADDRESS 53 000031 0000 APAGE, 0 /ORIGIN OF CURRENT PAGE - ACTUAL 54 000032 0000 TEM1, 0 /1ST 55 000033 0000 TEM2, 0 /2ND 56 000034 0000 TEM3, 0 /3RD WD OF CURRENT SYMBOL 57 000035 0000 PCON, 0 /ADDR OF LAST CONSTANT STORED 58 000036 0000 ZCON, 0 /ADDR OF LAST CONSTANT STORED PAGE ZERO 59 000037 0000 CON, 0 /HOLDS ACC VALUE OF WORD 60 000040 0000 ADR, 0 /HOLD FULL 12 BIT ADDRESS 61 000041 0000 IND, 0 /400 IF INDIRECT, OTHERWISE 0 62 000042 6117 PERMA, BOT /1ST REG AFTER PERM SYMBOL TABLE 63 000043 0000 EVAL, 0 /HOLDS ADDR PORTION DURING CALCULATION 64 000044 0000 SGN, 0 65 000045 0000 CCON, 0 /ACTUAL CURRENT CONSTANT ADDRESS 66 000046 4014 MACEND, 4014 /1ST FREE GREG AFTER MACRO STORAGE 67 000047 0000 PASS, 0 /7777 IF PASS2 68 000050 0000 TEM1A, 0 69 000051 0000 0 70 000052 0000 0 71 000053 0000 VAL1A, 0 72 000054 0000 CURR, 0 73 000055 0000 CHARX, 0 74 000056 0000 CHARX2, 0 75 000057 0000 CLIT, 0 76 000060 0000 POINT, 0 /PUSH DOWN LIST 3331 77 000061 0000 IN, 0 /TELLS WHETHER SYMBOL WAS ACCEPTED 78 000062 0000 ITEM, 0 /INPUT CHARACTER 79 000063 0000 MP1, 0 80 000064 0000 MP2, 0 81 000065 0000 MP3, 0 82 000066 0000 MP5, 0 83 000067 0000 BEXP, 0 84 000070 0000 HIC, 0 85 000071 0000 LWC, 0 86 000072 0000 VADR1, 0 87 000073 0000 INST, 0 /- IF SYMBOLIC, A MICRO INST 88 000074 0000 MICRO, 0 89 000075 0000 CHARAC, 0 90 000076 3247 FINEND, FINUP 91 000077 3600 ZBUFE, 3600 92 000100 3400 CBUFE, 3400 93 000101 3601 SYMLST, LSTSYM 94 000102 1400 MAINEX, MAIN 95 000103 1703 SKIP, SKIP2 96 000104 0600 BINOUT, TYPO2 97 000105 0317 CONZ1, CONZ 98 000106 3201 ERR1, ERROR 99 000107 2000 ENTS1, ENTS 100 000110 1000 EXPR1, EXPR 101 000111 1427 MAIN1, MAINSE 102 000112 0634 PAGE1, PAGEX 103 000113 0676 RESET1, RESET 104 000114 1044 B21, B2 105 000115 1131 MKROOM, MKERM 106 000116 2043 IDX1, IDX 107 000117 4000 PUSH1, PUSH2 108 000120 1347 POPU1, POPUP1 109 000121 0471 GETSY1, GETSYM 110 000122 0333 DEFIN1, CURREN 111 000123 1200 GETAD1, GETADR 112 000124 0204 CONC1, CONC 113 000125 0400 SEAR1, SEARCH 114 000126 3331 LIST1, LIST 115 000127 3262 GETAS1, GETASY 116 000130 0645 TYPAD1, TYPADD 117 000131 2125 SAVE1, SAVE 118 000132 2143 RESTO1, RESTOR 119 000133 3017 PUNOR1, PUNORG 120 000134 3000 PUNON1, PUNONE 121 000135 2732 STUP, LITBUF 122 000136 0740 STUP2, TPINST 123 000137 0323 FIND2, FIND 124 000140 7402 HLT 125 000141 7402 HLT 126 000142 7771 M7, 0-7 127 000143 7706 M72, 0-72 128 000144 0012 C12, 12 129 000145 0007 C7, 7 130 000146 0003 C3, 3 131 000147 7477 M301, 0-301 132 000150 7776 M2, 0-2 133 000151 7777 M1, 0-1 134 000152 7540 M240, 0-240 135 000153 0364 C364, 0364 136 000154 7733 M45, 0-45 137 000155 7714 M64, 0-64 138 000156 0600 C600, 600 139 000157 0006 C6, 6 140 000160 0005 C5, 5 141 000161 0004 C4, 4 142 000162 0400 C400, 0400 143 000163 0200 C200, 0200 144 000164 7600 C7600, 7600 145 000165 0177 C177, 177 146 000166 4000 C4000, 4000 147 000167 0010 C10, 10 148 000170 7766 M12, 0-12 149 000171 7745 M33, 0-33 150 000172 3777 C3777, 3777 151 000173 1777 C1777, 1777 152 000174 7775 M3, 0-3 153 000175 1000 C1000, 1000 154 000176 6000 C6000, 6000 155 000177 7000 M1000, 7000 156 /PAUSE 157 /MACRO COMPILER 158 / 159 /PAGE 200 160 *200 161 000200 4603 JMS I .+3 162 000201 5602 JMP I .+1 163 / 164 000202 2326 INITL 165 / 166 000203 3667 FIRST 167 000204 0000 CONC, 0 168 000205 1031 TAD Z APAGE 169 000206 7640 SZA CLA 170 000207 5222 JMP NONO 171 / 172 000210 1077 TAD Z ZBUFE 173 000211 3354 DCA CONP 174 000212 1356 TAD CONP+2 175 000213 3357 DCA GETYPE 176 000214 1135 TAD Z STUP 177 000215 3350 DCA RADD 178 000216 1312 TAD CERR 179 000217 3313 DCA CERR+1 180 000220 1136 TAD Z STUP2 181 000221 5235 JMP COND-1 182 / 183 000222 1100 NONO, TAD Z CBUFE 184 000223 3354 DCA CONP 185 000224 1355 TAD CONP+1 186 000225 3357 DCA GETYPE 187 000226 1177 TAD Z M1000 188 000227 3313 DCA CERR+1 189 000230 1135 TAD Z STUP 190 000231 4323 JMS FIND 191 000232 3350 DCA RADD 192 000233 1136 TAD Z STUP2 193 000234 4323 JMS FIND 194 000235 3333 DCA CURREN 195 000236 7240 COND, CLA CMA 196 000237 1354 TAD CONP 197 000240 3354 DCA CONP 198 000241 1757 TAD I GETYPE 199 000242 7041 CIA 200 000243 1354 TAD CONP 201 000244 7710 SPA CLA 202 000245 5261 JMP CONE 203 / 204 000246 1754 TAD I CONP 205 000247 7041 CIA 206 000250 1043 TAD Z EVAL 207 000251 7640 SZA CLA 208 000252 5236 JMP COND 209 / 210 000253 1757 TAD I GETYPE 211 000254 7041 CIA 212 000255 1354 TAD CONP 213 000256 1750 TAD I RADD 214 000257 3045 DCA Z CCON 215 000260 5604 JMP I CONC 216 / 217 000261 7240 CONE, CLA CMA 218 000262 1750 TAD I RADD 219 000263 3750 DCA I RADD 220 000264 1750 TAD I RADD 221 000265 7041 CIA 222 000266 1733 TAD I CURREN 223 000267 7700 SMA CLA 224 000270 5312 JMP CERR 225 / 226 000271 7240 CLA CMA 227 000272 1757 TAD I GETYPE 228 000273 3757 DCA I GETYPE 229 000274 1757 TAD I GETYPE 230 000275 3333 DCA CURREN 231 000276 1060 TAD Z POINT 232 000277 7041 CIA 233 000300 1333 TAD CURREN 234 000301 7710 SPA CLA 235 000302 5306 JMP .+4 236 / 237 000303 1043 TAD Z EVAL 238 000304 3733 DCA I CURREN 239 000305 5256 JMP CONE-3 240 / 241 000306 2757 ISZ I GETYPE 242 000307 2750 ISZ I RADD 243 000310 4515 JMS I Z MKROOM 244 000311 5222 JMP NONO 245 / 246 000312 7001 CERR, IAC 247 000313 7001 IAC /OR NOP 248 000314 2750 ISZ I RADD 249 000315 4506 JMS I Z ERR1 250 000316 5511 JMP I Z MAIN1 251 / 252 000317 0000 CONZ, 0 253 000320 1317 TAD CONZ 254 000321 3204 DCA CONC 255 000322 5210 JMP CONC+4 256 / 257 000323 0000 FIND, 0 /ADD PAGE NNO. TO CONTNTS OF AC 258 000324 3333 DCA CURREN 259 000325 1031 TAD Z APAGE 260 000326 7106 RTL CLL 261 000327 7006 RTL 262 000330 7006 RTL 263 000331 1333 TAD CURREN 264 000332 5723 JMP I FIND 265 / 266 000333 0000 CURREN, 0 267 000334 4532 JMS I Z RESTO1 268 000335 7776 JMS I MOVE1-I 269 000336 1024 TAD Z SADR 270 000337 4776 JMS I MOVE1 271 000340 0050 TEM1A 272 000341 4530 JMS I Z TYPAD1 273 000342 1000 1000 274 000343 1030 TAD Z AADR 275 000344 3423 DCA I Z VADR 276 000345 1030 TAD Z AADR 277 000346 3053 DCA Z VAL1A 278 000347 5511 JMP I Z MAIN1 279 / 280 000350 0000 RADD, 0 281 000351 1037 TAD Z CON 282 000352 3037 DCA Z CON 283 000353 5750 JMP I RADD 284 000354 0000 CONP, 0 285 000355 0035 PCON 286 000356 0036 ZCON 287 / 288 000357 0000 GETYPE, 0 289 000360 1424 TAD I Z SADR 290 000361 0176 AND Z C6000 291 000362 3022 DCA Z TYPE 292 000363 2024 ISZ Z SADR 293 000364 1424 TAD I Z SADR 294 000365 7012 RTR 295 000366 0175 AND Z C1000 296 000367 1022 TAD Z TYPE 297 000370 3022 DCA Z TYPE 298 000371 7240 CLA CMA 299 000372 1024 TAD Z SADR 300 000373 3024 DCA Z SADR 301 000374 5757 JMP I GETYPE 302 / 303 000375 2352 ERR7 304 000376 2552 MOVE1, MOVE 305 000377 7402 HLT 306 /PAUSE 307 /MACRO COMPILER 308 / 309 /PAGE 400 310 *400 311 000400 0000 SEARCH, 0 312 000401 4531 JMS I Z SAVE1 313 000402 1174 TAD Z M3 314 000403 1026 TAD Z STAB 315 000404 3024 DCA Z SADR 316 000405 7240 CLA CMA 317 000406 1024 TAD Z SADR 318 000407 3016 DCA Z AUT16 319 000410 1416 TAD I Z AUT16 320 000411 0173 AND Z C1777 321 000412 7041 CIA 322 000413 1032 TAD Z TEM1 323 000414 7640 SZA CLA 324 000415 5256 JMP IND1 325 / 326 000416 1416 TAD I Z AUT16 327 000417 0172 AND Z C3777 328 000420 7041 CIA 329 000421 1033 TAD Z TEM2 330 000422 7640 SZA CLA 331 000423 5256 JMP IND1 332 / 333 000424 1416 TAD I Z AUT16 334 000425 7041 CIA 335 000426 1034 TAD Z TEM3 336 000427 7640 SZA CLA 337 000430 5256 JMP IND1 /NO MATCH 338 / 339 000431 1255 TAD IND1-1 /TOP 340 000432 7041 CIA 341 000433 1024 TAD Z SADR 342 000434 7700 SMA CLA 343 000435 5244 JMP .+7 344 / 345 000436 1024 TAD Z SADR 346 000437 7041 CIA 347 000440 1042 TAD Z PERMA 348 000441 7510 SPA 349 000442 3073 DCA Z INST /- IF INSTRUCTION 350 000443 7200 CLA 351 000444 1416 TAD I Z AUT16 352 000445 3025 DCA Z VAL 353 000446 1016 TAD Z AUT16 354 000447 3023 DCA Z VADR 355 000450 4764 JMS I GTYPE 356 000451 2200 ISZ SEARCH 357 000452 4654 JMS I .+2 358 000453 5600 JMP I SEARCH 359 / 360 000454 0727 ANYY 361 000455 7407 TOP 362 / 363 000456 1270 IND1, TAD GETSYM-1 364 000457 1024 TAD Z SADR 365 000460 3024 DCA Z SADR 366 000461 1024 TAD Z SADR 367 000462 7041 CIA 368 000463 1027 TAD Z SEND 369 000464 7710 SPA CLA 370 000465 5205 JMP SEARCH+5 371 000466 2021 ISZ Z ANY 372 000467 5600 JMP I SEARCH 373 / 374 000470 7774 0-4 375 / 376 000471 0000 GETSYM, 0 377 000472 1055 TAD Z CHARX 378 000473 7450 SNA 379 000474 5306 JMP SPECIAL 380 / 381 000475 1171 TAD Z M33 382 000476 7510 SPA 383 000477 5327 JMP GETLET 384 000500 1170 TAD Z M12 385 000501 7700 SMA CLA 386 000502 5306 JMP SPECIAL 387 / 388 000503 4705 JMS I .+2 389 000504 5722 JMP I B11 390 / 391 000505 2200 DPCV 392 / 393 000506 1056 SPECIAL, TAD Z CHARX2 394 000507 3034 DCA Z TEM3 395 000510 3033 DCA Z TEM2 396 000511 3032 DCA Z TEM1 397 000512 4200 JMS SEARCH 398 000513 5323 JMP B11+1 399 / 400 000514 1022 TAD Z TYPE 401 000515 7710 SPA CLA 402 000516 5425 JMP I Z VAL 403 / 404 000517 1025 TAD Z VAL 405 000520 3022 DCA Z TYPE 406 000521 5336 JMP GSTART 407 / 408 000522 1037 B11, B1 409 / 410 000523 1167 TAD Z C10 411 000524 4506 JMS I Z ERR1 412 000525 4516 JMS I Z IDX1 413 000526 5272 JMP GETSYM+1 414 / 415 000527 4527 GETLET, JMS I Z GETAS1 416 000530 1022 TAD Z TYPE 417 000531 7450 SNA 418 000532 5406 JMP I Z DECOUT+2 419 / 420 000533 1166 TAD Z C4000 421 000534 7650 SNA CLA 422 000535 5425 JMP I Z VAL /PSEUDO OP 423 / 424 000536 1671 GSTART, TAD I GETSYM 425 000537 0165 AND Z C177 426 000540 3054 DCA Z CURR 427 000541 1271 TAD GETSYM 428 000542 0164 AND Z C7600 429 000543 1054 TAD Z CURR 430 000544 3054 DCA Z CURR 431 000545 1671 TAD I GETSYM 432 000546 0164 AND Z C7600 433 000547 7440 SZA 434 000550 5365 JMP GTYPE+1 435 / 436 000551 1054 TAD Z CURR 437 000552 3271 DCA GETSYM 438 000553 5336 JMP GSTART 439 / 440 000554 1027 FIXED, TAD Z SEND 441 000555 7410 SKP 442 000556 1255 ERASE, TAD IND1-1 443 000557 4405 JMS I Z DECOUT+1 444 000560 3042 DCA Z PERMA 445 000561 1042 TAD Z PERMA 446 000562 3027 DCA Z SEND 447 000563 5511 JMP I Z MAIN1 448 / 449 000564 0357 GTYPE, GETYPE 450 / 451 000565 7041 CIA 452 000566 1022 TAD Z TYPE 453 000567 7650 SNA CLA 454 000570 5454 JMP I Z CURR 455 / 456 000571 1671 TAD I GETSYM 457 000572 0164 AND Z C7600 458 000573 1163 TAD Z C200 459 000574 7650 SNA CLA 460 000575 5454 JMP I Z CURR 461 / 462 000576 2521 ISZ I Z GETSY1 463 000577 5336 JMP GSTART 464 /PAUSE 465 /MACRO COMPILER 466 / 467 /PAGE 600 468 *600 469 000600 0000 TYPO2, 0 470 000601 6002 IOF 471 000602 6026 PLS 472 000603 6021 PSF 473 000604 5204 JMP .-I 474 000605 6001 ION 475 000606 7200 CLA 476 000607 5600 JMP I TYPO2 477 / 478 000610 4510 PAGEC, JMS I Z EXPR1 479 000611 1021 TAD Z ANY 480 000612 7640 SZA CLA 481 000613 5227 JMP PAGEM 482 / 483 000614 7040 CMA 484 000615 1030 TAD Z AADR 485 000616 1163 TAD Z C200 486 000617 0164 AND Z C7600 487 000620 3030 DCA Z AADR 488 000621 4512 PAGHER, JMS I Z PAGE1 489 000622 1030 TAD Z AADR 490 000623 3043 DCA Z EVAL 491 000624 4533 JMS I Z PUNOR1 492 000625 5626 JMP I .+1 493 / 494 000626 1426 MAINSE-1 495 / 496 000627 1043 PAGEM, TAD Z EVAL 497 000630 7012 RTR 498 000631 7012 RTR 499 000632 7012 RTR 500 000633 5217 JMP PAGHER-2 501 / 502 000634 0000 PAGEX, 0 503 000635 4640 JMS I .+3 504 000636 4513 JMS I Z RESET1 505 000637 5634 JMP I PAGEX 506 / 507 000640 3054 PUNCON 508 000641 1030 PERIOD, TAD Z AADR 509 000642 4444 JMS I Z SGN 510 000643 4516 JMS I Z IDX1 511 000644 5514 JMP I Z B21 512 / 513 000645 0000 TYPADD, 0 514 000646 7200 CLA 515 000647 1645 TAD I TYPADD 516 000650 3022 DCA Z TYPE 517 000651 1424 TAD I Z SADR 518 000652 0173 AND Z C1777 519 000653 3424 DCA I Z SADR 520 000654 1022 TAD Z TYPE 521 000655 0176 AND Z C6000 522 000656 1424 TAD I Z SADR 523 000657 3424 DCA I Z SADR 524 000660 2024 ISZ Z SADR 525 000661 1424 TAD I Z SADR 526 000662 0172 AND Z C3777 527 000663 3424 DCA I Z SADR 528 000664 1022 TAD Z TYPE 529 000665 7006 RTL 530 000666 0166 AND Z C4000 531 000667 1424 TAD I Z SADR 532 000670 3424 DCA I Z SADR 533 000671 7240 CLA CMA 534 000672 1024 TAD Z SADR 535 000673 3024 DCA Z SADR 536 000674 2245 ISZ TYPADD 537 000675 5645 JMP I TYPADD 538 / 539 000676 0000 RESET, 0 540 000677 1100 TAD Z CBUFE 541 000700 3035 DCA Z PCON 542 000701 1030 TAD Z AADR 543 000702 0164 AND Z C7600 544 000703 3031 DCA Z APAGE 545 000704 5676 JMP I RESET 546 / 547 000705 0000 DANDF, 0 548 000706 4725 JMS I FINAL 549 000707 1726 TAD I FINAL+1 550 000710 7650 SNA CLA 551 000711 5314 JMP .+3 552 / 553 000712 2305 ISZ DANDF 554 000713 5705 JMP I DANDF 555 / 556 000714 1056 TAD Z CHARX2 557 000715 1171 TAD Z M33 558 000716 7710 SPA CLA 559 000717 5322 JMP .+3 560 / 561 000720 4516 JMS I Z IDX1 562 000721 5306 JMP DANDF+1 563 / 564 000722 4724 JMS I .+2 565 000723 5705 JMP I DANDF 566 / 567 000724 4754 RET 568 000725 4400 FINAL, FINALL 569 000726 2346 DPN 570 / 571 000727 0000 ANYY, 0 572 000730 1022 TAD Z TYPE 573 000731 1177 TAD Z M1000 574 000732 7450 SNA 575 000733 2021 ISZ Z ANY 576 000734 1177 TAD Z M1000 577 000735 7650 SNA CLA 578 000736 2021 ISZ Z ANY 579 000737 5727 JMP I ANYY 580 / 581 000740 0000 TPINST, 0 582 /PAUSE 583 /MACRO COMPILER 584 / 585 /PAGE 1000 586 *1000 587 001000 0000 EXPR, 0 588 001001 1037 TAD Z CON 589 001002 4517 JMS I Z PUSH1 590 001003 3037 DCA Z CON 591 001004 1073 TAD Z INST 592 001005 4517 JMS I Z PUSH1 593 001006 3073 DCA Z INST 594 001007 1044 TAD Z SGN 595 001010 4517 JMS I Z PUSH1 596 001011 1367 TAD CRIOR 597 001012 3044 DCA Z SGN 598 001013 1274 TAD H+3 599 001014 4517 JMS I Z PUSH1 600 001015 3274 DCA H+3 601 001016 1200 TAD EXPR 602 001017 4517 JMS I Z PUSH1 603 001020 7410 SKP 604 / 605 001021 4516 A, JMS I Z IDX1 606 001022 4521 JMS I Z GETSY1 607 001023 2075 B-1000+USYMB /USYMB=2000 608 001024 1075 B-1000+SYMB /SYMB=1000 609 001025 5621 A-1000+SPACE /SPACE=5600 610 001026 4653 C-1000+PLUS /PLUS=4600 611 001027 5256 C+3-1000+MINUS /MINUS=5200 612 001030 2260 C+5-1000+EXCLAM /EXCLAM=2200 613 001031 2464 J-1000+QUOTES /QUOTES=2400 614 001032 0307 G-1000+SCOLON /SCOLON=0200 615 001033 3462 C+7-1000+ANDS /ANDS=3400 616 001034 7707 G-1000+ALL /ALL=7600 617 / 618 001035 1025 TAD Z VAL 619 001036 5241 JMP .+3 620 / 621 001037 7200 B1, CLA 622 001040 1071 TAD Z LWC 623 001041 4444 JMS I Z SGN 624 001042 7410 SKP 625 / 626 001043 4516 JMS I Z IDX1 627 001044 4521 B2, JMS I Z GETSY1 628 / 629 001045 5643 .-2-1000+SPACE /SPACE=5600 630 001046 0703 GET-1-1000+COMMA /COMMA=0600 631 001047 1035 B1-2-1000+SYMB /SYMB=1000 632 001050 2035 B1-2-1000+USYMB /USYMB=2000 633 001051 1550 ERONE-1000+EQUALS /EQUALS=1400 634 001052 0026 A+5-1000 635 / 636 001053 1370 C, TAD CRIOR+1 /PLUS 637 001054 3044 DCA Z SGN 638 001055 5243 JMP B2-1 639 / 640 001056 1371 TAD CRIOR+2 /MINUS 641 001057 5254 JMP C+1 642 / 643 001060 1367 TAD CRIOR 644 001061 5254 JMP C+1 645 / 646 001062 1372 TAD CRIOR+3 /AR/D 647 001063 5254 JMP C+1 648 / 649 001064 4670 J, JMS I .+4 650 001065 3037 DCA Z CON 651 001066 2021 ISZ Z ANY 652 001067 5243 JMP B2-1 653 / 654 001070 2102 GETIN 655 / 656 001071 1162 H, TAD Z C400 657 001072 3274 DCA H+3 658 001073 5222 JMP A+1 659 / 660 001074 0000 0 661 / 662 001075 1025 B, TAD Z VAL 663 001076 4444 JMS I Z SGN 664 001077 4521 JMS I Z GETSY1 665 / 666 001100 1552 EQU-1000+EQUALS /EQUALS=1400 667 001101 5704 GET-1000+SPACE /SPACE=5600 668 001102 0045 B2+1-1000 669 / 670 001103 4522 JMS I Z DEFIN1 671 001104 4523 GET, JMS I Z GETAD1 672 001105 1040 TAD Z ADR 673 001106 4767 JMS I CRIOR 674 001107 4520 G, JMS I Z POPU1 675 001110 3200 DCA EXPR 676 001111 1037 TAD Z CON 677 001112 3043 DCA Z EVAL 678 001113 1274 TAD H+3 679 001114 3041 DCA Z IND 680 001115 4520 JMS I Z POPU1 681 001116 3274 DCA H+3 682 001117 4520 JMS I Z POPU1 683 001120 3044 DCA Z SGN 684 001121 1073 TAD Z INST 685 001122 3074 DCA Z MICRO 686 001123 4520 JMS I Z POPU1 687 001124 3073 DCA Z INST 688 001125 4520 JMS I Z POPU1 689 001126 3037 DCA Z CON 690 001127 5600 JMP I EXPR 691 / 692 001130 0000 0 693 / 694 001131 0000 MKERM, 0 695 001132 1035 TAD Z PCON 696 001133 0165 AND Z C177 697 001134 7650 SNA CLA 698 001135 5347 JMP ERONE-1 699 / 700 001136 1043 TAD Z EVAL 701 001137 3330 DCA MKERM-1 702 001140 4512 JMS I Z PAGE1 /PUNCH CONSTANTS 703 001141 1030 TAD Z AADR 704 001142 3043 DCA Z EVAL 705 001143 4533 JMS I Z PUNOR1 706 001144 1330 TAD MKERM-1 707 001145 3043 DCA Z EVAL 708 001146 5731 JMP I MKERM /EXIT 709 / 710 001147 1161 TAD Z C4 711 001150 4506 ERONE, JMS I Z ERR1 712 001151 5511 JMP I Z MAIN1 713 / 714 001152 1072 EQU, TAD Z VADR1 715 001153 3366 DCA CRIOR-1 716 001154 4516 JMS I Z IDX1 717 001155 4510 JMS I Z EXPR1 718 001156 1043 TAD Z EVAL 719 001157 3766 DCA I CRIOR-1 720 001160 1366 TAD CRIOR-1 721 001161 1174 TAD Z M3 722 001162 3024 DCA Z SADR 723 001163 4530 JMS I Z TYPAD1 724 / 725 001164 1000 SYMB 726 / 727 001165 5511 JMP I Z MAIN1 728 / 729 001166 0000 0 730 001167 1716 CRIOR, RIOR 731 001170 0350 RADD 732 001171 2640 RSUB 733 001172 1712 RAND 734 001173 1252 II 735 / 736 001174 4520 JMS I Z POPU1 737 001175 7200 CLA 738 001176 1373 TAD CRIOR+4 739 001177 5310 JMP G+1 740 /PAUSE 741 /MACRO COMPILER 742 / 743 /PAGE 1200 744 *1200 745 001200 0000 GETADR, 0 746 001201 4516 JMS I Z IDX1 747 001202 1200 TAD GETADR 748 001203 4517 JMS I Z PUSH1 749 001204 4510 JMS I Z EXPR1 750 001205 1074 TAD Z MICRO 751 001206 7700 SMA CLA 752 001207 5212 JMP .+3 753 / 754 001210 1043 TAD Z EVAL 755 001211 5237 JMP LEAVE-1 756 / 757 001212 1043 TAD Z EVAL 758 001213 0164 AND Z C7600 759 001214 7450 SNA 760 001215 5244 JMP AWAY+1 761 / 762 001216 7041 CIA 763 001217 1031 TAD Z APAGE 764 001220 7650 SNA CLA 765 001221 5243 JMP AWAY 766 / 767 001222 1041 TAD Z IND 768 001223 7650 SNA CLA 769 001224 5230 JMP .+4 770 / 771 001225 1160 TAD Z C5 772 001226 4776 JMS I NUPAGE+1 773 001227 5240 JMP LEAVE 774 / 775 001230 1047 TAD Z PASS 776 001231 7710 SPA CLA 777 001232 4524 JMS I Z CONC1 778 001233 1157 TAD Z C6 779 001234 4776 JMS I NUPAGE+1 780 001235 1045 TAD Z CCON 781 001236 1156 TAD Z C600 782 001237 3040 DCA Z ADR 783 001240 4520 LEAVE, JMS I Z POPU1 784 001241 3200 DCA GETADR 785 001242 5600 JMP I GETADR 786 / 787 001243 1163 AWAY, TAD Z C200 788 001244 3375 DCA NUPAGE 789 001245 1043 TAD Z EVAL 790 001246 0165 AND Z C177 791 001247 1375 TAD NUPAGE 792 001250 1041 TAD Z IND 793 001251 5237 JMP LEAVE-1 794 / 795 001252 1057 II, TAD Z CLIT 796 001253 4517 JMS I Z PUSH1 797 001254 1055 TAD Z CHARX 798 001255 1155 TAD Z M64 799 001256 3057 DCA Z CLIT 800 001257 4516 JMS I Z IDX1 801 001260 4510 JMS I Z EXPR1 802 001261 1057 TAD Z CLIT 803 001262 7640 SZA CLA 804 001263 5267 JMP .+4 805 / 806 001264 4524 JMS I Z CONC1 807 001265 1031 TAD Z APAGE 808 001266 7410 SKP 809 / 810 001267 4505 JMS I Z CONZ1 811 001270 1045 TAD Z CCON 812 001271 3040 DCA Z ADR 813 001272 4520 JMS I Z POPU1 814 001273 3057 DCA Z CLIT 815 001274 5675 JMP I .+1 816 / 817 001275 1105 GET+1 818 / 819 001276 0000 LDT, 0 820 001277 1055 TAD Z CHARX 821 001300 7450 SNA 822 001301 5676 JMP I LDT 823 / 824 001302 3375 DCA NUPAGE 825 001303 1375 TAD NUPAGE 826 001304 1154 TAD Z M45 827 001305 7700 SMA CLA 828 001306 5313 JMP .+5 829 / 830 001307 2061 ISZ Z IN /LETTER 831 001310 4516 JMS I Z IDX1 832 001311 1375 TAD NUPAGE 833 001312 5676 JMP I LDT 834 / 835 001313 3055 DCA Z CHARX 836 001314 5676 JMP I LDT 837 / 838 001315 0000 A1W, 0 839 001316 4276 JMS LDT 840 001317 3375 DCA NUPAGE 841 001320 1375 TAD NUPAGE 842 001321 7106 CLL RTL 843 001322 3025 DCA Z VAL 844 001323 1025 TAD Z VAL 845 001324 7006 RTL 846 001325 7004 RAL 847 001326 1025 TAD Z VAL 848 001327 1375 TAD NUPAGE 849 001330 3025 DCA Z VAL 850 001331 4276 JMS LDT 851 001332 1025 TAD Z VAL 852 001333 5715 JMP I A1W 853 / 854 001334 0000 AAS, 0 855 001335 4315 JMS A1W 856 001336 3032 DCA Z TEM1 857 001337 4315 JMS A1W 858 001340 3033 DCA Z TEM2 859 001341 4315 JMS A1W 860 001342 3034 DCA Z TEM3 861 001343 4276 JMS LDT 862 001344 7650 SNA CLA 863 001345 5734 JMP I AAS 864 / 865 001346 5343 JMP .-3 866 / 867 001347 0000 POPUP1, 0 868 001350 7240 CLA CMA 869 001351 1060 TAD Z POINT 870 001352 3060 DCA Z POINT 871 001353 1460 TAD I Z POINT 872 001354 5747 JMP I POPUP1 873 / 874 001355 4516 ORGIC, JMS I Z IDX1 875 001356 4510 JMS I Z EXPR1 876 001357 1043 TAD Z EVAL 877 001360 3030 DCA Z AADR 878 001361 1043 TAD Z EVAL 879 001362 0164 AND Z C7600 880 001363 7041 CIA 881 001364 1031 TAD Z APAGE 882 001365 7650 SNA CLA 883 001366 5372 JMP .+4 884 / 885 001367 4512 JMS I Z PAGE1 886 001370 1030 TAD Z AADR 887 001371 3043 DCA Z EVAL 888 001372 4777 JMS I NUPAGE+2 889 001373 4533 JMS I Z PUNOR1 890 001374 5511 JMP I Z MAIN1 891 / 892 001375 0000 NUPAGE, 0 893 001376 2367 UNDERR 894 001377 2572 ZEROT 895 /PAUSE 896 /MACRO COMPILER 897 / 898 /PAGE 1400 899 *1400 900 001400 5202 MAIN, JMP PASS1 901 / 902 001401 7200 CLA 903 001402 1042 PASS1, TAD Z PERMA 904 001403 3027 DCA Z SEND 905 001404 7604 LAS 906 001405 7012 RTR 907 001406 7710 SPA CLA 908 001407 5213 JMP .+4 909 / 910 001410 7420 SNL 911 001411 1162 TAD Z C400 912 001412 1153 TAD Z C364 913 001413 1020 TAD Z MACBOT 914 001414 3046 DCA Z MACEND 915 001415 4752 JMS I OCTS1+2 916 001416 3047 DCA Z PASS 917 001417 3011 DCA Z NOW3 918 001420 1177 TAD Z M1000 919 001421 3755 DCA I OCTS1+5 920 001422 4313 JMS SETORG 921 001423 1374 TAD CJMP1+1 922 001424 3200 PASS1P, DCA MAIN 923 001425 4750 JMS I OCTS1 924 001426 4772 JMS I CJMP1-1 925 001427 4516 MAINSE, JMS I Z IDX1 926 001430 1126 TAD Z LIST1 /3331 927 001431 3060 DCA Z POINT 928 001432 3021 DCA Z ANY 929 001433 3041 DCA Z IND 930 001434 4510 JMS I Z EXPR1 931 001435 1021 TAD Z ANY 932 001436 7650 SNA CLA 933 001437 5227 JMP MAINSE 934 / 935 001440 1043 TAD Z EVAL 936 001441 4243 JMS ONEREG 937 001442 5227 JMP MAINSE 938 / 939 001443 0000 ONEREG, 0 940 001444 3043 DCA Z EVAL 941 001445 1135 TAD Z STUP 942 001446 4537 JMS I Z FIND2 943 001447 3313 DCA SETORG 944 001450 1030 TAD Z AADR 945 001451 0165 AND Z C177 946 001452 3312 DCA SETORG-1 947 001453 1713 TAD I SETORG 948 001454 7041 CIA 949 001455 1312 TAD SETORG-1 950 001456 7700 SMA CLA 951 001457 5304 JMP GETPAG 952 / 953 001460 1136 TAD Z STUP2 954 001461 4537 JMS I Z FIND2 955 001462 3313 DCA SETORG 956 001463 2312 ISZ SETORG-1 957 001464 1312 TAD SETORG-1 958 001465 7041 CIA 959 001466 1713 TAD I SETORG 960 001467 7700 SMA CLA 961 001470 5273 JMP .+3 962 / 963 001471 1312 TAD SETORG-1 964 001472 3713 DCA I SETORG 965 001473 4534 JMS I Z PUNON1 966 001474 2030 ISZ Z AADR 967 001475 1312 TAD SETORG-1 968 001476 0165 AND Z C177 969 001477 7640 SZA CLA 970 001500 5643 JMP I ONEREG 971 / 972 001501 4512 JMS I Z PAGE1 973 001502 4772 JMS I CJMP1-1 974 001503 5643 JMP I ONEREG 975 / 976 001504 1031 GETPAG, TAD Z APAGE 977 001505 7650 SNA CLA 978 001506 7001 IAC 979 001507 7001 IAC 980 001510 4506 JMS I Z ERR1 981 001511 5227 JMP MAINSE 982 / 983 001512 0000 0 984 / 985 001513 0000 SETORG, 0 986 001514 1163 TAD Z C200 987 001515 3030 DCA Z AADR 988 001516 1163 TAD Z C200 989 001517 3031 DCA Z APAGE 990 001520 1100 TAD Z CBUFE 991 001521 3035 DCA Z PCON 992 001522 1077 TAD Z ZBUFE 993 001523 3036 DCA Z ZCON 994 001524 1011 TAD Z NOW3 995 001525 7650 SNA CLA /SKIP IF PASS 3 996 001526 4751 JMS I OCTS1+1 997 001527 1163 TAD Z C200 998 001530 3043 DCA Z EVAL 999 001531 1377 TAD M40 1000 001532 3037 DCA Z CON 1001 001533 7240 CLA CMA 1002 001534 1135 TAD Z STUP 1003 001535 3017 DCA Z AUT17 1004 001536 7240 CLA CMA 1005 001537 1136 TAD Z STUP2 1006 001540 3016 DCA Z AUT16 1007 001541 1163 TAD Z C200 1008 001542 3417 DCA I Z AUT17 1009 001543 3416 DCA I Z AUT16 1010 001544 2037 ISZ Z CON 1011 001545 5341 JMP .-4 1012 / 1013 001546 4533 JMS I Z PUNOR1 1014 001547 5713 JMP I SETORG 1015 / 1016 001550 2251 OCTS1, OCTS 1017 001551 3125 LT 1018 001552 3035 UNPUN 1019 001553 2135 REPUN 1020 001554 2632 TYCAR 1021 001555 3001 PUNONE+1 1022 001556 5341 JMP OPASS-1400 1023 / 1024 001557 1356 PASS3, TAD .-1 1025 001560 3755 DCA I OCTS1+5 1026 001561 2011 ISZ Z NOW3 1027 001562 4754 JMS I OCTS1+4 1028 001563 7240 PASS2, CLA CMA 1029 001564 3047 DCA Z PASS 1030 001565 3010 DCA Z CKSUM 1031 001566 4753 JMS I OCTS1+3 1032 001567 4313 JMS SETORG 1033 001570 1373 TAD CJMP1 1034 001571 5224 JMP PASS1P 1035 / 1036 001572 2572 ZEROT 1037 001573 5202 CJMP1, JMP PASS1 1038 001574 5363 JMP PASS2 1039 001575 7402 HLT 1040 001576 7402 HLT 1041 001577 7740 M40, 0-40 1042 /PAUSE 1043 /MACRO COMPILER 1044 / 1045 /PAGE 1600 1046 *1600 1047 001600 0000 BIT6, 0 1048 001601 1062 TAD Z ITEM 1049 001602 0165 AND Z C177 1050 001603 7650 SNA CLA 1051 001604 5726 JMP I STRING-1 1052 / 1053 001605 1062 TAD Z ITEM 1054 001606 1152 TAD Z M240 1055 001607 7510 SPA /LESS THAN 240? 1056 001610 5221 JMP .+11 /YES 1057 / 1058 001611 1377 TAD M11 /RIGHT PAREN? 1059 001612 7450 SNA 1060 001613 5726 JMP I STRING-1 /YES 1061 / 1062 001614 1155 TAD Z M64 /RIGHT BRACKET? 1063 001615 7450 SNA 1064 001616 5726 JMP I STRING-1 /YES 1065 / 1066 001617 7710 SPA CLA 1067 001620 5251 JMP BON /LESS THAN 336 1068 / 1069 001621 7200 CLA 1070 001622 1062 TAD Z ITEM 1071 001623 1376 TAD M211 1072 001624 7450 SNA 1073 001625 5272 JMP BASSEM+6 /TAB=54 1074 / 1075 001626 1151 TAD Z M1 1076 001627 7450 SNA 1077 001630 5726 JMP I STRING-1 /LF 1078 / 1079 001631 1150 TAD Z M2 1080 001632 7450 SNA 1081 001633 5726 JMP I STRING-1 /214 1082 / 1083 001634 1151 TAD Z M1 1084 001635 7450 SNA 1085 001636 5273 JMP BASSEM+7 /CR=46 1086 / 1087 001637 1375 TAD M162 1088 001640 7650 SNA CLA 1089 001641 5726 JMP I STRING-1 1090 / 1091 001642 1167 TAD Z C10 1092 001643 4506 JMS I Z ERR1 1093 001644 1062 TAD Z ITEM 1094 001645 7402 HLT 1095 001646 7604 LAS /CHANGE ILLEGAL CHAR 1096 001647 3062 DCA Z ITEM 1097 001650 5201 JMP BIT6+1 1098 / 1099 001651 1062 BON, TAD Z ITEM 1100 001652 1374 TAD M260 1101 001653 7710 SPA CLA 1102 001654 5267 JMP BASSEM+3 /LESS THAN 260 1103 / 1104 001655 1062 TAD Z ITEM 1105 001656 1147 TAD Z M301 1106 001657 7710 SPA CLA 1107 001660 5266 JMP BASSEM+2 /LESS THAN 301 1108 / 1109 001661 1062 TAD Z ITEM 1110 001662 1373 TAD M333 1111 001663 7710 SPA CLA 1112 001664 1372 BASSEM, TAD M41 /301 TO 332 CV 1 TO 32 1113 001665 1170 TAD Z M12 /333 TO 300 CV 74 TO 76 1114 001666 1372 TAD M41 /260 TO 300 CV 33 TO 53 1115 001667 1371 TAD M164 /240 TO 257 CV 54 TO 73 1116 001670 1062 TAD Z ITEM 1117 001671 5600 JMP I BIT6 /EXIT 1118 / 1119 001672 1157 TAD Z C6 1120 001673 1370 TAD C46 1121 001674 5600 JMP I BIT6 1122 / 1123 001675 0000 TSTPAS, 0 1124 001676 2047 ISZ Z PASS 1125 001677 5675 JMP I TSTPAS 1126 001700 7240 CLA CMA 1127 001701 3047 DCA Z PASS 1128 001702 5511 JMP I Z MAIN1 1129 / 1130 001703 0000 SKIP2, 0 1131 001704 3312 DCA RAND 1132 001705 1367 TAD C240 1133 001706 4404 JMS I Z DECOUT 1134 001707 2312 ISZ RAND 1135 001710 5305 JMP .-3 1136 / 1137 001711 5703 JMP I SKIP2 1138 / 1139 001712 0000 RAND, 0 1140 001713 0037 AND Z CON 1141 001714 3037 DCA Z CON 1142 001715 5712 JMP I RAND 1143 / 1144 001716 0000 RIOR, 0 1145 001717 3025 DCA Z VAL 1146 001720 1037 TAD Z CON 1147 001721 7040 CMA 1148 001722 0025 AND Z VAL 1149 001723 1037 TAD Z CON 1150 001724 3037 DCA Z CON 1151 001725 5716 JMP I RIOR 1152 / 1153 001726 2044 IDX+1 1154 / 1155 001727 4763 STRING, JMS I ENDSTR+3 1156 001730 7041 CIA 1157 001731 3025 DCA Z VAL 1158 001732 4763 JMS I ENDSTR+3 1159 001733 1025 TAD Z VAL 1160 001734 7650 SNA CLA 1161 001735 5361 JMP ENDSTR+1 1162 / 1163 001736 1062 TAD Z ITEM 1164 001737 7006 RTL 1165 001740 7006 RTL 1166 001741 7006 RTL 1167 001742 0366 AND C7700 1168 001743 3043 DCA Z EVAL 1169 001744 4763 JMS I ENDSTR+3 1170 001745 1025 TAD Z VAL 1171 001746 7650 SNA CLA 1172 001747 5360 JMP ENDSTR 1173 / 1174 001750 1062 TAD Z ITEM 1175 001751 0365 AND CZ77 1176 001752 1043 TAD Z EVAL 1177 001753 4757 JMS I ENDSTR-1 1178 001754 5332 JMP STRING+3 1179 / 1180 001755 7602 WAITT, HLT CLA 1181 001756 5511 JMP I Z MAIN1 1182 / 1183 001757 1443 ONEREG 1184 / 1185 001760 1043 ENDSTR, TAD Z EVAL 1186 001761 4757 JMS I ENDSTR-1 1187 001762 5511 JMP I Z MAIN1 1188 / 1189 001763 2102 GETIN 1190 001764 7402 HLT 1191 001765 0077 CZ77, 77 1192 001766 7700 C7700, 7700 1193 001767 0240 C240, 240 1194 001770 0046 C46, 46 1195 001771 7614 M164, 0-164 1196 001772 7737 M41, 0-41 1197 001773 7445 M333, 0-333 1198 001774 7520 M260, 0-260 1199 001775 7616 M162, 0-162 1200 001776 7567 M211, 0-211 1201 001777 7767 M11, 0-11 1202 /PAUSE 1203 /MACRO COMPILER 1204 / 1205 /PAGE 2000 1206 *2000 1207 002000 0000 ENTS, 0 1208 002001 1025 TAD Z VAL 1209 002002 3427 DCA I Z SEND 1210 002003 1027 TAD Z SEND 1211 002004 3023 DCA Z VADR 1212 002005 4320 JMS SENDP 1213 002006 1034 TAD Z TEM3 1214 002007 3427 DCA I Z SEND 1215 002010 4320 JMS SENDP 1216 002011 1033 TAD Z TEM2 1217 002012 3427 DCA I Z SEND 1218 002013 4320 JMS SENDP 1219 002014 1032 TAD Z TEM1 1220 002015 3427 DCA I Z SEND 1221 002016 1027 TAD Z SEND 1222 002017 3024 DCA Z SADR 1223 002020 1600 TAD I ENTS 1224 002021 2200 ISZ ENTS 1225 002022 3224 DCA .+2 1226 002023 4530 JMS I Z TYPAD1 1227 / 1228 002024 0000 0 1229 / 1230 002025 4320 JMS SENDP 1231 002026 1046 TAD Z MACEND 1232 002027 7041 CIA 1233 002030 1027 TAD Z SEND 1234 002031 7700 SMA CLA 1235 002032 5600 JMP I ENTS 1236 / 1237 002033 1146 SYMEX, TAD Z C3 1238 002034 4506 JMS I Z ERR1 1239 002035 1177 TAD Z M1000 1240 002036 3256 DCA SWITCH 1241 002037 1177 TAD Z M1000 1242 002040 3244 DCA IDX+1 1243 002041 7602 HLT CLA 1244 002042 5241 JMP .-1 1245 / 1246 002043 0000 IDX, 0 1247 002044 7000 NOP /OR JMP IDXMAC 1248 002045 4302 JMS GETIN 1249 002046 1377 TAD M257 /SLASH? 1250 002047 7650 SNA CLA 1251 002050 5312 JMP COMMEN 1252 / 1253 002051 4717 JMS I SENDP-1 /BIT6 SR 1254 002052 3055 DCA Z CHARX 1255 002053 1055 TAD Z CHARX 1256 002054 3056 DCA Z CHARX2 1257 002055 1055 TAD Z CHARX 1258 002056 7000 SWITCH, NOP /MACRO STORE 1259 002057 7200 CLA 1260 002060 5643 JMP I IDX 1261 / 1262 002061 7000 IDXMAC, NOP 1263 002062 1300 TAD JMPOUT+1 1264 002063 3261 DCA IDXMAC 1265 002064 1702 TAD I GETIN 1266 002065 7012 RTR 1267 002066 7012 RTR 1268 002067 7012 RTR 1269 002070 0376 AND CT77 1270 002071 5252 JMP IDX+7 1271 / 1272 002072 1177 RIGHT, TAD Z M1000 1273 002073 3261 DCA IDXMAC 1274 002074 1702 TAD I GETIN 1275 002075 2302 ISZ GETIN 1276 002076 5270 JMP RIGHT-2 1277 / 1278 002077 5261 JMPOUT, JMP IDXMAC 1279 / 1280 002100 5272 JMP RIGHT 1281 002101 3755 HSGET 1282 / 1283 002102 0000 GETIN, 0 1284 002103 4701 JMS I GETIN-1 1285 002104 3062 DCA Z ITEM 1286 002105 1011 TAD Z NOW3 1287 002106 7640 SZA CLA 1288 002107 4501 JMS I Z SYMLST 1289 002110 1062 TAD Z ITEM 1290 002111 5702 JMP I GETIN 1291 / 1292 002112 4302 COMMEN, JMS GETIN 1293 002113 1375 TAD M215 1294 002114 7650 SNA CLA 1295 002115 5251 JMP IDX+6 1296 / 1297 002116 5312 JMP COMMEN 1298 / 1299 002117 1600 BIT6 1300 / 1301 002120 0000 SENDP, 0 1302 002121 7240 CLA CMA 1303 002122 1027 TAD Z SEND 1304 002123 3027 DCA Z SEND 1305 002124 5720 JMP I SENDP 1306 / 1307 002125 0000 SAVE, 0 1308 002126 1024 TAD Z SADR 1309 002127 3335 DCA REPUN 1310 002130 1022 TAD Z TYPE 1311 002131 3342 DCA RESTOR-1 1312 002132 1023 TAD Z VADR 1313 002133 3072 DCA Z VADR1 1314 002134 5725 JMP I SAVE 1315 / 1316 002135 0000 REPUN, 0 1317 002136 1177 TAD Z M1000 1318 002137 3741 DCA I .+2 1319 002140 5735 JMP I REPUN 1320 / 1321 002141 3024 PUN+1 1322 002142 0000 0 1323 / 1324 002143 0000 RESTOR, 0 1325 002144 1335 TAD REPUN 1326 002145 3024 DCA Z SADR 1327 002146 1342 TAD RESTOR-1 1328 002147 3022 DCA Z TYPE 1329 002150 1072 TAD Z VADR1 1330 002151 3023 DCA Z VADR 1331 002152 5743 JMP I RESTOR 1332 / 1333 002153 4013 MSTOR1, PACK 1334 / 1335 002154 4510 EXMEM, JMS I Z EXPR1 1336 002155 1047 TAD Z PASS 1337 002156 7700 SMA CLA 1338 002157 5511 JMP I Z MAIN1 1339 / 1340 002160 1011 TAD Z NOW3 1341 002161 7640 SZA CLA 1342 002162 5511 JMP I Z MAIN1 1343 / 1344 002163 1043 TAD Z EVAL 1345 002164 0145 AND Z C7 1346 002165 7106 CLL RTL 1347 002166 7004 RAL 1348 002167 1374 TAD CT300 1349 002170 4504 JMS I Z BINOUT 1350 002171 5511 JMP I Z MAIN1 1351 / 1352 002172 2000 2000 1353 002173 7777 7777 1354 002174 0300 CT300, 300 1355 002175 7563 M215, 0-215 1356 002176 0077 CT77, 77 1357 002177 7521 M257, 0-257 1358 /PAUSE 1359 /MACRO COMPILER 1360 / 1361 /PAGE 2200 1362 *2200 1363 002200 0000 DPCV, 0 1364 002201 2021 ISZ Z ANY 1365 002202 3070 DCA Z HIC 1366 002203 3071 DCA Z LWC 1367 002204 3316 DCA RTD16 1368 002205 3345 DCA SIGN 1369 002206 3346 DCA DPN 1370 002207 1056 TAD Z CHARX2 1371 002210 1377 TAD M67 1372 002211 7450 SNA 1373 002212 5220 JMP DPCS 1374 / 1375 002213 1150 TAD Z M2 1376 002214 7640 SZA CLA 1377 002215 5221 JMP DPCS+1 1378 / 1379 002216 7240 CLA CMA 1380 002217 3345 DCA SIGN 1381 / 1382 002220 4516 DPCS, JMS I Z IDX1 1383 002221 1056 TAD Z CHARX2 1384 002222 1154 TAD Z M45 1385 002223 7500 SMA 1386 002224 5600 JMP I DPCV 1387 / 1388 002225 1144 TAD Z C12 1389 002226 7510 SPA 1390 002227 5600 JMP I DPCV 1391 / 1392 002230 3347 DCA MTD6 1393 002231 1070 TAD Z HIC 1394 002232 0376 AND M400 1395 002233 7640 SZA CLA 1396 002234 5220 JMP DPCS 1397 002235 2346 ISZ DPN 1398 002236 2316 ISZ RTD16 1399 002237 4255 JMS MT10 1400 002240 5220 JMP DPCS 1401 / 1402 002241 4245 DECIM, JMS DECIMS 1403 002242 5514 JMP I Z B21 1404 / 1405 002243 4251 OCT, JMS OCTS 1406 002244 5514 JMP I Z B21 1407 / 1408 002245 0000 DECIMS, 0 1409 002246 1271 TAD MTSW+5 1410 002247 3264 DCA MTSW 1411 002250 5645 JMP I DECIMS 1412 / 1413 002251 0000 OCTS, 0 1414 002252 1177 TAD Z M1000 1415 002253 3264 DCA MTSW 1416 002254 5651 JMP I OCTS 1417 / 1418 002255 0000 MT10, 0 1419 002256 1071 TAD Z LWC 1420 002257 3351 DCA TIC+1 1421 002260 1070 TAD Z HIC 1422 002261 3350 DCA TIC 1423 002262 4273 JMS MTRL 1424 002263 4273 JMS MTRL 1425 / 1426 002264 4304 MTSW, JMS MTAD /NOP(OCT); JMS MTAD(DEC) 1427 / 1428 002265 4273 JMS MTRL 1429 002266 1347 TAD MTD6 1430 002267 3351 DCA TIC+1 1431 002270 3350 DCA TIC 1432 002271 4304 JMS MTAD 1433 002272 5655 JMP I MT10 1434 / 1435 002273 0000 MTRL, 0 1436 002274 7300 CLA CLL 1437 002275 1071 TAD Z LWC 1438 002276 7004 RAL 1439 002277 3071 DCA Z LWC 1440 002300 1070 TAD Z HIC 1441 002301 7004 RAL 1442 002302 3070 DCA Z HIC 1443 002303 5673 JMP I MTRL 1444 / 1445 002304 0000 MTAD, 0 1446 002305 7300 CLA CLL 1447 002306 1071 TAD Z LWC 1448 002307 1351 TAD TIC+1 1449 002310 3071 DCA Z LWC 1450 002311 7004 RAL 1451 002312 1070 TAD Z HIC 1452 002313 1350 TAD TIC 1453 002314 3070 DCA Z HIC 1454 002315 5704 JMP I MTAD 1455 / 1456 002316 0000 RTD16, 0 1457 002317 3103 ZUNCON 1458 002320 4512 ENDOP, JMS I Z PAGE1 1459 002321 4717 JMS I .-2 1460 002322 5476 JMP I Z FINEND 1461 / 1462 002323 1401 PASS1-1 1463 002324 1563 PASS2 1464 002325 1404 PASS1+2 1465 / 1466 002326 7604 INITL, LAS 1467 002327 7510 SPA 1468 002330 5723 JMP I INITL-3 1469 / 1470 002331 7004 RAL 1471 002332 7510 SPA 1472 002333 5724 JMP I INITL-2 1473 / 1474 002334 7004 RAL 1475 002335 7510 SPA 1476 002336 5725 JMP I INITL-1 1477 / 1478 002337 7004 RAL 1479 002340 7700 SMA CLA 1480 002341 5502 JMP I Z MAINEX 1481 / 1482 002342 3075 DCA Z CHARAC 1483 002343 5744 JMP I .+1 1484 / 1485 002344 1557 PASS3 1486 002345 0000 SIGN, 0 1487 002346 0000 DPN, 0 1488 002347 0000 MTD6, 0 1489 002350 0000 TIC, 0 1490 002351 0000 0 1491 / 1492 002352 0000 ERR7, 0 1493 002353 1022 TAD Z TYPE 1494 002354 1176 TAD Z C6000 1495 002355 7650 SNA CLA 1496 002356 5752 JMP I ERR7 1497 / 1498 002357 1030 TAD Z AADR 1499 002360 7041 CIA 1500 002361 1423 TAD I Z VADR 1501 002362 7650 SNA CLA 1502 002363 5752 JMP I ERR7 1503 / 1504 002364 1145 TAD Z C7 1505 002365 4506 JMS I Z ERR1 1506 002366 5511 JMP I Z MAIN1 1507 / 1508 002367 0000 UNDERR, 0 1509 002370 2047 ISZ Z PASS 1510 002371 5767 JMP I UNDERR 1511 / 1512 002372 4506 JMS I Z ERR1 1513 002373 7240 CLA CMA 1514 002374 3047 DCA Z PASS 1515 002375 5767 JMP I UNDERR 1516 / 1517 002376 7400 M400, 0-400 1518 002377 7711 M67, 0-67 1519 /PAUSE 1520 /MACRO COMPILER 1521 / 1522 /PAGE 2400 1523 *2400 1524 002400 0000 HIGH, 0 1525 002401 0000 0 1526 002402 0000 0 1527 002403 0000 ORIGT, 0 1528 002404 0000 0 1529 002405 0000 0 1530 002406 0000 WORK, 0 1531 002407 0000 0 1532 002410 0000 0 1533 / 1534 002411 0000 ALPHA, 0 1535 002412 4726 JMS I NTEM+2 1536 002413 7240 CLA CMA 1537 002414 4404 JMS I Z DECOUT 1538 002415 4677 JMS I FOUND+1 1539 002416 3203 DCA ORIGT 1540 002417 3204 DCA ORIGT+1 1541 002420 3205 DCA ORIGT+2 1542 002421 3276 DCA FOUND 1543 002422 1174 TAD Z M3 1544 002423 1027 TAD Z SEND 1545 002424 3024 DCA Z SADR 1546 002425 1173 TAD Z C1777 1547 002426 3200 DCA HIGH 1548 002427 7240 CLA CMA 1549 002430 3201 DCA HIGH+1 1550 002431 7240 CLA CMA 1551 002432 3202 DCA HIGH+2 1552 002433 1314 TAD CORIGT 1553 002434 4352 JMS MOVE 1554 / 1555 002435 0032 TEM1 1556 / 1557 002436 1161 AEND, TAD Z C4 1558 002437 1024 TAD Z SADR 1559 002440 3024 DCA Z SADR 1560 002441 1042 TAD Z PERMA 1561 002442 7041 CIA 1562 002443 1024 TAD Z SADR 1563 002444 7700 SMA CLA 1564 002445 5301 JMP NTAB 1565 / 1566 002446 4700 JMS I FOUND+2 1567 002447 1022 TAD Z TYPE 1568 002450 1177 TAD Z M1000 1569 002451 7640 SZA CLA 1570 002452 5236 JMP AEND 1571 / 1572 002453 1024 TAD Z SADR 1573 002454 4352 JMS MOVE 1574 / 1575 002455 2406 CWORK, WORK 1576 / 1577 002456 4327 JMS TRIPLE 1578 002457 7620 SNL CLA 1579 002460 5236 JMP AEND 1580 / 1581 002461 1271 TAD CHIGH 1582 002462 4352 JMS MOVE 1583 / 1584 002463 0032 TEM1 1585 / 1586 002464 4327 JMS TRIPLE 1587 002465 7630 SZL CLA 1588 002466 5233 JMP AEND-3 1589 / 1590 002467 1255 TAD CWORK 1591 002470 4352 JMS MOVE 1592 / 1593 002471 2400 CHIGH, HIGH 1594 002472 2276 ISZ FOUND 1595 002473 1024 TAD Z SADR 1596 002474 3324 DCA NTEM 1597 002475 5233 JMP AEND-3 1598 / 1599 002476 0000 FOUND, 0 1600 002477 2632 TYCAR 1601 002500 0357 GETYPE 1602 / 1603 002501 1276 NTAB, TAD FOUND 1604 002502 7650 SNA CLA 1605 002503 5316 JMP CORIGT+2 1606 / 1607 002504 1324 TAD NTEM 1608 002505 4352 JMS MOVE 1609 / 1610 002506 0050 TEM1A 1611 / 1612 002507 1416 TAD I Z AUT16 1613 002510 3025 DCA Z VAL 1614 002511 4725 JMS I NTEM+1 1615 002512 1271 TAD CHIGH 1616 002513 4352 JMS MOVE 1617 / 1618 002514 2403 CORIGT, ORIGT 1619 / 1620 002515 5221 JMP ALPHA+10 1621 / 1622 002516 1161 TAD Z C4 1623 002517 4404 JMS I Z DECOUT 1624 002520 7240 CLA CMA 1625 002521 4404 JMS I Z DECOUT 1626 002522 4726 JMS I NTEM+2 1627 002523 5611 JMP I ALPHA 1628 / 1629 002524 0000 NTEM, 0 1630 002525 2610 OSANDV 1631 002526 3655 LT2 1632 / 1633 002527 0000 TRIPLE, 0 1634 002530 7300 CLA CLL 1635 002531 1032 TAD Z TEM1 1636 002532 7040 CMA 1637 002533 1206 TAD WORK 1638 002534 3352 DCA MOVE 1639 002535 2352 ISZ MOVE 1640 002536 5727 JMP I TRIPLE 1641 / 1642 002537 1033 TAD Z TEM1+1 1643 002540 7040 CMA 1644 002541 1207 TAD WORK+1 1645 002542 3352 DCA MOVE 1646 002543 2352 ISZ MOVE 1647 002544 5727 JMP I TRIPLE 1648 / 1649 002545 1034 TAD Z TEM1+2 1650 002546 7040 CMA 1651 002547 1210 TAD WORK+2 1652 002550 7200 CLA 1653 002551 5727 JMP I TRIPLE 1654 / 1655 002552 0000 MOVE, 0 1656 002553 1151 TAD Z M1 1657 002554 3016 DCA Z AUT16 1658 002555 7040 CMA 1659 002556 1752 TAD I MOVE 1660 002557 3017 DCA Z AUT17 1661 002560 1416 TAD I Z AUT16 1662 002561 0173 AND Z C1777 1663 002562 3417 DCA I Z AUT17 1664 002563 1416 TAD I Z AUT16 1665 002564 0172 AND Z C3777 1666 002565 3417 DCA I Z AUT17 1667 002566 1416 TAD I Z AUT16 1668 002567 3417 DCA I Z AUT17 1669 002570 2352 ISZ MOVE 1670 002571 5752 JMP I MOVE 1671 / 1672 002572 0000 ZEROT, 0 1673 002573 3050 DCA Z TEM1A 1674 002574 3053 DCA Z VAL1A 1675 002575 5772 JMP I ZEROT 1676 / 1677 002576 7402 HLT 1678 002577 7402 HLT 1679 /PAUSE 1680 /MACRO COMPILER 1681 / 1682 /PAGE 2600 1683 *2600 1684 002600 0000 TYPO, 0 1685 002601 6002 IOF 1686 002602 6046 TLS 1687 002603 6041 TSF 1688 002604 5203 JMP .-1 1689 002605 6001 ION 1690 002606 7200 CLA 1691 002607 5600 JMP I TYPO 1692 / 1693 002610 0000 OSANDV, 0 1694 002611 4221 JMS OSYM 1695 002612 1232 TAD TYCAR 1696 002613 1142 TAD Z M7 1697 002614 4503 JMS I Z SKIP 1698 002615 1025 TAD Z VAL 1699 002616 4312 JMS OPS 1700 002617 4232 JMS TYCAR 1701 002620 5610 JMP I OSANDV 1702 / 1703 002621 0000 OSYM, 0 1704 002622 3232 DCA TYCAR 1705 002623 1050 TAD Z TEM1A 1706 002624 4245 JMS OX 1707 002625 1051 TAD Z TEM1A+1 1708 002626 4245 JMS OX 1709 002627 1052 TAD Z TEM1A+2 1710 002630 4245 JMS OX 1711 002631 5621 JMP I OSYM 1712 / 1713 002632 0000 TYCAR, 0 1714 002633 1377 TAD C215 1715 002634 4404 JMS I Z DECOUT 1716 002635 1376 TAD C212 1717 002636 4404 JMS I Z DECOUT 1718 002637 5632 JMP I TYCAR 1719 / 1720 002640 0000 RSUB, 0 1721 002641 7041 CIA 1722 002642 1037 TAD Z CON 1723 002643 3037 DCA Z CON 1724 002644 5640 JMP I RSUB 1725 / 1726 002645 0000 OX, 0 1727 002646 7450 SNA 1728 002647 5621 JMP I OSYM 1729 / 1730 002650 7004 RAL 1731 002651 3071 DCA Z LWC 1732 002652 3070 DCA Z HIC 1733 002653 1375 TAD MN14 1734 002654 3063 DCA Z MP1 1735 002655 5266 JMP DV2 1736 / 1737 002656 1070 DV3, TAD Z HIC 1738 002657 7004 RAL 1739 002660 3070 DCA Z HIC 1740 002661 1070 TAD Z HIC 1741 002662 1154 TAD Z M45 1742 002663 7430 SZL 1743 002664 3070 DCA Z HIC 1744 002665 7200 CLA 1745 002666 1071 DV2, TAD Z LWC 1746 002667 7004 RAL 1747 002670 3071 DCA Z LWC 1748 002671 2063 ISZ Z MP1 1749 002672 5256 JMP DV3 1750 / 1751 002673 1071 TAD Z LWC 1752 002674 4300 JMS UNTRAN 1753 002675 1070 TAD Z HIC 1754 002676 4300 JMS UNTRAN 1755 002677 5645 JMP I OX 1756 / 1757 / 1758 002700 0000 UNTRAN, 0 1759 002701 7450 SNA 1760 002702 5621 JMP I OSYM 1761 / 1762 002703 1171 TAD Z M33 1763 002704 7510 SPA 1764 002705 1374 TAD C53 1765 002706 1373 TAD C260 1766 002707 4404 JMS I Z DECOUT 1767 002710 2232 ISZ TYCAR 1768 002711 5700 JMP I UNTRAN 1769 / 1770 002712 0000 OPS, 0 1771 002713 3221 DCA OSYM 1772 002714 1372 TAD MN4 1773 002715 3232 DCA TYCAR 1774 002716 1221 TAD OSYM 1775 002717 7006 RTL 1776 002720 7004 RAL 1777 002721 3221 DCA OSYM 1778 002722 1221 TAD OSYM 1779 002723 7004 RAL 1780 002724 0145 AND Z C7 1781 002725 1373 TAD C260 1782 002726 4404 JMS I Z DECOUT 1783 002727 2232 ISZ TYCAR 1784 002730 5316 JMP OPS+4 1785 / 1786 002731 5712 JMP I OPS 1787 / 1788 002732 0000 LITBUF, 0 1789 *2772 1790 002772 7774 MN4, 0-4 1791 002773 0260 C260, 260 1792 002774 0053 C53, 53 1793 002775 7764 MN14, 0-14 1794 002776 0212 C212, 212 1795 002777 0215 C215, 215 1796 /PAUSE 1797 /MACRO COMPILER 1798 / 1799 /PAGE 3000 1800 *3000 1801 003000 0000 PUNONE, 0 1802 003001 7000 NOP /OR JMP OPASS 1803 003002 3235 DCA UNPUN 1804 003003 1043 TAD Z EVAL 1805 003004 7012 RTR 1806 003005 7012 RTR 1807 003006 7012 RTR 1808 003007 0377 AND C77 1809 003010 1235 TAD UNPUN 1810 003011 4223 JMS PUN 1811 003012 1043 TAD Z EVAL 1812 003013 0377 AND C77 1813 003014 4223 JMS PUN 1814 003015 7200 CLA 1815 003016 5600 JMP I PUNONE 1816 / 1817 003017 0000 PUNORG, 0 1818 003020 1376 TAD C100 1819 003021 4200 JMS PUNONE 1820 003022 5617 JMP I PUNORG 1821 / 1822 003023 0000 PUN, 0 1823 003024 7000 NOP /JMP I PUN IF UNPUN 1824 003025 6002 IOF 1825 003026 6026 PLS 1826 003027 6021 PSF 1827 003030 5227 JMP .-1 1828 003031 6001 ION 1829 003032 1010 TAD Z CKSUM 1830 003033 3010 DCA Z CKSUM 1831 003034 5623 JMP I PUN 1832 / 1833 003035 0000 UNPUN, 0 1834 003036 1234 TAD .-2 1835 003037 3224 DCA PUN+1 1836 003040 5635 JMP I UNPUN 1837 / 1838 003041 0000 PUNCHK, 0 1839 003042 1010 TAD Z CKSUM 1840 003043 7012 RTR 1841 003044 7012 RTR 1842 003045 7012 RTR 1843 003046 0377 AND C77 1844 003047 4504 JMS I Z BINOUT 1845 003050 1010 TAD Z CKSUM 1846 003051 0377 AND C77 1847 003052 4504 JMS I Z BINOUT 1848 003053 5641 JMP I PUNCHK 1849 / 1850 003054 0000 PUNCON, 0 /PUNCH OUT CONSTANTS 1851 003055 1100 TAD Z CBUFE 1852 003056 7041 CIA 1853 003057 1035 TAD Z PCON 1854 003060 7500 SMA 1855 003061 5654 JMP I PUNCON 1856 / 1857 003062 3323 DCA NUCON 1858 003063 1135 TAD Z STUP 1859 003064 4537 JMS I Z FIND2 1860 003065 3043 DCA Z EVAL 1861 003066 1443 TAD I Z EVAL 1862 003067 1031 TAD Z APAGE 1863 003070 3043 DCA Z EVAL 1864 003071 4217 JMS PUNORG 1865 003072 7240 CLA CMA 1866 003073 1035 TAD Z PCON 1867 003074 3017 DCA Z AUT17 1868 003075 1417 TAD I Z AUT17 1869 003076 3043 DCA Z EVAL 1870 003077 4200 JMS PUNONE 1871 003100 2323 ISZ NUCON 1872 003101 5275 JMP .-4 1873 / 1874 003102 5654 JMP I PUNCON 1875 / 1876 003103 0000 ZUNCON, 0 1877 003104 1036 TAD Z ZCON 1878 003105 3035 DCA Z PCON 1879 003106 3031 DCA Z APAGE 1880 003107 1163 TAD Z C200 1881 003110 4254 JMS PUNCON 1882 003111 7200 CLA 1883 003112 1047 TAD Z PASS 1884 003113 7700 SMA CLA 1885 003114 5703 JMP I ZUNCON 1886 / 1887 003115 1011 TAD Z NOW3 1888 003116 7640 SZA CLA 1889 003117 5703 JMP I ZUNCON 1890 / 1891 003120 4241 JMS PUNCHK 1892 003121 4325 JMS LT 1893 003122 5703 JMP I ZUNCON 1894 / 1895 003123 0000 NUCON, 0 1896 003124 0000 0 1897 / 1898 003125 0000 LT, 0 1899 003126 1164 TAD Z C7600 1900 003127 3324 DCA NUCON+1 1901 003130 1047 TAD Z PASS 1902 003131 7700 SMA CLA 1903 003132 5725 JMP I LT 1904 / 1905 003133 1163 TAD Z C200 1906 003134 4504 JMS I Z BINOUT 1907 003135 2324 ISZ NUCON+1 1908 003136 5333 JMP .-3 1909 / 1910 003137 5725 JMP I LT 1911 / 1912 003140 2712 OPS 1913 / 1914 003141 7650 OPASS, SNA CLA 1915 003142 5346 JMP .+4 1916 / 1917 003143 1043 TAD Z EVAL 1918 003144 3012 DCA Z CURADD 1919 003145 5600 JMP I PUNONE 1920 / 1921 003146 1012 TAD Z CURADD 1922 003147 4740 JMS I OPASS-1 1923 003150 2012 ISZ Z CURADD 1924 003151 7000 NOP 1925 003152 1150 TAD Z M2 1926 003153 4503 JMS I Z SKIP 1927 003154 1043 TAD Z EVAL 1928 003155 4740 JMS I OPASS-1 1929 003156 1150 TAD Z M2 1930 003157 4503 JMS I Z SKIP 1931 003160 4762 JMS I .+2 1932 003161 5600 JMP I PUNONE 1933 / 1934 003162 3636 EMPTY 1935 *3176 1936 003176 0100 C100, 100 1937 003177 0077 C77, 77 1938 /PAUSE 1939 /MACRO COMPILER 1940 / 1941 /PAGE 3200 1942 *3200 1943 003200 3315 TABLE 1944 / 1945 003201 0000 ERROR, 0 1946 003202 1200 TAD .-2 1947 003203 3246 DCA FINUP-1 1948 003204 1011 TAD Z NOW3 1949 003205 7640 SZA CLA 1950 003206 5601 JMP I ERROR /EXIT 1951 / 1952 003207 7240 CLA CMA 1953 003210 4404 JMS I Z DECOUT /RUBOUT 1954 003211 4644 JMS I FINUP-3 /CR & LF 1955 003212 1646 TAD I FINUP-1 /GET ERROR CODE 1956 003213 0313 AND CC77 1957 003214 1312 TAD CC100 /ASCII CODE 1958 003215 4404 JMS I Z DECOUT 1959 003216 1646 TAD I FINUP-1 1960 003217 7012 RTR 1961 003220 7012 RTR 1962 003221 7012 RTR 1963 003222 0313 AND CC77 1964 003223 1312 TAD CC100 1965 003224 4404 JMS I Z DECOUT 1966 003225 1311 TAD C40 /SPACE 1967 003226 4404 JMS I Z DECOUT 1968 003227 4643 JMS I FINUP-4 1969 003230 1314 TAD CC53 1970 003231 4404 JMS I Z DECOUT 1971 003232 1053 TAD Z VAL1A 1972 003233 7440 SZA 1973 003234 7041 CIA 1974 003235 1030 TAD Z AADR 1975 003236 4645 JMS I FINUP-2 1976 003237 4644 JMS I FINUP-3 1977 003240 7240 CLA CMA 1978 003241 4404 JMS I Z DECOUT /RUBOUT 1979 003242 5601 JMP I ERROR /EXIT 1980 / 1981 003243 2621 OSYM 1982 003244 2632 TYCAR 1983 003245 2712 OPS 1984 003246 0000 0 1985 / 1986 003247 1011 FINUP, TAD Z NOW3 1987 003250 7640 SZA CLA 1988 003251 5255 JMP .+4 1989 003252 1047 TAD Z PASS 1990 003253 7710 SPA CLA 1991 003254 4657 JMS I .+3 1992 003255 7402 HLT 1993 003256 5502 JMP I Z MAINEX 1994 003257 2411 ALPHA 1995 003260 2367 UNDERR 1996 003261 1334 AAS 1997 / 1998 003262 0000 GETASY, 0 1999 003263 7200 CLA 2000 003264 3061 DCA Z IN 2001 003265 4661 JMS I GETASY-1 2002 003266 1061 TAD Z IN 2003 003267 7650 SNA CLA 2004 003270 5662 JMP I GETASY 2005 / 2006 003271 4525 JMS I Z SEAR1 2007 003272 7610 SKP CLA 2008 003273 5302 JMP CKUN /FOUND 2009 / 2010 003274 3025 DCA Z VAL 2011 003275 4507 JMS I Z ENTS1 2012 003276 2000 USYMB 2013 003277 1144 TAD Z C12 2014 003300 4660 JMS I GETASY-2 2015 003301 5662 JMP I GETASY 2016 / 2017 003302 1022 CKUN, TAD Z TYPE 2018 003303 1176 TAD Z C6000 2019 003304 7640 SZA CLA 2020 003305 5662 JMP I GETASY 2021 / 2022 003306 7040 CMA 2023 003307 3013 DCA Z TRUBL 2024 003310 5277 JMP CKUN-3 2025 / 2026 003311 0240 C40, 240 2027 003312 0300 CC100, 300 2028 003313 0077 CC77, 77 2029 003314 0253 CC53, 253 2030 003315 0511 TABLE, 0511 /IE, ILLEGAL EQUALS 2031 003316 0520 0520 /PE, CURRENT NONZERO PAGE EXCEEDED 2032 003317 0532 0532 /ZE, ZERO PAGE EXCEEDED 2033 003320 0523 0523 /SE, SYMBOL TABLE EXCEEDED 2034 003321 0502 0502 /BE 2035 003322 1111 1111 /II, ILLEGAL INDIRECT 2036 003323 0714 0714 /LG, LINK GENERATED 2037 003324 0411 0411 /ID, ILLEGAL REDEFINITION OF SYMBOL 2038 003325 0311 0311 /IC, ILLEGAL CHARACTER 2039 003326 2015 2015 /MP, MISSING PARAMETER MACRO CALL 2040 003327 2325 2325 /US, UNDEFINED SYMBOL 2041 003330 1511 1511 /IM, ILLEGAL FORMAT,MACRO DEFINITION 2042 003331 0000 LIST, 0 2043 /PAUSE 2044 /MACRO COMPILER 2045 /SYMBOLIC ASSEMBLY LISTER 2046 / 2047 /PAGE 3600 2048 *3600 2049 003600 2632 TYCAR 2050 / 2051 003601 0000 LSTSYM, 0 2052 003602 1062 TAD Z ITEM 2053 003603 1377 TAD M212 2054 003604 7440 SZA 2055 003605 5215 JMP .+10 2056 / 2057 003606 1075 TAD Z CHARAC 2058 003607 7650 SNA CLA 2059 003610 5601 JMP I LSTSYM /SYMBOLIC BUFFER EMPTY 2060 / 2061 003611 1376 TAD M14 2062 003612 4503 JMS I Z SKIP /SPACE 12 CHARACTERS 2063 003613 4236 JMS EMPTY /EMPTY BUFFER 2064 003614 5601 JMP I LSTSYM 2065 / 2066 003615 1174 TAD Z M3 2067 003616 7650 SNA CLA 2068 003617 5601 JMP I LSTSYM 2069 / 2070 003620 1075 TAD Z CHARAC 2071 003621 1027 TAD Z SEND 2072 003622 3236 DCA EMPTY /ADDRESS TO STORE CHAR 2073 003623 1236 TAD EMPTY 2074 003624 7041 CIA 2075 003625 1046 TAD Z MACEND 2076 003626 7700 SMA CLA 2077 003627 5601 JMP I LSTSYM /NO ROOM FOR CHAR 2078 / 2079 003630 7240 CLA CMA 2080 003631 1075 TAD Z CHARAC 2081 003632 3075 DCA Z CHARAC /UPDATE COUNTER/POINTER 2082 003633 1062 TAD Z ITEM 2083 003634 3636 DCA I EMPTY /STORE CHARACTER 2084 003635 5601 JMP I LSTSYM 2085 / 2086 003636 0000 EMPTY, 0 2087 003637 1075 TAD Z CHARAC 2088 003640 7650 SNA CLA 2089 003641 5253 JMP .+12 /NO CHARACTERS IN BUFFER 2090 / 2091 003642 1027 TAD Z SEND 2092 003643 5246 JMP .+3 2093 / 2094 003644 7240 CLA CMA 2095 003645 1255 TAD LT2 2096 003646 3255 DCA LT2 /ADDR OF CHAR. 2097 003647 1655 TAD I LT2 2098 003650 4404 JMS I Z DECOUT 2099 003651 2075 ISZ Z CHARAC 2100 003652 5244 JMP .-6 2101 / 2102 003653 4600 JMS I LSTSYM-1 2103 003654 5636 JMP I EMPTY 2104 / 2105 003655 0000 LT2, 0 2106 003656 1164 TAD Z C7600 2107 003657 3236 DCA EMPTY 2108 003660 1163 TAD Z C200 2109 003661 4404 JMS I Z DECOUT 2110 003662 2236 ISZ EMPTY 2111 003663 5260 JMP .-3 2112 / 2113 003664 5655 JMP I LT2 2114 / 2115 003665 3675 FIRST+6 2116 003666 5401 JMP I Z 1 2117 / 2118 003667 0000 FIRST, 0 2119 003670 1266 TAD FIRST-1 2120 003671 3345 DCA DISMS 2121 003672 1265 TAD FIRST-2 2122 003673 3001 DCA Z 1 2123 003674 7000 NOP 2124 003675 7200 CLA 2125 003676 1307 TAD DELCNT-1 2126 003677 7000 NOP 2127 003700 3310 DCA DELCNT /60 CPS DELAY FACTOR 2128 003701 6014 RFC /READ FROM 750 2129 003702 3312 DCA DELCNT+2 /NOT READY FOR THIS CHAR 2130 003703 3311 DCA DELCNT+1 /READ GOING ON 2131 003704 6001 ION 2132 003705 5667 JMP I FIRST 2133 / 2134 003706 7000 NOP 2135 003707 7055 0-723 /PDP 5 DELAY FACTOR 2136 003710 0000 DELCNT, 0 2137 003711 0000 0 /7777 IF NO READ GOING ON 2138 003712 0000 0 /7777 IF PREV CHAR PROCESSED 2139 003713 0000 0 2140 / 2141 003714 3313 INTHAN, DCA DELCNT+3 2142 003715 6011 RSF 2143 003716 5326 JMP .+10 2144 / 2145 003717 6012 RRB 2146 003720 2312 ISZ DELCNT+2 2147 003721 5346 JMP DISMS+1 /PREV CHAR NOT PROCESSED 2148 / 2149 003722 6014 RFC 2150 003723 3267 DCA FIRST 2151 003724 3311 DCA DELCNT+1 2152 003725 5343 JMP DISMS-2 2153 / 2154 003726 6022 PCF 2155 003727 6771 MMCF 2156 003730 6074 DCF /LT PEN 2157 003731 6541 ADRB /A-D 2158 003732 6504 PLCF /PLOTTER 2159 003733 6711 MTS /MAG 57A 2160 003734 6032 KCC 2161 003735 6042 TCF 2162 003736 7000 NOP 2163 003737 7000 NOP 2164 003740 7000 NOP 2165 003741 7000 NOP 2166 003742 7000 NOP 2167 003743 1313 TAD DELCNT+3 2168 003744 6001 ION 2169 003745 5401 DISMS, JMP I Z 1 2170 / 2171 003746 3267 DCA FIRST 2172 003747 1310 TAD DELCNT 2173 003750 3311 DCA DELCNT+1 /DELAY TO INSURE 60 OP 2174 003751 2311 ISZ DELCNT+1 /LESS CPS 2175 003752 5351 JMP .-1 2176 / 2177 003753 7240 CLA CMA /NOW GO 2178 003754 5324 JMP INTHAN+10 2179 / 2180 003755 0000 HSGET, 0 2181 003756 7240 CLA CMA 2182 003757 6002 IOF 2183 003760 3312 DCA DELCNT+2 2184 003761 2311 ISZ DELCNT+1 2185 003762 5370 JMP .+6 2186 / 2187 003763 6014 RFC 2188 003764 3312 DCA DELCNT+2 2189 003765 1267 TAD FIRST 2190 003766 6001 ION 2191 003767 5755 JMP I HSGET 2192 / 2193 003770 6011 RSF 2194 003771 5370 JMP .-1 2195 003772 6001 ION 2196 003773 5364 JMP .-7 2197 / 2198 003774 7402 HLT 2199 003775 7402 HLT 2200 / 2201 003776 7764 M14, 0-14 2202 003777 7566 M212, 0-212 2203 /PAUSE 2204 /MACRO COMPILER 2205 / 2206 /PAGE 4000 2207 *4000 2208 004000 0000 PUSH2, 0 2209 004001 3213 DCA PACK 2210 004002 1035 TAD Z PCON 2211 004003 7041 CIA 2212 004004 1060 TAD Z POINT 2213 004005 7700 SMA CLA 2214 004006 4515 JMS I Z MKROOM /TEST FOR SPACE 2215 004007 1213 TAD PACK /ROOM NOW 2216 004010 3460 DCA I Z POINT 2217 004011 2060 ISZ Z POINT 2218 004012 5600 JMP I PUSH2 /EXIT 2219 / 2220 004013 0000 PACK, 0 2221 004014 7000 NOP /NOP OR JMP RIGHT2 2222 / 2223 004015 7106 CLL RTL 2224 004016 7006 RTL 2225 004017 7006 RTL 2226 004020 3446 DCA I Z MACEND 2227 004021 1223 TAD .+2 2228 004022 5240 JMP XPACK 2229 / 2230 004023 5224 JMP RIGHT2 2231 / 2232 004024 3200 RIGHT2, DCA PUSH2 2233 004025 1446 TAD I Z MACEND 2234 004026 0377 AND CT7700 2235 004027 1200 TAD PUSH2 2236 004030 3446 DCA I Z MACEND 2237 004031 2046 ISZ Z MACEND 2238 004032 1046 TAD Z MACEND 2239 004033 7041 CIA 2240 004034 1027 TAD Z SEND 2241 004035 7710 SPA CLA 2242 004036 5642 JMP I .+4 2243 / 2244 004037 1177 TAD Z M1000 2245 004040 3214 XPACK, DCA PACK+1 2246 004041 5613 JMP I PACK 2247 / 2248 004042 2033 SYMEX 2249 / 2250 004043 4516 MACROD, JMS I Z IDX1 2251 004044 1047 TAD Z PASS 2252 004045 7710 SPA CLA 2253 004046 5365 JMP IGNORE 2254 / 2255 004047 1177 TAD Z M1000 2256 004050 3214 DCA PACK+1 2257 004051 7410 SKP 2258 / 2259 004052 4516 JMS I Z IDX1 2260 004053 3013 DCA Z TRUBL 2261 004054 4521 JMS I Z GETSY1 2262 / 2263 004055 5652 .-3-4000+SPACE /SPACE=5600 2264 004056 2060 .+2-4000+USYMB /USYMB=2000 2265 004057 7763 MACERR-4000+ALL /ALL=7600 2266 / 2267 004060 4360 JMS COUDBE 2268 004061 1046 TAD Z MACEND 2269 004062 3423 DCA I Z VADR 2270 004063 4530 JMS I Z TYPAD1 2271 / 2272 004064 0000 0 2273 / 2274 004065 3213 DCA PACK 2275 004066 1027 TAD Z SEND 2276 004067 3357 DCA SENTEM 2277 004070 7410 SKP 2278 / 2279 004071 4516 MAC3, JMS I Z IDX1 2280 004072 3013 DCA Z TRUBL 2281 004073 4521 JMS I Z GETSY1 2282 / 2283 004074 5671 MAC3-4000+SPACE /SPACE=5600 2284 004075 2101 MAC4-4000+USYMB /USYMB=2000 2285 004076 0271 MAC3-4000+SCOLON /SCOLON=0200 2286 004077 1311 MAC5-4000+LANG /LANG=1200 2287 004100 7763 MACERR-4000+ALL /ALL=7600 2288 / 2289 004101 4360 MAC4, JMS COUDBE 2290 004102 4530 JMS I Z TYPAD1 2291 004103 5000 5000 2292 004104 1213 TAD PACK 2293 004105 3423 DCA I Z VADR 2294 004106 2213 ISZ PACK 2295 004107 5272 JMP MAC3+1 2296 / 2297 004110 2056 SWITCH 2298 / 2299 004111 1356 MAC5, TAD CJMPHE 2300 004112 3710 DCA I .-2 2301 004113 1214 TAD PACK+1 2302 004114 3355 DCA CJMPHE-1 2303 004115 1046 TAD Z MACEND 2304 004116 3360 DCA COUDBE 2305 004117 4516 JMS I Z IDX1 2306 004120 1055 TAD Z CHARX 2307 004121 1171 TAD Z M33 2308 004122 7700 SMA CLA 2309 004123 5343 JMP BCKMAC 2310 / 2311 004124 4527 JMS I Z GETAS1 2312 004125 1022 TAD Z TYPE 2313 004126 1376 TAD M5000 2314 004127 7640 SZA CLA 2315 004130 5343 JMP BCKMAC 2316 / 2317 004131 1355 TAD CJMPHE-1 2318 004132 3214 DCA PACK+1 2319 004133 1360 TAD COUDBE 2320 004134 3046 DCA Z MACEND 2321 004135 1375 TAD CS77 2322 004136 4213 JMS PACK 2323 004137 1423 TAD I Z VADR 2324 004140 4213 JMS PACK 2325 004141 1056 TAD Z CHARX2 2326 004142 4213 JMS PACK 2327 004143 1062 BCKMAC, TAD Z ITEM 2328 004144 1374 TAD M276 2329 004145 7640 SZA CLA 2330 004146 5313 JMP MAC5+2 2331 / 2332 004147 2046 ISZ Z MACEND 2333 004150 1357 TAD SENTEM 2334 004151 3027 DCA Z SEND 2335 004152 1177 TAD Z M1000 2336 004153 3710 DCA I MAC5-1 2337 004154 5511 JMP I Z MAIN1 2338 / 2339 004155 0000 0 2340 004156 4753 CJMPHE, JMS I MSTOR1+2000 2341 004157 0000 SENTEM, 0 2342 / 2343 004160 0000 COUDBE, 0 2344 004161 2013 ISZ Z TRUBL 2345 004162 5760 JMP I COUDBE 2346 / 2347 004163 1373 MACERR, TAD C13 2348 004164 4506 JMS I Z ERR1 2349 004165 4772 IGNORE, JMS I .+5 2350 004166 1374 TAD M276 2351 004167 7640 SZA CLA 2352 004170 5365 JMP IGNORE 2353 / 2354 004171 5511 JMP I Z MAIN1 2355 / 2356 004172 2102 GETIN 2357 004173 0013 C13, 13 2358 004174 7502 M276, 0-276 2359 004175 0077 CS77, 77 2360 004176 3000 M5000, 0-5000 2361 004177 7700 CT7700, 7700 2362 /PAUSE 2363 /MACRO COMPILER 2364 / 2365 /PAGE 4200 2366 *4200 2367 004200 7240 MACREF, CLA CMA 2368 004201 1521 TAD I Z GETSY1 2369 004202 3344 DCA LATER-1 2370 004203 1177 TAD Z M1000 2371 004204 3657 DCA I EXIT2+4 2372 004205 1046 TAD Z MACEND 2373 004206 3345 DCA LATER 2374 004207 3346 DCA LATER+1 2375 004210 1747 TAD I LATER+2 2376 004211 3750 DCA I LATER+3 2377 004212 5236 JMP EXIT2-15 2378 / 2379 004213 1657 RTURN, TAD I EXIT2+4 2380 004214 3351 DCA PSWIT2 2381 004215 1046 TAD Z MACEND 2382 004216 3352 DCA MCTEM 2383 004217 4516 JMS I Z IDX1 2384 004220 1055 TAD Z CHARX 2385 004221 1357 TAD DEFPT+2 2386 004222 7450 SNA 2387 004223 5227 JMP .+4 /; OR CR 2388 / 2389 004224 1360 TAD DEFPT+3 2390 004225 7640 SZA CLA 2391 004226 5213 JMP RTURN 2392 / 2393 004227 2346 ISZ LATER+1 2394 004230 1351 TAD PSWIT2 2395 004231 3657 DCA I EXIT2+4 2396 004232 1352 TAD MCTEM 2397 004233 3046 DCA Z MACEND 2398 004234 1361 TAD DEFPT+4 2399 004235 4655 JMS I EXIT2+2 2400 004236 1056 TAD Z CHARX2 2401 004237 1357 TAD DEFPT+2 2402 004240 7640 SZA CLA 2403 004241 5213 JMP RTURN 2404 / 2405 004242 1177 TAD Z M1000 2406 004243 3750 DCA I LATER+3 2407 004244 3351 DCA PSWIT2 2408 004245 1025 TAD Z VAL 2409 004246 3753 DCA I WHERE2 2410 004247 1656 TAD I EXIT2+3 2411 004250 3660 DCA I EXIT2+5 2412 004251 1177 TAD Z M1000 2413 004252 3754 DCA I IDXMC 2414 004253 4516 EXIT2, JMS I Z IDX1 2415 004254 5744 JMP I LATER-1 2416 / 2417 004255 4013 PACK 2418 004256 2077 JMPOUT 2419 004257 4014 PACK+1 2420 004260 2044 IDX+1 2421 / 2422 004261 7240 ESCAPE, CLA CMA 2423 004262 1521 TAD I Z GETSY1 2424 004263 3344 DCA LATER-1 2425 004264 4532 JMS I Z RESTO1 2426 004265 1351 TAD PSWIT2 2427 004266 7640 SZA CLA 2428 004267 5326 JMP NDARGU 2429 / 2430 004270 2351 ISZ PSWIT2 2431 004271 4516 JMS I Z IDX1 2432 004272 7201 CLA IAC 2433 004273 1055 TAD Z CHARX 2434 004274 7041 CIA 2435 004275 3352 DCA MCTEM 2436 004276 1352 TAD MCTEM 2437 004277 1346 TAD LATER+1 2438 004300 7710 SPA CLA 2439 004301 5334 JMP FINIS-2 2440 / 2441 004302 1753 TAD I WHERE2 2442 004303 3355 DCA DEFPT 2443 004304 1754 TAD I IDXMC 2444 004305 3356 DCA DEFPT+1 2445 004306 1345 TAD LATER 2446 004307 3753 DCA I WHERE2 2447 004310 1177 TAD Z M1000 2448 004311 3754 DCA I IDXMC 2449 004312 2352 ISZ MCTEM 2450 004313 7410 SKP 2451 004314 5253 JMP EXIT2 2452 / 2453 004315 4516 JMS I Z IDX1 2454 004316 1055 TAD Z CHARX 2455 004317 7041 CIA 2456 004320 1361 TAD DEFPT+4 2457 004321 7640 SZA CLA 2458 004322 5315 JMP .-5 2459 / 2460 004323 2352 ISZ MCTEM 2461 004324 5315 JMP .-7 2462 / 2463 004325 5253 JMP EXIT2 2464 / 2465 004326 3351 NDARGU, DCA PSWIT2 2466 004327 1355 TAD DEFPT 2467 004330 3753 DCA I WHERE2 2468 004331 1356 TAD DEFPT+1 2469 004332 3754 DCA I IDXMC 2470 004333 5253 JMP EXIT2 2471 / 2472 004334 1362 TAD DEFPT+5 2473 004335 4506 JMS I Z ERR1 2474 004336 1345 FINIS, TAD LATER 2475 004337 3046 DCA Z MACEND 2476 004340 1177 TAD Z M1000 2477 004341 3660 DCA I EXIT2+5 2478 004342 5743 JMP I .+1 2479 / 2480 004343 1107 G 2481 004344 0000 0 2482 004345 0000 LATER, 0 2483 004346 0000 0 /PARAMETER COUNT 2484 004347 4156 CJMPHE 2485 004350 2056 SWITCH 2486 004351 0000 PSWIT2, 0 2487 004352 0000 MCTEM, 0 2488 004353 2102 WHERE2, GETIN 2489 004354 2061 IDXMC, IDXMAC 2490 004355 0000 DEFPT, 0 2491 004356 0000 0 2492 004357 7732 0-46 2493 004360 7756 0-22 2494 004361 0077 77 2495 004362 0011 11 2496 /PAUSE 2497 /MACRO COMPILER 2498 / 2499 /PAGE 4400 2500 *4400 2501 004400 0000 FINALL, 0 2502 004401 7240 CLA CMA 2503 004402 3312 DCA PRSW 2504 004403 4714 JMS I DPCV1 2505 004404 7200 CLA 2506 004405 1312 TAD PRSW 2507 004406 7650 SNA CLA 2508 004407 5217 JMP FK2 2509 / 2510 004410 1056 TAD Z CHARX2 2511 004411 1143 TAD Z M72 2512 004412 7640 SZA CLA 2513 004413 5220 JMP FK2+1 2514 / 2515 004414 3752 DCA I MSGN-1 2516 004415 3312 DCA PRSW 2517 004416 5715 JMP I DPCV1+1 2518 / 2519 004417 1752 FK2, TAD I MSGN-1 2520 004420 7041 CMA IAC 2521 004421 3313 DCA SEXP 2522 004422 1771 TAD I INDIC2 2523 004423 7640 SZA CLA 2524 004424 5274 JMP NOWNEG 2525 / 2526 004425 1377 TAD C27 2527 004426 3067 DCA Z BEXP 2528 004427 4317 JMS FLNR 2529 004430 1056 TAD Z CHARX2 2530 004431 1376 TAD M5 2531 004432 7640 SZA CLA 2532 004433 5263 JMP CVRT 2533 / 2534 004434 4516 JMS I Z IDX1 2535 004435 1772 TAD I SIGN2 2536 004436 3317 DCA FLNR 2537 004437 1070 TAD Z HIC 2538 004440 3351 DCA AMT 2539 004441 1071 TAD Z LWC 2540 004442 3312 DCA PRSW 2541 004443 4714 JMS I DPCV1 2542 004444 4353 JMS MSGN 2543 004445 1070 TAD Z HIC 2544 004446 7510 SPA 2545 004447 7040 CMA 2546 004450 7640 SZA CLA 2547 004451 5304 JMP EXTOO 2548 / 2549 004452 1071 TAD Z LWC 2550 004453 1313 TAD SEXP 2551 004454 3313 DCA SEXP 2552 004455 1317 TAD FLNR 2553 004456 3772 DCA I SIGN2 2554 004457 1351 TAD AMT 2555 004460 3070 DCA Z HIC 2556 004461 1312 TAD PRSW 2557 004462 3071 DCA Z LWC 2558 004463 1313 CVRT, TAD SEXP 2559 004464 7450 SNA 2560 004465 5274 JMP NOWNEG 2561 / 2562 004466 7700 SMA CLA 2563 004467 5276 JMP NOWNEG+2 2564 / 2565 004470 4716 JMS I DPCV1+2 2566 004471 4711 TEN+2 2567 004472 2313 ISZ SEXP 2568 004473 5263 JMP CVRT 2569 / 2570 004474 4353 NOWNEG, JMS MSGN 2571 004475 5600 JMP I FINALL 2572 / 2573 004476 4716 JMS I DPCV1+2 2574 / 2575 004477 4706 TEN-1 2576 / 2577 004500 7240 CLA CMA 2578 004501 1313 TAD SEXP 2579 004502 3313 DCA SEXP 2580 004503 5263 JMP CVRT 2581 / 2582 004504 1172 EXTOO, TAD Z C3777 2583 004505 3067 DCA Z BEXP 2584 004506 3071 DCA Z LWC 2585 004507 1375 TAD C2000 2586 004510 3070 DCA Z HIC 2587 004511 5600 JMP I FINALL 2588 / 2589 004512 0000 PRSW, 0 2590 004513 0000 SEXP, 0 2591 004514 2200 DPCV1, DPCV 2592 004515 2220 DPCS 2593 004516 4600 FLMY 2594 / 2595 004517 0000 FLNR, 0 /NORMALIZE FLOATING POINT 2596 004520 7300 CLA CLL 2597 004521 3351 DCA AMT 2598 004522 1070 TAD Z HIC 2599 004523 7640 SZA CLA 2600 004524 5330 JMP .+4 2601 / 2602 004525 1071 TAD Z LWC 2603 004526 7650 SNA CLA 2604 004527 5347 JMP EXPN+3 2605 / 2606 004530 1070 TAD Z HIC 2607 004531 7104 LOP, RAL CLL 2608 004532 7710 SPA CLA 2609 004533 5344 JMP EXPN 2610 / 2611 004534 1071 TAD Z LWC 2612 004535 7004 RAL 2613 004536 3071 DCA Z LWC 2614 004537 1070 TAD Z HIC 2615 004540 7004 RAL 2616 004541 3070 DCA Z HIC 2617 004542 2351 ISZ AMT 2618 004543 5330 JMP LOP-1 2619 / 2620 004544 1351 EXPN, TAD AMT 2621 004545 7041 CIA 2622 004546 1067 TAD Z BEXP 2623 004547 3067 DCA Z BEXP 2624 004550 5717 JMP I FLNR 2625 / 2626 004551 0000 AMT, 0 2627 004552 2316 RTDIG 2628 / 2629 004553 0000 MSGN, 0 2630 004554 7300 CLA CLL 2631 004555 1772 TAD I SIGN2 2632 004556 7700 SMA CLA 2633 004557 5753 JMP I MSGN 2634 / 2635 004560 1071 TAD Z LWC 2636 004561 7041 CMA IAC 2637 004562 3071 DCA Z LWC 2638 004563 1070 TAD Z HIC 2639 004564 7040 CMA 2640 004565 7430 SZL 2641 004566 7001 IAC 2642 004567 3070 DCA Z HIC 2643 004570 5753 JMP I MSGN 2644 / 2645 004571 4763 INDIC2, INDIC 2646 004572 2345 SIGN2, SIGN 2647 004573 7402 HLT 2648 004574 7402 HLT 2649 004575 2000 C2000, 2000 2650 004576 7773 M5, 0-5 2651 004577 0027 C27, 27 2652 /PAUSE 2653 /MACRO COMPILER 2654 / 2655 /PAGE 4600 2656 *4600 2657 004600 0000 FLMY, 0 2658 004601 1600 TAD I FLMY 2659 004602 3017 DCA Z AUT17 2660 004603 1417 TAD I Z AUT17 2661 004604 3257 DCA OP10 2662 004605 1417 TAD I Z AUT17 2663 004606 3260 DCA OP10+1 2664 004607 1417 TAD I Z AUT17 2665 004610 3261 DCA OP10+2 2666 004611 2200 ISZ FLMY 2667 004612 1257 TAD OP10 2668 004613 1067 TAD Z BEXP 2669 004614 7001 IAC 2670 004615 3067 DCA Z BEXP 2671 004616 7100 CLL 2672 004617 1070 TAD Z HIC 2673 004620 3064 DCA Z MP2 2674 004621 1261 TAD OP10+2 2675 004622 4262 JMS MP44 2676 004623 3315 DCA CC 2677 004624 1066 TAD Z MP5 2678 004625 3316 DCA CC+1 2679 004626 1260 TAD OP10+1 2680 004627 3064 DCA Z MP2 2681 004630 1071 TAD Z LWC 2682 004631 4262 JMS MP44 2683 004632 1315 TAD CC 2684 004633 3315 DCA CC 2685 004634 7004 RAL 2686 004635 1066 TAD Z MP5 2687 004636 1316 TAD CC+1 2688 004637 3316 DCA CC+1 2689 004640 7004 RAL 2690 004641 3317 DCA CC+2 2691 004642 1070 TAD Z HIC 2692 004643 3064 DCA Z MP2 2693 004644 1260 TAD OP10+1 2694 004645 4262 JMS MP44 2695 004646 1316 TAD CC+1 2696 004647 3071 DCA Z LWC 2697 004650 7004 RAL 2698 004651 1066 TAD Z MP5 2699 004652 1317 TAD CC+2 2700 004653 3070 DCA Z HIC 2701 004654 4656 JMS I .+2 2702 004655 5600 JMP I FLMY 2703 / 2704 004656 4517 FLNR 2705 004657 0000 OP10, 0 2706 004660 0000 0 2707 004661 0000 0 2708 / 2709 004662 0000 MP44, 0 2710 004663 3063 DCA Z MP1 2711 004664 3066 DCA Z MP5 2712 004665 1377 TAD C7764 2713 004666 3065 DCA Z MP3 2714 004667 1063 TAD Z MP1 2715 004670 7010 RAR 2716 004671 3063 DCA Z MP1 2717 004672 1066 TAD Z MP5 2718 004673 7420 SNL 2719 004674 5277 JMP .+3 2720 / 2721 004675 7100 CLL 2722 004676 1064 TAD Z MP2 2723 004677 7010 RAR 2724 004700 3066 DCA Z MP5 2725 004701 2065 ISZ Z MP3 2726 004702 5267 JMP MP44+5 2727 / 2728 004703 1063 TAD Z MP1 2729 004704 7010 RAR 2730 004705 7100 CLL 2731 004706 5662 JMP I MP44 2732 / 2733 004707 0004 TEN, 4 2734 004710 2400 2400 2735 004711 0000 0 2736 004712 7775 0-3 2737 004713 3146 3146 2738 004714 3146 3146 2739 004715 0000 CC, 0 2740 004716 0000 0 2741 004717 0000 0 2742 / 2743 004720 4347 FLOAT, JMS FRCDEC 2744 004721 3363 DCA INDIC 2745 004722 4733 JMS I DOUBLE-2 2746 004723 5734 JMP I DOUBLE-1 2747 / 2748 004724 1067 TAD Z BEXP 2749 004725 4764 JMS I ONERE1 2750 004726 1070 TAD Z HIC 2751 004727 4764 JMS I ONERE1 2752 004730 1071 TAD Z LWC 2753 004731 4764 JMS I ONERE1 2754 004732 5322 JMP FLOAT+2 2755 / 2756 004733 0705 DANDF 2757 004734 1430 MAINSE+1 2758 / 2759 004735 4347 DOUBLE, JMS FRCDEC 2760 004736 7240 CLA CMA 2761 004737 3363 DCA INDIC 2762 004740 4733 JMS I DOUBLE-2 2763 004741 5734 JMP I DOUBLE-1 2764 / 2765 004742 1070 TAD Z HIC 2766 004743 4764 JMS I ONERE1 2767 004744 1071 TAD Z LWC 2768 004745 4764 JMS I ONERE1 2769 004746 5340 JMP DOUBLE+3 2770 / 2771 004747 0000 FRCDEC, 0 2772 004750 1761 TAD I INDIC-2 2773 004751 3360 DCA INDIC-3 2774 004752 4762 JMS I INDIC-1 2775 004753 5747 JMP I FRCDEC 2776 / 2777 004754 0000 RET, 0 2778 004755 1360 TAD INDIC-3 2779 004756 3761 DCA I INDIC-2 2780 004757 5754 JMP I RET 2781 / 2782 004760 0000 0 2783 004761 2264 MTSW 2784 004762 2245 DECIMS 2785 004763 0000 INDIC, 0 2786 004764 1443 ONERE1, ONEREG 2787 004765 7402 HLT 2788 004766 7402 HLT 2789 004767 7402 HLT 2790 004770 7402 HLT 2791 004771 7402 HLT 2792 004772 7402 HLT 2793 004773 7402 HLT 2794 004774 7402 HLT 2795 004775 7402 HLT 2796 004776 7402 HLT 2797 / 2798 004777 7764 C7764, 7764 2799 /PAUSE 2800 /MACRO COMPILER 2801 / 2802 /PAGE 6117 2803 *6117 2804 006117 0000 BOT, 0 2805 006120 0170 170 /CIF 2806 006121 4336 4336 2807 006122 0000 0 2808 006123 6202 6202 2809 006124 0163 163 /CDF 2810 006125 4336 4336 2811 006126 0000 0 2812 006127 6201 6201 2813 006130 1243 1243 /RIB 2814 006131 4112 4112 2815 006132 0000 0 2816 006133 6234 6234 2817 006134 1247 1247 /RMF 2818 006135 4336 4336 2819 006136 0000 0 2820 006137 6201 6201 2821 *6214 2822 006214 0762 762 /MQA 2823 006215 4045 4045 2824 006216 0000 0 2825 006217 7501 7501 2826 006220 1302 1302 /SCA 2827 006221 4045 4045 2828 006222 0000 0 2829 006223 7441 7441 2830 006224 0762 762 /MQL 2831 006225 4674 4674 2832 006226 0000 0 2833 006227 7421 7421 2834 006230 0717 717 /LSR 2835 006231 5232 5232 2836 006232 0000 0 2837 006233 7417 7417 2838 006234 0070 70 /ASR 2839 006235 5232 5232 2840 006236 0000 0 2841 006237 7415 7415 2842 006240 1307 1307 /SHL 2843 006241 4674 4674 2844 006242 0000 0 2845 006243 7413 7413 2846 006244 1023 1023 /NMI 2847 006245 4515 4515 2848 006246 0000 0 2849 006247 7411 7411 2850 006250 0252 252 /DVI 2851 006251 4515 4515 2852 006252 0000 0 2853 006253 7407 7407 2854 006254 0766 766 /MUY 2855 006255 5635 5635 2856 006256 0000 0 2857 006257 7405 7405 2858 *6320 2859 006320 0051 51 /ADIC 2860 006321 4520 4520 2861 006322 0000 0 2862 006323 6544 6544 2863 006324 0051 51 /ADSC 2864 006325 5302 5302 2865 006326 0000 0 2866 006327 6542 6542 2867 006330 0051 51 /ADCC 2868 006331 4162 4162 2869 006332 0000 0 2870 006333 6541 6541 2871 006334 0051 51 /ADRB 2872 006335 5234 5234 2873 006336 0000 0 2874 006337 6534 6534 2875 006340 0051 51 /ADCV 2876 006341 4205 4205 2877 006342 0000 0 2878 006343 6532 6532 2879 006344 0051 51 /ADSF 2880 006345 5305 5305 2881 006346 0000 0 2882 006347 6531 6531 2883 006350 0174 174 /CMP 2884 006351 5120 5120 2885 006352 0000 0 2886 006353 6102 6102 2887 006354 1314 1314 /SMP 2888 006355 5120 5120 2889 006356 0000 0 2890 006357 6101 6101 2891 006360 0756 756 /MMML 2892 006361 4755 4755 2893 006362 0000 0 2894 006363 6766 6766 2895 006364 0756 756 /MMLC 2896 006365 4677 4677 2897 006366 0000 0 2898 006367 6766 6766 2899 006370 0756 756 /MMCC 2900 006371 4162 4162 2901 006372 0000 0 2902 006373 6762 6762 2903 006374 0756 756 /MMRS 2904 006375 5255 5255 2905 006376 0000 0 2906 006377 6774 6774 2907 /PAUSE 2908 /MACRO COMPILER 2909 / 2910 /PAGE 6400 2911 *6400 2912 006400 0756 756 /MMSC 2913 006401 5302 5302 2914 006402 0000 0 2915 006403 6771 6771 2916 006404 0756 756 /MMCF 2917 006405 4165 4165 2918 006406 0000 0 2919 006407 6772 6772 2920 006410 0756 756 /MMSF 2921 006411 5305 5305 2922 006412 0000 0 2923 006413 6761 6761 2924 006414 0756 756 /MMLF 2925 006415 4702 4702 2926 006416 0000 0 2927 006417 6754 6754 2928 006420 0756 756 /MMLM 2929 006421 4711 4711 2930 006422 0000 0 2931 006423 6752 6752 2932 006424 0756 756 /MMLS 2933 006425 4717 4717 2934 006426 0000 0 2935 006427 6751 6751 2936 006430 1236 1236 /RDM 2937 006431 4741 4741 2938 006432 0000 0 2939 006433 6122 6122 2940 006434 1300 1300 /SAF 2941 006435 4336 4336 2942 006436 0000 0 2943 006437 6124 6124 2944 006440 1331 1331 /SZO 2945 006441 5053 5053 2946 006442 0000 0 2947 006443 6114 6114 2948 006444 0235 235 /DIV 2949 006445 5456 5456 2950 006446 0000 0 2951 006447 6121 6121 2952 006450 0766 766 /MUL 2953 006451 4674 4674 2954 006452 0000 0 2955 006453 6111 6111 2956 006454 1236 1236 /RDA 2957 006455 4045 4045 2958 006456 0000 0 2959 006457 6112 6112 2960 006460 0711 711 /LMQ 2961 006461 5165 5165 2962 006462 0000 0 2963 006463 6102 6102 2964 006464 0675 675 /LAR 2965 006465 5232 5232 2966 006466 0000 0 2967 006467 6104 6104 2968 006470 0160 160 /CAM 2969 006471 4741 4741 2970 006472 0000 0 2971 006473 6101 6101 2972 006474 0756 756 /MMMF 2973 006475 4747 4747 2974 006476 0000 0 2975 006477 6756 6756 2976 006500 0756 756 /MMMM 2977 006501 4756 4756 2978 006502 0000 0 2979 006503 6757 6757 2980 006504 0744 744 /MCA 2981 006505 4045 4045 2982 006506 0000 0 2983 006507 6745 6745 2984 006510 0763 763 /MRCA 2985 006511 4160 4160 2986 006512 0000 0 2987 006513 6744 6744 2988 006514 0763 763 /MRWC 2989 006515 5526 5526 2990 006516 0000 0 2991 006517 6742 6742 2992 006520 0744 744 /MCC 2993 006521 4157 4157 2994 006522 0000 0 2995 006523 6741 6741 2996 006524 0765 765 /MTRS 2997 006525 5255 5255 2998 006526 0000 0 2999 006527 6734 6734 3000 006530 0752 752 /MIEF 3001 006531 4277 4277 3002 006532 0000 0 3003 006533 6732 6732 3004 006534 0746 746 /MEEF 3005 006535 4277 4277 3006 006536 0000 0 3007 006537 6732 6732 3008 006540 0744 744 /MCED 3009 006541 4275 4275 3010 006542 0000 0 3011 006543 6732 6732 3012 006544 0745 745 /MDEF 3013 006545 4277 4277 3014 006546 0000 0 3015 006547 6732 6732 3016 006550 0764 764 /MSEF 3017 006551 4277 4277 3018 006552 0000 0 3019 006553 6731 6731 3020 006554 0752 752 /MIWF 3021 006555 5531 5531 3022 006556 0000 0 3023 006557 6722 6722 3024 006560 0746 746 /MEWF 3025 006561 5531 5531 3026 006562 0000 0 3027 006563 6722 6722 3028 006564 0744 744 /MCWF 3029 006565 5531 5531 3030 006566 0000 0 3031 006567 6722 6722 3032 006570 0745 745 /MDWF 3033 006571 5531 5531 3034 006572 0000 0 3035 006573 6722 6722 3036 006574 0764 764 /MSWF 3037 006575 5531 5531 3038 006576 0000 0 3039 006577 6721 6721 3040 /PAUSE 3041 /MACRO COMPILER 3042 / 3043 /PAGE 6600 3044 *6600 3045 006600 0765 765 /MTC 3046 006601 4157 4157 3047 006602 0000 0 3048 006603 6716 6716 3049 006604 0757 757 /MNC 3050 006605 4157 4157 3051 006606 0000 0 3052 006607 6712 6712 3053 006610 0764 764 /MSUR 3054 006611 5433 5433 3055 006612 0000 0 3056 006613 6711 6711 3057 006614 0765 765 /MTS 3058 006615 5277 5277 3059 006616 0000 0 3060 006617 6706 6706 3061 006620 0744 744 /MCD 3062 006621 4224 4224 3063 006622 0000 0 3064 006623 6702 6702 3065 006624 0764 764 /MSCR 3066 006625 4201 4201 3067 006626 0000 0 3068 006627 6701 6701 3069 *6720 3070 006720 1134 1134 /PLPD 3071 006721 5124 5124 3072 006722 0000 0 3073 006723 6524 6524 3074 006724 1134 1134 /PLPL 3075 006725 5134 5134 3076 006726 0000 0 3077 006727 6521 6521 3078 006730 1134 1134 /PLUD 3079 006731 5415 5415 3080 006732 0000 0 3081 006733 6522 6522 3082 006734 1134 1134 /PLDD 3083 006735 4230 4230 3084 006736 0000 0 3085 006737 6514 6514 3086 006740 1134 1134 /PLDU 3087 006741 4251 4251 3088 006742 0000 0 3089 006743 6512 6512 3090 006744 1134 1134 /PLPR 3091 006745 5142 5142 3092 006746 0000 0 3093 006747 6511 6511 3094 006750 1134 1134 /PLPU 3095 006751 5145 5145 3096 006752 0000 0 3097 006753 6504 6504 3098 006754 1134 1134 /PLCF 3099 006755 4165 4165 3100 006756 0000 0 3101 006757 6502 6502 3102 006760 1134 1134 /PLSF 3103 006761 5305 5305 3104 006762 0000 0 3105 006763 6501 6501 3106 006764 0240 240 /DLB 3107 006765 4112 4112 3108 006766 0000 0 3109 006767 6074 6074 3110 006770 0227 227 /DCF 3111 006771 4336 4336 3112 006772 0000 0 3113 006773 6072 6072 3114 006774 0247 247 /DSF 3115 006775 4336 4336 3116 006776 0000 0 3117 006777 6071 6071 3118 /PAUSE 3119 /MACRO COMPILER 3120 / 3121 /PAGE 7000 3122 *7000 3123 007000 0255 255 /DYS 3124 007001 5277 5277 3125 007002 0000 0 3126 007003 6067 6067 3127 007004 0254 254 /DXS 3128 007005 5277 5277 3129 007006 0000 0 3130 007007 6057 6057 3131 007010 0235 235 /DIY 3132 007011 5635 5635 3133 007012 0000 0 3134 007013 6064 6064 3135 007014 0235 235 /DIX 3136 007015 5570 5570 3137 007016 0000 0 3138 007017 6054 6054 3139 007020 0255 255 /DYL 3140 007021 4674 4674 3141 007022 0000 0 3142 007023 6063 6063 3143 007024 0227 227 /DCY 3144 007025 5635 5635 3145 007026 0000 0 3146 007027 6061 6061 3147 007030 0254 254 /DXL 3148 007031 4674 4674 3149 007032 0000 0 3150 007033 6053 6053 3151 007034 0227 227 /DCX 3152 007035 5570 5570 3153 007036 0000 0 3154 007037 6051 6051 3155 007040 0354 354 /FNOR 3156 007041 5075 5075 3157 007042 0000 0 3158 007043 7000 7000 3159 007044 0356 356 /FPUT 3160 007045 5435 5435 3161 007046 0000 0 3162 007047 6000 6000 3163 007050 0345 345 /FGET 3164 007051 4315 4315 3165 007052 0000 0 3166 007053 5000 5000 3167 007054 0342 342 /FDIV 3168 007055 4543 4543 3169 007056 0000 0 3170 007057 4000 4000 3171 007060 0353 353 /FMPY 3172 007061 5151 5151 3173 007062 0000 0 3174 007063 3000 3000 3175 007064 0361 361 /FSUB 3176 007065 5413 5413 3177 007066 0000 0 3178 007067 2000 2000 3179 007070 0337 337 /FADD 3180 007071 4230 4230 3181 007072 0000 0 3182 007073 1000 1000 3183 007074 0343 343 /FEXT 3184 007075 5614 5614 3185 007076 0000 0 3186 007077 0000 0 3187 007100 1360 1360 /TLS 3188 007101 5277 5277 3189 007102 0000 0 3190 007103 6046 6046 3191 007104 1364 1364 /TPC 3192 007105 4157 4157 3193 007106 0000 0 3194 007107 6044 6044 3195 007110 1347 1347 /TCF 3196 007111 4336 4336 3197 007112 0000 0 3198 007113 6042 6042 3199 007114 1367 1367 /TSF 3200 007115 4336 4336 3201 007116 0000 0 3202 007117 6041 6041 3203 007120 0651 651 /KRB 3204 007121 4112 4112 3205 007122 0000 0 3206 007123 6036 6036 3207 007124 0651 651 /KRS 3208 007125 5277 5277 3209 007126 0000 0 3210 007127 6034 6034 3211 007130 0632 632 /KCC 3212 007131 4157 4157 3213 007132 0000 0 3214 007133 6032 6032 3215 007134 0652 652 /KSF 3216 007135 4336 4336 3217 007136 0000 0 3218 007137 6031 6031 3219 007140 1134 1134 /PLS 3220 007141 5277 5277 3221 007142 0000 0 3222 007143 6026 6026 3223 007144 1140 1140 /PPC 3224 007145 4157 4157 3225 007146 0000 0 3226 007147 6024 6024 3227 007150 1123 1123 /PCF 3228 007151 4336 4336 3229 007152 0000 0 3230 007153 6022 6022 3231 007154 1143 1143 /PSF 3232 007155 4336 4336 3233 007156 0000 0 3234 007157 6021 6021 3235 007160 1240 1240 /RFC 3236 007161 4157 4157 3237 007162 0000 0 3238 007163 6014 6014 3239 007164 1254 1254 /RRB 3240 007165 4112 4112 3241 007166 0000 0 3242 007167 6012 6012 3243 007170 1255 1255 /RSF 3244 007171 4336 4336 3245 007172 0000 0 3246 007173 6011 6011 3247 007174 0051 51 /ADC 3248 007175 4157 4157 3249 007176 0000 0 3250 007177 6004 6004 3251 /PAUSE 3252 /MACRO COMPILER 3253 / 3254 /PAGE 7200 3255 *7200 3256 007200 0534 534 /IOF 3257 007201 4336 4336 3258 007202 0000 0 3259 007203 6002 6002 3260 007204 0534 534 /ION 3261 007205 5006 5006 3262 007206 0000 0 3263 007207 6001 6001 3264 007210 0417 417 /GLK 3265 007211 4627 4627 3266 007212 0000 0 3267 007213 7204 7204 3268 007214 1323 1323 /STL 3269 007215 4674 4674 3270 007216 0000 0 3271 007217 7120 7120 3272 007220 1323 1323 /STA 3273 007221 4045 4045 3274 007222 0000 0 3275 007223 7240 7240 3276 007224 0675 675 /LAS 3277 007225 5277 5277 3278 007226 0000 0 3279 007227 7604 7604 3280 007230 0170 170 /CIA 3281 007231 4045 4045 3282 007232 0000 0 3283 007233 7041 7041 3284 007234 0464 464 /HLT 3285 007235 5344 5344 3286 007236 0000 0 3287 007237 7402 7402 3288 007240 1076 1076 /OSR 3289 007241 5232 5232 3290 007242 0000 0 3291 007243 7404 7404 3292 007244 1312 1312 /SKP 3293 007245 5120 5120 3294 007246 0000 0 3295 007247 7410 7410 3296 007250 1331 1331 /SZL 3297 007251 4674 4674 3298 007252 0000 0 3299 007253 7430 7430 3300 007254 1315 1315 /SNL 3301 007255 4674 4674 3302 007256 0000 0 3303 007257 7420 7420 3304 007260 1315 1315 /SNA 3305 007261 4045 4045 3306 007262 0000 0 3307 007263 7450 7450 3308 007264 1317 1317 /SPA 3309 007265 4045 4045 3310 007266 0000 0 3311 007267 7510 7510 3312 007270 1331 1331 /SZA 3313 007271 4045 4045 3314 007272 0000 0 3315 007273 7440 7440 3316 007274 1314 1314 /SMA 3317 007275 4045 4045 3318 007276 0000 0 3319 007277 7500 7500 3320 007300 0516 516 /IAC 3321 007301 4157 4157 3322 007302 0000 0 3323 007303 7001 7001 3324 007304 1256 1256 /RTL 3325 007305 4674 4674 3326 007306 0000 0 3327 007307 7006 7006 3328 007310 1233 1233 /RAL 3329 007311 4674 4674 3330 007312 0000 0 3331 007313 7004 7004 3332 007314 1256 1256 /RTR 3333 007315 5232 5232 3334 007316 0000 0 3335 007317 7012 7012 3336 007320 1233 1233 /RAR 3337 007321 5232 5232 3338 007322 0000 0 3339 007323 7010 7010 3340 007324 0174 174 /CML 3341 007325 4674 4674 3342 007326 0000 0 3343 007327 7020 7020 3344 007330 0174 174 /CMA 3345 007331 4045 4045 3346 007332 0000 0 3347 007333 7040 7040 3348 007334 0173 173 /CLL 3349 007335 4674 4674 3350 007336 0000 0 3351 007337 7100 7100 3352 007340 0173 173 /CLA 3353 007341 4045 4045 3354 007342 0000 0 3355 007343 7200 7200 3356 007344 1025 1025 /NOP 3357 007345 5120 5120 3358 007346 0000 0 3359 007347 7000 7000 3360 007350 1073 1073 /OPR 3361 007351 5232 5232 3362 007352 0000 0 3363 007353 7000 7000 3364 007354 0534 534 /IOT 3365 007355 5344 5344 3366 007356 0000 0 3367 007357 6000 6000 3368 007360 0577 577 /JMP 3369 007361 5120 5120 3370 007362 0000 0 3371 007363 5000 5000 3372 007364 0577 577 /JMS 3373 007365 5277 5277 3374 007366 0000 0 3375 007367 4000 4000 3376 007370 0227 227 /DCA 3377 007371 4045 4045 3378 007372 0000 0 3379 007373 3000 3000 3380 007374 0540 540 /ISZ 3381 007375 5702 5702 3382 007376 0000 0 3383 007377 2000 2000 3384 /PAUSE 3385 /MACRO COMPILER 3386 / 3387 /PAGE 7400 3388 *7400 3389 007400 1345 1345 /TAD 3390 007401 4224 4224 3391 007402 0000 0 3392 007403 1000 1000 3393 007404 0063 63 /AND 3394 007405 4224 4224 3395 007406 0000 0 3396 007407 0000 0 3397 / 3398 007410 2000 2000 /QUOTE 3399 007411 4000 4000 3400 007412 0056 56 3401 007413 2400 2400 3402 007414 2000 2000 /AMPERSAND 3403 007415 4000 4000 3404 007416 0062 62 3405 007417 3400 3400 3406 007420 4251 4251 /DUBL 3407 007421 0126 0126 3408 007422 0000 0 3409 007423 4735 4735 3410 007424 4352 4352 /FLTG 3411 007425 1353 1353 3412 007426 0000 0 3413 007427 4720 4720 3414 007430 5056 5056 /OCTAL 3415 007431 1345 1345 3416 007432 0674 0674 3417 007433 2243 2243 3418 007434 4231 4231 /DECIMAL 3419 007435 0170 0170 3420 007436 0742 0742 3421 007437 2241 2241 3422 007440 5351 5351 /TEXT 3423 007441 1614 1614 3424 007442 0000 0 3425 007443 1727 1727 3426 007444 4000 4000 /DOLLAR 3427 007445 0000 0 3428 007446 0060 60 3429 007447 2320 2320 3430 007450 4231 4231 /DEFINE 3431 007451 0347 0347 3432 007452 1013 1013 3433 007453 4043 4043 3434 007454 4347 4347 /FIXTAB 3435 007455 1614 1614 3436 007456 0047 47 3437 007457 0554 554 3438 007460 4321 4321 /EXPUNG 3439 007461 1145 1145 3440 007462 1015 1015 3441 007463 0556 556 3442 007464 5121 5121 /PAUSE 3443 007465 1434 1434 3444 007466 0271 0271 3445 007467 1755 1755 3446 007470 5121 5121 /PAGE 3447 007471 0410 410 3448 007472 0000 0 3449 007473 0610 610 3450 007474 4347 4347 /FIELD 3451 007475 0305 305 3452 007476 0224 224 3453 007477 2154 2154 3454 007500 4000 4000 /> 3455 007501 0000 0 3456 007502 0051 51 3457 007503 4336 4336 3458 007504 4000 4000 /ESCAPE 3459 007505 0000 0 3460 007506 0077 77 3461 007507 4261 4261 3462 007510 2000 2000 /< 3463 007511 4000 4000 3464 007512 0047 47 3465 007513 1200 1200 3466 007514 2000 2000 /; 3467 007515 4000 4000 3468 007516 0046 46 3469 007517 0200 200 3470 007520 4000 4000 /E 3471 007521 0000 0 3472 007522 0074 74 3473 007523 1174 1174 3474 007524 4000 4000 /( 3475 007525 0000 0 3476 007526 0064 64 3477 007527 1174 1174 3478 007530 2000 2000 /! 3479 007531 4000 4000 3480 007532 0055 55 3481 007533 2200 2200 3482 007534 4000 4000 /* 3483 007535 0000 0 3484 007536 0066 66 3485 007537 1355 1355 3486 007540 4000 4000 /.,POINT 3487 007541 0000 0 3488 007542 0072 72 3489 007543 0641 641 3490 007544 2000 2000 /, ,COMMA 3491 007545 4000 4000 3492 007546 0070 70 3493 007547 0600 600 3494 007550 2000 2000 /= 3495 007551 4000 4000 3496 007552 0050 50 3497 007553 1400 1400 3498 007554 5702 5702 /Z 3499 007555 0000 0 3500 007556 0000 0 3501 007557 1022 1022 3502 007560 4515 4515 /I 3503 007561 0000 0 3504 007562 0000 0 3505 007563 1071 1071 3506 007564 2000 2000 /- 3507 007565 4000 4000 3508 007566 0071 71 3509 007567 5200 5200 3510 007570 2000 2000 /+ 3511 007571 4000 4000 3512 007572 0067 67 3513 007573 4600 4600 3514 007574 2000 2000 /SPACE 3515 007575 4000 4000 3516 007576 0054 54 3517 007577 5600 5600 3518 /PAUSE 3519 3520 $ A 1021 A1W 1315 AADR 0030 AAS 1334 ADR 0040 ADRB 6541 AEND 2436 ALL 7600 ALPHA 2411 AMT 4551 ANDS 3400 ANY 0021 ANYY 0727 APAGE 0031 AUT16 0016 AUT17 0017 AWAY 1243 B 1075 B1 1037 B11 0522 B2 1044 B21 0114 BASSEM 1664 BCKMAC 4143 BEXP 0067 BINOUT 0104 BIT6 1600 BON 1651 BOT 6117 C 1053 C10 0167 C100 3176 C1000 0175 C12 0144 C13 4173 C177 0165 C1777 0173 C200 0163 C2000 4575 C212 2776 C215 2777 C240 1767 C260 2773 C27 4577 C3 0146 C364 0153 C3777 0172 C4 0161 C40 3311 C400 0162 C4000 0166 C46 1770 C5 0160 C53 2774 C6 0157 C600 0156 C6000 0176 C7 0145 C7600 0164 C77 3177 C7700 1766 C7764 4777 CBUFE 0100 CC 4715 CC100 3312 CC53 3314 CC77 3313 CCON 0045 CERR 0312 CHARAC 0075 CHARX 0055 CHARX2 0056 CHIGH 2471 CJMP1 1573 CJMPHE 4156 CKSUM 0010 CKUN 3302 CLIT 0057 COMMA 0600 COMMEN 2112 CON 0037 CONC 0204 CONC1 0124 COND 0236 CONE 0261 CONP 0354 CONZ 0317 CONZ1 0105 CORIGT 2514 COUDBE 4160 CRIOR 1167 CS77 4175 CT300 2174 CT77 2176 CT7700 4177 CURADD 0012 CURR 0054 CURREN 0333 CVRT 4463 CWORK 2455 CZ77 1765 DANDF 0705 DCF 6074 DECIM 2241 unreferenced DECIMS 2245 DECOUT 0004 DEFIN1 0122 DEFPT 4355 DELCNT 3710 DISMS 3745 DOUBLE 4735 DPCS 2220 DPCV 2200 DPCV1 4514 DPN 2346 DV2 2666 DV3 2656 EMPTY 3636 ENDOP 2320 unreferenced ENDSTR 1760 ENTS 2000 ENTS1 0107 EQU 1152 EQUALS 1400 ERASE 0556 unreferenced ERONE 1150 ERR1 0106 ERR7 2352 ERROR 3201 ESCAPE 4261 unreferenced EVAL 0043 EXCLAM 2200 EXIT2 4253 EXMEM 2154 unreferenced EXPN 4544 EXPR 1000 EXPR1 0110 EXTOO 4504 FIN 7577 FINAL 0725 FINALL 4400 FIND 0323 FIND2 0137 FINEND 0076 FINIS 4336 FINUP 3247 FIRST 3667 FIXED 0554 unreferenced FK2 4417 FLMY 4600 FLNR 4517 FLOAT 4720 FOUND 2476 FRCDEC 4747 G 1107 GET 1104 GETAD1 0123 GETADR 1200 GETAS1 0127 GETASY 3262 GETIN 2102 GETLET 0527 GETPAG 1504 GETSY1 0121 GETSYM 0471 GETYPE 0357 GSTART 0536 GTYPE 0564 H 1071 HIC 0070 HIGH 2400 HSGET 3755 IDX 2043 IDX1 0116 IDXMAC 2061 IDXMC 4354 IGNORE 4165 II 1252 IN 0061 IND 0041 IND1 0456 INDIC 4763 INDIC2 4571 INITL 2326 INST 0073 INTHAN 3714 ITEM 0062 J 1064 JMPOUT 2077 LANG 1200 LATER 4345 LDT 1276 LEAVE 1240 LIST 3331 LIST1 0126 LITBUF 2732 LOP 4531 LSTSYM 3601 LT 3125 LT2 3655 LWC 0071 M1 0151 M1000 0177 M11 1777 M12 0170 M14 3776 M162 1775 M164 1771 M2 0150 M211 1776 M212 3777 M215 2175 M240 0152 M257 2177 M260 1774 M276 4174 M3 0174 M301 0147 M33 0171 M333 1773 M40 1577 M400 2376 M41 1772 M45 0154 M5 4576 M5000 4176 M64 0155 M67 2377 M7 0142 M72 0143 MAC3 4071 MAC4 4101 MAC5 4111 MACBOT 0020 MACEND 0046 MACERR 4163 MACREF 4200 MACROD 4043 unreferenced MAIN 1400 MAIN1 0111 MAINEX 0102 MAINSE 1427 MCTEM 4352 MICRO 0074 MINUS 5200 MKERM 1131 MKROOM 0115 MMCF 6771 MN14 2775 MN4 2772 MOVE 2552 MOVE1 0376 MP1 0063 MP2 0064 MP3 0065 MP44 4662 MP5 0066 MSGN 4553 MSTOR1 2153 MT10 2255 MTAD 2304 MTD6 2347 MTRL 2273 MTS 6711 MTSW 2264 NDARGU 4326 NONO 0222 NOW3 0011 NOWNEG 4474 NTAB 2501 NTEM 2524 NUCON 3123 NUPAGE 1375 OCT 2243 unreferenced OCTS 2251 OCTS1 1550 ONERE1 4764 ONEREG 1443 OP10 4657 OPASS 3141 OPS 2712 ORGIC 1355 unreferenced ORIGT 2403 OSANDV 2610 OSYM 2621 OX 2645 PACK 4013 PAGE1 0112 PAGEC 0610 unreferenced PAGEM 0627 PAGEX 0634 PAGHER 0621 PASS 0047 PASS1 1402 PASS1P 1424 PASS2 1563 PASS3 1557 PCON 0035 PERIOD 0641 unreferenced PERMA 0042 PLCF 6504 PLUS 4600 POINT 0060 POPU1 0120 POPUP1 1347 PRSW 4512 PSWIT2 4351 PUN 3023 PUNCHK 3041 PUNCON 3054 PUNON1 0134 PUNONE 3000 PUNOR1 0133 PUNORG 3017 PUSH1 0117 PUSH2 4000 QUOTES 2400 RADD 0350 RAND 1712 REPUN 2135 RESET 0676 RESET1 0113 RESTO1 0132 RESTOR 2143 RET 4754 RIGHT 2072 RIGHT2 4024 RIOR 1716 RSUB 2640 RTD16 2316 RTDIG 2316 RTURN 4213 SADR 0024 SAVE 2125 SAVE1 0131 SCOLON 0200 SEAR1 0125 SEARCH 0400 SEND 0027 SENDP 2120 SENTEM 4157 SETORG 1513 SEXP 4513 SGN 0044 SIGN 2345 SIGN2 4572 SKIP 0103 SKIP2 1703 SPACE 5600 SPECIA 0506 STAB 0026 STRING 1727 STUP 0135 STUP2 0136 SWITCH 2056 SYMB 1000 SYMEX 2033 SYMLST 0101 TABLE 3315 TEM1 0032 TEM1A 0050 TEM2 0033 TEM3 0034 TEN 4707 TIC 2350 TOP 7407 TPINST 0740 TRIPLE 2527 TRUBL 0013 TSTPAS 1675 TYCAR 2632 TYPAD1 0130 TYPADD 0645 TYPE 0022 TYPO 2600 TYPO2 0600 UNDERR 2367 UNPUN 3035 UNTRAN 2700 USYMB 2000 VADR 0023 VADR1 0072 VAL 0025 VAL1A 0053 WAITT 1755 unreferenced WHERE2 4353 WORK 2406 XPACK 4040 ZBUFE 0077 ZCON 0036 ZEROT 2572 ZUNCON 3103