Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

018560,000002:                                                                                                  ## Copyright:   Public domain.
018561,000003:                                                                                                  ## Filename:    OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
018562,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
018563,000005:                                                                                                  ##              It is part of an early development version of the software
018564,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
018565,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
018566,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
018567,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
018568,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
018569,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
018570,000012:                                                                                                  ##              that the code format has been changed to conform to the
018571,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
018572,000014:                                                                                                  ##              original YUL assembler.
018573,000015:                                                                                                  ## Reference:   pp. 430-452
018574,000016:                                                                                                  ## Assembler:   yaYUL
018575,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
018576,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
018577,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
018578,000020:                                                                                                  ##              2017-06-03 HG   Transcribed
018579,000021:                                                                                                  ##              2017-06-15 HG   Fix operator CS  -> CAF
018580,000022:                                                                                                  ##                                           XCH -> TS
018581,000023:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
018582,000024:                                                                                                  ##                              octopus/ProoferComments.
018583,000025: 

Page 430

018585,000027:                                                                                                  #  PROGRAM NAME-OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
018586,000028:                                                                                                  #  DATE- NOVEMBER 2  1966
018587,000029:                                                                                                  #  BY- GEORGE SCHMIDT IL 7-146 EXT. 126
018588,000030:                                                                                                  #  MOD NO 1
018589,000031:                                                                                                  #  FUNCTIONAL DESCRIPTION
018590,000032: 
018591,000033:                                                                                                  #  THIS LOG SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS
018592,000034:                                                                                                  #  INTEGRATED TOGETHER TO SAVE WORDS. IT IS COMPLETELY RESTART PROOFED.
018593,000035:                                                                                                  #  THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
018594,000036:                                                                                                  #  EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
018595,000037:                                                                                                  #  HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
018596,000038:                                                                                                  #  OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973.BOTH OF THESE
018597,000039:                                                                                                  #  ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
018598,000040:                                                                                                  #  PROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S. THE INITIALIZATION METHOD
018599,000041: 
018600,000042:                                                                                                  #  FOR GYROCOMPASS IS IN A SOON TO COME SYSTEM TEST GROUP MEMO.
018601,000043:                                                                                                  #  THIS LOG SECTION ALWAYS STARTS BY A CADR IN IMU PERF. TESTS 2 AND BEGINS
018602,000044:                                                                                                  #  AT ESTIMS. THE PIPS ARE READ EVERY .5 SEC IN COMPASS AND 1 SEC IN DRIFT
018603,000045:                                                                                                  #  TESTS. THEN IN BOTH CASES RELEVANT COMPUTATION IS DONE. THE KEY ERASABLE
018604,000046:                                                                                                  #  IS GEOCOMPS- 0 WE ARE IN A DRIFT TEST -NONZERO WE ARE IN COMPASS.
018605,000047:                                                                                                  #  THE GYROCOMPASS HAS THE CAPABILITY TO ALIGN TO ANY ORIENTATION,HAS THE
018606,000048:                                                                                                  #  CAPABILITY TO CHANGE ORIENTATIONS WHILE RUNNING,IS COMPENSATED FOR
018607,000049:                                                                                                  #  COMPONENT ERRORS,IS CAPABLE OF OPTICAL VERIFICATION( CSM ONLY).
018608,000050: 
018609,000051:                                                                                                  #  SUBROUTINES CALLED
018610,000052: 
018611,000053:                                                                                                  #  EARTHR, CALGTA,  OGC ZERO,ERTHRVSE,GCOMPZERO AND
018612,000054:                                                                                                  #  IMU COMPENSATION
018613,000055:                                                                                                  #  DURING OPTICAL VERIFICATION (CSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN
018614,000056:                                                                                                  #  IS CALLED IN ONE WAY OR ANOTHER. SEE THE LISTING.
018615,000057: 
018616,000058:                                                                                                  #  NORMAL EXIT
018617,000059: 
018618,000060:                                                                                                  #  DRIFT TESTS- LENGTHOT GOES TO ZERO-RETURN TO IMU PERF TEST2 CONTROL
018619,000061:                                                                                                  #  GYROCOMPASS-RECEIVE GUIDANCE REFERENCE RELEASE SIGNAL-TC MP2JOB
018620,000062:                                                                                                  #                                                       206 IMPLEMENTATION
018621,000063: 
018622,000064:                                                                                                  #  ALARMS
018623,000065: 
018624,000066:                                                                                                  #  1600     OVERFLOW IN DRIFT TEST
018625,000067:                                                                                                  #  1601     BAD IMU TORQUE ABORT
018626,000068:                                                                                                  #  1602     BAD OPTICS DURING VERIFICATION-RETURN TO COMPASS      CSM ONLY
018627,000069: 
018628,000070:                                                                                                  #  OUTPUT
018629,000071: 
018630,000072:                                                                                                  #  DRIFT TESTS- FLASHING DISPLAYS OF RESULTS-CONTROLLED IN IMU PERF TESTS 2
018631,000073:                                                                                                  #  COMPASS-PROGRAM MODE LIGHTS TELL YOU WHAT PHASE OF PROGRAM YOU ARE IN
018632,000074:                                                                                                  #     01    INITIALIZING THE PLATFORM POSITION AND ERASABLE
018633,000075:                                                                                                  #     05    ERECTION     600 SECOND SPENT ERECTING PLATFORM
018634,000076:                                                                                                  #     02    GYROCOMPASSING
018635,000077:                                                                                                  #     03    DOING OPTICAL VERIFICATION (CSM)
018636,000078: 

Page 431

018638,000080:                                                                                                  #     04    GRR SIGNAL RECEIVED FINISH UP TORQUE AND TC MP2JOB
018639,000081:                                                                                                  #                                                        206 IMPLEMENTATION
018640,000082: 
018641,000083:                                                                                                  #  DEBRIS
018642,000084: 
018643,000085:                                                                                                  #  ALL CENTRALS -ALL OF EBANK 5 EBANK4 FROM JETSTEP TO JETSTEP +77D
018644,000086: 

Page 432

018646,000088: 35,2014                                           BANK     35                                    
018647,000089: 35,2014  E5,1400                                  EBANK=   XSM                                   
018648,000090: 
018649,000091: 
018650,000092: 
018651,000093:                                                                                                  #  G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
018652,000094:                                                                                                  #  PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
018653,000095: 35,2014           04147        ESTIMS             TC       PHASCHNG                              
018654,000096: 35,2015           00075                           OCT      00075                                 
018655,000097: 35,2016           00004        RSTGTS1            INHINT                                         #   COMES HERE PHASE1 RESTART
018656,000098: 35,2017           30025                           CA       TIME1                                 
018657,000099: 35,2020           55745                           TS       GTSWTLST                              
018658,000100: 35,2021           37761                           CAF      ZERO                                  #  ZERO THE PIPAS
018659,000101: 35,2022           54037                           TS       PIPAX                                 
018660,000102: 35,2023           54040                           TS       PIPAY                                 
018661,000103: 35,2024           54041                           TS       PIPAZ                                 
018662,000104: 35,2025           54404                           TS       DELVX      +1                         
018663,000105: 35,2026           54406                           TS       DELVY      +1                         
018664,000106: 35,2027           54410                           TS       DELVZ      +1                         
018665,000107: 35,2030           00003                           RELINT                                         
018666,000108: 35,2031           03027                           TC       SETUPER                               
018667,000109: 35,2032           33351                           CA       77DECML                               
018668,000110: 35,2033           55777                           TS       ZERONDX                               
018669,000111: 35,2034           33352                           CA       ALXXXZ                                
018670,000112: 35,2035           05224                           TC       BANKCALL                              
018671,000113: 35,2036           51240                           CADR     ZEROING                               
018672,000114: 
018673,000115: 35,2037           06103                           TC       INTPRET                               
018674,000116: 35,2040           77775                           VLOAD                                          
018675,000117: 35,2041           33344                                    INTVAL     +2                         
018676,000118: 35,2042           02601                           STORE    ALX1S                                 
018677,000119: 35,2043           77776                           EXIT                                           
018678,000120: 
018679,000121: 35,2044           11742                           CCS      GEOCOMPS                              #  GEOCOMPS IN NON ZERO IF COMPASS
018680,000122: 35,2045           02047                           TC       +2                                    
018681,000123: 35,2046           02742                           TC       SLEEPIE    +1                         
018682,000124: 35,2047           31527                           CA       LENGTHOT                              #    TIMES FIVE IS THE NUM OF SEC ERECTING
018683,000125: 35,2050           55746                           TS       ERECTIME                              
018684,000126: 
018685,000127: 35,2051           37755                           CA       ONE                                   
018686,000128: 35,2052           54765                           TS       PHASENUM                              
018687,000129: 35,2053           04105                           TC       NEWMODEX                              
018688,000130: 35,2054           00005                           OCT      05                                    
018689,000131: 35,2055           05224                           TC       BANKCALL                              
018690,000132: 35,2056           25602                           CADR     GCOMPZER                              #    ZERO COMPENSATION PROGRAM REGISTERS
018691,000133: 35,2057           03014                           TC       ANNNNNN                               
018692,000134: 

Page 433

018694,000136: 35,2060           00004        ALLOOP             INHINT                                         #   TASK EVERY .5 OR 1 SEC (COMPASS-DRIFT)
018695,000137: 35,2061           30025                           CA       TIME1                                 
018696,000138: 35,2062           55745                           TS       GTSWTLST                              #  STORE TIME TO SET UP NEXT WAITLIST
018697,000139: 35,2063           31664        ALLOOP3            CA       ALTIM                                 
018698,000140: 35,2064           55716                           TS       GEOSAVED                              
018699,000141: 35,2065           04147                           TC       PHASCHNG                              
018700,000142: 35,2066           00115                           OCT      00115                                 
018701,000143: 35,2067           02071                           TC       +2                                    
018702,000144: 
018703,000145: 35,2070           00004        ALLOOP1            INHINT                                         #  RESTARTS COME IN HERE
018704,000146: 35,2071           31716                           CA       GEOSAVED                              
018705,000147: 35,2072           55664                           TS       ALTIM                                 
018706,000148: 35,2073           10000                           CCS      A                                     
018707,000149: 35,2074           30000                           CA       A                                     #  SHOULD NEVER HIT THIS LOCATION
018708,000150: 35,2075           55665                           TS       ALTIMS                                
018709,000151: 35,2076           40000                           CS       A                                     
018710,000152: 35,2077           55664                           TS       ALTIM                                 
018711,000153: 35,2100           30037                           CA       PIPAX                                 
018712,000154: 35,2101           54403                           TS       DELVX                                 
018713,000155: 35,2102           30040                           CA       PIPAY                                 
018714,000156: 35,2103           54405                           TS       DELVY                                 
018715,000157: 35,2104           30041                           CA       PIPAZ                                 
018716,000158: 35,2105           54407                           TS       DELVZ                                 
018717,000159: 35,2106           33370                           CA       OCT31                                 
018718,000160: 35,2107           04234                           TC       NEWPHASE                              
018719,000161: 35,2110           00005                           OCT      00005                                 
018720,000162: 35,2111           00003        PIPSTRTS           RELINT                                         
018721,000163: 35,2112           37761                           CAF      ZERO                                  
018722,000164: 35,2113           54037                           TS       PIPAX                                 
018723,000165: 35,2114           54040                           TS       PIPAY                                 
018724,000166: 35,2115           54041                           TS       PIPAZ                                 
018725,000167: 35,2116           04147                           TC       PHASCHNG                              
018726,000168: 
018727,000169: 35,2117           00235                           OCT      00235                                 
018728,000170: 35,2120           00003                           RELINT                                         
018729,000171: 35,2121           37740        SPECSTS            CAF      PRIO20                                
018730,000172: 35,2122           05534                           TC       FINDVAC                               
018731,000173: 35,2123  E5,1400                                  EBANK=   XSM                                   
018732,000174: 35,2123           02126 72065                     2CADR    ALFLT                                 #  START THE JOB
018733,000175: 
018734,000176: 35,2125           05745                           TC       TASKOVER                              
018735,000177: 

Page 434

018737,000179: 35,2126           03040        ALFLT              TC       STOREDTA                              #   STORE DATA IN CASE OF RESTART IN JOB
018738,000180: 35,2127           04147                           TC       PHASCHNG                              #  THIS IS THE JOB DONE EVERY ITERATION
018739,000181: 35,2130           00215                           OCT      00215                                 
018740,000182: 35,2131           00003                           RELINT                                         #  INHINT IN PHASCHNG
018741,000183: 35,2132           11742                           CCS      GEOCOMPS                              
018742,000184: 35,2133           02135                           TC       +2                                    
018743,000185: 35,2134           02141                           TC       NORMLOP                               
018744,000186: 35,2135           05224                           TC       BANKCALL                              #   COMPENSATION IF IN COMPASS
018745,000187: 35,2136           25220                           CADR     1/PIPA                                
018746,000188: 35,2137           02141                           TC       NORMLOP                               
018747,000189: 
018748,000190: 
018749,000191: 
018750,000192: 35,2140           03061        ALFLT1             TC       LOADSTDT                              #   COMES HERE ON RESTART
018751,000193: 
018752,000194: 35,2141           03421        NORMLOP            TC       CHKCOMED                              #  SEE IF GYROCOMPASS OVER
018753,000195: 
018754,000196: 35,2142           06103                           TC       INTPRET                               
018755,000197: 35,2143           77745                           DLOAD                                          
018756,000198: 35,2144           33342                                    INTVAL                                
018757,000199: 35,2145           00051                           STORE    S1                                    #   STEP REGISTERS MAY HAVE BEEN WIPED OUT
018758,000200: 35,2146           53135                           SLOAD    BZE                                   
018759,000201: 35,2147           02743                                    GEOCOMPS                              
018760,000202: 35,2150           72153                                    ALCGKK                                
018761,000203: 35,2151           77650                           GOTO                                           
018762,000204: 35,2152           72170                                    ALFLT2                                
018763,000205: 35,2153           50135        ALCGKK             SLOAD    BMN                                   
018764,000206: 35,2154           02666                                    ALTIMS                                
018765,000207: 35,2155           72170                                    ALFLT2                                
018766,000208: 35,2156           72174        ALKCG              AXT,2    LXA,1                                 #   LOADS SLOPES AND TIME CONSTANTS AT RQST
018767,000209: 35,2157           00014                                    12D                                   
018768,000210: 35,2160           02600                                    ALX1S                                 
018769,000211: 35,2161           62143        ALKCG2             DLOAD*   INCR,1                                
018770,000212: 35,2162           33334                                    ALFDK      +144D,1                    
018771,000213: 35,2163           77775                           DEC      -2         B-14                       
018772,000214: 35,2164           12701                           STORE    ALDK       +10D,2                     
018773,000215: 35,2165           66104                           TIX,2    SXA,1                                 
018774,000216: 35,2166           72161                                    ALKCG2                                
018775,000217: 
018776,000218: 35,2167           02600                                    ALX1S                                 
018777,000219: 
018778,000220: 35,2170           61375        ALFLT2             VLOAD    VXM                                   
018779,000221: 35,2171           00404                                    DELVX                                 
018780,000222: 35,2172           02750                                    GEOMTRX                               
018781,000223: 35,2173           77772                           VSL1                                           
018782,000224: 35,2174           57545                           DLOAD    DCOMP                                 
018783,000225: 35,2175           00150                                    MPAC       +3                         
018784,000226: 35,2176           16657                           STODL    DPIPAY                                
018785,000227: 35,2177           00152                                    MPAC       +5                         
018786,000228: 35,2200           02663                           STORE    DPIPAZ                                
018787,000229: 

Page 435

