Source Code

These source-code files are part of a reconstructed copy of Comanche 51, the initial release (though not the final mission release) of the Apollo 11 Command Module (CM) Apollo Guidance Computer (AGC) software. The flown, final release was Comanche 55. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 51, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 55, whose original source code is available. Comanche 55 source code was then modified by undoing changes known to have been made between revisions 51 and 55. The most-significant steps involved reverting changes related to the R-2 lunar potential model, the details of which were known from the previous, separate, independent reconstruction of the Apollo 10 Lunar Module software Luminary 69/2. The now-reconstructed Comanche 51 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 or Luminary 69 printouts, although the source code would likely have different page numbers in a contemporary Comanche 51 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 55. Here's a guide to some of the Apollo documentation relevant to those annotations:
Among documentation not actually referenced in the annotations, there is a short writeup about the reconstruction process in our software repository that may be helpful in understanding it from a different perspective. There's also a handy table that lists what the number of memory-words should be for each routine in Comanche 51, which could make a nice double-check; however, we've not performed that double-check ourselves.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

040858,000002:                                                                                                  ## Copyright:   Public domain.
040859,000003:                                                                                                  ## Filename:    TVCINITIALIZE.agc
040860,000004:                                                                                                  ## Purpose:     A section of Comanche revision 051.
040861,000005:                                                                                                  ##              It is part of the reconstructed source code for the
040862,000006:                                                                                                  ##              original release of the flight software for the Command
040863,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
040864,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
040865,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
040866,000010:                                                                                                  ##              exactly match those specified for Comanche 51 in NASA drawing
040867,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
040868,000012:                                                                                                  ##              reconstruction is correct.
040869,000013:                                                                                                  ## Reference:   pp. 937-944
040870,000014:                                                                                                  ## Assembler:   yaYUL
040871,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
040872,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
040873,000017:                                                                                                  ## Mod history: 2019-07-30 MAS  Created from Comanche 55.
040874,000018: 

Page 937

040876,000020:                                                                                                  #  NAME          TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
040877,000021:                                                                                                  #  LOG SECTION...TVCINITIALIZE                   SUBROUTINE...DAPCSM
040878,000022:                                                                                                  #  MODIFIED BY SCHLUNDT                          21 OCTOBER 1968
040879,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION
040880,000024:                                                                                                  #        PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
040881,000025:                                                                                                  #        COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
040882,000026:                                                                                                  #        MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
040883,000027:                                                                                                  #        PERFORMS INITIALIZATION FOR ROLL DAP
040884,000028:                                                                                                  #        CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
040885,000029:                                                                                                  #        CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT  VIA T5
040886,000030:                                                                                                  #        PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
040887,000031:                                                                                                  #  CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
040888,000032:                                                                                                  #        IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
040889,000033:                                                                                                  #        MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
040890,000034:                                                                                                  #  NORMAL EXIT MODE
040891,000035:                                                                                                  #        TCF RESUME
040892,000036:                                                                                                  #  SUBROUTINES CALLED
040893,000037:                                                                                                  #        NEEDLER, MASSPROP
040894,000038:                                                                                                  #  ALARM OR ABORT EXIT MODES
040895,000039:                                                                                                  #        NONE
040896,000040:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040897,000041:                                                                                                  #        CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
040898,000042:                                                                                                  #        TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
040899,000043:                                                                                                  #        PACTOFF, YACTOFF, CDUX
040900,000044:                                                                                                  #        TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
040901,000045:                                                                                                  #  OUTPUT
040902,000046:                                                                                                  #        ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
040903,000047:                                                                                                  #  DEBRIS
040904,000048:                                                                                                  #        NONE
040905,000049: 
040906,000050: 42,3772                                           COUNT*   $$/INIT                               
040907,000051: 17,2147                                           BANK     17                                    
040908,000052: 17,2000                                           SETLOC   DAPS7                                 
040909,000053: 17,2000                                           BANK                                           
040910,000054: 
040911,000055: 17,2147  E6,1702                                  EBANK=   BZERO                                 
040912,000056: 
040913,000057: 17,2147           22016        TVCDAPON           LXCH     BANKRUPT                              #  T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
040914,000058: 17,2150           00006                           EXTEND                                         #  SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
040915,000059: 17,2151           22012                           QXCH     QRUPT                                 #        TVCINIT4 ARE ENTRIES)
040916,000060: 17,2152           32534        MRCLEAN            CAF      NZERO                                 #  NUMBER TO ZERO, LESS ONE  (MUST BE ODD)
040917,000061:                                                                                                  #        TVC RESTARTS ENTER HERE  (NEW BANK)
040918,000062: 17,2153           10000                 +1        CCS      A                                     
040919,000063: 17,2154           55447                           TS       CNTR                                  
040920,000064: 17,2155           35021                           CAF      ZERO                                  
040921,000065: 17,2156           54001                           TS       L                                     
040922,000066: 17,2157           51447                           INDEX    CNTR                                  
040923,000067: 17,2160           53530                           DXCH     OMEGAYC                               #  FIRST (LAST) TWO LOCATIONS
040924,000068: 17,2161           11447                           CCS      CNTR                                  
040925,000069: 17,2162           12153                           TCF      MRCLEAN    +1                         

Page 938

040927,000071: 17,2163           00006                           EXTEND                                         #  SET UP ANOTHER T5 RUPT TO CONTINUE
040928,000072: 17,2164           32551                           DCA      INITLOC2                              #        INITIALIZATION AT TVCINIT1
040929,000073: 17,2165           53313                           DXCH     T5LOC                                 #  THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
040930,000074: 17,2166           34777                           CAF      POSMAX                                #        +3 IS IN ANOTHER BANK.  MUST RESET
040931,000075: 17,2167           54030                           TS       TIME5                                 #        BBCON TOO (FULL 2CADR), FOR THAT
040932,000076: 17,2170           15333        ENDMRC             TCF      RESUME                                #        ENTRY.
040933,000077: 
040934,000078: 17,2171           22016        TVCINIT1           LXCH     BANKRUPT                              
040935,000079: 17,2172           00006                           EXTEND                                         
040936,000080: 17,2173           22012                           QXCH     QRUPT                                 
040937,000081: 
040938,000082: 17,2174           04740                           TC       IBNKCALL                              #  UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
040939,000083: 17,2175           13366                           CADR     MASSPROP                              #        OR NOUNS 46 AND 47 MUST BE CORRECT)
040940,000084: 
040941,000085: 17,2176           30110                           CAE      EMDOT                                 #  SPS FLOW RATE, SCALED B+3 KG/CS
040942,000086: 17,2177           00006                           EXTEND                                         
040943,000087: 17,2200           72545                           MP       ONETHOU                               
040944,000088: 17,2201           55637                           TS       TENMDOT                               #  10-SEC MASS LOSS B+16 KG
040945,000089: 17,2202           40000                           COM                                            
040946,000090: 17,2203           61474                           AD       CSMMASS                               
040947,000091: 17,2204           55652                           TS       MASSTMP                               #  DECREMENT FOR FIRST 10 SEC OF BURN
040948,000092: 
040949,000093: 17,2205           31466                           CAE      DAPDATR1                              #  CHECK LEM-ON/OFF
040950,000094: 17,2206           75002                           MASK     BIT14                                 
040951,000095: 17,2207           10000                           CCS      A                                     
040952,000096: 17,2210           35017                           CAF      BIT1                                  #  LEM-ON (BIT1)
040953,000097: 17,2211           55447                           TS       CNTR                                  #  LEM-OFF (ZERO)
040954,000098: 
040955,000099: 17,2212           51447                           INDEX    CNTR                                  #  LOAD THE FILTER COEFFICIENTS
040956,000100: 17,2213           32531                           CAF      CSMCFADR                              
040957,000101: 17,2214           55722                           TS       COEFFADR                              
040958,000102: 17,2215           02422                           TC       LOADCOEF                              
040959,000103: 
040960,000104: 17,2216           51447                           INDEX    CNTR                                  #  PICK UP LM-OFF,-ON KTLX/I
040961,000105: 17,2217           31416                           CAE      EKTLX/I                               #  SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
040962,000106: 17,2220           55636                           TS       KTLX/I                                
040963,000107: 
040964,000108: 17,2221           02462                           TCR      S40.15                                #  COMPUTE 1/CONACC, VARK
040965,000109: 
040966,000110: 17,2222           41447        TVCINIT2           CS       CNTR                                  #  PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
040967,000111: 17,2223           50000                           INDEX    A                                     #  DETERMINATION:
040968,000112: 17,2224           35016                           CAF      BIT2                                  #        BIT2 FOR CSM ONLY 40MS FILTER
040969,000113: 17,2225           55634                           TS       KPRIMEDT                              #        BIT3 FOR CSM/LM 80MS FILTER
040970,000114: 
040971,000115: 17,2226           40000                           COM                                            #  PREPARE T5TVCDT
040972,000116: 17,2227           64777                           AD       POSMAX                                
040973,000117: 17,2230           65017                           AD       BIT1                                  
040974,000118: 17,2231           55625                           TS       T5TVCDT                               
040975,000119: 
040976,000120: 17,2232           45001                           CS       BIT15                                 #  RESET SWTOVER FLAG

Page 939

040978,000122: 17,2233           70105                           MASK     FLAGWRD9                              
040979,000123: 17,2234           54105                           TS       FLAGWRD9                              
040980,000124: 
040981,000125: 17,2235           51447                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON KPRIME
040982,000126: 17,2236           31414                           CAE      EKPRIME                               #        SCALED (100 PI)/16
040983,000127: 17,2237           00006                           EXTEND                                         
040984,000128: 17,2240           71634                           MP       KPRIMEDT                              #  (TVCDT/2, SC.AT B+14 CS)
040985,000129: 17,2241           22000                           LXCH     A                                     #        SC.AT PI/8      (DIMENSIONLESS)
040986,000130: 17,2242           53635                           DXCH     KPRIMEDT                              
040987,000131: 
040988,000132: 17,2243           51447                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON REPFRAC
040989,000133: 17,2244           31421                           CAE      EREPFRAC                              
040990,000134: 17,2245           55642                           TS       REPFRAC                               
040991,000135: 
040992,000136: 17,2246           51447                           INDEX    CNTR                                  #  PICK UP ONE-SHOT CORRECTION TIME
040993,000137: 17,2247           32540                           CAF      TCORR                                 
040994,000138: 17,2250           55447                           TS       CNTR                                  
040995,000139: 
040996,000140: 17,2251           37716                           CAF      NEGONE                                #  PREVENT STROKE TEST UNTIL CALLED
040997,000141: 17,2252           55654                           TS       STRKTIME                              
040998,000142: 
040999,000143: 17,2253           34374                           CAF      NINETEEN                              #  SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041000,000144: 17,2254           55643                           TS       VCNTR                                 #        10 SECONDS (TVCEXEC 1/2 SEC RATE)
041001,000145: 17,2255           55444                           TS       V97VCNTR                              #  FOR ENGFAIL (R41) LOGIC
041002,000146: 
041003,000147: 17,2256           31423        TVCINIT3           CAE      PACTOFF                               #  TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041004,000148: 17,2257           55605                           TS       PDELOFF                               #        TRACKERS, OFFSET-UPDATES, AND
041005,000149: 17,2260           55623                           TS       PCMD                                  #        OFFSET-TRACKER FILTERS
041006,000150: 17,2261           55601                           TS       DELPBAR                               #        NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041007,000151: 
041008,000152: 17,2262           31424                           CAE      YACTOFF                               
041009,000153: 17,2263           55607                           TS       YDELOFF                               
041010,000154: 17,2264           55624                           TS       YCMD                                  
041011,000155: 17,2265           55603                           TS       DELYBAR                               
041012,000156: 
041013,000157: 17,2266           31466        ATTINIT            CAE      DAPDATR1                              #  ATTITUDE-ERROR INITIALIZATION LOGIC
041014,000158: 17,2267           75003                           MASK     BIT13                                 #        TEST FOR CSM OR CSM/LM
041015,000159: 17,2270           00006                           EXTEND                                         
041016,000160: 17,2271           12317                           BZF      NEEDLEIN                              #        BYPASS INITIALIZATION FOR CSM/LM
041017,000161: 
041018,000162: 17,2272           35017                           CAF      BIT1                                  #        SET UP TEMPORARY COUNTER
041019,000163: 17,2273           55611                 +5        TS       TTMP1                                 
041020,000164: 
041021,000165: 17,2274           51611                           INDEX    TTMP1                                 
041022,000166: 17,2275           31702                           CA       ERRBTMP                               #  ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041023,000167: 17,2276           00006                           EXTEND                                         #        ERRORY & ERRORZ (P40 AT DOTVCON)
041024,000168: 17,2277           72537                           MP       1/ATTLIM                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041025,000169: 17,2300           00006                           EXTEND                                         
041026,000170: 17,2301           12311                           BZF      +8D                                   #        |ERROR| LESS THAN 1.5 DEG
041027,000171: 17,2302           00006                           EXTEND                                         

