Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from 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.

041414,000002:                                                                                                  ## Copyright:   Public domain.
041415,000003:                                                                                                  ## Filename:    TVCINITIALIZE.agc
041416,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
041417,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
041418,000006:                                                                                                  ##              release of the flight software for the Command Module's
041419,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
041420,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
041421,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
041422,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
041423,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
041424,000012:                                                                                                  ##              that the reconstruction is correct.
041425,000013:                                                                                                  ## Reference:   943
041426,000014:                                                                                                  ## Assembler:   yaYUL
041427,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
041428,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
041429,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
041430,000018: 

Page 943

041432,000020:                                                                                                  #  NAME          TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041433,000021:                                                                                                  #  LOG SECTION...TVCINITIALIZE                   SUBROUTINE...DAPCSM
041434,000022:                                                                                                  #  MODIFIED BY SCHLUNDT                          21 OCTOBER 1968
041435,000023:                                                                                                  #  MODIFIED BY BEALS TO ELIMINATE CSMMASS UPDATE LOGIC (NOW DONE IN S40.8)
041436,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION
041437,000025:                                                                                                  #        PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041438,000026:                                                                                                  #        COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041439,000027:                                                                                                  #        MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
041440,000028:                                                                                                  #        PERFORMS INITIALIZATION FOR ROLL DAP
041441,000029:                                                                                                  #        CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041442,000030:                                                                                                  #        CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT  VIA T5
041443,000031:                                                                                                  #        PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041444,000032:                                                                                                  #  CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041445,000033:                                                                                                  #        IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
041446,000034:                                                                                                  #        MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041447,000035:                                                                                                  #  NORMAL EXIT MODE
041448,000036:                                                                                                  #        TCF RESUME
041449,000037:                                                                                                  #  SUBROUTINES CALLED
041450,000038:                                                                                                  #        NEEDLER, MASSPROP
041451,000039:                                                                                                  #  ALARM OR ABORT EXIT MODES
041452,000040:                                                                                                  #        NONE
041453,000041:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
041454,000042:                                                                                                  #        CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041455,000043:                                                                                                  #        TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041456,000044:                                                                                                  #        PACTOFF, YACTOFF, CDUX
041457,000045:                                                                                                  #        TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041458,000046:                                                                                                  #  OUTPUT
041459,000047:                                                                                                  #        ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041460,000048:                                                                                                  #  DEBRIS
041461,000049:                                                                                                  #        NONE
041462,000050: 
041463,000051: 17,2000                                           SETLOC   DAPS7                                 
041464,000052: 17,2000                                           BANK                                           
041465,000053: 
041466,000054: 17,2163                                           COUNT*   $$/INIT                               
041467,000055: 17,2163  E6,1446                                  EBANK=   CNTR                                  
041468,000056: 17,2163           22016        TVCDAPON           LXCH     BANKRUPT                              #  T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041469,000057: 17,2164           00006                           EXTEND                                         #  SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
041470,000058: 17,2165           22012                           QXCH     QRUPT                                 #        TVCINIT4 ARE ENTRIES)
041471,000059: 17,2166           32524        MRCLEAN            CAF      NZERO                                 #  NUMBER TO ZERO, LESS ONE  (MUST BE ODD)
041472,000060:                                                                                                  #        TVC RESTARTS ENTER HERE  (NEW BANK)
041473,000061: 17,2167           10000                 +1        CCS      A                                     
041474,000062: 17,2170           55446                           TS       CNTR                                  
041475,000063: 17,2171           34772                           CAF      ZERO                                  
041476,000064: 17,2172           54001                           TS       L                                     
041477,000065: 17,2173           51446                           INDEX    CNTR                                  
041478,000066: 17,2174           53530                           DXCH     OMEGAYC                               #  FIRST (LAST) TWO LOCATIONS
041479,000067: 17,2175           11446                           CCS      CNTR                                  
041480,000068: 17,2176           12167                           TCF      MRCLEAN    +1                         

Page 944

