Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

040250,000002:                                                                                                  ## Copyright:   Public domain.
040251,000003:                                                                                                  ## Filename:    TVCINITIALIZE.agc
040252,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
040253,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
040254,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
040255,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
040256,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
040257,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
040258,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
040259,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
040260,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
040261,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
040262,000014:                                                                                                  ##              reconstruction is correct.
040263,000015:                                                                                                  ## Assembler:   yaYUL
040264,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
040265,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
040266,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
040267,000019: 
040268,000020:                                                                                                  #  NAME          TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
040269,000021:                                                                                                  #  LOG SECTION...TVCINITIALIZE                   SUBROUTINE...DAPCSM
040270,000022:                                                                                                  #  MODIFIED BY SCHLUNDT                          21 OCTOBER 1968
040271,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION
040272,000024:                                                                                                  #        PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
040273,000025:                                                                                                  #        COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
040274,000026:                                                                                                  #        MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
040275,000027:                                                                                                  #        PERFORMS INITIALIZATION FOR ROLL DAP
040276,000028:                                                                                                  #        CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
040277,000029:                                                                                                  #        CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT  VIA T5
040278,000030:                                                                                                  #        PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
040279,000031:                                                                                                  #  CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
040280,000032:                                                                                                  #        IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
040281,000033:                                                                                                  #        MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
040282,000034:                                                                                                  #  NORMAL EXIT MODE
040283,000035:                                                                                                  #        TCF RESUME
040284,000036:                                                                                                  #  SUBROUTINES CALLED
040285,000037:                                                                                                  #        NEEDLER, MASSPROP
040286,000038:                                                                                                  #  ALARM OR ABORT EXIT MODES
040287,000039:                                                                                                  #        NONE
040288,000040:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
040289,000041:                                                                                                  #        CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
040290,000042:                                                                                                  #        TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
040291,000043:                                                                                                  #        PACTOFF, YACTOFF, CDUX
040292,000044:                                                                                                  #        TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
040293,000045:                                                                                                  #  OUTPUT
040294,000046:                                                                                                  #        ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
040295,000047:                                                                                                  #  DEBRIS
040296,000048:                                                                                                  #        NONE
040297,000049: 
040298,000050: 42,3767                                           COUNT*   $$/INIT                               
040299,000051: 17,2205                                           BANK     17                                    
040300,000052: 17,2000                                           SETLOC   DAPS7                                 
040301,000053: 17,2000                                           BANK                                           
040302,000054: 
040303,000055: 17,2205  E6,1704                                  EBANK=   BZERO                                 
040304,000056: 
040305,000057: 17,2205           22016        TVCDAPON           LXCH     BANKRUPT                              #  T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
040306,000058: 17,2206           00006                           EXTEND                                         #  SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
040307,000059: 17,2207           22012                           QXCH     QRUPT                                 #        TVCINIT4 ARE ENTRIES)
040308,000060: 17,2210           32572        MRCLEAN            CAF      NZERO                                 #  NUMBER TO ZERO, LESS ONE  (MUST BE ODD)
040309,000061:                                                                                                  #        TVC RESTARTS ENTER HERE  (NEW BANK)
040310,000062: 17,2211           10000                 +1        CCS      A                                     
040311,000063: 17,2212           55447                           TS       CNTR                                  
040312,000064: 17,2213           35035                           CAF      ZERO                                  
040313,000065: 17,2214           54001                           TS       L                                     
040314,000066: 17,2215           51447                           INDEX    CNTR                                  
040315,000067: 17,2216           53530                           DXCH     OMEGAYC                               #  FIRST (LAST) TWO LOCATIONS
040316,000068: 17,2217           11447                           CCS      CNTR                                  
040317,000069: 17,2220           12211                           TCF      MRCLEAN    +1                         
040318,000070: 17,2221           00006                           EXTEND                                         #  SET UP ANOTHER T5 RUPT TO CONTINUE
040319,000071: 17,2222           32607                           DCA      INITLOC2                              #        INITIALIZATION AT TVCINIT1
040320,000072: 17,2223           53313                           DXCH     T5LOC                                 #  THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
040321,000073: 17,2224           35013                           CAF      POSMAX                                #        +3 IS IN ANOTHER BANK.  MUST RESET
040322,000074: 17,2225           54030                           TS       TIME5                                 #        BBCON TOO (FULL 2CADR), FOR THAT
040323,000075: 17,2226           15347        ENDMRC             TCF      RESUME                                #        ENTRY.
040324,000076: 
040325,000077: 17,2227           22016        TVCINIT1           LXCH     BANKRUPT                              
040326,000078: 17,2230           00006                           EXTEND                                         
040327,000079: 17,2231           22012                           QXCH     QRUPT                                 
040328,000080: 
040329,000081: 17,2232           04754                           TC       IBNKCALL                              #  UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
040330,000082: 17,2233           13370                           CADR     MASSPROP                              #        OR NOUNS 46 AND 47 MUST BE CORRECT)
040331,000083: 
040332,000084: 17,2234           30110                           CAE      EMDOT                                 #  SPS FLOW RATE, SCALED B+3 KG/CS
040333,000085: 17,2235           00006                           EXTEND                                         
040334,000086: 17,2236           72603                           MP       ONETHOU                               
040335,000087: 17,2237           55637                           TS       TENMDOT                               #  10-SEC MASS LOSS B+16 KG
040336,000088: 17,2240           40000                           COM                                            
040337,000089: 17,2241           61474                           AD       CSMMASS                               
040338,000090: 17,2242           55654                           TS       MASSTMP                               #  DECREMENT FOR FIRST 10 SEC OF BURN
040339,000091: 
040340,000092: 17,2243           31466                           CAE      DAPDATR1                              #  CHECK LEM-ON/OFF
040341,000093: 17,2244           75016                           MASK     BIT14                                 
040342,000094: 17,2245           10000                           CCS      A                                     
040343,000095: 17,2246           35033                           CAF      BIT1                                  #  LEM-ON (BIT1)
040344,000096: 17,2247           55447                           TS       CNTR                                  #  LEM-OFF (ZERO)
040345,000097: 
040346,000098: 17,2250           51447                           INDEX    CNTR                                  #  LOAD THE FILTER COEFFICIENTS
040347,000099: 17,2251           32567                           CAF      CSMCFADR                              
040348,000100: 17,2252           55724                           TS       COEFFADR                              
040349,000101: 17,2253           02460                           TC       LOADCOEF                              
040350,000102: 
040351,000103: 17,2254           51447                           INDEX    CNTR                                  #  PICK UP LM-OFF,-ON KTLX/I
040352,000104: 17,2255           31416                           CAE      EKTLX/I                               #  SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
040353,000105: 17,2256           55636                           TS       KTLX/I                                
040354,000106: 
040355,000107: 17,2257           02520                           TCR      S40.15                                #  COMPUTE 1/CONACC, VARK
040356,000108: 
040357,000109: 17,2260           41447        TVCINIT2           CS       CNTR                                  #  PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
040358,000110: 17,2261           50000                           INDEX    A                                     #  DETERMINATION:
040359,000111: 17,2262           35032                           CAF      BIT2                                  #        BIT2 FOR CSM ONLY 40MS FILTER
040360,000112: 17,2263           55634                           TS       KPRIMEDT                              #        BIT3 FOR CSM/LM 80MS FILTER
040361,000113: 
040362,000114: 17,2264           40000                           COM                                            #  PREPARE T5TVCDT
040363,000115: 17,2265           65013                           AD       POSMAX                                
040364,000116: 17,2266           65033                           AD       BIT1                                  
040365,000117: 17,2267           55625                           TS       T5TVCDT                               
040366,000118: 
040367,000119: 17,2270           45015                           CS       BIT15                                 #  RESET SWTOVER FLAG
040368,000120: 17,2271           70105                           MASK     FLAGWRD9                              
040369,000121: 17,2272           54105                           TS       FLAGWRD9                              
040370,000122: 
040371,000123: 17,2273           51447                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON KPRIME
040372,000124: 17,2274           31414                           CAE      EKPRIME                               #        SCALED (100 PI)/16
040373,000125: 17,2275           00006                           EXTEND                                         
040374,000126: 17,2276           71634                           MP       KPRIMEDT                              #  (TVCDT/2, SC.AT B+14 CS)
040375,000127: 17,2277           22000                           LXCH     A                                     #        SC.AT PI/8      (DIMENSIONLESS)
040376,000128: 17,2300           53635                           DXCH     KPRIMEDT                              
040377,000129: 
040378,000130: 17,2301           51447                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON REPFRAC
040379,000131: 17,2302           31421                           CAE      EREPFRAC                              
040380,000132: 17,2303           55642                           TS       REPFRAC                               
040381,000133: 
040382,000134: 17,2304           51447                           INDEX    CNTR                                  #  PICK UP ONE-SHOT CORRECTION TIME
040383,000135: 17,2305           32576                           CAF      TCORR                                 
040384,000136: 17,2306           55447                           TS       CNTR                                  
040385,000137: 
040386,000138: 17,2307           37716                           CAF      NEGONE                                #  PREVENT STROKE TEST UNTIL CALLED
040387,000139: 17,2310           55656                           TS       STRKTIME                              
040388,000140: 
040389,000141: 17,2311           34374                           CAF      NINETEEN                              #  SET VCNTR FOR VARIABLE-GAIN UPDATES IN
040390,000142: 17,2312           55643                           TS       VCNTR                                 #        10 SECONDS (TVCEXEC 1/2 SEC RATE)
040391,000143: 17,2313           55444                           TS       V97VCNTR                              #  FOR ENGFAIL (R41) LOGIC
040392,000144: 
040393,000145: 17,2314           31423        TVCINIT3           CAE      PACTOFF                               #  TRIM VALUES TO TRIM-TRACKERS, OUTPUT
040394,000146: 17,2315           55605                           TS       PDELOFF                               #        TRACKERS, OFFSET-UPDATES, AND
040395,000147: 17,2316           55623                           TS       PCMD                                  #        OFFSET-TRACKER FILTERS
040396,000148: 17,2317           55601                           TS       DELPBAR                               #        NOTE, LO-ORDER DELOFF,DELBAR ZEROED
040397,000149: 
040398,000150: 17,2320           31424                           CAE      YACTOFF                               
040399,000151: 17,2321           55607                           TS       YDELOFF                               
040400,000152: 17,2322           55624                           TS       YCMD                                  
040401,000153: 17,2323           55603                           TS       DELYBAR                               
040402,000154: 
040403,000155: 17,2324           31466        ATTINIT            CAE      DAPDATR1                              #  ATTITUDE-ERROR INITIALIZATION LOGIC
040404,000156: 17,2325           75017                           MASK     BIT13                                 #        TEST FOR CSM OR CSM/LM
040405,000157: 17,2326           00006                           EXTEND                                         
040406,000158: 17,2327           12355                           BZF      NEEDLEIN                              #        BYPASS INITIALIZATION FOR CSM/LM
040407,000159: 
040408,000160: 17,2330           35033                           CAF      BIT1                                  #        SET UP TEMPORARY COUNTER
040409,000161: 17,2331           55611                 +5        TS       TTMP1                                 
040410,000162: 
040411,000163: 17,2332           51611                           INDEX    TTMP1                                 
040412,000164: 17,2333           31704                           CA       ERRBTMP                               #  ERRBTMP CONTAINS RCS ATTITUDE ERRORS
040413,000165: 17,2334           00006                           EXTEND                                         #        ERRORY & ERRORZ (P40 AT DOTVCON)
040414,000166: 17,2335           72575                           MP       1/ATTLIM                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
040415,000167: 17,2336           00006                           EXTEND                                         
040416,000168: 17,2337           12347                           BZF      +8D                                   #        |ERROR| LESS THAN 1.5 DEG
040417,000169: 17,2340           00006                           EXTEND                                         
040418,000170: 17,2341           62344                           BZMF     +3                                    #        |ERROR| > 1.5 DEG, AND NEG
040419,000171: 17,2342           32574                           CA       ATTLIM                                #        |ERROR| > 1.5 DEG, AND POS
040420,000172: 17,2343           12345                           TCF      +2                                    
040421,000173: 17,2344           42574                 +3        CS       ATTLIM                                
040422,000174: 17,2345           51611                 +2        INDEX    TTMP1                                 
040423,000175: 17,2346           55704                           TS       ERRBTMP                               
040424,000176: 17,2347           11611                 +8        CCS      TTMP1                                 #        TEST TEMPORARY COUNTER
040425,000177: 17,2350           12331                           TCF      ATTINIT    +5                         #        BACK TO REPEAT FOR PITCH ERROR
040426,000178: 
040427,000179: 17,2351           31704                           CA       ERRBTMP                               #  ERRORS ESTABLISHED AND LIMITED
040428,000180: 17,2352           55575                           TS       PERRB                                 
040429,000181: 17,2353           31705                           CA       ERRBTMP    +1                         
040430,000182: 17,2354           55577                           TS       YERRB                                 
040431,000183: 
040432,000184: 17,2355           41501        NEEDLEIN           CS       RCSFLAGS                              #  SET BIT 3 FOR INITIALIZATION PASS AND GO
040433,000185: 17,2356           75031                           MASK     BIT3                                  #        TO NEEDLER.  WILL CLEAR FOR TVC DAP
040434,000186: 17,2357           27501                           ADS      RCSFLAGS                              #        (RETURNS AFTER CADR)
040435,000187: 17,2360           04754                           TC       IBNKCALL                              
040436,000188: 17,2361           42432                           CADR     NEEDLER                               
040437,000189: 
040438,000190: 17,2362           35035        TVCINIT4           CAF      ZERO                                  #  SET TVCPHASE TO INDICATE TVCDAPON-THRU-
040439,000191: 17,2363           55644                           TS       TVCPHASE                              #        NEEDLEIN INITIALIZATION FINISHED.
040440,000192:                                                                                                  #        (POSSIBLE TVC-RESTART ENTRY)
040441,000193: 
040442,000194: 17,2364           30032                           CAE      CDUX                                  #  PREPARE ROLL DAP
040443,000195: 17,2365           55664                           TS       OGANOW                                
040444,000196: 
040445,000197: 17,2366           35017                           CAF      BIT13                                 #  IF ENGINE IS ALREADY OFF, ENGINOFF HAS
040446,000198: 17,2367           00006                           EXTEND                                         #        ALREADY ESTABLISHED THE POST-BURN
040447,000199: 17,2370           02011                           RAND     DSALMOUT                              #        CSMMASS (MASSBACK DOES IT).  DONT
040448,000200: 17,2371           00006                           EXTEND                                         #        TOUCH CSMMASS.  IF ENGINE IS ON,
040449,000201: 17,2372           12375                           BZF      +3                                    #        THEN ITS OK TO DO THE COPYCYCLE
040450,000202:                                                                                                  #        EVEN BURNS LESS THAN 0.4 SEC ARE AOK
040451,000203: 
040452,000204: 17,2373           31654                           CAE      MASSTMP                               #  COPYCYCLE
040453,000205: 17,2374           55474                           TS       CSMMASS                               
040454,000206: 
040455,000207: 17,2375           35052                 +3        CAF      .5SEC                                 #  CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
040456,000208: 17,2376           05261                           TC       WAITLIST                              
040457,000209: 17,2377  E6,1704                                  EBANK=   BZERO                                 
040458,000210: 17,2377           02772 34066                     2CADR    TVCEXEC                               
040459,000211: 
040460,000212: 17,2401           00006                           EXTEND                                         #  CALL FOR DAPINIT
040461,000213: 17,2402           32605                           DCA      DAPINIT5                              
040462,000214: 17,2403           53313                           DXCH     T5LOC                                 
040463,000215: 17,2404           31625                           CAE      T5TVCDT                               #  (ALLOW TIME FOR RESTART COMPUTATIONS)
040464,000216: 17,2405           54030                           TS       TIME5                                 
040465,000217: 17,2406           15347        ENDTVCIN           TCF      RESUME                                
040466,000218: 
040467,000219: 17,2407           02412        PRESWTCH           TCR      SWICHOVR                              #  ENTRY FROM V46
040468,000220: 
040469,000221: 17,2410           04715                           TC       POSTJUMP                              #  THIS PROVIDES AN EXIT FROM SWITCH-OVER
040470,000222: 17,2411           21272                           CADR     PINBRNCH                              #        (PINBRNCH DOES A RELINT)
040471,000223: 
040472,000224: 17,2412           00004        SWICHOVR           INHINT                                         
040473,000225: 17,2413           31644                           CA       TVCPHASE                              #  SAVE TVCPHASE
040474,000226: 17,2414           55611                           TS       PHASETMP                              
040475,000227: 17,2415           45032                           CS       BIT2                                  #  SET TVCPHASE = -2 (INDICATES SWITCH-OVER
040476,000228: 17,2416           55644                           TS       TVCPHASE                              #        TO RESTART LOGIC)
040477,000229: 
040478,000230: 17,2417           00006                 +5        EXTEND                                         #  SAVE Q FOR RETURN (RESTART ENTRY POINT,
040479,000231: 17,2420           23613                           QXCH     RTRNLOC                               #        TVCPHASE AND PHASETMP ALREADY SET)
040480,000232: 
040481,000233: 17,2421           32573                           CAF      NZEROJR                               #  ZEROING LOOP FOR FILTER STORAGE LOCS
040482,000234: 17,2422           55700                 +8        TS       CNTRTMP                               
040483,000235: 
040484,000236: 17,2423           35035        MCLEANJR           CA       ZERO                                  
040485,000237: 17,2424           54001                           TS       L                                     
040486,000238: 17,2425           51700                           INDEX    CNTRTMP                               
040487,000239: 17,2426           53541                           DXCH     PTMP1      -1                         
040488,000240: 17,2427           11700                           CCS      CNTRTMP                               
040489,000241: 17,2430           10000                           CCS      A                                     
040490,000242: 17,2431           12422                           TCF      SWICHOVR   +8D                        
040491,000243: 
040492,000244: 17,2432           40105                           CS       FLAGWRD9                              #  SET SWITCHOVER FLAG FOR DOWNLINK
040493,000245: 17,2433           75015                           MASK     BIT15                                 
040494,000246: 17,2434           26105                           ADS      FLAGWRD9                              
040495,000247: 
040496,000248: 17,2435           31420                           CAE      EKTLX/I    +2                         #  LOW BANDWIDTH GAINS   - DAP
040497,000249: 17,2436           55636                           TS       KTLX/I                                
040498,000250: 17,2437           02527                           TCR      S40.15     +7                         
040499,000251: 
040500,000252: 17,2440           32600                           CAF      FKPRIMDT                              #                        - STEERING
040501,000253: 17,2441           55634                           TS       KPRIMEDT                              
040502,000254: 
040503,000255: 17,2442           32601                           CAF      FREPFRAC                              #                        - TMC LOOP
040504,000256: 17,2443           55642                           TS       REPFRAC                               
040505,000257: 
040506,000258: 17,2444           00006                           EXTEND                                         #  UPDATE TRIM ESTIMATES
040507,000259: 17,2445           31602                           DCA      DELPBAR                               
040508,000260: 17,2446           53606                           DXCH     PDELOFF                               
040509,000261: 17,2447           00006                           EXTEND                                         
040510,000262: 17,2450           31604                           DCA      DELYBAR                               
040511,000263: 17,2451           53610                           DXCH     YDELOFF                               
040512,000264: 
040513,000265: 17,2452           32571                           CA       LBCFADR                               
040514,000266: 17,2453           55724                           TS       COEFFADR                              
040515,000267: 17,2454           02460                           TC       LOADCOEF                              
040516,000268: 
040517,000269: 17,2455           31611                           CAE      PHASETMP                              #  RESTORE TVCPHASE
040518,000270: 17,2456           55644                           TS       TVCPHASE                              
040519,000271: 
040520,000272: 17,2457           01613                           TC       RTRNLOC                               #  BACK TO PRESWTCH OR TVCRESTARTS
040521,000273: 
040522,000274: 17,2460           00006        LOADCOEF           EXTEND                                         #  LOAD DAP FILTER COEFFICIENTS
040523,000275: 17,2461           51724                           INDEX    COEFFADR                              #    FROM: ERASABLE FOR CSM/LM HB
040524,000276: 17,2462           30001                           DCA      0                                     #          FIXED    FOR CSM/LM LB
040525,000277: 17,2463           53726                           DXCH     N10                                   #          FIXED    FOR CSM
040526,000278: 
040527,000279: 17,2464           00006                           EXTEND                                         #  NOTE: FOR CSM/LM, NORMAL COEFFICIENT
040528,000280: 17,2465           51724                           INDEX    COEFFADR                              #  LOAD WILL BE HIGH BANDWIDTH PAD LOAD
040529,000281: 17,2466           30003                           DCA      2                                     #  ERASABLES. DURING CSM/LM SWITCHOVER, 
040530,000282: 17,2467           53730                           DXCH     N10        +2                         #  THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
040531,000283:                                                                                                  #  COEFFICIENTS FROM FIXED MEMORY.
040532,000284: 
040533,000285: 17,2470           00006                           EXTEND                                         
040534,000286: 17,2471           51724                           INDEX    COEFFADR                              
040535,000287: 17,2472           30005                           DCA      4                                     
040536,000288: 17,2473           53732                           DXCH     N10        +4                         
040537,000289: 
040538,000290: 17,2474           00006                           EXTEND                                         
040539,000291: 17,2475           51724                           INDEX    COEFFADR                              
040540,000292: 17,2476           30007                           DCA      6                                     
040541,000293: 17,2477           53734                           DXCH     N10        +6                         
040542,000294: 
040543,000295: 17,2500           00006                           EXTEND                                         
040544,000296: 17,2501           51724                           INDEX    COEFFADR                              
040545,000297: 17,2502           30011                           DCA      8D                                    
040546,000298: 17,2503           53736                           DXCH     N10        +8D                        
040547,000299: 
040548,000300: 17,2504           00006                           EXTEND                                         
040549,000301: 17,2505           51724                           INDEX    COEFFADR                              
040550,000302: 17,2506           30013                           DCA      10D                                   
040551,000303: 17,2507           53740                           DXCH     N10        +10D                       
040552,000304: 
040553,000305: 17,2510           00006                           EXTEND                                         
040554,000306: 17,2511           51724                           INDEX    COEFFADR                              
040555,000307: 17,2512           30015                           DCA      12D                                   
040556,000308: 17,2513           53742                           DXCH     N10        +12D                       
040557,000309: 
040558,000310: 17,2514           51724                           INDEX    COEFFADR                              
040559,000311: 17,2515           30016                           CA       14D                                   
040560,000312: 17,2516           55743                           TS       N10        +14D                       
040561,000313: 
040562,000314: 17,2517           00002                           TC       Q                                     
040563,000315: 17,2520           31470        S40.15             CAE      IXX                                   #  GAIN COMPUTATIONS (1/CONACC, VARK)
040564,000316: 17,2521           00006                           EXTEND                                         #  ENTERED FROM TVCINITIALIZE AND TVCEXEC
040565,000317: 17,2522           72602                           MP       2PI/M                                 #        2PI/M SCALED 1/(B+8 N M)
040566,000318: 17,2523           20001                           DDOUBL                                         #        IXX   SCALED B+20 KG-MSQ
040567,000319: 17,2524           20001                           DDOUBL                                         
040568,000320: 17,2525           20001                           DDOUBL                                         
040569,000321: 17,2526           55640                           TS       1/CONACC                              #              SCALED B+9 SEC-SQ/REV
040570,000322: 
040571,000323: 17,2527           31636                 +7        CAE      KTLX/I                                #  ENTRY FROM CSM/LM V46 SWITCH-OVER
040572,000324: 17,2530           00006                           EXTEND                                         #             SCALED (B+3 ASCREV)  1/SECSQ
040573,000325: 17,2531           71472                           MP       IAVG/TLX                              #             SCALED B+2 SECSQ
040574,000326: 17,2532           20001                           DDOUBL                                         
040575,000327: 17,2533           20001                           DDOUBL                                         
040576,000328: 17,2534           55641                           TS       VARK                                  #             SCALED (B+3 ASCREV)
040577,000329: 17,2535           00002                           TC       Q                                     
040578,000330: 
040579,000331: 17,2536           37777        CSMN10             DEC      .99999                                #  N10   CSM ONLY FILTER COEFFICIENTS
040580,000332: 17,2537           67657                           DEC      -.2549                                #  N11/2
040581,000333: 17,2540           01703                           DEC      .0588                                 #  N12
040582,000334: 17,2541           47472                           DEC      -.7620                                #  D11/2
040583,000335: 17,2542           27656                           DEC      .7450                                 #  D12
040584,000336: 
040585,000337: 17,2543           37777                           DEC      .99999                                #  N20
040586,000338: 17,2544           60361                           DEC      -.4852                                #  N21/2
040587,000339: 17,2545           00000                           DEC      0          B-14                       #  N22
040588,000340: 17,2546           67304                           DEC      -.2692                                #  D22/2
040589,000341: 17,2547           00000                           DEC      0          B-14                       #  D22
040590,000342: 
040591,000343: 17,2550           37777        LBN10              DEC      +.99999                               #  N10   LOW BANDWIDTH FILTER COEFFICIENTS
040592,000344: 17,2551           65371                           DEC      -.3285                                #  N11/2
040593,000345: 17,2552           65337                           DEC      -.3301                                # N12
040594,000346: 17,2553           42700                           DEC      -.9101                                # D11/2
040595,000347: 17,2554           33045                           DEC      +.8460                                # D12
040596,000348: 
040597,000349: 17,2555           01000                           DEC      +.03125                               # N20
040598,000350: 17,2556           00000                           DEC      0          B-14                       # N21/2
040599,000351: 17,2557           00000                           DEC      0          B-14                       # N22
040600,000352: 17,2560           42700                           DEC      -.9101                                # D21/2
040601,000353: 17,2561           33045                           DEC      +.8460                                # D22
040602,000354: 
040603,000355: 17,2562           20000                           DEC      +.50000                               # N30
040604,000356: 17,2563           60730                           DEC      -.47115                               # N31/2
040605,000357: 17,2564           17145                           DEC      +.4749                                # N32
040606,000358: 17,2565           41323                           DEC      -.9558                                # D31/2
040607,000359: 17,2566           35773                           DEC      +.9372                                # D32
040608,000360: 
040609,000361: 17,2567           02536        CSMCFADR           GENADR   CSMN10                                #  CSM ONLY COEFFICIENTS ADDRESS
040610,000362: 17,2570           01425        HBCFADR            GENADR   HBN10                                 #  HIGH BANDWIDTH COEFFICIENTS ADDRESS
040611,000363: 17,2571           02550        LBCFADR            GENADR   LBN10                                 #  LOW BANDWIDTH COEFFICIENTS ADDRESS
040612,000364: 
040613,000365: 17,2572           00063        NZERO              DEC      51         B-14                       #  MUST BE ODD FOR MRCLEAN
040614,000366: 17,2573           00027        NZEROJR            DEC      23         B-14                       #  MUST BE ODD FOR MCLEANJR
040615,000367: 
040616,000368: 17,2574           00210        ATTLIM             DEC      0.00833                               #  INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
040617,000369: 17,2575           00170        1/ATTLIM           DEC      0.007325                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
040618,000370: 
040619,000371: 17,2576           00005        TCORR              OCT      00005                                 #  CSM
040620,000372: 17,2577           00000                 +1        OCT      00000                                 #  CSM/LM (HB,LB)
040621,000373: 
040622,000374: 17,2600           00247        FKPRIMDT           DEC      .0102                                 #  CSM/LM (LB), (.05 X .08) SCALED AT PI/8
040623,000375: 17,2601           00232        FREPFRAC           DEC      .0375      B-2                        #  CSM/LM (LB), 0.0375 SCALED AT B+2
040624,000376: 
040625,000377: 17,2602     4374               NINETEEN           =        VD1                                   
040626,000378: 17,2602           33074        2PI/M              DEC      .00331017  B+8                        #  2PI/M, SCALED AT 1/(B+8 N-M)
040627,000379: 
040628,000380: 17,2603           03720        ONETHOU            DEC      1000       B-13                       #  KG/CS B3 TO KG/10SEC B16 CONVERSION
040629,000381: 
040630,000382: 17,2604  E6,1704                                  EBANK=   BZERO                                 
040631,000383: 17,2604           03142 40066  DAPINIT5           2CADR    DAPINIT                               
040632,000384: 
040633,000385: 17,2606  E6,1704                                  EBANK=   BZERO                                 
040634,000386: 17,2606           02227 36066  INITLOC2           2CADR    TVCINIT1                              

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