Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

059497,000002:                                                                                                  ## Copyright:   Public domain.
059498,000003:                                                                                                  ## Filename:    STAR_TABLES.agc
059499,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
059500,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
059501,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
059502,000007:                                                                                                  ##              Apollo 15-17.
059503,000008:                                                                                                  ## Assembler:   yaYUL
059504,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
059505,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
059506,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
059507,000012:                                                                                                  ## Mod history: 2009-08-19 JL   Adapted from corresponding Comanche 055 file.
059508,000013:                                                                                                  ##              2010-02-13 JL   Fixed error on pages 1387 and 1388.
059509,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
059510,000015:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
059511,000016:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
059512,000017: 

Page 1387

059514,000019: 
059515,000020: 15,2000                                           SETLOC   STARTAB                               
059516,000021: 15,2000                                           BANK                                           
059517,000022: 
059518,000023: 15,3437                                           COUNT*   $$/STARS                              
059519,000024: 15,3437           15264 07253                     2DEC     +.8345006310 B-1                        #  STAR 37       X
059520,000025: 15,3441           74133 45130                     2DEC     -.2388718657 B-1                        #  STAR 37       Y
059521,000026: 15,3443           70034 53644                     2DEC     -.4965369357 B-1                        #  STAR 37       Z
059522,000027: 
059523,000028: 15,3445           15015 35262                     2DEC     +.8141988673 B-1                        #  STAR 36       X
059524,000029: 15,3447           67072 57521                     2DEC     -.5553601830 B-1                        #  STAR 36       Y
059525,000030: 15,3451           02552 27310                     2DEC     +.1692786800 B-1                        #  STAR 36       Z
059526,000031: 
059527,000032: 15,3453           07210 34714                     2DEC     +.4542117996 B-1                        #  STAR 35       X
059528,000033: 15,3455           67300 47414                     2DEC     -.5390337930 B-1                        #  STAR 35       Y
059529,000034: 15,3457           13262 27671                     2DEC     +.7093195408 B-1                        #  STAR 35       Z
059530,000035: 
059531,000036: 15,3461           05101 34175                     2DEC     +.3205423120 B-1                        #  STAR 34       X
059532,000037: 15,3463           70717 46031                     2DEC     -.4434583652 B-1                        #  STAR 34       Y
059533,000038: 15,3465           62467 45023                     2DEC     -.8370169081 B-1                        #  STAR 34       Z
059534,000039: 
059535,000040: 15,3467           10655 16340                     2DEC     +.5524232365 B-1                        #  STAR 33       X
059536,000041: 15,3471           63237 45012                     2DEC     -.7930716636 B-1                        #  STAR 33       Y
059537,000042: 15,3473           73711 62337                     2DEC     -.2566435348 B-1                        #  STAR 33       Z
059538,000043: 
059539,000044: 15,3475           07207 34100                     2DEC     +.4540867784 B-1                        #  STAR 32       X
059540,000045: 15,3477           61751 60311                     2DEC     -.8777450759 B-1                        #  STAR 32       Y
059541,000046: 15,3501           02344 11437                     2DEC     +.1528685033 B-1                        #  STAR 32       Z
059542,000047: 
059543,000048: 15,3503           03243 10132                     2DEC     +.2074286490 B-1                        #  STAR 31       X
059544,000049: 15,3505           62031 55616                     2DEC     -.8718956797 B-1                        #  STAR 31       Y
059545,000050: 15,3507           70716 43617                     2DEC     -.4435890882 B-1                        #  STAR 31       Z
059546,000051: 
059547,000052: 15,3511           01747 01335                     2DEC     +.1219537054 B-1                        #  STAR 30       X
059548,000053: 15,3513           63532 54217                     2DEC     -.7702168243 B-1                        #  STAR 30       Y

Page 1388

