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