AB16-CCT4

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

4159 07364 000000 HLT PRIV/ENB FLOP DID NOT GET RESET 4160 07365 0 01 07441 JMP X799 4161 * 4162 * 4163 07366 101000 X798 NOP ALREADY IN EXTD MODE 4164 07367 0 10 07370 JST *+1 SET UP FOR RTC INTERRUPT 4165 07370 0 000000 DAC ** 4166 07371 0 02 07370 LDA *-1 4167 07372 0 06 07524 ADD ='13 4168 07373 000011 DXA 4169 07374 0 01 07375 JMP *+1 NORMAL MODE 4170 07375 0 04 00063 STA '63 4171 07376 000401 ENB ENABLE RUPTS 4172 07377 14 0020 OCP '20 START THE CLOCK 4173 07400 0 02 00061 LDA '61 4174 07401 0 01 07400 JMP *-1 WAIT FOR RTC RUPT 4175 07402 000000 HLT 4176 * 4177 07403 0 000000 DAC ** RTC RUPT ENTRY 4178 07404 14 0220 OCP '220 STOP THE CLOCK 4179 07405 101000 NOP 4180 07406 000043 INK 4181 07407 0 03 07507 ANA BIT9 SEPARATE BIT 9 4182 07410 101040 SNZ MUST BE SET 4183 07411 000000 HLT PRIV/ENB FLOP NOT SET 4184 07412 0 02 00005 LDA 5 CAUSE STACK UNDERFLOW 4185 07413 101000 NOP 4186 07414 0 02 07541 LDA =0 DUMMY INST 4187 07415 0 02 07541 LDA =0 DUMMY INST 4188 07416 0 02 07523 LDA =-8 4189 07417 0 10 07432 JST WAIT 52 +/- 2 USECS FROM OCP '220 T0 STA '57 4190 07420 0 000000 DAC ** GOOD RETURN 4191 07421 0 02 07345 LDA X797 4192 07422 0 04 00057 STA '57 SET UP FOR RUPT RETURN 4193 07423 0 02 07531 LDA =-10 4194 07424 0 10 07432 JST WAIT 57 CYCLE DELAY UNTIL HLT 4195 07425 0 000000 DAC ** 4196 07426 000000 HLT NO RUPT WITHIN 96 +/- 3 USECS. 4197 07427 101000 NOP 4198 07430 101000 NOP 4199 07431 0 01 07441 JMP X799 4200 * 4201 * 4202 * BASIC IO CYCLE DELAY. 5 CYCLE DELAY FOR EACH COUNT OVER 1. 4203 * 4204 07432 0 000000 WAIT DAC ** 4205 07433 100000 SKP 4206 07434 0 000000 DAC ** 4207 07435 141206 AOA 4208 07436 100040 SZE