AB16-12T3

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

0295 01125 0 04 01007 STA NOP THE ABOVE CODE ON RESTART 0296 01126 101000 NOP ROOM FOR PATCH 0297 * 0298 01127 0 10 02574 JST OPCO ASK IF CPU CAL OR RTC TEST 0299 01130 0 003732 DAC MESG 0300 01131 0 10 02611 JST IPOC INPUT ONE CHARACTER 0301 01132 000000 BSZ 1 STORED HERE 0302 01133 0 02 01132 LDA *-1 0303 01134 0 11 00674 CAS ='331 Y 0304 01135 100000 SKP 0305 01136 0 01 03014 JMP CCPU Y SAYS YES - CAL THE CPU CLOCK 0306 01137 0 11 00673 CAS ='316 N 0307 01140 100000 SKP 0308 01141 100000 SKP N SAYS DO THE RTC TESTS 0309 01142 0 01 01123 JMP BYOM INPUT WAS NOT GOOD 0310 01143 0 10 02552 JST LFCR ACK GOOD INPUT 0311 * 0312 * REGULAR RTC TESTS FOLLOW 0313 * 0314 01144 101000 NOP ROOM FOR PATCH 0315 01145 0 10 01377 JST FTST DO FUNCTION TEST 0316 01146 101000 NOP ROOM FOR PATCH 0317 01147 0 10 03142 JST MTIM MEMORY MODULE TIMING TEST 0318 01150 101000 NOP 0319 01151 0 10 02075 STR2 JST IPLS INPUT PARAMETERS 0320 01152 101000 STR3 NOP 0321 01153 14 0220 OCP '220 STOP CLOCK IF ON 0322 01154 0 02 00672 LDA =-1 SET CLOCK TO ONE COUNT 0323 01155 0 04 00061 STA '61 0324 01156 0 02 02026 LDA INTO AND ALL RUPT LOCATIONS TO 0325 01157 0 10 02056 JST SIL RETURN TO INT1 0326 01160 0 02 00545 LDA DINC 0327 01161 140407 TCA SET UP NEGATIVE VALUE FOR 0328 01162 0 04 00531 STA CINX IRS LOOP 0329 01163 0 02 02030 LDA RET1 RUPT RETURN GOES TO 0330 01164 0 04 02027 STA RETO STR4 0331 01165 0 02 00671 LDA =1 SET MASK FOR 0332 01166 74 0020 SMK '20 RUPT ON SYNCH 0333 01167 14 0020 OCP '20 AND START CLOCK 0334 01170 000401 ENB ALLOW RUPT 0335 01171 0 02 00714 LDA =22 MILLISEC BEFORE ERROR TIMEOUT 0336 01172 0 10 02206 JST DLYL TIMEOUT 0337 * 0338 01173 001001 INH OH-OH AN ERROR 0339 01174 101000 NOP ON TIME-OUT 0340 01175 0 10 02541 JST ERPO 0341 01176 0 003601 DAC MER4 NO RUPT IN 22 MILLISEC 0342 01177 101000 NOP 0343 01200 100010 SR2 0344 01201 0 01 01152 JMP STR3 TRY AGAIN (LOOP ON ERROR)