Source Code
060093,000001: # Copyright: Public domain.
060094,000002: # Filename: STAR_TABLES.agc
060095,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
060096,000004: # It is part of the source code for the Command Module's (CM)
060097,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
060098,000006: # Assembler: yaYUL
060099,000007: # Contact: Ron Burkey <info@sandroid.org>.
060100,000008: # Website: www.ibiblio.org/apollo.
060101,000009: # Pages: 1389-1393
060102,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
060103,000011: # from the Colossus249/ file of the same
060104,000012: # name, using Comanche055 page images.
060105,000013:
060106,000014: # This source code has been transcribed or otherwise adapted from digitized
060107,000015: # images of a hardcopy from the MIT Museum. The digitization was performed
060108,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
060109,000017: # thanks to both. The images (with suitable reduction in storage size and
060110,000018: # consequent reduction in image quality as well) are available online at
060111,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are
060112,000020: # illegible, contact me at info@sandroid.org about getting access to the
060113,000021: # (much) higher-quality images which Paul actually created.
060114,000022:
060115,000023: # Notations on the hardcopy document read, in part:
060116,000024:
060117,000025: # Assemble revision 055 of AGC program Comanche by NASA
060118,000026: # 2021113-051. 10:28 APR. 1, 1969
060119,000027:
060120,000028: # This AGC program shall also be referred to as
060121,000029: # Colossus 2A
060122,000030:
060123,000031: # Page 1389
060124,000032: 32,3770 BANK 32
060125,000033: 14,2000 SETLOC STARTAB
060126,000034: 14,2000 BANK
060127,000035:
060128,000036: 14,3422 COUNT 14/STARS
060129,000037:
060130,000038: 14,3422 15262 21773 2DEC +.8342971408 B-1 # STAR 37 X
060131,000039: 14,3424 74130 42420 2DEC -.2392481515 B-1 # STAR 37 Y
060132,000040: 14,3426 70033 41533 2DEC -.4966976975 B-1 # STAR 37 Z
060133,000041:
060134,000042: 14,3430 15014 04650 2DEC +.8139832631 B-1 # STAR 36 X
060135,000043: 14,3432 67067 60150 2DEC -.5557243189 B-1 # STAR 36 Y
060136,000044: 14,3434 02551 15723 2DEC +.1691204557 B-1 # STAR 36 Z
060137,000045:
060138,000046: 14,3436 07210 01664 2DEC +.4541086270 B-1 # STAR 35 X
060139,000047: 14,3440 67276 62232 2DEC -.5392368197 B-1 # STAR 35 Y
060140,000048: 14,3442 13262 00563 2DEC +.7092312789 B-1 # STAR 35 Z
060141,000049:
060142,000050: 14,3444 05076 35561 2DEC +.3201817378 B-1 # STAR 34 X
060143,000051: 14,3446 70716 40260 2DEC -.4436021946 B-1 # STAR 34 Y
060144,000052: 14,3450 62466 64656 2DEC -.8370786986 B-1 # STAR 34 Z
060145,000053:
060146,000054: 14,3452 10652 04246 2DEC +.5520184464 B-1 # STAR 33 X
060147,000055: 14,3454 63235 44200 2DEC -.7933187400 B-1 # STAR 33 Y
060148,000056: 14,3456 73710 66230 2DEC -.2567508745 B-1 # STAR 33 Z
060149,000057:
060150,000058: 14,3460 07204 33712 2DEC +.4537196908 B-1 # STAR 32 X
060151,000059: 14,3462 61747 72343 2DEC -.8779508801 B-1 # STAR 32 Y
060152,000060: 14,3464 02343 21362 2DEC +.1527766153 B-1 # STAR 32 Z
060153,000061:
060154,000062: 14,3466 03237 13301 2DEC +.2069525789 B-1 # STAR 31 X
060155,000063: 14,3470 62030 65332 2DEC -.8719885748 B-1 # STAR 31 Y
060156,000064: 14,3472 70715 71267 2DEC -.4436288486 B-1 # STAR 31 Z
060157,000065:
060158,000066: 14,3474 01745 06477 2DEC +.1217293692 B-1 # STAR 30 X
060159,000067: # Page 1390
060160,000068: 14,3476 63531 75365 2DEC -.7702732847 B-1 # STAR 30 Y
060161,000069: 14,3500 12010 03005 2DEC +.6259880410 B-1 # STAR 30 Z
060162,000070:
060163,000071: 14,3502 76146 77014 2DEC -.1124304773 B-1 # STAR 29 X
060164,000072: 14,3504 60371 75073 2DEC -.9694934200 B-1 # STAR 29 Y
060165,000073: 14,3506 03370 12003 2DEC +.2178116072 B-1 # STAR 29 Z
060166,000074:
060167,000075: 14,3510 76125 40037 2DEC -.1146237858 B-1 # STAR 28 X
060168,000076: 14,3512 72436 77062 2DEC -.3399692557 B-1 # STAR 28 Y
060169,000077: 14,3514 61041 54164 2DEC -.9334250333 B-1 # STAR 28 Z
060170,000078:
060171,000079: 14,3516 72277 51044 2DEC -.3516499609 B-1 # STAR 27 X
060172,000080: 14,3520 62641 45471 2DEC -.8240752703 B-1 # STAR 27 Y
060173,000081: 14,3522 70711 70546 2DEC -.4441196390 B-1 # STAR 27 Z
060174,000082:
060175,000083: 14,3524 67364 47073 2DEC -.5326876930 B-1 # STAR 26 X
060176,000084: 14,3526 64425 77777 2DEC -.7160644554 B-1 # STAR 26 Y
060177,000085: 14,3530 07157 16322 2DEC +.4511047742 B-1 # STAR 26 Z
060178,000086:
060179,000087: 14,3532 63327 64446 2DEC -.7861763936 B-1 # STAR 25 X
060180,000088: 14,3534 67515 55266 2DEC -.5217996305 B-1 # STAR 25 Y
060181,000089: 14,3536 05230 25476 2DEC +.3311371675 B-1 # STAR 25 Z
060182,000090:
060183,000091: 14,3540 64754 72604 2DEC -.6898393233 B-1 # STAR 24 X
060184,000092: 14,3542 71235 72553 2DEC -.4182330640 B-1 # STAR 24 Y
060185,000093: 14,3544 66427 42171 2DEC -.5909338474 B-1 # STAR 24 Z
060186,000094:
060187,000095: 14,3546 66546 70765 2DEC -.5812035376 B-1 # STAR 23 X
060188,000096: 14,3550 73260 71643 2DEC -.2909171294 B-1 # STAR 23 Y
060189,000097: 14,3552 14121 30153 2DEC +.7599800468 B-1 # STAR 23 Z
060190,000098:
060191,000099: 14,3554 61247 73310 2DEC -.9170097662 B-1 # STAR 22 X
060192,000100: 14,3556 72313 41247 2DEC -.3502146628 B-1 # STAR 22 Y
060193,000101: # Page 1391
060194,000102: 14,3560 74744 44566 2DEC -.1908999176 B-1 # STAR 22 Z
060195,000103:
060196,000104: 14,3562 70606 54564 2DEC -.4523440203 B-1 # STAR 21 X
060197,000105: 14,3564 77153 61536 2DEC -.0493710140 B-1 # STAR 21 Y
060198,000106: 14,3566 61601 47046 2DEC -.8904759346 B-1 # STAR 21 Z
060199,000107:
060200,000108: 14,3570 60604 76224 2DEC -.9525211695 B-1 # STAR 20 X
060201,000109: 14,3572 77031 73354 2DEC -.0593434796 B-1 # STAR 20 Y
060202,000110: 14,3574 73161 63065 2DEC -.2986331746 B-1 # STAR 20 Z
060203,000111:
060204,000112: 14,3576 60431 51702 2DEC -.9656605484 B-1 # STAR 19 X
060205,000113: 14,3600 00656 33013 2DEC +.0525933156 B-1 # STAR 19 Y
060206,000114: 14,3602 04044 10627 2DEC +.2544280809 B-1 # STAR 19 Z
060207,000115:
060208,000116: 14,3604 62164 45040 2DEC -.8608205219 B-1 # STAR 18 X
060209,000117: 14,3606 07325 37443 2DEC +.4636213989 B-1 # STAR 18 Y
060210,000118: 14,3610 03267 06626 2DEC +.2098647835 B-1 # STAR 18 Z
060211,000119:
060212,000120: 14,3612 63471 50471 2DEC -.7742591356 B-1 # STAR 17 X
060213,000121: 14,3614 11660 04151 2DEC +.6152504197 B-1 # STAR 17 Y
060214,000122: 14,3616 75501 46664 2DEC -.1482892839 B-1 # STAR 17 Z
060215,000123:
060216,000124: 14,3620 70430 46540 2DEC -.4657947941 B-1 # STAR 16 X
060217,000125: 14,3622 07507 20100 2DEC +.4774785033 B-1 # STAR 16 Y
060218,000126: 14,3624 13727 05455 2DEC +.7450164351 B-1 # STAR 16 Z
060219,000127:
060220,000128: 14,3626 72160 64202 2DEC -.3612508532 B-1 # STAR 15 X
060221,000129: 14,3630 11144 05203 2DEC +.5747270840 B-1 # STAR 15 Y
060222,000130: 14,3632 64200 65331 2DEC -.7342932655 B-1 # STAR 15 Z
060223,000131:
060224,000132: 14,3634 71322 41512 2DEC -.4118589524 B-1 # STAR 14 X
060225,000133: 14,3636 16402 16205 2DEC +.9065485360 B-1 # STAR 14 Y
060226,000134: 14,3640 01365 04034 2DEC +.0924226975 B-1 # STAR 14 Z
060227,000135:
060228,000136: # Page 1392
060229,000137: 14,3642 75054 56052 2DEC -.1820751783 B-1 # STAR 13 X
060230,000138: 14,3644 17030 17635 2DEC +.9404899869 B-1 # STAR 13 Y
060231,000139: 14,3646 73321 57603 2DEC -.2869271926 B-1 # STAR 13 Z
060232,000140:
060233,000141: 14,3650 77010 47623 2DEC -.0614937230 B-1 # STAR 12 X
060234,000142: 14,3652 11515 01640 2DEC +.6031563286 B-1 # STAR 12 Y
060235,000143: 14,3654 63215 52176 2DEC -.7952489957 B-1 # STAR 12 Z
060236,000144:
060237,000145: 14,3656 02143 26755 2DEC +.1371725575 B-1 # STAR 11 X
060238,000146: 14,3660 12715 31470 2DEC +.6813721061 B-1 # STAR 11 Y
060239,000147: 14,3662 13401 31222 2DEC +.7189685267 B-1 # STAR 11 Z
060240,000148:
060241,000149: 14,3664 03157 27504 2DEC +.2011399589 B-1 # STAR 10 X
060242,000150: 14,3666 17402 12312 2DEC +.9690337941 B-1 # STAR 10 Y
060243,000151: 14,3670 75552 63657 2DEC -.1432348512 B-1 # STAR 10 Z
060244,000152:
060245,000153: 14,3672 05471 06122 2DEC +.3507315038 B-1 # STAR 9 X
060246,000154: 14,3674 16220 16362 2DEC +.8926333307 B-1 # STAR 9 Y
060247,000155: 14,3676 04417 32762 2DEC +.2831839492 B-1 # STAR 9 Z
060248,000156:
060249,000157: 14,3700 06443 12622 2DEC +.4105636020 B-1 # STAR 8 X
060250,000158: 14,3702 07766 10237 2DEC +.4988110001 B-1 # STAR 8 Y
060251,000159: 14,3704 14154 36154 2DEC +.7632988371 B-1 # STAR 8 Z
060252,000160:
060253,000161: 14,3706 13200 31653 2DEC +.7032235469 B-1 # STAR 7 X
060254,000162: 14,3710 13244 21036 2DEC +.7075846047 B-1 # STAR 7 Y
060255,000163: 14,3712 01067 23106 2DEC +.0692868685 B-1 # STAR 7 Z
060256,000164:
060257,000165: 14,3714 10560 27227 2DEC +.5450107404 B-1 # STAR 6 X
060258,000166: 14,3716 10402 00275 2DEC +.5314955466 B-1 # STAR 6 Y
060259,000167: 14,3720 65477 77044 2DEC -.6484410356 B-1 # STAR 6 Z
060260,000168:
060261,000169: 14,3722 00153 11212 2DEC +.0130968840 B-1 # STAR 5 X
060262,000170: # Page 1393
060263,000171: 14,3724 00077 36275 2DEC +.0078062795 B-1 # STAR 5 Y
060264,000172: 14,3726 17777 01417 2DEC +.9998837600 B-1 # STAR 5 Z
060265,000173:
060266,000174: 14,3730 07674 21771 2DEC +.4917678276 B-1 # STAR 4 X
060267,000175: 14,3732 03416 07626 2DEC +.2204887125 B-1 # STAR 4 Y
060268,000176: 14,3734 62413 57536 2DEC -.8423473935 B-1 # STAR 4 Z
060269,000177:
060270,000178: 14,3736 07510 06414 2DEC +.4775639450 B-1 # STAR 3 X
060271,000179: 14,3740 01673 06065 2DEC +.1166004340 B-1 # STAR 3 Y
060272,000180: 14,3742 15735 31531 2DEC +.8708254803 B-1 # STAR 3 Z
060273,000181:
060274,000182: 14,3744 16745 17555 2DEC +.9342640400 B-1 # STAR 2 X
060275,000183: 14,3746 02615 13716 2DEC +.1735073142 B-1 # STAR 2 Y
060276,000184: 14,3750 73010 40311 2DEC -.3115219339 B-1 # STAR 2 Z
060277,000185:
060278,000186: 14,3752 15776 34660 2DEC +.8748658918 B-1 # STAR 1 X
060279,000187: 14,3754 00325 26625 2DEC +.0260879174 B-1 # STAR 1 Y
060280,000188: 14,3756 07572 05105 2DEC +.4836621670 B-1 # STAR 1 Z
060281,000189:
060282,000190: 14,3760 15472 CATLOG DEC 6970 B-14
060283,000191:
060284,000192:
060285,000193:
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc