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.

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

Page 444

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

Page 445

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

Page 446

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

Page 447

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

Page 448

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

Page 449

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

Page 450

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

Page 451

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

Page 452

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

Page 453

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

Page 454

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

Page 455

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

Page 456

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

Page 457

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

Page 458

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

Page 459

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

Page 460

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

Page 461

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

Page 462

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

Page 463

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

Page 464

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

Page 465

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

Page 466

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

Page 467

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

Page 468

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

Page 469

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

Page 470

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

Page 471

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

Page 472

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

Page 473

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

Page 474

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

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