059550,000055: 15,3515           12010 11614                     2DEC     +.6260138474 B-1                        #  STAR 30       Z
059551,000056: 
059552,000057: 15,3517           76152 45651                     2DEC     -.1120382967 B-1                        #  STAR 29       X
059553,000058: 15,3521           60371 57632                     2DEC     -.9695442116 B-1                        #  STAR 29       Y
059554,000059: 15,3523           03370 03556                     2DEC     +.2177876068 B-1                        #  STAR 29       Z
059555,000060: 
059556,000061: 15,3525           76127 67425                     2DEC     -.1142900725 B-1                        #  STAR 28       X
059557,000062: 15,3527           72436 61577                     2DEC     -.3400201762 B-1                        #  STAR 28       Y
059558,000063: 15,3531           61041 46271                     2DEC     -.9334474056 B-1                        #  STAR 28       Z
059559,000064: 
059560,000065: 15,3533           72303 40213                     2DEC     -.3511952476 B-1                        #  STAR 27       X
059561,000066: 15,3535           62637 74356                     2DEC     -.8242322268 B-1                        #  STAR 27       Y
059562,000067: 15,3537           70711 46567                     2DEC     -.4441881743 B-1                        #  STAR 27       Z
059563,000068: 
059564,000069: 15,3541           67366 44175                     2DEC     -.5324545035 B-1                        #  STAR 26       X
059565,000070: 15,3543           64424 41241                     2DEC     -.7163035719 B-1                        #  STAR 26       Y
059566,000071: 15,3545           07156 23036                     2DEC     +.4510004372 B-1                        #  STAR 26       Z
059567,000072: 
059568,000073: 15,3547           63330 75735                     2DEC     -.7860186221 B-1                        #  STAR 25       X
059569,000074: 15,3551           67512 62476                     2DEC     -.5221457573 B-1                        #  STAR 25       Y
059570,000075: 15,3553           05227 10611                     2DEC     +.3309660611 B-1                        #  STAR 25       Z
059571,000076: 
059572,000077: 15,3555           64757 51701                     2DEC     -.6895375091 B-1                        #  STAR 24       X
059573,000078: 15,3557           71233 53334                     2DEC     -.4185354938 B-1                        #  STAR 24       Y
059574,000079: 15,3561           66425 76017                     2DEC     -.5910719617 B-1                        #  STAR 24       Z
059575,000080: 
059576,000081: 15,3563           66546 64151                     2DEC     -.5812217481 B-1                        #  STAR 23       X
059577,000082: 15,3565           73256 65757                     2DEC     -.2911759648 B-1                        #  STAR 23       Y
059578,000083: 15,3567           14120 32444                     2DEC     +.7598669864 B-1                        #  STAR 23       Z
059579,000084: 
059580,000085: 15,3571           61251 56124                     2DEC     -.9168160791 B-1                        #  STAR 22       X
059581,000086: 15,3573           72307 65764                     2DEC     -.3506241694 B-1                        #  STAR 22       Y
059582,000087: 15,3575           74742 65735                     2DEC     -.1910784362 B-1                        #  STAR 22       Z

Page 1389

059584,000089: 15,3577           70607 77742                     2DEC     -.4521486548 B-1                        #  STAR 21       X
059585,000090: 15,3601           77151 74615                     2DEC     -.0495728431 B-1                        #  STAR 21       Y
059586,000091: 15,3603           61600 60003                     2DEC     -.8905639377 B-1                        #  STAR 21       Z
059587,000092: 
059588,000093: 15,3605           60605 64345                     2DEC     -.9524366380 B-1                        #  STAR 20       X
059589,000094: 15,3607           77026 54200                     2DEC     -.0597677121 B-1                        #  STAR 20       Y
059590,000095: 15,3611           73160 42475                     2DEC     -.2988181236 B-1                        #  STAR 20       Z
059591,000096: 
059592,000097: 15,3613           60430 66614                     2DEC     -.9657334280 B-1                        #  STAR 19       X
059593,000098: 15,3615           00653 13072                     2DEC     +.0521664164 B-1                        #  STAR 19       Y
059594,000099: 15,3617           04042 27232                     2DEC     +.2542392790 B-1                        #  STAR 19       Z
059595,000100: 
059596,000101: 15,3621           62162 44274                     2DEC     -.8610673209 B-1                        #  STAR 18       X
059597,000102: 15,3623           07322 33165                     2DEC     +.4632386329 B-1                        #  STAR 18       Y
059598,000103: 15,3625           03265 32741                     2DEC     +.2096974909 B-1                        #  STAR 18       Z
059599,000104: 
059600,000105: 15,3627           63467 50064                     2DEC     -.7745052221 B-1                        #  STAR 17       X
059601,000106: 15,3631           11655 11373                     2DEC     +.6149043688 B-1                        #  STAR 17       Y
059602,000107: 15,3633           75477 77366                     2DEC     -.1484394758 B-1                        #  STAR 17       Z
059603,000108: 
059604,000109: 15,3635           70425 51217                     2DEC     -.4661511162 B-1                        #  STAR 16       X
059605,000110: 15,3637           07505 32504                     2DEC     +.4772744503 B-1                        #  STAR 16       Y
059606,000111: 15,3641           13726 15341                     2DEC     +.7449243154 B-1                        #  STAR 16       Z
059607,000112: 
059608,000113: 15,3643           72157 66255                     2DEC     -.3613649782 B-1                        #  STAR 15       X
059609,000114: 15,3645           11142 32737                     2DEC     +.5745656444 B-1                        #  STAR 15       Y
059610,000115: 15,3647           64200 43016                     2DEC     -.7343634472 B-1                        #  STAR 15       Z
059611,000116: 
059612,000117: 15,3651           71316 64201                     2DEC     -.4122762536 B-1                        #  STAR 14       X
059613,000118: 15,3653           16400 36737                     2DEC     +.9063680102 B-1                        #  STAR 14       Y
059614,000119: 15,3655           01364 14350                     2DEC     +.0923326629 B-1                        #  STAR 14       Z
059615,000120: 
059616,000121: 15,3657           75051 60001                     2DEC     -.1824340636 B-1                        #  STAR 13       X

