Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,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.

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

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