Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

057193,000002:                                                                                                 #  Copyright:    Public domain.
057194,000003:                                                                                                 #  Filename:      STAR_TABLES.agc
057195,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
057196,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
057197,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
057198,000007:                                                                                                 #  Assembler:    yaYUL
057199,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
057200,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
057201,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
057202,000011:                                                                                                 #  Mod history:  2011-04-17 JL    Adapted from corresponding Colossus 249 file.
057203,000012: 
057204,000013:                                                                                                 # # Page 1353
057205,000014: 32,3776                                          BANK     32                                    
057206,000015: 14,2000                                          SETLOC   STARTAB                               
057207,000016: 14,2000                                          BANK                                           
057208,000017: 
057209,000018: 14,3412                                          COUNT    14/STARS                              
057210,000019: 
057211,000020: 14,3412           15261 27231                    2DEC     +.8341953207 B-1                        #  STAR 37    X
057212,000021: 14,3414           74126 61161                    2DEC     -.2394362567 B-1                        #  STAR 37    Y
057213,000022: 14,3416           70032 54470                    2DEC     -.4967780649 B-1                        #  STAR 37    Z
057214,000023: 14,3420           15013 10432                    2DEC     +.8138753897 B-1                        #  STAR 36    X
057215,000024: 14,3422           67066 40370                    2DEC     -.5559063490 B-1                        #  STAR 36    Y
057216,000025: 14,3424           02550 31133                    2DEC     +.1690413589 B-1                        #  STAR 36    Z
057217,000026: 14,3426           07207 24243                    2DEC     +.4540570017 B-1                        #  STAR 35    X
057218,000027: 14,3430           67275 67544                    2DEC     -.5393383149 B-1                        #  STAR 35    Y
057219,000028: 14,3432           13261 25121                    2DEC     +.7091871552 B-1                        #  STAR 35    Z
057220,000029: 14,3434           05075 16350                    2DEC     +.3200014224 B-1                        #  STAR 34    X
057221,000030: 14,3436           70715 55404                    2DEC     -.4436740480 B-1                        #  STAR 34    Y
057222,000031: 14,3440           62466 54577                    2DEC     -.8371095679 B-1                        #  STAR 34    Z
057223,000032: 14,3442           10650 17202                    2DEC     +.5518160037 B-1                        #  STAR 33    X
057224,000033: 14,3444           63234 43704                    2DEC     -.7934422090 B-1                        #  STAR 33    Y
057225,000034: 14,3446           73710 50170                    2DEC     -.2568045150 B-1                        #  STAR 33    Z
057226,000035: 14,3450           07203 13612                    2DEC     +.4535361097 B-1                        #  STAR 32    X
057227,000036: 14,3452           61746 77370                    2DEC     -.8780537171 B-1                        #  STAR 32    Y
057228,000037: 14,3454           02343 05340                    2DEC     +.1527307006 B-1                        #  STAR 32    Z
057229,000038: 14,3456           03235 14762                    2DEC     +.2067145272 B-1                        #  STAR 31    X
057230,000039: 14,3460           62030 51212                    2DEC     -.8720349419 B-1                        #  STAR 31    Y
057231,000040: 14,3462           70715 64117                    2DEC     -.4436486945 B-1                        #  STAR 31    Z
057232,000041: 14,3464           01744 11157                    2DEC     +.1216171923 B-1                        #  STAR 30    X
057233,000042:                                                                                                 # # Page 1354
057234,000043: 14,3466           63531 66055                    2DEC     -.7703014754 B-1                        #  STAR 30    Y
057235,000044: 14,3470           12007 37503                    2DEC     +.6259751556 B-1                        #  STAR 30    Z
057236,000045: 14,3472           76145 53477                    2DEC     -.1126265542 B-1                        #  STAR 29    X
057237,000046: 14,3474           60372 43624                    2DEC     -.9694679589 B-1                        #  STAR 29    Y
057238,000047: 14,3476           03370 15121                    2DEC     +.2178236347 B-1                        #  STAR 29    Z
057239,000048: 14,3500           76123 64245                    2DEC     -.1147906312 B-1                        #  STAR 28    X
057240,000049: 14,3502           72437 45623                    2DEC     -.3399437395 B-1                        #  STAR 28    Y
057241,000050: 14,3504           61041 57124                    2DEC     -.9334138229 B-1                        #  STAR 28    Z
057242,000051: 14,3506           72275 55365                    2DEC     -.3518772846 B-1                        #  STAR 27    X
057243,000052: 14,3510           62641 72150                    2DEC     -.8239967165 B-1                        #  STAR 27    Y
057244,000053: 14,3512           70712 41542                    2DEC     -.4440853383 B-1                        #  STAR 27    Z
057245,000054: 14,3514           67363 50441                    2DEC     -.5328042377 B-1                        #  STAR 26    X
057246,000055: 14,3516           64426 77263                    2DEC     -.7159448596 B-1                        #  STAR 26    Y
057247,000056: 14,3520           07157 34056                    2DEC     +.4511569595 B-1                        #  STAR 26    Z
057248,000057: 14,3522           63326 77723                    2DEC     -.7862552143 B-1                        #  STAR 25    X
057249,000058: 14,3524           67516 72566                    2DEC     -.5216265404 B-1                        #  STAR 25    Y
057250,000059: 14,3526           05231 14031                    2DEC     +.3312227199 B-1                        #  STAR 25    Z
057251,000060: 14,3530           64753 63156                    2DEC     -.6899901699 B-1                        #  STAR 24    X
057252,000061: 14,3532           71237 42272                    2DEC     -.4180817950 B-1                        #  STAR 24    Y
057253,000062: 14,3534           66427 64260                    2DEC     -.5908647707 B-1                        #  STAR 24    Z
057254,000063: 14,3536           66546 73302                    2DEC     -.5811943804 B-1                        #  STAR 23    X
057255,000064: 14,3540           73261 73575                    2DEC     -.2907877154 B-1                        #  STAR 23    Y
057256,000065: 14,3542           14122 07016                    2DEC     +.7600365758 B-1                        #  STAR 23    Z
057257,000066: 14,3544           61247 42015                    2DEC     -.9171065276 B-1                        #  STAR 22    X
057258,000067: 14,3546           72314 67004                    2DEC     -.3500098785 B-1                        #  STAR 22    Y
057259,000068:                                                                                                 # # Page 1355
057260,000069: 14,3550           74744 74104                    2DEC     -.1908106439 B-1                        #  STAR 22    Z
057261,000070: 14,3552           70605 63103                    2DEC     -.4524416631 B-1                        #  STAR 21    X
057262,000071: 14,3554           77154 54113                    2DEC     -.0492700670 B-1                        #  STAR 21    Y
057263,000072: 14,3556           61601 62472                    2DEC     -.8904319167 B-1                        #  STAR 21    Z
057264,000073: 14,3560           60604 63166                    2DEC     -.9525633510 B-1                        #  STAR 20    X
057265,000074: 14,3562           77033 63044                    2DEC     -.0591313500 B-1                        #  STAR 20    Y
057266,000075: 14,3564           73162 53261                    2DEC     -.2985406935 B-1                        #  STAR 20    Z
057267,000076: 14,3566           60431 63350                    2DEC     -.9656240240 B-1                        #  STAR 19    X
057268,000077: 14,3570           00660 22763                    2DEC     +.0528067543 B-1                        #  STAR 19    Y
057269,000078: 14,3572           04045 01424                    2DEC     +.2545224762 B-1                        #  STAR 19    Z
057270,000079: 14,3574           62165 45335                    2DEC     -.8606970465 B-1                        #  STAR 18    X
057271,000080: 14,3576           07327 21564                    2DEC     +.4638127405 B-1                        #  STAR 18    Y
057272,000081: 14,3600           03267 34557                    2DEC     +.2099484122 B-1                        #  STAR 18    Z
057273,000082: 14,3602           63472 50705                    2DEC     -.7741360248 B-1                        #  STAR 17    X
057274,000083: 14,3604           11661 21433                    2DEC     +.6154234025 B-1                        #  STAR 17    Y
057275,000084: 14,3606           75501 72421                    2DEC     -.1482142053 B-1                        #  STAR 17    Z
057276,000085: 14,3610           70431 65316                    2DEC     -.4656165921 B-1                        #  STAR 16    X
057277,000086: 14,3612           07510 12666                    2DEC     +.4775804724 B-1                        #  STAR 16    Y
057278,000087: 14,3614           13727 21520                    2DEC     +.7450624681 B-1                        #  STAR 16    Z
057279,000088: 14,3616           72161 43161                    2DEC     -.3611937602 B-1                        #  STAR 15    X
057280,000089: 14,3620           11144 32323                    2DEC     +.5748077840 B-1                        #  STAR 15    Y
057281,000090: 14,3622           64200 76476                    2DEC     -.7342581827 B-1                        #  STAR 15    Z
057282,000091: 14,3624           71323 70264                    2DEC     -.4116502629 B-1                        #  STAR 14    X
057283,000092: 14,3626           16403 05717                    2DEC     +.9066387314 B-1                        #  STAR 14    Y
057284,000093: 14,3630           01365 17662                    2DEC     +.0924676785 B-1                        #  STAR 14    Z
057285,000094:                                                                                                 # # Page 1356
057286,000095: 14,3632           75055 75101                    2DEC     -.1818957154 B-1                        #  STAR 13    X
057287,000096: 14,3634           17030 32613                    2DEC     +.9405318128 B-1                        #  STAR 13    Y
057288,000097: 14,3636           73321 65667                    2DEC     -.2869039173 B-1                        #  STAR 13    Z
057289,000098: 14,3640           77010 66714                    2DEC     -.0614360769 B-1                        #  STAR 12    X
057290,000099: 14,3642           11515 05314                    2DEC     +.6031700106 B-1                        #  STAR 12    Y
057291,000100: 14,3644           63215 53630                    2DEC     -.7952430739 B-1                        #  STAR 12    Z
057292,000101: 14,3646           02145 21163                    2DEC     +.1373948084 B-1                        #  STAR 11    X
057293,000102: 14,3650           12715 21123                    2DEC     +.6813398852 B-1                        #  STAR 11    Y
057294,000103: 14,3652           13401 26125                    2DEC     +.7189566241 B-1                        #  STAR 11    Z
057295,000104: 14,3654           03161 14610                    2DEC     +.2013426456 B-1                        #  STAR 10    X
057296,000105: 14,3656           17401 36465                    2DEC     +.9689888101 B-1                        #  STAR 10    Y
057297,000106: 14,3660           75552 56556                    2DEC     -.1432544058 B-1                        #  STAR 10    Z
057298,000107: 14,3662           05473 01565                    2DEC     +.3509587451 B-1                        #  STAR  9    X
057299,000108: 14,3664           16217 31643                    2DEC     +.8925545449 B-1                        #  STAR  9    Y
057300,000109: 14,3666           04417 22211                    2DEC     +.2831507435 B-1                        #  STAR  9    Z
057301,000110: 14,3670           06444 33354                    2DEC     +.4107492871 B-1                        #  STAR  8    X
057302,000111: 14,3672           07765 20153                    2DEC     +.4987190610 B-1                        #  STAR  8    Y
057303,000112: 14,3674           14154 23613                    2DEC     +.7632590132 B-1                        #  STAR  8    Z
057304,000113: 14,3676           13202 05024                    2DEC     +.7033883645 B-1                        #  STAR  7    X
057305,000114: 14,3700           13243 07665                    2DEC     +.7074274193 B-1                        #  STAR  7    Y
057306,000115: 14,3702           01067 01242                    2DEC     +.0692188921 B-1                        #  STAR  7    Z
057307,000116: 14,3704           10561 05666                    2DEC     +.5450662811 B-1                        #  STAR  6    X
057308,000117: 14,3706           10401 00357                    2DEC     +.5313738486 B-1                        #  STAR  6    Y
057309,000118: 14,3710           65477 61124                    2DEC     -.6484940879 B-1                        #  STAR  6    Z
057310,000119: 14,3712           00154 03111                    2DEC     +.0131955837 B-1                        #  STAR  5    X
057311,000120:                                                                                                 # # Page 1357
057312,000121: 14,3714           00077 35676                    2DEC     +.0078043793 B-1                        #  STAR  5    Y
057313,000122: 14,3716           17777 01142                    2DEC     +.9998824772 B-1                        #  STAR  5    Z
057314,000123: 14,3720           07674 11416                    2DEC     +.4917355618 B-1                        #  STAR  4    X
057315,000124: 14,3722           03415 12707                    2DEC     +.2203784481 B-1                        #  STAR  4    Y
057316,000125: 14,3724           62413 43135                    2DEC     -.8423950835 B-1                        #  STAR  4    Z
057317,000126: 14,3726           07511 03423                    2DEC     +.4776746280 B-1                        #  STAR  3    X
057318,000127: 14,3730           01672 12054                    2DEC     +.1164935557 B-1                        #  STAR  3    Y
057319,000128: 14,3732           15735 15405                    2DEC     +.8707790771 B-1                        #  STAR  3    Z
057320,000129: 14,3734           16745 21763                    2DEC     +.9342726691 B-1                        #  STAR  2    X
057321,000130: 14,3736           02613 24675                    2DEC     +.1732973829 B-1                        #  STAR  2    Y
057322,000131: 14,3740           73007 50430                    2DEC     -.3116128956 B-1                        #  STAR  2    Z
057323,000132: 14,3742           15777 12457                    2DEC     +.8749183324 B-1                        #  STAR  1    X
057324,000133: 14,3744           00324 03265                    2DEC     +.0258916990 B-1                        #  STAR  1    Y
057325,000134: 14,3746           07571 17020                    2DEC     +.4835778442 B-1                        #  STAR  1    Z
057326,000135: 14,3750           15325        CATLOG            DEC      6869       B-14                       

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