Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 source code was verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code match those on the Comanche 55 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step commentary about the reconstruction process.
Comments expected to have been present in 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.
|
059527,000002: ## Copyright: Public domain.
059528,000003: ## Filename: STAR_TABLES.agc
059529,000004: ## Purpose: A section of Comanche revision 044.
059530,000005: ## It is part of the reconstructed source code for the
059531,000006: ## original release of the flight software for the Command
059532,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
059533,000008: ## The code has been recreated from a copy of Comanche 055. It
059534,000009: ## has been adapted such that the resulting bugger words
059535,000010: ## exactly match those specified for Comanche 44 in NASA drawing
059536,000011: ## 2021153D, which gives relatively high confidence that the
059537,000012: ## reconstruction is correct.
059538,000013: ## Assembler: yaYUL
059539,000014: ## Contact: Ron Burkey <info@sandroid.org>.
059540,000015: ## Website: www.ibiblio.org/apollo/index.html
059541,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51. Copied contents
059542,000017: ## from Colossus 249, since Comanche 44 still
059543,000018: ## had the 1968-1969 star tables.
059544,000019: ## 2020-12-12 RSB Added justifying annotations for Mike's
059545,000020: ## reconstruction steps.
059546,000021:
|
|
Page 1389
|
059548,000023: 32,3770 BANK 32
059549,000024: 14,2000 SETLOC STARTAB
059550,000025: 14,2000 BANK
059551,000026:
059552,000027: 14,3423 COUNT 14/STARS
059553,000028:
059558,000033:
059559,000034: 14,3423 15261 27231 2DEC +.8341953207 B-1 # STAR 37 X
059560,000035: 14,3425 74126 61161 2DEC -.2394362567 B-1 # STAR 37 Y
059561,000036: 14,3427 70032 54470 2DEC -.4967780649 B-1 # STAR 37 Z
059562,000037:
059563,000038: 14,3431 15013 10432 2DEC +.8138753897 B-1 # STAR 36 X
059564,000039: 14,3433 67066 40370 2DEC -.5559063490 B-1 # STAR 36 Y
059565,000040: 14,3435 02550 31133 2DEC +.1690413589 B-1 # STAR 36 Z
059566,000041:
059567,000042: 14,3437 07207 24243 2DEC +.4540570017 B-1 # STAR 35 X
059568,000043: 14,3441 67275 67544 2DEC -.5393383149 B-1 # STAR 35 Y
059569,000044: 14,3443 13261 25121 2DEC +.7091871552 B-1 # STAR 35 Z
059570,000045:
059571,000046: 14,3445 05075 16350 2DEC +.3200014224 B-1 # STAR 34 X
059572,000047: 14,3447 70715 55404 2DEC -.4436740480 B-1 # STAR 34 Y
059573,000048: 14,3451 62466 54577 2DEC -.8371095679 B-1 # STAR 34 Z
059574,000049:
059575,000050: 14,3453 10650 17202 2DEC +.5518160037 B-1 # STAR 33 X
059576,000051: 14,3455 63234 43704 2DEC -.7934422090 B-1 # STAR 33 Y
059577,000052: 14,3457 73710 50170 2DEC -.2568045150 B-1 # STAR 33 Z
059578,000053:
059579,000054: 14,3461 07203 13612 2DEC +.4535361097 B-1 # STAR 32 X
059580,000055: 14,3463 61746 77370 2DEC -.8780537171 B-1 # STAR 32 Y
059581,000056: 14,3465 02343 05340 2DEC +.1527307006 B-1 # STAR 32 Z
059582,000057:
059583,000058: 14,3467 03235 14762 2DEC +.2067145272 B-1 # STAR 31 X
059584,000059: 14,3471 62030 51212 2DEC -.8720349419 B-1 # STAR 31 Y
059585,000060: 14,3473 70715 64117 2DEC -.4436486945 B-1 # STAR 31 Z
059586,000061:
059587,000062: 14,3475 01744 11157 2DEC +.1216171923 B-1 # STAR 30 X
|
|
Page 1390
|
059589,000064: 14,3477 63531 66055 2DEC -.7703014754 B-1 # STAR 30 Y
059590,000065: 14,3501 12007 37503 2DEC +.6259751556 B-1 # STAR 30 Z
059591,000066:
059592,000067: 14,3503 76145 53477 2DEC -.1126265542 B-1 # STAR 29 X
059593,000068: 14,3505 60372 43624 2DEC -.9694679589 B-1 # STAR 29 Y
059594,000069: 14,3507 03370 15121 2DEC +.2178236347 B-1 # STAR 29 Z
059595,000070:
059596,000071: 14,3511 76123 64245 2DEC -.1147906312 B-1 # STAR 28 X
059597,000072: 14,3513 72437 45623 2DEC -.3399437395 B-1 # STAR 28 Y
059598,000073: 14,3515 61041 57124 2DEC -.9334138229 B-1 # STAR 28 Z
059599,000074:
059600,000075: 14,3517 72275 55365 2DEC -.3518772846 B-1 # STAR 27 X
059601,000076: 14,3521 62641 72150 2DEC -.8239967165 B-1 # STAR 27 Y
059602,000077: 14,3523 70712 41542 2DEC -.4440853383 B-1 # STAR 27 Z
059603,000078:
059604,000079: 14,3525 67363 50441 2DEC -.5328042377 B-1 # STAR 26 X
059605,000080: 14,3527 64426 77263 2DEC -.7159448596 B-1 # STAR 26 Y
059606,000081: 14,3531 07157 34056 2DEC +.4511569595 B-1 # STAR 26 Z
059607,000082:
059608,000083: 14,3533 63326 77723 2DEC -.7862552143 B-1 # STAR 25 X
059609,000084: 14,3535 67516 72566 2DEC -.5216265404 B-1 # STAR 25 Y
059610,000085: 14,3537 05231 14031 2DEC +.3312227199 B-1 # STAR 25 Z
059611,000086:
059612,000087: 14,3541 64753 63156 2DEC -.6899901699 B-1 # STAR 24 X
059613,000088: 14,3543 71237 42272 2DEC -.4180817950 B-1 # STAR 24 Y
059614,000089: 14,3545 66427 64260 2DEC -.5908647707 B-1 # STAR 24 Z
059615,000090:
059616,000091: 14,3547 66546 73302 2DEC -.5811943804 B-1 # STAR 23 X
059617,000092: 14,3551 73261 73575 2DEC -.2907877154 B-1 # STAR 23 Y
059618,000093: 14,3553 14122 07016 2DEC +.7600365758 B-1 # STAR 23 Z
059619,000094:
059620,000095: 14,3555 61247 42015 2DEC -.9171065276 B-1 # STAR 22 X
059621,000096: 14,3557 72314 67004 2DEC -.3500098785 B-1 # STAR 22 Y
|
|
Page 1391
|
059623,000098: 14,3561 74744 74104 2DEC -.1908106439 B-1 # STAR 22 Z
059624,000099:
059625,000100: 14,3563 70605 63103 2DEC -.4524416631 B-1 # STAR 21 X
059626,000101: 14,3565 77154 54113 2DEC -.0492700670 B-1 # STAR 21 Y
059627,000102: 14,3567 61601 62472 2DEC -.8904319167 B-1 # STAR 21 Z
059628,000103:
059629,000104: 14,3571 60604 63166 2DEC -.9525633510 B-1 # STAR 20 X
059630,000105: 14,3573 77033 63044 2DEC -.0591313500 B-1 # STAR 20 Y
059631,000106: 14,3575 73162 53261 2DEC -.2985406935 B-1 # STAR 20 Z
059632,000107:
059633,000108: 14,3577 60431 63350 2DEC -.9656240240 B-1 # STAR 19 X
059634,000109: 14,3601 00660 22763 2DEC +.0528067543 B-1 # STAR 19 Y
059635,000110: 14,3603 04045 01424 2DEC +.2545224762 B-1 # STAR 19 Z
059636,000111:
059637,000112: 14,3605 62165 45335 2DEC -.8606970465 B-1 # STAR 18 X
059638,000113: 14,3607 07327 21564 2DEC +.4638127405 B-1 # STAR 18 Y
059639,000114: 14,3611 03267 34557 2DEC +.2099484122 B-1 # STAR 18 Z
059640,000115:
059641,000116: 14,3613 63472 50705 2DEC -.7741360248 B-1 # STAR 17 X
059642,000117: 14,3615 11661 21433 2DEC +.6154234025 B-1 # STAR 17 Y
059643,000118: 14,3617 75501 72421 2DEC -.1482142053 B-1 # STAR 17 Z
059644,000119:
059645,000120: 14,3621 70431 65316 2DEC -.4656165921 B-1 # STAR 16 X
059646,000121: 14,3623 07510 12666 2DEC +.4775804724 B-1 # STAR 16 Y
059647,000122: 14,3625 13727 21520 2DEC +.7450624681 B-1 # STAR 16 Z
059648,000123:
059649,000124: 14,3627 72161 43161 2DEC -.3611937602 B-1 # STAR 15 X
059650,000125: 14,3631 11144 32323 2DEC +.5748077840 B-1 # STAR 15 Y
059651,000126: 14,3633 64200 76476 2DEC -.7342581827 B-1 # STAR 15 Z
059652,000127:
059653,000128: 14,3635 71323 70264 2DEC -.4116502629 B-1 # STAR 14 X
059654,000129: 14,3637 16403 05717 2DEC +.9066387314 B-1 # STAR 14 Y
059655,000130: 14,3641 01365 17662 2DEC +.0924676785 B-1 # STAR 14 Z
059656,000131:
|
|
Page 1392
|
059658,000133: 14,3643 75055 75101 2DEC -.1818957154 B-1 # STAR 13 X
059659,000134: 14,3645 17030 32613 2DEC +.9405318128 B-1 # STAR 13 Y
059660,000135: 14,3647 73321 65667 2DEC -.2869039173 B-1 # STAR 13 Z
059661,000136:
059662,000137: 14,3651 77010 66714 2DEC -.0614360769 B-1 # STAR 12 X
059663,000138: 14,3653 11515 05314 2DEC +.6031700106 B-1 # STAR 12 Y
059664,000139: 14,3655 63215 53630 2DEC -.7952430739 B-1 # STAR 12 Z
059665,000140:
059666,000141: 14,3657 02145 21163 2DEC +.1373948084 B-1 # STAR 11 X
059667,000142: 14,3661 12715 21123 2DEC +.6813398852 B-1 # STAR 11 Y
059668,000143: 14,3663 13401 26125 2DEC +.7189566241 B-1 # STAR 11 Z
059669,000144:
059670,000145: 14,3665 03161 14610 2DEC +.2013426456 B-1 # STAR 10 X
059671,000146: 14,3667 17401 36465 2DEC +.9689888101 B-1 # STAR 10 Y
059672,000147: 14,3671 75552 56556 2DEC -.1432544058 B-1 # STAR 10 Z
059673,000148:
059674,000149: 14,3673 05473 01565 2DEC +.3509587451 B-1 # STAR 9 X
059675,000150: 14,3675 16217 31643 2DEC +.8925545449 B-1 # STAR 9 Y
059676,000151: 14,3677 04417 22211 2DEC +.2831507435 B-1 # STAR 9 Z
059677,000152:
059678,000153: 14,3701 06444 33354 2DEC +.4107492871 B-1 # STAR 8 X
059679,000154: 14,3703 07765 20153 2DEC +.4987190610 B-1 # STAR 8 Y
059680,000155: 14,3705 14154 23613 2DEC +.7632590132 B-1 # STAR 8 Z
059681,000156:
059682,000157: 14,3707 13202 05024 2DEC +.7033883645 B-1 # STAR 7 X
059683,000158: 14,3711 13243 07665 2DEC +.7074274193 B-1 # STAR 7 Y
059684,000159: 14,3713 01067 01242 2DEC +.0692188921 B-1 # STAR 7 Z
059685,000160:
059686,000161: 14,3715 10561 05666 2DEC +.5450662811 B-1 # STAR 6 X
059687,000162: 14,3717 10401 00357 2DEC +.5313738486 B-1 # STAR 6 Y
059688,000163: 14,3721 65477 61124 2DEC -.6484940879 B-1 # STAR 6 Z
059689,000164:
059690,000165: 14,3723 00154 03111 2DEC +.0131955837 B-1 # STAR 5 X
|
|
Page 1393
|
059692,000167: 14,3725 00077 35676 2DEC +.0078043793 B-1 # STAR 5 Y
059693,000168: 14,3727 17777 01142 2DEC +.9998824772 B-1 # STAR 5 Z
059694,000169:
059695,000170: 14,3731 07674 11416 2DEC +.4917355618 B-1 # STAR 4 X
059696,000171: 14,3733 03415 12707 2DEC +.2203784481 B-1 # STAR 4 Y
059697,000172: 14,3735 62413 43135 2DEC -.8423950835 B-1 # STAR 4 Z
059698,000173:
059699,000174: 14,3737 07511 03423 2DEC +.4776746280 B-1 # STAR 3 X
059700,000175: 14,3741 01672 12054 2DEC +.1164935557 B-1 # STAR 3 Y
059701,000176: 14,3743 15735 15405 2DEC +.8707790771 B-1 # STAR 3 Z
059702,000177:
059703,000178: 14,3745 16745 21763 2DEC +.9342726691 B-1 # STAR 2 X
059704,000179: 14,3747 02613 24675 2DEC +.1732973829 B-1 # STAR 2 Y
059705,000180: 14,3751 73007 50430 2DEC -.3116128956 B-1 # STAR 2 Z
059706,000181:
059707,000182: 14,3753 15777 12457 2DEC +.8749183324 B-1 # STAR 1 X
059708,000183: 14,3755 00324 03265 2DEC +.0258916990 B-1 # STAR 1 Y
059709,000184: 14,3757 07571 17020 2DEC +.4835778442 B-1 # STAR 1 Z
059710,000185:
059711,000186: 14,3761 15325 CATLOG DEC 6869 B-14
059712,000187:
059713,000188:
059714,000189:
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc