Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. 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:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

041755,000002:                                                                                                  ## Copyright:   Public domain.
041756,000003:                                                                                                  ## Filename:    TVCINITIALIZE.agc
041757,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
041758,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
041759,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
041760,000007:                                                                                                  ## Assembler:   yaYUL
041761,000008:                                                                                                  ## Contact:     Jim Lawton <jim.lawton@gmail.com>.
041762,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
041763,000010:                                                                                                  ## Pages:       936-944
041764,000011:                                                                                                  ## Mod history: 2009-05-11 JVL  Adapted from the Colossus249/ file
041765,000012:                                                                                                  ##                              of the same name, using Comanche055 page
041766,000013:                                                                                                  ##                              images.
041767,000014:                                                                                                  ##              2009-05-20 RSB  Corrections:  +80 -> +8D, added 4 missing 
041768,000015:                                                                                                  ##                              lines in TVCINIT1, changed the capitalization
041769,000016:                                                                                                  ##                              of a couple of the "Page N" comments, 
041770,000017:                                                                                                  ##                              corrected a couple of lines in LOADCOEFF.
041771,000018:                                                                                                  ##              2009-05-22 RSB  In LOADCOEF, DXCH N10 +14D corrected to
041772,000019:                                                                                                  ##                              TS N10 +14D.  Also, various comment-marks
041773,000020:                                                                                                  ##                              were added to comments following this
041774,000021:                                                                                                  ##                              change.
041775,000022:                                                                                                  ##              2010-08-28 JL   Fixed indentation.
041776,000023:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
041777,000024:                                                                                                  ##                              and corrected the errors found.
041778,000025:                                                                                                  ##
041779,000026:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
041780,000027:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
041781,000028:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
041782,000029:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
041783,000030:                                                                                                  ## consequent reduction in image quality as well) are available online at
041784,000031:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
041785,000032:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the
041786,000033:                                                                                                  ## (much) higher-quality images which Paul actually created.
041787,000034:                                                                                                  ##
041788,000035:                                                                                                  ## Notations on the hardcopy document read, in part:
041789,000036:                                                                                                  ##
041790,000037:                                                                                                  ##    Assemble revision 055 of AGC program Comanche by NASA
041791,000038:                                                                                                  ##    2021113-051.  10:28 APR. 1, 1969 
041792,000039:                                                                                                  ##
041793,000040:                                                                                                  ##    This AGC program shall also be referred to as
041794,000041:                                                                                                  ##            Colossus 2A
041795,000042: 

Page 937

041797,000044:                                                                                                  #  NAME          TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041798,000045:                                                                                                  #  LOG SECTION...TVCINITIALIZE                   SUBROUTINE...DAPCSM
041799,000046:                                                                                                  #  MODIFIED BY SCHLUNDT                          21 OCTOBER 1968
041800,000047:                                                                                                  #  FUNCTIONAL DESCRIPTION
041801,000048:                                                                                                  #        PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041802,000049:                                                                                                  #        COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041803,000050:                                                                                                  #        MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
041804,000051:                                                                                                  #        PERFORMS INITIALIZATION FOR ROLL DAP
041805,000052:                                                                                                  #        CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041806,000053:                                                                                                  #        CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT  VIA T5
041807,000054:                                                                                                  #        PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041808,000055:                                                                                                  #  CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041809,000056:                                                                                                  #        IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
041810,000057:                                                                                                  #        MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041811,000058:                                                                                                  #  NORMAL EXIT MODE
041812,000059:                                                                                                  #        TCF RESUME
041813,000060:                                                                                                  #  SUBROUTINES CALLED
041814,000061:                                                                                                  #        NEEDLER, MASSPROP
041815,000062:                                                                                                  #  ALARM OR ABORT EXIT MODES
041816,000063:                                                                                                  #        NONE
041817,000064:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
041818,000065:                                                                                                  #        CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041819,000066:                                                                                                  #        TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041820,000067:                                                                                                  #        PACTOFF, YACTOFF, CDUX
041821,000068:                                                                                                  #        TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041822,000069:                                                                                                  #  OUTPUT
041823,000070:                                                                                                  #        ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041824,000071:                                                                                                  #  DEBRIS
041825,000072:                                                                                                  #        NONE
041826,000073: 
041827,000074: 42,3772                                           COUNT*   $$/INIT                               
041828,000075: 17,2147                                           BANK     17                                    
041829,000076: 17,2000                                           SETLOC   DAPS7                                 
041830,000077: 17,2000                                           BANK                                           
041831,000078: 
041832,000079: 17,2147  E6,1702                                  EBANK=   BZERO                                 
041833,000080: 
041834,000081: 17,2147           22016        TVCDAPON           LXCH     BANKRUPT                              #  T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041835,000082: 17,2150           00006                           EXTEND                                         #  SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
041836,000083: 17,2151           22012                           QXCH     QRUPT                                 #        TVCINIT4 ARE ENTRIES)
041837,000084: 17,2152           32534        MRCLEAN            CAF      NZERO                                 #  NUMBER TO ZERO, LESS ONE  (MUST BE ODD)
041838,000085:                                                                                                  #        TVC RESTARTS ENTER HERE  (NEW BANK)
041839,000086: 17,2153           10000                 +1        CCS      A                                     
041840,000087: 17,2154           55447                           TS       CNTR                                  
041841,000088: 17,2155           35021                           CAF      ZERO                                  
041842,000089: 17,2156           54001                           TS       L                                     
041843,000090: 17,2157           51447                           INDEX    CNTR                                  
041844,000091: 17,2160           53530                           DXCH     OMEGAYC                               #  FIRST (LAST) TWO LOCATIONS
041845,000092: 17,2161           11447                           CCS      CNTR                                  
041846,000093: 17,2162           12153                           TCF      MRCLEAN    +1                         

Page 938

041848,000095: 17,2163           00006                           EXTEND                                         #  SET UP ANOTHER T5 RUPT TO CONTINUE
041849,000096: 17,2164           32551                           DCA      INITLOC2                              #        INITIALIZATION AT TVCINIT1
041850,000097: 17,2165           53313                           DXCH     T5LOC                                 #  THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
041851,000098: 17,2166           34777                           CAF      POSMAX                                #        +3 IS IN ANOTHER BANK.  MUST RESET
041852,000099: 17,2167           54030                           TS       TIME5                                 #        BBCON TOO (FULL 2CADR), FOR THAT
041853,000100: 17,2170           15333        ENDMRC             TCF      RESUME                                #        ENTRY.
041854,000101: 
041855,000102: 17,2171           22016        TVCINIT1           LXCH     BANKRUPT                              
041856,000103: 17,2172           00006                           EXTEND                                         
041857,000104: 17,2173           22012                           QXCH     QRUPT                                 
041858,000105: 
041859,000106: 17,2174           04740                           TC       IBNKCALL                              #  UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041860,000107: 17,2175           13366                           CADR     MASSPROP                              #        OR NOUNS 46 AND 47 MUST BE CORRECT)
041861,000108: 
041862,000109: 17,2176           30110                           CAE      EMDOT                                 #  SPS FLOW RATE, SCALED B+3 KG/CS
041863,000110: 17,2177           00006                           EXTEND                                         
041864,000111: 17,2200           72545                           MP       ONETHOU                               
041865,000112: 17,2201           55637                           TS       TENMDOT                               #  10-SEC MASS LOSS B+16 KG
041866,000113: 17,2202           40000                           COM                                            
041867,000114: 17,2203           61474                           AD       CSMMASS                               
041868,000115: 17,2204           55652                           TS       MASSTMP                               #  DECREMENT FOR FIRST 10 SEC OF BURN
041869,000116: 
041870,000117: 17,2205           31466                           CAE      DAPDATR1                              #  CHECK LEM-ON/OFF
041871,000118: 17,2206           75002                           MASK     BIT14                                 
041872,000119: 17,2207           10000                           CCS      A                                     
041873,000120: 17,2210           35017                           CAF      BIT1                                  #  LEM-ON (BIT1)
041874,000121: 17,2211           55447                           TS       CNTR                                  #  LEM-OFF (ZERO)
041875,000122: 
041876,000123: 17,2212           51447                           INDEX    CNTR                                  #  LOAD THE FILTER COEFFICIENTS
041877,000124: 17,2213           32531                           CAF      CSMCFADR                              
041878,000125: 17,2214           55722                           TS       COEFFADR                              
041879,000126: 17,2215           02422                           TC       LOADCOEF                              
041880,000127: 
041881,000128: 17,2216           51447                           INDEX    CNTR                                  #  PICK UP LM-OFF,-ON KTLX/I
041882,000129: 17,2217           31416                           CAE      EKTLX/I                               #  SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
041883,000130: 17,2220           55636                           TS       KTLX/I                                
041884,000131: 
041885,000132: 17,2221           02462                           TCR      S40.15                                #  COMPUTE 1/CONACC, VARK
041886,000133: 
041887,000134: 17,2222           41447        TVCINIT2           CS       CNTR                                  #  PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041888,000135: 17,2223           50000                           INDEX    A                                     #  DETERMINATION:
041889,000136: 17,2224           35016                           CAF      BIT2                                  #        BIT2 FOR CSM ONLY 40MS FILTER
041890,000137: 17,2225           55634                           TS       KPRIMEDT                              #        BIT3 FOR CSM/LM 80MS FILTER
041891,000138: 
041892,000139: 17,2226           40000                           COM                                            #  PREPARE T5TVCDT
041893,000140: 17,2227           64777                           AD       POSMAX                                
041894,000141: 17,2230           65017                           AD       BIT1                                  
041895,000142: 17,2231           55625                           TS       T5TVCDT                               
041896,000143: 
041897,000144: 17,2232           45001                           CS       BIT15                                 #  RESET SWTOVER FLAG

Page 939

041899,000146: 17,2233           70105                           MASK     FLAGWRD9                              
041900,000147: 17,2234           54105                           TS       FLAGWRD9                              
041901,000148: 
041902,000149: 17,2235           51447                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON KPRIME
041903,000150: 17,2236           31414                           CAE      EKPRIME                               #        SCALED (100 PI)/16
041904,000151: 17,2237           00006                           EXTEND                                         
041905,000152: 17,2240           71634                           MP       KPRIMEDT                              #  (TVCDT/2, SC.AT B+14 CS)
041906,000153: 17,2241           22000                           LXCH     A                                     #        SC.AT PI/8      (DIMENSIONLESS)
041907,000154: 17,2242           53635                           DXCH     KPRIMEDT                              
041908,000155: 
041909,000156: 17,2243           51447                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON REPFRAC
041910,000157: 17,2244           31421                           CAE      EREPFRAC                              
041911,000158: 17,2245           55642                           TS       REPFRAC                               
041912,000159: 
041913,000160: 17,2246           51447                           INDEX    CNTR                                  #  PICK UP ONE-SHOT CORRECTION TIME
041914,000161: 17,2247           32540                           CAF      TCORR                                 
041915,000162: 17,2250           55447                           TS       CNTR                                  
041916,000163: 
041917,000164: 17,2251           37716                           CAF      NEGONE                                #  PREVENT STROKE TEST UNTIL CALLED
041918,000165: 17,2252           55654                           TS       STRKTIME                              
041919,000166: 
041920,000167: 17,2253           34374                           CAF      NINETEEN                              #  SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041921,000168: 17,2254           55643                           TS       VCNTR                                 #        10 SECONDS (TVCEXEC 1/2 SEC RATE)
041922,000169: 17,2255           55444                           TS       V97VCNTR                              #  FOR ENGFAIL (R41) LOGIC
041923,000170: 
041924,000171: 17,2256           31423        TVCINIT3           CAE      PACTOFF                               #  TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041925,000172: 17,2257           55605                           TS       PDELOFF                               #        TRACKERS, OFFSET-UPDATES, AND
041926,000173: 17,2260           55623                           TS       PCMD                                  #        OFFSET-TRACKER FILTERS
041927,000174: 17,2261           55601                           TS       DELPBAR                               #        NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041928,000175: 
041929,000176: 17,2262           31424                           CAE      YACTOFF                               
041930,000177: 17,2263           55607                           TS       YDELOFF                               
041931,000178: 17,2264           55624                           TS       YCMD                                  
041932,000179: 17,2265           55603                           TS       DELYBAR                               
041933,000180: 
041934,000181: 17,2266           31466        ATTINIT            CAE      DAPDATR1                              #  ATTITUDE-ERROR INITIALIZATION LOGIC
041935,000182: 17,2267           75003                           MASK     BIT13                                 #        TEST FOR CSM OR CSM/LM
041936,000183: 17,2270           00006                           EXTEND                                         
041937,000184: 17,2271           12317                           BZF      NEEDLEIN                              #        BYPASS INITIALIZATION FOR CSM/LM
041938,000185: 
041939,000186: 17,2272           35017                           CAF      BIT1                                  #        SET UP TEMPORARY COUNTER
041940,000187: 17,2273           55611                 +5        TS       TTMP1                                 
041941,000188: 
041942,000189: 17,2274           51611                           INDEX    TTMP1                                 
041943,000190: 17,2275           31702                           CA       ERRBTMP                               #  ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041944,000191: 17,2276           00006                           EXTEND                                         #        ERRORY & ERRORZ (P40 AT DOTVCON)
041945,000192: 17,2277           72537                           MP       1/ATTLIM                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041946,000193: 17,2300           00006                           EXTEND                                         
041947,000194: 17,2301           12311                           BZF      +8D                                   #        |ERROR| LESS THAN 1.5 DEG
041948,000195: 17,2302           00006                           EXTEND                                         

Page 940

041950,000197: 17,2303           62306                           BZMF     +3                                    #        |ERROR| > 1.5 DEG, AND NEG
041951,000198: 17,2304           32536                           CA       ATTLIM                                #        |ERROR| > 1.5 DEG, AND POS
041952,000199: 17,2305           12307                           TCF      +2                                    
041953,000200: 17,2306           42536                 +3        CS       ATTLIM                                
041954,000201: 17,2307           51611                 +2        INDEX    TTMP1                                 
041955,000202: 17,2310           55702                           TS       ERRBTMP                               
041956,000203: 17,2311           11611                 +8        CCS      TTMP1                                 #        TEST TEMPORARY COUNTER
041957,000204: 17,2312           12273                           TCF      ATTINIT    +5                         #        BACK TO REPEAT FOR PITCH ERROR
041958,000205: 
041959,000206: 17,2313           31702                           CA       ERRBTMP                               #  ERRORS ESTABLISHED AND LIMITED
041960,000207: 17,2314           55575                           TS       PERRB                                 
041961,000208: 17,2315           31703                           CA       ERRBTMP    +1                         
041962,000209: 17,2316           55577                           TS       YERRB                                 
041963,000210: 
041964,000211: 17,2317           41501        NEEDLEIN           CS       RCSFLAGS                              #  SET BIT 3 FOR INITIALIZATION PASS AND GO
041965,000212: 17,2320           75015                           MASK     BIT3                                  #        TO NEEDLER.  WILL CLEAR FOR TVC DAP
041966,000213: 17,2321           27501                           ADS      RCSFLAGS                              #        (RETURNS AFTER CADR)
041967,000214: 17,2322           04740                           TC       IBNKCALL                              
041968,000215: 17,2323           42420                           CADR     NEEDLER                               
041969,000216: 
041970,000217: 17,2324           35021        TVCINIT4           CAF      ZERO                                  #  SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041971,000218: 17,2325           55644                           TS       TVCPHASE                              #        NEEDLEIN INITIALIZATION FINISHED.
041972,000219:                                                                                                  #        (POSSIBLE TVC-RESTART ENTRY)
041973,000220: 
041974,000221: 17,2326           30032                           CAE      CDUX                                  #  PREPARE ROLL DAP
041975,000222: 17,2327           55662                           TS       OGANOW                                
041976,000223: 
041977,000224: 17,2330           35003                           CAF      BIT13                                 #  IF ENGINE IS ALREADY OFF, ENGINOFF HAS
041978,000225: 17,2331           00006                           EXTEND                                         #        ALREADY ESTABLISHED THE POST-BURN
041979,000226: 17,2332           02011                           RAND     DSALMOUT                              #        CSMMASS (MASSBACK DOES IT).  DONT
041980,000227: 17,2333           00006                           EXTEND                                         #        TOUCH CSMMASS.  IF ENGINE IS ON,
041981,000228: 17,2334           12337                           BZF      +3                                    #        THEN ITS OK TO DO THE COPYCYCLE
041982,000229:                                                                                                  #        EVEN BURNS LESS THAN 0.4 SEC ARE AOK
041983,000230: 
041984,000231: 17,2335           31652                           CAE      MASSTMP                               #  COPYCYCLE
041985,000232: 17,2336           55474                           TS       CSMMASS                               
041986,000233: 
041987,000234: 17,2337           35036                 +3        CAF      .5SEC                                 #  CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
041988,000235: 17,2340           05245                           TC       WAITLIST                              
041989,000236: 17,2341  E6,1702                                  EBANK=   BZERO                                 
041990,000237: 17,2341           02720 34066                     2CADR    TVCEXEC                               
041991,000238: 
041992,000239: 17,2343           00006                           EXTEND                                         #  CALL FOR DAPINIT
041993,000240: 17,2344           32547                           DCA      DAPINIT5                              
041994,000241: 17,2345           53313                           DXCH     T5LOC                                 
041995,000242: 17,2346           31625                           CAE      T5TVCDT                               #  (ALLOW TIME FOR RESTART COMPUTATIONS)
041996,000243: 17,2347           54030                           TS       TIME5                                 

Page 941

041998,000245: 17,2350           15333        ENDTVCIN           TCF      RESUME                                
041999,000246: 
042000,000247: 17,2351           02354        PRESWTCH           TCR      SWICHOVR                              #  ENTRY FROM V46
042001,000248: 
042002,000249: 17,2352           04701                           TC       POSTJUMP                              #  THIS PROVIDES AN EXIT FROM SWITCH-OVER
042003,000250: 17,2353           21272                           CADR     PINBRNCH                              #        (PINBRNCH DOES A RELINT)
042004,000251: 
042005,000252: 17,2354           00004        SWICHOVR           INHINT                                         
042006,000253: 17,2355           31644                           CA       TVCPHASE                              #  SAVE TVCPHASE
042007,000254: 17,2356           55611                           TS       PHASETMP                              
042008,000255: 17,2357           45016                           CS       BIT2                                  #  SET TVCPHASE = -2 (INDICATES SWITCH-OVER
042009,000256: 17,2360           55644                           TS       TVCPHASE                              #        TO RESTART LOGIC)
042010,000257: 
042011,000258: 17,2361           00006                 +5        EXTEND                                         #  SAVE Q FOR RETURN (RESTART ENTRY POINT,
042012,000259: 17,2362           23613                           QXCH     RTRNLOC                               #        TVCPHASE AND PHASETMP ALREADY SET)
042013,000260: 
042014,000261: 17,2363           32535                           CAF      NZEROJR                               #  ZEROING LOOP FOR FILTER STORAGE LOCS
042015,000262: 17,2364           55676                 +8        TS       CNTRTMP                               
042016,000263: 
042017,000264: 17,2365           35021        MCLEANJR           CA       ZERO                                  
042018,000265: 17,2366           54001                           TS       L                                     
042019,000266: 17,2367           51676                           INDEX    CNTRTMP                               
042020,000267: 17,2370           53541                           DXCH     PTMP1      -1                         
042021,000268: 17,2371           11676                           CCS      CNTRTMP                               
042022,000269: 17,2372           10000                           CCS      A                                     
042023,000270: 17,2373           12364                           TCF      SWICHOVR   +8D                        
042024,000271: 
042025,000272: 17,2374           40105                           CS       FLAGWRD9                              #  SET SWITCHOVER FLAG FOR DOWNLINK
042026,000273: 17,2375           75001                           MASK     BIT15                                 
042027,000274: 17,2376           26105                           ADS      FLAGWRD9                              
042028,000275: 
042029,000276: 17,2377           31420                           CAE      EKTLX/I    +2                         #  LOW BANDWIDTH GAINS   - DAP
042030,000277: 17,2400           55636                           TS       KTLX/I                                
042031,000278: 17,2401           02471                           TCR      S40.15     +7                         
042032,000279: 
042033,000280: 17,2402           32542                           CAF      FKPRIMDT                              #                        - STEERING
042034,000281: 17,2403           55634                           TS       KPRIMEDT                              
042035,000282: 
042036,000283: 17,2404           32543                           CAF      FREPFRAC                              #                        - TMC LOOP
042037,000284: 17,2405           55642                           TS       REPFRAC                               
042038,000285: 
042039,000286: 17,2406           00006                           EXTEND                                         #  UPDATE TRIM ESTIMATES
042040,000287: 17,2407           31602                           DCA      DELPBAR                               
042041,000288: 17,2410           53606                           DXCH     PDELOFF                               
042042,000289: 17,2411           00006                           EXTEND                                         
042043,000290: 17,2412           31604                           DCA      DELYBAR                               
042044,000291: 17,2413           53610                           DXCH     YDELOFF                               
042045,000292: 
042046,000293: 17,2414           32533                           CA       LBCFADR                               

Page 942

042048,000295: 17,2415           55722                           TS       COEFFADR                              
042049,000296: 17,2416           02422                           TC       LOADCOEF                              
042050,000297: 
042051,000298: 17,2417           31611                           CAE      PHASETMP                              #  RESTORE TVCPHASE
042052,000299: 17,2420           55644                           TS       TVCPHASE                              
042053,000300: 
042054,000301: 17,2421           01613                           TC       RTRNLOC                               #  BACK TO PRESWTCH OR TVCRESTARTS
042055,000302: 
042056,000303: 17,2422           00006        LOADCOEF           EXTEND                                         #  LOAD DAP FILTER COEFFICIENTS
042057,000304: 17,2423           51722                           INDEX    COEFFADR                              #    FROM: ERASABLE FOR CSM/LM HB
042058,000305: 17,2424           30001                           DCA      0                                     #          FIXED    FOR CSM/LM LB
042059,000306: 17,2425           53724                           DXCH     N10                                   #          FIXED    FOR CSM
042060,000307: 
042061,000308: 17,2426           00006                           EXTEND                                         #  NOTE: FOR CSM/LM, NORMAL COEFFICIENT
042062,000309: 17,2427           51722                           INDEX    COEFFADR                              #  LOAD WILL BE HIGH BANDWIDTH PAD LOAD
042063,000310: 17,2430           30003                           DCA      2                                     #  ERASABLES. DURING CSM/LM SWITCHOVER, 
042064,000311: 17,2431           53726                           DXCH     N10        +2                         #  THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
042065,000312:                                                                                                  #  COEFFICIENTS FROM FIXED MEMORY.
042066,000313: 
042067,000314: 17,2432           00006                           EXTEND                                         
042068,000315: 17,2433           51722                           INDEX    COEFFADR                              
042069,000316: 17,2434           30005                           DCA      4                                     
042070,000317: 17,2435           53730                           DXCH     N10        +4                         
042071,000318: 
042072,000319: 17,2436           00006                           EXTEND                                         
042073,000320: 17,2437           51722                           INDEX    COEFFADR                              
042074,000321: 17,2440           30007                           DCA      6                                     
042075,000322: 17,2441           53732                           DXCH     N10        +6                         
042076,000323: 
042077,000324: 17,2442           00006                           EXTEND                                         
042078,000325: 17,2443           51722                           INDEX    COEFFADR                              
042079,000326: 17,2444           30011                           DCA      8D                                    
042080,000327: 17,2445           53734                           DXCH     N10        +8D                        
042081,000328: 
042082,000329: 17,2446           00006                           EXTEND                                         
042083,000330: 17,2447           51722                           INDEX    COEFFADR                              
042084,000331: 17,2450           30013                           DCA      10D                                   
042085,000332: 17,2451           53736                           DXCH     N10        +10D                       
042086,000333: 
042087,000334: 17,2452           00006                           EXTEND                                         
042088,000335: 17,2453           51722                           INDEX    COEFFADR                              
042089,000336: 17,2454           30015                           DCA      12D                                   
042090,000337: 17,2455           53740                           DXCH     N10        +12D                       
042091,000338: 
042092,000339: 17,2456           51722                           INDEX    COEFFADR                              
042093,000340: 17,2457           30016                           CA       14D                                   
042094,000341: 17,2460           55741                           TS       N10        +14D                       
042095,000342: 
042096,000343: 17,2461           00002                           TC       Q                                     

Page 943

042098,000345: 17,2462           31470        S40.15             CAE      IXX                                   #  GAIN COMPUTATIONS (1/CONACC, VARK)
042099,000346: 17,2463           00006                           EXTEND                                         #  ENTERED FROM TVCINITIALIZE AND TVCEXEC
042100,000347: 17,2464           72544                           MP       2PI/M                                 #        2PI/M SCALED 1/(B+8 N M)
042101,000348: 17,2465           20001                           DDOUBL                                         #        IXX   SCALED B+20 KG-MSQ
042102,000349: 17,2466           20001                           DDOUBL                                         
042103,000350: 17,2467           20001                           DDOUBL                                         
042104,000351: 17,2470           55640                           TS       1/CONACC                              #              SCALED B+9 SEC-SQ/REV
042105,000352: 
042106,000353: 17,2471           31636                 +7        CAE      KTLX/I                                #  ENTRY FROM CSM/LM V46 SWITCH-OVER
042107,000354: 17,2472           00006                           EXTEND                                         #             SCALED (B+3 ASCREV)  1/SECSQ
042108,000355: 17,2473           71472                           MP       IAVG/TLX                              #             SCALED B+2 SECSQ
042109,000356: 17,2474           20001                           DDOUBL                                         
042110,000357: 17,2475           20001                           DDOUBL                                         
042111,000358: 17,2476           55641                           TS       VARK                                  #             SCALED (B+3 ASCREV)
042112,000359: 17,2477           00002                           TC       Q                                     
042113,000360: 
042114,000361: 17,2500           37777        CSMN10             DEC      .99999                                #  N10   CSM ONLY FILTER COEFFICIENTS
042115,000362: 17,2501           67657                           DEC      -.2549                                #  N11/2
042116,000363: 17,2502           01703                           DEC      .0588                                 #  N12
042117,000364: 17,2503           47472                           DEC      -.7620                                #  D11/2
042118,000365: 17,2504           27656                           DEC      .7450                                 #  D12
042119,000366: 
042120,000367: 17,2505           37777                           DEC      .99999                                #  N20
042121,000368: 17,2506           60361                           DEC      -.4852                                #  N21/2
042122,000369: 17,2507           00000                           DEC      0          B-14                       #  N22
042123,000370: 17,2510           67304                           DEC      -.2692                                #  D22/2
042124,000371: 17,2511           00000                           DEC      0          B-14                       #  D22
042125,000372: 
042126,000373: 17,2512           37777        LBN10              DEC      +.99999                               #  N10   LOW BANDWIDTH FILTER COEFFICIENTS
042127,000374: 17,2513           65371                           DEC      -.3285                                #  N11/2
042128,000375: 17,2514           65337                           DEC      -.3301                                # N12
042129,000376: 17,2515           42700                           DEC      -.9101                                # D11/2
042130,000377: 17,2516           33045                           DEC      +.8460                                # D12
042131,000378: 
042132,000379: 17,2517           01000                           DEC      +.03125                               # N20
042133,000380: 17,2520           00000                           DEC      0          B-14                       # N21/2
042134,000381: 17,2521           00000                           DEC      0          B-14                       # N22
042135,000382: 17,2522           42700                           DEC      -.9101                                # D21/2
042136,000383: 17,2523           33045                           DEC      +.8460                                # D22
042137,000384: 
042138,000385: 17,2524           20000                           DEC      +.50000                               # N30
042139,000386: 17,2525           60730                           DEC      -.47115                               # N31/2
042140,000387: 17,2526           17145                           DEC      +.4749                                # N32
042141,000388: 17,2527           41323                           DEC      -.9558                                # D31/2
042142,000389: 17,2530           35773                           DEC      +.9372                                # D32
042143,000390: 
042144,000391: 17,2531           02500        CSMCFADR           GENADR   CSMN10                                #  CSM ONLY COEFFICIENTS ADDRESS
042145,000392: 17,2532           01425        HBCFADR            GENADR   HBN10                                 #  HIGH BANDWIDTH COEFFICIENTS ADDRESS

Page 944

042147,000394: 17,2533           02512        LBCFADR            GENADR   LBN10                                 #  LOW BANDWIDTH COEFFICIENTS ADDRESS
042148,000395: 
042149,000396: 17,2534           00063        NZERO              DEC      51         B-14                       #  MUST BE ODD FOR MRCLEAN
042150,000397: 17,2535           00027        NZEROJR            DEC      23         B-14                       #  MUST BE ODD FOR MCLEANJR
042151,000398: 
042152,000399: 17,2536           00210        ATTLIM             DEC      0.00833                               #  INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
042153,000400: 17,2537           00170        1/ATTLIM           DEC      0.007325                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
042154,000401: 
042155,000402: 17,2540           00005        TCORR              OCT      00005                                 #  CSM
042156,000403: 17,2541           00000                 +1        OCT      00000                                 #  CSM/LM (HB,LB)
042157,000404: 
042158,000405: 17,2542           00247        FKPRIMDT           DEC      .0102                                 #  CSM/LM (LB), (.05 X .08) SCALED AT PI/8
042159,000406: 17,2543           00232        FREPFRAC           DEC      .0375      B-2                        #  CSM/LM (LB), 0.0375 SCALED AT B+2
042160,000407: 
042161,000408: 17,2544     4374               NINETEEN           =        VD1                                   
042162,000409: 17,2544           33074        2PI/M              DEC      .00331017  B+8                        #  2PI/M, SCALED AT 1/(B+8 N-M)
042163,000410: 
042164,000411: 17,2545           03720        ONETHOU            DEC      1000       B-13                       #  KG/CS B3 TO KG/10SEC B16 CONVERSION
042165,000412: 
042166,000413: 17,2546  E6,1702                                  EBANK=   BZERO                                 
042167,000414: 17,2546           03107 40066  DAPINIT5           2CADR    DAPINIT                               
042168,000415: 
042169,000416: 17,2550  E6,1702                                  EBANK=   BZERO                                 
042170,000417: 17,2550           02171 36066  INITLOC2           2CADR    TVCINIT1                              

End of include-file TVCINITIALIZE.agc.  Parent file is MAIN.agc