AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 59

2779 05021 0 01 05022 JMP *+1 2780 05022 0 06 05772 ADD ='10 2781 05023 0 04 00063 STA '63 2782 05024 000401 ENB 2783 05025 100000 SKP 2784 05026 0 000000 DAC ** PI RUPT ENTRY IF ANY 2785 05027 000011 DXA 2786 05030 0 01 05031 JMP *+1 NORMAL MODE 2787 05031 140040 CRA 2788 05032 74 0020 SMK '20 RESET MASK 2789 05033 0 02 05016 LDA IRP1 2790 05034 0 06 05771 ADD ='25 2791 05035 0 04 00063 STA '63 2792 05036 000401 ENB 2793 05037 101000 NOP 2794 05040 101000 NOP SHOULD BE NO RUPTS WITHOUT MASK 2795 05041 001001 INH 2796 05042 0 01 05045 JMP *+3 2797 * 2798 05043 0 000000 DAC ** RUPT ENTRY I 2799 05044 000000 HLT ERROR - GOT RUPT WITHOUT MASK 2800 * 2801 05045 000013 EXA 2802 05046 0 10 05047 JST *+1 2803 05047 0 000000 DAC ** 2804 05050 0 02 05047 LDA *-1 2805 05051 000011 DXA 2806 05052 0 01 05053 JMP *+1 NORMAL MODE 2807 05053 0 06 05770 ADD ='12 2808 05054 0 04 00063 STA '63 UNEXPECTED RUPTS 2809 05055 0 02 05767 LDA ='40 2810 05056 74 0020 SMK '20 SET THE MASK 2811 05057 101000 NOP 2812 05060 0 01 05063 JMP *+3 JUMP AROUND UNEXPECTED RUPT HALT 2813 * 2814 05061 0 000000 DAC ** GOT UNEXPECTED RUPT 2815 05062 000000 HLT WITHOUT 'ENB' 2816 * 2817 05063 000013 EXA 2818 05064 0 10 05065 JST *+1 2819 05065 0 000000 DAC ** 2820 05066 0 02 05065 LDA *-1 2821 05067 000011 DXA 2822 05070 0 01 05071 JMP *+1 NORMAL MODE 2823 05071 0 06 05766 ADD ='23 2824 05072 0 04 00063 STA '63 SET FOR RUPT 2825 05073 140040 CRA 2826 05074 0 04 05163 STA IENL SET UP IRS TEST LOCATION 2827 05075 0 04 05162 STA ASRB 2828 05076 001001 INH INHIBIT RUPTS