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