Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

018257,000002:                                                                                                  ## Copyright:    Public domain.
018258,000003:                                                                                                  ## Filename:     IMU_PERFORMANCE_TESTS_1.agc
018259,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
018260,000005:                                                                                                  ## Assembler:    yaYUL
018261,000006:                                                                                                  ## Contact:      Hartmuth Gutsche <hgutsche@xplornet.com>.
018262,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
018263,000008:                                                                                                  ## Pages:        444-474
018264,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
018265,000010:                                                                                                  ##               2016-09-25 HG   Start transfer from scan
018266,000011:                                                                                                  ##               2016-10-08 HG   Fix INPRET->INTPRET
018267,000012:                                                                                                  ##               2016-10-11 HG   Fix PIPZ -> PIPAZ
018268,000013:                                                                                                  ##                                   DSTEMP1 -> DSPTEM1
018269,000014:                                                                                                  ##                                   DSTEM1  -> DSPTEM1
018270,000015:                                                                                                  ##               2016-10-18 HG   Fix operand TAZEL -> TAZEL1
018271,000016:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
018272,000017:                                                                                                  ##                               and fixed the errors found.
018273,000018: 
018274,000019:                                                                                                  ## This source code has been transcribed or otherwise adapted from
018275,000020:                                                                                                  ## digitized images of a hardcopy from the private collection of
018276,000021:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
018277,000022: 
018278,000023:                                                                                                  ## Notations on the hardcopy document read, in part:
018279,000024: 
018280,000025:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
018281,000026:                                                                                                  ##       NOV 10, 1966
018282,000027: 
018283,000028:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
018284,000029:                                                                                                  ##       date of the program revision or the assembly.]
018285,000030: 
018286,000031:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
018287,000032:                                                                                                  ## reduction in image quality) are available online at
018288,000033:                                                                                                  ##       https://www.ibiblio.org/apollo.
018289,000034:                                                                                                  ## The original high-quality digital images are available at archive.org:
018290,000035:                                                                                                  ##       https://archive.org/details/aurora00dapg
018291,000036: 

Page 444

018293,000038: 14,2000                                           BANK     14                                    
018294,000039: 14,2000  E5,1400                                  EBANK=   XSM                                   
018295,000040: 
018296,000041: 
018297,000042: 
018298,000043: 14,2000           37657        AOTNBIMU           CAF      ONE                                   #  AOT-NB-IMU FINE ALIGNMENT TEST
018299,000044: 14,2001           55512                           TS       EROPTN                                #  ... TEST CAPABILITY ...
018300,000045: 
018301,000046: 14,2002           04063                           TC       BANKCALL                              
018302,000047: 14,2003           26000                           CADR     IMUZERO                               #  IMU ZERO ENCODER MODE
018303,000048: 14,2004           06000                           TC       INTPRET                               
018304,000049: 14,2005           77634                           CALL                                           
018305,000050: 14,2006           30530                                    LATAZCHK                              #  TO LOAD AZIMUTH (SM) AND LATITUDE
018306,000051: 14,2007           77634                           CALL                                           
018307,000052: 14,2010           30325                                    MAKEXSMD                              #  TO SET UP A STABLE MEMBER DESIRED MATRIX
018308,000053: 14,2011           47014                           SET      CALL                                  
018309,000054: 14,2012           00065                                    COAROFIN                              #  FOR COARSE OR FINE ALIGN MARKS
018310,000055: 14,2013           30405                                    ERTHRVSE                              #  TO CALCULATE EARTH RATE VECTOR
018311,000056: 14,2014           77776                           EXIT                                           
018312,000057: 
018313,000058: 14,2015           33655        POSLOAD            CAF      V24N30E                               #  R1  0000X ENTER     POSITION 1,2, OR 3
018314,000059: 14,2016           05332                           TC       NVSBWAIT                              #  R2  00000 ENTER     00001 FOR LAB OPTION
018315,000060: 14,2017           05140                           TC       ENDIDLE                               
018316,000061: 14,2020           12745                           TCF      ENDTEST                               
018317,000062: 14,2021           12015                           TCF      -4                                    
018318,000063: 14,2022           56333                           XCH      DSPTEM1                               #  DO NOT USE POSITION 3 WITH NAV BASE AT
018319,000064: 14,2023           55544                           TS       POSITON                               #     ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
018320,000065: 
018321,000066: 14,2024           10334                           CCS      DSPTEM1    +1                         
018322,000067: 14,2025           12760                           TCF      LEMLAB                                #  SPECIAL LAB TEST TO BYPASS MARKS
018323,000068: 
018324,000069: 14,2026           02576                           TC       POSNJUMP                              #  SET UP STABLE MEMBER DESIRED COORDINATES
018325,000070: 
018326,000071: 14,2027           02501                           TC       OPTDATA                               #  TARGETS 1,2 AZIMUTH AND ELEVATION
018327,000072: 
018328,000073: 14,2030           02135                           TC       FINDNAVB                              #  COARSE ALIGN MARKS
018329,000074: 
018330,000075: 14,2031           04063                           TC       BANKCALL                              
018331,000076: 14,2032           26716                           CADR     IMUSTALL                              #  INSURE IMUZERO COMPLETION
018332,000077: 14,2033           12745                           TCF      ENDTEST                               
018333,000078: 
018334,000079: 14,2034           02247                           TC       PUTPOSX                               #  TO COARSE ALIGN STABLE MEMBER
018335,000080: 
018336,000081: 14,2035           02737                           TC       GMLCKCHK                              #  CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
018337,000082: 14,2036           02727                           TC       OGCZERO                               #  FOR EARTH RATE COMPENSATION
018338,000083: 
018339,000084: 14,2037           04063                           TC       BANKCALL                              
018340,000085: 14,2040           26227                           CADR     IMUFINE                               #  FINE ALIGN MODE
018341,000086: 14,2041           04063                           TC       BANKCALL                              
018342,000087: 14,2042           26716                           CADR     IMUSTALL                              
018343,000088: 14,2043           12745                           TCF      ENDTEST                               
018344,000089: 

Page 445

018346,000091: 14,2044           02135                           TC       FINDNAVB                              #  FINE ALIGN MARKS
018347,000092: 
018348,000093: 14,2045           05401                           TC       FREEDSP                               #  FREE DISPLAY SYSTEM
018349,000094: 
018350,000095: 14,2046           02263                           TC       SMDCALC                               #  TO FINE ALIGN STABLE MEMBER
018351,000096: 
018352,000097: 14,2047           04063        ERFINAL            TC       BANKCALL                              #  LAST EARTH RATE SHOT
018353,000098: 14,2050           30422                           CADR     EARTHR                                
018354,000099: 14,2051           11512                           CCS      EROPTN                                #  IF DESIRED TO COMPENSATE CONTINUALLY
018355,000100: 14,2052           12065                           TCF      MONSTART                              #      CHANGE BY V21 N02 E XXXXX E 00000 E
018356,000101: 14,2053           12047                           TCF      ERFINAL                               
018357,000102: 14,2054           12745                           TCF      ENDTEST                               
018358,000103: 14,2055           55512                           TS       EROPTN                                
018359,000104: 14,2056           00004                           INHINT                                         
018360,000105: 14,2057           34517                           CAF      PRIO21                                #  PRIORITY 1 HIGHER THAN SXTNBIMU
018361,000106: 14,2060           04374                           TC       FINDVAC                               
018362,000107: 14,2061           03062 30005                     2CADR    RDR37511                              
018363,000108: 14,2063           00003                           RELINT                                         
018364,000109: 14,2064           02047                           TC       ERFINAL                               
018365,000110: 
018366,000111: 14,2065           05470        MONSTART           TC       FINETIME                              #  TIME AT INITIAL MISALIGNMENT
018367,000112: 14,2066           52141                           DXCH     MPAC                                  
018368,000113: 14,2067           00003                           RELINT                                         
018369,000114: 14,2070           37665                           CAF      ZERO                                  #  ZERO PIPA COUNTERS
018370,000115: 14,2071           54037                           TS       PIPAX                                 
018371,000116: 14,2072           54040                           TS       PIPAY                                 
018372,000117: 14,2073           54041                           TS       PIPAZ                                 
018373,000118: 14,2074           55551                           TS       STOREPL                               
018374,000119: 14,2075           55537                           TS       NDXCTR                                
018375,000120: 14,2076           02454                           TC       STORRSLT                              #  STORE T(INITIAL) AND PIPAI = 0
018376,000121: 
018377,000122: 14,2077           00004                           INHINT                                         
018378,000123: 14,2100           33666                           CAF      60SEC                                 #  INSURE PIPAI VARIES IN ONE DIRECTION
018379,000124: 14,2101           04536                           TC       WAITLIST                              
018380,000125: 14,2102           02106 30005                     2CADR    PIP1                                  
018381,000126: 
018382,000127: 14,2104           32134                           CAF      PIP2ADR                               
018383,000128: 14,2105           04416                           TC       JOBSLEEP                              
018384,000129: 
018385,000130: 14,2106           32134        PIP1               CAF      PIP2ADR                               
018386,000131: 14,2107           04422                           TC       JOBWAKE                               
018387,000132: 14,2110           04602                           TC       TASKOVER                              
018388,000133: 
018389,000134: 14,2111           31542        PIP2               CAE      PIPNDX                                
018390,000135: 14,2112           55541                           TS       PIPINDEX                              #  POS1 PIPAY     POS2 PIPAX     POS3 PIPAX
018391,000136: 14,2113           04063                           TC       BANKCALL                              
018392,000137: 14,2114           36771                           CADR     CHECKG                                #  SYNC ON PIPA PULSE
018393,000138: 
018394,000139: 14,2115           00003                           RELINT                                         
018395,000140: 

Page 446

018397,000142: 14,2116           02454                           TC       STORRSLT                              #  STORE TIME AND PIPAI
018398,000143: 
018399,000144: 14,2117           31543                           CAE      PIPNDX     +1                         
018400,000145: 14,2120           55541                           TS       PIPINDEX                              #  POS1 PIPAZ    POS2 PIPAY    POS3 PIPAZ
018401,000146: 14,2121           04063                           TC       BANKCALL                              
018402,000147: 14,2122           36771                           CADR     CHECKG                                #  SYNC ON PIPA PULSE
018403,000148: 
018404,000149: 14,2123           00003                           RELINT                                         
018405,000150: 14,2124           02454                           TC       STORRSLT                              #  STORE TIME AND PIPAI
018406,000151: 
018407,000152: 14,2125           00004                           INHINT                                         
018408,000153: 14,2126           33665                           CAF      30SEC                                 #  MONITOR PIPAS AT 30 SECOND INTERVALS
018409,000154: 14,2127           04536                           TC       WAITLIST                              
018410,000155: 14,2130           02106 30005                     2CADR    PIP1                                  
018411,000156: 14,2132           32134                           CAF      PIP2ADR                               
018412,000157: 14,2133           04416                           TC       JOBSLEEP                              
018413,000158: 14,2134           30111        PIP2ADR            CADR     PIP2                                  
018414,000159: 

Page 447

018416,000161: 14,2135           00006        FINDNAVB           EXTEND                                         #  MARKS * CALC NB OR SM WRT EARTH REF
018417,000162: 14,2136           23546                           QXCH     QPLACE                                
018418,000163: 
018419,000164: 14,2137           04063                           TC       BANKCALL                              
018420,000165: 14,2140           27014                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
018421,000166: 14,2141           37657                           CAF      ONE                                   
018422,000167: 14,2142           54333                           TS       DSPTEM1                               
018423,000168: 14,2143           33651                           CAF      V01N30E                               #  DISPLAY 00001 IN R1
018424,000169: 14,2144           05332                           TC       NVSBWAIT                              
018425,000170: 14,2145           37665                           CAF      ZERO                                  #  TO INDICATE GROUND MARKS
018426,000171: 14,2146           04063                           TC       BANKCALL                              
018427,000172: 14,2147           26753                           CADR     AOTMARK                               #  MARK ON TARGET 1
018428,000173: 
018429,000174: 14,2150           04063                           TC       BANKCALL                              
018430,000175: 14,2151           26714                           CADR     OPTSTALL                              #  INSURE SUCCESSFUL MARK
018431,000176: 14,2152           12745                           TCF      ENDTEST                               
018432,000177: 14,2153           00006                           EXTEND                                         
018433,000178: 14,2154           50374                           INDEX    MARKSTAT                              
018434,000179: 14,2155           30001                           DCA      0                                     
018435,000180: 14,2156           53565                           DXCH     TMARK                                 #  TIME(PRES) FOR EARTH RATE COMPENSATION
018436,000181: 
018437,000182: 14,2157           02242                           TC       GIMANGS1                              
018438,000183: 
018439,000184: 14,2160           06000                           TC       INTPRET                               
018440,000185: 14,2161           47140                           LXC,1    CALL                                  
018441,000186: 14,2162           00374                                    MARKSTAT                              #  BASE ADDRESS VAC AREA FOR AOTNB
018442,000187: 14,2163           33051                                    AOTNB                                 #  OPTICS TO NAV BASE COORDINATE FRAME
018443,000188: 14,2164           47014                           BON      CALL                                  
018444,000189: 14,2165           00305                                    COAROFIN                              #  COARSE MARKS = 0    FINE MARKS = 1
018445,000190: 14,2166           30170                                    +2                                    
018446,000191: 14,2167           32517                                    NBSM                                  #  NAV BASE DIRECT TO STABLE MEMBER
018447,000192: 14,2170           01445                           STORE    STARAD                                #  TARGET 1 WRT NAV BASE OR STABLE MEMBER
018448,000193: 14,2171           01601                           STORE    LOS1                                  #  ...FOR K...
018449,000194: 14,2172           77776                           EXIT                                           
018450,000195: 
018451,000196: 14,2173           04063                           TC       BANKCALL                              
018452,000197: 14,2174           27014                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
018453,000198: 14,2175           37656                           CAF      TWO                                   
018454,000199: 14,2176           54333                           TS       DSPTEM1                               
018455,000200: 14,2177           33651                           CAF      V01N30E                               #  DISPLAY 00002 IN R1
018456,000201: 14,2200           05332                           TC       NVSBWAIT                              
018457,000202: 14,2201           37665                           CAF      ZERO                                  #  TO INDICATE GROUND MARKS
018458,000203: 14,2202           04063                           TC       BANKCALL                              
018459,000204: 14,2203           26753                           CADR     AOTMARK                               #  MARK ON TARGET 2
018460,000205: 
018461,000206: 14,2204           37646                           CAF      BIT10                                 
018462,000207: 14,2205           70061                           MASK     STATE                                 #  BIT10 = COAROFIN
018463,000208: 14,2206           10000                           CCS      A                                     
018464,000209: 14,2207           12215                           TCF      EARRTCOM   +5                         #  IF COARSE ALIGN MARKS
018465,000210: 

Page 448

018467,000212: 14,2210           04063        EARRTCOM           TC       BANKCALL                              #  EARTH RATE COMPENSATION BETWEEN MARKS
018468,000213: 14,2211           30422                           CADR     EARTHR                                
018469,000214: 14,2212           10372                           CCS      OPTCADR                               #  +0 IF MARK BUTTON NOT DEPRESSED
018470,000215: 14,2213           12216                           TCF      +3                                    
018471,000216: 14,2214           12210                           TCF      EARRTCOM                              #  CONTINUE TO COMPENSATE FOR EARTH RATE
018472,000217: 14,2215           12216                           TCF      +1                                    
018473,000218: 14,2216           04063                           TC       BANKCALL                              
018474,000219: 14,2217           26714                           CADR     OPTSTALL                              #  INSURE SUCCESSFUL MARK
018475,000220: 14,2220           12745                           TCF      ENDTEST                               
018476,000221: 
018477,000222: 14,2221           02242                           TC       GIMANGS1                              
018478,000223: 
018479,000224: 14,2222           06000                           TC       INTPRET                               
018480,000225: 14,2223           47140                           LXC,1    CALL                                  
018481,000226: 14,2224           00374                                    MARKSTAT                              #  BASE ADDRESS VAC AREA FOR AOTNB
018482,000227: 14,2225           33051                                    AOTNB                                 #  OPTICS TO NAV BASE COORDINATE FRAME
018483,000228: 14,2226           47014                           BONCLR   CALL                                  #  SET TO ZERO FOR FINE ALIGN MARKS
018484,000229: 14,2227           00205                                    COAROFIN                              #  COARSE MARKS = 0    FINE MARKS = 1
018485,000230: 14,2230           30232                                    +2                                    
018486,000231: 14,2231           32517                                    NBSM                                  #  NAV BASE DIRECT TO STABLE MEMBER
018487,000232: 14,2232           01453                           STORE    STARAD     +6                         #  TARGET 2 WRT NAV BASE OR STABLE MEMBER
018488,000233: 14,2233           01607                           STORE    LOS2                                  #  ...FOR K...
018489,000234: 
018490,000235: 14,2234           77634        MAXDET             CALL                                           
018491,000236: 14,2235           30350                                    TAR/EREF                              #  TARGETS 1,2 WRT EARTH REF FRAME
018492,000237: 14,2236           77634                           CALL                                           
018493,000238: 14,2237           32677                                    AXISGEN                               #  NAV BASE OR SM WRT EARTH REF FRAME
018494,000239: 14,2240           77776                           EXIT                                           
018495,000240: 14,2241           01546                           TC       QPLACE                                
018496,000241: 
018497,000242: 
018498,000243: 
018499,000244: 14,2242           37656        GIMANGS1           CAF      TWO                                   #  BASE ADDRESS GIMBAL ANGLES FOR NBSM
018500,000245: 14,2243           60374                           AD       MARKSTAT                              
018501,000246: 14,2244           50104                           INDEX    FIXLOC                                
018502,000247: 14,2245           54050                           TS       S1                                    
018503,000248: 14,2246           00002                           TC       Q                                     
018504,000249: 

Page 449

018506,000251: 14,2247           00006        PUTPOSX            EXTEND                                         #  COARSE ALIGNS STABLE MEMBER
018507,000252: 14,2250           23546                           QXCH     QPLACE                                
018508,000253: 
018509,000254: 14,2251           06000                           TC       INTPRET                               
018510,000255: 14,2252           77634                           CALL                                           
018511,000256: 14,2253           32615                                    CALCGA                                #  CALCULATE COARSE ALIGN GIMBAL ANGLES
018512,000257: 14,2254           77776                           EXIT                                           
018513,000258: 
018514,000259: 14,2255           04063                           TC       BANKCALL                              
018515,000260: 14,2256           26055                           CADR     IMUCOARS                              #  COARSE ALIGN MODE
018516,000261: 14,2257           04063                           TC       BANKCALL                              
018517,000262: 14,2260           26716                           CADR     IMUSTALL                              
018518,000263: 14,2261           12745                           TCF      ENDTEST                               
018519,000264: 14,2262           01546                           TC       QPLACE                                
018520,000265: 
018521,000266: 
018522,000267: 
018523,000268: 
018524,000269: 14,2263           00006        SMDCALC            EXTEND                                         #  FINE ALIGNS STABLE MEMBER
018525,000270: 14,2264           23546                           QXCH     QPLACE                                
018526,000271: 
018527,000272: 14,2265           06000                           TC       INTPRET                               
018528,000273: 14,2266           64375                           VLOAD    MXV                                   
018529,000274: 14,2267           01401                                    XSM                                   #  XSM DESIRED WRT EARTH REF FRAME
018530,000275: 14,2270           01445                                    STARAD                                #  THEN TO SM PRESENT OR NAV BASE FRAME
018531,000276: 14,2271           43172                           VSL1     BOFF                                  
018532,000277: 14,2272           00345                                    COAROFIN                              #  BIT10 FOR LEMLAB TEST
018533,000278: 14,2273           30276                                    +3                                    
018534,000279: 14,2274           36041                           STCALL   32D                                   
018535,000280: 14,2275           32517                                    NBSM                                  #  THEN TO SM PRESENT FRAME
018536,000281: 14,2276           23423                           STOVL    XDC                                   
018537,000282: 14,2277           01407                                    YSM                                   #  YSM DESIRED WRT EARTH REF FRAME
018538,000283: 
018539,000284: 14,2300           76521                           MXV      VSL1                                  
018540,000285: 14,2301           01445                                    STARAD                                #  THEN TO SM PRESENT OR NAV BASE FRAME
018541,000286: 14,2302           77614                           BOFF                                           
018542,000287: 14,2303           00345                                    COAROFIN                              #  BIT10 FOR LEMLAB TEST
018543,000288: 14,2304           30307                                    +3                                    
018544,000289: 14,2305           36041                           STCALL   32D                                   
018545,000290: 14,2306           32517                                    NBSM                                  #  THEN TO SM PRESENT FRAME
018546,000291: 14,2307           23431                           STOVL    YDC                                   
018547,000292: 14,2310           01423                                    XDC                                   
018548,000293: 
018549,000294: 14,2311           76435                           VXV      VSL1                                  
018550,000295: 14,2312           01431                                    YDC                                   
018551,000296: 14,2313           37437                           STCALL   ZDC                                   #  ZSM DESIRED WRT SM PRESENT FRAME
018552,000297: 14,2314           32367                                    CALCGTA                               #  CALCULATE FINE ALIGN TORQUING ANGLES
018553,000298: 
018554,000299: 14,2315           45170                           AXT,1    RTB                                   
018555,000300: 

Page 450

018557,000302: 14,2316           02500                           ECADR    OGC                                   #  X1 = BASE ADDRESS OF TORQUING ANGLES
018558,000303: 14,2317           33515                                    PULSEIMU                              #  TO PUT OUT GYRO TORQUING PULSES
018559,000304: 14,2320           77776                           EXIT                                           
018560,000305: 
018561,000306: 14,2321           04063                           TC       BANKCALL                              
018562,000307: 14,2322           26716                           CADR     IMUSTALL                              #  WAIT FOR PULSES TO GET OUT
018563,000308: 14,2323           12745                           TCF      ENDTEST                               
018564,000309: 14,2324           01546                           TC       QPLACE                                
018565,000310: 

Page 451

018567,000312: 14,2325           77776        MAKEXSMD           EXIT                                           #  XSM V   YSM SW   ZSM SE
018568,000313: 14,2326           33660                           CAF      17DEC                                 #  ZERO XSM, YSM, AND ZSM
018569,000314: 14,2327           55776                           TS       ZERONDX                               
018570,000315: 14,2330           33676                           CAF      XSMADRX                               
018571,000316: 14,2331           04063                           TC       BANKCALL                              
018572,000317: 14,2332           37236                           CADR     ZEROING                               #          VERT       SOUTH      EAST
018573,000318: 
018574,000319: 14,2333           37642                           CAF      HALF                                  #  XSM    * +1          0          0     *
018575,000320: 14,2334           55400                           TS       XSM                                   #         *                              *
018576,000321: 14,2335           06000                           TC       INTPRET                               #         *                              *
018577,000322: 14,2336           73545                           DLOAD    SIN                                   #  YSM    *  0      +SIN(AZ)    +COS(AZ) *
018578,000323: 14,2337           01507                                    AZIMUTH                               #         *                              *
018579,000324: 14,2340           01411                           STORE    XSM        +8D                        #         *                              *
018580,000325: 14,2341           07421                           STODL    XSM        +16D                       #  ZSM    *  0      -COS(AZ)    +SIN(AZ) *
018581,000326: 14,2342           01507                                    AZIMUTH                               
018582,000327: 14,2343           77746                           COS                                            
018583,000328: 14,2344           01413                           STORE    XSM        +10D                       
018584,000329: 14,2345           77676                           DCOMP                                          
018585,000330: 14,2346           01417                           STORE    XSM        +14D                       
018586,000331: 14,2347           77616                           RVQ                                            
018587,000332: 
018588,000333: 
018589,000334: 
018590,000335: 14,2350           77170        TAR/EREF           AXT,1    AXT,2                                 #                TARGET VECTOR
018591,000336: 14,2351           00002                                    2                                     #  SIN(EL)  -COS(AZ)COS(EL)  SIN(AZ)COS(EL)
018592,000337: 14,2352           00014                                    12D                                   
018593,000338: 14,2353           77731                           SSP                                            
018594,000339: 14,2354           00052                                    S2                                    
018595,000340: 14,2355           00006                                    6                                     #  TARGET 1                        TARGET 2
018596,000341: 
018597,000342: 14,2356           60533        TAR1               SLOAD*   SR2                                   #  X1=2  X2=12  S2=6 . X1=0  X2=6  S2=6
018598,000343: 14,2357           01557                                    TAZEL1     +3,1                       
018599,000344: 14,2360           00001                           STORE    0                                     #  PD00           ELEVATION            PD00
018600,000345: 14,2361           77756                           SIN                                            
018601,000346: 14,2362           12023                           STODL    18D,2                                 #  PD06  ***       SIN(EL)        ***  PD12
018602,000347: 
018603,000348: 14,2363           00001                                    0                                     
018604,000349: 14,2364           41546                           COS      PUSH                                  #  PDOO            COS(EL)             PD00
018605,000350: 14,2365           45133                           SLOAD*   RTB                                   
018606,000351: 14,2366           01556                                    TAZEL1     +2,1                       
018607,000352: 14,2367           33345                                    CDULOGIC                              
018608,000353: 14,2370           00003                           STORE    2                                     #  PD02            AZIMUTH             PD02
018609,000354: 14,2371           41356                           SIN      DMP                                   
018610,000355: 14,2372           00001                                    0                                     
018611,000356: 14,2373           77752                           SL1                                            
018612,000357: 14,2374           12027                           STODL    22D,2                                 #  PD10  ***   +SIN(AZ)COS(EL)    ***  PD16
018613,000358: 
018614,000359: 14,2375           00003                                    2                                     
018615,000360: 14,2376           41346                           COS      DMP                                   

Page 452

018617,000362: 14,2377           57552                           SL1      DCOMP                                 
018618,000363: 14,2400           04025                           STORE    20D,2                                 #  PD08  ***   -COS(AZ)COS(EL)    ***  PD14
018619,000364: 
018620,000365: 14,2401           61170                           AXT,1    TIX,2                                 
018621,000366: 14,2402           00000                                    0                                     
018622,000367: 14,2403           30356                                    TAR1                                  
018623,000368: 14,2404           77616                           RVQ                                            
018624,000369: 

Page 453

018626,000371: 14,2405           65345        ERTHRVSE           DLOAD    PDDL                                  
018627,000372: 14,2406           33042                                    ZERODP                                #  PD24 = (SIN -COS  0)(OMEG/MS)
018628,000373: 14,2407           01511                                    LATITUDE                              
018629,000374: 14,2410           57546                           COS      DCOMP                                 
018630,000375: 14,2411           73525                           PDDL     SIN                                   
018631,000376: 14,2412           01511                                    LATITUDE                              #  EARTH RATE = .1504 ARCSEC / 10 MSEC
018632,000377: 14,2413           74266                           VDEF     VXSC                                  #  1.618 GYRO PULSES = 1 ARCSEC
018633,000378: 14,2414           31702                                    OMEG/MS                               #  OMEG/MS = .243... GYRO PULSES / 10 MSEC
018634,000379: 14,2415           01514                           STORE    ERVECTOR                              
018635,000380: 
018636,000381: 14,2416           77624                           RTB                                            
018637,000382: 14,2417           33342                                    LOADTIME                              
018638,000383: 14,2420           01565                           STORE    TMARK                                 #  TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
018639,000384: 14,2421           77616                           RVQ                                            
018640,000385: 
018641,000386: 
018642,000387: 
018643,000388: 
018644,000389: 
018645,000390: 14,2422           04112        EARTHR             TC       MAKECADR                              #  CLACULATES AND COMPENSATES EARTH RATE
018646,000391: 14,2423           55547                           TS       QPLACES                               
018647,000392: 
018648,000393: 14,2424           06000                           TC       INTPRET                               
018649,000394: 14,2425           77624                           RTB                                            
018650,000395: 14,2426           33342                                    LOADTIME                              #  T(PRESENT)
018651,000396: 14,2427           01562                           STORE    TEMPTIME                              
018652,000397: 14,2430           54225                           DSU      SL                                    
018653,000398: 14,2431           01565                                    TMARK                                 #  T(PRES) - T(PREV) = DT    SCALED 10 MSEC
018654,000399: 14,2432           00212                                    9D                                    #  2 TO 21ST POWER = 1 REVOLUTION
018655,000400: 14,2433           64361                           VXSC     MXV                                   
018656,000401: 14,2434           01514                                    ERVECTOR                              #  VT = (SIN  -COS  0)(OMEG/MS)(DT)
018657,000402: 14,2435           01401                                    XSM                                   #  (XSM)(VT) = EARTH RATE COMPENSATION
018658,000403: 14,2436           77655                           VAD                                            
018659,000404: 14,2437           01772                                    ERCOMP                                
018660,000405: 14,2440           07772                           STODL    ERCOMP                                
018661,000406: 14,2441           01562                                    TEMPTIME                              
018662,000407: 14,2442           01565                           STORE    TMARK                                 #  T(PREVIOUS)
018663,000408: 
018664,000409: 14,2443           45170                           AXT,1    RTB                                   
018665,000410: 14,2444           02771                           ECADR    ERCOMP                                
018666,000411: 14,2445           33515                                    PULSEIMU                              #  TO PUT OUT GYRO TORQUING PULSES
018667,000412: 14,2446           77776                           EXIT                                           
018668,000413: 
018669,000414: 14,2447           04063                           TC       BANKCALL                              
018670,000415: 14,2450           26716                           CADR     IMUSTALL                              #  WAIT FOR PULSES TO GET OUT
018671,000416: 14,2451           12745                           TCF      ENDTEST                               
018672,000417: 14,2452           31547                           CAE      QPLACES                               
018673,000418: 14,2453           14105                           TCF      BANKJUMP                              
018674,000419: 

Page 454

018676,000421: 14,2454           00006        STORRSLT           EXTEND                                         
018677,000422: 14,2455           23546                           QXCH     QPLACE                                
018678,000423: 
018679,000424: 14,2456           06000                           TC       INTPRET                               #  DP TIME IN MPAC SCALED .312(5) MSEC
018680,000425: 14,2457           54340                           LXC,1    SL                                    
018681,000426: 14,2460           01537                                    NDXCTR                                
018682,000427: 14,2461           00204                                    3                                     
018683,000428: 14,2462           45005                           DMP      RTB                                   
018684,000429: 14,2463           31700                                    SCALFTR                               
018685,000430: 14,2464           33406                                    SGNAGREE                              
018686,000431: 14,2465           03571                           STORE    GENPL,1                               #  STORE DP TIME
018687,000432: 14,2466           77776                           EXIT                                           
018688,000433: 
018689,000434: 14,2467           57551                           XCH      STOREPL                               #  CONTAINS C(PIPAI)
018690,000435: 14,2470           51537                           INDEX    NDXCTR                                
018691,000436: 14,2471           55572                           TS       GENPL      +2                         #  STORE PIPA COUNTER READING
018692,000437: 14,2472           41537                           CS       NDXCTR                                
018693,000438: 14,2473           63664                           AD       72DEC                                 
018694,000439: 14,2474           00006                           EXTEND                                         
018695,000440: 14,2475           63123                           BZMF     MISALIGN                              #  TO CALCULATE MISALIGNMENT
018696,000441: 14,2476           36165                           CAF      THREE                                 
018697,000442: 14,2477           27537                           ADS      NDXCTR                                
018698,000443: 14,2500           01546                           TC       QPLACE                                
018699,000444: 
018700,000445: 14,2501           00006        OPTDATA            EXTEND                                         #  CALLS FOR AZIMUTH AND ELEVATION OF
018701,000446: 14,2502           23546                           QXCH     QPLACE                                #     TARGET 1, THEN TARGET 2
018702,000447: 
018703,000448: 14,2503           37657                           CAF      BIT1                                  #  AZIMUTH CLOCKWISE FROM NORTH TO TARGET
018704,000449: 14,2504           22007                           ZL                                             #  ELEVATION MEASURED FROM HORIZONTAL
018705,000450: 14,2505           23550                           LXCH     RUN                                   
018706,000451: 14,2506           54335                           TS       DSPTEM1    +2                         
018707,000452: 14,2507           33652                           CAF      V05N30E                               #  DISPLAY TARGET NUMBER IN R3
018708,000453: 14,2510           05332                           TC       NVSBWAIT                              
018709,000454: 14,2511           51550                           INDEX    RUN                                   
018710,000455: 14,2512           53554                           DXCH     TAZEL1                                
018711,000456: 14,2513           52334                           DXCH     DSPTEM1                               
018712,000457: 
018713,000458: 14,2514           02554                           TC       CHECKLD                               #  R1  +- XXX.XX    AZIMUTH IN DEGREES
018714,000459: 14,2515           00661                           OCT      00661                                 #  R2  +- XX.XXX    ELEVATION IN DEGREES
018715,000460: 14,2516           12745                           TCF      ENDTEST                               #  R3      0000X    TARGET NUMBER 1 OR 2
018716,000461: 
018717,000462: 14,2517           52334                           DXCH     DSPTEM1                               #  TAZEL1        TARGET 1 AZIMUTH
018718,000463: 14,2520           51550                           INDEX    RUN                                   
018719,000464: 14,2521           53554                           DXCH     TAZEL1                                #  TAZEL1 +2     TARGET 2 AZIMUTH
018720,000465: 14,2522           11550                           CCS      RUN                                   
018721,000466: 14,2523           12527                           TCF      +4                                    
018722,000467: 14,2524           37656        OPTRDRIN           CAF      TWO                                   #  SPECIAL ENTRY FOR RDR37511
018723,000468: 14,2525           54001                           TS       L                                     
018724,000469: 14,2526           12505                           TCF      OPTDATA    +4                         #  MPAC    1ST PASS = 0    2ND PASS = 2
018725,000470: 14,2527           01546                           TC       QPLACE                                
018726,000471: 

Page 455

018728,000473: 14,2530           62545        LATAZCHK           DLOAD    SL2                                   #  CALLS FOR AZIMUTH (SM) AND LATITUDE
018729,000474: 14,2531           01511                                    LATITUDE                              
018730,000475: 14,2532           06335                           STODL    DSPTEM1    +1                         
018731,000476: 14,2533           01507                                    AZIMUTH                               #  ...NOT REALLY...
018732,000477: 
018733,000478: 14,2534           77424                           RTB      EXIT                                  
018734,000479: 14,2535           33410                                    1STO2S                                #  FRACTION OF REVOLUTION TO 2S COMPLEMENT
018735,000480: 
018736,000481: 14,2536           56140                           XCH      MPAC                                  #  AZIMUTH MUST BE 135 DEGREES R1 = .13500
018737,000482: 14,2537           54333                           TS       DSPTEM1                               #     FOR SXT-NB-IMU FINE ALIGNMENT TEST
018738,000483: 14,2540           02554                           TC       CHECKLD                               #  R1  +- XXX.XX    AZIMUTH IN DEGREES (SM)
018739,000484: 14,2541           00661                           OCT      00661                                 #  R2  +- XX.XXX    LATITUDE IN DEGREES
018740,000485: 14,2542           12745                           TCF      ENDTEST                               #  R3               NOT USED
018741,000486: 
018742,000487: 14,2543           06000                           TC       INTPRET                               
018743,000488: 14,2544           45135                           SLOAD    RTB                                   
018744,000489: 14,2545           00334                                    DSPTEM1                               
018745,000490: 14,2546           33345                                    CDULOGIC                              #  BACK TO FRACTION OF REVOLUTION
018746,000491: 14,2547           01507                           STORE    AZIMUTH                               
018747,000492: 
018748,000493: 14,2550           60535                           SLOAD    SR2                                   
018749,000494: 14,2551           00335                                    DSPTEM1    +1                         
018750,000495: 14,2552           01511                           STORE    LATITUDE                              
018751,000496: 14,2553           77616                           RVQ                                            
018752,000497: 
018753,000498: 
018754,000499: 14,2554           00006        CHECKLD            EXTEND                                         
018755,000500: 14,2555           23545                           QXCH     QPLAC                                 
018756,000501: 
018757,000502: 14,2556           51545                           INDEX    QPLAC                                 
018758,000503: 14,2557           30000                           CA       A                                     
018759,000504: 14,2560           05107                           TC       NVSUB                                 
018760,000505: 14,2561           12573                           TCF      CHECKLD1                              
018761,000506: 
018762,000507: 14,2562           05274                           TC       FLASHON                               
018763,000508: 
018764,000509: 14,2563           05140                           TC       ENDIDLE                               #  CHANGE R1  V21 N61 E  +- XXX.XX E
018765,000510: 14,2564           12567                           TCF      +3                                    #  CHANGE R2  V22 N61 E  +- XX.XXX E
018766,000511: 14,2565           12571                           TCF      +4                                    #  VERIFY, THEN PROCEED WITH VERB 33 ENTER
018767,000512: 14,2566           12556                           TCF      CHECKLD    +2                         
018768,000513: 14,2567           51545                           INDEX    QPLAC                                 
018769,000514: 14,2570           00001                           TC       1                                     
018770,000515: 14,2571           51545                           INDEX    QPLAC                                 
018771,000516: 14,2572           00002                           TC       2                                     
018772,000517: 
018773,000518: 14,2573           32575        CHECKLD1           CAF      CHECKLD2                              
018774,000519: 14,2574           05327                           TC       NVSUBUSY                              
018775,000520: 14,2575           30556        CHECKLD2           CADR     CHECKLD    +2                         
018776,000521: 

Page 456

018778,000523: 14,2576           00006        POSNJUMP           EXTEND                                         #  POSITIONS FOR SXTNBIMU
018779,000524: 14,2577           23546                           QXCH     QPLACE                                
018780,000525: 
018781,000526: 14,2600           51544                           INDEX    POSITON                               
018782,000527: 14,2601           12602                           TCF      +1                                    
018783,000528: 14,2602           12745                           TCF      ENDTEST                               
018784,000529: 14,2603           12610                           TCF      POS1                                  
018785,000530: 14,2604           12615                           TCF      POS2                                  
018786,000531: 14,2605           12633                           TCF      POS3                                  
018787,000532: 14,2606           12654                           TCF      POS4                                  
018788,000533: 14,2607           12706                           TCF      POS5                                  
018789,000534: 
018790,000535: 
018791,000536: 
018792,000537: 14,2610           37657        POS1               CAF      ONE                                   #  XSM = V    YSM = SW    ZSM = SE
018793,000538: 14,2611           55542                           TS       PIPNDX                                
018794,000539: 14,2612           37656                           CAF      TWO                                   
018795,000540: 14,2613           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAY AND PIPAZ
018796,000541: 14,2614           01546                           TC       QPLACE                                
018797,000542: 
018798,000543: 
018799,000544: 
018800,000545: 14,2615           06000        POS2               TC       INTPRET                               #  XSM = SE   YSM = SW    ZSM = -V
018801,000546: 14,2616           57575                           VLOAD    VCOMP                                 
018802,000547: 14,2617           01401                                    XSM                                   
018803,000548: 14,2620           77715                           PDVL                                           
018804,000549: 14,2621           01415                                    ZSM                                   
018805,000550: 14,2622           23401                           STOVL    XSM                                   
018806,000551: 14,2623           77626                           STADR                                          
018807,000552: 14,2624           76362                           STORE    ZSM                                   
018808,000553: 14,2625           77776                           EXIT                                           
018809,000554: 14,2626           37665                           CAF      ZERO                                  
018810,000555: 14,2627           55542                           TS       PIPNDX                                
018811,000556: 14,2630           37657                           CAF      ONE                                   
018812,000557: 14,2631           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAX AND PIPAY
018813,000558: 14,2632           01546                           TC       QPLACE                                
018814,000559: 
018815,000560: 
018816,000561: 
018817,000562: 14,2633           06000        POS3               TC       INTPRET                               #  XSM = SE    YSM = V    ZSM = SW
018818,000563: 14,2634           63375                           VLOAD    PDVL                                  
018819,000564: 14,2635           01401                                    XSM                                   
018820,000565: 14,2636           01407                                    YSM                                   
018821,000566: 14,2637           77715                           PDVL                                           
018822,000567: 14,2640           01415                                    ZSM                                   
018823,000568: 14,2641           23401                           STOVL    XSM                                   
018824,000569: 
018825,000570: 14,2642           77626                           STADR                                          
018826,000571: 14,2643           54362                           STOVL    ZSM                                   
018827,000572: 

Page 457

018829,000574: 14,2644           77626                           STADR                                          
018830,000575: 14,2645           76370                           STORE    YSM                                   
018831,000576: 14,2646           77776                           EXIT                                           
018832,000577: 14,2647           37665                           CAF      ZERO                                  
018833,000578: 14,2650           55542                           TS       PIPNDX                                
018834,000579: 14,2651           37656                           CAF      TWO                                   
018835,000580: 14,2652           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAX AND PIPAZ
018836,000581: 14,2653           01546                           TC       QPLACE                                
018837,000582: 
018838,000583: 
018839,000584: 
018840,000585: 14,2654           37653        POS4               CAF      BIT5                                  #  OPTION TO ALIGN SM TO SPECIFIED ANGLES
018841,000586: 14,2655           60104                           AD       FIXLOC                                
018842,000587: 14,2656           50104                           INDEX    FIXLOC                                
018843,000588: 14,2657           54050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
018844,000589: 14,2660           33656                           CAF      V25N22E                               #  R1  +- XXX.XX   OUTER GIMBAL ANGLE
018845,000590: 14,2661           05332                           TC       NVSBWAIT                              #  R2  +- XXX.XX   INNER GIMBAL ANGLE
018846,000591: 14,2662           05140                           TC       ENDIDLE                               #  R3  +- XXX.XX   MIDDLE GIMBAL ANGLE
018847,000592: 14,2663           12745                           TCF      ENDTEST                               
018848,000593: 14,2664           12660                           TCF      -4                                    
018849,000594: 14,2665           30400                           CA       THETAD                                #  SET UP ANGLES FOR SMNB
018850,000595: 14,2666           50104                           INDEX    FIXLOC                                
018851,000596: 14,2667           54024                           TS       24                                    
018852,000597: 14,2670           30401                           CA       THETAD     +1                         
018853,000598: 14,2671           50104                           INDEX    FIXLOC                                
018854,000599: 14,2672           54020                           TS       20                                    
018855,000600: 14,2673           30402                           CA       THETAD     +2                         
018856,000601: 14,2674           50104                           INDEX    FIXLOC                                
018857,000602: 14,2675           54022                           TS       22                                    
018858,000603: 
018859,000604: 14,2676           06000                           TC       INTPRET                               
018860,000605: 14,2677           47024                           RTB      CALL                                  
018861,000606: 14,2700           32766                                    TRANSPSE                              #  EARTH REF WRT NAV BASE
018862,000607: 14,2701           33000                                    SMD/EREF                              #  STABLE MEMBER DESIRED WRT EARTH REF
018863,000608: 14,2702           77624                           RTB                                            
018864,000609: 14,2703           32766                                    TRANSPSE                              #  BACK TO NAV BASE WRT TO EARTH REF
018865,000610: 14,2704           77776                           EXIT                                           
018866,000611: 14,2705           01546                           TC       QPLACE                                
018867,000612: 

Page 458

018869,000614: 14,2706           31546        POS5               CA       QPLACE                                #  OPTION TO ALIGN SM TO ANY ORIENTATION
018870,000615: 14,2707           55551                           TS       STOREPL                               #    WRT EARTH REFERENCE FRAME
018871,000616: 
018872,000617: 14,2710           02501                           TC       OPTDATA                               #  LOAD YSM AND ZSM AZIMUTH AND ELEVATION
018873,000618: 
018874,000619: 14,2711           06000                           TC       INTPRET                               
018875,000620: 14,2712           77634                           CALL                                           
018876,000621: 14,2713           30350                                    TAR/EREF                              #  CALC YSM AND ZSM WRT EARTH REF. FRAME
018877,000622: 14,2714           41575                           VLOAD    PUSH                                  
018878,000623: 14,2715           00007                                    6D                                    
018879,000624: 14,2716           01407                           STORE    YSM                                   
018880,000625: 14,2717           76435                           VXV      VSL1                                  
018881,000626: 14,2720           00015                                    12D                                   
018882,000627: 14,2721           01401                           STORE    XSM                                   #  XSM = (YSM) X (ZSM)
018883,000628: 14,2722           76435                           VXV      VSL1                                  
018884,000629: 14,2723           77626                           STADR                                          
018885,000630: 14,2724           76362                           STORE    ZSM                                   #  ZSM = (XSM) X (YSM)
018886,000631: 14,2725           77776                           EXIT                                           
018887,000632: 
018888,000633: 14,2726           01551                           TC       STOREPL                               

