GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
057516,000002: ## Copyright: Public domain.
057517,000003: ## Filename: STAR_TABLES.agc
057518,000004: ## Purpose: Part of the source code for Colossus build 237.
057519,000005: ## This is for the Command Module's (CM) Apollo Guidance
057520,000006: ## Computer (AGC), for Apollo 8.
057521,000007: ## Assembler: yaYUL
057522,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
057523,000009: ## Website: www.ibiblio.org/apollo/index.html
057524,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
057525,000011: ## Mod history: 2011-04-17 JL Adapted from corresponding Colossus 249 file.
057526,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
057527,000013: ## and fixed errors found.
057528,000014:
|
|
Page 1353 |
057530,000016: 32,3776 BANK 32
057531,000017: 14,2000 SETLOC STARTAB
057532,000018: 14,2000 BANK
057533,000019:
057534,000020: 14,3412 COUNT 14/STARS
057535,000021:
057536,000022: 14,3412 15261 27231 2DEC +.8341953207 B-1 # STAR 37 X
057537,000023: 14,3414 74126 61161 2DEC -.2394362567 B-1 # STAR 37 Y
057538,000024: 14,3416 70032 54470 2DEC -.4967780649 B-1 # STAR 37 Z
057539,000025: 14,3420 15013 10432 2DEC +.8138753897 B-1 # STAR 36 X
057540,000026: 14,3422 67066 40370 2DEC -.5559063490 B-1 # STAR 36 Y
057541,000027: 14,3424 02550 31133 2DEC +.1690413589 B-1 # STAR 36 Z
057542,000028: 14,3426 07207 24243 2DEC +.4540570017 B-1 # STAR 35 X
057543,000029: 14,3430 67275 67544 2DEC -.5393383149 B-1 # STAR 35 Y
057544,000030: 14,3432 13261 25121 2DEC +.7091871552 B-1 # STAR 35 Z
057545,000031: 14,3434 05075 16350 2DEC +.3200014224 B-1 # STAR 34 X
057546,000032: 14,3436 70715 55404 2DEC -.4436740480 B-1 # STAR 34 Y
057547,000033: 14,3440 62466 54577 2DEC -.8371095679 B-1 # STAR 34 Z
057548,000034: 14,3442 10650 17202 2DEC +.5518160037 B-1 # STAR 33 X
057549,000035: 14,3444 63234 43704 2DEC -.7934422090 B-1 # STAR 33 Y
057550,000036: 14,3446 73710 50170 2DEC -.2568045150 B-1 # STAR 33 Z
057551,000037: 14,3450 07203 13612 2DEC +.4535361097 B-1 # STAR 32 X
057552,000038: 14,3452 61746 77370 2DEC -.8780537171 B-1 # STAR 32 Y
057553,000039: 14,3454 02343 05340 2DEC +.1527307006 B-1 # STAR 32 Z
057554,000040: 14,3456 03235 14762 2DEC +.2067145272 B-1 # STAR 31 X
057555,000041: 14,3460 62030 51212 2DEC -.8720349419 B-1 # STAR 31 Y
057556,000042: 14,3462 70715 64117 2DEC -.4436486945 B-1 # STAR 31 Z
057557,000043: 14,3464 01744 11157 2DEC +.1216171923 B-1 # STAR 30 X
|
|
Page 1354 |
057559,000045: 14,3466 63531 66055 2DEC -.7703014754 B-1 # STAR 30 Y
057560,000046: 14,3470 12007 37503 2DEC +.6259751556 B-1 # STAR 30 Z
057561,000047: 14,3472 76145 53477 2DEC -.1126265542 B-1 # STAR 29 X
057562,000048: 14,3474 60372 43624 2DEC -.9694679589 B-1 # STAR 29 Y
057563,000049: 14,3476 03370 15121 2DEC +.2178236347 B-1 # STAR 29 Z
057564,000050: 14,3500 76123 64245 2DEC -.1147906312 B-1 # STAR 28 X
057565,000051: 14,3502 72437 45623 2DEC -.3399437395 B-1 # STAR 28 Y
057566,000052: 14,3504 61041 57124 2DEC -.9334138229 B-1 # STAR 28 Z
057567,000053: 14,3506 72275 55365 2DEC -.3518772846 B-1 # STAR 27 X
057568,000054: 14,3510 62641 72150 2DEC -.8239967165 B-1 # STAR 27 Y
057569,000055: 14,3512 70712 41542 2DEC -.4440853383 B-1 # STAR 27 Z
057570,000056: 14,3514 67363 50441 2DEC -.5328042377 B-1 # STAR 26 X
057571,000057: 14,3516 64426 77263 2DEC -.7159448596 B-1 # STAR 26 Y
057572,000058: 14,3520 07157 34056 2DEC +.4511569595 B-1 # STAR 26 Z
057573,000059: 14,3522 63326 77723 2DEC -.7862552143 B-1 # STAR 25 X
057574,000060: 14,3524 67516 72566 2DEC -.5216265404 B-1 # STAR 25 Y
057575,000061: 14,3526 05231 14031 2DEC +.3312227199 B-1 # STAR 25 Z
057576,000062: 14,3530 64753 63156 2DEC -.6899901699 B-1 # STAR 24 X
057577,000063: 14,3532 71237 42272 2DEC -.4180817950 B-1 # STAR 24 Y
057578,000064: 14,3534 66427 64260 2DEC -.5908647707 B-1 # STAR 24 Z
057579,000065: 14,3536 66546 73302 2DEC -.5811943804 B-1 # STAR 23 X
057580,000066: 14,3540 73261 73575 2DEC -.2907877154 B-1 # STAR 23 Y
057581,000067: 14,3542 14122 07016 2DEC +.7600365758 B-1 # STAR 23 Z
057582,000068: 14,3544 61247 42015 2DEC -.9171065276 B-1 # STAR 22 X
057583,000069: 14,3546 72314 67004 2DEC -.3500098785 B-1 # STAR 22 Y
|
|
Page 1355 |
057585,000071: 14,3550 74744 74104 2DEC -.1908106439 B-1 # STAR 22 Z
057586,000072: 14,3552 70605 63103 2DEC -.4524416631 B-1 # STAR 21 X
057587,000073: 14,3554 77154 54113 2DEC -.0492700670 B-1 # STAR 21 Y
057588,000074: 14,3556 61601 62472 2DEC -.8904319167 B-1 # STAR 21 Z
057589,000075: 14,3560 60604 63166 2DEC -.9525633510 B-1 # STAR 20 X
057590,000076: 14,3562 77033 63044 2DEC -.0591313500 B-1 # STAR 20 Y
057591,000077: 14,3564 73162 53261 2DEC -.2985406935 B-1 # STAR 20 Z
057592,000078: 14,3566 60431 63350 2DEC -.9656240240 B-1 # STAR 19 X
057593,000079: 14,3570 00660 22763 2DEC +.0528067543 B-1 # STAR 19 Y
057594,000080: 14,3572 04045 01424 2DEC +.2545224762 B-1 # STAR 19 Z
057595,000081: 14,3574 62165 45335 2DEC -.8606970465 B-1 # STAR 18 X
057596,000082: 14,3576 07327 21564 2DEC +.4638127405 B-1 # STAR 18 Y
057597,000083: 14,3600 03267 34557 2DEC +.2099484122 B-1 # STAR 18 Z
057598,000084: 14,3602 63472 50705 2DEC -.7741360248 B-1 # STAR 17 X
057599,000085: 14,3604 11661 21433 2DEC +.6154234025 B-1 # STAR 17 Y
057600,000086: 14,3606 75501 72421 2DEC -.1482142053 B-1 # STAR 17 Z
057601,000087: 14,3610 70431 65316 2DEC -.4656165921 B-1 # STAR 16 X
057602,000088: 14,3612 07510 12666 2DEC +.4775804724 B-1 # STAR 16 Y
057603,000089: 14,3614 13727 21520 2DEC +.7450624681 B-1 # STAR 16 Z
057604,000090: 14,3616 72161 43161 2DEC -.3611937602 B-1 # STAR 15 X
057605,000091: 14,3620 11144 32323 2DEC +.5748077840 B-1 # STAR 15 Y
057606,000092: 14,3622 64200 76476 2DEC -.7342581827 B-1 # STAR 15 Z
057607,000093: 14,3624 71323 70264 2DEC -.4116502629 B-1 # STAR 14 X
057608,000094: 14,3626 16403 05717 2DEC +.9066387314 B-1 # STAR 14 Y
057609,000095: 14,3630 01365 17662 2DEC +.0924676785 B-1 # STAR 14 Z
|
|
Page 1356 |
057611,000097: 14,3632 75055 75101 2DEC -.1818957154 B-1 # STAR 13 X
057612,000098: 14,3634 17030 32613 2DEC +.9405318128 B-1 # STAR 13 Y
057613,000099: 14,3636 73321 65667 2DEC -.2869039173 B-1 # STAR 13 Z
057614,000100: 14,3640 77010 66714 2DEC -.0614360769 B-1 # STAR 12 X
057615,000101: 14,3642 11515 05314 2DEC +.6031700106 B-1 # STAR 12 Y
057616,000102: 14,3644 63215 53630 2DEC -.7952430739 B-1 # STAR 12 Z
057617,000103: 14,3646 02145 21163 2DEC +.1373948084 B-1 # STAR 11 X
057618,000104: 14,3650 12715 21123 2DEC +.6813398852 B-1 # STAR 11 Y
057619,000105: 14,3652 13401 26125 2DEC +.7189566241 B-1 # STAR 11 Z
057620,000106: 14,3654 03161 14610 2DEC +.2013426456 B-1 # STAR 10 X
057621,000107: 14,3656 17401 36465 2DEC +.9689888101 B-1 # STAR 10 Y
057622,000108: 14,3660 75552 56556 2DEC -.1432544058 B-1 # STAR 10 Z
057623,000109: 14,3662 05473 01565 2DEC +.3509587451 B-1 # STAR 9 X
057624,000110: 14,3664 16217 31643 2DEC +.8925545449 B-1 # STAR 9 Y
057625,000111: 14,3666 04417 22211 2DEC +.2831507435 B-1 # STAR 9 Z
057626,000112: 14,3670 06444 33354 2DEC +.4107492871 B-1 # STAR 8 X
057627,000113: 14,3672 07765 20153 2DEC +.4987190610 B-1 # STAR 8 Y
057628,000114: 14,3674 14154 23613 2DEC +.7632590132 B-1 # STAR 8 Z
057629,000115: 14,3676 13202 05024 2DEC +.7033883645 B-1 # STAR 7 X
057630,000116: 14,3700 13243 07665 2DEC +.7074274193 B-1 # STAR 7 Y
057631,000117: 14,3702 01067 01242 2DEC +.0692188921 B-1 # STAR 7 Z
057632,000118: 14,3704 10561 05666 2DEC +.5450662811 B-1 # STAR 6 X
057633,000119: 14,3706 10401 00357 2DEC +.5313738486 B-1 # STAR 6 Y
057634,000120: 14,3710 65477 61124 2DEC -.6484940879 B-1 # STAR 6 Z
057635,000121: 14,3712 00154 03111 2DEC +.0131955837 B-1 # STAR 5 X
|
|
Page 1357 |
057637,000123: 14,3714 00077 35676 2DEC +.0078043793 B-1 # STAR 5 Y
057638,000124: 14,3716 17777 01142 2DEC +.9998824772 B-1 # STAR 5 Z
057639,000125: 14,3720 07674 11416 2DEC +.4917355618 B-1 # STAR 4 X
057640,000126: 14,3722 03415 12707 2DEC +.2203784481 B-1 # STAR 4 Y
057641,000127: 14,3724 62413 43135 2DEC -.8423950835 B-1 # STAR 4 Z
057642,000128: 14,3726 07511 03423 2DEC +.4776746280 B-1 # STAR 3 X
057643,000129: 14,3730 01672 12054 2DEC +.1164935557 B-1 # STAR 3 Y
057644,000130: 14,3732 15735 15405 2DEC +.8707790771 B-1 # STAR 3 Z
057645,000131: 14,3734 16745 21763 2DEC +.9342726691 B-1 # STAR 2 X
057646,000132: 14,3736 02613 24675 2DEC +.1732973829 B-1 # STAR 2 Y
057647,000133: 14,3740 73007 50430 2DEC -.3116128956 B-1 # STAR 2 Z
057648,000134: 14,3742 15777 12457 2DEC +.8749183324 B-1 # STAR 1 X
057649,000135: 14,3744 00324 03265 2DEC +.0258916990 B-1 # STAR 1 Y
057650,000136: 14,3746 07571 17020 2DEC +.4835778442 B-1 # STAR 1 Z
057651,000137: 14,3750 15325 CATLOG DEC 6869 B-14
End of include-file STAR_TABLES.agc. Parent file is MAIN.agc