diff --git a/Comanche055/TVCEXECUTIVE.agc b/Comanche055/TVCEXECUTIVE.agc index 79c7e45..13f2a89 100644 --- a/Comanche055/TVCEXECUTIVE.agc +++ b/Comanche055/TVCEXECUTIVE.agc @@ -33,22 +33,23 @@ # Page 945 # PROGRAM NAME.... TVCEXECUTIVE, CONSISTING OF TVCEXEC, NEEDLEUP, VARGAINS # 1SHOTCHK, REPCHEK, CG.CORR, COPYCYCLES, ETC. -# LOG SECTION.... TVCEXECUTIVE SUBROUTINE ....DAPCSM -# MOD BY SCHLUNDT 21 OCTOBER 1968 -# +# LOG SECTION...TVCEXECUTIVE SUBROUTINE...DAPCSM +# MODIFIED BY SCHLUNDT 21 OCTOBER 1968 # FUNCTIONAL DESCRIPTION.... +# # *A SELF-PERPETUATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH: -# PREPARES THE ROLL WITH OGA (CDUX) +# PREPARES THE ROLL DAP WITH OGA (CDUX) # PREPARES THE ROLL FDAI NEEDLE (FLY-TO OGA ERROR) # PREPARES THE ROLL PHASE PLANE OGAERR (FLY-FROM OGA ERROR) # PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY) # UPDATES THE NEEDLES DISPLAY -# UPDATES THE VEHICLE MASS AND CALLS MASSPROP TO UPDATE INERTIA DATA +# UPDATES VEHICLE MASS AND CALLS MASSPROP TO UPDATE INERTIA DATA # UPDATES PITCH, YAW, AND ROLL DAP GAINS FROM MASSPROP DATA # PERFORMS ONE-SHOT CORRECTION FOR TMC LOOP 0-3 SEC AFTER IGNITION -# PERFORMS REPETITIVE UPDATES FOR THE TMC LOOP AFTER THE ONE-SHOT CORR. +# PERFORMS REPETITIVE UPDATES FOR TMC LOOP AFTER THE ONE-SHOT CORR. # # CALLING SEQUENCE.... +# # *TVCEXEC CALLED AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY # ITSELF, BOTH AT 1/2 SECOND INTERVALS # @@ -59,12 +60,13 @@ # SUBROUTINES CALLED....NEEDLER, S40.15, MASSPROP, TASKOVER, IBNKCALL # # OTHER INTERFACES.... +# # *TVCRESTART PACKAGE FOR RESTARTS # *PITCHDAP, YAWDAP FOR VARIABLE GAINS AND ENGINE TRIM ANGLES -# # ERASABLE INITIALIZATION REQUIRED.... +# # *SEE TVCDAPON....TVCINIT4 -# *VARK AND 1/CONACC (S40.15 OF R03) +# *VARK AND 1/CONACC (S40.15 OF TVCINITIALIZE) # *PAD LOAD EREPFRAC # *BITS 15,14 OF FLAGWRD6 (T5 BITS) # *TVCEXPHS FOR RESTARTS @@ -72,7 +74,8 @@ # *CDUX, OGAD # # OUTPUT.... -# *ROLL DAP OGANOW, FDAI NEEDLE= (AK). AND PHASE PLANE OGAERR +# +# *ROLL DAP OGANOW, FDAI NEEDLE (AK), AND PHASE PLANE OGAERR # *VARIABLE GAINS FOR PITCH/YAW AND ROLL TVC DAPS # *SINGLE-SHOT AND REPETITIVE CORRECTIONS TO ENGINE TRIM ANGLES # PACTOFF AND YACTOFF @@ -87,7 +90,7 @@ COUNT* $$/TVCX TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ - MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON) + MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON) EXTEND BZMF TVCEXFIN # TERMINATE @@ -97,18 +100,18 @@ TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ 2CADR TVCEXEC ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART- - XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START) + XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START) XCH OGAPAST CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO - EXTEND # ERROR (COMMAND - MEASURED) + EXTEND # ERROR (COMMAND - MEASURED) MSU OGANOW TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS - EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR + EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR MP -BIT14 TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR, - # SC.AT B+0 REVS + # SC.AT B+0 REVS CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME) TC WAITLIST @@ -116,18 +119,18 @@ ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART- 2CADR ROLLDAP NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR) - CADR NEEDLER # (NEEDLES RESTARTS ITSELF) + CADR NEEDLER # (NEEDLES RESTARTS ITSELF) VARGAINS CAF BIT13 # CHECK ENGINE-ON BIT TO INHIBIT VARIABLE - EXTEND # GAINS AND MASS IF ENGINE OFF + EXTEND # GAINS AND MASS IF ENGINE OFF RAND DSALMOUT # CHANNEL 11 CCS A - TCF +4 # ON, SO OK TO UPDATE GAINS AND MASS - +5 CAF TWO # OFF, SO BYPASS MASS/GAIN UPDATES, - TS TVCEXPHS # ALSO ENTRY FROM CCS BELOW WITH - TCF 1SHOTCHK # VCNTR = -0 (V97 R40 ENGFAIL) - CCS VCNTR # TEST FOR GAIN OF UPDATE TIME - TCF +4 # NOT YET + TCF +4 # ON , SO OK TO UPDATE GAINS AND MASS + +5 CAF TWO # OFF, SO BYPASS MASS/GAIN UPDATES, + TS TVCEXPHS # ALSO ENTRY FROM CCS BELOW WITH + TCF 1SHOTCHK # VCNTR = -0 (V97 R40 ENGFAIL) + CCS VCNTR # TEST FOR GAIN OF UPDATE TIME + TCF +4 # NOT YET # Page 947 TCF GAINCHNG # NOW TCF +0 # NOT USED