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 -- SQUEEZE PHASE -- PHASE 08 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- SQUEEZE PHASE -- PHASE 08 102 * 103 * REMOVE STATEMENT KEYWORDS 104 * NOTE UNRECOGNIZABLE STATEMENTS AND REMOVE THEM 105 * 81-83 = START (TOP ADDRESS) OF FIRST (TOP IN MEMORY) 106 * STATEMENT. REMEMBER, STATEMENTS ARE SORTED BY TYPE NOW, 107 * AND PUSHED TO THE BOTTOM OF AVAILABLE 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 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 117 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 118 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 119 LOADXX EQU 793 EXIT FROM OVERLAY LOADER 0793 120 * 121 CTL 6611 122 ORG 838 0838 123 LOADDD EQU *&1 LOAD ADDRESS 0838 124 838 BEGINN MCW 83,X2 7 0838 M 083 094 4 125 845 MCW 83,X1 7 0845 M 083 089 4 126 852 NEXT MCW 0&X1,SEQ 7 0852 M 0|0 U94 4 127 859 MCW 0&X1,PREFIX 7 0859 M 0|0 U98 4 128 866 BCE ARITH,PREFIX-3,R ARITHMETIC? 8 0866 B /56 U95 R 4 129 874 BCE ENDSTM,PREFIX-3,/ END? 8 0874 B /82 U95 / 5 130 882 SWITCH BCE SAME,PREFIX-3,X INITIALLY NONEXISTENT STMT, 8 0882 B 991 U95 X 5 131 * LATER CURRENT ONE 132 * 133 * COMPUTE ADDRESS OF KEYWORD IF NOT THE SAME STATEMENT 134 * TYPE AS THE PREVIOUS ONE 135 * 136 890 MZ PREFIX-3,SWITCH&7 MOVE STATEMENT CODE 7 0890 Y U95 889 5 137 897 MN PREFIX-3,SWITCH&7 TO SWITCH D-MODIFIER 7 0897 D U95 889 5 138 904 MN PREFIX-3,W1 7 0904 D U95 U99 5 139 911 ZA W1,W3 W3 = 7 0911 ? U99 V02 6 140 918 A W3 3 * NUMERIC PART 4 0918 A V02 6 141 922 A W1,W3 OF STMT CODE 7 0922 A U99 V02 6 142 929 MZ NOZONE,W3 7 0929 Y V03 V02 6 143 936 LCA TABADR,GETTAB&3 TABLE ADDRESS 7 0936 L V06 979 6 144 943 A W3,GETTAB&3 + 3 * NUMERIC TO GETTAB 7 0943 A V02 979 6 145 950 MZ PREFIX-3,GETTAB&2 7 0950 Y U95 978 7 146 957 CW GETTAB&1 4 0957 ) 977 7 147 961 MCW X2,SAVE SAVE X2 7 0961 M 094 V14 7 FORTRAN COMPILER -- SQUEEZE PHASE -- PHASE 08 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 968 MCW AND X1 1 0968 M 7 149 969 MCM INDEXS,X1-2 X1,X2,X3 = 27, 54, 81 7 0969 P U78 087 7 150 976 GETTAB MCW 0,X3 GET ADDRESS OF KEYWORD FROM TABLE 7 0976 M 000 099 7 151 983 MCW SAVE,X2 RETRIEVE X2 7 0983 M V14 094 8 152 990 MCW AND X1 1 0990 M 8 153 991 SAME LCA 0&X1,0&X2 MOVE STATEMENT UP 7 0991 L 0|0 0!0 8 154 998 SAR X1 ADDRESS OF NEXT LOWER SOURCE 4 0998 Q 089 8 155 1 002 C 0&X2 GET B-STAR BELOW NEXTG WORD MARK 4 1002 C 0!0 8 156 1 006 SAR X2 ADDRESS OF NEXT LOWER TARGET 4 1006 Q 094 8 157 1 010 C 0&X1,0&X3 CORRECT KEYWORD? 7 1010 C 0|0 0?0 8 158 1 017 SAR X1 GET X1 BELOW KEYWORD 4 1017 Q 089 9 159 1 021 BU WRONG 5 1021 B |92 / 9 160 1 026 MVMORE LCA 0&X1,0&X2 MOVE PART OF STMT BELOW KEYWORD UP 7 1026 L 0|0 0!0 9 161 1 033 SAR X1 GET BELOW BOTTOM OF SOURCE STATEMENT 4 1033 Q 089 9 162 1 037 C 0&X2 GET BELOW BOTTOM 4 1037 C 0!0 9 163 1 041 SAR X2 OF TARGET STATEMENT 4 1041 Q 094 9 164 1 045 IFDONE BCE DONE,0&X1, DONE? 8 1045 B |57 0|0 9 165 1 053 B NEXT 4 1053 B 852 10 166 * 167 * LOAD NEXT OVERLAY 168 * 169 1 057 DONE CS 0&X2 4 1057 / 0!0 10 170 1 061 CS 1 1061 / 10 171 1 062 BSS SNAPSH,C 5 1062 B 333 C 10 172 1 067 SBR LOADXX&3,839 SET ENTRY ADDRESS FOR NEXT PHASE 7 1067 H 796 839 10 173 1 074 SBR CLEARL&3,GMWM TOP OF CLEARED AREA 7 1074 H 710 V67 10 174 1 081 LCA DIMEN1,PHASID NAME OF NEXT PHASE 7 1081 L V20 110 10 175 1 088 B LOADNX 4 1088 B 700 11 176 * 177 * KEYWORD DOESN'T MATCH STATEMENT CODE 178 * 179 1 092 WRONG CS 332 4 1092 / 332 11 180 1 096 CS 1 1096 / 11 181 1 097 SW 184 WHAT DOES THIS DO? 4 1097 , 184 11 182 1 101 MN SEQ,249 7 1101 D U94 249 11 183 1 108 MN 1 1108 D 11 184 1 109 MN 1 1109 D 11 185 1 110 MCW ERROR1 4 1110 M V66 12 186 1 114 W 1 1114 2 12 187 1 115 BCV PAGOVL 5 1115 B /24 @ 12 188 1 120 B NOOVL 4 1120 B /26 12 189 1 124 PAGOVL CC 1 2 1124 F 1 12 190 1 126 NOOVL MCM 2&X2 GET ABOVE STATEMENT'S TOP 4 1126 P 0!2 12 191 1 130 MN AND THEN 1 1130 D 12 192 1 131 MN DOWN TWO 1 1131 D 13 193 1 132 SAR X2 4 1132 Q 094 13 194 1 136 BCE NOOVL,1&X2,| MORE TO MOVE IF RM 8 1136 B /26 0!1 | 13 195 1 144 C 0&X1 GET BELOW KEYWORD 4 1144 C 0|0 13 196 1 148 SAR X1 4 1148 Q 089 13 197 1 152 B IFDONE GO TEST IF DONE 4 1152 B |45 13 FORTRAN COMPILER -- SQUEEZE PHASE -- PHASE 08 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 * 199 * ARITHMETIC STATEMENT 200 * 201 1 156 ARITH LCA 0&X1,0&X2 MOVE PREFIX UP 7 1156 L 0|0 0!0 13 202 1 163 SAR X1 AND MOVE 4 1163 Q 089 14 203 1 167 LCA 0&X2,0&X2 INDEX REGISTERS DOWN 7 1167 L 0!0 0!0 14 204 1 174 SBR X2 TO STATEMENT 4 1174 H 094 14 205 1 178 B MVMORE 4 1178 B |26 14 206 * 207 * END STATEMENT 208 * 209 1 182 ENDSTM C 0&X1 GET BELOW 4 1182 C 0|0 14 210 1 186 C STATEMENT 1 1186 C 14 211 1 187 SAR X1 4 1187 Q 089 14 212 1 191 B IFDONE 4 1191 B |45 15 213 * 214 * TABLE OF ADDRESSES OF STATEMENT KEYWORDS 215 * 216 1 197 TABLE DSA RDTAPE 1 READ TAPE 3 1197 U03 15 217 1 200 DSA 0 3 1200 000 15 218 1 203 DSA WRTAPE 2 WRITE TAPE 3 1203 U12 15 219 1 206 DSA 0 3 1206 000 15 220 1 209 DSA RDINTP 5 READ INPUT TAPE 3 1209 T70 15 221 1 212 DSA WROTTP 6 WRITE OUTPUT TAPE 3 1212 T95 15 222 1 215 DSA 0 3 1215 000 16 223 1 218 DSA 0 3 1218 000 16 224 1 221 DSA NOZONE 9 3 1221 V03 16 225 1 224 DSA 0 3 1224 000 16 226 1 227 DSA STOP S STOP 3 1227 T36 16 227 1 230 DSA CGOTO T COMPUTED GOTO 3 1230 T11 16 228 1 233 DSA PUNCH U PUNCH 3 1233 T75 16 229 1 236 DSA 0 3 1236 000 17 230 1 239 DSA IFSW W IF ( SENSE SWITCH ... 3 1239 T27 17 231 1 242 DSA 0 3 1242 000 17 232 1 245 DSA 0 3 1245 000 17 233 1 248 DSA REWIND Z REWIND 3 1248 U25 17 234 1 251 DSA SLITE J SENSE LIGHT 3 1251 U77 17 235 1 254 DSA IFSL K IF ( SENSE LIGHT ... ) 3 1254 U67 17 236 1 257 DSA READ L READ 3 1257 T57 18 237 1 260 DSA 0 3 1260 000 18 238 1 263 DSA ENDFIL N ENDFILE 3 1263 U19 18 239 1 266 DSA 0 3 1266 000 18 240 1 269 DSA PRINT P PRINT 3 1269 T80 18 241 1 272 DSA EQUIV Q 3 1272 U54 18 242 1 275 DSA 0 ARITHMETIC 3 1275 000 18 243 1 278 DSA PAUSE A PAUSE 3 1278 T32 19 244 1 281 DSA BACKSP B BACKSPACE 3 1281 U34 19 245 1 284 DSA CONT C CONTINUE 3 1284 T46 19 246 1 287 DSA DO D DO 3 1287 T38 19 247 1 290 DSA IF E IF 3 1290 T13 19 FORTRAN COMPILER -- SQUEEZE PHASE -- PHASE 08 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 293 DSA FORMAT F FORMAT 3 1293 T53 19 249 1 296 DSA GOTO G GOTO 3 1296 T06 19 250 1 299 DSA 0 3 1299 000 20 251 1 302 DSA DIM I DIMENSION 3 1302 U43 20 252 * 253 * STATEMENT KEYWORDS SPELLED BACKWARD 254 * 255 1 306 GOTO DCW @OTOG@ GO TO 4 1306 20 256 1 311 CGOTO DCW @%OTOG@ GO TO ( 5 1311 20 257 1 313 IF DCW @FI@ IF 2 1313 20 258 1 327 IFSW DCW @HCTIWSESNES%FI@ IF ( SENSE SWITCH 14 1327 20 259 1 332 PAUSE DCW @ESUAP@ PAUSE 5 1332 20 260 1 336 STOP DCW @POTS@ STOP 4 1336 21 261 1 338 DO DCW @OD@ DO 2 1338 21 262 1 346 CONT DCW @EUNITNOC@ CONTINUE 8 1346 21 263 1 353 FORMAT DCW @%TAMROF@ FORMAT ( 7 1353 21 264 1 357 READ DCW @DAER@ READ 4 1357 21 265 1 370 RDINTP DCW @EPATTUPNIDAER@ READ INPUT TAPE 13 1370 21 266 1 375 PUNCH DCW @HCNUP@ PUNCH 5 1375 22 267 1 380 PRINT DCW @TNIRP@ PRINT 5 1380 22 268 1 395 WROTTP DCW @EPATTUPTUOETIRW@ WRITE OUTPUT TAPE 15 1395 22 269 1 403 RDTAPE DCW @EPATDAER@ READ TAPE 8 1403 22 270 1 412 WRTAPE DCW @EPATETIRW@ WRITE TAPE 9 1412 23 271 1 419 ENDFIL DCW @ELIFDNE@ END FILE 7 1419 23 272 1 425 REWIND DCW @DNIWER@ REWIND 6 1425 23 273 1 434 BACKSP DCW @ECAPSKCAB@ BACKSPACE 9 1434 23 274 1 443 DIM DCW @NOISNEMID@ DIMENSION 9 1443 24 275 1 454 EQUIV DCW @ECNELAVIUQE@ EQUIVALENCE 11 1454 24 276 1 467 IFSL DCW @THGILESNES%FI@ IF ( SENSE LIGHT 13 1467 24 277 1 477 SLITE DCW @THGILESNES@ SENSE LIGHT 10 1477 25 278 * 279 * OTHER DATA 280 * 281 INDEXS EQU *&1 1478 282 1 491 DCW @0270005400081|@ 14 1491 25 283 1 494 SEQ DCW #3 SEQUENCE NUMBER FROM STATEMENT 3 1494 25 284 1 498 PREFIX DCW #4 4 1498 25 285 1 499 W1 DCW #1 USED TO COMPUTE 3 * NUMERIC PART OF CODE 1 1499 25 286 1 502 W3 DCW #3 3 1502 25 287 1 503 NOZONE DCW #1 1 1503 25 288 1 506 TABADR DSA TABLE-3 3 1506 /94 26 289 1 514 SAVE DCW #8 8 1514 26 290 1 520 DIMEN1 DCW @DIMEN1@ 6 1520 26 291 1 566 ERROR1 DCW @ERROR 1 - UNDETERMINABLE STATEMENT, STATEMENT @ 46 1566 28 292 1 567 GMWM DCW @}@ 1 1567 GMARK 28 293 ORG 201 0201 294 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 29 295 EX BEGINN B 838 30 296 END / 000 080 FORTRAN COMPILER -- SQUEEZE PHASE -- PHASE 08 PAGE 5 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ARITH 1156 BACKSP 1434 BEGINN 838 CGOTO 1311 CLEARL 707 CONT 1346 DIM 1443 DIMEN1 1520 DO 1338 DONE 1057 ENDFIL 1419 ENDSTM 1182 EQUIV 1454 ERROR1 1566 FORMAT 1353 GETTAB 976 GMWM 1567 GOTO 1306 IF 1313 IFDONE 1045 IFSL 1467 IFSW 1327 INDEXS 1478 LOADDD 838 LOADNX 700 LOADXX 793 MVMORE 1026 NEXT 852 NOOVL 1126 NOZONE 1503 PAGOVL 1124 PAUSE 1332 PHASID 110 PREFIX 1498 PRINT 1380 PUNCH 1375 RDINTP 1370 RDTAPE 1403 READ 1357 REWIND 1425 SAME 991 SAVE 1514 SEQ 1494 SLITE 1477 SNAPSH 333 STOP 1336 SWITCH 882 TABADR 1506 TABLE 1197 W1 1499 W3 1502 WRONG 1092 WROTTP 1395 WRTAPE 1412 X1 89 X2 94 X3 99