Source Code

   YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS       BY MSTEWART JUN. 28,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

019203,000002:                                                                                                  ## Copyright:   Public domain.
019204,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TESTS_1.agc
019205,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
019206,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
019207,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
019208,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
019209,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
019210,000009:                                                                                                  ##              Validation.
019211,000010:                                                                                                  ## Assembler:   yaYUL
019212,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
019213,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
019214,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
019215,000014: 
019216,000015: 14,2000                                           BANK     14                                    
019217,000016: 14,2000  E5,1400                                  EBANK=   XSM                                   
019218,000017: 
019219,000018: 
019220,000019: 
019221,000020: 14,2000           37671        AOTNBIMU           CAF      ONE                                   #  AOT-NB-IMU FINE ALIGNMENT TEST
019222,000021: 14,2001           55512                           TS       EROPTN                                #  ... TEST CAPABILITY ...
019223,000022: 
019224,000023: 14,2002           04065                           TC       BANKCALL                              
019225,000024: 14,2003           26000                           CADR     IMUZERO                               #  IMU ZERO ENCODER MODE
019226,000025: 14,2004           06000                           TC       INTPRET                               
019227,000026: 14,2005           77624                           CALL                                           
019228,000027: 14,2006           30530                                    LATAZCHK                              #  TO LOAD AZIMUTH (SM) AND LATITUDE
019229,000028: 14,2007           77624                           CALL                                           
019230,000029: 14,2010           30325                                    MAKEXSMD                              #  TO SET UP A STABLE MEMBER DESIRED MATRIX
019231,000030: 14,2011           45014                           SET      CALL                                  
019232,000031: 14,2012           00065                                    COAROFIN                              #  FOR COARSE OR FINE ALIGN MARKS
019233,000032: 14,2013           30405                                    ERTHRVSE                              #  TO CALCULATE EARTH RATE VECTOR
019234,000033: 14,2014           77776                           EXIT                                           
019235,000034: 
019236,000035: 14,2015           33655        POSLOAD            CAF      V24N30E                               #  R1  0000X ENTER     POSITION 1,2, OR 3
019237,000036: 14,2016           05324                           TC       NVSBWAIT                              #  R2  00000 ENTER     00001 FOR LAB OPTION
019238,000037: 14,2017           05132                           TC       ENDIDLE                               
019239,000038: 14,2020           12745                           TCF      ENDTEST                               
019240,000039: 14,2021           12015                           TCF      -4                                    
019241,000040: 14,2022           56333                           XCH      DSPTEM1                               #  DO NOT USE POSITION 3 WITH NAV BASE AT
019242,000041: 14,2023           55544                           TS       POSITON                               #     ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
019243,000042: 
019244,000043: 14,2024           10334                           CCS      DSPTEM1    +1                         
019245,000044: 14,2025           12760                           TCF      LEMLAB                                #  SPECIAL LAB TEST TO BYPASS MARKS
019246,000045: 
019247,000046: 14,2026           02576                           TC       POSNJUMP                              #  SET UP STABLE MEMBER DESIRED COORDINATES
019248,000047: 
019249,000048: 14,2027           02501                           TC       OPTDATA                               #  TARGETS 1,2 AZIMUTH AND ELEVATION
019250,000049: 
019251,000050: 14,2030           02135                           TC       FINDNAVB                              #  COARSE ALIGN MARKS
019252,000051: 
019253,000052: 14,2031           04065                           TC       BANKCALL                              
019254,000053: 14,2032           26716                           CADR     IMUSTALL                              #  INSURE IMUZERO COMPLETION
019255,000054: 14,2033           12745                           TCF      ENDTEST                               
019256,000055: 
019257,000056: 14,2034           02247                           TC       PUTPOSX                               #  TO COARSE ALIGN STABLE MEMBER
019258,000057: 
019259,000058: 14,2035           02737                           TC       GMLCKCHK                              #  CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
019260,000059: 14,2036           02727                           TC       OGCZERO                               #  FOR EARTH RATE COMPENSATION
019261,000060: 
019262,000061: 14,2037           04065                           TC       BANKCALL                              
019263,000062: 14,2040           26227                           CADR     IMUFINE                               #  FINE ALIGN MODE
019264,000063: 14,2041           04065                           TC       BANKCALL                              
019265,000064: 14,2042           26716                           CADR     IMUSTALL                              
019266,000065: 14,2043           12745                           TCF      ENDTEST                               
019267,000066: 
019268,000067: 14,2044           02135                           TC       FINDNAVB                              #  FINE ALIGN MARKS
019269,000068: 
019270,000069: 14,2045           05373                           TC       FREEDSP                               #  FREE DISPLAY SYSTEM
019271,000070: 
019272,000071: 14,2046           02263                           TC       SMDCALC                               #  TO FINE ALIGN STABLE MEMBER
019273,000072: 
019274,000073: 14,2047           04065        ERFINAL            TC       BANKCALL                              #  LAST EARTH RATE SHOT
019275,000074: 14,2050           30422                           CADR     EARTHR                                
019276,000075: 14,2051           11512                           CCS      EROPTN                                #  IF DESIRED TO COMPENSATE CONTINUALLY
019277,000076: 14,2052           12065                           TCF      MONSTART                              #      CHANGE BY V21 N02 E XXXXX E 00000 E
019278,000077: 14,2053           12047                           TCF      ERFINAL                               
019279,000078: 14,2054           12745                           TCF      ENDTEST                               
019280,000079: 14,2055           55512                           TS       EROPTN                                
019281,000080: 14,2056           00004                           INHINT                                         
019282,000081: 14,2057           34500                           CAF      PRIO21                                #  PRIORITY 1 HIGHER THAN SXTNBIMU
019283,000082: 14,2060           04355                           TC       FINDVAC                               
019284,000083: 14,2061           03062 30005                     2CADR    RDR37511                              
019285,000084: 14,2063           00003                           RELINT                                         
019286,000085: 14,2064           02047                           TC       ERFINAL                               
019287,000086: 
019288,000087: 14,2065           05462        MONSTART           TC       FINETIME                              #  TIME AT INITIAL MISALIGNMENT
019289,000088: 14,2066           52141                           DXCH     MPAC                                  
019290,000089: 14,2067           00003                           RELINT                                         
019291,000090: 14,2070           37675                           CAF      ZERO                                  #  ZERO PIPA COUNTERS
019292,000091: 14,2071           54037                           TS       PIPAX                                 
019293,000092: 14,2072           54040                           TS       PIPAY                                 
019294,000093: 14,2073           54041                           TS       PIPAZ                                 
019295,000094: 14,2074           55551                           TS       STOREPL                               
019296,000095: 14,2075           55537                           TS       NDXCTR                                
019297,000096: 14,2076           02454                           TC       STORRSLT                              #  STORE T(INITIAL) AND PIPAI = 0
019298,000097: 
019299,000098: 14,2077           00004                           INHINT                                         
019300,000099: 14,2100           33666                           CAF      60SEC                                 #  INSURE PIPAI VARIES IN ONE DIRECTION
019301,000100: 14,2101           04517                           TC       WAITLIST                              
019302,000101: 14,2102           02106 30005                     2CADR    PIP1                                  
019303,000102: 
019304,000103: 14,2104           32134                           CAF      PIP2ADR                               
019305,000104: 14,2105           04400                           TC       JOBSLEEP                              
019306,000105: 
019307,000106: 14,2106           32134        PIP1               CAF      PIP2ADR                               
019308,000107: 14,2107           04404                           TC       JOBWAKE                               
019309,000108: 14,2110           04563                           TC       TASKOVER                              
019310,000109: 
019311,000110: 14,2111           31542        PIP2               CAE      PIPNDX                                
019312,000111: 14,2112           55541                           TS       PIPINDEX                              #  POS1 PIPAY     POS2 PIPAX     POS3 PIPAX
019313,000112: 14,2113           04065                           TC       BANKCALL                              
019314,000113: 14,2114           36771                           CADR     CHECKG                                #  SYNC ON PIPA PULSE
019315,000114: 
019316,000115: 14,2115           00003                           RELINT                                         
019317,000116: 
019318,000117: 14,2116           02454                           TC       STORRSLT                              #  STORE TIME AND PIPAI
019319,000118: 
019320,000119: 14,2117           31543                           CAE      PIPNDX     +1                         
019321,000120: 14,2120           55541                           TS       PIPINDEX                              #  POS1 PIPAZ    POS2 PIPAY    POS3 PIPAZ
019322,000121: 14,2121           04065                           TC       BANKCALL                              
019323,000122: 14,2122           36771                           CADR     CHECKG                                #  SYNC ON PIPA PULSE
019324,000123: 
019325,000124: 14,2123           00003                           RELINT                                         
019326,000125: 14,2124           02454                           TC       STORRSLT                              #  STORE TIME AND PIPAI
019327,000126: 
019328,000127: 14,2125           00004                           INHINT                                         
019329,000128: 14,2126           33665                           CAF      30SEC                                 #  MONITOR PIPAS AT 30 SECOND INTERVALS
019330,000129: 14,2127           04517                           TC       WAITLIST                              
019331,000130: 14,2130           02106 30005                     2CADR    PIP1                                  
019332,000131: 14,2132           32134                           CAF      PIP2ADR                               
019333,000132: 14,2133           04400                           TC       JOBSLEEP                              
019334,000133: 14,2134           30111        PIP2ADR            CADR     PIP2                                  
019335,000134: 
019336,000135: 14,2135           00006        FINDNAVB           EXTEND                                         #  MARKS * CALC NB OR SM WRT EARTH REF
019337,000136: 14,2136           23546                           QXCH     QPLACE                                
019338,000137: 
019339,000138: 14,2137           04065                           TC       BANKCALL                              
019340,000139: 14,2140           27014                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
019341,000140: 14,2141           37671                           CAF      ONE                                   
019342,000141: 14,2142           54333                           TS       DSPTEM1                               
019343,000142: 14,2143           33651                           CAF      V01N30E                               #  DISPLAY 00001 IN R1
019344,000143: 14,2144           05324                           TC       NVSBWAIT                              
019345,000144: 14,2145           37675                           CAF      ZERO                                  #  TO INDICATE GROUND MARKS
019346,000145: 14,2146           04065                           TC       BANKCALL                              
019347,000146: 14,2147           26753                           CADR     AOTMARK                               #  MARK ON TARGET 1
019348,000147: 
019349,000148: 14,2150           04065                           TC       BANKCALL                              
019350,000149: 14,2151           26714                           CADR     OPTSTALL                              #  INSURE SUCCESSFUL MARK
019351,000150: 14,2152           12745                           TCF      ENDTEST                               
019352,000151: 14,2153           00006                           EXTEND                                         
019353,000152: 14,2154           50374                           INDEX    MARKSTAT                              
019354,000153: 14,2155           30001                           DCA      0                                     
019355,000154: 14,2156           53565                           DXCH     TMARK                                 #  TIME(PRES) FOR EARTH RATE COMPENSATION
019356,000155: 
019357,000156: 14,2157           02242                           TC       GIMANGS1                              
019358,000157: 
019359,000158: 14,2160           06000                           TC       INTPRET                               
019360,000159: 14,2161           45140                           LXC,1    CALL                                  
019361,000160: 14,2162           00374                                    MARKSTAT                              #  BASE ADDRESS VAC AREA FOR AOTNB
019362,000161: 14,2163           33051                                    AOTNB                                 #  OPTICS TO NAV BASE COORDINATE FRAME
019363,000162: 14,2164           45014                           BON      CALL                                  
019364,000163: 14,2165           00305                                    COAROFIN                              #  COARSE MARKS = 0    FINE MARKS = 1
019365,000164: 14,2166           30170                                    +2                                    
019366,000165: 14,2167           32517                                    NBSM                                  #  NAV BASE DIRECT TO STABLE MEMBER
019367,000166: 14,2170           02445                           STORE    STARAD                                #  TARGET 1 WRT NAV BASE OR STABLE MEMBER
019368,000167: 14,2171           02601                           STORE    LOS1                                  #  ...FOR K...
019369,000168: 14,2172           77776                           EXIT                                           
019370,000169: 
019371,000170: 14,2173           04065                           TC       BANKCALL                              
019372,000171: 14,2174           27014                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
019373,000172: 14,2175           37670                           CAF      TWO                                   
019374,000173: 14,2176           54333                           TS       DSPTEM1                               
019375,000174: 14,2177           33651                           CAF      V01N30E                               #  DISPLAY 00002 IN R1
019376,000175: 14,2200           05324                           TC       NVSBWAIT                              
019377,000176: 14,2201           37675                           CAF      ZERO                                  #  TO INDICATE GROUND MARKS
019378,000177: 14,2202           04065                           TC       BANKCALL                              
019379,000178: 14,2203           26753                           CADR     AOTMARK                               #  MARK ON TARGET 2
019380,000179: 
019381,000180: 14,2204           37660                           CAF      BIT10                                 
019382,000181: 14,2205           70061                           MASK     STATE                                 #  BIT10 = COAROFIN
019383,000182: 14,2206           10000                           CCS      A                                     
019384,000183: 14,2207           12215                           TCF      EARRTCOM   +5                         #  IF COARSE ALIGN MARKS
019385,000184: 
019386,000185: 14,2210           04065        EARRTCOM           TC       BANKCALL                              #  EARTH RATE COMPENSATION BETWEEN MARKS
019387,000186: 14,2211           30422                           CADR     EARTHR                                
019388,000187: 14,2212           10372                           CCS      OPTCADR                               #  +0 IF MARK BUTTON NOT DEPRESSED
019389,000188: 14,2213           12216                           TCF      +3                                    
019390,000189: 14,2214           12210                           TCF      EARRTCOM                              #  CONTINUE TO COMPENSATE FOR EARTH RATE
019391,000190: 14,2215           12216                           TCF      +1                                    
019392,000191: 14,2216           04065                           TC       BANKCALL                              
019393,000192: 14,2217           26714                           CADR     OPTSTALL                              #  INSURE SUCCESSFUL MARK
019394,000193: 14,2220           12745                           TCF      ENDTEST                               
019395,000194: 
019396,000195: 14,2221           02242                           TC       GIMANGS1                              
019397,000196: 
019398,000197: 14,2222           06000                           TC       INTPRET                               
019399,000198: 14,2223           45140                           LXC,1    CALL                                  
019400,000199: 14,2224           00374                                    MARKSTAT                              #  BASE ADDRESS VAC AREA FOR AOTNB
019401,000200: 14,2225           33051                                    AOTNB                                 #  OPTICS TO NAV BASE COORDINATE FRAME
019402,000201: 14,2226           45014                           BONCLR   CALL                                  #  SET TO ZERO FOR FINE ALIGN MARKS
019403,000202: 14,2227           00205                                    COAROFIN                              #  COARSE MARKS = 0    FINE MARKS = 1
019404,000203: 14,2230           30232                                    +2                                    
019405,000204: 14,2231           32517                                    NBSM                                  #  NAV BASE DIRECT TO STABLE MEMBER
019406,000205: 14,2232           02453                           STORE    STARAD     +6                         #  TARGET 2 WRT NAV BASE OR STABLE MEMBER
019407,000206: 14,2233           02607                           STORE    LOS2                                  #  ...FOR K...
019408,000207: 
019409,000208: 14,2234           77624        MAXDET             CALL                                           
019410,000209: 14,2235           30350                                    TAR/EREF                              #  TARGETS 1,2 WRT EARTH REF FRAME
019411,000210: 14,2236           77624                           CALL                                           
019412,000211: 14,2237           32677                                    AXISGEN                               #  NAV BASE OR SM WRT EARTH REF FRAME
019413,000212: 14,2240           77776                           EXIT                                           
019414,000213: 14,2241           01546                           TC       QPLACE                                
019415,000214: 
019416,000215: 
019417,000216: 
019418,000217: 14,2242           37670        GIMANGS1           CAF      TWO                                   #  BASE ADDRESS GIMBAL ANGLES FOR NBSM
019419,000218: 14,2243           60374                           AD       MARKSTAT                              
019420,000219: 14,2244           50104                           INDEX    FIXLOC                                
019421,000220: 14,2245           54050                           TS       S1                                    
019422,000221: 14,2246           00002                           TC       Q                                     
019423,000222: 
019424,000223: 14,2247           00006        PUTPOSX            EXTEND                                         #  COARSE ALIGNS STABLE MEMBER
019425,000224: 14,2250           23546                           QXCH     QPLACE                                
019426,000225: 
019427,000226: 14,2251           06000                           TC       INTPRET                               
019428,000227: 14,2252           77624                           CALL                                           
019429,000228: 14,2253           32615                                    CALCGA                                #  CALCULATE COARSE ALIGN GIMBAL ANGLES
019430,000229: 14,2254           77776                           EXIT                                           
019431,000230: 
019432,000231: 14,2255           04065                           TC       BANKCALL                              
019433,000232: 14,2256           26055                           CADR     IMUCOARS                              #  COARSE ALIGN MODE
019434,000233: 14,2257           04065                           TC       BANKCALL                              
019435,000234: 14,2260           26716                           CADR     IMUSTALL                              
019436,000235: 14,2261           12745                           TCF      ENDTEST                               
019437,000236: 14,2262           01546                           TC       QPLACE                                
019438,000237: 
019439,000238: 
019440,000239: 
019441,000240: 
019442,000241: 14,2263           00006        SMDCALC            EXTEND                                         #  FINE ALIGNS STABLE MEMBER
019443,000242: 14,2264           23546                           QXCH     QPLACE                                
019444,000243: 
019445,000244: 14,2265           06000                           TC       INTPRET                               
019446,000245: 14,2266           64375                           VLOAD    MXV                                   
019447,000246: 14,2267           02401                                    XSM                                   #  XSM DESIRED WRT EARTH REF FRAME
019448,000247: 14,2270           02445                                    STARAD                                #  THEN TO SM PRESENT OR NAV BASE FRAME
019449,000248: 14,2271           43172                           VSL1     BOFF                                  
019450,000249: 14,2272           00345                                    COAROFIN                              #  BIT10 FOR LEMLAB TEST
019451,000250: 14,2273           30276                                    +3                                    
019452,000251: 14,2274           34041                           STCALL   32D                                   
019453,000252: 14,2275           32517                                    NBSM                                  #  THEN TO SM PRESENT FRAME
019454,000253: 14,2276           26423                           STOVL    XDC                                   
019455,000254: 14,2277           02407                                    YSM                                   #  YSM DESIRED WRT EARTH REF FRAME
019456,000255: 
019457,000256: 14,2300           76521                           MXV      VSL1                                  
019458,000257: 14,2301           02445                                    STARAD                                #  THEN TO SM PRESENT OR NAV BASE FRAME
019459,000258: 14,2302           77614                           BOFF                                           
019460,000259: 14,2303           00345                                    COAROFIN                              #  BIT10 FOR LEMLAB TEST
019461,000260: 14,2304           30307                                    +3                                    
019462,000261: 14,2305           34041                           STCALL   32D                                   
019463,000262: 14,2306           32517                                    NBSM                                  #  THEN TO SM PRESENT FRAME
019464,000263: 14,2307           26431                           STOVL    YDC                                   
019465,000264: 14,2310           02423                                    XDC                                   
019466,000265: 
019467,000266: 14,2311           76435                           VXV      VSL1                                  
019468,000267: 14,2312           02431                                    YDC                                   
019469,000268: 14,2313           36437                           STCALL   ZDC                                   #  ZSM DESIRED WRT SM PRESENT FRAME
019470,000269: 14,2314           32367                                    CALCGTA                               #  CALCULATE FINE ALIGN TORQUING ANGLES
019471,000270: 
019472,000271: 14,2315           47170                           AXT,1    RTB                                   
019473,000272: 
019474,000273: 14,2316           02500                           ECADR    OGC                                   #  X1 = BASE ADDRESS OF TORQUING ANGLES
019475,000274: 14,2317           33515                                    PULSEIMU                              #  TO PUT OUT GYRO TORQUING PULSES
019476,000275: 14,2320           77776                           EXIT                                           
019477,000276: 
019478,000277: 14,2321           04065                           TC       BANKCALL                              
019479,000278: 14,2322           26716                           CADR     IMUSTALL                              #  WAIT FOR PULSES TO GET OUT
019480,000279: 14,2323           12745                           TCF      ENDTEST                               
019481,000280: 14,2324           01546                           TC       QPLACE                                
019482,000281: 
019483,000282: 14,2325           77776        MAKEXSMD           EXIT                                           #  XSM V   YSM SW   ZSM SE
019484,000283: 14,2326           33660                           CAF      17DEC                                 #  ZERO XSM, YSM, AND ZSM
019485,000284: 14,2327           55776                           TS       ZERONDX                               
019486,000285: 14,2330           33676                           CAF      XSMADRX                               
019487,000286: 14,2331           04065                           TC       BANKCALL                              
019488,000287: 14,2332           37236                           CADR     ZEROING                               #          VERT       SOUTH      EAST
019489,000288: 
019490,000289: 14,2333           37654                           CAF      HALF                                  #  XSM    * +1          0          0     *
019491,000290: 14,2334           55400                           TS       XSM                                   #         *                              *
019492,000291: 14,2335           06000                           TC       INTPRET                               #         *                              *
019493,000292: 14,2336           73545                           DLOAD    SIN                                   #  YSM    *  0      +SIN(AZ)    +COS(AZ) *
019494,000293: 14,2337           02507                                    AZIMUTH                               #         *                              *
019495,000294: 14,2340           02411                           STORE    XSM        +8D                        #         *                              *
019496,000295: 14,2341           16421                           STODL    XSM        +16D                       #  ZSM    *  0      -COS(AZ)    +SIN(AZ) *
019497,000296: 14,2342           02507                                    AZIMUTH                               
019498,000297: 14,2343           77746                           COS                                            
019499,000298: 14,2344           02413                           STORE    XSM        +10D                       
019500,000299: 14,2345           77676                           DCOMP                                          
019501,000300: 14,2346           02417                           STORE    XSM        +14D                       
019502,000301: 14,2347           77616                           RVQ                                            
019503,000302: 
019504,000303: 
019505,000304: 
019506,000305: 14,2350           77170        TAR/EREF           AXT,1    AXT,2                                 #                TARGET VECTOR
019507,000306: 14,2351           00002                                    2                                     #  SIN(EL)  -COS(AZ)COS(EL)  SIN(AZ)COS(EL)
019508,000307: 14,2352           00014                                    12D                                   
019509,000308: 14,2353           77731                           SSP                                            
019510,000309: 14,2354           00052                                    S2                                    
019511,000310: 14,2355           00006                                    6                                     #  TARGET 1                        TARGET 2
019512,000311: 
019513,000312: 14,2356           60533        TAR1               SLOAD*   SR2                                   #  X1=2  X2=12  S2=6 . X1=0  X2=6  S2=6
019514,000313: 14,2357           02557                                    TAZEL1     +3,1                       
019515,000314: 14,2360           00001                           STORE    0                                     #  PD00           ELEVATION            PD00
019516,000315: 14,2361           77756                           SIN                                            
019517,000316: 14,2362           24023                           STODL    18D,2                                 #  PD06  ***       SIN(EL)        ***  PD12
019518,000317: 
019519,000318: 14,2363           00001                                    0                                     
019520,000319: 14,2364           41546                           COS      PUSH                                  #  PDOO            COS(EL)             PD00
019521,000320: 14,2365           47133                           SLOAD*   RTB                                   
019522,000321: 14,2366           02556                                    TAZEL1     +2,1                       
019523,000322: 14,2367           33345                                    CDULOGIC                              
019524,000323: 14,2370           00003                           STORE    2                                     #  PD02            AZIMUTH             PD02
019525,000324: 14,2371           41356                           SIN      DMP                                   
019526,000325: 14,2372           00001                                    0                                     
019527,000326: 14,2373           77752                           SL1                                            
019528,000327: 14,2374           24027                           STODL    22D,2                                 #  PD10  ***   +SIN(AZ)COS(EL)    ***  PD16
019529,000328: 
019530,000329: 14,2375           00003                                    2                                     
019531,000330: 14,2376           41346                           COS      DMP                                   
019532,000331: 14,2377           57552                           SL1      DCOMP                                 
019533,000332: 14,2400           10025                           STORE    20D,2                                 #  PD08  ***   -COS(AZ)COS(EL)    ***  PD14
019534,000333: 
019535,000334: 14,2401           61170                           AXT,1    TIX,2                                 
019536,000335: 14,2402           00000                                    0                                     
019537,000336: 14,2403           30356                                    TAR1                                  
019538,000337: 14,2404           77616                           RVQ                                            
019539,000338: 
019540,000339: 14,2405           65345        ERTHRVSE           DLOAD    PDDL                                  
019541,000340: 14,2406           33042                                    ZERODP                                #  PD24 = (SIN -COS  0)(OMEG/MS)
019542,000341: 14,2407           02511                                    LATITUDE                              
019543,000342: 14,2410           57546                           COS      DCOMP                                 
019544,000343: 14,2411           73525                           PDDL     SIN                                   
019545,000344: 14,2412           02511                                    LATITUDE                              #  EARTH RATE = .1504 ARCSEC / 10 MSEC
019546,000345: 14,2413           74266                           VDEF     VXSC                                  #  1.618 GYRO PULSES = 1 ARCSEC
019547,000346: 14,2414           31702                                    OMEG/MS                               #  OMEG/MS = .243... GYRO PULSES / 10 MSEC
019548,000347: 14,2415           02514                           STORE    ERVECTOR                              
019549,000348: 
019550,000349: 14,2416           77634                           RTB                                            
019551,000350: 14,2417           33342                                    LOADTIME                              
019552,000351: 14,2420           02565                           STORE    TMARK                                 #  TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
019553,000352: 14,2421           77616                           RVQ                                            
019554,000353: 
019555,000354: 
019556,000355: 
019557,000356: 
019558,000357: 
019559,000358: 14,2422           04114        EARTHR             TC       MAKECADR                              #  CLACULATES AND COMPENSATES EARTH RATE
019560,000359: 14,2423           55547                           TS       QPLACES                               
019561,000360: 
019562,000361: 14,2424           06000                           TC       INTPRET                               
019563,000362: 14,2425           77634                           RTB                                            
019564,000363: 14,2426           33342                                    LOADTIME                              #  T(PRESENT)
019565,000364: 14,2427           02562                           STORE    TEMPTIME                              
019566,000365: 14,2430           54225                           DSU      SL                                    
019567,000366: 14,2431           02565                                    TMARK                                 #  T(PRES) - T(PREV) = DT    SCALED 10 MSEC
019568,000367: 14,2432           20212                                    9D                                    #  2 TO 21ST POWER = 1 REVOLUTION
019569,000368: 14,2433           64361                           VXSC     MXV                                   
019570,000369: 14,2434           02514                                    ERVECTOR                              #  VT = (SIN  -COS  0)(OMEG/MS)(DT)
019571,000370: 14,2435           02401                                    XSM                                   #  (XSM)(VT) = EARTH RATE COMPENSATION
019572,000371: 14,2436           77655                           VAD                                            
019573,000372: 14,2437           02772                                    ERCOMP                                
019574,000373: 14,2440           16772                           STODL    ERCOMP                                
019575,000374: 14,2441           02562                                    TEMPTIME                              
019576,000375: 14,2442           02565                           STORE    TMARK                                 #  T(PREVIOUS)
019577,000376: 
019578,000377: 14,2443           47170                           AXT,1    RTB                                   
019579,000378: 14,2444           02771                           ECADR    ERCOMP                                
019580,000379: 14,2445           33515                                    PULSEIMU                              #  TO PUT OUT GYRO TORQUING PULSES
019581,000380: 14,2446           77776                           EXIT                                           
019582,000381: 
019583,000382: 14,2447           04065                           TC       BANKCALL                              
019584,000383: 14,2450           26716                           CADR     IMUSTALL                              #  WAIT FOR PULSES TO GET OUT
019585,000384: 14,2451           12745                           TCF      ENDTEST                               
019586,000385: 14,2452           31547                           CAE      QPLACES                               
019587,000386: 14,2453           14107                           TCF      BANKJUMP                              
019588,000387: 
019589,000388: 14,2454           00006        STORRSLT           EXTEND                                         
019590,000389: 14,2455           23546                           QXCH     QPLACE                                
019591,000390: 
019592,000391: 14,2456           06000                           TC       INTPRET                               #  DP TIME IN MPAC SCALED .312(5) MSEC
019593,000392: 14,2457           54340                           LXC,1    SL                                    
019594,000393: 14,2460           02537                                    NDXCTR                                
019595,000394: 14,2461           20204                                    3                                     
019596,000395: 14,2462           47005                           DMP      RTB                                   
019597,000396: 14,2463           31700                                    SCALFTR                               
019598,000397: 14,2464           33406                                    SGNAGREE                              
019599,000398: 14,2465           06571                           STORE    GENPL,1                               #  STORE DP TIME
019600,000399: 14,2466           77776                           EXIT                                           
019601,000400: 
019602,000401: 14,2467           57551                           XCH      STOREPL                               #  CONTAINS C(PIPAI)
019603,000402: 14,2470           51537                           INDEX    NDXCTR                                
019604,000403: 14,2471           55572                           TS       GENPL      +2                         #  STORE PIPA COUNTER READING
019605,000404: 14,2472           41537                           CS       NDXCTR                                
019606,000405: 14,2473           63664                           AD       72DEC                                 
019607,000406: 14,2474           00006                           EXTEND                                         
019608,000407: 14,2475           63123                           BZMF     MISALIGN                              #  TO CALCULATE MISALIGNMENT
019609,000408: 14,2476           36176                           CAF      THREE                                 
019610,000409: 14,2477           27537                           ADS      NDXCTR                                
019611,000410: 14,2500           01546                           TC       QPLACE                                
019612,000411: 
019613,000412: 14,2501           00006        OPTDATA            EXTEND                                         #  CALLS FOR AZIMUTH AND ELEVATION OF
019614,000413: 14,2502           23546                           QXCH     QPLACE                                #     TARGET 1, THEN TARGET 2
019615,000414: 
019616,000415: 14,2503           37671                           CAF      BIT1                                  #  AZIMUTH CLOCKWISE FROM NORTH TO TARGET
019617,000416: 14,2504           22007                           ZL                                             #  ELEVATION MEASURED FROM HORIZONTAL
019618,000417: 14,2505           23550                           LXCH     RUN                                   
019619,000418: 14,2506           54335                           TS       DSPTEM1    +2                         
019620,000419: 14,2507           33652                           CAF      V05N30E                               #  DISPLAY TARGET NUMBER IN R3
019621,000420: 14,2510           05324                           TC       NVSBWAIT                              
019622,000421: 14,2511           51550                           INDEX    RUN                                   
019623,000422: 14,2512           53554                           DXCH     TAZEL1                                
019624,000423: 14,2513           52334                           DXCH     DSPTEM1                               
019625,000424: 
019626,000425: 14,2514           02554                           TC       CHECKLD                               #  R1  +- XXX.XX    AZIMUTH IN DEGREES
019627,000426: 14,2515           00661                           OCT      00661                                 #  R2  +- XX.XXX    ELEVATION IN DEGREES
019628,000427: 14,2516           12745                           TCF      ENDTEST                               #  R3      0000X    TARGET NUMBER 1 OR 2
019629,000428: 
019630,000429: 14,2517           52334                           DXCH     DSPTEM1                               #  TAZEL1        TARGET 1 AZIMUTH
019631,000430: 14,2520           51550                           INDEX    RUN                                   
019632,000431: 14,2521           53554                           DXCH     TAZEL1                                #  TAZEL1 +2     TARGET 2 AZIMUTH
019633,000432: 14,2522           11550                           CCS      RUN                                   
019634,000433: 14,2523           12527                           TCF      +4                                    
019635,000434: 14,2524           37670        OPTRDRIN           CAF      TWO                                   #  SPECIAL ENTRY FOR RDR37511
019636,000435: 14,2525           54001                           TS       L                                     
019637,000436: 14,2526           12505                           TCF      OPTDATA    +4                         #  MPAC    1ST PASS = 0    2ND PASS = 2
019638,000437: 14,2527           01546                           TC       QPLACE                                
019639,000438: 
019640,000439: 14,2530           62545        LATAZCHK           DLOAD    SL2                                   #  CALLS FOR AZIMUTH (SM) AND LATITUDE
019641,000440: 14,2531           02511                                    LATITUDE                              
019642,000441: 14,2532           14335                           STODL    DSPTEM1    +1                         
019643,000442: 14,2533           02507                                    AZIMUTH                               #  ...NOT REALLY...
019644,000443: 
019645,000444: 14,2534           77434                           RTB      EXIT                                  
019646,000445: 14,2535           33410                                    1STO2S                                #  FRACTION OF REVOLUTION TO 2S COMPLEMENT
019647,000446: 
019648,000447: 14,2536           56140                           XCH      MPAC                                  #  AZIMUTH MUST BE 135 DEGREES R1 = .13500
019649,000448: 14,2537           54333                           TS       DSPTEM1                               #     FOR SXT-NB-IMU FINE ALIGNMENT TEST
019650,000449: 14,2540           02554                           TC       CHECKLD                               #  R1  +- XXX.XX    AZIMUTH IN DEGREES (SM)
019651,000450: 14,2541           00661                           OCT      00661                                 #  R2  +- XX.XXX    LATITUDE IN DEGREES
019652,000451: 14,2542           12745                           TCF      ENDTEST                               #  R3               NOT USED
019653,000452: 
019654,000453: 14,2543           06000                           TC       INTPRET                               
019655,000454: 14,2544           47135                           SLOAD    RTB                                   
019656,000455: 14,2545           00334                                    DSPTEM1                               
019657,000456: 14,2546           33345                                    CDULOGIC                              #  BACK TO FRACTION OF REVOLUTION
019658,000457: 14,2547           02507                           STORE    AZIMUTH                               
019659,000458: 
019660,000459: 14,2550           60535                           SLOAD    SR2                                   
019661,000460: 14,2551           00335                                    DSPTEM1    +1                         
019662,000461: 14,2552           02511                           STORE    LATITUDE                              
019663,000462: 14,2553           77616                           RVQ                                            
019664,000463: 
019665,000464: 
019666,000465: 14,2554           00006        CHECKLD            EXTEND                                         
019667,000466: 14,2555           23545                           QXCH     QPLAC                                 
019668,000467: 
019669,000468: 14,2556           51545                           INDEX    QPLAC                                 
019670,000469: 14,2557           30000                           CA       A                                     
019671,000470: 14,2560           05101                           TC       NVSUB                                 
019672,000471: 14,2561           12573                           TCF      CHECKLD1                              
019673,000472: 
019674,000473: 14,2562           05266                           TC       FLASHON                               
019675,000474: 
019676,000475: 14,2563           05132                           TC       ENDIDLE                               #  CHANGE R1  V21 N61 E  +- XXX.XX E
019677,000476: 14,2564           12567                           TCF      +3                                    #  CHANGE R2  V22 N61 E  +- XX.XXX E
019678,000477: 14,2565           12571                           TCF      +4                                    #  VERIFY, THEN PROCEED WITH VERB 33 ENTER
019679,000478: 14,2566           12556                           TCF      CHECKLD    +2                         
019680,000479: 14,2567           51545                           INDEX    QPLAC                                 
019681,000480: 14,2570           00001                           TC       1                                     
019682,000481: 14,2571           51545                           INDEX    QPLAC                                 
019683,000482: 14,2572           00002                           TC       2                                     
019684,000483: 
019685,000484: 14,2573           32575        CHECKLD1           CAF      CHECKLD2                              
019686,000485: 14,2574           05321                           TC       NVSUBUSY                              
019687,000486: 14,2575           30556        CHECKLD2           CADR     CHECKLD    +2                         
019688,000487: 
019689,000488: 14,2576           00006        POSNJUMP           EXTEND                                         #  POSITIONS FOR SXTNBIMU
019690,000489: 14,2577           23546                           QXCH     QPLACE                                
019691,000490: 
019692,000491: 14,2600           51544                           INDEX    POSITON                               
019693,000492: 14,2601           12602                           TCF      +1                                    
019694,000493: 14,2602           12745                           TCF      ENDTEST                               
019695,000494: 14,2603           12610                           TCF      POS1                                  
019696,000495: 14,2604           12615                           TCF      POS2                                  
019697,000496: 14,2605           12633                           TCF      POS3                                  
019698,000497: 14,2606           12654                           TCF      POS4                                  
019699,000498: 14,2607           12706                           TCF      POS5                                  
019700,000499: 
019701,000500: 
019702,000501: 
019703,000502: 14,2610           37671        POS1               CAF      ONE                                   #  XSM = V    YSM = SW    ZSM = SE
019704,000503: 14,2611           55542                           TS       PIPNDX                                
019705,000504: 14,2612           37670                           CAF      TWO                                   
019706,000505: 14,2613           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAY AND PIPAZ
019707,000506: 14,2614           01546                           TC       QPLACE                                
019708,000507: 
019709,000508: 
019710,000509: 
019711,000510: 14,2615           06000        POS2               TC       INTPRET                               #  XSM = SE   YSM = SW    ZSM = -V
019712,000511: 14,2616           57575                           VLOAD    VCOMP                                 
019713,000512: 14,2617           02401                                    XSM                                   
019714,000513: 14,2620           77715                           PDVL                                           
019715,000514: 14,2621           02415                                    ZSM                                   
019716,000515: 14,2622           26401                           STOVL    XSM                                   
019717,000516: 14,2623           77626                           STADR                                          
019718,000517: 14,2624           75362                           STORE    ZSM                                   
019719,000518: 14,2625           77776                           EXIT                                           
019720,000519: 14,2626           37675                           CAF      ZERO                                  
019721,000520: 14,2627           55542                           TS       PIPNDX                                
019722,000521: 14,2630           37671                           CAF      ONE                                   
019723,000522: 14,2631           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAX AND PIPAY
019724,000523: 14,2632           01546                           TC       QPLACE                                
019725,000524: 
019726,000525: 
019727,000526: 
019728,000527: 14,2633           06000        POS3               TC       INTPRET                               #  XSM = SE    YSM = V    ZSM = SW
019729,000528: 14,2634           63375                           VLOAD    PDVL                                  
019730,000529: 14,2635           02401                                    XSM                                   
019731,000530: 14,2636           02407                                    YSM                                   
019732,000531: 14,2637           77715                           PDVL                                           
019733,000532: 14,2640           02415                                    ZSM                                   
019734,000533: 14,2641           26401                           STOVL    XSM                                   
019735,000534: 
019736,000535: 14,2642           77626                           STADR                                          
019737,000536: 14,2643           51362                           STOVL    ZSM                                   
019738,000537: 
019739,000538: 14,2644           77626                           STADR                                          
019740,000539: 14,2645           75370                           STORE    YSM                                   
019741,000540: 14,2646           77776                           EXIT                                           
019742,000541: 14,2647           37675                           CAF      ZERO                                  
019743,000542: 14,2650           55542                           TS       PIPNDX                                
019744,000543: 14,2651           37670                           CAF      TWO                                   
019745,000544: 14,2652           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAX AND PIPAZ
019746,000545: 14,2653           01546                           TC       QPLACE                                
019747,000546: 
019748,000547: 
019749,000548: 
019750,000549: 14,2654           37665        POS4               CAF      BIT5                                  #  OPTION TO ALIGN SM TO SPECIFIED ANGLES
019751,000550: 14,2655           60104                           AD       FIXLOC                                
019752,000551: 14,2656           50104                           INDEX    FIXLOC                                
019753,000552: 14,2657           54050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
019754,000553: 14,2660           33656                           CAF      V25N22E                               #  R1  +- XXX.XX   OUTER GIMBAL ANGLE
019755,000554: 14,2661           05324                           TC       NVSBWAIT                              #  R2  +- XXX.XX   INNER GIMBAL ANGLE
019756,000555: 14,2662           05132                           TC       ENDIDLE                               #  R3  +- XXX.XX   MIDDLE GIMBAL ANGLE
019757,000556: 14,2663           12745                           TCF      ENDTEST                               
019758,000557: 14,2664           12660                           TCF      -4                                    
019759,000558: 14,2665           30400                           CA       THETAD                                #  SET UP ANGLES FOR SMNB
019760,000559: 14,2666           50104                           INDEX    FIXLOC                                
019761,000560: 14,2667           54024                           TS       24                                    
019762,000561: 14,2670           30401                           CA       THETAD     +1                         
019763,000562: 14,2671           50104                           INDEX    FIXLOC                                
019764,000563: 14,2672           54020                           TS       20                                    
019765,000564: 14,2673           30402                           CA       THETAD     +2                         
019766,000565: 14,2674           50104                           INDEX    FIXLOC                                
019767,000566: 14,2675           54022                           TS       22                                    
019768,000567: 
019769,000568: 14,2676           06000                           TC       INTPRET                               
019770,000569: 14,2677           45034                           RTB      CALL                                  
019771,000570: 14,2700           32766                                    TRANSPSE                              #  EARTH REF WRT NAV BASE
019772,000571: 14,2701           33000                                    SMD/EREF                              #  STABLE MEMBER DESIRED WRT EARTH REF
019773,000572: 14,2702           77634                           RTB                                            
019774,000573: 14,2703           32766                                    TRANSPSE                              #  BACK TO NAV BASE WRT TO EARTH REF
019775,000574: 14,2704           77776                           EXIT                                           
019776,000575: 14,2705           01546                           TC       QPLACE                                
019777,000576: 
019778,000577: 14,2706           31546        POS5               CA       QPLACE                                #  OPTION TO ALIGN SM TO ANY ORIENTATION
019779,000578: 14,2707           55551                           TS       STOREPL                               #    WRT EARTH REFERENCE FRAME
019780,000579: 
019781,000580: 14,2710           02501                           TC       OPTDATA                               #  LOAD YSM AND ZSM AZIMUTH AND ELEVATION
019782,000581: 
019783,000582: 14,2711           06000                           TC       INTPRET                               
019784,000583: 14,2712           77624                           CALL                                           
019785,000584: 14,2713           30350                                    TAR/EREF                              #  CALC YSM AND ZSM WRT EARTH REF. FRAME
019786,000585: 14,2714           41575                           VLOAD    PUSH                                  
019787,000586: 14,2715           00007                                    6D                                    
019788,000587: 14,2716           02407                           STORE    YSM                                   
019789,000588: 14,2717           76435                           VXV      VSL1                                  
019790,000589: 14,2720           00015                                    12D                                   
019791,000590: 14,2721           02401                           STORE    XSM                                   #  XSM = (YSM) X (ZSM)
019792,000591: 14,2722           76435                           VXV      VSL1                                  
019793,000592: 14,2723           77626                           STADR                                          
019794,000593: 14,2724           75362                           STORE    ZSM                                   #  ZSM = (XSM) X (YSM)
019795,000594: 14,2725           77776                           EXIT                                           
019796,000595: 
019797,000596: 14,2726           01551                           TC       STOREPL                               
019798,000597: 14,2727           00006        OGCZERO            EXTEND                                         #  ZERO EARTH RATE TORQUING ANGLES
019799,000598: 14,2730           23546                           QXCH     QPLACE                                
019800,000599: 
019801,000600: 14,2731           06000                           TC       INTPRET                               
019802,000601: 14,2732           77775                           VLOAD                                          
019803,000602: 14,2733           33042                                    ZERODP                                #  VECTOR IN THIS CASE
019804,000603: 14,2734           02772                           STORE    ERCOMP                                
019805,000604: 14,2735           77776                           EXIT                                           
019806,000605: 14,2736           01546                           TC       QPLACE                                
019807,000606: 
019808,000607: 
019809,000608: 
019810,000609: 
019811,000610: 
019812,000611: 14,2737           37664        GMLCKCHK           CAF      BIT6                                  #  CHECK FOR GIMBAL LOCK  (MGA GREATER 70)
019813,000612: 14,2740           70322                           MASK     DSPTAB     +11D                       
019814,000613: 14,2741           00006                           EXTEND                                         
019815,000614: 14,2742           12744                           BZF      +2                                    
019816,000615: 14,2743           12745                           TCF      ENDTEST                               
019817,000616: 14,2744           00002                           TC       Q                                     
019818,000617: 
019819,000618: 
019820,000619: 
019821,000620: 
019822,000621: 
019823,000622: 14,2745           37662        ENDTEST            CA       IMUSEFLG                              #  BIT8
019824,000623: 14,2746           67663                           AD       RRUSEFLG                              #  BIT7
019825,000624: 14,2747           40000                           CS       A                                     
019826,000625: 14,2750           00004                           INHINT                                         
019827,000626: 14,2751           70061                           MASK     STATE                                 
019828,000627: 14,2752           54061                           TS       STATE                                 
019829,000628: 
019830,000629: 14,2753           04650                           TC       NEWMODEX                              
019831,000630: 14,2754           00000                           OCT      00000                                 
019832,000631: 
019833,000632: 14,2755           04065                           TC       BANKCALL                              
019834,000633: 14,2756           27014                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
019835,000634: 14,2757           04421                           TC       EJFREE                                
019836,000635: 
019837,000636: 14,2760           06000        LEMLAB             TC       INTPRET                               
019838,000637: 14,2761           57575                           VLOAD    VCOMP                                 
019839,000638: 14,2762           33036                                    YUNIT                                 
019840,000639: 
019841,000640: 14,2763           02437                           STORE    ZNB                                   #  XNB MATRIX USED IN CALCGA
019842,000641: 14,2764           26461                           STOVL    STARAD     +12D                       #  STARAD MATRIX USED IN AXISGEN * SMDCALC
019843,000642: 14,2765           33040                                    XUNIT                                 
019844,000643: 
019845,000644: 14,2766           02423                           STORE    XNB                                   #  *XNB*   *1    0    0* *V*
019846,000645: 14,2767           26445                           STOVL    STARAD                                #  *   *   *           * * *
019847,000646: 14,2770           33034                                    ZUNIT                                 #  *YNB* = *0    0    1* *S*
019848,000647: 14,2771           02431                           STORE    YNB                                   #  *   *   *           * * *
019849,000648: 14,2772           02453                           STORE    STARAD     +6                         #  *ZNB*   *0   -1    0* *E*
019850,000649: 14,2773           77776                           EXIT                                           
019851,000650: 
019852,000651: 14,2774           41544                           CS       POSITON                               
019853,000652: 14,2775           66176                           AD       THREE                                 
019854,000653: 14,2776           00006                           EXTEND                                         
019855,000654: 14,2777           13001                           BZF      +2                                    
019856,000655: 14,3000           13014                           TCF      LEMLAB1                               
019857,000656: 
019858,000657: 14,3001           06000                           TC       INTPRET                               
019859,000658: 14,3002           57575                           VLOAD    VCOMP                                 
019860,000659: 14,3003           02423                                    XNB                                   
019861,000660: 14,3004           77715                           PDVL                                           #  *XNB*   * 0   -1    0* *V*
019862,000661: 14,3005           02437                                    ZNB                                   #  *   *   *            * * *
019863,000662: 14,3006           02423                           STORE    XNB                                   #  *YNB* = * 0    0    1* *S*
019864,000663: 14,3007           26445                           STOVL    STARAD                                #  *   *   *            * * *
019865,000664: 14,3010           77626                           STADR                                          #  *ZNB*   *-1    0    0* * *
019866,000665: 14,3011           75340                           STORE    ZNB                                   
019867,000666: 14,3012           02461                           STORE    STARAD     +12D                       
019868,000667: 14,3013           77776                           EXIT                                           
019869,000668: 
019870,000669: 14,3014           04065        LEMLAB1            TC       BANKCALL                              
019871,000670: 14,3015           26716                           CADR     IMUSTALL                              #  INSURE IMUZERO COMPLETION
019872,000671: 
019873,000672: 14,3016           12745                           TCF      ENDTEST                               
019874,000673: 
019875,000674: 14,3017           02576                           TC       POSNJUMP                              #  SET UP STABLE MEMBER DESIRED COORDINATES
019876,000675: 14,3020           05373                           TC       FREEDSP                               #  FREE DISPLAY SYSTEM
019877,000676: 14,3021           02247                           TC       PUTPOSX                               #  TO COARSE ALIGN STABLE MEMBER
019878,000677: 
019879,000678: 14,3022           02737                           TC       GMLCKCHK                              
019880,000679: 
019881,000680: 14,3023           04065                           TC       BANKCALL                              
019882,000681: 14,3024           26227                           CADR     IMUFINE                               #  FINE ALIGN MODE
019883,000682: 14,3025           04065                           TC       BANKCALL                              
019884,000683: 14,3026           26716                           CADR     IMUSTALL                              
019885,000684: 14,3027           12745                           TCF      ENDTEST                               
019886,000685: 
019887,000686: 14,3030           30032                           CA       CDUX                                  
019888,000687: 14,3031           50104                           INDEX    FIXLOC                                
019889,000688: 14,3032           54024                           TS       24                                    
019890,000689: 14,3033           30033                           CA       CDUY                                  
019891,000690: 14,3034           50104                           INDEX    FIXLOC                                
019892,000691: 14,3035           54020                           TS       20                                    
019893,000692: 14,3036           30034                           CA       CDUZ                                  
019894,000693: 14,3037           50104                           INDEX    FIXLOC                                
019895,000694: 14,3040           54022                           TS       22                                    
019896,000695: 
019897,000696: 14,3041           37665                           CAF      BIT5                                  
019898,000697: 14,3042           60104                           AD       FIXLOC                                
019899,000698: 14,3043           50104                           INDEX    FIXLOC                                
019900,000699: 14,3044           54050                           TS       S1                                    
019901,000700: 
019902,000701: 14,3045           02263                           TC       SMDCALC                               #  TO FINE ALIGN STABLE MEMBER
019903,000702: 
019904,000703: 14,3046           06000                           TC       INTPRET                               #  IF EARTH RATE COMPENSATION DESIRED
019905,000704: 14,3047           77634                           RTB                                            
019906,000705: 14,3050           33342                                    LOADTIME                              
019907,000706: 14,3051           02565                           STORE    TMARK                                 
019908,000707: 14,3052           77776                           EXIT                                           
019909,000708: 
019910,000709: 14,3053           41512                           CS       EROPTN                                
019911,000710: 14,3054           67670                           AD       TWO                                   
019912,000711: 14,3055           00006                           EXTEND                                         
019913,000712: 14,3056           13060                           BZF      +2                                    
019914,000713: 
019915,000714: 14,3057           12051                           TCF      ERFINAL    +2                         
019916,000715: 
019917,000716: 14,3060           04065                           TC       BANKCALL                              
019918,000717: 14,3061           35235                           CADR     SAMODRTN                              #  RETURN TO SEMI-AUTOMATIC MODING TEST
019919,000718: 
019920,000719: 14,3062           33674        RDR37511           CAF      RDRRETN                               #  RENDEZVOUS RADAR AND ANTENNA TRACKING
019921,000720: 14,3063           55546                           TS       QPLACE                                #  TO RETURN FROM OPTDATA
019922,000721: 
019923,000722: 14,3064           04065                           TC       BANKCALL                              
019924,000723: 14,3065           20247                           CADR     RRZERO                                
019925,000724: 
019926,000725: 14,3066           04065                           TC       BANKCALL                              
019927,000726: 14,3067           22776                           CADR     AURLOKON                              #  OPERATOR DECISION TO LOCK ON OR NOT
019928,000727: 
019929,000728: 14,3070           12524        RDR1               TCF      OPTRDRIN                              #  CALL FOR AZIMUTH AND ELEVATION
019930,000729: 
019931,000730: 14,3071           04065                           TC       BANKCALL                              
019932,000731: 14,3072           26712                           CADR     RADSTALL                              
019933,000732: 14,3073           14422                           TCF      ENDOFJOB                              
019934,000733: 
019935,000734: 14,3074           06000                           TC       INTPRET                               
019936,000735: 14,3075           77170                           AXT,1    AXT,2                                 #  SET UP X1 AND X2 FOR TAR/EREF
019937,000736: 14,3076           00000                                    0                                     
019938,000737: 14,3077           00006                                    6                                     
019939,000738: 14,3100           77624                           CALL                                           
019940,000739: 14,3101           30353                                    TAR/EREF   +3                         #  LINE-OF-SIGHT WRT EARTH REF FRAME
019941,000740: 14,3102           64375                           VLOAD    MXV                                   
019942,000741: 14,3103           00015                                    12D                                   #  LINE-OF-SIGHT WRT EARTH REF FRAME
019943,000742: 14,3104           02401                                    XSM                                   #  TO STABLE MEMBER PRESENT FRAME
019944,000743: 14,3105           77772                           VSL1                                           
019945,000744: 14,3106           34416                           STCALL   RRTARGET                              
019946,000745: 14,3107           20306                                    RRDESSM                               
019947,000746: 
019948,000747: 14,3110           13115                           TCF      37511ALM                              
019949,000748: 14,3111           04065                           TC       BANKCALL                              
019950,000749: 14,3112           26712                           CADR     RADSTALL                              
019951,000750: 14,3113           14422                           TCF      ENDOFJOB                              
019952,000751: 14,3114           14422                           TCF      ENDOFJOB                              
019953,000752: 
019954,000753: 
019955,000754: 
019956,000755: 
019957,000756: 
019958,000757: 14,3115           05405        37511ALM           TC       ALARM                                 
019959,000758: 14,3116           00524                           OCT      524                                   
019960,000759: 14,3117           14422                           TCF      ENDOFJOB                              
019961,000760: 
019962,000761: 
019963,000762: 
019964,000763: 
019965,000764: 
019966,000765: 14,3120           47675        RDRINIT            CS       ZERO                                  
019967,000766: 14,3121           55512                           TS       EROPTN                                
019968,000767: 14,3122           12002                           TCF      AOTNBIMU   +2                         
019969,000768: 
019970,000769: 14,3123           05311        MISALIGN           TC       GRABWAIT                              #  DISPLAY SYSTEM WAS FREED
019971,000770: 14,3124           37675                           CAF      ZERO                                  
019972,000771: 14,3125           55537                           TS       NDXCTR                                
019973,000772: 14,3126           51537        BBBB               INDEX    NDXCTR                                
019974,000773: 14,3127           41674                           CS       GENPL      +68D                       
019975,000774: 14,3130           51537                           INDEX    NDXCTR                                
019976,000775: 14,3131           27702                           ADS      GENPL      +74D                       
019977,000776: 14,3132           33662                           CAF      63DEC                                 
019978,000777: 14,3133           61537                           AD       NDXCTR                                
019979,000778: 14,3134           10000                           CCS      A                                     
019980,000779: 14,3135           46176                           CS       THREE                                 
019981,000780: 14,3136           27537                           ADS      NDXCTR                                
019982,000781: 14,3137           13126                           TCF      BBBB                                  
019983,000782: 14,3140           55537                           TS       NDXCTR                                
019984,000783: 
019985,000784: 
019986,000785: 
019987,000786: 14,3141           06000        CCCC               TC       INTPRET                               
019988,000787: 14,3142           70750                           LXA,1    DLOAD*                                
019989,000788: 14,3143           02537                                    NDXCTR                                
019990,000789: 14,3144           02701                                    GENPL      +72D,1                     
019991,000790: 14,3145           77625                           DSU                                            
019992,000791: 14,3146           02571                                    GENPL                                 
019993,000792: 14,3147           06701                           STORE    GENPL      +72D,1                     
019994,000793: 14,3150           77776                           EXIT                                           
019995,000794: 14,3151           41537                           CS       NDXCTR                                
019996,000795: 14,3152           63663                           AD       69DEC                                 
019997,000796: 14,3153           10000                           CCS      A                                     
019998,000797: 14,3154           36176                           CAF      THREE                                 
019999,000798: 14,3155           27537                           ADS      NDXCTR                                
020000,000799: 14,3156           13141                           TCF      CCCC                                  
020001,000800: 14,3157           55550                           TS       RUN                                   
020002,000801: 14,3160           36176                           CAF      THREE                                 
020003,000802: 14,3161           55537                           TS       NDXCTR                                
020004,000803: 
020005,000804: 
020006,000805: 
020007,000806: 14,3162           06000        DDDD               TC       INTPRET                               
020008,000807: 14,3163           77775                           VLOAD                                          
020009,000808: 14,3164           33042                                    ZERODP                                
020010,000809: 14,3165           00031                           STORE    24D                                   
020011,000810: 14,3166           00037                           STORE    30D                                   
020012,000811: 14,3167           77735                           SLOAD                                          
020013,000812: 14,3170           31660                                    11DEC                                 
020014,000813: 14,3171           00041                           STORE    32D                                   
020015,000814: 14,3172           77776                           EXIT                                           
020016,000815: 
020017,000816: 14,3173           06000        DDDD1              TC       INTPRET                               
020018,000817: 14,3174           70750                           LXA,1    DLOAD*                                
020019,000818: 14,3175           02537                                    NDXCTR                                
020020,000819: 
020021,000820: 14,3176           02701                                    GENPL      +72D,1                     
020022,000821: 14,3177           41423                           DSU*     PUSH                                  
020023,000822: 14,3200           02673                                    GENPL      +66D,1                     
020024,000823: 14,3201           42742                           SR1      DAD*                                  
020025,000824: 14,3202           02673                                    GENPL      +66D,1                     
020026,000825: 14,3203           06701                           STORE    GENPL      +72D,1                     
020027,000826: 
020028,000827: 14,3204           43312                           SL2      DAD                                   
020029,000828: 14,3205           00031                                    24D                                   
020030,000829: 14,3206           20031                           STODL*   24D                                   
020031,000830: 14,3207           02701                                    GENPL      +72D,1                     
020032,000831: 14,3210           63412                           SL4      DSQ                                   
020033,000832: 14,3211           77615                           DAD                                            
020034,000833: 14,3212           00033                                    26D                                   
020035,000834: 14,3213           00033                           STORE    26D                                   
020036,000835: 14,3214           77776                           EXIT                                           
020037,000836: 14,3215           31550                           CAE      RUN                                   
020038,000837: 14,3216           61537                           AD       NDXCTR                                
020039,000838: 14,3217           40000                           COM                                            
020040,000839: 14,3220           63662                           AD       63DEC                                 
020041,000840: 14,3221           10000                           CCS      A                                     
020042,000841: 14,3222           36173                           CAF      SIX                                   
020043,000842: 14,3223           27537                           ADS      NDXCTR                                
020044,000843: 14,3224           13173                           TCF      DDDD1                                 
020045,000844: 14,3225           61550                           AD       RUN                                   
020046,000845: 14,3226           55537                           TS       NDXCTR                                
020047,000846: 
020048,000847: 
020049,000848: 
020050,000849: 14,3227           06000        EEEE               TC       INTPRET                               
020051,000850: 14,3230           66740                           LXC,1    SLOAD*                                
020052,000851: 14,3231           02537                                    NDXCTR                                
020053,000852: 14,3232           02604                                    GENPL      +11D,1                     
020054,000853: 14,3233           00043                           STORE    34D                                   
020055,000854: 14,3234           77745                           DLOAD                                          
020056,000855: 14,3235           54206                           PUSH     SL                                    
020057,000856: 14,3236           20211                                    8D                                    
020058,000857: 14,3237           43265                           BDDV     DAD                                   
020059,000858: 14,3240           00043                                    34D                                   
020060,000859: 14,3241           00035                                    28D                                   
020061,000860: 14,3242           14035                           STODL    28D                                   
020062,000861: 14,3243           55261                           SL       BDDV                                  
020063,000862: 14,3244           20207                                    6                                     
020064,000863: 14,3245           00043                                    34D                                   
020065,000864: 14,3246           42523                           PDDL*    SL4                                   
020066,000865: 14,3247           02602                                    GENPL      +9D,1                      
020067,000866: 14,3250           77605                           DMP                                            
020068,000867: 14,3251           77615                           DAD                                            
020069,000868: 14,3252           00037                                    30D                                   
020070,000869: 14,3253           00037                           STORE    30D                                   
020071,000870: 
020072,000871: 14,3254           77776                           EXIT                                           
020073,000872: 14,3255           41537                           CS       NDXCTR                                
020074,000873: 14,3256           63661                           AD       60DEC                                 
020075,000874: 14,3257           61550                           AD       RUN                                   
020076,000875: 14,3260           10000                           CCS      A                                     
020077,000876: 14,3261           36173                           CAF      SIX                                   
020078,000877: 14,3262           27537                           ADS      NDXCTR                                
020079,000878: 14,3263           13227                           TCF      EEEE                                  
020080,000879: 
020081,000880: 
020082,000881: 
020083,000882: 14,3264           06000                           TC       INTPRET                               
020084,000883: 14,3265           41345                           DLOAD    DMP                                   
020085,000884: 14,3266           00031                                    24D                                   
020086,000885: 14,3267           00037                                    30D                                   
020087,000886: 14,3270           41325                           PDDL     DMP                                   
020088,000887: 14,3271           00033                                    26D                                   
020089,000888: 14,3272           00035                                    28D                                   
020090,000889: 14,3273           77625                           DSU                                            
020091,000890: 14,3274           63525                           PDDL     DSQ                                   
020092,000891: 14,3275           00031                                    24D                                   
020093,000892: 14,3276           65342                           SR1      PDDL                                  
020094,000893: 14,3277           00041                                    32D                                   
020095,000894: 14,3300           41261                           SL       DMP                                   
020096,000895: 14,3301           20212                                    11                                    
020097,000896: 14,3302           00033                                    26D                                   
020098,000897: 14,3303           55225                           DSU      BDDV                                  
020099,000898: 14,3304           54205                           DMP      SL                                    
020100,000899: 14,3305           31673                                    KKKK                                  
020101,000900: 14,3306           20204                                    3                                     
020102,000901: 14,3307           00337                           STORE    DSPTEM2                               
020103,000902: 14,3310           77776                           EXIT                                           
020104,000903: 
020105,000904: 14,3311           31544                           CA       POSITON                               
020106,000905: 14,3312           54340                           TS       DSPTEM2    +2                         
020107,000906: 
020108,000907: 14,3313           33654                           CAF      V06N66E                               
020109,000908: 14,3314           05324                           TC       NVSBWAIT                              
020110,000909: 14,3315           05266                           TC       FLASHON                               
020111,000910: 14,3316           05132                           TC       ENDIDLE                               
020112,000911: 14,3317           12745                           TCF      ENDTEST                               
020113,000912: 14,3320           36176                           CAF      THREE                                 
020114,000913: 14,3321           55550                           TS       RUN                                   
020115,000914: 14,3322           37675                           CAF      ZERO                                  
020116,000915: 14,3323           13161                           TCF      DDDD       -1                         
020117,000916: 
020118,000917:                                                                                                  #  THIS REVISION REFLECTS CHANGES AS OF
020119,000918:                                                                                                  #   1/31/66
020120,000919:                                                                                                  #  ENGINE ON/OFF NOW IN CHANNEL ELEVEN.  THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE.  THEY STAY ON UNTIL
020121,000920:                                                                                                  #   :ENTER:IS PUSHED.  THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
020122,000921:                                                                                                  #  CHANNEL 5  BITS 1-8
020123,000922:                                                                                                  #  CHANNEL 6  BITS 1-8
020124,000923:                                                                                                  #  CHANNEL 11 BITS  13,14
020125,000924:                                                                                                  #  CHANNEL 12 BITS 9-14
020126,000925:                                                                                                  #  FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED.  CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
020127,000926:                                                                                                  #  GOES IN LOCATION (COUNTER) 55.
020128,000927:                                                                                                  #  INCREASE THROTTLE RATE DESCENT ENGINE
020129,000928:                                                                                                  #  :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
020130,000929:                                                                                                  #  DECREASE THROTTLE RATE DESCENT ENGINE
020131,000930:                                                                                                  #  THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
020132,000931:                                                                                                  #  ZEROS FOR CLARITY) TO THE ALTITUDE METER.
020133,000932:                                                                                                  #  THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
020134,000933:                                                                                                  #  THE NEXT :ENTER : WILL TERMINATE THE TEST.
020135,000934: 
020136,000935: 
020137,000936: 
020138,000937: 14,3324           37651        SAUTOIFS           CA       POSMAX                                
020139,000938: 14,3325           55576                           TS       NOBITS                                
020140,000939: 14,3326           37675                           CA       ZERO                                  
020141,000940: 14,3327           55577                           TS       CHAN                                  
020142,000941: 14,3330           55575                           TS       TEMP                                  
020143,000942: 14,3331           03333                           TC       DINO                                  
020144,000943: 14,3332           25577        BACK1              INCR     CHAN                                  
020145,000944: 
020146,000945: 14,3333           51577        DINO               INDEX    CHAN                                  
020147,000946: 14,3334           33336                           CA       SAUTLOCS                              
020148,000947: 14,3335           14071                           TCF      SWCALL                                
020149,000948: 14,3336           31352        SAUTLOCS           CADR     CHAN5D                                
020150,000949: 14,3337           31370                           CADR     CHAN6D                                
020151,000950: 14,3340           31376                           CADR     CHAN11D                               
020152,000951: 14,3341           31410                           CADR     CHAN12D                               
020153,000952: 14,3342           31422                           CADR     PTITRDE                               
020154,000953: 14,3343           31447                           CADR     PTDTRDE                               
020155,000954: 14,3344           31524                           CADR     ALTMET                                
020156,000955: 14,3345           31551                           CADR     ALTRMET                               
020157,000956: 14,3346           30745                           CADR     ENDTEST                               
020158,000957: 14,3347           31454        THROTADD           CADR     PTDTRDE    +5                         
020159,000958: 14,3350           31527        METERADD           CADR     ALTMET     +3                         
020160,000959: 14,3351           31554        MRATEADD           CADR     ALTRMET    +3                         
020161,000960: 14,3352           37674        CHAN5D             CA       FIVE                                  
020162,000961: 14,3353           54333                           TS       DSPTEM1                               
020163,000962: 14,3354           35227        2ENTRY             CA       LOW8                                  #  CHANNEL 6 RETURNS HERE
020164,000963: 14,3355           54334                           TS       DSPTEM1    +1                         
020165,000964: 14,3356           00006                           EXTEND                                         
020166,000965: 14,3357           51575                           INDEX    TEMP                                  
020167,000966: 14,3360           01005                           WRITE    5                                     
020168,000967: 
020169,000968: 14,3361           33643        3ENTRY             CA       V04N30D                               #  CH11,12 RETURN HERE TO USE THE DISPLAY
020170,000969: 14,3362           05324                           TC       NVSBWAIT                              
020171,000970: 14,3363           33650        4ENTRY             CAF      WAITER                                #  WAITER IS 03300
020172,000971: 14,3364           05324                           TC       NVSBWAIT                              
020173,000972: 14,3365           05132                           TC       ENDIDLE                               
020174,000973: 14,3366           02745                           TC       ENDTEST                               
020175,000974: 14,3367           03332                           TC       BACK1                                 
020176,000975: 
020177,000976: 14,3370           25575        CHAN6D             INCR     TEMP                                  
020178,000977: 14,3371           24333                           INCR     DSPTEM1                               
020179,000978: 14,3372           37675                           CAF      ZERO                                  
020180,000979: 14,3373           00006                           EXTEND                                         
020181,000980: 14,3374           01005                           WRITE    5                                     #  GET RID OF CHANNEL 5 BITS
020182,000981: 14,3375           03354                           TC       2ENTRY                                
020183,000982: 14,3376           35170        CHAN11D            CA       OCT11                                 
020184,000983: 14,3377           54333                           TS       DSPTEM1                               
020185,000984: 14,3400           34507                           CA       BIT13-14                              
020186,000985: 14,3401           54334                           TS       DSPTEM1    +1                         
020187,000986: 14,3402           00006                           EXTEND                                         
020188,000987: 14,3403           05011                           WOR      11                                    #  WOR IS NON EXCLUSIVE OR
020189,000988: 14,3404           37675                           CAF      ZERO                                  
020190,000989: 14,3405           00006                           EXTEND                                         
020191,000990: 14,3406           01006                           WRITE    6                                     
020192,000991: 14,3407           03361                           TC       3ENTRY                                
020193,000992: 14,3410           35234        CHAN12D            CA       OCT12                                 
020194,000993: 14,3411           54333                           TS       DSPTEM1                               
020195,000994: 14,3412           44507                           CS       BIT13-14                              
020196,000995: 14,3413           00006                           EXTEND                                         
020197,000996: 14,3414           03011                           WAND     11                                    
020198,000997: 14,3415           33646                           CA       CH12BITS                              
020199,000998: 14,3416           54334                           TS       DSPTEM1    +1                         
020200,000999: 14,3417           00006                           EXTEND                                         
020201,001000: 14,3420           05012                           WOR      12                                    
020202,001001: 14,3421           03361                           TC       3ENTRY                                
020203,001002: 14,3422           43646        PTITRDE            CS       CH12BITS                              
020204,001003: 14,3423           00006                           EXTEND                                         
020205,001004: 14,3424           03012                           WAND     12                                    
020206,001005: 14,3425           37675                           CA       ZERO                                  
020207,001006: 14,3426           54333                           TS       DSPTEM1                               
020208,001007: 14,3427           54334                           TS       DSPTEM1    +1                         
020209,001008: 14,3430           55575                           TS       TEMP                                  
020210,001009: 14,3431           37671                           CA       BIT1                                  
020211,001010: 14,3432           55576                           TS       NOBITS                                
020212,001011: 14,3433           00004        PIT                INHINT                                         
020213,001012: 14,3434           04517                           TC       WAITLIST                              
020214,001013: 14,3435           03460 30005                     2CADR    THROTASK                              
020215,001014: 
020216,001015: 14,3437           00003                           RELINT                                         
020217,001016: 14,3440           33650                           CA       WAITER                                
020218,001017: 14,3441           05324                           TC       NVSBWAIT                              
020219,001018: 
020220,001019: 14,3442           05132                           TC       ENDIDLE                               
020221,001020: 14,3443           02745                           TC       ENDTEST                               
020222,001021: 14,3444           37675                           CA       ZERO                                  
020223,001022: 14,3445           55576                           TS       NOBITS                                
020224,001023: 14,3446           03332                           TC       BACK1                                 
020225,001024: 
020226,001025: 14,3447           37675        PTDTRDE            CA       ZERO                                  
020227,001026: 14,3450           54055                           TS       THRUST                                
020228,001027: 14,3451           33347                           CA       THROTADD                              
020229,001028: 14,3452           55574                           TS       TEMPADD                               
020230,001029: 14,3453           04400                           TC       JOBSLEEP                              #  THIS INHIBITS THE NEXT TASK UNTIL
020231,001030:                                                                                                  #  CURRENT TASK HAS BEEN COMPLETED
020232,001031: 14,3454           37651                           CA       POSMAX                                
020233,001032: 14,3455           55575                           TS       TEMP                                  
020234,001033: 14,3456           37663                           CA       BIT7                                  
020235,001034: 14,3457           03433                           TC       PIT                                   
020236,001035: 14,3460           11576        THROTASK           CCS      NOBITS                                #  IS THIS TASK STILL REQ
020237,001036: 14,3461           03466                           TC       +5                                    #  YES
020238,001037: 14,3462           31574                           CA       TEMPADD                               #  NO
020239,001038: 14,3463           55576                           TS       NOBITS                                
020240,001039: 14,3464           04404                           TC       JOBWAKE                               
020241,001040: 14,3465           04563                           TC       TASKOVER                              
020242,001041: 14,3466           11575                           CCS      TEMP                                  
020243,001042: 14,3467           03502                           TC       SOMETIME                              
020244,001043: 14,3470           35226                           CA       LOW11                                 
020245,001044: 14,3471           54055        ALWAYS             TS       THRUST                                
020246,001045: 14,3472           37666                           CA       BIT4                                  
020247,001046: 14,3473           00006                           EXTEND                                         #  A SMERZH FIX.
020248,001047: 14,3474           05014                           WOR      14                                    
020249,001048: 14,3475           37664                           CA       BIT6                                  #  320 MS.DELAY
020250,001049: 14,3476           04517                           TC       WAITLIST                              
020251,001050: 14,3477           03460 30005                     2CADR    THROTASK                              
020252,001051: 14,3501           04563                           TC       TASKOVER                              
020253,001052: 14,3502           45226        SOMETIME           CS       LOW11                                 
020254,001053: 14,3503           03471                           TC       ALWAYS                                
020255,001054: 14,3504           11576        ALTASK             CCS      NOBITS                                #  IS TASK STILL REQ
020256,001055: 14,3505           03512                           TC       +5                                    
020257,001056: 14,3506           31574                           CA       TEMPADD                               #  NO
020258,001057: 14,3507           55576                           TS       NOBITS                                #  ENABLES NEXT TASK
020259,001058: 14,3510           04404                           TC       JOBWAKE                               
020260,001059: 14,3511           04563                           TC       TASKOVER                              
020261,001060: 14,3512           33644                           CA       ALBITS                                #  ACTUAL TASK STARTS HERE
020262,001061: 14,3513           54060                           TS       ALTM                                  
020263,001062: 14,3514           37667                           CA       BIT3                                  
020264,001063: 14,3515           00006                           EXTEND                                         
020265,001064: 14,3516           05014                           WOR      14                                    
020266,001065: 14,3517           37664                           CA       BIT6                                  #  320 MS. DELAY
020267,001066: 14,3520           04517                           TC       WAITLIST                              
020268,001067: 14,3521           03504 30005                     2CADR    ALTASK                                
020269,001068: 
020270,001069: 14,3523           04563                           TC       TASKOVER                              
020271,001070: 14,3524           33350        ALTMET             CA       METERADD                              
020272,001071: 14,3525           55574                           TS       TEMPADD                               
020273,001072: 14,3526           04400                           TC       JOBSLEEP                              
020274,001073: 14,3527           37675                           CA       ZERO                                  
020275,001074: 14,3530           55575                           TS       TEMP                                  
020276,001075: 14,3531           47666                           CS       BIT4                                  
020277,001076: 14,3532           00006                           EXTEND                                         
020278,001077: 14,3533           03014                           WAND     14                                    
020279,001078: 14,3534           00004                           INHINT                                         
020280,001079: 14,3535           37671                           CA       ONE                                   
020281,001080: 14,3536           04517                           TC       WAITLIST                              
020282,001081: 14,3537           03504 30005                     2CADR    ALTASK                                
020283,001082: 14,3541           00003                           RELINT                                         
020284,001083: 14,3542           33650                           CA       WAITER                                
020285,001084: 14,3543           05324                           TC       NVSBWAIT                              
020286,001085: 14,3544           05132                           TC       ENDIDLE                               
020287,001086: 14,3545           02745                           TC       ENDTEST                               
020288,001087: 14,3546           37675                           CA       ZERO                                  
020289,001088: 14,3547           55576                           TS       NOBITS                                
020290,001089: 14,3550           03332                           TC       BACK1                                 
020291,001090: 
020292,001091: 14,3551           33351        ALTRMET            CA       MRATEADD                              
020293,001092: 14,3552           55574                           TS       TEMPADD                               
020294,001093: 14,3553           04400                           TC       JOBSLEEP                              
020295,001094: 14,3554           37671                           CA       ONE                                   
020296,001095: 14,3555           55575                           TS       TEMP                                  #  TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
020297,001096:                                                                                                  #  TEAD OF BIT3
020298,001097: 14,3556           37670                           CA       BIT2                                  
020299,001098: 14,3557           00006                           EXTEND                                         
020300,001099: 14,3560           05014                           WOR      14                                    
020301,001100: 14,3561           03534                           TC       ALTMET     +8D                        
020302,001101: 
020303,001102:                                                                                                  #       THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT,  THE IDEA IS TO
020304,001103:                                                                                                  #  COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
020305,001104:                                                                                                  #  INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
020306,001105:                                                                                                  #        THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
020307,001106: 
020308,001107: 
020309,001108: 
020310,001109: 14,3562           06000        AOTANGCK           TC       INTPRET                               
020311,001110: 14,3563           77414                           SET      EXIT                                  #  IN CASE THE ISS IS OFF.
020312,001111: 14,3564           00065                                    COAROFIN                              
020313,001112: 14,3565           02135                           TC       FINDNAVB                              #  FOR LOS1 AND LOS2.
020314,001113: 14,3566           06000                           TC       INTPRET                               
020315,001114: 14,3567           47375                           VLOAD    VXV                                   
020316,001115: 14,3570           02601                                    LOS1                                  
020317,001116: 14,3571           02607                                    LOS2                                  
020318,001117: 14,3572           77646                           ABVAL                                          
020319,001118: 14,3573           24023                           STOVL    SINTH                                 #  SINTH = ABVAL (VXV ).
020320,001119: 14,3574           02601                                    LOS1                                  
020321,001120: 14,3575           77641                           DOT                                            
020322,001121: 14,3576           02607                                    LOS2                                  
020323,001122: 14,3577           34021                           STCALL   COSTH                                 #  COSTH = V.V
020324,001123: 14,3600           32440                                    ARCTRIG                               
020325,001124: 14,3601           77634                           RTB                                            
020326,001125: 14,3602           33410                                    1STO2S                                #  DP 1S COMP TO SP 2S COMP.
020327,001126: 14,3603           00025                           STORE    THETA                                 
020328,001127: 14,3604           77776                           EXIT                                           
020329,001128: 14,3605           33675                           CAF      THETAADR                              
020330,001129: 14,3606           60104                           AD       FIXLOC                                
020331,001130: 14,3607           54142                           TS       MPAC       +2                         
020332,001131: 14,3610           33653                           CAF      V06N03E                               #  XXX.XX DEGREES IN R1.
020333,001132: 14,3611           05324                           TC       NVSBWAIT                              
020334,001133: 14,3612           12745                           TCF      ENDTEST                               
020335,001134: 
020336,001135: 14,3613  E3,1400                                  EBANK=   1400                                  
020337,001136: 14,3613           00004        ZEROERAS           INHINT                                         #  PROGRAM BY MUNTZ TO ZERO ERASEABLE
020338,001137: 14,3614           37675                           CAF      ZERO                                  
020339,001138: 14,3615           54026                           TS       TIME3                                 
020340,001139: 14,3616           33642                           CAF      OCT27                                 
020341,001140: 14,3617           54003                           TS       EBANK                                 
020342,001141: 14,3620           22007        ZEROLP             ZL                                             
020343,001142: 14,3621           50000                           INDEX    A                                     
020344,001143: 14,3622           23401                           LXCH     1401                                  
020345,001144: 14,3623           67670                           AD       TWO                                   
020346,001145: 14,3624           26003                           ADS      EBANK                                 
020347,001146: 14,3625           75227                           MASK     LOW8                                  
020348,001147: 14,3626           10000                           CCS      A                                     
020349,001148: 14,3627           13620                           TCF      ZEROLP                                
020350,001149: 14,3630           10003                           CCS      EBANK                                 
020351,001150: 14,3631           13634                           TCF      ZEROLP1                               
020352,001151: 14,3632           04104                           TC       POSTJUMP                              
020353,001152: 14,3633           24000                           CADR     SLAP1                                 
020354,001153: 14,3634           00003        ZEROLP1            RELINT                                         
020355,001154: 14,3635           37675                           CAF      ZERO                                  #  KEEP T4RUPT GOING, BUT NOT CYCLING.
020356,001155: 14,3636           54350                           TS       DSRUPTSW                              
020357,001156: 14,3637           00004                           INHINT                                         
020358,001157: 14,3640           47671                           CS       ONE                                   
020359,001158: 14,3641           13620                           TCF      ZEROLP                                
020360,001159: 14,3642           00027        OCT27              OCT      27                                    
020361,001160: 
020362,001161: 14,3643  E5,1500                                  EBANK=   OGC                                   
020363,001162: 14,3643           00430        V04N30D            OCT      00430                                 
020364,001163: 14,3644           52525        ALBITS             OCT      52525                                 
020365,001164: 14,3645           70707        THRSBITS           OCT      70707                                 
020366,001165: 14,3646     5234               OCT12              =        TEN                                   
020367,001166: 14,3646     5170               OCT11              =        NINE                                  
020368,001167: 14,3646           37400        CH12BITS           OCT      37400                                 
020369,001168: 14,3647           00130        V01N30D            OCT      00130                                 
020370,001169: 14,3650           03300        WAITER             OCT      03300                                 
020371,001170: 
020372,001171: 
020373,001172: 
020374,001173: 
020375,001174: 
020376,001175: 14,3651           00130        V01N30E            OCT      00130                                 #  FOR FINDNAVB
020377,001176: 14,3652           00530        V05N30E            OCT      00530                                 #  FOR OPTDATA
020378,001177: 14,3653           00603        V06N03E            OCT      00603                                 
020379,001178: 14,3654           00666        V06N66E            OCT      00666                                 
020380,001179: 14,3655           02430        V24N30E            OCT      02430                                 #  FOR POSITION LOAD
020381,001180: 14,3656           02522        V25N22E            OCT      02522                                 #  FOR POS4
020382,001181: 
020383,001182: 14,3657           00013        11DEC              DEC      11         B-14                       
020384,001183: 14,3660           00021        17DEC              DEC      17         B-14                       
020385,001184: 14,3661           00074        60DEC              DEC      60         B-14                       
020386,001185: 14,3662           00077        63DEC              DEC      63         B-14                       
020387,001186: 14,3663           00105        69DEC              DEC      69         B-14                       #  FOR MISALIGN
020388,001187: 14,3664           00110        72DEC              DEC      72         B-14                       #  FOR STORRSLT
020389,001188: 
020390,001189: 14,3665           05670        30SEC              DEC      3000       B-14                       #  3000 X 10 MSEC
020391,001190: 14,3666           13560        60SEC              DEC      6000       B-14                       #  6000 X 10 MSEC
020392,001191: 
020393,001192: 14,3667           01500        OGCADR             ADRES    OGC                                   #  FOR ZEROING
020394,001193: 14,3670           01570        GENPLAD1           ADRES    GENPL                                 
020395,001194: 14,3671           02570        GENPLADR           ECADR    GENPL                                 #  FOR POS4
020396,001195: 14,3672           00322 14366  KKKK               2DEC     210.39     B-14                       #  1230 B-14 FOR CSM
020397,001196: 
020398,001197: 14,3674           03071        RDRRETN            ADRES    RDR1       +1                         #  FOR RDR37511
020399,001198: 14,3675           00024        THETAADR           ECADR    THETA                                 
020400,001199: 14,3676           01400        XSMADRX            ADRES    XSM                                   #  FOR MAKEXSMD
020401,001200: 
020402,001201: 14,3677           24365 30244  SCALFTR            2DEC     .64                                   #  FOR STORRSLT
020403,001202: 
020404,001203: 14,3701           07623 26552  OMEG/MS            2DEC     .24339048                             #  GYRO PULSES / 10 MSEC
020405,001204: 
020406,001205:                                                                                                  #           THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
020407,001206:                                                                                                  #  DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
020408,001207:    5462                                           SETLOC   ENDFAILF                              
020409,001208:    5462           00004        FINETIME           INHINT                                         #  RETURNS WITH INTERRUPT INHIBITED.
020410,001209:    5463           00006                           EXTEND                                         
020411,001210:    5464           00004                           READ     LOSCALAR                              
020412,001211:    5465           54001                           TS       L                                     
020413,001212: 
020414,001213:    5466           00006                           EXTEND                                         #  SEE IF 2 READINGS AGREE. IF NOT, READ
020415,001214:    5467           06004                           RXOR     LOSCALAR                              #  LOSCALAR AGAIN.
020416,001215:    5470           00006                           EXTEND                                         
020417,001216:    5471           15475                           BZF      +4                                    
020418,001217: 
020419,001218:    5472           00006                           EXTEND                                         #  IF CLOCK RIPPLED BEFORE, IT WONT NOW.
020420,001219:    5473           00004                           READ     LOSCALAR                              
020421,001220:    5474           54001                           TS       L                                     
020422,001221: 
020423,001222:    5475           47651                 +4        CS       POSMAX                                #  IF LOW PART CONTAINS SOMETHING LESS THAN
020424,001223:    5476           60001                           AD       L                                     #  POSMAX, THE HIGH PART CAN BE READ SAFELY
020425,001224:    5477           00006                           EXTEND                                         
020426,001225:    5500           15463                           BZF      FINETIME   +1                         #  TRY AGAIN - CONDITION WILL DISAPPEAR.
020427,001226: 
020428,001227:    5501           00006                           EXTEND                                         
020429,001228:    5502           00003                           READ     HISCALAR                              
020430,001229:    5503           00002                           TC       Q                                     
020431,001230: 
020432,001231:    5504                        ENDIMUF            =                                              
020433,001232: 
020434,001233: 14,3703                                           SETLOC   OMEG/MS    +2                         
020435,001234: 14,3703           04065        REDYTORK           TC       BANKCALL                              
020436,001235: 14,3704           26716                           CADR     IMUSTALL                              
020437,001236: 14,3705           12745                           TCF      ENDTEST                               
020438,001237: 
020439,001238: 14,3706           02727                           TC       OGCZERO                               
020440,001239: 
020441,001240: 14,3707           06000                           TC       INTPRET                               
020442,001241: 14,3710           77624                           CALL                                           
020443,001242: 14,3711           30405                                    ERTHRVSE                              #  SETS UP EARTHRATE ANGLES AND TIME
020444,001243: 14,3712           77776                           EXIT                                           
020445,001244: 14,3713           31617                           CA       OPTNREG                               #  INITIALIZE CDUNDX FOR PULSE CATCHING
020446,001245: 14,3714           67700                           AD       NEG2                                  #  C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
020447,001246: 14,3715           55616                           TS       GYTOBETQ                              #  C(K) = 2,0,-1 FOR  X,Y,Z.
020448,001247: 14,3716           00006                           EXTEND                                         
020449,001248: 14,3717           13722                           BZF      +3                                    
020450,001249: 14,3720           37670                           CAF      TWO                                   
020451,001250: 14,3721           03723                           TC       +2                                    
020452,001251: 14,3722           37671                           CAF      ONE                                   
020453,001252: 14,3723           55672                           TS       CDUNDX                                #  C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
020454,001253: 14,3724           04065                           TC       BANKCALL                              
020455,001254: 14,3725           36545                           CADR     ENABLE                                
020456,001255: 14,3726                        ENDIMUS1           EQUALS                                         
020457,001256: 

End of include-file IMU_PERFORMANCE_TESTS_1.agc.  Parent file is MAIN.agc