STRT

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

0251 00370 54 1012 INA '1012 0252 00371 0 01 00370 JMP *-1 0253 00372 0 03 00524 ANA ='40 IS J.6.0K? 0254 00373 101040 SNZ 0255 00374 0 01 00161 JMP SERV YES 0256 00375 0 12 00451 IRS T 0257 00376 0 01 00370 JMP SERF+4 0258 00377 0 12 00452 IRS T! 0259 00400 0 01 00370 JMP SERF+4 0260 00401 0 02 00747 LDA REG! 0261 00402 0 01 00417 JMP STOP 0262 00403 0 10 00000 DELT CALL WIND 0263 00404 0 02 00542 LDA DLT! 0264 00405 0 10 00000 CALL MESS 0265 00406 0 10 00000 CALL 2LIN 0266 00407 000000 HLT 0267 00410 0 01 00410 JMP * 0268 00411 0 10 00000 HALT CALL MESS 0269 00412 0 02 01055 LDA STR! 0270 00413 0 10 00000 CALL MESS 0271 00414 0 10 00000 CALL 2LIN 0272 00415 000000 HLT 0273 00416 0 01 00002 JMP STRT+2 0274 00417 0 04 00445 STOP STA MES 0275 00420 140040 CRA 0276 00421 0 10 00000 CALL HOLD 0277 00422 101000 NOP 0278 00423 0 02 00445 LDA MES 0279 00424 0 10 00000 CALL MESS 0280 00425 0 02 00447 LDA SAVA 0281 00426 0 10 00000 CALL BITS 0282 00427 0 10 00000 CALL 2LIN 0283 00430 000000 HLT 0284 00431 0 01 00431 JMP * 0285 00432 0 02 01030 J6UP LDA 6UP! 0286 00433 0 10 00000 CALL MESS 0287 00434 0 10 00000 CALL 2LIN 0288 00435 0 01 00415 JMP HALT+4 0289 00436 0 02 00477 ALGO LDA ='17 0290 00437 0 10 00000 CALL HOLD 0291 00440 101000 NOP 0292 00441 0 02 00531 LDA ALG! 0293 00442 0 10 00000 CALL MSGINT 0294 00443 -0 01 00000 JMP* STRT 0295 * 0296 00444 000000 IND BSZ 1 TEST INDICATOR 0297 00445 000000 MES BSZ 1 0298 00446 000000 REPT BSZ 1 0299 00447 000000 SAVA BSZ 1 0300 00450 000000 PHASEBSZ 1