AB16-12T3

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

1558 * 1559 * CHECK CYCLE TIME FOR EACH 4K SECTION OF MEMORY (UP TO 32K) 1560 * 1561 03142 0 000000 MTIM DAC ** 1562 03143 001001 INH 1563 03144 000013 EXA CLEAR ANY CLOCK RUPT REQUEST 1564 03145 14 0220 OCP '220 AND INSURE EXTENDED MODE IF ON CPU 1565 03146 0 02 02045 LDA RETE 1566 03147 0 10 02056 JST SIL SET RTC MASK FOR 1567 03150 0 02 00671 LDA =1 ALL OF THIS SECTION 1568 03151 74 0020 SMK '20 1569 03152 000401 ENB ALLOW ANY OUTSTANDING PI 1570 03153 101000 NOP RUPT TO FLUSH THROUGH 1571 03154 101000 NOP 1572 03155 001001 INH 1573 03156 100000 SKP 1574 * 1575 03157 0 000000 MTIA DAC ** PI FLUSH COMES HERE 1576 03160 0 02 02046 LDA RETF NOW SET FOR RUPT TO MTIB 1577 03161 0 10 02056 JST SIL 1578 03162 140040 CRA ZERO COUNTER 1579 03163 0 04 00542 STA CTR 1580 03164 0 02 00624 LDA =-2 GET IN SYNC WITH 1581 03165 0 04 00061 STA '61 CLOCK TICK 1582 03166 14 0020 OCP '20 1583 03167 0 02 00061 LDA '61 1584 03170 0 11 00624 CAS =-2 1585 03171 100000 SKP 1586 03172 0 01 03167 JMP *-3 HAS NOT CHANGED YET 1587 * 1588 03173 000401 ENB NOW COUNT THE RTC CYCLE TIME 1589 03174 0 12 00542 IRS CTR IN THE FIRST MEMORY MODULE 1590 03175 0 01 03174 JMP *-1 1591 03176 000000 HLT 1592 * 1593 03177 0 000000 MTIB DAC ** AT END OF CAL PROCESS IN FIRST MODULE 1594 03200 14 0220 OCP '220 1595 03201 0 02 00542 LDA CTR FETCH VALUE - APX VALUE AT 60 HERTZ 1596 03202 100400 SPL 716='12000, 516='10000, 316='5000 1597 03203 000000 HLT IT COUNTED TOO FAR 1598 03204 0405 75 ARS 3 TAKE ONE EIGHTH 1599 03205 141216 ACA ROUND UP 1600 03206 0 13 00542 IMA CTR 1601 03207 0 06 00542 ADD CTR NOW A REG IS CTR+12.5% 1602 03210 141206 AOA MAKE A LITTLE OVER 1603 03211 0 04 00556 STA HLIM SAVE AS LIMIT 1604 03212 0 07 00542 SUB CTR 1605 03213 0 07 00542 SUB CTR 1606 03214 0 07 00623 SUB =2 NOW CTR-12.5% 1607 03215 0 04 00557 STA LLIM SAVE AS LOW LIMIT