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 -- STOP/PAUSE PHASE -- PHASE 42 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- STOP/PAUSE PHASE -- PHASE 42 102 CTL 6611 103 * 104 * THE PROPER INSTRUCTIONS TO 105 * 1. HALT 106 * 2. HALT, CONTINUE, AND DISPLAY THE NUMBER INDICATED 107 * ARE GENERATED IN-LINE 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 CDOVLY EQU 769 1 IF RUNNING FROM CARDS, N IF FROM TAPE 0769 120 * 121 ORG 838 0838 122 LOADDD EQU *&1 LOAD ADDRESS 0838 123 838 BEGINN CS 299 4 0838 / 299 4 124 842 LOOP BCE DONE,0&X1, 8 0842 B 873 0|0 4 125 850 MCW 0&X1,CODSEQ 7 0850 M 0|0 W02 4 126 857 BCE STOPPZ,CODSEQ-3,A PAUSE STATMENT? 8 0857 B 896 V99 A 4 127 865 BCE STOPPZ,CODSEQ-3,S STOP STATEMENT? 8 0865 B 896 V99 S 4 128 873 DONE BSS SNAPSH,C 5 0873 B 333 C 5 129 878 SBR CLEARL&3,GMWM 7 0878 H 710 W61 5 130 885 LCA LIGHT,PHASID 7 0885 L W07 110 5 131 892 B LOADNX 4 0892 B 700 5 132 * 133 * STOP OR PAUSE STATEMENT 134 * 135 896 STOPPZ MCW KLESS,2&X1 7 0896 M W08 0|2 5 136 903 SBR TSTLES&6,2&X1 7 0903 H S58 0|2 5 137 910 LCA 0&X1,0&X3 SEQNO, CODE, GMWM 7 0910 L 0|0 0?0 6 138 917 SAR X1 4 0917 Q 089 6 139 921 C 0&X3 4 0921 C 0?0 6 140 925 SAR X3 4 0925 Q 099 6 141 929 LCA 1&X3,2&X3 CLOBBER STATEMENT CODE WITH GMWM 7 0929 L 0?1 0?2 6 142 936 SBR X3 4 0936 H 099 6 143 940 BCE NOCODE,0&X1,} 8 0940 B |69 0|0 } GMARK 6 144 948 CS WORK 4 0948 / V98 7 145 952 MN WRKBOT 4 0952 D V00 7 146 956 MN 1 0956 D 7 147 957 SAR X2 4 0957 Q 094 7 FORTRAN COMPILER -- STOP/PAUSE PHASE -- PHASE 42 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 961 SBR X1,0&X1 7 0961 H 089 0|0 7 149 * 150 * MOVE THE STOP CODE INTO THE WORK AREA 151 * 152 968 MOVCOD MCW 0&X1,W1 7 0968 M 0|0 W09 7 153 975 SAR X1 4 0975 Q 089 7 154 979 BW GOTWM,1&X1 8 0979 V |02 0|1 1 8 155 987 MCW W1,2&X2 7 0987 M W09 0!2 8 156 994 SBR X2 4 0994 H 094 8 157 998 B MOVCOD 4 0998 B 968 8 158 * 159 1 002 GOTWM SW WRKBOT 4 1002 , V00 8 160 1 006 BCE TWOTST,WRKBOT&3, ONE, TWO OR THREE DIGITS? 8 1006 B |42 V03 8 161 1 014 MCW ERR35,222 7 1014 M T15 222 9 162 1 021 MCW MSG,247 7 1021 M T33 247 9 163 1 028 MCW WRKBOT&4,228 7 1028 M V04 228 9 164 1 035 MCW WRKBOT&2,251 7 1035 M V02 251 9 165 1 042 TWOTST BCE TWODIG,WRKBOT&2, ONE OR TWO DIGITS? 8 1042 B |54 V02 9 166 1 050 B GOTCOD 4 1050 B |84 10 167 1 054 TWODIG MCW WRKBOT&1,WRKBOT&2 7 1054 M V01 V02 10 168 1 061 MCW K0 4 1061 M W10 10 169 1 065 B TWOTST 4 1065 B |42 10 170 1 069 NOCODE LCA K000,WRKBOT&2 USE 000 FOR HALT CODE 7 1069 L W13 V02 10 171 1 076 C 0&X1 4 1076 C 0|0 10 172 1 080 SAR X1 4 1080 Q 089 10 173 1 084 GOTCOD MCW WRKBOT&2,W3 7 1084 M V02 W16 11 174 1 091 A K0,WRKBOT&3 7 1091 A W10 V03 11 175 1 098 C WRKBOT&2,W3 CODE IS NUMERIC? 7 1098 C V02 W16 11 176 1 105 BE NOZONE YES 5 1105 B /70 S 11 177 1 110 BCE NOTYET,201, SHOWED A MESSAGE YET? 8 1110 B /31 201 11 178 1 118 CLRCOD MZ K3B,251 CLEAR THE CODE IN THE MESSAGE 7 1118 Y W19 251 12 179 1 125 MZ 1 1125 Y 12 180 1 126 MZ 1 1126 Y 12 181 1 127 B NOZONE 4 1127 B /70 12 182 1 131 NOTYET MCW ERR35,222 7 1131 M T15 222 12 183 1 138 MCW MSG,247 7 1138 M T33 247 12 184 1 145 MCW WRKBOT&2,226 7 1145 M V02 226 12 185 1 152 MCW WRKBOT&2,251 7 1152 M V02 251 13 186 1 159 MCW K3B-2,223 7 1159 M W17 223 13 187 1 166 B CLRCOD 4 1166 B /18 13 188 1 170 NOZONE BCE NOMSG,201, 8 1170 B /94 201 13 189 1 178 W 1 1178 2 13 190 1 179 BCV *&5 5 1179 B /88 @ 13 191 1 184 B *&3 4 1184 B /90 13 192 1 188 CC 1 2 1188 F 1 14 193 1 190 CS 299 4 1190 / 299 14 194 1 194 NOMSG CW WRKBOT 4 1194 ) V00 14 195 1 198 BCE PAUSE,CODSEQ-3,A 8 1198 B S33 V99 A 14 196 1 206 LCA BRANCH&3,0&X3 BRANCH BACK TO NOP 7 1206 L W23 0?0 14 197 1 213 LCA HALTOP HALT 4 1213 L W24 14 FORTRAN COMPILER -- STOP/PAUSE PHASE -- PHASE 42 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 217 LCA WRKBOT&2 NOP WITH STOP CODE 4 1217 L V02 14 199 1 221 LCA 1&X1 GMWM 4 1221 L 0|1 15 200 1 225 SBR X3 4 1225 H 099 15 201 1 229 B TSTLES 4 1229 B S52 15 202 1 233 PAUSE LCA HALTOP,0&X3 HALT 7 1233 L W24 0?0 15 203 1 240 LCA WRKBOT&2 NOP WITH STOP CODE 4 1240 L V02 15 204 1 244 LCA 1&X1 GMWM 4 1244 L 0|1 15 205 1 248 SBR X3 4 1248 H 099 15 206 1 252 TSTLES BCE LOOP,0,< NOT TOO BIG IF LESS-THAN NOT CLOBBERED 8 1252 B 842 000 < 16 207 1 260 CS 332 4 1260 / 332 16 208 1 264 CS 1 1264 / 16 209 1 265 CC 1 2 1265 F 1 16 210 1 267 MCW ERROR2,270 7 1267 M W60 270 16 211 1 274 W 1 1274 2 16 212 1 275 CC 1 2 1275 F 1 16 213 1 277 BCE HALT,CDOVLY,1 8 1277 B S90 769 1 17 214 1 285 RWD 1 5 1285 U %U1 R 17 215 1 290 HALT H HALT 4 1290 . S90 17 216 1 315 ERR35 DCW @ERROR 35 - HALT NUMBER@ 22 1315 17 217 1 333 MSG DCW @TO BE DISPLAYED AS@ 18 1333 18 218 1 364 DC @ @ 31 1364 19 219 ORG 1499 1499 220 1 499 DCW @N@ 1 1499 20 221 1 500 WRKBOT EQU *&1 1500 222 1 548 DC @ @ 49 1548 22 223 ORG 1599 1599 224 1 598 WORK EQU * 1598 225 1 602 CODSEQ DCW #4 STATEMENT CODE AND SEQUENCE NUMBER 4 1602 23 226 1 607 LIGHT DCW @LIGHT@ 5 1607 23 227 1 608 KLESS DCW @<@ 1 1608 23 228 1 609 W1 DCW #1 1 1609 23 229 1 610 K0 DCW 0 1 1610 23 230 1 613 K000 DCW 000 3 1613 23 231 1 616 W3 DCW #3 3 1616 23 232 1 619 K3B DCW #3 3 1619 24 233 1 620 BRANCH B 15992&X3 4 1620 B IIB 24 234 1 624 HALTOP H 1 1624 . 24 235 1 660 ERROR2 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 36 1660 25 236 1 661 GMWM DCW @}@ 1 1661 GMARK 25 237 ORG 201 0201 238 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 26 239 EX BEGINN B 838 27 240 END / 000 080 FORTRAN COMPILER -- STOP/PAUSE PHASE -- PHASE 42 PAGE 4 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 838 BRANCH 1620 CDOVLY 769 CLEARL 707 CLRCOD 1118 CODSEQ 1602 DONE 873 ERR35 1315 ERROR2 1660 GMWM 1661 GOTCOD 1084 GOTWM 1002 HALT 1290 HALTOP 1624 K0 1610 K000 1613 K3B 1619 KLESS 1608 LIGHT 1607 LOADDD 838 LOADNX 700 LOOP 842 MOVCOD 968 MSG 1333 NOCODE 1069 NOMSG 1194 NOTYET 1131 NOZONE 1170 PAUSE 1233 PHASID 110 SNAPSH 333 STOPPZ 896 TSTLES 1252 TWODIG 1054 TWOTST 1042 W1 1609 W3 1616 WORK 1598 WRKBOT 1500 X1 89 X2 94 X3 99