Source Code

044556,000001: # Copyright: Public domain. 044557,000002: # Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc 044558,000003: # Purpose: Part of the source code for Colossus, build 249. 044559,000004: # It is part of the source code for the Command Module's (CM) 044560,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 044561,000006: # Assembler: yaYUL 044562,000007: # Reference: Starts on p. 1012 of 1701.pdf. 044563,000008: # Contact: Ron Burkey <info@sandroid.org>. 044564,000009: # Website: www.ibiblio.org/apollo. 044565,000010: # Mod history: 08/26/04 RSB. Began transcribing. 044566,000011: 044567,000012: # The contents of the "Colossus249" files, in general, are transcribed 044568,000013: # from a scanned document obtained from MIT's website, 044569,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 044570,000015: # document read, in part: 044571,000016: 044572,000017: # Assemble revision 249 of AGC program Colossus by NASA 044573,000018: # 2021111-041. October 28, 1968. 044574,000019: 044575,000020: # This AGC program shall also be referred to as 044576,000021: # Colossus 1A 044577,000022: 044578,000023: # Prepared by 044579,000024: # Massachusetts Institute of Technology 044580,000025: # 75 Cambridge Parkway 044581,000026: # Cambridge, Massachusetts 044582,000027: # under NASA contract NAS 9-4065. 044583,000028: 044584,000029: # Refer directly to the online document mentioned above for further information. 044585,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 044586,000031: 044587,000032: # In some cases, where the source code for Luminary 131 overlaps that of 044588,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 044589,000034: # source file, and then is proofed to incorporate any changes. 044590,000035: 044591,000036: # Page 1012 044592,000037: # CALCULATION OF AMGB, AMBG ONCE EVERY SECOND 044593,000038: 044594,000039: # AMGB = 1 SIN(PSI) 0 044595,000040: # 0 COS(PSI)COS(PHI) SIN(PHI) 044596,000041: # 0 -COS(PSI)SIN(PHI) COS(PHI) 044597,000042: 044598,000043: # AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI) 044599,000044: # 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI) 044600,000045: # 0 SIN(PHI) COS(PHI) 044601,000046: 044602,000047: # WHERE PHI AND PSI ARE CDU ANGLES 044603,000048: 044604,000049: 20,3565 BANK 20 044605,000050: 22,2000 SETLOC DAPS8 044606,000051: 22,2000 BANK 044607,000052: 044608,000053: 22,3444 COUNT* $$/DAPEX 044609,000054: 22,3444 E6,1510 EBANK= KMPAC 044610,000055: 22,3444 30102 AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT 044611,000056: 22,3445 00006 EXTEND 044612,000057: 22,3446 65112 BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1 044613,000058: 22,3447 74675 MASK BIT14 # IF NOT RCS, EXIT 044614,000059: 22,3450 00006 EXTEND 044615,000060: 22,3451 15112 BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER 044616,000061: 044617,000062: 22,3452 30034 CA CDUZ 044618,000063: 22,3453 04770 TC SPSIN2 044619,000064: 22,3454 55640 TS AMGB1 # CALCULATE AMGB 044620,000065: 22,3455 30034 CA CDUZ 044621,000066: 22,3456 04767 TC SPCOS2 044622,000067: 22,3457 55645 TS CAPSI # MUST CHECK FOR GIMBAL LOCK 044623,000068: 22,3460 33504 CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET 044624,000069: 22,3461 00006 EXTEND 044625,000070: 22,3462 20032 MSU CDUX 044626,000071: 22,3463 40000 COM # CDUX - 7.25 DEG 044627,000072: 22,3464 04767 TC SPCOS1 044628,000073: 22,3465 55644 TS AMGB8 044629,000074: 22,3466 00006 EXTEND 044630,000075: 22,3467 71645 MP CAPSI 044631,000076: 22,3470 55641 TS AMGB4 044632,000077: 22,3471 33504 CAF QUADANGL 044633,000078: 22,3472 00006 EXTEND 044634,000079: 22,3473 20032 MSU CDUX 044635,000080: 22,3474 40000 COM # CDUX - 7.25 DEG 044636,000081: 22,3475 04770 TC SPSIN1 044637,000082: 22,3476 55642 TS AMGB5 044638,000083: 22,3477 00006 EXTEND 044639,000084: 22,3500 71645 MP CAPSI 044640,000085: 22,3501 40000 COM 044641,000086: # Page 1013 044642,000087: 22,3502 55643 TS AMGB7 044643,000088: 22,3503 15112 TCF ENDOFJOB 044644,000089: 22,3504 01224 QUADANGL DEC 660 B-14 # = 7.25 DEGREES 044645,000090: End of include-file RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc. Parent file is MAIN.agc