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