2016-07-07 08:47:26 +00:00
|
|
|
# Copyright: Public domain.
|
|
|
|
|
# Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
|
|
|
|
|
# Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
|
|
|
|
|
# It is part of the source code for the Command Module's (CM)
|
|
|
|
|
# Apollo Guidance Computer (AGC), for Apollo 11.
|
|
|
|
|
# Assembler: yaYUL
|
|
|
|
|
# Contact: Ron Burkey <info@sandroid.org>.
|
|
|
|
|
# Website: www.ibiblio.org/apollo.
|
|
|
|
|
# Pages: 1037-1038
|
|
|
|
|
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
|
|
|
|
# same name, using Comanche055 page images.
|
|
|
|
|
# 2009-05-20 RSB A "Page N" comment was corrected.
|
|
|
|
|
#
|
|
|
|
|
# This source code has been transcribed or otherwise adapted from digitized
|
|
|
|
|
# images of a hardcopy from the MIT Museum. The digitization was performed
|
|
|
|
|
# by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
|
|
|
|
|
# thanks to both. The images (with suitable reduction in storage size and
|
|
|
|
|
# consequent reduction in image quality as well) are available online at
|
|
|
|
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
2016-12-28 16:11:25 +00:00
|
|
|
# illegible, contact me at info@sandroid.org about getting access to the
|
2016-07-07 08:47:26 +00:00
|
|
|
# (much) higher-quality images which Paul actually created.
|
|
|
|
|
#
|
|
|
|
|
# Notations on the hardcopy document read, in part:
|
|
|
|
|
#
|
|
|
|
|
# Assemble revision 055 of AGC program Comanche by NASA
|
2016-12-28 16:11:25 +00:00
|
|
|
# 2021113-051. 10:28 APR. 1, 1969
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
|
|
|
|
# This AGC program shall also be referred to as
|
|
|
|
|
# Colossus 2A
|
|
|
|
|
|
|
|
|
|
# Page 1037
|
|
|
|
|
# CALCULATION OF AMGB, AMBG ONCE EVERY SECOND
|
|
|
|
|
#
|
|
|
|
|
# AMGB = 1 SIN(PSI) 0
|
|
|
|
|
# 0 COS(PSI)COS(PHI) SIN(PHI)
|
|
|
|
|
# 0 -COS(PSI)SIN(PHI) COS(PHI)
|
|
|
|
|
#
|
|
|
|
|
# AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI)
|
|
|
|
|
# 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI)
|
|
|
|
|
# 0 SIN(PHI) COS(PHI)
|
|
|
|
|
#
|
|
|
|
|
# WHERE PHI AND PSI ARE CDU ANGLES
|
|
|
|
|
|
|
|
|
|
BANK 20
|
|
|
|
|
SETLOC DAPS8
|
|
|
|
|
BANK
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
COUNT* $$/DAPEX
|
|
|
|
|
EBANK= KMPAC
|
|
|
|
|
AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
|
|
|
|
|
EXTEND
|
|
|
|
|
BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1
|
|
|
|
|
MASK BIT14 # IF NOT RCS, EXIT
|
|
|
|
|
EXTEND
|
|
|
|
|
BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
|
2016-12-28 16:11:25 +00:00
|
|
|
|
|
|
|
|
CA CDUZ
|
2016-07-07 08:47:26 +00:00
|
|
|
TC SPSIN2
|
|
|
|
|
TS AMGB1 # CALCULATE AMGB
|
|
|
|
|
CA CDUZ
|
|
|
|
|
TC SPCOS2
|
|
|
|
|
TS CAPSI # MUST CHECK FOR GIMBAL LOCK
|
|
|
|
|
CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET
|
|
|
|
|
EXTEND
|
|
|
|
|
MSU CDUX
|
|
|
|
|
COM # CDUX - 7.25 DEG
|
|
|
|
|
TC SPCOS1
|
|
|
|
|
TS AMGB8
|
|
|
|
|
EXTEND
|
|
|
|
|
MP CAPSI
|
|
|
|
|
TS AMGB4
|
|
|
|
|
CAF QUADANGL
|
|
|
|
|
EXTEND
|
|
|
|
|
MSU CDUX
|
|
|
|
|
COM # CDUX - 7.25 DEG
|
|
|
|
|
TC SPSIN1
|
|
|
|
|
TS AMGB5
|
|
|
|
|
EXTEND
|
|
|
|
|
MP CAPSI
|
|
|
|
|
COM
|
|
|
|
|
# Page 1038
|
|
|
|
|
TS AMGB7
|
|
|
|
|
TCF ENDOFJOB
|
|
|
|
|
QUADANGL DEC 660 # = 7.25 DEGREES
|
|
|
|
|
|
