SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proofed Page 798-802

Browse source
This commit is contained in:
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

31
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
@ -127,16 +128,16 @@ LUNLAND TC PHASCHNG
COUNT* $$/R13 COUNT* $$/R13
# 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.
READ CHAN30 READ CHAN30
MASK BIT5 MASK BIT5
CCS A CCS A
TCF STARTP67 # YES TCF STARTP67 # YES
P67NOW? TC CHECKMM # NO: ARE WE IN P67 NOW? P67NOW? TC CHECKMM # NO: ARE WE IN P67 NOW?
DEC 67 DEC 67
TCF STABL? # NO TCF STABL? # NO
@ -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,8 +205,8 @@ 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?
MASK RODFLBIT MASK RODFLBIT
@ -213,7 +214,7 @@ RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART?
BZF STRTP66A # YES. REINITIALIZE BUT LEAVE VDGVERT AS BZF STRTP66A # YES. REINITIALIZE BUT LEAVE VDGVERT AS
# IS. # IS.
TCF VERTGUID # NO: CONTINUE WITH R.O.D. TCF VERTGUID # NO: CONTINUE WITH R.O.D.
# ******************************************************************************* # *******************************************************************************
# INITIALIZATION FOR THIS PASS # INITIALIZATION FOR THIS PASS
@ -225,8 +226,8 @@ GUILDRET CAF ZERO
TS RODCOUNT TS RODCOUNT
# Page 802 # Page 802
+2 EXTEND +2 EXTEND
DCA TPIP DCA TPIP
DXCH TPIPOLD DXCH TPIPOLD
TC FASTCHNG TC FASTCHNG
@ -268,13 +269,13 @@ STARTP64 TC NEWMODEX
ADRES REDFLAG ADRES REDFLAG
# (CONTINUE TO TTFINCR) # (CONTINUE TO TTFINCR)
# ********************************************************************************* # *********************************************************************************
# 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