Page 940

041029,000173: 17,2303           62306                           BZMF     +3                                    #        |ERROR| > 1.5 DEG, AND NEG
041030,000174: 17,2304           32536                           CA       ATTLIM                                #        |ERROR| > 1.5 DEG, AND POS
041031,000175: 17,2305           12307                           TCF      +2                                    
041032,000176: 17,2306           42536                 +3        CS       ATTLIM                                
041033,000177: 17,2307           51611                 +2        INDEX    TTMP1                                 
041034,000178: 17,2310           55702                           TS       ERRBTMP                               
041035,000179: 17,2311           11611                 +8        CCS      TTMP1                                 #        TEST TEMPORARY COUNTER
041036,000180: 17,2312           12273                           TCF      ATTINIT    +5                         #        BACK TO REPEAT FOR PITCH ERROR
041037,000181: 
041038,000182: 17,2313           31702                           CA       ERRBTMP                               #  ERRORS ESTABLISHED AND LIMITED
041039,000183: 17,2314           55575                           TS       PERRB                                 
041040,000184: 17,2315           31703                           CA       ERRBTMP    +1                         
041041,000185: 17,2316           55577                           TS       YERRB                                 
041042,000186: 
041043,000187: 17,2317           41501        NEEDLEIN           CS       RCSFLAGS                              #  SET BIT 3 FOR INITIALIZATION PASS AND GO
041044,000188: 17,2320           75015                           MASK     BIT3                                  #        TO NEEDLER.  WILL CLEAR FOR TVC DAP
041045,000189: 17,2321           27501                           ADS      RCSFLAGS                              #        (RETURNS AFTER CADR)
041046,000190: 17,2322           04740                           TC       IBNKCALL                              
041047,000191: 17,2323           42420                           CADR     NEEDLER                               
041048,000192: 
041049,000193: 17,2324           35021        TVCINIT4           CAF      ZERO                                  #  SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041050,000194: 17,2325           55644                           TS       TVCPHASE                              #        NEEDLEIN INITIALIZATION FINISHED.
041051,000195:                                                                                                  #        (POSSIBLE TVC-RESTART ENTRY)
041052,000196: 
041053,000197: 17,2326           30032                           CAE      CDUX                                  #  PREPARE ROLL DAP
041054,000198: 17,2327           55662                           TS       OGANOW                                
041055,000199: 
041056,000200: 17,2330           35003                           CAF      BIT13                                 #  IF ENGINE IS ALREADY OFF, ENGINOFF HAS
041057,000201: 17,2331           00006                           EXTEND                                         #        ALREADY ESTABLISHED THE POST-BURN
041058,000202: 17,2332           02011                           RAND     DSALMOUT                              #        CSMMASS (MASSBACK DOES IT).  DONT
041059,000203: 17,2333           00006                           EXTEND                                         #        TOUCH CSMMASS.  IF ENGINE IS ON,
041060,000204: 17,2334           12337                           BZF      +3                                    #        THEN ITS OK TO DO THE COPYCYCLE
041061,000205:                                                                                                  #        EVEN BURNS LESS THAN 0.4 SEC ARE AOK
041062,000206: 
041063,000207: 17,2335           31652                           CAE      MASSTMP                               #  COPYCYCLE
041064,000208: 17,2336           55474                           TS       CSMMASS                               
041065,000209: 
041066,000210: 17,2337           35036                 +3        CAF      .5SEC                                 #  CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
041067,000211: 17,2340           05245                           TC       WAITLIST                              
041068,000212: 17,2341  E6,1702                                  EBANK=   BZERO                                 
041069,000213: 17,2341           02720 34066                     2CADR    TVCEXEC                               
041070,000214: 
041071,000215: 17,2343           00006                           EXTEND                                         #  CALL FOR DAPINIT
041072,000216: 17,2344           32547                           DCA      DAPINIT5                              
041073,000217: 17,2345           53313                           DXCH     T5LOC                                 
041074,000218: 17,2346           31625                           CAE      T5TVCDT                               #  (ALLOW TIME FOR RESTART COMPUTATIONS)
041075,000219: 17,2347           54030                           TS       TIME5                                 

Page 941

041077,000221: 17,2350           15333        ENDTVCIN           TCF      RESUME                                
041078,000222: 
041079,000223: 17,2351           02354        PRESWTCH           TCR      SWICHOVR                              #  ENTRY FROM V46
041080,000224: 
041081,000225: 17,2352           04701                           TC       POSTJUMP                              #  THIS PROVIDES AN EXIT FROM SWITCH-OVER
041082,000226: 17,2353           21272                           CADR     PINBRNCH                              #        (PINBRNCH DOES A RELINT)
041083,000227: 
041084,000228: 17,2354           00004        SWICHOVR           INHINT                                         
041085,000229: 17,2355           31644                           CA       TVCPHASE                              #  SAVE TVCPHASE
041086,000230: 17,2356           55611                           TS       PHASETMP                              
041087,000231: 17,2357           45016                           CS       BIT2                                  #  SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041088,000232: 17,2360           55644                           TS       TVCPHASE                              #        TO RESTART LOGIC)
041089,000233: 
041090,000234: 17,2361           00006                 +5        EXTEND                                         #  SAVE Q FOR RETURN (RESTART ENTRY POINT,
041091,000235: 17,2362           23613                           QXCH     RTRNLOC                               #        TVCPHASE AND PHASETMP ALREADY SET)
041092,000236: 
041093,000237: 17,2363           32535                           CAF      NZEROJR                               #  ZEROING LOOP FOR FILTER STORAGE LOCS
041094,000238: 17,2364           55676                 +8        TS       CNTRTMP                               
041095,000239: 
041096,000240: 17,2365           35021        MCLEANJR           CA       ZERO                                  
041097,000241: 17,2366           54001                           TS       L                                     
041098,000242: 17,2367           51676                           INDEX    CNTRTMP                               
041099,000243: 17,2370           53541                           DXCH     PTMP1      -1                         
041100,000244: 17,2371           11676                           CCS      CNTRTMP                               
041101,000245: 17,2372           10000                           CCS      A                                     
041102,000246: 17,2373           12364                           TCF      SWICHOVR   +8D                        
041103,000247: 
041104,000248: 17,2374           40105                           CS       FLAGWRD9                              #  SET SWITCHOVER FLAG FOR DOWNLINK
041105,000249: 17,2375           75001                           MASK     BIT15                                 
041106,000250: 17,2376           26105                           ADS      FLAGWRD9                              
041107,000251: 
041108,000252: 17,2377           31420                           CAE      EKTLX/I    +2                         #  LOW BANDWIDTH GAINS   - DAP
041109,000253: 17,2400           55636                           TS       KTLX/I                                
041110,000254: 17,2401           02471                           TCR      S40.15     +7                         
041111,000255: 
041112,000256: 17,2402           32542                           CAF      FKPRIMDT                              #                        - STEERING
041113,000257: 17,2403           55634                           TS       KPRIMEDT                              
041114,000258: 
041115,000259: 17,2404           32543                           CAF      FREPFRAC                              #                        - TMC LOOP
041116,000260: 17,2405           55642                           TS       REPFRAC                               
041117,000261: 
041118,000262: 17,2406           00006                           EXTEND                                         #  UPDATE TRIM ESTIMATES
041119,000263: 17,2407           31602                           DCA      DELPBAR                               
041120,000264: 17,2410           53606                           DXCH     PDELOFF                               
041121,000265: 17,2411           00006                           EXTEND                                         
041122,000266: 17,2412           31604                           DCA      DELYBAR                               
041123,000267: 17,2413           53610                           DXCH     YDELOFF                               
041124,000268: 
041125,000269: 17,2414           32533                           CA       LBCFADR                               

Page 942

041127,000271: 17,2415           55722                           TS       COEFFADR                              
041128,000272: 17,2416           02422                           TC       LOADCOEF                              
041129,000273: 
041130,000274: 17,2417           31611                           CAE      PHASETMP                              #  RESTORE TVCPHASE
041131,000275: 17,2420           55644                           TS       TVCPHASE                              
041132,000276: 
041133,000277: 17,2421           01613                           TC       RTRNLOC                               #  BACK TO PRESWTCH OR TVCRESTARTS
041134,000278: 
041135,000279: 17,2422           00006        LOADCOEF           EXTEND                                         #  LOAD DAP FILTER COEFFICIENTS
041136,000280: 17,2423           51722                           INDEX    COEFFADR                              #    FROM: ERASABLE FOR CSM/LM HB
041137,000281: 17,2424           30001                           DCA      0                                     #          FIXED    FOR CSM/LM LB
041138,000282: 17,2425           53724                           DXCH     N10                                   #          FIXED    FOR CSM
041139,000283: 
041140,000284: 17,2426           00006                           EXTEND                                         #  NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041141,000285: 17,2427           51722                           INDEX    COEFFADR                              #  LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041142,000286: 17,2430           30003                           DCA      2                                     #  ERASABLES. DURING CSM/LM SWITCHOVER, 
041143,000287: 17,2431           53726                           DXCH     N10        +2                         #  THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041144,000288:                                                                                                  #  COEFFICIENTS FROM FIXED MEMORY.
041145,000289: 
041146,000290: 17,2432           00006                           EXTEND                                         
041147,000291: 17,2433           51722                           INDEX    COEFFADR                              
041148,000292: 17,2434           30005                           DCA      4                                     
041149,000293: 17,2435           53730                           DXCH     N10        +4                         
041150,000294: 
041151,000295: 17,2436           00006                           EXTEND                                         
041152,000296: 17,2437           51722                           INDEX    COEFFADR                              
041153,000297: 17,2440           30007                           DCA      6                                     
041154,000298: 17,2441           53732                           DXCH     N10        +6                         
041155,000299: 
041156,000300: 17,2442           00006                           EXTEND                                         
041157,000301: 17,2443           51722                           INDEX    COEFFADR                              
041158,000302: 17,2444           30011                           DCA      8D                                    
041159,000303: 17,2445           53734                           DXCH     N10        +8D                        
041160,000304: 
041161,000305: 17,2446           00006                           EXTEND                                         
041162,000306: 17,2447           51722                           INDEX    COEFFADR                              
041163,000307: 17,2450           30013                           DCA      10D                                   
041164,000308: 17,2451           53736                           DXCH     N10        +10D                       
041165,000309: 
041166,000310: 17,2452           00006                           EXTEND                                         
041167,000311: 17,2453           51722                           INDEX    COEFFADR                              
041168,000312: 17,2454           30015                           DCA      12D                                   
041169,000313: 17,2455           53740                           DXCH     N10        +12D                       
041170,000314: 
041171,000315: 17,2456           51722                           INDEX    COEFFADR                              
041172,000316: 17,2457           30016                           CA       14D                                   
041173,000317: 17,2460           55741                           TS       N10        +14D                       
041174,000318: 
041175,000319: 17,2461           00002                           TC       Q                                     

Page 943

041177,000321: 17,2462           31470        S40.15             CAE      IXX                                   #  GAIN COMPUTATIONS (1/CONACC, VARK)
041178,000322: 17,2463           00006                           EXTEND                                         #  ENTERED FROM TVCINITIALIZE AND TVCEXEC
041179,000323: 17,2464           72544                           MP       2PI/M                                 #        2PI/M SCALED 1/(B+8 N M)
041180,000324: 17,2465           20001                           DDOUBL                                         #        IXX   SCALED B+20 KG-MSQ
041181,000325: 17,2466           20001                           DDOUBL                                         
041182,000326: 17,2467           20001                           DDOUBL                                         
041183,000327: 17,2470           55640                           TS       1/CONACC                              #              SCALED B+9 SEC-SQ/REV
041184,000328: 
041185,000329: 17,2471           31636                 +7        CAE      KTLX/I                                #  ENTRY FROM CSM/LM V46 SWITCH-OVER
041186,000330: 17,2472           00006                           EXTEND                                         #             SCALED (B+3 ASCREV)  1/SECSQ
041187,000331: 17,2473           71472                           MP       IAVG/TLX                              #             SCALED B+2 SECSQ
041188,000332: 17,2474           20001                           DDOUBL                                         
041189,000333: 17,2475           20001                           DDOUBL                                         
041190,000334: 17,2476           55641                           TS       VARK                                  #             SCALED (B+3 ASCREV)
041191,000335: 17,2477           00002                           TC       Q                                     
041192,000336: 
041193,000337: 17,2500           37777        CSMN10             DEC      .99999                                #  N10   CSM ONLY FILTER COEFFICIENTS
041194,000338: 17,2501           67657                           DEC      -.2549                                #  N11/2
041195,000339: 17,2502           01703                           DEC      .0588                                 #  N12
041196,000340: 17,2503           47472                           DEC      -.7620                                #  D11/2
041197,000341: 17,2504           27656                           DEC      .7450                                 #  D12
041198,000342: 
041199,000343: 17,2505           37777                           DEC      .99999                                #  N20
041200,000344: 17,2506           60361                           DEC      -.4852                                #  N21/2
041201,000345: 17,2507           00000                           DEC      0          B-14                       #  N22
041202,000346: 17,2510           67304                           DEC      -.2692                                #  D22/2
041203,000347: 17,2511           00000                           DEC      0          B-14                       #  D22
041204,000348: 
041205,000349: 17,2512           37777        LBN10              DEC      +.99999                               #  N10   LOW BANDWIDTH FILTER COEFFICIENTS
041206,000350: 17,2513           65371                           DEC      -.3285                                #  N11/2
041207,000351: 17,2514           65337                           DEC      -.3301                                # N12
041208,000352: 17,2515           42700                           DEC      -.9101                                # D11/2
041209,000353: 17,2516           33045                           DEC      +.8460                                # D12
041210,000354: 
041211,000355: 17,2517           01000                           DEC      +.03125                               # N20
041212,000356: 17,2520           00000                           DEC      0          B-14                       # N21/2
041213,000357: 17,2521           00000                           DEC      0          B-14                       # N22
041214,000358: 17,2522           42700                           DEC      -.9101                                # D21/2
041215,000359: 17,2523           33045                           DEC      +.8460                                # D22
041216,000360: 
041217,000361: 17,2524           20000                           DEC      +.50000                               # N30
041218,000362: 17,2525           60730                           DEC      -.47115                               # N31/2
041219,000363: 17,2526           17145                           DEC      +.4749                                # N32
041220,000364: 17,2527           41323                           DEC      -.9558                                # D31/2
041221,000365: 17,2530           35773                           DEC      +.9372                                # D32
041222,000366: 
041223,000367: 17,2531           02500        CSMCFADR           GENADR   CSMN10                                #  CSM ONLY COEFFICIENTS ADDRESS
041224,000368: 17,2532           01425        HBCFADR            GENADR   HBN10                                 #  HIGH BANDWIDTH COEFFICIENTS ADDRESS

Page 944

041226,000370: 17,2533           02512        LBCFADR            GENADR   LBN10                                 #  LOW BANDWIDTH COEFFICIENTS ADDRESS
041227,000371: 
041228,000372: 17,2534           00063        NZERO              DEC      51         B-14                       #  MUST BE ODD FOR MRCLEAN
041229,000373: 17,2535           00027        NZEROJR            DEC      23         B-14                       #  MUST BE ODD FOR MCLEANJR
041230,000374: 
041231,000375: 17,2536           00210        ATTLIM             DEC      0.00833                               #  INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
041232,000376: 17,2537           00170        1/ATTLIM           DEC      0.007325                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041233,000377: 
041234,000378: 17,2540           00005        TCORR              OCT      00005                                 #  CSM
041235,000379: 17,2541           00000                 +1        OCT      00000                                 #  CSM/LM (HB,LB)
041236,000380: 
041237,000381: 17,2542           00247        FKPRIMDT           DEC      .0102                                 #  CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041238,000382: 17,2543           00232        FREPFRAC           DEC      .0375      B-2                        #  CSM/LM (LB), 0.0375 SCALED AT B+2
041239,000383: 
041240,000384: 17,2544     4374               NINETEEN           =        VD1                                   
041241,000385: 17,2544           33074        2PI/M              DEC      .00331017  B+8                        #  2PI/M, SCALED AT 1/(B+8 N-M)
041242,000386: 
041243,000387: 17,2545           03720        ONETHOU            DEC      1000       B-13                       #  KG/CS B3 TO KG/10SEC B16 CONVERSION
041244,000388: 
041245,000389: 17,2546  E6,1702                                  EBANK=   BZERO                                 
041246,000390: 17,2546           03107 40066  DAPINIT5           2CADR    DAPINIT                               
041247,000391: 
041248,000392: 17,2550  E6,1702                                  EBANK=   BZERO                                 
041249,000393: 17,2550           02171 36066  INITLOC2           2CADR    TVCINIT1                              

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