041482,000070: 17,2177           00006                           EXTEND                                         #  SET UP ANOTHER T5 RUPT TO CONTINUE
041483,000071: 17,2200           32540                           DCA      INITLOC2                              #        INITIALIZATION AT TVCINIT1
041484,000072: 17,2201           52113                           DXCH     T5LOC                                 #  THE PHSCHK2 ENTRY  (REDOTVC) AT TVCDAPON
041485,000073: 17,2202           34750                           CAF      POSMAX                                #        +3 IS IN ANOTHER BANK. MUST RESET
041486,000074: 17,2203           54030                           TS       TIME5                                 #        BBCON TOO (FULL 2CADR), FOR THAT
041487,000075: 17,2204           15323        ENDMRC             TCF      RESUME                                #        ENTRY.
041488,000076: 
041489,000077: 17,2205           22016        TVCINIT1           LXCH     BANKRUPT                              
041490,000078: 17,2206           00006                           EXTEND                                         
041491,000079: 17,2207           22012                           QXCH     QRUPT                                 
041492,000080: 
041493,000081: 17,2210           04714                           TC       IBNKCALL                              #  UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041494,000082: 17,2211           13313                           CADR     MASSPROP                              #        OR NOUNS 46 AND 47 MUST BE CORRECT)
041495,000083: 
041496,000084: 17,2212           31465                           CAE      DAPDATR1                              #  CHECK LEM-ON/OFF
041497,000085: 17,2213           74753                           MASK     BIT14                                 
041498,000086: 17,2214           10000                           CCS      A                                     
041499,000087: 17,2215           34770                           CAF      BIT1                                  #  LEM-ON (BIT1)
041500,000088: 17,2216           55446                           TS       CNTR                                  #  LEM-OFF (ZERO)
041501,000089: 
041502,000090: 17,2217           51446                           INDEX    CNTR                                  #  LOAD THE FILTER COEFFICIENTS
041503,000091: 17,2220           32521                           CAF      CSMCFADR                              
041504,000092: 17,2221           55704                           TS       COEFFADR                              
041505,000093: 17,2222           02412                           TC       LOADCOEF                              
041506,000094: 
041507,000095: 17,2223           51446                           INDEX    CNTR                                  #  PICK UP LM-OFF,-ON KTLX/I
041508,000096: 17,2224           31416                           CAE      EKTLX/I                               #        SCALED (1.08 B+2) 1/SECSQ CSM/LM
041509,000097: 17,2225           55630                           TS       KTLX/I                                #               ( "   B+4)    "    CSM
041510,000098: 
041511,000099: 17,2226           02452                           TCR      S40.15                                #  COMPUTE 1/CONACC, VARK
041512,000100: 
041513,000101: 17,2227           41446        TVCINIT2           CS       CNTR                                  #  PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041514,000102: 17,2230           50000                           INDEX    A                                     #  DETERMINATION:
041515,000103: 17,2231           34767                           CAF      BIT2                                  #        BIT2 FOR CSM ONLY 40MS FILTER
041516,000104: 17,2232           55626                           TS       KPRIMEDT                              #        BIT3 FOR CSM/LM 80MS FILTER
041517,000105: 
041518,000106: 17,2233           40000                           COM                                            #  PREPARE T5TVCDT
041519,000107: 17,2234           64750                           AD       POSMAX                                
041520,000108: 17,2235           64770                           AD       BIT1                                  
041521,000109: 17,2236           55625                           TS       T5TVCDT                               
041522,000110: 
041523,000111: 17,2237           44752                           CS       SWTOVBIT                              #  RESET SWTOVER FLAG
041524,000112: 17,2240           70105                           MASK     FLAGWRD9                              
041525,000113: 17,2241           54105                           TS       FLAGWRD9                              
041526,000114: 17,2242           51446                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON KPRIME
041527,000115: 17,2243           31414                           CAE      EKPRIME                               #        SCALED (100 PI)/16
041528,000116: 17,2244           00006                           EXTEND                                         
041529,000117: 17,2245           71626                           MP       KPRIMEDT                              #  (TVCDT/2, SC.AT B+14CS)
041530,000118: 17,2246           22000                           LXCH     A                                     #        SC.AT PI/8      (DIMENSIONLESS)
041531,000119: 17,2247           53627                           DXCH     KPRIMEDT                              

Page 945

041533,000121: 17,2250           51446                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON REPFRAC
041534,000122: 17,2251           31421                           CAE      EREPFRAC                              
041535,000123: 17,2252           55633                           TS       REPFRAC                               
041536,000124: 
041537,000125: 17,2253           51446                           INDEX    CNTR                                  #  PICK UP ONE-SHOT CORRECTION TIME
041538,000126: 17,2254           32530                           CAF      TCORR                                 
041539,000127: 17,2255           55446                           TS       CNTR                                  
041540,000128: 
041541,000129: 17,2256           34351                           CAF      NINETEEN                              #  SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041542,000130: 17,2257           55634                           TS       VCNTR                                 #  10 SECS (TVCEXEC 1/2 SEC RATE)
041543,000131: 17,2260           31423        TVCINIT3           CAE      PACTOFF                               #  TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041544,000132: 17,2261           55605                           TS       PDELOFF                               #        TRACKERS, OFFSET-UPDATES, AND
041545,000133: 17,2262           55623                           TS       PCMD                                  #        OFFSET-TRACKER FILTERS
041546,000134: 17,2263           55601                           TS       DELPBAR                               #        NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041547,000135: 
041548,000136: 17,2264           31424                           CAE      YACTOFF                               
041549,000137: 17,2265           55607                           TS       YDELOFF                               
041550,000138: 17,2266           55624                           TS       YCMD                                  
041551,000139: 17,2267           55603                           TS       DELYBAR                               
041552,000140: 
041553,000141: 17,2270           31465        ATTINIT            CAE      DAPDATR1                              #  ATTITUDE-ERROR INITIALIZATION LOGIC
041554,000142: 17,2271           74754                           MASK     BIT13                                 #        TEST FOR CSM OR CSM/LM
041555,000143: 17,2272           00006                           EXTEND                                         
041556,000144: 17,2273           12321                           BZF      NEEDLEIN                              #        BYPASS INITIALIZATION FOR CSM/LM
041557,000145: 
041558,000146: 17,2274           34770                           CAF      BIT1                                  #        SET UP TEMPORARY COUNTER
041559,000147: 17,2275           55611                 +5        TS       TTMP1                                 
041560,000148: 
041561,000149: 17,2276           51611                           INDEX    TTMP1                                 
041562,000150: 17,2277           31664                           CA       ERRBTMP                               #  ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041563,000151: 17,2300           00006                           EXTEND                                         #        ERRORY & ERRORZ (P40 AT DOTVCON)
041564,000152: 17,2301           72527                           MP       1/ATTLIM                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041565,000153: 17,2302           00006                           EXTEND                                         
041566,000154: 17,2303           12313                           BZF      +8D                                   #        |ERROR| LESS THAN 1.5 DEG
041567,000155: 17,2304           00006                           EXTEND                                         
041568,000156: 17,2305           62310                           BZMF     +3                                    #        |ERROR| > 1.5 DEG, AND NEG
041569,000157: 17,2306           32526                           CA       ATTLIM                                #        |ERROR| > 1.5 DEG, AND POS
041570,000158: 17,2307           12311                           TCF      +2                                    
041571,000159: 17,2310           42526                 +3        CS       ATTLIM                                
041572,000160: 17,2311           51611                 +2        INDEX    TTMP1                                 
041573,000161: 17,2312           55664                           TS       ERRBTMP                               
041574,000162: 17,2313           11611                 +8        CCS      TTMP1                                 #        TEST TEMPORARY COUNTER
041575,000163: 17,2314           12275                           TCF      ATTINIT    +5                         #        BACK TO REPEAT FOR PITCH ERROR
041576,000164: 
041577,000165: 17,2315           31664                           CA       ERRBTMP                               #  ERRORS ESTABLISHED AND LIMITED
041578,000166: 17,2316           55575                           TS       PERRB                                 
041579,000167: 17,2317           31665                           CA       ERRBTMP    +1                         
041580,000168: 17,2320           55577                           TS       YERRB                                 
041581,000169: 
041582,000170: 17,2321           41501        NEEDLEIN           CS       RCSFLAGS                              #  SET BIT 3 FOR INITIALIZATION PASS AND GO

Page 946

