DEBUG IDENT DEBUG DEBUG 1 TITLE DEBUGGING PACKAGE DEBUG 2 PAGELIM MICRO 1,,*200* DEBUG 3 TITLE SNAPSHOT DUMP PROGRAM DEBUG 4 * TIMING INFORMATION: 10 MILLISECONDS PER DUMP DEBUG 5 ENTRY SNAP DEBUG 6 OCTBCD MACRO XI DEBUG 7 LOCAL LOOP,DONE DEBUG 8 BX1 XI DEBUG 9 SX6 B0 DEBUG 10 SX7 B0 DEBUG 11 SB2 10 DEBUG 12 MX0 57 DEBUG 13 LOOP LX1 3 DEBUG 14 SB2 B2-B1 DEBUG 15 BX2 -X0*X1 DEBUG 16 LX7 6 DEBUG 17 SX2 X2+1R0 DEBUG 18 BX7 X7+X2 DEBUG 19 NZ B2,LOOP DEBUG 20 NZ X6,DONE DEBUG 21 BX6 X7 DEBUG 22 SB2 10 DEBUG 23 SX7 B0 DEBUG 24 EQ LOOP DEBUG 25 DONE BSS 0 DEBUG 26 ENDM DEBUG 27 TITLE REGISTER DUMP SECTION DEBUG 28 SNAPRET SA1 INP DEBUG 29 SA2 OUTP DEBUG 30 SA3 FIRSTP DEBUG 31 SA4 LIMITP DEBUG 32 SA1 X1 DEBUG 33 SA2 X2 DEBUG 34 SA3 X3 DEBUG 35 SA4 X4 DEBUG 36 IX5 X1-X2 AMMOUNT IN BUFFER DEBUG 37 IX0 X4-X3 BUFFER SIZE DEBUG 38 + PL X5,*+1 DEBUG 39 IX5 X0-X5 COMPENSATE FOR WRAP ROUND DEBUG 40 + AX0 1 DEBUG 41 IX5 X5-X0 CHECK IF OVER HALF FILLED DEBUG 42 NG X5,SNAPQ DEBUG 43 SA1 STATUSP DEBUG 44 SA1 X1 DEBUG 45 LX1 59 DEBUG 46 PL X1,SNAPQ DEBUG 47 SA2 FILENAM DEBUG 48 SX6 14B WRITE OPCODE DEBUG 49 BX6 X2+X6 DEBUG 50 SA6 A1 DEBUG 51 SA2 WRITE+1 DEBUG 52 BX6 X2 DEBUG 53 + SA1 B1 DEBUG 54 NZ X1,* DEBUG 55 SA6 A1 DEBUG 56 + SA1 1 WAIT FOR RA+1 TO CLEAR DEBUG 57 NZ X1,* DEBUG 58 SNAPQ RJ RESTORE DEBUG 59 SNAP BSSZ 1 DEBUG 60 RJ SAVEREG DEBUG 61 * FIND OUTPUT FILE DEBUG 62 RJ GETFET DEBUG 63 SA1 REGI DEBUG 64 BX6 X1 DEBUG 65 SA6 SNAPQ DEBUG 66 SNAPY SA1 SNAP DEBUG 67 LX1 30 DEBUG 68 SB3 B0 REGISTER NUMBER DEBUG 69 SB4 B0 OUTPUT WORD DEBUG 70 SA2 X1-1 GET REQUEST OWRD DEBUG 71 SB1 B2 SET B1 TO 1 DEBUG 72 MX0 36 DEBUG 73 BX4 -X0*X2 GET BITS DEBUG 74 MX0 6 DEBUG 75 LX0 30 DEBUG 76 BX6 X0*X2 DEBUG 77 AX6 24 DEBUG 78 SA6 NUMBLK DEBUG 79 SX6 B0 DEBUG 80 SA6 LINE+1 DEBUG 81 DUP 12,1 DEBUG 82 SA6 A6+B1 DEBUG 83 ZR X4,SNAPB SENSE NO INPUT DEBUG 84 LX4 36 POSITON FIRST BIT DEBUG 85 SNAPL PL X4,SNAPI DEBUG 86 SA1 PR+B3 GET REGISTER TO BE CONVERTED DEBUG 87 OCTBCD X1 DEBUG 88 SA2 STBL+B3 GET TABLE DEBUG 89 SX5 B0 DEBUG 90 MX3 6 DEBUG 91 SHIFTPL SX2 X2-10 DEBUG 92 NG X2,SHIFTPLA DEBUG 93 SA1 =10H DEBUG 94 BX5 X6 DEBUG 95 BX6 X7 DEBUG 96 BX7 X1 DEBUG 97 EQ SHIFTPL DEBUG 98 SHIFTPLA SB2 X2+10 DEBUG 99 ZR B2,SHIFTD DEBUG 100 SHIFTL SX1 1R DEBUG 101 BX2 X3*X7 DEBUG 102 BX7 -X3*X7 DEBUG 103 LX7 6 DEBUG 104 IX7 X7+X1 DEBUG 105 LX2 6 DEBUG 106 BX1 X3*X6 DEBUG 107 BX6 -X3*X6 DEBUG 108 LX6 6 DEBUG 109 IX6 X6+X2 DEBUG 110 LX1 6 DEBUG 111 BX5 -X3*X5 DEBUG 112 LX5 6 DEBUG 113 IX5 X5+X1 DEBUG 114 SB2 B2-B1 DEBUG 115 NZ B2,SHIFTL DEBUG 116 SHIFTD SA1 STBL+B3 GET TABLE DEBUG 117 MX2 18 DEBUG 118 BX5 -X2*X5 DEBUG 119 BX3 X2*X1 DEBUG 120 BX5 X5+X3 DEBUG 121 SB2 16 DEBUG 122 LT B2,B3,STB DEBUG 123 SB2 12 DEBUG 124 NE B4,B2,OKA DEBUG 125 SB4 B0 DEBUG 126 RJ PRINTL DEBUG 127 OKA BX6 X5 DEBUG 128 SA6 1+LINE+B4 DEBUG 129 SB4 B4+B1 DEBUG 130 EQ SNAPI DEBUG 131 STB SB2 10 DEBUG 132 LT B4,B2,OKB DEBUG 133 SB4 B0 DEBUG 134 RJ PRINTL DEBUG 135 OKB SA7 1+LINE+2+B4 DEBUG 136 SA6 1+LINE+1+B4 DEBUG 137 BX7 X5 DEBUG 138 SA7 1+LINE+B4 DEBUG 139 SB4 B4+3 DEBUG 140 SNAPI SB3 B3+B1 DEBUG 141 LX4 1 DEBUG 142 SB2 25 DEBUG 143 NE B3,B1,CONC DEBUG 144 SB3 B3+B1 DEBUG 145 CONC NE B3,B2,SNAPL DEBUG 146 RJ PRINTL PRINT LAST LINE DEBUG 147 EQ SNAPB DEBUG 148 GETFET DATA 0 DEBUG 149 SA1 FILENAM+2 DEBUG 150 ZR X1,CREFET DEBUG 151 MX2 42 DEBUG 152 SA5 FILENAM DEBUG 153 SA1 2 DEBUG 154 GETFETL SX3 X1 DEBUG 155 ZR X3,CREFET NO OUTPUT FILE FOUND DEBUG 156 BX3 X2*X1 DEBUG 157 BX3 X3-X5 DEBUG 158 ZR X3,FOUND DEBUG 159 GETFETX SA1 A1+1 DEBUG 160 SX3 A1-62 DEBUG 161 NG X3,GETFETL DEBUG 162 CREFET SX6 IN DEBUG 163 SX7 OUT DEBUG 164 SA6 INP DEBUG 165 SA7 OUTP DEBUG 166 SX6 FIRST DEBUG 167 SX7 LIMIT DEBUG 168 SA6 FIRSTP DEBUG 169 SA7 LIMITP DEBUG 170 SX6 STATUS DEBUG 171 SSTATUS SA6 STATUSP DEBUG 172 SA1 WRITE DEBUG 173 MX2 42 DEBUG 174 BX1 X2*X1 DEBUG 175 BX7 X6+X1 DEBUG 176 SA7 A1 DEBUG 177 SA1 A1+1 DEBUG 178 BX1 X2*X1 DEBUG 179 BX7 X1+X6 DEBUG 180 SA7 A1 DEBUG 181 EQ GETFET DEBUG 182 FOUND SA3 X1 DEBUG 183 BX3 X3*X2 DEBUG 184 BX3 X3-X5 DEBUG 185 NZ X3,GETFETX DEBUG 186 SX6 X1+1 DEBUG 187 SX7 X1+2 DEBUG 188 SA6 FIRSTP DEBUG 189 SA7 INP DEBUG 190 SX6 X1+3 DEBUG 191 SX7 X1+4 DEBUG 192 SA6 OUTP DEBUG 193 SA7 LIMITP DEBUG 194 SX6 X1 DEBUG 195 SA1 X6+1 GET FIRST DEBUG 196 SA2 X6+4 GET LIMIT DEBUG 197 IX1 X2-X1 DEBUG 198 SX1 X1-78 DEBUG 199 PL X1,SSTATUS DEBUG 200 + SA1 1 DEBUG 201 NZ X1,* DEBUG 202 SA2 FILENAM DEBUG 203 SA3 TOOSMALL DEBUG 204 BX6 X2 DEBUG 205 LX7 X3 DEBUG 206 SA6 FNAME DEBUG 207 SA7 A1 DEBUG 208 SX6 3RABT DEBUG 209 LX6 42 DEBUG 210 + SA1 1 DEBUG 211 NZ X1,* DEBUG 212 SA6 A1 DEBUG 213 VFD 45/0 DEBUG 214 TOOSMALL VFD 18/3HMSG,2/1,40/*+1 DEBUG 215 VFD 30/*+1,30/0 DEBUG 216 DIS 5,DEBUG EXTERNAL BUFFER LT 78 WORDS. FILE = DEBUG 217 FNAME DATA 0 DEBUG 218 TITLE PRINT ONE LINE SUBROUTINE DEBUG 219 PRINTL BSSZ 1 DEBUG 220 SA7 TEMP MAY USE X0,X1,X2,X3,B2,B5,B6,B7 DEBUG 221 SA6 A7+B1 DEBUG 222 PRINTLA SA1 INP AND NOW X6 AND X7 DEBUG 223 SA2 OUTP DEBUG 224 SA3 FIRSTP DEBUG 225 SA1 X1 DEBUG 226 SA2 X2 DEBUG 227 SA3 X3 DEBUG 228 SB5 X1 B5=IN DEBUG 229 SB6 X2 B6=OUT DEBUG 230 SA1 LIMITP DEBUG 231 SA1 X1 DEBUG 232 SB2 X3 B2=FIRST DEBUG 233 SB7 X1 B7=LIMIT DEBUG 234 SX0 B0 X0=LINE WORD OUNT DEBUG 235 SX1 B5-B6 SPACE IN BUFFER DEBUG 236 + NG X1,*+1 CHECK IF NOT WRAPPED AROUND DEBUG 237 SX2 B7-B2 DEBUG 238 IX1 X1-X2 COMPENSATE FOR NO WRAP AROUND DEBUG 239 SX2 X1+15 CHECK IF SAPACE REMAINING IS GT 15 DEBUG 240 SX7 B0 DEBUG 241 NG X2,GO DEBUG 242 SA1 STATUSP CHECK IF FILE IS NOW BUSY DEBUG 243 SA1 X1 DEBUG 244 LX1 59 IF SO JUST WAIT TIL THERE IS ROOM DEBUG 245 PL X1,WAIT DEBUG 246 SA1 WRITE GET CIO REQUEST DEBUG 247 SA2 FILENAM GET FILE NAME DEBUG 248 SX7 14B WRITE OP CODE DEBUG 249 BX6 X1 DEBUG 250 BX7 X7+X2 DEBUG 251 SA1 STATUSP DEBUG 252 SA7 X1 NEW OP CODE IN FET DEBUG 253 + SA1 B1 WAIT FOR RA+1 DEBUG 254 NZ X1,* DEBUG 255 SA6 A1 DEBUG 256 WAITR SA1 1 WAIT FOR RA+1 TO CLEAR DEBUG 257 NZ X1,* DEBUG 258 EQ PRINTLA DEBUG 259 WAIT SA1 1 DEBUG 260 NZ X1,* DEBUG 261 SA2 RECALL GO INTO PERIODIC RECALL DEBUG 262 BX6 X2 DEBUG 263 SA6 A1 DEBUG 264 EQ WAITR DEBUG 265 GO SA1 LINE+X0 GET WORD TO BE MOVED DEBUG 266 BX6 X1 DEBUG 267 SA7 A1 ZERO OUT LINE DEBUG 268 SA6 B5 DEBUG 269 + SB5 B5+B1 INCREMENT IN DEBUG 270 NE B5,B7,*+1 CHECK IF AT LIMIT OF THE BUFFER DEBUG 271 SB5 B2 RESET IN TO FIRST DEBUG 272 SX0 X0+B1 INCREMENT WORD COUNT DEBUG 273 NZ X1,GO CHECK IF MOVED A ZERO WORD INTO BUFFER DEBUG 274 DONE SX6 B5 DEBUG 275 SA1 =10H DEBUG 276 SA2 INP DEBUG 277 SA6 X2 UPDATEIN DEBUG 278 BX7 X1 DEBUG 279 SA1 TEMP DEBUG 280 SA7 LINE REBLANK FIRST WORD OF LINE DEBUG 281 SA2 A1+B1 DEBUG 282 SA3 LINECNT DEBUG 283 SX6 X3+B1 DEBUG 284 SA6 A3 DEBUG 285 SX7 X3 DEBUG 286 SA3 FILENAM+1 DEBUG 287 IX3 X7-X3 CHECK FOR MORE THAN 100 PAGES SNAP OUT DEBUG 288 PL X3,ABORT DEBUG 289 BX7 X1 RESTORE X6 AND X7 DEBUG 290 LX6 X2 DEBUG 291 EQ PRINTL DEBUG 292 ABORT SA1 1 DEBUG 293 NZ X1,* DEBUG 294 SA2 MSG DEBUG 295 BX6 X2 DEBUG 296 SA6 A1 DEBUG 297 SENDABT SA1 STATUSP DEBUG 298 SA2 X1 DEBUG 299 LX2 59 DEBUG 300 NG X2,READOKOK DEBUG 301 SX6 3RRCL DEBUG 302 LX6 2 DEBUG 303 SX7 1 DEBUG 304 BX6 X6+X7 DEBUG 305 LX6 40 DEBUG 306 BX6 X6+X1 DEBUG 307 + SA2 1 DEBUG 308 NZ X2,* DEBUG 309 SA6 A2 DEBUG 310 + SA2 1 DEBUG 311 NZ X2,* DEBUG 312 READOKOK BSS 0 DEBUG 313 SA2 WRITE CIO REQ DEBUG 314 SA3 FILENAM DEBUG 315 SX6 36B DEBUG 316 BX7 X2 DEBUG 317 BX6 X6+X3 DEBUG 318 SA6 X1 DEBUG 319 + SA1 1 DEBUG 320 NZ X1,* DEBUG 321 SA7 A1 DEBUG 322 SX6 3RABT DEBUG 323 LX6 42 DEBUG 324 + SA1 1 DEBUG 325 NZ X1,* DEBUG 326 SA6 A1 DEBUG 327 EQ * DEBUG 328 MSG VFD 18/3HMSG,2/1,40/*+1 DEBUG 329 VFD 30/*+1,30/0 DEBUG 330 DIS ,(DEBUG LINE LIMIT EXCEEDED( DEBUG 331 LINECNT DATA 0 DEBUG 332 TITLE SHIFT TABLE DEBUG 333 STBL VFD 18/3LP =,42/21 DEBUG 334 BSSZ 1 DEBUG 335 VFD 18/3LB1=,42/21 DEBUG 336 VFD 18/3LB2=,42/21 DEBUG 337 VFD 18/3LB3=,42/21 DEBUG 338 VFD 18/3LB4=,42/21 DEBUG 339 VFD 18/3LB5=,42/21 DEBUG 340 VFD 18/3LB6=,42/21 DEBUG 341 VFD 18/3LB7=,42/21 DEBUG 342 VFD 18/3LA0=,42/21 DEBUG 343 VFD 18/3LA1=,42/21 DEBUG 344 VFD 18/3LA2=,42/21 DEBUG 345 VFD 18/3LA3=,42/21 DEBUG 346 VFD 18/3LA4=,42/21 DEBUG 347 VFD 18/3LA5=,42/21 DEBUG 348 VFD 18/3LA6=,42/21 DEBUG 349 VFD 18/3LA7=,42/21 DEBUG 350 VFD 18/3LX0=,42/7 DEBUG 351 VFD 18/3LX1=,42/7 DEBUG 352 VFD 18/3LX2=,42/7 DEBUG 353 VFD 18/3LX3=,42/7 DEBUG 354 VFD 18/3LX4=,42/7 DEBUG 355 VFD 18/3LX5=,42/7 DEBUG 356 VFD 18/3LX6=,42/7 DEBUG 357 VFD 18/3LX7=,42/7 DEBUG 358 TITLE CORE DUMP SECTION DEBUG 359 SNAPB SA0 B0 SET SWITCH TO FIRST TIME THROUGH DEBUG 360 SA1 NUMBLK DEBUG 361 SA2 SNAP DEBUG 362 SX3 X1 DEBUG 363 LX3 30 DEBUG 364 IX6 X2+X3 INCREMENT RETURN DEBUG 365 SA6 A2 DEBUG 366 SB3 X1 B3=NUMBER OF BLOCKS DEBUG 367 LX2 30 DEBUG 368 SB4 X2 B4=ADDRESS OF NEXT REQUEST DEBUG 369 SNAPLT ZR B3,SNAPRET DEBUG 370 SA4 B4 GET REQUEST DEBUG 371 BX5 X4 X4=FIRST OWRD ADDRESS DEBUG 372 AX5 30 X5=LAST OWRD ADDRESS DEBUG 373 MX0 58 DEBUG 374 BX4 X0*X4 ROUND DOWN TO MULTIPLE OF 4 DEBUG 375 RJ PRINTL PRINT BLANK LINE DEBUG 376 OCTBCD X4 DEBUG 377 SA7 FIRSTL DEBUG 378 OCTBCD X5 DEBUG 379 SA1 FIRSTL DEBUG 380 MX0 24 DEBUG 381 SA2 =4L TO DEBUG 382 SA3 =10HDUMP FROM DEBUG 383 BX6 X3 DEBUG 384 SA6 LINE+1 DEBUG 385 BX6 -X0*X1 DEBUG 386 BX6 X6+X2 DEBUG 387 LX6 18 DEBUG 388 SA2 =4L DEBUG 389 SA6 A6+B1 DEBUG 390 BX7 -X0*X7 DEBUG 391 BX7 X2+X7 DEBUG 392 LX7 18 DEBUG 393 SA7 A6+B1 DEBUG 394 SX6 B0 DEBUG 395 SA6 A7+B1 DEBUG 396 RJ PRINTL DEBUG 397 RJ PRINTL PRINT BLANK LINE DEBUG 398 SA0 B0 SET SWITCH TO FIRST TIME TRU DEBUG 399 SNAPLD OCTBCD X4 CONVERT THE ADDRESS OF THE LINE DEBUG 400 SA1 =4L DEBUG 401 MX0 24 DEBUG 402 BX7 -X0*X7 DEBUG 403 BX7 X7+X1 INSERT LEADING BLANKS DEBUG 404 LX7 24 LEFT ADJUST BLANK FILL DEBUG 405 SA7 LINE+1 STORE ADDRESS DEBUG 406 SX3 A0 CHECK SWITCH DEBUG 407 ZR X3,NOCHECK DEBUG 408 SA1 X4 CHECK THIS LINE AGAINST THE LAST DEBUG 409 SA2 LAST DEBUG 410 SB2 4 DEBUG 411 CHECKL BX2 X2-X1 CHECK IF THIS WORD SAME AS LAST CORR. WDEBUG 412 NZ X2,NOCHECK DEBUG 413 SB2 B2-B1 DEBUG 414 SA1 A1+B1 DEBUG 415 SA2 A2+B1 DEBUG 416 NZ B2,CHECKL DEBUG 417 SA7 LASTADR SAVE ADDRESS OF START OF LINE DEBUG 418 SA0 B1+B1 THIS LINE IS THE SAME AS LAST DEBUG 419 SX4 X4+4 DEBUG 420 EQ CHECKE DEBUG 421 NOCHECK SX3 X3-2 CHECK IF THIS FINISHES A SEQUENCE OF EQDEBUG 422 NG X3,DUMPIT LOCATIONS DEBUG 423 SA7 SAVEREG SAVE ADDRESS OF LINE DEBUG 424 NOCHECKB SA1 MESSG YES IT DOES DEBUG 425 SA2 A1+B1 MOVE MESSAGE TO BUFFER DEBUG 426 BX6 X1 DEBUG 427 LX7 X2 DEBUG 428 SA6 LINE+1 DEBUG 429 SA7 A6+B1 DEBUG 430 SA1 LASTADR DEBUG 431 SA2 MESSG+3 DEBUG 432 BX6 X1 DEBUG 433 LX7 X2 DEBUG 434 SA6 A7+B1 DEBUG 435 SA7 A6+B1 DEBUG 436 DUP 4,6 FINISH MESSAGE DEBUG 437 SA1 A2+B1 DEBUG 438 SA2 A1+B1 DEBUG 439 BX6 X1 DEBUG 440 LX7 X2 DEBUG 441 SA6 A7+B1 DEBUG 442 SA7 A6+B1 DEBUG 443 RJ PRINTL DEBUG 444 SX1 A0-3 CHECK IF CALLED FROM THE EXIT ROUTINE DEBUG 445 ZR X1,SNAPX DEBUG 446 SA1 SAVEREG DEBUG 447 BX6 X1 DEBUG 448 SA6 LINE+1 DEBUG 449 DUMPIT SA0 B1 DEBUG 450 SB7 4 WORD COUNT DEBUG 451 SB6 B0 LINE LOCATION DEBUG 452 SB5 B0 LAST ADDRESS DEBUG 453 DUMPITL SA1 X4 GET WORD TO BE DUMPED DEBUG 454 SX4 X4+B1 INCREMENT WORD LOCATION DEBUG 455 BX6 X1 DEBUG 456 SA6 LAST+B5 SAVE IN LAST FOR COMPARISON NEXT LINE DEBUG 457 OCTBCD X1 DEBUG 458 SA6 LINE+2+B6 STORE OUTPUT IN LINE DEBUG 459 SA7 A6+B1 DEBUG 460 SA1 =10H DEBUG 461 SB6 B6+3 DEBUG 462 BX6 X1 DEBUG 463 SB7 B7-B1 DEBUG 464 ZR B7,DUMPITY DEBUG 465 SA6 A7+B1 DEBUG 466 SB5 B5+B1 DEBUG 467 EQ DUMPITL DEBUG 468 DUMPITY RJ PRINTL PRINT OUT THE LINE OF INFORMATION DEBUG 469 CHECKE IX1 X5-X4 CHECK IF AREA HAS BEEN DUMPED YET DEBUG 470 PL X1,SNAPLD NOT TYT DEBUG 471 SX1 A0 DEBUG 472 SX1 X1-2 CHECK IF DUMPLICATE IN PROCESS DEBUG 473 NG X1,SNAPX NO DEBUG 474 SA0 3 YES GO BACK PROCESS DUP LINE DEBUG 475 EQ NOCHECKB DEBUG 476 SNAPX SB3 B3-B1 GET NEXT BLOCK DEBUG 477 SB4 B4+B1 INCREMENT REQUEST ADDRESS DEBUG 478 EQ SNAPLT LOOP BACK DEBUG 479 TITLE REGISTER SAVING ROUTINE DEBUG 480 SAVEREG DATA 0 DEBUG 481 DUP 18,3 DEBUG 482 PL B1,*+2 DEBUG 483 + RJ * DEBUG 484 SB1 B1+B1 DEBUG 485 SB1 A6-B0 SAVE A6 DEBUG 486 SA6 XR6 STORE X6 DEBUG 487 SX6 A7-B0 SAVE A7 DEBUG 488 SA6 AR7 STORE A7 DEBUG 489 SA7 XR7 STORE X7 DEBUG 490 SX6 B2-B0 DEBUG 491 SX7 B3-B0 DEBUG 492 SB2 1 DEBUG 493 SA6 BR2 DEBUG 494 SA7 A6+B2 DEBUG 495 SX6 B4-B0 DEBUG 496 SX7 B5-B0 DEBUG 497 SA6 A7+B2 DEBUG 498 SA7 A6+B2 DEBUG 499 SX6 B6-B0 DEBUG 500 SX7 B7-B0 DEBUG 501 SA6 A7+B2 DEBUG 502 SA7 A6+B2 DEBUG 503 SX6 A0-B0 DEBUG 504 SX7 A1-B0 DEBUG 505 SA6 A7+B2 DEBUG 506 SA7 A6+B2 DEBUG 507 SX6 A2-B0 DEBUG 508 SX7 A3-B0 DEBUG 509 SA6 A7+B2 DEBUG 510 SA7 A6+B2 DEBUG 511 SX6 A4-B0 DEBUG 512 SX7 A5-B0 DEBUG 513 SA6 A7+B2 DEBUG 514 SA7 A6+B2 DEBUG 515 SX6 B1-B0 DEBUG 516 BX7 X0 DEBUG 517 SA6 A7+B2 DEBUG 518 SA7 XR0 DEBUG 519 BX6 X1 DEBUG 520 LX7 X2 DEBUG 521 SA6 A7+B2 DEBUG 522 SA7 A6+B2 DEBUG 523 BX6 X3 DEBUG 524 LX7 X4 DEBUG 525 SA6 A7+B2 DEBUG 526 SA7 A6+B2 DEBUG 527 BX6 X5 DEBUG 528 SA6 A7+B2 DEBUG 529 SB4 B2+B2 DEBUG 530 MX0 6 DEBUG 531 SX7 B0 DEBUG 532 SA1 SAVEREG DEBUG 533 SB3 18 DEBUG 534 SA3 =1LA DEBUG 535 LOOPR SA1 A1+B4 DEBUG 536 SB3 B3-B2 DEBUG 537 IX7 X7+X7 DEBUG 538 BX6 -X0*X1 DEBUG 539 AX1 56 DEBUG 540 BX6 X6+X3 DEBUG 541 IX7 X7+X1 DEBUG 542 LX1 30 DEBUG 543 IX6 X6-X1 DEBUG 544 SA6 A1 DEBUG 545 NZ B3,LOOPR DEBUG 546 LX7 42 SIGN EXTEND DEBUG 547 AX7 42 DEBUG 548 SA7 BR1 DEBUG 549 SA1 SAVEREG DEBUG 550 AX1 30 DEBUG 551 SA1 X1-2 DEBUG 552 AX1 30 DEBUG 553 SX6 X1-1 DEBUG 554 SA6 PR DEBUG 555 EQ SAVEREG DEBUG 556 TITLE REGISTER RESTORE ROUTINE DEBUG 557 RESTORE DATA 0 DEBUG 558 SB1 1 DEBUG 559 MX0 42 DEBUG 560 BX1 -X0 DEBUG 561 SB4 6 DEBUG 562 SB7 X1-0 DEBUG 563 LOOP SA1 RB1+B4 GET RESTORE SKELETON DEBUG 564 SA2 BR1+B4 GET B REGISTER CONTENTS DEBUG 565 BX6 X0*X1 DEBUG 566 BX2 -X0*X2 DEBUG 567 BX6 X2+X6 DEBUG 568 SA6 A1 DEBUG 569 SB4 B4-B1 DEBUG 570 PL B4,LOOP DEBUG 571 SA1 XR1 DEBUG 572 UX1 X1,B2 DEBUG 573 LX1 11 DEBUG 574 UX1 X1,B3 DEBUG 575 LX1 11 DEBUG 576 UX1 X1,B4 DEBUG 577 LX1 11 DEBUG 578 UX1 X1,B5 DEBUG 579 AX1 33 DEBUG 580 SB6 X1 DEBUG 581 SA1 AR6 DEBUG 582 SA2 AR7 DEBUG 583 SA3 XR6 DEBUG 584 SA4 XR7 DEBUG 585 SA1 X1 DEBUG 586 SA2 X2 DEBUG 587 SA5 AR0 DEBUG 588 BX6 X1 DEBUG 589 LX7 X2 DEBUG 590 SA0 X5-0 DEBUG 591 SA6 A1-B0 DEBUG 592 SA7 A2-B0 DEBUG 593 SA5 XR0 DEBUG 594 BX6 X3 DEBUG 595 LX7 X4 DEBUG 596 SA1 XR4 DEBUG 597 SA4 AR4 DEBUG 598 BX0 X5 DEBUG 599 SA2 XR5 DEBUG 600 SA5 AR5 DEBUG 601 SA4 X4-0 DEBUG 602 SA3 AR3 DEBUG 603 SA5 X5-0 DEBUG 604 BX4 X1 DEBUG 605 SA3 X3-0 DEBUG 606 SA1 XR3 DEBUG 607 LX5 X2 DEBUG 608 SA2 AR2 DEBUG 609 BX3 X1 DEBUG 610 SA1 XR2 DEBUG 611 SA2 X2-0 DEBUG 612 BX2 X1 DEBUG 613 SA1 AR1 DEBUG 614 SA1 X1-0 DEBUG 615 SX1 B6 DEBUG 616 LX1 33 DEBUG 617 PX1 X1,B5 DEBUG 618 AX1 11 DEBUG 619 PX1 X1,B4 DEBUG 620 AX1 11 DEBUG 621 PX1 X1,B3 DEBUG 622 AX1 11 DEBUG 623 PX1 X1,B2 DEBUG 624 RB1 NO DEBUG 625 NO DEBUG 626 SB1 0+B7 DEBUG 627 NO DEBUG 628 NO DEBUG 629 SB2 0+B7 DEBUG 630 NO DEBUG 631 NO DEBUG 632 SB3 0+B7 DEBUG 633 NO DEBUG 634 NO DEBUG 635 SB4 0+B7 DEBUG 636 NO DEBUG 637 NO DEBUG 638 SB5 0+B7 DEBUG 639 NO DEBUG 640 NO DEBUG 641 SB6 0+B7 DEBUG 642 NO DEBUG 643 NO DEBUG 644 SB7 0+B7 DEBUG 645 EQ RESTORE DEBUG 646 TITLE TEMPORARIES DEBUG 647 ENTRY FILENAM DEBUG 648 LINE DIS 1, DEBUG 649 BSSZ 12 DEBUG 650 BSSZ 1 DEBUG 651 FILENAM DATA 6LOUTPUT DEBUG 652 VFD 60/56*'PAGELIM' DEBUG 653 DATA 1 DEBUG 654 STATUS DATA 1 DEBUG 655 FIRST VFD 60/BUFF DEBUG 656 IN VFD 60/BUFF DEBUG 657 OUT VFD 60/BUFF DEBUG 658 LIMIT VFD 60/BUFF+SIZE DEBUG 659 * MINIMUM BUFFER SIZE IS 80 WORDS. DEBUG 660 SIZE EQU 100 DEBUG 661 STATUSP DEBUG 662 FIRSTP DEBUG 663 INP DEBUG 664 OUTP DEBUG 665 LIMITP DEBUG 666 BUFF BSSZ SIZE DEBUG 667 WRITE VFD 18/3LCIO,2/1,40/STATUS DEBUG 668 VFD 18/3LCIO,42/STATUS DEBUG 669 RECALL DATA 3LRCL DEBUG 670 NUMBLK BSSZ 1 DEBUG 671 LAST BSSZ 4 DEBUG 672 LASTADR BSSZ 1 DEBUG 673 FIRSTL BSSZ 1 DEBUG 674 MESSG DIS 2,LINES THROUGH DEBUG 675 BSSZ 1 DEBUG 676 DIS 5, ARE IDENTICAL WITH THE PREVIOUS LINE DEBUG 677 DIS 5, DEBUG 678 TEMP BSSZ 2 DEBUG 679 TITLE REGISTER AREA DEBUG 680 PR DEBUG 681 BR0 DEBUG 682 BR1 DEBUG 683 BR2 DEBUG 684 BR3 DEBUG 685 BR4 DEBUG 686 BR5 DEBUG 687 BR6 DEBUG 688 BR7 DEBUG 689 AR0 DEBUG 690 AR1 DEBUG 691 AR2 DEBUG 692 AR3 DEBUG 693 AR4 DEBUG 694 AR5 DEBUG 695 AR6 DEBUG 696 AR7 DEBUG 697 XR0 DEBUG 698 XR1 DEBUG 699 XR2 DEBUG 700 XR3 DEBUG 701 XR4 DEBUG 702 XR5 DEBUG 703 XR6 DEBUG 704 XR7 DEBUG 705 TITLE TRACE SECTION DEBUG 706 SNAPONLY IF -DEF,SNAPASSM DEBUG 707 * TRACE PROGRAM DEBUG 708 * WRITTEN 6/1/68 BY KARL MALBRAIN DEBUG 709 * REGISTER USAGE IN THE TRACE SECTION: DEBUG 710 * B1 1 DEBUG 711 * B2 WORK DEBUG 712 * B3 PARCEL COUNTER DEBUG 713 * B4 WORK DEBUG 714 * B5 K OPREG NO. DEBUG 715 * B6 J OPREG NO. DEBUG 716 * B7 I OPREG NO. DEBUG 717 * A0 CURRENT OP CODE DEBUG 718 * X0 CURRENT INSTRUCTION WORD DEBUG 719 * X1 OPERAND 1 DEBUG 720 * X2 OPERAND 2 DEBUG 721 * X3 WORK DEBUG 722 * X4 NEXT 15 BITS OF INSTRUCTION DEBUG 723 * X5 NEXT INSTRUCTION WORD DEBUG 724 * X6 WORK DEBUG 725 * X7 RESULT OPERAND DEBUG 726 SPREAD MACRO DEBUG 727 MX4 1 DEBUG 728 LX4 8 DEBUG 729 AX4 X4,B4 DEBUG 730 ENDM DEBUG 731 EVAL MACRO Q DEBUG 732 IFC EQ,*Q*K*,2 DEBUG 733 'ANS'X SET 0 DEBUG 734 'ANS' SET 0 DEBUG 735 IFC EQ,*Q*A*,2 DEBUG 736 'ANS'X SET 1 DEBUG 737 'ANS' SET AR0 DEBUG 738 IFC EQ,*Q*B*,2 DEBUG 739 'ANS'X SET 2 DEBUG 740 'ANS' SET BR0 DEBUG 741 IFC EQ,*Q*X*,2 DEBUG 742 'ANS'X SET 3 DEBUG 743 'ANS' SET XR0 DEBUG 744 IFC EQ,*Q*N*,2 DEBUG 745 'ANS'X SET 0 NO REGISTER DEBUG 746 'ANS' SET BR0 DEBUG 747 ENDM DEBUG 748 OPCODE MACRO A,Y,Z DEBUG 749 ANS MICRO 1,,*I=* DEBUG 750 EVAL A DEBUG 751 ANS MICRO 1,,*J=* DEBUG 752 EVAL Y DEBUG 753 ANS MICRO 1,,*K=* DEBUG 754 EVAL Z DEBUG 755 M= SET 0 DEBUG 756 IFEQ K=,0,1 DEBUG 757 M= SET 1 DEBUG 758 VFD 1/M=,1/0,2/I=X,2/J=X,2/K=X,22/J=,30/K= DEBUG 759 ENDM DEBUG 760 SUB MACRO DEBUG 761 LOCAL EXIT DEBUG 762 SA1 PR DEBUG 763 SA3 X1+1 GET SNAP CALL DEBUG 764 SA4 CMREFIN DEBUG 765 BX6 X3 DEBUG 766 SA3 CMREFLMT DEBUG 767 SA1 CMREF DEBUG 768 MX7 1 DEBUG 769 LX7 31 DEBUG 770 SA6 X4 DEBUG 771 IX7 X1+X7 DEBUG 772 SX6 X4+B2 DEBUG 773 IX4 X6-X3 DEBUG 774 SA6 A4 DEBUG 775 SA7 A1 DEBUG 776 NZ X4,EXIT DEBUG 777 SA1 CMREFFST DEBUG 778 BX6 X1 DEBUG 779 SA6 A4 DEBUG 780 EXIT BSS 0 DEBUG 781 ENDM DEBUG 782 X MACRO DEBUG 783 SA7 X3+B7 DEBUG 784 EQ TRAP DEBUG 785 ENDM DEBUG 786 TITLE CMREF STOP HANDLING DEBUG 787 CMREF DATA 0 DEBUG 788 RJ SAVEREG DEBUG 789 SUB DEBUG 790 RJ RESTORE DEBUG 791 EQ CMREF DEBUG 792 TITLE TRACER DEBUG 793 TRACE DATA 0 DEBUG 794 RJ SAVEREG DEBUG 795 SB1 B2 DEBUG 796 SB3 60 DEBUG 797 RJ RNI DEBUG 798 TLLOOP RJ GETPARCL GET NEXT PARCEL DEBUG 799 SX6 B0 DEBUG 800 SA6 BR0 DEBUG 801 SX1 X4 DEBUG 802 SX6 1R -1R DEBUG 803 SA6 =SJPCHAR DEBUG 804 AX1 9 DEBUG 805 SA0 X1 SAVE OP CODE DEBUG 806 SA3 OPCODE+A0 PICK UP INFO ON OPCODE DEBUG 807 MX2 57 DEBUG 808 BX6 -X2*X4 GET K DEBUG 809 SA6 =SKFIELD DEBUG 810 SB5 X6 DEBUG 811 AX4 3 DEBUG 812 BX6 -X2*X4 GET J DEBUG 813 SA6 =SJFIELD DEBUG 814 SB6 X6 DEBUG 815 AX4 3 DEBUG 816 BX6 -X2*X4 DEBUG 817 SA6 =SIFIELD DEBUG 818 SB7 X6 GET I DEBUG 819 PL X3,NOK SENSE NO K FIELD DEBUG 820 RJ GETPARCL GET K FIELD DEBUG 821 SX6 B5 DEBUG 822 LX6 57 DEBUG 823 AX6 42 DEBUG 824 BX1 X6+X4 PUT TOGETHER K FIELD DEBUG 825 SB5 X1-0 REGERERATE K IN B5 DEBUG 826 SX6 X1-0 DEBUG 827 SA6 =SKFIELD DEBUG 828 EQ CONT DEBUG 829 NOK SA1 X3+B5 DEBUG 830 CONT AX3 30 DEBUG 831 SA2 X3+B6 GET J OPERAND DEBUG 832 SB4 A0 DEBUG 833 SX3 XR0 DEBUG 834 SB2 AR0 DEBUG 835 JP *+1+B4 CALL PROCESSOR DEBUG 836 EQ PS DEBUG 837 EQ RJ DEBUG 838 EQ JP DEBUG 839 EQ XRT DEBUG 840 SA1 BR0+B7 DEBUG 841 EQ BREQ DEBUG 842 SA1 BR0+B7 DEBUG 843 EQ BRNE DEBUG 844 SA1 BR0+B7 DEBUG 845 EQ BRGE DEBUG 846 SA1 BR0+B7 DEBUG 847 EQ BRLT DEBUG 848 TRAPS BX7 X2 10 DEBUG 849 SA7 X3+B7 DEBUG 850 EQ TRAP DEBUG 851 BX7 X1*X2 DEBUG 852 SA7 X3+B7 DEBUG 853 EQ TRAP DEBUG 854 BX7 X1+X2 DEBUG 855 X DEBUG 856 BX7 X1-X2 13 DEBUG 857 X DEBUG 858 BX7 -X1 14 DEBUG 859 X DEBUG 860 BX7 -X1*X2 15 DEBUG 861 X DEBUG 862 BX7 -X1+X2 16 DEBUG 863 X DEBUG 864 BX7 -X1-X2 17 DEBUG 865 X DEBUG 866 SA1 X3+B7 20 DEBUG 867 EQ LXJK DEBUG 868 SA1 X3+B7 DEBUG 869 EQ AXJK DEBUG 870 SB4 X2 22 DEBUG 871 LX2 X1,B4 DEBUG 872 EQ TRAPS DEBUG 873 SB4 X2 DEBUG 874 AX2 X1,B4 DEBUG 875 EQ TRAPS DEBUG 876 NX7 X1,B4 DEBUG 877 SA7 X3+B7 DEBUG 878 EQ TRAPN DEBUG 879 ZX7 X1,B4 DEBUG 880 SA7 X3+B7 DEBUG 881 EQ TRAPN DEBUG 882 UX7 X1,B4 DEBUG 883 SA7 X3+B7 DEBUG 884 EQ TRAPN DEBUG 885 SB4 X2 DEBUG 886 PX2 X1,B4 DEBUG 887 EQ TRAPS DEBUG 888 FX7 X1+X2 30 DEBUG 889 X DEBUG 890 FX7 X2-X1 DEBUG 891 X DEBUG 892 DX7 X1+X2 32 DEBUG 893 X DEBUG 894 DX7 X2-X1 33 DEBUG 895 X DEBUG 896 RX7 X1+X2 DEBUG 897 X DEBUG 898 RX7 X2-X1 35 DEBUG 899 X DEBUG 900 IX7 X1+X2 36 DEBUG 901 X DEBUG 902 IX7 X2-X1 37 DEBUG 903 X DEBUG 904 FX7 X1*X2 40 DEBUG 905 X DEBUG 906 RX7 X1*X2 41 DEBUG 907 X DEBUG 908 DX7 X1*X2 DEBUG 909 X DEBUG 910 EQ MXJK 43 DEBUG 911 FX7 X2/X1 DEBUG 912 X DEBUG 913 RX7 X2/X1 45 DEBUG 914 X DEBUG 915 ZR B5,TRAP NOP DEBUG 916 EQ PRCSOPT SENSE NON ZERO K FIELD DEBUG 917 CX7 X1 DEBUG 918 SA7 X3+B7 DEBUG 919 EQ TRAP DEBUG 920 DUP 2,3 DEBUG 921 IX7 X1+X2 50 DEBUG 922 SX7 X7 DEBUG 923 EQ TRAPG DEBUG 924 DUP 2,3 DEBUG 925 SB4 X2 DEBUG 926 SX7 X1+B4 DEBUG 927 EQ TRAPG DEBUG 928 IX7 X1+X2 54 DEBUG 929 SX7 X7 DEBUG 930 EQ TRAPG DEBUG 931 IX7 X2-X1 55 DEBUG 932 SX7 X7 DEBUG 933 EQ TRAPG DEBUG 934 IX7 X1+X2 56 DEBUG 935 SX7 X7 DEBUG 936 EQ TRAPG DEBUG 937 IX7 X2-X1 57 DEBUG 938 SX7 X7 DEBUG 939 EQ TRAPG DEBUG 940 DUP 2,2 DEBUG 941 IX7 X1+X2 60 DEBUG 942 EQ TRAPSBX DEBUG 943 DUP 2,2 DEBUG 944 SB4 X2-0 DEBUG 945 EQ TRAPSBA DEBUG 946 DUP 2,4 DEBUG 947 IX7 X1+X2 64 DEBUG 948 EQ TRAPSBX DEBUG 949 IX7 X2-X1 65 DEBUG 950 EQ TRAPSBX DEBUG 951 DUP 2,3 DEBUG 952 IX7 X1+X2 70 DEBUG 953 SX2 X7 DEBUG 954 EQ TRAPS DEBUG 955 DUP 2,3 DEBUG 956 SB4 X2 72 DEBUG 957 SX2 X1+B4 DEBUG 958 EQ TRAPS DEBUG 959 DUP 2,6 DEBUG 960 IX7 X1+X2 74 DEBUG 961 SX2 X7 DEBUG 962 EQ TRAPS DEBUG 963 IX7 X2-X1 DEBUG 964 SX2 X7 DEBUG 965 EQ TRAPS DEBUG 966 TRAPSBX SX7 X7-0 DEBUG 967 EQ TRAPSB DEBUG 968 TRAPSBA SX7 X1+B4 DEBUG 969 TRAPSB SA7 BR0+B7 DEBUG 970 EQ TRAP DEBUG 971 TRAPG SA7 AR0+B7 STORE A REGISTER DEBUG 972 ZR B7,TRAP SENSE A 0 INVOLVED DEBUG 973 RJ CKFL DEBUG 974 SX1 B7-6 DEBUG 975 PL X1,TRAPP DEBUG 976 SA1 X7 DEBUG 977 BX7 X1 MAKE MEMORY REFERENCE DEBUG 978 SA7 XR0+B7 STORE IN THE X REGISTER DEBUG 979 EQ TRAP DEBUG 980 TRAPP SA1 XR0+B7 DEBUG 981 BX6 X1 DEBUG 982 SA6 X7 STORE X REGISTER IN MEMORY DEBUG 983 EQ TRAP DEBUG 984 TRAPN SX7 B4 DEBUG 985 SA7 BR0+B6 DEBUG 986 EQ TRAP DEBUG 987 RJ JP RJJMP+B7 DEBUG 988 RJJMP JP RJACT DEBUG 989 JP ECSR DEBUG 990 JP ECSW DEBUG 991 JP CEJ DEBUG 992 DUP 4,1 DEBUG 993 JP RJACT DEBUG 994 ECSR RJ CHKECS DEBUG 995 RE B5 DEBUG 996 JP TRAPX0 DEBUG 997 EQ ABTWORD DEBUG 998 ECSW RJ CHKECS DEBUG 999 WE B5 DEBUG 1000 JP TRAPX0 DEBUG 1001 EQ ABTWORD DEBUG 1002 CHKECS DATA 0 DEBUG 1003 SA3 ECSFL DEBUG 1004 SX3 303000B TIL MEM WILL RETURN FIELD LENGTH DEBUG 1005 NZ X3,ECSCHK DEBUG 1006 GETECS SA1 1 DEBUG 1007 NZ X1,* DEBUG 1008 SA2 ECSCALL DEBUG 1009 BX6 X2 DEBUG 1010 SA6 A1 DEBUG 1011 + SA1 1 DEBUG 1012 NZ X1,* DEBUG 1013 SA3 ECSFL DEBUG 1014 ECSCHK SA1 XR0 DEBUG 1015 SA2 AR0 DEBUG 1016 NG X2,ARITHERR DEBUG 1017 MX6 36 DEBUG 1018 BX1 -X6*X1 DEBUG 1019 AX3 30 DEBUG 1020 SX6 B5 DEBUG 1021 IX1 X1+X6 DEBUG 1022 IX7 X2+X6 DEBUG 1023 IX1 X1-X3 DEBUG 1024 PL X1,ARITHERR DEBUG 1025 RJ CKFL DEBUG 1026 SA1 XR0 DEBUG 1027 SA2 AR0 DEBUG 1028 BX6 X0 DEBUG 1029 BX0 X1 DEBUG 1030 SX7 A0 DEBUG 1031 SA0 X2 DEBUG 1032 EQ CHKECS DEBUG 1033 CEJ SA1 =10HCEJ ATTEMP DEBUG 1034 SA2 =10HTED DEBUG 1035 EQ ABORTT DEBUG 1036 RJACT SX7 B5 DEBUG 1037 RJ CKFL DEBUG 1038 SA1 PR DEBUG 1039 SX7 B5+B1 DEBUG 1040 SA7 A1 DEBUG 1041 SX6 X1 DEBUG 1042 MX1 1 DEBUG 1043 LX1 57 DEBUG 1044 LX6 30 DEBUG 1045 BX6 X6+X1 DEBUG 1046 SA6 B5 DEBUG 1047 SX1 SNAP DEBUG 1048 SX7 B5 DEBUG 1049 IX1 X7-X1 DEBUG 1050 ZR X1,SNAPCALL DEBUG 1051 SX1 X7-TRACE DEBUG 1052 ZR X1,TRCECALL DEBUG 1053 SX1 X7-UNTRACE DEBUG 1054 ZR X1,UNTRCALL DEBUG 1055 SX1 X7-CMREF DEBUG 1056 ZR X1,CMREFC DEBUG 1057 EQ ABTWORD DEBUG 1058 JP SA1 BR0+B7 DEBUG 1059 SX7 X1+B5 DEBUG 1060 SA7 PR CHANGE SEQUENCE COUNTER DEBUG 1061 EQ ABTWORD DEBUG 1062 XRT SA1 TSTSKEL DEBUG 1063 SX7 B7 DEBUG 1064 LX7 21 DEBUG 1065 BX7 X7+X1 DEBUG 1066 SA7 XRJ DEBUG 1067 + NO DEBUG 1068 + NO DEBUG 1069 XRJ DATA 0 DEBUG 1070 EQ TRAP DEBUG 1071 TSTSKEL NO DEBUG 1072 NO DEBUG 1073 ZR X2,EQ DEBUG 1074 EQ SX7 B5 DEBUG 1075 SA7 PR DEBUG 1076 ABTWORD SB3 60 DEBUG 1077 SA1 PR DEBUG 1078 SX7 X1 DEBUG 1079 RJ CKFL DEBUG 1080 SX6 1R -1R* DEBUG 1081 SA6 JPCHAR DEBUG 1082 SA5 X7 DEBUG 1083 SA7 =SWR2 DEBUG 1084 EQ TRAP DEBUG 1085 BREQ IX7 X1-X2 DEBUG 1086 SX7 X7 DEBUG 1087 ZR X7,EQ DEBUG 1088 EQ TRAP DEBUG 1089 BRNE IX7 X1-X2 DEBUG 1090 SX7 X7 DEBUG 1091 NZ X7,EQ DEBUG 1092 EQ TRAP DEBUG 1093 BRGE SB2 X1-0 DEBUG 1094 SB4 X2-0 DEBUG 1095 GE B2,B4,EQ DEBUG 1096 EQ TRAP DEBUG 1097 BRLT SB2 X1-0 DEBUG 1098 SB4 X2-0 DEBUG 1099 LT B2,B4,EQ DEBUG 1100 EQ TRAP DEBUG 1101 LXJK SX2 B6 DEBUG 1102 LX2 3 DEBUG 1103 SB5 B5+X2 DEBUG 1104 LX7 X1,B5 DEBUG 1105 SA7 A1 DEBUG 1106 EQ TRAP DEBUG 1107 AXJK SX2 B6 DEBUG 1108 LX2 3 DEBUG 1109 SB5 B5+X2 DEBUG 1110 AX7 X1,B5 DEBUG 1111 SA7 A1 DEBUG 1112 EQ TRAP DEBUG 1113 MXJK SX2 B6 DEBUG 1114 LX2 3 DEBUG 1115 SB5 B5+X2 DEBUG 1116 SB4 B5-B1 DEBUG 1117 SX7 B0 DEBUG 1118 NG B4,MXST DEBUG 1119 MX7 1 DEBUG 1120 AX7 X7,B4 DEBUG 1121 MXST SA7 X3+B7 DEBUG 1122 EQ TRAP DEBUG 1123 PS SA1 =10HPROGRAM DEBUG 1124 SA2 =10HSTOP DEBUG 1125 ABORTT BX6 X1 DEBUG 1126 LX7 X2 DEBUG 1127 SA6 LINE+1 DEBUG 1128 SA7 LINE+2 DEBUG 1129 RJ GETFET DEBUG 1130 RJ PRINTL DEBUG 1131 SA1 PR DEBUG 1132 SX6 X1+100B DEBUG 1133 SX1 X1-100B DEBUG 1134 + PL X1,*+1 DEBUG 1135 SX1 100B DEBUG 1136 SA2 FL DEBUG 1137 IX3 X6-X2 DEBUG 1139 + NG X3,*+1 DEBUG 1140 SX6 X2-1 DEBUG 1141 LX6 30 DEBUG 1142 BX6 X6+X1 DEBUG 1143 SA6 PCTDMP DEBUG 1144 MX4 24 DEBUG 1145 RJ SNAPPRCS DEBUG 1146 + RJ SNAP DEBUG 1147 - VFD 6/2,24/0 DEBUG 1148 VFD 30/77B,30/0 DEBUG 1149 PCTDMP DATA 0 DEBUG 1150 EQ SENDABT DEBUG 1151 TRAPX0 BX0 X6 DEBUG 1152 SA0 X7 DEBUG 1153 TRAP SA3 DETAIL DEBUG 1154 ZR X3,TLLOOP DEBUG 1155 SA3 A0+OPCODE DEBUG 1156 MX1 58 DEBUG 1157 LX3 4 DEBUG 1158 SB4 B7 DEBUG 1159 MX6 1 DEBUG 1160 SB7 B0 DEBUG 1161 TRAPX BX2 -X1*X3 DEBUG 1162 SB2 X2 DEBUG 1163 JP *+1+B2 DEBUG 1164 EQ CONTLUP DEBUG 1165 EQ AFL DEBUG 1166 EQ BFL DEBUG 1167 EQ XFL DEBUG 1168 AFL SPREAD DEBUG 1169 LX4 36 DEBUG 1170 BX6 X6+X4 DEBUG 1171 LX4 8 DEBUG 1172 BX6 X6+X4 DEBUG 1173 EQ CONTLUP DEBUG 1174 BFL SPREAD DEBUG 1175 LX4 52 DEBUG 1176 BX6 X6+X4 DEBUG 1177 EQ CONTLUP DEBUG 1178 XFL SPREAD DEBUG 1179 LX4 36 DEBUG 1180 BX6 X6+X4 DEBUG 1181 CONTLUP LX3 2 DEBUG 1182 SB7 B7+B1 DEBUG 1183 JP *+B7 DEBUG 1184 SB4 B6 DEBUG 1185 EQ TRAPX DEBUG 1186 SB4 B5 DEBUG 1187 EQ TRAPX DEBUG 1188 MX4 1 DEBUG 1189 BX4 -X4*X6 DEBUG 1190 BX6 X0 DEBUG 1191 SA6 CURRENTI DEBUG 1192 BX7 X5 DEBUG 1193 SX6 B3 DEBUG 1194 SA7 RNICON DEBUG 1195 SA6 PARCOUNT DEBUG 1196 SA3 JPCHAR DEBUG 1197 SA1 =10H DEBUG 1198 LX3 48 DEBUG 1199 IX6 X1-X3 DEBUG 1200 SA1 WR1 DEBUG 1201 SX7 B0 DEBUG 1202 SA7 A1 DEBUG 1203 SA7 NUMBLK DEBUG 1204 ZR X1,STO2 DEBUG 1205 OCTBCD X1 DEBUG 1206 MX1 24 DEBUG 1207 BX6 -X1*X7 DEBUG 1208 SA1 =4L L= DEBUG 1209 BX6 X6+X1 DEBUG 1210 IX6 X6-X3 DEBUG 1211 STO2 SA6 LINE DEBUG 1212 SA1 IFIELD DEBUG 1213 SA2 JFIELD DEBUG 1214 SX3 A0-8 DEBUG 1215 NG X3,SPCLOP DEBUG 1216 SX3 A0-20B DEBUG 1217 PL X3,NOTB DEBUG 1218 SX3 A0-14B DEBUG 1219 NG X3,NOTB DEBUG 1220 SX6 X2 DEBUG 1221 SA2 KFIELD DEBUG 1222 SA6 A2 DEBUG 1223 NOTB LX1 42-6 DEBUG 1224 LX2 18-6 DEBUG 1225 PRCSKFL1 SA3 A0+OPSKEL DEBUG 1226 IX6 X1+X3 DEBUG 1227 IX6 X2+X6 DEBUG 1228 PRCSKFL2 SA6 LINE+1 DEBUG 1229 SA1 KFIELD DEBUG 1230 SA2 OPCODE+A0 DEBUG 1231 SA3 =10H0 DEBUG 1232 SX5 X1 DEBUG 1233 LX5 54 DEBUG 1234 IX6 X3+X5 DEBUG 1235 PL X2,STO3 DEBUG 1236 OCTBCD X1 DEBUG 1237 LX7 24 DEBUG 1238 SA1 =4R DEBUG 1239 MX6 36 DEBUG 1240 BX6 X6*X7 DEBUG 1241 BX6 X6+X1 DEBUG 1242 STO3 SA6 LINE+2 DEBUG 1243 RJ GETFET DEBUG 1244 SA1 RTNIC DEBUG 1245 BX6 X1 DEBUG 1246 SA6 SNAPQ DEBUG 1247 SB3 B0 DEBUG 1248 SB4 2 DEBUG 1249 EQ SNAPL DEBUG 1250 RTNIC EQ *+1 DEBUG 1251 SA1 PARCOUNT DEBUG 1252 SA2 CURRENTI DEBUG 1253 SA5 RNICON DEBUG 1254 BX0 X2 DEBUG 1255 SB3 X1 DEBUG 1256 EQ TLLOOP DEBUG 1257 SPCLOP SX3 X3+4 DEBUG 1258 NG X3,NOTBJUMP DEBUG 1259 LX1 30-6 DEBUG 1260 LX2 12-6 DEBUG 1261 EQ PRCSKFL1 DEBUG 1262 NOTBJUMP SX3 X3+1 DEBUG 1263 NG X3,NOTXREG DEBUG 1264 SA3 JPSKEL+X1 DEBUG 1265 LX2 12-6 DEBUG 1266 IX6 X2+X3 DEBUG 1267 EQ PRCSKFL2 DEBUG 1268 NOTXREG SX3 X3+1 DEBUG 1269 NG X3,NOTJP DEBUG 1270 LX1 12-6 DEBUG 1271 SX2 B0 DEBUG 1272 EQ PRCSKFL1 DEBUG 1273 NOTJP SX3 A0 DEBUG 1274 ZR X3,PRCSKFL1 DEBUG 1275 LX2 18-6 DEBUG 1276 SA3 RJSEQ+X1 DEBUG 1277 IX6 X3+X2 DEBUG 1278 EQ PRCSKFL2 DEBUG 1279 TITLE TRACE SUBROUTINES DEBUG 1280 RNI DATA 0 DEBUG 1281 SA1 PR DEBUG 1282 SX7 X1+1 DEBUG 1283 SA7 A1 DEBUG 1284 RJ CKFL DEBUG 1285 SA5 X7 DEBUG 1286 SA7 =SWR2 DEBUG 1287 EQ RNI DEBUG 1288 GETPARCL DATA 0 DEBUG 1289 SX1 B3-60 DEBUG 1290 NZ X1,GO1 DEBUG 1291 BX0 X5 GET PREVIOUS WORD DEBUG 1292 SB3 B0 DEBUG 1293 SA1 =SWR2 DEBUG 1294 SX7 X1 DEBUG 1295 SA7 =SWR1 DEBUG 1296 GO1 SX1 B3-15 DEBUG 1297 NZ X1,GO2 DEBUG 1298 RJ RNI DEBUG 1299 GO2 LX4 X0,B3 DEBUG 1300 LX4 15 DEBUG 1301 MX1 45 DEBUG 1302 BX4 -X1*X4 DEBUG 1303 SB3 B3+15 DEBUG 1304 EQ GETPARCL DEBUG 1305 CKFL DATA 0 DEBUG 1306 SA1 FL DEBUG 1307 NZ X1,CKX DEBUG 1308 GETFL SA1 1 DEBUG 1309 NZ X1,* DEBUG 1310 SX6 B0 DEBUG 1311 SA6 FL DEBUG 1312 SA1 REQFL DEBUG 1313 SX6 A6 ******* 1 LX6 18 ******* 2 BX6 X1+X6 ******* 3 SA6 B1 DEBUG 1315 + SA1 1 DEBUG 1316 NZ X1,* DEBUG 1317 SA1 FL DEBUG 1318 CKX SX7 X7 ******* 4 IX1 X7-X1 DEBUG 1322 NG X1,CKFLB SNESE NO ARITH ERROR DEBUG 1323 ARITHERR SA1 FL+1 DEBUG 1324 SX6 B1 DEBUG 1325 SA6 A1 DEBUG 1326 ZR X1,GETFL DEBUG 1327 SA1 =10HARITH ERRO DEBUG 1328 SA2 =10HR MODE 1. DEBUG 1329 EQ ABORTT DEBUG 1330 CKFLB SA1 CMREFFST DEBUG 1331 SA1 X1 DEBUG 1332 SX6 B0 DEBUG 1333 SA6 FL+1 DEBUG 1334 CKFLL ZR X1,CKFL DEBUG 1335 BX1 X1-X7 DEBUG 1336 SX1 X1 DEBUG 1337 ZR X1,CMSTOP DEBUG 1338 SA1 A1+1 DEBUG 1339 EQ CKFLL DEBUG 1340 CMSTOP SA7 TEMPT DEBUG 1341 SA2 =10H0MEMORY DEBUG 1342 SA3 =10HREFERENCE DEBUG 1343 BX6 X2 DEBUG 1344 LX7 X3 DEBUG 1345 SA3 =10HSNAPSHOT DEBUG 1346 SA6 LINE DEBUG 1347 SA7 LINE+1 DEBUG 1348 BX6 X3 DEBUG 1349 SA6 A7+B1 DEBUG 1350 SA4 A1 DEBUG 1351 LX4 6 DEBUG 1352 RJ SAVE DEBUG 1353 RJ GETFET DEBUG 1354 RJ PRINTL DEBUG 1355 RJ SNAPPRCS DEBUG 1356 SA1 TEMPT DEBUG 1357 OCTBCD X1 DEBUG 1358 SA7 =SBCDADDR DEBUG 1359 SA1 TEMPT DEBUG 1360 SA1 X1 DEBUG 1361 OCTBCD X1 DEBUG 1362 SA1 =10HADDRESS = DEBUG 1363 SA4 =10H CONTENTS DEBUG 1364 SA2 BCDADDR DEBUG 1365 MX0 24 DEBUG 1366 BX2 -X0*X2 DEBUG 1367 SA3 =4L DEBUG 1368 SA6 LINE+4 DEBUG 1369 SA7 LINE+5 DEBUG 1370 BX6 X3+X2 DEBUG 1371 LX7 X1 DEBUG 1372 SA6 LINE+2 DEBUG 1373 SA7 LINE+1 DEBUG 1374 BX6 X4 DEBUG 1375 SA6 LINE+3 DEBUG 1376 RJ PRINTL DEBUG 1377 RJ RENTER DEBUG 1378 SA3 TEMPT DEBUG 1379 SX7 X3 DEBUG 1380 EQ CKFL DEBUG 1381 SAVE BSSZ 1 DEBUG 1382 BX6 X0 DEBUG 1383 SA6 CURRENTI DEBUG 1384 BX7 X5 DEBUG 1385 SA7 RNICON DEBUG 1386 SX6 B3 DEBUG 1387 SA6 PARCOUNT DEBUG 1388 SX7 B5 DEBUG 1389 SX6 B6 DEBUG 1390 SA7 OP1 DEBUG 1391 SA6 OP2 DEBUG 1392 SX7 B7 DEBUG 1393 SX6 A0 DEBUG 1394 SA7 OP3 DEBUG 1395 SA6 OPCDE DEBUG 1396 BX7 X1 DEBUG 1397 BX6 X2 DEBUG 1398 SA7 OPR1 DEBUG 1399 SA6 OPR2 DEBUG 1400 EQ SAVE DEBUG 1401 SNAPPRCS DATA 0 DEBUG 1402 MX1 24 DEBUG 1403 BX4 X1*X4 DEBUG 1404 SX7 B0 DEBUG 1405 SA7 NUMBLK DEBUG 1406 RJ GETFET DEBUG 1407 SA1 RTNI DEBUG 1408 BX6 X1 DEBUG 1409 SA6 SNAPQ DEBUG 1410 SB3 B0 DEBUG 1411 SB4 B0 DEBUG 1412 NZ X4,SNAPL DEBUG 1413 RTNADR EQ SNAPPRCS DEBUG 1414 RENTER DATA 0 DEBUG 1415 SA1 OPCDE DEBUG 1416 SA2 OP1 DEBUG 1417 SA3 OP2 DEBUG 1418 SA4 OP3 DEBUG 1419 SA5 RNICON DEBUG 1420 SA0 X1 DEBUG 1421 SB5 X2 DEBUG 1422 SB6 X3 DEBUG 1423 SB7 X4 DEBUG 1424 SA1 PARCOUNT DEBUG 1425 SA3 CURRENTI DEBUG 1426 SA4 NXTPAR DEBUG 1427 SB3 X1 DEBUG 1428 BX0 X3 DEBUG 1429 SA1 OPR1 DEBUG 1430 SA2 OPR2 DEBUG 1431 EQ RENTER DEBUG 1432 RTNI EQ RTNADR DEBUG 1433 REGI RJ RESTORE DEBUG 1434 SNAPCALL RJ SAVE DEBUG 1435 RJ GETFET DEBUG 1436 SA1 RTNIB DEBUG 1437 BX6 X1 DEBUG 1438 SB2 B1 DEBUG 1439 SA6 SNAPQ DEBUG 1440 EQ SNAPY DEBUG 1441 RTNIB EQ *+1 DEBUG 1442 SA1 REGI DEBUG 1443 BX6 X1 DEBUG 1444 SA6 SNAPQ DEBUG 1445 RJ RENTER DEBUG 1446 TRCECALL BSS 0 DEBUG 1447 TRACALL SA1 PR DEBUG 1448 SX6 X1-1 DEBUG 1449 SA6 A1 DEBUG 1450 EQ ABTWORD DEBUG 1451 UNTRCALL RJ RESTORE RESTORE REGISTERS DEBUG 1452 EQ UNTRACE RETURN TO CALLING PROGRAM DEBUG 1453 CMREFC SB2 B1 DEBUG 1454 SA1 CMREF DEBUG 1455 AX1 30 DEBUG 1456 SX6 X1-1 DEBUG 1457 SA6 PR DEBUG 1458 SUB DEBUG 1459 SA1 CMREF DEBUG 1460 AX1 30 DEBUG 1461 SX6 X1 DEBUG 1462 SA6 PR DEBUG 1463 EQ ABTWORD DEBUG 1464 * DEBUG 1465 PRCSOPT SX7 B5-1 DEBUG 1466 SA7 DETAIL DEBUG 1467 JP TRAP DEBUG 1468 * DEBUG 1469 UNTRACE DATA 0 DEBUG 1470 EQ *-1 DEBUG 1471 TITLE OPCODE TABLE DEBUG 1472 * TABLE OF OPCODE FORMS DEBUG 1473 OPCODE BSS 0 DEBUG 1474 OPCODE N,N,K PS DEBUG 1475 OPCODE N,N,K RJ DEBUG 1476 OPCODE B,N,K JP DEBUG 1477 OPCODE N,X,K X REG TEST DEBUG 1478 DUP 4,1 DEBUG 1479 OPCODE B,B,K BREG TEST DEBUG 1480 OPCODE X,X,N TWO REG BOOL DEBUG 1481 DUP 3,1 DEBUG 1482 OPCODE X,X,X THREE REG BOOL DEBUG 1483 OPCODE X,N,X DEBUG 1484 DUP 3,1 DEBUG 1485 OPCODE X,X,X DEBUG 1486 OPCODE X,N,N LXJK DEBUG 1487 OPCODE X,N,N AXJK DEBUG 1488 DUP 6,1 DEBUG 1489 OPCODE X,B,X AX X,B DEBUG 1490 DUP 8,1 DEBUG 1491 OPCODE X,X,X ADD UNITS DEBUG 1492 DUP 3,1 DEBUG 1493 OPCODE X,X,X MULT UNIT DEBUG 1494 OPCODE X,N,N MXJK DEBUG 1495 DUP 2,1 DEBUG 1496 OPCODE X,X,X DIVIDE UNIT DEBUG 1497 OPCODE N,N,N NOP DEBUG 1498 OPCODE X,N,X CX DEBUG 1499 OPCODE A,A,K DEBUG 1500 OPCODE A,B,K DEBUG 1501 OPCODE A,X,K DEBUG 1502 OPCODE A,X,B DEBUG 1503 DUP 2,1 DEBUG 1504 OPCODE A,A,B DEBUG 1505 DUP 2,1 DEBUG 1506 OPCODE A,B,B DEBUG 1507 OPCODE B,A,K DEBUG 1508 OPCODE B,B,K DEBUG 1509 OPCODE B,X,K DEBUG 1510 OPCODE B,X,B DEBUG 1511 DUP 2,1 DEBUG 1512 OPCODE B,A,B DEBUG 1513 DUP 2,1 DEBUG 1514 OPCODE B,B,B DEBUG 1515 OPCODE X,A,K DEBUG 1516 OPCODE X,B,K DEBUG 1517 OPCODE X,X,K DEBUG 1518 OPCODE X,X,B DEBUG 1519 DUP 2,1 DEBUG 1520 OPCODE X,A,B DEBUG 1521 DUP 2,1 DEBUG 1522 OPCODE X,B,B DEBUG 1523 TITLE OPCODE SKELETON TABLES DEBUG 1524 OPSKEL DIS 1, PS DEBUG 1525 DIS 1, DEBUG 1526 DIS 1, JP B0+ DEBUG 1527 DIS 1, DEBUG 1528 DIS 1, EQ B0,B0, 04 DEBUG 1529 DIS 1, NE B0,B0, 05 DEBUG 1530 DIS 1, GE B0,B0, 06 DEBUG 1531 DIS 1, LT B0,B0, 07 DEBUG 1532 DIS 1, BX0 X0,X DEBUG 1533 DIS 1, BX0 X0*X DEBUG 1534 DIS 1, BX0 X0+X DEBUG 1535 DIS 1, BX0 X0-X DEBUG 1536 DIS 1, BX0 -X0,X DEBUG 1537 DIS 1, BX0 -X0*X 15 DEBUG 1538 DIS 1, BX0 -X0+X 16 DEBUG 1539 DIS 1, BX0 -X0-X 17 DEBUG 1540 DIS 1, LX0 0 DEBUG 1541 DIS 1, AX0 0 DEBUG 1542 DIS 1, LX0 B0,X 22 DEBUG 1543 DIS 1, AX0 B0,X DEBUG 1544 DIS 1, NX0 B0,X DEBUG 1545 DIS 1, ZX0 B0,X DEBUG 1546 DIS 1, UX0 B0,X DEBUG 1547 DIS 1, PX0 B0,X DEBUG 1548 DIS 1, FX0 X0+X DEBUG 1549 DIS 1, FX0 X0-X DEBUG 1550 DIS 1, DX0 X0+X DEBUG 1551 DIS 1, DX0 X0-X DEBUG 1552 DIS 1, RX0 X0+X DEBUG 1553 DIS 1, RX0 X0-X DEBUG 1554 DIS 1, IX0 X0+X DEBUG 1555 DIS 1, IX0 X0-X DEBUG 1556 DIS 1, FX0 X0*X DEBUG 1557 DIS 1, RX0 X0*X DEBUG 1558 DIS 1, DX0 X0*X DEBUG 1559 DIS 1, MX0 0 DEBUG 1560 DIS 1, FX0 X0/X DEBUG 1561 DIS 1, RX0 X0/X DEBUG 1562 DIS 1, NO DEBUG 1563 DIS 1, CX0 X DEBUG 1564 DIS 1, SA0 A0+ DEBUG 1565 DIS 1, SA0 B0+ DEBUG 1566 DIS 1, SA0 X0+ DEBUG 1567 DIS 1, SA0 X0+B DEBUG 1568 DIS 1, SA0 A0+B 54 DEBUG 1569 DIS 1, SA0 A0-B DEBUG 1570 DIS 1, SA0 B0+B 56 DEBUG 1571 DIS 1, SA0 B0-B DEBUG 1572 DIS 1, SB0 A0+ 60 DEBUG 1573 DIS 1, SB0 B0+ 61 DEBUG 1574 DIS 1, SB0 X0+ DEBUG 1575 DIS 1, SB0 X0+B DEBUG 1576 DIS 1, SB0 A0+B 64 DEBUG 1577 DIS 1, SB0 A0-B DEBUG 1578 DIS 1, SB0 B0+B DEBUG 1579 DIS 1, SB0 B0-B DEBUG 1580 DIS 1, SX0 A0+ 70 DEBUG 1581 DIS 1, SX0 B0+ 71 DEBUG 1582 DIS 1, SX0 X0+ DEBUG 1583 DIS 1, SX0 X0+B DEBUG 1584 DIS 1, SX0 A0+B DEBUG 1585 DIS 1, SX0 A0-B DEBUG 1586 DIS 1, SX0 B0+B DEBUG 1587 DIS 1, SX0 B0-B DEBUG 1588 JPSKEL DIS 1, ZR X0, DEBUG 1589 DIS 1, NZ X0, DEBUG 1590 DIS 1, PL X0, DEBUG 1591 DIS 1, NG X0, DEBUG 1592 DIS 1, IR X0, DEBUG 1593 DIS 1, OR X0, DEBUG 1594 DIS 1, DF X0, DEBUG 1595 DIS 1, ID X0, DEBUG 1596 RJSEQ DIS 1, RJ DEBUG 1597 DIS 1, RE B0+ DEBUG 1598 DIS 1, WE B0+ DEBUG 1599 DIS 1, CEJ B0+ DEBUG 1600 TITLE TEMPORARIES DEBUG 1601 CMREFFST VFD 60/BFR DEBUG 1602 CMREFIN VFD 60/BFR DEBUG 1603 CMREFLMT VFD 60/BFR+10 DEBUG 1604 BFR BSSZ 10 DEBUG 1605 ECSFL DATA 0 DEBUG 1606 ECSCALL VFD 18/3RMEM,2/1,22/1,18/ECSFL DEBUG 1607 FL DATA 0 DEBUG 1608 DATA 0 DEBUG 1609 REQFL DATA 0LRFLP ******* 5 DETAIL BSSZ 1 DEBUG 1611 TEMPT BSSZ 1 DEBUG 1612 CURRENTI BSSZ 1 DEBUG 1613 RNICON BSSZ 1 DEBUG 1614 PARCOUNT BSSZ 1 DEBUG 1615 OP1 BSSZ 1 DEBUG 1616 OP2 BSSZ 1 DEBUG 1617 OP3 BSSZ 1 DEBUG 1618 OPCDE BSSZ 1 DEBUG 1619 CMREF. EQU CMREF DEBUG 1620 ENTRY CMREF. DEBUG 1621 OPR1 BSSZ 1 DEBUG 1622 OPR2 BSSZ 1 DEBUG 1623 NXTPAR BSSZ 1 DEBUG 1624 SNAPONLY ENDIF DEBUG 1625 TRACE. EQU TRACE DEBUG 1626 SNAP. EQU SNAP DEBUG 1627 UTRACE. EQU UNTRACE DEBUG 1628 DBFILE. EQU FILENAM DEBUG 1629 ENTRY TRACE.,SNAP.,DBFILE.,UTRACE. DEBUG 1630 END DEBUG 1631