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