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.

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

Page 943

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

Page 944

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

Page 945

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

Page 946

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

Page 947

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

Page 948

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

Page 949

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

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