Source Code
|
These source-code files are part of a reconstructed copy of Aurora 88, the
final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system
test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson. Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
016982,000002: ## Copyright: Public domain.
016983,000003: ## Filename: OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
016984,000004: ## Purpose: A section of Aurora 88.
016985,000005: ## It is part of the reconstructed source code for the final
016986,000006: ## release of the Lunar Module system test software. No original
016987,000007: ## listings of this program are available; instead, this file
016988,000008: ## was created via disassembly of dumps of Aurora 88 core rope
016989,000009: ## modules and comparison with other AGC programs.
016990,000010: ## Assembler: yaYUL
016991,000011: ## Contact: Ron Burkey <info@sandroid.org>.
016992,000012: ## Website: www.ibiblio.org/apollo/index.html
016993,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
016994,000014: ## 2023-07-12 MAS Updated for Aurora 88.
016995,000015:
016996,000016:
016997,000017: # THIS PROGRAM USES A VERTICAL,SOUTH,EAST COORDINATE SYSTEM FOR PIPAS
016998,000018: 21,2000 BANK 21
016999,000019: 21,2000 E5,1400 EBANK= XSM
017000,000020:
017001,000021: # G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
017002,000022: # PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
017003,000023: 21,2000 04112 ESTIMS TC MAKECADR
017004,000024: 21,2001 55546 TS QPLACE
017005,000025: 21,2002 00004 RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
017006,000026: 21,2003 32067 CAF 1SEC
017007,000027: 21,2004 04451 TC WAITLIST
017008,000028: 21,2005 02134 42005 2CADR ALLOOP
017009,000029:
017010,000030: 21,2007 37657 CAF ZERO # ZERO THE PIPAS
017011,000031: 21,2010 54037 TS PIPAX
017012,000032: 21,2011 54040 TS PIPAY
017013,000033: 21,2012 54041 TS PIPAZ
017014,000034: 21,2013 55711 TS ALTIM
017015,000035: 21,2014 32133 CA 13DECML
017016,000036: 21,2015 55747 TS ZERONDX
017017,000037: 21,2016 32064 CA LINTY
017018,000038: 21,2017 04063 TC BANKCALL
017019,000039: 21,2020 37241 CADR ZEROING
017020,000040: 21,2021 00003 RELINT
017021,000041: 21,2022 10067 CCS NEWJOB
017022,000042: 21,2023 04317 TC CHANG1
017023,000043: 21,2024 00004 INHINT
017024,000044: 21,2025 37646 CAF BIT5
017025,000045: 21,2026 55747 TS ZERONDX
017026,000046: 21,2027 32065 CA LVLAUN
017027,000047: 21,2030 04063 TC BANKCALL
017028,000048: 21,2031 37241 CADR ZEROING
017029,000049: 21,2032 37656 CA SEVEN
017030,000050: 21,2033 55747 TS ZERONDX
017031,000051: 21,2034 32066 CA LALK4
017032,000052: 21,2035 04063 TC BANKCALL
017033,000053: 21,2036 37241 CADR ZEROING
017034,000054:
017035,000055: 21,2037 55725 TS UE5,1725
017036,000056: 21,2040 55726 TS UE5,1726
017037,000057: 21,2041 55730 TS UE5,1730
017038,000058: 21,2042 00003 RELINT
017039,000059: 21,2043 06000 TC INTPRET
017040,000060: 21,2044 77745 DLOAD
017041,000061: 21,2045 03054 INTVAL +2
017042,000062: 21,2046 07576 STODL ALX1S
017043,000063: 21,2047 03046 SOUPLY
017044,000064: 21,2050 07600 STODL ALK
017045,000065: 21,2051 03050 SOUPLY +2
017046,000066: 21,2052 23602 STOVL ALK +2
017047,000067: 21,2053 02101 GEORGED
017048,000068: 21,2054 23751 STOVL TRANSM1
017049,000069: 21,2055 02107 GEORGEC
017050,000070: 21,2056 23757 STOVL TRANSM1 +6
017051,000071: 21,2057 02115 GEORGEB
017052,000072: 21,2060 01765 STORE TRANSM1 +12D
017053,000073: 21,2061 77776 EXIT
017054,000074: 21,2062 31546 CA QPLACE
017055,000075: 21,2063 14105 TCF BANKJUMP
017056,000076:
017057,000077: 21,2064 01627 LINTY GENADR INTY
017058,000078: 21,2065 01646 LVLAUN GENADR VLAUN -1
017059,000079: 21,2066 01603 LALK4 GENADR ALK +4
017060,000080:
017061,000081: 21,2067 00144 1SEC DEC 100 B-14
017062,000082:
017063,000083: 21,2070 04133 02265 PIPASC 2DEC .13055869
017064,000084:
017065,000085: 21,2072 57223 66451 VELSC 2DEC -.52223476 # 512/980.402
017066,000086:
017067,000087: 21,2074 05427 12577 ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
017068,000088:
017069,000089: 21,2076 77567 44202 2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
017070,000090:
017071,000091: 21,2100 47762 75077 GEORGED 2DEC -.75079894
017072,000092:
017073,000093: 21,2102 73511 61546 2DEC -.13613567
017074,000094:
017075,000095: 21,2104 73733 67243 2DEC -.12721382
017076,000096:
017077,000097: 21,2106 36256 35610 GEORGEC 2DEC .94817689
017078,000098:
017079,000099: 21,2110 16631 34443 2DEC .46251787
017080,000100:
017081,000101: 21,2112 11243 22276 2DEC .29123377
017082,000102:
017083,000103: 21,2114 65174 70374 GEORGEB 2DEC -.33613492
017084,000104:
017085,000105: 21,2116 11762 06753 2DEC .31165878
017086,000106:
017087,000107: 21,2120 60047 67652 2DEC -.49757417
017088,000108:
017089,000109:
017090,000110: 21,2122 24276 14066 GEORGEJ 2DEC .63661977
017091,000111:
017092,000112: 21,2124 23073 11773 GEORGEK 2DEC .59737013
017093,000113:
017094,000114: 21,2126 31103 36651 PI/4.0 2DEC .78539816
017095,000115:
017096,000116: 21,2130 26501 .707PL DEC .70711
017097,000117: 21,2131 07640 DEC4000 DEC 4000 B-14
017098,000118: 21,2132 02521 LGYROD ECADR GYROD
017099,000119: 21,2133 00015 13DECML DEC 13 B-14
017100,000120:
017101,000121: 21,2134 00004 ALLOOP INHINT # TASK EVERY .5 OR 1 SEC (COMPASS-DRIFT)
017102,000122: 21,2135 11711 CCS ALTIM
017103,000123: 21,2136 02216 TC ALLOOPER # SHOULD NEVER HIT THIS LOCATION
017104,000124: 21,2137 55712 TS ALTIMS
017105,000125: 21,2140 40000 CS A
017106,000126: 21,2141 55711 TS ALTIM
017107,000127:
017108,000128: 21,2142 32067 CAF 1SEC
017109,000129: 21,2143 04451 TC WAITLIST
017110,000130: 21,2144 02134 42005 2CADR ALLOOP
017111,000131:
017112,000132: 21,2146 37657 CAF ZERO
017113,000133: 21,2147 55773 TS FILDELVX +1
017114,000134: 21,2150 55775 TS FILDELVY +1
017115,000135: 21,2151 55777 TS FILDELVZ +1
017116,000136: 21,2152 56037 XCH PIPAX
017117,000137: 21,2153 55772 TS FILDELVX
017118,000138: 21,2154 37657 CAF ZERO
017119,000139: 21,2155 56040 XCH PIPAY
017120,000140: 21,2156 55774 TS FILDELVY
017121,000141: 21,2157 37657 CAF ZERO
017122,000142: 21,2160 56041 XCH PIPAZ
017123,000143: 21,2161 55776 TS FILDELVZ
017124,000144:
017125,000145: 21,2162 00003 RELINT
017126,000146:
017127,000147: 21,2163 12173 TCF ALLOOP1
017128,000148:
017129,000149:
|
|
MAS 2023: The following chunk is dead code left over from Aurora 85. Two of the instructions appear to have been replaced with 0 constants to prevent assembly errors. |
017133,000153: 21,2164 51572 INDEX UE5,1572
017134,000154: 21,2165 00000 OCT 00000
017135,000155: 21,2166 55661 TS DPIPAY
017136,000156: 21,2167 31665 CA DPIPAZ
017137,000157: 21,2170 51574 INDEX UE5,1574
017138,000158: 21,2171 00000 OCT 00000
017139,000159: 21,2172 55665 TS DPIPAZ
017140,000160:
017141,000161:
017142,000162: 21,2173 11746 ALLOOP1 CCS UE5,1746
017143,000163: 21,2174 02205 TC ALLOOP2
017144,000164: 21,2175 31727 CA UE5,1727
017145,000165: 21,2176 00006 EXTEND
017146,000166: 21,2177 51745 INDEX DPIPAIDX
017147,000167: 21,2200 61661 SU DPIPAY
017148,000168: 21,2201 00006 EXTEND
017149,000169: 21,2202 72130 MP .707PL
017150,000170: 21,2203 51745 INDEX DPIPAIDX
017151,000171: 21,2204 53662 DXCH DPIPAY
017152,000172:
017153,000173: 21,2205 32235 ALLOOP2 CAF NORMLPAD
017154,000174: 21,2206 04335 TC JOBWAKE
017155,000175: 21,2207 10071 CCS LOCCTR
017156,000176: 21,2210 04505 TC TASKOVER
017157,000177: 21,2211 04505 TC TASKOVER
017158,000178: 21,2212 05315 TC ALARM
017159,000179: 21,2213 01600 OCT 01600
017160,000180: 21,2214 04063 TC BANKCALL
017161,000181: 21,2215 30752 CADR ENDTEST
017162,000182:
017163,000183: 21,2216 00003 ALLOOPER RELINT
017164,000184: 21,2217 04505 TC TASKOVER
017165,000185:
017166,000186: 21,2220 06000 ALKCG TC INTPRET
017167,000187: 21,2221 72174 AXT,2 LXA,1 # LOADS SLOPES AND TIME CONSTANTS AT RQST
017168,000188: 21,2222 00014 12D
017169,000189: 21,2223 01575 ALX1S
017170,000190: 21,2224 62143 ALKCG2 DLOAD* INCR,1
017171,000191: 21,2225 03046 ALFDK +156D,1
017172,000192: 21,2226 77775 DEC -2 B-14
017173,000193: 21,2227 05726 STORE ALDK +10D,2
017174,000194: 21,2230 66104 TIX,2 SXA,1
017175,000195: 21,2231 42224 ALKCG2
017176,000196: 21,2232 01575 ALX1S
017177,000197: 21,2233 77650 GOTO
017178,000198: 21,2234 42247 ALCGKK
017179,000199:
017180,000200: 21,2235 42236 NORMLPAD CADR NORMLOP
017181,000201:
017182,000202: 21,2236 06000 NORMLOP TC INTPRET
017183,000203: 21,2237 77745 DLOAD
017184,000204: 21,2240 03052 INTVAL
017185,000205: 21,2241 00051 STORE S1 # STEP REGISTERS MAY HAVE BEEN WIPED OUT
017186,000206: 21,2242 77776 EXIT
017187,000207: 21,2243 11712 CCS ALTIMS
017188,000208: 21,2244 02246 TC +2
017189,000209: 21,2245 02220 TC ALKCG
017190,000210: 21,2246 06000 TC INTPRET
017191,000211: 21,2247 77650 ALCGKK GOTO
017192,000212: 21,2250 35414 ALFLT2
017193,000213:
017194,000214: 21,2251 12252 NOOP
017195,000215:
017196,000216: 21,2252 41343 DELMLP DLOAD* DMP
017197,000217: 21,2253 01672 DPIPAY +8D,1
017198,000218: 21,2254 02071 PIPASC
017199,000219: 21,2255 41061 SLR BOVB
017200,000220: 21,2256 01213 10D
017201,000221: 21,2257 43075 SOMERR1
017202,000222: 21,2260 77617 BDSU*
017203,000223: 21,2261 01640 INTY +8D,1
017204,000224: 21,2262 03640 STORE INTY +8D,1
017205,000225: 21,2263 40725 PDDL DMP*
017206,000226: 21,2264 02073 VELSC
017207,000227: 21,2265 01660 VLAUN +8D,1
017208,000228: 21,2266 77732 SL2R
017209,000229: 21,2267 45425 DSU STADR
017210,000230: 21,2270 74035 STORE DELM +8D,1
017211,000231: 21,2271 03744 STORE DELM +10D,1
017212,000232: 21,2272 77100 TIX,1 AXT,2
017213,000233: 21,2273 42252 DELMLP
017214,000234: 21,2274 00004 4
017215,000235: 21,2275 56743 ALILP DLOAD* DMPR*
017216,000236: 21,2276 76173 ALK +4,2
017217,000237: 21,2277 76057 ALDK +4,2
017218,000238: 21,2300 05604 STORE ALK +4,2
017219,000239: 21,2301 77104 TIX,2 AXT,2
017220,000240: 21,2302 42275 ALILP
017221,000241: 21,2303 00010 8D
017222,000242: 21,2304 66140 ALKLP LXC,1 SXA,1
017223,000243: 21,2305 01576 CMPX1
017224,000244: 21,2306 01576 CMPX1
017225,000245: 21,2307 56743 DLOAD* DMPR*
017226,000246: 21,2310 01601 ALK +1,1
017227,000247: 21,2311 76035 DELM +8D,2
017228,000248: 21,2312 77613 DAD*
017229,000249: 21,2313 76137 INTY +8D,2
017230,000250: 21,2314 21640 STODL* INTY +8D,2
017231,000251: 21,2315 76163 ALK +12D,2
017232,000252: 21,2316 77613 DAD*
017233,000253: 21,2317 76047 ALDK +12D,2
017234,000254: 21,2320 05614 STORE ALK +12D,2
017235,000255: 21,2321 42673 DMPR* DAD*
017236,000256: 21,2322 76035 DELM +8D,2
017237,000257: 21,2323 76127 INTY +16D,2
017238,000258: 21,2324 21650 STODL* INTY +16D,2
017239,000259: 21,2325 02076 ALSK +1,1
017240,000260: 21,2326 76403 DMP* SL1R
017241,000261: 21,2327 76035 DELM +8D,2
017242,000262: 21,2330 77613 DAD*
017243,000263: 21,2331 76117 VLAUN +8D,2
017244,000264: 21,2332 05660 STORE VLAUN +8D,2
017245,000265: 21,2333 76104 TIX,2 AXT,1
017246,000266: 21,2334 42304 ALKLP
017247,000267: 21,2335 00010 8D
017248,000268:
017249,000269:
017250,000270: 21,2336 57343 LOOSE DLOAD* DMPR
017251,000271: 21,2337 01660 VLAUN +8D,1
017252,000272: 21,2340 01751 TRANSM1
017253,000273: 21,2341 77752 SL1
017254,000274: 21,2342 57323 PDDL* DMPR
017255,000275: 21,2343 01670 POSNV +8D,1
017256,000276: 21,2344 01753 TRANSM1 +2
017257,000277: 21,2345 57323 PDDL* DMPR
017258,000278: 21,2346 01670 POSNV +8D,1
017259,000279: 21,2347 01755 TRANSM1 +4
017260,000280: 21,2350 57323 PDDL* DMPR
017261,000281: 21,2351 01670 POSNV +8D,1
017262,000282: 21,2352 01757 TRANSM1 +6
017263,000283: 21,2353 57323 PDDL* DMPR
017264,000284: 21,2354 01660 VLAUN +8D,1
017265,000285: 21,2355 01761 TRANSM1 +8D
017266,000286: 21,2356 77615 DAD
017267,000287: 21,2357 57323 PDDL* DMPR
017268,000288: 21,2360 01662 ACCWD +8D,1
017269,000289: 21,2361 01763 TRANSM1 +10D
017270,000290: 21,2362 45415 DAD STADR
017271,000291: 21,2363 60107 STODL* POSNV +8D,1
017272,000292: 21,2364 01660 VLAUN +8D,1
017273,000293: 21,2365 77675 DMPR
017274,000294: 21,2366 01765 TRANSM1 +12D
017275,000295: 21,2367 77615 DAD
017276,000296: 21,2370 57323 PDDL* DMPR
017277,000297: 21,2371 01662 ACCWD +8D,1
017278,000298: 21,2372 01767 TRANSM1 +14D
017279,000299: 21,2373 45415 DAD STADR
017280,000300: 21,2374 60117 STODL* VLAUN +8D,1
017281,000301: 21,2375 01662 ACCWD +8D,1
017282,000302: 21,2376 77675 DMPR
017283,000303: 21,2377 01771 TRANSM1 +16D
017284,000304: 21,2400 77615 DAD
017285,000305: 21,2401 45415 DAD STADR
017286,000306: 21,2402 74115 STORE ACCWD +8D,1
017287,000307: 21,2403 77700 TIX,1
017288,000308: 21,2404 42336 LOOSE
017289,000309:
017290,000310:
017291,000311: 21,2405 76174 AXT,2 AXT,1 # EVALUATE SINES AND COSINES
017292,000312: 21,2406 00006 6
017293,000313: 21,2407 00002 2
017294,000314: 21,2410 57343 BOOP DLOAD* DMPR
017295,000315: 21,2411 01642 ANGX +2,1
017296,000316: 21,2412 02123 GEORGEJ
017297,000317: 21,2413 77722 SR2R
017298,000318: 21,2414 73406 PUSH SIN
017299,000319: 21,2415 56172 SL1R XAD,1
017300,000320: 21,2416 00046 X1
017301,000321: 21,2417 13676 STODL BPLAC +6,2
017302,000322: 21,2420 77746 COS
017303,000323: 21,2421 05704 STORE BPLAC +12D,2 # COSINES
017304,000324: 21,2422 77704 TIX,2
017305,000325: 21,2423 42410 BOOP
017306,000326: 21,2424 62545 DLOAD SL2
017307,000327: 21,2425 01674 BPLAC +4
017308,000328: 21,2426 77615 DAD
017309,000329: 21,2427 01630 INTY
017310,000330: 21,2430 07630 STODL INTY
017311,000331: 21,2431 01672 BPLAC +2
017312,000332: 21,2432 56405 DMP SL3R
017313,000333: 21,2433 01702 BPLAC +10D
017314,000334: 21,2434 77615 DAD
017315,000335: 21,2435 01634 INTZ
017316,000336: 21,2436 07634 STODL INTZ
017317,000337: 21,2437 01676 BPLAC +6
017318,000338: 21,2440 57275 DMPR DMPR
017319,000339: 21,2441 01700 BPLAC +8D
017320,000340: 21,2442 01674 BPLAC +4
017321,000341: 21,2443 77712 SL2
017322,000342: 21,2444 57325 PDDL DMPR
017323,000343: 21,2445 01670 BPLAC
017324,000344: 21,2446 01672 BPLAC +2
017325,000345: 21,2447 77615 DAD
017326,000346: 21,2450 77675 DMPR
017327,000347: 21,2451 01616 WANGI
017328,000348: 21,2452 57325 PDDL DMPR
017329,000349: 21,2453 01700 BPLAC +8D
017330,000350: 21,2454 01702 BPLAC +10D
017331,000351: 21,2455 66405 DMP SL2R
017332,000352: 21,2456 01614 WANGO
017333,000353: 21,2457 77621 BDSU
017334,000354: 21,2460 01642 DRIFTO
017335,000355: 21,2461 45425 DSU STADR
017336,000356: 21,2462 70073 STODL WPLATO
017337,000357: 21,2463 01676 BPLAC +6
017338,000358: 21,2464 41275 DMPR DMP
017339,000359: 21,2465 01702 BPLAC +10D
017340,000360: 21,2466 01616 WANGI
017341,000361: 21,2467 77732 SL2R
017342,000362: 21,2470 57325 PDDL DMPR
017343,000363: 21,2471 01614 WANGO
017344,000364: 21,2472 01674 BPLAC +4
017345,000365: 21,2473 77615 DAD
017346,000366: 21,2474 01644 DRIFTI
017347,000367: 21,2475 77625 DSU
017348,000368: 21,2476 57325 PDDL DMPR
017349,000369: 21,2477 01620 WANGT
017350,000370: 21,2500 01616 WANGI
017351,000371: 21,2501 45415 DAD STADR
017352,000372: 21,2502 70071 STODL WPLATI
017353,000373: 21,2503 01700 BPLAC +8D
017354,000374: 21,2504 76405 DMP SL1R
017355,000375: 21,2505 01670 BPLAC
017356,000376: 21,2506 57325 PDDL DMPR
017357,000377: 21,2507 01672 BPLAC +2
017358,000378: 21,2510 01676 BPLAC +6
017359,000379: 21,2511 76405 DMP SL1R
017360,000380: 21,2512 01674 BPLAC +4
017361,000381: 21,2513 77621 BDSU
017362,000382: 21,2514 77675 DMPR
017363,000383: 21,2515 01616 WANGI
017364,000384: 21,2516 57325 PDDL DMPR
017365,000385: 21,2517 01672 BPLAC +2
017366,000386: 21,2520 01702 BPLAC +10D
017367,000387: 21,2521 76405 DMP SL1R
017368,000388: 21,2522 01614 WANGO
017369,000389: 21,2523 77621 BDSU
017370,000390: 21,2524 01646 DRIFTT
017371,000391: 21,2525 45415 DAD STADR # WPLATT NOW IN MPAC
017372,000392: 21,2526 76067 STORE WPLATT # PUSH IT DOWN-X IT BY SANG +2
017373,000393: 21,2527 74475 DMPR SR1R
017374,000394: 21,2530 01672 BPLAC +2
017375,000395: 21,2531 57325 PDDL DMPR
017376,000396: 21,2532 01704 WPLATO
017377,000397: 21,2533 01700 BPLAC +8D
017378,000398: 21,2534 77615 DAD
017379,000399: 21,2535 77671 DDV
017380,000400: 21,2536 01702 BPLAC +10D
017381,000401: 21,2537 57206 PUSH DMPR
017382,000402: 21,2540 02125 GEORGEK
017383,000403: 21,2541 43261 SRR DAD
017384,000404: 21,2542 01616 13D
017385,000405: 21,2543 01640 ANGX
017386,000406: 21,2544 07640 STODL ANGX
017387,000407: 21,2545 43275 DMPR DAD
017388,000408: 21,2546 01674 BPLAC +4
017389,000409: 21,2547 01706 WPLATI
017390,000410: 21,2550 54275 DMPR SRR
017391,000411: 21,2551 02125 GEORGEK
017392,000412: 21,2552 01616 13D
017393,000413: 21,2553 77615 DAD
017394,000414: 21,2554 01636 ANGY
017395,000415: 21,2555 07636 STODL ANGY
017396,000416: 21,2556 01700 BPLAC +8D
017397,000417: 21,2557 76405 DMP SL1R # MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
017398,000418: 21,2560 01710 WPLATT
017399,000419: 21,2561 57325 PDDL DMPR
017400,000420: 21,2562 01672 BPLAC +2
017401,000421: 21,2563 01704 WPLATO
017402,000422: 21,2564 77621 BDSU
017403,000423: 21,2565 54275 DMPR SRR
017404,000424: 21,2566 02125 GEORGEK
017405,000425: 21,2567 01616 13D
017406,000426: 21,2570 77615 DAD
017407,000427: 21,2571 01632 ANGZ
017408,000428: 21,2572 01632 STORE ANGZ
017409,000429:
017410,000430: 21,2573 77725 SETUPER1 PDDL # ANGLES FROM DRIFT TEST ONLY
017411,000431: 21,2574 01636 ANGY
017412,000432: 21,2575 55525 PDDL VDEF
017413,000433: 21,2576 01640 ANGX
017414,000434: 21,2577 74276 VCOMP VXSC
017415,000435: 21,2600 02123 GEORGEJ
017416,000436: 21,2601 74521 MXV VSR1
017417,000437: 21,2602 01001 GEOMTRX
017418,000438: 21,2603 01622 STORE TORQUE
017419,000439: 21,2604 77776 EXIT
017420,000440:
017421,000441: 21,2605 11730 CCS UE5,1730
017422,000442: 21,2606 03055 TC TORQINCH
017423,000443:
017424,000444: 21,2607 31546 CA QPLACE
017425,000445: 21,2610 14105 TCF BANKJUMP
017426,000446:
017427,000447:
017428,000448: 21,2611 77743 ALFDK DEC -28 B-14 # SLOPES AND TIME CONSTANTS FOR FIRST 30SC
017429,000449: 21,2612 77776 DEC -1 B-14
017430,000450: 21,2613 35143 10237 2DEC .91230833 # TIME CONSTANTS-PIPA OUTPUTS
017431,000451:
017432,000452: 21,2615 31766 26106 2DEC .81193187 # TIME CONSTANT-ERECTION ANGLES
017433,000453:
017434,000454: 21,2617 77772 43677 2DEC -.00035882 # SLOPE-AZIMUTH ANGLE
017435,000455:
017436,000456: 21,2621 77777 77661 2DEC -.00000029 # SLOPE-VERTICAL DRIFT
017437,000457:
017438,000458: 21,2623 00002 05420 2DEC .00013262 # SLOPE-NORTH SOUTH DRIFT
017439,000459:
017440,000460:
017441,000461: 21,2625 77705 DEC -58 B-14 # 31-90 SEC
017442,000462: 21,2626 77776 DEC -1 B-14
017443,000463: 21,2627 37560 05346 2DEC .99122133
017444,000464:
017445,000465: 21,2631 37522 15525 2DEC .98940595
017446,000466:
017447,000467: 21,2633 77763 41604 2DEC -.00079010
017448,000468:
017449,000469: 21,2635 77777 76470 2DEC -.00000265
017450,000470:
017451,000471: 21,2637 00007 02201 2DEC .00043154
017452,000472:
017453,000473:
017454,000474: 21,2641 77767 DEC -8 B-14 # 91-100 SEC
017455,000475: 21,2642 77776 DEC -1 B-14
017456,000476: 21,2643 37773 10042 2DEC .99971021
017457,000477:
017458,000478: 21,2645 37747 30232 2DEC .99852047
017459,000479:
017460,000480: 21,2647 00006 37666 2DEC .00042697
017461,000481:
017462,000482: 21,2651 77777 76703 2DEC -.00000213
017463,000483:
017464,000484: 21,2653 00001 36147 2DEC .00011864
017465,000485:
017466,000486: 21,2655 77635 DEC -98 B-14 # 101-200 SEC
017467,000487: 21,2656 77776 DEC -1 B-14
017468,000488: 21,2657 37666 11022 2DEC .99550063
017469,000489:
017470,000490: 21,2661 37532 33647 2DEC .98992124
017471,000491:
017472,000492: 21,2663 00007 03641 2DEC .00043452
017473,000493:
017474,000494: 21,2665 77777 75713 2DEC -.00000401
017475,000495:
017476,000496: 21,2667 77774 54605 2DEC -.00021980
017477,000497:
017478,000498:
017479,000499: 21,2671 77407 DEC -248 B-14 # 201-450 SEC
017480,000500: 21,2672 77776 DEC -1 B-14
017481,000501: 21,2673 37712 16755 2DEC .99673264
017482,000502:
017483,000503: 21,2675 37630 01160 2DEC .99365467
017484,000504:
017485,000505: 21,2677 00000 23600 2DEC .00003767
017486,000506:
017487,000507: 21,2701 77777 63663 2DEC -.00002317
017488,000508:
017489,000509: 21,2703 77777 56527 2DEC -.00003305
017490,000510:
017491,000511:
017492,000512: 21,2705 77255 DEC -338 B-14 # 451-790 SEC
017493,000513: 21,2706 77776 DEC -1 B-14
017494,000514: 21,2707 37763 23341 2DEC .99924362
017495,000515:
017496,000516: 21,2711 37755 26170 2DEC .99888274
017497,000517:
017498,000518: 21,2713 00000 00254 2DEC .00000064
017499,000519:
017500,000520: 21,2715 77777 52755 2DEC -.00004012
017501,000521:
017502,000522: 21,2717 77777 76764 2DEC -.00000195
017503,000523:
017504,000524:
017505,000525: 21,2721 77147 DEC -408 B-14 # 791-1200 SEC
017506,000526: 21,2722 77776 DEC -1 B-14
017507,000527: 21,2723 37772 02343 2DEC .99963845
017508,000528:
017509,000529: 21,2725 37761 30560 2DEC .99913162
017510,000530:
017511,000531: 21,2727 00000 00362 2DEC .00000090
017512,000532:
017513,000533: 21,2731 00000 17261 2DEC .00002927
017514,000534:
017515,000535: 21,2733 77777 77671 2DEC -.00000026
017516,000536:
017517,000537:
017518,000538: 21,2735 77015 DEC -498 B-14 # 1201-1700 SEC
017519,000539: 21,2736 77776 DEC -1 B-14
017520,000540: 21,2737 37765 12403 2DEC .99934865
017521,000541:
017522,000542: 21,2741 37752 20062 2DEC .99868793
017523,000543:
017524,000544: 21,2743 00000 00224 2DEC .00000055
017525,000545:
017526,000546: 21,2745 00000 06150 2DEC .00001183
017527,000547:
017528,000548: 21,2747 77777 77762 2DEC -.00000005
017529,000549:
017530,000550:
017531,000551: 21,2751 77161 DEC -398 B-14 # 1701-2100 SEC
017532,000552: 21,2752 77776 DEC -1 B-14
017533,000553: 21,2753 37767 12513 2DEC .99947099
017534,000554:
017535,000555: 21,2755 37756 30343 2DEC .99894799
017536,000556:
017537,000557: 21,2757 00000 00060 2DEC .00000018
017538,000558:
017539,000559: 21,2761 00000 01445 2DEC .00000300
017540,000560:
017541,000561: 21,2763 77777 77774 2DEC -.00000001
017542,000562:
017543,000563:
017544,000564: 21,2765 76651 DEC -598 B-14 # 2101-2700 SEC
017545,000565: 21,2766 77776 DEC -1 B-14
017546,000566: 21,2767 37771 02603 2DEC .99957801
017547,000567:
017548,000568: 21,2771 37762 10061 2DEC .99916095
017549,000569:
017550,000570: 21,2773 00000 00023 2DEC .00000007
017551,000571:
017552,000572: 21,2775 00000 00402 2DEC .00000096
017553,000573:
017554,000574: 21,2777 00000 00000 2DEC .00000000
017555,000575:
017556,000576:
017557,000577: 21,3001 76505 DEC -698 B-14 # 2700-3400 SEC
017558,000578: 21,3002 77776 DEC -1 B-14
017559,000579: 21,3003 37772 22005 2DEC .99966814
017560,000580:
017561,000581: 21,3005 37765 05560 2DEC .99933952
017562,000582:
017563,000583: 21,3007 00000 00005 2DEC .00000002
017564,000584:
017565,000585: 21,3011 00000 00113 2DEC .00000028
017566,000586:
017567,000587: 21,3013 00000 00000 2DEC .00000000
017568,000588:
017569,000589:
017570,000590: 21,3015 76651 DEC -598 B-14 # 3401-4000 SEC
017571,000591: 21,3016 77776 DEC -1 B-14
017572,000592: 21,3017 37773 20750 2DEC .99972716
017573,000593:
017574,000594: 21,3021 37767 03044 2DEC .99945654
017575,000595:
017576,000596: 21,3023 00000 00003 2DEC .00000001
017577,000597:
017578,000598: 21,3025 00000 00033 2DEC .00000010
017579,000599:
017580,000600: 21,3027 00000 00000 2DEC .00000000
017581,000601:
017582,000602:
017583,000603: 21,3031 40577 DEC -16000 B-14 # 4001- SEC
017584,000604: 21,3032 77776 DEC -1 B-14
017585,000605: 21,3033 37777 37775 2DEC .99999999
017586,000606:
017587,000607: 21,3035 37777 37775 2DEC .99999999
017588,000608:
017589,000609: 21,3037 00000 00000 2DEC .00000000
017590,000610:
017591,000611: 21,3041 00000 00000 2DEC .00000000
017592,000612:
017593,000613: 21,3043 00000 00000 2DEC .00000000
017594,000614:
017595,000615: 21,3045 35730 00035 SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
017596,000616:
017597,000617: 21,3047 10317 17550 2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
017598,000618:
017599,000619: 21,3051 00004 INTVAL OCT 4
017600,000620: 21,3052 00002 OCT 2
017601,000621: 21,3053 00234 DEC 156 B-14
017602,000622: 21,3054 77776 DEC -1 B-14
017603,000623:
017604,000624: 21,3055 37652 TORQINCH CA ONE
017605,000625: 21,3056 55711 TS ALTIM
017606,000626: 21,3057 06000 TC INTPRET
017607,000627: 21,3060 77775 VLOAD
017608,000628: 21,3061 01622 TORQUE
017609,000629: 21,3062 01522 STORE GYROD
017610,000630: 21,3063 77776 EXIT
017611,000631:
017612,000632: 21,3064 32132 CA LGYROD
017613,000633: 21,3065 04063 TC BANKCALL
017614,000634: 21,3066 26317 CADR IMUPULSE
017615,000635: 21,3067 04063 TC BANKCALL
017616,000636: 21,3070 26716 CADR IMUSTALL
017617,000637: 21,3071 03101 TC SOMERR2
017618,000638: 21,3072 32131 CA DEC4000
017619,000639: 21,3073 55527 TS LENGTHOT
017620,000640: 21,3074 02002 TC RSTGTS1
017621,000641:
017622,000642: 21,3075 05315 SOMERR1 TC ALARM
017623,000643: 21,3076 01601 OCT 1601
017624,000644: 21,3077 04063 TC BANKCALL
017625,000645: 21,3100 30752 CADR ENDTEST
017626,000646:
017627,000647: 21,3101 05315 SOMERR2 TC ALARM
017628,000648: 21,3102 01602 OCT 1602
017629,000649: 21,3103 04063 TC BANKCALL
017630,000650: 21,3104 30752 CADR ENDTEST
017631,000651:
017632,000652: 21,3105 ENDPREL1 EQUALS
End of include-file OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc. Parent file is MAIN.agc