Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

039014,000002:                                                                                                 #  Copyright:    Public domain.
039015,000003:                                                                                                 #  Filename:      TVCEXECUTIVE.agc
039016,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
039017,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
039018,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
039019,000007:                                                                                                 #  Assembler:    yaYUL
039020,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
039021,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
039022,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
039023,000011:                                                                                                 #  Mod history:  2011-03-06 JL    Adapted from corresponding Colossus 249 file.
039024,000012: 
039025,000013:                                                                                                 # # Page 900
039026,000014:                                                                                                 #  PROGRAM NAME.... DVCEXECUTIVE, CONSISTING OF TVCEXEC, NEEDLEUP, VARGAINS
039027,000015:                                                                                                 #                   REPCHEK, SWTCHOVR, CG.CORR, STRKUP, TVCEXFIN, ETC.
039028,000016:                                                                                                 #  LOG SECTION....TVCEXECUTIVE     SUBROUTINE ....DAPCSM
039029,000017:                                                                                                 #  MOD BY ENGEL                    DATE 23 OCT, 1967
039030,000018: 
039031,000019:                                                                                                 #  FUNCTIONAL DESCRIPTION....
039032,000020: 
039033,000021:                                                                                                 #      *A SELF-PERPETUATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH:
039034,000022:                                                                                                 #       PREPARES THE ROLL TVC DAP LADDERS
039035,000023:                                                                                                 #       PREPARES THE ROLL FDAI NEEDLE (FLY-TO  OGA ERROR)
039036,000024:                                                                                                 #       PREPARES THE ROLL PHASE PLANE  OGAERR  (FLY-FROM  OGA ERROR)
039037,000025:                                                                                                 #       PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY)
039038,000026:                                                                                                 #       UPDATES THE NEEDLES DISPLAY
039039,000027:                                                                                                 #       IMPLEMENTS VARIABLE GAINS AND VARIABLE VEHICLE MASS
039040,000028:                                                                                                 #       PROVIDES FOR SWITCHOVER
039041,000029:                                                                                                 #       PROVIDES FOR A SINGLE-SHOT THRUST MISALIGNMENT CORRECTION AT SWTOVR
039042,000030:                                                                                                 #       PROVIDES FOR REPETITIVE THRUST MISALIGNMENT CORRECTIONS FOLLOWING
039043,000031:                                                                                                 #             SWITCHOVER
039044,000032:                                                                                                 #       PERFORMS CERTAIN STROKE TEST FUNCTIONS
039045,000033: 
039046,000034:                                                                                                 #  CALLING SEQUENCE....
039047,000035: 
039048,000036:                                                                                                 #      *TVCEXEC CALLED AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY
039049,000037:                                                                                                 #       ITSELF, BOTH AT 1/2 SECOND INTERVALS
039050,000038: 
039051,000039:                                                                                                 #  NORMAL EXIT MODE.... TASKOVER
039052,000040: 
039053,000041:                                                                                                 #  ALARM OR ABORT EXIT MODES.... NONE
039054,000042: 
039055,000043:                                                                                                 #  SUBROUTINES CALLED....NEEDLER, S40.15, MASSPROP, TASKOVER, IBNKCALL
039056,000044: 
039057,000045:                                                                                                 #  OTHER INTERFACES....
039058,000046: 
039059,000047:                                                                                                 #      *TVCRESTART PACKAGE FOR RESTARTS
039060,000048:                                                                                                 #      *PITCHDAP, YAWDAP FOR VARIABLE GAINS AND ENGINE TRIM ANGLES
039061,000049:                                                                                                 #      *S40.6 KPRIMEDT AT SWITCHOVER
039062,000050: 
039063,000051:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED....
039064,000052: 
039065,000053:                                                                                                 #      *SEE TVCDAPON....TVCINIT4
039066,000054:                                                                                                 #      *VARK AND 1/CONACC (S40.15 OF R03)
039067,000055:                                                                                                 #      *V68 INITIALIZATION PRIOR TO SWITCHOVER OR FOLLOWING A RESTART
039068,000056:                                                                                                 #       DURING A STROKE TEST, IF STROKE TEST FUNCTIONS ARE TO BE TESTED
039069,000057:                                                                                                 #      *PAD LOADS EREPFRAC, ECORFRAC ETC.
039070,000058:                                                                                                 #      *BITS 15,14 OF FLAGWRD6 (T5 BITS)
039071,000059:                                                                                                 #      *TVCEXPHS FOR RESTARTS
039072,000060:                                                                                                 #      *ENGINE-ON BIT (11.13) FOR RESTARTS
039073,000061:                                                                                                 #      *CDUX, OGAD
039074,000062: 
039075,000063:                                                                                                 #  OUTPUT....
039076,000064:                                                                                                 # # Page 901
039077,000065:                                                                                                 #      *ROLL TVC DAP LADDERS, FDAI NEEDLE (AK), AND PHASE PLANE OGAERR
039078,000066:                                                                                                 #      *VARIABLE GAINS FOR PITCH/YAW AND ROLL TVC DAPS
039079,000067:                                                                                                 #      *SINGLE-SHOT AND REPETITIVE CORRECTIONS TO ENGINE TRIM ANGLES
039080,000068:                                                                                                 #       PACTOFF AND YACTOFF
039081,000069:                                                                                                 #      *CHANGES TO DAP SAMPLE RATES, DAP GAINS, AND STEERING-GAIN SCALING
039082,000070:                                                                                                 #       AT (LEM-ON) SWITCHOVER
039083,000071:                                                                                                 #      *STROKER, 4 SECONDS AFTER SWITCHOVER WHEN PRIOR V66, OR 2.5
039084,000072:                                                                                                 #       SECONDS AFTER RESTART DURING A STROKE TEST
039085,000073: 
039086,000074:                                                                                                 #  DEBRIS.... MUCH, BUT SHAREABLE WITH RCS/ENTRY, ALL IN EBANK6
039087,000075: 
039088,000076: 
039089,000077: 16,2660                                          BANK     16                                    
039090,000078: 16,2000                                          SETLOC   DAPROLL                               
039091,000079: 16,2000                                          BANK                                           
039092,000080: 16,2660  E6,1742                                 EBANK=   BZERO                                 
039093,000081: 16,2660                                          COUNT*   $$/TVCX                               
039094,000082: 16,2660           40102        TVCEXEC           CS       FLAGWRD6                              #  CHECK FOR TERMINATION (BITS 15,14 READ
039095,000083: 16,2661           74105                          MASK     OCT60000                              #       10 FROM TVCDAPON TO RCSDAPON)
039096,000084: 16,2662           00006                          EXTEND                                         
039097,000085: 16,2663           63142                          BZMF     TVCEXFIN                              #  TERMINATE
039098,000086: 
039099,000087: 16,2664           34731                          CAF      .5SEC                                 #  W.L. CALL TO PERPETUATE TVCEXEC
039100,000088: 16,2665           05140                          TC       WAITLIST                              
039101,000089: 16,2666  E6,1742                                 EBANK=   BZERO                                 
039102,000090: 16,2666           02660 34066                    2CADR    TVCEXEC                               
039103,000091: 
039104,000092: 16,2670           30032        ROLLPREP          CAE      CDUX                                  #  UPDATE ROLL LADDERS (NO NEED TO RESTART-
039105,000093: 16,2671           57672                          XCH      OGANOW                                #       PROTECT, SINCE ROLL DAPS RE-START)
039106,000094: 16,2672           57673                          XCH      OGAPAST                               
039107,000095: 
039108,000096: 16,2673           31450                          CAE      OGAD                                  #  PREPARE ROLL FDAI NEEDLE WTIH FLY-TO
039109,000097: 16,2674           00006                          EXTEND                                         #       ERROR (COMMAND - MEASURED)
039110,000098: 16,2675           21672                          MSU      OGANOW                                
039111,000099: 16,2676           55476                          TS       AK                                    #  FLY-TO OGA ERROR, SC.AT B-1 REVS
039112,000100: 
039113,000101: 16,2677           00006                          EXTEND                                         #  PREPARE ROLL DAP PHASE PLANE  OGAERR
039114,000102: 16,2700           77705                          MP       -BIT14                                
039115,000103: 16,2701           55674                          TS       OGAERR                                #  PHASE-PLANE (FLY-FROM) OGAERROR,
039116,000104:                                                                                                 #                                                SC.AT B+0 REVS
039117,000105: 
039118,000106: 16,2702           36214                          CAF      THREE                                 #  SET UP ROLL DAP TASK (ALLOW SOME TIME)
039119,000107: 16,2703           05140                          TC       WAITLIST                              
039120,000108: 16,2704  E6,1742                                 EBANK=   BZERO                                 
039121,000109: 16,2704           03312 34066                    2CADR    ROLLDAP                               
039122,000110: 16,2706           04633        NEEDLEUP          TC       IBNKCALL                              #  DO A NEEDLES UPDATE (RETURNS AFTER CADR)
039123,000111: 16,2707           42404                          CADR     NEEDLER                               #       (NEEDLES RESTARTS ITSELF)
039124,000112: 
039125,000113:                                                                                                 # # Page 902
039126,000114: 16,2710           34676        VARGAINS          CAF      BIT13                                 #  CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
039127,000115: 16,2711           00006                          EXTEND                                         #       GAINS AND MASS IF ENGINE OFF
039128,000116: 16,2712           02011                          RAND     DSALMOUT                              #  CHANNEL 11
039129,000117: 16,2713           10000                          CCS      A                                     
039130,000118: 16,2714           12720                          TCF      +4                                    #      ON , SO OK TO UPDATE GAINS AND MASS
039131,000119: 16,2715           34711                 +5       CAF      TWO                                   #       OFF, SO BYPASS MASS/GAIN UPDATES,
039132,000120: 16,2716           55661                          TS       TVCEXPHS                              #             ALSO ENTRY FROM CCS BELOW WITH
039133,000121: 16,2717           12750                          TCF      SWT/COR                               #             VCNTR = -0 (V97 R40 ENGFAIL)
039134,000122: 
039135,000123: 16,2720           11653                          CCS      VCNTR                                 #       TEST FOR GAIN OF UPDATE TIME
039136,000124: 16,2721           12725                          TCF      +4                                    #            NOT YET
039137,000125: 16,2722           12731                          TCF      GAINCHNG                              #            NOW
039138,000126: 16,2723           12723                          TCF      +0                                    #            NOT USED
039139,000127: 16,2724           12715                          TCF      VARGAINS   +5                         #            NO, LOTHRUST (S40.8 R40)
039140,000128: 
039141,000129: 16,2725           55663                 +4       TS       VCNTRTMP                              #       PROTECT VCNTR AND
039142,000130: 16,2726           31474                          CAE      CSMMASS                               #      CSMMASS DURING AN IMPULSIVE BURN
039143,000131: 16,2727           55662                          TS       MASSTMP                               
039144,000132: 16,2730           12741                          TCF      EXECCOPY                              
039145,000133: 
039146,000134: 16,2731           04633        GAINCHNG          TC       IBNKCALL                              #  UPDATE IXX, IAVG, IAVG/TLX
039147,000135: 16,2732           13232                          CADR     FIXCW                                 #  MASSPROP ENTRY  (ALREADY INITIALIZED)
039148,000136: 16,2733           03145                          TC       S40.15                                #  UPDATE 1/CONACC, VARK
039149,000137: 16,2734           41647                          CS       TENMDOT                               #  UPDATE MASS FOR NEXT 10 SEC. OF BURN
039150,000138: 16,2735           61474                          AD       CSMMASS                               
039151,000139: 16,2736           55662                          TS       MASSTMP                               #  KG B+16
039152,000140: 
039153,000141: 16,2737           34374                          CAF      NINETEEN                              #  RESET THE VARIABLE-GAIN UPDATE COUNTER
039154,000142: 16,2740           55663        NOUPDATE          TS       VCNTRTMP                              #  (COUNTDOWN, FROM VARGAINS +1)
039155,000143: 
039156,000144: 16,2741           25661        EXECCOPY          INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE        (1)
039157,000145: 
039158,000146: 16,2742           31662                          CAE      MASSTMP                               #  CSMMASS KG B+16
039159,000147: 16,2743           55474                          TS       CSMMASS                               
039160,000148: 
039161,000149: 16,2744           31663                          CAE      VCNTRTMP                              #  VCNTR
039162,000150: 16,2745           55653                          TS       VCNTR                                 
039163,000151: 16,2746           55444                          TS       V97VCNTR                              #  FOR ENGFAIL (R41) MASS UPDATES AT SPSOFF
039164,000152: 
039165,000153: 16,2747           25661                          INCR     TVCEXPHS                              #  COPYCYCLE OVER                       (2)
039166,000154: 
039167,000155: 16,2750           11447        SWT/COR           CCS      CNTR                                  #  CHECK FOR SWITCHOVER/CG.CORRECTION
039168,000156: 16,2751           12755                          TCF      +4                                    #       NOT YET
039169,000157: 16,2752           12773                          TCF      SWTCHOVR                              #       NOW
039170,000158: 16,2753           12761                          TCF      REPCHEK                               #       PRIOR SWITCHOVER (OR NONE)
039171,000159: 16,2754           12773                          TCF      SWTCHOVR                              #       NOW (1/2 SEC SWITCHOVER, ONLY)
039172,000160: 
039173,000161: 16,2755           55707                 +4       TS       CNTRTMP                               #  COUNT DOWN
039174,000162: 16,2756           34716                          CAF      SEVEN                                 #  SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
039175,000163: 16,2757           55661                          TS       TVCEXPHS                              
039176,000164:                                                                                                 # # Page 903
039177,000165: 16,2760           13122                          TCF      CNTRCOPY                              
039178,000166: 
039179,000167: 16,2761           31652        REPCHEK           CAE      REPFRAC                               #  CHECK FOR REPETITIVE UPDATES
039180,000168: 16,2762           00006                          EXTEND                                         
039181,000169: 16,2763           62770                          BZMF     +5                                    #       NO   (NEG OR +-ZERO)
039182,000170: 16,2764           55446                          TS       TEMPDAP    +1                         #       YES, SET UP CORRECTION FUNCTION
039183,000171: 16,2765           34715                          CAF      FIVE                                  #            ADVANCE TVCEXPHS
039184,000172: 16,2766           55661                          TS       TVCEXPHS                              
039185,000173: 16,2767           13053                          TCF      CORSETUP                              
039186,000174: 
039187,000175: 16,2770           34707                 +5       CAF      EIGHT                                 
039188,000176: 16,2771           55661                          TS       TVCEXPHS                              
039189,000177: 16,2772           13125                          TCF      STRKUP                                
039190,000178: 
039191,000179: 16,2773           34676        SWTCHOVR          CAF      BIT13                                 #  CHECK ENGINE-ON BIT, NOT PERMITTING
039192,000180: 16,2774           00006                          EXTEND                                         #       SWITCHOVER DURING ENGINE-SHUTDOWN
039193,000181: 16,2775           02011                          RAND     DSALMOUT                              #       TAILOFF
039194,000182: 16,2776           10000                          CCS      A                                     
039195,000183: 16,2777           13001                          TCF      +2                                    #  OK TO SWITCHOVER
039196,000184: 16,3000           13142                          TCF      TVCEXFIN                              #  DONT SWITCHOVER, TERMINATE
039197,000185: 
039198,000186: 16,3001           40105                          CS       FLAGWRD9                              #  SET SWITCHOVER FLAG (SWTOVER) FOR DWNLNK
039199,000187: 16,3002           74674                          MASK     BIT15                                 #       AND POST-BURN TRIM UPDATES (SEE
039200,000188: 16,3003           26105                          ADS      FLAGWRD9                              #       ..BESTTRIM.. (P40-P47))
039201,000189: 
039202,000190: 16,3004           31466                          CAE      DAPDATR1                              #  SWITCHOVER....CHECK FOR LEM-OFF/ON
039203,000191: 16,3005           74676                          MASK     BIT13                                 #  (NOTE, SHOWS LEM-OFF)
039204,000192: 16,3006           00006                          EXTEND                                         
039205,000193: 16,3007           13013                          BZF      GAINDOWN                              #  LEM-ON....FULL SWITCHOVER/CG.CORRECTION
039206,000194: 
039207,000195: 16,3010           34710                          CAF      FOUR                                  #  LEM-OFF....NO SWITCHOVER, JUST CG.CORR.
039208,000196: 16,3011           55661                          TS       TVCEXPHS                              
039209,000197: 16,3012           13050                          TCF      TEMPSET                               
039210,000198: 
039211,000199: 16,3013           31420        GAINDOWN          CAE      ETVCDT/2                              #  LEM-ON.... DROP GAIN BY (OLDTVCDT/8CS)SQ
039212,000200: 16,3014           00006                          EXTEND                                         
039213,000201: 16,3015           74706                          MP       BIT5                                  
039214,000202: 16,3016           22000                          LXCH     A                                     
039215,000203: 16,3017           00006                          EXTEND                                         
039216,000204: 16,3020           70000                          MP       A                                     
039217,000205: 16,3021           22000                          LXCH     A                                     #  (TVCDT/8CS)SQD, SC.AT 8+2
039218,000206: 
039219,000207: 16,3022           00006                          EXTEND                                         #  PREPARE NEW GAIN CONSTANT
039220,000208: 16,3023           71646                          MP       KTLX/I                                
039221,000209: 16,3024           20001                          DDOUBL                                         
039222,000210: 16,3025           20001                          DDOUBL                                         
039223,000211: 16,3026           55702                          TS       TKTLX/I                               #  (FOR COPYCYCLE)
039224,000212: 
039225,000213: 16,3027           25661        SWTCOPY           INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE         (3)
039226,000214: 
039227,000215:                                                                                                 # # Page 904
039228,000216: 16,3030           37677                          CAF      OCT37774                              #  LEM-ON ONLY..... T5 TIMER
039229,000217: 16,3031           55635                          TS       T5TVCDT                               
039230,000218: 
039231,000219: 16,3032           31414                          CAE      EKPRIME    +1                         #  PREPARE KPRIMEDT FOR 80MS DAP, USING
039232,000220: 16,3033           60000                          DOUBLE                                         
039233,000221: 16,3034           60000                          DOUBLE                                         
039234,000222: 16,3035           55644                          TS       KPRIMEDT                              #       (KPRIMEDT+1 IS ZERO)
039235,000223: 
039236,000224:                                                                                                 #                                           SCALING OF OMEGAC HAS CHANGED, BUT NO
039237,000225:                                                                                                 #                                                CHANGE OF REGISTERS.  RATE COMMANDS
039238,000226:                                                                                                 #                                                ARE LOW BY  (OLD TVCDT)/80,  UNTIL
039239,000227:                                                                                                 #                                                NEXT S40.6 COMPUTATION, WHICH USES
039240,000228:                                                                                                 #                                                THE NEW  KPRIMEDT.
039241,000229: 
039242,000230: 16,3036           31702                          CAE      TKTLX/I                               #  GAIN CONSTANT
039243,000231: 16,3037           55646                          TS       KTLX/I                                
039244,000232: 
039245,000233: 16,3040           03154                          TC       S40.15     +7                         #  UPDATE VARK (ONLY, NO CHANGE 1/CONACC)
039246,000234: 
039247,000235: 16,3041           11614        STRKCALL          CCS      STROKER                               #  CHECK STROKER FOR VERB 68 INDICATION
039248,000236: 16,3042           13047                          TCF      +5                                    #       STROKE TEST IN PROGRESS (80MS DAP)
039249,000237: 16,3043           13047                          TCF      +4                                    #       +0 SAYS NO VERB 68 YET
039250,000238: 16,3044           13047                          TCF      +3                                    #       STROKE TEST IN PROGRESS (80MS DAP)
039251,000239: 16,3045           34707                          CAF      EIGHT                                 #       -0 SAYS PRIOR VERB68, SO START
039252,000240: 16,3046           55664                          TS       STRKTIME                              #            STROKE TEST IN 4 SECONDS
039253,000241: 
039254,000242: 16,3047           25661                 +543     INCR     TVCEXPHS                              #  COPYCYCLE OVER (SWTCHOVR ENTRY NEXT) (4)
039255,000243: 
039256,000244: 16,3050           31422        TEMPSET           CAE      ECORFRAC                              #         SET UP CORRECTION FRACTION
039257,000245: 16,3051           55446                          TS       TEMPDAP    +1                         
039258,000246: 
039259,000247: 16,3052           25661                          INCR     TVCEXPHS                              #  ENTRY FROM REPCHECK AT NEXT LOCATION (5)
039260,000248: 
039261,000249: 16,3053           31466        CORSETUP          CAE      DAPDATR1                              #  CHECK FOR LEM-OFF/ON
039262,000250: 16,3054           74676                          MASK     BIT13                                 #  (NOTE, SHOWS LEM-OFF)
039263,000251: 16,3055           00006                          EXTEND                                         
039264,000252: 16,3056           13060                          BZF      +2                                    #  LEM IS ON,  PICK UP   TEMPDAP+1
039265,000253: 16,3057           31446                          CAE      TEMPDAP    +1                         #  LEM IS OFF, PICK UP 2(TEMPDAP+1)
039266,000254: 16,3060           61446                          AD       TEMPDAP    +1                         
039267,000255: 16,3061           55445                          TS       TEMPDAP                               #  CG.CORR USES TEMPDAP
039268,000256: 
039269,000257: 16,3062           37716                          CAF      NEGONE                                #  SET UP FOR CNTR = -1 (SWTCHOVR DONE)
039270,000258: 16,3063           55707                          TS       CNTRTMP                               #       (COPYCYCLE AT  .CNTRCOPY. )
039271,000259: 
039272,000260: 16,3064           00006        CG.CORR           EXTEND                                         #  PITCH TRIM-TRACKER CORRECTION
039273,000261: 16,3065           31626                          DCA      PDELOFF                               
039274,000262: 16,3066           53704                          DXCH     PACTTMP                               
039275,000263: 16,3067           41425                          CS       PACTOFF                               
039276,000264: 16,3070           61621                          AD       DELPBAR                               
039277,000265: 16,3071           00006                          EXTEND                                         
039278,000266:                                                                                                 # # Page 905
039279,000267: 16,3072           71445                          MP       TEMPDAP                               
039280,000268: 16,3073           20001                          DDOUBL                                         
039281,000269: 16,3074           20001                          DDOUBL                                         
039282,000270: 16,3075           21704                          DAS      PACTTMP                               
039283,000271: 
039284,000272: 16,3076           00006                          EXTEND                                         
039285,000273: 16,3077           31630                          DCA      YDELOFF                               
039286,000274: 16,3100           53706                          DXCH     YACTTMP                               
039287,000275: 16,3101           41426                          CS       YACTOFF                               
039288,000276: 16,3102           61623                          AD       DELYBAR                               
039289,000277: 16,3103           00006                          EXTEND                                         
039290,000278: 16,3104           71445                          MP       TEMPDAP                               
039291,000279: 16,3105           20001                          DDOUBL                                         
039292,000280: 16,3106           20001                          DDOUBL                                         
039293,000281: 16,3107           21706                          DAS      YACTTMP                               
039294,000282: 
039295,000283: 16,3110           25661        CORCOPY           INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE        (6)
039296,000284: 
039297,000285: 16,3111           00006                          EXTEND                                         #  TRIM-ESTIMATES, AND
039298,000286: 16,3112           31704                          DCA      PACTTMP                               
039299,000287: 16,3113           55425                          TS       PACTOFF                               #         TRIMS
039300,000288: 16,3114           53626                          DXCH     PDELOFF                               
039301,000289: 
039302,000290: 16,3115           00006                          EXTEND                                         
039303,000291: 16,3116           31706                          DCA      YACTTMP                               
039304,000292: 16,3117           55426                          TS       YACTOFF                               
039305,000293: 16,3120           53630                          DXCH     YDELOFF                               
039306,000294: 
039307,000295: 16,3121           25661                          INCR     TVCEXPHS                              #  COPYCYCLE OVER (SWT/COR ENTRY NEXT)  (7)
039308,000296: 
039309,000297: 16,3122           31707        CNTRCOPY          CAE      CNTRTMP                               #  UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
039310,000298: 16,3123           55447                          TS       CNTR                                  
039311,000299: 
039312,000300: 16,3124           25661                          INCR     TVCEXPHS                              #  ENTRY FROM REPCHECK AT NEXT LOCATION (8)
039313,000301: 
039314,000302: 16,3125           11664        STRKUP            CCS      STRKTIME                              #  CHECK STROKE TEST START TIME
039315,000303: 16,3126           13131                          TCF      +3                                    #       IN 4SEC DELAY AFTER SWITCHOVER
039316,000304: 16,3127           13133                          TCF      STRKNOW                               #       START STROKE TEST NOW....
039317,000305: 16,3130           13142                          TCF      TVCEXFIN                              #       NO STROKE TEST REQUEST YET
039318,000306: 
039319,000307: 16,3131           55710                          TS       STRKTTMP                              #  COUNT DOWN
039320,000308: 16,3132           13137                          TCF      STRKTCPY                              
039321,000309: 
039322,000310: 16,3133           31412        STRKNOW           CAE      ESTROKER                              #  START THE STROKE TEST NOW....
039323,000311: 16,3134           55614                          TS       STROKER                               
039324,000312: 16,3135           37716                          CAF      NEGONE                                #  KILL THE STROKE TEST CALL
039325,000313: 16,3136           55710                          TS       STRKTTMP                              
039326,000314: 
039327,000315: 16,3137           25661        STRKTCPY          INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE        (9)
039328,000316: 
039329,000317:                                                                                                 # # Page 906
039330,000318: 16,3140           31710                          CAE      STRKTTMP                              
039331,000319: 16,3141           55664                          TS       STRKTIME                              
039332,000320: 
039333,000321: 16,3142           34714        TVCEXFIN          CAF      ZERO                                  #  RESET TVCEXPHS
039334,000322: 16,3143           55661                          TS       TVCEXPHS                              
039335,000323: 
039336,000324: 16,3144           15213                          TCF      TASKOVER                              #  OVER AND OUT
039337,000325: 
039338,000326:                                                                                                 # # Page 907
039339,000327:                                                                                                 #  NAME     S40.15 INERTIA COMPUTATIONS
039340,000328: 16,3145  E6,1650                                 EBANK=   1/CONACC                              
039341,000329: 
039342,000330: 16,3145           31470        S40.15            CAE      IXX                                   #  COMPUTE 1/CONACC (RACC)....IXX SC.AT
039343,000331: 16,3146           00006                          EXTEND                                         #       B+20  KG M SQD
039344,000332: 16,3147           73164                          MP       2PI/M                                 #  2PI/M, SC.AT  1/(B+8 N M)
039345,000333: 16,3150           20001                          DDOUBL                                         
039346,000334: 16,3151           20001                          DDOUBL                                         
039347,000335: 16,3152           20001                          DDOUBL                                         
039348,000336: 16,3153           55650                          TS       1/CONACC                              #  SC.AT  B+9  SEC SQD / REV
039349,000337: 
039350,000338: 16,3154           31646                 +7       CAE      KTLX/I                                #  COMPUTE VARK, SCALING IN THE KTLX/I FOR
039351,000339: 16,3155           00006                          EXTEND                                         #       LM-OFF,ON. ENTRY FROM SWITCHOVER
039352,000340: 16,3156           71472                          MP       IAVG/TLX                              #       SCALED AT B+2  SECONDS-SQUARED
039353,000341: 16,3157           20001                          DDOUBL                                         #       SCALING
039354,000342: 16,3160           20001                          DDOUBL                                         
039355,000343: 16,3161           20001                          DDOUBL                                         
039356,000344: 16,3162           55651                          TS       VARK                                  #       LEM-OFF KPGEN3(0) OR LEM-ON VARK(0)
039357,000345: 
039358,000346: 16,3163           00002                          TC       Q                                     
039359,000347: 
039360,000348: 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