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