https://github.com/virtualagc/virtualagc
Revision 154c67ed3b9a5868aef80a72bea97bea47d0d599 authored by Ron Burkey on 29 August 2016, 14:11:28 UTC, committed by Ron Burkey on 29 August 2016, 14:11:28 UTC
1 parent 80925ff
Tip revision: 154c67ed3b9a5868aef80a72bea97bea47d0d599 authored by Ron Burkey on 29 August 2016, 14:11:28 UTC
Numerous edits, for completeness, corrections, or language, were made to the decorative annotations added to syntax-highlighted AGC or AEA source code listings.
Numerous edits, for completeness, corrections, or language, were made to the decorative annotations added to syntax-highlighted AGC or AEA source code listings.
Tip revision: 154c67e
RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
### FILE="Main.annotation"
# Copyright: Public domain.
# Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
# Purpose: Part of the source code for Colossus build 237.
# This is for the Command Module's (CM) Apollo Guidance
# Computer (AGC), we believe for Apollo 8.
# Assembler: yaYUL
# Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
# Website: www.ibiblio.org/apollo/index.html
# Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
# Mod history: 2011-03-15 JL Adapted from corresponding Colossus 249 file.
## Page 1012
# 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
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
CA CDUZ
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 1013
TS AMGB7
TCF ENDOFJOB
QUADANGL DEC 660 # = 7.25 DEGREES
Computing file changes ...