Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

057516,000002:                                                                                                  ## Copyright:   Public domain.
057517,000003:                                                                                                  ## Filename:    STAR_TABLES.agc
057518,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
057519,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
057520,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
057521,000007:                                                                                                  ## Assembler:   yaYUL
057522,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
057523,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057524,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
057525,000011:                                                                                                  ## Mod history: 2011-04-17 JL   Adapted from corresponding Colossus 249 file.
057526,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
057527,000013:                                                                                                  ##                              and fixed errors found.
057528,000014: 

Page 1353

057530,000016: 32,3776                                           BANK     32                                    
057531,000017: 14,2000                                           SETLOC   STARTAB                               
057532,000018: 14,2000                                           BANK                                           
057533,000019: 
057534,000020: 14,3412                                           COUNT    14/STARS                              
057535,000021: 
057536,000022: 14,3412           15261 27231                     2DEC     +.8341953207 B-1                        #  STAR 37    X
057537,000023: 14,3414           74126 61161                     2DEC     -.2394362567 B-1                        #  STAR 37    Y
057538,000024: 14,3416           70032 54470                     2DEC     -.4967780649 B-1                        #  STAR 37    Z
057539,000025: 14,3420           15013 10432                     2DEC     +.8138753897 B-1                        #  STAR 36    X
057540,000026: 14,3422           67066 40370                     2DEC     -.5559063490 B-1                        #  STAR 36    Y
057541,000027: 14,3424           02550 31133                     2DEC     +.1690413589 B-1                        #  STAR 36    Z
057542,000028: 14,3426           07207 24243                     2DEC     +.4540570017 B-1                        #  STAR 35    X
057543,000029: 14,3430           67275 67544                     2DEC     -.5393383149 B-1                        #  STAR 35    Y
057544,000030: 14,3432           13261 25121                     2DEC     +.7091871552 B-1                        #  STAR 35    Z
057545,000031: 14,3434           05075 16350                     2DEC     +.3200014224 B-1                        #  STAR 34    X
057546,000032: 14,3436           70715 55404                     2DEC     -.4436740480 B-1                        #  STAR 34    Y
057547,000033: 14,3440           62466 54577                     2DEC     -.8371095679 B-1                        #  STAR 34    Z
057548,000034: 14,3442           10650 17202                     2DEC     +.5518160037 B-1                        #  STAR 33    X
057549,000035: 14,3444           63234 43704                     2DEC     -.7934422090 B-1                        #  STAR 33    Y
057550,000036: 14,3446           73710 50170                     2DEC     -.2568045150 B-1                        #  STAR 33    Z
057551,000037: 14,3450           07203 13612                     2DEC     +.4535361097 B-1                        #  STAR 32    X
057552,000038: 14,3452           61746 77370                     2DEC     -.8780537171 B-1                        #  STAR 32    Y
057553,000039: 14,3454           02343 05340                     2DEC     +.1527307006 B-1                        #  STAR 32    Z
057554,000040: 14,3456           03235 14762                     2DEC     +.2067145272 B-1                        #  STAR 31    X
057555,000041: 14,3460           62030 51212                     2DEC     -.8720349419 B-1                        #  STAR 31    Y
057556,000042: 14,3462           70715 64117                     2DEC     -.4436486945 B-1                        #  STAR 31    Z
057557,000043: 14,3464           01744 11157                     2DEC     +.1216171923 B-1                        #  STAR 30    X

Page 1354

