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