Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

018712,000002:                                                                                                  ## Copyright:   Public domain.
018713,000003:                                                                                                  ## Filename:    OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
018714,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
018715,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
018716,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
018717,000007:                                                                                                  ## Assembler:   yaYUL
018718,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
018719,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
018720,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
018721,000011:                                                                                                  ##              2016-10-18 RSB  Transcribed by correcting Aurora 12 version of 
018722,000012:                                                                                                  ##                              this file.
018723,000013:                                                                                                  ##              2016-10-31 RSB  Typos.
018724,000014:                                                                                                  ##              2016-11-01 RSB  More typos.
018725,000015:                                                                                                  ##              2016-12-05 RSB  Comment-proofing with octopus/ProoferComments
018726,000016:                                                                                                  ##                              completed, changes made.
018727,000017: 

Page 450

018729,000019:                                                                                                  #  PROGRAM NAME-OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
018730,000020:                                                                                                  #  DATE- NOVEMBER 2  1966
018731,000021:                                                                                                  #  BY- GEORGE SCHMIDT IL 7-146 EXT. 126
018732,000022:                                                                                                  #  MOD NO 2
018733,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION
018734,000024: 
018735,000025:                                                                                                  #  THIS LOG SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS
018736,000026:                                                                                                  #  INTEGRATED TOGETHER TO SAVE WORDS. IT IS COMPLETELY RESTART PROOFED.
018737,000027:                                                                                                  #  THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
018738,000028:                                                                                                  #  EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
018739,000029:                                                                                                  #  HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
018740,000030:                                                                                                  #  OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973.BOTH OF THESE
018741,000031:                                                                                                  #  ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
018742,000032:                                                                                                  #  PROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S. THE INITIALIZATION METHOD
018743,000033:                                                                                                  #  FOR GYROCOMPASS IS IN A STG MEMO FOR EACH ASSEMBLY.
018744,000034:                                                                                                  #  THIS LOG SECTION ALWAYS STARTS BY A CADR IN IMU PERF. TESTS 2 AND BEGINS
018745,000035:                                                                                                  #  AT ESTIMS. THE PIPS ARE READ EVERY .5 SEC IN COMPASS AND 1 SEC IN DRIFT
018746,000036:                                                                                                  #  TESTS. THEN IN BOTH CASES RELEVANT COMPUTATION IS DONE. THE KEY ERASABLE
018747,000037:                                                                                                  #  IS GEOCOMPS- 0 WE ARE IN A DRIFT TEST -NONZERO WE ARE IN COMPASS.
018748,000038:                                                                                                  #  THE GYROCOMPASS HAS THE CAPABILITY TO ALIGN TO ANY ORIENTATION,HAS THE
018749,000039:                                                                                                  #  CAPABILITY TO BE COMPENSATED FOR
018750,000040:                                                                                                  #  COMPONENT ERRORS,IS CAPABLE OF OPTICAL VERIFICATION( CSM ONLY).
018751,000041: 
018752,000042:                                                                                                  #  SUBROUTINES CALLED
018753,000043: 
018754,000044:                                                                                                  #  EARTHR, CALGTA,  OGC ZERO,ERTHRVSE,GCOMPZERO AND
018755,000045:                                                                                                  #  IMU COMPENSATION
018756,000046:                                                                                                  #  DURING OPTICAL VERIFICATION (CSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN
018757,000047:                                                                                                  #  IS CALLED IN ONE WAY OR ANOTHER. SEE THE LISTING.
018758,000048: 
018759,000049:                                                                                                  #  NORMAL EXIT
018760,000050: 
018761,000051:                                                                                                  #  DRIFT TESTS- LENGTHOT GOES TO ZERO-RETURN TO IMU PERF TEST2 CONTROL
018762,000052:                                                                                                  #  GYROCOMPASS-GRR RECEIVED OR G LEVEL EXCEEDS GLIFTOFF-START UP MP 2
018763,000053:                                                                                                  #                                                       206 IMPLEMENTATION
018764,000054: 
018765,000055:                                                                                                  #  ALARMS
018766,000056: 
018767,000057:                                                                                                  #  1600     OVERFLOW IN DRIFT TEST
018768,000058:                                                                                                  #  1601     BAD IMU TORQUE ABORT
018769,000059:                                                                                                  #  1602     BAD OPTICS DURING VERIFICATION-RETURN TO COMPASS      CSM ONLY
018770,000060: 
018771,000061:                                                                                                  #  OUTPUT
018772,000062: 
018773,000063:                                                                                                  #  DRIFT TESTS- FLASHING DISPLAYS OF RESULTS-CONTROLLED IN IMU PERF TESTS 2
018774,000064:                                                                                                  #  COMPASS-PROGRAM MODE LIGHTS TELL YOU WHAT PHASE OF PROGRAM YOU ARE IN
018775,000065:                                                                                                  #     01    INITIALIZING THE PLATFORM POSITION AND ERASABLE
018776,000066:                                                                                                  #     02    GYROCOMPASSING
018777,000067:                                                                                                  #     03    DOING OPTICAL VERIFICATION (CSM)
018778,000068:                                                                                                  #     04    GRR SIGNAL RECEIVED FINISH UP TORQUE AND TC MP2JOB

Page 451

018780,000070:                                                                                                  #                                                       206 IMPLEMENTATION
018781,000071: 
018782,000072:                                                                                                  #  DEBRIS
018783,000073: 
018784,000074:                                                                                                  #  ALL CENTRALS,ALL OF EBANK XSM,AND 78 DEC LOCATIONS  (SEE STOREDTA..
018785,000075: 

Page 452

018787,000077: 35,2014                                           BANK     35                                    
018788,000078: 35,2014  E5,1400                                  EBANK=   XSM                                   
018789,000079: 
018790,000080:                                                                                                  #  G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
018791,000081:                                                                                                  #  PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
018792,000082: 35,2014           04161        ESTIMS             TC       PHASCHNG                              
018793,000083: 35,2015           00075                           OCT      00075                                 
018794,000084: 35,2016           37763                           CAF      BIT1                                  
018795,000085: 35,2017           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
018796,000086: 
018797,000087: 35,2020           00004        RSTGTS1            INHINT                                         #   COMES HERE PHASE1 RESTART
018798,000088: 35,2021           30025                           CA       TIME1                                 
018799,000089: 35,2022           55745                           TS       GTSWTLST                              
018800,000090: 35,2023           47767                           CS       ZERO                                  
018801,000091: 35,2024           54037                           TS       PIPAX                                 
018802,000092: 35,2025           54040                           TS       PIPAY                                 
018803,000093: 35,2026           54041                           TS       PIPAZ                                 
018804,000094: 35,2027           54404                           TS       DELVX      +1                         
018805,000095: 35,2030           54406                           TS       DELVY      +1                         
018806,000096: 35,2031           54410                           TS       DELVZ      +1                         
018807,000097: 35,2032           00003                           RELINT                                         
018808,000098: 35,2033           02773                           TC       SETUPER                               
018809,000099: 35,2034           33315                           CA       77DECML                               
018810,000100: 35,2035           55777                           TS       ZERONDX                               
018811,000101: 35,2036           33316                           CA       ALXXXZ                                
018812,000102: 35,2037           05206                           TC       BANKCALL                              
018813,000103: 35,2040           51245                           CADR     ZEROING                               
018814,000104: 35,2041           06112                           TC       INTPRET                               
018815,000105: 35,2042           77775                           VLOAD                                          
018816,000106: 35,2043           33310                                    INTVAL     +2                         
018817,000107: 35,2044           02601                           STORE    ALX1S                                 
018818,000108: 35,2045           77776                           EXIT                                           
018819,000109: 
018820,000110: 35,2046           11742                           CCS      GEOCOMPS                              #  GEOCOMPS IN NON ZERO IF COMPASS
018821,000111: 35,2047           02051                           TC       +2                                    
018822,000112: 35,2050           02720                           TC       SLEEPIE    +1                         
018823,000113: 35,2051           31527                           CA       LENGTHOT                              #    TIMES FIVE IS THE NUM OF SEC ERECTING
018824,000114: 35,2052           55746                           TS       ERECTIME                              
018825,000115: 
018826,000116: 35,2053           37763                           CA       ONE                                   
018827,000117: 35,2054           54764                           TS       PHASENUM                              
018828,000118: 35,2055           04117                           TC       NEWMODEX                              
018829,000119: 35,2056           00002                           OCT      02                                    
018830,000120: 35,2057           05206                           TC       BANKCALL                              
018831,000121: 35,2060           25606                           CADR     GCOMPZER                              #    ZERO COMPENSATION PROGRAM REGISTERS
018832,000122: 35,2061           02770                           TC       ANNNNNN                               
018833,000123: 

