AB16-12T3

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

0545 01440 0 02 02033 LDA RET4 SETUP ERROR 0546 01441 0 10 02056 JST SIL SIL DOES STA IN '63 THRU '77 0547 01442 0 02 00672 FTS2 LDA =-1 0548 01443 0 04 00061 STA '61 0549 01444 14 0020 OCP '20 0550 01445 000401 ENB 0551 01446 0 02 00714 LDA =22 0552 01447 0 10 02206 JST DLYL 22 MILLISEC DELAY 0553 01450 001001 INH 0554 01451 0 02 00061 LDA '61 TEST IF 0555 01452 0 11 00672 CAS =-1 CLOCK IS 0556 01453 0 01 01455 JMP *+2 RUNNING 0557 01454 0 01 01466 JMP FTS5 0558 01455 14 0220 OCP '220 0559 01456 -0 01 01377 JMP* FTST RETURN 0560 * 0561 01457 0 00 00000 FTS1 PZE ERROR INTERRUPTS HERE 0562 01460 001001 INH 0563 01461 0 10 02541 JST ERPO PRINTOUT ERRUR MESSAGE 0564 01462 0 003607 DAC MER6 0565 01463 100010 SR2 0566 01464 0 01 01436 JMP FTS4 REPEAT 0567 01465 0 01 01456 JMP FTS1-1 0568 * 0569 01466 001001 FTS5 INH 0570 01467 0 10 02541 JST ERPO PRINTOUT ERRRR MESSAGE 0571 01470 0 003612 DAC MER7 0572 01471 100010 SR2 0573 01472 0 01 01436 JMP FTS4 REPEAT 0574 01473 0 01 01456 JMP FTS1-1 0575 * 0576 * 0577 * 0578 01474 0 000000 SORT DAC ** SORT INTO BUCKETS 0579 01475 0 15 00573 STX SAVE 0580 01476 0 35 00664 LDX =0 0581 01477 0 07 00500 SUB AVG 0582 01500 0405 76 ARS 2 SCALE RESULT BY 4 0583 01501 0 11 00663 CAS =-10 0584 01502 101000 NOP 0585 01503 0 01 01506 JMP *+3 0586 01504 0 12 00501 IRS BUCK 0587 01505 0 01 01515 JMP OUTH 0588 01506 0 11 00646 CAS =10 0589 01507 0 01 01514 JMP *+5 0590 01510 101000 NOP 0591 01511 0 04 00000 STA ** 0592 01512 1 12 00514 IRS BUCK+11,1 0593 01513 100000 SKP 0594 01514 0 12 00527 IRS BUCK+22