Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
018712,000002: ## Copyright: Public domain.
018713,000003: ## Filename: OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
018714,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
018715,000005: ## is part of the source code for the Lunar Module's
018716,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
018717,000007: ## Assembler: yaYUL
018718,000008: ## Contact: Ron Burkey <info@sandroid.org>.
018719,000009: ## Website: www.ibiblio.org/apollo/index.html
018720,000010: ## Mod history: 2016-09-30 RSB Created draft version.
018721,000011: ## 2016-10-18 RSB Transcribed by correcting Aurora 12 version of
018722,000012: ## this file.
018723,000013: ## 2016-10-31 RSB Typos.
018724,000014: ## 2016-11-01 RSB More typos.
018725,000015: ## 2016-12-05 RSB Comment-proofing with octopus/ProoferComments
018726,000016: ## completed, changes made.
018727,000017:
![]() |
Page 450 |
018729,000019: # PROGRAM NAME-OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
018730,000020: # DATE- NOVEMBER 2 1966
018731,000021: # BY- GEORGE SCHMIDT IL 7-146 EXT. 126
018732,000022: # MOD NO 2
018733,000023: # FUNCTIONAL DESCRIPTION
018734,000024:
018735,000025: # THIS LOG SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS
018736,000026: # INTEGRATED TOGETHER TO SAVE WORDS. IT IS COMPLETELY RESTART PROOFED.
018737,000027: # THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
018738,000028: # EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
018739,000029: # HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
018740,000030: # OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973.BOTH OF THESE
018741,000031: # ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
018742,000032: # PROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S. THE INITIALIZATION METHOD
018743,000033: # FOR GYROCOMPASS IS IN A STG MEMO FOR EACH ASSEMBLY.
018744,000034: # THIS LOG SECTION ALWAYS STARTS BY A CADR IN IMU PERF. TESTS 2 AND BEGINS
018745,000035: # AT ESTIMS. THE PIPS ARE READ EVERY .5 SEC IN COMPASS AND 1 SEC IN DRIFT
018746,000036: # TESTS. THEN IN BOTH CASES RELEVANT COMPUTATION IS DONE. THE KEY ERASABLE
018747,000037: # IS GEOCOMPS- 0 WE ARE IN A DRIFT TEST -NONZERO WE ARE IN COMPASS.
018748,000038: # THE GYROCOMPASS HAS THE CAPABILITY TO ALIGN TO ANY ORIENTATION,HAS THE
018749,000039: # CAPABILITY TO BE COMPENSATED FOR
018750,000040: # COMPONENT ERRORS,IS CAPABLE OF OPTICAL VERIFICATION( CSM ONLY).
018751,000041:
018752,000042: # SUBROUTINES CALLED
018753,000043:
018754,000044: # EARTHR, CALGTA, OGC ZERO,ERTHRVSE,GCOMPZERO AND
018755,000045: # IMU COMPENSATION
018756,000046: # DURING OPTICAL VERIFICATION (CSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN
018757,000047: # IS CALLED IN ONE WAY OR ANOTHER. SEE THE LISTING.
018758,000048:
018759,000049: # NORMAL EXIT
018760,000050:
018761,000051: # DRIFT TESTS- LENGTHOT GOES TO ZERO-RETURN TO IMU PERF TEST2 CONTROL
018762,000052: # GYROCOMPASS-GRR RECEIVED OR G LEVEL EXCEEDS GLIFTOFF-START UP MP 2
018763,000053: # 206 IMPLEMENTATION
018764,000054:
018765,000055: # ALARMS
018766,000056:
018767,000057: # 1600 OVERFLOW IN DRIFT TEST
018768,000058: # 1601 BAD IMU TORQUE ABORT
018769,000059: # 1602 BAD OPTICS DURING VERIFICATION-RETURN TO COMPASS CSM ONLY
018770,000060:
018771,000061: # OUTPUT
018772,000062:
018773,000063: # DRIFT TESTS- FLASHING DISPLAYS OF RESULTS-CONTROLLED IN IMU PERF TESTS 2
018774,000064: # COMPASS-PROGRAM MODE LIGHTS TELL YOU WHAT PHASE OF PROGRAM YOU ARE IN
018775,000065: # 01 INITIALIZING THE PLATFORM POSITION AND ERASABLE
018776,000066: # 02 GYROCOMPASSING
018777,000067: # 03 DOING OPTICAL VERIFICATION (CSM)
018778,000068: # 04 GRR SIGNAL RECEIVED FINISH UP TORQUE AND TC MP2JOB
![]() |
Page 451 |
018780,000070: # 206 IMPLEMENTATION
018781,000071:
018782,000072: # DEBRIS
018783,000073:
018784,000074: # ALL CENTRALS,ALL OF EBANK XSM,AND 78 DEC LOCATIONS (SEE STOREDTA..
018785,000075:
![]() |
Page 452 |
018787,000077: 35,2014 BANK 35
018788,000078: 35,2014 E5,1400 EBANK= XSM
018789,000079:
018790,000080: # G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
018791,000081: # PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
018792,000082: 35,2014 04161 ESTIMS TC PHASCHNG
018793,000083: 35,2015 00075 OCT 00075
018794,000084: 35,2016 37763 CAF BIT1
018795,000085: 35,2017 04105 TC SETRSTRT # SET RESTART FLAG
018796,000086:
018797,000087: 35,2020 00004 RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
018798,000088: 35,2021 30025 CA TIME1
018799,000089: 35,2022 55745 TS GTSWTLST
018800,000090: 35,2023 47767 CS ZERO
018801,000091: 35,2024 54037 TS PIPAX
018802,000092: 35,2025 54040 TS PIPAY
018803,000093: 35,2026 54041 TS PIPAZ
018804,000094: 35,2027 54404 TS DELVX +1
018805,000095: 35,2030 54406 TS DELVY +1
018806,000096: 35,2031 54410 TS DELVZ +1
018807,000097: 35,2032 00003 RELINT
018808,000098: 35,2033 02773 TC SETUPER
018809,000099: 35,2034 33315 CA 77DECML
018810,000100: 35,2035 55777 TS ZERONDX
018811,000101: 35,2036 33316 CA ALXXXZ
018812,000102: 35,2037 05206 TC BANKCALL
018813,000103: 35,2040 51245 CADR ZEROING
018814,000104: 35,2041 06112 TC INTPRET
018815,000105: 35,2042 77775 VLOAD
018816,000106: 35,2043 33310 INTVAL +2
018817,000107: 35,2044 02601 STORE ALX1S
018818,000108: 35,2045 77776 EXIT
018819,000109:
018820,000110: 35,2046 11742 CCS GEOCOMPS # GEOCOMPS IN NON ZERO IF COMPASS
018821,000111: 35,2047 02051 TC +2
018822,000112: 35,2050 02720 TC SLEEPIE +1
018823,000113: 35,2051 31527 CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
018824,000114: 35,2052 55746 TS ERECTIME
018825,000115:
018826,000116: 35,2053 37763 CA ONE
018827,000117: 35,2054 54764 TS PHASENUM
018828,000118: 35,2055 04117 TC NEWMODEX
018829,000119: 35,2056 00002 OCT 02
018830,000120: 35,2057 05206 TC BANKCALL
018831,000121: 35,2060 25606 CADR GCOMPZER # ZERO COMPENSATION PROGRAM REGISTERS
018832,000122: 35,2061 02770 TC ANNNNNN
018833,000123:
![]() |
Page 453 |
018835,000125: 35,2062 30025 ALLOOP CA TIME1
018836,000126: 35,2063 57745 XCH GTSWTLST # STORE TIME TO SET UP NEXT WAITLIST.
018837,000127: 35,2064 55743 TS OLDGT # SAVE LAST READ TIME.
018838,000128:
018839,000129: 35,2065 31664 ALLOOP3 CA ALTIM
018840,000130: 35,2066 55716 TS GEOSAVED
018841,000131: 35,2067 04161 TC PHASCHNG
018842,000132: 35,2070 00115 OCT 00115
018843,000133: 35,2071 31716 ALLOOP1 CA GEOSAVED
018844,000134: 35,2072 55664 TS ALTIM
018845,000135: 35,2073 10000 CCS A
018846,000136: 35,2074 30000 CA A # SHOULD NEVER HIT THIS LOCATION
018847,000137: 35,2075 55665 TS ALTIMS
018848,000138: 35,2076 40000 CS A
018849,000139: 35,2077 55664 TS ALTIM
018850,000140: 35,2100 30037 CA PIPAX
018851,000141: 35,2101 54403 TS DELVX
018852,000142: 35,2102 30040 CA PIPAY
018853,000143: 35,2103 54405 TS DELVY
018854,000144: 35,2104 30041 CA PIPAZ
018855,000145: 35,2105 54407 TS DELVZ
018856,000146: 35,2106 33334 CA SCHOCT23
018857,000147: 35,2107 04246 TC NEWPHASE
018858,000148: 35,2110 00005 OCT 00005
018859,000149: 35,2111 47767 SPECSTS CS ZERO
018860,000150: 35,2112 54037 TS PIPAX
018861,000151: 35,2113 54040 TS PIPAY
018862,000152: 35,2114 54041 TS PIPAZ
018863,000153: 35,2115 37746 CAF PRIO20
018864,000154: 35,2116 05516 TC FINDVAC
018865,000155: 35,2117 E5,1400 EBANK= XSM
018866,000156: 35,2117 02122 72065 2CADR ALFLT # START THE JOB
018867,000157:
018868,000158: 35,2121 05727 TC TASKOVER
018869,000159:
![]() |
Page 454 |
018871,000161: 35,2122 03004 ALFLT TC STOREDTA # STORE DATA IN CASE OF RESTART IN JOB
018872,000162: 35,2123 04161 TC PHASCHNG # THIS IS THE JOB DONE EVERY ITERATION
018873,000163: 35,2124 00215 OCT 00215
018874,000164: 35,2125 12127 TCF +2
018875,000165: 35,2126 03025 ALFLT1 TC LOADSTDT # COMES HERE ON RESTART
018876,000166: 35,2127 11742 CCS GEOCOMPS
018877,000167: 35,2130 02132 TC +2
018878,000168: 35,2131 02156 TC NORMLOP
018879,000169: 35,2132 03371 TC CHKCOMED # SEE IF PRELAUNCH OVER
018880,000170: 35,2133 05206 TC BANKCALL # COMPENSATION IF IN COMPASS
018881,000171: 35,2134 25222 CADR 1/PIPA
018882,000172: 35,2135 41745 CS GTSWTLST # SEE IF MEASURED DELV LOOKS LIKE LIFTOFF
018883,000173: 35,2136 61743 AD OLDGT # HAS OCCURRED.
018884,000174: 35,2137 00006 EXTEND
018885,000175: 35,2140 62143 BZMF +3
018886,000176: 35,2141 67744 AD NEG1/2 # (IF TIME1 OVERFLOWED)
018887,000177: 35,2142 67744 AD NEG1/2
018888,000178: 35,2143 54147 TS MPAC +3 # DT STORED NEGATIVELY
018889,000179:
018890,000180: 35,2144 06112 TC INTPRET
018891,000181:
018892,000182: 35,2145 42535 SLOAD SL4 # SCALE DT AT 2(+10) CS.
018893,000183: 35,2146 00150 MPAC +3
018894,000184: 35,2147 51515 PDVL ABVAL
018895,000185: 35,2150 00404 DELV
018896,000186: 35,2151 77671 DDV # GET ACC (NEG) IN M/SEC SQ SCALED 2(4)
018897,000187: 35,2152 50015 DAD BMN # (DV OVFLO GIVES DP POSMAX)
018898,000188: 35,2153 01765 GLIFTOFF # WHEN GLIFTOFF = DP POSMAX, THIS KIND OF
018899,000189: 35,2154 73401 GRRNOW # LIFTOFF DETECTION IS INHIBITED.
018900,000190: 35,2155 77776 EXIT # CONTINUE GYROCOMPASS IF NO LIFTOFF.
018901,000191:
018902,000192: 35,2156 00006 NORMLOP EXTEND
018903,000193: 35,2157 33306 DCA INTVAL
018904,000194: 35,2160 50110 INDEX FIXLOC
018905,000195: 35,2161 52051 DXCH S1
018906,000196: 35,2162 11742 CCS GEOCOMPS
018907,000197: 35,2163 02203 TC PALFLT # COMPASS
018908,000198: 35,2164 06112 TC INTPRET # NO COMPZSS
018909,000199: 35,2165 50135 ALCGKK SLOAD BMN
018910,000200: 35,2166 02666 ALTIMS
018911,000201: 35,2167 72204 ALFLT2
018912,000202: 35,2170 72174 ALKCG AXT,2 LXA,1 # LOADS SLOPES AND TIME CONSTANTS AT RQST
018913,000203: 35,2171 00014 12D
018914,000204: 35,2172 02600 ALX1S
018915,000205: 35,2173 62143 ALKCG2 DLOAD* INCR,1
018916,000206: 35,2174 33300 ALFDK +144D,1
018917,000207: 35,2175 77775 DEC -2 B-14
018918,000208: 35,2176 12701 STORE ALDK +10D,2
018919,000209: 35,2177 66104 TIX,2 SXA,1
018920,000210: 35,2200 72173 ALKCG2
![]() |
Page 455 |
018922,000212: 35,2201 02600 ALX1S
018923,000213:
018924,000214: 35,2202 77776 EXIT
018925,000215: 35,2203 06112 PALFLT TC INTPRET
018926,000216: 35,2204 61375 ALFLT2 VLOAD VXM
018927,000217: 35,2205 00404 DELVX
018928,000218: 35,2206 02750 GEOMTRX
018929,000219: 35,2207 77772 VSL1
018930,000220: 35,2210 57545 DLOAD DCOMP
018931,000221: 35,2211 00150 MPAC +3
018932,000222: 35,2212 16657 STODL DPIPAY
018933,000223: 35,2213 00152 MPAC +5
018934,000224: 35,2214 02663 STORE DPIPAZ
018935,000225:
018936,000226: 35,2215 76001 SETPD AXT,1 # MEASUREMENT INCORPORATION ROUTINES.
018937,000227: 35,2216 00001 0
018938,000228: 35,2217 00010 8D
018939,000229: 35,2220 57535 SLOAD DCOMP
018940,000230: 35,2221 02743 GEOCOMPS
018941,000231: 35,2222 77640 BMN
018942,000232: 35,2223 72532 ALWAYSG # DO A QUICK COMPASS
018943,000233: 35,2224 41343 DELMLP DLOAD* DMP
018944,000234: 35,2225 02667 DPIPAY +8D,1
018945,000235: 35,2226 33321 PIPASC
018946,000236: 35,2227 42661 SLR DAD*
018947,000237: 35,2230 21212 9D
018948,000238: 35,2231 02715 DELM +8D,1
018949,000239: 35,2232 64623 DSU* PDDL*
018950,000240: 35,2233 02635 INTY +8D,1
018951,000241: 35,2234 02655 VLAUN +8D,1
018952,000242: 35,2235 41223 DSU* DMP
018953,000243: 35,2236 02627 VLAUNS +8D,1
018954,000244: 35,2237 33323 VELSC
018955,000245: 35,2240 77732 SL2R
018956,000246: 35,2241 45415 DAD STADR
018957,000247: 35,2242 71062 STORE DELM +8D,1
018958,000248: 35,2243 06717 STORE DELM +10D,1
018959,000249: 35,2244 77743 DLOAD*
018960,000250: 35,2245 02655 VLAUN +8D,1
018961,000251: 35,2246 06627 STORE VLAUNS +8D,1
018962,000252: 35,2247 77745 DLOAD
018963,000253: 35,2250 33304 INTVAL -2
018964,000254: 35,2251 06635 STORE INTY +8D,1
018965,000255: 35,2252 77100 TIX,1 AXT,2
018966,000256: 35,2253 72224 DELMLP
018967,000257: 35,2254 00004 4
018968,000258: 35,2255 56743 ALILP DLOAD* DMPR*
018969,000259: 35,2256 75170 ALK +4,2
018970,000260: 35,2257 75104 ALDK +4,2
018971,000261: 35,2260 12607 STORE ALK +4,2
![]() |
Page 456 |
018973,000263: 35,2261 77104 TIX,2 AXT,2
018974,000264: 35,2262 72255 ALILP
018975,000265: 35,2263 00010 8D
018976,000266: 35,2264 66140 ALKLP LXC,1 SXA,1
018977,000267: 35,2265 02601 CMPX1
018978,000268: 35,2266 02601 CMPX1
018979,000269: 35,2267 56743 DLOAD* DMPR*
018980,000270: 35,2270 02604 ALK +1,1
018981,000271: 35,2271 75062 DELM +8D,2
018982,000272: 35,2272 77613 DAD*
018983,000273: 35,2273 75142 INTY +8D,2
018984,000274: 35,2274 12635 STORE INTY +8D,2
018985,000275: 35,2275 42743 DLOAD* DAD*
018986,000276: 35,2276 75160 ALK +12D,2
018987,000277: 35,2277 75074 ALDK +12D,2
018988,000278: 35,2300 12617 STORE ALK +12D,2
018989,000279: 35,2301 42673 DMPR* DAD*
018990,000280: 35,2302 75062 DELM +8D,2
018991,000281: 35,2303 75132 INTY +16D,2
018992,000282: 35,2304 12645 STORE INTY +16D,2
018993,000283: 35,2305 40743 DLOAD* DMP*
018994,000284: 35,2306 33326 ALSK +1,1
018995,000285: 35,2307 75062 DELM +8D,2
018996,000286: 35,2310 42772 SL1R DAD*
018997,000287: 35,2311 75122 VLAUN +8D,2
018998,000288: 35,2312 12655 STORE VLAUN +8D,2
018999,000289: 35,2313 76104 TIX,2 AXT,1
019000,000290: 35,2314 72264 ALKLP
019001,000291: 35,2315 00010 8D
019002,000292:
019003,000293:
019004,000294: 35,2316 64743 LOOSE DLOAD* PDDL*
019005,000295: 35,2317 02657 ACCWD +8D,1
019006,000296: 35,2320 02655 VLAUN +8D,1
019007,000297: 35,2321 55523 PDDL* VDEF
019008,000298: 35,2322 02665 POSNV +8D,1
019009,000299: 35,2323 76521 MXV VSL1
019010,000300: 35,2324 02721 TRANSM1
019011,000301: 35,2325 77745 DLOAD
019012,000302: 35,2326 00145 MPAC
019013,000303: 35,2327 06665 STORE POSNV +8D,1
019014,000304: 35,2330 77745 DLOAD
019015,000305: 35,2331 00150 MPAC +3
019016,000306: 35,2332 06655 STORE VLAUN +8D,1
019017,000307: 35,2333 77745 DLOAD
019018,000308: 35,2334 00152 MPAC +5
019019,000309: 35,2335 06657 STORE ACCWD +8D,1
019020,000310: 35,2336 77700 TIX,1
019021,000311: 35,2337 72316 LOOSE
![]() |
Page 457 |
019023,000313:
019024,000314: 35,2340 76174 AXT,2 AXT,1 # EVALUATE SINES AND COSINES
019025,000315: 35,2341 00006 6
019026,000316: 35,2342 00002 2
019027,000317: 35,2343 57343 BOOP DLOAD* DMPR
019028,000318: 35,2344 02637 ANGX +2,1
019029,000319: 35,2345 33331 GEORGEJ
019030,000320: 35,2346 77722 SR2R
019031,000321: 35,2347 73406 PUSH SIN
019032,000322: 35,2350 56172 SL1R XAD,1
019033,000323: 35,2351 00046 X1
019034,000324: 35,2352 10021 STORE 16D,2
019035,000325: 35,2353 77745 DLOAD
019036,000326: 35,2354 77746 COS
019037,000327: 35,2355 10027 STORE 22D,2 # COSINES
019038,000328: 35,2356 71304 TIX,2 DLOAD
019039,000329: 35,2357 72343 BOOP
019040,000330:
019041,000331:
019042,000332: 35,2360 00017 14D
019043,000333: 35,2361 43312 SL2 DAD
019044,000334: 35,2362 02625 INTY
019045,000335: 35,2363 16625 STODL INTY
019046,000336: 35,2364 00015 12D
019047,000337: 35,2365 56405 DMP SL3R
019048,000338: 35,2366 00025 20D
019049,000339: 35,2367 77615 DAD
019050,000340: 35,2370 02631 INTZ
019051,000341: 35,2371 16631 STODL INTZ
019052,000342: 35,2372 00021 16D
019053,000343: 35,2373 57275 DMPR DMPR
019054,000344: 35,2374 00023 18D
019055,000345: 35,2375 00017 14D
019056,000346: 35,2376 77712 SL2
019057,000347: 35,2377 57325 PDDL DMPR
019058,000348: 35,2400 00013 10D
019059,000349: 35,2401 00015 12D
019060,000350: 35,2402 77615 DAD
019061,000351: 35,2403 77675 DMPR
019062,000352: 35,2404 02573 WANGI
019063,000353: 35,2405 57325 PDDL DMPR
019064,000354: 35,2406 00023 18D
019065,000355: 35,2407 00025 20D
019066,000356: 35,2410 66405 DMP SL2R
019067,000357: 35,2411 02571 WANGO
019068,000358: 35,2412 77621 BDSU
019069,000359: 35,2413 02637 DRIFTO
019070,000360: 35,2414 45425 DSU STADR
019071,000361: 35,2415 61156 STODL WPLATO
019072,000362: 35,2416 00021 16D
![]() |
Page 458 |
019074,000364: 35,2417 41275 DMPR DMP
019075,000365: 35,2420 00025 20D
019076,000366: 35,2421 02573 WANGI
019077,000367: 35,2422 77732 SL2R
019078,000368: 35,2423 57325 PDDL DMPR
019079,000369: 35,2424 02571 WANGO
019080,000370: 35,2425 00017 14D
019081,000371: 35,2426 77615 DAD
019082,000372: 35,2427 02641 DRIFTI
019083,000373: 35,2430 77625 DSU
019084,000374: 35,2431 57325 PDDL DMPR
019085,000375: 35,2432 02575 WANGT
019086,000376: 35,2433 02573 WANGI
019087,000377: 35,2434 45415 DAD STADR
019088,000378: 35,2435 61062 STODL WPLATI
019089,000379: 35,2436 00023 18D
019090,000380: 35,2437 76405 DMP SL1R
019091,000381: 35,2440 00013 10D
019092,000382: 35,2441 57325 PDDL DMPR
019093,000383: 35,2442 00015 12D
019094,000384: 35,2443 00021 16D
019095,000385: 35,2444 76405 DMP SL1R
019096,000386: 35,2445 00017 14D
019097,000387: 35,2446 77621 BDSU
019098,000388: 35,2447 77675 DMPR
019099,000389: 35,2450 02573 WANGI
019100,000390: 35,2451 57325 PDDL DMPR
019101,000391: 35,2452 00015 12D
019102,000392: 35,2453 00025 20D
019103,000393: 35,2454 76405 DMP SL1R
019104,000394: 35,2455 02571 WANGO
019105,000395: 35,2456 77621 BDSU
019106,000396: 35,2457 02577 DRIFTT
019107,000397: 35,2460 77615 DAD # WPLATT NOW IN MPAC
019108,000398: 35,2461 77606 PUSH # PUSH IT DOWN-X IT BY SANG +2
019109,000399: 35,2462 74475 DMPR SR1R
019110,000400: 35,2463 00015 12D
019111,000401: 35,2464 57325 PDDL DMPR
019112,000402: 35,2465 02621 WPLATO
019113,000403: 35,2466 00023 18D
019114,000404: 35,2467 77615 DAD
019115,000405: 35,2470 77671 DDV
019116,000406: 35,2471 00025 20D
019117,000407: 35,2472 57206 PUSH DMPR
019118,000408: 35,2473 33333 GEORGEK
019119,000409: 35,2474 43261 SRR DAD
019120,000410: 35,2475 21616 13D
019121,000411: 35,2476 02635 ANGX
019122,000412: 35,2477 16635 STODL ANGX
019123,000413: 35,2500 43275 DMPR DAD
![]() |
Page 459 |
019125,000415: 35,2501 00017 14D
019126,000416: 35,2502 02715 WPLATI
019127,000417: 35,2503 54275 DMPR SRR
019128,000418: 35,2504 33333 GEORGEK
019129,000419: 35,2505 21616 13D
019130,000420: 35,2506 77615 DAD
019131,000421: 35,2507 02633 ANGY
019132,000422: 35,2510 16633 STODL ANGY
019133,000423: 35,2511 00023 18D
019134,000424: 35,2512 76405 DMP SL1R # MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
019135,000425: 35,2513 57325 PDDL DMPR
019136,000426: 35,2514 00015 12D
019137,000427: 35,2515 02621 WPLATO
019138,000428: 35,2516 77621 BDSU
019139,000429: 35,2517 54275 DMPR SRR
019140,000430: 35,2520 33333 GEORGEK
019141,000431: 35,2521 21616 13D
019142,000432: 35,2522 77615 DAD
019143,000433: 35,2523 02627 ANGZ
019144,000434: 35,2524 02627 STORE ANGZ
019145,000435: 35,2525 77404 BOVB EXIT
019146,000436: 35,2526 72750 SOMEERRR
019147,000437: 35,2527 11527 CCS LENGTHOT
019148,000438: 35,2530 02717 TC SLEEPIE
019149,000439: 35,2531 02664 TC SETUPER1
019150,000440:
019151,000441:
019152,000442: 35,2532 44743 ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
019153,000443: 35,2533 02667 DPIPAY +8D,1
019154,000444: 35,2534 02655 FILDELV +8D,1
019155,000445: 35,2535 42675 DMPR DAD*
019156,000446: 35,2536 33336 GEOCONS1
019157,000447: 35,2537 02655 FILDELV +8D,1
019158,000448: 35,2540 06655 STORE FILDELV +8D,1
019159,000449: 35,2541 77613 DAD*
019160,000450: 35,2542 02657 INTVEC +8D,1
019161,000451: 35,2543 06657 STORE INTVEC +8D,1
019162,000452: 35,2544 42675 DMPR DAD*
019163,000453: 35,2545 33340 GEOCONS2
019164,000454: 35,2546 02655 FILDELV +8D,1
019165,000455: 35,2547 41475 DMPR PUSH
019166,000456: 35,2550 33336 GEOCONS1
019167,000457: 35,2551 67300 TIX,1 SLOAD
019168,000458: 35,2552 72532 ALWAYSG
019169,000459: 35,2553 02747 ERECTIME
019170,000460: 35,2554 71254 BZE DLOAD
019171,000461: 35,2555 72566 COMPGS # COMPASS
019172,000462: 35,2556 02627 THETAN +2
019173,000463: 35,2557 45425 DSU STADR
![]() |
Page 460 |
019175,000465: 35,2560 61150 STODL THETAN +2
019176,000466: 35,2561 77621 BDSU
019177,000467: 35,2562 02631 THETAN +4
019178,000468: 35,2563 02631 STORE THETAN +4
019179,000469: 35,2564 77650 GOTO
019180,000470: 35,2565 72610 ADDINDRF
019181,000471: 35,2566 43345 COMPGS DLOAD DAD # COMPASS
019182,000472: 35,2567 02625 THETAN
019183,000473: 35,2570 02645 FILDELV
019184,000474: 35,2571 16625 STODL THETAN
019185,000475: 35,2572 02645 FILDELV
019186,000476: 35,2573 44275 DMPR BDSU
019187,000477: 35,2574 33342 GEOCONS3
019188,000478: 35,2575 02631 THETAN +4
019189,000479: 35,2576 16631 STODL THETAN +4
019190,000480: 35,2577 02651 FILDELV +4
019191,000481: 35,2600 44275 DMPR BDSU
019192,000482: 35,2601 33342 GEOCONS3
019193,000483: 35,2602 02627 THETAN +2
019194,000484: 35,2603 41325 PDDL DMP
019195,000485: 35,2604 02653 INTVEC +4
019196,000486: 35,2605 33344 GEOCONS4
019197,000487: 35,2606 45421 BDSU STADR
019198,000488: 35,2607 75150 STORE THETAN +2
019199,000489: 35,2610 77775 ADDINDRF VLOAD
019200,000490: 35,2611 02625 THETAN
019201,000491: 35,2612 03564 STORE COMPTORK # IN E7 FOR DOWNLINK.
019202,000492: 35,2613 77776 EXIT
019203,000493:
019204,000494: 35,2614 11527 ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
019205,000495: 35,2615 02717 TC SLEEPIE # NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
019206,000496: 35,2616 10356 CCS LGYRO # YES BUT ARE GYROS BUSY
019207,000497: 35,2617 12772 TCF ANNNNNN +2 # BUSY-GET THEM .5 SECONDS FROM NOW
019208,000498:
019209,000499:
019210,000500: 35,2620 03371 TC CHKCOMED # SEE IF LAST TIME FOR COMPASS
019211,000501:
019212,000502: 35,2621 06112 LASTGTS TC INTPRET
019213,000503: 35,2622 77775 VLOAD
019214,000504: 35,2623 02772 ERCOMP
019215,000505: 35,2624 16617 STODL THETAX
019216,000506: 35,2625 02565 TMARK
019217,000507: 35,2626 02603 STORE ALK
019218,000508: 35,2627 77776 EXIT # PREVIOUS SECTION WAS FOR RESTARTS
019219,000509:
019220,000510: 35,2630 04161 RESTAIER TC PHASCHNG
019221,000511:
019222,000512: 35,2631 00255 OCT 00255
019223,000513: 35,2632 06112 TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
![]() |
Page 461 |
019225,000515: 35,2633 64375 VLOAD MXV
019226,000516: 35,2634 02625 THETAN
019227,000517: 35,2635 02750 GEOMTRX
019228,000518: 35,2636 53372 VSL1 VAD
019229,000519: 35,2637 02617 THETAX
019230,000520: 35,2640 16772 STODL ERCOMP
019231,000521: 35,2641 02603 ALK
019232,000522: 35,2642 02565 STORE TMARK
019233,000523: 35,2643 77776 EXIT
019234,000524: 35,2644 05206 TC BANKCALL
019235,000525: 35,2645 30424 CADR EARTHR # TORQUE IT ALL IN
019236,000526: 35,2646 31746 CA ERECTIME
019237,000527: 35,2647 55716 TS GEOSAVED
019238,000528: 35,2650 12757 RESTEST1 TCF NOCHORLD
019239,000529:
019240,000530: 35,2651 00004 REDO3.27 INHINT # PRELAUNCH DONE
019241,000531: 35,2652 04133 TC CHECKMM
019242,000532: 35,2653 00011 OCT 11 # SEE IF LIFTOFF IS DISPLAYED
019243,000533: 35,2654 02656 TC +2 # NO , DISPLAY MM 7.
019244,000534: 35,2655 15567 TCF ENDOFJOB # LIFTOFF DISPLAYED - IGNORE MM 7.
019245,000535:
019246,000536: 35,2656 04117 TC NEWMODEX # PRELAUNCH DONE
019247,000537: 35,2657 00007 OCT 7 # DISPLAY MAJOR MODE 7
019248,000538: 35,2660 37767 CAF ZERO
019249,000539: 35,2661 04246 TC NEWPHASE # TURN OFF FINAL PRELAUNCH PROTECTION.
019250,000540: 35,2662 00003 OCT 00003
019251,000541:
019252,000542: 35,2663 15567 TCF ENDOFJOB # TERMINATE PRELAUNCH
019253,000543:
019254,000544:
019255,000545: 35,2664 06112 SETUPER1 TC INTPRET
019256,000546: 35,2665 65345 DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY
019257,000547: 35,2666 02627 ANGZ
019258,000548: 35,2667 02633 ANGY
019259,000549: 35,2670 55525 PDDL VDEF
019260,000550: 35,2671 02635 ANGX
019261,000551: 35,2672 74276 VCOMP VXSC
019262,000552: 35,2673 33331 GEORGEJ
019263,000553: 35,2674 74521 MXV VSR1
019264,000554: 35,2675 02750 GEOMTRX
019265,000555: 35,2676 02501 STORE OGC
019266,000556: 35,2677 77776 EXIT
019267,000557:
019268,000558:
019269,000559: 35,2700 04161 TORQINCH TC PHASCHNG
019270,000560: 35,2701 00175 OCT 00175
![]() |
Page 462 |
019272,000562: 35,2702 33317 CA AINGYRO
019273,000563: 35,2703 05206 TC BANKCALL
019274,000564: 35,2704 26362 CADR IMUPULSE
019275,000565: 35,2705 05206 TC BANKCALL
019276,000566: 35,2706 26751 CADR IMUSTALL
019277,000567: 35,2707 02753 TC SOMERR2 # BAD GYRO TORQUE-END OF TEST
019278,000568:
![]() |
Page 463 |
019280,000570: 35,2710 11574 GEOSTRT4 CCS TORQNDX # ONLY POSITIVE IF IN VERTICAL DRIFT TEST
019281,000571: 35,2711 02715 TC GEOBAVR # VERT DRIFT TEST OVER
019282,000572: 35,2712 02773 TC SETUPER # SET UP ERATE FOR PIPTEST OR COMPASS
019283,000573: 35,2713 05206 TC BANKCALL # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
019284,000574: 35,2714 50102 CADR TORQUE
019285,000575:
019286,000576: 35,2715 05206 GEOBAVR TC BANKCALL
019287,000577: 35,2716 50230 CADR VALMIS # DISPLAY VERTICAL DRIFT
019288,000578:
019289,000579:
![]() |
Page 464 |
019291,000581: # SET UP WAITLIST SECTION
019292,000582: 35,2717 55527 SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT
019293,000583: 35,2720 04161 TC PHASCHNG # CHANGE PHASE
019294,000584: 35,2721 00135 OCT 00135
019295,000585: 35,2722 11574 CCS TORQNDX # ARE WE DOING VERTDRIFT
019296,000586: 35,2723 02725 TC EARTTPRQ # YES,DO HOR ERATE TORQ THEN SLEEP
019297,000587: 35,2724 02727 TC WTLISTNT # GO TO SET UP NEXT WAITLIST
019298,000588: 35,2725 05206 EARTTPRQ TC BANKCALL # IN VERTDRIFT,ADD HOR ERATE AND SLEEP
019299,000589: 35,2726 30424 CADR EARTHR
019300,000590: 35,2727 03371 WTLISTNT TC CHKCOMED # SEE IF GYROCOMPASS OVER
019301,000591:
019302,000592: 35,2730 00004 INHINT
019303,000593: 35,2731 40025 CS TIME1
019304,000594: 35,2732 61745 AD GTSWTLST
019305,000595: 35,2733 00006 EXTEND
019306,000596: 35,2734 62736 BZMF +2
019307,000597: 35,2735 67745 AD NEGMAX
019308,000598: 35,2736 61744 AD 1SECXT # 1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
019309,000599: 35,2737 00006 EXTEND
019310,000600: 35,2740 62746 BZMF RIGHTGTS
019311,000601: 35,2741 05663 WTGTSMPL TC WAITLIST
019312,000602: 35,2742 E5,1400 EBANK= XSM
019313,000603: 35,2742 02062 72065 2CADR ALLOOP
019314,000604:
019315,000605: 35,2744 00003 RELINT
019316,000606: 35,2745 05567 TC ENDOFJOB
019317,000607: 35,2746 37762 RIGHTGTS CAF TWO
019318,000608: 35,2747 02741 TC WTGTSMPL
019319,000609:
019320,000610:
019321,000611: 35,2750 04755 SOMEERRR TC ALARM
019322,000612: 35,2751 01600 OCT 1600
019323,000613: 35,2752 02755 TC +3
019324,000614: 35,2753 04755 SOMERR2 TC ALARM
019325,000615: 35,2754 01601 OCT 1601
019326,000616: 35,2755 05206 TC BANKCALL
019327,000617: 35,2756 30770 CADR ENDTEST
019328,000618:
![]() |
Page 465 |
019330,000620: 35,2757 04161 NOCHORLD TC PHASCHNG
019331,000621: 35,2760 00155 OCT 00155
019332,000622:
019333,000623: 35,2761 06112 TC INTPRET
019334,000624: 35,2762 77775 VLOAD
019335,000625: 35,2763 33300 SCHZEROS
019336,000626: 35,2764 02625 STORE THETAN
019337,000627: 35,2765 77776 EXIT
019338,000628: 35,2766 11716 CCS GEOSAVED
019339,000629: 35,2767 55746 TS ERECTIME # COUNTS DOWN FOR ERECTION
019340,000630:
019341,000631: 35,2770 34530 ANNNNNN CAF NINE
019342,000632: 35,2771 55527 TS LENGTHOT
019343,000633: 35,2772 02720 TC SLEEPIE +1
019344,000634:
019345,000635: 35,2773 00006 SETUPER EXTEND # SUBROUTINE CALLED IN 3 PLACES
019346,000636: 35,2774 23547 QXCH QPLACES
019347,000637: 35,2775 06112 TC INTPRET
019348,000638: 35,2776 77624 CALL
019349,000639: 35,2777 30407 ERTHRVSE
019350,000640: 35,3000 77776 EXIT
019351,000641: 35,3001 05206 TC BANKCALL
019352,000642: 35,3002 30752 CADR OGCZERO
019353,000643: 35,3003 01547 TC QPLACES
019354,000644:
![]() |
Page 466 |
019356,000646: 35,3004 5352 GEOBND = EBANK3
019357,000647: 35,3004 5661 GEOBND1 = EBANK5
019358,000648: 35,3004 35352 STOREDTA CAF GEOBND
019359,000649: 35,3005 54001 TS L
019360,000650: 35,3006 33315 CAF 77DECML
019361,000651: 35,3007 54144 TS MPAC
019362,000652: 35,3010 50144 INDEX MPAC
019363,000653: 35,3011 31600 CA ALX1S
019364,000654: 35,3012 22003 LXCH EBANK
019365,000655: 35,3013 0001600 EBANK= RESTRTCS
019366,000656: 35,3013 50144 INDEX MPAC
019367,000657: 35,3014 55600 TS RESTRTCS
019368,000658: 35,3015 22003 LXCH EBANK
019369,000659: 35,3016 E5,1400 EBANK= XSM
019370,000660: 35,3016 10144 CCS MPAC
019371,000661: 35,3017 13021 TCF +2
019372,000662: 35,3020 00002 TC Q
019373,000663: 35,3021 54144 TS MPAC
019374,000664: 35,3022 35352 CAF GEOBND
019375,000665: 35,3023 54001 TS L
019376,000666: 35,3024 13010 TCF STOREDTA +4
019377,000667:
019378,000668:
019379,000669: 35,3025 33315 LOADSTDT CAF 77DECML
019380,000670: 35,3026 54144 TS MPAC
019381,000671: 35,3027 35352 CA GEOBND
019382,000672: 35,3030 56003 XCH EBANK
019383,000673: 35,3031 54001 TS L
019384,000674: 35,3032 0001600 EBANK= RESTRTCS
019385,000675: 35,3032 50144 INDEX MPAC
019386,000676: 35,3033 31600 CA RESTRTCS
019387,000677: 35,3034 22003 LXCH EBANK
019388,000678: 35,3035 E5,1400 EBANK= XSM
019389,000679: 35,3035 50144 INDEX MPAC
019390,000680: 35,3036 55600 TS ALX1S
019391,000681: 35,3037 10144 CCS MPAC
019392,000682: 35,3040 13042 TCF +2
019393,000683: 35,3041 00002 TC Q
019394,000684: 35,3042 54144 TS MPAC
019395,000685: 35,3043 13027 TCF LOADSTDT +2
019396,000686:
![]() |
Page 467 |
019398,000688: 35,3044 00006 LOADXSM EXTEND
019399,000689: 35,3045 23547 QXCH QPLACES
019400,000690: 35,3046 33346 CAF 17DECML
019401,000691: 35,3047 54144 TS MPAC
019402,000692: 35,3050 50000 INDEX A
019403,000693: 35,3051 31720 CA PRELMTRX
019404,000694: 35,3052 50144 INDEX MPAC
019405,000695: 35,3053 55400 TS XSM
019406,000696: 35,3054 10144 CCS MPAC
019407,000697: 35,3055 13047 TCF LOADXSM +3
019408,000698: 35,3056 01547 TC QPLACES
019409,000699: 35,3057 77743 ALFDK DEC -28 B-14 # SLOPES AND TIME CONSTANTS FOR FIRST 30SC
019410,000700: 35,3060 77776 DEC -1 B-14
019411,000701: 35,3061 35143 10237 2DEC .91230833 # TIME CONSTANTS-PIPA OUTPUTS
019412,000702:
019413,000703: 35,3063 31766 26106 2DEC .81193187 # TIME CONSTANT-ERECTION ANGLES
019414,000704:
019415,000705: 35,3065 77772 43677 2DEC -.00035882 # SLOPE-AZIMUTH ANGLE
019416,000706:
019417,000707: 35,3067 77777 77661 2DEC -.00000029 # SLOPE-VERTICAL DRIFT
019418,000708:
019419,000709: 35,3071 00002 05420 2DEC .00013262 # SLOPE-NORTH SOUTH DRIFT
019420,000710:
019421,000711:
019422,000712: 35,3073 77705 DEC -58 B-14 # 31-90 SEC
019423,000713: 35,3074 77776 DEC -1 B-14
019424,000714: 35,3075 37560 05346 2DEC .99122133
019425,000715:
019426,000716: 35,3077 37522 15525 2DEC .98940595
019427,000717:
019428,000718: 35,3101 77763 41604 2DEC -.00079010
019429,000719:
019430,000720: 35,3103 77777 76470 2DEC -.00000265
019431,000721:
019432,000722: 35,3105 00007 02201 2DEC .00043154
019433,000723:
019434,000724:
019435,000725: 35,3107 77767 DEC -8 B-14 # 91-100 SEC
019436,000726: 35,3110 77776 DEC -1 B-14
019437,000727: 35,3111 37773 10042 2DEC .99971021
019438,000728:
019439,000729: 35,3113 37747 30232 2DEC .99852047
019440,000730:
019441,000731: 35,3115 00006 37666 2DEC .00042697
019442,000732:
019443,000733: 35,3117 77777 76703 2DEC -.00000213
019444,000734:
019445,000735: 35,3121 00001 36147 2DEC .00011864
019446,000736:
![]() |
Page 468 |
019448,000738: 35,3123 77635 DEC -98 B-14 # 101-200 SEC
019449,000739: 35,3124 77776 DEC -1 B-14
019450,000740: 35,3125 37666 11022 2DEC .99550063
019451,000741:
019452,000742: 35,3127 37532 33647 2DEC .98992124
019453,000743:
019454,000744: 35,3131 00007 03641 2DEC .00043452
019455,000745:
019456,000746: 35,3133 77777 75713 2DEC -.00000401
019457,000747:
019458,000748: 35,3135 77774 54605 2DEC -.00021980
019459,000749:
019460,000750:
019461,000751: 35,3137 77407 DEC -248 B-14 # 201-450 SEC
019462,000752: 35,3140 77776 DEC -1 B-14
019463,000753: 35,3141 37712 16755 2DEC .99673264
019464,000754:
019465,000755: 35,3143 37630 01160 2DEC .99365467
019466,000756:
019467,000757: 35,3145 00000 23600 2DEC .00003767
019468,000758:
019469,000759: 35,3147 77777 63663 2DEC -.00002317
019470,000760:
019471,000761: 35,3151 77777 56527 2DEC -.00003305
019472,000762:
019473,000763:
019474,000764: 35,3153 77255 DEC -338 B-14 # 451-790 SEC
019475,000765: 35,3154 77776 DEC -1 B-14
019476,000766: 35,3155 37763 23341 2DEC .99924362
019477,000767:
019478,000768: 35,3157 37755 26170 2DEC .99888274
019479,000769:
019480,000770: 35,3161 00000 00254 2DEC .00000064
019481,000771:
019482,000772: 35,3163 77777 52755 2DEC -.00004012
019483,000773:
019484,000774: 35,3165 77777 76764 2DEC -.00000195
019485,000775:
019486,000776:
019487,000777: 35,3167 77147 DEC -408 B-14 # 791-1200 SEC
019488,000778: 35,3170 77776 DEC -1 B-14
019489,000779: 35,3171 37772 02343 2DEC .99963845
019490,000780:
019491,000781: 35,3173 37761 30560 2DEC .99913162
019492,000782:
019493,000783: 35,3175 00000 00362 2DEC .00000090
019494,000784:
![]() |
Page 469 |
019496,000786: 35,3177 00000 17261 2DEC .00002927
019497,000787:
019498,000788: 35,3201 77777 77671 2DEC -.00000026
019499,000789:
019500,000790:
019501,000791: 35,3203 77015 DEC -498 B-14 # 1201-1700 SEC
019502,000792: 35,3204 77776 DEC -1 B-14
019503,000793: 35,3205 37765 12403 2DEC .99934865
019504,000794:
019505,000795: 35,3207 37752 20062 2DEC .99868793
019506,000796:
019507,000797: 35,3211 00000 00224 2DEC .00000055
019508,000798:
019509,000799: 35,3213 00000 06150 2DEC .00001183
019510,000800:
019511,000801: 35,3215 77777 77762 2DEC -.00000005
019512,000802:
019513,000803:
019514,000804: 35,3217 77161 DEC -398 B-14 # 1701-2100 SEC
019515,000805: 35,3220 77776 DEC -1 B-14
019516,000806: 35,3221 37767 12513 2DEC .99947099
019517,000807:
019518,000808: 35,3223 37756 30343 2DEC .99894799
019519,000809:
019520,000810: 35,3225 00000 00060 2DEC .00000018
019521,000811:
019522,000812: 35,3227 00000 01445 2DEC .00000300
019523,000813:
019524,000814: 35,3231 77777 77774 2DEC -.00000001
019525,000815:
019526,000816:
019527,000817: 35,3233 76651 DEC -598 B-14 # 2101-2700 SEC
019528,000818: 35,3234 77776 DEC -1 B-14
019529,000819: 35,3235 37771 02603 2DEC .99957801
019530,000820:
019531,000821: 35,3237 37762 10061 2DEC .99916095
019532,000822:
019533,000823: 35,3241 00000 00023 2DEC .00000007
019534,000824:
019535,000825: 35,3243 00000 00402 2DEC .00000096
019536,000826:
019537,000827: 35,3245 00000 00000 2DEC .00000000
019538,000828:
019539,000829:
019540,000830: 35,3247 76505 DEC -698 B-14 # 2700-3400 SEC
019541,000831: 35,3250 77776 DEC -1 B-14
![]() |
Page 470 |
019543,000833: 35,3251 37772 22005 2DEC .99966814
019544,000834:
019545,000835: 35,3253 37765 05560 2DEC .99933952
019546,000836:
019547,000837: 35,3255 00000 00005 2DEC .00000002
019548,000838:
019549,000839: 35,3257 00000 00113 2DEC .00000028
019550,000840:
019551,000841: 35,3261 00000 00000 2DEC .00000000
019552,000842:
019553,000843:
019554,000844: 35,3263 76651 DEC -598 B-14 # 3401-4000 SEC
019555,000845: 35,3264 77776 DEC -1 B-14
019556,000846: 35,3265 37773 20750 2DEC .99972716
019557,000847:
019558,000848: 35,3267 37767 03044 2DEC .99945654
019559,000849:
019560,000850: 35,3271 00000 00003 2DEC .00000001
019561,000851:
019562,000852: 35,3273 00000 00033 2DEC .00000010
019563,000853:
019564,000854: 35,3275 00000 00000 2DEC .00000000
019565,000855:
019566,000856:
019567,000857: 35,3277 00000 00000 SCHZEROS 2DEC .00000000
019568,000858:
019569,000859: 35,3301 00000 00000 2DEC .00000000
019570,000860:
019571,000861: 35,3303 00000 00000 2DEC .00000000
019572,000862:
019573,000863: 35,3305 00004 INTVAL OCT 4
019574,000864: 35,3306 00002 OCT 2
019575,000865: 35,3307 00220 DEC 144 B-14
019576,000866: 35,3310 77776 DEC -1 B-14
019577,000867: 35,3311 35730 00035 SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
019578,000868:
019579,000869: 35,3313 10317 17550 2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
019580,000870:
019581,000871:
019582,000872: 35,3315 00115 77DECML DEC 77 B-14
019583,000873: 35,3316 01577 ALXXXZ GENADR ALX1S -1
019584,000874: 35,3317 02500 AINGYRO ECADR OGC
019585,000875: 35,3320 04133 02265 PIPASC 2DEC .13055869
019586,000876:
019587,000877: 35,3322 57223 66451 VELSC 2DEC -.52223476 # 512/980.402
019588,000878:
019589,000879: 35,3324 05427 12577 ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
019590,000880:
![]() |
Page 471 |
019592,000882: 35,3326 77567 44202 2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
019593,000883:
019594,000884:
019595,000885: 35,3330 24276 14066 GEORGEJ 2DEC .63661977
019596,000886:
019597,000887: 35,3332 23073 11773 GEORGEK 2DEC .59737013
019598,000888:
019599,000889: 35,3334 00023 SCHOCT23 OCT 00023
019600,000890: 35,3335 03146 14632 GEOCONS1 2DEC .1
019601,000891:
019602,000892: 35,3337 00121 35341 GEOCONS2 2DEC .005
019603,000893:
019604,000894: 35,3341 00631 23146 GEOCONS3 2DEC .025
019605,000895:
019606,000896: 35,3343 00000 17565 GEOCONS4 2DEC .00003
019607,000897:
019608,000898: 35,3345 06200 1/PIPAGT OCT 06200
019609,000899: 35,3346 00021 17DECML DEC 17 B-14
019610,000900: 35,3347 00023 19DECML DEC 19 B-14
019611,000901: 35,3350 00062 1/2SECX DEC 50 B-14
019612,000902:
019613,000903:
019614,000904: 35,3351 37763 GTSCPSS CA ONE
019615,000905: 35,3352 55742 TS GEOCOMPS # THIS IS THE LEAD IN FOR COMPASS
019616,000906: 35,3353 04117 TC NEWMODEX
019617,000907: 35,3354 00001 OCT 01
019618,000908: 35,3355 33345 CA 1/PIPAGT
019619,000909: 35,3356 54765 TS 1/PIPADT
019620,000910: 35,3357 37764 CA ELEVEN # COMPASS IS POSITION 11
019621,000911: 35,3360 55544 TS POSITON
019622,000912: 35,3361 37754 CA BIT8 # 620 SECONDS ERECTING
019623,000913: 35,3362 55527 TS LENGTHOT
019624,000914: 35,3363 33350 CAF 1/2SECX # COMPASS IS A .5 SEC LOOP
019625,000915: 35,3364 55744 TS 1SECXT
019626,000916: 35,3365 37767 CAF ZERO
019627,000917: 35,3366 55536 TS NBPOS
019628,000918: 35,3367 05206 TC BANKCALL
019629,000919: 35,3370 50014 CADR GEOIMUTT
019630,000920:
019631,000921:
019632,000922: 35,3371 30075 CHKCOMED CA FLAGWRD1 # CHECK FOR END OF COMPASS
019633,000923: 35,3372 77762 MASK BIT2 # TEST FOR GRR FLAG
019634,000924: 35,3373 10000 CCS A
019635,000925: 35,3374 13376 TCF PRELTERM # YES GRR HAS OCCURRED
019636,000926: 35,3375 00002 TC Q # NO CONTINUE
019637,000927:
![]() |
Page 472 |
019639,000929: 35,3376 04117 PRELTERM TC NEWMODEX
019640,000930: 35,3377 00004 OCT 04 # 04 IS END OF COMPASS
019641,000931: 35,3400 12621 TCF LASTGTS # GET LAST TORQUING
019642,000932:
019643,000933:
019644,000934: 35,3401 77214 GRRNOW SET VLOAD # COME HERE WHEN DELV CHECK SHOWS LIFTOFF
019645,000935: 35,3402 00475 GRRFLAG # TO HAVE OCCURRED.
019646,000936: 35,3403 00404 DELV
019647,000937: 35,3404 01765 STORE DELVBUF
019648,000938: 35,3405 77531 SSP EXIT
019649,000939: 35,3406 01743 DT-LIFT # START LIFTOFF 100 MS AFTER MP2TASK
019650,000940: 35,3407 00012 10D
019651,000941:
019652,000942: 35,3410 00004 INHINT
019653,000943: 35,3411 35205 CAF 1SEC+1 # DELAY TILL PRELAUNCH IF FINISHED, BUT
019654,000944: 35,3412 05663 TC WAITLIST # NOT SO LONG THAT READACCS HAPPENS FIRST.
019655,000945: 35,3413 E5,1745 EBANK= GTSWTLST
019656,000946: 35,3413 02446 56065 2CADR LIFTFIXT
019657,000947:
019658,000948: 35,3415 00003 RELINT
019659,000949: 35,3416 13376 TCF PRELTERM
019660,000950:
End of include-file OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc. Parent file is MAIN.agc