AB16-12T3

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

0695 * GETTING HERE 0696 01634 141206 AOA 0697 01635 0 01 01634 JMP *-1 0698 * 0699 * AT TIME OF INTERRUPT A-REGISTER CONTAINS ONE HALF 0700 * THE NUMBER OF CP CYCLES FOR THIS RTC CYCLE. 0701 * 0702 01636 0 10 01474 STAG JST SORT 0703 01637 0 12 00000 IRS ** 0704 01640 0 01 01612 JMP STOZ 0705 * 0706 * IRS SKIPS AFTER 1000 SAMPLES. GO TO PRINT DISTRIBUTION. 0707 * 0708 01641 101000 NOP ROOM FOR PATCH 0709 01642 14 0220 OCP '220 TURN OFF CLOCK 0710 01643 0 10 02552 JST LFCR 0711 01644 0 10 01721 JST TDIS SEE IF RESULT IS GOOD OR BAD 0712 01645 0 02 00000 LDA 0 ZERO SAYS GOOD 0713 01646 100004 SR3 0714 01647 0 02 00671 LDA =1 0715 01650 101040 SNZ NON-ZERO SAYS BAD OR FORCED 0716 01651 -0 01 01517 JMP* STAB IT WAS GOOD - DO NOT PRINT DISTRIBUTION 0717 * 0718 01652 0 10 02552 JST LFCR 0719 01653 0 10 02574 JST OPCO 0720 01654 0 003635 DAC STMF TELL WHAT TEST IS ABOUT 0721 01655 0 02 00500 LDA AVG GET AVERAGE 0722 01656 0405 76 ARS 2 SCALE RESULT BY 4 0723 01657 0 10 02222 JST BCDC CONVERT TO ASCII DECIMAL 0724 01660 0 04 00574 STA TEMP SAVE FIRST TWO CHARACTERS 0725 01661 000201 IAB 0726 01662 0 04 00575 STA TEMP+1 AND SECOND TWO 0727 01663 140040 CRA 0728 01664 0 04 00576 STA TEMP+2 MESSAGE TERMINATOR 0729 01665 0 10 02574 JST OPCO WRITE MESSAGE 0730 01666 0 000574 DAC TEMP 0731 01667 0 10 02552 JST LFCR FORMAT IT 0732 * 0733 01670 0 02 00655 LDA =-69 LABELS ARE 3 WORDS LONG 0734 01671 0 04 00554 STA HOLD 0735 01672 0 02 00662 LDA =-23 AND THERE ARE 23 OF THEM 0736 01673 0 04 00555 STA HOLD+1 0737 01674 0 02 00716 LDA =A PUT IN LEADING SPACE 0738 01675 0 04 00574 STA TEMP BEF0RE THE DECIMAL NUMBER 0739 01676 0 10 02552 SPTW JST LFCR 0740 01677 0 35 00554 LDX HOLD 0741 01700 0 10 02574 JST OPCO 0742 01701 1 004123 DAC ME01+69,1 0743 01702 0 02 00554 LDA HOLD 0744 01703 0 06 00704 ADD =3