Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
018553,000002: ## Copyright: Public domain.
018554,000003: ## Filename: OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
018555,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
018556,000005: ## It is part of an early development version of the software
018557,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
018558,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
018559,000008: ## upon which Don Eyles's offline development program Shepatin
018560,000009: ## was based; the listing herein transcribed was actually for
018561,000010: ## the equivalent revision 0 of Shepatin.
018562,000011: ## This file is intended to be a faithful transcription, except
018563,000012: ## that the code format has been changed to conform to the
018564,000013: ## requirements of the yaYUL assembler rather than the
018565,000014: ## original YUL assembler.
018566,000015: ## Reference: pp. 430-452
018567,000016: ## Assembler: yaYUL
018568,000017: ## Contact: Ron Burkey <info@sandroid.org>.
018569,000018: ## Website: www.ibiblio.org/apollo/index.html
018570,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
018571,000020: ## 2017-06-03 HG Transcribed
018572,000021: ## 2017-06-15 HG Fix operator CS -> CAF
018573,000022: ## XCH -> TS
018574,000023: ## 2017-06-22 RSB Proofed comment text with
018575,000024: ## octopus/ProoferComments.
018576,000025:
![]() |
Page 430 |
018578,000027: # PROGRAM NAME-OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
018579,000028: # DATE- NOVEMBER 2 1966
018580,000029: # BY- GEORGE SCHMIDT IL 7-146 EXT. 126
018581,000030: # MOD NO 1
018582,000031: # FUNCTIONAL DESCRIPTION
018583,000032:
018584,000033: # THIS LOG SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS
018585,000034: # INTEGRATED TOGETHER TO SAVE WORDS. IT IS COMPLETELY RESTART PROOFED.
018586,000035: # THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
018587,000036: # EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
018588,000037: # HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
018589,000038: # OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973.BOTH OF THESE
018590,000039: # ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
018591,000040: # PROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S. THE INITIALIZATION METHOD
018592,000041:
018593,000042: # FOR GYROCOMPASS IS IN A SOON TO COME SYSTEM TEST GROUP MEMO.
018594,000043: # THIS LOG SECTION ALWAYS STARTS BY A CADR IN IMU PERF. TESTS 2 AND BEGINS
018595,000044: # AT ESTIMS. THE PIPS ARE READ EVERY .5 SEC IN COMPASS AND 1 SEC IN DRIFT
018596,000045: # TESTS. THEN IN BOTH CASES RELEVANT COMPUTATION IS DONE. THE KEY ERASABLE
018597,000046: # IS GEOCOMPS- 0 WE ARE IN A DRIFT TEST -NONZERO WE ARE IN COMPASS.
018598,000047: # THE GYROCOMPASS HAS THE CAPABILITY TO ALIGN TO ANY ORIENTATION,HAS THE
018599,000048: # CAPABILITY TO CHANGE ORIENTATIONS WHILE RUNNING,IS COMPENSATED FOR
018600,000049: # COMPONENT ERRORS,IS CAPABLE OF OPTICAL VERIFICATION( CSM ONLY).
018601,000050:
018602,000051: # SUBROUTINES CALLED
018603,000052:
018604,000053: # EARTHR, CALGTA, OGC ZERO,ERTHRVSE,GCOMPZERO AND
018605,000054: # IMU COMPENSATION
018606,000055: # DURING OPTICAL VERIFICATION (CSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN
018607,000056: # IS CALLED IN ONE WAY OR ANOTHER. SEE THE LISTING.
018608,000057:
018609,000058: # NORMAL EXIT
018610,000059:
018611,000060: # DRIFT TESTS- LENGTHOT GOES TO ZERO-RETURN TO IMU PERF TEST2 CONTROL
018612,000061: # GYROCOMPASS-RECEIVE GUIDANCE REFERENCE RELEASE SIGNAL-TC MP2JOB
018613,000062: # 206 IMPLEMENTATION
018614,000063:
018615,000064: # ALARMS
018616,000065:
018617,000066: # 1600 OVERFLOW IN DRIFT TEST
018618,000067: # 1601 BAD IMU TORQUE ABORT
018619,000068: # 1602 BAD OPTICS DURING VERIFICATION-RETURN TO COMPASS CSM ONLY
018620,000069:
018621,000070: # OUTPUT
018622,000071:
018623,000072: # DRIFT TESTS- FLASHING DISPLAYS OF RESULTS-CONTROLLED IN IMU PERF TESTS 2
018624,000073: # COMPASS-PROGRAM MODE LIGHTS TELL YOU WHAT PHASE OF PROGRAM YOU ARE IN
018625,000074: # 01 INITIALIZING THE PLATFORM POSITION AND ERASABLE
018626,000075: # 05 ERECTION 600 SECOND SPENT ERECTING PLATFORM
018627,000076: # 02 GYROCOMPASSING
018628,000077: # 03 DOING OPTICAL VERIFICATION (CSM)
018629,000078:
![]() |
Page 431 |
018631,000080: # 04 GRR SIGNAL RECEIVED FINISH UP TORQUE AND TC MP2JOB
018632,000081: # 206 IMPLEMENTATION
018633,000082:
018634,000083: # DEBRIS
018635,000084:
018636,000085: # ALL CENTRALS -ALL OF EBANK 5 EBANK4 FROM JETSTEP TO JETSTEP +77D
018637,000086:
![]() |
Page 432 |
018639,000088: 35,2014 BANK 35
018640,000089: 35,2014 E5,1400 EBANK= XSM
018641,000090:
018642,000091:
018643,000092:
018644,000093: # G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
018645,000094: # PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
018646,000095: 35,2014 04147 ESTIMS TC PHASCHNG
018647,000096: 35,2015 00075 OCT 00075
018648,000097: 35,2016 00004 RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
018649,000098: 35,2017 30025 CA TIME1
018650,000099: 35,2020 55745 TS GTSWTLST
018651,000100: 35,2021 37761 CAF ZERO # ZERO THE PIPAS
018652,000101: 35,2022 54037 TS PIPAX
018653,000102: 35,2023 54040 TS PIPAY
018654,000103: 35,2024 54041 TS PIPAZ
018655,000104: 35,2025 54404 TS DELVX +1
018656,000105: 35,2026 54406 TS DELVY +1
018657,000106: 35,2027 54410 TS DELVZ +1
018658,000107: 35,2030 00003 RELINT
018659,000108: 35,2031 03027 TC SETUPER
018660,000109: 35,2032 33351 CA 77DECML
018661,000110: 35,2033 55777 TS ZERONDX
018662,000111: 35,2034 33352 CA ALXXXZ
018663,000112: 35,2035 05224 TC BANKCALL
018664,000113: 35,2036 51240 CADR ZEROING
018665,000114:
018666,000115: 35,2037 06103 TC INTPRET
018667,000116: 35,2040 77775 VLOAD
018668,000117: 35,2041 33344 INTVAL +2
018669,000118: 35,2042 02601 STORE ALX1S
018670,000119: 35,2043 77776 EXIT
018671,000120:
018672,000121: 35,2044 11742 CCS GEOCOMPS # GEOCOMPS IN NON ZERO IF COMPASS
018673,000122: 35,2045 02047 TC +2
018674,000123: 35,2046 02742 TC SLEEPIE +1
018675,000124: 35,2047 31527 CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
018676,000125: 35,2050 55746 TS ERECTIME
018677,000126:
018678,000127: 35,2051 37755 CA ONE
018679,000128: 35,2052 54765 TS PHASENUM
018680,000129: 35,2053 04105 TC NEWMODEX
018681,000130: 35,2054 00005 OCT 05
018682,000131: 35,2055 05224 TC BANKCALL
018683,000132: 35,2056 25602 CADR GCOMPZER # ZERO COMPENSATION PROGRAM REGISTERS
018684,000133: 35,2057 03014 TC ANNNNNN
018685,000134:
![]() |
Page 433 |
018687,000136: 35,2060 00004 ALLOOP INHINT # TASK EVERY .5 OR 1 SEC (COMPASS-DRIFT)
018688,000137: 35,2061 30025 CA TIME1
018689,000138: 35,2062 55745 TS GTSWTLST # STORE TIME TO SET UP NEXT WAITLIST
018690,000139: 35,2063 31664 ALLOOP3 CA ALTIM
018691,000140: 35,2064 55716 TS GEOSAVED
018692,000141: 35,2065 04147 TC PHASCHNG
018693,000142: 35,2066 00115 OCT 00115
018694,000143: 35,2067 02071 TC +2
018695,000144:
018696,000145: 35,2070 00004 ALLOOP1 INHINT # RESTARTS COME IN HERE
018697,000146: 35,2071 31716 CA GEOSAVED
018698,000147: 35,2072 55664 TS ALTIM
018699,000148: 35,2073 10000 CCS A
018700,000149: 35,2074 30000 CA A # SHOULD NEVER HIT THIS LOCATION
018701,000150: 35,2075 55665 TS ALTIMS
018702,000151: 35,2076 40000 CS A
018703,000152: 35,2077 55664 TS ALTIM
018704,000153: 35,2100 30037 CA PIPAX
018705,000154: 35,2101 54403 TS DELVX
018706,000155: 35,2102 30040 CA PIPAY
018707,000156: 35,2103 54405 TS DELVY
018708,000157: 35,2104 30041 CA PIPAZ
018709,000158: 35,2105 54407 TS DELVZ
018710,000159: 35,2106 33370 CA OCT31
018711,000160: 35,2107 04234 TC NEWPHASE
018712,000161: 35,2110 00005 OCT 00005
018713,000162: 35,2111 00003 PIPSTRTS RELINT
018714,000163: 35,2112 37761 CAF ZERO
018715,000164: 35,2113 54037 TS PIPAX
018716,000165: 35,2114 54040 TS PIPAY
018717,000166: 35,2115 54041 TS PIPAZ
018718,000167: 35,2116 04147 TC PHASCHNG
018719,000168:
018720,000169: 35,2117 00235 OCT 00235
018721,000170: 35,2120 00003 RELINT
018722,000171: 35,2121 37740 SPECSTS CAF PRIO20
018723,000172: 35,2122 05534 TC FINDVAC
018724,000173: 35,2123 E5,1400 EBANK= XSM
018725,000174: 35,2123 02126 72065 2CADR ALFLT # START THE JOB
018726,000175:
018727,000176: 35,2125 05745 TC TASKOVER
018728,000177:
![]() |
Page 434 |
018730,000179: 35,2126 03040 ALFLT TC STOREDTA # STORE DATA IN CASE OF RESTART IN JOB
018731,000180: 35,2127 04147 TC PHASCHNG # THIS IS THE JOB DONE EVERY ITERATION
018732,000181: 35,2130 00215 OCT 00215
018733,000182: 35,2131 00003 RELINT # INHINT IN PHASCHNG
018734,000183: 35,2132 11742 CCS GEOCOMPS
018735,000184: 35,2133 02135 TC +2
018736,000185: 35,2134 02141 TC NORMLOP
018737,000186: 35,2135 05224 TC BANKCALL # COMPENSATION IF IN COMPASS
018738,000187: 35,2136 25220 CADR 1/PIPA
018739,000188: 35,2137 02141 TC NORMLOP
018740,000189:
018741,000190:
018742,000191:
018743,000192: 35,2140 03061 ALFLT1 TC LOADSTDT # COMES HERE ON RESTART
018744,000193:
018745,000194: 35,2141 03421 NORMLOP TC CHKCOMED # SEE IF GYROCOMPASS OVER
018746,000195:
018747,000196: 35,2142 06103 TC INTPRET
018748,000197: 35,2143 77745 DLOAD
018749,000198: 35,2144 33342 INTVAL
018750,000199: 35,2145 00051 STORE S1 # STEP REGISTERS MAY HAVE BEEN WIPED OUT
018751,000200: 35,2146 53135 SLOAD BZE
018752,000201: 35,2147 02743 GEOCOMPS
018753,000202: 35,2150 72153 ALCGKK
018754,000203: 35,2151 77650 GOTO
018755,000204: 35,2152 72170 ALFLT2
018756,000205: 35,2153 50135 ALCGKK SLOAD BMN
018757,000206: 35,2154 02666 ALTIMS
018758,000207: 35,2155 72170 ALFLT2
018759,000208: 35,2156 72174 ALKCG AXT,2 LXA,1 # LOADS SLOPES AND TIME CONSTANTS AT RQST
018760,000209: 35,2157 00014 12D
018761,000210: 35,2160 02600 ALX1S
018762,000211: 35,2161 62143 ALKCG2 DLOAD* INCR,1
018763,000212: 35,2162 33334 ALFDK +144D,1
018764,000213: 35,2163 77775 DEC -2 B-14
018765,000214: 35,2164 12701 STORE ALDK +10D,2
018766,000215: 35,2165 66104 TIX,2 SXA,1
018767,000216: 35,2166 72161 ALKCG2
018768,000217:
018769,000218: 35,2167 02600 ALX1S
018770,000219:
018771,000220: 35,2170 61375 ALFLT2 VLOAD VXM
018772,000221: 35,2171 00404 DELVX
018773,000222: 35,2172 02750 GEOMTRX
018774,000223: 35,2173 77772 VSL1
018775,000224: 35,2174 57545 DLOAD DCOMP
018776,000225: 35,2175 00150 MPAC +3
018777,000226: 35,2176 16657 STODL DPIPAY
018778,000227: 35,2177 00152 MPAC +5
018779,000228: 35,2200 02663 STORE DPIPAZ
018780,000229:
![]() |
Page 435 |
018782,000231:
018783,000232: 35,2201 76001 SETPD AXT,1 # MEASUREMENT INCORPORATION ROUTINES.
018784,000233: 35,2202 00001 0
018785,000234: 35,2203 00010 8D
018786,000235: 35,2204 53135 SLOAD BZE
018787,000236: 35,2205 02743 GEOCOMPS
018788,000237: 35,2206 72211 DELMLP
018789,000238: 35,2207 77650 GOTO
018790,000239: 35,2210 72517 ALWAYSG # DO A QUICK COMPASS
018791,000240: 35,2211 41343 DELMLP DLOAD* DMP
018792,000241: 35,2212 02667 DPIPAY +8D,1
018793,000242: 35,2213 33355 PIPASC
018794,000243: 35,2214 42661 SLR DAD*
018795,000244: 35,2215 21212 9D
018796,000245: 35,2216 02715 DELM +8D,1
018797,000246: 35,2217 64623 DSU* PDDL*
018798,000247: 35,2220 02635 INTY +8D,1
018799,000248: 35,2221 02655 VLAUN +8D,1
018800,000249: 35,2222 41223 DSU* DMP
018801,000250: 35,2223 02627 VLAUNS +8D,1
018802,000251:
018803,000252: 35,2224 33357 VELSC
018804,000253: 35,2225 77732 SL2R
018805,000254: 35,2226 45415 DAD STADR
018806,000255: 35,2227 71062 STORE DELM +8D,1
018807,000256: 35,2230 06717 STORE DELM +10D,1
018808,000257: 35,2231 77743 DLOAD*
018809,000258: 35,2232 02655 VLAUN +8D,1
018810,000259: 35,2233 06627 STORE VLAUNS +8D,1
018811,000260: 35,2234 77745 DLOAD
018812,000261: 35,2235 33340 INTVAL -2
018813,000262: 35,2236 06635 STORE INTY +8D,1
018814,000263: 35,2237 77100 TIX,1 AXT,2
018815,000264: 35,2240 72211 DELMLP
018816,000265: 35,2241 00004 4
018817,000266: 35,2242 56743 ALILP DLOAD* DMPR*
018818,000267: 35,2243 75170 ALK +4,2
018819,000268: 35,2244 75104 ALDK +4,2
018820,000269: 35,2245 12607 STORE ALK +4,2
018821,000270: 35,2246 77104 TIX,2 AXT,2
018822,000271: 35,2247 72242 ALILP
018823,000272: 35,2250 00010 8D
018824,000273: 35,2251 66140 ALKLP LXC,1 SXA,1
018825,000274: 35,2252 02601 CMPX1
018826,000275:
018827,000276: 35,2253 02601 CMPX1
018828,000277: 35,2254 56743 DLOAD* DMPR*
018829,000278: 35,2255 02604 ALK +1,1
018830,000279: 35,2256 75062 DELM +8D,2
018831,000280: 35,2257 77613 DAD*
018832,000281: 35,2260 75142 INTY +8D,2
018833,000282: 35,2261 12635 STORE INTY +8D,2
018834,000283: 35,2262 42743 DLOAD* DAD*
018835,000284:
![]() |
Page 436 |
018837,000286: 35,2263 75160 ALK +12D,2
018838,000287: 35,2264 75074 ALDK +12D,2
018839,000288:
018840,000289: 35,2265 12617 STORE ALK +12D,2
018841,000290: 35,2266 42673 DMPR* DAD*
018842,000291: 35,2267 75062 DELM +8D,2
018843,000292: 35,2270 75132 INTY +16D,2
018844,000293: 35,2271 12645 STORE INTY +16D,2
018845,000294: 35,2272 40743 DLOAD* DMP*
018846,000295: 35,2273 33362 ALSK +1,1
018847,000296: 35,2274 75062 DELM +8D,2
018848,000297: 35,2275 42772 SL1R DAD*
018849,000298: 35,2276 75122 VLAUN +8D,2
018850,000299: 35,2277 12655 STORE VLAUN +8D,2
018851,000300: 35,2300 76104 TIX,2 AXT,1
018852,000301: 35,2301 72251 ALKLP
018853,000302: 35,2302 00010 8D
018854,000303:
018855,000304:
018856,000305: 35,2303 64743 LOOSE DLOAD* PDDL*
018857,000306: 35,2304 02657 ACCWD +8D,1
018858,000307: 35,2305 02655 VLAUN +8D,1
018859,000308: 35,2306 55523 PDDL* VDEF
018860,000309: 35,2307 02665 POSNV +8D,1
018861,000310: 35,2310 76521 MXV VSL1
018862,000311:
018863,000312: 35,2311 02721 TRANSM1
018864,000313: 35,2312 77745 DLOAD
018865,000314: 35,2313 00145 MPAC
018866,000315: 35,2314 06665 STORE POSNV +8D,1
018867,000316: 35,2315 77745 DLOAD
018868,000317: 35,2316 00150 MPAC +3
018869,000318: 35,2317 06655 STORE VLAUN +8D,1
018870,000319: 35,2320 77745 DLOAD
018871,000320: 35,2321 00152 MPAC +5
018872,000321: 35,2322 06657 STORE ACCWD +8D,1
018873,000322: 35,2323 77700 TIX,1
018874,000323: 35,2324 72303 LOOSE
018875,000324:
018876,000325:
018877,000326:
018878,000327: 35,2325 76174 AXT,2 AXT,1 # EVALUATE SINES AND COSINES
018879,000328: 35,2326 00006 6
018880,000329: 35,2327 00002 2
018881,000330: 35,2330 57343 BOOP DLOAD* DMPR
018882,000331: 35,2331 02637 ANGX +2,1
018883,000332: 35,2332 33365 GEORGEJ
018884,000333: 35,2333 77722 SR2R
018885,000334: 35,2334 73406 PUSH SIN
018886,000335:
018887,000336: 35,2335 56172 SL1R XAD,1
018888,000337: 35,2336 00046 X1
018889,000338:
![]() |
Page 437 |
018891,000340: 35,2337 10021 STORE 16D,2
018892,000341: 35,2340 77745 DLOAD
018893,000342: 35,2341 77746 COS
018894,000343: 35,2342 10027 STORE 22D,2 # COSINES
018895,000344: 35,2343 71304 TIX,2 DLOAD
018896,000345: 35,2344 72330 BOOP
018897,000346:
018898,000347:
018899,000348:
018900,000349: 35,2345 00017 14D
018901,000350: 35,2346 43312 SL2 DAD
018902,000351: 35,2347 02625 INTY
018903,000352: 35,2350 16625 STODL INTY
018904,000353: 35,2351 00015 12D
018905,000354: 35,2352 56405 DMP SL3R
018906,000355: 35,2353 00025 20D
018907,000356: 35,2354 77615 DAD
018908,000357: 35,2355 02631 INTZ
018909,000358: 35,2356 16631 STODL INTZ
018910,000359: 35,2357 00021 16D
018911,000360: 35,2360 57275 DMPR DMPR
018912,000361: 35,2361 00023 18D
018913,000362: 35,2362 00017 14D
018914,000363: 35,2363 77712 SL2
018915,000364: 35,2364 57325 PDDL DMPR
018916,000365: 35,2365 00013 10D
018917,000366: 35,2366 00015 12D
018918,000367: 35,2367 77615 DAD
018919,000368: 35,2370 77675 DMPR
018920,000369: 35,2371 02573 WANGI
018921,000370: 35,2372 57325 PDDL DMPR
018922,000371: 35,2373 00023 18D
018923,000372:
018924,000373: 35,2374 00025 20D
018925,000374: 35,2375 66405 DMP SL2R
018926,000375: 35,2376 02571 WANGO
018927,000376: 35,2377 77621 BDSU
018928,000377: 35,2400 02637 DRIFTO
018929,000378: 35,2401 45425 DSU STADR
018930,000379: 35,2402 61156 STODL WPLATO
018931,000380: 35,2403 00021 16D
018932,000381: 35,2404 41275 DMPR DMP
018933,000382: 35,2405 00025 20D
018934,000383: 35,2406 02573 WANGI
018935,000384: 35,2407 77732 SL2R
018936,000385: 35,2410 57325 PDDL DMPR
018937,000386: 35,2411 02571 WANGO
018938,000387: 35,2412 00017 14D
018939,000388: 35,2413 77615 DAD
018940,000389: 35,2414 02641 DRIFTI
018941,000390: 35,2415 77625 DSU
018942,000391:
![]() |
Page 438 |
018944,000393: 35,2416 57325 PDDL DMPR
018945,000394: 35,2417 02575 WANGT
018946,000395: 35,2420 02573 WANGI
018947,000396: 35,2421 45415 DAD STADR
018948,000397: 35,2422 61062 STODL WPLATI
018949,000398: 35,2423 00023 18D
018950,000399: 35,2424 76405 DMP SL1R
018951,000400: 35,2425 00013 10D
018952,000401: 35,2426 57325 PDDL DMPR
018953,000402: 35,2427 00015 12D
018954,000403: 35,2430 00021 16D
018955,000404: 35,2431 76405 DMP SL1R
018956,000405: 35,2432 00017 14D
018957,000406: 35,2433 77621 BDSU
018958,000407:
018959,000408: 35,2434 77675 DMPR
018960,000409: 35,2435 02573 WANGI
018961,000410: 35,2436 57325 PDDL DMPR
018962,000411: 35,2437 00015 12D
018963,000412: 35,2440 00025 20D
018964,000413: 35,2441 76405 DMP SL1R
018965,000414: 35,2442 02571 WANGO
018966,000415: 35,2443 77621 BDSU
018967,000416: 35,2444 02577 DRIFTT
018968,000417: 35,2445 77615 DAD # WPLATT NOW IN MPAC
018969,000418: 35,2446 77606 PUSH # PUSH IT DOWN-X IT BY SANG +2
018970,000419: 35,2447 74475 DMPR SR1R
018971,000420: 35,2450 00015 12D
018972,000421: 35,2451 57325 PDDL DMPR
018973,000422: 35,2452 02621 WPLATO
018974,000423: 35,2453 00023 18D
018975,000424: 35,2454 77615 DAD
018976,000425: 35,2455 77671 DDV
018977,000426: 35,2456 00025 20D
018978,000427: 35,2457 57206 PUSH DMPR
018979,000428: 35,2460 33367 GEORGEK
018980,000429: 35,2461 43261 SRR DAD
018981,000430: 35,2462 21616 13D
018982,000431:
018983,000432: 35,2463 02635 ANGX
018984,000433: 35,2464 16635 STODL ANGX
018985,000434: 35,2465 43275 DMPR DAD
018986,000435: 35,2466 00017 14D
018987,000436: 35,2467 02715 WPLATI
018988,000437: 35,2470 54275 DMPR SRR
018989,000438: 35,2471 33367 GEORGEK
018990,000439: 35,2472 21616 13D
018991,000440: 35,2473 77615 DAD
018992,000441: 35,2474 02633 ANGY
018993,000442: 35,2475 16633 STODL ANGY
018994,000443: 35,2476 00023 18D
018995,000444: 35,2477 76405 DMP SL1R # MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
018996,000445:
![]() |
Page 439 |
018998,000447: 35,2500 57325 PDDL DMPR
018999,000448: 35,2501 00015 12D
019000,000449: 35,2502 02621 WPLATO
019001,000450: 35,2503 77621 BDSU
019002,000451: 35,2504 54275 DMPR SRR
019003,000452: 35,2505 33367 GEORGEK
019004,000453: 35,2506 21616 13D
019005,000454: 35,2507 77615 DAD
019006,000455: 35,2510 02627 ANGZ
019007,000456: 35,2511 02627 STORE ANGZ
019008,000457: 35,2512 77404 BOVB EXIT
019009,000458: 35,2513 72773 SOMEERRR
019010,000459: 35,2514 11527 CCS LENGTHOT
019011,000460: 35,2515 02741 TC SLEEPIE
019012,000461: 35,2516 02703 TC SETUPER1
019013,000462:
019014,000463:
019015,000464:
019016,000465: 35,2517 44743 ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
019017,000466:
019018,000467: 35,2520 02667 DPIPAY +8D,1
019019,000468: 35,2521 02655 FILDELV +8D,1
019020,000469: 35,2522 42675 DMPR DAD*
019021,000470: 35,2523 33372 GEOCONS1
019022,000471: 35,2524 02655 FILDELV +8D,1
019023,000472: 35,2525 06655 STORE FILDELV +8D,1
019024,000473: 35,2526 77613 DAD*
019025,000474: 35,2527 02657 INTVEC +8D,1
019026,000475: 35,2530 06657 STORE INTVEC +8D,1
019027,000476: 35,2531 42675 DMPR DAD*
019028,000477: 35,2532 33374 GEOCONS2
019029,000478: 35,2533 02655 FILDELV +8D,1
019030,000479: 35,2534 41475 DMPR PUSH
019031,000480: 35,2535 33372 GEOCONS1
019032,000481: 35,2536 67300 TIX,1 SLOAD
019033,000482: 35,2537 72517 ALWAYSG
019034,000483: 35,2540 02747 ERECTIME
019035,000484: 35,2541 71254 BZE DLOAD
019036,000485: 35,2542 72553 COMPGS # COMPASS
019037,000486: 35,2543 02627 THETAN +2
019038,000487: 35,2544 45425 DSU STADR
019039,000488: 35,2545 61150 STODL THETAN +2
019040,000489: 35,2546 77621 BDSU
019041,000490:
019042,000491: 35,2547 02631 THETAN +4
019043,000492: 35,2550 02631 STORE THETAN +4
019044,000493: 35,2551 77650 GOTO
019045,000494: 35,2552 72575 ADDINDRF
019046,000495: 35,2553 43345 COMPGS DLOAD DAD # COMPASS
019047,000496: 35,2554 02625 THETAN
019048,000497: 35,2555 02645 FILDELV
019049,000498: 35,2556 16625 STODL THETAN
019050,000499:
![]() |
Page 440 |
019052,000501: 35,2557 02645 FILDELV
019053,000502: 35,2560 44275 DMPR BDSU
019054,000503:
019055,000504: 35,2561 33376 GEOCONS3
019056,000505: 35,2562 02631 THETAN +4
019057,000506: 35,2563 16631 STODL THETAN +4
019058,000507: 35,2564 02651 FILDELV +4
019059,000508: 35,2565 44275 DMPR BDSU
019060,000509: 35,2566 33376 GEOCONS3
019061,000510: 35,2567 02627 THETAN +2
019062,000511: 35,2570 41325 PDDL DMP
019063,000512: 35,2571 02653 INTVEC +4
019064,000513: 35,2572 33400 GEOCONS4
019065,000514: 35,2573 45421 BDSU STADR
019066,000515: 35,2574 75150 STORE THETAN +2
019067,000516: 35,2575 77775 ADDINDRF VLOAD
019068,000517: 35,2576 02625 THETAN
019069,000518: 35,2577 03611 STORE COMPTORK # IN E7 FOR DOWNLINK.
019070,000519: 35,2600 77776 EXIT
019071,000520:
019072,000521: 35,2601 11527 ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
019073,000522: 35,2602 02741 TC SLEEPIE # NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
019074,000523: 35,2603 10356 CCS LGYRO # YES BUT ARE GYROS BUSY
019075,000524: 35,2604 13016 TCF ANNNNNN +2 # BUSY-GET THEM .5 SECONDS FROM NOW
019076,000525:
019077,000526:
019078,000527:
019079,000528: 35,2605 03421 TC CHKCOMED # SEE IF LAST TIME FOR COMPASS
019080,000529:
019081,000530: 35,2606 06103 LASTGTS TC INTPRET
019082,000531: 35,2607 77775 VLOAD
019083,000532: 35,2610 02772 ERCOMP
019084,000533: 35,2611 16617 STODL THETAX
019085,000534: 35,2612 02565 TMARK
019086,000535: 35,2613 02603 STORE ALK
019087,000536: 35,2614 77776 EXIT # PREVIOUS SECTION WAS FOR RESTARTS
019088,000537:
019089,000538: 35,2615 04147 RESTAIER TC PHASCHNG
019090,000539:
019091,000540: 35,2616 00275 OCT 00275
019092,000541: 35,2617 00003 RELINT
019093,000542: 35,2620 06103 TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
019094,000543: 35,2621 64375 VLOAD MXV
019095,000544: 35,2622 02625 THETAN
019096,000545: 35,2623 02750 GEOMTRX
019097,000546: 35,2624 53372 VSL1 VAD
019098,000547: 35,2625 02617 THETAX
019099,000548: 35,2626 16772 STODL ERCOMP
019100,000549: 35,2627 02603 ALK
019101,000550: 35,2630 02565 STORE TMARK
019102,000551:
019103,000552: 35,2631 77776 EXIT
019104,000553:
![]() |
Page 441 |
019106,000555: 35,2632 05224 TC BANKCALL
019107,000556: 35,2633 30424 CADR EARTHR # TORQUE IT ALL IN
019108,000557:
019109,000558:
019110,000559:
019111,000560: 35,2634 04147 TC PHASCHNG
019112,000561: 35,2635 00155 OCT 00155
019113,000562: 35,2636 00003 RELINT
019114,000563:
019115,000564: 35,2637 04121 RESTEST1 TC CHECKMM # CHECK IF COMPASS OVER
019116,000565: 35,2640 00004 OCT 04
019117,000566: 35,2641 02643 TC +2 # NO, CONTINUE
019118,000567: 35,2642 03431 TC PRELTERN # COMPASS OVER
019119,000568:
019120,000569:
019121,000570:
019122,000571: 35,2643 00004 INHINT
019123,000572: 35,2644 31717 CA PREMTRXC
019124,000573: 35,2645 00006 EXTEND
019125,000574: 35,2646 63004 BZMF NOCHORLD # +1 -CHANGE, 0 OR -1 NO LOAD OR LOADING
019126,000575: 35,2647 03100 TC LOADXSM # IF THERE WAS A CHANGE LOAD IT INTO XSM
019127,000576: 35,2650 04147 TC PHASCHNG
019128,000577: 35,2651 00255 OCT 00255
019129,000578: 35,2652 37761 RESTEST3 CA ZERO # RESET CHANGE INDEX TO ZERO
019130,000579: 35,2653 55717 TS PREMTRXC
019131,000580: 35,2654 00003 RELINT
019132,000581:
![]() |
Page 442 |
019134,000583: 35,2655 06103 TC INTPRET # HERE TO CHANGE ORIENTATOON
019135,000584: 35,2656 77770 AXT,1 # DESIRED IN XSM,PRESENT IN GEOMTRX
019136,000585: 35,2657 00022 18D
019137,000586: 35,2660 77731 SSP
019138,000587: 35,2661 00051 S1
019139,000588: 35,2662 00006 6
019140,000589: 35,2663 50373 LOADM VLOAD* DOT
019141,000590: 35,2664 02423 XSM +18D,1
019142,000591: 35,2665 02764 GEOMTRX +12D
019143,000592: 35,2666 50313 PDVL* DOT
019144,000593: 35,2667 02423 XSM +18D,1
019145,000594: 35,2670 02756 GEOMTRX +6D
019146,000595: 35,2671 50313 PDVL* DOT
019147,000596: 35,2672 02423 XSM +18D,1
019148,000597:
019149,000598: 35,2673 02750 GEOMTRX
019150,000599: 35,2674 53466 VDEF UNIT
019151,000600: 35,2675 06445 STORE XDC +18D,1
019152,000601: 35,2676 45100 TIX,1 CALL
019153,000602: 35,2677 72663 LOADM
019154,000603: 35,2700 32472 CALCGTA
019155,000604: 35,2701 77776 EXIT
019156,000605: 35,2702 02717 TC TORQINCH # NECESSARY TORQUE NOW IN OGC
019157,000606:
019158,000607:
019159,000608:
019160,000609: 35,2703 06103 SETUPER1 TC INTPRET
019161,000610: 35,2704 65345 DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY
019162,000611: 35,2705 02627 ANGZ
019163,000612: 35,2706 02633 ANGY
019164,000613: 35,2707 55525 PDDL VDEF
019165,000614: 35,2710 02635 ANGX
019166,000615: 35,2711 74276 VCOMP VXSC
019167,000616: 35,2712 33365 GEORGEJ
019168,000617: 35,2713 74521 MXV VSR1
019169,000618: 35,2714 02750 GEOMTRX
019170,000619: 35,2715 02501 STORE OGC
019171,000620: 35,2716 77776 EXIT
019172,000621:
019173,000622:
019174,000623:
019175,000624: 35,2717 04147 TORQINCH TC PHASCHNG
019176,000625: 35,2720 00175 OCT 00175
019177,000626: 35,2721 00003 RELINT # INHINT IN PHASCHNG
019178,000627: 35,2722 33353 CA AINGYRO
019179,000628: 35,2723 05224 TC BANKCALL
019180,000629: 35,2724 26361 CADR IMUPULSE
019181,000630: 35,2725 05224 TC BANKCALL
019182,000631: 35,2726 26762 CADR IMUSTALL
019183,000632: 35,2727 02776 TC SOMERR2 # BAD GYRO TORQUE-END OF TEST
019184,000633:
![]() |
Page 443 |
019186,000635: 35,2730 11574 GEOSTRT4 CCS TORQNDX # ONLY POSITIVE IF IN VERTICAL DRIFT TEST
019187,000636: 35,2731 02737 TC GEOBAVR # VERT DRIFT TEST OVER
019188,000637: 35,2732 03027 TC SETUPER # SET UP ERATE FOR PIPTEST OR COMPASS
019189,000638: 35,2733 11742 CCS GEOCOMPS
019190,000639: 35,2734 03002 TC TQORESTM
019191,000640: 35,2735 05224 TC BANKCALL # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
019192,000641: 35,2736 50077 CADR TORQUE
019193,000642:
019194,000643: 35,2737 05224 GEOBAVR TC BANKCALL
019195,000644: 35,2740 50225 CADR VALMIS # DISPLAY VERTICAL DRIFT
019196,000645:
![]() |
Page 444 |
019198,000647: # SET UP WAITLIST SECTION
019199,000648: 35,2741 55527 SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT
019200,000649:
019201,000650: 35,2742 04147 TC PHASCHNG # CHANGE PHASE
019202,000651: 35,2743 00135 OCT 00135
019203,000652: 35,2744 00003 RELINT # INHINT IN PHASCHNG
019204,000653: 35,2745 11574 CCS TORQNDX # ARE WE DOING VERTDRIFT
019205,000654: 35,2746 02750 TC EARTTPRQ # YES,DO HOR ERATE TORQ THEN SLEEP
019206,000655: 35,2747 02752 TC WTLISTNT # GO TO SET UP NEXT WAITLIST
019207,000656: 35,2750 05224 EARTTPRQ TC BANKCALL # IN VERTDRIFT,ADD HOR ERATE AND SLEEP
019208,000657: 35,2751 30424 CADR EARTHR
019209,000658: 35,2752 03421 WTLISTNT TC CHKCOMED # SEE IF GYROCOMPASS OVER
019210,000659:
019211,000660: 35,2753 00004 INHINT
019212,000661: 35,2754 40025 CS TIME1
019213,000662: 35,2755 61745 AD GTSWTLST
019214,000663: 35,2756 00006 EXTEND
019215,000664: 35,2757 62761 BZMF +2
019216,000665: 35,2760 67737 AD NEGMAX
019217,000666: 35,2761 61744 AD 1SECXT # 1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
019218,000667: 35,2762 00006 EXTEND
019219,000668: 35,2763 62771 BZMF RIGHTGTS
019220,000669: 35,2764 05701 WTGTSMPL TC WAITLIST
019221,000670: 35,2765 E5,1400 EBANK= XSM
019222,000671: 35,2765 02060 72065 2CADR ALLOOP
019223,000672:
019224,000673: 35,2767 00003 RELINT
019225,000674: 35,2770 05605 TC ENDOFJOB
019226,000675: 35,2771 37754 RIGHTGTS CAF TWO
019227,000676: 35,2772 02764 TC WTGTSMPL
019228,000677:
019229,000678:
019230,000679:
019231,000680: 35,2773 04744 SOMEERRR TC ALARM
019232,000681: 35,2774 01600 OCT 1600
019233,000682: 35,2775 03000 TC +3
019234,000683: 35,2776 04744 SOMERR2 TC ALARM
019235,000684: 35,2777 01601 OCT 1601
019236,000685: 35,3000 05224 TC BANKCALL
019237,000686: 35,3001 30747 CADR ENDTEST
019238,000687:
![]() |
Page 445 |
019240,000689: 35,3002 05224 TQORESTM TC BANKCALL
019241,000690: 35,3003 51614 CADR LOADGTSM # LOAD NEW XSM MATRIX INTO GEOMTRX
019242,000691:
019243,000692: 35,3004 00003 NOCHORLD RELINT # AFTER CHANGEIN ORIEN OR NO CHANGE
019244,000693: 35,3005 06103 TC INTPRET
019245,000694: 35,3006 77775 VLOAD
019246,000695: 35,3007 33334 SCHZEROS
019247,000696: 35,3010 02625 STORE THETAN
019248,000697:
019249,000698: 35,3011 77776 EXIT
019250,000699: 35,3012 11746 CCS ERECTIME
019251,000700: 35,3013 55746 TS ERECTIME # COUNTS DOWN FOR ERECTION
019252,000701:
019253,000702: 35,3014 34517 ANNNNNN CAF NINE
019254,000703: 35,3015 55527 TS LENGTHOT
019255,000704: 35,3016 11746 CCS ERECTIME
019256,000705: 35,3017 02742 TC SLEEPIE +1
019257,000706: 35,3020 04121 TC CHECKMM # IN COMPASS CHECK FOR VERIFICATION
019258,000707: 35,3021 00003 OCT 03
019259,000708: 35,3022 03024 TC +2 # NOT VERIFYING
019260,000709: 35,3023 02742 TC SLEEPIE +1 # YES
019261,000710: 35,3024 04105 TC NEWMODEX
019262,000711: 35,3025 00002 OCT 02
019263,000712: 35,3026 02742 TC SLEEPIE +1 # COMPASS IS 02 -ERECTION 05
019264,000713: 35,3027 00006 SETUPER EXTEND # SUBROUTINE CALLED IN 3 PLACES
019265,000714: 35,3030 23547 QXCH QPLACES
019266,000715: 35,3031 06103 TC INTPRET
019267,000716: 35,3032 77624 CALL
019268,000717: 35,3033 30407 ERTHRVSE
019269,000718: 35,3034 77776 EXIT
019270,000719: 35,3035 05224 TC BANKCALL
019271,000720: 35,3036 30731 CADR OGCZERO
019272,000721:
019273,000722: 35,3037 01547 TC QPLACES
019274,000723:
![]() |
Page 446 |
019276,000725: 35,3040 5370 GEOBND = EBANK3
019277,000726: 35,3040 5677 GEOBND1 = EBANK5
019278,000727: 35,3040 35370 STOREDTA CAF GEOBND
019279,000728: 35,3041 54001 TS L
019280,000729: 35,3042 33351 CAF 77DECML
019281,000730: 35,3043 54144 TS MPAC
019282,000731: 35,3044 50144 INDEX MPAC
019283,000732: 35,3045 31600 CA ALX1S
019284,000733: 35,3046 22003 LXCH EBANK
019285,000734: 35,3047 0001600 EBANK= RESTRTCS
019286,000735: 35,3047 50144 INDEX MPAC
019287,000736: 35,3050 55600 TS RESTRTCS
019288,000737: 35,3051 22003 LXCH EBANK
019289,000738: 35,3052 E5,1400 EBANK= XSM
019290,000739:
019291,000740: 35,3052 10144 CCS MPAC
019292,000741: 35,3053 13055 TCF +2
019293,000742: 35,3054 00002 TC Q
019294,000743: 35,3055 54144 TS MPAC
019295,000744: 35,3056 35370 CAF GEOBND
019296,000745: 35,3057 54001 TS L
019297,000746: 35,3060 13044 TCF STOREDTA +4
019298,000747:
019299,000748:
019300,000749:
019301,000750: 35,3061 33351 LOADSTDT CAF 77DECML
019302,000751: 35,3062 54144 TS MPAC
019303,000752: 35,3063 35370 CA GEOBND
019304,000753: 35,3064 56003 XCH EBANK
019305,000754: 35,3065 54001 TS L
019306,000755: 35,3066 0001600 EBANK= RESTRTCS
019307,000756: 35,3066 50144 INDEX MPAC
019308,000757: 35,3067 31600 CA RESTRTCS
019309,000758: 35,3070 22003 LXCH EBANK
019310,000759: 35,3071 E5,1400 EBANK= XSM
019311,000760: 35,3071 50144 INDEX MPAC
019312,000761: 35,3072 55600 TS ALX1S
019313,000762: 35,3073 10144 CCS MPAC
019314,000763:
019315,000764: 35,3074 13076 TCF +2
019316,000765: 35,3075 00002 TC Q
019317,000766: 35,3076 54144 TS MPAC
019318,000767: 35,3077 13063 TCF LOADSTDT +2
019319,000768:
![]() |
Page 447 |
019321,000770: 35,3100 00006 LOADXSM EXTEND
019322,000771: 35,3101 23547 QXCH QPLACES
019323,000772: 35,3102 33402 CAF 17DECML
019324,000773: 35,3103 54144 TS MPAC
019325,000774: 35,3104 50000 INDEX A
019326,000775: 35,3105 31720 CA PRELMTRX
019327,000776: 35,3106 50144 INDEX MPAC
019328,000777: 35,3107 55400 TS XSM
019329,000778: 35,3110 10144 CCS MPAC
019330,000779: 35,3111 13103 TCF LOADXSM +3
019331,000780: 35,3112 01547 TC QPLACES
019332,000781: 35,3113 77743 ALFDK DEC -28 B-14 # SLOPES AND TIME CONSTANTS FOR FIRST 30SC
019333,000782: 35,3114 77776 DEC -1 B-14
019334,000783: 35,3115 35143 10237 2DEC .91230833 # TIME CONSTANTS-PIPA OUTPUTS
019335,000784:
019336,000785: 35,3117 31766 26106 2DEC .81193187 # TIME CONSTANT-ERECTION ANGLES
019337,000786:
019338,000787: 35,3121 77772 43677 2DEC -.00035882 # SLOPE-AZIMUTH ANGLE
019339,000788:
019340,000789:
019341,000790: 35,3123 77777 77661 2DEC -.00000029 # SLOPE-VERTICAL DRIFT
019342,000791:
019343,000792: 35,3125 00002 05420 2DEC .00013262 # SLOPE-NORTH SOUTH DRIFT
019344,000793:
019345,000794:
019346,000795:
019347,000796: 35,3127 77705 DEC -58 B-14 # 31-90 SEC
019348,000797: 35,3130 77776 DEC -1 B-14
019349,000798: 35,3131 37560 05346 2DEC .99122133
019350,000799:
019351,000800: 35,3133 37522 15525 2DEC .98940595
019352,000801:
019353,000802: 35,3135 77763 41604 2DEC -.00079010
019354,000803:
019355,000804: 35,3137 77777 76470 2DEC -.00000265
019356,000805:
019357,000806: 35,3141 00007 02201 2DEC .00043154
019358,000807:
019359,000808:
019360,000809:
019361,000810: 35,3143 77767 DEC -8 B-14 # 91-100 SEC
019362,000811: 35,3144 77776 DEC -1 B-14
019363,000812: 35,3145 37773 10042 2DEC .99971021
019364,000813:
019365,000814:
019366,000815: 35,3147 37747 30232 2DEC .99852047
019367,000816:
019368,000817: 35,3151 00006 37666 2DEC .00042697
019369,000818:
019370,000819: 35,3153 77777 76703 2DEC -.00000213
019371,000820:
019372,000821: 35,3155 00001 36147 2DEC .00011864
019373,000822:
![]() |
Page 448 |
019375,000824: 35,3157 77635 DEC -98 B-14 # 101-200 SEC
019376,000825: 35,3160 77776 DEC -1 B-14
019377,000826:
019378,000827: 35,3161 37666 11022 2DEC .99550063
019379,000828:
019380,000829: 35,3163 37532 33647 2DEC .98992124
019381,000830:
019382,000831: 35,3165 00007 03641 2DEC .00043452
019383,000832:
019384,000833: 35,3167 77777 75713 2DEC -.00000401
019385,000834:
019386,000835: 35,3171 77774 54605 2DEC -.00021980
019387,000836:
019388,000837:
019389,000838:
019390,000839: 35,3173 77407 DEC -248 B-14 # 201-450 SEC
019391,000840: 35,3174 77776 DEC -1 B-14
019392,000841: 35,3175 37712 16755 2DEC .99673264
019393,000842:
019394,000843: 35,3177 37630 01160 2DEC .99365467
019395,000844:
019396,000845: 35,3201 00000 23600 2DEC .00003767
019397,000846:
019398,000847: 35,3203 77777 63663 2DEC -.00002317
019399,000848:
019400,000849: 35,3205 77777 56527 2DEC -.00003305
019401,000850:
019402,000851:
019403,000852:
019404,000853:
019405,000854: 35,3207 77255 DEC -338 B-14 # 451-790 SEC
019406,000855: 35,3210 77776 DEC -1 B-14
019407,000856: 35,3211 37763 23341 2DEC .99924362
019408,000857:
019409,000858: 35,3213 37755 26170 2DEC .99888274
019410,000859:
019411,000860: 35,3215 00000 00254 2DEC .00000064
019412,000861:
019413,000862: 35,3217 77777 52755 2DEC -.00004012
019414,000863:
019415,000864: 35,3221 77777 76764 2DEC -.00000195
019416,000865:
019417,000866:
019418,000867:
019419,000868: 35,3223 77147 DEC -408 B-14 # 791-1200 SEC
019420,000869: 35,3224 77776 DEC -1 B-14
019421,000870: 35,3225 37772 02343 2DEC .99963845
019422,000871:
019423,000872: 35,3227 37761 30560 2DEC .99913162
019424,000873:
019425,000874:
019426,000875: 35,3231 00000 00362 2DEC .00000090
019427,000876:
![]() |
Page 449 |
019429,000878: 35,3233 00000 17261 2DEC .00002927
019430,000879:
019431,000880: 35,3235 77777 77671 2DEC -.00000026
019432,000881:
019433,000882:
019434,000883:
019435,000884: 35,3237 77015 DEC -498 B-14 # 1201-1700 SEC
019436,000885: 35,3240 77776 DEC -1 B-14
019437,000886:
019438,000887: 35,3241 37765 12403 2DEC .99934865
019439,000888:
019440,000889: 35,3243 37752 20062 2DEC .99868793
019441,000890:
019442,000891: 35,3245 00000 00224 2DEC .00000055
019443,000892:
019444,000893: 35,3247 00000 06150 2DEC .00001183
019445,000894:
019446,000895: 35,3251 77777 77762 2DEC -.00000005
019447,000896:
019448,000897:
019449,000898:
019450,000899: 35,3253 77161 DEC -398 B-14 # 1701-2100 SEC
019451,000900: 35,3254 77776 DEC -1 B-14
019452,000901: 35,3255 37767 12513 2DEC .99947099
019453,000902:
019454,000903: 35,3257 37756 30343 2DEC .99894799
019455,000904:
019456,000905: 35,3261 00000 00060 2DEC .00000018
019457,000906:
019458,000907: 35,3263 00000 01445 2DEC .00000300
019459,000908:
019460,000909: 35,3265 77777 77774 2DEC -.00000001
019461,000910:
019462,000911:
019463,000912:
019464,000913:
019465,000914: 35,3267 76651 DEC -598 B-14 # 2101-2700 SEC
019466,000915: 35,3270 77776 DEC -1 B-14
019467,000916: 35,3271 37771 02603 2DEC .99957801
019468,000917:
019469,000918: 35,3273 37762 10061 2DEC .99916095
019470,000919:
019471,000920: 35,3275 00000 00023 2DEC .00000007
019472,000921:
019473,000922: 35,3277 00000 00402 2DEC .00000096
019474,000923:
019475,000924: 35,3301 00000 00000 2DEC .00000000
019476,000925:
019477,000926:
019478,000927:
019479,000928: 35,3303 76505 DEC -698 B-14 # 2700-3400 SEC
019480,000929: 35,3304 77776 DEC -1 B-14
019481,000930:
![]() |
Page 450 |
019483,000932: 35,3305 37772 22005 2DEC .99966814
019484,000933:
019485,000934: 35,3307 37765 05560 2DEC .99933952
019486,000935:
019487,000936: 35,3311 00000 00005 2DEC .00000002
019488,000937:
019489,000938: 35,3313 00000 00113 2DEC .00000028
019490,000939:
019491,000940: 35,3315 00000 00000 2DEC .00000000
019492,000941:
019493,000942:
019494,000943:
019495,000944: 35,3317 76651 DEC -598 B-14 # 3401-4000 SEC
019496,000945: 35,3320 77776 DEC -1 B-14
019497,000946:
019498,000947: 35,3321 37773 20750 2DEC .99972716
019499,000948:
019500,000949: 35,3323 37767 03044 2DEC .99945654
019501,000950:
019502,000951: 35,3325 00000 00003 2DEC .00000001
019503,000952:
019504,000953: 35,3327 00000 00033 2DEC .00000010
019505,000954:
019506,000955: 35,3331 00000 00000 2DEC .00000000
019507,000956:
019508,000957:
019509,000958:
019510,000959: 35,3333 00000 00000 SCHZEROS 2DEC .00000000
019511,000960:
019512,000961: 35,3335 00000 00000 2DEC .00000000
019513,000962:
019514,000963: 35,3337 00000 00000 2DEC .00000000
019515,000964:
019516,000965: 35,3341 00004 INTVAL OCT 4
019517,000966: 35,3342 00002 OCT 2
019518,000967: 35,3343 00220 DEC 144 B-14
019519,000968: 35,3344 77776 DEC -1 B-14
019520,000969: 35,3345 35730 00035 SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
019521,000970:
019522,000971:
019523,000972: 35,3347 10317 17550 2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
019524,000973:
019525,000974:
019526,000975:
019527,000976: 35,3351 00115 77DECML DEC 77 B-14
019528,000977: 35,3352 01577 ALXXXZ GENADR ALX1S -1
019529,000978: 35,3353 02500 AINGYRO ECADR OGC
019530,000979: 35,3354 04133 02265 PIPASC 2DEC .13055869
019531,000980:
019532,000981: 35,3356 57223 66451 VELSC 2DEC -.52223476 # 512/980.402
019533,000982:
019534,000983: 35,3360 05427 12577 ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
019535,000984:
![]() |
Page 451 |
019537,000986: 35,3362 77567 44202 2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
019538,000987:
019539,000988:
019540,000989:
019541,000990: 35,3364 24276 14066 GEORGEJ 2DEC .63661977
019542,000991:
019543,000992: 35,3366 23073 11773 GEORGEK 2DEC .59737013
019544,000993:
019545,000994: 35,3370 00031 OCT31 OCT 00031
019546,000995: 35,3371 03146 14632 GEOCONS1 2DEC .1
019547,000996:
019548,000997: 35,3373 00121 35341 GEOCONS2 2DEC .005
019549,000998:
019550,000999: 35,3375 00631 23146 GEOCONS3 2DEC .025
019551,001000:
019552,001001: 35,3377 00000 17565 GEOCONS4 2DEC .00003
019553,001002:
019554,001003: 35,3401 06200 1/PIPAGT OCT 06200
019555,001004: 35,3402 00021 17DECML DEC 17 B-14
019556,001005:
019557,001006: 35,3403 00023 19DECML DEC 19 B-14
019558,001007: 35,3404 00062 1/2SECX DEC 50 B-14
019559,001008:
019560,001009:
019561,001010:
019562,001011: 35,3405 37755 GTSCPSS CA ONE
019563,001012: 35,3406 55742 TS GEOCOMPS # THIS IS THE LEAD IN FOR COMPASS
019564,001013: 35,3407 04105 TC NEWMODEX
019565,001014: 35,3410 00001 OCT 01
019566,001015: 35,3411 33401 CA 1/PIPAGT
019567,001016: 35,3412 55163 TS 1/PIPADT
019568,001017: 35,3413 37761 CA ZERO
019569,001018: 35,3414 55717 TS PREMTRXC
019570,001019: 35,3415 33404 CAF 1/2SECX
019571,001020: 35,3416 55744 TS 1SECXT
019572,001021: 35,3417 05224 TC BANKCALL
019573,001022: 35,3420 50005 CADR GEOIMUTT
019574,001023:
019575,001024:
019576,001025:
019577,001026: 35,3421 30075 CHKCOMED CA FLAGWRD1 # CHECK FOR END OF COMPASS
019578,001027: 35,3422 77754 MASK BIT2 # TEST FOR GRR FLAG
019579,001028: 35,3423 10000 CCS A
019580,001029:
019581,001030: 35,3424 13426 TCF PRELTERM # YES GRR HAS OCCURRED
019582,001031: 35,3425 00002 TC Q # NO CONTINUE
019583,001032:
019584,001033:
019585,001034: 35,3426 04105 PRELTERM TC NEWMODEX
019586,001035: 35,3427 00004 OCT 04 # 04 IS END OF COMPASS
019587,001036: 35,3430 12606 TCF LASTGTS # GET LAST TORQUING
019588,001037:
![]() |
Page 452 |
019590,001039:
019591,001040: 35,3431 00004 PRELTERN INHINT # GET TIME OF PRELAUNCH TERMINATION.
019592,001041: 35,3432 00006 EXTEND
019593,001042:
019594,001043: 35,3433 31565 DCA TMARK # TIME OF LAST EARTH RATE COMPENSATION.
019595,001044: 35,3434 53155 DXCH TEMTPREL # INTO COMMON TEMP UNTIL MP2.
019596,001045: 35,3435 34260 CAF PRIO24
019597,001046: 35,3436 05534 TC FINDVAC # SET UP MISSION PHASE 2
019598,001047: 35,3437 E3,1746 EBANK= TGRR
019599,001048: 35,3437 02056 56003 2CADR MP2JOB
019600,001049:
019601,001050: 35,3441 15605 TCF ENDOFJOB
End of include-file OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc. Parent file is MAIN.agc