Page 459

018890,000635: 14,2727           00006        OGCZERO            EXTEND                                         #  ZERO EARTH RATE TORQUING ANGLES
018891,000636: 14,2730           23546                           QXCH     QPLACE                                
018892,000637: 
018893,000638: 14,2731           06000                           TC       INTPRET                               
018894,000639: 14,2732           77775                           VLOAD                                          
018895,000640: 14,2733           33042                                    ZERODP                                #  VECTOR IN THIS CASE
018896,000641: 14,2734           01772                           STORE    ERCOMP                                
018897,000642: 14,2735           77776                           EXIT                                           
018898,000643: 14,2736           01546                           TC       QPLACE                                
018899,000644: 
018900,000645: 
018901,000646: 
018902,000647: 
018903,000648: 
018904,000649: 14,2737           37652        GMLCKCHK           CAF      BIT6                                  #  CHECK FOR GIMBAL LOCK  (MGA GREATER 70)
018905,000650: 14,2740           70322                           MASK     DSPTAB     +11D                       
018906,000651: 14,2741           00006                           EXTEND                                         
018907,000652: 14,2742           12744                           BZF      +2                                    
018908,000653: 14,2743           12745                           TCF      ENDTEST                               
018909,000654: 14,2744           00002                           TC       Q                                     
018910,000655: 
018911,000656: 
018912,000657: 
018913,000658: 
018914,000659: 
018915,000660: 14,2745           37650        ENDTEST            CA       IMUSEFLG                              #  BIT8
018916,000661: 14,2746           67651                           AD       RRUSEFLG                              #  BIT7
018917,000662: 14,2747           40000                           CS       A                                     
018918,000663: 14,2750           00004                           INHINT                                         
018919,000664: 14,2751           70061                           MASK     STATE                                 
018920,000665: 14,2752           54061                           TS       STATE                                 
018921,000666: 
018922,000667: 14,2753           04667                           TC       NEWMODEX                              
018923,000668: 14,2754           00000                           OCT      00000                                 
018924,000669: 
018925,000670: 14,2755           04063                           TC       BANKCALL                              
018926,000671: 14,2756           27014                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
018927,000672: 14,2757           04437                           TC       EJFREE                                
018928,000673: 

Page 460

018930,000675: 14,2760           06000        LEMLAB             TC       INTPRET                               
018931,000676: 14,2761           57575                           VLOAD    VCOMP                                 
018932,000677: 14,2762           33036                                    YUNIT                                 
018933,000678: 
018934,000679: 14,2763           01437                           STORE    ZNB                                   #  XNB MATRIX USED IN CALCGA
018935,000680: 14,2764           23461                           STOVL    STARAD     +12D                       #  STARAD MATRIX USED IN AXISGEN * SMDCALC
018936,000681: 14,2765           33040                                    XUNIT                                 
018937,000682: 
018938,000683: 14,2766           01423                           STORE    XNB                                   #  *XNB*   *1    0    0* *V*
018939,000684: 14,2767           23445                           STOVL    STARAD                                #  *   *   *           * * *
018940,000685: 14,2770           33034                                    ZUNIT                                 #  *YNB* = *0    0    1* *S*
018941,000686: 14,2771           01431                           STORE    YNB                                   #  *   *   *           * * *
018942,000687: 14,2772           01453                           STORE    STARAD     +6                         #  *ZNB*   *0   -1    0* *E*
018943,000688: 14,2773           77776                           EXIT                                           
018944,000689: 
018945,000690: 14,2774           41544                           CS       POSITON                               
018946,000691: 14,2775           66165                           AD       THREE                                 
018947,000692: 14,2776           00006                           EXTEND                                         
018948,000693: 14,2777           13001                           BZF      +2                                    
018949,000694: 14,3000           13014                           TCF      LEMLAB1                               
018950,000695: 
018951,000696: 14,3001           06000                           TC       INTPRET                               
018952,000697: 14,3002           57575                           VLOAD    VCOMP                                 
018953,000698: 14,3003           01423                                    XNB                                   
018954,000699: 14,3004           77715                           PDVL                                           #  *XNB*   * 0   -1    0* *V*
018955,000700: 14,3005           01437                                    ZNB                                   #  *   *   *            * * *
018956,000701: 14,3006           01423                           STORE    XNB                                   #  *YNB* = * 0    0    1* *S*
018957,000702: 14,3007           23445                           STOVL    STARAD                                #  *   *   *            * * *
018958,000703: 14,3010           77626                           STADR                                          #  *ZNB*   *-1    0    0* * *
018959,000704: 14,3011           76340                           STORE    ZNB                                   
018960,000705: 14,3012           01461                           STORE    STARAD     +12D                       
018961,000706: 14,3013           77776                           EXIT                                           
018962,000707: 
018963,000708: 14,3014           04063        LEMLAB1            TC       BANKCALL                              
018964,000709: 14,3015           26716                           CADR     IMUSTALL                              #  INSURE IMUZERO COMPLETION
018965,000710: 
018966,000711: 14,3016           12745                           TCF      ENDTEST                               
018967,000712: 
018968,000713: 14,3017           02576                           TC       POSNJUMP                              #  SET UP STABLE MEMBER DESIRED COORDINATES
018969,000714: 14,3020           05401                           TC       FREEDSP                               #  FREE DISPLAY SYSTEM
018970,000715: 14,3021           02247                           TC       PUTPOSX                               #  TO COARSE ALIGN STABLE MEMBER
018971,000716: 
018972,000717: 14,3022           02737                           TC       GMLCKCHK                              
018973,000718: 
018974,000719: 14,3023           04063                           TC       BANKCALL                              
018975,000720: 14,3024           26227                           CADR     IMUFINE                               #  FINE ALIGN MODE
018976,000721: 14,3025           04063                           TC       BANKCALL                              
018977,000722: 14,3026           26716                           CADR     IMUSTALL                              
018978,000723: 14,3027           12745                           TCF      ENDTEST                               
018979,000724: 

Page 461

018981,000726: 14,3030           30032                           CA       CDUX                                  
018982,000727: 14,3031           50104                           INDEX    FIXLOC                                
018983,000728: 14,3032           54024                           TS       24                                    
018984,000729: 14,3033           30033                           CA       CDUY                                  
018985,000730: 14,3034           50104                           INDEX    FIXLOC                                
018986,000731: 14,3035           54020                           TS       20                                    
018987,000732: 14,3036           30034                           CA       CDUZ                                  
018988,000733: 14,3037           50104                           INDEX    FIXLOC                                
018989,000734: 14,3040           54022                           TS       22                                    
018990,000735: 
018991,000736: 14,3041           37653                           CAF      BIT5                                  
018992,000737: 14,3042           60104                           AD       FIXLOC                                
018993,000738: 14,3043           50104                           INDEX    FIXLOC                                
018994,000739: 14,3044           54050                           TS       S1                                    
018995,000740: 
018996,000741: 14,3045           02263                           TC       SMDCALC                               #  TO FINE ALIGN STABLE MEMBER
018997,000742: 
018998,000743: 14,3046           06000                           TC       INTPRET                               #  IF EARTH RATE COMPENSATION DESIRED
018999,000744: 14,3047           77624                           RTB                                            
019000,000745: 14,3050           33342                                    LOADTIME                              
019001,000746: 14,3051           01565                           STORE    TMARK                                 
019002,000747: 14,3052           77776                           EXIT                                           
019003,000748: 
019004,000749: 14,3053           41512                           CS       EROPTN                                
019005,000750: 14,3054           67656                           AD       TWO                                   
019006,000751: 14,3055           00006                           EXTEND                                         
019007,000752: 14,3056           13060                           BZF      +2                                    
019008,000753: 
019009,000754: 14,3057           12051                           TCF      ERFINAL    +2                         
019010,000755: 
019011,000756: 14,3060           04063                           TC       BANKCALL                              
019012,000757: 14,3061           35235                           CADR     SAMODRTN                              #  RETURN TO SEMI-AUTOMATIC MODING TEST
019013,000758: 

Page 462

019015,000760: 14,3062           33674        RDR37511           CAF      RDRRETN                               #  RENDEZVOUS RADAR AND ANTENNA TRACKING
019016,000761: 14,3063           55546                           TS       QPLACE                                #  TO RETURN FROM OPTDATA
019017,000762: 
019018,000763: 14,3064           04063                           TC       BANKCALL                              
019019,000764: 14,3065           20247                           CADR     RRZERO                                
019020,000765: 
019021,000766: 14,3066           04063                           TC       BANKCALL                              
019022,000767: 14,3067           23001                           CADR     AURLOKON                              #  OPERATOR DECISION TO LOCK ON OR NOT
019023,000768: 
019024,000769: 14,3070           12524        RDR1               TCF      OPTRDRIN                              #  CALL FOR AZIMUTH AND ELEVATION
019025,000770: 
019026,000771: 14,3071           04063                           TC       BANKCALL                              
019027,000772: 14,3072           26712                           CADR     RADSTALL                              
019028,000773: 14,3073           14440                           TCF      ENDOFJOB                              
019029,000774: 
019030,000775: 14,3074           06000                           TC       INTPRET                               
019031,000776: 14,3075           77170                           AXT,1    AXT,2                                 #  SET UP X1 AND X2 FOR TAR/EREF
019032,000777: 14,3076           00000                                    0                                     
019033,000778: 14,3077           00006                                    6                                     
019034,000779: 14,3100           77634                           CALL                                           
019035,000780: 14,3101           30353                                    TAR/EREF   +3                         #  LINE-OF-SIGHT WRT EARTH REF FRAME
019036,000781: 14,3102           64375                           VLOAD    MXV                                   
019037,000782: 14,3103           00015                                    12D                                   #  LINE-OF-SIGHT WRT EARTH REF FRAME
019038,000783: 14,3104           01401                                    XSM                                   #  TO STABLE MEMBER PRESENT FRAME
019039,000784: 14,3105           77772                           VSL1                                           
019040,000785: 14,3106           36416                           STCALL   RRTARGET                              
019041,000786: 14,3107           20306                                    RRDESSM                               
019042,000787: 
019043,000788: 14,3110           13115                           TCF      37511ALM                              
019044,000789: 14,3111           04063                           TC       BANKCALL                              
019045,000790: 14,3112           26712                           CADR     RADSTALL                              
019046,000791: 14,3113           14440                           TCF      ENDOFJOB                              
019047,000792: 14,3114           14440                           TCF      ENDOFJOB                              
019048,000793: 
019049,000794: 
019050,000795: 
019051,000796: 
019052,000797: 
019053,000798: 14,3115           05413        37511ALM           TC       ALARM                                 
019054,000799: 14,3116           00524                           OCT      524                                   
019055,000800: 14,3117           14440                           TCF      ENDOFJOB                              
019056,000801: 
019057,000802: 
019058,000803: 
019059,000804: 
019060,000805: 
019061,000806: 14,3120           47665        RDRINIT            CS       ZERO                                  
019062,000807: 14,3121           55512                           TS       EROPTN                                
019063,000808: 14,3122           12002                           TCF      AOTNBIMU   +2                         
019064,000809: 

