ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
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,1968Note that the date is the date of the printout, not the date of the program revision. |
059375,000002: ## Copyright: Public domain.
059376,000003: ## Filename: STAR_TABLES.agc
059377,000004: ## Purpose: Part of the source code for Colossus, build 249.
059378,000005: ## It is part of the source code for the Command Module's (CM)
059379,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
059380,000007: ## Assembler: yaYUL
059381,000008: ## Reference: Starts on p. 1357
059382,000009: ## Contact: Ron Burkey <info@sandroid.org>.
059383,000010: ## Website: www.ibiblio.org/apollo.
059384,000011: ## Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file.
059385,000012: ## 2017-01-06 RSB Page numbers now agree with those on the
059386,000013: ## original harcopy, as opposed to the PDF page
059387,000014: ## numbers in 1701.pdf.
059388,000015: ## 2017-01-20 RSB Cross-diff'd comment text (not whitespace)
059389,000016: ## vs the already-proofed corresponding Colossus
059390,000017: ## 237 and Comanche 55 source-code files
059391,000018: ## but no errors found.
059392,000019: ##
059393,000020: ## The contents of the "Colossus249" files, in general, are transcribed
059394,000021: ## from a scanned copy of the program listing. Notations on this
059395,000022: ## document read, in part:
059396,000023: ##
059397,000024: ## Assemble revision 249 of AGC program Colossus by NASA
059398,000025: ## 2021111-041. October 28, 1968.
059399,000026: ##
059400,000027: ## This AGC program shall also be referred to as
059401,000028: ## Colossus 1A
059402,000029: ##
059403,000030: ## Prepared by
059404,000031: ## Massachusetts Institute of Technology
059405,000032: ## 75 Cambridge Parkway
059406,000033: ## Cambridge, Massachusetts
059407,000034: ## under NASA contract NAS 9-4065.
059408,000035: ##
059409,000036: ## Refer directly to the online document mentioned above for further information.
059410,000037: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
059411,000038: ##
059412,000039: ## In some cases, where the source code for Luminary 131 overlaps that of
059413,000040: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
059414,000041: ## source file, and then is proofed to incorporate any changes.
059415,000042:
|
|
Page 1357 |
059417,000044: 32,3755 BANK 32
059418,000045: 14,2000 SETLOC STARTAB
059419,000046: 14,2000 BANK
059420,000047:
059421,000048: 14,3405 COUNT 14/STARS
059422,000049:
059423,000050: 14,3405 15261 27231 2DEC +.8341953207 B-1 # STAR 37 X
059424,000051: 14,3407 74126 61161 2DEC -.2394362567 B-1 # STAR 37 Y
059425,000052: 14,3411 70032 54470 2DEC -.4967780649 B-1 # STAR 37 Z
059426,000053:
059427,000054: 14,3413 15013 10432 2DEC +.8138753897 B-1 # STAR 36 X
059428,000055: 14,3415 67066 40370 2DEC -.5559063490 B-1 # STAR 36 Y
059429,000056: 14,3417 02550 31133 2DEC +.1690413589 B-1 # STAR 36 Z
059430,000057:
059431,000058: 14,3421 07207 24243 2DEC +.4540570017 B-1 # STAR 35 X
059432,000059: 14,3423 67275 67544 2DEC -.5393383149 B-1 # STAR 35 Y
059433,000060: 14,3425 13261 25121 2DEC +.7091871552 B-1 # STAR 35 Z
059434,000061:
059435,000062: 14,3427 05075 16350 2DEC +.3200014224 B-1 # STAR 34 X
059436,000063: 14,3431 70715 55404 2DEC -.4436740480 B-1 # STAR 34 Y
059437,000064: 14,3433 62466 54577 2DEC -.8371095679 B-1 # STAR 34 Z
059438,000065:
059439,000066: 14,3435 10650 17202 2DEC +.5518160037 B-1 # STAR 33 X
059440,000067: 14,3437 63234 43704 2DEC -.7934422090 B-1 # STAR 33 Y
059441,000068: 14,3441 73710 50170 2DEC -.2568045150 B-1 # STAR 33 Z
059442,000069:
059443,000070: 14,3443 07203 13612 2DEC +.4535361097 B-1 # STAR 32 X
059444,000071: 14,3445 61746 77370 2DEC -.8780537171 B-1 # STAR 32 Y
059445,000072: 14,3447 02343 05340 2DEC +.1527307006 B-1 # STAR 32 Z
059446,000073:
059447,000074: 14,3451 03235 14762 2DEC +.2067145272 B-1 # STAR 31 X
059448,000075: 14,3453 62030 51212 2DEC -.8720349419 B-1 # STAR 31 Y
059449,000076: 14,3455 70715 64117 2DEC -.4436486945 B-1 # STAR 31 Z
059450,000077:
059451,000078: 14,3457 01744 11157 2DEC +.1216171923 B-1 # STAR 30 X
|
|
Page 1358 |
059453,000080: 14,3461 63531 66055 2DEC -.7703014754 B-1 # STAR 30 Y
059454,000081: 14,3463 12007 37503 2DEC +.6259751556 B-1 # STAR 30 Z
059455,000082:
059456,000083: 14,3465 76145 53477 2DEC -.1126265542 B-1 # STAR 29 X
059457,000084: 14,3467 60372 43624 2DEC -.9694679589 B-1 # STAR 29 Y
059458,000085: 14,3471 03370 15121 2DEC +.2178236347 B-1 # STAR 29 Z
059459,000086:
059460,000087: 14,3473 76123 64245 2DEC -.1147906312 B-1 # STAR 28 X
059461,000088: 14,3475 72437 45623 2DEC -.3399437395 B-1 # STAR 28 Y
059462,000089: 14,3477 61041 57124 2DEC -.9334138229 B-1 # STAR 28 Z
059463,000090:
059464,000091: 14,3501 72275 55365 2DEC -.3518772846 B-1 # STAR 27 X
059465,000092: 14,3503 62641 72150 2DEC -.8239967165 B-1 # STAR 27 Y
059466,000093: 14,3505 70712 41542 2DEC -.4440853383 B-1 # STAR 27 Z
059467,000094:
059468,000095: 14,3507 67363 50441 2DEC -.5328042377 B-1 # STAR 26 X
059469,000096: 14,3511 64426 77263 2DEC -.7159448596 B-1 # STAR 26 Y
059470,000097: 14,3513 07157 34056 2DEC +.4511569595 B-1 # STAR 26 Z
059471,000098:
059472,000099: 14,3515 63326 77723 2DEC -.7862552143 B-1 # STAR 25 X
059473,000100: 14,3517 67516 72566 2DEC -.5216265404 B-1 # STAR 25 Y
059474,000101: 14,3521 05231 14031 2DEC +.3312227199 B-1 # STAR 25 Z
059475,000102:
059476,000103: 14,3523 64753 63156 2DEC -.6899901699 B-1 # STAR 24 X
059477,000104: 14,3525 71237 42272 2DEC -.4180817950 B-1 # STAR 24 Y
059478,000105: 14,3527 66427 64260 2DEC -.5908647707 B-1 # STAR 24 Z
059479,000106:
059480,000107: 14,3531 66546 73302 2DEC -.5811943804 B-1 # STAR 23 X
059481,000108: 14,3533 73261 73575 2DEC -.2907877154 B-1 # STAR 23 Y
059482,000109: 14,3535 14122 07016 2DEC +.7600365758 B-1 # STAR 23 Z
059483,000110:
059484,000111: 14,3537 61247 42015 2DEC -.9171065276 B-1 # STAR 22 X
059485,000112: 14,3541 72314 67004 2DEC -.3500098785 B-1 # STAR 22 Y
|
|
Page 1359 |
059487,000114: 14,3543 74744 74104 2DEC -.1908106439 B-1 # STAR 22 Z
059488,000115:
059489,000116: 14,3545 70605 63103 2DEC -.4524416631 B-1 # STAR 21 X
059490,000117: 14,3547 77154 54113 2DEC -.0492700670 B-1 # STAR 21 Y
059491,000118: 14,3551 61601 62472 2DEC -.8904319167 B-1 # STAR 21 Z
059492,000119:
059493,000120: 14,3553 60604 63166 2DEC -.9525633510 B-1 # STAR 20 X
059494,000121: 14,3555 77033 63044 2DEC -.0591313500 B-1 # STAR 20 Y
059495,000122: 14,3557 73162 53261 2DEC -.2985406935 B-1 # STAR 20 Z
059496,000123:
059497,000124: 14,3561 60431 63350 2DEC -.9656240240 B-1 # STAR 19 X
059498,000125: 14,3563 00660 22763 2DEC +.0528067543 B-1 # STAR 19 Y
059499,000126: 14,3565 04045 01424 2DEC +.2545224762 B-1 # STAR 19 Z
059500,000127:
059501,000128: 14,3567 62165 45335 2DEC -.8606970465 B-1 # STAR 18 X
059502,000129: 14,3571 07327 21564 2DEC +.4638127405 B-1 # STAR 18 Y
059503,000130: 14,3573 03267 34557 2DEC +.2099484122 B-1 # STAR 18 Z
059504,000131:
059505,000132: 14,3575 63472 50705 2DEC -.7741360248 B-1 # STAR 17 X
059506,000133: 14,3577 11661 21433 2DEC +.6154234025 B-1 # STAR 17 Y
059507,000134: 14,3601 75501 72421 2DEC -.1482142053 B-1 # STAR 17 Z
059508,000135:
059509,000136: 14,3603 70431 65316 2DEC -.4656165921 B-1 # STAR 16 X
059510,000137: 14,3605 07510 12666 2DEC +.4775804724 B-1 # STAR 16 Y
059511,000138: 14,3607 13727 21520 2DEC +.7450624681 B-1 # STAR 16 Z
059512,000139:
059513,000140: 14,3611 72161 43161 2DEC -.3611937602 B-1 # STAR 15 X
059514,000141: 14,3613 11144 32323 2DEC +.5748077840 B-1 # STAR 15 Y
059515,000142: 14,3615 64200 76476 2DEC -.7342581827 B-1 # STAR 15 Z
059516,000143:
059517,000144: 14,3617 71323 70264 2DEC -.4116502629 B-1 # STAR 14 X
059518,000145: 14,3621 16403 05717 2DEC +.9066387314 B-1 # STAR 14 Y
059519,000146: 14,3623 01365 17662 2DEC +.0924676785 B-1 # STAR 14 Z
059520,000147:
|
|
Page 1360 |
059522,000149: 14,3625 75055 75101 2DEC -.1818957154 B-1 # STAR 13 X
059523,000150: 14,3627 17030 32613 2DEC +.9405318128 B-1 # STAR 13 Y
059524,000151: 14,3631 73321 65667 2DEC -.2869039173 B-1 # STAR 13 Z
059525,000152:
059526,000153: 14,3633 77010 66714 2DEC -.0614360769 B-1 # STAR 12 X
059527,000154: 14,3635 11515 05314 2DEC +.6031700106 B-1 # STAR 12 Y
059528,000155: 14,3637 63215 53630 2DEC -.7952430739 B-1 # STAR 12 Z
059529,000156:
059530,000157: 14,3641 02145 21163 2DEC +.1373948084 B-1 # STAR 11 X
059531,000158: 14,3643 12715 21123 2DEC +.6813398852 B-1 # STAR 11 Y
059532,000159: 14,3645 13401 26125 2DEC +.7189566241 B-1 # STAR 11 Z
059533,000160:
059534,000161: 14,3647 03161 14610 2DEC +.2013426456 B-1 # STAR 10 X
059535,000162: 14,3651 17401 36465 2DEC +.9689888101 B-1 # STAR 10 Y
059536,000163: 14,3653 75552 56556 2DEC -.1432544058 B-1 # STAR 10 Z
059537,000164:
059538,000165: 14,3655 05473 01565 2DEC +.3509587451 B-1 # STAR 9 X
059539,000166: 14,3657 16217 31643 2DEC +.8925545449 B-1 # STAR 9 Y
059540,000167: 14,3661 04417 22211 2DEC +.2831507435 B-1 # STAR 9 Z
059541,000168:
059542,000169: 14,3663 06444 33354 2DEC +.4107492871 B-1 # STAR 8 X
059543,000170: 14,3665 07765 20153 2DEC +.4987190610 B-1 # STAR 8 Y
059544,000171: 14,3667 14154 23613 2DEC +.7632590132 B-1 # STAR 8 Z
059545,000172:
059546,000173: 14,3671 13202 05024 2DEC +.7033883645 B-1 # STAR 7 X
059547,000174: 14,3673 13243 07665 2DEC +.7074274193 B-1 # STAR 7 Y
059548,000175: 14,3675 01067 01242 2DEC +.0692188921 B-1 # STAR 7 Z
059549,000176:
059550,000177: 14,3677 10561 05666 2DEC +.5450662811 B-1 # STAR 6 X
059551,000178: 14,3701 10401 00357 2DEC +.5313738486 B-1 # STAR 6 Y
059552,000179: 14,3703 65477 61124 2DEC -.6484940879 B-1 # STAR 6 Z
059553,000180:
059554,000181: 14,3705 00154 03111 2DEC +.0131955837 B-1 # STAR 5 X
|
|
Page 1361 |
059556,000183: 14,3707 00077 35676 2DEC +.0078043793 B-1 # STAR 5 Y
059557,000184: 14,3711 17777 01142 2DEC +.9998824772 B-1 # STAR 5 Z
059558,000185:
059559,000186: 14,3713 07674 11416 2DEC +.4917355618 B-1 # STAR 4 X
059560,000187: 14,3715 03415 12707 2DEC +.2203784481 B-1 # STAR 4 Y
059561,000188: 14,3717 62413 43135 2DEC -.8423950835 B-1 # STAR 4 Z
059562,000189:
059563,000190: 14,3721 07511 03423 2DEC +.4776746280 B-1 # STAR 3 X
059564,000191: 14,3723 01672 12054 2DEC +.1164935557 B-1 # STAR 3 Y
059565,000192: 14,3725 15735 15405 2DEC +.8707790771 B-1 # STAR 3 Z
059566,000193:
059567,000194: 14,3727 16745 21763 2DEC +.9342726691 B-1 # STAR 2 X
059568,000195: 14,3731 02613 24675 2DEC +.1732973829 B-1 # STAR 2 Y
059569,000196: 14,3733 73007 50430 2DEC -.3116128956 B-1 # STAR 2 Z
059570,000197:
059571,000198: 14,3735 15777 12457 2DEC +.8749183324 B-1 # STAR 1 X
059572,000199: 14,3737 00324 03265 2DEC +.0258916990 B-1 # STAR 1 Y
059573,000200: 14,3741 07571 17020 2DEC +.4835778442 B-1 # STAR 1 Z
059574,000201:
059575,000202: 14,3743 15325 CATLOG DEC 6869 B-14
059576,000203:
059577,000204:
059578,000205:
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc