SUBR STRT REV E 1 PAGE 4

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 0201 00306 0 01 00303 JMP *-3 ERROR - TRY AGAIN 0202 00307 0 02 00557 LDA FF! TYPE FF FAULT 0203 00310 0 10 00000 CALL MESS 0204 00311 0 02 00450 LDA PHASE PICK UP FAULT NUMBER 0205 00312 0 06 00501 ADD ='260 0206 00313 74 0004 OTA 4 0207 00314 0 01 00313 JMP *-1 0208 00315 0 02 00447 LDA SAVA 0209 00316 0 10 00000 CALL STATES 0210 00317 000000 HLT 0211 00320 0 01 00000 JMP STRT 0212 00321 0 10 00000 ERR5 CALL WIND 0213 00322 0 02 00557 LDA FF! 0214 00323 0 10 00000 CALL MESS 0215 00324 0 02 00500 LDA ='264 0216 00325 74 0004 OTA 4 0217 00326 0 01 00325 JMP *-1 0218 00327 0 10 00000 CALL 2LIN 0219 00330 000000 HLT 0220 00331 0 01 00331 JMP * 0221 00332 0 02 00575 INT1 LDA IN! 0222 00333 0 01 00411 JMP HALT 0223 00334 0 02 00773 INT2 LDA IN2! 0224 00335 0 01 00411 JMP HALT 0225 00336 0 02 00612 DOWN LDA DOW! 0226 00337 0 01 00417 JMP STOP 0227 00340 0 02 00650 RELY LDA RLY! 0228 00341 0 01 00417 JMP STOP