041584,000172: 17,2322           74766                           MASK     BIT3                                  #        TO NEEDLER.  WILL CLEAR FOR TVC DAP
041585,000173: 17,2323           27501                           ADS      RCSFLAGS                              #        (RETURNS AFTER CADR)
041586,000174: 17,2324           04714                           TC       IBNKCALL                              
041587,000175: 17,2325           42425                           CADR     NEEDLER                               
041588,000176: 
041589,000177: 17,2326           34772        TVCINIT4           CAF      ZERO                                  #  SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041590,000178: 17,2327           55635                           TS       TVCPHASE                              #        NEEDLEIN INITIALIZATION FINISHED.
041591,000179:                                                                                                  #        (POSSIBLE TVC-RESTART ENTRY)
041592,000180: 
041593,000181: 17,2330           30032                           CAE      CDUX                                  #  PREPARE ROLL DAP
041594,000182: 17,2331           55645                           TS       OGANOW                                
041595,000183: 
041596,000184: 17,2332           32524                           CAF      NZERO                                 #  CALL TVCEXECUTIVE IN 0.51 SEC
041597,000185: 17,2333           05233                           TC       WAITLIST                              
041598,000186: 17,2334  E6,1446                                  EBANK=   CNTR                                  
041599,000187: 17,2334           03037 34066                     2CADR    TVCEXEC                               
041600,000188: 
041601,000189: 
041602,000190: 17,2336           00006                           EXTEND                                         #  CALL FOR DAPINIT
041603,000191: 17,2337           32536                           DCA      DAPINIT5                              
041604,000192: 17,2340           52113                           DXCH     T5LOC                                 
041605,000193: 17,2341           31625                           CAE      T5TVCDT                               #  (ALLOW TIME FOR RESTART COMPUTATIONS)
041606,000194: 17,2342           54030                           TS       TIME5                                 
041607,000195: 
041608,000196: 17,2343           15323        ENDTVCIN           TCF      RESUME                                
041609,000197: 
041610,000198: 
041611,000199: 17,2344           00004        SWICHOVR           INHINT                                         
041612,000200: 17,2345           31635                           CA       TVCPHASE                              #  SAVE TVCPHASE
041613,000201: 17,2346           55611                           TS       PHASETMP                              
041614,000202: 17,2347           44767                           CS       BIT2                                  #  SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041615,000203: 17,2350           55635                           TS       TVCPHASE                              #        TO RESTART LOGIC)
041616,000204: 
041617,000205: 17,2351           00006                 +5        EXTEND                                         #  SAVE Q FOR RETURN (RESTART ENTRY POINT,
041618,000206: 17,2352           23613                           QXCH     RTRNLOC                               #        TVCPHASE AND PHASETMP ALREADY SET)
041619,000207: 
041620,000208: 17,2353           32525                           CAF      NZEROJR                               #  ZEROING LOOP FOR FILTER STORAGE LOCS
041621,000209: 17,2354           55661                 +8        TS       CNTRTMP                               
041622,000210: 
041623,000211: 17,2355           34772        MCLEANJR           CA       ZERO                                  
041624,000212: 17,2356           54001                           TS       L                                     
041625,000213: 17,2357           51661                           INDEX    CNTRTMP                               
041626,000214: 17,2360           53541                           DXCH     PTMP1      -1                         
041627,000215: 17,2361           11661                           CCS      CNTRTMP                               
041628,000216: 17,2362           10000                           CCS      A                                     
041629,000217: 17,2363           12354                           TCF      SWICHOVR   +8D                        
041630,000218: 
041631,000219: 17,2364           40105                           CS       FLAGWRD9                              #  SET SWITCHOVER FLAG FOR DOWNLINK
041632,000220: 17,2365           74752                           MASK     SWTOVBIT                              

Page 947

041634,000222: 17,2366           26105                           ADS      FLAGWRD9                              
041635,000223: 
041636,000224: 17,2367           31420                           CAE      EKTLX/I    +2                         #  LOW BANDWIDTH GAINS - DAP
041637,000225: 17,2370           55630                           TS       KTLX/I                                
041638,000226: 17,2371           02461                           TCR      S40.15     +7                         
041639,000227: 
041640,000228: 17,2372           32532                           CAF      FKPRIMDT                              #                        - STEERING
041641,000229: 17,2373           55626                           TS       KPRIMEDT                              
041642,000230: 
041643,000231: 17,2374           32533                           CAF      FREPFRAC                              #                        - TMC LOOP
041644,000232: 17,2375           55633                           TS       REPFRAC                               
041645,000233: 
041646,000234: 17,2376           00006                           EXTEND                                         #  UPDATE TRIM ESTIMATES
041647,000235: 17,2377           31602                           DCA      DELPBAR                               
041648,000236: 17,2400           53606                           DXCH     PDELOFF                               
041649,000237: 17,2401           00006                           EXTEND                                         
041650,000238: 17,2402           31604                           DCA      DELYBAR                               
041651,000239: 17,2403           53610                           DXCH     YDELOFF                               
041652,000240: 
041653,000241: 17,2404           32523                           CA       LBCFADR                               
041654,000242: 17,2405           55704                           TS       COEFFADR                              
041655,000243: 17,2406           02412                           TC       LOADCOEF                              
041656,000244: 
041657,000245: 17,2407           31611                           CAE      PHASETMP                              #  RESTORE TVCPHASE
041658,000246: 17,2410           55635                           TS       TVCPHASE                              
041659,000247: 
041660,000248: 17,2411           01613                           TC       RTRNLOC                               #  BACK TO PRESWTCH OR TVCRESTARTS
041661,000249: 
041662,000250: 
041663,000251: 17,2412           00006        LOADCOEF           EXTEND                                         #  LOAD DAP FILTER COEFFICIENTS
041664,000252: 17,2413           51704                           INDEX    COEFFADR                              #    FROM: ERASABLE FOR CSM/LM HB
041665,000253: 17,2414           30001                           DCA      0                                     #          FIXED    FOR CSM/LM LB
041666,000254: 17,2415           53706                           DXCH     N10                                   #          FIXED    FOR CSM
041667,000255: 
041668,000256: 17,2416           00006                           EXTEND                                         #  NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041669,000257: 17,2417           51704                           INDEX    COEFFADR                              #  LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041670,000258: 17,2420           30003                           DCA      2                                     #  ERASABLES. DURING CSM/LM SWITCHOVER, 
041671,000259: 17,2421           53710                           DXCH     N10        +2                         #  THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041672,000260:                                                                                                  #  COEFFICIENTS FROM FIXED MEMORY.
041673,000261: 
041674,000262: 17,2422           00006                           EXTEND                                         
041675,000263: 17,2423           51704                           INDEX    COEFFADR                              
041676,000264: 17,2424           30005                           DCA      4                                     
041677,000265: 17,2425           53712                           DXCH     N10        +4                         
041678,000266: 
041679,000267: 17,2426           00006                           EXTEND                                         
041680,000268: 17,2427           51704                           INDEX    COEFFADR                              
041681,000269: 17,2430           30007                           DCA      6                                     
041682,000270: 17,2431           53714                           DXCH     N10        +6                         

Page 948

041684,000272: 17,2432           00006                           EXTEND                                         
041685,000273: 17,2433           51704                           INDEX    COEFFADR                              
041686,000274: 17,2434           30011                           DCA      8D                                    
041687,000275: 17,2435           53716                           DXCH     N10        +8D                        
041688,000276: 
041689,000277: 17,2436           00006                           EXTEND                                         
041690,000278: 17,2437           51704                           INDEX    COEFFADR                              
041691,000279: 17,2440           30013                           DCA      10D                                   
041692,000280: 17,2441           53720                           DXCH     N10        +10D                       
041693,000281: 
041694,000282: 17,2442           00006                           EXTEND                                         
041695,000283: 17,2443           51704                           INDEX    COEFFADR                              
041696,000284: 17,2444           30015                           DCA      12D                                   
041697,000285: 17,2445           53722                           DXCH     N10        +12D                       
041698,000286: 
041699,000287: 17,2446           51704                           INDEX    COEFFADR                              
041700,000288: 17,2447           30016                           CA       14D                                   
041701,000289: 17,2450           55723                           TS       N10        +14D                       
041702,000290: 
041703,000291: 17,2451           00002                           TC       Q                                     
041704,000292: 
041705,000293: 17,2452           31467        S40.15             CAE      IXX                                   #  GAIN COMPUTATIONS (1/CONACC, VARK)
041706,000294: 17,2453           00006                           EXTEND                                         #  ENTERED FROM TVCINITIALIZE AND TVCEXEC
041707,000295: 17,2454           72534                           MP       2PI/M                                 #        2PI/M SCALED 1/(B+8 N M)
041708,000296: 17,2455           20001                           DDOUBL                                         #        IXX   SCALED B+20 KG-MSQ
041709,000297: 17,2456           20001                           DDOUBL                                         
041710,000298: 17,2457           20001                           DDOUBL                                         
041711,000299: 17,2460           55631                           TS       1/CONACC                              #              SCALED B+9 SEC-SQ/REV
041712,000300: 
041713,000301:                                                                                                  #  ENTRY FROM CSM/LM V46 SWITCHOVER
041714,000302: 17,2461           31630                 +7        CAE      KTLX/I                                #        SCALED (1.08 B+2) 1/SECSQ CSM/LM
041715,000303: 17,2462           00006                           EXTEND                                         #               (  "  B+4)   CSM
041716,000304: 17,2463           71471                           MP       IAVG/TLX                              #              SCALED B+2 SECSQ
041717,000305: 17,2464           20001                           DDOUBL                                         
041718,000306: 17,2465           20001                           DDOUBL                                         
041719,000307: 17,2466           55632                           TS       VARK                                  #        SCALED (1.08 B+2)   CSM/LM
041720,000308: 17,2467           00002                           TC       Q                                     #               (  "  B+4)   CSM
041721,000309: 
041722,000310: 
041723,000311: 17,2470           37777        CSMN10             DEC      .99999                                #  N10   CSM ONLY FILTER COEFFICIENTS
041724,000312: 17,2471           67657                           DEC      -.2549                                #  N11/2
041725,000313: 17,2472           01703                           DEC      .0588                                 #  N12
041726,000314: 17,2473           47472                           DEC      -.7620                                #  D11/2
041727,000315: 17,2474           27656                           DEC      .7450                                 #  D12
041728,000316: 
041729,000317: 17,2475           37777                           DEC      .99999                                #  N20
041730,000318: 17,2476           60361                           DEC      -.4852                                #  N21/2
041731,000319: 17,2477           00000                           DEC      0          B-14                       #  N22

Page 949

041733,000321: 17,2500           67304                           DEC      -.2692                                #  D22/2
041734,000322: 17,2501           00000                           DEC      0          B-14                       #  D22
041735,000323: 
041736,000324: 17,2502           37777        LBN10              DEC      +.99999                               #  N10   LOW BANDWIDTH FILTER COEFFICIENTS
041737,000325: 17,2503           65371                           DEC      -.3285                                #  N11/2
041738,000326: 17,2504           65337                           DEC      -.3301                                #  N12
041739,000327: 17,2505           42700                           DEC      -.9101                                #  D11/2
041740,000328: 17,2506           33045                           DEC      +.8460                                #  D12
041741,000329: 
041742,000330: 17,2507           01000                           DEC      +.03125                               #  N20
041743,000331: 17,2510           00000                           DEC      0          B-14                       #  N21/2
041744,000332: 17,2511           00000                           DEC      0          B-14                       #  N22
041745,000333: 17,2512           42700                           DEC      -.9101                                #  D21/2
041746,000334: 17,2513           33045                           DEC      +.8460                                #  D22
041747,000335: 
041748,000336: 17,2514           20000                           DEC      +.5000                                #  N30
041749,000337: 17,2515           60730                           DEC      -.47115                               #  N31/2
041750,000338: 17,2516           17145                           DEC      +.4749                                #  N32
041751,000339: 17,2517           41323                           DEC      -.9558                                #  D31/2
041752,000340: 17,2520           35773                           DEC      +.9372                                #  D32
041753,000341: 
041754,000342: 
041755,000343: 17,2521           02470        CSMCFADR           GENADR   CSMN10                                #  CSM ONLY COEFFICIENTS ADDRESS
041756,000344: 17,2522           01425        HBCFADR            GENADR   HBN10                                 #  HIGH BANDWIDTH COEFFICIENTS ADDRESS
041757,000345: 17,2523           02502        LBCFADR            GENADR   LBN10                                 #  LOW BANDWIDTH COEFFICIENTS ADDRESS
041758,000346: 
041759,000347: 17,2524           00063        NZERO              DEC      51         B-14                       #  MUST BE ODD FOR MRCLEAN
041760,000348: 17,2525           00027        NZEROJR            DEC      23         B-14                       #  MUST BE ODD FOR MCLEANJR
041761,000349: 
041762,000350: 17,2526           00210        ATTLIM             DEC      0.00833                               #  INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
041763,000351: 17,2527           00170        1/ATTLIM           DEC      0.007325                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041764,000352: 
041765,000353: 17,2530           00005        TCORR              OCT      00005                                 #  CSM
041766,000354: 17,2531           00000                 +1        OCT      00000                                 #  CSM/LM (HB,LB)
041767,000355: 
041768,000356: 17,2532           00247        FKPRIMDT           DEC      .0102                                 #  CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041769,000357: 17,2533           00232        FREPFRAC           DEC      .0375      B-2                        #  CSM/LM (LB),  0.0375 SCALED AT B+2
041770,000358: 
041771,000359: 17,2534     4351               NINETEEN           =        VD1                                   
041772,000360: 17,2534           33074        2PI/M              DEC      .00331017  B+8                        #  2PI/M, SCALED AT 1/(B+8 N-M)
041773,000361: 
041774,000362: 17,2535  E6,1446                                  EBANK=   CNTR                                  
041775,000363: 17,2535           03227 40066  DAPINIT5           2CADR    DAPINIT                               
041776,000364: 
041777,000365: 
041778,000366: 17,2537  E6,1446                                  EBANK=   CNTR                                  
041779,000367: 17,2537           02205 36066  INITLOC2           2CADR    TVCINIT1                              

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