AB16-CCT4

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

3959 07112 171020 OTK 3960 07113 0 01 07114 JMP *+1 ONE FREE JUMP 3961 07114 0 01 07115 JMP *+1 MUST GO TO RUPT 3962 07115 000000 HLT 3963 07116 000000 HLT DID NOT GET RUPT 3964 * 3965 07117 0 000000 DAC ** RUPT ENTRY 3966 07120 -0 02 07117 LDA* *-1 3967 07121 100040 SZE 3968 07122 000000 HLT ERROR, DID NOT GET FREE JUMP 3969 * 3970 07123 000013 EXA 3971 07124 0 10 07125 JST *+1 SET UP FOR NEXT RUPT 3972 07125 0 000000 DAC ** 3973 07126 0 02 07125 LDA *-1 3974 07127 0 06 07540 ADD =12 3975 07130 0 04 00056 STA '56 3976 07131 000011 DXA 3977 07132 0 01 07133 JMP *+1 3978 07133 0 02 07506 LDA BIT8 3979 07134 171020 OTK SET RUPT MASK 3980 07135 0 01 07136 JMP *+1 ONE FREE JUMP 3981 07136 0 10 07137 JST *+1 MUST GO TO RUPT 3982 07137 0 000000 DAC ** 3983 07140 000000 HLT ERROR, DID NOT GO TO RUPT 3984 * 3985 07141 0 000000 DAC ** RUPT ENTRY 3986 07142 -0 02 07141 LDA* *-1 3987 07143 100040 SZE 3988 07144 000000 HLT RUPT ON WRONG JST 3989 * 3990 * 3991 * TEST THAT AFTER AN OTK INSTRUCTION AN INTERRUPT IS HELD OFF, IF 3992 * THERE IS NO JUMP INSTRUCTION IN THE MEANTIME, FOR AT LEAST 3993 * 52 +/- 2 USECS. IN THAT CASE BIT 6 (THE DEFAULT BIT) IS SET. 3994 * 3995 07145 101000 NOP 3996 07146 34 0104 SKS '104 3997 07147 0 01 07146 JMP *-1 3998 07150 14 0104 OCP '104 3999 07151 000013 EXA 4000 07152 0 10 07153 JST *+1 SET UP FOR 4001 07153 0 000000 DAC ** ASR INTERRUPT 4002 07154 0 02 07153 LDA *-1 4003 07155 0 06 07546 ADD ='26 FORM RUPT ADDRESS 4004 07156 000011 DXA 4005 07157 0 01 07160 JMP *+1 NORMAL MODE 4006 07160 0 04 00063 STA '63 STORE AT '63 4007 07161 0 02 07547 LDA ='40 4008 07162 74 0020 SMK '20 SET ASR MASK