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 -- IF COND PHASE -- PHASE 44 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- IF COND PHASE -- PHASE 44 102 CTL 6611 103 * 104 * IN-LINE INSTRUCTIONS ARE GENERATED FOR IF ( SENSE SWITCH I ) 105 * AND IF ( SENSE LIGHT I ) 106 * 107 X1 EQU 89 0089 108 X2 EQU 94 0094 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 0333 116 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 117 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 118 CDOVLY EQU 769 1 IF RUNNING FROM CARDS, N IF FROM TAPE 0769 119 * 120 ORG 838 0838 121 LOADDD EQU *&1 LOAD ADDRESS 0838 122 838 BEGINN BCE DONE,0&X1, 8 0838 B 870 0|0 4 123 846 MCW 0&X1,SEQNO 7 0846 M 0|0 U45 4 124 853 MCW CODE 1 0853 M 4 125 854 BCE IFCOND,CODE,W IF ( SENSE SWITCH I ) 8 0854 B 893 U42 W 4 126 862 BCE IFCOND,CODE,K IF ( SENSE LIGHT I ) 8 0862 B 893 U42 K 4 127 870 DONE BSS SNAPSH,C 5 0870 B 333 C 4 128 875 SBR CLEARL&3,GMWM 7 0875 H 710 W14 5 129 882 LCA CONT,PHASID 7 0882 L U69 110 5 130 889 B LOADNX 4 0889 B 700 5 131 893 IFCOND MCW KLESS,2&X1 7 0893 M U70 0|2 5 132 900 SBR TSTLES&6,2&X1 7 0900 H S03 0|2 5 133 907 LCA 0&X1,0&X3 SEQNO, CODE, GMWM 7 0907 L 0|0 0?0 5 134 914 SAR X1 4 0914 Q 089 6 135 918 C 0&X3 4 0918 C 0?0 6 136 922 SAR X3 4 0922 Q 099 6 137 926 LCA 1&X3,2&X3 REPLACE STATEMENT CODE WITH GMWM 7 0926 L 0?1 0?2 6 138 933 SBR X3 4 0933 H 099 6 139 937 MCW 0&X1,ON 7 0937 M 0|0 U36 6 140 944 MCW 1 0944 M 6 141 945 SAR X1 4 0945 Q 089 7 142 949 MZ X2ZONE,ON-1 7 0949 Y U71 U35 7 143 956 MZ X2ZONE,OFF-1 7 0956 Y U71 U32 7 144 963 BWZ *&5,SEQNO,2 8 0963 V 975 U45 2 7 145 971 B *&9 4 0971 B 983 7 146 975 BWZ *&15,SEQNO-2,2 8 0975 V 997 U43 2 7 147 983 MCW SEQNO,X2 7 0983 M U45 094 8 FORTRAN COMPILER -- IF COND PHASE -- PHASE 44 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 990 MCW 0&X2,SEQNO 7 0990 M 0!0 U45 8 149 997 B MORE 4 0997 B |20 8 150 * 151 1 001 BOTTOM C 0&X1 4 1001 C 0|0 8 152 1 005 SAR X1 4 1005 Q 089 8 153 1 009 SBR X3,4&X3 7 1009 H 099 0?4 8 154 1 016 B BEGINN 4 1016 B 838 8 155 * 156 1 020 MORE MN 0&X1 4 1020 D 0|0 9 157 1 024 SAR X1 4 1024 Q 089 9 158 1 028 BCE SLITE,CODE,K 8 1028 B S54 U42 K 9 159 * 160 * IF ( SENSE SWITCH I ) ON, OFF 161 * 162 1 036 MCW 0&X1,CH 7 1036 M 0|0 U72 9 163 1 043 MCW CH,*&8 7 1043 M U72 |57 9 164 1 050 BCE OKSW,K0TO6,0 8 1050 B /02 U79 0 9 165 1 058 B 1 1058 B 9 166 1 059 B 1 1059 B 10 167 1 060 B 1 1060 B 10 168 1 061 B 1 1061 B 10 169 1 062 B 1 1062 B 10 170 1 063 B 1 1063 B 10 171 1 064 CS 332 4 1064 / 332 10 172 1 068 CS 1 1068 / 10 173 1 069 SW GLOBER 4 1069 , 184 11 174 1 073 MN SEQNO,246 7 1073 D U45 246 11 175 1 080 MN 1 1080 D 11 176 1 081 MN 1 1081 D 11 177 1 082 MCW ERR37 4 1082 M V22 11 178 1 086 W 1 1086 2 11 179 1 087 BCV *&5 5 1087 B |96 @ 11 180 1 092 B *&3 4 1092 B |98 12 181 1 096 CC 1 2 1096 F 1 12 182 1 098 B BOTTOM 4 1098 B |01 12 183 * 184 * SENSE SWITCH NUMBER IS OK 185 * 186 1 102 OKSW A KP1,CH 7 1102 A V23 U72 12 187 1 109 MN CH,BIN 7 1109 D U72 U41 12 188 1 116 MCW ON,BIN-1 7 1116 M U36 U40 12 189 1 123 MCW OFF,X2 7 1123 M U33 094 12 190 1 130 MCW 0&X2,X2 7 1130 M 0!0 094 13 191 1 137 S KP10,X2&1 7 1137 S V25 095 13 192 1 144 C SEQNO,X2 7 1144 C U45 094 13 193 1 151 BE SAME 5 1151 B S39 S 13 194 1 156 MCW OFF,BRANCH 7 1156 M U33 U49 13 195 1 163 LCA BRANCH,0&X3 7 1163 L U49 0?0 14 196 1 170 LCA BIN 4 1170 L U41 14 197 1 174 SBR X3 4 1174 H 099 14 FORTRAN COMPILER -- IF COND PHASE -- PHASE 44 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 178 ALMOST C 0&X1 4 1178 C 0|0 14 199 1 182 SAR X1 4 1182 Q 089 14 200 1 186 LCA 1&X1,0&X3 7 1186 L 0|1 0?0 14 201 1 193 SBR X3 4 1193 H 099 14 202 1 197 TSTLES BCE BEGINN,0,< NOT TOO BIG IF LESS-THAN NOT CLOBBERED 8 1197 B 838 000 < 15 203 1 205 CS 332 4 1205 / 332 15 204 1 209 CS 1 1209 / 15 205 1 210 CC 1 2 1210 F 1 15 206 1 212 MCW ERROR2,270 7 1212 M V61 270 15 207 1 219 W 1 1219 2 15 208 1 220 CC 1 2 1220 F 1 15 209 1 222 BCE HALT,CDOVLY,1 8 1222 B S35 769 1 16 210 1 230 RWD 1 5 1230 U %U1 R 16 211 1 235 HALT H HALT 4 1235 . S35 16 212 * 213 1 239 SAME LCA BIN,0&X3 7 1239 L U41 0?0 16 214 1 246 SBR X3 4 1246 H 099 16 215 1 250 B ALMOST 4 1250 B /78 16 216 * 217 1 254 SLITE MCW 0&X1,CH 7 1254 M 0|0 U72 16 218 1 261 MCW CH,1275 7 1261 M U72 S75 17 219 1 268 BCE OKLITE,K1234,0 8 1268 B T17 V65 0 17 220 1 276 B 1 1276 B 17 221 1 277 B 1 1277 B 17 222 1 278 B 1 1278 B 17 223 1 279 CS 332 4 1279 / 332 17 224 1 283 CS 1 1283 / 17 225 1 284 SW GLOBER 4 1284 , 184 18 226 1 288 MN SEQNO,245 7 1288 D U45 245 18 227 1 295 MN 1 1295 D 18 228 1 296 MN 1 1296 D 18 229 1 297 MCW ERR36 4 1297 M W07 18 230 1 301 W 1 1301 2 18 231 1 302 BCV *&5 5 1302 B T11 @ 18 232 1 307 B *&3 4 1307 B T13 19 233 1 311 CC 1 2 1311 F 1 19 234 1 313 B BOTTOM 4 1313 B |01 19 235 * 236 1 317 OKLITE MCW K080,W3 7 1317 M W10 W13 19 237 1 324 A CH,W3 7 1324 A U72 W13 19 238 1 331 MCW W3,BW-1 7 1331 M W13 U56 19 239 1 338 MCW OFF 4 1338 M U33 19 240 1 342 MCW W3,SW 7 1342 M W13 U61 20 241 1 349 MCW ON,X2 7 1349 M U36 094 20 242 1 356 MCW 0&X2,X2 7 1356 M 0!0 094 20 243 1 363 S KP10,X2&1 7 1363 S V25 095 20 244 1 370 C SEQNO,X2 7 1370 C U45 094 20 245 1 377 BE SAME2 5 1377 B U12 S 21 246 1 382 MCW ON,BRANCH 7 1382 M U36 U49 21 247 1 389 LCA BRANCH,0&X3 7 1389 L U49 0?0 21 FORTRAN COMPILER -- IF COND PHASE -- PHASE 44 PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 396 LCA SW 4 1396 L U61 21 249 1 400 LCA BW 4 1400 L U57 21 250 1 404 SBR X3 4 1404 H 099 21 251 1 408 B ALMOST 4 1408 B /78 21 252 1 412 SAME2 LCA SW,0&X3 7 1412 L U61 0?0 22 253 1 419 LCA BW 4 1419 L U57 22 254 1 423 SBR X3 4 1423 H 099 22 255 1 427 B ALMOST 4 1427 B /78 22 256 * 257 * DATA 258 * 259 1 433 OFF DCW #3 3 1433 22 260 1 436 ON DCW #3 3 1436 22 261 1 441 BIN DCW @B &@ 5 1441 22 262 1 442 CODE DCW #1 1 1442 23 263 1 445 SEQNO DCW #3 3 1445 23 264 1 449 BRANCH DCW @B @ 4 1449 23 265 1 457 BW DCW @V 1@ 8 1457 23 266 1 461 SW DCW @, @ 4 1461 23 267 1 469 CONT DCW @CONTINUE@ 8 1469 23 268 1 470 KLESS DCW @<@ 1 1470 23 269 1 471 X2ZONE DCW @K@ 1 1471 24 270 1 472 CH DCW #1 1 1472 24 271 1 479 K0TO6 DCW @0123456@ 7 1479 24 272 1 522 ERR37 DCW @ERROR 37 - ILLEGAL SENSE SWITCH, STATEMENT @ 43 1522 26 273 1 523 KP1 DCW &1 1 1523 26 274 1 525 KP10 DCW &10 2 1525 26 275 1 561 ERROR2 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 36 1561 27 276 1 565 K1234 DCW 1234 4 1565 28 277 1 607 ERR36 DCW @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @ 42 1607 30 278 1 610 K080 DSA 80 3 1610 080 30 279 1 613 W3 DCW #3 3 1613 30 280 1 614 GMWM DCW @}@ 1 1614 GMARK 30 281 ORG 201 0201 282 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 31 283 EX BEGINN B 838 32 284 END / 000 080 FORTRAN COMPILER -- IF COND PHASE -- PHASE 44 PAGE 5 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ALMOST 1178 BEGINN 838 BIN 1441 BOTTOM 1001 BRANCH 1449 BW 1457 CDOVLY 769 CH 1472 CLEARL 707 CODE 1442 CONT 1469 DONE 870 ERR36 1607 ERR37 1522 ERROR2 1561 GLOBER 184 GMWM 1614 HALT 1235 IFCOND 893 K080 1610 K0TO6 1479 K1234 1565 KLESS 1470 KP1 1523 KP10 1525 LOADDD 838 LOADNX 700 MORE 1020 OFF 1433 OKLITE 1317 OKSW 1102 ON 1436 PHASID 110 SAME 1239 SAME2 1412 SEQNO 1445 SLITE 1254 SNAPSH 333 SW 1461 TSTLES 1197 W3 1613 X1 89 X2 94 X2ZONE 1471 X3 99