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 -- VARIABLES PHASE 3 -- 15 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- VARIABLES PHASE 3 -- 15 102 CTL 6611 103 * 104 * THIS PHASE DOES HOUSEKEEPING FOR VARIABLES PHASE 4 105 * 106 * ON ENTRY, X2 IS ONE ABOVE THE PREFIX OF THE TOPMOST STATEMENT 107 * 108 X2 EQU 94 0094 109 * 110 * STUFF IN THE RESIDENT AREA 111 * 112 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 113 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 114 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 115 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 116 TPREAD EQU 780 TAPE READ INSTRUCTION IN OVERLAY LOADER 0780 117 CLRBOT EQU 833 BOTTOM OF CORE TO CLEAR IN OVERLAY LOADER 0833 118 * 119 FREBOT EQU 2699 2699 120 * 121 ORG 849 0849 122 LOADDD EQU *&1 LOAD ADDRESS 0849 123 853 CODSIZ DCW #5 CODE SIZE, 84-86, IN DECIMAL 5 0853 4 124 856 TOPCOD DCW #3 TOP OF CODE & 1 3 0856 4 125 857 BEGINN CC L 2 0857 F L 4 126 859 CS 332 4 0859 / 332 4 127 863 CS 1 0863 / 4 128 864 MCW MSG,237 7 0864 M |47 237 4 129 871 W 1 0871 2 4 130 872 CC J 2 0872 F J 5 131 874 MCW KB1,FREBOT 7 0874 M |48 O99 5 132 881 MCW X2,TOPCOD 7 0881 M 094 856 5 133 * 134 * CONVERT CODE SIZE (84-86) TO DECIMAL 135 * 136 888 S W2H 4 0888 S |50 5 137 892 S W2L 4 0892 S |52 5 138 896 MZ 86,W2H-1 7 0896 Y 086 |49 5 139 903 MZ 84,W2L-1 7 0903 Y 084 |51 5 140 910 L1 BWZ L2,W2L-1,2 8 0910 V 929 |51 2 6 141 918 A KA0,W2L 7 0918 A |54 |52 6 142 925 B L1 4 0925 B 910 6 143 929 L2 BWZ L2X,W2H-1,2 8 0929 V 948 |49 2 6 144 937 A KQ4,W2H 7 0937 A |56 |50 6 145 944 B L2 4 0944 B 929 6 146 948 L2X A W2L-1,W2H 7 0948 A |51 |50 7 147 955 MCW 86,CODSIZ 7 0955 M 086 853 7 1 FORTRAN COMPILER -- VARIABLES PHASE 3 -- 15 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 962 MCW W2H 4 0962 M |50 7 149 966 ZA CODSIZ 4 0966 ? 853 7 150 970 MZ *-4,CODSIZ 7 0970 Y 972 853 7 151 * 152 * DONE 153 * 154 977 BSS SNAPSH,C 5 0977 B 333 C 7 155 982 SBR TPREAD&6,BEGINN 7 0982 H 786 857 8 156 989 SBR CLRBOT 4 0989 H 833 8 157 993 SBR CLEARL&3,FREBOT 7 0993 H 710 O99 8 158 1 000 LCA VARBL4,PHASID 7 1000 L |66 110 8 159 1 007 B LOADNX 4 1007 B 700 8 160 * 161 * DATA 162 * 163 1 047 MSG DCW @STORAGE ASSIGNMENT - SIMPLE VARIABLES@ 37 1047 9 164 1 048 KB1 DCW #1 1 1048 9 165 1 050 W2H DCW #2 2 1050 10 166 1 052 W2L DCW #2 2 1052 10 167 1 054 KA0 DCW @A0@ 2 1054 10 168 1 056 KQ4 DCW @?4@ 2 1056 10 169 1 066 VARBL4 DCW @VARBL QUAD@ 10 1066 10 170 1 067 GMWM DCW @}@ 1 1067 GMARK 10 171 ORG 201 0201 172 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 849 11 173 EX BEGINN B 857 12 174 END / 000 080 1 FORTRAN COMPILER -- VARIABLES PHASE 3 -- 15 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 857 CLEARL 707 CLRBOT 833 CODSIZ 853 FREBOT 2699 GMWM 1067 KA0 1054 KB1 1048 KQ4 1056 L1 910 L2 929 L2X 948 LOADDD 849 LOADNX 700 MSG 1047 PHASID 110 SNAPSH 333 TOPCOD 856 TPREAD 780 VARBL4 1066 W2H 1050 W2L 1052 X2 94