Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
055571,000002: ## Copyright: Public domain.
055572,000003: ## Filename: STAR_TABLES.agc
055573,000004: ## Purpose: A section of Skylark revision 048.
055574,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
055575,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
055576,000007: ## this software are available; instead, this file was created via
055577,000008: ## disassembly of dumps of the core rope modules actually flown on
055578,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
055579,000010: ## Museum of Space History.
055580,000011: ## Assembler: yaYUL
055581,000012: ## Contact: Ron Burkey <info@sandroid.org>.
055582,000013: ## Website: www.ibiblio.org/apollo/index.html
055583,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
055584,000015: ## 2024-03-05 MAS Updated for Skylark 48.
055585,000016:
055586,000017:
055587,000018: 15,2000 SETLOC STARTAB
055588,000019: 15,2000 BANK
055589,000020:
055590,000021: 15,3437 COUNT* $$/STARS
055591,000022: 15,3437 15241 32372 2DEC +.8322543673 B-1 # STAR 37 X
055592,000023: 15,3441 74071 63764 2DEC -.2429657768 B-1 # STAR 37 Y
055593,000024: 15,3443 70015 71041 2DEC -.4983174684 B-1 # STAR 37 Z
055594,000025:
055595,000026: 15,3445 14772 15321 2DEC +.8118187290 B-1 # STAR 36 X
055596,000027: 15,3447 67031 67765 2DEC -.5593567634 B-1 # STAR 36 Y
055597,000028: 15,3451 02534 20123 2DEC +.1675421212 B-1 # STAR 36 Z
055598,000029:
055599,000030: 15,3453 07177 21630 2DEC +.4530708165 B-1 # STAR 35 X
055600,000031: 15,3455 67255 77067 2DEC -.5412631657 B-1 # STAR 35 Y
055601,000032: 15,3457 13252 31743 2DEC +.7083509163 B-1 # STAR 35 Z
055602,000033:
055603,000034: 15,3461 05041 13023 2DEC +.3165704246 B-1 # STAR 34 X
055604,000035: 15,3463 70702 53546 2DEC -.4450237255 B-1 # STAR 34 Y
055605,000036: 15,3465 62461 62504 2DEC -.8376974691 B-1 # STAR 34 Z
055606,000037:
055607,000038: 15,3467 10610 36347 2DEC +.5479677261 B-1 # STAR 33 X
055608,000039: 15,3471 63210 77711 2DEC -.7957767725 B-1 # STAR 33 Y
055609,000040: 15,3473 73677 76206 2DEC -.2578191213 B-1 # STAR 33 Z
055610,000041:
055611,000042: 15,3475 07147 05222 2DEC +.4500934054 B-1 # STAR 32 X
055612,000043: 15,3477 61727 52107 2DEC -.8799661957 B-1 # STAR 32 Y
055613,000044: 15,3501 02334 15171 2DEC +.1519059600 B-1 # STAR 32 Z
055614,000045:
055615,000046: 15,3503 03170 13140 2DEC +.2021911120 B-1 # STAR 31 X
055616,000047: 15,3505 62021 45455 2DEC -.8729034786 B-1 # STAR 31 Y
055617,000048: 15,3507 70712 61372 2DEC -.4440250795 B-1 # STAR 31 Z
055618,000049:
055619,000050: 15,3511 01722 36656 2DEC +.1195024086 B-1 # STAR 30 X
055620,000051: 15,3513 63525 61071 2DEC -.7708087413 B-1 # STAR 30 Y
055621,000052: 15,3515 12006 06547 2DEC +.6257579872 B-1 # STAR 30 Z
055622,000053:
055623,000054: 15,3517 76106 76355 2DEC -.1163388632 B-1 # STAR 29 X
055624,000055: 15,3521 60376 43047 2DEC -.9689823983 B-1 # STAR 29 Y
055625,000056: 15,3523 03372 04023 2DEC +.2180329804 B-1 # STAR 29 Z
055626,000057:
055627,000058: 15,3525 76071 66614 2DEC -.1179551093 B-1 # STAR 28 X
055628,000059: 15,3527 72443 47072 2DEC -.3394503938 B-1 # STAR 28 Y
055629,000060: 15,3531 61043 47417 2DEC -.9331988117 B-1 # STAR 28 Z
055630,000061:
055631,000062: 15,3533 72232 41513 2DEC -.3561948806 B-1 # STAR 27 X
055632,000063: 15,3535 62656 44225 2DEC -.8224933890 B-1 # STAR 27 Y
055633,000064: 15,3537 70717 55452 2DEC -.4434296246 B-1 # STAR 27 Z
055634,000065:
055635,000066: 15,3541 67341 47541 2DEC -.5350048409 B-1 # STAR 26 X
055636,000067: 15,3543 64451 61504 2DEC -.7136778495 B-1 # STAR 26 Y
055637,000068: 15,3545 07167 36552 2DEC +.4521435028 B-1 # STAR 26 Z
055638,000069:
055639,000070: 15,3547 63311 67600 2DEC -.7878732623 B-1 # STAR 25 X
055640,000071: 15,3551 67552 52116 2DEC -.5182718149 B-1 # STAR 25 Y
055641,000072: 15,3553 05244 37662 2DEC +.3326410200 B-1 # STAR 25 Z
055642,000073:
055643,000074: 15,3555 64724 45312 2DEC -.6928505073 B-1 # STAR 24 X
055644,000075: 15,3557 71267 47042 2DEC -.4151341670 B-1 # STAR 24 Y
055645,000076: 15,3561 66442 41237 2DEC -.5895946046 B-1 # STAR 24 Z
055646,000077:
055647,000078: 15,3563 66550 50673 2DEC -.5810208598 B-1 # STAR 23 X
055648,000079: 15,3565 73306 43562 2DEC -.2883158706 B-1 # STAR 23 Y
055649,000080: 15,3567 14133 00360 2DEC +.7611101885 B-1 # STAR 23 Z
055650,000081:
055651,000082: 15,3571 61230 42331 2DEC -.9189360613 B-1 # STAR 22 X
055652,000083: 15,3573 72354 65310 2DEC -.3461098015 B-1 # STAR 22 Y
055653,000084: 15,3575 74762 70470 2DEC -.1891150984 B-1 # STAR 22 Z
055654,000085:
055655,000086: 15,3577 70566 55614 2DEC -.4542931560 B-1 # STAR 21 X
055656,000087: 15,3601 77174 44262 2DEC -.0473466895 B-1 # STAR 21 Y
055657,000088: 15,3603 61610 56370 2DEC -.8895931763 B-1 # STAR 21 Z
055658,000089:
055659,000090: 15,3605 60576 43313 2DEC -.9533561730 B-1 # STAR 20 X
055660,000091: 15,3607 77074 71055 2DEC -.0550800729 B-1 # STAR 20 Y
055661,000092: 15,3611 73200 70765 2DEC -.2967797042 B-1 # STAR 20 Z
055662,000093:
055663,000094: 15,3613 60437 54200 2DEC -.9649190792 B-1 # STAR 19 X
055664,000095: 15,3615 00722 10376 2DEC +.0569171730 B-1 # STAR 19 Y
055665,000096: 15,3617 04063 24371 2DEC +.2563037376 B-1 # STAR 19 Z
055666,000097:
055667,000098: 15,3621 62210 62535 2DEC -.8583271674 B-1 # STAR 18 X
055668,000099: 15,3623 07365 20063 2DEC +.4674686420 B-1 # STAR 18 Y
055669,000100: 15,3625 03304 34735 2DEC +.2115361489 B-1 # STAR 18 Z
055670,000101:
055671,000102: 15,3627 63515 60666 2DEC -.7717862824 B-1 # STAR 17 X
055672,000103: 15,3631 11714 16436 2DEC +.6187078821 B-1 # STAR 17 Y
055673,000104: 15,3633 75515 60467 2DEC -.1467872297 B-1 # STAR 17 Z
055674,000105:
055675,000106: 15,3635 70465 64330 2DEC -.4622023601 B-1 # STAR 16 X
055676,000107: 15,3637 07530 21260 2DEC +.4795583503 B-1 # STAR 16 Y
055677,000108: 15,3641 13736 21613 2DEC +.7459173994 B-1 # STAR 16 Z
055678,000109:
055679,000110: 15,3643 72172 40535 2DEC -.3601048130 B-1 # STAR 15 X
055680,000111: 15,3645 11161 13705 2DEC +.5763392844 B-1 # STAR 15 Y
055681,000112: 15,3647 64206 55145 2DEC -.7335922251 B-1 # STAR 15 Z
055682,000113:
055683,000114: 15,3651 71364 72765 2DEC -.4076119204 B-1 # STAR 14 X
055684,000115: 15,3653 16421 17735 2DEC +.9083859733 B-1 # STAR 14 Y
055685,000116: 15,3655 01373 21410 2DEC +.0932064683 B-1 # STAR 14 Z
055686,000117:
055687,000118: 15,3657 75112 55423 2DEC -.1784151505 B-1 # STAR 13 X
055688,000119: 15,3661 17037 02401 2DEC +.9412937204 B-1 # STAR 13 Y
055689,000120: 15,3663 73324 47775 2DEC -.2865905892 B-1 # STAR 13 Z
055690,000121:
055691,000122: 15,3665 77021 65172 2DEC -.0603437771 B-1 # STAR 12 X
055692,000123: 15,3667 11517 11440 2DEC +.6034300291 B-1 # STAR 12 Y
055693,000124: 15,3671 63216 51454 2DEC -.7951294413 B-1 # STAR 12 Z
055694,000125:
055695,000126: 15,3673 02210 03446 2DEC +.1416151994 B-1 # STAR 11 X
055696,000127: 15,3675 12710 27163 2DEC +.6807526554 B-1 # STAR 11 Y
055697,000128: 15,3677 13377 21232 2DEC +.7186939246 B-1 # STAR 11 Z
055698,000129:
055699,000130: 15,3701 03220 36253 2DEC +.2051938364 B-1 # STAR 10 X
055700,000131: 15,3703 17372 34105 2DEC +.9681249050 B-1 # STAR 10 Y
055701,000132: 15,3705 75547 54135 2DEC -.1436302809 B-1 # STAR 10 Z
055702,000133:
055703,000134: 15,3707 05536 13650 2DEC +.3552697275 B-1 # STAR 9 X
055704,000135: 15,3711 16203 20634 2DEC +.8910553149 B-1 # STAR 9 Y
055705,000136: 15,3713 04412 06441 2DEC +.2824957457 B-1 # STAR 9 Z
055706,000137:
055707,000138: 15,3715 06501 26667 2DEC +.4142717678 B-1 # STAR 8 X
055708,000139: 15,3717 07747 04760 2DEC +.4969671969 B-1 # STAR 8 Y
055709,000140: 15,3721 14146 14120 2DEC +.7624975459 B-1 # STAR 8 Z
055710,000141:
055711,000142: 15,3723 13233 30217 2DEC +.7065135180 B-1 # STAR 7 X
055712,000143: 15,3725 13212 26733 2DEC +.7044331667 B-1 # STAR 7 Y
055713,000144: 15,3727 01054 13567 2DEC +.0679158478 B-1 # STAR 7 Z
055714,000145:
055715,000146: 15,3731 10571 32042 2DEC +.5461199432 B-1 # STAR 6 X
055716,000147: 15,3733 10356 00657 2DEC +.5290559424 B-1 # STAR 6 Y
055717,000148: 15,3735 65467 50747 2DEC -.6495019764 B-1 # STAR 6 Z
055718,000149:
055719,000150: 15,3737 00173 17203 2DEC +.0150728422 B-1 # STAR 5 X
055720,000151: 15,3741 00077 20433 2DEC +.0077535749 B-1 # STAR 5 Y
055721,000152: 15,3743 17776 32256 2DEC +.9998563354 B-1 # STAR 5 Z
055722,000153:
055723,000154: 15,3745 07667 05331 2DEC +.4911095585 B-1 # STAR 4 X
055724,000155: 15,3747 03374 11157 2DEC +.2182968779 B-1 # STAR 4 Y
055725,000156: 15,3751 62403 65377 2DEC -.8433017695 B-1 # STAR 4 Z
055726,000157:
055727,000158: 15,3753 07526 01114 2DEC +.4792524242 B-1 # STAR 3 X
055728,000159: 15,3755 01650 24430 2DEC +.1143361938 B-1 # STAR 3 Y
055729,000160: 15,3757 15730 25116 2DEC +.8701978789 B-1 # STAR 3 Z
055730,000161:
055731,000162: 15,3761 16746 31113 2DEC +.9344221007 B-1 # STAR 2 X
055732,000163: 15,3763 02553 06111 2DEC +.1693349531 B-1 # STAR 2 Y
055733,000164: 15,3765 72771 44142 2DEC -.3133384932 B-1 # STAR 2 Z
055734,000165:
055735,000166: 15,3767 16007 17211 2DEC +.8759127335 B-1 # STAR 1 X
055736,000167: 15,3771 00265 25407 2DEC +.0221767921 B-1 # STAR 1 Y
055737,000168: 15,3773 07554 06645 2DEC +.4819596176 B-1 # STAR 1 Z
055738,000169:
055739,000170: 15,3775 03665 CATLOG DEC 1973 B-14
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc