Trim whitespace
This commit is contained in:
James Harris
@ -10,9 +10,9 @@
|
||||
# Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
|
||||
# of the same name, using Comanche055 page
|
||||
# images.
|
||||
# 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing
|
||||
# 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing
|
||||
# lines in TVCINIT1, changed the capitalization
|
||||
# of a couple of the "Page N" comments,
|
||||
# of a couple of the "Page N" comments,
|
||||
# corrected a couple of lines in LOADCOEFF.
|
||||
# 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to
|
||||
# TS N10 +14D. Also, various comment-marks
|
||||
@ -31,7 +31,7 @@
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 055 of AGC program Comanche by NASA
|
||||
# 2021113-051. 10:28 APR. 1, 1969
|
||||
# 2021113-051. 10:28 APR. 1, 1969
|
||||
#
|
||||
# This AGC program shall also be referred to as
|
||||
# Colossus 2A
|
||||
@ -71,9 +71,9 @@
|
||||
BANK 17
|
||||
SETLOC DAPS7
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= BZERO
|
||||
|
||||
|
||||
TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
|
||||
EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND
|
||||
QXCH QRUPT # TVCINIT4 ARE ENTRIES)
|
||||
@ -98,10 +98,10 @@ ENDMRC TCF RESUME # ENTRY.
|
||||
TVCINIT1 LXCH BANKRUPT
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
|
||||
|
||||
TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
|
||||
CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
|
||||
|
||||
|
||||
CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
|
||||
EXTEND
|
||||
MP ONETHOU
|
||||
@ -109,46 +109,46 @@ TVCINIT1 LXCH BANKRUPT
|
||||
COM
|
||||
AD CSMMASS
|
||||
TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
|
||||
|
||||
|
||||
CAE DAPDATR1 # CHECK LEM-ON/OFF
|
||||
MASK BIT14
|
||||
CCS A
|
||||
CAF BIT1 # LEM-ON (BIT1)
|
||||
TS CNTR # LEM-OFF (ZERO)
|
||||
|
||||
|
||||
INDEX CNTR # LOAD THE FILTER COEFFICIENTS
|
||||
CAF CSMCFADR
|
||||
TS COEFFADR
|
||||
TC LOADCOEF
|
||||
|
||||
|
||||
INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
|
||||
CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
|
||||
TS KTLX/I
|
||||
|
||||
|
||||
TCR S40.15 # COMPUTE 1/CONACC, VARK
|
||||
|
||||
|
||||
TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
||||
INDEX A # DETERMINATION:
|
||||
CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
|
||||
TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
|
||||
|
||||
|
||||
COM # PREPARE T5TVCDT
|
||||
AD POSMAX
|
||||
AD BIT1
|
||||
TS T5TVCDT
|
||||
|
||||
|
||||
CS BIT15 # RESET SWTOVER FLAG
|
||||
# Page 939
|
||||
# Page 939
|
||||
MASK FLAGWRD9
|
||||
TS FLAGWRD9
|
||||
|
||||
|
||||
INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
|
||||
CAE EKPRIME # SCALED (100 PI)/16
|
||||
EXTEND
|
||||
MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
|
||||
LXCH A # SC.AT PI/8 (DIMENSIONLESS)
|
||||
DXCH KPRIMEDT
|
||||
|
||||
|
||||
INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
|
||||
CAE EREPFRAC
|
||||
TS REPFRAC
|
||||
@ -159,16 +159,16 @@ TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
||||
|
||||
CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
|
||||
TS STRKTIME
|
||||
|
||||
|
||||
CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
|
||||
TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
|
||||
TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
|
||||
|
||||
|
||||
TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
|
||||
TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
|
||||
TS PCMD # OFFSET-TRACKER FILTERS
|
||||
TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
|
||||
|
||||
|
||||
CAE YACTOFF
|
||||
TS YDELOFF
|
||||
TS YCMD
|
||||
@ -209,11 +209,11 @@ NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
|
||||
ADS RCSFLAGS # (RETURNS AFTER CADR)
|
||||
TC IBNKCALL
|
||||
CADR NEEDLER
|
||||
|
||||
|
||||
TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
|
||||
TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
|
||||
# (POSSIBLE TVC-RESTART ENTRY)
|
||||
|
||||
|
||||
CAE CDUX # PREPARE ROLL DAP
|
||||
TS OGANOW
|
||||
|
||||
@ -223,15 +223,15 @@ TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
|
||||
EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
|
||||
BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE
|
||||
# EVEN BURNS LESS THAN 0.4 SEC ARE AOK
|
||||
|
||||
|
||||
CAE MASSTMP # COPYCYCLE
|
||||
TS CSMMASS
|
||||
|
||||
|
||||
+3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
|
||||
TC WAITLIST
|
||||
EBANK= BZERO
|
||||
2CADR TVCEXEC
|
||||
|
||||
|
||||
EXTEND # CALL FOR DAPINIT
|
||||
DCA DAPINIT5
|
||||
DXCH T5LOC
|
||||
@ -264,7 +264,7 @@ MCLEANJR CA ZERO
|
||||
CCS CNTRTMP
|
||||
CCS A
|
||||
TCF SWICHOVR +8D
|
||||
|
||||
|
||||
CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
|
||||
MASK BIT15
|
||||
ADS FLAGWRD9
|
||||
@ -272,10 +272,10 @@ MCLEANJR CA ZERO
|
||||
CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
|
||||
TS KTLX/I
|
||||
TCR S40.15 +7
|
||||
|
||||
|
||||
CAF FKPRIMDT # - STEERING
|
||||
TS KPRIMEDT
|
||||
|
||||
|
||||
CAF FREPFRAC # - TMC LOOP
|
||||
TS REPFRAC
|
||||
|
||||
@ -285,7 +285,7 @@ MCLEANJR CA ZERO
|
||||
EXTEND
|
||||
DCA DELYBAR
|
||||
DXCH YDELOFF
|
||||
|
||||
|
||||
CA LBCFADR
|
||||
# Page 942
|
||||
TS COEFFADR
|
||||
@ -303,7 +303,7 @@ LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
|
||||
|
||||
EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
|
||||
INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
|
||||
DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
|
||||
DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
|
||||
DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
|
||||
# COEFFICIENTS FROM FIXED MEMORY.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user