057559,000045: 14,3466           63531 66055                     2DEC     -.7703014754 B-1                        #  STAR 30    Y
057560,000046: 14,3470           12007 37503                     2DEC     +.6259751556 B-1                        #  STAR 30    Z
057561,000047: 14,3472           76145 53477                     2DEC     -.1126265542 B-1                        #  STAR 29    X
057562,000048: 14,3474           60372 43624                     2DEC     -.9694679589 B-1                        #  STAR 29    Y
057563,000049: 14,3476           03370 15121                     2DEC     +.2178236347 B-1                        #  STAR 29    Z
057564,000050: 14,3500           76123 64245                     2DEC     -.1147906312 B-1                        #  STAR 28    X
057565,000051: 14,3502           72437 45623                     2DEC     -.3399437395 B-1                        #  STAR 28    Y
057566,000052: 14,3504           61041 57124                     2DEC     -.9334138229 B-1                        #  STAR 28    Z
057567,000053: 14,3506           72275 55365                     2DEC     -.3518772846 B-1                        #  STAR 27    X
057568,000054: 14,3510           62641 72150                     2DEC     -.8239967165 B-1                        #  STAR 27    Y
057569,000055: 14,3512           70712 41542                     2DEC     -.4440853383 B-1                        #  STAR 27    Z
057570,000056: 14,3514           67363 50441                     2DEC     -.5328042377 B-1                        #  STAR 26    X
057571,000057: 14,3516           64426 77263                     2DEC     -.7159448596 B-1                        #  STAR 26    Y
057572,000058: 14,3520           07157 34056                     2DEC     +.4511569595 B-1                        #  STAR 26    Z
057573,000059: 14,3522           63326 77723                     2DEC     -.7862552143 B-1                        #  STAR 25    X
057574,000060: 14,3524           67516 72566                     2DEC     -.5216265404 B-1                        #  STAR 25    Y
057575,000061: 14,3526           05231 14031                     2DEC     +.3312227199 B-1                        #  STAR 25    Z
057576,000062: 14,3530           64753 63156                     2DEC     -.6899901699 B-1                        #  STAR 24    X
057577,000063: 14,3532           71237 42272                     2DEC     -.4180817950 B-1                        #  STAR 24    Y
057578,000064: 14,3534           66427 64260                     2DEC     -.5908647707 B-1                        #  STAR 24    Z
057579,000065: 14,3536           66546 73302                     2DEC     -.5811943804 B-1                        #  STAR 23    X
057580,000066: 14,3540           73261 73575                     2DEC     -.2907877154 B-1                        #  STAR 23    Y
057581,000067: 14,3542           14122 07016                     2DEC     +.7600365758 B-1                        #  STAR 23    Z
057582,000068: 14,3544           61247 42015                     2DEC     -.9171065276 B-1                        #  STAR 22    X
057583,000069: 14,3546           72314 67004                     2DEC     -.3500098785 B-1                        #  STAR 22    Y

Page 1355

057585,000071: 14,3550           74744 74104                     2DEC     -.1908106439 B-1                        #  STAR 22    Z
057586,000072: 14,3552           70605 63103                     2DEC     -.4524416631 B-1                        #  STAR 21    X
057587,000073: 14,3554           77154 54113                     2DEC     -.0492700670 B-1                        #  STAR 21    Y
057588,000074: 14,3556           61601 62472                     2DEC     -.8904319167 B-1                        #  STAR 21    Z
057589,000075: 14,3560           60604 63166                     2DEC     -.9525633510 B-1                        #  STAR 20    X
057590,000076: 14,3562           77033 63044                     2DEC     -.0591313500 B-1                        #  STAR 20    Y
057591,000077: 14,3564           73162 53261                     2DEC     -.2985406935 B-1                        #  STAR 20    Z
057592,000078: 14,3566           60431 63350                     2DEC     -.9656240240 B-1                        #  STAR 19    X
057593,000079: 14,3570           00660 22763                     2DEC     +.0528067543 B-1                        #  STAR 19    Y
057594,000080: 14,3572           04045 01424                     2DEC     +.2545224762 B-1                        #  STAR 19    Z
057595,000081: 14,3574           62165 45335                     2DEC     -.8606970465 B-1                        #  STAR 18    X
057596,000082: 14,3576           07327 21564                     2DEC     +.4638127405 B-1                        #  STAR 18    Y
057597,000083: 14,3600           03267 34557                     2DEC     +.2099484122 B-1                        #  STAR 18    Z
057598,000084: 14,3602           63472 50705                     2DEC     -.7741360248 B-1                        #  STAR 17    X
057599,000085: 14,3604           11661 21433                     2DEC     +.6154234025 B-1                        #  STAR 17    Y
057600,000086: 14,3606           75501 72421                     2DEC     -.1482142053 B-1                        #  STAR 17    Z
057601,000087: 14,3610           70431 65316                     2DEC     -.4656165921 B-1                        #  STAR 16    X
057602,000088: 14,3612           07510 12666                     2DEC     +.4775804724 B-1                        #  STAR 16    Y
057603,000089: 14,3614           13727 21520                     2DEC     +.7450624681 B-1                        #  STAR 16    Z
057604,000090: 14,3616           72161 43161                     2DEC     -.3611937602 B-1                        #  STAR 15    X
057605,000091: 14,3620           11144 32323                     2DEC     +.5748077840 B-1                        #  STAR 15    Y
057606,000092: 14,3622           64200 76476                     2DEC     -.7342581827 B-1                        #  STAR 15    Z
057607,000093: 14,3624           71323 70264                     2DEC     -.4116502629 B-1                        #  STAR 14    X
057608,000094: 14,3626           16403 05717                     2DEC     +.9066387314 B-1                        #  STAR 14    Y
057609,000095: 14,3630           01365 17662                     2DEC     +.0924676785 B-1                        #  STAR 14    Z

Page 1356

