AB16-12T3

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

0645 * INTERRUPT GETS HERE VIA ROUTINE INT1 AND LOCATION RETO 0646 * 0647 01570 0 02 02037 STAD LDA RET8 0648 01571 0 04 02027 STA RETO 0649 01572 0 02 00661 LDA =-4096 USE 4096 RTC CYCLES TO 0650 01573 0 04 00061 STA '61 FIND AVERAGE OF ONE HALF 0651 01574 14 0020 OCP '20 THE NUMBER OF CP CYCLES 0652 01575 000401 ENB PER RTC CYCLE 0653 01576 0 02 00660 LDA =-2041 2048 ADJUSTED FOR 0654 01577 100000 SKP THE RUPT PROCESS 0655 * 0656 01600 0 02 00657 LDA =-2046 2048 ADJUSTED FOR CYCLES 0657 * USED IN SETUP 0658 01601 0 04 00601 STA TLY 0659 * 0660 01602 0 12 00601 IRSX IRS TLY 4 CP CYCLES PER COUNT 0661 01603 0 01 01602 JMP *-1 IN TLY 0662 * 0663 01604 0 12 00500 IRS AVG ONE COUNT IN AVG PER 0664 01605 0 01 01600 JMP *-5 2048 X 4 = 8192 CP CYCLES 0665 * 0666 01606 000000 HLT 0667 * 0668 01607 0 12 00601 IRST IRS TLY FOR 3 OR 516 0669 01610 0 12 00001 IRSZ IRS 1 FOR 716 (REQ'D FOR PARITY TIMES) 0670 * 0671 * AT TIME OF INTERRUPT LOCAT10N AVG CONTAINS THE CONT OF 0672 * (8192 CP CLOCK CYCLES) PER 4096 RTC CYCLES. 0673 * 0674 01611 0 35 00656 STAE LDX =-1000 0675 01612 0 10 02050 STOZ JST AFIS 0676 01613 0 02 02034 LDA RET5 DIRECT RUPT HANDLE TO RETURN 0677 01614 0 04 02027 STA RETO TO STAF ON NEXT CLOCK TICK 0678 01615 0 10 02003 JST EIRC 0679 01616 0 02 00714 LDA =22 0680 01617 0 10 02206 JST DLYL DELAY UP TO 22 MILLISEC FOR RUPT 0681 * 0682 01620 001001 INH OH-OH NO RUPT IN 22 0683 01621 14 0220 OCP '220 MILLISEC 0684 01622 0 10 02541 JST ERPO PRINTOUT ERROR MESSAGE 0685 01623 0 003601 DAC MER4 0686 01624 000000 HLT 0687 01625 0 01 01123 JMP BYOM BACK TO START 0688 * 0689 01626 0 02 02035 STAF LDA RET6 DIRECT NEXT RUPT TO STAG 0690 01627 0 04 02027 STA RETO 0691 01630 0 02 00672 LDA =-1 0692 01631 0 04 00061 STA '61 0693 01632 000401 ENB 0694 01633 0 02 00565 LDA MUCL MAKE UP CYCLES LOST IN