Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

041559,000002:                                                                                                  ## Copyright:   Public domain.
041560,000003:                                                                                                  ## Filename:    TVCINITIALIZE.agc
041561,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
041562,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
041563,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
041564,000007:                                                                                                  ##              Apollo 15-17.
041565,000008:                                                                                                  ## Assembler:   yaYUL
041566,000009:                                                                                                  ## Contact:     Steve Case <case1780@adelphia.net>
041567,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
041568,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
041569,000012:                                                                                                  ## Mod history: 2009-09-01 SMC  Adapted from Comanche055 files.
041570,000013:                                                                                                  ##              2009-09-14 JL   Fix typos. Fix page numbers. Remove change comments. Restore hard tabs.
041571,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
041572,000015:                                                                                                  ##              2017-02-09 RSB  Proofed comment text by diff'ing vs Comanche 55
041573,000016:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
041574,000017: 

Page 943

041576,000019:                                                                                                  #  NAME          TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041577,000020:                                                                                                  #  LOG SECTION...TVCINITIALIZE                   SUBROUTINE...DAPCSM
041578,000021:                                                                                                  #  MODIFIED BY SCHLUNDT                          21 OCTOBER 1968
041579,000022:                                                                                                  #  MODIFIED BY BEALS TO ELIMINATE CSMMASS UPDATE LOGIC (NOW DONE IN S40.8)
041580,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION
041581,000024:                                                                                                  #        PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041582,000025:                                                                                                  #        COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041583,000026:                                                                                                  #        MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
041584,000027:                                                                                                  #        PERFORMS INITIALIZATION FOR ROLL DAP
041585,000028:                                                                                                  #        CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041586,000029:                                                                                                  #        CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT  VIA T5
041587,000030:                                                                                                  #        PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041588,000031:                                                                                                  #  CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041589,000032:                                                                                                  #        IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
041590,000033:                                                                                                  #        MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041591,000034:                                                                                                  #  NORMAL EXIT MODE
041592,000035:                                                                                                  #        TCF RESUME
041593,000036:                                                                                                  #  SUBROUTINES CALLED
041594,000037:                                                                                                  #        NEEDLER, MASSPROP
041595,000038:                                                                                                  #  ALARM OR ABORT EXIT MODES
041596,000039:                                                                                                  #        NONE
041597,000040:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
041598,000041:                                                                                                  #        CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041599,000042:                                                                                                  #        TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041600,000043:                                                                                                  #        PACTOFF, YACTOFF, CDUX
041601,000044:                                                                                                  #        TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041602,000045:                                                                                                  #  OUTPUT
041603,000046:                                                                                                  #        ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041604,000047:                                                                                                  #  DEBRIS
041605,000048:                                                                                                  #        NONE
041606,000049: 
041607,000050: 17,2000                                           SETLOC   DAPS7                                 
041608,000051: 17,2000                                           BANK                                           
041609,000052: 
041610,000053: 17,2163                                           COUNT*   $$/INIT                               
041611,000054: 17,2163  E6,1446                                  EBANK=   CNTR                                  
041612,000055: 17,2163           22016        TVCDAPON           LXCH     BANKRUPT                              #  T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041613,000056: 17,2164           00006                           EXTEND                                         #  SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
041614,000057: 17,2165           22012                           QXCH     QRUPT                                 #        TVCINIT4 ARE ENTRIES)
041615,000058: 17,2166           32524        MRCLEAN            CAF      NZERO                                 #  NUMBER TO ZERO, LESS ONE  (MUST BE ODD)
041616,000059:                                                                                                  #        TVC RESTARTS ENTER HERE  (NEW BANK)
041617,000060: 17,2167           10000                 +1        CCS      A                                     
041618,000061: 17,2170           55446                           TS       CNTR                                  
041619,000062: 17,2171           34772                           CAF      ZERO                                  
041620,000063: 17,2172           54001                           TS       L                                     
041621,000064: 17,2173           51446                           INDEX    CNTR                                  
041622,000065: 17,2174           53530                           DXCH     OMEGAYC                               #  FIRST (LAST) TWO LOCATIONS
041623,000066: 17,2175           11446                           CCS      CNTR                                  
041624,000067: 17,2176           12167                           TCF      MRCLEAN    +1                         

Page 944

041626,000069: 17,2177           00006                           EXTEND                                         #  SET UP ANOTHER T5 RUPT TO CONTINUE
041627,000070: 17,2200           32540                           DCA      INITLOC2                              #        INITIALIZATION AT TVCINIT1
041628,000071: 17,2201           52113                           DXCH     T5LOC                                 #  THE PHSCHK2 ENTRY  (REDOTVC) AT TVCDAPON
041629,000072: 17,2202           34750                           CAF      POSMAX                                #        +3 IS IN ANOTHER BANK. MUST RESET
041630,000073: 17,2203           54030                           TS       TIME5                                 #        BBCON TOO (FULL 2CADR), FOR THAT
041631,000074: 17,2204           15323        ENDMRC             TCF      RESUME                                #        ENTRY.
041632,000075: 
041633,000076: 17,2205           22016        TVCINIT1           LXCH     BANKRUPT                              
041634,000077: 17,2206           00006                           EXTEND                                         
041635,000078: 17,2207           22012                           QXCH     QRUPT                                 
041636,000079: 
041637,000080: 17,2210           04714                           TC       IBNKCALL                              #  UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041638,000081: 17,2211           13313                           CADR     MASSPROP                              #        OR NOUNS 46 AND 47 MUST BE CORRECT)
041639,000082: 
041640,000083: 17,2212           31465                           CAE      DAPDATR1                              #  CHECK LEM-ON/OFF
041641,000084: 17,2213           74753                           MASK     BIT14                                 
041642,000085: 17,2214           10000                           CCS      A                                     
041643,000086: 17,2215           34770                           CAF      BIT1                                  #  LEM-ON (BIT1)
041644,000087: 17,2216           55446                           TS       CNTR                                  #  LEM-OFF (ZERO)
041645,000088: 
041646,000089: 17,2217           51446                           INDEX    CNTR                                  #  LOAD THE FILTER COEFFICIENTS
041647,000090: 17,2220           32521                           CAF      CSMCFADR                              
041648,000091: 17,2221           55704                           TS       COEFFADR                              
041649,000092: 17,2222           02412                           TC       LOADCOEF                              
041650,000093: 
041651,000094: 17,2223           51446                           INDEX    CNTR                                  #  PICK UP LM-OFF,-ON KTLX/I
041652,000095: 17,2224           31416                           CAE      EKTLX/I                               #        SCALED (1.08 B+2) 1/SECSQ CSM/LM
041653,000096: 17,2225           55630                           TS       KTLX/I                                #               ( "   B+4)    "    CSM
041654,000097: 
041655,000098: 17,2226           02452                           TCR      S40.15                                #  COMPUTE 1/CONACC, VARK
041656,000099: 
041657,000100: 17,2227           41446        TVCINIT2           CS       CNTR                                  #  PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041658,000101: 17,2230           50000                           INDEX    A                                     #  DETERMINATION:
041659,000102: 17,2231           34767                           CAF      BIT2                                  #        BIT2 FOR CSM ONLY 40MS FILTER
041660,000103: 17,2232           55626                           TS       KPRIMEDT                              #        BIT3 FOR CSM/LM 80MS FILTER
041661,000104: 
041662,000105: 17,2233           40000                           COM                                            #  PREPARE T5TVCDT
041663,000106: 17,2234           64750                           AD       POSMAX                                
041664,000107: 17,2235           64770                           AD       BIT1                                  
041665,000108: 17,2236           55625                           TS       T5TVCDT                               
041666,000109: 
041667,000110: 17,2237           44752                           CS       SWTOVBIT                              #  RESET SWTOVER FLAG
041668,000111: 17,2240           70105                           MASK     FLAGWRD9                              
041669,000112: 17,2241           54105                           TS       FLAGWRD9                              
041670,000113: 17,2242           51446                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON KPRIME
041671,000114: 17,2243           31414                           CAE      EKPRIME                               #        SCALED (100 PI)/16
041672,000115: 17,2244           00006                           EXTEND                                         
041673,000116: 17,2245           71626                           MP       KPRIMEDT                              #  (TVCDT/2, SC.AT B+14CS)
041674,000117: 17,2246           22000                           LXCH     A                                     #        SC.AT PI/8      (DIMENSIONLESS)
041675,000118: 17,2247           53627                           DXCH     KPRIMEDT                              

Page 945

041677,000120: 17,2250           51446                           INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON REPFRAC
041678,000121: 17,2251           31421                           CAE      EREPFRAC                              
041679,000122: 17,2252           55633                           TS       REPFRAC                               
041680,000123: 
041681,000124: 17,2253           51446                           INDEX    CNTR                                  #  PICK UP ONE-SHOT CORRECTION TIME
041682,000125: 17,2254           32530                           CAF      TCORR                                 
041683,000126: 17,2255           55446                           TS       CNTR                                  
041684,000127: 
041685,000128: 17,2256           34351                           CAF      NINETEEN                              #  SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041686,000129: 17,2257           55634                           TS       VCNTR                                 #  10 SECS (TVCEXEC 1/2 SEC RATE)
041687,000130: 17,2260           31423        TVCINIT3           CAE      PACTOFF                               #  TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041688,000131: 17,2261           55605                           TS       PDELOFF                               #        TRACKERS, OFFSET-UPDATES, AND
041689,000132: 17,2262           55623                           TS       PCMD                                  #        OFFSET-TRACKER FILTERS
041690,000133: 17,2263           55601                           TS       DELPBAR                               #        NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041691,000134: 
041692,000135: 17,2264           31424                           CAE      YACTOFF                               
041693,000136: 17,2265           55607                           TS       YDELOFF                               
041694,000137: 17,2266           55624                           TS       YCMD                                  
041695,000138: 17,2267           55603                           TS       DELYBAR                               
041696,000139: 
041697,000140: 17,2270           31465        ATTINIT            CAE      DAPDATR1                              #  ATTITUDE-ERROR INITIALIZATION LOGIC
041698,000141: 17,2271           74754                           MASK     BIT13                                 #        TEST FOR CSM OR CSM/LM
041699,000142: 17,2272           00006                           EXTEND                                         
041700,000143: 17,2273           12321                           BZF      NEEDLEIN                              #        BYPASS INITIALIZATION FOR CSM/LM
041701,000144: 
041702,000145: 17,2274           34770                           CAF      BIT1                                  #        SET UP TEMPORARY COUNTER
041703,000146: 17,2275           55611                 +5        TS       TTMP1                                 
041704,000147: 
041705,000148: 17,2276           51611                           INDEX    TTMP1                                 
041706,000149: 17,2277           31664                           CA       ERRBTMP                               #  ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041707,000150: 17,2300           00006                           EXTEND                                         #        ERRORY & ERRORZ (P40 AT DOTVCON)
041708,000151: 17,2301           72527                           MP       1/ATTLIM                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041709,000152: 17,2302           00006                           EXTEND                                         
041710,000153: 17,2303           12313                           BZF      +8D                                   #        |ERROR| LESS THAN 1.5 DEG
041711,000154: 17,2304           00006                           EXTEND                                         
041712,000155: 17,2305           62310                           BZMF     +3                                    #        |ERROR| > 1.5 DEG, AND NEG
041713,000156: 17,2306           32526                           CA       ATTLIM                                #        |ERROR| > 1.5 DEG, AND POS
041714,000157: 17,2307           12311                           TCF      +2                                    
041715,000158: 17,2310           42526                 +3        CS       ATTLIM                                
041716,000159: 17,2311           51611                 +2        INDEX    TTMP1                                 
041717,000160: 17,2312           55664                           TS       ERRBTMP                               
041718,000161: 17,2313           11611                 +8        CCS      TTMP1                                 #        TEST TEMPORARY COUNTER
041719,000162: 17,2314           12275                           TCF      ATTINIT    +5                         #        BACK TO REPEAT FOR PITCH ERROR
041720,000163: 
041721,000164: 17,2315           31664                           CA       ERRBTMP                               #  ERRORS ESTABLISHED AND LIMITED
041722,000165: 17,2316           55575                           TS       PERRB                                 
041723,000166: 17,2317           31665                           CA       ERRBTMP    +1                         
041724,000167: 17,2320           55577                           TS       YERRB                                 
041725,000168: 
041726,000169: 17,2321           41501        NEEDLEIN           CS       RCSFLAGS                              #  SET BIT 3 FOR INITIALIZATION PASS AND GO

