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