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 0 FORTRAN COMPILER -- RELOADING SNAPSHOT -- PHASE 53R PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- RELOADING SNAPSHOT -- PHASE 53R 102 CTL 6611 103 * 104 * THE SNAPSHOT CODING WHICH WAS REPLACED BY 52B IS RETAINED. 105 * IF A SNAPSHOT IS REQUESTED FOR PHASES 52 AND 53, IT IS TAKEN 106 * AT THIS POINT. 107 * 108 * STUFF IN THE RESIDENT AREA 109 * 110 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 111 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 112 XQTD EQU 680 GMWM SHOULD BE D IN EXECUTED 0680 113 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 114 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 115 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 116 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 117 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 118 * 119 ORG 934 0934 120 LOADDD EQU *&1 LOAD ADDRESS 0934 121 934 BEGINN B BEGIN1 4 0934 B |00 4 122 * 123 * LOAD THE FORMAT PACKAGE 124 * 125 938 BEGIN2 MCW D,XQTD REPLACE GMWM WITH D MAKING EXECUTED 7 0938 M 990 680 4 126 945 CW XQTD AND CLEAR THE WM 4 0945 ) 680 4 127 949 BSS SNAPSH,C 5 0949 B 333 C 4 128 954 SBR TPREAD&6,BEGINN 7 0954 H 786 934 4 129 961 SBR CLRBOT 4 0961 H 833 4 130 965 SBR LOADXX&3,BEGINN 7 0965 H 796 934 4 131 972 SBR CLEARL&3,GMWM 7 0972 H 710 W96 5 132 979 LCA FORMAT,PHASID 7 0979 L 999 110 5 133 986 B LOADNX 4 0986 B 700 5 134 990 D DCW @D@ 1 0990 5 135 999 FORMAT DCW @FORMATPAK@ 9 0999 5 136 * 137 * RELOAD THE SNAPSHOT PHASE 53S 138 * 139 1 000 BEGIN1 SBR TPREAD&6,SNAPSH 7 1000 H 786 333 5 140 1 007 SBR CLRBOT,BEGIN1 7 1007 H 833 |00 6 141 1 014 SBR LOADXX&3,BEGIN2 7 1014 H 796 938 6 142 1 021 SBR CLEARL&3,GMWM 7 1021 H 710 W96 6 143 1 028 LCA SNAP53,PHASID 7 1028 L |48 110 6 144 1 035 B LOADNX 4 1035 B 700 6 145 1 048 SNAP53 DCW @SNAPSHOT53@ 10 1048 7 146 ORG 1696 1696 147 1 696 GMWM DCW @}@ 1 1696 GMARK 8 1 FORTRAN COMPILER -- RELOADING SNAPSHOT -- PHASE 53R PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 ORG 201 0201 149 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 934 9 150 EX BEGINN B 934 10 151 END / 000 080 1 FORTRAN COMPILER -- RELOADING SNAPSHOT -- PHASE 53R PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN1 1000 BEGIN2 938 BEGINN 934 CLEARL 707 CLRBOT 833 D 990 FORMAT 999 GMWM 1696 LOADDD 934 LOADNX 700 LOADXX 793 PHASID 110 SNAP53 1048 SNAPSH 333 TPREAD 780 XQTD 680