Page 453

018835,000125: 35,2062           30025        ALLOOP             CA       TIME1                                 
018836,000126: 35,2063           57745                           XCH      GTSWTLST                              #  STORE TIME TO SET UP NEXT WAITLIST.
018837,000127: 35,2064           55743                           TS       OLDGT                                 #  SAVE LAST READ TIME.
018838,000128: 
018839,000129: 35,2065           31664        ALLOOP3            CA       ALTIM                                 
018840,000130: 35,2066           55716                           TS       GEOSAVED                              
018841,000131: 35,2067           04161                           TC       PHASCHNG                              
018842,000132: 35,2070           00115                           OCT      00115                                 
018843,000133: 35,2071           31716        ALLOOP1            CA       GEOSAVED                              
018844,000134: 35,2072           55664                           TS       ALTIM                                 
018845,000135: 35,2073           10000                           CCS      A                                     
018846,000136: 35,2074           30000                           CA       A                                     #  SHOULD NEVER HIT THIS LOCATION
018847,000137: 35,2075           55665                           TS       ALTIMS                                
018848,000138: 35,2076           40000                           CS       A                                     
018849,000139: 35,2077           55664                           TS       ALTIM                                 
018850,000140: 35,2100           30037                           CA       PIPAX                                 
018851,000141: 35,2101           54403                           TS       DELVX                                 
018852,000142: 35,2102           30040                           CA       PIPAY                                 
018853,000143: 35,2103           54405                           TS       DELVY                                 
018854,000144: 35,2104           30041                           CA       PIPAZ                                 
018855,000145: 35,2105           54407                           TS       DELVZ                                 
018856,000146: 35,2106           33334                           CA       SCHOCT23                              
018857,000147: 35,2107           04246                           TC       NEWPHASE                              
018858,000148: 35,2110           00005                           OCT      00005                                 
018859,000149: 35,2111           47767        SPECSTS            CS       ZERO                                  
018860,000150: 35,2112           54037                           TS       PIPAX                                 
018861,000151: 35,2113           54040                           TS       PIPAY                                 
018862,000152: 35,2114           54041                           TS       PIPAZ                                 
018863,000153: 35,2115           37746                           CAF      PRIO20                                
018864,000154: 35,2116           05516                           TC       FINDVAC                               
018865,000155: 35,2117  E5,1400                                  EBANK=   XSM                                   
018866,000156: 35,2117           02122 72065                     2CADR    ALFLT                                 #  START THE JOB
018867,000157: 
018868,000158: 35,2121           05727                           TC       TASKOVER                              
018869,000159: 

Page 454

018871,000161: 35,2122           03004        ALFLT              TC       STOREDTA                              #   STORE DATA IN CASE OF RESTART IN JOB
018872,000162: 35,2123           04161                           TC       PHASCHNG                              #  THIS IS THE JOB DONE EVERY ITERATION
018873,000163: 35,2124           00215                           OCT      00215                                 
018874,000164: 35,2125           12127                           TCF      +2                                    
018875,000165: 35,2126           03025        ALFLT1             TC       LOADSTDT                              #  COMES HERE ON RESTART
018876,000166: 35,2127           11742                           CCS      GEOCOMPS                              
018877,000167: 35,2130           02132                           TC       +2                                    
018878,000168: 35,2131           02156                           TC       NORMLOP                               
018879,000169: 35,2132           03371                           TC       CHKCOMED                              #       SEE IF PRELAUNCH OVER
018880,000170: 35,2133           05206                           TC       BANKCALL                              #   COMPENSATION IF IN COMPASS
018881,000171: 35,2134           25222                           CADR     1/PIPA                                
018882,000172: 35,2135           41745                           CS       GTSWTLST                              #  SEE IF MEASURED DELV LOOKS LIKE LIFTOFF
018883,000173: 35,2136           61743                           AD       OLDGT                                 #  HAS OCCURRED.
018884,000174: 35,2137           00006                           EXTEND                                         
018885,000175: 35,2140           62143                           BZMF     +3                                    
018886,000176: 35,2141           67744                           AD       NEG1/2                                #  (IF TIME1 OVERFLOWED)
018887,000177: 35,2142           67744                           AD       NEG1/2                                
018888,000178: 35,2143           54147                           TS       MPAC       +3                         #  DT STORED NEGATIVELY
018889,000179: 
018890,000180: 35,2144           06112                           TC       INTPRET                               
018891,000181: 
018892,000182: 35,2145           42535                           SLOAD    SL4                                   #  SCALE DT AT 2(+10) CS.
018893,000183: 35,2146           00150                                    MPAC       +3                         
018894,000184: 35,2147           51515                           PDVL     ABVAL                                 
018895,000185: 35,2150           00404                                    DELV                                  
018896,000186: 35,2151           77671                           DDV                                            #  GET ACC (NEG) IN M/SEC SQ SCALED 2(4)
018897,000187: 35,2152           50015                           DAD      BMN                                   #  (DV OVFLO GIVES DP POSMAX)
018898,000188: 35,2153           01765                                    GLIFTOFF                              #  WHEN GLIFTOFF = DP POSMAX, THIS KIND OF
018899,000189: 35,2154           73401                                    GRRNOW                                #  LIFTOFF DETECTION IS INHIBITED.
018900,000190: 35,2155           77776                           EXIT                                           #  CONTINUE GYROCOMPASS IF NO LIFTOFF.
018901,000191: 
018902,000192: 35,2156           00006        NORMLOP            EXTEND                                         
018903,000193: 35,2157           33306                           DCA      INTVAL                                
018904,000194: 35,2160           50110                           INDEX    FIXLOC                                
018905,000195: 35,2161           52051                           DXCH     S1                                    
018906,000196: 35,2162           11742                           CCS      GEOCOMPS                              
018907,000197: 35,2163           02203                           TC       PALFLT                                #  COMPASS
018908,000198: 35,2164           06112                           TC       INTPRET                               #  NO COMPZSS
018909,000199: 35,2165           50135        ALCGKK             SLOAD    BMN                                   
018910,000200: 35,2166           02666                                    ALTIMS                                
018911,000201: 35,2167           72204                                    ALFLT2                                
018912,000202: 35,2170           72174        ALKCG              AXT,2    LXA,1                                 #  LOADS SLOPES AND TIME CONSTANTS AT RQST
018913,000203: 35,2171           00014                                    12D                                   
018914,000204: 35,2172           02600                                    ALX1S                                 
018915,000205: 35,2173           62143        ALKCG2             DLOAD*   INCR,1                                
018916,000206: 35,2174           33300                                    ALFDK      +144D,1                    
018917,000207: 35,2175           77775                           DEC      -2         B-14                       
018918,000208: 35,2176           12701                           STORE    ALDK       +10D,2                     
018919,000209: 35,2177           66104                           TIX,2    SXA,1                                 
018920,000210: 35,2200           72173                                    ALKCG2                                

Page 455

