Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,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.

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

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