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