Source Code

   YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS       BY MSTEWART JUN. 28,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

022195,000002:                                                                                                  ## Copyright:   Public domain.
022196,000003:                                                                                                  ## Filename:    OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
022197,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
022198,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
022199,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
022200,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
022201,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
022202,000009:                                                                                                  ##              Validation.
022203,000010:                                                                                                  ## Assembler:   yaYUL
022204,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
022205,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022206,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
022207,000014: 
022208,000015:                                                                                                  #  THIS PROGRAM USES A VERTICAL,SOUTH,EAST COORDINATE SYSTEM FOR PIPAS
022209,000016: 21,2000                                           BANK     21                                    
022210,000017: 21,2000  E5,1400                                  EBANK=   XSM                                   
022211,000018: 
022212,000019:                                                                                                  #  G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
022213,000020:                                                                                                  #  PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
022214,000021: 21,2000           04575        ESTIMS             TC       PHASCHNG                              
022215,000022: 21,2001           00101                           OCT      00101                                 
022216,000023: 21,2002           00004        RSTGTS1            INHINT                                         #   COMES HERE PHASE1 RESTART
022217,000024: 21,2003           30025                           CA       TIME1                                 
022218,000025: 21,2004           55745                           TS       GTSWTLST                              
022219,000026: 21,2005           37675                           CAF      ZERO                                  #  ZERO THE PIPAS
022220,000027: 21,2006           54037                           TS       PIPAX                                 
022221,000028: 21,2007           54040                           TS       PIPAY                                 
022222,000029: 21,2010           54041                           TS       PIPAZ                                 
022223,000030: 21,2011           54404                           TS       DELVX      +1                         
022224,000031: 21,2012           54406                           TS       DELVY      +1                         
022225,000032: 21,2013           54410                           TS       DELVZ      +1                         
022226,000033: 21,2014           00003                           RELINT                                         
022227,000034: 21,2015           02753                           TC       SETUPER                               
022228,000035: 21,2016           33360                           CA       77DECML                               
022229,000036: 21,2017           55776                           TS       ZERONDX                               
022230,000037: 21,2020           33361                           CA       ALXXXZ                                
022231,000038: 21,2021           04065                           TC       BANKCALL                              
022232,000039: 21,2022           37236                           CADR     ZEROING                               
022233,000040: 21,2023           06000                           TC       INTPRET                               
022234,000041: 21,2024           77775                           VLOAD                                          
022235,000042: 21,2025           03353                                    INTVAL     +2                         
022236,000043: 21,2026           02601                           STORE    ALX1S                                 
022237,000044: 21,2027           77776                           EXIT                                           
022238,000045: 
022239,000046: 21,2030           11742                           CCS      GEOCOMPS                              #  GEOCOMPS IN NON ZERO IF COMPASS
022240,000047: 21,2031           02033                           TC       +2                                    
022241,000048: 21,2032           02667                           TC       SLEEPIE    +1                         
022242,000049: 21,2033           31527                           CA       LENGTHOT                              #    TIMES FIVE IS THE NUM OF SEC ERECTING
022243,000050: 21,2034           55746                           TS       ERECTIME                              
022244,000051: 
022245,000052: 21,2035           04650                           TC       NEWMODEX                              
022246,000053: 21,2036           00005                           OCT      05                                    
022247,000054: 21,2037           04065                           TC       BANKCALL                              
022248,000055: 21,2040           16345                           CADR     GCOMPZER                              #    ZERO COMPENSATION PROGRAM REGISTERS
022249,000056: 21,2041           02740                           TC       ANNNNNN                               
022250,000057: 
022251,000058: 21,2042           00004        ALLOOP             INHINT                                         #   TASK EVERY .5 OR 1 SEC (COMPASS-DRIFT)
022252,000059: 21,2043           30025                           CA       TIME1                                 
022253,000060: 21,2044           55745                           TS       GTSWTLST                              #  STORE TIME TO SET UP NEXT WAITLIST
022254,000061: 21,2045           31664        ALLOOP3            CA       ALTIM                                 
022255,000062: 21,2046           55716                           TS       GEOSAVED                              
022256,000063: 21,2047           04575                           TC       PHASCHNG                              
022257,000064: 21,2050           00201                           OCT      00201                                 
022258,000065: 21,2051           02053                           TC       +2                                    
022259,000066: 
022260,000067: 21,2052           00004        ALLOOP1            INHINT                                         #  RESTARTS COME IN HERE
022261,000068: 21,2053           31716                           CA       GEOSAVED                              
022262,000069: 21,2054           55664                           TS       ALTIM                                 
022263,000070: 21,2055           10000                           CCS      A                                     
022264,000071: 21,2056           30000                           CA       A                                     #  SHOULD NEVER HIT THIS LOCATION
022265,000072: 21,2057           55665                           TS       ALTIMS                                
022266,000073: 21,2060           40000                           CS       A                                     
022267,000074: 21,2061           55664                           TS       ALTIM                                 
022268,000075: 21,2062           30037                           CA       PIPAX                                 
022269,000076: 21,2063           54403                           TS       DELVX                                 
022270,000077: 21,2064           30040                           CA       PIPAY                                 
022271,000078: 21,2065           54405                           TS       DELVY                                 
022272,000079: 21,2066           30041                           CA       PIPAZ                                 
022273,000080: 21,2067           54407                           TS       DELVZ                                 
022274,000081: 21,2070           37675                           CAF      ZERO                                  
022275,000082: 21,2071           54037                           TS       PIPAX                                 
022276,000083: 21,2072           54040                           TS       PIPAY                                 
022277,000084: 21,2073           54041                           TS       PIPAZ                                 
022278,000085: 21,2074           04575                           TC       PHASCHNG                              
022279,000086: 21,2075           00701                           OCT      00701                                 
022280,000087: 21,2076           00003                           RELINT                                         
022281,000088: 21,2077           37654        SPECSTS            CAF      PRIO20                                
022282,000089: 21,2100           04355                           TC       FINDVAC                               
022283,000090: 21,2101           02104 42005                     2CADR    ALFLT                                 #  START THE JOB
022284,000091: 
022285,000092: 21,2103           04563                           TC       TASKOVER                              
022286,000093: 
022287,000094: 21,2104           03047        ALFLT              TC       STOREDTA                              #   STORE DATA IN CASE OF RESTART IN JOB
022288,000095: 21,2105           04575                           TC       PHASCHNG                              #  THIS IS THE JOB DONE EVERY ITERATION
022289,000096: 21,2106           00601                           OCT      00601                                 
022290,000097: 21,2107           11742                           CCS      GEOCOMPS                              
022291,000098: 21,2110           02112                           TC       +2                                    
022292,000099: 21,2111           02116                           TC       NORMLOP                               
022293,000100: 21,2112           04065                           TC       BANKCALL                              #  COMPENSATION IF IN COMPASS
022294,000101: 21,2113           16000                           CADR     1/PIPA                                
022295,000102: 21,2114           02116                           TC       NORMLOP                               
022296,000103: 
022297,000104: 
022298,000105: 21,2115           03070        ALFLT1             TC       LOADSTDT                              #  COMES HERE ON RESTART
022299,000106: 
022300,000107: 21,2116           06000        NORMLOP            TC       INTPRET                               
022301,000108: 21,2117           77745                           DLOAD                                          
022302,000109: 21,2120           03351                                    INTVAL                                
022303,000110: 21,2121           00051                           STORE    S1                                    #  STEP REGISTERS MAY HAVE BEEN WIPED OUT
022304,000111: 21,2122           53135                           SLOAD    BZE                                   
022305,000112: 21,2123           02743                                    GEOCOMPS                              
022306,000113: 21,2124           42127                                    ALCGKK                                
022307,000114: 21,2125           77650                           GOTO                                           
022308,000115: 21,2126           42144                                    ALFLT2                                
022309,000116: 21,2127           50135        ALCGKK             SLOAD    BMN                                   
022310,000117: 21,2130           02666                                    ALTIMS                                
022311,000118: 21,2131           42144                                    ALFLT2                                
022312,000119: 21,2132           72174        ALKCG              AXT,2    LXA,1                                 #  LOADS SLOPES AND TIME CONSTANTS AT RQST
022313,000120: 21,2133           00014                                    12D                                   
022314,000121: 21,2134           02600                                    ALX1S                                 
022315,000122: 21,2135           62143        ALKCG2             DLOAD*   INCR,1                                
022316,000123: 21,2136           03343                                    ALFDK      +144D,1                    
022317,000124: 21,2137           77775                           DEC      -2         B-14                       
022318,000125: 21,2140           12701                           STORE    ALDK       +10D,2                     
022319,000126: 21,2141           66104                           TIX,2    SXA,1                                 
022320,000127: 21,2142           42135                                    ALKCG2                                
022321,000128: 21,2143           02600                                    ALX1S                                 
022322,000129: 
022323,000130: 21,2144           61375        ALFLT2             VLOAD    VXM                                   
022324,000131: 21,2145           00404                                    DELVX                                 
022325,000132: 21,2146           02750                                    GEOMTRX                               
022326,000133: 21,2147           77772                           VSL1                                           
022327,000134: 21,2150           57545                           DLOAD    DCOMP                                 
022328,000135: 21,2151           00144                                    MPAC       +3                         
022329,000136: 21,2152           16657                           STODL    DPIPAY                                
022330,000137: 21,2153           00146                                    MPAC       +5                         
022331,000138: 21,2154           02663                           STORE    DPIPAZ                                
022332,000139: 
022333,000140: 21,2155           76001                           SETPD    AXT,1                                 #  MEASUREMENT INCORPORATION ROUTINES.
022334,000141: 21,2156           00001                                    0                                     
022335,000142: 21,2157           00010                                    8D                                    
022336,000143: 21,2160           53135                           SLOAD    BZE                                   
022337,000144: 21,2161           02743                                    GEOCOMPS                              
022338,000145: 21,2162           42165                                    DELMLP                                
022339,000146: 21,2163           77650                           GOTO                                           
022340,000147: 21,2164           42466                                    ALWAYSG                               #  DO A QUICK COMPASS
022341,000148: 
022342,000149: 21,2165           41343        DELMLP             DLOAD*   DMP                                   
022343,000150: 21,2166           02667                                    DPIPAY     +8D,1                      
022344,000151: 21,2167           03364                                    PIPASC                                
022345,000152: 21,2170           42661                           SLR      DAD*                                  
022346,000153: 21,2171           21212                                    9D                                    
022347,000154: 21,2172           02715                                    DELM       +8D,1                      
022348,000155: 21,2173           64623                           DSU*     PDDL*                                 
022349,000156: 21,2174           02635                                    INTY       +8D,1                      
022350,000157: 21,2175           02655                                    VLAUN      +8D,1                      
022351,000158: 21,2176           41223                           DSU*     DMP                                   
022352,000159: 21,2177           02627                                    VLAUNS     +8D,1                      
022353,000160: 21,2200           03366                                    VELSC                                 
022354,000161: 21,2201           77732                           SL2R                                           
022355,000162: 21,2202           45415                           DAD      STADR                                 
022356,000163: 21,2203           71062                           STORE    DELM       +8D,1                      
022357,000164: 21,2204           26717                           STODL*   DELM       +10D,1                     
022358,000165: 21,2205           02655                                    VLAUN      +8D,1                      
022359,000166: 21,2206           22627                           STODL    VLAUNS     +8D,1                      
022360,000167: 21,2207           03347                                    INTVAL     -2                         
022361,000168: 21,2210           06635                           STORE    INTY       +8D,1                      
022362,000169: 21,2211           77100                           TIX,1    AXT,2                                 
022363,000170: 21,2212           42165                                    DELMLP                                
022364,000171: 21,2213           00004                                    4                                     
022365,000172: 21,2214           56743        ALILP              DLOAD*   DMPR*                                 
022366,000173: 21,2215           75170                                    ALK        +4,2                       
022367,000174: 21,2216           75104                                    ALDK       +4,2                       
022368,000175: 21,2217           12607                           STORE    ALK        +4,2                       
022369,000176: 21,2220           77104                           TIX,2    AXT,2                                 
022370,000177: 21,2221           42214                                    ALILP                                 
022371,000178: 21,2222           00010                                    8D                                    
022372,000179: 21,2223           66140        ALKLP              LXC,1    SXA,1                                 
022373,000180: 21,2224           02601                                    CMPX1                                 
022374,000181: 21,2225           02601                                    CMPX1                                 
022375,000182: 21,2226           56743                           DLOAD*   DMPR*                                 
022376,000183: 21,2227           02604                                    ALK        +1,1                       
022377,000184: 21,2230           75062                                    DELM       +8D,2                      
022378,000185: 21,2231           77613                           DAD*                                           
022379,000186: 21,2232           75142                                    INTY       +8D,2                      
022380,000187: 21,2233           32635                           STODL*   INTY       +8D,2                      
022381,000188: 21,2234           75160                                    ALK        +12D,2                     
022382,000189: 21,2235           77613                           DAD*                                           
022383,000190: 21,2236           75074                                    ALDK       +12D,2                     
022384,000191: 21,2237           12617                           STORE    ALK        +12D,2                     
022385,000192: 21,2240           42673                           DMPR*    DAD*                                  
022386,000193: 21,2241           75062                                    DELM       +8D,2                      
022387,000194: 21,2242           75132                                    INTY       +16D,2                     
022388,000195: 21,2243           32645                           STODL*   INTY       +16D,2                     
022389,000196: 21,2244           03371                                    ALSK       +1,1                       
022390,000197: 21,2245           76403                           DMP*     SL1R                                  
022391,000198: 21,2246           75062                                    DELM       +8D,2                      
022392,000199: 21,2247           77613                           DAD*                                           
022393,000200: 21,2250           75122                                    VLAUN      +8D,2                      
022394,000201: 21,2251           12655                           STORE    VLAUN      +8D,2                      
022395,000202: 21,2252           76104                           TIX,2    AXT,1                                 
022396,000203: 21,2253           42223                                    ALKLP                                 
022397,000204: 21,2254           00010                                    8D                                    
022398,000205: 
022399,000206: 
022400,000207: 21,2255           64743        LOOSE              DLOAD*   PDDL*                                 
022401,000208: 21,2256           02657                                    ACCWD      +8D,1                      
022402,000209: 21,2257           02655                                    VLAUN      +8D,1                      
022403,000210: 21,2260           55523                           PDDL*    VDEF                                  
022404,000211: 21,2261           02665                                    POSNV      +8D,1                      
022405,000212: 21,2262           76521                           MXV      VSL1                                  
022406,000213: 21,2263           02721                                    TRANSM1                               
022407,000214: 21,2264           77745                           DLOAD                                          
022408,000215: 21,2265           00141                                    MPAC                                  
022409,000216: 21,2266           22665                           STODL    POSNV      +8D,1                      
022410,000217: 21,2267           00144                                    MPAC       +3                         
022411,000218: 21,2270           22655                           STODL    VLAUN      +8D,1                      
022412,000219: 21,2271           00146                                    MPAC       +5                         
022413,000220: 21,2272           06657                           STORE    ACCWD      +8D,1                      
022414,000221: 21,2273           77700                           TIX,1                                          
022415,000222: 21,2274           42255                                    LOOSE                                 
022416,000223: 
022417,000224: 
022418,000225: 21,2275           76174                           AXT,2    AXT,1                                 #  EVALUATE SINES AND COSINES
022419,000226: 21,2276           00006                                    6                                     
022420,000227: 21,2277           00002                                    2                                     
022421,000228: 21,2300           57343        BOOP               DLOAD*   DMPR                                  
022422,000229: 21,2301           02637                                    ANGX       +2,1                       
022423,000230: 21,2302           03374                                    GEORGEJ                               
022424,000231: 21,2303           77722                           SR2R                                           
022425,000232: 21,2304           73406                           PUSH     SIN                                   
022426,000233: 21,2305           56172                           SL1R     XAD,1                                 
022427,000234: 21,2306           00046                                    X1                                    
022428,000235: 21,2307           24021                           STODL    16D,2                                 
022429,000236: 21,2310           77746                           COS                                            
022430,000237: 21,2311           10027                           STORE    22D,2                                 #  COSINES
022431,000238: 21,2312           71304                           TIX,2    DLOAD                                 
022432,000239: 21,2313           42300                                    BOOP                                  
022433,000240: 21,2314           00017                                    14D                                   
022434,000241: 21,2315           43312                           SL2      DAD                                   
022435,000242: 21,2316           02625                                    INTY                                  
022436,000243: 21,2317           16625                           STODL    INTY                                  
022437,000244: 21,2320           00015                                    12D                                   
022438,000245: 21,2321           56405                           DMP      SL3R                                  
022439,000246: 21,2322           00025                                    20D                                   
022440,000247: 21,2323           77615                           DAD                                            
022441,000248: 21,2324           02631                                    INTZ                                  
022442,000249: 21,2325           16631                           STODL    INTZ                                  
022443,000250: 21,2326           00021                                    16D                                   
022444,000251: 21,2327           57275                           DMPR     DMPR                                  
022445,000252: 21,2330           00023                                    18D                                   
022446,000253: 21,2331           00017                                    14D                                   
022447,000254: 21,2332           77712                           SL2                                            
022448,000255: 21,2333           57325                           PDDL     DMPR                                  
022449,000256: 21,2334           00013                                    10D                                   
022450,000257: 21,2335           00015                                    12D                                   
022451,000258: 21,2336           77615                           DAD                                            
022452,000259: 21,2337           77675                           DMPR                                           
022453,000260: 21,2340           02573                                    WANGI                                 
022454,000261: 21,2341           57325                           PDDL     DMPR                                  
022455,000262: 21,2342           00023                                    18D                                   
022456,000263: 21,2343           00025                                    20D                                   
022457,000264: 21,2344           66405                           DMP      SL2R                                  
022458,000265: 21,2345           02571                                    WANGO                                 
022459,000266: 21,2346           77621                           BDSU                                           
022460,000267: 21,2347           02637                                    DRIFTO                                
022461,000268: 21,2350           45425                           DSU      STADR                                 
022462,000269: 21,2351           61156                           STODL    WPLATO                                
022463,000270: 21,2352           00021                                    16D                                   
022464,000271: 21,2353           41275                           DMPR     DMP                                   
022465,000272: 21,2354           00025                                    20D                                   
022466,000273: 21,2355           02573                                    WANGI                                 
022467,000274: 21,2356           77732                           SL2R                                           
022468,000275: 21,2357           57325                           PDDL     DMPR                                  
022469,000276: 21,2360           02571                                    WANGO                                 
022470,000277: 21,2361           00017                                    14D                                   
022471,000278: 21,2362           77615                           DAD                                            
022472,000279: 21,2363           02641                                    DRIFTI                                
022473,000280: 21,2364           77625                           DSU                                            
022474,000281: 21,2365           57325                           PDDL     DMPR                                  
022475,000282: 21,2366           02575                                    WANGT                                 
022476,000283: 21,2367           02573                                    WANGI                                 
022477,000284: 21,2370           45415                           DAD      STADR                                 
022478,000285: 21,2371           61062                           STODL    WPLATI                                
022479,000286: 21,2372           00023                                    18D                                   
022480,000287: 21,2373           76405                           DMP      SL1R                                  
022481,000288: 21,2374           00013                                    10D                                   
022482,000289: 21,2375           57325                           PDDL     DMPR                                  
022483,000290: 21,2376           00015                                    12D                                   
022484,000291: 21,2377           00021                                    16D                                   
022485,000292: 21,2400           76405                           DMP      SL1R                                  
022486,000293: 21,2401           00017                                    14D                                   
022487,000294: 21,2402           77621                           BDSU                                           
022488,000295: 21,2403           77675                           DMPR                                           
022489,000296: 21,2404           02573                                    WANGI                                 
022490,000297: 21,2405           57325                           PDDL     DMPR                                  
022491,000298: 21,2406           00015                                    12D                                   
022492,000299: 21,2407           00025                                    20D                                   
022493,000300: 21,2410           76405                           DMP      SL1R                                  
022494,000301: 21,2411           02571                                    WANGO                                 
022495,000302: 21,2412           77621                           BDSU                                           
022496,000303: 21,2413           02577                                    DRIFTT                                
022497,000304: 21,2414           77615                           DAD                                            #   WPLATT NOW IN MPAC
022498,000305: 21,2415           77606                           PUSH                                           #  PUSH IT DOWN-X IT BY SANG +2
022499,000306: 21,2416           74475                           DMPR     SR1R                                  
022500,000307: 21,2417           00015                                    12D                                   
022501,000308: 21,2420           57325                           PDDL     DMPR                                  
022502,000309: 21,2421           02621                                    WPLATO                                
022503,000310: 21,2422           00023                                    18D                                   
022504,000311: 21,2423           77615                           DAD                                            
022505,000312: 21,2424           77671                           DDV                                            
022506,000313: 21,2425           00025                                    20D                                   
022507,000314: 21,2426           57206                           PUSH     DMPR                                  
022508,000315: 21,2427           03376                                    GEORGEK                               
022509,000316: 21,2430           43261                           SRR      DAD                                   
022510,000317: 21,2431           21616                                    13D                                   
022511,000318: 21,2432           02635                                    ANGX                                  
022512,000319: 21,2433           16635                           STODL    ANGX                                  
022513,000320: 21,2434           43275                           DMPR     DAD                                   
022514,000321: 21,2435           00017                                    14D                                   
022515,000322: 21,2436           02715                                    WPLATI                                
022516,000323: 21,2437           54275                           DMPR     SRR                                   
022517,000324: 21,2440           03376                                    GEORGEK                               
022518,000325: 21,2441           21616                                    13D                                   
022519,000326: 21,2442           77615                           DAD                                            
022520,000327: 21,2443           02633                                    ANGY                                  
022521,000328: 21,2444           16633                           STODL    ANGY                                  
022522,000329: 21,2445           00023                                    18D                                   
022523,000330: 21,2446           76405                           DMP      SL1R                                  #  MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
022524,000331: 21,2447           57325                           PDDL     DMPR                                  
022525,000332: 21,2450           00015                                    12D                                   
022526,000333: 21,2451           02621                                    WPLATO                                
022527,000334: 21,2452           77621                           BDSU                                           
022528,000335: 21,2453           54275                           DMPR     SRR                                   
022529,000336: 21,2454           03376                                    GEORGEK                               
022530,000337: 21,2455           21616                                    13D                                   
022531,000338: 21,2456           77615                           DAD                                            
022532,000339: 21,2457           02627                                    ANGZ                                  
022533,000340: 21,2460           02627                           STORE    ANGZ                                  
022534,000341: 21,2461           77404                           BOVB     EXIT                                  
022535,000342: 21,2462           42716                                    SOMEERRR                              
022536,000343: 21,2463           11527                           CCS      LENGTHOT                              
022537,000344: 21,2464           02666                           TC       SLEEPIE                               
022538,000345: 21,2465           02631                           TC       SETUPER1                              
022539,000346: 
022540,000347: 
022541,000348: 21,2466           44743        ALWAYSG            DLOAD*   DSU*                                  #  COMPASS AND ERECT
022542,000349: 21,2467           02667                                    DPIPAY     +8D,1                      
022543,000350: 21,2470           02655                                    FILDELV    +8D,1                      
022544,000351: 21,2471           42675                           DMPR     DAD*                                  
022545,000352: 21,2472           03400                                    GEOCONS1                              
022546,000353: 21,2473           02655                                    FILDELV    +8D,1                      
022547,000354: 21,2474           06655                           STORE    FILDELV    +8D,1                      
022548,000355: 21,2475           77613                           DAD*                                           
022549,000356: 21,2476           02657                                    INTVEC     +8D,1                      
022550,000357: 21,2477           06657                           STORE    INTVEC     +8D,1                      
022551,000358: 21,2500           42675                           DMPR     DAD*                                  
022552,000359: 21,2501           03402                                    GEOCONS2                              
022553,000360: 21,2502           02655                                    FILDELV    +8D,1                      
022554,000361: 21,2503           41475                           DMPR     PUSH                                  
022555,000362: 21,2504           03400                                    GEOCONS1                              
022556,000363: 21,2505           67300                           TIX,1    SLOAD                                 
022557,000364: 21,2506           42466                                    ALWAYSG                               
022558,000365: 21,2507           02747                                    ERECTIME                              
022559,000366: 21,2510           71254                           BZE      DLOAD                                 
022560,000367: 21,2511           42522                                    COMPGS                                #  COMPASS
022561,000368: 21,2512           02627                                    THETAN     +2                         
022562,000369: 21,2513           45425                           DSU      STADR                                 
022563,000370: 21,2514           61150                           STODL    THETAN     +2                         
022564,000371: 21,2515           77621                           BDSU                                           
022565,000372: 21,2516           02631                                    THETAN     +4                         
022566,000373: 21,2517           02631                           STORE    THETAN     +4                         
022567,000374: 21,2520           77650                           GOTO                                           
022568,000375: 21,2521           42544                                    ADDINDRF                              
022569,000376: 21,2522           43345        COMPGS             DLOAD    DAD                                   #  COMPASS
022570,000377: 21,2523           02625                                    THETAN                                
022571,000378: 21,2524           02645                                    FILDELV                               
022572,000379: 21,2525           16625                           STODL    THETAN                                
022573,000380: 21,2526           02645                                    FILDELV                               
022574,000381: 21,2527           44275                           DMPR     BDSU                                  
022575,000382: 21,2530           03404                                    GEOCONS3                              
022576,000383: 21,2531           02631                                    THETAN     +4                         
022577,000384: 21,2532           16631                           STODL    THETAN     +4                         
022578,000385: 21,2533           02651                                    FILDELV    +4                         
022579,000386: 21,2534           44275                           DMPR     BDSU                                  
022580,000387: 21,2535           03404                                    GEOCONS3                              
022581,000388: 21,2536           02627                                    THETAN     +2                         
022582,000389: 21,2537           41325                           PDDL     DMP                                   
022583,000390: 21,2540           02653                                    INTVEC     +4                         
022584,000391: 21,2541           03406                                    GEOCONS4                              
022585,000392: 21,2542           45421                           BDSU     STADR                                 
022586,000393: 21,2543           75150                           STORE    THETAN     +2                         
022587,000394: 21,2544           64375        ADDINDRF           VLOAD    MXV                                   
022588,000395: 21,2545           02625                                    THETAN                                
022589,000396: 21,2546           02750                                    GEOMTRX                               
022590,000397: 21,2547           53372                           VSL1     VAD                                   
022591,000398: 21,2550           02617                                    THETAX                                
022592,000399: 21,2551           02617                           STORE    THETAX                                
022593,000400: 21,2552           77776                           EXIT                                           
022594,000401: 
022595,000402: 21,2553           11527        ENDGTSAL           CCS      LENGTHOT                              #  IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
022596,000403: 21,2554           02666                           TC       SLEEPIE                               #  NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
022597,000404: 21,2555           10357                           CCS      LGYRO                                 #  YES BUT ARE GYROS BUSY
022598,000405: 21,2556           12742                           TCF      ANNNNNN    +2                         #  BUSY-GET THEM .5 SECONDS FROM NOW
022599,000406: 
022600,000407: 21,2557           04575                           TC       PHASCHNG                              
022601,000408: 21,2560           00401                           OCT      00401                                 
022602,000409: 21,2561           06000                           TC       INTPRET                               #  ADD COMPASS COMMANDS INTO ERATE
022603,000410: 21,2562           53375                           VLOAD    VAD                                   
022604,000411: 21,2563           02617                                    THETAX                                
022605,000412: 21,2564           02772                                    ERCOMP                                
022606,000413: 21,2565           02772                           STORE    ERCOMP                                
022607,000414: 21,2566           77776                           EXIT                                           
022608,000415: 21,2567           04065                           TC       BANKCALL                              
022609,000416: 21,2570           30422                           CADR     EARTHR                                #  TORQUE IT ALL IN
022610,000417: 
022611,000418: 21,2571           00004        RESTEST1           INHINT                                         #  CHECK ON ORIENTATION CHANGE
022612,000419: 21,2572           31717                           CA       PREMTRXC                              
022613,000420: 21,2573           00006                           EXTEND                                         
022614,000421: 21,2574           62727                           BZMF     NOCHORLD                              #  +1 -CHANGE, 0 OR -1 NO LOAD OR LOADING
022615,000422: 21,2575           03107                           TC       LOADXSM                               #  IF THERE WAS A CHANGE LOAD IT INTO XSM
022616,000423: 21,2576           04575                           TC       PHASCHNG                              
022617,000424: 21,2577           01001                           OCT      01001                                 
022618,000425: 21,2600           37675        RESTEST3           CA       ZERO                                  #  RESET CHANGE INDEX TO ZERO
022619,000426: 21,2601           55717                           TS       PREMTRXC                              
022620,000427: 21,2602           00003                           RELINT                                         
022621,000428: 21,2603           06000                           TC       INTPRET                               #  HERE TO CHANGE ORIENTATOON
022622,000429: 21,2604           77770                           AXT,1                                          #  DESIRED IN XSM,PRESENT IN GEOMTRX
022623,000430: 21,2605           00022                                    18D                                   
022624,000431: 21,2606           77731                           SSP                                            
022625,000432: 21,2607           00051                                    S1                                    
022626,000433: 21,2610           00006                                    6                                     
022627,000434: 21,2611           50373        LOADM              VLOAD*   DOT                                   
022628,000435: 21,2612           02423                                    XSM        +18D,1                     
022629,000436: 21,2613           02764                                    GEOMTRX    +12D                       
022630,000437: 21,2614           50313                           PDVL*    DOT                                   
022631,000438: 21,2615           02423                                    XSM        +18D,1                     
022632,000439: 21,2616           02756                                    GEOMTRX    +6D                        
022633,000440: 21,2617           50313                           PDVL*    DOT                                   
022634,000441: 21,2620           02423                                    XSM        +18D,1                     
022635,000442: 21,2621           02750                                    GEOMTRX                               
022636,000443: 21,2622           53466                           VDEF     UNIT                                  
022637,000444: 21,2623           06445                           STORE    XDC        +18D,1                     
022638,000445: 21,2624           45100                           TIX,1    CALL                                  
022639,000446: 21,2625           42611                                    LOADM                                 
022640,000447: 21,2626           32367                                    CALCGTA                               
022641,000448: 21,2627           77776                           EXIT                                           
022642,000449: 21,2630           02645                           TC       TORQINCH                              #  NECESSARY TORQUE NOW IN OGC
022643,000450: 
022644,000451: 
022645,000452: 21,2631           06000        SETUPER1           TC       INTPRET                               
022646,000453: 21,2632           65345                           DLOAD    PDDL                                  #  ANGLES FROM DRIFT TEST ONLY
022647,000454: 21,2633           02627                                    ANGZ                                  
022648,000455: 21,2634           02633                                    ANGY                                  
022649,000456: 21,2635           55525                           PDDL     VDEF                                  
022650,000457: 21,2636           02635                                    ANGX                                  
022651,000458: 21,2637           74276                           VCOMP    VXSC                                  
022652,000459: 21,2640           03374                                    GEORGEJ                               
022653,000460: 21,2641           74521                           MXV      VSR1                                  
022654,000461: 21,2642           02750                                    GEOMTRX                               
022655,000462: 21,2643           02501                           STORE    OGC                                   
022656,000463: 21,2644           77776                           EXIT                                           
022657,000464: 
022658,000465: 
022659,000466: 21,2645           04575        TORQINCH           TC       PHASCHNG                              
022660,000467: 21,2646           00501                           OCT      00501                                 
022661,000468: 21,2647           33362                           CA       AINGYRO                               
022662,000469: 21,2650           04065                           TC       BANKCALL                              
022663,000470: 21,2651           26317                           CADR     IMUPULSE                              
022664,000471: 21,2652           04065                           TC       BANKCALL                              
022665,000472: 21,2653           26716                           CADR     IMUSTALL                              
022666,000473: 21,2654           02721                           TC       SOMERR2                               #  BAD GYRO TORQUE-END OF TEST
022667,000474: 
022668,000475: 21,2655           11574        GEOSTRT4           CCS      TORQNDX                               #   ONLY POSITIVE IF IN VERTICAL DRIFT TEST
022669,000476: 21,2656           02664                           TC       GEOBAVR                               #  VERT DRIFT TEST OVER
022670,000477: 21,2657           02753                           TC       SETUPER                               #   SET UP ERATE FOR PIPTEST OR COMPASS
022671,000478: 21,2660           11742                           CCS      GEOCOMPS                              
022672,000479: 21,2661           02725                           TC       TQORESTM                              
022673,000480: 21,2662           04065                           TC       BANKCALL                              #  GO TO IMU2 FOR A PIPA TEST AND DISPLAY
022674,000481: 21,2663           36075                           CADR     TORQUE                                
022675,000482: 
022676,000483: 21,2664           04065        GEOBAVR            TC       BANKCALL                              
022677,000484: 21,2665           36223                           CADR     VALMIS                                #   DISPLAY VERTICAL DRIFT
022678,000485: 
022679,000486: 
022680,000487:                                                                                                  #  SET UP WAITLIST SECTION
022681,000488: 
022682,000489: 21,2666           55527        SLEEPIE            TS       LENGTHOT                              #  TEST NOT OVER-DECREMENT LENGTHOT
022683,000490: 21,2667           04575                           TC       PHASCHNG                              #   CHANGE PHASE
022684,000491: 21,2670           00301                           OCT      00301                                 
022685,000492: 21,2671           11574                           CCS      TORQNDX                               #  ARE WE DOING VERTDRIFT
022686,000493: 21,2672           02674                           TC       EARTTPRQ                              #  YES,DO HOR ERATE TORQ THEN SLEEP
022687,000494: 21,2673           02676                           TC       WTLISTNT                              #  GO TO SET UP NEXT WAITLIST
022688,000495: 21,2674           04065        EARTTPRQ           TC       BANKCALL                              #  IN VERTDRIFT,ADD HOR ERATE AND SLEEP
022689,000496: 21,2675           30422                           CADR     EARTHR                                
022690,000497: 21,2676           00004        WTLISTNT           INHINT                                         
022691,000498: 21,2677           40025                           CS       TIME1                                 
022692,000499: 21,2700           61745                           AD       GTSWTLST                              
022693,000500: 21,2701           00006                           EXTEND                                         
022694,000501: 21,2702           62704                           BZMF     +2                                    
022695,000502: 21,2703           67653                           AD       NEGMAX                                
022696,000503: 21,2704           61744                           AD       1SECXT                                #  1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
022697,000504: 21,2705           00006                           EXTEND                                         
022698,000505: 21,2706           62714                           BZMF     RIGHTGTS                              
022699,000506: 21,2707           04517        WTGTSMPL           TC       WAITLIST                              
022700,000507: 21,2710           02042 42005                     2CADR    ALLOOP                                
022701,000508: 
022702,000509: 21,2712           00003                           RELINT                                         
022703,000510: 21,2713           04422                           TC       ENDOFJOB                              
022704,000511: 21,2714           37670        RIGHTGTS           CAF      TWO                                   
022705,000512: 21,2715           02707                           TC       WTGTSMPL                              
022706,000513: 
022707,000514: 
022708,000515: 21,2716           05405        SOMEERRR           TC       ALARM                                 
022709,000516: 21,2717           01600                           OCT      1600                                  
022710,000517: 21,2720           02723                           TC       +3                                    
022711,000518: 21,2721           05405        SOMERR2            TC       ALARM                                 
022712,000519: 21,2722           01601                           OCT      1601                                  
022713,000520: 21,2723           04065                           TC       BANKCALL                              
022714,000521: 21,2724           30745                           CADR     ENDTEST                               
022715,000522: 
022716,000523: 21,2725           04065        TQORESTM           TC       BANKCALL                              
022717,000524: 21,2726           37612                           CADR     LOADGTSM                              #  LOAD NEW XSM MATRIX INTO GEOMTRX
022718,000525: 
022719,000526: 21,2727           00003        NOCHORLD           RELINT                                         #  AFTER CHANGEIN ORIEN OR NO CHANGE
022720,000527: 21,2730           06000                           TC       INTPRET                               
022721,000528: 21,2731           77775                           VLOAD                                          
022722,000529: 21,2732           03343                                    SCHZEROS                              
022723,000530: 21,2733           02617                           STORE    THETAX                                
022724,000531: 21,2734           02625                           STORE    THETAN                                
022725,000532: 21,2735           77776                           EXIT                                           
022726,000533: 21,2736           11746                           CCS      ERECTIME                              
022727,000534: 21,2737           55746                           TS       ERECTIME                              #         COUNTS DOWN FOR ERECTION
022728,000535: 
022729,000536: 21,2740           35170        ANNNNNN            CAF      NINE                                  
022730,000537: 21,2741           55527                           TS       LENGTHOT                              
022731,000538: 21,2742           11746                           CCS      ERECTIME                              
022732,000539: 21,2743           02667                           TC       SLEEPIE    +1                         
022733,000540: 21,2744           04663                           TC       CHECKMM                               #  IN COMPASS CHECK FOR VERIFICATION
022734,000541: 21,2745           00003                           OCT      03                                    
022735,000542: 21,2746           02750                           TC       +2                                    #  NOT VERIFYING
022736,000543: 21,2747           02667                           TC       SLEEPIE    +1                         #  YES
022737,000544: 21,2750           04650                           TC       NEWMODEX                              
022738,000545: 21,2751           00002                           OCT      02                                    
022739,000546: 21,2752           02667                           TC       SLEEPIE    +1                         #  COMPASS IS 02  -ERECTION 05
022740,000547: 21,2753           00006        SETUPER            EXTEND                                         #  SUBROUTINE CALLED IN 3 PLACES
022741,000548: 21,2754           23547                           QXCH     QPLACES                               
022742,000549: 21,2755           06000                           TC       INTPRET                               
022743,000550: 21,2756           77624                           CALL                                           
022744,000551: 21,2757           30405                                    ERTHRVSE                              
022745,000552: 21,2760           77776                           EXIT                                           
022746,000553: 21,2761           04065                           TC       BANKCALL                              
022747,000554: 21,2762           30727                           CADR     OGCZERO                               
022748,000555: 21,2763           01547                           TC       QPLACES                               
022749,000556: 
022750,000557: 21,2764           51074        OPTMSTRT           INDEX    PHASE1                                
022751,000558: 21,2765           02765                           TC       +0                                    
022752,000559: 21,2766           02776                           TC       GTSGTS1                               
022753,000560: 21,2767           03003                           TC       GTSGTS2                               
022754,000561: 21,2770           03010                           TC       GTSGTS3                               
022755,000562: 21,2771           03015                           TC       GTSGTS4                               
022756,000563: 21,2772           03022                           TC       GTSGTS5                               
022757,000564: 21,2773           03027                           TC       GTSGTS6                               
022758,000565: 21,2774           03034                           TC       GTSGTS7                               
022759,000566: 21,2775           03040                           TC       GTSGTS10                              
022760,000567: 
022761,000568: 
022762,000569: 21,2776           37654        GTSGTS1            CAF      PRIO20                                
022763,000570: 21,2777           04355                           TC       FINDVAC                               
022764,000571: 21,3000           02002 42005                     2CADR    RSTGTS1                               
022765,000572: 
022766,000573: 21,3002           04100                           TC       SWRETURN                              
022767,000574: 21,3003           37671        GTSGTS2            CAF      ONE                                   
022768,000575: 21,3004           04517                           TC       WAITLIST                              
022769,000576: 21,3005           02052 42005                     2CADR    ALLOOP1                               
022770,000577: 
022771,000578: 21,3007           04100                           TC       SWRETURN                              
022772,000579: 21,3010           37654        GTSGTS3            CAF      PRIO20                                
022773,000580: 21,3011           04355                           TC       FINDVAC                               
022774,000581: 21,3012           02676 42005                     2CADR    WTLISTNT                              
022775,000582: 
022776,000583: 21,3014           04100                           TC       SWRETURN                              
022777,000584: 21,3015           37654        GTSGTS4            CAF      PRIO20                                
022778,000585: 21,3016           04355                           TC       FINDVAC                               
022779,000586: 21,3017           02571 42005                     2CADR    RESTEST1                              
022780,000587: 
022781,000588: 21,3021           04100                           TC       SWRETURN                              
022782,000589: 21,3022           37654        GTSGTS5            CAF      PRIO20                                
022783,000590: 21,3023           04355                           TC       FINDVAC                               
022784,000591: 21,3024           02655 42005                     2CADR    GEOSTRT4                              
022785,000592: 
022786,000593: 21,3026           04100                           TC       SWRETURN                              
022787,000594: 21,3027           37654        GTSGTS6            CAF      PRIO20                                
022788,000595: 21,3030           04355                           TC       FINDVAC                               
022789,000596: 21,3031           02115 42005                     2CADR    ALFLT1                                
022790,000597: 
022791,000598: 21,3033           04100                           TC       SWRETURN                              
022792,000599: 
022793,000600: 21,3034           37671        GTSGTS7            CAF      ONE                                   
022794,000601: 21,3035           04517                           TC       WAITLIST                              
022795,000602: 21,3036           02077 42005                     2CADR    SPECSTS                               
022796,000603: 
022797,000604: 21,3040           37654        GTSGTS10           CAF      PRIO20                                
022798,000605: 21,3041           04355                           TC       FINDVAC                               
022799,000606: 21,3042           02600 42005                     2CADR    RESTEST3                              
022800,000607: 
022801,000608: 21,3044           04100                           TC       SWRETURN                              
022802,000609: 
022803,000610: 21,3045           02000        GEOBND             OCT      02000                                 #   BANK 4  -THIS IS THE STORE DTA SECTION
022804,000611: 21,3046           02400        GEOBND1            OCT      02400                                 #  BANK NUMBER 5
022805,000612: 
022806,000613: 
022807,000614: 21,3047           33045        STOREDTA           CAF      GEOBND                                
022808,000615: 21,3050           54001                           TS       L                                     
022809,000616: 21,3051           33360                           CAF      77DECML                               
022810,000617: 21,3052           54140                           TS       MPAC                                  
022811,000618: 21,3053           50140                           INDEX    MPAC                                  
022812,000619: 21,3054           31600                           CA       ALX1S                                 
022813,000620: 21,3055           22003                           LXCH     EBANK                                 
022814,000621: 21,3056  E4,1407                                  EBANK=   JETSTEP                               
022815,000622: 21,3056           50140                           INDEX    MPAC                                  
022816,000623: 21,3057           55407                           TS       JETSTEP                               
022817,000624: 21,3060           22003                           LXCH     EBANK                                 
022818,000625: 21,3061  E5,1400                                  EBANK=   XSM                                   
022819,000626: 21,3061           10140                           CCS      MPAC                                  
022820,000627: 21,3062           13064                           TCF      +2                                    
022821,000628: 21,3063           00002                           TC       Q                                     
022822,000629: 21,3064           54140                           TS       MPAC                                  
022823,000630: 21,3065           33045                           CAF      GEOBND                                
022824,000631: 21,3066           54001                           TS       L                                     
022825,000632: 21,3067           13053                           TCF      STOREDTA   +4                         
022826,000633: 
022827,000634: 
022828,000635: 21,3070           33360        LOADSTDT           CAF      77DECML                               
022829,000636: 21,3071           54140                           TS       MPAC                                  
022830,000637: 21,3072           33045                           CA       GEOBND                                
022831,000638: 21,3073           56003                           XCH      EBANK                                 
022832,000639: 21,3074           54001                           TS       L                                     
022833,000640: 21,3075  E4,1407                                  EBANK=   JETSTEP                               
022834,000641: 21,3075           50140                           INDEX    MPAC                                  
022835,000642: 21,3076           31407                           CA       JETSTEP                               
022836,000643: 21,3077           22003                           LXCH     EBANK                                 
022837,000644: 21,3100  E5,1400                                  EBANK=   XSM                                   
022838,000645: 21,3100           50140                           INDEX    MPAC                                  
022839,000646: 21,3101           55600                           TS       ALX1S                                 
022840,000647: 21,3102           10140                           CCS      MPAC                                  
022841,000648: 21,3103           13105                           TCF      +2                                    
022842,000649: 21,3104           00002                           TC       Q                                     
022843,000650: 21,3105           54140                           TS       MPAC                                  
022844,000651: 21,3106           13072                           TCF      LOADSTDT   +2                         
022845,000652: 
022846,000653: 21,3107           00006        LOADXSM            EXTEND                                         
022847,000654: 21,3110           23547                           QXCH     QPLACES                               
022848,000655: 21,3111           33410                           CAF      17DECML                               
022849,000656: 21,3112           54140                           TS       MPAC                                  
022850,000657: 21,3113           50000                           INDEX    A                                     
022851,000658: 21,3114           31720                           CA       PRELMTRX                              
022852,000659: 21,3115           50140                           INDEX    MPAC                                  
022853,000660: 21,3116           55400                           TS       XSM                                   
022854,000661: 21,3117           10140                           CCS      MPAC                                  
022855,000662: 21,3120           13112                           TCF      LOADXSM    +3                         
022856,000663: 21,3121           01547                           TC       QPLACES                               
022857,000664: 21,3122           77743        ALFDK              DEC      -28        B-14                       #  SLOPES AND TIME CONSTANTS FOR FIRST 30SC
022858,000665: 21,3123           77776                           DEC      -1         B-14                       
022859,000666: 21,3124           35143 10237                     2DEC     .91230833                             #  TIME CONSTANTS-PIPA OUTPUTS
022860,000667: 
022861,000668: 21,3126           31766 26106                     2DEC     .81193187                             #  TIME CONSTANT-ERECTION ANGLES
022862,000669: 
022863,000670: 21,3130           77772 43677                     2DEC     -.00035882                            #  SLOPE-AZIMUTH ANGLE
022864,000671: 
022865,000672: 21,3132           77777 77661                     2DEC     -.00000029                            #  SLOPE-VERTICAL DRIFT
022866,000673: 
022867,000674: 21,3134           00002 05420                     2DEC     .00013262                             #  SLOPE-NORTH SOUTH DRIFT
022868,000675: 
022869,000676: 
022870,000677: 21,3136           77705                           DEC      -58        B-14                       #  31-90 SEC
022871,000678: 21,3137           77776                           DEC      -1         B-14                       
022872,000679: 21,3140           37560 05346                     2DEC     .99122133                             
022873,000680: 
022874,000681: 21,3142           37522 15525                     2DEC     .98940595                             
022875,000682: 
022876,000683: 21,3144           77763 41604                     2DEC     -.00079010                            
022877,000684: 
022878,000685: 21,3146           77777 76470                     2DEC     -.00000265                            
022879,000686: 
022880,000687: 21,3150           00007 02201                     2DEC     .00043154                             
022881,000688: 
022882,000689: 
022883,000690: 21,3152           77767                           DEC      -8         B-14                       #  91-100 SEC
022884,000691: 21,3153           77776                           DEC      -1         B-14                       
022885,000692: 21,3154           37773 10042                     2DEC     .99971021                             
022886,000693: 
022887,000694: 21,3156           37747 30232                     2DEC     .99852047                             
022888,000695: 
022889,000696: 21,3160           00006 37666                     2DEC     .00042697                             
022890,000697: 
022891,000698: 21,3162           77777 76703                     2DEC     -.00000213                            
022892,000699: 
022893,000700: 21,3164           00001 36147                     2DEC     .00011864                             
022894,000701: 
022895,000702: 21,3166           77635                           DEC      -98        B-14                       #  101-200 SEC
022896,000703: 21,3167           77776                           DEC      -1         B-14                       
022897,000704: 21,3170           37666 11022                     2DEC     .99550063                             
022898,000705: 
022899,000706: 21,3172           37532 33647                     2DEC     .98992124                             
022900,000707: 
022901,000708: 21,3174           00007 03641                     2DEC     .00043452                             
022902,000709: 
022903,000710: 21,3176           77777 75713                     2DEC     -.00000401                            
022904,000711: 
022905,000712: 21,3200           77774 54605                     2DEC     -.00021980                            
022906,000713: 
022907,000714: 
022908,000715: 21,3202           77407                           DEC      -248       B-14                       #  201-450 SEC
022909,000716: 21,3203           77776                           DEC      -1         B-14                       
022910,000717: 21,3204           37712 16755                     2DEC     .99673264                             
022911,000718: 
022912,000719: 21,3206           37630 01160                     2DEC     .99365467                             
022913,000720: 
022914,000721: 21,3210           00000 23600                     2DEC     .00003767                             
022915,000722: 
022916,000723: 21,3212           77777 63663                     2DEC     -.00002317                            
022917,000724: 
022918,000725: 21,3214           77777 56527                     2DEC     -.00003305                            
022919,000726: 
022920,000727: 
022921,000728: 21,3216           77255                           DEC      -338       B-14                       #  451-790 SEC
022922,000729: 21,3217           77776                           DEC      -1         B-14                       
022923,000730: 21,3220           37763 23341                     2DEC     .99924362                             
022924,000731: 
022925,000732: 21,3222           37755 26170                     2DEC     .99888274                             
022926,000733: 
022927,000734: 21,3224           00000 00254                     2DEC     .00000064                             
022928,000735: 
022929,000736: 21,3226           77777 52755                     2DEC     -.00004012                            
022930,000737: 
022931,000738: 21,3230           77777 76764                     2DEC     -.00000195                            
022932,000739: 
022933,000740: 
022934,000741: 21,3232           77147                           DEC      -408       B-14                       #  791-1200 SEC
022935,000742: 21,3233           77776                           DEC      -1         B-14                       
022936,000743: 21,3234           37772 02343                     2DEC     .99963845                             
022937,000744: 
022938,000745: 21,3236           37761 30560                     2DEC     .99913162                             
022939,000746: 
022940,000747: 21,3240           00000 00362                     2DEC     .00000090                             
022941,000748: 
022942,000749: 21,3242           00000 17261                     2DEC     .00002927                             
022943,000750: 
022944,000751: 21,3244           77777 77671                     2DEC     -.00000026                            
022945,000752: 
022946,000753: 
022947,000754: 21,3246           77015                           DEC      -498       B-14                       #  1201-1700 SEC
022948,000755: 21,3247           77776                           DEC      -1         B-14                       
022949,000756: 21,3250           37765 12403                     2DEC     .99934865                             
022950,000757: 
022951,000758: 21,3252           37752 20062                     2DEC     .99868793                             
022952,000759: 
022953,000760: 21,3254           00000 00224                     2DEC     .00000055                             
022954,000761: 
022955,000762: 21,3256           00000 06150                     2DEC     .00001183                             
022956,000763: 
022957,000764: 21,3260           77777 77762                     2DEC     -.00000005                            
022958,000765: 
022959,000766: 
022960,000767: 21,3262           77161                           DEC      -398       B-14                       #  1701-2100 SEC
022961,000768: 21,3263           77776                           DEC      -1         B-14                       
022962,000769: 21,3264           37767 12513                     2DEC     .99947099                             
022963,000770: 
022964,000771: 21,3266           37756 30343                     2DEC     .99894799                             
022965,000772: 
022966,000773: 21,3270           00000 00060                     2DEC     .00000018                             
022967,000774: 
022968,000775: 21,3272           00000 01445                     2DEC     .00000300                             
022969,000776: 
022970,000777: 21,3274           77777 77774                     2DEC     -.00000001                            
022971,000778: 
022972,000779: 
022973,000780: 21,3276           76651                           DEC      -598       B-14                       #  2101-2700 SEC
022974,000781: 21,3277           77776                           DEC      -1         B-14                       
022975,000782: 21,3300           37771 02603                     2DEC     .99957801                             
022976,000783: 
022977,000784: 21,3302           37762 10061                     2DEC     .99916095                             
022978,000785: 
022979,000786: 21,3304           00000 00023                     2DEC     .00000007                             
022980,000787: 
022981,000788: 21,3306           00000 00402                     2DEC     .00000096                             
022982,000789: 
022983,000790: 21,3310           00000 00000                     2DEC     .00000000                             
022984,000791: 
022985,000792: 
022986,000793: 21,3312           76505                           DEC      -698       B-14                       #  2700-3400 SEC
022987,000794: 21,3313           77776                           DEC      -1         B-14                       
022988,000795: 21,3314           37772 22005                     2DEC     .99966814                             
022989,000796: 
022990,000797: 21,3316           37765 05560                     2DEC     .99933952                             
022991,000798: 
022992,000799: 21,3320           00000 00005                     2DEC     .00000002                             
022993,000800: 
022994,000801: 21,3322           00000 00113                     2DEC     .00000028                             
022995,000802: 
022996,000803: 21,3324           00000 00000                     2DEC     .00000000                             
022997,000804: 
022998,000805: 
022999,000806: 21,3326           76651                           DEC      -598       B-14                       #  3401-4000 SEC
023000,000807: 21,3327           77776                           DEC      -1         B-14                       
023001,000808: 21,3330           37773 20750                     2DEC     .99972716                             
023002,000809: 
023003,000810: 21,3332           37767 03044                     2DEC     .99945654                             
023004,000811: 
023005,000812: 21,3334           00000 00003                     2DEC     .00000001                             
023006,000813: 
023007,000814: 21,3336           00000 00033                     2DEC     .00000010                             
023008,000815: 
023009,000816: 21,3340           00000 00000                     2DEC     .00000000                             
023010,000817: 
023011,000818: 
023012,000819: 21,3342           00000 00000  SCHZEROS           2DEC     .00000000                             
023013,000820: 
023014,000821: 21,3344           00000 00000                     2DEC     .00000000                             
023015,000822: 
023016,000823: 21,3346           00000 00000                     2DEC     .00000000                             
023017,000824: 
023018,000825: 21,3350           00004        INTVAL             OCT      4                                     
023019,000826: 21,3351           00002                           OCT      2                                     
023020,000827: 21,3352           00220                           DEC      144        B-14                       
023021,000828: 21,3353           77776                           DEC      -1         B-14                       
023022,000829: 21,3354           35730 00035  SOUPLY             2DEC     .93505870                             #  INITIAL GAINS FOR PIP OUTPUTS
023023,000830: 
023024,000831: 21,3356           10317 17550                     2DEC     .26266423                             #  INITIAL GAINS/4 FOR ERECTION ANGLES
023025,000832: 
023026,000833: 
023027,000834: 21,3360           00115        77DECML            DEC      77         B-14                       
023028,000835: 21,3361           01577        ALXXXZ             GENADR   ALX1S      -1                         
023029,000836: 21,3362           02500        AINGYRO            ECADR    OGC                                   
023030,000837: 21,3363           04133 02265  PIPASC             2DEC     .13055869                             
023031,000838: 
023032,000839: 21,3365           57223 66451  VELSC              2DEC     -.52223476                            #  512/980.402
023033,000840: 
023034,000841: 21,3367           05427 12577  ALSK               2DEC     .17329931                             #  SSWAY VEL GAIN X 980.402/4096
023035,000842: 
023036,000843: 21,3371           77567 44202                     2DEC     -.00835370                            #  SSWAY ACCEL GAIN X 980.402/4096
023037,000844: 
023038,000845: 
023039,000846: 21,3373           24276 14066  GEORGEJ            2DEC     .63661977                             
023040,000847: 
023041,000848: 21,3375           23073 11773  GEORGEK            2DEC     .59737013                             
023042,000849: 
023043,000850: 21,3377           03146 14632  GEOCONS1           2DEC     .1                                    
023044,000851: 
023045,000852: 21,3401           00121 35341  GEOCONS2           2DEC     .005                                  
023046,000853: 
023047,000854: 21,3403           00631 23146  GEOCONS3           2DEC     .025                                  
023048,000855: 
023049,000856: 21,3405           00000 17565  GEOCONS4           2DEC     .00003                                
023050,000857: 
023051,000858: 21,3407           06200        1/PIPAGT           OCT      06200                                 
023052,000859: 21,3410           00021        17DECML            DEC      17         B-14                       
023053,000860: 21,3411           00023        19DECML            DEC      19         B-14                       
023054,000861: 21,3412           00062        1/2SECX            DEC      50         B-14                       
023055,000862: 
023056,000863: 
023057,000864: 21,3413           37671        GTSCPSS            CA       ONE                                   
023058,000865: 21,3414           55742                           TS       GEOCOMPS                              #  THIS IS THE LEAD IN FOR COMPASS
023059,000866: 21,3415           04650                           TC       NEWMODEX                              
023060,000867: 21,3416           00001                           OCT      01                                    
023061,000868: 21,3417           33407                           CA       1/PIPAGT                              
023062,000869: 21,3420           55110                           TS       1/PIPADT                              
023063,000870: 21,3421           37675                           CA       ZERO                                  
023064,000871: 21,3422           55717                           TS       PREMTRXC                              
023065,000872: 21,3423           33412                           CAF      1/2SECX                               
023066,000873: 21,3424           55744                           TS       1SECXT                                
023067,000874: 21,3425           04065                           TC       BANKCALL                              
023068,000875: 21,3426           36005                           CADR     GEOIMUTT                              #  TO IMU PERF TESTS 2
023069,000876: 
023070,000877: 
023071,000878: 21,3427                        ENDPREL1           EQUALS                                         

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