GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. 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:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
060487,000002: ## Copyright: Public domain.
060488,000003: ## Filename: STAR_TABLES.agc
060489,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
060490,000005: ## It is part of the source code for the Command Module's (CM)
060491,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
060492,000007: ## Assembler: yaYUL
060493,000008: ## Contact: Ron Burkey <info@sandroid.org>.
060494,000009: ## Website: www.ibiblio.org/apollo.
060495,000010: ## Pages: 1389-1393
060496,000011: ## Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
060497,000012: ## from the Colossus249/ file of the same
060498,000013: ## name, using Comanche055 page images.
060499,000014: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
060500,000015: ## but no errors found.
060501,000016: ##
060502,000017: ## This source code has been transcribed or otherwise adapted from digitized
060503,000018: ## images of a hardcopy from the MIT Museum. The digitization was performed
060504,000019: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
060505,000020: ## thanks to both. The images (with suitable reduction in storage size and
060506,000021: ## consequent reduction in image quality as well) are available online at
060507,000022: ## www.ibiblio.org/apollo. If for some reason you find that the images are
060508,000023: ## illegible, contact me at info@sandroid.org about getting access to the
060509,000024: ## (much) higher-quality images which Paul actually created.
060510,000025: ##
060511,000026: ## Notations on the hardcopy document read, in part:
060512,000027: ##
060513,000028: ## Assemble revision 055 of AGC program Comanche by NASA
060514,000029: ## 2021113-051. 10:28 APR. 1, 1969
060515,000030: ##
060516,000031: ## This AGC program shall also be referred to as
060517,000032: ## Colossus 2A
060518,000033:
|
|
Page 1389 |
060520,000035: 32,3770 BANK 32
060521,000036: 14,2000 SETLOC STARTAB
060522,000037: 14,2000 BANK
060523,000038:
060524,000039: 14,3422 COUNT 14/STARS
060525,000040:
060526,000041: 14,3422 15262 21773 2DEC +.8342971408 B-1 # STAR 37 X
060527,000042: 14,3424 74130 42420 2DEC -.2392481515 B-1 # STAR 37 Y
060528,000043: 14,3426 70033 41533 2DEC -.4966976975 B-1 # STAR 37 Z
060529,000044:
060530,000045: 14,3430 15014 04650 2DEC +.8139832631 B-1 # STAR 36 X
060531,000046: 14,3432 67067 60150 2DEC -.5557243189 B-1 # STAR 36 Y
060532,000047: 14,3434 02551 15723 2DEC +.1691204557 B-1 # STAR 36 Z
060533,000048:
060534,000049: 14,3436 07210 01664 2DEC +.4541086270 B-1 # STAR 35 X
060535,000050: 14,3440 67276 62232 2DEC -.5392368197 B-1 # STAR 35 Y
060536,000051: 14,3442 13262 00563 2DEC +.7092312789 B-1 # STAR 35 Z
060537,000052:
060538,000053: 14,3444 05076 35561 2DEC +.3201817378 B-1 # STAR 34 X
060539,000054: 14,3446 70716 40260 2DEC -.4436021946 B-1 # STAR 34 Y
060540,000055: 14,3450 62466 64656 2DEC -.8370786986 B-1 # STAR 34 Z
060541,000056:
060542,000057: 14,3452 10652 04246 2DEC +.5520184464 B-1 # STAR 33 X
060543,000058: 14,3454 63235 44200 2DEC -.7933187400 B-1 # STAR 33 Y
060544,000059: 14,3456 73710 66230 2DEC -.2567508745 B-1 # STAR 33 Z
060545,000060:
060546,000061: 14,3460 07204 33712 2DEC +.4537196908 B-1 # STAR 32 X
060547,000062: 14,3462 61747 72343 2DEC -.8779508801 B-1 # STAR 32 Y
060548,000063: 14,3464 02343 21362 2DEC +.1527766153 B-1 # STAR 32 Z
060549,000064:
060550,000065: 14,3466 03237 13301 2DEC +.2069525789 B-1 # STAR 31 X
060551,000066: 14,3470 62030 65332 2DEC -.8719885748 B-1 # STAR 31 Y
060552,000067: 14,3472 70715 71267 2DEC -.4436288486 B-1 # STAR 31 Z
060553,000068:
060554,000069: 14,3474 01745 06477 2DEC +.1217293692 B-1 # STAR 30 X
|
|
Page 1390 |
060556,000071: 14,3476 63531 75365 2DEC -.7702732847 B-1 # STAR 30 Y
060557,000072: 14,3500 12010 03005 2DEC +.6259880410 B-1 # STAR 30 Z
060558,000073:
060559,000074: 14,3502 76146 77014 2DEC -.1124304773 B-1 # STAR 29 X
060560,000075: 14,3504 60371 75073 2DEC -.9694934200 B-1 # STAR 29 Y
060561,000076: 14,3506 03370 12003 2DEC +.2178116072 B-1 # STAR 29 Z
060562,000077:
060563,000078: 14,3510 76125 40037 2DEC -.1146237858 B-1 # STAR 28 X
060564,000079: 14,3512 72436 77062 2DEC -.3399692557 B-1 # STAR 28 Y
060565,000080: 14,3514 61041 54164 2DEC -.9334250333 B-1 # STAR 28 Z
060566,000081:
060567,000082: 14,3516 72277 51044 2DEC -.3516499609 B-1 # STAR 27 X
060568,000083: 14,3520 62641 45471 2DEC -.8240752703 B-1 # STAR 27 Y
060569,000084: 14,3522 70711 70546 2DEC -.4441196390 B-1 # STAR 27 Z
060570,000085:
060571,000086: 14,3524 67364 47073 2DEC -.5326876930 B-1 # STAR 26 X
060572,000087: 14,3526 64425 77777 2DEC -.7160644554 B-1 # STAR 26 Y
060573,000088: 14,3530 07157 16322 2DEC +.4511047742 B-1 # STAR 26 Z
060574,000089:
060575,000090: 14,3532 63327 64446 2DEC -.7861763936 B-1 # STAR 25 X
060576,000091: 14,3534 67515 55266 2DEC -.5217996305 B-1 # STAR 25 Y
060577,000092: 14,3536 05230 25476 2DEC +.3311371675 B-1 # STAR 25 Z
060578,000093:
060579,000094: 14,3540 64754 72604 2DEC -.6898393233 B-1 # STAR 24 X
060580,000095: 14,3542 71235 72553 2DEC -.4182330640 B-1 # STAR 24 Y
060581,000096: 14,3544 66427 42171 2DEC -.5909338474 B-1 # STAR 24 Z
060582,000097:
060583,000098: 14,3546 66546 70765 2DEC -.5812035376 B-1 # STAR 23 X
060584,000099: 14,3550 73260 71643 2DEC -.2909171294 B-1 # STAR 23 Y
060585,000100: 14,3552 14121 30153 2DEC +.7599800468 B-1 # STAR 23 Z
060586,000101:
060587,000102: 14,3554 61247 73310 2DEC -.9170097662 B-1 # STAR 22 X
060588,000103: 14,3556 72313 41247 2DEC -.3502146628 B-1 # STAR 22 Y
|
|
Page 1391 |
060590,000105: 14,3560 74744 44566 2DEC -.1908999176 B-1 # STAR 22 Z
060591,000106:
060592,000107: 14,3562 70606 54564 2DEC -.4523440203 B-1 # STAR 21 X
060593,000108: 14,3564 77153 61536 2DEC -.0493710140 B-1 # STAR 21 Y
060594,000109: 14,3566 61601 47046 2DEC -.8904759346 B-1 # STAR 21 Z
060595,000110:
060596,000111: 14,3570 60604 76224 2DEC -.9525211695 B-1 # STAR 20 X
060597,000112: 14,3572 77031 73354 2DEC -.0593434796 B-1 # STAR 20 Y
060598,000113: 14,3574 73161 63065 2DEC -.2986331746 B-1 # STAR 20 Z
060599,000114:
060600,000115: 14,3576 60431 51702 2DEC -.9656605484 B-1 # STAR 19 X
060601,000116: 14,3600 00656 33013 2DEC +.0525933156 B-1 # STAR 19 Y
060602,000117: 14,3602 04044 10627 2DEC +.2544280809 B-1 # STAR 19 Z
060603,000118:
060604,000119: 14,3604 62164 45040 2DEC -.8608205219 B-1 # STAR 18 X
060605,000120: 14,3606 07325 37443 2DEC +.4636213989 B-1 # STAR 18 Y
060606,000121: 14,3610 03267 06626 2DEC +.2098647835 B-1 # STAR 18 Z
060607,000122:
060608,000123: 14,3612 63471 50471 2DEC -.7742591356 B-1 # STAR 17 X
060609,000124: 14,3614 11660 04151 2DEC +.6152504197 B-1 # STAR 17 Y
060610,000125: 14,3616 75501 46664 2DEC -.1482892839 B-1 # STAR 17 Z
060611,000126:
060612,000127: 14,3620 70430 46540 2DEC -.4657947941 B-1 # STAR 16 X
060613,000128: 14,3622 07507 20100 2DEC +.4774785033 B-1 # STAR 16 Y
060614,000129: 14,3624 13727 05455 2DEC +.7450164351 B-1 # STAR 16 Z
060615,000130:
060616,000131: 14,3626 72160 64202 2DEC -.3612508532 B-1 # STAR 15 X
060617,000132: 14,3630 11144 05203 2DEC +.5747270840 B-1 # STAR 15 Y
060618,000133: 14,3632 64200 65331 2DEC -.7342932655 B-1 # STAR 15 Z
060619,000134:
060620,000135: 14,3634 71322 41512 2DEC -.4118589524 B-1 # STAR 14 X
060621,000136: 14,3636 16402 16205 2DEC +.9065485360 B-1 # STAR 14 Y
060622,000137: 14,3640 01365 04034 2DEC +.0924226975 B-1 # STAR 14 Z
060623,000138:
|
|
Page 1392 |
060625,000140: 14,3642 75054 56052 2DEC -.1820751783 B-1 # STAR 13 X
060626,000141: 14,3644 17030 17635 2DEC +.9404899869 B-1 # STAR 13 Y
060627,000142: 14,3646 73321 57603 2DEC -.2869271926 B-1 # STAR 13 Z
060628,000143:
060629,000144: 14,3650 77010 47623 2DEC -.0614937230 B-1 # STAR 12 X
060630,000145: 14,3652 11515 01640 2DEC +.6031563286 B-1 # STAR 12 Y
060631,000146: 14,3654 63215 52176 2DEC -.7952489957 B-1 # STAR 12 Z
060632,000147:
060633,000148: 14,3656 02143 26755 2DEC +.1371725575 B-1 # STAR 11 X
060634,000149: 14,3660 12715 31470 2DEC +.6813721061 B-1 # STAR 11 Y
060635,000150: 14,3662 13401 31222 2DEC +.7189685267 B-1 # STAR 11 Z
060636,000151:
060637,000152: 14,3664 03157 27504 2DEC +.2011399589 B-1 # STAR 10 X
060638,000153: 14,3666 17402 12312 2DEC +.9690337941 B-1 # STAR 10 Y
060639,000154: 14,3670 75552 63657 2DEC -.1432348512 B-1 # STAR 10 Z
060640,000155:
060641,000156: 14,3672 05471 06122 2DEC +.3507315038 B-1 # STAR 9 X
060642,000157: 14,3674 16220 16362 2DEC +.8926333307 B-1 # STAR 9 Y
060643,000158: 14,3676 04417 32762 2DEC +.2831839492 B-1 # STAR 9 Z
060644,000159:
060645,000160: 14,3700 06443 12622 2DEC +.4105636020 B-1 # STAR 8 X
060646,000161: 14,3702 07766 10237 2DEC +.4988110001 B-1 # STAR 8 Y
060647,000162: 14,3704 14154 36154 2DEC +.7632988371 B-1 # STAR 8 Z
060648,000163:
060649,000164: 14,3706 13200 31653 2DEC +.7032235469 B-1 # STAR 7 X
060650,000165: 14,3710 13244 21036 2DEC +.7075846047 B-1 # STAR 7 Y
060651,000166: 14,3712 01067 23106 2DEC +.0692868685 B-1 # STAR 7 Z
060652,000167:
060653,000168: 14,3714 10560 27227 2DEC +.5450107404 B-1 # STAR 6 X
060654,000169: 14,3716 10402 00275 2DEC +.5314955466 B-1 # STAR 6 Y
060655,000170: 14,3720 65477 77044 2DEC -.6484410356 B-1 # STAR 6 Z
060656,000171:
060657,000172: 14,3722 00153 11212 2DEC +.0130968840 B-1 # STAR 5 X
|
|
Page 1393 |
060659,000174: 14,3724 00077 36275 2DEC +.0078062795 B-1 # STAR 5 Y
060660,000175: 14,3726 17777 01417 2DEC +.9998837600 B-1 # STAR 5 Z
060661,000176:
060662,000177: 14,3730 07674 21771 2DEC +.4917678276 B-1 # STAR 4 X
060663,000178: 14,3732 03416 07626 2DEC +.2204887125 B-1 # STAR 4 Y
060664,000179: 14,3734 62413 57536 2DEC -.8423473935 B-1 # STAR 4 Z
060665,000180:
060666,000181: 14,3736 07510 06414 2DEC +.4775639450 B-1 # STAR 3 X
060667,000182: 14,3740 01673 06065 2DEC +.1166004340 B-1 # STAR 3 Y
060668,000183: 14,3742 15735 31531 2DEC +.8708254803 B-1 # STAR 3 Z
060669,000184:
060670,000185: 14,3744 16745 17555 2DEC +.9342640400 B-1 # STAR 2 X
060671,000186: 14,3746 02615 13716 2DEC +.1735073142 B-1 # STAR 2 Y
060672,000187: 14,3750 73010 40311 2DEC -.3115219339 B-1 # STAR 2 Z
060673,000188:
060674,000189: 14,3752 15776 34660 2DEC +.8748658918 B-1 # STAR 1 X
060675,000190: 14,3754 00325 26625 2DEC +.0260879174 B-1 # STAR 1 Y
060676,000191: 14,3756 07572 05105 2DEC +.4836621670 B-1 # STAR 1 Z
060677,000192:
060678,000193: 14,3760 15472 CATLOG DEC 6970 B-14
060679,000194:
060680,000195:
060681,000196:
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc