AB16-12T3

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

0795 01756 0411 77 LLS 1 ROUND UP 0796 01757 141206 AOA 0797 01760 0401 77 LRS 1 0798 01761 0 11 00701 CAS =4 MAKE SURE VALUE IS BETWEEN 4 AND 8 0799 01762 101000 NOP 0800 01763 100000 SKP 0801 01764 0 02 00701 LDA =4 0802 01765 0 11 00653 CAS =8 0803 01766 0 02 00653 LDA =8 0804 01767 101000 NOP 0805 * 0806 01770 0 11 00574 CAS TEMP COMPARE TO PREVIOUSLY FOUND WIDTH OF 0807 01771 101000 NOP DISTRIBUTION 0808 01772 0 01 01777 JMP STAO 0809 * 0810 01773 0 10 02574 JST OPCO 'REJECT AS TOO WIDE' 0811 01774 0 003505 DAC MESB 0812 01775 0 35 00671 LDX =1 MARK X REG AS BAD 0813 01776 -0 01 01721 JMP* TDIS AND RETURN 0814 * 0815 01777 0 10 02574 STAO JST OPCO TYPE 'RESULT IS GOOD' 0816 02000 0 004004 DAC MESX 0817 02001 0 35 00664 LDX =0 RESULT IN X REQ 0818 02002 -0 01 01721 JMP* TDIS AND RETURN 0819 * 0820 * ENABLE INTERRUPTS AND START REAL TIME CLOCK 0821 * 0822 02003 0 000000 EIRC DAC ** SUBROUTINE ENTRY 0823 02004 0 02 00671 LDA =1 0824 02005 74 0020 SMK '20 MASK 0825 02006 14 0020 OCP '20 ENABLE CLOCK 0826 02007 000401 ENB ENABLE INTERRUPT 0827 02010 -0 01 02003 JMP* EIRC RETURN 0828 * 0829 * INTERRUPT SERVICE ROUTINE 0830 * 0831 02011 0 000000 INT1 DAC ** 0832 02012 000011 DXA BACK TO NORMAL MODE 0833 02013 34 0020 SKS '20 TEST FOR RTC INTERRUPT 0834 02014 0 01 02017 JMP *+3 0835 02015 0 10 02541 JST ERPO PRINTOUT ERROR MESSAGE 0836 02016 0 003573 DAC MER1 0837 02017 14 0020 OCP '20 RESET RTC INTERRUPT 0838 02020 34 0020 SKS '20 0839 02021 0 01 02023 JMP *+2 0840 02022 0 01 02025 JMP *+3 0841 02023 0 10 02541 JST ERPO PRINTOUT ERROR MESSAGE 0842 02024 0 003576 DAC MER3 0843 02025 -0 01 02027 JMP* RETO RETURN 0844 *