AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 13

0495 01365 101000 NOP 0496 01366 100020 SR1 0497 01367 0 01 01152 JMP STR3 REPEAT ELAPSED AND STAB IF 0498 01370 101000 NOP SW1 IS SET 0499 01371 101002 SS4 0500 01372 0 10 02624 JST TDAY GO DO TIME-OF-DAY IF SWITCH 4 0501 01373 0 10 02574 JST OPCO ELSE TYPE 'DONE' MESSAGE 0502 01374 0 003376 DAC MES4 AND HALT 0503 01375 000000 HLT 0504 01376 0 01 01123 JMP BYOM ON RESTART DO ALL 0505 * 0506 * FUNCTION TEST 0507 * 0508 01377 0 000000 FTST DAC ** 0509 01400 101000 NOP 0510 01401 14 0220 OCP '220 TRY TO STOP CLOCK IF RUNNING 0511 01402 0 02 00672 LDA =-1 THEN SET CLOCK TO ONE COUNT 0512 01403 0 04 00061 STA '61 0513 01404 0 02 02032 LDA RET3 DAC FTS3 FOR RUPT RETURN 0514 01405 0 10 02056 JST SIL DIRECTLY TO CODE BELOW 0515 * 0516 01406 0 02 00671 LDA =1 BIT 16 IS MASK 0517 01407 74 0020 SMK '20 SET IT 0518 01410 14 0020 OCP '20 TURN ON CLOCK IF IT WILL 0519 01411 0 02 00714 LDA =22 RUN, THEN WAIT UP TO 0520 01412 000401 ENB 22 MILLISEC FOR IT TO TICK 0521 01413 0 10 02206 JST DLYL 0522 * 0523 01414 001001 INH OH-OH NO CLOCK TICK IN 0524 01415 14 0220 OCP '220 22 MILLISEC 0525 01416 0 003601 DAC MER4 0526 01417 100010 SR2 0527 01420 0 01 01400 JMP FTST+1 0528 01421 0 01 01151 JMP STR2 RETURN 0529 * 0530 01422 0 00 00000 FTS3 PZE 0531 01423 14 0220 OCP '220 0532 01424 0 02 00665 LDA =100 0533 01425 0 10 02206 JST DLYL 100 MILLISEC DELAY 0534 01426 0 02 00061 LDA '61 TEST LOCATION 0535 01427 101040 SNZ OF CLOCK MEMORY INCREMENT 0536 01430 0 01 01436 JMP FTS4 0537 01431 001001 INH 0538 01432 0 10 02541 JST ERPO PRINTOUT ERROR MESSAGE 0539 01433 0 003604 DAC MER5 0540 01434 100010 SR2 0541 01435 0 01 01400 JMP FTST+1 REPEAT ERROR 0542 * 0543 01436 140040 FTS4 CRA RESET 0544 01437 74 0020 SMK '20 DEVICE MASK