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 -- PHASE 56 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56 102 CTL 6611 103 * 104 * A SNAPSHOT OF THE GENERATED PROGRAM IS PRINTED IF REQUESTED 105 * (IF THERE WERE NO SOURCE PROGRAM ERRORS WHICH WOULD MAKE 106 * PROGRAM EXECUTION UNREWARDING). 107 * 108 X1 EQU 89 0089 109 X3 EQU 99 0099 110 * 111 * STUFF IN THE RESIDENT AREA 112 * 113 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 114 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 115 SNAPSH EQU 333 CORE DUMP SNAPSHOT ROUTINE 0333 116 TOPCOR EQU 688 TOP CORE ADDRESS FROM PARAM CARD 0688 117 SNAPSW EQU 694 S FOR SNAPSHOT 0694 118 FMTSW EQU 696 X FOR NO FORMAT, L FOR LIMITED FORMAT 0696 119 * BLANK FOR ORDINARY, A FOR A CONVERSION 120 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 121 CLEARL EQU 707 CLEAR INSTRUCTION IN LOADNX 0707 122 LOADEX EQU 793 BRANCH THAT EXITS LOADNX 0793 123 * 124 ORG 838 0838 125 838 BEGINN BCE *&5,SNAPSW,S 8 0838 B 850 694 S 4 126 846 B DONE 4 0846 B /28 4 127 850 BW ERROR,GLOBER 8 0850 V /58 184 1 4 128 * 129 * SET THE BOTTOM OF THE DUMP, DEPENDING ON THE FORMAT SWITCH 130 * 131 858 SBR X1,4200 ASSUME NORMAL FORMAT 7 0858 H 089 20| 4 132 865 SBR X3,201 7 0865 H 099 201 4 133 872 BCE FMTX,FMTSW,X 8 0872 B 900 696 X 5 134 880 BCE FMTL,FMTSW,L 8 0880 B 925 696 L 5 135 888 BCE FMTA,FMTSW,A 8 0888 B 950 696 A 5 136 896 B GOTBOT 4 0896 B 971 5 137 900 FMTX SBR X1,1600 7 0900 H 089 W00 5 138 907 MCW K1600,BOT BOTTOM OF DUMP 7 0907 M T26 T21 6 139 914 MCW K1696,TOP TOP OF FIXED CODE 7 0914 M T30 T00 6 140 921 B GOTBOT 4 0921 B 971 6 141 925 FMTL SBR X1,2000 7 0925 H 089 !00 6 142 932 MCW K2000,BOT BOTTOM OF DUMP 7 0932 M T35 T21 6 143 939 MCW K2015,TOP TOP OF FIXED CODE 7 0939 M T39 T00 6 144 946 B GOTBOT 4 0946 B 971 7 145 950 FMTA SBR X1,4600 7 0950 H 089 60| 7 146 957 MCW K4600,BOT BOTTOM OF DUMP 7 0957 M T44 T21 7 147 964 MCW K4616,TOP TOP OF FIXED CODE 7 0964 M T48 T00 7 FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 971 GOTBOT CC 1 2 0971 F 1 7 149 973 CS 332 4 0973 / 332 7 150 977 CS 1 0977 / 7 151 978 MCW SNAP,260 7 0978 M T74 260 8 152 985 W 1 0985 2 8 153 986 CC J 2 0986 F J 8 154 988 CS 332 4 0988 / 332 8 155 992 CS 1 0992 / 8 156 993 MCW IOAREA,239 7 0993 M U13 239 8 157 1 000 W 1 1000 2 8 158 1 001 CC J 2 1001 F J 9 159 1 003 CS 332 4 1003 / 332 9 160 1 007 CS 1 1007 / 9 161 1 008 MCW TOP,248 7 1008 M T00 248 9 162 1 015 W 1 1015 2 9 163 1 016 CC K 2 1016 F K 9 164 1 018 ZA KP3,LINES 7 1018 ? U14 U67 9 165 1 025 OUTER CS 332 4 1025 / 332 10 166 1 029 CS 1 1029 / 10 167 1 030 CC J 2 1030 F J 10 168 1 032 MCW BOT,311 7 1032 M T21 311 10 169 1 039 MCW 1 1039 M 10 170 1 040 MCW 1 1040 M 10 171 1 041 SBR INDIC&6 4 1041 H |58 10 172 1 045 MCW K9,W2-1 7 1045 M U15 U18 11 173 1 052 INDIC MCW W2-1,0 7 1052 M U18 000 11 174 1 059 MCW DOTS 4 1059 M T09 11 175 1 063 SBR INDIC&6 4 1063 H |58 11 176 1 067 A KM90,W2 7 1067 A U17 U19 11 177 1 074 BWZ INDIC,W2-1,2 8 1074 V |52 U18 2 11 178 1 082 A KP1,BOT-2 7 1082 A U20 T19 12 179 1 089 W 1 1089 2 12 180 1 090 INNER SW 0&X3 4 1090 , 0?0 12 181 1 094 MCW 0&X1,0&X3 7 1094 M 0|0 0?0 12 182 1 101 BW *&5,0&X1 8 1101 V /13 0|0 1 12 183 1 109 CW 0&X3 4 1109 ) 0?0 12 184 1 113 C X1,TOPCOR 7 1113 C 089 688 12 185 1 120 BU MORE 5 1120 B /88 / 13 186 1 125 W 1 1125 2 13 187 1 126 WM 2 1126 2 ) 13 188 1 128 DONE BSS SNAPSH,C 5 1128 B 333 C 13 189 1 133 SBR LOADEX&3,884 7 1133 H 796 884 13 190 1 140 SBR CLEARL&3,GMWM 7 1140 H 710 U70 13 191 1 147 LCA CONDEK,PHASID 7 1147 L U28 110 13 192 1 154 B LOADNX 4 1154 B 700 14 193 1 158 ERROR CC J 2 1158 F J 14 194 1 160 CS 332 4 1160 / 332 14 195 1 164 CS 1 1164 / 14 196 1 165 MCW DEFER,237 7 1165 M U65 237 14 197 1 172 W 1 1172 2 14 FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 173 BCV *&5 5 1173 B /82 @ 14 199 1 178 B *&3 4 1178 B /84 15 200 1 182 CC 1 2 1182 F 1 15 201 1 184 B DONE 4 1184 B /28 15 202 1 188 MORE SBR X1,1&X1 MORE HUNDREDS TO PRINT 7 1188 H 089 0|1 15 203 1 195 BCE MORECH,X3-2,2 8 1195 B S42 097 2 15 204 1 203 SBR X3,201 7 1203 H 099 201 15 205 1 210 W 1 1210 2 15 206 1 211 WM 2 1211 2 ) 16 207 1 213 A KP1,LINES 7 1213 A U20 U67 16 208 1 220 C LINES,KP15 7 1220 C U67 U69 16 209 1 227 BU OUTER 5 1227 B |25 / 16 210 1 232 S LINES 4 1232 S U67 16 211 1 236 CC 1 2 1236 F 1 16 212 1 238 B OUTER 4 1238 B |25 16 213 1 242 MORECH A KP1,X3 MORE CHARACTERS TO PUT IN LINE 7 1242 A U20 099 17 214 1 249 B INNER 4 1249 B |90 17 215 1 300 TOP DCW @FIXED OBJECT TIME ROUTINES LOCATED FROM 333-4279@ 48 1300 19 216 1 309 DOTS DCW @9........@ 9 1309 19 217 1 310 DCW 9 1 1310 19 218 1 316 DCW @-AREA-@ 6 1316 19 219 1 321 BOT DCW 04200 5 1321 19 220 1 326 K1600 DCW 01600 5 1326 20 221 1 330 K1696 DCW 1696 4 1330 20 222 1 335 K2000 DCW 02000 5 1335 20 223 1 339 K2015 DCW 2015 4 1339 20 224 1 344 K4600 DCW 04600 5 1344 20 225 1 348 K4616 DCW 4616 4 1348 20 226 1 374 SNAP DCW @SNAPSHOT OF OBJECT PROGRAM@ 26 1374 21 227 1 413 IOAREA DCW @INPUT/OUTPUT AREAS LOCATED FROM 001-332@ 39 1413 22 228 1 414 KP3 DCW &3 1 1414 23 229 1 415 K9 DCW 9 1 1415 23 230 1 417 KM90 DCW @I0@ 2 1417 23 231 1 419 W2 DCW #2 2 1419 23 232 1 420 KP1 DCW &1 1 1420 23 233 1 428 CONDEK DCW @CONDECK1@ 8 1428 23 234 1 465 DEFER DCW @SNAPSHOT DEFERRED DUE TO INPUT ERRORS@ 37 1465 24 235 1 467 LINES DCW #2 2 1467 24 236 1 469 KP15 DCW &15 2 1469 25 237 1 470 GMWM DCW @}@ 1 1470 GMARK 25 238 EX BEGINN B 838 26 239 END / 000 080 FORTRAN COMPILER -- SNAPSHOT PHASE -- PHASE 56 PAGE 4 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 838 BOT 1321 CLEARL 707 CONDEK 1428 DEFER 1465 DONE 1128 DOTS 1309 ERROR 1158 FMTA 950 FMTL 925 FMTSW 696 FMTX 900 GLOBER 184 GMWM 1470 GOTBOT 971 INDIC 1052 INNER 1090 IOAREA 1413 K1600 1326 K1696 1330 K2000 1335 K2015 1339 K4600 1344 K4616 1348 K9 1415 KM90 1417 KP1 1420 KP15 1469 KP3 1414 LINES 1467 LOADEX 793 LOADNX 700 MORE 1188 MORECH 1242 OUTER 1025 PHASID 110 SNAP 1374 SNAPSH 333 SNAPSW 694 TOP 1300 TOPCOR 688 W2 1419 X1 89 X3 99