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.

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

Page 943

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

Page 944

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

Page 945

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

Page 946

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

Page 947

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

Page 948

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

Page 949

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

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