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