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. |
043721,000002: ## Copyright: Public domain.
043722,000003: ## Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
043723,000004: ## Purpose: Part of the source code for Colossus build 237.
043724,000005: ## This is for the Command Module's (CM) Apollo Guidance
043725,000006: ## Computer (AGC), for Apollo 8.
043726,000007: ## Assembler: yaYUL
043727,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
043728,000009: ## Website: www.ibiblio.org/apollo/index.html
043729,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
043730,000011: ## Mod history: 2011-03-15 JL Adapted from corresponding Colossus 249 file.
043731,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
043732,000013: ## and fixed errors found.
043733,000014:
![]() |
Page 1005 |
043735,000016: # CALCULATION OF AMGB, AMBG ONCE EVERY SECOND
043736,000017:
043737,000018: # AMGB = 1 SIN(PSI) 0
043738,000019: # 0 COS(PSI)COS(PHI) SIN(PHI)
043739,000020: # 0 -COS(PSI)SIN(PHI) COS(PHI)
043740,000021:
043741,000022: # AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI)
043742,000023: # 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI)
043743,000024: # 0 SIN(PHI) COS(PHI)
043744,000025:
043745,000026: # WHERE PHI AND PSI ARE CDU ANGLES
043746,000027:
043747,000028:
043748,000029: 20,3550 BANK 20
043749,000030: 22,2000 SETLOC DAPS8
043750,000031: 22,2000 BANK
043751,000032:
043752,000033: 22,3444 COUNT* $$/DAPEX
043753,000034: 22,3444 E6,1510 EBANK= KMPAC
043754,000035: 22,3444 30102 AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
043755,000036: 22,3445 00006 EXTEND
043756,000037: 22,3446 65112 BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1
043757,000038: 22,3447 74675 MASK BIT14 # IF NOT RCS, EXIT
043758,000039: 22,3450 00006 EXTEND
043759,000040: 22,3451 15112 BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
043760,000041:
043761,000042: 22,3452 30034 CA CDUZ
043762,000043: 22,3453 04770 TC SPSIN2
043763,000044: 22,3454 55640 TS AMGB1 # CALCULATE AMGB
043764,000045: 22,3455 30034 CA CDUZ
043765,000046: 22,3456 04767 TC SPCOS2
043766,000047: 22,3457 55645 TS CAPSI # MUST CHECK FOR GIMBAL LOCK
043767,000048: 22,3460 33504 CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET
043768,000049: 22,3461 00006 EXTEND
043769,000050: 22,3462 20032 MSU CDUX
043770,000051: 22,3463 40000 COM # CDUX - 7.25 DEG
043771,000052: 22,3464 04767 TC SPCOS1
043772,000053: 22,3465 55644 TS AMGB8
043773,000054: 22,3466 00006 EXTEND
043774,000055: 22,3467 71645 MP CAPSI
043775,000056: 22,3470 55641 TS AMGB4
043776,000057: 22,3471 33504 CAF QUADANGL
043777,000058: 22,3472 00006 EXTEND
043778,000059: 22,3473 20032 MSU CDUX
043779,000060: 22,3474 40000 COM # CDUX - 7.25 DEG
043780,000061: 22,3475 04770 TC SPSIN1
043781,000062: 22,3476 55642 TS AMGB5
043782,000063: 22,3477 00006 EXTEND
043783,000064: 22,3500 71645 MP CAPSI
043784,000065: 22,3501 40000 COM
![]() |
Page 1006 |
043786,000067: 22,3502 55643 TS AMGB7
043787,000068: 22,3503 15112 TCF ENDOFJOB
043788,000069: 22,3504 01224 QUADANGL DEC 660 B-14 # = 7.25 DEGREES
End of include-file RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc. Parent file is MAIN.agc