Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

057556,000002:                                                                                                  ## Copyright:   Public domain.
057557,000003:                                                                                                  ## Filename:    STAR_TABLES.agc
057558,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
057559,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
057560,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
057561,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
057562,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
057563,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
057564,000010:                                                                                                  ##              other AGC programs.
057565,000011:                                                                                                  ## Assembler:   yaYUL
057566,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
057567,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057568,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
057569,000015: 
057570,000016: 32,3770                                           BANK     32                                    
057571,000017: 14,2000                                           SETLOC   STARTAB                               
057572,000018: 14,2000                                           BANK                                           
057573,000019: 
057574,000020: 14,3424                                           COUNT    14/STARS                              
057575,000021: 
057576,000022: 14,3424           15262 21773                     2DEC     +.8342971408 B-1                        #  STAR 37       X
057577,000023: 14,3426           74130 42420                     2DEC     -.2392481515 B-1                        #  STAR 37       Y
057578,000024: 14,3430           70033 41533                     2DEC     -.4966976975 B-1                        #  STAR 37       Z
057579,000025: 
057580,000026: 14,3432           15014 04650                     2DEC     +.8139832631 B-1                        #  STAR 36       X
057581,000027: 14,3434           67067 60150                     2DEC     -.5557243189 B-1                        #  STAR 36       Y
057582,000028: 14,3436           02551 15723                     2DEC     +.1691204557 B-1                        #  STAR 36       Z
057583,000029: 
057584,000030: 14,3440           07210 01664                     2DEC     +.4541086270 B-1                        #  STAR 35       X
057585,000031: 14,3442           67276 62232                     2DEC     -.5392368197 B-1                        #  STAR 35       Y
057586,000032: 14,3444           13262 00563                     2DEC     +.7092312789 B-1                        #  STAR 35       Z
057587,000033: 
057588,000034: 14,3446           05076 35561                     2DEC     +.3201817378 B-1                        #  STAR 34       X
057589,000035: 14,3450           70716 40260                     2DEC     -.4436021946 B-1                        #  STAR 34       Y
057590,000036: 14,3452           62466 64656                     2DEC     -.8370786986 B-1                        #  STAR 34       Z
057591,000037: 
057592,000038: 14,3454           10652 04246                     2DEC     +.5520184464 B-1                        #  STAR 33       X
057593,000039: 14,3456           63235 44200                     2DEC     -.7933187400 B-1                        #  STAR 33       Y
057594,000040: 14,3460           73710 66230                     2DEC     -.2567508745 B-1                        #  STAR 33       Z
057595,000041: 
057596,000042: 14,3462           07204 33712                     2DEC     +.4537196908 B-1                        #  STAR 32       X
057597,000043: 14,3464           61747 72343                     2DEC     -.8779508801 B-1                        #  STAR 32       Y
057598,000044: 14,3466           02343 21362                     2DEC     +.1527766153 B-1                        #  STAR 32       Z
057599,000045: 
057600,000046: 14,3470           03237 13301                     2DEC     +.2069525789 B-1                        #  STAR 31       X
057601,000047: 14,3472           62030 65332                     2DEC     -.8719885748 B-1                        #  STAR 31       Y
057602,000048: 14,3474           70715 71267                     2DEC     -.4436288486 B-1                        #  STAR 31       Z
057603,000049: 
057604,000050: 14,3476           01745 06477                     2DEC     +.1217293692 B-1                        #  STAR 30       X
057605,000051: 14,3500           63531 75365                     2DEC     -.7702732847 B-1                        #  STAR 30       Y
057606,000052: 14,3502           12010 03005                     2DEC     +.6259880410 B-1                        #  STAR 30       Z
057607,000053: 
057608,000054: 14,3504           76146 77014                     2DEC     -.1124304773 B-1                        #  STAR 29       X
057609,000055: 14,3506           60371 75073                     2DEC     -.9694934200 B-1                        #  STAR 29       Y
057610,000056: 14,3510           03370 12003                     2DEC     +.2178116072 B-1                        #  STAR 29       Z
057611,000057: 
057612,000058: 14,3512           76125 40037                     2DEC     -.1146237858 B-1                        #  STAR 28       X
057613,000059: 14,3514           72436 77062                     2DEC     -.3399692557 B-1                        #  STAR 28       Y
057614,000060: 14,3516           61041 54164                     2DEC     -.9334250333 B-1                        #  STAR 28       Z
057615,000061: 
057616,000062: 14,3520           72277 51044                     2DEC     -.3516499609 B-1                        #  STAR 27       X
057617,000063: 14,3522           62641 45471                     2DEC     -.8240752703 B-1                        #  STAR 27       Y
057618,000064: 14,3524           70711 70546                     2DEC     -.4441196390 B-1                        #  STAR 27       Z
057619,000065: 
057620,000066: 14,3526           67364 47073                     2DEC     -.5326876930 B-1                        #  STAR 26       X
057621,000067: 14,3530           64425 77777                     2DEC     -.7160644554 B-1                        #  STAR 26       Y
057622,000068: 14,3532           07157 16322                     2DEC     +.4511047742 B-1                        #  STAR 26       Z
057623,000069: 
057624,000070: 14,3534           63327 64446                     2DEC     -.7861763936 B-1                        #  STAR 25       X
057625,000071: 14,3536           67515 55266                     2DEC     -.5217996305 B-1                        #  STAR 25       Y
057626,000072: 14,3540           05230 25476                     2DEC     +.3311371675 B-1                        #  STAR 25       Z
057627,000073: 
057628,000074: 14,3542           64754 72604                     2DEC     -.6898393233 B-1                        #  STAR 24       X
057629,000075: 14,3544           71235 72553                     2DEC     -.4182330640 B-1                        #  STAR 24       Y
057630,000076: 14,3546           66427 42171                     2DEC     -.5909338474 B-1                        #  STAR 24       Z
057631,000077: 
057632,000078: 14,3550           66546 70765                     2DEC     -.5812035376 B-1                        #  STAR 23       X
057633,000079: 14,3552           73260 71643                     2DEC     -.2909171294 B-1                        #  STAR 23       Y
057634,000080: 14,3554           14121 30153                     2DEC     +.7599800468 B-1                        #  STAR 23       Z
057635,000081: 
057636,000082: 14,3556           61247 73310                     2DEC     -.9170097662 B-1                        #  STAR 22       X
057637,000083: 14,3560           72313 41247                     2DEC     -.3502146628 B-1                        #  STAR 22       Y
057638,000084: 14,3562           74744 44566                     2DEC     -.1908999176 B-1                        #  STAR 22       Z
057639,000085: 
057640,000086: 14,3564           70606 54564                     2DEC     -.4523440203 B-1                        #  STAR 21       X
057641,000087: 14,3566           77153 61536                     2DEC     -.0493710140 B-1                        #  STAR 21       Y
057642,000088: 14,3570           61601 47046                     2DEC     -.8904759346 B-1                        #  STAR 21       Z
057643,000089: 
057644,000090: 14,3572           60604 76224                     2DEC     -.9525211695 B-1                        #  STAR 20       X
057645,000091: 14,3574           77031 73354                     2DEC     -.0593434796 B-1                        #  STAR 20       Y
057646,000092: 14,3576           73161 63065                     2DEC     -.2986331746 B-1                        #  STAR 20       Z
057647,000093: 
057648,000094: 14,3600           60431 51702                     2DEC     -.9656605484 B-1                        #  STAR 19       X
057649,000095: 14,3602           00656 33013                     2DEC     +.0525933156 B-1                        #  STAR 19       Y
057650,000096: 14,3604           04044 10627                     2DEC     +.2544280809 B-1                        #  STAR 19       Z
057651,000097: 
057652,000098: 14,3606           62164 45040                     2DEC     -.8608205219 B-1                        #  STAR 18       X
057653,000099: 14,3610           07325 37443                     2DEC     +.4636213989 B-1                        #  STAR 18       Y
057654,000100: 14,3612           03267 06626                     2DEC     +.2098647835 B-1                        #  STAR 18       Z
057655,000101: 
057656,000102: 14,3614           63471 50471                     2DEC     -.7742591356 B-1                        #  STAR 17       X
057657,000103: 14,3616           11660 04151                     2DEC     +.6152504197 B-1                        #  STAR 17       Y
057658,000104: 14,3620           75501 46664                     2DEC     -.1482892839 B-1                        #  STAR 17       Z
057659,000105: 
057660,000106: 14,3622           70430 46540                     2DEC     -.4657947941 B-1                        #  STAR 16       X
057661,000107: 14,3624           07507 20100                     2DEC     +.4774785033 B-1                        #  STAR 16       Y
057662,000108: 14,3626           13727 05455                     2DEC     +.7450164351 B-1                        #  STAR 16       Z
057663,000109: 
057664,000110: 14,3630           72160 64202                     2DEC     -.3612508532 B-1                        #  STAR 15       X
057665,000111: 14,3632           11144 05203                     2DEC     +.5747270840 B-1                        #  STAR 15       Y
057666,000112: 14,3634           64200 65331                     2DEC     -.7342932655 B-1                        #  STAR 15       Z
057667,000113: 
057668,000114: 14,3636           71322 41512                     2DEC     -.4118589524 B-1                        #  STAR 14       X
057669,000115: 14,3640           16402 16205                     2DEC     +.9065485360 B-1                        #  STAR 14       Y
057670,000116: 14,3642           01365 04034                     2DEC     +.0924226975 B-1                        #  STAR 14       Z
057671,000117: 
057672,000118: 14,3644           75054 56052                     2DEC     -.1820751783 B-1                        #  STAR 13       X
057673,000119: 14,3646           17030 17635                     2DEC     +.9404899869 B-1                        #  STAR 13       Y
057674,000120: 14,3650           73321 57603                     2DEC     -.2869271926 B-1                        #  STAR 13       Z
057675,000121: 
057676,000122: 14,3652           77010 47623                     2DEC     -.0614937230 B-1                        #  STAR 12       X
057677,000123: 14,3654           11515 01640                     2DEC     +.6031563286 B-1                        #  STAR 12       Y
057678,000124: 14,3656           63215 52176                     2DEC     -.7952489957 B-1                        #  STAR 12       Z
057679,000125: 
057680,000126: 14,3660           02143 26755                     2DEC     +.1371725575 B-1                        #  STAR 11       X
057681,000127: 14,3662           12715 31470                     2DEC     +.6813721061 B-1                        #  STAR 11       Y
057682,000128: 14,3664           13401 31222                     2DEC     +.7189685267 B-1                        #  STAR 11       Z
057683,000129: 
057684,000130: 14,3666           03157 27504                     2DEC     +.2011399589 B-1                        #  STAR 10       X
057685,000131: 14,3670           17402 12312                     2DEC     +.9690337941 B-1                        #  STAR 10       Y
057686,000132: 14,3672           75552 63657                     2DEC     -.1432348512 B-1                        #  STAR 10       Z
057687,000133: 
057688,000134: 14,3674           05471 06122                     2DEC     +.3507315038 B-1                        #  STAR 9        X
057689,000135: 14,3676           16220 16362                     2DEC     +.8926333307 B-1                        #  STAR 9        Y
057690,000136: 14,3700           04417 32762                     2DEC     +.2831839492 B-1                        #  STAR 9        Z
057691,000137: 
057692,000138: 14,3702           06443 12622                     2DEC     +.4105636020 B-1                        #  STAR 8        X
057693,000139: 14,3704           07766 10237                     2DEC     +.4988110001 B-1                        #  STAR 8        Y
057694,000140: 14,3706           14154 36154                     2DEC     +.7632988371 B-1                        #  STAR 8        Z
057695,000141: 
057696,000142: 14,3710           13200 31653                     2DEC     +.7032235469 B-1                        #  STAR 7        X
057697,000143: 14,3712           13244 21036                     2DEC     +.7075846047 B-1                        #  STAR 7        Y
057698,000144: 14,3714           01067 23106                     2DEC     +.0692868685 B-1                        #  STAR 7        Z
057699,000145: 
057700,000146: 14,3716           10560 27227                     2DEC     +.5450107404 B-1                        #  STAR 6        X
057701,000147: 14,3720           10402 00275                     2DEC     +.5314955466 B-1                        #  STAR 6        Y
057702,000148: 14,3722           65477 77044                     2DEC     -.6484410356 B-1                        #  STAR 6        Z
057703,000149: 
057704,000150: 14,3724           00153 11212                     2DEC     +.0130968840 B-1                        #  STAR 5        X
057705,000151: 14,3726           00077 36275                     2DEC     +.0078062795 B-1                        #  STAR 5        Y
057706,000152: 14,3730           17777 01417                     2DEC     +.9998837600 B-1                        #  STAR 5        Z
057707,000153: 
057708,000154: 14,3732           07674 21771                     2DEC     +.4917678276 B-1                        #  STAR 4        X
057709,000155: 14,3734           03416 07626                     2DEC     +.2204887125 B-1                        #  STAR 4        Y
057710,000156: 14,3736           62413 57536                     2DEC     -.8423473935 B-1                        #  STAR 4        Z
057711,000157: 
057712,000158: 14,3740           07510 06414                     2DEC     +.4775639450 B-1                        #  STAR 3        X
057713,000159: 14,3742           01673 06065                     2DEC     +.1166004340 B-1                        #  STAR 3        Y
057714,000160: 14,3744           15735 31531                     2DEC     +.8708254803 B-1                        #  STAR 3        Z
057715,000161: 
057716,000162: 14,3746           16745 17555                     2DEC     +.9342640400 B-1                        #  STAR 2        X
057717,000163: 14,3750           02615 13716                     2DEC     +.1735073142 B-1                        #  STAR 2        Y
057718,000164: 14,3752           73010 40311                     2DEC     -.3115219339 B-1                        #  STAR 2        Z
057719,000165: 
057720,000166: 14,3754           15776 34660                     2DEC     +.8748658918 B-1                        #  STAR 1        X
057721,000167: 14,3756           00325 26625                     2DEC     +.0260879174 B-1                        #  STAR 1        Y
057722,000168: 14,3760           07572 05105                     2DEC     +.4836621670 B-1                        #  STAR 1        Z
057723,000169: 
057724,000170: 14,3762           15472        CATLOG             DEC      6970       B-14                       
057725,000171: 
057726,000172: 
057727,000173: 

End of include-file STAR_TABLES.agc.  Parent file is MAIN.agc