AB16-CCT4

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

2829 05077 34 0104 BUST SKS '104 ASR BUSY 2830 05100 0 01 05156 JMP ASNR GO TO WAIT 2831 05101 14 0104 SASO OCP '104 SET ASR IN OUTPUT MODE 2832 05102 34 0104 SKS '104 2833 05103 0 01 05102 JMP *-1 WAIT TILL NOT BUSY 2834 05104 000401 ENB ENABLE INTERRUPTS 2835 05105 0 12 05163 IRS IENL MUST INTERRUPT AFTER IRS 2836 05106 000000 HALT HLT ERROR - RUPT DID NOT OCCUR 2837 05107 0 01 05111 JMP *+2 2838 * 2839 05110 0 000000 DAC ** ENTRY POINT 2840 05111 0 02 05110 LDA *-1 CHECK IF 'RUPT JST' STORED 2841 05112 000011 DXA 2842 05113 0 01 05114 JMP *+1 NORMAL MODE 2843 05114 0 03 05765 ANA ='777 CORRECT ADDRESS 2844 05115 0 04 05164 STA ITMP 2845 05116 0 02 05165 LDA DHLT GET ADDRESS OF HALT 2846 05117 0 03 05765 ANA ='777 2847 05120 0 05 05164 ERA ITMP COMPARE WITH RUPT ADDRESS 2848 05121 100040 SZE MUST SKIP 2849 05122 000000 HLT ERROR - ADDRESSES DID NOT MATCH 2850 05123 0 02 05163 LDA IENL TEST IF IRS WAS COMPLETED 2851 05124 101040 SNZ MUST BE NON-ZERO 2852 05125 000000 HLT ERROR - IRS DID NOT TAKE 2853 05126 000013 EXA EXTEND MODE 2854 05127 0 10 05130 JST *+1 2855 05130 0 000000 DAC ** 2856 05131 0 02 05130 LDA *-1 SET UP FOR 2857 05132 000011 DXA 2858 05133 0 01 05134 JMP *+1 NORMAL MODE 2859 05134 0 06 05764 ADD ='16 2860 05135 0 04 00063 STA '63 2861 05136 14 0004 OCP '4 PUT ASR IN INPUT MODE 2862 05137 14 0104 OCP '104 PUT ASR IN OUTPUT MODE 2863 05140 34 0104 SKS '104 2864 05141 0 01 05140 JMP *-1 WAIT TILL NOT BUSY 2865 05142 000401 ENB ENABLE RUPTS 2866 05143 001001 INH INHIBIT RUPTS 2867 05144 101000 NOP RUPTS SHOULD NOT OCCUR 2868 05145 0 01 05150 JMP *+3 JUMP AROUND ERROR HALT 2869 * 2870 05146 0 000000 DAC ** ERROR RUPT ENTRY 2871 05147 000000 HLT INH NOT EXECUTED 2872 * 2873 05150 140040 CRA 2874 05151 74 0020 SMK '20 RESET MASK 2875 05152 000011 DXA 2876 05153 0 01 05154 JMP *+1 SET NORMAL MODE 2877 05154 101000 NOP 2878 05155 -0 01 05010 JMP* IRUP RETURN