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.

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

Page 514

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

Page 515

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

Page 516

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

Page 517

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

Page 518

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

Page 519

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

Page 520

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

Page 521

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

Page 522

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

Page 523

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

Page 524

021902,000506: 21,2655           11574        GEOSTRT4           CCS      TORQNDX                               #   ONLY POSITIVE IF IN VERTICAL DRIFT TEST
021903,000507: 21,2656           02664                           TC       GEOBAVR                               #  VERT DRIFT TEST OVER
021904,000508: 21,2657           02753                           TC       SETUPER                               #   SET UP ERATE FOR PIPTEST OR COMPASS
021905,000509: 21,2660           11742                           CCS      GEOCOMPS                              
021906,000510: 21,2661           02725                           TC       TQORESTM                              
021907,000511: 21,2662           04063                           TC       BANKCALL                              #  GO TO IMU2 FOR A PIPA TEST AND DISPLAY
021908,000512: 21,2663           36075                           CADR     TORQUE                                
021909,000513: 
021910,000514: 21,2664           04063        GEOBAVR            TC       BANKCALL                              
021911,000515: 21,2665           36223                           CADR     VALMIS                                #   DISPLAY VERTICAL DRIFT
021912,000516: 
021913,000517: 

Page 525

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

Page 526

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

Page 527

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

Page 528

022037,000641: 21,3042           02600 42005                     2CADR    RESTEST3                              
022038,000642: 
022039,000643: 21,3044           04076                           TC       SWRETURN                              
022040,000644: 

Page 529

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

Page 530

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

Page 531

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

Page 532

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

Page 533

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

Page 534

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

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