Page 1390

059618,000123: 15,3661           17027 31661                     2DEC     +.9404062129 B-1                        #  STAR 13       Y
059619,000124: 15,3663           73321 43422                     2DEC     -.2869738089 B-1                        #  STAR 13       Z
059620,000125: 
059621,000126: 15,3665           77007 51442                     2DEC     -.0616090080 B-1                        #  STAR 12       X
059622,000127: 15,3667           11514 32502                     2DEC     +.6031289258 B-1                        #  STAR 12       Y
059623,000128: 15,3671           63215 47106                     2DEC     -.7952608559 B-1                        #  STAR 12       Z
059624,000129: 
059625,000130: 15,3673           02140 02335                     2DEC     +.1367280274 B-1                        #  STAR 11       X
059626,000131: 15,3675           12716 12356                     2DEC     +.6814364033 B-1                        #  STAR 11       Y
059627,000132: 15,3677           13401 37404                     2DEC     +.7189922632 B-1                        #  STAR 11       Z
059628,000133: 
059629,000134: 15,3701           03154 15267                     2DEC     +.2007345455 B-1                        #  STAR 10       X
059630,000135: 15,3703           17403 01743                     2DEC     +.9691236271 B-1                        #  STAR 10       Y
059631,000136: 15,3705           75552 76050                     2DEC     -.1431958012 B-1                        #  STAR 10       Z
059632,000137: 
059633,000138: 15,3707           05465 17001                     2DEC     +.3502769546 B-1                        #  STAR 9        X
059634,000139: 15,3711           16221 27572                     2DEC     +.8927907521 B-1                        #  STAR 9        Y
059635,000140: 15,3713           04420 14273                     2DEC     +.2832502918 B-1                        #  STAR 9        Z
059636,000141: 
059637,000142: 15,3715           06440 11323                     2DEC     +.4101921571 B-1                        #  STAR 8        X
059638,000143: 15,3717           07767 30366                     2DEC     +.4989947555 B-1                        #  STAR 8        Y
059639,000144: 15,3721           14155 23047                     2DEC     +.7633784305 B-1                        #  STAR 8        Z
059640,000145: 
059641,000146: 15,3723           13176 03307                     2DEC     +.7028937840 B-1                        #  STAR 7        X
059642,000147: 15,3725           13247 03342                     2DEC     +.7078988678 B-1                        #  STAR 7        Y
059643,000148: 15,3727           01070 26607                     2DEC     +.0694227718 B-1                        #  STAR 7        Z
059644,000149: 
059645,000150: 15,3731           10557 32115                     2DEC     +.5448995598 B-1                        #  STAR 6        X
059646,000151: 15,3733           10404 00124                     2DEC     +.5317389073 B-1                        #  STAR 6        Y
059647,000152: 15,3735           65500 72703                     2DEC     -.6483349473 B-1                        #  STAR 6        Z
059648,000153: 
059649,000154: 15,3737           00151 25431                     2DEC     +.0128995818 B-1                        #  STAR 5        X
059650,000155: 15,3741           00077 37176                     2DEC     +.0078096205 B-1                        #  STAR 5        Y

Page 1391

059652,000157: 15,3743           17777 02143                     2DEC     +.9998862988 B-1                        #  STAR 5        Z
059653,000158: 
059654,000159: 15,3745           07675 02702                     2DEC     +.4918322686 B-1                        #  STAR 4        X
059655,000160: 15,3747           03420 01470                     2DEC     +.2207092653 B-1                        #  STAR 4        Y
059656,000161: 15,3751           62414 50541                     2DEC     -.8422520048 B-1                        #  STAR 4        Z
059657,000162: 
059658,000163: 15,3753           07506 14361                     2DEC     +.4773424940 B-1                        #  STAR 3        X
059659,000164: 15,3755           01674 36075                     2DEC     +.1168141178 B-1                        #  STAR 3        Y
059660,000165: 15,3757           15736 21775                     2DEC     +.8709182540 B-1                        #  STAR 3        Z
059661,000166: 
059662,000167: 15,3761           16745 13112                     2DEC     +.9342466124 B-1                        #  STAR 2        X
059663,000168: 15,3763           02620 31757                     2DEC     +.1739271769 B-1                        #  STAR 2        Y
059664,000169: 15,3765           73011 60052                     2DEC     -.3113400137 B-1                        #  STAR 2        Z
059665,000170: 
059666,000171: 15,3767           15776 01237                     2DEC     +.8747608555 B-1                        #  STAR 1        X
059667,000172: 15,3771           00330 35521                     2DEC     +.0264803244 B-1                        #  STAR 1        Y
059668,000173: 15,3773           07573 21256                     2DEC     +.4838307948 B-1                        #  STAR 1        Z
059669,000174: 
059670,000175: 15,3775           16004        CATLOG             DEC      7172       B-14                       

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