018922,000212: 35,2201           02600                                    ALX1S                                 
018923,000213: 
018924,000214: 35,2202           77776                           EXIT                                           
018925,000215: 35,2203           06112        PALFLT             TC       INTPRET                               
018926,000216: 35,2204           61375        ALFLT2             VLOAD    VXM                                   
018927,000217: 35,2205           00404                                    DELVX                                 
018928,000218: 35,2206           02750                                    GEOMTRX                               
018929,000219: 35,2207           77772                           VSL1                                           
018930,000220: 35,2210           57545                           DLOAD    DCOMP                                 
018931,000221: 35,2211           00150                                    MPAC       +3                         
018932,000222: 35,2212           16657                           STODL    DPIPAY                                
018933,000223: 35,2213           00152                                    MPAC       +5                         
018934,000224: 35,2214           02663                           STORE    DPIPAZ                                
018935,000225: 
018936,000226: 35,2215           76001                           SETPD    AXT,1                                 #  MEASUREMENT INCORPORATION ROUTINES.
018937,000227: 35,2216           00001                                    0                                     
018938,000228: 35,2217           00010                                    8D                                    
018939,000229: 35,2220           57535                           SLOAD    DCOMP                                 
018940,000230: 35,2221           02743                                    GEOCOMPS                              
018941,000231: 35,2222           77640                           BMN                                            
018942,000232: 35,2223           72532                                    ALWAYSG                               #  DO A QUICK COMPASS
018943,000233: 35,2224           41343        DELMLP             DLOAD*   DMP                                   
018944,000234: 35,2225           02667                                    DPIPAY     +8D,1                      
018945,000235: 35,2226           33321                                    PIPASC                                
018946,000236: 35,2227           42661                           SLR      DAD*                                  
018947,000237: 35,2230           21212                                    9D                                    
018948,000238: 35,2231           02715                                    DELM       +8D,1                      
018949,000239: 35,2232           64623                           DSU*     PDDL*                                 
018950,000240: 35,2233           02635                                    INTY       +8D,1                      
018951,000241: 35,2234           02655                                    VLAUN      +8D,1                      
018952,000242: 35,2235           41223                           DSU*     DMP                                   
018953,000243: 35,2236           02627                                    VLAUNS     +8D,1                      
018954,000244: 35,2237           33323                                    VELSC                                 
018955,000245: 35,2240           77732                           SL2R                                           
018956,000246: 35,2241           45415                           DAD      STADR                                 
018957,000247: 35,2242           71062                           STORE    DELM       +8D,1                      
018958,000248: 35,2243           06717                           STORE    DELM       +10D,1                     
018959,000249: 35,2244           77743                           DLOAD*                                         
018960,000250: 35,2245           02655                                    VLAUN      +8D,1                      
018961,000251: 35,2246           06627                           STORE    VLAUNS     +8D,1                      
018962,000252: 35,2247           77745                           DLOAD                                          
018963,000253: 35,2250           33304                                    INTVAL     -2                         
018964,000254: 35,2251           06635                           STORE    INTY       +8D,1                      
018965,000255: 35,2252           77100                           TIX,1    AXT,2                                 
018966,000256: 35,2253           72224                                    DELMLP                                
018967,000257: 35,2254           00004                                    4                                     
018968,000258: 35,2255           56743        ALILP              DLOAD*   DMPR*                                 
018969,000259: 35,2256           75170                                    ALK        +4,2                       
018970,000260: 35,2257           75104                                    ALDK       +4,2                       
018971,000261: 35,2260           12607                           STORE    ALK        +4,2                       

Page 456

018973,000263: 35,2261           77104                           TIX,2    AXT,2                                 
018974,000264: 35,2262           72255                                    ALILP                                 
018975,000265: 35,2263           00010                                    8D                                    
018976,000266: 35,2264           66140        ALKLP              LXC,1    SXA,1                                 
018977,000267: 35,2265           02601                                    CMPX1                                 
018978,000268: 35,2266           02601                                    CMPX1                                 
018979,000269: 35,2267           56743                           DLOAD*   DMPR*                                 
018980,000270: 35,2270           02604                                    ALK        +1,1                       
018981,000271: 35,2271           75062                                    DELM       +8D,2                      
018982,000272: 35,2272           77613                           DAD*                                           
018983,000273: 35,2273           75142                                    INTY       +8D,2                      
018984,000274: 35,2274           12635                           STORE    INTY       +8D,2                      
018985,000275: 35,2275           42743                           DLOAD*   DAD*                                  
018986,000276: 35,2276           75160                                    ALK        +12D,2                     
018987,000277: 35,2277           75074                                    ALDK       +12D,2                     
018988,000278: 35,2300           12617                           STORE    ALK        +12D,2                     
018989,000279: 35,2301           42673                           DMPR*    DAD*                                  
018990,000280: 35,2302           75062                                    DELM       +8D,2                      
018991,000281: 35,2303           75132                                    INTY       +16D,2                     
018992,000282: 35,2304           12645                           STORE    INTY       +16D,2                     
018993,000283: 35,2305           40743                           DLOAD*   DMP*                                  
018994,000284: 35,2306           33326                                    ALSK       +1,1                       
018995,000285: 35,2307           75062                                    DELM       +8D,2                      
018996,000286: 35,2310           42772                           SL1R     DAD*                                  
018997,000287: 35,2311           75122                                    VLAUN      +8D,2                      
018998,000288: 35,2312           12655                           STORE    VLAUN      +8D,2                      
018999,000289: 35,2313           76104                           TIX,2    AXT,1                                 
019000,000290: 35,2314           72264                                    ALKLP                                 
019001,000291: 35,2315           00010                                    8D                                    
019002,000292: 
019003,000293: 
019004,000294: 35,2316           64743        LOOSE              DLOAD*   PDDL*                                 
019005,000295: 35,2317           02657                                    ACCWD      +8D,1                      
019006,000296: 35,2320           02655                                    VLAUN      +8D,1                      
019007,000297: 35,2321           55523                           PDDL*    VDEF                                  
019008,000298: 35,2322           02665                                    POSNV      +8D,1                      
019009,000299: 35,2323           76521                           MXV      VSL1                                  
019010,000300: 35,2324           02721                                    TRANSM1                               
019011,000301: 35,2325           77745                           DLOAD                                          
019012,000302: 35,2326           00145                                    MPAC                                  
019013,000303: 35,2327           06665                           STORE    POSNV      +8D,1                      
019014,000304: 35,2330           77745                           DLOAD                                          
019015,000305: 35,2331           00150                                    MPAC       +3                         
019016,000306: 35,2332           06655                           STORE    VLAUN      +8D,1                      
019017,000307: 35,2333           77745                           DLOAD                                          
019018,000308: 35,2334           00152                                    MPAC       +5                         
019019,000309: 35,2335           06657                           STORE    ACCWD      +8D,1                      
019020,000310: 35,2336           77700                           TIX,1                                          
019021,000311: 35,2337           72316                                    LOOSE                                 

Page 457

