Source Code
![]() |
YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS BY MSTEWART MAR. 27,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
022114,000002: ## Copyright: Public domain.
022115,000003: ## Filename: OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc
022116,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
022117,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
022118,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
022119,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
022120,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
022121,000009: ## Validation.
022122,000010: ## Assembler: yaYUL
022123,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
022124,000012: ## Website: www.ibiblio.org/apollo/index.html
022125,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
022126,000014:
022127,000015: # THIS PROGRAM USES A VERTICAL,SOUTH,EAST COORDINATE SYSTEM FOR PIPAS
022128,000016: 21,2000 BANK 21
022129,000017: 21,2000 E5,1400 EBANK= XSM
022130,000018:
022131,000019: # G SCHMIDT SIMPLIFIED ESTIMATION PROGRAM FOR ALIGNMENT CALIBRATION. THE
022132,000020: # PROGRAM IS COMPLETELY RESTART PROFED. DATA STORED IN BANK4.
022133,000021: 21,2000 04575 ESTIMS TC PHASCHNG
022134,000022: 21,2001 00101 OCT 00101
022135,000023: 21,2002 00004 RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
022136,000024: 21,2003 30025 CA TIME1
022137,000025: 21,2004 55745 TS GTSWTLST
022138,000026: 21,2005 37665 CAF ZERO # ZERO THE PIPAS
022139,000027: 21,2006 54037 TS PIPAX
022140,000028: 21,2007 54040 TS PIPAY
022141,000029: 21,2010 54041 TS PIPAZ
022142,000030: 21,2011 54404 TS DELVX +1
022143,000031: 21,2012 54406 TS DELVY +1
022144,000032: 21,2013 54410 TS DELVZ +1
022145,000033: 21,2014 00003 RELINT
022146,000034: 21,2015 02753 TC SETUPER
022147,000035: 21,2016 33360 CA 77DECML
022148,000036: 21,2017 55776 TS ZERONDX
022149,000037: 21,2020 33361 CA ALXXXZ
022150,000038: 21,2021 04065 TC BANKCALL
022151,000039: 21,2022 37236 CADR ZEROING
022152,000040: 21,2023 06000 TC INTPRET
022153,000041: 21,2024 77775 VLOAD
022154,000042: 21,2025 03353 INTVAL +2
022155,000043: 21,2026 01601 STORE ALX1S
022156,000044: 21,2027 77776 EXIT
022157,000045:
022158,000046: 21,2030 11742 CCS GEOCOMPS # GEOCOMPS IN NON ZERO IF COMPASS
022159,000047: 21,2031 02033 TC +2
022160,000048: 21,2032 02667 TC SLEEPIE +1
022161,000049: 21,2033 31527 CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
022162,000050: 21,2034 55746 TS ERECTIME
022163,000051:
022164,000052: 21,2035 04650 TC NEWMODEX
022165,000053: 21,2036 00005 OCT 05
022166,000054: 21,2037 04065 TC BANKCALL
022167,000055: 21,2040 16345 CADR GCOMPZER # ZERO COMPENSATION PROGRAM REGISTERS
022168,000056: 21,2041 02740 TC ANNNNNN
022169,000057:
022170,000058: 21,2042 00004 ALLOOP INHINT # TASK EVERY .5 OR 1 SEC (COMPASS-DRIFT)
022171,000059: 21,2043 30025 CA TIME1
022172,000060: 21,2044 55745 TS GTSWTLST # STORE TIME TO SET UP NEXT WAITLIST
022173,000061: 21,2045 31664 ALLOOP3 CA ALTIM
022174,000062: 21,2046 55716 TS GEOSAVED
022175,000063: 21,2047 04575 TC PHASCHNG
022176,000064: 21,2050 00201 OCT 00201
022177,000065: 21,2051 02053 TC +2
022178,000066:
022179,000067: 21,2052 00004 ALLOOP1 INHINT # RESTARTS COME IN HERE
022180,000068: 21,2053 31716 CA GEOSAVED
022181,000069: 21,2054 55664 TS ALTIM
022182,000070: 21,2055 10000 CCS A
022183,000071: 21,2056 30000 CA A # SHOULD NEVER HIT THIS LOCATION
022184,000072: 21,2057 55665 TS ALTIMS
022185,000073: 21,2060 40000 CS A
022186,000074: 21,2061 55664 TS ALTIM
022187,000075: 21,2062 30037 CA PIPAX
022188,000076: 21,2063 54403 TS DELVX
022189,000077: 21,2064 30040 CA PIPAY
022190,000078: 21,2065 54405 TS DELVY
022191,000079: 21,2066 30041 CA PIPAZ
022192,000080: 21,2067 54407 TS DELVZ
022193,000081: 21,2070 37665 CAF ZERO
022194,000082: 21,2071 54037 TS PIPAX
022195,000083: 21,2072 54040 TS PIPAY
022196,000084: 21,2073 54041 TS PIPAZ
022197,000085: 21,2074 04575 TC PHASCHNG
022198,000086: 21,2075 00701 OCT 00701
022199,000087: 21,2076 00003 RELINT
022200,000088: 21,2077 37642 SPECSTS CAF PRIO20
022201,000089: 21,2100 04355 TC FINDVAC
022202,000090: 21,2101 02104 42005 2CADR ALFLT # START THE JOB
022203,000091:
022204,000092: 21,2103 04563 TC TASKOVER
022205,000093:
022206,000094: 21,2104 03047 ALFLT TC STOREDTA # STORE DATA IN CASE OF RESTART IN JOB
022207,000095: 21,2105 04575 TC PHASCHNG # THIS IS THE JOB DONE EVERY ITERATION
022208,000096: 21,2106 00601 OCT 00601
022209,000097: 21,2107 11742 CCS GEOCOMPS
022210,000098: 21,2110 02112 TC +2
022211,000099: 21,2111 02116 TC NORMLOP
022212,000100: 21,2112 04065 TC BANKCALL # COMPENSATION IF IN COMPASS
022213,000101: 21,2113 16000 CADR 1/PIPA
022214,000102: 21,2114 02116 TC NORMLOP
022215,000103:
022216,000104:
022217,000105: 21,2115 03070 ALFLT1 TC LOADSTDT # COMES HERE ON RESTART
022218,000106:
022219,000107: 21,2116 06000 NORMLOP TC INTPRET
022220,000108: 21,2117 77745 DLOAD
022221,000109: 21,2120 03351 INTVAL
022222,000110: 21,2121 00051 STORE S1 # STEP REGISTERS MAY HAVE BEEN WIPED OUT
022223,000111: 21,2122 53135 SLOAD BZE
022224,000112: 21,2123 01743 GEOCOMPS
022225,000113: 21,2124 42127 ALCGKK
022226,000114: 21,2125 77650 GOTO
022227,000115: 21,2126 42144 ALFLT2
022228,000116: 21,2127 50135 ALCGKK SLOAD BMN
022229,000117: 21,2130 01666 ALTIMS
022230,000118: 21,2131 42144 ALFLT2
022231,000119: 21,2132 72174 ALKCG AXT,2 LXA,1 # LOADS SLOPES AND TIME CONSTANTS AT RQST
022232,000120: 21,2133 00014 12D
022233,000121: 21,2134 01600 ALX1S
022234,000122: 21,2135 62143 ALKCG2 DLOAD* INCR,1
022235,000123: 21,2136 03343 ALFDK +144D,1
022236,000124: 21,2137 77775 DEC -2 B-14
022237,000125: 21,2140 05701 STORE ALDK +10D,2
022238,000126: 21,2141 66104 TIX,2 SXA,1
022239,000127: 21,2142 42135 ALKCG2
022240,000128: 21,2143 01600 ALX1S
022241,000129:
022242,000130: 21,2144 61375 ALFLT2 VLOAD VXM
022243,000131: 21,2145 00404 DELVX
022244,000132: 21,2146 01750 GEOMTRX
022245,000133: 21,2147 77772 VSL1
022246,000134: 21,2150 57545 DLOAD DCOMP
022247,000135: 21,2151 00144 MPAC +3
022248,000136: 21,2152 07657 STODL DPIPAY
022249,000137: 21,2153 00146 MPAC +5
022250,000138: 21,2154 01663 STORE DPIPAZ
022251,000139:
022252,000140: 21,2155 76001 SETPD AXT,1 # MEASUREMENT INCORPORATION ROUTINES.
022253,000141: 21,2156 00001 0
022254,000142: 21,2157 00010 8D
022255,000143: 21,2160 53135 SLOAD BZE
022256,000144: 21,2161 01743 GEOCOMPS
022257,000145: 21,2162 42165 DELMLP
022258,000146: 21,2163 77650 GOTO
022259,000147: 21,2164 42466 ALWAYSG # DO A QUICK COMPASS
022260,000148:
022261,000149: 21,2165 41343 DELMLP DLOAD* DMP
022262,000150: 21,2166 01667 DPIPAY +8D,1
022263,000151: 21,2167 03364 PIPASC
022264,000152: 21,2170 42661 SLR DAD*
022265,000153: 21,2171 01212 9D
022266,000154: 21,2172 01715 DELM +8D,1
022267,000155: 21,2173 64623 DSU* PDDL*
022268,000156: 21,2174 01635 INTY +8D,1
022269,000157: 21,2175 01655 VLAUN +8D,1
022270,000158: 21,2176 41223 DSU* DMP
022271,000159: 21,2177 01627 VLAUNS +8D,1
022272,000160: 21,2200 03366 VELSC
022273,000161: 21,2201 77732 SL2R
022274,000162: 21,2202 45415 DAD STADR
022275,000163: 21,2203 74062 STORE DELM +8D,1
022276,000164: 21,2204 17717 STODL* DELM +10D,1
022277,000165: 21,2205 01655 VLAUN +8D,1
022278,000166: 21,2206 11627 STODL VLAUNS +8D,1
022279,000167: 21,2207 03347 INTVAL -2
022280,000168: 21,2210 03635 STORE INTY +8D,1
022281,000169: 21,2211 77100 TIX,1 AXT,2
022282,000170: 21,2212 42165 DELMLP
022283,000171: 21,2213 00004 4
022284,000172: 21,2214 56743 ALILP DLOAD* DMPR*
022285,000173: 21,2215 76170 ALK +4,2
022286,000174: 21,2216 76104 ALDK +4,2
022287,000175: 21,2217 05607 STORE ALK +4,2
022288,000176: 21,2220 77104 TIX,2 AXT,2
022289,000177: 21,2221 42214 ALILP
022290,000178: 21,2222 00010 8D
022291,000179: 21,2223 66140 ALKLP LXC,1 SXA,1
022292,000180: 21,2224 01601 CMPX1
022293,000181: 21,2225 01601 CMPX1
022294,000182: 21,2226 56743 DLOAD* DMPR*
022295,000183: 21,2227 01604 ALK +1,1
022296,000184: 21,2230 76062 DELM +8D,2
022297,000185: 21,2231 77613 DAD*
022298,000186: 21,2232 76142 INTY +8D,2
022299,000187: 21,2233 21635 STODL* INTY +8D,2
022300,000188: 21,2234 76160 ALK +12D,2
022301,000189: 21,2235 77613 DAD*
022302,000190: 21,2236 76074 ALDK +12D,2
022303,000191: 21,2237 05617 STORE ALK +12D,2
022304,000192: 21,2240 42673 DMPR* DAD*
022305,000193: 21,2241 76062 DELM +8D,2
022306,000194: 21,2242 76132 INTY +16D,2
022307,000195: 21,2243 21645 STODL* INTY +16D,2
022308,000196: 21,2244 03371 ALSK +1,1
022309,000197: 21,2245 76403 DMP* SL1R
022310,000198: 21,2246 76062 DELM +8D,2
022311,000199: 21,2247 77613 DAD*
022312,000200: 21,2250 76122 VLAUN +8D,2
022313,000201: 21,2251 05655 STORE VLAUN +8D,2
022314,000202: 21,2252 76104 TIX,2 AXT,1
022315,000203: 21,2253 42223 ALKLP
022316,000204: 21,2254 00010 8D
022317,000205:
022318,000206:
022319,000207: 21,2255 64743 LOOSE DLOAD* PDDL*
022320,000208: 21,2256 01657 ACCWD +8D,1
022321,000209: 21,2257 01655 VLAUN +8D,1
022322,000210: 21,2260 55523 PDDL* VDEF
022323,000211: 21,2261 01665 POSNV +8D,1
022324,000212: 21,2262 76521 MXV VSL1
022325,000213: 21,2263 01721 TRANSM1
022326,000214: 21,2264 77745 DLOAD
022327,000215: 21,2265 00141 MPAC
022328,000216: 21,2266 11665 STODL POSNV +8D,1
022329,000217: 21,2267 00144 MPAC +3
022330,000218: 21,2270 11655 STODL VLAUN +8D,1
022331,000219: 21,2271 00146 MPAC +5
022332,000220: 21,2272 03657 STORE ACCWD +8D,1
022333,000221: 21,2273 77700 TIX,1
022334,000222: 21,2274 42255 LOOSE
022335,000223:
022336,000224:
022337,000225: 21,2275 76174 AXT,2 AXT,1 # EVALUATE SINES AND COSINES
022338,000226: 21,2276 00006 6
022339,000227: 21,2277 00002 2
022340,000228: 21,2300 57343 BOOP DLOAD* DMPR
022341,000229: 21,2301 01637 ANGX +2,1
022342,000230: 21,2302 03374 GEORGEJ
022343,000231: 21,2303 77722 SR2R
022344,000232: 21,2304 73406 PUSH SIN
022345,000233: 21,2305 56172 SL1R XAD,1
022346,000234: 21,2306 00046 X1
022347,000235: 21,2307 12021 STODL 16D,2
022348,000236: 21,2310 77746 COS
022349,000237: 21,2311 04027 STORE 22D,2 # COSINES
022350,000238: 21,2312 71304 TIX,2 DLOAD
022351,000239: 21,2313 42300 BOOP
022352,000240: 21,2314 00017 14D
022353,000241: 21,2315 43312 SL2 DAD
022354,000242: 21,2316 01625 INTY
022355,000243: 21,2317 07625 STODL INTY
022356,000244: 21,2320 00015 12D
022357,000245: 21,2321 56405 DMP SL3R
022358,000246: 21,2322 00025 20D
022359,000247: 21,2323 77615 DAD
022360,000248: 21,2324 01631 INTZ
022361,000249: 21,2325 07631 STODL INTZ
022362,000250: 21,2326 00021 16D
022363,000251: 21,2327 57275 DMPR DMPR
022364,000252: 21,2330 00023 18D
022365,000253: 21,2331 00017 14D
022366,000254: 21,2332 77712 SL2
022367,000255: 21,2333 57325 PDDL DMPR
022368,000256: 21,2334 00013 10D
022369,000257: 21,2335 00015 12D
022370,000258: 21,2336 77615 DAD
022371,000259: 21,2337 77675 DMPR
022372,000260: 21,2340 01573 WANGI
022373,000261: 21,2341 57325 PDDL DMPR
022374,000262: 21,2342 00023 18D
022375,000263: 21,2343 00025 20D
022376,000264: 21,2344 66405 DMP SL2R
022377,000265: 21,2345 01571 WANGO
022378,000266: 21,2346 77621 BDSU
022379,000267: 21,2347 01637 DRIFTO
022380,000268: 21,2350 45425 DSU STADR
022381,000269: 21,2351 70156 STODL WPLATO
022382,000270: 21,2352 00021 16D
022383,000271: 21,2353 41275 DMPR DMP
022384,000272: 21,2354 00025 20D
022385,000273: 21,2355 01573 WANGI
022386,000274: 21,2356 77732 SL2R
022387,000275: 21,2357 57325 PDDL DMPR
022388,000276: 21,2360 01571 WANGO
022389,000277: 21,2361 00017 14D
022390,000278: 21,2362 77615 DAD
022391,000279: 21,2363 01641 DRIFTI
022392,000280: 21,2364 77625 DSU
022393,000281: 21,2365 57325 PDDL DMPR
022394,000282: 21,2366 01575 WANGT
022395,000283: 21,2367 01573 WANGI
022396,000284: 21,2370 45415 DAD STADR
022397,000285: 21,2371 70062 STODL WPLATI
022398,000286: 21,2372 00023 18D
022399,000287: 21,2373 76405 DMP SL1R
022400,000288: 21,2374 00013 10D
022401,000289: 21,2375 57325 PDDL DMPR
022402,000290: 21,2376 00015 12D
022403,000291: 21,2377 00021 16D
022404,000292: 21,2400 76405 DMP SL1R
022405,000293: 21,2401 00017 14D
022406,000294: 21,2402 77621 BDSU
022407,000295: 21,2403 77675 DMPR
022408,000296: 21,2404 01573 WANGI
022409,000297: 21,2405 57325 PDDL DMPR
022410,000298: 21,2406 00015 12D
022411,000299: 21,2407 00025 20D
022412,000300: 21,2410 76405 DMP SL1R
022413,000301: 21,2411 01571 WANGO
022414,000302: 21,2412 77621 BDSU
022415,000303: 21,2413 01577 DRIFTT
022416,000304: 21,2414 77615 DAD # WPLATT NOW IN MPAC
022417,000305: 21,2415 77606 PUSH # PUSH IT DOWN-X IT BY SANG +2
022418,000306: 21,2416 74475 DMPR SR1R
022419,000307: 21,2417 00015 12D
022420,000308: 21,2420 57325 PDDL DMPR
022421,000309: 21,2421 01621 WPLATO
022422,000310: 21,2422 00023 18D
022423,000311: 21,2423 77615 DAD
022424,000312: 21,2424 77671 DDV
022425,000313: 21,2425 00025 20D
022426,000314: 21,2426 57206 PUSH DMPR
022427,000315: 21,2427 03376 GEORGEK
022428,000316: 21,2430 43261 SRR DAD
022429,000317: 21,2431 01616 13D
022430,000318: 21,2432 01635 ANGX
022431,000319: 21,2433 07635 STODL ANGX
022432,000320: 21,2434 43275 DMPR DAD
022433,000321: 21,2435 00017 14D
022434,000322: 21,2436 01715 WPLATI
022435,000323: 21,2437 54275 DMPR SRR
022436,000324: 21,2440 03376 GEORGEK
022437,000325: 21,2441 01616 13D
022438,000326: 21,2442 77615 DAD
022439,000327: 21,2443 01633 ANGY
022440,000328: 21,2444 07633 STODL ANGY
022441,000329: 21,2445 00023 18D
022442,000330: 21,2446 76405 DMP SL1R # MULTIPLY X WPLATT -SL1- PUSH AND RELOAD
022443,000331: 21,2447 57325 PDDL DMPR
022444,000332: 21,2450 00015 12D
022445,000333: 21,2451 01621 WPLATO
022446,000334: 21,2452 77621 BDSU
022447,000335: 21,2453 54275 DMPR SRR
022448,000336: 21,2454 03376 GEORGEK
022449,000337: 21,2455 01616 13D
022450,000338: 21,2456 77615 DAD
022451,000339: 21,2457 01627 ANGZ
022452,000340: 21,2460 01627 STORE ANGZ
022453,000341: 21,2461 77404 BOVB EXIT
022454,000342: 21,2462 42716 SOMEERRR
022455,000343: 21,2463 11527 CCS LENGTHOT
022456,000344: 21,2464 02666 TC SLEEPIE
022457,000345: 21,2465 02631 TC SETUPER1
022458,000346:
022459,000347:
022460,000348: 21,2466 44743 ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
022461,000349: 21,2467 01667 DPIPAY +8D,1
022462,000350: 21,2470 01655 FILDELV +8D,1
022463,000351: 21,2471 42675 DMPR DAD*
022464,000352: 21,2472 03400 GEOCONS1
022465,000353: 21,2473 01655 FILDELV +8D,1
022466,000354: 21,2474 03655 STORE FILDELV +8D,1
022467,000355: 21,2475 77613 DAD*
022468,000356: 21,2476 01657 INTVEC +8D,1
022469,000357: 21,2477 03657 STORE INTVEC +8D,1
022470,000358: 21,2500 42675 DMPR DAD*
022471,000359: 21,2501 03402 GEOCONS2
022472,000360: 21,2502 01655 FILDELV +8D,1
022473,000361: 21,2503 41475 DMPR PUSH
022474,000362: 21,2504 03400 GEOCONS1
022475,000363: 21,2505 67300 TIX,1 SLOAD
022476,000364: 21,2506 42466 ALWAYSG
022477,000365: 21,2507 01747 ERECTIME
022478,000366: 21,2510 71254 BZE DLOAD
022479,000367: 21,2511 42522 COMPGS # COMPASS
022480,000368: 21,2512 01627 THETAN +2
022481,000369: 21,2513 45425 DSU STADR
022482,000370: 21,2514 70150 STODL THETAN +2
022483,000371: 21,2515 77621 BDSU
022484,000372: 21,2516 01631 THETAN +4
022485,000373: 21,2517 01631 STORE THETAN +4
022486,000374: 21,2520 77650 GOTO
022487,000375: 21,2521 42544 ADDINDRF
022488,000376: 21,2522 43345 COMPGS DLOAD DAD # COMPASS
022489,000377: 21,2523 01625 THETAN
022490,000378: 21,2524 01645 FILDELV
022491,000379: 21,2525 07625 STODL THETAN
022492,000380: 21,2526 01645 FILDELV
022493,000381: 21,2527 44275 DMPR BDSU
022494,000382: 21,2530 03404 GEOCONS3
022495,000383: 21,2531 01631 THETAN +4
022496,000384: 21,2532 07631 STODL THETAN +4
022497,000385: 21,2533 01651 FILDELV +4
022498,000386: 21,2534 44275 DMPR BDSU
022499,000387: 21,2535 03404 GEOCONS3
022500,000388: 21,2536 01627 THETAN +2
022501,000389: 21,2537 41325 PDDL DMP
022502,000390: 21,2540 01653 INTVEC +4
022503,000391: 21,2541 03406 GEOCONS4
022504,000392: 21,2542 45421 BDSU STADR
022505,000393: 21,2543 76150 STORE THETAN +2
022506,000394: 21,2544 64375 ADDINDRF VLOAD MXV
022507,000395: 21,2545 01625 THETAN
022508,000396: 21,2546 01750 GEOMTRX
022509,000397: 21,2547 53372 VSL1 VAD
022510,000398: 21,2550 01617 THETAX
022511,000399: 21,2551 01617 STORE THETAX
022512,000400: 21,2552 77776 EXIT
022513,000401:
022514,000402: 21,2553 11527 ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
022515,000403: 21,2554 02666 TC SLEEPIE # NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
022516,000404: 21,2555 10357 CCS LGYRO # YES BUT ARE GYROS BUSY
022517,000405: 21,2556 12742 TCF ANNNNNN +2 # BUSY-GET THEM .5 SECONDS FROM NOW
022518,000406:
022519,000407: 21,2557 04575 TC PHASCHNG
022520,000408: 21,2560 00401 OCT 00401
022521,000409: 21,2561 06000 TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
022522,000410: 21,2562 53375 VLOAD VAD
022523,000411: 21,2563 01617 THETAX
022524,000412: 21,2564 01772 ERCOMP
022525,000413: 21,2565 01772 STORE ERCOMP
022526,000414: 21,2566 77776 EXIT
022527,000415: 21,2567 04065 TC BANKCALL
022528,000416: 21,2570 30422 CADR EARTHR # TORQUE IT ALL IN
022529,000417:
022530,000418: 21,2571 00004 RESTEST1 INHINT # CHECK ON ORIENTATION CHANGE
022531,000419: 21,2572 31717 CA PREMTRXC
022532,000420: 21,2573 00006 EXTEND
022533,000421: 21,2574 62727 BZMF NOCHORLD # +1 -CHANGE, 0 OR -1 NO LOAD OR LOADING
022534,000422: 21,2575 03107 TC LOADXSM # IF THERE WAS A CHANGE LOAD IT INTO XSM
022535,000423: 21,2576 04575 TC PHASCHNG
022536,000424: 21,2577 01001 OCT 01001
022537,000425: 21,2600 37665 RESTEST3 CA ZERO # RESET CHANGE INDEX TO ZERO
022538,000426: 21,2601 55717 TS PREMTRXC
022539,000427: 21,2602 00003 RELINT
022540,000428: 21,2603 06000 TC INTPRET # HERE TO CHANGE ORIENTATOON
022541,000429: 21,2604 77770 AXT,1 # DESIRED IN XSM,PRESENT IN GEOMTRX
022542,000430: 21,2605 00022 18D
022543,000431: 21,2606 77731 SSP
022544,000432: 21,2607 00051 S1
022545,000433: 21,2610 00006 6
022546,000434: 21,2611 50373 LOADM VLOAD* DOT
022547,000435: 21,2612 01423 XSM +18D,1
022548,000436: 21,2613 01764 GEOMTRX +12D
022549,000437: 21,2614 50313 PDVL* DOT
022550,000438: 21,2615 01423 XSM +18D,1
022551,000439: 21,2616 01756 GEOMTRX +6D
022552,000440: 21,2617 50313 PDVL* DOT
022553,000441: 21,2620 01423 XSM +18D,1
022554,000442: 21,2621 01750 GEOMTRX
022555,000443: 21,2622 53466 VDEF UNIT
022556,000444: 21,2623 03445 STORE XDC +18D,1
022557,000445: 21,2624 47100 TIX,1 CALL
022558,000446: 21,2625 42611 LOADM
022559,000447: 21,2626 32367 CALCGTA
022560,000448: 21,2627 77776 EXIT
022561,000449: 21,2630 02645 TC TORQINCH # NECESSARY TORQUE NOW IN OGC
022562,000450:
022563,000451:
022564,000452: 21,2631 06000 SETUPER1 TC INTPRET
022565,000453: 21,2632 65345 DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY
022566,000454: 21,2633 01627 ANGZ
022567,000455: 21,2634 01633 ANGY
022568,000456: 21,2635 55525 PDDL VDEF
022569,000457: 21,2636 01635 ANGX
022570,000458: 21,2637 74276 VCOMP VXSC
022571,000459: 21,2640 03374 GEORGEJ
022572,000460: 21,2641 74521 MXV VSR1
022573,000461: 21,2642 01750 GEOMTRX
022574,000462: 21,2643 01501 STORE OGC
022575,000463: 21,2644 77776 EXIT
022576,000464:
022577,000465:
022578,000466: 21,2645 04575 TORQINCH TC PHASCHNG
022579,000467: 21,2646 00501 OCT 00501
022580,000468: 21,2647 33362 CA AINGYRO
022581,000469: 21,2650 04065 TC BANKCALL
022582,000470: 21,2651 26317 CADR IMUPULSE
022583,000471: 21,2652 04065 TC BANKCALL
022584,000472: 21,2653 26716 CADR IMUSTALL
022585,000473: 21,2654 02721 TC SOMERR2 # BAD GYRO TORQUE-END OF TEST
022586,000474:
022587,000475: 21,2655 11574 GEOSTRT4 CCS TORQNDX # ONLY POSITIVE IF IN VERTICAL DRIFT TEST
022588,000476: 21,2656 02664 TC GEOBAVR # VERT DRIFT TEST OVER
022589,000477: 21,2657 02753 TC SETUPER # SET UP ERATE FOR PIPTEST OR COMPASS
022590,000478: 21,2660 11742 CCS GEOCOMPS
022591,000479: 21,2661 02725 TC TQORESTM
022592,000480: 21,2662 04065 TC BANKCALL # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
022593,000481: 21,2663 36075 CADR TORQUE
022594,000482:
022595,000483: 21,2664 04065 GEOBAVR TC BANKCALL
022596,000484: 21,2665 36223 CADR VALMIS # DISPLAY VERTICAL DRIFT
022597,000485:
022598,000486:
022599,000487: # SET UP WAITLIST SECTION
022600,000488:
022601,000489: 21,2666 55527 SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT
022602,000490: 21,2667 04575 TC PHASCHNG # CHANGE PHASE
022603,000491: 21,2670 00301 OCT 00301
022604,000492: 21,2671 11574 CCS TORQNDX # ARE WE DOING VERTDRIFT
022605,000493: 21,2672 02674 TC EARTTPRQ # YES,DO HOR ERATE TORQ THEN SLEEP
022606,000494: 21,2673 02676 TC WTLISTNT # GO TO SET UP NEXT WAITLIST
022607,000495: 21,2674 04065 EARTTPRQ TC BANKCALL # IN VERTDRIFT,ADD HOR ERATE AND SLEEP
022608,000496: 21,2675 30422 CADR EARTHR
022609,000497: 21,2676 00004 WTLISTNT INHINT
022610,000498: 21,2677 40025 CS TIME1
022611,000499: 21,2700 61745 AD GTSWTLST
022612,000500: 21,2701 00006 EXTEND
022613,000501: 21,2702 62704 BZMF +2
022614,000502: 21,2703 67641 AD NEGMAX
022615,000503: 21,2704 61744 AD 1SECXT # 1 SEC FOR CALIBRATION,.5 SEC IN COMPASS
022616,000504: 21,2705 00006 EXTEND
022617,000505: 21,2706 62714 BZMF RIGHTGTS
022618,000506: 21,2707 04517 WTGTSMPL TC WAITLIST
022619,000507: 21,2710 02042 42005 2CADR ALLOOP
022620,000508:
022621,000509: 21,2712 00003 RELINT
022622,000510: 21,2713 04421 TC ENDOFJOB
022623,000511: 21,2714 37656 RIGHTGTS CAF TWO
022624,000512: 21,2715 02707 TC WTGTSMPL
022625,000513:
022626,000514:
022627,000515: 21,2716 05405 SOMEERRR TC ALARM
022628,000516: 21,2717 01600 OCT 1600
022629,000517: 21,2720 02723 TC +3
022630,000518: 21,2721 05405 SOMERR2 TC ALARM
022631,000519: 21,2722 01601 OCT 1601
022632,000520: 21,2723 04065 TC BANKCALL
022633,000521: 21,2724 30745 CADR ENDTEST
022634,000522:
022635,000523: 21,2725 04065 TQORESTM TC BANKCALL
022636,000524: 21,2726 37612 CADR LOADGTSM # LOAD NEW XSM MATRIX INTO GEOMTRX
022637,000525:
022638,000526: 21,2727 00003 NOCHORLD RELINT # AFTER CHANGEIN ORIEN OR NO CHANGE
022639,000527: 21,2730 06000 TC INTPRET
022640,000528: 21,2731 77775 VLOAD
022641,000529: 21,2732 03343 SCHZEROS
022642,000530: 21,2733 01617 STORE THETAX
022643,000531: 21,2734 01625 STORE THETAN
022644,000532: 21,2735 77776 EXIT
022645,000533: 21,2736 11746 CCS ERECTIME
022646,000534: 21,2737 55746 TS ERECTIME # COUNTS DOWN FOR ERECTION
022647,000535:
022648,000536: 21,2740 37662 ANNNNNN CAF NINE
022649,000537: 21,2741 55527 TS LENGTHOT
022650,000538: 21,2742 11746 CCS ERECTIME
022651,000539: 21,2743 02667 TC SLEEPIE +1
022652,000540: 21,2744 04663 TC CHECKMM # IN COMPASS CHECK FOR VERIFICATION
022653,000541: 21,2745 00003 OCT 03
022654,000542: 21,2746 02750 TC +2 # NOT VERIFYING
022655,000543: 21,2747 02667 TC SLEEPIE +1 # YES
022656,000544: 21,2750 04650 TC NEWMODEX
022657,000545: 21,2751 00002 OCT 02
022658,000546: 21,2752 02667 TC SLEEPIE +1 # COMPASS IS 02 -ERECTION 05
022659,000547: 21,2753 00006 SETUPER EXTEND # SUBROUTINE CALLED IN 3 PLACES
022660,000548: 21,2754 23547 QXCH QPLACES
022661,000549: 21,2755 06000 TC INTPRET
022662,000550: 21,2756 77634 CALL
022663,000551: 21,2757 30405 ERTHRVSE
022664,000552: 21,2760 77776 EXIT
022665,000553: 21,2761 04065 TC BANKCALL
022666,000554: 21,2762 30727 CADR OGCZERO
022667,000555: 21,2763 01547 TC QPLACES
022668,000556:
022669,000557: 21,2764 51074 OPTMSTRT INDEX PHASE1
022670,000558: 21,2765 02765 TC +0
022671,000559: 21,2766 02776 TC GTSGTS1
022672,000560: 21,2767 03003 TC GTSGTS2
022673,000561: 21,2770 03010 TC GTSGTS3
022674,000562: 21,2771 03015 TC GTSGTS4
022675,000563: 21,2772 03022 TC GTSGTS5
022676,000564: 21,2773 03027 TC GTSGTS6
022677,000565: 21,2774 03034 TC GTSGTS7
022678,000566: 21,2775 03040 TC GTSGTS10
022679,000567:
022680,000568:
022681,000569: 21,2776 37642 GTSGTS1 CAF PRIO20
022682,000570: 21,2777 04355 TC FINDVAC
022683,000571: 21,3000 02002 42005 2CADR RSTGTS1
022684,000572:
022685,000573: 21,3002 04100 TC SWRETURN
022686,000574: 21,3003 37657 GTSGTS2 CAF ONE
022687,000575: 21,3004 04517 TC WAITLIST
022688,000576: 21,3005 02052 42005 2CADR ALLOOP1
022689,000577:
022690,000578: 21,3007 04100 TC SWRETURN
022691,000579: 21,3010 37642 GTSGTS3 CAF PRIO20
022692,000580: 21,3011 04355 TC FINDVAC
022693,000581: 21,3012 02676 42005 2CADR WTLISTNT
022694,000582:
022695,000583: 21,3014 04100 TC SWRETURN
022696,000584: 21,3015 37642 GTSGTS4 CAF PRIO20
022697,000585: 21,3016 04355 TC FINDVAC
022698,000586: 21,3017 02571 42005 2CADR RESTEST1
022699,000587:
022700,000588: 21,3021 04100 TC SWRETURN
022701,000589: 21,3022 37642 GTSGTS5 CAF PRIO20
022702,000590: 21,3023 04355 TC FINDVAC
022703,000591: 21,3024 02655 42005 2CADR GEOSTRT4
022704,000592:
022705,000593: 21,3026 04100 TC SWRETURN
022706,000594: 21,3027 37642 GTSGTS6 CAF PRIO20
022707,000595: 21,3030 04355 TC FINDVAC
022708,000596: 21,3031 02115 42005 2CADR ALFLT1
022709,000597:
022710,000598: 21,3033 04100 TC SWRETURN
022711,000599:
022712,000600: 21,3034 37657 GTSGTS7 CAF ONE
022713,000601: 21,3035 04517 TC WAITLIST
022714,000602: 21,3036 02077 42005 2CADR SPECSTS
022715,000603:
022716,000604: 21,3040 37642 GTSGTS10 CAF PRIO20
022717,000605: 21,3041 04355 TC FINDVAC
022718,000606: 21,3042 02600 42005 2CADR RESTEST3
022719,000607:
022720,000608: 21,3044 04100 TC SWRETURN
022721,000609:
022722,000610: 21,3045 02000 GEOBND OCT 02000 # BANK 4 -THIS IS THE STORE DTA SECTION
022723,000611: 21,3046 02400 GEOBND1 OCT 02400 # BANK NUMBER 5
022724,000612:
022725,000613:
022726,000614: 21,3047 33045 STOREDTA CAF GEOBND
022727,000615: 21,3050 54001 TS L
022728,000616: 21,3051 33360 CAF 77DECML
022729,000617: 21,3052 54140 TS MPAC
022730,000618: 21,3053 50140 INDEX MPAC
022731,000619: 21,3054 31600 CA ALX1S
022732,000620: 21,3055 22003 LXCH EBANK
022733,000621: 21,3056 E4,1407 EBANK= JETSTEP
022734,000622: 21,3056 50140 INDEX MPAC
022735,000623: 21,3057 55407 TS JETSTEP
022736,000624: 21,3060 22003 LXCH EBANK
022737,000625: 21,3061 E5,1400 EBANK= XSM
022738,000626: 21,3061 10140 CCS MPAC
022739,000627: 21,3062 13064 TCF +2
022740,000628: 21,3063 00002 TC Q
022741,000629: 21,3064 54140 TS MPAC
022742,000630: 21,3065 33045 CAF GEOBND
022743,000631: 21,3066 54001 TS L
022744,000632: 21,3067 13053 TCF STOREDTA +4
022745,000633:
022746,000634:
022747,000635: 21,3070 33360 LOADSTDT CAF 77DECML
022748,000636: 21,3071 54140 TS MPAC
022749,000637: 21,3072 33045 CA GEOBND
022750,000638: 21,3073 56003 XCH EBANK
022751,000639: 21,3074 54001 TS L
022752,000640: 21,3075 E4,1407 EBANK= JETSTEP
022753,000641: 21,3075 50140 INDEX MPAC
022754,000642: 21,3076 31407 CA JETSTEP
022755,000643: 21,3077 22003 LXCH EBANK
022756,000644: 21,3100 E5,1400 EBANK= XSM
022757,000645: 21,3100 50140 INDEX MPAC
022758,000646: 21,3101 55600 TS ALX1S
022759,000647: 21,3102 10140 CCS MPAC
022760,000648: 21,3103 13105 TCF +2
022761,000649: 21,3104 00002 TC Q
022762,000650: 21,3105 54140 TS MPAC
022763,000651: 21,3106 13072 TCF LOADSTDT +2
022764,000652:
022765,000653: 21,3107 00006 LOADXSM EXTEND
022766,000654: 21,3110 23547 QXCH QPLACES
022767,000655: 21,3111 33410 CAF 17DECML
022768,000656: 21,3112 54140 TS MPAC
022769,000657: 21,3113 50000 INDEX A
022770,000658: 21,3114 31720 CA PRELMTRX
022771,000659: 21,3115 50140 INDEX MPAC
022772,000660: 21,3116 55400 TS XSM
022773,000661: 21,3117 10140 CCS MPAC
022774,000662: 21,3120 13112 TCF LOADXSM +3
022775,000663: 21,3121 01547 TC QPLACES
022776,000664: 21,3122 77743 ALFDK DEC -28 B-14 # SLOPES AND TIME CONSTANTS FOR FIRST 30SC
022777,000665: 21,3123 77776 DEC -1 B-14
022778,000666: 21,3124 35143 10237 2DEC .91230833 # TIME CONSTANTS-PIPA OUTPUTS
022779,000667:
022780,000668: 21,3126 31766 26106 2DEC .81193187 # TIME CONSTANT-ERECTION ANGLES
022781,000669:
022782,000670: 21,3130 77772 43677 2DEC -.00035882 # SLOPE-AZIMUTH ANGLE
022783,000671:
022784,000672: 21,3132 77777 77661 2DEC -.00000029 # SLOPE-VERTICAL DRIFT
022785,000673:
022786,000674: 21,3134 00002 05420 2DEC .00013262 # SLOPE-NORTH SOUTH DRIFT
022787,000675:
022788,000676:
022789,000677: 21,3136 77705 DEC -58 B-14 # 31-90 SEC
022790,000678: 21,3137 77776 DEC -1 B-14
022791,000679: 21,3140 37560 05346 2DEC .99122133
022792,000680:
022793,000681: 21,3142 37522 15525 2DEC .98940595
022794,000682:
022795,000683: 21,3144 77763 41604 2DEC -.00079010
022796,000684:
022797,000685: 21,3146 77777 76470 2DEC -.00000265
022798,000686:
022799,000687: 21,3150 00007 02201 2DEC .00043154
022800,000688:
022801,000689:
022802,000690: 21,3152 77767 DEC -8 B-14 # 91-100 SEC
022803,000691: 21,3153 77776 DEC -1 B-14
022804,000692: 21,3154 37773 10042 2DEC .99971021
022805,000693:
022806,000694: 21,3156 37747 30232 2DEC .99852047
022807,000695:
022808,000696: 21,3160 00006 37666 2DEC .00042697
022809,000697:
022810,000698: 21,3162 77777 76703 2DEC -.00000213
022811,000699:
022812,000700: 21,3164 00001 36147 2DEC .00011864
022813,000701:
022814,000702: 21,3166 77635 DEC -98 B-14 # 101-200 SEC
022815,000703: 21,3167 77776 DEC -1 B-14
022816,000704: 21,3170 37666 11022 2DEC .99550063
022817,000705:
022818,000706: 21,3172 37532 33647 2DEC .98992124
022819,000707:
022820,000708: 21,3174 00007 03641 2DEC .00043452
022821,000709:
022822,000710: 21,3176 77777 75713 2DEC -.00000401
022823,000711:
022824,000712: 21,3200 77774 54605 2DEC -.00021980
022825,000713:
022826,000714:
022827,000715: 21,3202 77407 DEC -248 B-14 # 201-450 SEC
022828,000716: 21,3203 77776 DEC -1 B-14
022829,000717: 21,3204 37712 16755 2DEC .99673264
022830,000718:
022831,000719: 21,3206 37630 01160 2DEC .99365467
022832,000720:
022833,000721: 21,3210 00000 23600 2DEC .00003767
022834,000722:
022835,000723: 21,3212 77777 63663 2DEC -.00002317
022836,000724:
022837,000725: 21,3214 77777 56527 2DEC -.00003305
022838,000726:
022839,000727:
022840,000728: 21,3216 77255 DEC -338 B-14 # 451-790 SEC
022841,000729: 21,3217 77776 DEC -1 B-14
022842,000730: 21,3220 37763 23341 2DEC .99924362
022843,000731:
022844,000732: 21,3222 37755 26170 2DEC .99888274
022845,000733:
022846,000734: 21,3224 00000 00254 2DEC .00000064
022847,000735:
022848,000736: 21,3226 77777 52755 2DEC -.00004012
022849,000737:
022850,000738: 21,3230 77777 76764 2DEC -.00000195
022851,000739:
022852,000740:
022853,000741: 21,3232 77147 DEC -408 B-14 # 791-1200 SEC
022854,000742: 21,3233 77776 DEC -1 B-14
022855,000743: 21,3234 37772 02343 2DEC .99963845
022856,000744:
022857,000745: 21,3236 37761 30560 2DEC .99913162
022858,000746:
022859,000747: 21,3240 00000 00362 2DEC .00000090
022860,000748:
022861,000749: 21,3242 00000 17261 2DEC .00002927
022862,000750:
022863,000751: 21,3244 77777 77671 2DEC -.00000026
022864,000752:
022865,000753:
022866,000754: 21,3246 77015 DEC -498 B-14 # 1201-1700 SEC
022867,000755: 21,3247 77776 DEC -1 B-14
022868,000756: 21,3250 37765 12403 2DEC .99934865
022869,000757:
022870,000758: 21,3252 37752 20062 2DEC .99868793
022871,000759:
022872,000760: 21,3254 00000 00224 2DEC .00000055
022873,000761:
022874,000762: 21,3256 00000 06150 2DEC .00001183
022875,000763:
022876,000764: 21,3260 77777 77762 2DEC -.00000005
022877,000765:
022878,000766:
022879,000767: 21,3262 77161 DEC -398 B-14 # 1701-2100 SEC
022880,000768: 21,3263 77776 DEC -1 B-14
022881,000769: 21,3264 37767 12513 2DEC .99947099
022882,000770:
022883,000771: 21,3266 37756 30343 2DEC .99894799
022884,000772:
022885,000773: 21,3270 00000 00060 2DEC .00000018
022886,000774:
022887,000775: 21,3272 00000 01445 2DEC .00000300
022888,000776:
022889,000777: 21,3274 77777 77774 2DEC -.00000001
022890,000778:
022891,000779:
022892,000780: 21,3276 76651 DEC -598 B-14 # 2101-2700 SEC
022893,000781: 21,3277 77776 DEC -1 B-14
022894,000782: 21,3300 37771 02603 2DEC .99957801
022895,000783:
022896,000784: 21,3302 37762 10061 2DEC .99916095
022897,000785:
022898,000786: 21,3304 00000 00023 2DEC .00000007
022899,000787:
022900,000788: 21,3306 00000 00402 2DEC .00000096
022901,000789:
022902,000790: 21,3310 00000 00000 2DEC .00000000
022903,000791:
022904,000792:
022905,000793: 21,3312 76505 DEC -698 B-14 # 2700-3400 SEC
022906,000794: 21,3313 77776 DEC -1 B-14
022907,000795: 21,3314 37772 22005 2DEC .99966814
022908,000796:
022909,000797: 21,3316 37765 05560 2DEC .99933952
022910,000798:
022911,000799: 21,3320 00000 00005 2DEC .00000002
022912,000800:
022913,000801: 21,3322 00000 00113 2DEC .00000028
022914,000802:
022915,000803: 21,3324 00000 00000 2DEC .00000000
022916,000804:
022917,000805:
022918,000806: 21,3326 76651 DEC -598 B-14 # 3401-4000 SEC
022919,000807: 21,3327 77776 DEC -1 B-14
022920,000808: 21,3330 37773 20750 2DEC .99972716
022921,000809:
022922,000810: 21,3332 37767 03044 2DEC .99945654
022923,000811:
022924,000812: 21,3334 00000 00003 2DEC .00000001
022925,000813:
022926,000814: 21,3336 00000 00033 2DEC .00000010
022927,000815:
022928,000816: 21,3340 00000 00000 2DEC .00000000
022929,000817:
022930,000818:
022931,000819: 21,3342 00000 00000 SCHZEROS 2DEC .00000000
022932,000820:
022933,000821: 21,3344 00000 00000 2DEC .00000000
022934,000822:
022935,000823: 21,3346 00000 00000 2DEC .00000000
022936,000824:
022937,000825: 21,3350 00004 INTVAL OCT 4
022938,000826: 21,3351 00002 OCT 2
022939,000827: 21,3352 00220 DEC 144 B-14
022940,000828: 21,3353 77776 DEC -1 B-14
022941,000829: 21,3354 35730 00035 SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
022942,000830:
022943,000831: 21,3356 10317 17550 2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
022944,000832:
022945,000833:
022946,000834: 21,3360 00115 77DECML DEC 77 B-14
022947,000835: 21,3361 01577 ALXXXZ GENADR ALX1S -1
022948,000836: 21,3362 02500 AINGYRO ECADR OGC
022949,000837: 21,3363 04133 02265 PIPASC 2DEC .13055869
022950,000838:
022951,000839: 21,3365 57223 66451 VELSC 2DEC -.52223476 # 512/980.402
022952,000840:
022953,000841: 21,3367 05427 12577 ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
022954,000842:
022955,000843: 21,3371 77567 44202 2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
022956,000844:
022957,000845:
022958,000846: 21,3373 24276 14066 GEORGEJ 2DEC .63661977
022959,000847:
022960,000848: 21,3375 23073 11773 GEORGEK 2DEC .59737013
022961,000849:
022962,000850: 21,3377 03146 14632 GEOCONS1 2DEC .1
022963,000851:
022964,000852: 21,3401 00121 35341 GEOCONS2 2DEC .005
022965,000853:
022966,000854: 21,3403 00631 23146 GEOCONS3 2DEC .025
022967,000855:
022968,000856: 21,3405 00000 17565 GEOCONS4 2DEC .00003
022969,000857:
022970,000858: 21,3407 06200 1/PIPAGT OCT 06200
022971,000859: 21,3410 00021 17DECML DEC 17 B-14
022972,000860: 21,3411 00023 19DECML DEC 19 B-14
022973,000861: 21,3412 00062 1/2SECX DEC 50 B-14
022974,000862:
022975,000863:
022976,000864: 21,3413 37657 GTSCPSS CA ONE
022977,000865: 21,3414 55742 TS GEOCOMPS # THIS IS THE LEAD IN FOR COMPASS
022978,000866: 21,3415 04650 TC NEWMODEX
022979,000867: 21,3416 00001 OCT 01
022980,000868: 21,3417 33407 CA 1/PIPAGT
022981,000869: 21,3420 55110 TS 1/PIPADT
022982,000870: 21,3421 37665 CA ZERO
022983,000871: 21,3422 55717 TS PREMTRXC
022984,000872: 21,3423 33412 CAF 1/2SECX
022985,000873: 21,3424 55744 TS 1SECXT
022986,000874: 21,3425 04065 TC BANKCALL
022987,000875: 21,3426 36005 CADR GEOIMUTT # TO IMU PERF TESTS 2
022988,000876:
022989,000877:
022990,000878: 21,3427 ENDPREL1 EQUALS
End of include-file OPTIMUM_PRELAUNCH_ALIGNMENT_CALIBRATION.agc. Parent file is MAIN.agc