diff --git a/Comanche055/TVCINITIALIZE.agc b/Comanche055/TVCINITIALIZE.agc index a570995..8627258 100644 --- a/Comanche055/TVCINITIALIZE.agc +++ b/Comanche055/TVCINITIALIZE.agc @@ -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