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