Source Code
|
These source-code files are part of a reconstructed copy of Artemis 071, the
first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with source code of Artemis 072 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes between the two versions. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021154-. Note that page
numbers in the reconstructed code match those on the Artemis 072 printout,
although the changed code would likely have changed page numbers for a real
Artemis 071 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
059360,000002: ## Copyright: Public domain.
059361,000003: ## Filename: STAR_TABLES.agc
059362,000004: ## Purpose: A section of Artemis revision 071.
059363,000005: ## It is part of the reconstructed source code for the first
059364,000006: ## release of the flight software for the Command Module's
059365,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
059366,000008: ## 17. The code has been recreated from a copy of Artemis 072.
059367,000009: ## It has been adapted such that the resulting bugger words
059368,000010: ## exactly match those specified for Artemis 071 in NASA
059369,000011: ## drawing 2021154-, which gives relatively high confidence
059370,000012: ## that the reconstruction is correct.
059371,000013: ## Reference: 1387
059372,000014: ## Assembler: yaYUL
059373,000015: ## Contact: Ron Burkey <info@sandroid.org>.
059374,000016: ## Website: www.ibiblio.org/apollo/index.html
059375,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
059376,000018:
|
|
Page 1387
|
059378,000020:
059379,000021: 15,2000 SETLOC STARTAB
059380,000022: 15,2000 BANK
059381,000023:
059382,000024: 15,3437 COUNT* $$/STARS
059383,000025: 15,3437 15264 07253 2DEC +.8345006310 B-1 # STAR 37 X
059384,000026: 15,3441 74133 45130 2DEC -.2388718657 B-1 # STAR 37 Y
059385,000027: 15,3443 70034 53644 2DEC -.4965369357 B-1 # STAR 37 Z
059386,000028:
059387,000029: 15,3445 15015 35262 2DEC +.8141988673 B-1 # STAR 36 X
059388,000030: 15,3447 67072 57521 2DEC -.5553601830 B-1 # STAR 36 Y
059389,000031: 15,3451 02552 27310 2DEC +.1692786800 B-1 # STAR 36 Z
059390,000032:
059391,000033: 15,3453 07210 34714 2DEC +.4542117996 B-1 # STAR 35 X
059392,000034: 15,3455 67300 47414 2DEC -.5390337930 B-1 # STAR 35 Y
059393,000035: 15,3457 13262 27671 2DEC +.7093195408 B-1 # STAR 35 Z
059394,000036:
059395,000037: 15,3461 05101 34175 2DEC +.3205423120 B-1 # STAR 34 X
059396,000038: 15,3463 70717 46031 2DEC -.4434583652 B-1 # STAR 34 Y
059397,000039: 15,3465 62467 45023 2DEC -.8370169081 B-1 # STAR 34 Z
059398,000040:
059399,000041: 15,3467 10655 16340 2DEC +.5524232365 B-1 # STAR 33 X
059400,000042: 15,3471 63237 45012 2DEC -.7930716636 B-1 # STAR 33 Y
059401,000043: 15,3473 73711 62337 2DEC -.2566435348 B-1 # STAR 33 Z
059402,000044:
059403,000045: 15,3475 07207 34100 2DEC +.4540867784 B-1 # STAR 32 X
059404,000046: 15,3477 61751 60311 2DEC -.8777450759 B-1 # STAR 32 Y
059405,000047: 15,3501 02344 11437 2DEC +.1528685033 B-1 # STAR 32 Z
059406,000048:
059407,000049: 15,3503 03243 10132 2DEC +.2074286490 B-1 # STAR 31 X
059408,000050: 15,3505 62031 55616 2DEC -.8718956797 B-1 # STAR 31 Y
059409,000051: 15,3507 70716 43617 2DEC -.4435890882 B-1 # STAR 31 Z
059410,000052:
059411,000053: 15,3511 01747 01335 2DEC +.1219537054 B-1 # STAR 30 X
059412,000054: 15,3513 63532 54217 2DEC -.7702168243 B-1 # STAR 30 Y
|
|
Page 1388
|
059414,000056: 15,3515 12010 11614 2DEC +.6260138474 B-1 # STAR 30 Z
059415,000057:
059416,000058: 15,3517 76152 45651 2DEC -.1120382967 B-1 # STAR 29 X
059417,000059: 15,3521 60371 57632 2DEC -.9695442116 B-1 # STAR 29 Y
059418,000060: 15,3523 03370 03556 2DEC +.2177876068 B-1 # STAR 29 Z
059419,000061:
059420,000062: 15,3525 76127 67425 2DEC -.1142900725 B-1 # STAR 28 X
059421,000063: 15,3527 72436 61577 2DEC -.3400201762 B-1 # STAR 28 Y
059422,000064: 15,3531 61041 46271 2DEC -.9334474056 B-1 # STAR 28 Z
059423,000065:
059424,000066: 15,3533 72303 40213 2DEC -.3511952476 B-1 # STAR 27 X
059425,000067: 15,3535 62637 74356 2DEC -.8242322268 B-1 # STAR 27 Y
059426,000068: 15,3537 70711 46567 2DEC -.4441881743 B-1 # STAR 27 Z
059427,000069:
059428,000070: 15,3541 67366 44175 2DEC -.5324545035 B-1 # STAR 26 X
059429,000071: 15,3543 64424 41241 2DEC -.7163035719 B-1 # STAR 26 Y
059430,000072: 15,3545 07156 23036 2DEC +.4510004372 B-1 # STAR 26 Z
059431,000073:
059432,000074: 15,3547 63330 75735 2DEC -.7860186221 B-1 # STAR 25 X
059433,000075: 15,3551 67512 62476 2DEC -.5221457573 B-1 # STAR 25 Y
059434,000076: 15,3553 05227 10611 2DEC +.3309660611 B-1 # STAR 25 Z
059435,000077:
059436,000078: 15,3555 64757 51701 2DEC -.6895375091 B-1 # STAR 24 X
059437,000079: 15,3557 71233 53334 2DEC -.4185354938 B-1 # STAR 24 Y
059438,000080: 15,3561 66425 76017 2DEC -.5910719617 B-1 # STAR 24 Z
059439,000081:
059440,000082: 15,3563 66546 64151 2DEC -.5812217481 B-1 # STAR 23 X
059441,000083: 15,3565 73256 65757 2DEC -.2911759648 B-1 # STAR 23 Y
059442,000084: 15,3567 14120 32444 2DEC +.7598669864 B-1 # STAR 23 Z
059443,000085:
059444,000086: 15,3571 61251 56124 2DEC -.9168160791 B-1 # STAR 22 X
059445,000087: 15,3573 72307 65764 2DEC -.3506241694 B-1 # STAR 22 Y
059446,000088: 15,3575 74742 65735 2DEC -.1910784362 B-1 # STAR 22 Z
|
|
Page 1389
|
059448,000090: 15,3577 70607 77742 2DEC -.4521486548 B-1 # STAR 21 X
059449,000091: 15,3601 77151 74615 2DEC -.0495728431 B-1 # STAR 21 Y
059450,000092: 15,3603 61600 60003 2DEC -.8905639377 B-1 # STAR 21 Z
059451,000093:
059452,000094: 15,3605 60605 64345 2DEC -.9524366380 B-1 # STAR 20 X
059453,000095: 15,3607 77026 54200 2DEC -.0597677121 B-1 # STAR 20 Y
059454,000096: 15,3611 73160 42475 2DEC -.2988181236 B-1 # STAR 20 Z
059455,000097:
059456,000098: 15,3613 60430 66614 2DEC -.9657334280 B-1 # STAR 19 X
059457,000099: 15,3615 00653 13072 2DEC +.0521664164 B-1 # STAR 19 Y
059458,000100: 15,3617 04042 27232 2DEC +.2542392790 B-1 # STAR 19 Z
059459,000101:
059460,000102: 15,3621 62162 44274 2DEC -.8610673209 B-1 # STAR 18 X
059461,000103: 15,3623 07322 33165 2DEC +.4632386329 B-1 # STAR 18 Y
059462,000104: 15,3625 03265 32741 2DEC +.2096974909 B-1 # STAR 18 Z
059463,000105:
059464,000106: 15,3627 63467 50064 2DEC -.7745052221 B-1 # STAR 17 X
059465,000107: 15,3631 11655 11373 2DEC +.6149043688 B-1 # STAR 17 Y
059466,000108: 15,3633 75477 77366 2DEC -.1484394758 B-1 # STAR 17 Z
059467,000109:
059468,000110: 15,3635 70425 51217 2DEC -.4661511162 B-1 # STAR 16 X
059469,000111: 15,3637 07505 32504 2DEC +.4772744503 B-1 # STAR 16 Y
059470,000112: 15,3641 13726 15341 2DEC +.7449243154 B-1 # STAR 16 Z
059471,000113:
059472,000114: 15,3643 72157 66255 2DEC -.3613649782 B-1 # STAR 15 X
059473,000115: 15,3645 11142 32737 2DEC +.5745656444 B-1 # STAR 15 Y
059474,000116: 15,3647 64200 43016 2DEC -.7343634472 B-1 # STAR 15 Z
059475,000117:
059476,000118: 15,3651 71316 64201 2DEC -.4122762536 B-1 # STAR 14 X
059477,000119: 15,3653 16400 36737 2DEC +.9063680102 B-1 # STAR 14 Y
059478,000120: 15,3655 01364 14350 2DEC +.0923326629 B-1 # STAR 14 Z
059479,000121:
059480,000122: 15,3657 75051 60001 2DEC -.1824340636 B-1 # STAR 13 X
|
|
Page 1390
|
059482,000124: 15,3661 17027 31661 2DEC +.9404062129 B-1 # STAR 13 Y
059483,000125: 15,3663 73321 43422 2DEC -.2869738089 B-1 # STAR 13 Z
059484,000126:
059485,000127: 15,3665 77007 51442 2DEC -.0616090080 B-1 # STAR 12 X
059486,000128: 15,3667 11514 32502 2DEC +.6031289258 B-1 # STAR 12 Y
059487,000129: 15,3671 63215 47106 2DEC -.7952608559 B-1 # STAR 12 Z
059488,000130:
059489,000131: 15,3673 02140 02335 2DEC +.1367280274 B-1 # STAR 11 X
059490,000132: 15,3675 12716 12356 2DEC +.6814364033 B-1 # STAR 11 Y
059491,000133: 15,3677 13401 37404 2DEC +.7189922632 B-1 # STAR 11 Z
059492,000134:
059493,000135: 15,3701 03154 15267 2DEC +.2007345455 B-1 # STAR 10 X
059494,000136: 15,3703 17403 01743 2DEC +.9691236271 B-1 # STAR 10 Y
059495,000137: 15,3705 75552 76050 2DEC -.1431958012 B-1 # STAR 10 Z
059496,000138:
059497,000139: 15,3707 05465 17001 2DEC +.3502769546 B-1 # STAR 9 X
059498,000140: 15,3711 16221 27572 2DEC +.8927907521 B-1 # STAR 9 Y
059499,000141: 15,3713 04420 14273 2DEC +.2832502918 B-1 # STAR 9 Z
059500,000142:
059501,000143: 15,3715 06440 11323 2DEC +.4101921571 B-1 # STAR 8 X
059502,000144: 15,3717 07767 30366 2DEC +.4989947555 B-1 # STAR 8 Y
059503,000145: 15,3721 14155 23047 2DEC +.7633784305 B-1 # STAR 8 Z
059504,000146:
059505,000147: 15,3723 13176 03307 2DEC +.7028937840 B-1 # STAR 7 X
059506,000148: 15,3725 13247 03342 2DEC +.7078988678 B-1 # STAR 7 Y
059507,000149: 15,3727 01070 26607 2DEC +.0694227718 B-1 # STAR 7 Z
059508,000150:
059509,000151: 15,3731 10557 32115 2DEC +.5448995598 B-1 # STAR 6 X
059510,000152: 15,3733 10404 00124 2DEC +.5317389073 B-1 # STAR 6 Y
059511,000153: 15,3735 65500 72703 2DEC -.6483349473 B-1 # STAR 6 Z
059512,000154:
059513,000155: 15,3737 00151 25431 2DEC +.0128995818 B-1 # STAR 5 X
059514,000156: 15,3741 00077 37176 2DEC +.0078096205 B-1 # STAR 5 Y
|
|
Page 1391
|
059516,000158: 15,3743 17777 02143 2DEC +.9998862988 B-1 # STAR 5 Z
059517,000159:
059518,000160: 15,3745 07675 02702 2DEC +.4918322686 B-1 # STAR 4 X
059519,000161: 15,3747 03420 01470 2DEC +.2207092653 B-1 # STAR 4 Y
059520,000162: 15,3751 62414 50541 2DEC -.8422520048 B-1 # STAR 4 Z
059521,000163:
059522,000164: 15,3753 07506 14361 2DEC +.4773424940 B-1 # STAR 3 X
059523,000165: 15,3755 01674 36075 2DEC +.1168141178 B-1 # STAR 3 Y
059524,000166: 15,3757 15736 21775 2DEC +.8709182540 B-1 # STAR 3 Z
059525,000167:
059526,000168: 15,3761 16745 13112 2DEC +.9342466124 B-1 # STAR 2 X
059527,000169: 15,3763 02620 31757 2DEC +.1739271769 B-1 # STAR 2 Y
059528,000170: 15,3765 73011 60052 2DEC -.3113400137 B-1 # STAR 2 Z
059529,000171:
059530,000172: 15,3767 15776 01237 2DEC +.8747608555 B-1 # STAR 1 X
059531,000173: 15,3771 00330 35521 2DEC +.0264803244 B-1 # STAR 1 Y
059532,000174: 15,3773 07573 21256 2DEC +.4838307948 B-1 # STAR 1 Z
059533,000175:
059534,000176: 15,3775 16004 CATLOG DEC 7172 B-14
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc