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 -- STMT NUMBERS FIVE -- PHASE 31 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- STMT NUMBERS FIVE -- PHASE 31 102 CTL 6611 103 * 104 * UNDEFINED STATEMENT NUMBERS ARE NOTED. 105 * 106 * ON ENTRY, X1 IS THE TOP OF STATEMENTS, AND X3 IS ONE BELOW 107 * THE LABEL TABLE AT THE TOP OF CORE. 108 * 109 X1 EQU 89 0089 110 X2 EQU 94 0094 111 X3 EQU 99 0099 112 * 113 * STUFF IN THE RESIDENT AREA 114 * 115 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 116 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 117 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 118 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 119 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 120 * 121 TBLBOT EQU 145 ONE BELOW NUMBERS, FORMATS, I/O LISTS 0145 122 * 123 ORG 838 0838 124 LOADDD EQU *&1 LOAD ADDRESS 0838 125 838 BEGINN MCW X3,SX3 7 0838 M 099 S76 4 126 845 MCW X1,SX1 7 0845 M 089 S79 4 127 852 C 0&X3 GET TO 4 0852 C 0?0 4 128 856 SAR X3 TOP ENTRY OF HASH TABLE 4 0856 Q 099 4 129 860 CW 1&X3 4 0860 ) 0?1 4 130 864 MCW TBLBOT,X2 7 0864 M 145 094 4 131 871 C 0&X2 4 0871 C 0!0 4 132 875 SAR X2 4 0875 Q 094 5 133 879 C X2,SX3 7 0879 C 094 S76 5 134 886 BE DONE 5 0886 B S37 S 5 135 891 MCW TBLBOT,SAVBOT 7 0891 M 145 S82 5 136 898 TSTFIN BW DONE,0&X1 8 0898 V S37 0|0 1 5 137 906 MCW 0&X1,SEQCOD 7 0906 M 0|0 S86 5 138 913 C 0&X1 GET BELOW PREFIX 4 0913 C 0|0 6 139 917 SAR X1 4 0917 Q 089 6 140 921 MCW KB3,W3 7 0921 M S89 S92 6 141 928 BCE COMPGO,SEQCOD-3,H 8 0928 B 968 S83 H 6 142 936 MCW SEQCOD-3,*&8 7 0936 M S83 950 6 143 943 BCE LABELS,STMTS,0 8 0943 B /78 S98 0 6 144 951 B 1 0951 B 6 145 952 B 1 0952 B 7 146 953 B 1 0953 B 7 147 954 B 1 0954 B 7 1 FORTRAN COMPILER -- STMT NUMBERS FIVE -- PHASE 31 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 955 B 1 0955 B 7 149 956 ENDSTM C 0&X1 4 0956 C 0|0 7 150 960 SAR X1 4 0960 Q 089 7 151 964 B TSTFIN 4 0964 B 898 7 152 * 153 * WAS ORIGINALLY COMPUTED GOTO CODE T, NOW H 154 * 155 968 COMPGO MCW SAVBOT,X3 7 0968 M S82 099 8 156 975 COMPG2 C 0&X1,X3 7 0975 C 0|0 099 8 157 982 BE COMPG3 5 0982 B |45 S 8 158 987 MN 0&X3 4 0987 D 0?0 8 159 991 MN 1 0991 D 8 160 992 MN 1 0992 D 8 161 993 SAR X3 4 0993 Q 099 8 162 997 SBR X2 4 0997 H 094 9 163 1 001 COMPGL BW COMPG4,1&X2 8 1001 V /67 0!1 1 9 164 1 009 BWZ COMPG2,2&X2,2 8 1009 V 975 0!2 2 9 165 1 017 MCW 3&X2,X2 7 1017 M 0!3 094 9 166 1 024 MZ NOZONE,X2-1 7 1024 Y S99 093 9 167 1 031 MN 0&X2 4 1031 D 0!0 9 168 1 035 MN 1 1035 D 9 169 1 036 MN 1 1036 D 10 170 1 037 SAR X2 4 1037 Q 094 10 171 1 041 B COMPGL 4 1041 B |01 10 172 1 045 COMPG3 MCW X3,SAVBOT 7 1045 M 099 S82 10 173 1 052 TUNDEF BCE ENDSTM,W3, 8 1052 B 956 S92 10 174 1 060 BWZ *&5,SEQCOD,2 8 1060 V |72 S86 2 10 175 1 068 B *&9 4 1068 B |80 10 176 1 072 BWZ UNDEF,SEQCOD-2,2 8 1072 V |94 S84 2 11 177 1 080 MCW SEQCOD,X3 7 1080 M S86 099 11 178 1 087 MCW 0&X3,SEQCOD 7 1087 M 0?0 S86 11 179 1 094 UNDEF CS 299 4 1094 / 299 11 180 1 098 SW GLOBER 4 1098 , 184 11 181 1 102 MCW ERR21,210 7 1102 M T09 210 11 182 1 109 MCW MSG21,253 7 1109 M T47 253 12 183 1 116 MN SEQCOD,257 7 1116 D S86 257 12 184 1 123 MN 1 1123 D 12 185 1 124 MN 1 1124 D 12 186 1 125 MCS W3,214 7 1125 Z S92 214 12 187 1 132 C W3,K001 7 1132 C S92 T50 12 188 1 139 BU *&8 5 1139 B /51 / 12 189 1 144 MCW KCOM,243 7 1144 M T52 243 13 190 1 151 W 1 1151 2 13 191 1 152 BCV *&5 5 1152 B /61 @ 13 192 1 157 B *&3 4 1157 B /63 13 193 1 161 CC 1 2 1161 F 1 13 194 1 163 B ENDSTM 4 1163 B 956 13 195 1 167 COMPG4 A K1,W3 7 1167 A T53 S92 13 196 1 174 B COMPG2 4 1174 B 975 14 197 * 1 FORTRAN COMPILER -- STMT NUMBERS FIVE -- PHASE 31 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 * STATEMENTS CONTAINING LABELS OF EXECUTABLE STATEMENTS. NOT 199 * I/O STATEMENTS CONTAINING FORMAT STATEMENT LABELS. 200 * 201 1 178 LABELS BW TUNDEF,0&X1 8 1178 V |52 0|0 1 14 202 1 186 BCE TUNDEF,0&X1,, 8 1186 B |52 0|0 , 14 203 1 194 MCW 0&X1,X3 7 1194 M 0|0 099 14 204 1 201 SAR X1 4 1201 Q 089 14 205 1 205 MN 0&X3 4 1205 D 0?0 14 206 1 209 MN 1 1209 D 14 207 1 210 SAR X3 4 1210 Q 099 15 208 1 214 BW *&5,0&X3 8 1214 V S26 0?0 1 15 209 1 222 B LABELS 4 1222 B /78 15 210 1 226 A K1,W3 7 1226 A T53 S92 15 211 1 233 B LABELS 4 1233 B /78 15 212 * 213 1 237 DONE MCW SX1,X1 7 1237 M S79 089 15 214 1 244 MCW SX3,X3 7 1244 M S76 099 16 215 1 251 BSS SNAPSH,E 5 1251 B 333 E 16 216 1 256 SBR CLEARL&3,GMWM 7 1256 H 710 T61 16 217 1 263 LCA IO1,PHASID 7 1263 L T60 110 16 218 1 270 B LOADNX 4 1270 B 700 16 219 1 276 SX3 DCW #3 3 1276 16 220 1 279 SX1 DCW #3 3 1279 16 221 1 282 SAVBOT DCW #3 3 1282 17 222 1 286 SEQCOD DCW #4 4 1286 17 223 1 289 KB3 DCW #3 3 1289 17 224 1 292 W3 DCW #3 3 1292 17 225 1 298 STMTS DCW @TWEDGK@ CODES FOR STATEMENTS WITH LABELS 6 1298 17 226 1 299 NOZONE DCW #1 1 1299 17 227 1 309 ERR21 DCW @ERROR 21 -@ 10 1309 17 228 1 347 MSG21 DCW @UNDEFINED STATEMENT NUMBERS, STATEMENT@ 38 1347 18 229 1 350 K001 DCW 001 3 1350 19 230 1 352 KCOM DCW @, @ 2 1352 19 231 1 353 K1 DCW 1 1 1353 19 232 1 360 IO1 DCW @I/O ONE@ 7 1360 19 233 1 361 GMWM DCW @}@ 1 1361 GMARK 19 234 ORG 201 0201 235 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 20 236 EX BEGINN B 838 21 237 END / 000 080 1 FORTRAN COMPILER -- STMT NUMBERS FIVE -- PHASE 31 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 838 CLEARL 707 COMPG2 975 COMPG3 1045 COMPG4 1167 COMPGL 1001 COMPGO 968 DONE 1237 ENDSTM 956 ERR21 1309 GLOBER 184 GMWM 1361 IO1 1360 K001 1350 K1 1353 KB3 1289 KCOM 1352 LABELS 1178 LOADDD 838 LOADNX 700 MSG21 1347 NOZONE 1299 PHASID 110 SAVBOT 1282 SEQCOD 1286 SNAPSH 333 STMTS 1298 SX1 1279 SX3 1276 TBLBOT 145 TSTFIN 898 TUNDEF 1052 UNDEF 1094 W3 1292 X1 89 X2 94 X3 99