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