018789,000231: 
018790,000232: 35,2201           76001                           SETPD    AXT,1                                 #  MEASUREMENT INCORPORATION ROUTINES.
018791,000233: 35,2202           00001                                    0                                     
018792,000234: 35,2203           00010                                    8D                                    
018793,000235: 35,2204           53135                           SLOAD    BZE                                   
018794,000236: 35,2205           02743                                    GEOCOMPS                              
018795,000237: 35,2206           72211                                    DELMLP                                
018796,000238: 35,2207           77650                           GOTO                                           
018797,000239: 35,2210           72517                                    ALWAYSG                               #  DO A QUICK COMPASS
018798,000240: 35,2211           41343        DELMLP             DLOAD*   DMP                                   
018799,000241: 35,2212           02667                                    DPIPAY     +8D,1                      
018800,000242: 35,2213           33355                                    PIPASC                                
018801,000243: 35,2214           42661                           SLR      DAD*                                  
018802,000244: 35,2215           21212                                    9D                                    
018803,000245: 35,2216           02715                                    DELM       +8D,1                      
018804,000246: 35,2217           64623                           DSU*     PDDL*                                 
018805,000247: 35,2220           02635                                    INTY       +8D,1                      
018806,000248: 35,2221           02655                                    VLAUN      +8D,1                      
018807,000249: 35,2222           41223                           DSU*     DMP                                   
018808,000250: 35,2223           02627                                    VLAUNS     +8D,1                      
018809,000251: 
018810,000252: 35,2224           33357                                    VELSC                                 
018811,000253: 35,2225           77732                           SL2R                                           
018812,000254: 35,2226           45415                           DAD      STADR                                 
018813,000255: 35,2227           71062                           STORE    DELM       +8D,1                      
018814,000256: 35,2230           06717                           STORE    DELM       +10D,1                     
018815,000257: 35,2231           77743                           DLOAD*                                         
018816,000258: 35,2232           02655                                    VLAUN      +8D,1                      
018817,000259: 35,2233           06627                           STORE    VLAUNS     +8D,1                      
018818,000260: 35,2234           77745                           DLOAD                                          
018819,000261: 35,2235           33340                                    INTVAL     -2                         
018820,000262: 35,2236           06635                           STORE    INTY       +8D,1                      
018821,000263: 35,2237           77100                           TIX,1    AXT,2                                 
018822,000264: 35,2240           72211                                    DELMLP                                
018823,000265: 35,2241           00004                                    4                                     
018824,000266: 35,2242           56743        ALILP              DLOAD*   DMPR*                                 
018825,000267: 35,2243           75170                                    ALK        +4,2                       
018826,000268: 35,2244           75104                                    ALDK       +4,2                       
018827,000269: 35,2245           12607                           STORE    ALK        +4,2                       
018828,000270: 35,2246           77104                           TIX,2    AXT,2                                 
018829,000271: 35,2247           72242                                    ALILP                                 
018830,000272: 35,2250           00010                                    8D                                    
018831,000273: 35,2251           66140        ALKLP              LXC,1    SXA,1                                 
018832,000274: 35,2252           02601                                    CMPX1                                 
018833,000275: 
018834,000276: 35,2253           02601                                    CMPX1                                 
018835,000277: 35,2254           56743                           DLOAD*   DMPR*                                 
018836,000278: 35,2255           02604                                    ALK        +1,1                       
018837,000279: 35,2256           75062                                    DELM       +8D,2                      
018838,000280: 35,2257           77613                           DAD*                                           
018839,000281: 35,2260           75142                                    INTY       +8D,2                      
018840,000282: 35,2261           12635                           STORE    INTY       +8D,2                      
018841,000283: 35,2262           42743                           DLOAD*   DAD*                                  
018842,000284: 

Page 436

018844,000286: 35,2263           75160                                    ALK        +12D,2                     
018845,000287: 35,2264           75074                                    ALDK       +12D,2                     
018846,000288: 
018847,000289: 35,2265           12617                           STORE    ALK        +12D,2                     
018848,000290: 35,2266           42673                           DMPR*    DAD*                                  
018849,000291: 35,2267           75062                                    DELM       +8D,2                      
018850,000292: 35,2270           75132                                    INTY       +16D,2                     
018851,000293: 35,2271           12645                           STORE    INTY       +16D,2                     
018852,000294: 35,2272           40743                           DLOAD*   DMP*                                  
018853,000295: 35,2273           33362                                    ALSK       +1,1                       
018854,000296: 35,2274           75062                                    DELM       +8D,2                      
018855,000297: 35,2275           42772                           SL1R     DAD*                                  
018856,000298: 35,2276           75122                                    VLAUN      +8D,2                      
018857,000299: 35,2277           12655                           STORE    VLAUN      +8D,2                      
018858,000300: 35,2300           76104                           TIX,2    AXT,1                                 
018859,000301: 35,2301           72251                                    ALKLP                                 
018860,000302: 35,2302           00010                                    8D                                    
018861,000303: 
018862,000304: 
018863,000305: 35,2303           64743        LOOSE              DLOAD*   PDDL*                                 
018864,000306: 35,2304           02657                                    ACCWD      +8D,1                      
018865,000307: 35,2305           02655                                    VLAUN      +8D,1                      
018866,000308: 35,2306           55523                           PDDL*    VDEF                                  
018867,000309: 35,2307           02665                                    POSNV      +8D,1                      
018868,000310: 35,2310           76521                           MXV      VSL1                                  
018869,000311: 
018870,000312: 35,2311           02721                                    TRANSM1                               
018871,000313: 35,2312           77745                           DLOAD                                          
018872,000314: 35,2313           00145                                    MPAC                                  
018873,000315: 35,2314           06665                           STORE    POSNV      +8D,1                      
018874,000316: 35,2315           77745                           DLOAD                                          
018875,000317: 35,2316           00150                                    MPAC       +3                         
018876,000318: 35,2317           06655                           STORE    VLAUN      +8D,1                      
018877,000319: 35,2320           77745                           DLOAD                                          
018878,000320: 35,2321           00152                                    MPAC       +5                         
018879,000321: 35,2322           06657                           STORE    ACCWD      +8D,1                      
018880,000322: 35,2323           77700                           TIX,1                                          
018881,000323: 35,2324           72303                                    LOOSE                                 
018882,000324: 
018883,000325: 
018884,000326: 
018885,000327: 35,2325           76174                           AXT,2    AXT,1                                 #  EVALUATE SINES AND COSINES
018886,000328: 35,2326           00006                                    6                                     
018887,000329: 35,2327           00002                                    2                                     
018888,000330: 35,2330           57343        BOOP               DLOAD*   DMPR                                  
018889,000331: 35,2331           02637                                    ANGX       +2,1                       
018890,000332: 35,2332           33365                                    GEORGEJ                               
018891,000333: 35,2333           77722                           SR2R                                           
018892,000334: 35,2334           73406                           PUSH     SIN                                   
018893,000335: 
018894,000336: 35,2335           56172                           SL1R     XAD,1                                 
018895,000337: 35,2336           00046                                    X1                                    
018896,000338: 

Page 437

018898,000340: 35,2337           10021                           STORE    16D,2                                 
018899,000341: 35,2340           77745                           DLOAD                                          
018900,000342: 35,2341           77746                           COS                                            
018901,000343: 35,2342           10027                           STORE    22D,2                                 #  COSINES
018902,000344: 35,2343           71304                           TIX,2    DLOAD                                 
018903,000345: 35,2344           72330                                    BOOP                                  
018904,000346: 
018905,000347: 
018906,000348: 
018907,000349: 35,2345           00017                                    14D                                   
018908,000350: 35,2346           43312                           SL2      DAD                                   
018909,000351: 35,2347           02625                                    INTY                                  
018910,000352: 35,2350           16625                           STODL    INTY                                  
018911,000353: 35,2351           00015                                    12D                                   
018912,000354: 35,2352           56405                           DMP      SL3R                                  
018913,000355: 35,2353           00025                                    20D                                   
018914,000356: 35,2354           77615                           DAD                                            
018915,000357: 35,2355           02631                                    INTZ                                  
018916,000358: 35,2356           16631                           STODL    INTZ                                  
018917,000359: 35,2357           00021                                    16D                                   
018918,000360: 35,2360           57275                           DMPR     DMPR                                  
018919,000361: 35,2361           00023                                    18D                                   
018920,000362: 35,2362           00017                                    14D                                   
018921,000363: 35,2363           77712                           SL2                                            
018922,000364: 35,2364           57325                           PDDL     DMPR                                  
018923,000365: 35,2365           00013                                    10D                                   
018924,000366: 35,2366           00015                                    12D                                   
018925,000367: 35,2367           77615                           DAD                                            
018926,000368: 35,2370           77675                           DMPR                                           
018927,000369: 35,2371           02573                                    WANGI                                 
018928,000370: 35,2372           57325                           PDDL     DMPR                                  
018929,000371: 35,2373           00023                                    18D                                   
018930,000372: 
018931,000373: 35,2374           00025                                    20D                                   
018932,000374: 35,2375           66405                           DMP      SL2R                                  
018933,000375: 35,2376           02571                                    WANGO                                 
018934,000376: 35,2377           77621                           BDSU                                           
018935,000377: 35,2400           02637                                    DRIFTO                                
018936,000378: 35,2401           45425                           DSU      STADR                                 
018937,000379: 35,2402           61156                           STODL    WPLATO                                
018938,000380: 35,2403           00021                                    16D                                   
018939,000381: 35,2404           41275                           DMPR     DMP                                   
018940,000382: 35,2405           00025                                    20D                                   
018941,000383: 35,2406           02573                                    WANGI                                 
018942,000384: 35,2407           77732                           SL2R                                           
018943,000385: 35,2410           57325                           PDDL     DMPR                                  
018944,000386: 35,2411           02571                                    WANGO                                 
018945,000387: 35,2412           00017                                    14D                                   
018946,000388: 35,2413           77615                           DAD                                            
018947,000389: 35,2414           02641                                    DRIFTI                                
018948,000390: 35,2415           77625                           DSU                                            
018949,000391: 

