AB16-12T3

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

2092 ORG '5000 2093 * 2094 * THE CODE GETS FILLED IN BY CLOCK CAL PROGRAM TO BECOME A LOOP 2095 * OF 500 GENERIC INSTRUCTIONS DRIVING A DOUBLE PRECISION INTEGER 2096 * COUNTER. THE LOOP IS BROKEN BY A START BUTTON INTERRUPT. 2097 * 2098 05000 001001 SEC5 INH 2099 05001 000201 IAB PUT LEAST HALF IN A REG 2100 05002 141206 AOA ADD ONE TO IT 2101 05003 140100 SSP FORCE BIT B1 TO BE RESET 2102 05004 000201 IAB PUT WORDS IN CORRECT DOUBLE FORM 2103 05005 141216 ACA ADD ANY CARRY FROM LEAST HALF 2104 05006 000401 ENB AND ROUND OUT WITH 492 NOP'S 2105 * 2106 ORG '5000+500-1 LOOP IS 500 LONG 2107 05763 0 01 05000 JMP SEC5 2108 * 2109 * 2110 END AFIS 002050A ALL 001106A AVG 000500A BCDA 002235A BCDC 002222A BCDR 002233A BUCK 000501A BYOM 001123A CCA 003023A CCB 003060A CCD 003036A CCPU 003014A CFLG 000530A CINX 000531A CNTB 000540A CNTC 000541A COME 000532A COMM 000535A CPM 001113A CPMA 001120A CTR 000542A DCO 002257A DCOM 002302A DCON 000543A DCOS 002316A DCOT 002301A DCPS 000544A DDP5 001074A DEEX 002463A DEXT 002533A DINC 000545A DIV 002426A DIVA 002457A DIVB 002464A DIVC 002471A DIVD 002247A DIVH 002526A DIVN 002476A DIVS 002504A DIVT 002515A DIVU 002524A DIVX 002460A DIVZ 002462A DLYA 002212A DLYB 002217A DLYL 002206A DLYM 000546A DLYN 000547A EIRC 002003A ERPO 002541A ERPP 002550A EXNS 000550A FCTR 000552A FTS1 001457A FTS2 001442A FTS3 001422A FTS4 001436A FTS5 001466A FTST 001377A HLIM 000556A HOLD 000554A HRMN 003565A HRMS 003546A HRS 000560A ICAL 000561A IMEA 000562A INT1 002011A INTO 002026A IPLS 002075A IPLT 002115A IPLU 002120A IPOC 002611A IRS 000603A IRST 001607A IRSX 001602A IRSZ 001610A JMP 000604A K1 000613A K2 000615A K3 000617A K4 000621A LFCR 002552A LLIM 000557A MCNT 000563A ME01 004016A MER1 003573A MER3 003576A MER4 003601A MER5 003604A MER6 003607A MER7 003612A MER8 003615A MER9 003620A MES1 003346A MES2 003360A MES3 003367A MES4 003376A MES5 003403A MES6 003436A MES7 003441A MES8 003460A MES9 003335A MESA 003470A MESB 003505A MESF 003523A MESG 003732A MESH 003747A MESI 003756A MESJ 003766A MESK 003775A MESX 004004A MEXT 002420A MIN 000564A MLNN 002412A MNMS 003556A MPAA 002332A MPCC 002354A MPY 002317A MPYA 002330A MPYB 002333A