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.

021389,000002:                                                                                                  ## Copyright:    Public domain.
021390,000003:                                                                                                  ## Filename:     OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
021391,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
021392,000005:                                                                                                  ## Assembler:    yaYUL
021393,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
021394,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
021395,000008:                                                                                                  ## Pages:        514-534
021396,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
021397,000010:                                                                                                  ##               2016-09-27 MAS  Started.
021398,000011:                                                                                                  ##               2016-10-15 HG   Fix operand INPRET -> INTPRET
021399,000012:                                                                                                  ##                                           PHASECHNG -> PHASCHNG 
021400,000013:                                                                                                  ##                               Fix operator TC -> CA
021401,000014:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
021402,000015:                                                                                                  ##                               and fixed errors found.
021403,000016: 
021404,000017:                                                                                                  ## This source code has been transcribed or otherwise adapted from
021405,000018:                                                                                                  ## digitized images of a hardcopy from the private collection of 
021406,000019:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
021407,000020: 
021408,000021:                                                                                                  ## Notations on the hardcopy document read, in part:
021409,000022: 
021410,000023:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
021411,000024:                                                                                                  ##       NOV 10, 1966
021412,000025: 
021413,000026:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
021414,000027:                                                                                                  ##       date of the program revision or the assembly.]
021415,000028: 
021416,000029:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
021417,000030:                                                                                                  ## reduction in image quality) are available online at 
021418,000031:                                                                                                  ##       https://www.ibiblio.org/apollo.  
021419,000032:                                                                                                  ## The original high-quality digital images are available at archive.org:
021420,000033:                                                                                                  ##       https://archive.org/details/aurora00dapg
021421,000034: 

Page 514

021423,000036:                                                                                                  #  THIS PROGRAM USES A VERTICAL,SOUTH,EAST COORDINATE SYSTEM FOR PIPAS
021424,000037: 21,2000                                           BANK     21                                    
021425,000038: 21,2000  E5,1400                                  EBANK=   XSM                                   
021426,000039: 
021427,000040:                                                                                                  #  G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
021428,000041:                                                                                                  #  PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
021429,000042: 21,2000           04614        ESTIMS             TC       PHASCHNG                              
021430,000043: 21,2001           00101                           OCT      00101                                 
021431,000044: 21,2002           00004        RSTGTS1            INHINT                                         #   COMES HERE PHASE1 RESTART
021432,000045: 21,2003           30025                           CA       TIME1                                 
021433,000046: 21,2004           55745                           TS       GTSWTLST                              
021434,000047: 21,2005           37665                           CAF      ZERO                                  #  ZERO THE PIPAS
021435,000048: 21,2006           54037                           TS       PIPAX                                 
021436,000049: 21,2007           54040                           TS       PIPAY                                 
021437,000050: 21,2010           54041                           TS       PIPAZ                                 
021438,000051: 21,2011           54404                           TS       DELVX      +1                         
021439,000052: 21,2012           54406                           TS       DELVY      +1                         
021440,000053: 21,2013           54410                           TS       DELVZ      +1                         
021441,000054: 21,2014           00003                           RELINT                                         
021442,000055: 21,2015           02753                           TC       SETUPER                               
021443,000056: 21,2016           33360                           CA       77DECML                               
021444,000057: 21,2017           55776                           TS       ZERONDX                               
021445,000058: 21,2020           33361                           CA       ALXXXZ                                
021446,000059: 21,2021           04063                           TC       BANKCALL                              
021447,000060: 21,2022           37236                           CADR     ZEROING                               
021448,000061: 21,2023           06000                           TC       INTPRET                               
021449,000062: 21,2024           77775                           VLOAD                                          
021450,000063: 21,2025           03353                                    INTVAL     +2                         
021451,000064: 21,2026           01601                           STORE    ALX1S                                 
021452,000065: 21,2027           77776                           EXIT                                           
021453,000066: 
021454,000067: 21,2030           11742                           CCS      GEOCOMPS                              #  GEOCOMPS IN NON ZERO IF COMPASS
021455,000068: 21,2031           02033                           TC       +2                                    
021456,000069: 21,2032           02667                           TC       SLEEPIE    +1                         
021457,000070: 21,2033           31527                           CA       LENGTHOT                              #    TIMES FIVE IS THE NUM OF SEC ERECTING
021458,000071: 21,2034           55746                           TS       ERECTIME                              
021459,000072: 
021460,000073: 21,2035           04667                           TC       NEWMODEX                              
021461,000074: 21,2036           00005                           OCT      05                                    
021462,000075: 21,2037           04063                           TC       BANKCALL                              
021463,000076: 21,2040           16345                           CADR     GCOMPZER                              #    ZERO COMPENSATION PROGRAM REGISTERS
021464,000077: 21,2041           02740                           TC       ANNNNNN                               
021465,000078: 

Page 515

021467,000080: 21,2042           00004        ALLOOP             INHINT                                         #   TASK EVERY .5 OR 1 SEC (COMPASS-DRIFT)
021468,000081: 21,2043           30025                           CA       TIME1                                 
021469,000082: 21,2044           55745                           TS       GTSWTLST                              #  STORE TIME TO SET UP NEXT WAITLIST
021470,000083: 21,2045           31664        ALLOOP3            CA       ALTIM                                 
021471,000084: 21,2046           55716                           TS       GEOSAVED                              
021472,000085: 21,2047           04614                           TC       PHASCHNG                              
021473,000086: 21,2050           00201                           OCT      00201                                 
021474,000087: 21,2051           02053                           TC       +2                                    
021475,000088: 
021476,000089: 21,2052           00004        ALLOOP1            INHINT                                         #  RESTARTS COME IN HERE
021477,000090: 21,2053           31716                           CA       GEOSAVED                              
021478,000091: 21,2054           55664                           TS       ALTIM                                 
021479,000092: 21,2055           10000                           CCS      A                                     
021480,000093: 21,2056           30000                           CA       A                                     #  SHOULD NEVER HIT THIS LOCATION
021481,000094: 21,2057           55665                           TS       ALTIMS                                
021482,000095: 21,2060           40000                           CS       A                                     
021483,000096: 21,2061           55664                           TS       ALTIM                                 
021484,000097: 21,2062           30037                           CA       PIPAX                                 
021485,000098: 21,2063           54403                           TS       DELVX                                 
021486,000099: 21,2064           30040                           CA       PIPAY                                 
021487,000100: 21,2065           54405                           TS       DELVY                                 
021488,000101: 21,2066           30041                           CA       PIPAZ                                 
021489,000102: 21,2067           54407                           TS       DELVZ                                 
021490,000103: 21,2070           37665                           CAF      ZERO                                  
021491,000104: 21,2071           54037                           TS       PIPAX                                 
021492,000105: 21,2072           54040                           TS       PIPAY                                 
021493,000106: 21,2073           54041                           TS       PIPAZ                                 
021494,000107: 21,2074           04614                           TC       PHASCHNG                              
021495,000108: 21,2075           00701                           OCT      00701                                 
021496,000109: 21,2076           00003                           RELINT                                         
021497,000110: 21,2077           37642        SPECSTS            CAF      PRIO20                                
021498,000111: 21,2100           04374                           TC       FINDVAC                               
021499,000112: 21,2101           02104 42005                     2CADR    ALFLT                                 #  START THE JOB
021500,000113: 
021501,000114: 21,2103           04602                           TC       TASKOVER                              
021502,000115: 

Page 516