Page 463

019066,000811: 14,3123           05317        MISALIGN           TC       GRABWAIT                              #  DISPLAY SYSTEM WAS FREED
019067,000812: 14,3124           37665                           CAF      ZERO                                  
019068,000813: 14,3125           55537                           TS       NDXCTR                                
019069,000814: 14,3126           51537        BBBB               INDEX    NDXCTR                                
019070,000815: 14,3127           41674                           CS       GENPL      +68D                       
019071,000816: 14,3130           51537                           INDEX    NDXCTR                                
019072,000817: 14,3131           27702                           ADS      GENPL      +74D                       
019073,000818: 14,3132           33662                           CAF      63DEC                                 
019074,000819: 14,3133           61537                           AD       NDXCTR                                
019075,000820: 14,3134           10000                           CCS      A                                     
019076,000821: 14,3135           46165                           CS       THREE                                 
019077,000822: 14,3136           27537                           ADS      NDXCTR                                
019078,000823: 14,3137           13126                           TCF      BBBB                                  
019079,000824: 14,3140           55537                           TS       NDXCTR                                
019080,000825: 
019081,000826: 
019082,000827: 
019083,000828: 14,3141           06000        CCCC               TC       INTPRET                               
019084,000829: 14,3142           70750                           LXA,1    DLOAD*                                
019085,000830: 14,3143           01537                                    NDXCTR                                
019086,000831: 14,3144           01701                                    GENPL      +72D,1                     
019087,000832: 14,3145           77625                           DSU                                            
019088,000833: 14,3146           01571                                    GENPL                                 
019089,000834: 14,3147           03701                           STORE    GENPL      +72D,1                     
019090,000835: 14,3150           77776                           EXIT                                           
019091,000836: 14,3151           41537                           CS       NDXCTR                                
019092,000837: 14,3152           63663                           AD       69DEC                                 
019093,000838: 14,3153           10000                           CCS      A                                     
019094,000839: 14,3154           36165                           CAF      THREE                                 
019095,000840: 14,3155           27537                           ADS      NDXCTR                                
019096,000841: 14,3156           13141                           TCF      CCCC                                  
019097,000842: 14,3157           55550                           TS       RUN                                   
019098,000843: 14,3160           36165                           CAF      THREE                                 
019099,000844: 14,3161           55537                           TS       NDXCTR                                
019100,000845: 
019101,000846: 
019102,000847: 
019103,000848: 14,3162           06000        DDDD               TC       INTPRET                               
019104,000849: 14,3163           77775                           VLOAD                                          
019105,000850: 14,3164           33042                                    ZERODP                                
019106,000851: 14,3165           00031                           STORE    24D                                   
019107,000852: 14,3166           00037                           STORE    30D                                   
019108,000853: 14,3167           77735                           SLOAD                                          
019109,000854: 14,3170           31660                                    11DEC                                 
019110,000855: 14,3171           00041                           STORE    32D                                   
019111,000856: 14,3172           77776                           EXIT                                           
019112,000857: 
019113,000858: 14,3173           06000        DDDD1              TC       INTPRET                               
019114,000859: 14,3174           70750                           LXA,1    DLOAD*                                
019115,000860: 14,3175           01537                                    NDXCTR                                
019116,000861: 

Page 464

019118,000863: 14,3176           01701                                    GENPL      +72D,1                     
019119,000864: 14,3177           41423                           DSU*     PUSH                                  
019120,000865: 14,3200           01673                                    GENPL      +66D,1                     
019121,000866: 14,3201           42742                           SR1      DAD*                                  
019122,000867: 14,3202           01673                                    GENPL      +66D,1                     
019123,000868: 14,3203           03701                           STORE    GENPL      +72D,1                     
019124,000869: 
019125,000870: 14,3204           43312                           SL2      DAD                                   
019126,000871: 14,3205           00031                                    24D                                   
019127,000872: 14,3206           14031                           STODL*   24D                                   
019128,000873: 14,3207           01701                                    GENPL      +72D,1                     
019129,000874: 14,3210           63412                           SL4      DSQ                                   
019130,000875: 14,3211           77615                           DAD                                            
019131,000876: 14,3212           00033                                    26D                                   
019132,000877: 14,3213           00033                           STORE    26D                                   
019133,000878: 14,3214           77776                           EXIT                                           
019134,000879: 14,3215           31550                           CAE      RUN                                   
019135,000880: 14,3216           61537                           AD       NDXCTR                                
019136,000881: 14,3217           40000                           COM                                            
019137,000882: 14,3220           63662                           AD       63DEC                                 
019138,000883: 14,3221           10000                           CCS      A                                     
019139,000884: 14,3222           36162                           CAF      SIX                                   
019140,000885: 14,3223           27537                           ADS      NDXCTR                                
019141,000886: 14,3224           13173                           TCF      DDDD1                                 
019142,000887: 14,3225           61550                           AD       RUN                                   
019143,000888: 14,3226           55537                           TS       NDXCTR                                
019144,000889: 
019145,000890: 
019146,000891: 
019147,000892: 14,3227           06000        EEEE               TC       INTPRET                               
019148,000893: 14,3230           66740                           LXC,1    SLOAD*                                
019149,000894: 14,3231           01537                                    NDXCTR                                
019150,000895: 14,3232           01604                                    GENPL      +11D,1                     
019151,000896: 14,3233           00043                           STORE    34D                                   
019152,000897: 14,3234           77745                           DLOAD                                          
019153,000898: 14,3235           54206                           PUSH     SL                                    
019154,000899: 14,3236           00211                                    8D                                    
019155,000900: 14,3237           43265                           BDDV     DAD                                   
019156,000901: 14,3240           00043                                    34D                                   
019157,000902: 14,3241           00035                                    28D                                   
019158,000903: 14,3242           06035                           STODL    28D                                   
019159,000904: 14,3243           55261                           SL       BDDV                                  
019160,000905: 14,3244           00207                                    6                                     
019161,000906: 14,3245           00043                                    34D                                   
019162,000907: 14,3246           42523                           PDDL*    SL4                                   
019163,000908: 14,3247           01602                                    GENPL      +9D,1                      
019164,000909: 14,3250           77605                           DMP                                            
019165,000910: 14,3251           77615                           DAD                                            
019166,000911: 14,3252           00037                                    30D                                   
019167,000912: 14,3253           00037                           STORE    30D                                   
019168,000913: 

Page 465

019170,000915: 14,3254           77776                           EXIT                                           
019171,000916: 14,3255           41537                           CS       NDXCTR                                
019172,000917: 14,3256           63661                           AD       60DEC                                 
019173,000918: 14,3257           61550                           AD       RUN                                   
019174,000919: 14,3260           10000                           CCS      A                                     
019175,000920: 14,3261           36162                           CAF      SIX                                   
019176,000921: 14,3262           27537                           ADS      NDXCTR                                
019177,000922: 14,3263           13227                           TCF      EEEE                                  
019178,000923: 
019179,000924: 
019180,000925: 
019181,000926: 14,3264           06000                           TC       INTPRET                               
019182,000927: 14,3265           41345                           DLOAD    DMP                                   
019183,000928: 14,3266           00031                                    24D                                   
019184,000929: 14,3267           00037                                    30D                                   
019185,000930: 14,3270           41325                           PDDL     DMP                                   
019186,000931: 14,3271           00033                                    26D                                   
019187,000932: 14,3272           00035                                    28D                                   
019188,000933: 14,3273           77625                           DSU                                            
019189,000934: 14,3274           63525                           PDDL     DSQ                                   
019190,000935: 14,3275           00031                                    24D                                   
019191,000936: 14,3276           65342                           SR1      PDDL                                  
019192,000937: 14,3277           00041                                    32D                                   
019193,000938: 14,3300           41261                           SL       DMP                                   
019194,000939: 14,3301           00212                                    11                                    
019195,000940: 14,3302           00033                                    26D                                   
019196,000941: 14,3303           55225                           DSU      BDDV                                  
019197,000942: 14,3304           54205                           DMP      SL                                    
019198,000943: 14,3305           31673                                    KKKK                                  
019199,000944: 14,3306           00204                                    3                                     
019200,000945: 14,3307           00337                           STORE    DSPTEM2                               
019201,000946: 14,3310           77776                           EXIT                                           
019202,000947: 
019203,000948: 14,3311           31544                           CA       POSITON                               
019204,000949: 14,3312           54340                           TS       DSPTEM2    +2                         
019205,000950: 
019206,000951: 14,3313           33654                           CAF      V06N66E                               
019207,000952: 14,3314           05332                           TC       NVSBWAIT                              
019208,000953: 14,3315           05274                           TC       FLASHON                               
019209,000954: 14,3316           05140                           TC       ENDIDLE                               
019210,000955: 14,3317           12745                           TCF      ENDTEST                               
019211,000956: 14,3320           36165                           CAF      THREE                                 
019212,000957: 14,3321           55550                           TS       RUN                                   
019213,000958: 14,3322           37665                           CAF      ZERO                                  
019214,000959: 14,3323           13161                           TCF      DDDD       -1                         
019215,000960: 

Page 466

