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 -- CONDENSED DECK PHASE 3 -- 60 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- CONDENSED DECK PHASE 3 -- 60 102 CTL 6611 103 * 104 X1 EQU 89 0089 105 X2 EQU 94 0094 106 X3 EQU 99 0099 107 * 108 * STUFF IN THE RESIDENT AREA 109 * 110 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 111 NSTMTS EQU 183 NUMBER OF STATEMENTS, INCLUDING GENERATED STOP 0183 112 * BEGINNING OF GENERATED CODE BY NOW. 113 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 114 ARYTOP EQU 194 TOP OF ARRAYS IN OBJECT CODE 0194 115 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 116 CONDNS EQU 693 P FOR CONDENSED DECK 0693 117 FMTSW EQU 696 X FOR NO FORMAT, L FOR LIMITED FORMAT 0696 118 * BLANK FOR ORDINARY, A FOR A CONVERSION 119 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 120 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 121 * 122 * RUNTIME ADDRESSES 123 * 124 FMTBAS EQU 1697 BASE ADDRESS OF LIMITED AND NORMAL 1697 125 LGM EQU 2015 GMWM AT END OF LIMITED ROUTINE 2015 126 NGM EQU 4269 GMWM AT END OF NORMAL ROUTINE 4269 127 FMTBAA EQU 4280 BASE ADDRESS FOR A-CONVERSION 4280 128 AGM EQU 4616 GMWM AT END OF A-CONVERSION 4616 129 * 130 ORG 838 0838 131 838 BEGINN MCW NSTMTS,X1 BEGINNING OF GENERATED CODE 7 0838 M 183 089 4 132 845 BCE *&5,CONDNS,P 8 0845 B 857 693 P 4 133 853 B DONE 4 0853 B U74 4 134 857 BW DONE,GLOBER 8 0857 V U74 184 1 4 135 865 LOOP SBR PUEXIT&3,SETUP 7 0865 H /55 893 4 136 872 MCW SETWMS-11,W7 ,040040 7 0872 M V10 V38 5 137 879 MCW A146,X3 7 0879 M V25 099 5 138 886 MCW LCA,140 7 0886 M V26 140 5 139 893 SETUP CS 139 4 0893 / 139 5 140 897 BCV *&5 5 0897 B 906 @ 5 141 902 B *&3 4 0902 B 908 5 142 906 CC 1 2 0906 F 1 5 143 908 MCW SETWMS,171 7 0908 M V21 171 6 144 915 SW 140 4 0915 , 140 6 145 919 CS 332 4 0919 / 332 6 146 923 CS 1 0923 / 6 147 924 SW 101 4 0924 , 101 6 1 FORTRAN COMPILER -- CONDENSED DECK PHASE 3 -- 60 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 928 MCW A001,X2 7 0928 M V29 094 6 149 935 MCW K1,W1 7 0935 M V30 V31 6 150 942 MCW W7,153 7 0942 M V38 153 7 151 949 BW CWLOAD,FLAG 8 0949 V S91 V22 1 7 152 957 MORE MN 0&X1,100&X2 MOVE A CHARACTER 7 0957 D 0|0 1!0 7 153 964 MZ 0&X1,100&X2 TO THE PUNCH AREA 7 0964 Y 0|0 1!0 7 154 971 CHKTOP C ARYTOP,X1 7 0971 C 194 089 7 155 978 BE TOP 5 0978 B S04 S 8 156 983 SBR X1,1&X1 7 0983 H 089 0|1 8 157 990 SBR X2,1&X2 7 0990 H 094 0!1 8 158 997 BCE ENDCOD,0&X1,] RIGHT BRACKET MEANS END OF CODE 8 0997 B S83 0|0 ] 8 159 1 005 BW WM,0&X1 8 1005 V S15 0|0 1 8 160 1 013 C A040,X2 7 1013 C V41 094 9 161 1 020 BL MORE 5 1020 B 957 T 9 162 1 025 C A160,X3 7 1025 C V44 099 9 163 1 032 BL SETCW 5 1032 B /75 T 9 164 1 037 MCW A040,167 7 1037 M V41 167 9 165 1 044 BH *&8 5 1044 B |56 U 9 166 1 049 MCW A040,164 7 1049 M V41 164 10 167 1 056 CW 140 4 1056 ) 140 10 168 1 060 SW SW 0 4 1060 , 000 10 169 1 064 SBR X2 4 1064 H 094 10 170 1 068 A KM990,X2&1 7 1068 A V47 095 10 171 1 075 MCW 239,139 CLEAR PART OF CARD ABOVE LOADED CHARS 7 1075 M 239 139 10 172 1 082 SX1 SBR X1,0 7 1082 H 089 000 11 173 1 089 PUNCH0 MCW SETWMS-11,W7 ,040040 7 1089 M V10 V38 11 174 1 096 MCW A146,X3 7 1096 M V25 099 11 175 1 103 PUNCH A K1,175 BUMP SEQUENCE NUMBER 7 1103 A V30 175 11 176 1 110 MN 0&X2 4 1110 D 0!0 11 177 1 114 SBR 143 4 1114 H 143 11 178 1 118 C 143,A000 7 1118 C 143 V50 12 179 1 125 BE XFMT 5 1125 B U26 S 12 180 1 130 MN 0&X1 4 1130 D 0|0 12 181 1 134 SBR 146 4 1134 H 146 12 182 1 138 LCA 180,280 7 1138 L 180 280 12 183 1 145 LCA 1 1145 L 12 184 1 146 LCA 1 1146 L 12 185 1 147 BSS *&5,B 5 1147 B /56 B 13 186 1 152 PUEXIT P SETUP 4 1152 4 893 13 187 1 156 SW PREXIT&1 4 1156 , /72 13 188 1 160 MCW PUEXIT&3,PREXIT&3 7 1160 M /55 /74 13 189 1 167 CW PREXIT&1 4 1167 ) /72 13 190 1 171 PREXIT WP SETUP 4 1171 6 893 13 191 * 192 * PUT A CW INSTRUCTION IN W7 193 * 194 1 175 SETCW MCW CW,W7-6 7 1175 M V51 V32 13 195 1 182 MCW X1,W7 7 1182 M 089 V38 14 196 1 189 MCW X1 4 1189 M 089 14 197 1 193 MCW A153,X3 7 1193 M V54 099 14 1 FORTRAN COMPILER -- CONDENSED DECK PHASE 3 -- 60 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 200 B PUNCH 4 1200 B /03 14 199 * 200 * GOT TO TOP OF ARRAYS 201 * 202 1 204 TOP SBR PUEXIT&3,AFTARY 7 1204 H /55 T48 14 203 1 211 B PUNCH 4 1211 B /03 14 204 * 205 * FOUND WM 206 * 207 1 215 WM MCW X1,SX1&6 7 1215 M 089 |88 15 208 1 222 SBR SW&3,100&X2 7 1222 H |63 1!0 15 209 1 229 C A040,X2 7 1229 C V41 094 15 210 1 236 BE PUNCH0 5 1236 B |89 S 15 211 1 241 C A167,X3 7 1241 C V57 099 15 212 1 248 BE PUNCH0 5 1248 B |89 S 15 213 1 253 SBR X3,3&X3 7 1253 H 099 0?3 16 214 1 260 ZS W1 4 1260 ! V31 16 215 1 264 BM BUMPX3,W1 8 1264 V T37 V31 K 16 216 1 272 WM2 MCW X1,0&X3 7 1272 M 089 0?0 16 217 1 279 B MORE 4 1279 B 957 16 218 * 219 * SAW A RIGHT BRACKET -- END OF CODE 220 * 221 1 283 ENDCOD SW FLAG 4 1283 , V22 16 222 1 287 B PUNCH0 4 1287 B |89 16 223 * 224 * SET A CW INSTRUCTION IN THE LOAD AREA 225 * 226 1 291 CWLOAD CW FLAG 4 1291 ) V22 17 227 1 295 MCM 0&X1 4 1295 P 0|0 17 228 1 299 SBR X1 4 1299 H 089 17 229 1 303 BW MORE,0&X1 8 1303 V 957 0|0 1 17 230 1 311 MCW X1,153 7 1311 M 089 153 17 231 1 318 MCW X1 4 1318 M 089 17 232 1 322 MCW CW 4 1322 M V51 17 233 1 326 MCW A153,X3 7 1326 M V54 099 18 234 1 333 B MORE 4 1333 B 957 18 235 * 236 1 337 BUMPX3 SBR X3,1&X3 7 1337 H 099 0?1 18 237 1 344 B WM2 4 1344 B S72 18 238 * 239 * AFTER THE ARRAYS 240 * 241 1 348 AFTARY SBR X1,FMTBAS 7 1348 H 089 W97 18 242 1 355 BCE XFMT,FMTSW,X NO FORMAT ROUTINE 8 1355 B U26 696 X 18 243 1 363 BCE LFMT,FMTSW,L LIMITED FORMAT ROUTINE 8 1363 B U04 696 L 19 244 1 371 BCE AFMT,FMTSW,A A-CONVERSION FORMAT 8 1371 B U15 696 A 19 245 1 379 SETCHK SBR CHKTOP&3,USRBAS NORMAL FORMAT 7 1379 H 974 V03 19 246 1 386 SBR PUEXIT&3,SETUP 7 1386 H /55 893 19 247 1 393 SBR TOP&6,XFMT 7 1393 H S10 U26 19 1 FORTRAN COMPILER -- CONDENSED DECK PHASE 3 -- 60 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 400 B LOOP 4 1400 B 865 20 249 1 404 LFMT SBR USRBAS,LGM&1 AFTER LIMITED FORMAT 7 1404 H V03 !16 20 250 1 411 B SETCHK 4 1411 B T79 20 251 1 415 AFMT SBR USRBAS,AGM&1 AFTER A CONVERSION 7 1415 H V03 61X 20 252 1 422 B SETCHK 4 1422 B T79 20 253 1 426 XFMT CS 171 4 1426 / 171 20 254 1 430 MCW A080,146 7 1430 M V60 146 20 255 1 437 MCW NSTMTS 4 1437 M 183 21 256 1 441 LCA CS 4 1441 L V61 21 257 1 445 A K1,175 7 1445 A V30 175 21 258 1 452 LCA 180,280 7 1452 L 180 280 21 259 1 459 LCA 1 1459 L 21 260 1 460 CS 1 1460 / 21 261 1 461 BSS PRINT,B 5 1461 B U97 B 21 262 1 466 P 1 1466 4 22 263 1 467 LASTCD CS 180 4 1467 / 180 22 264 1 471 P 1 1471 4 22 265 1 472 SS 8 2 1472 K 8 22 266 1 474 DONE BSS SNAPSH,C 5 1474 B 333 C 22 267 1 479 SBR CLEARL&3,GMWM 7 1479 H 710 V73 22 268 1 486 LCA GAUX1,PHASID 7 1486 L V69 110 22 269 1 493 B LOADNX 4 1493 B 700 23 270 1 497 PRINT WP LASTCD 4 1497 6 U67 23 271 * 272 * DATA 273 * 274 1 503 USRBAS DSA FMTBAA BASE ADDRESS OF USER CODE 3 1503 28| 23 275 1 521 SETWMS DCW @,040040,0400401040@ 18 1521 23 276 1 522 FLAG DC #1 1 1522 23 277 1 525 A146 DSA 146 3 1525 146 23 278 1 526 LCA LCA 1 1526 L 23 279 1 529 A001 DSA 1 3 1529 001 23 280 1 530 K1 DCW 1 1 1530 24 281 1 531 W1 DCW #1 1 1531 24 282 1 538 W7 DCW #7 7 1538 24 283 1 541 A040 DSA 40 3 1541 040 24 284 1 544 A160 DSA 160 3 1544 160 24 285 1 547 KM990 DCW -990 3 1547 24 286 1 550 A000 DSA 0 3 1550 000 24 287 1 551 CW CW 1 1551 ) 25 288 1 554 A153 DSA 153 3 1554 153 25 289 1 557 A167 DSA 167 3 1557 167 25 290 1 560 A080 DSA 80 3 1560 080 25 291 1 561 CS CS 1 1561 / 25 292 1 569 GAUX1 DCW @GAUX ONE@ 8 1569 25 293 1 572 DSA 3999 3 1572 I99 25 294 1 573 GMWM DCW @}@ 1 1573 GMARK 26 295 EX BEGINN B 838 27 296 END / 000 080 1 FORTRAN COMPILER -- CONDENSED DECK PHASE 3 -- 60 PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A000 1550 A001 1529 A040 1541 A080 1560 A146 1525 A153 1554 A160 1544 A167 1557 AFMT 1415 AFTARY 1348 AGM 4616 ARYTOP 194 BEGINN 838 BUMPX3 1337 CHKTOP 971 CLEARL 707 CONDNS 693 CS 1561 CW 1551 CWLOAD 1291 DONE 1474 ENDCOD 1283 FLAG 1522 FMTBAA 4280 FMTBAS 1697 FMTSW 696 GAUX1 1569 GLOBER 184 GMWM 1573 K1 1530 KM990 1547 LASTCD 1467 LCA 1526 LFMT 1404 LGM 2015 LOADNX 700 LOOP 865 MORE 957 NGM 4269 NSTMTS 183 PHASID 110 PREXIT 1171 PRINT 1497 PUEXIT 1152 PUNCH 1103 PUNCH0 1089 SETCHK 1379 SETCW 1175 SETUP 893 SETWMS 1521 SNAPSH 333 SW 1060 SX1 1082 TOP 1204 USRBAS 1503 W1 1531 W7 1538 WM 1215 WM2 1272 X1 89 X2 94 X3 99 XFMT 1426