Page 438

018951,000393: 35,2416           57325                           PDDL     DMPR                                  
018952,000394: 35,2417           02575                                    WANGT                                 
018953,000395: 35,2420           02573                                    WANGI                                 
018954,000396: 35,2421           45415                           DAD      STADR                                 
018955,000397: 35,2422           61062                           STODL    WPLATI                                
018956,000398: 35,2423           00023                                    18D                                   
018957,000399: 35,2424           76405                           DMP      SL1R                                  
018958,000400: 35,2425           00013                                    10D                                   
018959,000401: 35,2426           57325                           PDDL     DMPR                                  
018960,000402: 35,2427           00015                                    12D                                   
018961,000403: 35,2430           00021                                    16D                                   
018962,000404: 35,2431           76405                           DMP      SL1R                                  
018963,000405: 35,2432           00017                                    14D                                   
018964,000406: 35,2433           77621                           BDSU                                           
018965,000407: 
018966,000408: 35,2434           77675                           DMPR                                           
018967,000409: 35,2435           02573                                    WANGI                                 
018968,000410: 35,2436           57325                           PDDL     DMPR                                  
018969,000411: 35,2437           00015                                    12D                                   
018970,000412: 35,2440           00025                                    20D                                   
018971,000413: 35,2441           76405                           DMP      SL1R                                  
018972,000414: 35,2442           02571                                    WANGO                                 
018973,000415: 35,2443           77621                           BDSU                                           
018974,000416: 35,2444           02577                                    DRIFTT                                
018975,000417: 35,2445           77615                           DAD                                            #   WPLATT NOW IN MPAC
018976,000418: 35,2446           77606                           PUSH                                           #  PUSH IT DOWN-X IT BY SANG +2
018977,000419: 35,2447           74475                           DMPR     SR1R                                  
018978,000420: 35,2450           00015                                    12D                                   
018979,000421: 35,2451           57325                           PDDL     DMPR                                  
018980,000422: 35,2452           02621                                    WPLATO                                
018981,000423: 35,2453           00023                                    18D                                   
018982,000424: 35,2454           77615                           DAD                                            
018983,000425: 35,2455           77671                           DDV                                            
018984,000426: 35,2456           00025                                    20D                                   
018985,000427: 35,2457           57206                           PUSH     DMPR                                  
018986,000428: 35,2460           33367                                    GEORGEK                               
018987,000429: 35,2461           43261                           SRR      DAD                                   
018988,000430: 35,2462           21616                                    13D                                   
018989,000431: 
018990,000432: 35,2463           02635                                    ANGX                                  
018991,000433: 35,2464           16635                           STODL    ANGX                                  
018992,000434: 35,2465           43275                           DMPR     DAD                                   
018993,000435: 35,2466           00017                                    14D                                   
018994,000436: 35,2467           02715                                    WPLATI                                
018995,000437: 35,2470           54275                           DMPR     SRR                                   
018996,000438: 35,2471           33367                                    GEORGEK                               
018997,000439: 35,2472           21616                                    13D                                   
018998,000440: 35,2473           77615                           DAD                                            
018999,000441: 35,2474           02633                                    ANGY                                  
019000,000442: 35,2475           16633                           STODL    ANGY                                  
019001,000443: 35,2476           00023                                    18D                                   
019002,000444: 35,2477           76405                           DMP      SL1R                                  #  MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
019003,000445: 

Page 439

019005,000447: 35,2500           57325                           PDDL     DMPR                                  
019006,000448: 35,2501           00015                                    12D                                   
019007,000449: 35,2502           02621                                    WPLATO                                
019008,000450: 35,2503           77621                           BDSU                                           
019009,000451: 35,2504           54275                           DMPR     SRR                                   
019010,000452: 35,2505           33367                                    GEORGEK                               
019011,000453: 35,2506           21616                                    13D                                   
019012,000454: 35,2507           77615                           DAD                                            
019013,000455: 35,2510           02627                                    ANGZ                                  
019014,000456: 35,2511           02627                           STORE    ANGZ                                  
019015,000457: 35,2512           77404                           BOVB     EXIT                                  
019016,000458: 35,2513           72773                                    SOMEERRR                              
019017,000459: 35,2514           11527                           CCS      LENGTHOT                              
019018,000460: 35,2515           02741                           TC       SLEEPIE                               
019019,000461: 35,2516           02703                           TC       SETUPER1                              
019020,000462: 
019021,000463: 
019022,000464: 
019023,000465: 35,2517           44743        ALWAYSG            DLOAD*   DSU*                                  #  COMPASS AND ERECT
019024,000466: 
019025,000467: 35,2520           02667                                    DPIPAY     +8D,1                      
019026,000468: 35,2521           02655                                    FILDELV    +8D,1                      
019027,000469: 35,2522           42675                           DMPR     DAD*                                  
019028,000470: 35,2523           33372                                    GEOCONS1                              
019029,000471: 35,2524           02655                                    FILDELV    +8D,1                      
019030,000472: 35,2525           06655                           STORE    FILDELV    +8D,1                      
019031,000473: 35,2526           77613                           DAD*                                           
019032,000474: 35,2527           02657                                    INTVEC     +8D,1                      
019033,000475: 35,2530           06657                           STORE    INTVEC     +8D,1                      
019034,000476: 35,2531           42675                           DMPR     DAD*                                  
019035,000477: 35,2532           33374                                    GEOCONS2                              
019036,000478: 35,2533           02655                                    FILDELV    +8D,1                      
019037,000479: 35,2534           41475                           DMPR     PUSH                                  
019038,000480: 35,2535           33372                                    GEOCONS1                              
019039,000481: 35,2536           67300                           TIX,1    SLOAD                                 
019040,000482: 35,2537           72517                                    ALWAYSG                               
019041,000483: 35,2540           02747                                    ERECTIME                              
019042,000484: 35,2541           71254                           BZE      DLOAD                                 
019043,000485: 35,2542           72553                                    COMPGS                                #  COMPASS
019044,000486: 35,2543           02627                                    THETAN     +2                         
019045,000487: 35,2544           45425                           DSU      STADR                                 
019046,000488: 35,2545           61150                           STODL    THETAN     +2                         
019047,000489: 35,2546           77621                           BDSU                                           
019048,000490: 
019049,000491: 35,2547           02631                                    THETAN     +4                         
019050,000492: 35,2550           02631                           STORE    THETAN     +4                         
019051,000493: 35,2551           77650                           GOTO                                           
019052,000494: 35,2552           72575                                    ADDINDRF                              
019053,000495: 35,2553           43345        COMPGS             DLOAD    DAD                                   #  COMPASS
019054,000496: 35,2554           02625                                    THETAN                                
019055,000497: 35,2555           02645                                    FILDELV                               
019056,000498: 35,2556           16625                           STODL    THETAN                                
019057,000499: 

Page 440

019059,000501: 35,2557           02645                                    FILDELV                               
019060,000502: 35,2560           44275                           DMPR     BDSU                                  
019061,000503: 
019062,000504: 35,2561           33376                                    GEOCONS3                              
019063,000505: 35,2562           02631                                    THETAN     +4                         
019064,000506: 35,2563           16631                           STODL    THETAN     +4                         
019065,000507: 35,2564           02651                                    FILDELV    +4                         
019066,000508: 35,2565           44275                           DMPR     BDSU                                  
019067,000509: 35,2566           33376                                    GEOCONS3                              
019068,000510: 35,2567           02627                                    THETAN     +2                         
019069,000511: 35,2570           41325                           PDDL     DMP                                   
019070,000512: 35,2571           02653                                    INTVEC     +4                         
019071,000513: 35,2572           33400                                    GEOCONS4                              
019072,000514: 35,2573           45421                           BDSU     STADR                                 
019073,000515: 35,2574           75150                           STORE    THETAN     +2                         
019074,000516: 35,2575           77775        ADDINDRF           VLOAD                                          
019075,000517: 35,2576           02625                                    THETAN                                
019076,000518: 35,2577           03611                           STORE    COMPTORK                              #  IN E7 FOR DOWNLINK.
019077,000519: 35,2600           77776                           EXIT                                           
019078,000520: 
019079,000521: 35,2601           11527        ENDGTSAL           CCS      LENGTHOT                              #   IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
019080,000522: 35,2602           02741                           TC       SLEEPIE                               #   NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
019081,000523: 35,2603           10356                           CCS      LGYRO                                 #   YES BUT ARE GYROS BUSY
019082,000524: 35,2604           13016                           TCF      ANNNNNN    +2                         #   BUSY-GET THEM .5 SECONDS FROM NOW
019083,000525: 
019084,000526: 
019085,000527: 
019086,000528: 35,2605           03421                           TC       CHKCOMED                              #  SEE IF LAST TIME FOR COMPASS
019087,000529: 
019088,000530: 35,2606           06103        LASTGTS            TC       INTPRET                               
019089,000531: 35,2607           77775                           VLOAD                                          
019090,000532: 35,2610           02772                                    ERCOMP                                
019091,000533: 35,2611           16617                           STODL    THETAX                                
019092,000534: 35,2612           02565                                    TMARK                                 
019093,000535: 35,2613           02603                           STORE    ALK                                   
019094,000536: 35,2614           77776                           EXIT                                           #  PREVIOUS SECTION WAS FOR RESTARTS
019095,000537: 
019096,000538: 35,2615           04147        RESTAIER           TC       PHASCHNG                              
019097,000539: 
019098,000540: 35,2616           00275                           OCT      00275                                 
019099,000541: 35,2617           00003                           RELINT                                         
019100,000542: 35,2620           06103                           TC       INTPRET                               #  ADD COMPASS COMMANDS INTO ERATE
019101,000543: 35,2621           64375                           VLOAD    MXV                                   
019102,000544: 35,2622           02625                                    THETAN                                
019103,000545: 35,2623           02750                                    GEOMTRX                               
019104,000546: 35,2624           53372                           VSL1     VAD                                   
019105,000547: 35,2625           02617                                    THETAX                                
019106,000548: 35,2626           16772                           STODL    ERCOMP                                
019107,000549: 35,2627           02603                                    ALK                                   
019108,000550: 35,2630           02565                           STORE    TMARK                                 
019109,000551: 
019110,000552: 35,2631           77776                           EXIT                                           
019111,000553: 

Page 441

019113,000555: 35,2632           05224                           TC       BANKCALL                              
019114,000556: 35,2633           30424                           CADR     EARTHR                                #  TORQUE IT ALL IN
019115,000557: 
019116,000558: 
019117,000559: 
019118,000560: 35,2634           04147                           TC       PHASCHNG                              
019119,000561: 35,2635           00155                           OCT      00155                                 
019120,000562: 35,2636           00003                           RELINT                                         
019121,000563: 
019122,000564: 35,2637           04121        RESTEST1           TC       CHECKMM                               #  CHECK IF COMPASS OVER
019123,000565: 35,2640           00004                           OCT      04                                    
019124,000566: 35,2641           02643                           TC       +2                                    #  NO, CONTINUE
019125,000567: 35,2642           03431                           TC       PRELTERN                              #  COMPASS OVER
019126,000568: 
019127,000569: 
019128,000570: 
019129,000571: 35,2643           00004                           INHINT                                         
019130,000572: 35,2644           31717                           CA       PREMTRXC                              
019131,000573: 35,2645           00006                           EXTEND                                         
019132,000574: 35,2646           63004                           BZMF     NOCHORLD                              #  +1 -CHANGE, 0 OR -1 NO LOAD OR LOADING
019133,000575: 35,2647           03100                           TC       LOADXSM                               #  IF THERE WAS A CHANGE LOAD IT INTO XSM
019134,000576: 35,2650           04147                           TC       PHASCHNG                              
019135,000577: 35,2651           00255                           OCT      00255                                 
019136,000578: 35,2652           37761        RESTEST3           CA       ZERO                                  #  RESET CHANGE INDEX TO ZERO
019137,000579: 35,2653           55717                           TS       PREMTRXC                              
019138,000580: 35,2654           00003                           RELINT                                         
019139,000581: 

Page 442

019141,000583: 35,2655           06103                           TC       INTPRET                               #  HERE TO CHANGE ORIENTATOON
019142,000584: 35,2656           77770                           AXT,1                                          #  DESIRED IN XSM,PRESENT IN GEOMTRX
019143,000585: 35,2657           00022                                    18D                                   
019144,000586: 35,2660           77731                           SSP                                            
019145,000587: 35,2661           00051                                    S1                                    
019146,000588: 35,2662           00006                                    6                                     
019147,000589: 35,2663           50373        LOADM              VLOAD*   DOT                                   
019148,000590: 35,2664           02423                                    XSM        +18D,1                     
019149,000591: 35,2665           02764                                    GEOMTRX    +12D                       
019150,000592: 35,2666           50313                           PDVL*    DOT                                   
019151,000593: 35,2667           02423                                    XSM        +18D,1                     
019152,000594: 35,2670           02756                                    GEOMTRX    +6D                        
019153,000595: 35,2671           50313                           PDVL*    DOT                                   
019154,000596: 35,2672           02423                                    XSM        +18D,1                     
019155,000597: 
019156,000598: 35,2673           02750                                    GEOMTRX                               
019157,000599: 35,2674           53466                           VDEF     UNIT                                  
019158,000600: 35,2675           06445                           STORE    XDC        +18D,1                     
019159,000601: 35,2676           45100                           TIX,1    CALL                                  
019160,000602: 35,2677           72663                                    LOADM                                 
019161,000603: 35,2700           32472                                    CALCGTA                               
019162,000604: 35,2701           77776                           EXIT                                           
019163,000605: 35,2702           02717                           TC       TORQINCH                              #  NECESSARY TORQUE NOW IN OGC
019164,000606: 
019165,000607: 
019166,000608: 
019167,000609: 35,2703           06103        SETUPER1           TC       INTPRET                               
019168,000610: 35,2704           65345                           DLOAD    PDDL                                  #  ANGLES FROM DRIFT TEST ONLY
019169,000611: 35,2705           02627                                    ANGZ                                  
019170,000612: 35,2706           02633                                    ANGY                                  
019171,000613: 35,2707           55525                           PDDL     VDEF                                  
019172,000614: 35,2710           02635                                    ANGX                                  
019173,000615: 35,2711           74276                           VCOMP    VXSC                                  
019174,000616: 35,2712           33365                                    GEORGEJ                               
019175,000617: 35,2713           74521                           MXV      VSR1                                  
019176,000618: 35,2714           02750                                    GEOMTRX                               
019177,000619: 35,2715           02501                           STORE    OGC                                   
019178,000620: 35,2716           77776                           EXIT                                           
019179,000621: 
019180,000622: 
019181,000623: 
019182,000624: 35,2717           04147        TORQINCH           TC       PHASCHNG                              
019183,000625: 35,2720           00175                           OCT      00175                                 
019184,000626: 35,2721           00003                           RELINT                                         #  INHINT IN PHASCHNG
019185,000627: 35,2722           33353                           CA       AINGYRO                               
019186,000628: 35,2723           05224                           TC       BANKCALL                              
019187,000629: 35,2724           26361                           CADR     IMUPULSE                              
019188,000630: 35,2725           05224                           TC       BANKCALL                              
019189,000631: 35,2726           26762                           CADR     IMUSTALL                              
019190,000632: 35,2727           02776                           TC       SOMERR2                               #  BAD GYRO TORQUE-END OF TEST
019191,000633: 

Page 443

019193,000635: 35,2730           11574        GEOSTRT4           CCS      TORQNDX                               #   ONLY POSITIVE IF IN VERTICAL DRIFT TEST
019194,000636: 35,2731           02737                           TC       GEOBAVR                               #  VERT DRIFT TEST OVER
019195,000637: 35,2732           03027                           TC       SETUPER                               #   SET UP ERATE FOR PIPTEST OR COMPASS
019196,000638: 35,2733           11742                           CCS      GEOCOMPS                              
019197,000639: 35,2734           03002                           TC       TQORESTM                              
019198,000640: 35,2735           05224                           TC       BANKCALL                              #  GO TO IMU2 FOR A PIPA TEST AND DISPLAY
019199,000641: 35,2736           50077                           CADR     TORQUE                                
019200,000642: 
019201,000643: 35,2737           05224        GEOBAVR            TC       BANKCALL                              
019202,000644: 35,2740           50225                           CADR     VALMIS                                #   DISPLAY VERTICAL DRIFT
019203,000645: 

Page 444

019205,000647:                                                                                                  #  SET UP WAITLIST SECTION
019206,000648: 35,2741           55527        SLEEPIE            TS       LENGTHOT                              #  TEST NOT OVER-DECREMENT LENGTHOT
019207,000649: 
019208,000650: 35,2742           04147                           TC       PHASCHNG                              #   CHANGE PHASE
019209,000651: 35,2743           00135                           OCT      00135                                 
019210,000652: 35,2744           00003                           RELINT                                         #  INHINT IN PHASCHNG
019211,000653: 35,2745           11574                           CCS      TORQNDX                               #  ARE WE DOING VERTDRIFT
019212,000654: 35,2746           02750                           TC       EARTTPRQ                              #  YES,DO HOR ERATE TORQ THEN SLEEP
019213,000655: 35,2747           02752                           TC       WTLISTNT                              #  GO TO SET UP NEXT WAITLIST
019214,000656: 35,2750           05224        EARTTPRQ           TC       BANKCALL                              #  IN VERTDRIFT,ADD HOR ERATE AND SLEEP
019215,000657: 35,2751           30424                           CADR     EARTHR                                
019216,000658: 35,2752           03421        WTLISTNT           TC       CHKCOMED                              #  SEE IF GYROCOMPASS OVER
019217,000659: 
019218,000660: 35,2753           00004                           INHINT                                         
019219,000661: 35,2754           40025                           CS       TIME1                                 
019220,000662: 35,2755           61745                           AD       GTSWTLST                              
019221,000663: 35,2756           00006                           EXTEND                                         
019222,000664: 35,2757           62761                           BZMF     +2                                    
019223,000665: 35,2760           67737                           AD       NEGMAX                                
019224,000666: 35,2761           61744                           AD       1SECXT                                #  1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
019225,000667: 35,2762           00006                           EXTEND                                         
019226,000668: 35,2763           62771                           BZMF     RIGHTGTS                              
019227,000669: 35,2764           05701        WTGTSMPL           TC       WAITLIST                              
019228,000670: 35,2765  E5,1400                                  EBANK=   XSM                                   
019229,000671: 35,2765           02060 72065                     2CADR    ALLOOP                                
019230,000672: 
019231,000673: 35,2767           00003                           RELINT                                         
019232,000674: 35,2770           05605                           TC       ENDOFJOB                              
019233,000675: 35,2771           37754        RIGHTGTS           CAF      TWO                                   
019234,000676: 35,2772           02764                           TC       WTGTSMPL                              
019235,000677: 
019236,000678: 
019237,000679: 
019238,000680: 35,2773           04744        SOMEERRR           TC       ALARM                                 
019239,000681: 35,2774           01600                           OCT      1600                                  
019240,000682: 35,2775           03000                           TC       +3                                    
019241,000683: 35,2776           04744        SOMERR2            TC       ALARM                                 
019242,000684: 35,2777           01601                           OCT      1601                                  
019243,000685: 35,3000           05224                           TC       BANKCALL                              
019244,000686: 35,3001           30747                           CADR     ENDTEST                               
019245,000687: 

Page 445

019247,000689: 35,3002           05224        TQORESTM           TC       BANKCALL                              
019248,000690: 35,3003           51614                           CADR     LOADGTSM                              #  LOAD NEW XSM MATRIX INTO GEOMTRX
019249,000691: 
019250,000692: 35,3004           00003        NOCHORLD           RELINT                                         #  AFTER CHANGEIN ORIEN OR NO CHANGE
019251,000693: 35,3005           06103                           TC       INTPRET                               
019252,000694: 35,3006           77775                           VLOAD                                          
019253,000695: 35,3007           33334                                    SCHZEROS                              
019254,000696: 35,3010           02625                           STORE    THETAN                                
019255,000697: 
019256,000698: 35,3011           77776                           EXIT                                           
019257,000699: 35,3012           11746                           CCS      ERECTIME                              
019258,000700: 35,3013           55746                           TS       ERECTIME                              #         COUNTS DOWN FOR ERECTION
019259,000701: 
019260,000702: 35,3014           34517        ANNNNNN            CAF      NINE                                  
019261,000703: 35,3015           55527                           TS       LENGTHOT                              
019262,000704: 35,3016           11746                           CCS      ERECTIME                              
019263,000705: 35,3017           02742                           TC       SLEEPIE    +1                         
019264,000706: 35,3020           04121                           TC       CHECKMM                               #  IN COMPASS CHECK FOR VERIFICATION
019265,000707: 35,3021           00003                           OCT      03                                    
019266,000708: 35,3022           03024                           TC       +2                                    #  NOT VERIFYING
019267,000709: 35,3023           02742                           TC       SLEEPIE    +1                         #  YES
019268,000710: 35,3024           04105                           TC       NEWMODEX                              
019269,000711: 35,3025           00002                           OCT      02                                    
019270,000712: 35,3026           02742                           TC       SLEEPIE    +1                         #  COMPASS IS 02  -ERECTION 05
019271,000713: 35,3027           00006        SETUPER            EXTEND                                         #  SUBROUTINE CALLED IN 3 PLACES
019272,000714: 35,3030           23547                           QXCH     QPLACES                               
019273,000715: 35,3031           06103                           TC       INTPRET                               
019274,000716: 35,3032           77624                           CALL                                           
019275,000717: 35,3033           30407                                    ERTHRVSE                              
019276,000718: 35,3034           77776                           EXIT                                           
019277,000719: 35,3035           05224                           TC       BANKCALL                              
019278,000720: 35,3036           30731                           CADR     OGCZERO                               
019279,000721: 
019280,000722: 35,3037           01547                           TC       QPLACES                               
019281,000723: 

Page 446

019283,000725: 35,3040     5370               GEOBND             =        EBANK3                                
019284,000726: 35,3040     5677               GEOBND1            =        EBANK5                                
019285,000727: 35,3040           35370        STOREDTA           CAF      GEOBND                                
019286,000728: 35,3041           54001                           TS       L                                     
019287,000729: 35,3042           33351                           CAF      77DECML                               
019288,000730: 35,3043           54144                           TS       MPAC                                  
019289,000731: 35,3044           50144                           INDEX    MPAC                                  
019290,000732: 35,3045           31600                           CA       ALX1S                                 
019291,000733: 35,3046           22003                           LXCH     EBANK                                 
019292,000734: 35,3047  0001600                                  EBANK=   RESTRTCS                              
019293,000735: 35,3047           50144                           INDEX    MPAC                                  
019294,000736: 35,3050           55600                           TS       RESTRTCS                              
019295,000737: 35,3051           22003                           LXCH     EBANK                                 
019296,000738: 35,3052  E5,1400                                  EBANK=   XSM                                   
019297,000739: 
019298,000740: 35,3052           10144                           CCS      MPAC                                  
019299,000741: 35,3053           13055                           TCF      +2                                    
019300,000742: 35,3054           00002                           TC       Q                                     
019301,000743: 35,3055           54144                           TS       MPAC                                  
019302,000744: 35,3056           35370                           CAF      GEOBND                                
019303,000745: 35,3057           54001                           TS       L                                     
019304,000746: 35,3060           13044                           TCF      STOREDTA   +4                         
019305,000747: 
019306,000748: 
019307,000749: 
019308,000750: 35,3061           33351        LOADSTDT           CAF      77DECML                               
019309,000751: 35,3062           54144                           TS       MPAC                                  
019310,000752: 35,3063           35370                           CA       GEOBND                                
019311,000753: 35,3064           56003                           XCH      EBANK                                 
019312,000754: 35,3065           54001                           TS       L                                     
019313,000755: 35,3066  0001600                                  EBANK=   RESTRTCS                              
019314,000756: 35,3066           50144                           INDEX    MPAC                                  
019315,000757: 35,3067           31600                           CA       RESTRTCS                              
019316,000758: 35,3070           22003                           LXCH     EBANK                                 
019317,000759: 35,3071  E5,1400                                  EBANK=   XSM                                   
019318,000760: 35,3071           50144                           INDEX    MPAC                                  
019319,000761: 35,3072           55600                           TS       ALX1S                                 
019320,000762: 35,3073           10144                           CCS      MPAC                                  
019321,000763: 
019322,000764: 35,3074           13076                           TCF      +2                                    
019323,000765: 35,3075           00002                           TC       Q                                     
019324,000766: 35,3076           54144                           TS       MPAC                                  
019325,000767: 35,3077           13063                           TCF      LOADSTDT   +2                         
019326,000768: 