019217,000962:                                                                                                  #  THIS REVISION REFLECTS CHANGES AS OF
019218,000963:                                                                                                  #   1/31/66
019219,000964:                                                                                                  #  ENGINE ON/OFF NOW IN CHANNEL ELEVEN.  THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE.  THEY STAY ON UNTIL
019220,000965:                                                                                                  #   :ENTER:IS PUSHED.  THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
019221,000966:                                                                                                  #  CHANNEL 5  BITS 1-8
019222,000967:                                                                                                  #  CHANNEL 6  BITS 1-8
019223,000968:                                                                                                  #  CHANNEL 11 BITS  13,14
019224,000969:                                                                                                  #  CHANNEL 12 BITS 9-14
019225,000970:                                                                                                  #  FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED.  CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
019226,000971:                                                                                                  #  GOES IN LOCATION (COUNTER) 55.
019227,000972:                                                                                                  #  INCREASE THROTTLE RATE DESCENT ENGINE
019228,000973:                                                                                                  #  :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
019229,000974:                                                                                                  #  DECREASE THROTTLE RATE DESCENT ENGINE
019230,000975:                                                                                                  #  THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
019231,000976:                                                                                                  #  ZEROS FOR CLARITY) TO THE ALTITUDE METER.
019232,000977:                                                                                                  #  THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
019233,000978:                                                                                                  #  THE NEXT :ENTER : WILL TERMINATE THE TEST.
019234,000979: 
019235,000980: 
019236,000981: 
019237,000982: 14,3324           37637        SAUTOIFS           CA       POSMAX                                
019238,000983: 14,3325           55576                           TS       NOBITS                                
019239,000984: 14,3326           37665                           CA       ZERO                                  
019240,000985: 14,3327           55577                           TS       CHAN                                  
019241,000986: 14,3330           55575                           TS       TEMP                                  
019242,000987: 14,3331           03333                           TC       DINO                                  
019243,000988: 14,3332           25577        BACK1              INCR     CHAN                                  
019244,000989: 
019245,000990: 14,3333           51577        DINO               INDEX    CHAN                                  
019246,000991: 14,3334           33336                           CA       SAUTLOCS                              
019247,000992: 14,3335           14067                           TCF      SWCALL                                
019248,000993: 14,3336           31352        SAUTLOCS           CADR     CHAN5D                                
019249,000994: 14,3337           31370                           CADR     CHAN6D                                
019250,000995: 14,3340           31376                           CADR     CHAN11D                               
019251,000996: 14,3341           31410                           CADR     CHAN12D                               
019252,000997: 14,3342           31422                           CADR     PTITRDE                               
019253,000998: 14,3343           31447                           CADR     PTDTRDE                               
019254,000999: 14,3344           31524                           CADR     ALTMET                                
019255,001000: 14,3345           31551                           CADR     ALTRMET                               
019256,001001: 14,3346           30745                           CADR     ENDTEST                               
019257,001002: 14,3347           31454        THROTADD           CADR     PTDTRDE    +5                         
019258,001003: 14,3350           31527        METERADD           CADR     ALTMET     +3                         
019259,001004: 14,3351           31554        MRATEADD           CADR     ALTRMET    +3                         
019260,001005: 14,3352           37664        CHAN5D             CA       FIVE                                  
019261,001006: 14,3353           54333                           TS       DSPTEM1                               
019262,001007: 14,3354           35235        2ENTRY             CA       LOW8                                  #  CHANNEL 6 RETURNS HERE
019263,001008: 14,3355           54334                           TS       DSPTEM1    +1                         
019264,001009: 14,3356           00006                           EXTEND                                         
019265,001010: 14,3357           51575                           INDEX    TEMP                                  
019266,001011: 14,3360           01005                           WRITE    5                                     
019267,001012: 

Page 467

019269,001014: 14,3361           33643        3ENTRY             CA       V04N30D                               #  CH11,12 RETURN HERE TO USE THE DISPLAY
019270,001015: 14,3362           05332                           TC       NVSBWAIT                              
019271,001016: 14,3363           33650        4ENTRY             CAF      WAITER                                #  WAITER IS 03300
019272,001017: 14,3364           05332                           TC       NVSBWAIT                              
019273,001018: 14,3365           05140                           TC       ENDIDLE                               
019274,001019: 14,3366           02745                           TC       ENDTEST                               
019275,001020: 14,3367           03332                           TC       BACK1                                 
019276,001021: 
019277,001022: 14,3370           25575        CHAN6D             INCR     TEMP                                  
019278,001023: 14,3371           24333                           INCR     DSPTEM1                               
019279,001024: 14,3372           37665                           CAF      ZERO                                  
019280,001025: 14,3373           00006                           EXTEND                                         
019281,001026: 14,3374           01005                           WRITE    5                                     #  GET RID OF CHANNEL 5 BITS
019282,001027: 14,3375           03354                           TC       2ENTRY                                
019283,001028: 14,3376           37662        CHAN11D            CA       OCT11                                 
019284,001029: 14,3377           54333                           TS       DSPTEM1                               
019285,001030: 14,3400           37700                           CA       BIT13-14                              
019286,001031: 14,3401           54334                           TS       DSPTEM1    +1                         
019287,001032: 14,3402           00006                           EXTEND                                         
019288,001033: 14,3403           05011                           WOR      11                                    #  WOR IS NON EXCLUSIVE OR
019289,001034: 14,3404           37665                           CAF      ZERO                                  
019290,001035: 14,3405           00006                           EXTEND                                         
019291,001036: 14,3406           01006                           WRITE    6                                     
019292,001037: 14,3407           03361                           TC       3ENTRY                                
019293,001038: 14,3410           37661        CHAN12D            CA       OCT12                                 
019294,001039: 14,3411           54333                           TS       DSPTEM1                               
019295,001040: 14,3412           47700                           CS       BIT13-14                              
019296,001041: 14,3413           00006                           EXTEND                                         
019297,001042: 14,3414           03011                           WAND     11                                    
019298,001043: 14,3415           33646                           CA       CH12BITS                              
019299,001044: 14,3416           54334                           TS       DSPTEM1    +1                         
019300,001045: 14,3417           00006                           EXTEND                                         
019301,001046: 14,3420           05012                           WOR      12                                    
019302,001047: 14,3421           03361                           TC       3ENTRY                                
019303,001048: 14,3422           43646        PTITRDE            CS       CH12BITS                              
019304,001049: 14,3423           00006                           EXTEND                                         
019305,001050: 14,3424           03012                           WAND     12                                    
019306,001051: 14,3425           37665                           CA       ZERO                                  
019307,001052: 14,3426           54333                           TS       DSPTEM1                               
019308,001053: 14,3427           54334                           TS       DSPTEM1    +1                         
019309,001054: 14,3430           55575                           TS       TEMP                                  
019310,001055: 14,3431           37657                           CA       BIT1                                  
019311,001056: 14,3432           55576                           TS       NOBITS                                
019312,001057: 14,3433           00004        PIT                INHINT                                         
019313,001058: 14,3434           04536                           TC       WAITLIST                              
019314,001059: 14,3435           03460 30005                     2CADR    THROTASK                              
019315,001060: 
019316,001061: 14,3437           00003                           RELINT                                         
019317,001062: 14,3440           33650                           CA       WAITER                                
019318,001063: 14,3441           05332                           TC       NVSBWAIT                              
019319,001064: 

Page 468

019321,001066: 14,3442           05140                           TC       ENDIDLE                               
019322,001067: 14,3443           02745                           TC       ENDTEST                               
019323,001068: 14,3444           37665                           CA       ZERO                                  
019324,001069: 14,3445           55576                           TS       NOBITS                                
019325,001070: 14,3446           03332                           TC       BACK1                                 
019326,001071: 
019327,001072: 14,3447           37665        PTDTRDE            CA       ZERO                                  
019328,001073: 14,3450           54055                           TS       THRUST                                
019329,001074: 14,3451           33347                           CA       THROTADD                              
019330,001075: 14,3452           55574                           TS       TEMPADD                               
019331,001076: 14,3453           04416                           TC       JOBSLEEP                              #  THIS INHIBITS THE NEXT TASK UNTIL
019332,001077:                                                                                                  #  CURRENT TASK HAS BEEN COMPLETED
019333,001078: 14,3454           37637                           CA       POSMAX                                
019334,001079: 14,3455           55575                           TS       TEMP                                  
019335,001080: 14,3456           37651                           CA       BIT7                                  
019336,001081: 14,3457           03433                           TC       PIT                                   
019337,001082: 14,3460           11576        THROTASK           CCS      NOBITS                                #  IS THIS TASK STILL REQ
019338,001083: 14,3461           03466                           TC       +5                                    #  YES
019339,001084: 14,3462           31574                           CA       TEMPADD                               #  NO
019340,001085: 14,3463           55576                           TS       NOBITS                                
019341,001086: 14,3464           04422                           TC       JOBWAKE                               
019342,001087: 14,3465           04602                           TC       TASKOVER                              
019343,001088: 14,3466           11575                           CCS      TEMP                                  
019344,001089: 14,3467           03502                           TC       SOMETIME                              
019345,001090: 14,3470           35234                           CA       LOW11                                 
019346,001091: 14,3471           54055        ALWAYS             TS       THRUST                                
019347,001092: 14,3472           37654                           CA       BIT4                                  
019348,001093: 14,3473           00006                           EXTEND                                         #  A SMERZH FIX.
019349,001094: 14,3474           05014                           WOR      14                                    
019350,001095: 14,3475           37652                           CA       BIT6                                  #  320 MS.DELAY
019351,001096: 14,3476           04536                           TC       WAITLIST                              
019352,001097: 14,3477           03460 30005                     2CADR    THROTASK                              
019353,001098: 14,3501           04602                           TC       TASKOVER                              
019354,001099: 14,3502           45234        SOMETIME           CS       LOW11                                 
019355,001100: 14,3503           03471                           TC       ALWAYS                                
019356,001101: 14,3504           11576        ALTASK             CCS      NOBITS                                #  IS TASK STILL REQ
019357,001102: 14,3505           03512                           TC       +5                                    
019358,001103: 14,3506           31574                           CA       TEMPADD                               #  NO
019359,001104: 14,3507           55576                           TS       NOBITS                                #  ENABLES NEXT TASK
019360,001105: 14,3510           04422                           TC       JOBWAKE                               
019361,001106: 14,3511           04602                           TC       TASKOVER                              
019362,001107: 14,3512           33644                           CA       ALBITS                                #  ACTUAL TASK STARTS HERE
019363,001108: 14,3513           54060                           TS       ALTM                                  
019364,001109: 14,3514           37655                           CA       BIT3                                  
019365,001110: 14,3515           00006                           EXTEND                                         
019366,001111: 14,3516           05014                           WOR      14                                    
019367,001112: 14,3517           37652                           CA       BIT6                                  #  320 MS. DELAY
019368,001113: 14,3520           04536                           TC       WAITLIST                              
019369,001114: 14,3521           03504 30005                     2CADR    ALTASK                                
019370,001115: 

Page 469

019372,001117: 14,3523           04602                           TC       TASKOVER                              
019373,001118: 14,3524           33350        ALTMET             CA       METERADD                              
019374,001119: 14,3525           55574                           TS       TEMPADD                               
019375,001120: 14,3526           04416                           TC       JOBSLEEP                              
019376,001121: 14,3527           37665                           CA       ZERO                                  
019377,001122: 14,3530           55575                           TS       TEMP                                  
019378,001123: 14,3531           47654                           CS       BIT4                                  
019379,001124: 14,3532           00006                           EXTEND                                         
019380,001125: 14,3533           03014                           WAND     14                                    
019381,001126: 14,3534           00004                           INHINT                                         
019382,001127: 14,3535           37657                           CA       ONE                                   
019383,001128: 14,3536           04536                           TC       WAITLIST                              
019384,001129: 14,3537           03504 30005                     2CADR    ALTASK                                
019385,001130: 14,3541           00003                           RELINT                                         
019386,001131: 14,3542           33650                           CA       WAITER                                
019387,001132: 14,3543           05332                           TC       NVSBWAIT                              
019388,001133: 14,3544           05140                           TC       ENDIDLE                               
019389,001134: 14,3545           02745                           TC       ENDTEST                               
019390,001135: 14,3546           37665                           CA       ZERO                                  
019391,001136: 14,3547           55576                           TS       NOBITS                                
019392,001137: 14,3550           03332                           TC       BACK1                                 
019393,001138: 
019394,001139: 14,3551           33351        ALTRMET            CA       MRATEADD                              
019395,001140: 14,3552           55574                           TS       TEMPADD                               
019396,001141: 14,3553           04416                           TC       JOBSLEEP                              
019397,001142: 14,3554           37657                           CA       ONE                                   
019398,001143: 14,3555           55575                           TS       TEMP                                  #  TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
019399,001144:                                                                                                  #  TEAD OF BIT3
019400,001145: 14,3556           37656                           CA       BIT2                                  
019401,001146: 14,3557           00006                           EXTEND                                         
019402,001147: 14,3560           05014                           WOR      14                                    
019403,001148: 14,3561           03534                           TC       ALTMET     +8D                        
019404,001149: 

