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