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