Page 946

041728,000171: 17,2322           74766                           MASK     BIT3                                  #        TO NEEDLER.  WILL CLEAR FOR TVC DAP
041729,000172: 17,2323           27501                           ADS      RCSFLAGS                              #        (RETURNS AFTER CADR)
041730,000173: 17,2324           04714                           TC       IBNKCALL                              
041731,000174: 17,2325           42425                           CADR     NEEDLER                               
041732,000175: 
041733,000176: 17,2326           34772        TVCINIT4           CAF      ZERO                                  #  SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041734,000177: 17,2327           55635                           TS       TVCPHASE                              #        NEEDLEIN INITIALIZATION FINISHED.
041735,000178:                                                                                                  #        (POSSIBLE TVC-RESTART ENTRY)
041736,000179: 
041737,000180: 17,2330           30032                           CAE      CDUX                                  #  PREPARE ROLL DAP
041738,000181: 17,2331           55645                           TS       OGANOW                                
041739,000182: 
041740,000183: 17,2332           32524                           CAF      NZERO                                 #  CALL TVCEXECUTIVE IN 0.51 SEC
041741,000184: 17,2333           05233                           TC       WAITLIST                              
041742,000185: 17,2334  E6,1446                                  EBANK=   CNTR                                  
041743,000186: 17,2334           03037 34066                     2CADR    TVCEXEC                               
041744,000187: 
041745,000188: 
041746,000189: 17,2336           00006                           EXTEND                                         #  CALL FOR DAPINIT
041747,000190: 17,2337           32536                           DCA      DAPINIT5                              
041748,000191: 17,2340           52113                           DXCH     T5LOC                                 
041749,000192: 17,2341           31625                           CAE      T5TVCDT                               #  (ALLOW TIME FOR RESTART COMPUTATIONS)
041750,000193: 17,2342           54030                           TS       TIME5                                 
041751,000194: 
041752,000195: 17,2343           15323        ENDTVCIN           TCF      RESUME                                
041753,000196: 
041754,000197: 
041755,000198: 17,2344           00004        SWICHOVR           INHINT                                         
041756,000199: 17,2345           31635                           CA       TVCPHASE                              #  SAVE TVCPHASE
041757,000200: 17,2346           55611                           TS       PHASETMP                              
041758,000201: 17,2347           44767                           CS       BIT2                                  #  SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041759,000202: 17,2350           55635                           TS       TVCPHASE                              #        TO RESTART LOGIC)
041760,000203: 
041761,000204: 17,2351           00006                 +5        EXTEND                                         #  SAVE Q FOR RETURN (RESTART ENTRY POINT,
041762,000205: 17,2352           23613                           QXCH     RTRNLOC                               #        TVCPHASE AND PHASETMP ALREADY SET)
041763,000206: 
041764,000207: 17,2353           32525                           CAF      NZEROJR                               #  ZEROING LOOP FOR FILTER STORAGE LOCS
041765,000208: 17,2354           55661                 +8        TS       CNTRTMP                               
041766,000209: 
041767,000210: 17,2355           34772        MCLEANJR           CA       ZERO                                  
041768,000211: 17,2356           54001                           TS       L                                     
041769,000212: 17,2357           51661                           INDEX    CNTRTMP                               
041770,000213: 17,2360           53541                           DXCH     PTMP1      -1                         
041771,000214: 17,2361           11661                           CCS      CNTRTMP                               
041772,000215: 17,2362           10000                           CCS      A                                     
041773,000216: 17,2363           12354                           TCF      SWICHOVR   +8D                        
041774,000217: 
041775,000218: 17,2364           40105                           CS       FLAGWRD9                              #  SET SWITCHOVER FLAG FOR DOWNLINK
041776,000219: 17,2365           74752                           MASK     SWTOVBIT                              

Page 947

041778,000221: 17,2366           26105                           ADS      FLAGWRD9                              
041779,000222: 
041780,000223: 17,2367           31420                           CAE      EKTLX/I    +2                         #  LOW BANDWIDTH GAINS - DAP
041781,000224: 17,2370           55630                           TS       KTLX/I                                
041782,000225: 17,2371           02461                           TCR      S40.15     +7                         
041783,000226: 
041784,000227: 17,2372           32532                           CAF      FKPRIMDT                              #                        - STEERING
041785,000228: 17,2373           55626                           TS       KPRIMEDT                              
041786,000229: 
041787,000230: 17,2374           32533                           CAF      FREPFRAC                              #                        - TMC LOOP
041788,000231: 17,2375           55633                           TS       REPFRAC                               
041789,000232: 
041790,000233: 17,2376           00006                           EXTEND                                         #  UPDATE TRIM ESTIMATES
041791,000234: 17,2377           31602                           DCA      DELPBAR                               
041792,000235: 17,2400           53606                           DXCH     PDELOFF                               
041793,000236: 17,2401           00006                           EXTEND                                         
041794,000237: 17,2402           31604                           DCA      DELYBAR                               
041795,000238: 17,2403           53610                           DXCH     YDELOFF                               
041796,000239: 
041797,000240: 17,2404           32523                           CA       LBCFADR                               
041798,000241: 17,2405           55704                           TS       COEFFADR                              
041799,000242: 17,2406           02412                           TC       LOADCOEF                              
041800,000243: 
041801,000244: 17,2407           31611                           CAE      PHASETMP                              #  RESTORE TVCPHASE
041802,000245: 17,2410           55635                           TS       TVCPHASE                              
041803,000246: 
041804,000247: 17,2411           01613                           TC       RTRNLOC                               #  BACK TO PRESWTCH OR TVCRESTARTS
041805,000248: 
041806,000249: 
041807,000250: 17,2412           00006        LOADCOEF           EXTEND                                         #  LOAD DAP FILTER COEFFICIENTS
041808,000251: 17,2413           51704                           INDEX    COEFFADR                              #    FROM: ERASABLE FOR CSM/LM HB
041809,000252: 17,2414           30001                           DCA      0                                     #          FIXED    FOR CSM/LM LB
041810,000253: 17,2415           53706                           DXCH     N10                                   #          FIXED    FOR CSM
041811,000254: 
041812,000255: 17,2416           00006                           EXTEND                                         #  NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041813,000256: 17,2417           51704                           INDEX    COEFFADR                              #  LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041814,000257: 17,2420           30003                           DCA      2                                     #  ERASABLES. DURING CSM/LM SWITCHOVER, 
041815,000258: 17,2421           53710                           DXCH     N10        +2                         #  THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041816,000259:                                                                                                  #  COEFFICIENTS FROM FIXED MEMORY.
041817,000260: 
041818,000261: 17,2422           00006                           EXTEND                                         
041819,000262: 17,2423           51704                           INDEX    COEFFADR                              
041820,000263: 17,2424           30005                           DCA      4                                     
041821,000264: 17,2425           53712                           DXCH     N10        +4                         
041822,000265: 
041823,000266: 17,2426           00006                           EXTEND                                         
041824,000267: 17,2427           51704                           INDEX    COEFFADR                              
041825,000268: 17,2430           30007                           DCA      6                                     
041826,000269: 17,2431           53714                           DXCH     N10        +6                         

