Proof TVCINITIALIZE
This commit is contained in:
Connor Roizman
@@ -75,7 +75,7 @@
|
||||
EBANK= BZERO
|
||||
|
||||
TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
|
||||
EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND
|
||||
EXTEND # SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
|
||||
QXCH QRUPT # TVCINIT4 ARE ENTRIES)
|
||||
MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
|
||||
# TVC RESTARTS ENTER HERE (NEW BANK)
|
||||
@@ -90,8 +90,8 @@ MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
|
||||
# Page 938
|
||||
EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
|
||||
DCA INITLOC2 # INITIALIZATION AT TVCINIT1
|
||||
DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
|
||||
CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
|
||||
DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
|
||||
CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
|
||||
TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
|
||||
ENDMRC TCF RESUME # ENTRY.
|
||||
|
||||
@@ -125,7 +125,7 @@ TVCINIT1 LXCH BANKRUPT
|
||||
CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
|
||||
TS KTLX/I
|
||||
|
||||
TCR S40.15 # COMPUTE 1/CONACC, VARK
|
||||
TCR S40.15 # COMPUTE 1/CONACC , VARK
|
||||
|
||||
TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
||||
INDEX A # DETERMINATION:
|
||||
@@ -145,7 +145,7 @@ TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
||||
INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
|
||||
CAE EKPRIME # SCALED (100 PI)/16
|
||||
EXTEND
|
||||
MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
|
||||
MP KPRIMEDT # (TVCDT/2, SC.AT B+14CS)
|
||||
LXCH A # SC.AT PI/8 (DIMENSIONLESS)
|
||||
DXCH KPRIMEDT
|
||||
|
||||
@@ -219,9 +219,9 @@ TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
|
||||
|
||||
CAF BIT13 # IF ENGINE IS ALREADY OFF, ENGINOFF HAS
|
||||
EXTEND # ALREADY ESTABLISHED THE POST-BURN
|
||||
RAND DSALMOUT # CSMMASS (MASSBACK DOES IT). DON'T
|
||||
RAND DSALMOUT # CSMMASS (MASSBACK DOES IT). DONT
|
||||
EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
|
||||
BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE
|
||||
BZF +3 # THEN ITS OK TO DO THE COPYCYCLE
|
||||
# EVEN BURNS LESS THAN 0.4 SEC ARE AOK
|
||||
|
||||
CAE MASSTMP # COPYCYCLE
|
||||
@@ -304,37 +304,37 @@ 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,
|
||||
DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
|
||||
DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
|
||||
# COEFFICIENTS FROM FIXED MEMORY.
|
||||
|
||||
EXTEND
|
||||
INDEX COEFFADR
|
||||
DCA 4
|
||||
DXCH N10 +4
|
||||
DXCH N10 +4
|
||||
|
||||
EXTEND
|
||||
INDEX COEFFADR
|
||||
DCA 6
|
||||
DXCH N10 +6
|
||||
DXCH N10 +6
|
||||
|
||||
EXTEND
|
||||
INDEX COEFFADR
|
||||
DCA 8D
|
||||
DXCH N10 +8D
|
||||
DXCH N10 +8D
|
||||
|
||||
EXTEND
|
||||
INDEX COEFFADR
|
||||
DCA 10D
|
||||
DXCH N10 +10D
|
||||
DXCH N10 +10D
|
||||
|
||||
EXTEND
|
||||
INDEX COEFFADR
|
||||
DCA 12D
|
||||
DXCH N10 +12D
|
||||
DXCH N10 +12D
|
||||
|
||||
INDEX COEFFADR
|
||||
CA 14D
|
||||
TS N10 +14D
|
||||
TS N10 +14D
|
||||
|
||||
TC Q
|
||||
# Page 943
|
||||
@@ -344,7 +344,7 @@ S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
|
||||
DDOUBL # IXX SCALED B+20 KG-MSQ
|
||||
DDOUBL
|
||||
DDOUBL
|
||||
TS 1/CONACC # SCALED B+9 SEC-SQ/REV
|
||||
TS 1/CONACC # SCALED B+9 SEC-SQ/REV
|
||||
|
||||
+7 CAE KTLX/I # ENTRY FROM CSM/LM V46 SWITCH-OVER
|
||||
EXTEND # SCALED (B+3 ASCREV) 1/SECSQ
|
||||
@@ -368,21 +368,21 @@ CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
|
||||
|
||||
LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
|
||||
DEC -.3285 # N11/2
|
||||
DEC -.3301 #N12
|
||||
DEC -.9101 #D11/2
|
||||
DEC +.8460 #D12
|
||||
DEC -.3301 # N12
|
||||
DEC -.9101 # D11/2
|
||||
DEC +.8460 # D12
|
||||
|
||||
DEC +.03125 #N20
|
||||
DEC 0 #N21/2
|
||||
DEC 0 #N22
|
||||
DEC -.9101 #D21/2
|
||||
DEC +.8460 #D22
|
||||
DEC +.03125 # N20
|
||||
DEC 0 # N21/2
|
||||
DEC 0 # N22
|
||||
DEC -.9101 # D21/2
|
||||
DEC +.8460 # D22
|
||||
|
||||
DEC +.50000 #N30
|
||||
DEC -.47115 #N31/2
|
||||
DEC +.4749 #N32
|
||||
DEC -.9558 #D31/2
|
||||
DEC +.9372 #D32
|
||||
DEC +.5000 # N30
|
||||
DEC -.47115 # N31/2
|
||||
DEC +.4749 # N32
|
||||
DEC -.9558 # D31/2
|
||||
DEC +.9372 # D32
|
||||
|
||||
CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
|
||||
HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
|
||||
@@ -392,7 +392,7 @@ LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
|
||||
NZERO DEC 51 # MUST BE ODD FOR MRCLEAN
|
||||
NZEROJR DEC 23 # MUST BE ODD FOR MCLEANJR
|
||||
|
||||
ATTLIM DEC 0.00833 # INITIAL ATTITUDE EROR LIMIT (1.5 DEG)
|
||||
ATTLIM DEC 0.00833 # INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
|
||||
1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
|
||||
|
||||
TCORR OCT 00005 # CSM
|
||||
|
||||
Reference in New Issue
Block a user