Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 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.
|
058017,000002: ## Copyright: Public domain.
058018,000003: ## Filename: STAR_TABLES.agc
058019,000004: ## Purpose: A section of Comanche revision 072.
058020,000005: ## It is part of the reconstructed source code for the first
058021,000006: ## release of the software for the Command Module's (CM) Apollo
058022,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
058023,000008: ## of this program are available; instead, this file was recreated
058024,000009: ## from a printout of Comanche 055, binary dumps of a set of
058025,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
058026,000011: ## and 072. It has been adapted such that the resulting bugger words
058027,000012: ## exactly match those specified for Comanche 072 in NASA drawing
058028,000013: ## 2021153G, which gives relatively high confidence that the
058029,000014: ## reconstruction is correct.
058030,000015: ## Assembler: yaYUL
058031,000016: ## Contact: Ron Burkey <info@sandroid.org>.
058032,000017: ## Website: www.ibiblio.org/apollo/index.html
058033,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
058034,000019:
058035,000020: 32,3770 BANK 32
058036,000021: 14,2000 SETLOC STARTAB
058037,000022: 14,2000 BANK
058038,000023:
058039,000024: 14,3426 COUNT 14/STARS
058040,000025:
058041,000026: 14,3426 15262 21773 2DEC +.8342971408 B-1 # STAR 37 X
058042,000027: 14,3430 74130 42420 2DEC -.2392481515 B-1 # STAR 37 Y
058043,000028: 14,3432 70033 41533 2DEC -.4966976975 B-1 # STAR 37 Z
058044,000029:
058045,000030: 14,3434 15014 04650 2DEC +.8139832631 B-1 # STAR 36 X
058046,000031: 14,3436 67067 60150 2DEC -.5557243189 B-1 # STAR 36 Y
058047,000032: 14,3440 02551 15723 2DEC +.1691204557 B-1 # STAR 36 Z
058048,000033:
058049,000034: 14,3442 07210 01664 2DEC +.4541086270 B-1 # STAR 35 X
058050,000035: 14,3444 67276 62232 2DEC -.5392368197 B-1 # STAR 35 Y
058051,000036: 14,3446 13262 00563 2DEC +.7092312789 B-1 # STAR 35 Z
058052,000037:
058053,000038: 14,3450 05076 35561 2DEC +.3201817378 B-1 # STAR 34 X
058054,000039: 14,3452 70716 40260 2DEC -.4436021946 B-1 # STAR 34 Y
058055,000040: 14,3454 62466 64656 2DEC -.8370786986 B-1 # STAR 34 Z
058056,000041:
058057,000042: 14,3456 10652 04246 2DEC +.5520184464 B-1 # STAR 33 X
058058,000043: 14,3460 63235 44200 2DEC -.7933187400 B-1 # STAR 33 Y
058059,000044: 14,3462 73710 66230 2DEC -.2567508745 B-1 # STAR 33 Z
058060,000045:
058061,000046: 14,3464 07204 33712 2DEC +.4537196908 B-1 # STAR 32 X
058062,000047: 14,3466 61747 72343 2DEC -.8779508801 B-1 # STAR 32 Y
058063,000048: 14,3470 02343 21362 2DEC +.1527766153 B-1 # STAR 32 Z
058064,000049:
058065,000050: 14,3472 03237 13301 2DEC +.2069525789 B-1 # STAR 31 X
058066,000051: 14,3474 62030 65332 2DEC -.8719885748 B-1 # STAR 31 Y
058067,000052: 14,3476 70715 71267 2DEC -.4436288486 B-1 # STAR 31 Z
058068,000053:
058069,000054: 14,3500 01745 06477 2DEC +.1217293692 B-1 # STAR 30 X
058070,000055: 14,3502 63531 75365 2DEC -.7702732847 B-1 # STAR 30 Y
058071,000056: 14,3504 12010 03005 2DEC +.6259880410 B-1 # STAR 30 Z
058072,000057:
058073,000058: 14,3506 76146 77014 2DEC -.1124304773 B-1 # STAR 29 X
058074,000059: 14,3510 60371 75073 2DEC -.9694934200 B-1 # STAR 29 Y
058075,000060: 14,3512 03370 12003 2DEC +.2178116072 B-1 # STAR 29 Z
058076,000061:
058077,000062: 14,3514 76125 40037 2DEC -.1146237858 B-1 # STAR 28 X
058078,000063: 14,3516 72436 77062 2DEC -.3399692557 B-1 # STAR 28 Y
058079,000064: 14,3520 61041 54164 2DEC -.9334250333 B-1 # STAR 28 Z
058080,000065:
058081,000066: 14,3522 72277 51044 2DEC -.3516499609 B-1 # STAR 27 X
058082,000067: 14,3524 62641 45471 2DEC -.8240752703 B-1 # STAR 27 Y
058083,000068: 14,3526 70711 70546 2DEC -.4441196390 B-1 # STAR 27 Z
058084,000069:
058085,000070: 14,3530 67364 47073 2DEC -.5326876930 B-1 # STAR 26 X
058086,000071: 14,3532 64425 77777 2DEC -.7160644554 B-1 # STAR 26 Y
058087,000072: 14,3534 07157 16322 2DEC +.4511047742 B-1 # STAR 26 Z
058088,000073:
058089,000074: 14,3536 63327 64446 2DEC -.7861763936 B-1 # STAR 25 X
058090,000075: 14,3540 67515 55266 2DEC -.5217996305 B-1 # STAR 25 Y
058091,000076: 14,3542 05230 25476 2DEC +.3311371675 B-1 # STAR 25 Z
058092,000077:
058093,000078: 14,3544 64754 72604 2DEC -.6898393233 B-1 # STAR 24 X
058094,000079: 14,3546 71235 72553 2DEC -.4182330640 B-1 # STAR 24 Y
058095,000080: 14,3550 66427 42171 2DEC -.5909338474 B-1 # STAR 24 Z
058096,000081:
058097,000082: 14,3552 66546 70765 2DEC -.5812035376 B-1 # STAR 23 X
058098,000083: 14,3554 73260 71643 2DEC -.2909171294 B-1 # STAR 23 Y
058099,000084: 14,3556 14121 30153 2DEC +.7599800468 B-1 # STAR 23 Z
058100,000085:
058101,000086: 14,3560 61247 73310 2DEC -.9170097662 B-1 # STAR 22 X
058102,000087: 14,3562 72313 41247 2DEC -.3502146628 B-1 # STAR 22 Y
058103,000088: 14,3564 74744 44566 2DEC -.1908999176 B-1 # STAR 22 Z
058104,000089:
058105,000090: 14,3566 70606 54564 2DEC -.4523440203 B-1 # STAR 21 X
058106,000091: 14,3570 77153 61536 2DEC -.0493710140 B-1 # STAR 21 Y
058107,000092: 14,3572 61601 47046 2DEC -.8904759346 B-1 # STAR 21 Z
058108,000093:
058109,000094: 14,3574 60604 76224 2DEC -.9525211695 B-1 # STAR 20 X
058110,000095: 14,3576 77031 73354 2DEC -.0593434796 B-1 # STAR 20 Y
058111,000096: 14,3600 73161 63065 2DEC -.2986331746 B-1 # STAR 20 Z
058112,000097:
058113,000098: 14,3602 60431 51702 2DEC -.9656605484 B-1 # STAR 19 X
058114,000099: 14,3604 00656 33013 2DEC +.0525933156 B-1 # STAR 19 Y
058115,000100: 14,3606 04044 10627 2DEC +.2544280809 B-1 # STAR 19 Z
058116,000101:
058117,000102: 14,3610 62164 45040 2DEC -.8608205219 B-1 # STAR 18 X
058118,000103: 14,3612 07325 37443 2DEC +.4636213989 B-1 # STAR 18 Y
058119,000104: 14,3614 03267 06626 2DEC +.2098647835 B-1 # STAR 18 Z
058120,000105:
058121,000106: 14,3616 63471 50471 2DEC -.7742591356 B-1 # STAR 17 X
058122,000107: 14,3620 11660 04151 2DEC +.6152504197 B-1 # STAR 17 Y
058123,000108: 14,3622 75501 46664 2DEC -.1482892839 B-1 # STAR 17 Z
058124,000109:
058125,000110: 14,3624 70430 46540 2DEC -.4657947941 B-1 # STAR 16 X
058126,000111: 14,3626 07507 20100 2DEC +.4774785033 B-1 # STAR 16 Y
058127,000112: 14,3630 13727 05455 2DEC +.7450164351 B-1 # STAR 16 Z
058128,000113:
058129,000114: 14,3632 72160 64202 2DEC -.3612508532 B-1 # STAR 15 X
058130,000115: 14,3634 11144 05203 2DEC +.5747270840 B-1 # STAR 15 Y
058131,000116: 14,3636 64200 65331 2DEC -.7342932655 B-1 # STAR 15 Z
058132,000117:
058133,000118: 14,3640 71322 41512 2DEC -.4118589524 B-1 # STAR 14 X
058134,000119: 14,3642 16402 16205 2DEC +.9065485360 B-1 # STAR 14 Y
058135,000120: 14,3644 01365 04034 2DEC +.0924226975 B-1 # STAR 14 Z
058136,000121:
058137,000122: 14,3646 75054 56052 2DEC -.1820751783 B-1 # STAR 13 X
058138,000123: 14,3650 17030 17635 2DEC +.9404899869 B-1 # STAR 13 Y
058139,000124: 14,3652 73321 57603 2DEC -.2869271926 B-1 # STAR 13 Z
058140,000125:
058141,000126: 14,3654 77010 47623 2DEC -.0614937230 B-1 # STAR 12 X
058142,000127: 14,3656 11515 01640 2DEC +.6031563286 B-1 # STAR 12 Y
058143,000128: 14,3660 63215 52176 2DEC -.7952489957 B-1 # STAR 12 Z
058144,000129:
058145,000130: 14,3662 02143 26755 2DEC +.1371725575 B-1 # STAR 11 X
058146,000131: 14,3664 12715 31470 2DEC +.6813721061 B-1 # STAR 11 Y
058147,000132: 14,3666 13401 31222 2DEC +.7189685267 B-1 # STAR 11 Z
058148,000133:
058149,000134: 14,3670 03157 27504 2DEC +.2011399589 B-1 # STAR 10 X
058150,000135: 14,3672 17402 12312 2DEC +.9690337941 B-1 # STAR 10 Y
058151,000136: 14,3674 75552 63657 2DEC -.1432348512 B-1 # STAR 10 Z
058152,000137:
058153,000138: 14,3676 05471 06122 2DEC +.3507315038 B-1 # STAR 9 X
058154,000139: 14,3700 16220 16362 2DEC +.8926333307 B-1 # STAR 9 Y
058155,000140: 14,3702 04417 32762 2DEC +.2831839492 B-1 # STAR 9 Z
058156,000141:
058157,000142: 14,3704 06443 12622 2DEC +.4105636020 B-1 # STAR 8 X
058158,000143: 14,3706 07766 10237 2DEC +.4988110001 B-1 # STAR 8 Y
058159,000144: 14,3710 14154 36154 2DEC +.7632988371 B-1 # STAR 8 Z
058160,000145:
058161,000146: 14,3712 13200 31653 2DEC +.7032235469 B-1 # STAR 7 X
058162,000147: 14,3714 13244 21036 2DEC +.7075846047 B-1 # STAR 7 Y
058163,000148: 14,3716 01067 23106 2DEC +.0692868685 B-1 # STAR 7 Z
058164,000149:
058165,000150: 14,3720 10560 27227 2DEC +.5450107404 B-1 # STAR 6 X
058166,000151: 14,3722 10402 00275 2DEC +.5314955466 B-1 # STAR 6 Y
058167,000152: 14,3724 65477 77044 2DEC -.6484410356 B-1 # STAR 6 Z
058168,000153:
058169,000154: 14,3726 00153 11212 2DEC +.0130968840 B-1 # STAR 5 X
058170,000155: 14,3730 00077 36275 2DEC +.0078062795 B-1 # STAR 5 Y
058171,000156: 14,3732 17777 01417 2DEC +.9998837600 B-1 # STAR 5 Z
058172,000157:
058173,000158: 14,3734 07674 21771 2DEC +.4917678276 B-1 # STAR 4 X
058174,000159: 14,3736 03416 07626 2DEC +.2204887125 B-1 # STAR 4 Y
058175,000160: 14,3740 62413 57536 2DEC -.8423473935 B-1 # STAR 4 Z
058176,000161:
058177,000162: 14,3742 07510 06414 2DEC +.4775639450 B-1 # STAR 3 X
058178,000163: 14,3744 01673 06065 2DEC +.1166004340 B-1 # STAR 3 Y
058179,000164: 14,3746 15735 31531 2DEC +.8708254803 B-1 # STAR 3 Z
058180,000165:
058181,000166: 14,3750 16745 17555 2DEC +.9342640400 B-1 # STAR 2 X
058182,000167: 14,3752 02615 13716 2DEC +.1735073142 B-1 # STAR 2 Y
058183,000168: 14,3754 73010 40311 2DEC -.3115219339 B-1 # STAR 2 Z
058184,000169:
058185,000170: 14,3756 15776 34660 2DEC +.8748658918 B-1 # STAR 1 X
058186,000171: 14,3760 00325 26625 2DEC +.0260879174 B-1 # STAR 1 Y
058187,000172: 14,3762 07572 05105 2DEC +.4836621670 B-1 # STAR 1 Z
058188,000173:
058189,000174: 14,3764 15472 CATLOG DEC 6970 B-14
058190,000175:
058191,000176:
058192,000177:
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc