Trim whitespace
This commit is contained in:
James Harris
@@ -10,7 +10,7 @@
|
||||
# Mod history: 2009-05-23 HG Transcribed from page images.
|
||||
# 2009-06-05 RSB Fixed a goofy thing that was apparently
|
||||
# legal in GAP but not in yaYUL. Eliminated
|
||||
# a couple of lines of code that shouldn't
|
||||
# a couple of lines of code that shouldn't
|
||||
# have survived from Luminary 131 to here.
|
||||
# 2009-06-07 RSB Fixed a typo.
|
||||
#
|
||||
@@ -27,7 +27,7 @@
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||
# 16:27 JULY 14, 1969
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 798
|
||||
EBANK= E2DPS
|
||||
@@ -72,7 +72,7 @@ WHATGUID TCF TTF/8CL # BRAKQUAD
|
||||
AFTRGUID TCF CGCALC # BRAKQUAD
|
||||
TCF CGCALC # APPRQUAD
|
||||
TCF STEER? # VERTICAL
|
||||
|
||||
|
||||
# Page 799
|
||||
# WINDOW VECTOR COMPUTATIONS:
|
||||
|
||||
@@ -117,7 +117,7 @@ GUIDSUB TS NGUIDSUB # ON SUCCEEDING PASSES SKIP TTFINCR
|
||||
LUNLAND TC PHASCHNG
|
||||
OCT 00035 # GROUP 5: RETAIN ONLY PIPA TASK
|
||||
TC PHASCHNG
|
||||
OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
|
||||
OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
|
||||
OCT 21000 # JUST HIGHER THAN SERVICER'S PRIORITY
|
||||
|
||||
# Page 800
|
||||
@@ -183,25 +183,25 @@ VRTSTART TS WCHVERT
|
||||
TC DOWNFLAG
|
||||
ADRES REDFLAG
|
||||
TCF VERTGUID
|
||||
|
||||
|
||||
STARTP67 TC NEWMODEX # NO HARM IN "STARTING" P67 OVER AND OVER
|
||||
DEC 67 # SO NO NEED FOR A FASTCHNG AND NO NEED
|
||||
CAF ZERO # TO SEE IF ALREADY IN P67.
|
||||
TS RODCOUNT
|
||||
CAF TEN
|
||||
TCF VRTSTART
|
||||
|
||||
|
||||
STABL? CAF BIT13 # IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
|
||||
EXTEND
|
||||
RAND CHAN31
|
||||
CCS A
|
||||
TCF GUILDRET # YES ALL'S WELL
|
||||
|
||||
|
||||
P66NOW? CS MODREG
|
||||
AD DEC66
|
||||
EXTEND
|
||||
BZF RESTART?
|
||||
|
||||
|
||||
CA RODCOUNT # NO. HAS THE ROD SWITCH BEEN "CLICKED"?
|
||||
EXTEND
|
||||
BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING
|
||||
@@ -223,7 +223,7 @@ RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART?
|
||||
|
||||
GUILDRET CAF ZERO
|
||||
TS RODCOUNT
|
||||
|
||||
|
||||
# Page 802
|
||||
+2 EXTEND
|
||||
DCA TPIP
|
||||
@@ -234,7 +234,7 @@ GUILDRET CAF ZERO
|
||||
EXTEND
|
||||
DCA PIPTIME1
|
||||
DXCH TPIP
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA TTF/8
|
||||
DXCH TTF/8TMP
|
||||
@@ -266,7 +266,7 @@ STARTP64 TC NEWMODEX
|
||||
WOR CHAN13
|
||||
TC DOWNFLAG # INITIALIZE REDESIGNATION FLAG
|
||||
ADRES REDFLAG
|
||||
|
||||
|
||||
|
||||
# (CONTINUE TO TTFINCR)
|
||||
|
||||
@@ -320,7 +320,7 @@ TTFINCR TC INTPRET
|
||||
EXTEND
|
||||
DCA LANDTEMP +4
|
||||
DXCH LAND +4
|
||||
|
||||
|
||||
# Page 804
|
||||
TC TDISPSET
|
||||
TC FASTCHNG # SINCE REDESIG MAY CHANGE LANDTEMP
|
||||
@@ -371,7 +371,7 @@ REDESIG CA FLAGWRD6 # IS REDFLAG SET?
|
||||
VXSC VSU
|
||||
YNBPIP
|
||||
VAD PUSH # RESULTING VECTOR IS 1/2 REAL SIZE
|
||||
|
||||
|
||||
# Page 805
|
||||
|
||||
DLOAD DSU # MAKE SURE REDESIGNATION IS NOT
|
||||
@@ -469,7 +469,7 @@ RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
|
||||
CA FIXLOC # RESET PUSH DOWN POINTER
|
||||
TS PUSHLOC
|
||||
|
||||
# Page 807
|
||||
# Page 807
|
||||
CA MPAC # COMPUTE LOOKANGLE ITSELF
|
||||
DOUBLE
|
||||
TC BANKCALL
|
||||
@@ -692,21 +692,21 @@ CGCALC CAF EBANK5
|
||||
EXTLOGIC INDEX WCHPHASE # WCHPHASE = 1 APPRQUAD
|
||||
CA TENDBRAK # WCHPHASE = 0 BRAKQUAD
|
||||
AD TTF/8
|
||||
|
||||
|
||||
EXSPOT1 EXTEND
|
||||
INDEX WCHPHASE
|
||||
BZMF WHATEXIT
|
||||
|
||||
|
||||
TC FASTCHNG
|
||||
|
||||
|
||||
CA WCHPHOLD
|
||||
AD ONE
|
||||
TS WCHPHASE
|
||||
CA ZERO
|
||||
TS FLPASS0 # RESET FLPASS0
|
||||
|
||||
|
||||
INDEX WCHPHOLD
|
||||
TCF WHATEXIT
|
||||
TCF WHATEXIT
|
||||
|
||||
# ***********************************************************************
|
||||
# ROUTINES FOR EXITING FROM LANDING GUIDANCE
|
||||
@@ -813,7 +813,7 @@ RATESTOP CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
|
||||
RAND CHAN31
|
||||
EXTEND
|
||||
BZF DISPEXIT # YES
|
||||
|
||||
|
||||
TC BANKCALL # NO: DO A STOPRATE
|
||||
CADR STOPRATE
|
||||
|
||||
@@ -843,14 +843,14 @@ DISPEXIT EXTEND # KILL GROUP 3: DISPLAYS WILL BE
|
||||
|
||||
INDEX WCHPHOLD
|
||||
TCF WHATDISP
|
||||
|
||||
|
||||
-2 TC PHASCHNG # KILL GROUP 5
|
||||
OCT 00035
|
||||
|
||||
P63DISPS CAF V06N63
|
||||
DISPCOMN TC BANKCALL
|
||||
CADR REGODSPR
|
||||
|
||||
|
||||
ENDLLJOB TCF ENDOFJOB
|
||||
|
||||
P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
|
||||
@@ -870,7 +870,7 @@ P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
|
||||
TCF P64DISPS # RECYCLE
|
||||
# Page 815
|
||||
TCF ENDLLJOB
|
||||
|
||||
|
||||
P64CEED CAF ZERO
|
||||
TS ELINCR1
|
||||
TS AZINCR1
|
||||
@@ -918,10 +918,10 @@ P65VERT TC INTPRET
|
||||
|
||||
P66VERT TC POSTJUMP
|
||||
CADR P66VERTA
|
||||
|
||||
|
||||
P67VERT TC PHASCHNG # TERMINATE GROUP 3.
|
||||
OCT 00003
|
||||
|
||||
|
||||
TC INTPRET
|
||||
VLOAD GOTO
|
||||
V
|
||||
@@ -964,7 +964,7 @@ RODCOMP INHINT
|
||||
DCA TIME2
|
||||
# Page 817
|
||||
DXCH THISTPIP
|
||||
|
||||
|
||||
CA OLDPIPAX
|
||||
AD PIPATMPX
|
||||
TS MPAC # MPAC(X) = PIPAX + PIPATMPX
|
||||
@@ -1130,7 +1130,7 @@ BIASFACT 2DEC 655.36 B-28
|
||||
PITFALL XCH BANKRUPT
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
|
||||
|
||||
TC CHECKMM # IF NOT IN P64, NO REASON TO CONTINUE
|
||||
DEC 64
|
||||
TCF RESUME
|
||||
@@ -1160,7 +1160,7 @@ REDESMON EXTEND
|
||||
TS L
|
||||
CCS ELVIRA # DO ANY BITS APPEAR THIS PASS?
|
||||
TCF PREMON2 # Y: CONTINUE MONITOR
|
||||
|
||||
|
||||
CCS L # N: ANY LAST PASS?
|
||||
TCF COUNT'EM # Y: COUNT 'EM, RESET RUPT, TERMINATE
|
||||
# Page 821
|
||||
@@ -1176,7 +1176,7 @@ COUNT'EM CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
|
||||
RAND CHAN31
|
||||
EXTEND
|
||||
BZF RESETRPT # YES: SKIP REDESIGNATION LOGIC.
|
||||
|
||||
|
||||
CA L # NO.
|
||||
MASK -AZBIT
|
||||
CCS A
|
||||
|
||||
Reference in New Issue
Block a user