Page 470

019406,001151:                                                                                                  #       THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT,  THE IDEA IS TO
019407,001152:                                                                                                  #  COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
019408,001153:                                                                                                  #  INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
019409,001154:                                                                                                  #        THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
019410,001155: 
019411,001156: 
019412,001157: 
019413,001158: 14,3562           06000        AOTANGCK           TC       INTPRET                               
019414,001159: 14,3563           77414                           SET      EXIT                                  #  IN CASE THE ISS IS OFF.
019415,001160: 14,3564           00065                                    COAROFIN                              
019416,001161: 14,3565           02135                           TC       FINDNAVB                              #  FOR LOS1 AND LOS2.
019417,001162: 14,3566           06000                           TC       INTPRET                               
019418,001163: 14,3567           47375                           VLOAD    VXV                                   
019419,001164: 14,3570           01601                                    LOS1                                  
019420,001165: 14,3571           01607                                    LOS2                                  
019421,001166: 14,3572           77646                           ABVAL                                          
019422,001167: 14,3573           22023                           STOVL    SINTH                                 #  SINTH = ABVAL (VXV ).
019423,001168: 14,3574           01601                                    LOS1                                  
019424,001169: 14,3575           77641                           DOT                                            
019425,001170: 14,3576           01607                                    LOS2                                  
019426,001171: 14,3577           36021                           STCALL   COSTH                                 #  COSTH = V.V
019427,001172: 14,3600           32440                                    ARCTRIG                               
019428,001173: 14,3601           77624                           RTB                                            
019429,001174: 14,3602           33410                                    1STO2S                                #  DP 1S COMP TO SP 2S COMP.
019430,001175: 14,3603           00025                           STORE    THETA                                 
019431,001176: 14,3604           77776                           EXIT                                           
019432,001177: 14,3605           33675                           CAF      THETAADR                              
019433,001178: 14,3606           60104                           AD       FIXLOC                                
019434,001179: 14,3607           54142                           TS       MPAC       +2                         
019435,001180: 14,3610           33653                           CAF      V06N03E                               #  XXX.XX DEGREES IN R1.
019436,001181: 14,3611           05332                           TC       NVSBWAIT                              
019437,001182: 14,3612           12745                           TCF      ENDTEST                               
019438,001183: 

Page 471

019440,001185: 14,3613  E3,1400                                  EBANK=   1400                                  
019441,001186: 14,3613           00004        ZEROERAS           INHINT                                         #  PROGRAM BY MUNTZ TO ZERO ERASEABLE
019442,001187: 14,3614           37665                           CAF      ZERO                                  
019443,001188: 14,3615           54026                           TS       TIME3                                 
019444,001189: 14,3616           33642                           CAF      OCT27                                 
019445,001190: 14,3617           54003                           TS       EBANK                                 
019446,001191: 14,3620           22007        ZEROLP             ZL                                             
019447,001192: 14,3621           50000                           INDEX    A                                     
019448,001193: 14,3622           23401                           LXCH     1401                                  
019449,001194: 14,3623           67656                           AD       TWO                                   
019450,001195: 14,3624           26003                           ADS      EBANK                                 
019451,001196: 14,3625           75235                           MASK     LOW8                                  
019452,001197: 14,3626           10000                           CCS      A                                     
019453,001198: 14,3627           13620                           TCF      ZEROLP                                
019454,001199: 14,3630           10003                           CCS      EBANK                                 
019455,001200: 14,3631           13634                           TCF      ZEROLP1                               
019456,001201: 14,3632           04102                           TC       POSTJUMP                              
019457,001202: 14,3633           24000                           CADR     SLAP1                                 
019458,001203: 14,3634           00003        ZEROLP1            RELINT                                         
019459,001204: 14,3635           37665                           CAF      ZERO                                  #  KEEP T4RUPT GOING, BUT NOT CYCLING.
019460,001205: 14,3636           54350                           TS       DSRUPTSW                              
019461,001206: 14,3637           00004                           INHINT                                         
019462,001207: 14,3640           47657                           CS       ONE                                   
019463,001208: 14,3641           13620                           TCF      ZEROLP                                
019464,001209: 14,3642           00027        OCT27              OCT      27                                    
019465,001210: 

Page 472

019467,001212: 14,3643  E5,1500                                  EBANK=   OGC                                   
019468,001213: 14,3643           00430        V04N30D            OCT      00430                                 
019469,001214: 14,3644           52525        ALBITS             OCT      52525                                 
019470,001215: 14,3645           70707        THRSBITS           OCT      70707                                 
019471,001216: 14,3646     7661               OCT12              =        TEN                                   
019472,001217: 14,3646     7662               OCT11              =        NINE                                  
019473,001218: 14,3646           37400        CH12BITS           OCT      37400                                 
019474,001219: 14,3647           00130        V01N30D            OCT      00130                                 
019475,001220: 14,3650           03300        WAITER             OCT      03300                                 
019476,001221: 
019477,001222: 
019478,001223: 
019479,001224: 
019480,001225: 
019481,001226: 14,3651           00130        V01N30E            OCT      00130                                 #  FOR FINDNAVB
019482,001227: 14,3652           00530        V05N30E            OCT      00530                                 #  FOR OPTDATA
019483,001228: 14,3653           00603        V06N03E            OCT      00603                                 
019484,001229: 14,3654           00666        V06N66E            OCT      00666                                 
019485,001230: 14,3655           02430        V24N30E            OCT      02430                                 #  FOR POSITION LOAD
019486,001231: 14,3656           02522        V25N22E            OCT      02522                                 #  FOR POS4
019487,001232: 
019488,001233: 14,3657           00013        11DEC              DEC      11         B-14                       
019489,001234: 14,3660           00021        17DEC              DEC      17         B-14                       
019490,001235: 14,3661           00074        60DEC              DEC      60         B-14                       
019491,001236: 14,3662           00077        63DEC              DEC      63         B-14                       
019492,001237: 14,3663           00105        69DEC              DEC      69         B-14                       #  FOR MISALIGN
019493,001238: 14,3664           00110        72DEC              DEC      72         B-14                       #  FOR STORRSLT
019494,001239: 
019495,001240: 14,3665           05670        30SEC              DEC      3000       B-14                       #  3000 X 10 MSEC
019496,001241: 14,3666           13560        60SEC              DEC      6000       B-14                       #  6000 X 10 MSEC
019497,001242: 
019498,001243: 14,3667           01500        OGCADR             ADRES    OGC                                   #  FOR ZEROING
019499,001244: 14,3670           01570        GENPLAD1           ADRES    GENPL                                 
019500,001245: 14,3671           02570        GENPLADR           ECADR    GENPL                                 #  FOR POS4
019501,001246: 14,3672           00322 14366  KKKK               2DEC     210.39     B-14                       #  1230 B-14 FOR CSM
019502,001247: 
019503,001248: 14,3674           03071        RDRRETN            ADRES    RDR1       +1                         #  FOR RDR37511
019504,001249: 14,3675           00024        THETAADR           ECADR    THETA                                 
019505,001250: 14,3676           01400        XSMADRX            ADRES    XSM                                   #  FOR MAKEXSMD
019506,001251: 
019507,001252: 14,3677           24365 30244  SCALFTR            2DEC     .64                                   #  FOR STORRSLT
019508,001253: 
019509,001254: 14,3701           07623 26552  OMEG/MS            2DEC     .24339048                             #  GYRO PULSES / 10 MSEC
019510,001255: 

Page 473

019512,001257:                                                                                                  #           THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
019513,001258:                                                                                                  #  DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
019514,001259:    5470                                           SETLOC   ENDFAILF                              
019515,001260:    5470           00004        FINETIME           INHINT                                         #  RETURNS WITH INTERRUPT INHIBITED.
019516,001261:    5471           00006                           EXTEND                                         
019517,001262:    5472           00004                           READ     LOSCALAR                              
019518,001263:    5473           54001                           TS       L                                     
019519,001264: 
019520,001265:    5474           00006                           EXTEND                                         #  SEE IF 2 READINGS AGREE. IF NOT, READ
019521,001266:    5475           06004                           RXOR     LOSCALAR                              #  LOSCALAR AGAIN.
019522,001267:    5476           00006                           EXTEND                                         
019523,001268:    5477           15503                           BZF      +4                                    
019524,001269: 
019525,001270:    5500           00006                           EXTEND                                         #  IF CLOCK RIPPLED BEFORE, IT WONT NOW.
019526,001271:    5501           00004                           READ     LOSCALAR                              
019527,001272:    5502           54001                           TS       L                                     
019528,001273: 
019529,001274:    5503           47637                 +4        CS       POSMAX                                #  IF LOW PART CONTAINS SOMETHING LESS THAN
019530,001275:    5504           60001                           AD       L                                     #  POSMAX, THE HIGH PART CAN BE READ SAFELY
019531,001276:    5505           00006                           EXTEND                                         
019532,001277:    5506           15471                           BZF      FINETIME   +1                         #  TRY AGAIN - CONDITION WILL DISAPPEAR.
019533,001278: 
019534,001279:    5507           00006                           EXTEND                                         
019535,001280:    5510           00003                           READ     HISCALAR                              
019536,001281:    5511           00002                           TC       Q                                     
019537,001282: 
019538,001283:    5512                        ENDIMUF            =                                              
019539,001284: 

Page 474

019541,001286: 14,3703                                           SETLOC   OMEG/MS    +2                         
019542,001287: 14,3703           04063        REDYTORK           TC       BANKCALL                              
019543,001288: 14,3704           26716                           CADR     IMUSTALL                              
019544,001289: 14,3705           12745                           TCF      ENDTEST                               
019545,001290: 
019546,001291: 14,3706           02727                           TC       OGCZERO                               
019547,001292: 
019548,001293: 14,3707           06000                           TC       INTPRET                               
019549,001294: 14,3710           77634                           CALL                                           
019550,001295: 14,3711           30405                                    ERTHRVSE                              #  SETS UP EARTHRATE ANGLES AND TIME
019551,001296: 14,3712           77776                           EXIT                                           
019552,001297: 14,3713           31617                           CA       OPTNREG                               #  INITIALIZE CDUNDX FOR PULSE CATCHING
019553,001298: 14,3714           67670                           AD       NEG2                                  #  C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
019554,001299: 14,3715           55616                           TS       GYTOBETQ                              #  C(K) = 2,0,-1 FOR  X,Y,Z.
019555,001300: 14,3716           00006                           EXTEND                                         
019556,001301: 14,3717           13722                           BZF      +3                                    
019557,001302: 14,3720           37656                           CAF      TWO                                   
019558,001303: 14,3721           03723                           TC       +2                                    
019559,001304: 14,3722           37657                           CAF      ONE                                   
019560,001305: 14,3723           55672                           TS       CDUNDX                                #  C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
019561,001306: 14,3724           04063                           TC       BANKCALL                              
019562,001307: 14,3725           36545                           CADR     ENABLE                                
019563,001308: 14,3726                        ENDIMUS1           EQUALS                                         
019564,001309: 

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