019023,000313: 
019024,000314: 35,2340           76174                           AXT,2    AXT,1                                 #  EVALUATE SINES AND COSINES
019025,000315: 35,2341           00006                                    6                                     
019026,000316: 35,2342           00002                                    2                                     
019027,000317: 35,2343           57343        BOOP               DLOAD*   DMPR                                  
019028,000318: 35,2344           02637                                    ANGX       +2,1                       
019029,000319: 35,2345           33331                                    GEORGEJ                               
019030,000320: 35,2346           77722                           SR2R                                           
019031,000321: 35,2347           73406                           PUSH     SIN                                   
019032,000322: 35,2350           56172                           SL1R     XAD,1                                 
019033,000323: 35,2351           00046                                    X1                                    
019034,000324: 35,2352           10021                           STORE    16D,2                                 
019035,000325: 35,2353           77745                           DLOAD                                          
019036,000326: 35,2354           77746                           COS                                            
019037,000327: 35,2355           10027                           STORE    22D,2                                 #  COSINES
019038,000328: 35,2356           71304                           TIX,2    DLOAD                                 
019039,000329: 35,2357           72343                                    BOOP                                  
019040,000330: 
019041,000331: 
019042,000332: 35,2360           00017                                    14D                                   
019043,000333: 35,2361           43312                           SL2      DAD                                   
019044,000334: 35,2362           02625                                    INTY                                  
019045,000335: 35,2363           16625                           STODL    INTY                                  
019046,000336: 35,2364           00015                                    12D                                   
019047,000337: 35,2365           56405                           DMP      SL3R                                  
019048,000338: 35,2366           00025                                    20D                                   
019049,000339: 35,2367           77615                           DAD                                            
019050,000340: 35,2370           02631                                    INTZ                                  
019051,000341: 35,2371           16631                           STODL    INTZ                                  
019052,000342: 35,2372           00021                                    16D                                   
019053,000343: 35,2373           57275                           DMPR     DMPR                                  
019054,000344: 35,2374           00023                                    18D                                   
019055,000345: 35,2375           00017                                    14D                                   
019056,000346: 35,2376           77712                           SL2                                            
019057,000347: 35,2377           57325                           PDDL     DMPR                                  
019058,000348: 35,2400           00013                                    10D                                   
019059,000349: 35,2401           00015                                    12D                                   
019060,000350: 35,2402           77615                           DAD                                            
019061,000351: 35,2403           77675                           DMPR                                           
019062,000352: 35,2404           02573                                    WANGI                                 
019063,000353: 35,2405           57325                           PDDL     DMPR                                  
019064,000354: 35,2406           00023                                    18D                                   
019065,000355: 35,2407           00025                                    20D                                   
019066,000356: 35,2410           66405                           DMP      SL2R                                  
019067,000357: 35,2411           02571                                    WANGO                                 
019068,000358: 35,2412           77621                           BDSU                                           
019069,000359: 35,2413           02637                                    DRIFTO                                
019070,000360: 35,2414           45425                           DSU      STADR                                 
019071,000361: 35,2415           61156                           STODL    WPLATO                                
019072,000362: 35,2416           00021                                    16D                                   

Page 458

019074,000364: 35,2417           41275                           DMPR     DMP                                   
019075,000365: 35,2420           00025                                    20D                                   
019076,000366: 35,2421           02573                                    WANGI                                 
019077,000367: 35,2422           77732                           SL2R                                           
019078,000368: 35,2423           57325                           PDDL     DMPR                                  
019079,000369: 35,2424           02571                                    WANGO                                 
019080,000370: 35,2425           00017                                    14D                                   
019081,000371: 35,2426           77615                           DAD                                            
019082,000372: 35,2427           02641                                    DRIFTI                                
019083,000373: 35,2430           77625                           DSU                                            
019084,000374: 35,2431           57325                           PDDL     DMPR                                  
019085,000375: 35,2432           02575                                    WANGT                                 
019086,000376: 35,2433           02573                                    WANGI                                 
019087,000377: 35,2434           45415                           DAD      STADR                                 
019088,000378: 35,2435           61062                           STODL    WPLATI                                
019089,000379: 35,2436           00023                                    18D                                   
019090,000380: 35,2437           76405                           DMP      SL1R                                  
019091,000381: 35,2440           00013                                    10D                                   
019092,000382: 35,2441           57325                           PDDL     DMPR                                  
019093,000383: 35,2442           00015                                    12D                                   
019094,000384: 35,2443           00021                                    16D                                   
019095,000385: 35,2444           76405                           DMP      SL1R                                  
019096,000386: 35,2445           00017                                    14D                                   
019097,000387: 35,2446           77621                           BDSU                                           
019098,000388: 35,2447           77675                           DMPR                                           
019099,000389: 35,2450           02573                                    WANGI                                 
019100,000390: 35,2451           57325                           PDDL     DMPR                                  
019101,000391: 35,2452           00015                                    12D                                   
019102,000392: 35,2453           00025                                    20D                                   
019103,000393: 35,2454           76405                           DMP      SL1R                                  
019104,000394: 35,2455           02571                                    WANGO                                 
019105,000395: 35,2456           77621                           BDSU                                           
019106,000396: 35,2457           02577                                    DRIFTT                                
019107,000397: 35,2460           77615                           DAD                                            #   WPLATT NOW IN MPAC
019108,000398: 35,2461           77606                           PUSH                                           #  PUSH IT DOWN-X IT BY SANG +2
019109,000399: 35,2462           74475                           DMPR     SR1R                                  
019110,000400: 35,2463           00015                                    12D                                   
019111,000401: 35,2464           57325                           PDDL     DMPR                                  
019112,000402: 35,2465           02621                                    WPLATO                                
019113,000403: 35,2466           00023                                    18D                                   
019114,000404: 35,2467           77615                           DAD                                            
019115,000405: 35,2470           77671                           DDV                                            
019116,000406: 35,2471           00025                                    20D                                   
019117,000407: 35,2472           57206                           PUSH     DMPR                                  
019118,000408: 35,2473           33333                                    GEORGEK                               
019119,000409: 35,2474           43261                           SRR      DAD                                   
019120,000410: 35,2475           21616                                    13D                                   
019121,000411: 35,2476           02635                                    ANGX                                  
019122,000412: 35,2477           16635                           STODL    ANGX                                  
019123,000413: 35,2500           43275                           DMPR     DAD                                   

Page 459

019125,000415: 35,2501           00017                                    14D                                   
019126,000416: 35,2502           02715                                    WPLATI                                
019127,000417: 35,2503           54275                           DMPR     SRR                                   
019128,000418: 35,2504           33333                                    GEORGEK                               
019129,000419: 35,2505           21616                                    13D                                   
019130,000420: 35,2506           77615                           DAD                                            
019131,000421: 35,2507           02633                                    ANGY                                  
019132,000422: 35,2510           16633                           STODL    ANGY                                  
019133,000423: 35,2511           00023                                    18D                                   
019134,000424: 35,2512           76405                           DMP      SL1R                                  #  MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
019135,000425: 35,2513           57325                           PDDL     DMPR                                  
019136,000426: 35,2514           00015                                    12D                                   
019137,000427: 35,2515           02621                                    WPLATO                                
019138,000428: 35,2516           77621                           BDSU                                           
019139,000429: 35,2517           54275                           DMPR     SRR                                   
019140,000430: 35,2520           33333                                    GEORGEK                               
019141,000431: 35,2521           21616                                    13D                                   
019142,000432: 35,2522           77615                           DAD                                            
019143,000433: 35,2523           02627                                    ANGZ                                  
019144,000434: 35,2524           02627                           STORE    ANGZ                                  
019145,000435: 35,2525           77404                           BOVB     EXIT                                  
019146,000436: 35,2526           72750                                    SOMEERRR                              
019147,000437: 35,2527           11527                           CCS      LENGTHOT                              
019148,000438: 35,2530           02717                           TC       SLEEPIE                               
019149,000439: 35,2531           02664                           TC       SETUPER1                              
019150,000440: 
019151,000441: 
019152,000442: 35,2532           44743        ALWAYSG            DLOAD*   DSU*                                  #  COMPASS AND ERECT
019153,000443: 35,2533           02667                                    DPIPAY     +8D,1                      
019154,000444: 35,2534           02655                                    FILDELV    +8D,1                      
019155,000445: 35,2535           42675                           DMPR     DAD*                                  
019156,000446: 35,2536           33336                                    GEOCONS1                              
019157,000447: 35,2537           02655                                    FILDELV    +8D,1                      
019158,000448: 35,2540           06655                           STORE    FILDELV    +8D,1                      
019159,000449: 35,2541           77613                           DAD*                                           
019160,000450: 35,2542           02657                                    INTVEC     +8D,1                      
019161,000451: 35,2543           06657                           STORE    INTVEC     +8D,1                      
019162,000452: 35,2544           42675                           DMPR     DAD*                                  
019163,000453: 35,2545           33340                                    GEOCONS2                              
019164,000454: 35,2546           02655                                    FILDELV    +8D,1                      
019165,000455: 35,2547           41475                           DMPR     PUSH                                  
019166,000456: 35,2550           33336                                    GEOCONS1                              
019167,000457: 35,2551           67300                           TIX,1    SLOAD                                 
019168,000458: 35,2552           72532                                    ALWAYSG                               
019169,000459: 35,2553           02747                                    ERECTIME                              
019170,000460: 35,2554           71254                           BZE      DLOAD                                 
019171,000461: 35,2555           72566                                    COMPGS                                #  COMPASS
019172,000462: 35,2556           02627                                    THETAN     +2                         
019173,000463: 35,2557           45425                           DSU      STADR                                 

Page 460

019175,000465: 35,2560           61150                           STODL    THETAN     +2                         
019176,000466: 35,2561           77621                           BDSU                                           
019177,000467: 35,2562           02631                                    THETAN     +4                         
019178,000468: 35,2563           02631                           STORE    THETAN     +4                         
019179,000469: 35,2564           77650                           GOTO                                           
019180,000470: 35,2565           72610                                    ADDINDRF                              
019181,000471: 35,2566           43345        COMPGS             DLOAD    DAD                                   #  COMPASS
019182,000472: 35,2567           02625                                    THETAN                                
019183,000473: 35,2570           02645                                    FILDELV                               
019184,000474: 35,2571           16625                           STODL    THETAN                                
019185,000475: 35,2572           02645                                    FILDELV                               
019186,000476: 35,2573           44275                           DMPR     BDSU                                  
019187,000477: 35,2574           33342                                    GEOCONS3                              
019188,000478: 35,2575           02631                                    THETAN     +4                         
019189,000479: 35,2576           16631                           STODL    THETAN     +4                         
019190,000480: 35,2577           02651                                    FILDELV    +4                         
019191,000481: 35,2600           44275                           DMPR     BDSU                                  
019192,000482: 35,2601           33342                                    GEOCONS3                              
019193,000483: 35,2602           02627                                    THETAN     +2                         
019194,000484: 35,2603           41325                           PDDL     DMP                                   
019195,000485: 35,2604           02653                                    INTVEC     +4                         
019196,000486: 35,2605           33344                                    GEOCONS4                              
019197,000487: 35,2606           45421                           BDSU     STADR                                 
019198,000488: 35,2607           75150                           STORE    THETAN     +2                         
019199,000489: 35,2610           77775        ADDINDRF           VLOAD                                          
019200,000490: 35,2611           02625                                    THETAN                                
019201,000491: 35,2612           03564                           STORE    COMPTORK                              #  IN E7 FOR DOWNLINK.
019202,000492: 35,2613           77776                           EXIT                                           
019203,000493: 
019204,000494: 35,2614           11527        ENDGTSAL           CCS      LENGTHOT                              #   IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
019205,000495: 35,2615           02717                           TC       SLEEPIE                               #   NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
019206,000496: 35,2616           10356                           CCS      LGYRO                                 #   YES BUT ARE GYROS BUSY
019207,000497: 35,2617           12772                           TCF      ANNNNNN    +2                         #   BUSY-GET THEM .5 SECONDS FROM NOW
019208,000498: 
019209,000499: 
019210,000500: 35,2620           03371                           TC       CHKCOMED                              #  SEE IF LAST TIME FOR COMPASS
019211,000501: 
019212,000502: 35,2621           06112        LASTGTS            TC       INTPRET                               
019213,000503: 35,2622           77775                           VLOAD                                          
019214,000504: 35,2623           02772                                    ERCOMP                                
019215,000505: 35,2624           16617                           STODL    THETAX                                
019216,000506: 35,2625           02565                                    TMARK                                 
019217,000507: 35,2626           02603                           STORE    ALK                                   
019218,000508: 35,2627           77776                           EXIT                                           #  PREVIOUS SECTION WAS FOR RESTARTS
019219,000509: 
019220,000510: 35,2630           04161        RESTAIER           TC       PHASCHNG                              
019221,000511: 
019222,000512: 35,2631           00255                           OCT      00255                                 
019223,000513: 35,2632           06112                           TC       INTPRET                               #  ADD COMPASS COMMANDS INTO ERATE

Page 461

019225,000515: 35,2633           64375                           VLOAD    MXV                                   
019226,000516: 35,2634           02625                                    THETAN                                
019227,000517: 35,2635           02750                                    GEOMTRX                               
019228,000518: 35,2636           53372                           VSL1     VAD                                   
019229,000519: 35,2637           02617                                    THETAX                                
019230,000520: 35,2640           16772                           STODL    ERCOMP                                
019231,000521: 35,2641           02603                                    ALK                                   
019232,000522: 35,2642           02565                           STORE    TMARK                                 
019233,000523: 35,2643           77776                           EXIT                                           
019234,000524: 35,2644           05206                           TC       BANKCALL                              
019235,000525: 35,2645           30424                           CADR     EARTHR                                #  TORQUE IT ALL IN
019236,000526: 35,2646           31746                           CA       ERECTIME                              
019237,000527: 35,2647           55716                           TS       GEOSAVED                              
019238,000528: 35,2650           12757        RESTEST1           TCF      NOCHORLD                              
019239,000529: 
019240,000530: 35,2651           00004        REDO3.27           INHINT                                         #  PRELAUNCH DONE
019241,000531: 35,2652           04133                           TC       CHECKMM                               
019242,000532: 35,2653           00011                           OCT      11                                    #  SEE IF LIFTOFF IS DISPLAYED
019243,000533: 35,2654           02656                           TC       +2                                    #  NO , DISPLAY MM 7.
019244,000534: 35,2655           15567                           TCF      ENDOFJOB                              #  LIFTOFF DISPLAYED - IGNORE MM 7.
019245,000535: 
019246,000536: 35,2656           04117                           TC       NEWMODEX                              #  PRELAUNCH DONE
019247,000537: 35,2657           00007                           OCT      7                                     #  DISPLAY MAJOR MODE 7
019248,000538: 35,2660           37767                           CAF      ZERO                                  
019249,000539: 35,2661           04246                           TC       NEWPHASE                              #  TURN OFF FINAL PRELAUNCH PROTECTION.
019250,000540: 35,2662           00003                           OCT      00003                                 
019251,000541: 
019252,000542: 35,2663           15567                           TCF      ENDOFJOB                              #  TERMINATE PRELAUNCH
019253,000543: 
019254,000544: 
019255,000545: 35,2664           06112        SETUPER1           TC       INTPRET                               
019256,000546: 35,2665           65345                           DLOAD    PDDL                                  #  ANGLES FROM DRIFT TEST ONLY
019257,000547: 35,2666           02627                                    ANGZ                                  
019258,000548: 35,2667           02633                                    ANGY                                  
019259,000549: 35,2670           55525                           PDDL     VDEF                                  
019260,000550: 35,2671           02635                                    ANGX                                  
019261,000551: 35,2672           74276                           VCOMP    VXSC                                  
019262,000552: 35,2673           33331                                    GEORGEJ                               
019263,000553: 35,2674           74521                           MXV      VSR1                                  
019264,000554: 35,2675           02750                                    GEOMTRX                               
019265,000555: 35,2676           02501                           STORE    OGC                                   
019266,000556: 35,2677           77776                           EXIT                                           
019267,000557: 
019268,000558: 
019269,000559: 35,2700           04161        TORQINCH           TC       PHASCHNG                              
019270,000560: 35,2701           00175                           OCT      00175                                 

Page 462

019272,000562: 35,2702           33317                           CA       AINGYRO                               
019273,000563: 35,2703           05206                           TC       BANKCALL                              
019274,000564: 35,2704           26362                           CADR     IMUPULSE                              
019275,000565: 35,2705           05206                           TC       BANKCALL                              
019276,000566: 35,2706           26751                           CADR     IMUSTALL                              
019277,000567: 35,2707           02753                           TC       SOMERR2                               #  BAD GYRO TORQUE-END OF TEST
019278,000568: 

Page 463

019280,000570: 35,2710           11574        GEOSTRT4           CCS      TORQNDX                               #   ONLY POSITIVE IF IN VERTICAL DRIFT TEST
019281,000571: 35,2711           02715                           TC       GEOBAVR                               #  VERT DRIFT TEST OVER
019282,000572: 35,2712           02773                           TC       SETUPER                               #   SET UP ERATE FOR PIPTEST OR COMPASS
019283,000573: 35,2713           05206                           TC       BANKCALL                              #  GO TO IMU2 FOR A PIPA TEST AND DISPLAY
019284,000574: 35,2714           50102                           CADR     TORQUE                                
019285,000575: 
019286,000576: 35,2715           05206        GEOBAVR            TC       BANKCALL                              
019287,000577: 35,2716           50230                           CADR     VALMIS                                #   DISPLAY VERTICAL DRIFT
019288,000578: 
019289,000579: 

Page 464

019291,000581:                                                                                                  #  SET UP WAITLIST SECTION
019292,000582: 35,2717           55527        SLEEPIE            TS       LENGTHOT                              #  TEST NOT OVER-DECREMENT LENGTHOT
019293,000583: 35,2720           04161                           TC       PHASCHNG                              #   CHANGE PHASE
019294,000584: 35,2721           00135                           OCT      00135                                 
019295,000585: 35,2722           11574                           CCS      TORQNDX                               #  ARE WE DOING VERTDRIFT
019296,000586: 35,2723           02725                           TC       EARTTPRQ                              #  YES,DO HOR ERATE TORQ THEN SLEEP
019297,000587: 35,2724           02727                           TC       WTLISTNT                              #  GO TO SET UP NEXT WAITLIST
019298,000588: 35,2725           05206        EARTTPRQ           TC       BANKCALL                              #  IN VERTDRIFT,ADD HOR ERATE AND SLEEP
019299,000589: 35,2726           30424                           CADR     EARTHR                                
019300,000590: 35,2727           03371        WTLISTNT           TC       CHKCOMED                              #  SEE IF GYROCOMPASS OVER
019301,000591: 
019302,000592: 35,2730           00004                           INHINT                                         
019303,000593: 35,2731           40025                           CS       TIME1                                 
019304,000594: 35,2732           61745                           AD       GTSWTLST                              
019305,000595: 35,2733           00006                           EXTEND                                         
019306,000596: 35,2734           62736                           BZMF     +2                                    
019307,000597: 35,2735           67745                           AD       NEGMAX                                
019308,000598: 35,2736           61744                           AD       1SECXT                                #  1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
019309,000599: 35,2737           00006                           EXTEND                                         
019310,000600: 35,2740           62746                           BZMF     RIGHTGTS                              
019311,000601: 35,2741           05663        WTGTSMPL           TC       WAITLIST                              
019312,000602: 35,2742  E5,1400                                  EBANK=   XSM                                   
019313,000603: 35,2742           02062 72065                     2CADR    ALLOOP                                
019314,000604: 
019315,000605: 35,2744           00003                           RELINT                                         
019316,000606: 35,2745           05567                           TC       ENDOFJOB                              
019317,000607: 35,2746           37762        RIGHTGTS           CAF      TWO                                   
019318,000608: 35,2747           02741                           TC       WTGTSMPL                              
019319,000609: 
019320,000610: 
019321,000611: 35,2750           04755        SOMEERRR           TC       ALARM                                 
019322,000612: 35,2751           01600                           OCT      1600                                  
019323,000613: 35,2752           02755                           TC       +3                                    
019324,000614: 35,2753           04755        SOMERR2            TC       ALARM                                 
019325,000615: 35,2754           01601                           OCT      1601                                  
019326,000616: 35,2755           05206                           TC       BANKCALL                              
019327,000617: 35,2756           30770                           CADR     ENDTEST                               
019328,000618: 

Page 465

019330,000620: 35,2757           04161        NOCHORLD           TC       PHASCHNG                              
019331,000621: 35,2760           00155                           OCT      00155                                 
019332,000622: 
019333,000623: 35,2761           06112                           TC       INTPRET                               
019334,000624: 35,2762           77775                           VLOAD                                          
019335,000625: 35,2763           33300                                    SCHZEROS                              
019336,000626: 35,2764           02625                           STORE    THETAN                                
019337,000627: 35,2765           77776                           EXIT                                           
019338,000628: 35,2766           11716                           CCS      GEOSAVED                              
019339,000629: 35,2767           55746                           TS       ERECTIME                              #         COUNTS DOWN FOR ERECTION
019340,000630: 
019341,000631: 35,2770           34530        ANNNNNN            CAF      NINE                                  
019342,000632: 35,2771           55527                           TS       LENGTHOT                              
019343,000633: 35,2772           02720                           TC       SLEEPIE    +1                         
019344,000634: 
019345,000635: 35,2773           00006        SETUPER            EXTEND                                         #  SUBROUTINE CALLED IN 3 PLACES
019346,000636: 35,2774           23547                           QXCH     QPLACES                               
019347,000637: 35,2775           06112                           TC       INTPRET                               
019348,000638: 35,2776           77624                           CALL                                           
019349,000639: 35,2777           30407                                    ERTHRVSE                              
019350,000640: 35,3000           77776                           EXIT                                           
019351,000641: 35,3001           05206                           TC       BANKCALL                              
019352,000642: 35,3002           30752                           CADR     OGCZERO                               
019353,000643: 35,3003           01547                           TC       QPLACES                               
019354,000644: 

Page 466

019356,000646: 35,3004     5352               GEOBND             =        EBANK3                                
019357,000647: 35,3004     5661               GEOBND1            =        EBANK5                                
019358,000648: 35,3004           35352        STOREDTA           CAF      GEOBND                                
019359,000649: 35,3005           54001                           TS       L                                     
019360,000650: 35,3006           33315                           CAF      77DECML                               
019361,000651: 35,3007           54144                           TS       MPAC                                  
019362,000652: 35,3010           50144                           INDEX    MPAC                                  
019363,000653: 35,3011           31600                           CA       ALX1S                                 
019364,000654: 35,3012           22003                           LXCH     EBANK                                 
019365,000655: 35,3013  0001600                                  EBANK=   RESTRTCS                              
019366,000656: 35,3013           50144                           INDEX    MPAC                                  
019367,000657: 35,3014           55600                           TS       RESTRTCS                              
019368,000658: 35,3015           22003                           LXCH     EBANK                                 
019369,000659: 35,3016  E5,1400                                  EBANK=   XSM                                   
019370,000660: 35,3016           10144                           CCS      MPAC                                  
019371,000661: 35,3017           13021                           TCF      +2                                    
019372,000662: 35,3020           00002                           TC       Q                                     
019373,000663: 35,3021           54144                           TS       MPAC                                  
019374,000664: 35,3022           35352                           CAF      GEOBND                                
019375,000665: 35,3023           54001                           TS       L                                     
019376,000666: 35,3024           13010                           TCF      STOREDTA   +4                         
019377,000667: 
019378,000668: 
019379,000669: 35,3025           33315        LOADSTDT           CAF      77DECML                               
019380,000670: 35,3026           54144                           TS       MPAC                                  
019381,000671: 35,3027           35352                           CA       GEOBND                                
019382,000672: 35,3030           56003                           XCH      EBANK                                 
019383,000673: 35,3031           54001                           TS       L                                     
019384,000674: 35,3032  0001600                                  EBANK=   RESTRTCS                              
019385,000675: 35,3032           50144                           INDEX    MPAC                                  
019386,000676: 35,3033           31600                           CA       RESTRTCS                              
019387,000677: 35,3034           22003                           LXCH     EBANK                                 
019388,000678: 35,3035  E5,1400                                  EBANK=   XSM                                   
019389,000679: 35,3035           50144                           INDEX    MPAC                                  
019390,000680: 35,3036           55600                           TS       ALX1S                                 
019391,000681: 35,3037           10144                           CCS      MPAC                                  
019392,000682: 35,3040           13042                           TCF      +2                                    
019393,000683: 35,3041           00002                           TC       Q                                     
019394,000684: 35,3042           54144                           TS       MPAC                                  
019395,000685: 35,3043           13027                           TCF      LOADSTDT   +2                         
019396,000686: 

