Source Code
058666,000001: # Copyright: Public domain.
058667,000002: # Filename: STAR_TABLES.agc
058668,000003: # Purpose: Part of the source code for Colossus, build 249.
058669,000004: # It is part of the source code for the Command Module's (CM)
058670,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
058671,000006: # Assembler: yaYUL
058672,000007: # Reference: Starts on p. 1379 of 1701.pdf.
058673,000008: # Contact: Ron Burkey <info@sandroid.org>.
058674,000009: # Website: www.ibiblio.org/apollo.
058675,000010: # Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file.
058676,000011:
058677,000012: # The contents of the "Colossus249" files, in general, are transcribed
058678,000013: # from a scanned document obtained from MIT's website,
058679,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
058680,000015: # document read, in part:
058681,000016:
058682,000017: # Assemble revision 249 of AGC program Colossus by NASA
058683,000018: # 2021111-041. October 28, 1968.
058684,000019:
058685,000020: # This AGC program shall also be referred to as
058686,000021: # Colossus 1A
058687,000022:
058688,000023: # Prepared by
058689,000024: # Massachusetts Institute of Technology
058690,000025: # 75 Cambridge Parkway
058691,000026: # Cambridge, Massachusetts
058692,000027: # under NASA contract NAS 9-4065.
058693,000028:
058694,000029: # Refer directly to the online document mentioned above for further information.
058695,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
058696,000031:
058697,000032: # In some cases, where the source code for Luminary 131 overlaps that of
058698,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
058699,000034: # source file, and then is proofed to incorporate any changes.
058700,000035:
058701,000036: # Page 1379
058702,000037: 32,3755 BANK 32
058703,000038: 14,2000 SETLOC STARTAB
058704,000039: 14,2000 BANK
058705,000040:
058706,000041: 14,3405 COUNT 14/STARS
058707,000042:
058708,000043: 14,3405 15261 27231 2DEC +.8341953207 B-1 # STAR 37 X
058709,000044: 14,3407 74126 61161 2DEC -.2394362567 B-1 # STAR 37 Y
058710,000045: 14,3411 70032 54470 2DEC -.4967780649 B-1 # STAR 37 Z
058711,000046:
058712,000047: 14,3413 15013 10432 2DEC +.8138753897 B-1 # STAR 36 X
058713,000048: 14,3415 67066 40370 2DEC -.5559063490 B-1 # STAR 36 Y
058714,000049: 14,3417 02550 31133 2DEC +.1690413589 B-1 # STAR 36 Z
058715,000050:
058716,000051: 14,3421 07207 24243 2DEC +.4540570017 B-1 # STAR 35 X
058717,000052: 14,3423 67275 67544 2DEC -.5393383149 B-1 # STAR 35 Y
058718,000053: 14,3425 13261 25121 2DEC +.7091871552 B-1 # STAR 35 Z
058719,000054:
058720,000055: 14,3427 05075 16350 2DEC +.3200014224 B-1 # STAR 34 X
058721,000056: 14,3431 70715 55404 2DEC -.4436740480 B-1 # STAR 34 Y
058722,000057: 14,3433 62466 54577 2DEC -.8371095679 B-1 # STAR 34 Z
058723,000058:
058724,000059: 14,3435 10650 17202 2DEC +.5518160037 B-1 # STAR 33 X
058725,000060: 14,3437 63234 43704 2DEC -.7934422090 B-1 # STAR 33 Y
058726,000061: 14,3441 73710 50170 2DEC -.2568045150 B-1 # STAR 33 Z
058727,000062:
058728,000063: 14,3443 07203 13612 2DEC +.4535361097 B-1 # STAR 32 X
058729,000064: 14,3445 61746 77370 2DEC -.8780537171 B-1 # STAR 32 Y
058730,000065: 14,3447 02343 05340 2DEC +.1527307006 B-1 # STAR 32 Z
058731,000066:
058732,000067: 14,3451 03235 14762 2DEC +.2067145272 B-1 # STAR 31 X
058733,000068: 14,3453 62030 51212 2DEC -.8720349419 B-1 # STAR 31 Y
058734,000069: 14,3455 70715 64117 2DEC -.4436486945 B-1 # STAR 31 Z
058735,000070:
058736,000071: 14,3457 01744 11157 2DEC +.1216171923 B-1 # STAR 30 X
058737,000072: # Page 1380
058738,000073: 14,3461 63531 66055 2DEC -.7703014754 B-1 # STAR 30 Y
058739,000074: 14,3463 12007 37503 2DEC +.6259751556 B-1 # STAR 30 Z
058740,000075:
058741,000076: 14,3465 76145 53477 2DEC -.1126265542 B-1 # STAR 29 X
058742,000077: 14,3467 60372 43624 2DEC -.9694679589 B-1 # STAR 29 Y
058743,000078: 14,3471 03370 15121 2DEC +.2178236347 B-1 # STAR 29 Z
058744,000079:
058745,000080: 14,3473 76123 64245 2DEC -.1147906312 B-1 # STAR 28 X
058746,000081: 14,3475 72437 45623 2DEC -.3399437395 B-1 # STAR 28 Y
058747,000082: 14,3477 61041 57124 2DEC -.9334138229 B-1 # STAR 28 Z
058748,000083:
058749,000084: 14,3501 72275 55365 2DEC -.3518772846 B-1 # STAR 27 X
058750,000085: 14,3503 62641 72150 2DEC -.8239967165 B-1 # STAR 27 Y
058751,000086: 14,3505 70712 41542 2DEC -.4440853383 B-1 # STAR 27 Z
058752,000087:
058753,000088: 14,3507 67363 50441 2DEC -.5328042377 B-1 # STAR 26 X
058754,000089: 14,3511 64426 77263 2DEC -.7159448596 B-1 # STAR 26 Y
058755,000090: 14,3513 07157 34056 2DEC +.4511569595 B-1 # STAR 26 Z
058756,000091:
058757,000092: 14,3515 63326 77723 2DEC -.7862552143 B-1 # STAR 25 X
058758,000093: 14,3517 67516 72566 2DEC -.5216265404 B-1 # STAR 25 Y
058759,000094: 14,3521 05231 14031 2DEC +.3312227199 B-1 # STAR 25 Z
058760,000095:
058761,000096: 14,3523 64753 63156 2DEC -.6899901699 B-1 # STAR 24 X
058762,000097: 14,3525 71237 42272 2DEC -.4180817950 B-1 # STAR 24 Y
058763,000098: 14,3527 66427 64260 2DEC -.5908647707 B-1 # STAR 24 Z
058764,000099:
058765,000100: 14,3531 66546 73302 2DEC -.5811943804 B-1 # STAR 23 X
058766,000101: 14,3533 73261 73575 2DEC -.2907877154 B-1 # STAR 23 Y
058767,000102: 14,3535 14122 07016 2DEC +.7600365758 B-1 # STAR 23 Z
058768,000103:
058769,000104: 14,3537 61247 42015 2DEC -.9171065276 B-1 # STAR 22 X
058770,000105: 14,3541 72314 67004 2DEC -.3500098785 B-1 # STAR 22 Y
058771,000106: # Page 1381
058772,000107: 14,3543 74744 74104 2DEC -.1908106439 B-1 # STAR 22 Z
058773,000108:
058774,000109: 14,3545 70605 63103 2DEC -.4524416631 B-1 # STAR 21 X
058775,000110: 14,3547 77154 54113 2DEC -.0492700670 B-1 # STAR 21 Y
058776,000111: 14,3551 61601 62472 2DEC -.8904319167 B-1 # STAR 21 Z
058777,000112:
058778,000113: 14,3553 60604 63166 2DEC -.9525633510 B-1 # STAR 20 X
058779,000114: 14,3555 77033 63044 2DEC -.0591313500 B-1 # STAR 20 Y
058780,000115: 14,3557 73162 53261 2DEC -.2985406935 B-1 # STAR 20 Z
058781,000116:
058782,000117: 14,3561 60431 63350 2DEC -.9656240240 B-1 # STAR 19 X
058783,000118: 14,3563 00660 22763 2DEC +.0528067543 B-1 # STAR 19 Y
058784,000119: 14,3565 04045 01424 2DEC +.2545224762 B-1 # STAR 19 Z
058785,000120:
058786,000121: 14,3567 62165 45335 2DEC -.8606970465 B-1 # STAR 18 X
058787,000122: 14,3571 07327 21564 2DEC +.4638127405 B-1 # STAR 18 Y
058788,000123: 14,3573 03267 34557 2DEC +.2099484122 B-1 # STAR 18 Z
058789,000124:
058790,000125: 14,3575 63472 50705 2DEC -.7741360248 B-1 # STAR 17 X
058791,000126: 14,3577 11661 21433 2DEC +.6154234025 B-1 # STAR 17 Y
058792,000127: 14,3601 75501 72421 2DEC -.1482142053 B-1 # STAR 17 Z
058793,000128:
058794,000129: 14,3603 70431 65316 2DEC -.4656165921 B-1 # STAR 16 X
058795,000130: 14,3605 07510 12666 2DEC +.4775804724 B-1 # STAR 16 Y
058796,000131: 14,3607 13727 21520 2DEC +.7450624681 B-1 # STAR 16 Z
058797,000132:
058798,000133: 14,3611 72161 43161 2DEC -.3611937602 B-1 # STAR 15 X
058799,000134: 14,3613 11144 32323 2DEC +.5748077840 B-1 # STAR 15 Y
058800,000135: 14,3615 64200 76476 2DEC -.7342581827 B-1 # STAR 15 Z
058801,000136:
058802,000137: 14,3617 71323 70264 2DEC -.4116502629 B-1 # STAR 14 X
058803,000138: 14,3621 16403 05717 2DEC +.9066387314 B-1 # STAR 14 Y
058804,000139: 14,3623 01365 17662 2DEC +.0924676785 B-1 # STAR 14 Z
058805,000140:
058806,000141: # Page 1382
058807,000142: 14,3625 75055 75101 2DEC -.1818957154 B-1 # STAR 13 X
058808,000143: 14,3627 17030 32613 2DEC +.9405318128 B-1 # STAR 13 Y
058809,000144: 14,3631 73321 65667 2DEC -.2869039173 B-1 # STAR 13 Z
058810,000145:
058811,000146: 14,3633 77010 66714 2DEC -.0614360769 B-1 # STAR 12 X
058812,000147: 14,3635 11515 05314 2DEC +.6031700106 B-1 # STAR 12 Y
058813,000148: 14,3637 63215 53630 2DEC -.7952430739 B-1 # STAR 12 Z
058814,000149:
058815,000150: 14,3641 02145 21163 2DEC +.1373948084 B-1 # STAR 11 X
058816,000151: 14,3643 12715 21123 2DEC +.6813398852 B-1 # STAR 11 Y
058817,000152: 14,3645 13401 26125 2DEC +.7189566241 B-1 # STAR 11 Z
058818,000153:
058819,000154: 14,3647 03161 14610 2DEC +.2013426456 B-1 # STAR 10 X
058820,000155: 14,3651 17401 36465 2DEC +.9689888101 B-1 # STAR 10 Y
058821,000156: 14,3653 75552 56556 2DEC -.1432544058 B-1 # STAR 10 Z
058822,000157:
058823,000158: 14,3655 05473 01565 2DEC +.3509587451 B-1 # STAR 9 X
058824,000159: 14,3657 16217 31643 2DEC +.8925545449 B-1 # STAR 9 Y
058825,000160: 14,3661 04417 22211 2DEC +.2831507435 B-1 # STAR 9 Z
058826,000161:
058827,000162: 14,3663 06444 33354 2DEC +.4107492871 B-1 # STAR 8 X
058828,000163: 14,3665 07765 20153 2DEC +.4987190610 B-1 # STAR 8 Y
058829,000164: 14,3667 14154 23613 2DEC +.7632590132 B-1 # STAR 8 Z
058830,000165:
058831,000166: 14,3671 13202 05024 2DEC +.7033883645 B-1 # STAR 7 X
058832,000167: 14,3673 13243 07665 2DEC +.7074274193 B-1 # STAR 7 Y
058833,000168: 14,3675 01067 01242 2DEC +.0692188921 B-1 # STAR 7 Z
058834,000169:
058835,000170: 14,3677 10561 05666 2DEC +.5450662811 B-1 # STAR 6 X
058836,000171: 14,3701 10401 00357 2DEC +.5313738486 B-1 # STAR 6 Y
058837,000172: 14,3703 65477 61124 2DEC -.6484940879 B-1 # STAR 6 Z
058838,000173:
058839,000174: 14,3705 00154 03111 2DEC +.0131955837 B-1 # STAR 5 X
058840,000175: # Page 1383
058841,000176: 14,3707 00077 35676 2DEC +.0078043793 B-1 # STAR 5 Y
058842,000177: 14,3711 17777 01142 2DEC +.9998824772 B-1 # STAR 5 Z
058843,000178:
058844,000179: 14,3713 07674 11416 2DEC +.4917355618 B-1 # STAR 4 X
058845,000180: 14,3715 03415 12707 2DEC +.2203784481 B-1 # STAR 4 Y
058846,000181: 14,3717 62413 43135 2DEC -.8423950835 B-1 # STAR 4 Z
058847,000182:
058848,000183: 14,3721 07511 03423 2DEC +.4776746280 B-1 # STAR 3 X
058849,000184: 14,3723 01672 12054 2DEC +.1164935557 B-1 # STAR 3 Y
058850,000185: 14,3725 15735 15405 2DEC +.8707790771 B-1 # STAR 3 Z
058851,000186:
058852,000187: 14,3727 16745 21763 2DEC +.9342726691 B-1 # STAR 2 X
058853,000188: 14,3731 02613 24675 2DEC +.1732973829 B-1 # STAR 2 Y
058854,000189: 14,3733 73007 50430 2DEC -.3116128956 B-1 # STAR 2 Z
058855,000190:
058856,000191: 14,3735 15777 12457 2DEC +.8749183324 B-1 # STAR 1 X
058857,000192: 14,3737 00324 03265 2DEC +.0258916990 B-1 # STAR 1 Y
058858,000193: 14,3741 07571 17020 2DEC +.4835778442 B-1 # STAR 1 Z
058859,000194:
058860,000195: 14,3743 15325 CATLOG DEC 6869 B-14
058861,000196:
058862,000197:
058863,000198:
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc