Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

040296,000002:                                                                                                  ## Copyright:   Public domain.
040297,000003:                                                                                                  ## Filename:    TVCEXECUTIVE.agc
040298,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
040299,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
040300,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
040301,000007:                                                                                                  ## Assembler:   yaYUL
040302,000008:                                                                                                  ## Reference:   Begins at p. 903.
040303,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
040304,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
040305,000011:                                                                                                  ## Mod history: 08/22/04 RSB.   Transcribed.
040306,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
040307,000013:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
040308,000014:                                                                                                  ##                              original harcopy, as opposed to the PDF page
040309,000015:                                                                                                  ##                              numbers in 1701.pdf.
040310,000016:                                                                                                  ##              2017-01-20 RSB  Cross-diff'd comment text (not whitespace)
040311,000017:                                                                                                  ##                              vs the already-proofed corresponding Colossus
040312,000018:                                                                                                  ##                              237 and Comanche 55 source-code files
040313,000019:                                                                                                  ##                              and corrected errors found.
040314,000020:                                                                                                  ##
040315,000021:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
040316,000022:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
040317,000023:                                                                                                  ## document read, in part:
040318,000024:                                                                                                  ##
040319,000025:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
040320,000026:                                                                                                  ##      2021111-041.  October 28, 1968.  
040321,000027:                                                                                                  ##
040322,000028:                                                                                                  ##      This AGC program shall also be referred to as
040323,000029:                                                                                                  ##                              Colossus 1A
040324,000030:                                                                                                  ##
040325,000031:                                                                                                  ##      Prepared by
040326,000032:                                                                                                  ##                      Massachusetts Institute of Technology
040327,000033:                                                                                                  ##                      75 Cambridge Parkway
040328,000034:                                                                                                  ##                      Cambridge, Massachusetts
040329,000035:                                                                                                  ##      under NASA contract NAS 9-4065.
040330,000036:                                                                                                  ##
040331,000037:                                                                                                  ## Refer directly to the online document mentioned above for further information.
040332,000038:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
040333,000039:                                                                                                  ##
040334,000040:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
040335,000041:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
040336,000042:                                                                                                  ## source file, and then is proofed to incorporate any changes.
040337,000043: 

Page 903

040339,000045:                                                                                                  #  PROGRAM NAME....      TVCEXECUTIVE, CONSISTING OF TVCEXEC, NEEDLEUP, VARGAINS
040340,000046:                                                                                                  #                        REPCHEK, SWTCHOVR, CG.CORR, STRKUP, TVCEXFIN, ETC.
040341,000047:                                                                                                  #  LOG SECTION....       TVCEXECUTIVE    SUBROUTINE ....DAPCSM
040342,000048:                                                                                                  #  MOD BY ENGEL                          DATE 23 OCT, 1967
040343,000049: 
040344,000050:                                                                                                  #  FUNCTIONAL DESCRIPTION....
040345,000051:                                                                                                  #       *A SELF-PERPETUATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH:
040346,000052:                                                                                                  #        PREPARES THE ROLL TVC DAP LADDERS
040347,000053:                                                                                                  #        PREPARES THE ROLL FDAI NEEDLE (FLY-TO  OGA ERROR)
040348,000054:                                                                                                  #        PREPARES THE ROLL PHASE PLANE  OGAERR  (FLY-FROM  OGA ERROR)
040349,000055:                                                                                                  #        PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY)
040350,000056:                                                                                                  #        UPDATES THE NEEDLES DISPLAY
040351,000057:                                                                                                  #        IMPLEMENTS VARIABLE GAINS AND VARIABLE VEHICLE MASS
040352,000058:                                                                                                  #        PROVIDES FOR SWITCHOVER
040353,000059:                                                                                                  #        PROVIDES FOR A SINGLE-SHOT THRUST MISALIGNMENT CORRECTION AT SWTOVR
040354,000060:                                                                                                  #        PROVIDES FOR REPETITIVE THRUST MISALIGNMENT CORRECTIONS FOLLOWING
040355,000061:                                                                                                  #                SWITCHOVER
040356,000062:                                                                                                  #        PERFORMS CERTAIN STROKE TEST FUNCTIONS
040357,000063: 
040358,000064:                                                                                                  #  CALLING SEQUENCE....
040359,000065:                                                                                                  #       *TVCEXEC CALLED AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY
040360,000066:                                                                                                  #        ITSELF, BOTH AT 1/2 SECOND INTERVALS
040361,000067: 
040362,000068:                                                                                                  #  NORMAL EXIT MODE.... TASKOVER
040363,000069: 
040364,000070:                                                                                                  #  ALARM OR ABORT EXIT MODES.... NONE
040365,000071: 
040366,000072:                                                                                                  #  SUBROUTINES CALLED....NEEDLER, S40.15, MASSPROP, TASKOVER, IBNKCALL
040367,000073: 
040368,000074:                                                                                                  #  OTHER INTERFACES....
040369,000075:                                                                                                  #       *TVCRESTART PACKAGE FOR RESTARTS
040370,000076:                                                                                                  #       *PITCHDAP, YAWDAP FOR VARIABLE GAINS AND ENGINE TRIM ANGLES
040371,000077:                                                                                                  #       *S40.8 FOR KPRIMEDT AT SWITCHOVER
040372,000078: 
040373,000079:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED....
040374,000080:                                                                                                  #       *SEE TVCDAPON....TVCINIT4
040375,000081:                                                                                                  #       *VARK AND 1/CONACC (S40.15 OF R03)
040376,000082:                                                                                                  #       *V68 INITIALIZATION PRIOR TO SWITCHOVER OR FOLLOWING A RESTART
040377,000083:                                                                                                  #        DURING A STROKE TEST, IF STROKE TEST FUNCTIONS ARE TO BE TESTED
040378,000084:                                                                                                  #       *PAD LOADS EREPFRAC, ECORFRAC ETC.
040379,000085:                                                                                                  #       *BITS 15,14 OF FLAGWRD6 (T5 BITS)
040380,000086:                                                                                                  #       *TVCEXPHS FOR RESTARTS
040381,000087:                                                                                                  #       *ENGINE-ON BIT (11.13) FOR RESTARTS
040382,000088:                                                                                                  #       *CDUX, OGAD
040383,000089: 
040384,000090:                                                                                                  #  OUTPUT....

Page 904

040386,000092:                                                                                                  #       *ROLL TVC DAP LADDERS, FDAI NEEDLE (AK), AND PHASE PLANE OGAERR
040387,000093:                                                                                                  #       *VARIABLE GAINS FOR PITCH/YAW AND ROLL TVC DAPS
040388,000094:                                                                                                  #       *SINGLE-SHOT AND REPETITIVE CORRECTIONS TO ENGINE TRIM ANGLES
040389,000095:                                                                                                  #        PACTOFF AND YACTOFF
040390,000096:                                                                                                  #       *CHANGES TO DAP SAMPLE RATES, DAP GAINS, AND STEERING-GAIN SCALING
040391,000097:                                                                                                  #        AT (LEM-ON) SWITCHOVER
040392,000098:                                                                                                  #       *STROKER, 4 SECONDS AFTER SWITCHOVER WHEN PRIOR V66, OR 2.5
040393,000099:                                                                                                  #        SECONDS AFTER RESTART DURING A STROKE TEST
040394,000100: 
040395,000101:                                                                                                  #  DEBRIS....    MUCH, BUT SHAREABLE WITH RCS/ENTRY, ALL IN EBANK6
040396,000102: 
040397,000103: 16,2660                                           BANK     16                                    
040398,000104: 16,2000                                           SETLOC   DAPROLL                               
040399,000105: 16,2000                                           BANK                                           
040400,000106: 16,2660  E6,1742                                  EBANK=   BZERO                                 
040401,000107: 16,2660                                           COUNT*   $$/TVCX                               
040402,000108: 16,2660           40102        TVCEXEC            CS       FLAGWRD6                              #  CHECK FOR TERMINATION (BITS 15,14 READ
040403,000109: 16,2661           74105                           MASK     OCT60000                              #        10 FROM TVCDAPON TO RCSDAPON)
040404,000110: 16,2662           00006                           EXTEND                                         
040405,000111: 16,2663           63142                           BZMF     TVCEXFIN                              #  TERMINATE
040406,000112: 
040407,000113: 16,2664           34731                           CAF      .5SEC                                 #  W.L. CALL TO PERPETUATE TVCEXEC
040408,000114: 16,2665           05140                           TC       WAITLIST                              
040409,000115: 16,2666  E6,1742                                  EBANK=   BZERO                                 
040410,000116: 16,2666           02660 34066                     2CADR    TVCEXEC                               
040411,000117: 
040412,000118: 16,2670           30032        ROLLPREP           CAE      CDUX                                  #  UPDATE ROLL LADDERS (NO NEED TO RESTART-
040413,000119: 16,2671           57672                           XCH      OGANOW                                #        PROTECT, SINCE ROLL DAPS RE-START)
040414,000120: 16,2672           57673                           XCH      OGAPAST                               
040415,000121: 
040416,000122: 16,2673           31450                           CAE      OGAD                                  #  PREPARE ROLL FDAI NEEDLE WITH FLY-TO
040417,000123: 16,2674           00006                           EXTEND                                         #        ERROR (COMMAND - MEASURED)
040418,000124: 16,2675           21672                           MSU      OGANOW                                
040419,000125: 16,2676           55476                           TS       AK                                    #  FLY-TO OGA ERROR, SC.AT B-1 REVS
040420,000126: 
040421,000127: 16,2677           00006                           EXTEND                                         #  PREPARE ROLL DAP PHASE PLANE OGAERR
040422,000128: 16,2700           77705                           MP       -BIT14                                
040423,000129: 16,2701           55674                           TS       OGAERR                                #  PHASE-PLANE (FLY-FROM) OGAERROR,
040424,000130:                                                                                                  #        SC.AT B+0 REVS
040425,000131: 
040426,000132: 16,2702           36214                           CAF      THREE                                 #  SET UP ROLL DAP TASK (ALLOW SOME TIME)
040427,000133: 16,2703           05140                           TC       WAITLIST                              
040428,000134: 16,2704  E6,1742                                  EBANK=   BZERO                                 
040429,000135: 16,2704           03313 34066                     2CADR    ROLLDAP                               
040430,000136: 
040431,000137: 16,2706           04633        NEEDLEUP           TC       IBNKCALL                              #  DO A NEEDLES UPDATE (RETURNS AFTER CADR)
040432,000138: 16,2707           42404                           CADR     NEEDLER                               #        (NEEDLES RESTARTS ITSELF)
040433,000139: 

Page 905

040435,000141: 16,2710           34676        VARGAINS           CAF      BIT13                                 #  CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
040436,000142: 16,2711           00006                           EXTEND                                         #        GAINS AND MASS IF ENGINE OFF
040437,000143: 16,2712           02011                           RAND     DSALMOUT                              #  CHANNEL 11
040438,000144: 16,2713           10000                           CCS      A                                     
040439,000145: 16,2714           12720                           TCF      +4                                    #        ON, SO OK TO UPDATE GAINS AND MASS
040440,000146: 16,2715           34711                 +5        CAF      TWO                                   #        OFF, SO BYPASS MASS/GAIN UPDATES,
040441,000147: 16,2716           55661                           TS       TVCEXPHS                              #                ALSO ENTRY FROM CCS BELOW WITH
040442,000148: 16,2717           12750                           TCF      SWT/COR                               #                VCNTR = -0 (V97 R40 ENGFAIL)
040443,000149: 
040444,000150: 16,2720           11653                           CCS      VCNTR                                 #        TEST FOR GAIN UPDATE TIME
040445,000151: 16,2721           12725                           TCF      +4                                    #                NOT YET
040446,000152: 16,2722           12731                           TCF      GAINCHNG                              #                NOW
040447,000153: 16,2723           12723                           TCF      +0                                    #                NOT USED
040448,000154: 16,2724           12715                           TCF      VARGAINS   +5                         #                NO, LOTHRUST (S40.8 R40)
040449,000155: 
040450,000156: 16,2725           55663                 +4        TS       VCNTRTMP                              #        PROTECT VCNTR AND
040451,000157: 16,2726           31474                           CAE      CSMMASS                               #        CSMMASS DURING AN IMPULSIVE BURN
040452,000158: 16,2727           55662                           TS       MASSTMP                               
040453,000159: 16,2730           12741                           TCF      EXECCOPY                              
040454,000160: 
040455,000161: 16,2731           04633        GAINCHNG           TC       IBNKCALL                              #  UPDATE IXX, IAVG, IAVG/TLX
040456,000162: 16,2732           13243                           CADR     FIXCW                                 #  MASSPROP ENTRY (ALREADY INITIALIZED)
040457,000163: 16,2733           03145                           TC       S40.15                                #  UPDATE 1/CONACC, VARK
040458,000164: 16,2734           41647                           CS       TENMDOT                               #  UPDATE MASS FOR NEXT 10 SEC. OF BURN
040459,000165: 16,2735           61474                           AD       CSMMASS                               
040460,000166: 16,2736           55662                           TS       MASSTMP                               #  KG B+16
040461,000167: 
040462,000168: 16,2737           34374                           CAF      NINETEEN                              #  RESET THE VARIABLE-GAIN UPDATE COUNTER
040463,000169: 16,2740           55663        NOUPDATE           TS       VCNTRTMP                              #  (COUNTDOWN, FROM VARGAINS +1)
040464,000170: 
040465,000171: 16,2741           25661        EXECCOPY           INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE         (1)
040466,000172: 
040467,000173: 16,2742           31662                           CAE      MASSTMP                               #  CSMMASS KG B+16
040468,000174: 16,2743           55474                           TS       CSMMASS                               
040469,000175: 
040470,000176: 16,2744           31663                           CAE      VCNTRTMP                              #  VCNTR
040471,000177: 16,2745           55653                           TS       VCNTR                                 
040472,000178: 16,2746           55444                           TS       V97VCNTR                              #  FOR ENGFAIL (R41) MASS UPDATES AT SPSOFF
040473,000179: 
040474,000180: 16,2747           25661                           INCR     TVCEXPHS                              #  COPYCYCLE OVER                        (2)
040475,000181: 
040476,000182: 16,2750           11447        SWT/COR            CCS      CNTR                                  #  CHECK FOR SWITCHOVER/CG.CORRECTION
040477,000183: 16,2751           12755                           TCF      +4                                    #        NOT YET
040478,000184: 16,2752           12773                           TCF      SWTCHOVR                              #        NOW
040479,000185: 16,2753           12761                           TCF      REPCHEK                               #        PRIOR SWITCHOVER (OR NONE)
040480,000186: 16,2754           12773                           TCF      SWTCHOVR                              #        NOW (1/2 SEC SWITCHOVER, ONLY)
040481,000187: 
040482,000188: 16,2755           55707                 +4        TS       CNTRTMP                               #  COUNT DOWN
040483,000189: 16,2756           34716                           CAF      SEVEN                                 #  SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
040484,000190: 16,2757           55661                           TS       TVCEXPHS                              

Page 906

040486,000192: 16,2760           13122                           TCF      CNTRCOPY                              
040487,000193: 
040488,000194: 16,2761           31652        REPCHEK            CAE      REPFRAC                               #  CHECK FOR REPETITIVE UPDATES
040489,000195: 16,2762           00006                           EXTEND                                         
040490,000196: 16,2763           62770                           BZMF     +5                                    #        NO  (NEG OR +-ZERO)
040491,000197: 16,2764           55446                           TS       TEMPDAP    +1                         #        YES, SET UP CORRECTION FRACTION
040492,000198: 16,2765           34715                           CAF      FIVE                                  #                ADVANCE TVCEXPHS
040493,000199: 16,2766           55661                           TS       TVCEXPHS                              
040494,000200: 16,2767           13053                           TCF      CORSETUP                              
040495,000201: 
040496,000202: 16,2770           34707                 +5        CAF      EIGHT                                 
040497,000203: 16,2771           55661                           TS       TVCEXPHS                              
040498,000204: 16,2772           13125                           TCF      STRKUP                                
040499,000205: 
040500,000206: 16,2773           34676        SWTCHOVR           CAF      BIT13                                 #  CHECK ENGINE-ON BIT, NOT PERMITTING
040501,000207: 16,2774           00006                           EXTEND                                         #        SWITCHOVER DURING ENGINE-SHUTDOWN
040502,000208: 16,2775           02011                           RAND     DSALMOUT                              #        TAILOFF
040503,000209: 16,2776           10000                           CCS      A                                     
040504,000210: 16,2777           13001                           TCF      +2                                    #  OK TO SWITCHOVER
040505,000211: 16,3000           13142                           TCF      TVCEXFIN                              #  DONT SWITCHOVER, TERMINATE
040506,000212: 
040507,000213: 16,3001           40105                           CS       FLAGWRD9                              #  SET SWITCHOVER FLAG (SWTOVER) FOR DWNLNK
040508,000214: 16,3002           74674                           MASK     BIT15                                 #        AND POST-BURN TRIM UPDATES (SEE
040509,000215: 16,3003           26105                           ADS      FLAGWRD9                              #        ..BESTTRIM.. (P40-P47))
040510,000216: 
040511,000217: 16,3004           31466                           CAE      DAPDATR1                              #  SWITCHOVER.... CHECK FOR LEM-OFF/ON
040512,000218: 16,3005           74676                           MASK     BIT13                                 #  (NOTE, SHOWS LEM-OFF)
040513,000219: 16,3006           00006                           EXTEND                                         
040514,000220: 16,3007           13013                           BZF      GAINDOWN                              #  LEM-ON....FULL SWITCHOVER/CG.CORRECTION
040515,000221: 
040516,000222: 16,3010           34710                           CAF      FOUR                                  #  LEM-OFF....NO SWITCHOVER, JUST CG.CORR.
040517,000223: 16,3011           55661                           TS       TVCEXPHS                              
040518,000224: 16,3012           13050                           TCF      TEMPSET                               
040519,000225: 
040520,000226: 16,3013           31420        GAINDOWN           CAE      ETVCDT/2                              #  LEM-ON.... DROP GAIN BY (OLDTVCDT/8CS)SQ
040521,000227: 16,3014           00006                           EXTEND                                         
040522,000228: 16,3015           74706                           MP       BIT5                                  
040523,000229: 16,3016           22000                           LXCH     A                                     
040524,000230: 16,3017           00006                           EXTEND                                         
040525,000231: 16,3020           70000                           MP       A                                     
040526,000232: 16,3021           22000                           LXCH     A                                     #  (TVCDT/8CS)SQD, SC.AT 8+2
040527,000233: 
040528,000234: 16,3022           00006                           EXTEND                                         #  PREPARE NEW GAIN CONSTANT
040529,000235: 16,3023           71646                           MP       KTLX/I                                
040530,000236: 16,3024           20001                           DDOUBL                                         
040531,000237: 16,3025           20001                           DDOUBL                                         
040532,000238: 16,3026           55702                           TS       TKTLX/I                               #  (FOR COPYCYCLE)
040533,000239: 
040534,000240: 16,3027           25661        SWTCOPY            INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE         (3)

Page 907

040536,000242: 16,3030           37677                           CAF      OCT37774                              #  LEM-ON ONLY..... T5 TIMER
040537,000243: 16,3031           55635                           TS       T5TVCDT                               
040538,000244: 
040539,000245: 16,3032           31414                           CAE      EKPRIME    +1                         #  PREPARE KPRIMEDT FOR 80MS DAP, USING
040540,000246: 16,3033           60000                           DOUBLE                                         
040541,000247: 16,3034           60000                           DOUBLE                                         
040542,000248: 16,3035           55644                           TS       KPRIMEDT                              #        (KPRIMEDT+1 IS ZERO)
040543,000249: 
040544,000250:                                                                                                  #  SCALING OF OMEGAC HAS CHANGED, BUT NO
040545,000251:                                                                                                  #        CHANGE OF REGISTERS.  RATE COMMANDS
040546,000252:                                                                                                  #        ARE LOW BY (OLD TVCDT)/80, UNTIL
040547,000253:                                                                                                  #        NEXT S40.6 COMPUTATION, WHICH USES
040548,000254:                                                                                                  #        THE NEW  KPRIMEDT.
040549,000255: 
040550,000256: 16,3036           31702                           CAE      TKTLX/I                               #  GAIN CONSTANT
040551,000257: 16,3037           55646                           TS       KTLX/I                                
040552,000258: 
040553,000259: 16,3040           03154                           TC       S40.15     +7                         #  UPDATE VARK (ONLY, NO CHANGE 1/CONACC)
040554,000260: 
040555,000261: 16,3041           11614        STRKCALL           CCS      STROKER                               #  CHECK STROKER FOR VERB 68 INDICATION
040556,000262: 16,3042           13047                           TCF      +5                                    #        STROKE TEST IN PROGRESS (80MS DAP)
040557,000263: 16,3043           13047                           TCF      +4                                    #        +0 SAYS NO VERB 68 YET
040558,000264: 16,3044           13047                           TCF      +3                                    #        STROKE TEST IN PROGRESS (80MS DAP)
040559,000265: 16,3045           34707                           CAF      EIGHT                                 #        -0 SAYS PRIOR VERB68, SO START
040560,000266: 16,3046           55664                           TS       STRKTIME                              #                STROKE TEST IN 4 SECONDS
040561,000267: 
040562,000268: 16,3047           25661                 +543      INCR     TVCEXPHS                              #  COPYCYCLE OVER (SWTCHOVR ENTRY NEXT)  (4)
040563,000269: 
040564,000270: 16,3050           31422        TEMPSET            CAE      ECORFRAC                              #        SET UP CORRECTION FRACTION
040565,000271: 16,3051           55446                           TS       TEMPDAP    +1                         
040566,000272: 
040567,000273: 16,3052           25661                           INCR     TVCEXPHS                              #  ENTRY FROM REPCHECK AT NEXT LOCATION  (5)
040568,000274: 
040569,000275: 16,3053           31466        CORSETUP           CAE      DAPDATR1                              #  CHECK FOR LEM-OFF/ON
040570,000276: 16,3054           74676                           MASK     BIT13                                 #  (NOTE, SHOWS LEM-OFF)
040571,000277: 16,3055           00006                           EXTEND                                         
040572,000278: 16,3056           13060                           BZF      +2                                    #  LEM IS ON,  PICK UP   TEMPDAP+1
040573,000279: 16,3057           31446                           CAE      TEMPDAP    +1                         #  LEM IS OFF, PICK UP 2(TEMPDAP+1)
040574,000280: 16,3060           61446                           AD       TEMPDAP    +1                         
040575,000281: 16,3061           55445                           TS       TEMPDAP                               #  CG.CORR USES TEMPDAP
040576,000282: 
040577,000283: 16,3062           37716                           CAF      NEGONE                                #  SET UP FOR CNTR = -1 (SWTCHOVR DONE)
040578,000284: 16,3063           55707                           TS       CNTRTMP                               #        (COPYCYCLE AT .CNTRCOPY.)
040579,000285: 
040580,000286: 16,3064           00006        CG.CORR            EXTEND                                         #  PITCH TRIM-TRACKER CORRECTION
040581,000287: 16,3065           31626                           DCA      PDELOFF                               
040582,000288: 16,3066           53704                           DXCH     PACTTMP                               
040583,000289: 16,3067           41425                           CS       PACTOFF                               
040584,000290: 16,3070           61621                           AD       DELPBAR                               
040585,000291: 16,3071           00006                           EXTEND                                         

Page 908

040587,000293: 16,3072           71445                           MP       TEMPDAP                               
040588,000294: 16,3073           20001                           DDOUBL                                         
040589,000295: 16,3074           20001                           DDOUBL                                         
040590,000296: 16,3075           21704                           DAS      PACTTMP                               
040591,000297: 
040592,000298: 16,3076           00006                           EXTEND                                         
040593,000299: 16,3077           31630                           DCA      YDELOFF                               
040594,000300: 16,3100           53706                           DXCH     YACTTMP                               
040595,000301: 16,3101           41426                           CS       YACTOFF                               
040596,000302: 16,3102           61623                           AD       DELYBAR                               
040597,000303: 16,3103           00006                           EXTEND                                         
040598,000304: 16,3104           71445                           MP       TEMPDAP                               
040599,000305: 16,3105           20001                           DDOUBL                                         
040600,000306: 16,3106           20001                           DDOUBL                                         
040601,000307: 16,3107           21706                           DAS      YACTTMP                               
040602,000308: 
040603,000309: 16,3110           25661        CORCOPY            INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE         (6)
040604,000310: 
040605,000311: 16,3111           00006                           EXTEND                                         #  TRIM-ESTIMATES, AND
040606,000312: 16,3112           31704                           DCA      PACTTMP                               
040607,000313: 16,3113           55425                           TS       PACTOFF                               #        TRIMS
040608,000314: 16,3114           53626                           DXCH     PDELOFF                               
040609,000315: 
040610,000316: 16,3115           00006                           EXTEND                                         
040611,000317: 16,3116           31706                           DCA      YACTTMP                               
040612,000318: 16,3117           55426                           TS       YACTOFF                               
040613,000319: 16,3120           53630                           DXCH     YDELOFF                               
040614,000320: 
040615,000321: 16,3121           25661                           INCR     TVCEXPHS                              #  COPYCYCLE OVER (SWT/COR ENTRY NEXT)   (7)
040616,000322: 
040617,000323: 16,3122           31707        CNTRCOPY           CAE      CNTRTMP                               #  UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
040618,000324: 16,3123           55447                           TS       CNTR                                  
040619,000325: 
040620,000326: 16,3124           25661                           INCR     TVCEXPHS                              #  ENTRY FROM REPCHECK AT NEXT LOCATION  (8)
040621,000327: 
040622,000328: 16,3125           11664        STRKUP             CCS      STRKTIME                              #  CHECK STROKE TEST START TIME
040623,000329: 16,3126           13131                           TCF      +3                                    #        IN 4SEC DELAY AFTER SWITCHOVER
040624,000330: 16,3127           13133                           TCF      STRKNOW                               #        START STROKE TEST NOW....
040625,000331: 16,3130           13142                           TCF      TVCEXFIN                              #        NO STROKE TEST REQUEST YET
040626,000332: 
040627,000333: 16,3131           55710                           TS       STRKTTMP                              #  COUNT DOWN
040628,000334: 16,3132           13137                           TCF      STRKTCPY                              
040629,000335: 
040630,000336: 16,3133           31412        STRKNOW            CAE      ESTROKER                              #  START THE STROKE TEST NOW....
040631,000337: 16,3134           55614                           TS       STROKER                               
040632,000338: 16,3135           37716                           CAF      NEGONE                                #  KILL THE STROKE TEST CALL
040633,000339: 16,3136           55710                           TS       STRKTTMP                              
040634,000340: 
040635,000341: 16,3137           25661        STRKTCPY           INCR     TVCEXPHS                              #  RESTART-PROTECT THE COPYCYCLE         (9)

Page 909

040637,000343: 16,3140           31710                           CAE      STRKTTMP                              
040638,000344: 16,3141           55664                           TS       STRKTIME                              
040639,000345: 
040640,000346: 16,3142           34714        TVCEXFIN           CAF      ZERO                                  #  RESET TVCEXPHS
040641,000347: 16,3143           55661                           TS       TVCEXPHS                              
040642,000348: 
040643,000349: 16,3144           15213                           TCF      TASKOVER                              #  OVER AND OUT
040644,000350: 

Page 910

040646,000352:                                                                                                  #  NAME          S40.15 INERTIA COMPUTATIONS
040647,000353: 
040648,000354: 16,3145  E6,1650                                  EBANK=   1/CONACC                              
040649,000355: 
040650,000356: 16,3145           31470        S40.15             CAE      IXX                                   #  COMPUTE 1/CONACC (RACC)....IXX SC.AT
040651,000357: 16,3146           00006                           EXTEND                                         #        B+20    KG M SQD
040652,000358: 16,3147           73164                           MP       2PI/M                                 #  2PI/M, SC.AT 1/(B+8 N M)
040653,000359: 16,3150           20001                           DDOUBL                                         
040654,000360: 16,3151           20001                           DDOUBL                                         
040655,000361: 16,3152           20001                           DDOUBL                                         
040656,000362: 16,3153           55650                           TS       1/CONACC                              #  SC.AT B+9 SEC SQD / REV
040657,000363: 
040658,000364: 16,3154           31646                 +7        CAE      KTLX/I                                #  COMPUTE VARK, SCALING IN THE KTLX/I FOR
040659,000365: 16,3155           00006                           EXTEND                                         #        LM-OFF,ON.  ENTRY FROM SWITCHOVER
040660,000366: 16,3156           71472                           MP       IAVG/TLX                              #        SCALED AT B+2 SECONDS-SQUARED
040661,000367: 16,3157           20001                           DDOUBL                                         #        SCALING
040662,000368: 16,3160           20001                           DDOUBL                                         
040663,000369: 16,3161           20001                           DDOUBL                                         
040664,000370: 16,3162           55651                           TS       VARK                                  #        LEM-OFF KPGEN3(0) OR LEM-ON VARK(0)
040665,000371: 
040666,000372: 16,3163           00002                           TC       Q                                     
040667,000373: 
040668,000374: 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