Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

059358,000002:                                                                                                  ## Copyright:   Public domain.
059359,000003:                                                                                                  ## Filename:    STAR_TABLES.agc
059360,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
059361,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
059362,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
059363,000007:                                                                                                  ## Assembler:   yaYUL
059364,000008:                                                                                                  ## Reference:   Starts on p. 1357
059365,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
059366,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
059367,000011:                                                                                                  ## Mod history: 08/30/04 RSB.   Adapted from corresponding Luminary131 file.
059368,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
059369,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
059370,000014:                                                                                                  ##                              numbers in 1701.pdf.
059371,000015:                                                                                                  ##              2017-01-20 RSB  Cross-diff'd comment text (not whitespace)
059372,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
059373,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
059374,000018:                                                                                                  ##                              but no errors found.
059375,000019:                                                                                                  ##
059376,000020:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
059377,000021:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
059378,000022:                                                                                                  ## document read, in part:
059379,000023:                                                                                                  ##
059380,000024:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
059381,000025:                                                                                                  ##      2021111-041.  October 28, 1968.  
059382,000026:                                                                                                  ##
059383,000027:                                                                                                  ##      This AGC program shall also be referred to as
059384,000028:                                                                                                  ##                              Colossus 1A
059385,000029:                                                                                                  ##
059386,000030:                                                                                                  ##      Prepared by
059387,000031:                                                                                                  ##                      Massachusetts Institute of Technology
059388,000032:                                                                                                  ##                      75 Cambridge Parkway
059389,000033:                                                                                                  ##                      Cambridge, Massachusetts
059390,000034:                                                                                                  ##      under NASA contract NAS 9-4065.
059391,000035:                                                                                                  ##
059392,000036:                                                                                                  ## Refer directly to the online document mentioned above for further information.
059393,000037:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
059394,000038:                                                                                                  ##
059395,000039:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
059396,000040:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
059397,000041:                                                                                                  ## source file, and then is proofed to incorporate any changes.
059398,000042: 

Page 1357

059400,000044: 32,3755                                           BANK     32                                    
059401,000045: 14,2000                                           SETLOC   STARTAB                               
059402,000046: 14,2000                                           BANK                                           
059403,000047: 
059404,000048: 14,3405                                           COUNT    14/STARS                              
059405,000049: 
059406,000050: 14,3405           15261 27231                     2DEC     +.8341953207 B-1                        #  STAR 37       X
059407,000051: 14,3407           74126 61161                     2DEC     -.2394362567 B-1                        #  STAR 37       Y
059408,000052: 14,3411           70032 54470                     2DEC     -.4967780649 B-1                        #  STAR 37       Z
059409,000053: 
059410,000054: 14,3413           15013 10432                     2DEC     +.8138753897 B-1                        #  STAR 36       X
059411,000055: 14,3415           67066 40370                     2DEC     -.5559063490 B-1                        #  STAR 36       Y
059412,000056: 14,3417           02550 31133                     2DEC     +.1690413589 B-1                        #  STAR 36       Z
059413,000057: 
059414,000058: 14,3421           07207 24243                     2DEC     +.4540570017 B-1                        #  STAR 35       X
059415,000059: 14,3423           67275 67544                     2DEC     -.5393383149 B-1                        #  STAR 35       Y
059416,000060: 14,3425           13261 25121                     2DEC     +.7091871552 B-1                        #  STAR 35       Z
059417,000061: 
059418,000062: 14,3427           05075 16350                     2DEC     +.3200014224 B-1                        #  STAR 34       X
059419,000063: 14,3431           70715 55404                     2DEC     -.4436740480 B-1                        #  STAR 34       Y
059420,000064: 14,3433           62466 54577                     2DEC     -.8371095679 B-1                        #  STAR 34       Z
059421,000065: 
059422,000066: 14,3435           10650 17202                     2DEC     +.5518160037 B-1                        #  STAR 33       X
059423,000067: 14,3437           63234 43704                     2DEC     -.7934422090 B-1                        #  STAR 33       Y
059424,000068: 14,3441           73710 50170                     2DEC     -.2568045150 B-1                        #  STAR 33       Z
059425,000069: 
059426,000070: 14,3443           07203 13612                     2DEC     +.4535361097 B-1                        #  STAR 32       X
059427,000071: 14,3445           61746 77370                     2DEC     -.8780537171 B-1                        #  STAR 32       Y
059428,000072: 14,3447           02343 05340                     2DEC     +.1527307006 B-1                        #  STAR 32       Z
059429,000073: 
059430,000074: 14,3451           03235 14762                     2DEC     +.2067145272 B-1                        #  STAR 31       X
059431,000075: 14,3453           62030 51212                     2DEC     -.8720349419 B-1                        #  STAR 31       Y
059432,000076: 14,3455           70715 64117                     2DEC     -.4436486945 B-1                        #  STAR 31       Z
059433,000077: 
059434,000078: 14,3457           01744 11157                     2DEC     +.1216171923 B-1                        #  STAR 30       X