Page 447

019328,000770: 35,3100           00006        LOADXSM            EXTEND                                         
019329,000771: 35,3101           23547                           QXCH     QPLACES                               
019330,000772: 35,3102           33402                           CAF      17DECML                               
019331,000773: 35,3103           54144                           TS       MPAC                                  
019332,000774: 35,3104           50000                           INDEX    A                                     
019333,000775: 35,3105           31720                           CA       PRELMTRX                              
019334,000776: 35,3106           50144                           INDEX    MPAC                                  
019335,000777: 35,3107           55400                           TS       XSM                                   
019336,000778: 35,3110           10144                           CCS      MPAC                                  
019337,000779: 35,3111           13103                           TCF      LOADXSM    +3                         
019338,000780: 35,3112           01547                           TC       QPLACES                               
019339,000781: 35,3113           77743        ALFDK              DEC      -28        B-14                       #  SLOPES AND TIME CONSTANTS FOR FIRST 30SC
019340,000782: 35,3114           77776                           DEC      -1         B-14                       
019341,000783: 35,3115           35143 10237                     2DEC     .91230833                             #  TIME CONSTANTS-PIPA OUTPUTS
019342,000784: 
019343,000785: 35,3117           31766 26106                     2DEC     .81193187                             #  TIME CONSTANT-ERECTION ANGLES
019344,000786: 
019345,000787: 35,3121           77772 43677                     2DEC     -.00035882                            #  SLOPE-AZIMUTH ANGLE
019346,000788: 
019347,000789: 
019348,000790: 35,3123           77777 77661                     2DEC     -.00000029                            #  SLOPE-VERTICAL DRIFT
019349,000791: 
019350,000792: 35,3125           00002 05420                     2DEC     .00013262                             #  SLOPE-NORTH SOUTH DRIFT
019351,000793: 
019352,000794: 
019353,000795: 
019354,000796: 35,3127           77705                           DEC      -58        B-14                       #  31-90 SEC
019355,000797: 35,3130           77776                           DEC      -1         B-14                       
019356,000798: 35,3131           37560 05346                     2DEC     .99122133                             
019357,000799: 
019358,000800: 35,3133           37522 15525                     2DEC     .98940595                             
019359,000801: 
019360,000802: 35,3135           77763 41604                     2DEC     -.00079010                            
019361,000803: 
019362,000804: 35,3137           77777 76470                     2DEC     -.00000265                            
019363,000805: 
019364,000806: 35,3141           00007 02201                     2DEC     .00043154                             
019365,000807: 
019366,000808: 
019367,000809: 
019368,000810: 35,3143           77767                           DEC      -8         B-14                       #  91-100 SEC
019369,000811: 35,3144           77776                           DEC      -1         B-14                       
019370,000812: 35,3145           37773 10042                     2DEC     .99971021                             
019371,000813: 
019372,000814: 
019373,000815: 35,3147           37747 30232                     2DEC     .99852047                             
019374,000816: 
019375,000817: 35,3151           00006 37666                     2DEC     .00042697                             
019376,000818: 
019377,000819: 35,3153           77777 76703                     2DEC     -.00000213                            
019378,000820: 
019379,000821: 35,3155           00001 36147                     2DEC     .00011864                             
019380,000822: 

Page 448

019382,000824: 35,3157           77635                           DEC      -98        B-14                       #  101-200 SEC
019383,000825: 35,3160           77776                           DEC      -1         B-14                       
019384,000826: 
019385,000827: 35,3161           37666 11022                     2DEC     .99550063                             
019386,000828: 
019387,000829: 35,3163           37532 33647                     2DEC     .98992124                             
019388,000830: 
019389,000831: 35,3165           00007 03641                     2DEC     .00043452                             
019390,000832: 
019391,000833: 35,3167           77777 75713                     2DEC     -.00000401                            
019392,000834: 
019393,000835: 35,3171           77774 54605                     2DEC     -.00021980                            
019394,000836: 
019395,000837: 
019396,000838: 
019397,000839: 35,3173           77407                           DEC      -248       B-14                       #  201-450 SEC
019398,000840: 35,3174           77776                           DEC      -1         B-14                       
019399,000841: 35,3175           37712 16755                     2DEC     .99673264                             
019400,000842: 
019401,000843: 35,3177           37630 01160                     2DEC     .99365467                             
019402,000844: 
019403,000845: 35,3201           00000 23600                     2DEC     .00003767                             
019404,000846: 
019405,000847: 35,3203           77777 63663                     2DEC     -.00002317                            
019406,000848: 
019407,000849: 35,3205           77777 56527                     2DEC     -.00003305                            
019408,000850: 
019409,000851: 
019410,000852: 
019411,000853: 
019412,000854: 35,3207           77255                           DEC      -338       B-14                       #  451-790 SEC
019413,000855: 35,3210           77776                           DEC      -1         B-14                       
019414,000856: 35,3211           37763 23341                     2DEC     .99924362                             
019415,000857: 
019416,000858: 35,3213           37755 26170                     2DEC     .99888274                             
019417,000859: 
019418,000860: 35,3215           00000 00254                     2DEC     .00000064                             
019419,000861: 
019420,000862: 35,3217           77777 52755                     2DEC     -.00004012                            
019421,000863: 
019422,000864: 35,3221           77777 76764                     2DEC     -.00000195                            
019423,000865: 
019424,000866: 
019425,000867: 
019426,000868: 35,3223           77147                           DEC      -408       B-14                       #  791-1200 SEC
019427,000869: 35,3224           77776                           DEC      -1         B-14                       
019428,000870: 35,3225           37772 02343                     2DEC     .99963845                             
019429,000871: 
019430,000872: 35,3227           37761 30560                     2DEC     .99913162                             
019431,000873: 
019432,000874: 
019433,000875: 35,3231           00000 00362                     2DEC     .00000090                             
019434,000876: 

Page 449

019436,000878: 35,3233           00000 17261                     2DEC     .00002927                             
019437,000879: 
019438,000880: 35,3235           77777 77671                     2DEC     -.00000026                            
019439,000881: 
019440,000882: 
019441,000883: 
019442,000884: 35,3237           77015                           DEC      -498       B-14                       #  1201-1700 SEC
019443,000885: 35,3240           77776                           DEC      -1         B-14                       
019444,000886: 
019445,000887: 35,3241           37765 12403                     2DEC     .99934865                             
019446,000888: 
019447,000889: 35,3243           37752 20062                     2DEC     .99868793                             
019448,000890: 
019449,000891: 35,3245           00000 00224                     2DEC     .00000055                             
019450,000892: 
019451,000893: 35,3247           00000 06150                     2DEC     .00001183                             
019452,000894: 
019453,000895: 35,3251           77777 77762                     2DEC     -.00000005                            
019454,000896: 
019455,000897: 
019456,000898: 
019457,000899: 35,3253           77161                           DEC      -398       B-14                       #  1701-2100 SEC
019458,000900: 35,3254           77776                           DEC      -1         B-14                       
019459,000901: 35,3255           37767 12513                     2DEC     .99947099                             
019460,000902: 
019461,000903: 35,3257           37756 30343                     2DEC     .99894799                             
019462,000904: 
019463,000905: 35,3261           00000 00060                     2DEC     .00000018                             
019464,000906: 
019465,000907: 35,3263           00000 01445                     2DEC     .00000300                             
019466,000908: 
019467,000909: 35,3265           77777 77774                     2DEC     -.00000001                            
019468,000910: 
019469,000911: 
019470,000912: 
019471,000913: 
019472,000914: 35,3267           76651                           DEC      -598       B-14                       #  2101-2700 SEC
019473,000915: 35,3270           77776                           DEC      -1         B-14                       
019474,000916: 35,3271           37771 02603                     2DEC     .99957801                             
019475,000917: 
019476,000918: 35,3273           37762 10061                     2DEC     .99916095                             
019477,000919: 
019478,000920: 35,3275           00000 00023                     2DEC     .00000007                             
019479,000921: 
019480,000922: 35,3277           00000 00402                     2DEC     .00000096                             
019481,000923: 
019482,000924: 35,3301           00000 00000                     2DEC     .00000000                             
019483,000925: 
019484,000926: 
019485,000927: 
019486,000928: 35,3303           76505                           DEC      -698       B-14                       #  2700-3400 SEC
019487,000929: 35,3304           77776                           DEC      -1         B-14                       
019488,000930: 

