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