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 BUILD MT1 RECORD 2 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN BUILD MT1 RECORD 2 102 CTL 6611 103 * 104 * DETERMINE CORE SIZE 105 * SKIP DESCRIPTIVE RECORD -- RECORD 3 -- FOR PHASE 4 106 * READ PHASE 4 -- THE I/O PROCESSOR 107 * 108 SFX 2 109 X1 EQU 89 2 0089 110 X2 EQU 94 2 0094 111 X3 EQU 99 2 0099 112 ENTER4 EQU 555 START ADDRESS FOR PHASE 4 2 0555 113 NEED 4 EQU 925 WHICH RECORD IS NEEDED 2 0925 114 CORIX4 EQU 915 CORE INDEX IN PHASE 4 2 0915 115 UNIT 4 EQU 941 UNIT NUMBER IN PHASE 4 2 0941 116 UNIT EQU 2533 SET IN PHASE 1 2 2533 117 ORG 2000 2 2000 118 2 000 ENTER B GO 2 4 2000 B !13 4 119 2 012 TEST DCW @172SYSCTL@ 2 9 2012 4 120 2 013 GO SW 1 2 4 2013 , 001 4 121 2 017 BCE CLR1,34, CORE SIZE NOT BEING SPECIFIED 2 8 2017 B !54 034 4 122 2 025 SBR CONT-2,CONT 2 7 2025 H J86 J88 4 123 2 032 MN 35,CORSP 2ND DIGIT OF SPECIFIED CORE SIZE 2 7 2032 D 035 K39 4 124 2 039 BCE CLR1,34,1 Q. FIRST DIGIT 1 2 8 2039 B !54 034 1 5 125 2 047 MN 34,CORSP 1ST DIGIT IS ONLY ONE 2 7 2047 D 034 K39 5 126 * 127 * CLEAR 1-1999 128 * 129 2 054 CLR1 CS ENTER-1 CLEAR FROM 2 4 2054 / Z99 5 130 2 058 SBR CLR1&3 ENTER-1 2 4 2058 H !57 5 131 2 062 BW CLR1,1 DOWN TO 1 2 8 2062 V !54 001 1 5 132 2 070 SW 1 2 4 2070 , 001 5 133 * 134 * DETERMINE CORE SIZE MOD 4K 135 * 136 2 074 CS 0 2 4 2074 / 000 5 137 2 078 SBR CORSZ STORE CORE SIZE 2 4 2078 H K38 6 138 2 082 BCE GOTSZ,CORSZ,9 Q. 4K MACHINE 2 8 2082 B J27 K38 9 6 139 2 090 A K4,CORIX CORIX BECOMES 8 2 7 2090 A L21 K40 6 140 2 097 BCE GOTSZ,CORSZ,Z Q. 8K MACHINE 2 8 2097 B J27 K38 Z 6 141 2 105 A K4,CORIX CORIX BECOMES 2, NO OVFL 2 7 2105 A L21 K40 6 142 2 112 BCE GOTSZ,CORSZ,R Q. 12K 2 8 2112 B J27 K38 R 7 143 2 120 A K4,CORIX CORIX BECOMES 6, NO OVFL 2 7 2120 A L21 K40 7 144 * 145 * LOAD NEXT PHASE (IOP) 146 * 147 2 127 GOTSZ MN UNIT,*&4 2 7 2127 D N33 J37 7 1 FORTRAN BUILD MT1 RECORD 2 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 134 RTW RTW 1,182 SKIP DESCRIPTIVE RECORD FOR IOP 2 8 2134 L %U1 182 R 7 149 2 142 MN UNIT,*&4 2 7 2142 D N33 J52 7 150 2 149 RTW 1,182 LOAD NEXT PHASE (IOP) 2 8 2149 L %U1 182 R 8 151 2 157 BER TAPER 2 5 2157 B K41 L 8 152 2 162 SW X2-2,X3-2 2 7 2162 , 092 097 8 153 2 169 SW 333,X1-2 2 7 2169 , 333 087 8 154 2 176 C CORSP,CORIX 2 7 2176 C K39 K40 8 155 2 183 BL *&8 SOMETIMES *&1, SEE GO 2 5 2183 B J95 T 8 156 2 188 CONT MN CORSP,CORIX 2 7 2188 D K39 K40 9 157 2 195 MN CORIX,CORIX4 COPY CORE INDEX TO IOP PHASE 2 7 2195 D K40 915 9 158 2 202 MN RTW&3,UNIT 4 COPY UNIT NUMBER TO IOP PHASE 2 7 2202 D J37 941 9 159 2 209 CLR2 CS 0 CLEAR FROM TOP 2 4 2209 / 000 9 160 2 213 SBR CLR2&3 OF CORE DOWN 2 4 2213 H K12 9 161 2 217 BW CLR2,CLRBT TO CLRBT 2 8 2217 V K09 M00 1 9 162 2 225 MCW DET,NEED 4 TELL IOP TO LOAD DET PHASE 2 7 2225 M L24 925 10 163 2 232 B ENTER4 ENTER IOP PHASE 2 4 2232 B 555 10 164 2 238 CORSZ DCW #3 CORE SIZE DETECTED 2 3 2238 10 165 2 239 CORSP DCW 9 INDEX OF SPECIFIED CORE SIZE 2 1 2239 10 166 2 240 CORIX DCW 4 INDEX OF DETECTED CORE SIZE 2 1 2240 10 167 * 168 * TAPE ERROR ROUTINE 169 * 170 2 241 TAPER MN UNIT,*&4 2 7 2241 D N33 K51 10 171 2 248 BSP 0 2 5 2248 U %U0 B 10 172 2 253 BCE MANY,ERCNT,I 2 8 2253 B K72 K93 I 11 173 2 261 A *-6,ERCNT 2 7 2261 A K61 K93 11 174 2 268 B MANY 2 4 2268 B K72 11 175 * 176 * TOO MANY ERRORS 177 * 178 2 272 MANY MCW ERMSG,270 2 7 2272 M L20 270 11 179 2 279 W 2 1 2279 2 11 180 2 280 CC 1 2 2 2280 F 1 11 181 2 282 H 111,111 2 7 2282 . 111 111 11 182 2 289 B MANY 2 4 2289 B K72 12 183 2 293 ERCNT DCW &0 2 1 2293 12 184 2 294 S ERCNT 2 4 2294 S K93 12 185 2 320 ERMSG DCW @CANNOT READ SYSTEM TAPE@ 2 23 2320 12 186 2 321 K4 DCW 4 2 1 2321 12 187 2 324 DET DCW @DET@ 2 3 2324 12 188 ORG *&X00 2 2400 189 2 400 CLRBT DCW #1 2 1 2400 13 190 2 401 DCW @}@ 2 1 2401 GMARK 13 191 END 2 / 000 080 1 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CLR1 2 2054 CLR2 2 2209 CLRBT2 2400 CONT 2 2188 CORIX2 2240 CORIX4 915 CORSP2 2239 CORSZ2 2238 DET 2 2324 ENTER2 2000 ENTER4 555 ERCNT2 2293 ERMSG2 2320 GO 2 2013 GOTSZ2 2127 K4 2 2321 MANY 2 2272 NEED 4 925 RTW 2 2134 TAPER2 2241 TEST 2 2012 UNIT 2 2533 UNIT 4 941 X1 2 89 X2 2 94 X3 2 99