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