SUBR STRT REV E 1 PAGE 5

0229 00342 0 02 00666 NOLO LDA NOL! 0230 00343 0 01 00417 JMP STOP 0231 00344 0 02 00700 NOHI LDA NOH! 0232 00345 0 01 00417 JMP STOP 0233 00346 0 02 01010 OUT LDA OUT! 0234 00347 0 10 00000 CALL MESS 0235 00350 0 02 01055 LDA STR! 0236 00351 0 10 00000 CALL MESS 0237 00352 0 10 00000 CALL 2LIN 0238 00353 000000 HLT 0239 00354 0 01 00002 JMP STRT+2 0240 00355 0 02 00760 POTS LDA POT! 0241 00356 0 10 00000 CALL MESS 0242 00357 0 02 01055 LDA STR! 0243 00360 0 10 00000 CALL MESS 0244 00361 0 10 00000 CALL 2LIN 0245 00362 000000 HLT 0246 00363 0 01 00161 JMP SERV 0247 00364 0 02 00730 SERF LDA SRV! 0248 00365 0 10 00000 CALL MSGINT 0249 00366 0 02 00514 LDA =-30 0250 00367 0 04 00452 STA T! 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!