021504,000117: 21,2104           03047        ALFLT              TC       STOREDTA                              #   STORE DATA IN CASE OF RESTART IN JOB
021505,000118: 21,2105           04614                           TC       PHASCHNG                              #  THIS IS THE JOB DONE EVERY ITERATION
021506,000119: 21,2106           00601                           OCT      00601                                 
021507,000120: 21,2107           11742                           CCS      GEOCOMPS                              
021508,000121: 21,2110           02112                           TC       +2                                    
021509,000122: 21,2111           02116                           TC       NORMLOP                               
021510,000123: 21,2112           04063                           TC       BANKCALL                              #  COMPENSATION IF IN COMPASS
021511,000124: 21,2113           16000                           CADR     1/PIPA                                
021512,000125: 21,2114           02116                           TC       NORMLOP                               
021513,000126: 
021514,000127: 
021515,000128: 21,2115           03070        ALFLT1             TC       LOADSTDT                              #  COMES HERE ON RESTART
021516,000129: 
021517,000130: 21,2116           06000        NORMLOP            TC       INTPRET                               
021518,000131: 21,2117           77745                           DLOAD                                          
021519,000132: 21,2120           03351                                    INTVAL                                
021520,000133: 21,2121           00051                           STORE    S1                                    #  STEP REGISTERS MAY HAVE BEEN WIPED OUT
021521,000134: 21,2122           53135                           SLOAD    BZE                                   
021522,000135: 21,2123           01743                                    GEOCOMPS                              
021523,000136: 21,2124           42127                                    ALCGKK                                
021524,000137: 21,2125           77650                           GOTO                                           
021525,000138: 21,2126           42144                                    ALFLT2                                
021526,000139: 21,2127           50135        ALCGKK             SLOAD    BMN                                   
021527,000140: 21,2130           01666                                    ALTIMS                                
021528,000141: 21,2131           42144                                    ALFLT2                                
021529,000142: 21,2132           72174        ALKCG              AXT,2    LXA,1                                 #  LOADS SLOPES AND TIME CONSTANTS AT RQST
021530,000143: 21,2133           00014                                    12D                                   
021531,000144: 21,2134           01600                                    ALX1S                                 
021532,000145: 21,2135           62143        ALKCG2             DLOAD*   INCR,1                                
021533,000146: 21,2136           03343                                    ALFDK      +144D,1                    
021534,000147: 21,2137           77775                           DEC      -2         B-14                       
021535,000148: 21,2140           05701                           STORE    ALDK       +10D,2                     
021536,000149: 21,2141           66104                           TIX,2    SXA,1                                 
021537,000150: 21,2142           42135                                    ALKCG2                                
021538,000151: 21,2143           01600                                    ALX1S                                 
021539,000152: 
021540,000153: 21,2144           61375        ALFLT2             VLOAD    VXM                                   
021541,000154: 21,2145           00404                                    DELVX                                 
021542,000155: 21,2146           01750                                    GEOMTRX                               
021543,000156: 21,2147           77772                           VSL1                                           
021544,000157: 21,2150           57545                           DLOAD    DCOMP                                 
021545,000158: 21,2151           00144                                    MPAC       +3                         
021546,000159: 21,2152           07657                           STODL    DPIPAY                                
021547,000160: 21,2153           00146                                    MPAC       +5                         
021548,000161: 21,2154           01663                           STORE    DPIPAZ                                
021549,000162: 
021550,000163: 21,2155           76001                           SETPD    AXT,1                                 #  MEASUREMENT INCORPORATION ROUTINES.
021551,000164: 21,2156           00001                                    0                                     
021552,000165: 21,2157           00010                                    8D                                    

Page 517

021554,000167: 21,2160           53135                           SLOAD    BZE                                   
021555,000168: 21,2161           01743                                    GEOCOMPS                              
021556,000169: 21,2162           42165                                    DELMLP                                
021557,000170: 21,2163           77650                           GOTO                                           
021558,000171: 21,2164           42466                                    ALWAYSG                               #  DO A QUICK COMPASS
021559,000172: 
021560,000173: 21,2165           41343        DELMLP             DLOAD*   DMP                                   
021561,000174: 21,2166           01667                                    DPIPAY     +8D,1                      
021562,000175: 21,2167           03364                                    PIPASC                                
021563,000176: 21,2170           42661                           SLR      DAD*                                  
021564,000177: 21,2171           01212                                    9D                                    
021565,000178: 21,2172           01715                                    DELM       +8D,1                      
021566,000179: 21,2173           64623                           DSU*     PDDL*                                 
021567,000180: 21,2174           01635                                    INTY       +8D,1                      
021568,000181: 21,2175           01655                                    VLAUN      +8D,1                      
021569,000182: 21,2176           41223                           DSU*     DMP                                   
021570,000183: 21,2177           01627                                    VLAUNS     +8D,1                      
021571,000184: 21,2200           03366                                    VELSC                                 
021572,000185: 21,2201           77732                           SL2R                                           
021573,000186: 21,2202           45415                           DAD      STADR                                 
021574,000187: 21,2203           74062                           STORE    DELM       +8D,1                      
021575,000188: 21,2204           17717                           STODL*   DELM       +10D,1                     
021576,000189: 21,2205           01655                                    VLAUN      +8D,1                      
021577,000190: 21,2206           11627                           STODL    VLAUNS     +8D,1                      
021578,000191: 21,2207           03347                                    INTVAL     -2                         
021579,000192: 21,2210           03635                           STORE    INTY       +8D,1                      
021580,000193: 21,2211           77100                           TIX,1    AXT,2                                 
021581,000194: 21,2212           42165                                    DELMLP                                
021582,000195: 21,2213           00004                                    4                                     
021583,000196: 21,2214           56743        ALILP              DLOAD*   DMPR*                                 
021584,000197: 21,2215           76170                                    ALK        +4,2                       
021585,000198: 21,2216           76104                                    ALDK       +4,2                       
021586,000199: 21,2217           05607                           STORE    ALK        +4,2                       
021587,000200: 21,2220           77104                           TIX,2    AXT,2                                 
021588,000201: 21,2221           42214                                    ALILP                                 
021589,000202: 21,2222           00010                                    8D                                    
021590,000203: 21,2223           66140        ALKLP              LXC,1    SXA,1                                 
021591,000204: 21,2224           01601                                    CMPX1                                 
021592,000205: 21,2225           01601                                    CMPX1                                 
021593,000206: 21,2226           56743                           DLOAD*   DMPR*                                 
021594,000207: 21,2227           01604                                    ALK        +1,1                       
021595,000208: 21,2230           76062                                    DELM       +8D,2                      
021596,000209: 21,2231           77613                           DAD*                                           
021597,000210: 21,2232           76142                                    INTY       +8D,2                      
021598,000211: 21,2233           21635                           STODL*   INTY       +8D,2                      
021599,000212: 21,2234           76160                                    ALK        +12D,2                     
021600,000213: 21,2235           77613                           DAD*                                           
021601,000214: 21,2236           76074                                    ALDK       +12D,2                     
021602,000215: 21,2237           05617                           STORE    ALK        +12D,2                     
021603,000216: 21,2240           42673                           DMPR*    DAD*                                  
021604,000217: 21,2241           76062                                    DELM       +8D,2                      

Page 518

021606,000219: 21,2242           76132                                    INTY       +16D,2                     
021607,000220: 21,2243           21645                           STODL*   INTY       +16D,2                     
021608,000221: 21,2244           03371                                    ALSK       +1,1                       
021609,000222: 21,2245           76403                           DMP*     SL1R                                  
021610,000223: 21,2246           76062                                    DELM       +8D,2                      
021611,000224: 21,2247           77613                           DAD*                                           
021612,000225: 21,2250           76122                                    VLAUN      +8D,2                      
021613,000226: 21,2251           05655                           STORE    VLAUN      +8D,2                      
021614,000227: 21,2252           76104                           TIX,2    AXT,1                                 
021615,000228: 21,2253           42223                                    ALKLP                                 
021616,000229: 21,2254           00010                                    8D                                    
021617,000230: 
021618,000231: 
021619,000232: 21,2255           64743        LOOSE              DLOAD*   PDDL*                                 
021620,000233: 21,2256           01657                                    ACCWD      +8D,1                      
021621,000234: 21,2257           01655                                    VLAUN      +8D,1                      
021622,000235: 21,2260           55523                           PDDL*    VDEF                                  
021623,000236: 21,2261           01665                                    POSNV      +8D,1                      
021624,000237: 21,2262           76521                           MXV      VSL1                                  
021625,000238: 21,2263           01721                                    TRANSM1                               
021626,000239: 21,2264           77745                           DLOAD                                          
021627,000240: 21,2265           00141                                    MPAC                                  
021628,000241: 21,2266           11665                           STODL    POSNV      +8D,1                      
021629,000242: 21,2267           00144                                    MPAC       +3                         
021630,000243: 21,2270           11655                           STODL    VLAUN      +8D,1                      
021631,000244: 21,2271           00146                                    MPAC       +5                         
021632,000245: 21,2272           03657                           STORE    ACCWD      +8D,1                      
021633,000246: 21,2273           77700                           TIX,1                                          
021634,000247: 21,2274           42255                                    LOOSE                                 
021635,000248: 
021636,000249: 
021637,000250: 21,2275           76174                           AXT,2    AXT,1                                 #  EVALUATE SINES AND COSINES
021638,000251: 21,2276           00006                                    6                                     
021639,000252: 21,2277           00002                                    2                                     
021640,000253: 21,2300           57343        BOOP               DLOAD*   DMPR                                  
021641,000254: 21,2301           01637                                    ANGX       +2,1                       
021642,000255: 21,2302           03374                                    GEORGEJ                               
021643,000256: 21,2303           77722                           SR2R                                           
021644,000257: 21,2304           73406                           PUSH     SIN                                   
021645,000258: 21,2305           56172                           SL1R     XAD,1                                 
021646,000259: 21,2306           00046                                    X1                                    
021647,000260: 21,2307           12021                           STODL    16D,2                                 
021648,000261: 21,2310           77746                           COS                                            
021649,000262: 21,2311           04027                           STORE    22D,2                                 #  COSINES
021650,000263: 21,2312           71304                           TIX,2    DLOAD                                 
021651,000264: 21,2313           42300                                    BOOP                                  

Page 519

021653,000266: 21,2314           00017                                    14D                                   
021654,000267: 21,2315           43312                           SL2      DAD                                   
021655,000268: 21,2316           01625                                    INTY                                  
021656,000269: 21,2317           07625                           STODL    INTY                                  
021657,000270: 21,2320           00015                                    12D                                   
021658,000271: 21,2321           56405                           DMP      SL3R                                  
021659,000272: 21,2322           00025                                    20D                                   
021660,000273: 21,2323           77615                           DAD                                            
021661,000274: 21,2324           01631                                    INTZ                                  
021662,000275: 21,2325           07631                           STODL    INTZ                                  
021663,000276: 21,2326           00021                                    16D                                   
021664,000277: 21,2327           57275                           DMPR     DMPR                                  
021665,000278: 21,2330           00023                                    18D                                   
021666,000279: 21,2331           00017                                    14D                                   
021667,000280: 21,2332           77712                           SL2                                            
021668,000281: 21,2333           57325                           PDDL     DMPR                                  
021669,000282: 21,2334           00013                                    10D                                   
021670,000283: 21,2335           00015                                    12D                                   
021671,000284: 21,2336           77615                           DAD                                            
021672,000285: 21,2337           77675                           DMPR                                           
021673,000286: 21,2340           01573                                    WANGI                                 
021674,000287: 21,2341           57325                           PDDL     DMPR                                  
021675,000288: 21,2342           00023                                    18D                                   
021676,000289: 21,2343           00025                                    20D                                   
021677,000290: 21,2344           66405                           DMP      SL2R                                  
021678,000291: 21,2345           01571                                    WANGO                                 
021679,000292: 21,2346           77621                           BDSU                                           
021680,000293: 21,2347           01637                                    DRIFTO                                
021681,000294: 21,2350           45425                           DSU      STADR                                 
021682,000295: 21,2351           70156                           STODL    WPLATO                                
021683,000296: 21,2352           00021                                    16D                                   
021684,000297: 21,2353           41275                           DMPR     DMP                                   
021685,000298: 21,2354           00025                                    20D                                   
021686,000299: 21,2355           01573                                    WANGI                                 
021687,000300: 21,2356           77732                           SL2R                                           
021688,000301: 21,2357           57325                           PDDL     DMPR                                  
021689,000302: 21,2360           01571                                    WANGO                                 
021690,000303: 21,2361           00017                                    14D                                   
021691,000304: 21,2362           77615                           DAD                                            
021692,000305: 21,2363           01641                                    DRIFTI                                
021693,000306: 21,2364           77625                           DSU                                            
021694,000307: 21,2365           57325                           PDDL     DMPR                                  
021695,000308: 21,2366           01575                                    WANGT                                 
021696,000309: 21,2367           01573                                    WANGI                                 
021697,000310: 21,2370           45415                           DAD      STADR                                 
021698,000311: 21,2371           70062                           STODL    WPLATI                                
021699,000312: 21,2372           00023                                    18D                                   
021700,000313: 21,2373           76405                           DMP      SL1R                                  
021701,000314: 21,2374           00013                                    10D                                   
021702,000315: 21,2375           57325                           PDDL     DMPR                                  

Page 520

021704,000317: 21,2376           00015                                    12D                                   
021705,000318: 21,2377           00021                                    16D                                   
021706,000319: 21,2400           76405                           DMP      SL1R                                  
021707,000320: 21,2401           00017                                    14D                                   
021708,000321: 21,2402           77621                           BDSU                                           
021709,000322: 21,2403           77675                           DMPR                                           
021710,000323: 21,2404           01573                                    WANGI                                 
021711,000324: 21,2405           57325                           PDDL     DMPR                                  
021712,000325: 21,2406           00015                                    12D                                   
021713,000326: 21,2407           00025                                    20D                                   
021714,000327: 21,2410           76405                           DMP      SL1R                                  
021715,000328: 21,2411           01571                                    WANGO                                 
021716,000329: 21,2412           77621                           BDSU                                           
021717,000330: 21,2413           01577                                    DRIFTT                                
021718,000331: 21,2414           77615                           DAD                                            #   WPLATT NOW IN MPAC
021719,000332: 21,2415           77606                           PUSH                                           #  PUSH IT DOWN-X IT BY SANG +2
021720,000333: 21,2416           74475                           DMPR     SR1R                                  
021721,000334: 21,2417           00015                                    12D                                   
021722,000335: 21,2420           57325                           PDDL     DMPR                                  
021723,000336: 21,2421           01621                                    WPLATO                                
021724,000337: 21,2422           00023                                    18D                                   
021725,000338: 21,2423           77615                           DAD                                            
021726,000339: 21,2424           77671                           DDV                                            
021727,000340: 21,2425           00025                                    20D                                   
021728,000341: 21,2426           57206                           PUSH     DMPR                                  
021729,000342: 21,2427           03376                                    GEORGEK                               
021730,000343: 21,2430           43261                           SRR      DAD                                   
021731,000344: 21,2431           01616                                    13D                                   
021732,000345: 21,2432           01635                                    ANGX                                  
021733,000346: 21,2433           07635                           STODL    ANGX                                  
021734,000347: 21,2434           43275                           DMPR     DAD                                   
021735,000348: 21,2435           00017                                    14D                                   
021736,000349: 21,2436           01715                                    WPLATI                                
021737,000350: 21,2437           54275                           DMPR     SRR                                   
021738,000351: 21,2440           03376                                    GEORGEK                               
021739,000352: 21,2441           01616                                    13D                                   
021740,000353: 21,2442           77615                           DAD                                            
021741,000354: 21,2443           01633                                    ANGY                                  
021742,000355: 21,2444           07633                           STODL    ANGY                                  
021743,000356: 21,2445           00023                                    18D                                   
021744,000357: 21,2446           76405                           DMP      SL1R                                  #  MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
021745,000358: 21,2447           57325                           PDDL     DMPR                                  
021746,000359: 21,2450           00015                                    12D                                   
021747,000360: 21,2451           01621                                    WPLATO                                
021748,000361: 21,2452           77621                           BDSU                                           
021749,000362: 21,2453           54275                           DMPR     SRR                                   
021750,000363: 21,2454           03376                                    GEORGEK                               
021751,000364: 21,2455           01616                                    13D                                   
021752,000365: 21,2456           77615                           DAD                                            
021753,000366: 21,2457           01627                                    ANGZ                                  

Page 521

021755,000368: 21,2460           01627                           STORE    ANGZ                                  
021756,000369: 21,2461           77404                           BOVB     EXIT                                  
021757,000370: 21,2462           42716                                    SOMEERRR                              
021758,000371: 21,2463           11527                           CCS      LENGTHOT                              
021759,000372: 21,2464           02666                           TC       SLEEPIE                               
021760,000373: 21,2465           02631                           TC       SETUPER1                              
021761,000374: 
021762,000375: 
021763,000376: 21,2466           44743        ALWAYSG            DLOAD*   DSU*                                  #  COMPASS AND ERECT
021764,000377: 21,2467           01667                                    DPIPAY     +8D,1                      
021765,000378: 21,2470           01655                                    FILDELV    +8D,1                      
021766,000379: 21,2471           42675                           DMPR     DAD*                                  
021767,000380: 21,2472           03400                                    GEOCONS1                              
021768,000381: 21,2473           01655                                    FILDELV    +8D,1                      
021769,000382: 21,2474           03655                           STORE    FILDELV    +8D,1                      
021770,000383: 21,2475           77613                           DAD*                                           
021771,000384: 21,2476           01657                                    INTVEC     +8D,1                      
021772,000385: 21,2477           03657                           STORE    INTVEC     +8D,1                      
021773,000386: 21,2500           42675                           DMPR     DAD*                                  
021774,000387: 21,2501           03402                                    GEOCONS2                              
021775,000388: 21,2502           01655                                    FILDELV    +8D,1                      
021776,000389: 21,2503           41475                           DMPR     PUSH                                  
021777,000390: 21,2504           03400                                    GEOCONS1                              
021778,000391: 21,2505           67300                           TIX,1    SLOAD                                 
021779,000392: 21,2506           42466                                    ALWAYSG                               
021780,000393: 21,2507           01747                                    ERECTIME                              
021781,000394: 21,2510           71254                           BZE      DLOAD                                 
021782,000395: 21,2511           42522                                    COMPGS                                #  COMPASS
021783,000396: 21,2512           01627                                    THETAN     +2                         
021784,000397: 21,2513           45425                           DSU      STADR                                 
021785,000398: 21,2514           70150                           STODL    THETAN     +2                         
021786,000399: 21,2515           77621                           BDSU                                           
021787,000400: 21,2516           01631                                    THETAN     +4                         
021788,000401: 21,2517           01631                           STORE    THETAN     +4                         
021789,000402: 21,2520           77650                           GOTO                                           
021790,000403: 21,2521           42544                                    ADDINDRF                              
021791,000404: 21,2522           43345        COMPGS             DLOAD    DAD                                   #  COMPASS
021792,000405: 21,2523           01625                                    THETAN                                
021793,000406: 21,2524           01645                                    FILDELV                               
021794,000407: 21,2525           07625                           STODL    THETAN                                
021795,000408: 21,2526           01645                                    FILDELV                               
021796,000409: 21,2527           44275                           DMPR     BDSU                                  
021797,000410: 21,2530           03404                                    GEOCONS3                              
021798,000411: 21,2531           01631                                    THETAN     +4                         
021799,000412: 21,2532           07631                           STODL    THETAN     +4                         
021800,000413: 21,2533           01651                                    FILDELV    +4                         
021801,000414: 21,2534           44275                           DMPR     BDSU                                  
021802,000415: 21,2535           03404                                    GEOCONS3                              
021803,000416: 21,2536           01627                                    THETAN     +2                         

Page 522

021805,000418: 21,2537           41325                           PDDL     DMP                                   
021806,000419: 21,2540           01653                                    INTVEC     +4                         
021807,000420: 21,2541           03406                                    GEOCONS4                              
021808,000421: 21,2542           45421                           BDSU     STADR                                 
021809,000422: 21,2543           76150                           STORE    THETAN     +2                         
021810,000423: 21,2544           64375        ADDINDRF           VLOAD    MXV                                   
021811,000424: 21,2545           01625                                    THETAN                                
021812,000425: 21,2546           01750                                    GEOMTRX                               
021813,000426: 21,2547           53372                           VSL1     VAD                                   
021814,000427: 21,2550           01617                                    THETAX                                
021815,000428: 21,2551           01617                           STORE    THETAX                                
021816,000429: 21,2552           77776                           EXIT                                           
021817,000430: 
021818,000431: 21,2553           11527        ENDGTSAL           CCS      LENGTHOT                              #  IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
021819,000432: 21,2554           02666                           TC       SLEEPIE                               #  NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
021820,000433: 21,2555           10357                           CCS      LGYRO                                 #  YES BUT ARE GYROS BUSY
021821,000434: 21,2556           12742                           TCF      ANNNNNN    +2                         #  BUSY-GET THEM .5 SECONDS FROM NOW
021822,000435: 
021823,000436: 21,2557           04614                           TC       PHASCHNG                              
021824,000437: 21,2560           00401                           OCT      00401                                 
021825,000438: 21,2561           06000                           TC       INTPRET                               #  ADD COMPASS COMMANDS INTO ERATE
021826,000439: 21,2562           53375                           VLOAD    VAD                                   
021827,000440: 21,2563           01617                                    THETAX                                
021828,000441: 21,2564           01772                                    ERCOMP                                
021829,000442: 21,2565           01772                           STORE    ERCOMP                                
021830,000443: 21,2566           77776                           EXIT                                           
021831,000444: 21,2567           04063                           TC       BANKCALL                              
021832,000445: 21,2570           30422                           CADR     EARTHR                                #  TORQUE IT ALL IN
021833,000446: 
021834,000447: 21,2571           00004        RESTEST1           INHINT                                         #  CHECK ON ORIENTATION CHANGE
021835,000448: 21,2572           31717                           CA       PREMTRXC                              
021836,000449: 21,2573           00006                           EXTEND                                         
021837,000450: 21,2574           62727                           BZMF     NOCHORLD                              #  +1 -CHANGE, 0 OR -1 NO LOAD OR LOADING
021838,000451: 21,2575           03107                           TC       LOADXSM                               #  IF THERE WAS A CHANGE LOAD IT INTO XSM
021839,000452: 21,2576           04614                           TC       PHASCHNG                              
021840,000453: 21,2577           01001                           OCT      01001                                 
021841,000454: 21,2600           37665        RESTEST3           CA       ZERO                                  #  RESET CHANGE INDEX TO ZERO
021842,000455: 21,2601           55717                           TS       PREMTRXC                              
021843,000456: 21,2602           00003                           RELINT                                         

Page 523

021845,000458: 21,2603           06000                           TC       INTPRET                               #  HERE TO CHANGE ORIENTATOON
021846,000459: 21,2604           77770                           AXT,1                                          #  DESIRED IN XSM,PRESENT IN GEOMTRX
021847,000460: 21,2605           00022                                    18D                                   
021848,000461: 21,2606           77731                           SSP                                            
021849,000462: 21,2607           00051                                    S1                                    
021850,000463: 21,2610           00006                                    6                                     
021851,000464: 21,2611           50373        LOADM              VLOAD*   DOT                                   
021852,000465: 21,2612           01423                                    XSM        +18D,1                     
021853,000466: 21,2613           01764                                    GEOMTRX    +12D                       
021854,000467: 21,2614           50313                           PDVL*    DOT                                   
021855,000468: 21,2615           01423                                    XSM        +18D,1                     
021856,000469: 21,2616           01756                                    GEOMTRX    +6D                        
021857,000470: 21,2617           50313                           PDVL*    DOT                                   
021858,000471: 21,2620           01423                                    XSM        +18D,1                     
021859,000472: 21,2621           01750                                    GEOMTRX                               
021860,000473: 21,2622           53466                           VDEF     UNIT                                  
021861,000474: 21,2623           03445                           STORE    XDC        +18D,1                     
021862,000475: 21,2624           47100                           TIX,1    CALL                                  
021863,000476: 21,2625           42611                                    LOADM                                 
021864,000477: 21,2626           32367                                    CALCGTA                               
021865,000478: 21,2627           77776                           EXIT                                           
021866,000479: 21,2630           02645                           TC       TORQINCH                              #  NECESSARY TORQUE NOW IN OGC
021867,000480: 
021868,000481: 
021869,000482: 21,2631           06000        SETUPER1           TC       INTPRET                               
021870,000483: 21,2632           65345                           DLOAD    PDDL                                  #  ANGLES FROM DRIFT TEST ONLY
021871,000484: 21,2633           01627                                    ANGZ                                  
021872,000485: 21,2634           01633                                    ANGY                                  
021873,000486: 21,2635           55525                           PDDL     VDEF                                  
021874,000487: 21,2636           01635                                    ANGX                                  
021875,000488: 21,2637           74276                           VCOMP    VXSC                                  
021876,000489: 21,2640           03374                                    GEORGEJ                               
021877,000490: 21,2641           74521                           MXV      VSR1                                  
021878,000491: 21,2642           01750                                    GEOMTRX                               
021879,000492: 21,2643           01501                           STORE    OGC                                   
021880,000493: 21,2644           77776                           EXIT                                           
021881,000494: 
021882,000495: 
021883,000496: 21,2645           04614        TORQINCH           TC       PHASCHNG                              
021884,000497: 21,2646           00501                           OCT      00501                                 
021885,000498: 21,2647           33362                           CA       AINGYRO                               
021886,000499: 21,2650           04063                           TC       BANKCALL                              
021887,000500: 21,2651           26317                           CADR     IMUPULSE                              
021888,000501: 21,2652           04063                           TC       BANKCALL                              
021889,000502: 21,2653           26716                           CADR     IMUSTALL                              
021890,000503: 21,2654           02721                           TC       SOMERR2                               #  BAD GYRO TORQUE-END OF TEST
021891,000504: 

Page 524

021893,000506: 21,2655           11574        GEOSTRT4           CCS      TORQNDX                               #   ONLY POSITIVE IF IN VERTICAL DRIFT TEST
021894,000507: 21,2656           02664                           TC       GEOBAVR                               #  VERT DRIFT TEST OVER
021895,000508: 21,2657           02753                           TC       SETUPER                               #   SET UP ERATE FOR PIPTEST OR COMPASS
021896,000509: 21,2660           11742                           CCS      GEOCOMPS                              
021897,000510: 21,2661           02725                           TC       TQORESTM                              
021898,000511: 21,2662           04063                           TC       BANKCALL                              #  GO TO IMU2 FOR A PIPA TEST AND DISPLAY
021899,000512: 21,2663           36075                           CADR     TORQUE                                
021900,000513: 
021901,000514: 21,2664           04063        GEOBAVR            TC       BANKCALL                              
021902,000515: 21,2665           36223                           CADR     VALMIS                                #   DISPLAY VERTICAL DRIFT
021903,000516: 
021904,000517: 

Page 525

021906,000519:                                                                                                  #  SET UP WAITLIST SECTION
021907,000520: 
021908,000521: 21,2666           55527        SLEEPIE            TS       LENGTHOT                              #  TEST NOT OVER-DECREMENT LENGTHOT
021909,000522: 21,2667           04614                           TC       PHASCHNG                              #   CHANGE PHASE
021910,000523: 21,2670           00301                           OCT      00301                                 
021911,000524: 21,2671           11574                           CCS      TORQNDX                               #  ARE WE DOING VERTDRIFT
021912,000525: 21,2672           02674                           TC       EARTTPRQ                              #  YES,DO HOR ERATE TORQ THEN SLEEP
021913,000526: 21,2673           02676                           TC       WTLISTNT                              #  GO TO SET UP NEXT WAITLIST
021914,000527: 21,2674           04063        EARTTPRQ           TC       BANKCALL                              #  IN VERTDRIFT,ADD HOR ERATE AND SLEEP
021915,000528: 21,2675           30422                           CADR     EARTHR                                
021916,000529: 21,2676           00004        WTLISTNT           INHINT                                         
021917,000530: 21,2677           40025                           CS       TIME1                                 
021918,000531: 21,2700           61745                           AD       GTSWTLST                              
021919,000532: 21,2701           00006                           EXTEND                                         
021920,000533: 21,2702           62704                           BZMF     +2                                    
021921,000534: 21,2703           67641                           AD       NEGMAX                                
021922,000535: 21,2704           61744                           AD       1SECXT                                #  1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
021923,000536: 21,2705           00006                           EXTEND                                         
021924,000537: 21,2706           62714                           BZMF     RIGHTGTS                              
021925,000538: 21,2707           04536        WTGTSMPL           TC       WAITLIST                              
021926,000539: 21,2710           02042 42005                     2CADR    ALLOOP                                
021927,000540: 
021928,000541: 21,2712           00003                           RELINT                                         
021929,000542: 21,2713           04440                           TC       ENDOFJOB                              
021930,000543: 21,2714           37656        RIGHTGTS           CAF      TWO                                   
021931,000544: 21,2715           02707                           TC       WTGTSMPL                              
021932,000545: 
021933,000546: 
021934,000547: 21,2716           05413        SOMEERRR           TC       ALARM                                 
021935,000548: 21,2717           01600                           OCT      1600                                  
021936,000549: 21,2720           02723                           TC       +3                                    
021937,000550: 21,2721           05413        SOMERR2            TC       ALARM                                 
021938,000551: 21,2722           01601                           OCT      1601                                  
021939,000552: 21,2723           04063                           TC       BANKCALL                              
021940,000553: 21,2724           30745                           CADR     ENDTEST                               
021941,000554: 

Page 526

021943,000556: 21,2725           04063        TQORESTM           TC       BANKCALL                              
021944,000557: 21,2726           37612                           CADR     LOADGTSM                              #  LOAD NEW XSM MATRIX INTO GEOMTRX
021945,000558: 
021946,000559: 21,2727           00003        NOCHORLD           RELINT                                         #  AFTER CHANGEIN ORIEN OR NO CHANGE
021947,000560: 21,2730           06000                           TC       INTPRET                               
021948,000561: 21,2731           77775                           VLOAD                                          
021949,000562: 21,2732           03343                                    SCHZEROS                              
021950,000563: 21,2733           01617                           STORE    THETAX                                
021951,000564: 21,2734           01625                           STORE    THETAN                                
021952,000565: 21,2735           77776                           EXIT                                           
021953,000566: 21,2736           11746                           CCS      ERECTIME                              
021954,000567: 21,2737           55746                           TS       ERECTIME                              #         COUNTS DOWN FOR ERECTION
021955,000568: 
021956,000569: 21,2740           37662        ANNNNNN            CAF      NINE                                  
021957,000570: 21,2741           55527                           TS       LENGTHOT                              
021958,000571: 21,2742           11746                           CCS      ERECTIME                              
021959,000572: 21,2743           02667                           TC       SLEEPIE    +1                         
021960,000573: 21,2744           04702                           TC       CHECKMM                               #  IN COMPASS CHECK FOR VERIFICATION
021961,000574: 21,2745           00003                           OCT      03                                    
021962,000575: 21,2746           02750                           TC       +2                                    #  NOT VERIFYING
021963,000576: 21,2747           02667                           TC       SLEEPIE    +1                         #  YES
021964,000577: 21,2750           04667                           TC       NEWMODEX                              
021965,000578: 21,2751           00002                           OCT      02                                    
021966,000579: 21,2752           02667                           TC       SLEEPIE    +1                         #  COMPASS IS 02  -ERECTION 05
021967,000580: 21,2753           00006        SETUPER            EXTEND                                         #  SUBROUTINE CALLED IN 3 PLACES
021968,000581: 21,2754           23547                           QXCH     QPLACES                               
021969,000582: 21,2755           06000                           TC       INTPRET                               
021970,000583: 21,2756           77634                           CALL                                           
021971,000584: 21,2757           30405                                    ERTHRVSE                              
021972,000585: 21,2760           77776                           EXIT                                           
021973,000586: 21,2761           04063                           TC       BANKCALL                              
021974,000587: 21,2762           30727                           CADR     OGCZERO                               
021975,000588: 21,2763           01547                           TC       QPLACES                               
021976,000589: 

Page 527

021978,000591: 21,2764           51074        OPTMSTRT           INDEX    PHASE1                                
021979,000592: 21,2765           02765                           TC       +0                                    
021980,000593: 21,2766           02776                           TC       GTSGTS1                               
021981,000594: 21,2767           03003                           TC       GTSGTS2                               
021982,000595: 21,2770           03010                           TC       GTSGTS3                               
021983,000596: 21,2771           03015                           TC       GTSGTS4                               
021984,000597: 21,2772           03022                           TC       GTSGTS5                               
021985,000598: 21,2773           03027                           TC       GTSGTS6                               
021986,000599: 21,2774           03034                           TC       GTSGTS7                               
021987,000600: 21,2775           03040                           TC       GTSGTS10                              
021988,000601: 
021989,000602: 
021990,000603: 21,2776           37642        GTSGTS1            CAF      PRIO20                                
021991,000604: 21,2777           04374                           TC       FINDVAC                               
021992,000605: 21,3000           02002 42005                     2CADR    RSTGTS1                               
021993,000606: 
021994,000607: 21,3002           04076                           TC       SWRETURN                              
021995,000608: 21,3003           37657        GTSGTS2            CAF      ONE                                   
021996,000609: 21,3004           04536                           TC       WAITLIST                              
021997,000610: 21,3005           02052 42005                     2CADR    ALLOOP1                               
021998,000611: 
021999,000612: 21,3007           04076                           TC       SWRETURN                              
022000,000613: 21,3010           37642        GTSGTS3            CAF      PRIO20                                
022001,000614: 21,3011           04374                           TC       FINDVAC                               
022002,000615: 21,3012           02676 42005                     2CADR    WTLISTNT                              
022003,000616: 
022004,000617: 21,3014           04076                           TC       SWRETURN                              
022005,000618: 21,3015           37642        GTSGTS4            CAF      PRIO20                                
022006,000619: 21,3016           04374                           TC       FINDVAC                               
022007,000620: 21,3017           02571 42005                     2CADR    RESTEST1                              
022008,000621: 
022009,000622: 21,3021           04076                           TC       SWRETURN                              
022010,000623: 21,3022           37642        GTSGTS5            CAF      PRIO20                                
022011,000624: 21,3023           04374                           TC       FINDVAC                               
022012,000625: 21,3024           02655 42005                     2CADR    GEOSTRT4                              
022013,000626: 
022014,000627: 21,3026           04076                           TC       SWRETURN                              
022015,000628: 21,3027           37642        GTSGTS6            CAF      PRIO20                                
022016,000629: 21,3030           04374                           TC       FINDVAC                               
022017,000630: 21,3031           02115 42005                     2CADR    ALFLT1                                
022018,000631: 
022019,000632: 21,3033           04076                           TC       SWRETURN                              
022020,000633: 
022021,000634: 21,3034           37657        GTSGTS7            CAF      ONE                                   
022022,000635: 21,3035           04536                           TC       WAITLIST                              
022023,000636: 21,3036           02077 42005                     2CADR    SPECSTS                               
022024,000637: 
022025,000638: 21,3040           37642        GTSGTS10           CAF      PRIO20                                
022026,000639: 21,3041           04374                           TC       FINDVAC                               

Page 528

022028,000641: 21,3042           02600 42005                     2CADR    RESTEST3                              
022029,000642: 
022030,000643: 21,3044           04076                           TC       SWRETURN                              
022031,000644: 

Page 529

022033,000646: 21,3045           02000        GEOBND             OCT      02000                                 #   BANK 4  -THIS IS THE STORE DTA SECTION
022034,000647: 21,3046           02400        GEOBND1            OCT      02400                                 #  BANK NUMBER 5
022035,000648: 
022036,000649: 
022037,000650: 21,3047           33045        STOREDTA           CAF      GEOBND                                
022038,000651: 21,3050           54001                           TS       L                                     
022039,000652: 21,3051           33360                           CAF      77DECML                               
022040,000653: 21,3052           54140                           TS       MPAC                                  
022041,000654: 21,3053           50140                           INDEX    MPAC                                  
022042,000655: 21,3054           31600                           CA       ALX1S                                 
022043,000656: 21,3055           22003                           LXCH     EBANK                                 
022044,000657: 21,3056  E4,1407                                  EBANK=   JETSTEP                               
022045,000658: 21,3056           50140                           INDEX    MPAC                                  
022046,000659: 21,3057           55407                           TS       JETSTEP                               
022047,000660: 21,3060           22003                           LXCH     EBANK                                 
022048,000661: 21,3061  E5,1400                                  EBANK=   XSM                                   
022049,000662: 21,3061           10140                           CCS      MPAC                                  
022050,000663: 21,3062           13064                           TCF      +2                                    
022051,000664: 21,3063           00002                           TC       Q                                     
022052,000665: 21,3064           54140                           TS       MPAC                                  
022053,000666: 21,3065           33045                           CAF      GEOBND                                
022054,000667: 21,3066           54001                           TS       L                                     
022055,000668: 21,3067           13053                           TCF      STOREDTA   +4                         
022056,000669: 
022057,000670: 
022058,000671: 21,3070           33360        LOADSTDT           CAF      77DECML                               
022059,000672: 21,3071           54140                           TS       MPAC                                  
022060,000673: 21,3072           33045                           CA       GEOBND                                
022061,000674: 21,3073           56003                           XCH      EBANK                                 
022062,000675: 21,3074           54001                           TS       L                                     
022063,000676: 21,3075  E4,1407                                  EBANK=   JETSTEP                               
022064,000677: 21,3075           50140                           INDEX    MPAC                                  
022065,000678: 21,3076           31407                           CA       JETSTEP                               
022066,000679: 21,3077           22003                           LXCH     EBANK                                 
022067,000680: 21,3100  E5,1400                                  EBANK=   XSM                                   
022068,000681: 21,3100           50140                           INDEX    MPAC                                  
022069,000682: 21,3101           55600                           TS       ALX1S                                 
022070,000683: 21,3102           10140                           CCS      MPAC                                  
022071,000684: 21,3103           13105                           TCF      +2                                    
022072,000685: 21,3104           00002                           TC       Q                                     
022073,000686: 21,3105           54140                           TS       MPAC                                  
022074,000687: 21,3106           13072                           TCF      LOADSTDT   +2                         
022075,000688: 

Page 530

022077,000690: 21,3107           00006        LOADXSM            EXTEND                                         
022078,000691: 21,3110           23547                           QXCH     QPLACES                               
022079,000692: 21,3111           33410                           CAF      17DECML                               
022080,000693: 21,3112           54140                           TS       MPAC                                  
022081,000694: 21,3113           50000                           INDEX    A                                     
022082,000695: 21,3114           31720                           CA       PRELMTRX                              
022083,000696: 21,3115           50140                           INDEX    MPAC                                  
022084,000697: 21,3116           55400                           TS       XSM                                   
022085,000698: 21,3117           10140                           CCS      MPAC                                  
022086,000699: 21,3120           13112                           TCF      LOADXSM    +3                         
022087,000700: 21,3121           01547                           TC       QPLACES                               
022088,000701: 21,3122           77743        ALFDK              DEC      -28        B-14                       #  SLOPES AND TIME CONSTANTS FOR FIRST 30SC
022089,000702: 21,3123           77776                           DEC      -1         B-14                       
022090,000703: 21,3124           35143 10237                     2DEC     .91230833                             #  TIME CONSTANTS-PIPA OUTPUTS
022091,000704: 
022092,000705: 21,3126           31766 26106                     2DEC     .81193187                             #  TIME CONSTANT-ERECTION ANGLES
022093,000706: 
022094,000707: 21,3130           77772 43677                     2DEC     -.00035882                            #  SLOPE-AZIMUTH ANGLE
022095,000708: 
022096,000709: 21,3132           77777 77661                     2DEC     -.00000029                            #  SLOPE-VERTICAL DRIFT
022097,000710: 
022098,000711: 21,3134           00002 05420                     2DEC     .00013262                             #  SLOPE-NORTH SOUTH DRIFT
022099,000712: 
022100,000713: 
022101,000714: 21,3136           77705                           DEC      -58        B-14                       #  31-90 SEC
022102,000715: 21,3137           77776                           DEC      -1         B-14                       
022103,000716: 21,3140           37560 05346                     2DEC     .99122133                             
022104,000717: 
022105,000718: 21,3142           37522 15525                     2DEC     .98940595                             
022106,000719: 
022107,000720: 21,3144           77763 41604                     2DEC     -.00079010                            
022108,000721: 
022109,000722: 21,3146           77777 76470                     2DEC     -.00000265                            
022110,000723: 
022111,000724: 21,3150           00007 02201                     2DEC     .00043154                             
022112,000725: 
022113,000726: 
022114,000727: 21,3152           77767                           DEC      -8         B-14                       #  91-100 SEC
022115,000728: 21,3153           77776                           DEC      -1         B-14                       
022116,000729: 21,3154           37773 10042                     2DEC     .99971021                             
022117,000730: 
022118,000731: 21,3156           37747 30232                     2DEC     .99852047                             
022119,000732: 
022120,000733: 21,3160           00006 37666                     2DEC     .00042697                             
022121,000734: 
022122,000735: 21,3162           77777 76703                     2DEC     -.00000213                            
022123,000736: 
022124,000737: 21,3164           00001 36147                     2DEC     .00011864                             
022125,000738: 

Page 531

022127,000740: 21,3166           77635                           DEC      -98        B-14                       #  101-200 SEC
022128,000741: 21,3167           77776                           DEC      -1         B-14                       
022129,000742: 21,3170           37666 11022                     2DEC     .99550063                             
022130,000743: 
022131,000744: 21,3172           37532 33647                     2DEC     .98992124                             
022132,000745: 
022133,000746: 21,3174           00007 03641                     2DEC     .00043452                             
022134,000747: 
022135,000748: 21,3176           77777 75713                     2DEC     -.00000401                            
022136,000749: 
022137,000750: 21,3200           77774 54605                     2DEC     -.00021980                            
022138,000751: 
022139,000752: 
022140,000753: 21,3202           77407                           DEC      -248       B-14                       #  201-450 SEC
022141,000754: 21,3203           77776                           DEC      -1         B-14                       
022142,000755: 21,3204           37712 16755                     2DEC     .99673264                             
022143,000756: 
022144,000757: 21,3206           37630 01160                     2DEC     .99365467                             
022145,000758: 
022146,000759: 21,3210           00000 23600                     2DEC     .00003767                             
022147,000760: 
022148,000761: 21,3212           77777 63663                     2DEC     -.00002317                            
022149,000762: 
022150,000763: 21,3214           77777 56527                     2DEC     -.00003305                            
022151,000764: 
022152,000765: 
022153,000766: 21,3216           77255                           DEC      -338       B-14                       #  451-790 SEC
022154,000767: 21,3217           77776                           DEC      -1         B-14                       
022155,000768: 21,3220           37763 23341                     2DEC     .99924362                             
022156,000769: 
022157,000770: 21,3222           37755 26170                     2DEC     .99888274                             
022158,000771: 
022159,000772: 21,3224           00000 00254                     2DEC     .00000064                             
022160,000773: 
022161,000774: 21,3226           77777 52755                     2DEC     -.00004012                            
022162,000775: 
022163,000776: 21,3230           77777 76764                     2DEC     -.00000195                            
022164,000777: 
022165,000778: 
022166,000779: 21,3232           77147                           DEC      -408       B-14                       #  791-1200 SEC
022167,000780: 21,3233           77776                           DEC      -1         B-14                       
022168,000781: 21,3234           37772 02343                     2DEC     .99963845                             
022169,000782: 
022170,000783: 21,3236           37761 30560                     2DEC     .99913162                             
022171,000784: 
022172,000785: 21,3240           00000 00362                     2DEC     .00000090                             
022173,000786: 

Page 532

