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.

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

Page 444

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

Page 445

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

Page 446

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

Page 447

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

Page 448

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

Page 449

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

Page 450

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

Page 451

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

Page 452

018623,000362: 14,2377           57552                           SL1      DCOMP                                 
018624,000363: 14,2400           04025                           STORE    20D,2                                 #  PD08  ***   -COS(AZ)COS(EL)    ***  PD14
018625,000364: 
018626,000365: 14,2401           61170                           AXT,1    TIX,2                                 
018627,000366: 14,2402           00000                                    0                                     
018628,000367: 14,2403           30356                                    TAR1                                  
018629,000368: 14,2404           77616                           RVQ                                            
018630,000369: 

Page 453

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

Page 454

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

Page 455

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

Page 456

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

Page 457

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

Page 458

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

Page 459

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

Page 460

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

Page 461

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

Page 462

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

Page 463

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

Page 464

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

Page 465

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

Page 466

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

Page 467

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

Page 468

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

Page 469

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

Page 470

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

Page 471

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

Page 472

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

Page 473

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

Page 474

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

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