Page 467

019398,000688: 35,3044           00006        LOADXSM            EXTEND                                         
019399,000689: 35,3045           23547                           QXCH     QPLACES                               
019400,000690: 35,3046           33346                           CAF      17DECML                               
019401,000691: 35,3047           54144                           TS       MPAC                                  
019402,000692: 35,3050           50000                           INDEX    A                                     
019403,000693: 35,3051           31720                           CA       PRELMTRX                              
019404,000694: 35,3052           50144                           INDEX    MPAC                                  
019405,000695: 35,3053           55400                           TS       XSM                                   
019406,000696: 35,3054           10144                           CCS      MPAC                                  
019407,000697: 35,3055           13047                           TCF      LOADXSM    +3                         
019408,000698: 35,3056           01547                           TC       QPLACES                               
019409,000699: 35,3057           77743        ALFDK              DEC      -28        B-14                       #  SLOPES AND TIME CONSTANTS FOR FIRST 30SC
019410,000700: 35,3060           77776                           DEC      -1         B-14                       
019411,000701: 35,3061           35143 10237                     2DEC     .91230833                             #  TIME CONSTANTS-PIPA OUTPUTS
019412,000702: 
019413,000703: 35,3063           31766 26106                     2DEC     .81193187                             #  TIME CONSTANT-ERECTION ANGLES
019414,000704: 
019415,000705: 35,3065           77772 43677                     2DEC     -.00035882                            #  SLOPE-AZIMUTH ANGLE
019416,000706: 
019417,000707: 35,3067           77777 77661                     2DEC     -.00000029                            #  SLOPE-VERTICAL DRIFT
019418,000708: 
019419,000709: 35,3071           00002 05420                     2DEC     .00013262                             #  SLOPE-NORTH SOUTH DRIFT
019420,000710: 
019421,000711: 
019422,000712: 35,3073           77705                           DEC      -58        B-14                       #  31-90 SEC
019423,000713: 35,3074           77776                           DEC      -1         B-14                       
019424,000714: 35,3075           37560 05346                     2DEC     .99122133                             
019425,000715: 
019426,000716: 35,3077           37522 15525                     2DEC     .98940595                             
019427,000717: 
019428,000718: 35,3101           77763 41604                     2DEC     -.00079010                            
019429,000719: 
019430,000720: 35,3103           77777 76470                     2DEC     -.00000265                            
019431,000721: 
019432,000722: 35,3105           00007 02201                     2DEC     .00043154                             
019433,000723: 
019434,000724: 
019435,000725: 35,3107           77767                           DEC      -8         B-14                       #  91-100 SEC
019436,000726: 35,3110           77776                           DEC      -1         B-14                       
019437,000727: 35,3111           37773 10042                     2DEC     .99971021                             
019438,000728: 
019439,000729: 35,3113           37747 30232                     2DEC     .99852047                             
019440,000730: 
019441,000731: 35,3115           00006 37666                     2DEC     .00042697                             
019442,000732: 
019443,000733: 35,3117           77777 76703                     2DEC     -.00000213                            
019444,000734: 
019445,000735: 35,3121           00001 36147                     2DEC     .00011864                             
019446,000736: 

Page 468

019448,000738: 35,3123           77635                           DEC      -98        B-14                       #  101-200 SEC
019449,000739: 35,3124           77776                           DEC      -1         B-14                       
019450,000740: 35,3125           37666 11022                     2DEC     .99550063                             
019451,000741: 
019452,000742: 35,3127           37532 33647                     2DEC     .98992124                             
019453,000743: 
019454,000744: 35,3131           00007 03641                     2DEC     .00043452                             
019455,000745: 
019456,000746: 35,3133           77777 75713                     2DEC     -.00000401                            
019457,000747: 
019458,000748: 35,3135           77774 54605                     2DEC     -.00021980                            
019459,000749: 
019460,000750: 
019461,000751: 35,3137           77407                           DEC      -248       B-14                       #  201-450 SEC
019462,000752: 35,3140           77776                           DEC      -1         B-14                       
019463,000753: 35,3141           37712 16755                     2DEC     .99673264                             
019464,000754: 
019465,000755: 35,3143           37630 01160                     2DEC     .99365467                             
019466,000756: 
019467,000757: 35,3145           00000 23600                     2DEC     .00003767                             
019468,000758: 
019469,000759: 35,3147           77777 63663                     2DEC     -.00002317                            
019470,000760: 
019471,000761: 35,3151           77777 56527                     2DEC     -.00003305                            
019472,000762: 
019473,000763: 
019474,000764: 35,3153           77255                           DEC      -338       B-14                       #  451-790 SEC
019475,000765: 35,3154           77776                           DEC      -1         B-14                       
019476,000766: 35,3155           37763 23341                     2DEC     .99924362                             
019477,000767: 
019478,000768: 35,3157           37755 26170                     2DEC     .99888274                             
019479,000769: 
019480,000770: 35,3161           00000 00254                     2DEC     .00000064                             
019481,000771: 
019482,000772: 35,3163           77777 52755                     2DEC     -.00004012                            
019483,000773: 
019484,000774: 35,3165           77777 76764                     2DEC     -.00000195                            
019485,000775: 
019486,000776: 
019487,000777: 35,3167           77147                           DEC      -408       B-14                       #  791-1200 SEC
019488,000778: 35,3170           77776                           DEC      -1         B-14                       
019489,000779: 35,3171           37772 02343                     2DEC     .99963845                             
019490,000780: 
019491,000781: 35,3173           37761 30560                     2DEC     .99913162                             
019492,000782: 
019493,000783: 35,3175           00000 00362                     2DEC     .00000090                             
019494,000784: 

Page 469

019496,000786: 35,3177           00000 17261                     2DEC     .00002927                             
019497,000787: 
019498,000788: 35,3201           77777 77671                     2DEC     -.00000026                            
019499,000789: 
019500,000790: 
019501,000791: 35,3203           77015                           DEC      -498       B-14                       #  1201-1700 SEC
019502,000792: 35,3204           77776                           DEC      -1         B-14                       
019503,000793: 35,3205           37765 12403                     2DEC     .99934865                             
019504,000794: 
019505,000795: 35,3207           37752 20062                     2DEC     .99868793                             
019506,000796: 
019507,000797: 35,3211           00000 00224                     2DEC     .00000055                             
019508,000798: 
019509,000799: 35,3213           00000 06150                     2DEC     .00001183                             
019510,000800: 
019511,000801: 35,3215           77777 77762                     2DEC     -.00000005                            
019512,000802: 
019513,000803: 
019514,000804: 35,3217           77161                           DEC      -398       B-14                       #  1701-2100 SEC
019515,000805: 35,3220           77776                           DEC      -1         B-14                       
019516,000806: 35,3221           37767 12513                     2DEC     .99947099                             
019517,000807: 
019518,000808: 35,3223           37756 30343                     2DEC     .99894799                             
019519,000809: 
019520,000810: 35,3225           00000 00060                     2DEC     .00000018                             
019521,000811: 
019522,000812: 35,3227           00000 01445                     2DEC     .00000300                             
019523,000813: 
019524,000814: 35,3231           77777 77774                     2DEC     -.00000001                            
019525,000815: 
019526,000816: 
019527,000817: 35,3233           76651                           DEC      -598       B-14                       #  2101-2700 SEC
019528,000818: 35,3234           77776                           DEC      -1         B-14                       
019529,000819: 35,3235           37771 02603                     2DEC     .99957801                             
019530,000820: 
019531,000821: 35,3237           37762 10061                     2DEC     .99916095                             
019532,000822: 
019533,000823: 35,3241           00000 00023                     2DEC     .00000007                             
019534,000824: 
019535,000825: 35,3243           00000 00402                     2DEC     .00000096                             
019536,000826: 
019537,000827: 35,3245           00000 00000                     2DEC     .00000000                             
019538,000828: 
019539,000829: 
019540,000830: 35,3247           76505                           DEC      -698       B-14                       #  2700-3400 SEC
019541,000831: 35,3250           77776                           DEC      -1         B-14                       

Page 470

019543,000833: 35,3251           37772 22005                     2DEC     .99966814                             
019544,000834: 
019545,000835: 35,3253           37765 05560                     2DEC     .99933952                             
019546,000836: 
019547,000837: 35,3255           00000 00005                     2DEC     .00000002                             
019548,000838: 
019549,000839: 35,3257           00000 00113                     2DEC     .00000028                             
019550,000840: 
019551,000841: 35,3261           00000 00000                     2DEC     .00000000                             
019552,000842: 
019553,000843: 
019554,000844: 35,3263           76651                           DEC      -598       B-14                       #  3401-4000 SEC
019555,000845: 35,3264           77776                           DEC      -1         B-14                       
019556,000846: 35,3265           37773 20750                     2DEC     .99972716                             
019557,000847: 
019558,000848: 35,3267           37767 03044                     2DEC     .99945654                             
019559,000849: 
019560,000850: 35,3271           00000 00003                     2DEC     .00000001                             
019561,000851: 
019562,000852: 35,3273           00000 00033                     2DEC     .00000010                             
019563,000853: 
019564,000854: 35,3275           00000 00000                     2DEC     .00000000                             
019565,000855: 
019566,000856: 
019567,000857: 35,3277           00000 00000  SCHZEROS           2DEC     .00000000                             
019568,000858: 
019569,000859: 35,3301           00000 00000                     2DEC     .00000000                             
019570,000860: 
019571,000861: 35,3303           00000 00000                     2DEC     .00000000                             
019572,000862: 
019573,000863: 35,3305           00004        INTVAL             OCT      4                                     
019574,000864: 35,3306           00002                           OCT      2                                     
019575,000865: 35,3307           00220                           DEC      144        B-14                       
019576,000866: 35,3310           77776                           DEC      -1         B-14                       
019577,000867: 35,3311           35730 00035  SOUPLY             2DEC     .93505870                             #  INITIAL GAINS FOR PIP OUTPUTS
019578,000868: 
019579,000869: 35,3313           10317 17550                     2DEC     .26266423                             #  INITIAL GAINS/4 FOR ERECTION ANGLES
019580,000870: 
019581,000871: 
019582,000872: 35,3315           00115        77DECML            DEC      77         B-14                       
019583,000873: 35,3316           01577        ALXXXZ             GENADR   ALX1S      -1                         
019584,000874: 35,3317           02500        AINGYRO            ECADR    OGC                                   
019585,000875: 35,3320           04133 02265  PIPASC             2DEC     .13055869                             
019586,000876: 
019587,000877: 35,3322           57223 66451  VELSC              2DEC     -.52223476                            #  512/980.402
019588,000878: 
019589,000879: 35,3324           05427 12577  ALSK               2DEC     .17329931                             #  SSWAY VEL GAIN X 980.402/4096
019590,000880: 

Page 471

019592,000882: 35,3326           77567 44202                     2DEC     -.00835370                            #  SSWAY ACCEL GAIN X 980.402/4096
019593,000883: 
019594,000884: 
019595,000885: 35,3330           24276 14066  GEORGEJ            2DEC     .63661977                             
019596,000886: 
019597,000887: 35,3332           23073 11773  GEORGEK            2DEC     .59737013                             
019598,000888: 
019599,000889: 35,3334           00023        SCHOCT23           OCT      00023                                 
019600,000890: 35,3335           03146 14632  GEOCONS1           2DEC     .1                                    
019601,000891: 
019602,000892: 35,3337           00121 35341  GEOCONS2           2DEC     .005                                  
019603,000893: 
019604,000894: 35,3341           00631 23146  GEOCONS3           2DEC     .025                                  
019605,000895: 
019606,000896: 35,3343           00000 17565  GEOCONS4           2DEC     .00003                                
019607,000897: 
019608,000898: 35,3345           06200        1/PIPAGT           OCT      06200                                 
019609,000899: 35,3346           00021        17DECML            DEC      17         B-14                       
019610,000900: 35,3347           00023        19DECML            DEC      19         B-14                       
019611,000901: 35,3350           00062        1/2SECX            DEC      50         B-14                       
019612,000902: 
019613,000903: 
019614,000904: 35,3351           37763        GTSCPSS            CA       ONE                                   
019615,000905: 35,3352           55742                           TS       GEOCOMPS                              #  THIS IS THE LEAD IN FOR COMPASS
019616,000906: 35,3353           04117                           TC       NEWMODEX                              
019617,000907: 35,3354           00001                           OCT      01                                    
019618,000908: 35,3355           33345                           CA       1/PIPAGT                              
019619,000909: 35,3356           54765                           TS       1/PIPADT                              
019620,000910: 35,3357           37764                           CA       ELEVEN                                #  COMPASS IS POSITION 11
019621,000911: 35,3360           55544                           TS       POSITON                               
019622,000912: 35,3361           37754                           CA       BIT8                                  #  620 SECONDS ERECTING
019623,000913: 35,3362           55527                           TS       LENGTHOT                              
019624,000914: 35,3363           33350                           CAF      1/2SECX                               #  COMPASS IS A .5 SEC LOOP
019625,000915: 35,3364           55744                           TS       1SECXT                                
019626,000916: 35,3365           37767                           CAF      ZERO                                  
019627,000917: 35,3366           55536                           TS       NBPOS                                 
019628,000918: 35,3367           05206                           TC       BANKCALL                              
019629,000919: 35,3370           50014                           CADR     GEOIMUTT                              
019630,000920: 
019631,000921: 
019632,000922: 35,3371           30075        CHKCOMED           CA       FLAGWRD1                              #  CHECK FOR END OF COMPASS
019633,000923: 35,3372           77762                           MASK     BIT2                                  #  TEST FOR GRR FLAG
019634,000924: 35,3373           10000                           CCS      A                                     
019635,000925: 35,3374           13376                           TCF      PRELTERM                              #  YES  GRR HAS OCCURRED
019636,000926: 35,3375           00002                           TC       Q                                     #  NO  CONTINUE
019637,000927: 

Page 472

019639,000929: 35,3376           04117        PRELTERM           TC       NEWMODEX                              
019640,000930: 35,3377           00004                           OCT      04                                    #  04 IS END OF COMPASS
019641,000931: 35,3400           12621                           TCF      LASTGTS                               #  GET LAST TORQUING
019642,000932: 
019643,000933: 
019644,000934: 35,3401           77214        GRRNOW             SET      VLOAD                                 #  COME HERE WHEN DELV CHECK SHOWS LIFTOFF
019645,000935: 35,3402           00475                                    GRRFLAG                               #  TO HAVE OCCURRED.
019646,000936: 35,3403           00404                                    DELV                                  
019647,000937: 35,3404           01765                           STORE    DELVBUF                               
019648,000938: 35,3405           77531                           SSP      EXIT                                  
019649,000939: 35,3406           01743                                    DT-LIFT                               #  START LIFTOFF 100 MS AFTER MP2TASK
019650,000940: 35,3407           00012                                    10D                                   
019651,000941: 
019652,000942: 35,3410           00004                           INHINT                                         
019653,000943: 35,3411           35205                           CAF      1SEC+1                                #  DELAY TILL PRELAUNCH IF FINISHED, BUT
019654,000944: 35,3412           05663                           TC       WAITLIST                              #  NOT SO LONG THAT READACCS HAPPENS FIRST.
019655,000945: 35,3413  E5,1745                                  EBANK=   GTSWTLST                              
019656,000946: 35,3413           02446 56065                     2CADR    LIFTFIXT                              
019657,000947: 
019658,000948: 35,3415           00003                           RELINT                                         
019659,000949: 35,3416           13376                           TCF      PRELTERM                              
019660,000950: 

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