CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 LIBRARY -- SNAPSHOT ROUTINE PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB LIBRARY -- SNAPSHOT ROUTINE 102 CTL 6611 103 * 104 89 X1 EQU 89 0089 105 XXXXX1 EQU X1 FOR USE IN SFX REGIONS 0089 106 94 X2 EQU 94 0094 107 XXXXX2 EQU X2 FOR USE IN SFX REGIONS 0094 108 99 X3 EQU 99 0099 109 XXXXX3 EQU X3 FOR USE IN SFX REGIONS 0099 110 ORG 333 0333 111 * 112 PHASID EQU 110 0110 113 TOPCOR EQU 688 FROM PARAMETER CARD 0688 114 * 115 * SNAPSHOT ROUTINE 116 * 117 333 SNAPSH SBR EXIT&3 4 0333 H 567 4 118 337 SBR SXX&6 4 0337 H 408 4 119 341 MCW KZ3,ADR5-2 START FIVE-DIGIT ADDRESS AT ZERO 7 0341 M 661 656 4 120 348 MCW XXXXX3,SX3&6 7 0348 M 099 415 4 121 355 MCW XXXXX1,SX1&6 7 0355 M 089 422 4 122 362 SBR XXXXX1,1 7 0362 H 089 001 4 123 369 SBR XXXXX3,202 7 0369 H 099 202 5 124 376 CS 332 4 0376 / 332 5 125 380 CS 1 0380 / 5 126 381 NOP PHASID,210 MCW ON THE COMPILER TAPE 7 0381 N 110 210 5 127 388 BSS SKIP,F 5 0388 B 621 F 5 128 * 129 * PRINT A HEADER 130 * 131 393 CC 1 2 0393 F 1 5 132 395 MCW XXXXX2,250 7 0395 M 094 250 5 133 402 SXX SBR 216,0 RETURN ADDRESS WAS STORED IN B 7 0402 H 216 000 6 134 409 SX3 SBR 256,0 X3 WAS STORED IN B 7 0409 H 256 000 6 135 416 SX1 SBR 244,0 X1 WAS STORED IN B 7 0416 H 244 000 6 136 423 W 1 0423 2 6 137 424 CC K 2 0424 F K 6 138 426 ZA KP2,W2A 7 0426 ? 662 664 6 139 433 CLEARH CS 332 4 0433 / 332 6 140 437 CS 1 0437 / 7 141 438 CC J 2 0438 F J 7 142 440 MCW ADR5,306 FIVE-DIGIT ADDRESS 7 0440 M 658 306 7 143 447 MCW 1 0447 M 7 144 448 SBR LOOP&6 4 0448 H 465 7 145 452 MCW K9,W2B-1 7 0452 M 665 668 7 146 459 LOOP MCW W2B-1,000 7 0459 M 668 000 7 147 466 MCW DOTS 4 0466 M 651 8 LIBRARY -- SNAPSHOT ROUTINE PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 470 SBR LOOP&6 4 0470 H 465 8 149 474 A KM10,W2B ADD I0 = -10 7 0474 A 667 669 8 150 481 BWZ LOOP,W2B-1,2 NO ZONE IN COUNTER HIGH DIGIT? 8 0481 V 459 668 2 8 151 489 A KP1,ADR5-2 BUMP HUNDREDS DIGIT OF ADDRESS 7 0489 A 670 656 8 152 496 W 1 0496 2 8 153 497 GET SW 0&X3 MOVE DATA AND WM TO PRINT AREA 4 0497 , 0?0 8 154 501 MCW 0&X1,0&X3 7 0501 M 0'0 0?0 9 155 508 BW NOWM,0&X1 SKIP CLEARING PRINT AREA WM 8 0508 V 520 0'0 1 9 156 516 CW 0&X3 4 0516 ) 0?0 9 157 520 NOWM C XXXXX1,TOPCOR DONE? 7 0520 C 089 688 9 158 527 BU CONT NO 5 0527 B 568 / 9 159 532 W 1 0532 2 9 160 533 WM 2 0533 2 ) 9 161 535 RX1 MCW SX1&6,XXXXX1 RESTORE INDEX REGS 7 0535 M 422 089 10 162 542 MCW SX3&6,XXXXX3 7 0542 M 415 099 10 163 549 CS 332 4 0549 / 332 10 164 553 CS 1 0553 / 10 165 554 BSS HALT,G 5 0554 B 563 G 10 166 559 B EXIT 4 0559 B 564 10 167 563 HALT H 1 0563 . 10 168 564 EXIT H 0-0 B ON COMPILER TAPE 4 0564 . 000 11 169 568 CONT SBR XXXXX1,1&X1 7 0568 H 089 0'1 11 170 575 BCE BUMP3,XXXXX3-2,2 8 0575 B 632 097 2 11 171 583 SBR XXXXX3,201 7 0583 H 099 201 11 172 590 W 1 0590 2 11 173 591 WM 2 0591 2 ) 11 174 593 A KP1,W2A 7 0593 A 670 664 11 175 600 C W2A,KP15 7 0600 C 664 672 12 176 607 BU CLEARH 5 0607 B 433 / 12 177 612 S W2A 4 0612 S 664 12 178 616 CCB CLEARH,1 5 0616 F 433 1 12 179 621 SKIP MCW XQTD,220 7 0621 M 680 220 12 180 628 W RX1 4 0628 2 535 12 181 632 BUMP3 A KP1,XXXXX3 7 0632 A 670 099 12 182 639 B GET 4 0639 B 497 13 183 651 DOTS DCW @9........@ 9 0651 13 184 653 DCW @9-@ 2 0653 13 185 658 ADR5 DCW @00000@ FIVE DIGIT ADDRESS 5 0658 13 186 661 KZ3 DCW @000@ 3 0661 13 187 662 KP2 DCW &2 1 0662 13 188 664 W2A DCW #2 2 0664 13 189 665 K9 DCW @9@ 1 0665 14 190 667 KM10 DCW @I0@ 2 0667 14 191 669 W2B DCW #2 2 0669 14 192 670 KP1 DCW &1 1 0670 14 193 672 KP15 DCW &15 2 0672 14 194 680 XQTD DCW @EXECUTED@ 8 0680 14 195 END / 000 080 LIBRARY -- SNAPSHOT ROUTINE PAGE 3 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADR5 658 BUMP3 632 CLEARH 433 CONT 568 DOTS 651 EXIT 564 GET 497 HALT 563 K9 665 KM10 667 KP1 670 KP15 672 KP2 662 KZ3 661 LOOP 459 NOWM 520 PHASID 110 RX1 535 SKIP 621 SNAPSH 333 SX1 416 SX3 409 SXX 402 TOPCOR 688 W2A 664 W2B 669 X1 89 X2 94 X3 99 XQTD 680 XXXXX1 89 XXXXX2 94 XXXXX3 99