AB16-12T3

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

0200 CF5 0201 ORG '1000 0202 * 0203 01000 101000 NOP ROOM FOR PATCH 0204 01001 0 02 00570 LDA PIMK TURN ON FIRST TWELVE 0205 01002 74 0120 SMK '120 PI MASKS 0206 01003 101000 NOP ROOM FOR PATCH 0207 * 0208 01004 0 10 02552 JST LFCR NEATEN UP PAPER 0209 01005 0 10 02574 JST OPCO TYPE PROGRAM TITLE 0210 01006 0 003335 DAC MES9 0211 01007 100000 NOP SKP NOP GOES HERE SO THE DEFAULT 0212 01010 0 01 01123 JMP BYOM VALUES AND FULL TYPE-OUT 0213 * GET DONE ONLY ONCE 0214 01011 0 02 00636 LDA =60 SET DEFAULT PARAMETERS 0215 01012 0 04 00544 STA DCPS OF G0 HZ AND 600 CYCLES 0216 01013 0 02 00717 LDA =600 FOR THE ELAPSED TIME TEST 0217 01014 0 04 00545 STA DINC 0218 01015 0 02 01607 LDA IRST 0219 01016 0 04 01602 STA IRSX 0220 * 0221 01017 0 10 02574 JST OPCO TYPE OPENING MESSAGE 0222 01020 0 003346 DAC MES1 0223 * 0224 01021 0 02 00716 LDA =A FORCE BLANKS ON LAST PART 0225 01022 0 04 01120 STA CPMA OF CP TYPE MESSAGE 0226 01023 140040 CRA FIND OUT CP TYPE BY 0227 01024 0 04 00574 STA TEMP USING ONE ASR CYCLE. 0228 01025 34 0004 SKS 4 A 316 WILL BUMP TEMP 0229 01026 100000 SKP 8900 TIMES IN 100000 MICROSEC 0230 01027 0 01 01033 JMP *+4 AND A 516 WILL BUMP IT 0231 01030 0 12 00574 IRS TEMP 14900 TIMES 0232 01031 0 01 01025 JMP *-4 0233 01032 000000 HLT SOMETHING WRONG 0234 * 0235 01033 140040 CRA MAKE A ZERO 0236 01034 0 12 00001 IRS 1 BUMP A OR PROTECTED MEMORY 0237 01035 101000 NOP THE SEE IF A REG MOVED 0238 01036 101040 SNZ 0239 01037 0 01 01055 JMP OLD IF A REG SAME THEN 3 0R 516 0240 * 0241 * 0242 01040 0 02 00715 LDA =-313 (1000/4*0.800) FOR IRS AND JMP 0243 01041 0 04 00543 STA DCON 0244 01042 0 02 00714 LDA ='26 MAKE UP FOR CYCLES LOST 0245 01043 0 04 00565 STA MUCL MAKE UP FOR CYCLES LOST 0246 01044 0 02 00713 LDA =800 DEFAULT CLOCK NS 0247 01045 0 04 00572 STA RENS 0248 01046 0 04 00550 STA EXNS 0249 01047 0 02 01610 LDA IRSZ