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.

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

Page 450

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

Page 451

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

Page 452

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

Page 453

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

Page 454

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

Page 455

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

Page 456

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

Page 457

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

Page 458

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

Page 459

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

Page 460

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

Page 461

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

Page 462

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

Page 463

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

Page 464

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

Page 465

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

Page 466

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

Page 467

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

Page 468

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

Page 469

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

Page 470

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

Page 471

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

Page 472

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

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