022175,000788: 21,3242           00000 17261                     2DEC     .00002927                             
022176,000789: 
022177,000790: 21,3244           77777 77671                     2DEC     -.00000026                            
022178,000791: 
022179,000792: 
022180,000793: 21,3246           77015                           DEC      -498       B-14                       #  1201-1700 SEC
022181,000794: 21,3247           77776                           DEC      -1         B-14                       
022182,000795: 21,3250           37765 12403                     2DEC     .99934865                             
022183,000796: 
022184,000797: 21,3252           37752 20062                     2DEC     .99868793                             
022185,000798: 
022186,000799: 21,3254           00000 00224                     2DEC     .00000055                             
022187,000800: 
022188,000801: 21,3256           00000 06150                     2DEC     .00001183                             
022189,000802: 
022190,000803: 21,3260           77777 77762                     2DEC     -.00000005                            
022191,000804: 
022192,000805: 
022193,000806: 21,3262           77161                           DEC      -398       B-14                       #  1701-2100 SEC
022194,000807: 21,3263           77776                           DEC      -1         B-14                       
022195,000808: 21,3264           37767 12513                     2DEC     .99947099                             
022196,000809: 
022197,000810: 21,3266           37756 30343                     2DEC     .99894799                             
022198,000811: 
022199,000812: 21,3270           00000 00060                     2DEC     .00000018                             
022200,000813: 
022201,000814: 21,3272           00000 01445                     2DEC     .00000300                             
022202,000815: 
022203,000816: 21,3274           77777 77774                     2DEC     -.00000001                            
022204,000817: 
022205,000818: 
022206,000819: 21,3276           76651                           DEC      -598       B-14                       #  2101-2700 SEC
022207,000820: 21,3277           77776                           DEC      -1         B-14                       
022208,000821: 21,3300           37771 02603                     2DEC     .99957801                             
022209,000822: 
022210,000823: 21,3302           37762 10061                     2DEC     .99916095                             
022211,000824: 
022212,000825: 21,3304           00000 00023                     2DEC     .00000007                             
022213,000826: 
022214,000827: 21,3306           00000 00402                     2DEC     .00000096                             
022215,000828: 
022216,000829: 21,3310           00000 00000                     2DEC     .00000000                             
022217,000830: 
022218,000831: 
022219,000832: 21,3312           76505                           DEC      -698       B-14                       #  2700-3400 SEC
022220,000833: 21,3313           77776                           DEC      -1         B-14                       

Page 533

022222,000835: 21,3314           37772 22005                     2DEC     .99966814                             
022223,000836: 
022224,000837: 21,3316           37765 05560                     2DEC     .99933952                             
022225,000838: 
022226,000839: 21,3320           00000 00005                     2DEC     .00000002                             
022227,000840: 
022228,000841: 21,3322           00000 00113                     2DEC     .00000028                             
022229,000842: 
022230,000843: 21,3324           00000 00000                     2DEC     .00000000                             
022231,000844: 
022232,000845: 
022233,000846: 21,3326           76651                           DEC      -598       B-14                       #  3401-4000 SEC
022234,000847: 21,3327           77776                           DEC      -1         B-14                       
022235,000848: 21,3330           37773 20750                     2DEC     .99972716                             
022236,000849: 
022237,000850: 21,3332           37767 03044                     2DEC     .99945654                             
022238,000851: 
022239,000852: 21,3334           00000 00003                     2DEC     .00000001                             
022240,000853: 
022241,000854: 21,3336           00000 00033                     2DEC     .00000010                             
022242,000855: 
022243,000856: 21,3340           00000 00000                     2DEC     .00000000                             
022244,000857: 
022245,000858: 
022246,000859: 21,3342           00000 00000  SCHZEROS           2DEC     .00000000                             
022247,000860: 
022248,000861: 21,3344           00000 00000                     2DEC     .00000000                             
022249,000862: 
022250,000863: 21,3346           00000 00000                     2DEC     .00000000                             
022251,000864: 
022252,000865: 21,3350           00004        INTVAL             OCT      4                                     
022253,000866: 21,3351           00002                           OCT      2                                     
022254,000867: 21,3352           00220                           DEC      144        B-14                       
022255,000868: 21,3353           77776                           DEC      -1         B-14                       
022256,000869: 21,3354           35730 00035  SOUPLY             2DEC     .93505870                             #  INITIAL GAINS FOR PIP OUTPUTS
022257,000870: 
022258,000871: 21,3356           10317 17550                     2DEC     .26266423                             #  INITIAL GAINS/4 FOR ERECTION ANGLES
022259,000872: 
022260,000873: 
022261,000874: 21,3360           00115        77DECML            DEC      77         B-14                       
022262,000875: 21,3361           01577        ALXXXZ             GENADR   ALX1S      -1                         
022263,000876: 21,3362           02500        AINGYRO            ECADR    OGC                                   
022264,000877: 21,3363           04133 02265  PIPASC             2DEC     .13055869                             
022265,000878: 
022266,000879: 21,3365           57223 66451  VELSC              2DEC     -.52223476                            #  512/980.402
022267,000880: 
022268,000881: 21,3367           05427 12577  ALSK               2DEC     .17329931                             #  SSWAY VEL GAIN X 980.402/4096
022269,000882: 

Page 534

022271,000884: 21,3371           77567 44202                     2DEC     -.00835370                            #  SSWAY ACCEL GAIN X 980.402/4096
022272,000885: 
022273,000886: 
022274,000887: 21,3373           24276 14066  GEORGEJ            2DEC     .63661977                             
022275,000888: 
022276,000889: 21,3375           23073 11773  GEORGEK            2DEC     .59737013                             
022277,000890: 
022278,000891: 21,3377           03146 14632  GEOCONS1           2DEC     .1                                    
022279,000892: 
022280,000893: 21,3401           00121 35341  GEOCONS2           2DEC     .005                                  
022281,000894: 
022282,000895: 21,3403           00631 23146  GEOCONS3           2DEC     .025                                  
022283,000896: 
022284,000897: 21,3405           00000 17565  GEOCONS4           2DEC     .00003                                
022285,000898: 
022286,000899: 21,3407           06200        1/PIPAGT           OCT      06200                                 
022287,000900: 21,3410           00021        17DECML            DEC      17         B-14                       
022288,000901: 21,3411           00023        19DECML            DEC      19         B-14                       
022289,000902: 21,3412           00062        1/2SECX            DEC      50         B-14                       
022290,000903: 
022291,000904: 
022292,000905: 21,3413           37657        GTSCPSS            CA       ONE                                   
022293,000906: 21,3414           55742                           TS       GEOCOMPS                              #  THIS IS THE LEAD IN FOR COMPASS
022294,000907: 21,3415           04667                           TC       NEWMODEX                              
022295,000908: 21,3416           00001                           OCT      01                                    
022296,000909: 21,3417           33407                           CA       1/PIPAGT                              
022297,000910: 21,3420           55110                           TS       1/PIPADT                              
022298,000911: 21,3421           37665                           CA       ZERO                                  
022299,000912: 21,3422           55717                           TS       PREMTRXC                              
022300,000913: 21,3423           33412                           CAF      1/2SECX                               
022301,000914: 21,3424           55744                           TS       1SECXT                                
022302,000915: 21,3425           04063                           TC       BANKCALL                              
022303,000916: 21,3426           36005                           CADR     GEOIMUTT                              #  TO IMU PERF TESTS 2
022304,000917: 
022305,000918: 
022306,000919: 21,3427                        ENDPREL1           EQUALS                                         

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