STRT

SUBR STRT REV E 1 5-11-10 EI PAGE 4

0151 00224 0 03 00527 ANA ='77 0152 00225 101040 SNZ 0153 00226 0 01 00235 JMP SLEV 0154 00227 0 12 00446 IRS REPT 0155 00230 100000 SKP 0156 00231 0 01 00364 JMP SERF 0157 00232 0 02 00515 LDA =10 0158 00233 0 10 00000 CALL WAIT 0159 00234 0 01 00221 JMP UP 0160 00235 0 02 00712 SLEV LDA SL1! 0161 00236 0 10 00000 CALL MSGINT 0162 00237 0 02 00504 LDA =ARV 0163 00240 0 04 00074 STA '74 0164 00241 54 1012 INA '1012 0165 00242 0 01 00241 JMP *-1 0166 00243 0 03 04000 ANA '4000 IS J.6. AT ZERO? 0167 00244 101040 SNZ 0168 00245 0 10 00000 CALL INTR YES - FAULT 0169 00246 0 02 00077 LDA '77 0170 00247 0 03 00504 ANA =ARV IS RV THERE 0171 00250 0 05 00504 ERA =ARV 0172 00251 100040 SZE 0173 00252 0 01 00240 JMP SLEV+3 NOT YET 0174 00253 140040 CRA 0175 00254 0 04 00077 STA '77 0176 00255 0 02 00503 LDA ='57 TURN ON BIG PUMP 0177 00256 0 10 00000 CALL HOLD 0178 00257 100000 SKP 0179 00260 0 01 00321 JMP ERR5 0180 00261 0 02 00517 LDA =-10 0181 00262 0 04 00446 STA REPT 0182 00263 54 1500 GO INA '1500 0183 00264 0 01 00263 JMP *-1 0184 00265 0 03 00502 ANA ='40000 0185 00266 100040 SZE BIG PUMP IN DELTA? 0186 00267 0 01 00436 JMP ALGO ALL SYSTEMS GO 0187 00270 0 12 00446 IRS REPT 0188 00271 100000 SKP 0189 00272 0 01 00403 JMP DELT 0190 00273 0 02 00515 LDA =10 0191 00274 0 10 00000 CALL WAIT 0192 00275 0 01 00263 JMP GO 0193 00276 0 12 00450 ERR4 IRS PHASE 0194 00277 0 12 00450 ERR3 IRS PHASE 0195 00300 0 12 00450 ERR2 IRS PHASE 0196 00301 0 12 00450 ERR1 IRS PHASE 0197 00302 0 04 00447 STA SAVA 0198 00303 140040 CRA 0199 00304 0 10 00000 CALL HOLD SWITCH ALL OFF 0200 00305 100000 SKP