Source Code
044556,000001: # Copyright: Public domain.
044557,000002: # Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
044558,000003: # Purpose: Part of the source code for Colossus, build 249.
044559,000004: # It is part of the source code for the Command Module's (CM)
044560,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
044561,000006: # Assembler: yaYUL
044562,000007: # Reference: Starts on p. 1012 of 1701.pdf.
044563,000008: # Contact: Ron Burkey <info@sandroid.org>.
044564,000009: # Website: www.ibiblio.org/apollo.
044565,000010: # Mod history: 08/26/04 RSB. Began transcribing.
044566,000011:
044567,000012: # The contents of the "Colossus249" files, in general, are transcribed
044568,000013: # from a scanned document obtained from MIT's website,
044569,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
044570,000015: # document read, in part:
044571,000016:
044572,000017: # Assemble revision 249 of AGC program Colossus by NASA
044573,000018: # 2021111-041. October 28, 1968.
044574,000019:
044575,000020: # This AGC program shall also be referred to as
044576,000021: # Colossus 1A
044577,000022:
044578,000023: # Prepared by
044579,000024: # Massachusetts Institute of Technology
044580,000025: # 75 Cambridge Parkway
044581,000026: # Cambridge, Massachusetts
044582,000027: # under NASA contract NAS 9-4065.
044583,000028:
044584,000029: # Refer directly to the online document mentioned above for further information.
044585,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
044586,000031:
044587,000032: # In some cases, where the source code for Luminary 131 overlaps that of
044588,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
044589,000034: # source file, and then is proofed to incorporate any changes.
044590,000035:
044591,000036: # Page 1012
044592,000037: # CALCULATION OF AMGB, AMBG ONCE EVERY SECOND
044593,000038:
044594,000039: # AMGB = 1 SIN(PSI) 0
044595,000040: # 0 COS(PSI)COS(PHI) SIN(PHI)
044596,000041: # 0 -COS(PSI)SIN(PHI) COS(PHI)
044597,000042:
044598,000043: # AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI)
044599,000044: # 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI)
044600,000045: # 0 SIN(PHI) COS(PHI)
044601,000046:
044602,000047: # WHERE PHI AND PSI ARE CDU ANGLES
044603,000048:
044604,000049: 20,3565 BANK 20
044605,000050: 22,2000 SETLOC DAPS8
044606,000051: 22,2000 BANK
044607,000052:
044608,000053: 22,3444 COUNT* $$/DAPEX
044609,000054: 22,3444 E6,1510 EBANK= KMPAC
044610,000055: 22,3444 30102 AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
044611,000056: 22,3445 00006 EXTEND
044612,000057: 22,3446 65112 BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1
044613,000058: 22,3447 74675 MASK BIT14 # IF NOT RCS, EXIT
044614,000059: 22,3450 00006 EXTEND
044615,000060: 22,3451 15112 BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
044616,000061:
044617,000062: 22,3452 30034 CA CDUZ
044618,000063: 22,3453 04770 TC SPSIN2
044619,000064: 22,3454 55640 TS AMGB1 # CALCULATE AMGB
044620,000065: 22,3455 30034 CA CDUZ
044621,000066: 22,3456 04767 TC SPCOS2
044622,000067: 22,3457 55645 TS CAPSI # MUST CHECK FOR GIMBAL LOCK
044623,000068: 22,3460 33504 CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET
044624,000069: 22,3461 00006 EXTEND
044625,000070: 22,3462 20032 MSU CDUX
044626,000071: 22,3463 40000 COM # CDUX - 7.25 DEG
044627,000072: 22,3464 04767 TC SPCOS1
044628,000073: 22,3465 55644 TS AMGB8
044629,000074: 22,3466 00006 EXTEND
044630,000075: 22,3467 71645 MP CAPSI
044631,000076: 22,3470 55641 TS AMGB4
044632,000077: 22,3471 33504 CAF QUADANGL
044633,000078: 22,3472 00006 EXTEND
044634,000079: 22,3473 20032 MSU CDUX
044635,000080: 22,3474 40000 COM # CDUX - 7.25 DEG
044636,000081: 22,3475 04770 TC SPSIN1
044637,000082: 22,3476 55642 TS AMGB5
044638,000083: 22,3477 00006 EXTEND
044639,000084: 22,3500 71645 MP CAPSI
044640,000085: 22,3501 40000 COM
044641,000086: # Page 1013
044642,000087: 22,3502 55643 TS AMGB7
044643,000088: 22,3503 15112 TCF ENDOFJOB
044644,000089: 22,3504 01224 QUADANGL DEC 660 B-14 # = 7.25 DEGREES
044645,000090:
End of include-file RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc. Parent file is MAIN.agc