Page 948

041828,000271: 17,2432           00006                           EXTEND                                         
041829,000272: 17,2433           51704                           INDEX    COEFFADR                              
041830,000273: 17,2434           30011                           DCA      8D                                    
041831,000274: 17,2435           53716                           DXCH     N10        +8D                        
041832,000275: 
041833,000276: 17,2436           00006                           EXTEND                                         
041834,000277: 17,2437           51704                           INDEX    COEFFADR                              
041835,000278: 17,2440           30013                           DCA      10D                                   
041836,000279: 17,2441           53720                           DXCH     N10        +10D                       
041837,000280: 
041838,000281: 17,2442           00006                           EXTEND                                         
041839,000282: 17,2443           51704                           INDEX    COEFFADR                              
041840,000283: 17,2444           30015                           DCA      12D                                   
041841,000284: 17,2445           53722                           DXCH     N10        +12D                       
041842,000285: 
041843,000286: 17,2446           51704                           INDEX    COEFFADR                              
041844,000287: 17,2447           30016                           CA       14D                                   
041845,000288: 17,2450           55723                           TS       N10        +14D                       
041846,000289: 
041847,000290: 17,2451           00002                           TC       Q                                     
041848,000291: 
041849,000292: 17,2452           31467        S40.15             CAE      IXX                                   #  GAIN COMPUTATIONS (1/CONACC, VARK)
041850,000293: 17,2453           00006                           EXTEND                                         #  ENTERED FROM TVCINITIALIZE AND TVCEXEC
041851,000294: 17,2454           72534                           MP       2PI/M                                 #        2PI/M SCALED 1/(B+8 N M)
041852,000295: 17,2455           20001                           DDOUBL                                         #        IXX   SCALED B+20 KG-MSQ
041853,000296: 17,2456           20001                           DDOUBL                                         
041854,000297: 17,2457           20001                           DDOUBL                                         
041855,000298: 17,2460           55631                           TS       1/CONACC                              #              SCALED B+9 SEC-SQ/REV
041856,000299: 
041857,000300:                                                                                                  #  ENTRY FROM CSM/LM V46 SWITCHOVER
041858,000301: 17,2461           31630                 +7        CAE      KTLX/I                                #        SCALED (1.08 B+2) 1/SECSQ CSM/LM
041859,000302: 17,2462           00006                           EXTEND                                         #               (  "  B+4)   CSM
041860,000303: 17,2463           71471                           MP       IAVG/TLX                              #              SCALED B+2 SECSQ
041861,000304: 17,2464           20001                           DDOUBL                                         
041862,000305: 17,2465           20001                           DDOUBL                                         
041863,000306: 17,2466           55632                           TS       VARK                                  #        SCALED (1.08 B+2)   CSM/LM
041864,000307: 17,2467           00002                           TC       Q                                     #               (  "  B+4)   CSM
041865,000308: 
041866,000309: 
041867,000310: 17,2470           37777        CSMN10             DEC      .99999                                #  N10   CSM ONLY FILTER COEFFICIENTS
041868,000311: 17,2471           67657                           DEC      -.2549                                #  N11/2
041869,000312: 17,2472           01703                           DEC      .0588                                 #  N12
041870,000313: 17,2473           47472                           DEC      -.7620                                #  D11/2
041871,000314: 17,2474           27656                           DEC      .7450                                 #  D12
041872,000315: 
041873,000316: 17,2475           37777                           DEC      .99999                                #  N20
041874,000317: 17,2476           60361                           DEC      -.4852                                #  N21/2
041875,000318: 17,2477           00000                           DEC      0          B-14                       #  N22

Page 949

041877,000320: 17,2500           67304                           DEC      -.2692                                #  D22/2
041878,000321: 17,2501           00000                           DEC      0          B-14                       #  D22
041879,000322: 
041880,000323: 17,2502           37777        LBN10              DEC      +.99999                               #  N10   LOW BANDWIDTH FILTER COEFFICIENTS
041881,000324: 17,2503           65371                           DEC      -.3285                                #  N11/2
041882,000325: 17,2504           65337                           DEC      -.3301                                #  N12
041883,000326: 17,2505           42700                           DEC      -.9101                                #  D11/2
041884,000327: 17,2506           33045                           DEC      +.8460                                #  D12
041885,000328: 
041886,000329: 17,2507           01000                           DEC      +.03125                               #  N20
041887,000330: 17,2510           00000                           DEC      0          B-14                       #  N21/2
041888,000331: 17,2511           00000                           DEC      0          B-14                       #  N22
041889,000332: 17,2512           42700                           DEC      -.9101                                #  D21/2
041890,000333: 17,2513           33045                           DEC      +.8460                                #  D22
041891,000334: 
041892,000335: 17,2514           20000                           DEC      +.5000                                #  N30
041893,000336: 17,2515           60730                           DEC      -.47115                               #  N31/2
041894,000337: 17,2516           17145                           DEC      +.4749                                #  N32
041895,000338: 17,2517           41323                           DEC      -.9558                                #  D31/2
041896,000339: 17,2520           35773                           DEC      +.9372                                #  D32
041897,000340: 
041898,000341: 
041899,000342: 17,2521           02470        CSMCFADR           GENADR   CSMN10                                #  CSM ONLY COEFFICIENTS ADDRESS
041900,000343: 17,2522           01425        HBCFADR            GENADR   HBN10                                 #  HIGH BANDWIDTH COEFFICIENTS ADDRESS
041901,000344: 17,2523           02502        LBCFADR            GENADR   LBN10                                 #  LOW BANDWIDTH COEFFICIENTS ADDRESS
041902,000345: 
041903,000346: 17,2524           00063        NZERO              DEC      51         B-14                       #  MUST BE ODD FOR MRCLEAN
041904,000347: 17,2525           00027        NZEROJR            DEC      23         B-14                       #  MUST BE ODD FOR MCLEANJR
041905,000348: 
041906,000349: 17,2526           00210        ATTLIM             DEC      0.00833                               #  INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
041907,000350: 17,2527           00170        1/ATTLIM           DEC      0.007325                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041908,000351: 
041909,000352: 17,2530           00005        TCORR              OCT      00005                                 #  CSM
041910,000353: 17,2531           00000                 +1        OCT      00000                                 #  CSM/LM (HB,LB)
041911,000354: 
041912,000355: 17,2532           00247        FKPRIMDT           DEC      .0102                                 #  CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041913,000356: 17,2533           00232        FREPFRAC           DEC      .0375      B-2                        #  CSM/LM (LB),  0.0375 SCALED AT B+2
041914,000357: 
041915,000358: 17,2534     4351               NINETEEN           =        VD1                                   
041916,000359: 17,2534           33074        2PI/M              DEC      .00331017  B+8                        #  2PI/M, SCALED AT 1/(B+8 N-M)
041917,000360: 
041918,000361: 17,2535  E6,1446                                  EBANK=   CNTR                                  
041919,000362: 17,2535           03227 40066  DAPINIT5           2CADR    DAPINIT                               
041920,000363: 
041921,000364: 
041922,000365: 17,2537  E6,1446                                  EBANK=   CNTR                                  
041923,000366: 17,2537           02205 36066  INITLOC2           2CADR    TVCINIT1                              

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