Source Code
|
These source-code files are part of a reconstructed copy of Sundial E, the
final release of the Block II Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum. Since only binary dumps (rather than listings) of Sundial 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. |
018263,000002: ## Copyright: Public domain.
018264,000003: ## Filename: PRELAUNCH_ALIGNMENT_PROGRAM.agc
018265,000004: ## Purpose: A section of Sundial E.
018266,000005: ## It is part of the reconstructed source code for the final
018267,000006: ## release of the Block II Command Module system test software. No
018268,000007: ## original listings of this program are available; instead, this
018269,000008: ## file was created via disassembly of dumps of Sundial core rope
018270,000009: ## modules and comparison with other AGC programs.
018271,000010: ## Assembler: yaYUL
018272,000011: ## Contact: Ron Burkey <info@sandroid.org>.
018273,000012: ## Website: www.ibiblio.org/apollo/index.html
018274,000013: ## Mod history: 2023-06-30 MAS Created.
018275,000014: ## 2023-07-12 MAS Changed an unused constant to a TC GRABWAIT,
018276,000015: ## and a WANGI reference to XSM1 +16D, based on
018277,000016: ## disassembly of equivalent code in Aurora 88.
018278,000017:
018279,000018: 15,2000 BANK 15
018280,000019: 15,2000 E5,1400 EBANK= XSM
018281,000020:
018282,000021: 15,2000 10000 2STODP1S CCS A
018283,000022: 15,2001 67652 AD ONE
018284,000023: 15,2002 12013 TCF 2TO1OUT
018285,000024: 15,2003 67652 AD ONE
018286,000025: 15,2004 67652 AD ONE
018287,000026: 15,2005 54000 OVSK
018288,000027: 15,2006 12012 TCF +4
018289,000028: 15,2007 22007 ZL
018290,000029: 15,2010 47635 CS BIT14
018291,000030: 15,2011 00002 TC Q
018292,000031: 15,2012 40000 COM
018293,000032: 15,2013 00006 2TO1OUT EXTEND
018294,000033: 15,2014 77635 MP BIT14
018295,000034: 15,2015 00002 TC Q
018296,000035:
018297,000036: 15,2016 20001 DP1STO2S DDOUBL
018298,000037: 15,2017 10000 CCS A
018299,000038: 15,2020 67652 AD ONE
018300,000039: 15,2021 12023 TCF +2
018301,000040: 15,2022 40000 COM
018302,000041: 15,2023 54001 TS L
018303,000042: 15,2024 00002 TC Q
018304,000043: 15,2025 50000 INDEX A
018305,000044: 15,2026 37633 CAF LIMITS
018306,000045: 15,2027 26001 ADS L
018307,000046: 15,2030 00002 TC Q
018308,000047:
018309,000048: 15,2031 00006 LODLATAZ EXTEND
018310,000049: 15,2032 23661 QXCH QSAVED
018311,000050: 15,2033 32042 CAF V06N61E
018312,000051: 15,2034 05563 TC NVSBWAIT
018313,000052: 15,2035 05525 TC FLASHON
018314,000053: 15,2036 04724 TC ENDIDLE
018315,000054: 15,2037 02033 TC LODLATAZ +2
018316,000055: 15,2040 01661 TC QSAVED
018317,000056: 15,2041 02033 TC LODLATAZ +2
018318,000057:
018319,000058: 15,2042 00661 V06N61E OCT 00661
018320,000059:
018321,000060: 15,2043 05550 TC GRABWAIT
018322,000061: 15,2044 04572 STARTPL TC NEWMODEX
018323,000062: 15,2045 00001 OCT 01
018324,000063: 15,2046 00006 EXTEND
018325,000064: 15,2047 31507 DCA AZIMUTH
018326,000065: 15,2050 02016 TC DP1STO2S
018327,000066: 15,2051 54333 TS DSPTEM1
018328,000067:
018329,000068: 15,2052 37657 CAF ZERO
018330,000069: 15,2053 54334 TS DSPTEM1 +1
018331,000070: 15,2054 02031 TC LODLATAZ
018332,000071:
018333,000072: 15,2055 30333 CA DSPTEM1
018334,000073: 15,2056 02000 TC 2STODP1S
018335,000074: 15,2057 53507 DXCH AZIMUTH
018336,000075: 15,2060 00006 EXTEND
018337,000076: 15,2061 31507 DCA AZIMUTH
018338,000077: 15,2062 53764 DXCH AZIMUTH1
018339,000078: 15,2063 53670 DXCH LATITUD1
018340,000079: 15,2064 02016 TC DP1STO2S
018341,000080: 15,2065 54333 TS DSPTEM1
018342,000081: 15,2066 53511 DXCH LATITUDE
018343,000082: 15,2067 20001 DDOUBL
018344,000083: 15,2070 20001 DDOUBL
018345,000084: 15,2071 54334 TS DSPTEM1 +1
018346,000085: 15,2072 02031 TC LODLATAZ
018347,000086:
018348,000087: 15,2073 30333 CA DSPTEM1
018349,000088: 15,2074 02000 TC 2STODP1S
018350,000089: 15,2075 53670 DXCH LATITUD1
018351,000090: 15,2076 30334 CA DSPTEM1 +1
018352,000091: 15,2077 00006 EXTEND
018353,000092: 15,2100 77636 MP BIT13
018354,000093: 15,2101 53511 DXCH LATITUDE
018355,000094: 15,2102 05632 TC FREEDSP
018356,000095:
018357,000096: 15,2103 00006 EXTEND
018358,000097: 15,2104 31670 DCA LATITUD1
018359,000098: 15,2105 02016 TC DP1STO2S
018360,000099: 15,2106 54140 TS MPAC
018361,000100: 15,2107 00006 EXTEND
018362,000101: 15,2110 31764 DCA AZIMUTH1
018363,000102: 15,2111 02016 TC DP1STO2S
018364,000103: 15,2112 00006 EXTEND
018365,000104: 15,2113 20140 MSU MPAC
018366,000105: 15,2114 02017 TC DP1STO2S +1
018367,000106: 15,2115 54400 TS THETAD
018368,000107: 15,2116 37635 CAF BIT14
018369,000108: 15,2117 54401 TS THETAD +1
018370,000109: 15,2120 37657 CAF ZERO
018371,000110: 15,2121 54402 TS THETAD +2
018372,000111:
018373,000112: 15,2122 04064 TC BANKCALL
018374,000113: 15,2123 26000 CADR IMUZERO
018375,000114: 15,2124 04064 TC BANKCALL
018376,000115: 15,2125 26730 CADR IMUSTALL
018377,000116: 15,2126 02632 TC PRELEXIT
018378,000117:
018379,000118: 15,2127 04517 TC PHASCHNG
018380,000119: 15,2130 00100 OCT 00100
018381,000120:
018382,000121: 15,2131 04064 REDO0.1 TC BANKCALL
018383,000122: 15,2132 26055 CADR IMUCOARS
018384,000123: 15,2133 04064 TC BANKCALL
018385,000124: 15,2134 26730 CADR IMUSTALL
018386,000125: 15,2135 02632 TC PRELEXIT
018387,000126:
018388,000127: 15,2136 04517 TC PHASCHNG
018389,000128: 15,2137 00200 OCT 00200
018390,000129:
018391,000130: 15,2140 04064 REDO0.2 TC BANKCALL
018392,000131: 15,2141 26227 CADR IMUFINE
018393,000132:
018394,000133: 15,2142 32223 CAF DEC49
018395,000134: 15,2143 54140 ZEROS1 TS MPAC
018396,000135: 15,2144 37657 CAF ZERO
018397,000136: 15,2145 50140 INDEX MPAC
018398,000137: 15,2146 55567 TS XSM1
018399,000138: 15,2147 10140 CCS MPAC
018400,000139: 15,2150 02143 TC ZEROS1
018401,000140:
018402,000141: 15,2151 00006 EXTEND
018403,000142: 15,2152 30025 DCA TIME2
018404,000143: 15,2153 53642 DXCH PREVTIME
018405,000144: 15,2154 04064 TC BANKCALL
018406,000145: 15,2155 26730 CADR IMUSTALL
018407,000146: 15,2156 02632 TC PRELEXIT
018408,000147:
018409,000148: 15,2157 04572 TC NEWMODEX
018410,000149: 15,2160 00005 OCT 05
018411,000150:
018412,000151: 15,2161 32224 CAF SIXHNDRD # INITIALIZE FOR 5 MIN VERTICAL
018413,000152: 15,2162 55657 TS GYROCSW
018414,000153:
018415,000154: 15,2163 04064 TC BANKCALL
018416,000155: 15,2164 26302 CADR PIPUSE
018417,000156:
018418,000157: 15,2165 37655 CAF NINE
018419,000158: 15,2166 55660 TS PRELTEMP
018420,000159: 15,2167 06000 TC INTPRET
018421,000160: 15,2170 73545 DLOAD SIN
018422,000161: 15,2171 01511 LATITUDE
018423,000162: 15,2172 41276 DCOMP DMP
018424,000163: 15,2173 32544 GOMEGA
018425,000164: 15,2174 07650 STODL ERVECT1 +4
018426,000165: 15,2175 01511 LATITUDE
018427,000166: 15,2176 41346 COS DMP
018428,000167: 15,2177 32544 GOMEGA
018429,000168: 15,2200 07644 STODL ERVECT1
018430,000169: 15,2201 01764 AZIMUTH1
018431,000170: 15,2202 71406 PUSH COS
018432,000171: 15,2203 01570 STORE XSM1
018433,000172: 15,2204 07600 STODL XSM1 +8D
018434,000173: 15,2205 77756 SIN
018435,000174: 15,2206 01572 STORE XSM1 +2
018436,000175: 15,2207 43076 DCOMP CLEAR
018437,000176: 15,2210 00270 OPTUSE
018438,000177: 15,2211 07576 STODL XSM1 +6
018439,000178: 15,2212 32536 GEOCONS5
018440,000179: 15,2213 01610 STORE XSM1 +16D
018441,000180: 15,2214 77776 EXIT
018442,000181:
018443,000182: 15,2215 00004 INHINT
018444,000183: 15,2216 32554 CAF PRELDT
018445,000184: 15,2217 04451 TC WAITLIST
018446,000185: 15,2220 02225 32005 2CADR PRELALTS
018447,000186:
018448,000187: 15,2222 04353 TC ENDOFJOB
018449,000188:
018450,000189: 15,2223 00061 DEC49 DEC 49 B-14
018451,000190: 15,2224 01130 SIXHNDRD DEC 600 B-14
018452,000191:
018453,000192: # PRELAUNCH WAITLIST TASK - EXECUTED EVERY .5 SEC. IN LOOP.
018454,000193:
018455,000194: 15,2225 37657 PRELALTS CAF ZERO
018456,000195: 15,2226 56037 XCH PIPAX
018457,000196: 15,2227 54405 TS DELVX
018458,000197: 15,2230 37657 CAF ZERO
018459,000198: 15,2231 56040 XCH PIPAY
018460,000199: 15,2232 54407 TS DELVX +2
018461,000200: 15,2233 37657 CAF ZERO
018462,000201: 15,2234 56041 XCH PIPAZ
018463,000202: 15,2235 54411 TS DELVX +4
018464,000203: 15,2236 37657 CAF ZERO
018465,000204: 15,2237 54406 TS DELVX +1
018466,000205: 15,2240 54410 TS DELVX +3
018467,000206: 15,2241 54412 TS DELVX +5
018468,000207:
018469,000208: 15,2242 04517 TC PHASCHNG
018470,000209: 15,2243 00300 OCT 00300
018471,000210:
018472,000211: 15,2244 00006 EXTEND
018473,000212: 15,2245 30025 DCA TIME2
018474,000213: 15,2246 53672 DXCH PIPTIME
018475,000214:
018476,000215: 15,2247 32554 REPRELAL CAF PRELDT # SELF-SUSTAINING WAITLIST CALL
018477,000216: 15,2250 04451 TC WAITLIST
018478,000217: 15,2251 02225 32005 2CADR PRELALTS
018479,000218:
018480,000219: 15,2253 37635 CAF PRIO20
018481,000220: 15,2254 04307 TC FINDVAC
018482,000221: 15,2255 02262 32005 2CADR PRAWAKE
018483,000222:
018484,000223: 15,2257 04505 TC TASKOVER # RESUME
018485,000224:
018486,000225: 15,2260 02654 REDO0.4 TC PRLRSTOR
018487,000226: 15,2261 02265 TC RE0.4
018488,000227:
018489,000228: 15,2262 02643 PRAWAKE TC PRLSAVE
018490,000229: 15,2263 04517 TC PHASCHNG
018491,000230: 15,2264 00400 OCT 00400
018492,000231:
018493,000232: 15,2265 06000 RE0.4 TC INTPRET
018494,000233: 15,2266 61375 VLOAD VXM
018495,000234: 15,2267 00406 DELVX
018496,000235: 15,2270 01570 XSM1
018497,000236: 15,2271 52372 VSL1 VSU
018498,000237: 15,2272 01626 FILDELV
018499,000238: 15,2273 53361 VXSC VAD
018500,000239: 15,2274 32546 GEOCONS1
018501,000240: 15,2275 01626 FILDELV
018502,000241: 15,2276 01626 STORE FILDELV
018503,000242: 15,2277 77655 VAD
018504,000243: 15,2300 01634 THETAN
018505,000244: 15,2301 01634 STORE THETAN
018506,000245: 15,2302 77776 EXIT
018507,000246:
018508,000247: 15,2303 04605 TC CHECKMM
018509,000248: 15,2304 00005 OCT 5
018510,000249: 15,2305 02330 TC TJL
018511,000250:
018512,000251: 15,2306 11657 NOGYROCM CCS GYROCSW # COUNT DOWN FOR 5 MIN OF VERTICAL ERECT.
018513,000252: 15,2307 02312 TC MORE # IF MORE TO COME.
018514,000253: 15,2310 04572 TC NEWMODEX # IF NOT, GO INTO GYROCOMP. (MM 02)
018515,000254: 15,2311 00002 OCT 2
018516,000255:
018517,000256: 15,2312 55657 MORE TS GYROCSW
018518,000257:
018519,000258: 15,2313 06000 TC INTPRET
018520,000259: 15,2314 74375 VLOAD VXSC
018521,000260: 15,2315 01634 THETAN
018522,000261: 15,2316 32542 GEOCONS2
018523,000262: 15,2317 74255 VAD VXSC
018524,000263: 15,2320 01626 FILDELV
018525,000264: 15,2321 32552 DPPOSMAX
018526,000265: 15,2322 53235 VXV VAD
018527,000266: 15,2323 32532 PRUNITZ
018528,000267: 15,2324 01612 ERCOMP1
018529,000268: 15,2325 01612 STORE ERCOMP1
018530,000269: 15,2326 77650 GOTO
018531,000270: 15,2327 32344 ENDOFPR
018532,000271:
018533,000272: 15,2330 06000 TJL TC INTPRET
018534,000273: 15,2331 64375 VLOAD MXV
018535,000274: 15,2332 01626 FILDELV
018536,000275: 15,2333 32512 GEOCONS3
018537,000276: 15,2334 77655 VAD
018538,000277: 15,2335 01612 ERCOMP1
018539,000278: 15,2336 07612 STODL ERCOMP1
018540,000279: 15,2337 01636 THETAN +2
018541,000280: 15,2340 43205 DMP DAD
018542,000281: 15,2341 32540 GEOCONS4
018543,000282: 15,2342 01612 ERCOMP1
018544,000283: 15,2343 01612 STORE ERCOMP1
018545,000284: 15,2344 77776 ENDOFPR EXIT
018546,000285:
018547,000286: 15,2345 11660 CCS PRELTEMP
018548,000287: 15,2346 02504 TC JUMPY
018549,000288:
018550,000289: 15,2347 10351 CCS LGYRO # IF BUSY GO AROUND LOOP AGAIN
018551,000290: 15,2350 12505 TCF JUMPY +1 # WAIT TIL NEXT TIME. PRELTEM = 0 STILL.
018552,000291:
018553,000292: 15,2351 04605 TC CHECKMM
018554,000293: 15,2352 00003 OCT 03
018555,000294: 15,2353 02362 TC UPDATAZ
018556,000295:
018557,000296: 15,2354 06000 TC INTPRET
018558,000297: 15,2355 77775 VLOAD
018559,000298: 15,2356 32530 SCHZEROS
018560,000299: 15,2357 01612 STORE ERCOMP1
018561,000300: 15,2360 77650 GOTO
018562,000301: 15,2361 32427 EARTHRAT
018563,000302:
018564,000303: 15,2362 06000 UPDATAZ TC INTPRET
018565,000304: 15,2363 45345 DLOAD DSU
018566,000305: 15,2364 01507 AZIMUTH
018567,000306: 15,2365 01764 AZIMUTH1
018568,000307: 15,2366 41454 BZE PUSH
018569,000308: 15,2367 32427 EARTHRAT
018570,000309: 15,2370 51025 DSU BPL
018571,000310: 15,2371 32550 2DEGS
018572,000311: 15,2372 32401 TOOPOS
018573,000312: 15,2373 43345 DLOAD DAD
018574,000313: 15,2374 00001 0D
018575,000314: 15,2375 32550 2DEGS
018576,000315: 15,2376 52040 BMN GOTO
018577,000316: 15,2377 32406 TOONEG
018578,000317: 15,2400 32411 JUSTRITE
018579,000318:
018580,000319: 15,2401 77745 TOOPOS DLOAD
018581,000320: 15,2402 32550 2DEGS
018582,000321: 15,2403 00001 STORE 0D
018583,000322: 15,2404 77650 GOTO
018584,000323: 15,2405 32411 JUSTRITE
018585,000324:
018586,000325: 15,2406 57545 TOONEG DLOAD DCOMP
018587,000326: 15,2407 32550 2DEGS
018588,000327: 15,2410 00001 STORE 0D
018589,000328:
018590,000329: 15,2411 43345 JUSTRITE DLOAD DAD
018591,000330: 15,2412 00001 0D
018592,000331: 15,2413 01624 AZERR
018593,000332: 15,2414 07624 STODL AZERR
018594,000333: 15,2415 77615 DAD
018595,000334: 15,2416 01764 AZIMUTH1
018596,000335: 15,2417 01764 STORE AZIMUTH1
018597,000336: 15,2420 71406 PUSH COS
018598,000337: 15,2421 01570 STORE XSM1
018599,000338: 15,2422 07600 STODL XSM1 +8D
018600,000339: 15,2423 77756 SIN
018601,000340: 15,2424 01572 STORE XSM1 +2
018602,000341: 15,2425 77676 DCOMP
018603,000342: 15,2426 01576 STORE XSM1 +6
018604,000343:
018605,000344: 15,2427 45345 EARTHRAT DLOAD DSU
018606,000345: 15,2430 01672 PIPTIME
018607,000346: 15,2431 01642 PREVTIME
018608,000347: 15,2432 43244 BPL DAD
018609,000348: 15,2433 32435 ERTHR
018610,000349: 15,2434 32552 DPPOSMAX
018611,000350: 15,2435 74261 ERTHR SL VXSC
018612,000351: 15,2436 00207 6D
018613,000352: 15,2437 01644 ERVECT1
018614,000353: 15,2440 64255 VAD MXV
018615,000354: 15,2441 01612 ERCOMP1
018616,000355: 15,2442 01570 XSM1
018617,000356: 15,2443 53372 VSL1 VAD
018618,000357: 15,2444 01620 GYROANG
018619,000358: 15,2445 23620 STOVL GYROANG
018620,000359: 15,2446 32530 SCHZEROS
018621,000360: 15,2447 01612 STORE ERCOMP1
018622,000361: 15,2450 43014 BOFF CLEAR
018623,000362: 15,2451 00350 OPTUSE
018624,000363: 15,2452 32460 +6
018625,000364: 15,2453 00270 OPTUSE
018626,000365: 15,2454 53375 VLOAD VAD
018627,000366: 15,2455 01620 GYROANG
018628,000367: 15,2456 01501 OGC
018629,000368: 15,2457 01620 STORE GYROANG
018630,000369: 15,2460 77776 EXIT
018631,000370:
018632,000371: 15,2461 00006 EXTEND
018633,000372: 15,2462 31672 DCA PIPTIME
018634,000373: 15,2463 53642 DXCH PREVTIME
018635,000374:
018636,000375: 15,2464 04517 TC PHASCHNG
018637,000376: 15,2465 00500 OCT 00500
018638,000377:
018639,000378: 15,2466 37655 CAF NINE
018640,000379: 15,2467 55660 TS PRELTEMP
018641,000380: 15,2470 03062 TC GOSPITGY
018642,000381:
018643,000382: 15,2471 04276 TC NOVAC
018644,000383: 15,2472 02475 32005 2CADR SPITGYRO
018645,000384:
018646,000385: 15,2474 04353 TC ENDOFJOB
018647,000386:
018648,000387: 15,2475 32510 SPITGYRO CAF LGYROANG
018649,000388: 15,2476 04064 TC BANKCALL
018650,000389: 15,2477 26333 CADR IMUPULSE
018651,000390: 15,2500 04064 TC BANKCALL
018652,000391: 15,2501 26730 CADR IMUSTALL
018653,000392: 15,2502 02632 TC PRELEXIT
018654,000393: 15,2503 14353 TCF ENDOFJOB
018655,000394:
018656,000395: 15,2504 55660 JUMPY TS PRELTEMP
018657,000396: 15,2505 04517 TC PHASCHNG
018658,000397: 15,2506 00500 OCT 00500
018659,000398: 15,2507 04353 TC ENDOFJOB
018660,000399:
018661,000400: 15,2510 02617 LGYROANG ECADR GYROANG
018662,000401:
018663,000402: 15,2511 00000 00000 GEOCONS3 2DEC 0 B-28
018664,000403: 15,2513 01767 31666 2DEC .062
018665,000404: 15,2515 00000 00000 2DEC 0 B-28
018666,000405: 15,2517 76010 46111 2DEC -.062
018667,000406: 15,2521 00000 00000 2DEC 0 B-28
018668,000407: 15,2523 00000 00000 2DEC 0 B-28
018669,000408: 15,2525 40000 40000 2DEC -.999999999
018670,000409: 15,2527 00000 00000 SCHZEROS 2DEC 0 B-28
018671,000410: 15,2531 00000 00000 PRUNITZ 2DEC 0 B-28
018672,000411: 15,2533 00000 00000 2DEC 0 B-28
018673,000412: 15,2535 20000 00000 GEOCONS5 2DEC .5
018674,000413:
018675,000414: 15,2537 00000 17565 GEOCONS4 2DEC .00003
018676,000415: 15,2541 00121 35341 GEOCONS2 2DEC .005
018677,000416: 15,2543 37116 32652 GOMEGA 2DEC 0.97356192 # EARTH RATE IN IRIG PULSES/CS
018678,000417: 15,2545 03146 14632 GEOCONS1 2DEC .1
018679,000418: 15,2547 00133 00554 2DEGS 2DEC .005555555
018680,000419: 15,2551 37777 37777 DPPOSMAX 2DEC .999999999
018681,000420: 15,2553 00053 DEC43 DEC 43 B-14
018682,000421: 15,2554 00062 PRELDT DEC .5 E2 # HALF SECOND PRELAUNCH CYCLE
018683,000422:
018684,000423: 15,2555 51073 PRELGO INDEX PHASE0
018685,000424: 15,2556 02556 TC +0
018686,000425: 15,2557 02564 TC REPL1
018687,000426: 15,2560 02571 TC REPL2
018688,000427: 15,2561 02576 TC REPL3
018689,000428: 15,2562 02603 TC REPL4
018690,000429: 15,2563 02607 TC REPL5
018691,000430:
018692,000431: 15,2564 34432 REPL1 CAF PRIO21
018693,000432: 15,2565 04307 TC FINDVAC
018694,000433: 15,2566 02131 32005 2CADR REDO0.1
018695,000434:
018696,000435: 15,2570 04077 TC SWRETURN
018697,000436:
018698,000437: 15,2571 34432 REPL2 CAF PRIO21
018699,000438: 15,2572 04307 TC FINDVAC
018700,000439: 15,2573 02140 32005 2CADR REDO0.2
018701,000440:
018702,000441: 15,2575 04077 TC SWRETURN
018703,000442:
018704,000443: 15,2576 37652 REPL3 CAF ONE
018705,000444: 15,2577 04451 TC WAITLIST
018706,000445: 15,2600 02247 32005 2CADR REPRELAL
018707,000446:
018708,000447: 15,2602 04077 TC SWRETURN
018709,000448:
018710,000449: 15,2603 34432 REPL4 CAF PRIO21
018711,000450: 15,2604 04307 TC FINDVAC
018712,000451: 15,2605 02260 32005 2CADR REDO0.4
018713,000452:
018714,000453: 15,2607 32510 REPL5 CAF LGYROANG
018715,000454: 15,2610 54003 TS EBANK
018716,000455: 15,2611 40025 CS TIME1
018717,000456: 15,2612 61672 AD PIPTIME +1
018718,000457: 15,2613 00006 EXTEND
018719,000458: 15,2614 62616 BZMF +2
018720,000459: 15,2615 67634 AD NEGMAX
018721,000460: 15,2616 62554 AD PRELDT
018722,000461: 15,2617 00006 EXTEND
018723,000462: 15,2620 62625 BZMF RIGHTGTS
018724,000463: 15,2621 04451 WTGTSMPL TC WAITLIST
018725,000464: 15,2622 02225 32005 2CADR PRELALTS
018726,000465:
018727,000466: 15,2624 04077 TC SWRETURN
018728,000467:
018729,000468: 15,2625 37652 RIGHTGTS CAF ONE
018730,000469: 15,2626 04451 TC WAITLIST
018731,000470: 15,2627 02225 32005 2CADR PRELALTS
018732,000471:
018733,000472: 15,2631 04077 TC SWRETURN
018734,000473:
018735,000474: # PRELAUNCH TERMINATION.
018736,000475:
018737,000476: 15,2632 04064 PRELEXIT TC BANKCALL
018738,000477: 15,2633 26317 CADR PIPFREE
018739,000478: 15,2634 00004 INHINT
018740,000479: 15,2635 47643 CS IMUSEFLG
018741,000480: 15,2636 70061 MASK STATE
018742,000481: 15,2637 54061 TS STATE
018743,000482: 15,2640 04572 TC NEWMODEX
018744,000483: 15,2641 00000 OCT 0
018745,000484: 15,2642 04353 TC ENDOFJOB
018746,000485:
018747,000486: 15,2643 32553 PRLSAVE CAF DEC43 # SAVE CURRENT VARIABLES FOR RESTARTS
018748,000487: 15,2644 54140 TS MPAC
018749,000488: 15,2645 50140 INDEX MPAC
018750,000489: 15,2646 31567 CAF XSM1
018751,000490: 15,2647 50140 INDEX MPAC
018752,000491: 15,2650 55707 TS PTEMP
018753,000492: 15,2651 10140 CCS MPAC
018754,000493: 15,2652 12644 TCF PRLSAVE +1
018755,000494: 15,2653 00002 TC Q
018756,000495:
018757,000496: 15,2654 32553 PRLRSTOR CAF DEC43 # RESTORE OLD VALUES OF VARIABLES
018758,000497: 15,2655 54140 TS MPAC
018759,000498: 15,2656 50140 INDEX MPAC
018760,000499: 15,2657 31707 CA PTEMP
018761,000500: 15,2660 50140 INDEX MPAC
018762,000501: 15,2661 55567 TS XSM1
018763,000502: 15,2662 10140 CCS MPAC
018764,000503: 15,2663 12655 TCF PRLRSTOR +1
018765,000504: 15,2664 00002 TC Q
018766,000505:
018767,000506: # PRELAUNCH CHECK PROCEDURE (USES THE Z-NORTH SYSTEM OF AXES)
018768,000507:
018769,000508: 15,2665 05550 OPTCHK TC GRABWAIT
018770,000509: 15,2666 04572 TC NEWMODEX
018771,000510: 15,2667 00003 OCT 03
018772,000511: 15,2670 04064 TC BANKCALL
018773,000512: 15,2671 27033 CADR MKRELEAS
018774,000513: 15,2672 37657 CAF ZERO
018775,000514: 15,2673 55765 TS STARS
018776,000515: 15,2674 67652 AD ONE
018777,000516: 15,2675 54335 TS DSPTEM1 +2
018778,000517: 15,2676 33030 CAF V06N30P
018779,000518: 15,2677 05563 TC NVSBWAIT
018780,000519: 15,2700 51765 INDEX STARS
018781,000520: 15,2701 57663 XCH TAZ
018782,000521: 15,2702 54333 TS DSPTEM1
018783,000522: 15,2703 51765 INDEX STARS
018784,000523: 15,2704 57665 XCH TEL
018785,000524: 15,2705 54334 TS DSPTEM1 +1
018786,000525: 15,2706 02031 TC LODLATAZ
018787,000526: 15,2707 56333 XCH DSPTEM1
018788,000527: 15,2710 51765 INDEX STARS
018789,000528: 15,2711 55663 TS TAZ
018790,000529: 15,2712 56334 XCH DSPTEM1 +1
018791,000530: 15,2713 51765 INDEX STARS
018792,000531: 15,2714 55665 TS TEL
018793,000532: 15,2715 11765 CCS STARS
018794,000533: 15,2716 12721 TCF +3
018795,000534: 15,2717 37652 CAF ONE
018796,000535: 15,2720 02673 TC OPTCHK +6
018797,000536:
018798,000537: 15,2721 54335 TS DSPTEM1 +2
018799,000538: 15,2722 37651 CAF TWO
018800,000539: 15,2723 54334 TS DSPTEM1 +1
018801,000540: 15,2724 37652 CAF ONE
018802,000541: 15,2725 54333 TS DSPTEM1 # SETS UP STAR NUMBER DISPLAY
018803,000542: 15,2726 33030 CAF V06N30P
018804,000543: 15,2727 05563 TC NVSBWAIT
018805,000544: 15,2730 37651 CAF TWO
018806,000545: 15,2731 04064 TC BANKCALL
018807,000546: 15,2732 26765 CADR SXTMARK
018808,000547: 15,2733 04064 TC BANKCALL
018809,000548: 15,2734 26726 CADR OPTSTALL
018810,000549: 15,2735 03022 TC CHEXIT
018811,000550:
018812,000551: 15,2736 06000 TC INTPRET
018813,000552: 15,2737 77634 CALL
018814,000553: 15,2740 33032 PROCTARG
018815,000554: 15,2741 64375 VLOAD MXV
018816,000555: 15,2742 01674 TARGET1
018817,000556: 15,2743 01570 XSM1
018818,000557: 15,2744 77772 VSL1
018819,000558: 15,2745 23445 STOVL STARAD
018820,000559: 15,2746 01702 TARGET1 +6
018821,000560: 15,2747 76521 MXV VSL1
018822,000561: 15,2750 01570 XSM1
018823,000562: 15,2751 01453 STORE STARAD +6D
018824,000563: 15,2752 77140 LXC,1 AXT,2
018825,000564: 15,2753 00365 MARKSTAT
018826,000565: 15,2754 00002 2
018827,000566: 15,2755 67064 XSU,2 SXA,2
018828,000567: 15,2756 00046 X1
018829,000568: 15,2757 00050 S1
018830,000569: 15,2760 77634 CALL
018831,000570: 15,2761 16310 SXTNB
018832,000571: 15,2762 77634 CALL
018833,000572: 15,2763 16130 NBSM
018834,000573: 15,2764 01652 STORE VECTEM
018835,000574: 15,2765 62140 LXC,1 INCR,1
018836,000575: 15,2766 00365 MARKSTAT
018837,000576: 15,2767 77770 DEC -7 B-14
018838,000577: 15,2770 55174 AXT,2 XSU,2
018839,000578: 15,2771 00002 2
018840,000579: 15,2772 00046 X1
018841,000580: 15,2773 47134 SXA,2 CALL
018842,000581: 15,2774 00050 S1
018843,000582: 15,2775 16310 SXTNB
018844,000583: 15,2776 77634 CALL
018845,000584: 15,2777 16130 NBSM
018846,000585: 15,3000 22015 STOVL 12D
018847,000586: 15,3001 01652 VECTEM
018848,000587: 15,3002 00007 STORE 6 # TO AVOID ERASABLE BIND
018849,000588:
018850,000589: 15,3003 77634 CALL # FIND DESIRED SM IN PRESENT SM
018851,000590: 15,3004 16344 AXISGEN
018852,000591:
018853,000592: 15,3005 77634 CALL # CALCULATE REQUIRED PULSE TORQUE IN GYROD
018854,000593: 15,3006 16000 CALCGTA
018855,000594: 15,3007 77776 EXIT
018856,000595:
018857,000596: 15,3010 33031 CAF V06N60P
018858,000597: 15,3011 05563 TC NVSBWAIT
018859,000598: 15,3012 05525 TC FLASHON
018860,000599: 15,3013 04724 TC ENDIDLE
018861,000600: 15,3014 03022 TC CHEXIT
018862,000601: 15,3015 03017 TC +2
018863,000602: 15,3016 03010 TC -6
018864,000603:
018865,000604: 15,3017 06000 TC INTPRET
018866,000605: 15,3020 77414 SET EXIT
018867,000606: 15,3021 00070 OPTUSE
018868,000607:
018869,000608: 15,3022 05632 CHEXIT TC FREEDSP
018870,000609: 15,3023 04064 TC BANKCALL
018871,000610: 15,3024 27033 CADR MKRELEAS
018872,000611:
018873,000612: 15,3025 04572 TC NEWMODEX
018874,000613: 15,3026 00002 OCT 02
018875,000614:
018876,000615: 15,3027 04353 TC ENDOFJOB
018877,000616:
018878,000617: 15,3030 00630 V06N30P OCT 00630
018879,000618: 15,3031 00660 V06N60P OCT 00660
018880,000619:
018881,000620: # ROUTINE TO CONVERT TARGET AZIMUTH AND ELEVATIONS TO VECTORS
018882,000621:
018883,000622: 15,3032 77170 PROCTARG AXT,1 AXT,2
018884,000623: 15,3033 00001 1
018885,000624: 15,3034 00014 12D
018886,000625: 15,3035 66731 PROC1 SSP SLOAD*
018887,000626: 15,3036 00052 S2
018888,000627: 15,3037 00006 6
018889,000628: 15,3040 01667 TEL +1,1
018890,000629: 15,3041 41502 SR2 PUSH
018891,000630: 15,3042 57556 SIN DCOMP
018892,000631: 15,3043 13714 STODL TARGET1 +16D,2
018893,000632: 15,3044 41546 COS PUSH # PUSH DOWN THE COSINE OF ELEVATION
018894,000633: 15,3045 45133 SLOAD* RTB
018895,000634: 15,3046 01665 TAZ +1,1
018896,000635: 15,3047 11537 CDULOGIC
018897,000636: 15,3050 73406 PUSH SIN # THEN Y=0.5SIN(AZ)COS(EL)
018898,000637: 15,3051 72405 DMP SL1
018899,000638: 15,3052 00001 0D
018900,000639: 15,3053 13712 STODL TARGET1 +14D,2
018901,000640: 15,3054 41346 COS DMP
018902,000641: 15,3055 76152 SL1 AXT,1
018903,000642: 15,3056 00000 0D
018904,000643: 15,3057 05710 STORE TARGET1 +12D,2
018905,000644: 15,3060 43504 TIX,2 RVQ
018906,000645: 15,3061 33035 PROC1
018907,000646:
|
|
MAS 2023: The following routine is a patch added as what we believe to be the only difference between Sundial D and Sundial E. It was added to account for the missing INHINT before the original SPITYGRO scheduling. |
018911,000650:
018912,000651: 15,3062 00004 GOSPITGY INHINT
018913,000652: 15,3063 34437 CAF PRIO26
018914,000653: 15,3064 04276 TC NOVAC
018915,000654: 15,3065 02475 32005 2CADR SPITGYRO
018916,000655:
018917,000656: 15,3067 04353 TC ENDOFJOB
018918,000657:
018919,000658: 15,3070 ENDPRELS EQUALS
End of include-file PRELAUNCH_ALIGNMENT_PROGRAM.agc. Parent file is MAIN.agc