057611,000097: 14,3632           75055 75101                     2DEC     -.1818957154 B-1                        #  STAR 13    X
057612,000098: 14,3634           17030 32613                     2DEC     +.9405318128 B-1                        #  STAR 13    Y
057613,000099: 14,3636           73321 65667                     2DEC     -.2869039173 B-1                        #  STAR 13    Z
057614,000100: 14,3640           77010 66714                     2DEC     -.0614360769 B-1                        #  STAR 12    X
057615,000101: 14,3642           11515 05314                     2DEC     +.6031700106 B-1                        #  STAR 12    Y
057616,000102: 14,3644           63215 53630                     2DEC     -.7952430739 B-1                        #  STAR 12    Z
057617,000103: 14,3646           02145 21163                     2DEC     +.1373948084 B-1                        #  STAR 11    X
057618,000104: 14,3650           12715 21123                     2DEC     +.6813398852 B-1                        #  STAR 11    Y
057619,000105: 14,3652           13401 26125                     2DEC     +.7189566241 B-1                        #  STAR 11    Z
057620,000106: 14,3654           03161 14610                     2DEC     +.2013426456 B-1                        #  STAR 10    X
057621,000107: 14,3656           17401 36465                     2DEC     +.9689888101 B-1                        #  STAR 10    Y
057622,000108: 14,3660           75552 56556                     2DEC     -.1432544058 B-1                        #  STAR 10    Z
057623,000109: 14,3662           05473 01565                     2DEC     +.3509587451 B-1                        #  STAR  9    X
057624,000110: 14,3664           16217 31643                     2DEC     +.8925545449 B-1                        #  STAR  9    Y
057625,000111: 14,3666           04417 22211                     2DEC     +.2831507435 B-1                        #  STAR  9    Z
057626,000112: 14,3670           06444 33354                     2DEC     +.4107492871 B-1                        #  STAR  8    X
057627,000113: 14,3672           07765 20153                     2DEC     +.4987190610 B-1                        #  STAR  8    Y
057628,000114: 14,3674           14154 23613                     2DEC     +.7632590132 B-1                        #  STAR  8    Z
057629,000115: 14,3676           13202 05024                     2DEC     +.7033883645 B-1                        #  STAR  7    X
057630,000116: 14,3700           13243 07665                     2DEC     +.7074274193 B-1                        #  STAR  7    Y
057631,000117: 14,3702           01067 01242                     2DEC     +.0692188921 B-1                        #  STAR  7    Z
057632,000118: 14,3704           10561 05666                     2DEC     +.5450662811 B-1                        #  STAR  6    X
057633,000119: 14,3706           10401 00357                     2DEC     +.5313738486 B-1                        #  STAR  6    Y
057634,000120: 14,3710           65477 61124                     2DEC     -.6484940879 B-1                        #  STAR  6    Z
057635,000121: 14,3712           00154 03111                     2DEC     +.0131955837 B-1                        #  STAR  5    X

Page 1357

057637,000123: 14,3714           00077 35676                     2DEC     +.0078043793 B-1                        #  STAR  5    Y
057638,000124: 14,3716           17777 01142                     2DEC     +.9998824772 B-1                        #  STAR  5    Z
057639,000125: 14,3720           07674 11416                     2DEC     +.4917355618 B-1                        #  STAR  4    X
057640,000126: 14,3722           03415 12707                     2DEC     +.2203784481 B-1                        #  STAR  4    Y
057641,000127: 14,3724           62413 43135                     2DEC     -.8423950835 B-1                        #  STAR  4    Z
057642,000128: 14,3726           07511 03423                     2DEC     +.4776746280 B-1                        #  STAR  3    X
057643,000129: 14,3730           01672 12054                     2DEC     +.1164935557 B-1                        #  STAR  3    Y
057644,000130: 14,3732           15735 15405                     2DEC     +.8707790771 B-1                        #  STAR  3    Z
057645,000131: 14,3734           16745 21763                     2DEC     +.9342726691 B-1                        #  STAR  2    X
057646,000132: 14,3736           02613 24675                     2DEC     +.1732973829 B-1                        #  STAR  2    Y
057647,000133: 14,3740           73007 50430                     2DEC     -.3116128956 B-1                        #  STAR  2    Z
057648,000134: 14,3742           15777 12457                     2DEC     +.8749183324 B-1                        #  STAR  1    X
057649,000135: 14,3744           00324 03265                     2DEC     +.0258916990 B-1                        #  STAR  1    Y
057650,000136: 14,3746           07571 17020                     2DEC     +.4835778442 B-1                        #  STAR  1    Z
057651,000137: 14,3750           15325        CATLOG             DEC      6869       B-14                       

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