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.

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

Page 430

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

Page 431

018631,000080:                                                                                                  #     04    GRR SIGNAL RECEIVED FINISH UP TORQUE AND TC MP2JOB
018632,000081:                                                                                                  #                                                        206 IMPLEMENTATION
018633,000082: 
018634,000083:                                                                                                  #  DEBRIS
018635,000084: 
018636,000085:                                                                                                  #  ALL CENTRALS -ALL OF EBANK 5 EBANK4 FROM JETSTEP TO JETSTEP +77D
018637,000086: 

Page 432

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

Page 433

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

Page 434

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

Page 435

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

Page 436

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

Page 437

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

Page 438

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

Page 439

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

Page 440

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

Page 441

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

Page 442

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

Page 443

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

Page 444

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

Page 445

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

Page 446

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

Page 447

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

Page 448

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

Page 449

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

Page 450

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

Page 451

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

Page 452

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

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