Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

060470,000002:                                                                                                  ## Copyright:   Public domain.
060471,000003:                                                                                                  ## Filename:    STAR_TABLES.agc
060472,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
060473,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
060474,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
060475,000007:                                                                                                  ## Assembler:   yaYUL
060476,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
060477,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
060478,000010:                                                                                                  ## Pages:       1389-1393
060479,000011:                                                                                                  ## Mod history: 2009-05-10 SN   (Sergio Navarro).  Started adapting
060480,000012:                                                                                                  ##                              from the Colossus249/ file of the same
060481,000013:                                                                                                  ##                              name, using Comanche055 page images.
060482,000014:                                                                                                  ##              2016-12-22 RSB  Proofed comment text using octopus/ProoferComments
060483,000015:                                                                                                  ##                              but no errors found.
060484,000016:                                                                                                  ##
060485,000017:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
060486,000018:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
060487,000019:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
060488,000020:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
060489,000021:                                                                                                  ## consequent reduction in image quality as well) are available online at
060490,000022:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
060491,000023:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the
060492,000024:                                                                                                  ## (much) higher-quality images which Paul actually created.
060493,000025:                                                                                                  ##
060494,000026:                                                                                                  ## Notations on the hardcopy document read, in part:
060495,000027:                                                                                                  ##
060496,000028:                                                                                                  ##    Assemble revision 055 of AGC program Comanche by NASA
060497,000029:                                                                                                  ##    2021113-051.  10:28 APR. 1, 1969 
060498,000030:                                                                                                  ##
060499,000031:                                                                                                  ##    This AGC program shall also be referred to as
060500,000032:                                                                                                  ##            Colossus 2A
060501,000033: 

Page 1389

060503,000035: 32,3770                                           BANK     32                                    
060504,000036: 14,2000                                           SETLOC   STARTAB                               
060505,000037: 14,2000                                           BANK                                           
060506,000038: 
060507,000039: 14,3422                                           COUNT    14/STARS                              
060508,000040: 
060509,000041: 14,3422           15262 21773                     2DEC     +.8342971408 B-1                        #  STAR 37       X
060510,000042: 14,3424           74130 42420                     2DEC     -.2392481515 B-1                        #  STAR 37       Y
060511,000043: 14,3426           70033 41533                     2DEC     -.4966976975 B-1                        #  STAR 37       Z
060512,000044: 
060513,000045: 14,3430           15014 04650                     2DEC     +.8139832631 B-1                        #  STAR 36       X
060514,000046: 14,3432           67067 60150                     2DEC     -.5557243189 B-1                        #  STAR 36       Y
060515,000047: 14,3434           02551 15723                     2DEC     +.1691204557 B-1                        #  STAR 36       Z
060516,000048: 
060517,000049: 14,3436           07210 01664                     2DEC     +.4541086270 B-1                        #  STAR 35       X
060518,000050: 14,3440           67276 62232                     2DEC     -.5392368197 B-1                        #  STAR 35       Y
060519,000051: 14,3442           13262 00563                     2DEC     +.7092312789 B-1                        #  STAR 35       Z
060520,000052: 
060521,000053: 14,3444           05076 35561                     2DEC     +.3201817378 B-1                        #  STAR 34       X
060522,000054: 14,3446           70716 40260                     2DEC     -.4436021946 B-1                        #  STAR 34       Y
060523,000055: 14,3450           62466 64656                     2DEC     -.8370786986 B-1                        #  STAR 34       Z
060524,000056: 
060525,000057: 14,3452           10652 04246                     2DEC     +.5520184464 B-1                        #  STAR 33       X
060526,000058: 14,3454           63235 44200                     2DEC     -.7933187400 B-1                        #  STAR 33       Y
060527,000059: 14,3456           73710 66230                     2DEC     -.2567508745 B-1                        #  STAR 33       Z
060528,000060: 
060529,000061: 14,3460           07204 33712                     2DEC     +.4537196908 B-1                        #  STAR 32       X
060530,000062: 14,3462           61747 72343                     2DEC     -.8779508801 B-1                        #  STAR 32       Y
060531,000063: 14,3464           02343 21362                     2DEC     +.1527766153 B-1                        #  STAR 32       Z
060532,000064: 
060533,000065: 14,3466           03237 13301                     2DEC     +.2069525789 B-1                        #  STAR 31       X
060534,000066: 14,3470           62030 65332                     2DEC     -.8719885748 B-1                        #  STAR 31       Y
060535,000067: 14,3472           70715 71267                     2DEC     -.4436288486 B-1                        #  STAR 31       Z
060536,000068: 
060537,000069: 14,3474           01745 06477                     2DEC     +.1217293692 B-1                        #  STAR 30       X

Page 1390

060539,000071: 14,3476           63531 75365                     2DEC     -.7702732847 B-1                        #  STAR 30       Y
060540,000072: 14,3500           12010 03005                     2DEC     +.6259880410 B-1                        #  STAR 30       Z
060541,000073: 
060542,000074: 14,3502           76146 77014                     2DEC     -.1124304773 B-1                        #  STAR 29       X
060543,000075: 14,3504           60371 75073                     2DEC     -.9694934200 B-1                        #  STAR 29       Y
060544,000076: 14,3506           03370 12003                     2DEC     +.2178116072 B-1                        #  STAR 29       Z
060545,000077: 
060546,000078: 14,3510           76125 40037                     2DEC     -.1146237858 B-1                        #  STAR 28       X
060547,000079: 14,3512           72436 77062                     2DEC     -.3399692557 B-1                        #  STAR 28       Y
060548,000080: 14,3514           61041 54164                     2DEC     -.9334250333 B-1                        #  STAR 28       Z
060549,000081: 
060550,000082: 14,3516           72277 51044                     2DEC     -.3516499609 B-1                        #  STAR 27       X
060551,000083: 14,3520           62641 45471                     2DEC     -.8240752703 B-1                        #  STAR 27       Y
060552,000084: 14,3522           70711 70546                     2DEC     -.4441196390 B-1                        #  STAR 27       Z
060553,000085: 
060554,000086: 14,3524           67364 47073                     2DEC     -.5326876930 B-1                        #  STAR 26       X
060555,000087: 14,3526           64425 77777                     2DEC     -.7160644554 B-1                        #  STAR 26       Y
060556,000088: 14,3530           07157 16322                     2DEC     +.4511047742 B-1                        #  STAR 26       Z
060557,000089: 
060558,000090: 14,3532           63327 64446                     2DEC     -.7861763936 B-1                        #  STAR 25       X
060559,000091: 14,3534           67515 55266                     2DEC     -.5217996305 B-1                        #  STAR 25       Y
060560,000092: 14,3536           05230 25476                     2DEC     +.3311371675 B-1                        #  STAR 25       Z
060561,000093: 
060562,000094: 14,3540           64754 72604                     2DEC     -.6898393233 B-1                        #  STAR 24       X
060563,000095: 14,3542           71235 72553                     2DEC     -.4182330640 B-1                        #  STAR 24       Y
060564,000096: 14,3544           66427 42171                     2DEC     -.5909338474 B-1                        #  STAR 24       Z
060565,000097: 
060566,000098: 14,3546           66546 70765                     2DEC     -.5812035376 B-1                        #  STAR 23       X
060567,000099: 14,3550           73260 71643                     2DEC     -.2909171294 B-1                        #  STAR 23       Y
060568,000100: 14,3552           14121 30153                     2DEC     +.7599800468 B-1                        #  STAR 23       Z
060569,000101: 
060570,000102: 14,3554           61247 73310                     2DEC     -.9170097662 B-1                        #  STAR 22       X
060571,000103: 14,3556           72313 41247                     2DEC     -.3502146628 B-1                        #  STAR 22       Y

Page 1391

060573,000105: 14,3560           74744 44566                     2DEC     -.1908999176 B-1                        #  STAR 22       Z
060574,000106: 
060575,000107: 14,3562           70606 54564                     2DEC     -.4523440203 B-1                        #  STAR 21       X
060576,000108: 14,3564           77153 61536                     2DEC     -.0493710140 B-1                        #  STAR 21       Y
060577,000109: 14,3566           61601 47046                     2DEC     -.8904759346 B-1                        #  STAR 21       Z
060578,000110: 
060579,000111: 14,3570           60604 76224                     2DEC     -.9525211695 B-1                        #  STAR 20       X
060580,000112: 14,3572           77031 73354                     2DEC     -.0593434796 B-1                        #  STAR 20       Y
060581,000113: 14,3574           73161 63065                     2DEC     -.2986331746 B-1                        #  STAR 20       Z
060582,000114: 
060583,000115: 14,3576           60431 51702                     2DEC     -.9656605484 B-1                        #  STAR 19       X
060584,000116: 14,3600           00656 33013                     2DEC     +.0525933156 B-1                        #  STAR 19       Y
060585,000117: 14,3602           04044 10627                     2DEC     +.2544280809 B-1                        #  STAR 19       Z
060586,000118: 
060587,000119: 14,3604           62164 45040                     2DEC     -.8608205219 B-1                        #  STAR 18       X
060588,000120: 14,3606           07325 37443                     2DEC     +.4636213989 B-1                        #  STAR 18       Y
060589,000121: 14,3610           03267 06626                     2DEC     +.2098647835 B-1                        #  STAR 18       Z
060590,000122: 
060591,000123: 14,3612           63471 50471                     2DEC     -.7742591356 B-1                        #  STAR 17       X
060592,000124: 14,3614           11660 04151                     2DEC     +.6152504197 B-1                        #  STAR 17       Y
060593,000125: 14,3616           75501 46664                     2DEC     -.1482892839 B-1                        #  STAR 17       Z
060594,000126: 
060595,000127: 14,3620           70430 46540                     2DEC     -.4657947941 B-1                        #  STAR 16       X
060596,000128: 14,3622           07507 20100                     2DEC     +.4774785033 B-1                        #  STAR 16       Y
060597,000129: 14,3624           13727 05455                     2DEC     +.7450164351 B-1                        #  STAR 16       Z
060598,000130: 
060599,000131: 14,3626           72160 64202                     2DEC     -.3612508532 B-1                        #  STAR 15       X
060600,000132: 14,3630           11144 05203                     2DEC     +.5747270840 B-1                        #  STAR 15       Y
060601,000133: 14,3632           64200 65331                     2DEC     -.7342932655 B-1                        #  STAR 15       Z
060602,000134: 
060603,000135: 14,3634           71322 41512                     2DEC     -.4118589524 B-1                        #  STAR 14       X
060604,000136: 14,3636           16402 16205                     2DEC     +.9065485360 B-1                        #  STAR 14       Y
060605,000137: 14,3640           01365 04034                     2DEC     +.0924226975 B-1                        #  STAR 14       Z
060606,000138: 

Page 1392

060608,000140: 14,3642           75054 56052                     2DEC     -.1820751783 B-1                        #  STAR 13       X
060609,000141: 14,3644           17030 17635                     2DEC     +.9404899869 B-1                        #  STAR 13       Y
060610,000142: 14,3646           73321 57603                     2DEC     -.2869271926 B-1                        #  STAR 13       Z
060611,000143: 
060612,000144: 14,3650           77010 47623                     2DEC     -.0614937230 B-1                        #  STAR 12       X
060613,000145: 14,3652           11515 01640                     2DEC     +.6031563286 B-1                        #  STAR 12       Y
060614,000146: 14,3654           63215 52176                     2DEC     -.7952489957 B-1                        #  STAR 12       Z
060615,000147: 
060616,000148: 14,3656           02143 26755                     2DEC     +.1371725575 B-1                        #  STAR 11       X
060617,000149: 14,3660           12715 31470                     2DEC     +.6813721061 B-1                        #  STAR 11       Y
060618,000150: 14,3662           13401 31222                     2DEC     +.7189685267 B-1                        #  STAR 11       Z
060619,000151: 
060620,000152: 14,3664           03157 27504                     2DEC     +.2011399589 B-1                        #  STAR 10       X
060621,000153: 14,3666           17402 12312                     2DEC     +.9690337941 B-1                        #  STAR 10       Y
060622,000154: 14,3670           75552 63657                     2DEC     -.1432348512 B-1                        #  STAR 10       Z
060623,000155: 
060624,000156: 14,3672           05471 06122                     2DEC     +.3507315038 B-1                        #  STAR 9        X
060625,000157: 14,3674           16220 16362                     2DEC     +.8926333307 B-1                        #  STAR 9        Y
060626,000158: 14,3676           04417 32762                     2DEC     +.2831839492 B-1                        #  STAR 9        Z
060627,000159: 
060628,000160: 14,3700           06443 12622                     2DEC     +.4105636020 B-1                        #  STAR 8        X
060629,000161: 14,3702           07766 10237                     2DEC     +.4988110001 B-1                        #  STAR 8        Y
060630,000162: 14,3704           14154 36154                     2DEC     +.7632988371 B-1                        #  STAR 8        Z
060631,000163: 
060632,000164: 14,3706           13200 31653                     2DEC     +.7032235469 B-1                        #  STAR 7        X
060633,000165: 14,3710           13244 21036                     2DEC     +.7075846047 B-1                        #  STAR 7        Y
060634,000166: 14,3712           01067 23106                     2DEC     +.0692868685 B-1                        #  STAR 7        Z
060635,000167: 
060636,000168: 14,3714           10560 27227                     2DEC     +.5450107404 B-1                        #  STAR 6        X
060637,000169: 14,3716           10402 00275                     2DEC     +.5314955466 B-1                        #  STAR 6        Y
060638,000170: 14,3720           65477 77044                     2DEC     -.6484410356 B-1                        #  STAR 6        Z
060639,000171: 
060640,000172: 14,3722           00153 11212                     2DEC     +.0130968840 B-1                        #  STAR 5        X

Page 1393

060642,000174: 14,3724           00077 36275                     2DEC     +.0078062795 B-1                        #  STAR 5        Y
060643,000175: 14,3726           17777 01417                     2DEC     +.9998837600 B-1                        #  STAR 5        Z
060644,000176: 
060645,000177: 14,3730           07674 21771                     2DEC     +.4917678276 B-1                        #  STAR 4        X
060646,000178: 14,3732           03416 07626                     2DEC     +.2204887125 B-1                        #  STAR 4        Y
060647,000179: 14,3734           62413 57536                     2DEC     -.8423473935 B-1                        #  STAR 4        Z
060648,000180: 
060649,000181: 14,3736           07510 06414                     2DEC     +.4775639450 B-1                        #  STAR 3        X
060650,000182: 14,3740           01673 06065                     2DEC     +.1166004340 B-1                        #  STAR 3        Y
060651,000183: 14,3742           15735 31531                     2DEC     +.8708254803 B-1                        #  STAR 3        Z
060652,000184: 
060653,000185: 14,3744           16745 17555                     2DEC     +.9342640400 B-1                        #  STAR 2        X
060654,000186: 14,3746           02615 13716                     2DEC     +.1735073142 B-1                        #  STAR 2        Y
060655,000187: 14,3750           73010 40311                     2DEC     -.3115219339 B-1                        #  STAR 2        Z
060656,000188: 
060657,000189: 14,3752           15776 34660                     2DEC     +.8748658918 B-1                        #  STAR 1        X
060658,000190: 14,3754           00325 26625                     2DEC     +.0260879174 B-1                        #  STAR 1        Y
060659,000191: 14,3756           07572 05105                     2DEC     +.4836621670 B-1                        #  STAR 1        Z
060660,000192: 
060661,000193: 14,3760           15472        CATLOG             DEC      6970       B-14                       
060662,000194: 
060663,000195: 
060664,000196: 

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