Page 1358

059436,000080: 14,3461           63531 66055                     2DEC     -.7703014754 B-1                        #  STAR 30       Y
059437,000081: 14,3463           12007 37503                     2DEC     +.6259751556 B-1                        #  STAR 30       Z
059438,000082: 
059439,000083: 14,3465           76145 53477                     2DEC     -.1126265542 B-1                        #  STAR 29       X
059440,000084: 14,3467           60372 43624                     2DEC     -.9694679589 B-1                        #  STAR 29       Y
059441,000085: 14,3471           03370 15121                     2DEC     +.2178236347 B-1                        #  STAR 29       Z
059442,000086: 
059443,000087: 14,3473           76123 64245                     2DEC     -.1147906312 B-1                        #  STAR 28       X
059444,000088: 14,3475           72437 45623                     2DEC     -.3399437395 B-1                        #  STAR 28       Y
059445,000089: 14,3477           61041 57124                     2DEC     -.9334138229 B-1                        #  STAR 28       Z
059446,000090: 
059447,000091: 14,3501           72275 55365                     2DEC     -.3518772846 B-1                        #  STAR 27       X
059448,000092: 14,3503           62641 72150                     2DEC     -.8239967165 B-1                        #  STAR 27       Y
059449,000093: 14,3505           70712 41542                     2DEC     -.4440853383 B-1                        #  STAR 27       Z
059450,000094: 
059451,000095: 14,3507           67363 50441                     2DEC     -.5328042377 B-1                        #  STAR 26       X
059452,000096: 14,3511           64426 77263                     2DEC     -.7159448596 B-1                        #  STAR 26       Y
059453,000097: 14,3513           07157 34056                     2DEC     +.4511569595 B-1                        #  STAR 26       Z
059454,000098: 
059455,000099: 14,3515           63326 77723                     2DEC     -.7862552143 B-1                        #  STAR 25       X
059456,000100: 14,3517           67516 72566                     2DEC     -.5216265404 B-1                        #  STAR 25       Y
059457,000101: 14,3521           05231 14031                     2DEC     +.3312227199 B-1                        #  STAR 25       Z
059458,000102: 
059459,000103: 14,3523           64753 63156                     2DEC     -.6899901699 B-1                        #  STAR 24       X
059460,000104: 14,3525           71237 42272                     2DEC     -.4180817950 B-1                        #  STAR 24       Y
059461,000105: 14,3527           66427 64260                     2DEC     -.5908647707 B-1                        #  STAR 24       Z
059462,000106: 
059463,000107: 14,3531           66546 73302                     2DEC     -.5811943804 B-1                        #  STAR 23       X
059464,000108: 14,3533           73261 73575                     2DEC     -.2907877154 B-1                        #  STAR 23       Y
059465,000109: 14,3535           14122 07016                     2DEC     +.7600365758 B-1                        #  STAR 23       Z
059466,000110: 
059467,000111: 14,3537           61247 42015                     2DEC     -.9171065276 B-1                        #  STAR 22       X
059468,000112: 14,3541           72314 67004                     2DEC     -.3500098785 B-1                        #  STAR 22       Y

Page 1359

059470,000114: 14,3543           74744 74104                     2DEC     -.1908106439 B-1                        #  STAR 22       Z
059471,000115: 
059472,000116: 14,3545           70605 63103                     2DEC     -.4524416631 B-1                        #  STAR 21       X
059473,000117: 14,3547           77154 54113                     2DEC     -.0492700670 B-1                        #  STAR 21       Y
059474,000118: 14,3551           61601 62472                     2DEC     -.8904319167 B-1                        #  STAR 21       Z
059475,000119: 
059476,000120: 14,3553           60604 63166                     2DEC     -.9525633510 B-1                        #  STAR 20       X
059477,000121: 14,3555           77033 63044                     2DEC     -.0591313500 B-1                        #  STAR 20       Y
059478,000122: 14,3557           73162 53261                     2DEC     -.2985406935 B-1                        #  STAR 20       Z
059479,000123: 
059480,000124: 14,3561           60431 63350                     2DEC     -.9656240240 B-1                        #  STAR 19       X
059481,000125: 14,3563           00660 22763                     2DEC     +.0528067543 B-1                        #  STAR 19       Y
059482,000126: 14,3565           04045 01424                     2DEC     +.2545224762 B-1                        #  STAR 19       Z
059483,000127: 
059484,000128: 14,3567           62165 45335                     2DEC     -.8606970465 B-1                        #  STAR 18       X
059485,000129: 14,3571           07327 21564                     2DEC     +.4638127405 B-1                        #  STAR 18       Y
059486,000130: 14,3573           03267 34557                     2DEC     +.2099484122 B-1                        #  STAR 18       Z
059487,000131: 
059488,000132: 14,3575           63472 50705                     2DEC     -.7741360248 B-1                        #  STAR 17       X
059489,000133: 14,3577           11661 21433                     2DEC     +.6154234025 B-1                        #  STAR 17       Y
059490,000134: 14,3601           75501 72421                     2DEC     -.1482142053 B-1                        #  STAR 17       Z
059491,000135: 
059492,000136: 14,3603           70431 65316                     2DEC     -.4656165921 B-1                        #  STAR 16       X
059493,000137: 14,3605           07510 12666                     2DEC     +.4775804724 B-1                        #  STAR 16       Y
059494,000138: 14,3607           13727 21520                     2DEC     +.7450624681 B-1                        #  STAR 16       Z
059495,000139: 
059496,000140: 14,3611           72161 43161                     2DEC     -.3611937602 B-1                        #  STAR 15       X
059497,000141: 14,3613           11144 32323                     2DEC     +.5748077840 B-1                        #  STAR 15       Y
059498,000142: 14,3615           64200 76476                     2DEC     -.7342581827 B-1                        #  STAR 15       Z
059499,000143: 
059500,000144: 14,3617           71323 70264                     2DEC     -.4116502629 B-1                        #  STAR 14       X
059501,000145: 14,3621           16403 05717                     2DEC     +.9066387314 B-1                        #  STAR 14       Y
059502,000146: 14,3623           01365 17662                     2DEC     +.0924676785 B-1                        #  STAR 14       Z
059503,000147: 

Page 1360

059505,000149: 14,3625           75055 75101                     2DEC     -.1818957154 B-1                        #  STAR 13       X
059506,000150: 14,3627           17030 32613                     2DEC     +.9405318128 B-1                        #  STAR 13       Y
059507,000151: 14,3631           73321 65667                     2DEC     -.2869039173 B-1                        #  STAR 13       Z
059508,000152: 
059509,000153: 14,3633           77010 66714                     2DEC     -.0614360769 B-1                        #  STAR 12       X
059510,000154: 14,3635           11515 05314                     2DEC     +.6031700106 B-1                        #  STAR 12       Y
059511,000155: 14,3637           63215 53630                     2DEC     -.7952430739 B-1                        #  STAR 12       Z
059512,000156: 
059513,000157: 14,3641           02145 21163                     2DEC     +.1373948084 B-1                        #  STAR 11       X
059514,000158: 14,3643           12715 21123                     2DEC     +.6813398852 B-1                        #  STAR 11       Y
059515,000159: 14,3645           13401 26125                     2DEC     +.7189566241 B-1                        #  STAR 11       Z
059516,000160: 
059517,000161: 14,3647           03161 14610                     2DEC     +.2013426456 B-1                        #  STAR 10       X
059518,000162: 14,3651           17401 36465                     2DEC     +.9689888101 B-1                        #  STAR 10       Y
059519,000163: 14,3653           75552 56556                     2DEC     -.1432544058 B-1                        #  STAR 10       Z
059520,000164: 
059521,000165: 14,3655           05473 01565                     2DEC     +.3509587451 B-1                        #  STAR 9        X
059522,000166: 14,3657           16217 31643                     2DEC     +.8925545449 B-1                        #  STAR 9        Y
059523,000167: 14,3661           04417 22211                     2DEC     +.2831507435 B-1                        #  STAR 9        Z
059524,000168: 
059525,000169: 14,3663           06444 33354                     2DEC     +.4107492871 B-1                        #  STAR 8        X
059526,000170: 14,3665           07765 20153                     2DEC     +.4987190610 B-1                        #  STAR 8        Y
059527,000171: 14,3667           14154 23613                     2DEC     +.7632590132 B-1                        #  STAR 8        Z
059528,000172: 
059529,000173: 14,3671           13202 05024                     2DEC     +.7033883645 B-1                        #  STAR 7        X
059530,000174: 14,3673           13243 07665                     2DEC     +.7074274193 B-1                        #  STAR 7        Y
059531,000175: 14,3675           01067 01242                     2DEC     +.0692188921 B-1                        #  STAR 7        Z
059532,000176: 
059533,000177: 14,3677           10561 05666                     2DEC     +.5450662811 B-1                        #  STAR 6        X
059534,000178: 14,3701           10401 00357                     2DEC     +.5313738486 B-1                        #  STAR 6        Y
059535,000179: 14,3703           65477 61124                     2DEC     -.6484940879 B-1                        #  STAR 6        Z
059536,000180: 
059537,000181: 14,3705           00154 03111                     2DEC     +.0131955837 B-1                        #  STAR 5        X

Page 1361

059539,000183: 14,3707           00077 35676                     2DEC     +.0078043793 B-1                        #  STAR 5        Y
059540,000184: 14,3711           17777 01142                     2DEC     +.9998824772 B-1                        #  STAR 5        Z
059541,000185: 
059542,000186: 14,3713           07674 11416                     2DEC     +.4917355618 B-1                        #  STAR 4        X
059543,000187: 14,3715           03415 12707                     2DEC     +.2203784481 B-1                        #  STAR 4        Y
059544,000188: 14,3717           62413 43135                     2DEC     -.8423950835 B-1                        #  STAR 4        Z
059545,000189: 
059546,000190: 14,3721           07511 03423                     2DEC     +.4776746280 B-1                        #  STAR 3        X
059547,000191: 14,3723           01672 12054                     2DEC     +.1164935557 B-1                        #  STAR 3        Y
059548,000192: 14,3725           15735 15405                     2DEC     +.8707790771 B-1                        #  STAR 3        Z
059549,000193: 
059550,000194: 14,3727           16745 21763                     2DEC     +.9342726691 B-1                        #  STAR 2        X
059551,000195: 14,3731           02613 24675                     2DEC     +.1732973829 B-1                        #  STAR 2        Y
059552,000196: 14,3733           73007 50430                     2DEC     -.3116128956 B-1                        #  STAR 2        Z
059553,000197: 
059554,000198: 14,3735           15777 12457                     2DEC     +.8749183324 B-1                        #  STAR 1        X
059555,000199: 14,3737           00324 03265                     2DEC     +.0258916990 B-1                        #  STAR 1        Y
059556,000200: 14,3741           07571 17020                     2DEC     +.4835778442 B-1                        #  STAR 1        Z
059557,000201: 
059558,000202: 14,3743           15325        CATLOG             DEC      6869       B-14                       
059559,000203: 
059560,000204: 
059561,000205: 

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