mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Proofed Page 798-802

pull/770/head
sidemt 2020-10-20 04:02:51 +09:00
parent 518969d877
commit 72aab87214
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
View File

@ -38,6 +38,7 @@
# ******************************************************** # ********************************************************
# FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION. THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE: # FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION. THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:
# WCHPHASE = -1 ---> IGNALG # WCHPHASE = -1 ---> IGNALG
# WCHPHASE = 0 ---> BRAKQUAD # WCHPHASE = 0 ---> BRAKQUAD
# WCHPHASE = 1 ---> APPRQUAD # WCHPHASE = 1 ---> APPRQUAD
@ -92,7 +93,7 @@ WHATDISP TCF P63DISPS # BRAKQUAD
WHATALM TCF 1406ALM # BRAKQUAD WHATALM TCF 1406ALM # BRAKQUAD
TCF 1406ALM # APPRQUAD TCF 1406ALM # APPRQUAD
# INDICES FOR REFERENCING TARGET PARAMETERS # INDICES FOR REFERENCING TARGET PARAMETERS:
OCT 0 # IGNALG OCT 0 # IGNALG
TARGTDEX OCT 0 # BRAKQUAD TARGTDEX OCT 0 # BRAKQUAD
@ -102,7 +103,7 @@ TARGTDEX OCT 0 # BRAKQUAD
# ENTRY POINTS: ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT # ENTRY POINTS: ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT
#************************************************************************ #************************************************************************
# IGNITION ALGORITHM ENTRY: DELIVERS N PASSES OF QUADRATIC GUIDANCE # IGNITION ALGORITHM ENTRY: DELIVERS N PASSES OF QUADRATIC QUIDANCE
?GUIDSUB EXIT ?GUIDSUB EXIT
CAF TWO # N = 3 CAF TWO # N = 3
@ -129,7 +130,7 @@ LUNLAND TC PHASCHNG
# HERE IS THE PHILOSOPHY OF GUILDENSTERN: ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE # HERE IS THE PHILOSOPHY OF GUILDENSTERN: ON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE
# DISCRETE TO SELECT P67 OR P66 RESPECTIVELY: ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66 # DISCRETE TO SELECT P67 OR P66 RESPECTIVELY: ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66
# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE # UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE.
GUILDEN EXTEND # IS UN-AUTO-THROTTLE DISCRETE PRESENT? GUILDEN EXTEND # IS UN-AUTO-THROTTLE DISCRETE PRESENT?
# STERN # RSB 2009: Not originally a comment. # STERN # RSB 2009: Not originally a comment.
@ -195,7 +196,7 @@ STABL? CAF BIT13 # IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
EXTEND EXTEND
RAND CHAN31 RAND CHAN31
CCS A CCS A
TCF GUILDRET # YES ALL'S WELL TCF GUILDRET # YES: ALL'S WELL
P66NOW? CS MODREG P66NOW? CS MODREG
AD DEC66 AD DEC66
@ -204,7 +205,7 @@ P66NOW? CS MODREG
CA RODCOUNT # NO. HAS THE ROD SWITCH BEEN "CLICKED"? CA RODCOUNT # NO. HAS THE ROD SWITCH BEEN "CLICKED"?
EXTEND EXTEND
BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING.
TCF STARTP66 # YES. SWITCH INTO THE ROD MODE. TCF STARTP66 # YES. SWITCH INTO THE ROD MODE.
RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART? RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART?
@ -225,7 +226,7 @@ GUILDRET CAF ZERO
TS RODCOUNT TS RODCOUNT
# Page 802 # Page 802
+2 EXTEND +2 EXTEND
DCA TPIP DCA TPIP
DXCH TPIPOLD DXCH TPIPOLD
@ -274,7 +275,7 @@ STARTP64 TC NEWMODEX
# INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS # INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS
# ********************************************************************************* # *********************************************************************************
# #
# TTFINCR COMPUTATIONS ARE AS FOLLOWS -- # TTFINCR COMPUTATIONS ARE AS FOLLOWS:-
# Page 803 # Page 803
# TTF/8 UPDATED FOR TIME SINCE LAST PASS: # TTF/8 UPDATED FOR TIME SINCE LAST PASS:
# TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8 # TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8