Source Code
045924,000001: # Copyright: Public domain.
045925,000002: # Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
045926,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
045927,000004: # It is part of the source code for the Command Module's (CM)
045928,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
045929,000006: # Assembler: yaYUL
045930,000007: # Contact: Ron Burkey <info@sandroid.org>.
045931,000008: # Website: www.ibiblio.org/apollo.
045932,000009: # Pages: 1037-1038
045933,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
045934,000011: # same name, using Comanche055 page images.
045935,000012: # 2009-05-20 RSB A "Page N" comment was corrected.
045936,000013:
045937,000014: # This source code has been transcribed or otherwise adapted from digitized
045938,000015: # images of a hardcopy from the MIT Museum. The digitization was performed
045939,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
045940,000017: # thanks to both. The images (with suitable reduction in storage size and
045941,000018: # consequent reduction in image quality as well) are available online at
045942,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are
045943,000020: # illegible, contact me at info@sandroid.org about getting access to the
045944,000021: # (much) higher-quality images which Paul actually created.
045945,000022:
045946,000023: # Notations on the hardcopy document read, in part:
045947,000024:
045948,000025: # Assemble revision 055 of AGC program Comanche by NASA
045949,000026: # 2021113-051. 10:28 APR. 1, 1969
045950,000027:
045951,000028: # This AGC program shall also be referred to as
045952,000029: # Colossus 2A
045953,000030:
045954,000031: # Page 1037
045955,000032: # CALCULATION OF AMGB, AMBG ONCE EVERY SECOND
045956,000033:
045957,000034: # AMGB = 1 SIN(PSI) 0
045958,000035: # 0 COS(PSI)COS(PHI) SIN(PHI)
045959,000036: # 0 -COS(PSI)SIN(PHI) COS(PHI)
045960,000037:
045961,000038: # AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI)
045962,000039: # 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI)
045963,000040: # 0 SIN(PHI) COS(PHI)
045964,000041:
045965,000042: # WHERE PHI AND PSI ARE CDU ANGLES
045966,000043:
045967,000044: 20,3612 BANK 20
045968,000045: 22,2000 SETLOC DAPS8
045969,000046: 22,2000 BANK
045970,000047:
045971,000048: 22,3447 COUNT* $$/DAPEX
045972,000049: 22,3447 E6,1510 EBANK= KMPAC
045973,000050: 22,3447 30102 AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
045974,000051: 22,3450 00006 EXTEND
045975,000052: 22,3451 65217 BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1
045976,000053: 22,3452 75002 MASK BIT14 # IF NOT RCS, EXIT
045977,000054: 22,3453 00006 EXTEND
045978,000055: 22,3454 15217 BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
045979,000056:
045980,000057: 22,3455 30034 CA CDUZ
045981,000058: 22,3456 05075 TC SPSIN2
045982,000059: 22,3457 55640 TS AMGB1 # CALCULATE AMGB
045983,000060: 22,3460 30034 CA CDUZ
045984,000061: 22,3461 05074 TC SPCOS2
045985,000062: 22,3462 55645 TS CAPSI # MUST CHECK FOR GIMBAL LOCK
045986,000063: 22,3463 33507 CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET
045987,000064: 22,3464 00006 EXTEND
045988,000065: 22,3465 20032 MSU CDUX
045989,000066: 22,3466 40000 COM # CDUX - 7.25 DEG
045990,000067: 22,3467 05074 TC SPCOS1
045991,000068: 22,3470 55644 TS AMGB8
045992,000069: 22,3471 00006 EXTEND
045993,000070: 22,3472 71645 MP CAPSI
045994,000071: 22,3473 55641 TS AMGB4
045995,000072: 22,3474 33507 CAF QUADANGL
045996,000073: 22,3475 00006 EXTEND
045997,000074: 22,3476 20032 MSU CDUX
045998,000075: 22,3477 40000 COM # CDUX - 7.25 DEG
045999,000076: 22,3500 05075 TC SPSIN1
046000,000077: 22,3501 55642 TS AMGB5
046001,000078: 22,3502 00006 EXTEND
046002,000079: 22,3503 71645 MP CAPSI
046003,000080: 22,3504 40000 COM
046004,000081: # Page 1038
046005,000082: 22,3505 55643 TS AMGB7
046006,000083: 22,3506 15217 TCF ENDOFJOB
046007,000084: 22,3507 01224 QUADANGL DEC 660 B-14 # = 7.25 DEGREES
046008,000085:
End of include-file RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc. Parent file is MAIN.agc