Page 450

019490,000932: 35,3305           37772 22005                     2DEC     .99966814                             
019491,000933: 
019492,000934: 35,3307           37765 05560                     2DEC     .99933952                             
019493,000935: 
019494,000936: 35,3311           00000 00005                     2DEC     .00000002                             
019495,000937: 
019496,000938: 35,3313           00000 00113                     2DEC     .00000028                             
019497,000939: 
019498,000940: 35,3315           00000 00000                     2DEC     .00000000                             
019499,000941: 
019500,000942: 
019501,000943: 
019502,000944: 35,3317           76651                           DEC      -598       B-14                       #  3401-4000 SEC
019503,000945: 35,3320           77776                           DEC      -1         B-14                       
019504,000946: 
019505,000947: 35,3321           37773 20750                     2DEC     .99972716                             
019506,000948: 
019507,000949: 35,3323           37767 03044                     2DEC     .99945654                             
019508,000950: 
019509,000951: 35,3325           00000 00003                     2DEC     .00000001                             
019510,000952: 
019511,000953: 35,3327           00000 00033                     2DEC     .00000010                             
019512,000954: 
019513,000955: 35,3331           00000 00000                     2DEC     .00000000                             
019514,000956: 
019515,000957: 
019516,000958: 
019517,000959: 35,3333           00000 00000  SCHZEROS           2DEC     .00000000                             
019518,000960: 
019519,000961: 35,3335           00000 00000                     2DEC     .00000000                             
019520,000962: 
019521,000963: 35,3337           00000 00000                     2DEC     .00000000                             
019522,000964: 
019523,000965: 35,3341           00004        INTVAL             OCT      4                                     
019524,000966: 35,3342           00002                           OCT      2                                     
019525,000967: 35,3343           00220                           DEC      144        B-14                       
019526,000968: 35,3344           77776                           DEC      -1         B-14                       
019527,000969: 35,3345           35730 00035  SOUPLY             2DEC     .93505870                             #   INITIAL GAINS FOR PIP OUTPUTS
019528,000970: 
019529,000971: 
019530,000972: 35,3347           10317 17550                     2DEC     .26266423                             #   INITIAL GAINS/4 FOR ERECTION ANGLES
019531,000973: 
019532,000974: 
019533,000975: 
019534,000976: 35,3351           00115        77DECML            DEC      77         B-14                       
019535,000977: 35,3352           01577        ALXXXZ             GENADR   ALX1S      -1                         
019536,000978: 35,3353           02500        AINGYRO            ECADR    OGC                                   
019537,000979: 35,3354           04133 02265  PIPASC             2DEC     .13055869                             
019538,000980: 
019539,000981: 35,3356           57223 66451  VELSC              2DEC     -.52223476                            #   512/980.402
019540,000982: 
019541,000983: 35,3360           05427 12577  ALSK               2DEC     .17329931                             #  SSWAY VEL GAIN X 980.402/4096
019542,000984: 

Page 451

019544,000986: 35,3362           77567 44202                     2DEC     -.00835370                            #  SSWAY ACCEL GAIN X 980.402/4096
019545,000987: 
019546,000988: 
019547,000989: 
019548,000990: 35,3364           24276 14066  GEORGEJ            2DEC     .63661977                             
019549,000991: 
019550,000992: 35,3366           23073 11773  GEORGEK            2DEC     .59737013                             
019551,000993: 
019552,000994: 35,3370           00031        OCT31              OCT      00031                                 
019553,000995: 35,3371           03146 14632  GEOCONS1           2DEC     .1                                    
019554,000996: 
019555,000997: 35,3373           00121 35341  GEOCONS2           2DEC     .005                                  
019556,000998: 
019557,000999: 35,3375           00631 23146  GEOCONS3           2DEC     .025                                  
019558,001000: 
019559,001001: 35,3377           00000 17565  GEOCONS4           2DEC     .00003                                
019560,001002: 
019561,001003: 35,3401           06200        1/PIPAGT           OCT      06200                                 
019562,001004: 35,3402           00021        17DECML            DEC      17         B-14                       
019563,001005: 
019564,001006: 35,3403           00023        19DECML            DEC      19         B-14                       
019565,001007: 35,3404           00062        1/2SECX            DEC      50         B-14                       
019566,001008: 
019567,001009: 
019568,001010: 
019569,001011: 35,3405           37755        GTSCPSS            CA       ONE                                   
019570,001012: 35,3406           55742                           TS       GEOCOMPS                              #  THIS IS THE LEAD IN FOR COMPASS
019571,001013: 35,3407           04105                           TC       NEWMODEX                              
019572,001014: 35,3410           00001                           OCT      01                                    
019573,001015: 35,3411           33401                           CA       1/PIPAGT                              
019574,001016: 35,3412           55163                           TS       1/PIPADT                              
019575,001017: 35,3413           37761                           CA       ZERO                                  
019576,001018: 35,3414           55717                           TS       PREMTRXC                              
019577,001019: 35,3415           33404                           CAF      1/2SECX                               
019578,001020: 35,3416           55744                           TS       1SECXT                                
019579,001021: 35,3417           05224                           TC       BANKCALL                              
019580,001022: 35,3420           50005                           CADR     GEOIMUTT                              
019581,001023: 
019582,001024: 
019583,001025: 
019584,001026: 35,3421           30075        CHKCOMED           CA       FLAGWRD1                              #  CHECK FOR END OF COMPASS
019585,001027: 35,3422           77754                           MASK     BIT2                                  #  TEST FOR GRR FLAG
019586,001028: 35,3423           10000                           CCS      A                                     
019587,001029: 
019588,001030: 35,3424           13426                           TCF      PRELTERM                              #  YES   GRR HAS OCCURRED
019589,001031: 35,3425           00002                           TC       Q                                     #  NO  CONTINUE
019590,001032: 
019591,001033: 
019592,001034: 35,3426           04105        PRELTERM           TC       NEWMODEX                              
019593,001035: 35,3427           00004                           OCT      04                                    #  04 IS END OF COMPASS
019594,001036: 35,3430           12606                           TCF      LASTGTS                               #  GET LAST TORQUING
019595,001037: 

Page 452

019597,001039: 
019598,001040: 35,3431           00004        PRELTERN           INHINT                                         #  GET TIME OF PRELAUNCH TERMINATION.
019599,001041: 35,3432           00006                           EXTEND                                         
019600,001042: 
019601,001043: 35,3433           31565                           DCA      TMARK                                 #  TIME OF LAST EARTH RATE COMPENSATION.
019602,001044: 35,3434           53155                           DXCH     TEMTPREL                              #  INTO COMMON TEMP UNTIL MP2.
019603,001045: 35,3435           34260                           CAF      PRIO24                                
019604,001046: 35,3436           05534                           TC       FINDVAC                               #  SET UP MISSION PHASE 2
019605,001047: 35,3437  E3,1746                                  EBANK=   TGRR                                  
019606,001048: 35,3437           02056 56003                     2CADR    MP2JOB                                
019607,001049: 
019608,001050: 35,3441           15605                           TCF      ENDOFJOB                              

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