Source Code
039859,000001: # Copyright: Public domain.
039860,000002: # Filename: TVCEXECUTIVE.agc
039861,000003: # Purpose: Part of the source code for Colossus, build 249.
039862,000004: # It is part of the source code for the Command Module's (CM)
039863,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
039864,000006: # Assembler: yaYUL
039865,000007: # Reference: Begins at p. 907 of 1701.pdf.
039866,000008: # Contact: Ron Burkey <info@sandroid.org>.
039867,000009: # Website: www.ibiblio.org/apollo.
039868,000010: # Mod history: 08/22/04 RSB. Transcribed.
039869,000011: # 2010-10-24 JL Indentation fixes.
039870,000012:
039871,000013: # The contents of the "Colossus249" files, in general, are transcribed
039872,000014: # from a scanned document obtained from MIT's website,
039873,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
039874,000016: # document read, in part:
039875,000017:
039876,000018: # Assemble revision 249 of AGC program Colossus by NASA
039877,000019: # 2021111-041. October 28, 1968.
039878,000020:
039879,000021: # This AGC program shall also be referred to as
039880,000022: # Colossus 1A
039881,000023:
039882,000024: # Prepared by
039883,000025: # Massachusetts Institute of Technology
039884,000026: # 75 Cambridge Parkway
039885,000027: # Cambridge, Massachusetts
039886,000028: # under NASA contract NAS 9-4065.
039887,000029:
039888,000030: # Refer directly to the online document mentioned above for further information.
039889,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
039890,000032:
039891,000033: # In some cases, where the source code for Luminary 131 overlaps that of
039892,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131
039893,000035: # source file, and then is proofed to incorporate any changes.
039894,000036:
039895,000037: # Page 907
039896,000038: # PROGRAM NAME.... DVCEXECUTIVE, CONSISTING OF TVCEXEC, NEEDLEUP, VARGAINS
039897,000039: # REPCHEK, SWTCHOVER, CG.CORR, STRKUP, TVCEXFIN, ETC.
039898,000040: # LOG SECTION.... TVCEXECUTIVE SUBROUTINE ....DAPCSM
039899,000041: # MOD BY ENGEL DATE 23 OCT, 1967
039900,000042:
039901,000043: # FUNCTIONAL DESCRIPTION....
039902,000044: # *A SELF-PERPETUATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH:
039903,000045: # PREPARES THE ROLL TVC DAP LADDERS
039904,000046: # PREPARES THE ROLL FDAI NEEDLE (FLY-TO OGA ERROR)
039905,000047: # PREPARES THE ROLL PHASE PLANE OGAERR (FLY-FROM OGA ERROR)
039906,000048: # PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY)
039907,000049: # UPDATES THE NEEDLES DISPLAY
039908,000050: # IMPLEMENTS VARIABLE GAINS AND VARIABLE VEHICLE MASS
039909,000051: # PROVIDES FOR SWITCHOVER
039910,000052: # PROVIDES FOR A SINGLE-SHOT THRUST MISALIGNMENT CORRECTION AT SWTOVR
039911,000053: # PROVIDES FOR REPETITIVE THRUST MISALIGNMENT CORRECTIONS FOLLOWING
039912,000054: # SWITCHOVER
039913,000055: # PERFORMS CERTAIN STROKE TEST FUNCTIONS
039914,000056:
039915,000057: # CALLING SEQUENCE....
039916,000058: # *TVCEXEC CALLED AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY
039917,000059: # ITSELF, BOTH AT 1/2 SECOND INTERVALS
039918,000060:
039919,000061: # NORMAL EXIT MODE.... TASKOVER
039920,000062:
039921,000063: # ALARM OR ABORT EXIT MODES.... NONE
039922,000064:
039923,000065: # SUBROUTINES CALLED....NEEDLER, S40.15, MASSPROP, TASKOVER, IBNKCALL
039924,000066:
039925,000067: # OTHER INTERFACES....
039926,000068: # *TVCRESTART PACKAGE FOR RESTARTS
039927,000069: # *PITCHDAP, YAWDAP FOR VARIABLE GAINS AND ENGINE TRIM ANGLES
039928,000070: # *S40.6 KPRIMEDT AT SWITCHOVER
039929,000071:
039930,000072: # ERASABLE INITIALIZATION REQUIRED....
039931,000073: # *SEE TVCDAPON....TVCINIT4
039932,000074: # *VARK AND 1/CONACC (S40.15 OF R03)
039933,000075: # *V68 INITIALIZATION PRIOR TO SWITCHOVER OR FOLLOWING A RESTART
039934,000076: # DURING A STROKE TEST, IF STROKE TEST FUNCTIONS ARE TO BE TESTED
039935,000077: # *PAD LOADS EREPFRAC, ECORFRAC ETC.
039936,000078: # *BITS 15,14 OF FLAGWRD6 (T5 BITS)
039937,000079: # *TVCEXPHS FOR RESTARTS
039938,000080: # *ENGINE-ON BIT (11.13) FOR RESTARTS
039939,000081: # *CDUX, OGAD
039940,000082:
039941,000083: # OUTPUT....
039942,000084: # Page 908
039943,000085: # *ROLL TVC DAP LADDERS, FDAI NEEDLE (AK), AND PHASE PLANE OGAERR
039944,000086: # *VARIABLE GAINS FOR PITCH/YAW AND ROLL TVC DAPS
039945,000087: # *SINGLE-SHOT AND REPETITIVE CORRECTIONS TO ENGINE TRIM ANGLES
039946,000088: # PACTOFF AND YACTOFF
039947,000089: # *CHANGES TO DAP SAMPLE RATES, DAP GAINS, AND STEERING-GAIN SCALING
039948,000090: # AT (LEM-ON) SWITCHOVER
039949,000091: # *STROKER, 4 SECONDS AFTER SWITCHOVER WHEN PRIOR V66, OR 2.5
039950,000092: # SECONDS AFTER RESTART DURING A STROKE TEST
039951,000093:
039952,000094: # DEBRIS.... MUCH, BUT SHAREABLE WITH RCS/ENTRY, ALL IN EBANK6
039953,000095:
039954,000096: 16,2660 BANK 16
039955,000097: 16,2000 SETLOC DAPROLL
039956,000098: 16,2000 BANK
039957,000099: 16,2660 E6,1742 EBANK= BZERO
039958,000100: 16,2660 COUNT* $$/TVCX
039959,000101: 16,2660 40102 TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ
039960,000102: 16,2661 74105 MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON)
039961,000103: 16,2662 00006 EXTEND
039962,000104: 16,2663 63142 BZMF TVCEXFIN # TERMINATE
039963,000105:
039964,000106: 16,2664 34731 CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC
039965,000107: 16,2665 05140 TC WAITLIST
039966,000108: 16,2666 E6,1742 EBANK= BZERO
039967,000109: 16,2666 02660 34066 2CADR TVCEXEC
039968,000110:
039969,000111: 16,2670 30032 ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART-
039970,000112: 16,2671 57672 XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START)
039971,000113: 16,2672 57673 XCH OGAPAST
039972,000114:
039973,000115: 16,2673 31450 CAE OGAD # PREPARE ROLL FDAI NEEDLE WTIH FLY-TO
039974,000116: 16,2674 00006 EXTEND # ERROR (COMMAND - MEASURED)
039975,000117: 16,2675 21672 MSU OGANOW
039976,000118: 16,2676 55476 TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS
039977,000119:
039978,000120: 16,2677 00006 EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR
039979,000121: 16,2700 77705 MP -BIT14
039980,000122: 16,2701 55674 TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR,
039981,000123: # SC.AT B+0 REVS
039982,000124:
039983,000125: 16,2702 36214 CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME)
039984,000126: 16,2703 05140 TC WAITLIST
039985,000127: 16,2704 E6,1742 EBANK= BZERO
039986,000128: 16,2704 03313 34066 2CADR ROLLDAP
039987,000129:
039988,000130: 16,2706 04633 NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR)
039989,000131: 16,2707 42404 CADR NEEDLER # (NEEDLES RESTARTS ITSELF)
039990,000132:
039991,000133: # Page 909
039992,000134: 16,2710 34676 VARGAINS CAF BIT13 # CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
039993,000135: 16,2711 00006 EXTEND # GAINS AND MASS IF ENGINE OFF
039994,000136: 16,2712 02011 RAND DSALMOUT # CHANNEL 11
039995,000137: 16,2713 10000 CCS A
039996,000138: 16,2714 12720 TCF +4 # ON, SO OK TO UPDATE GAINS AND MASS
039997,000139: 16,2715 34711 +5 CAF TWO # OFF, SO BYPASS MASS/GAIN UPDATES,
039998,000140: 16,2716 55661 TS TVCEXPHS # ALSO ENTRY FROM CCS BELOW WITH
039999,000141: 16,2717 12750 TCF SWT/COR # VCNTR = -0 (V97 R40 ENGFAIL)
040000,000142:
040001,000143: 16,2720 11653 CCS VCNTR # TEST FOR GAIN OF UPDATE TIME
040002,000144: 16,2721 12725 TCF +4 # NOT YET
040003,000145: 16,2722 12731 TCF GAINCHNG # NOW
040004,000146: 16,2723 12723 TCF +0 # NOT USED
040005,000147: 16,2724 12715 TCF VARGAINS +5 # NO, LOTHRUST (S40.6 R40)
040006,000148:
040007,000149: 16,2725 55663 +4 TS VCNTRTMP # PROTECT VCNTR AND
040008,000150: 16,2726 31474 CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN
040009,000151: 16,2727 55662 TS MASSTMP
040010,000152: 16,2730 12741 TCF EXECCOPY
040011,000153:
040012,000154: 16,2731 04633 GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
040013,000155: 16,2732 13243 CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED)
040014,000156: 16,2733 03145 TC S40.15 # UPDATE 1/CONACC, VARK
040015,000157: 16,2734 41647 CS TENMDOT # UPDATE MASS FOR NEXT 10 SEC. OF BURN
040016,000158: 16,2735 61474 AD CSMMASS
040017,000159: 16,2736 55662 TS MASSTMP # KG B+16
040018,000160:
040019,000161: 16,2737 34374 CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
040020,000162: 16,2740 55663 NOUPDATE TS VCNTRTMP # (COUNTDOWN, FROM VARGAINS +1)
040021,000163:
040022,000164: 16,2741 25661 EXECCOPY INCR TVCEXPHS # RESTART-PROTECT TEH COPYCYCLE (1)
040023,000165:
040024,000166: 16,2742 31662 CAE MASSTMP # CSMMASS KG B+16
040025,000167: 16,2743 55474 TS CSMMASS
040026,000168:
040027,000169: 16,2744 31663 CAE VCNTRTMP # VCNTR
040028,000170: 16,2745 55653 TS VCNTR
040029,000171: 16,2746 55444 TS V97VCNTR # FOR ENGFAIL (R41) MASS UPATES AT SPSOFF
040030,000172:
040031,000173: 16,2747 25661 INCR TVCEXPHS # COPYCYCLE OVER (2)
040032,000174:
040033,000175: 16,2750 11447 SWT/COR CCS CNTR # CHECK FOR SWITCHOVER/CG.CORRECTION
040034,000176: 16,2751 12755 TCF +4 # NOT YET
040035,000177: 16,2752 12773 TCF SWTCHOVR # NOW
040036,000178: 16,2753 12761 TCF REPCHEK # PRIOR SWITCHOVER (OR NONE)
040037,000179: 16,2754 12773 TCF SWTCHOVR # NOW (1/2 SEC SWITCHOVER, ONLY)
040038,000180:
040039,000181: 16,2755 55707 +4 TS CNTRTMP # COUNT DOWN
040040,000182: 16,2756 34716 CAF SEVEN # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
040041,000183: 16,2757 55661 TS TVCEXPHS
040042,000184: # Page 910
040043,000185: 16,2760 13122 TCF CNTRCOPY
040044,000186:
040045,000187: 16,2761 31652 REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
040046,000188: 16,2762 00006 EXTEND
040047,000189: 16,2763 62770 BZMF +5 # NO (NEG OR +-ZERO)
040048,000190: 16,2764 55446 TS TEMPDAP +1 # YES, SET UP CORRECTION FUNCTION
040049,000191: 16,2765 34715 CAF FIVE # ADVANCE TVCEXPHS
040050,000192: 16,2766 55661 TS TVCEXPHS
040051,000193: 16,2767 13053 TCF CORSETUP
040052,000194:
040053,000195: 16,2770 34707 +5 CAF EIGHT
040054,000196: 16,2771 55661 TS TVCEXPHS
040055,000197: 16,2772 13125 TCF STRKUP
040056,000198:
040057,000199: 16,2773 34676 SWTCHOVR CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
040058,000200: 16,2774 00006 EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
040059,000201: 16,2775 02011 RAND DSALMOUT # TAILOFF
040060,000202: 16,2776 10000 CCS A
040061,000203: 16,2777 13001 TCF +2 # OK TO SWITCHOVER
040062,000204: 16,3000 13142 TCF TVCEXFIN # DON'T SWITCHOVER, TERMINATE
040063,000205:
040064,000206: 16,3001 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG (SWTOVER) FOR DWNLNK
040065,000207: 16,3002 74674 MASK BIT15 # AND POST-BURN TRIM UPDATES (SEE
040066,000208: 16,3003 26105 ADS FLAGWRD9 # "BESTTRIM" (P40-P47))
040067,000209:
040068,000210: 16,3004 31466 CAE DAPDATR1 # SWITCHOVER.... CHECK FOR LEM-OFF/ON
040069,000211: 16,3005 74676 MASK BIT13 # (NOTE, SHOWS LEM-OFF)
040070,000212: 16,3006 00006 EXTEND
040071,000213: 16,3007 13013 BZF GAINDOWN # LEM-ON....FULL SWITCHOVER/CG.CORRECTION
040072,000214:
040073,000215: 16,3010 34710 CAF FOUR # LEM-OFF....NO SWITCHOVER, JUST CG.CORR
040074,000216: 16,3011 55661 TS TVCEXPHS
040075,000217: 16,3012 13050 TCF TEMPSET
040076,000218:
040077,000219: 16,3013 31420 GAINDOWN CAE ETVCDT/2 # LEM-ON.... DROP GAIN BY (OLDTVCDT/8CS)SQ
040078,000220: 16,3014 00006 EXTEND
040079,000221: 16,3015 74706 MP BIT5
040080,000222: 16,3016 22000 LXCH A
040081,000223: 16,3017 00006 EXTEND
040082,000224: 16,3020 70000 MP A
040083,000225: 16,3021 22000 LXCH A # (TVCDT/8CS)SQD, SC.AT 8+2
040084,000226:
040085,000227: 16,3022 00006 EXTEND # PREPARE NEW GAIN CONSTANT
040086,000228: 16,3023 71646 MP KTLX/I
040087,000229: 16,3024 20001 DDOUBL
040088,000230: 16,3025 20001 DDOUBL
040089,000231: 16,3026 55702 TS TKTLX/I # (FOR COPYCYCLE)
040090,000232:
040091,000233: 16,3027 25661 SWTCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (3)
040092,000234: # Page 911
040093,000235: 16,3030 37677 CAF OCT37774 # LEM-ON ONLY..... T5 TIMER
040094,000236: 16,3031 55635 TS T5TVCDT
040095,000237:
040096,000238: 16,3032 31414 CAE EKPRIME +1 # PREPARE KPRIMEDT FOR 80MS DAP, USING
040097,000239: 16,3033 60000 DOUBLE
040098,000240: 16,3034 60000 DOUBLE
040099,000241: 16,3035 55644 TS KPRIMEDT # (KPRIMEDT+1 IS ZERO)
040100,000242:
040101,000243: # SCALING OF OMEGAC HAS CHANGED, BUT NO
040102,000244: # CHANGE OF REGISTERS. RATE COMMANDS
040103,000245: # ARE LOW BY (OLD TVCDT)/80, UNTIL
040104,000246: # NEXT S40.6 COMPUTATION, WHICH USES
040105,000247: # THE NEW KPRIMEDT.
040106,000248:
040107,000249: 16,3036 31702 CAE TKTLX/I # GAIN CONSTANT
040108,000250: 16,3037 55646 TS KTLX/I
040109,000251:
040110,000252: 16,3040 03154 TC S40.15 +7 # UPDATE VARK (ONLY, NO CHANGE 1/CONACC)
040111,000253:
040112,000254: 16,3041 11614 STRKCALL CCS STROKER # CHECK STROKER FOR VERB 68 INDICATION
040113,000255: 16,3042 13047 TCF +5 # STROKE TEST IN PROGRESS (80MS DAP)
040114,000256: 16,3043 13047 TCF +4 # +0 SAYS NO VERB 68 YET
040115,000257: 16,3044 13047 TCF +3 # STROKE TEST IN PROGRESS (80MS DAP)
040116,000258: 16,3045 34707 CAF EIGHT # -0 SAYS PRIOR VERB68, SO START
040117,000259: 16,3046 55664 TS STRKTIME # STROKE TEST IN 4 SECONDS
040118,000260:
040119,000261: 16,3047 25661 +543 INCR TVCEXPHS # COPYCYCLE OVER (SWITCHOVR ENTRY NEXT) (4)
040120,000262:
040121,000263: 16,3050 31422 TEMPSET CAE ECORFRAC # SET UP CORRECTION FRACTION
040122,000264: 16,3051 55446 TS TEMPDAP +1
040123,000265:
040124,000266: 16,3052 25661 INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (5)
040125,000267:
040126,000268: 16,3053 31466 CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
040127,000269: 16,3054 74676 MASK BIT13 # (NOTE, SHOWS LEM-OFF)
040128,000270: 16,3055 00006 EXTEND
040129,000271: 16,3056 13060 BZF +2 # LEM IS ON, PICK UP TEMPDAP+1
040130,000272: 16,3057 31446 CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1)
040131,000273: 16,3060 61446 AD TEMPDAP +1
040132,000274: 16,3061 55445 TS TEMPDAP # CG.CORR USES TEMPDAP
040133,000275:
040134,000276: 16,3062 37716 CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
040135,000277: 16,3063 55707 TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY")
040136,000278:
040137,000279: 16,3064 00006 CG.CORR EXTEND # PITCH TRIM-TRACKER CORRECTION
040138,000280: 16,3065 31626 DCA PDELOFF
040139,000281: 16,3066 53704 DXCH PACTTMP
040140,000282: 16,3067 41425 CS PACTOFF
040141,000283: 16,3070 61621 AD DELPBAR
040142,000284: 16,3071 00006 EXTEND
040143,000285: # Page 912
040144,000286: 16,3072 71445 MP TEMPDAP
040145,000287: 16,3073 20001 DDOUBL
040146,000288: 16,3074 20001 DDOUBL
040147,000289: 16,3075 21704 DAS PACTTMP
040148,000290:
040149,000291: 16,3076 00006 EXTEND
040150,000292: 16,3077 31630 DCA YDELOFF
040151,000293: 16,3100 53706 DXCH YACTTMP
040152,000294: 16,3101 41426 CS YACTOFF
040153,000295: 16,3102 61623 AD DELYBAR
040154,000296: 16,3103 00006 EXTEND
040155,000297: 16,3104 71445 MP TEMPDAP
040156,000298: 16,3105 20001 DDOUBL
040157,000299: 16,3106 20001 DDOUBL
040158,000300: 16,3107 21706 DAS YACTTMP
040159,000301:
040160,000302: 16,3110 25661 CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (6)
040161,000303:
040162,000304: 16,3111 00006 EXTEND # TRIM-ESTIMATES, AND
040163,000305: 16,3112 31704 DCA PACTTMP
040164,000306: 16,3113 55425 TS PACTOFF # TRIMS
040165,000307: 16,3114 53626 DXCH PDELOFF
040166,000308:
040167,000309: 16,3115 00006 EXTEND
040168,000310: 16,3116 31706 DCA YACTTMP
040169,000311: 16,3117 55426 TS YACTOFF
040170,000312: 16,3120 53630 DXCH YDELOFF
040171,000313:
040172,000314: 16,3121 25661 INCR TVCEXPHS # COPYCYCLE OVER (SWT/COR ENTRY NEXT) (7)
040173,000315:
040174,000316: 16,3122 31707 CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
040175,000317: 16,3123 55447 TS CNTR
040176,000318:
040177,000319: 16,3124 25661 INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (8)
040178,000320:
040179,000321: 16,3125 11664 STRKUP CCS STRKTIME # CHECK STROKE TEST START TIME
040180,000322: 16,3126 13131 TCF +3 # IN 4SEC DELAY AFTER SWITCHOVER
040181,000323: 16,3127 13133 TCF STRKNOW # START STROKE TEST NOW....
040182,000324: 16,3130 13142 TCF TVCEXFIN # NO STROKE TEST REQUEST YET
040183,000325:
040184,000326: 16,3131 55710 TS STRKTTMP # COUNT DOWN
040185,000327: 16,3132 13137 TCF STRKTCPY
040186,000328:
040187,000329: 16,3133 31412 STRKNOW CAE ESTROKER # START THE STROKE TEST NOW....
040188,000330: 16,3134 55614 TS STROKER
040189,000331: 16,3135 37716 CAF NEGONE # KILL THE STROKE TEST CALL
040190,000332: 16,3136 55710 TS STRKTTMP
040191,000333:
040192,000334: 16,3137 25661 STRKTCPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (9)
040193,000335: # Page 913
040194,000336: 16,3140 31710 CAE STRKTTMP
040195,000337: 16,3141 55664 TS STRKTIME
040196,000338:
040197,000339: 16,3142 34714 TVCEXFIN CAF ZERO # RESET TVCEXPHS
040198,000340: 16,3143 55661 TS TVCEXPHS
040199,000341:
040200,000342: 16,3144 15213 TCF TASKOVER # OVER AND OUT
040201,000343:
040202,000344: # Page 914
040203,000345: # NAME S40.15 INERTIA COMPUTATIONS
040204,000346:
040205,000347: 16,3145 E6,1650 EBANK= 1/CONACC
040206,000348:
040207,000349: 16,3145 31470 S40.15 CAE IXX # COMPUTE 1/CONACC (RACC)....IXX SC.AT
040208,000350: 16,3146 00006 EXTEND # B+20 KG M SQD
040209,000351: 16,3147 73164 MP 2PI/M # 2PI/M, SC.AT 1/(B+8 N M)
040210,000352: 16,3150 20001 DDOUBL
040211,000353: 16,3151 20001 DDOUBL
040212,000354: 16,3152 20001 DDOUBL
040213,000355: 16,3153 55650 TS 1/CONACC # SC.AT B+9 SEC SQD / REV
040214,000356:
040215,000357: 16,3154 31646 +7 CAE KTLX/I # COMPUTE VARK, SCALING IN THE KTLX/I FOR
040216,000358: 16,3155 00006 EXTEND # LM-OFF,ON. ENTRY FROM SWITCHOVER
040217,000359: 16,3156 71472 MP IAVG/TLX # SCALED AT B+2 SECONDS-SQUARED
040218,000360: 16,3157 20001 DDOUBL # SCALING
040219,000361: 16,3160 20001 DDOUBL
040220,000362: 16,3161 20001 DDOUBL
040221,000363: 16,3162 55651 TS VARK # LEM-OFF KPGEN3(0) OR LEM-ON VARK(0)
040222,000364:
040223,000365: 16,3163 00002 TC Q
040224,000366:
040225,000367: 16,3164 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SC.AT 1/(B+8 N M)
End of include-file TVCEXECUTIVE.agc. Parent file is MAIN.agc