Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

041370,000002:                                                                                                 #  Copyright:     Public domain.
041371,000003:                                                                                                 #  Filename:      TVCINITIALIZE.agc
041372,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
041373,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
041374,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
041375,000007:                                                                                                 #                 Apollo 15-17.
041376,000008:                                                                                                 #  Assembler:     yaYUL
041377,000009:                                                                                                 #  Contact:       Steve Case <case1780@adelphia.net>
041378,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
041379,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
041380,000012:                                                                                                 #  Mod history:   2009-09-01 SMC  Adapted from Comanche055 files.
041381,000013:                                                                                                 #                 2009-09-14 JL   Fix typos. Fix page numbers. Remove change comments. Restore hard tabs.
041382,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
041383,000015: 
041384,000016:                                                                                                 # # Page 943
041385,000017:                                                                                                 #  NAME           TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041386,000018:                                                                                                 #  LOG SECTION...TVCINITIALIZE                    SUBROUTINE...DAPCSM
041387,000019:                                                                                                 #  MODIFIED BY SCHLUNDT                           21 OCTOBER 1968
041388,000020:                                                                                                 #  MODIFIED BY BEALS TO ELIMINATE CSMMASS UPDATE LOGIC (NOW DONE IN S40.8)
041389,000021:                                                                                                 #  FUNCTIONAL DESCRIPTION
041390,000022:                                                                                                 #         PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041391,000023:                                                                                                 #         COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041392,000024:                                                                                                 #         MAKES INITIALIZATION CALL TO ''NEEDLER'' FOR TVC DAP NEEDLES-SETUP
041393,000025:                                                                                                 #         PERFORMS INITIALIZATION FOR ROLL DAP
041394,000026:                                                                                                 #         CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041395,000027:                                                                                                 #         CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT  VIA T5
041396,000028:                                                                                                 #         PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041397,000029:                                                                                                 #  CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041398,000030:                                                                                                 #         IN PARTICULAR, CALLED BY ''DOTVCON'' IN P40
041399,000031:                                                                                                 #         MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041400,000032:                                                                                                 #  NORMAL EXIT MODE
041401,000033:                                                                                                 #         TCF RESUME
041402,000034:                                                                                                 #  SUBROUTINES CALLED
041403,000035:                                                                                                 #         NEEDLER, MASSPROP
041404,000036:                                                                                                 #  ALARM OR ABORT EXIT MODES
041405,000037:                                                                                                 #         NONE
041406,000038:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
041407,000039:                                                                                                 #         CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041408,000040:                                                                                                 #         TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041409,000041:                                                                                                 #         PACTOFF, YACTOFF, CDUX
041410,000042:                                                                                                 #         TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041411,000043:                                                                                                 #  OUTPUT
041412,000044:                                                                                                 #         ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041413,000045:                                                                                                 #  DEBRIS
041414,000046:                                                                                                 #         NONE
041415,000047: 
041416,000048: 17,2000                                          SETLOC   DAPS7                                 
041417,000049: 17,2000                                          BANK                                           
041418,000050: 
041419,000051: 17,2163                                          COUNT*   $$/INIT                               
041420,000052: 17,2163  E6,1446                                 EBANK=   CNTR                                  
041421,000053: 17,2163           22016        TVCDAPON          LXCH     BANKRUPT                              #  T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041422,000054: 17,2164           00006                          EXTEND                                         #  SAVE Q REQUIRED IN RESTART (MRCLEAN AND
041423,000055: 17,2165           22012                          QXCH     QRUPT                                 #         TVCINIT4 ARE ENTRIES)
041424,000056: 17,2166           32524        MRCLEAN           CAF      NZERO                                 #  NUMBER TO ZERO, LESS ONE  (MUST BE ODD)
041425,000057:                                                                                                 #         TVC RESTARTS ENTER HERE  (NEW BANK)
041426,000058: 17,2167           10000                 +1       CCS      A                                     
041427,000059: 17,2170           55446                          TS       CNTR                                  
041428,000060: 17,2171           34772                          CAF      ZERO                                  
041429,000061: 17,2172           54001                          TS       L                                     
041430,000062: 17,2173           51446                          INDEX    CNTR                                  
041431,000063: 17,2174           53530                          DXCH     OMEGAYC                               #  FIRST (LAST) TWO LOCATIONS
041432,000064: 17,2175           11446                          CCS      CNTR                                  
041433,000065: 17,2176           12167                          TCF      MRCLEAN    +1                         
041434,000066:                                                                                                 # # Page 944
041435,000067: 17,2177           00006                          EXTEND                                         #  SET UP ANOTHER T5 RUPT TO CONTINUE
041436,000068: 17,2200           32540                          DCA      INITLOC2                              #         INITIALIZATION AT TVCINIT1
041437,000069: 17,2201           52113                          DXCH     T5LOC                                 #  THE PHSCHK2 ENTRY  (REDOTVC) AT TVCDAPON
041438,000070: 17,2202           34750                          CAF      POSMAX                                #         +3 IS IN ANOTHER BANK. MUST RESET
041439,000071: 17,2203           54030                          TS       TIME5                                 #         BBCON TOO (FULL 2CADR), FOR THAT
041440,000072: 17,2204           15323        ENDMRC            TCF      RESUME                                #         ENTRY.
041441,000073: 
041442,000074: 17,2205           22016        TVCINIT1          LXCH     BANKRUPT                              
041443,000075: 17,2206           00006                          EXTEND                                         
041444,000076: 17,2207           22012                          QXCH     QRUPT                                 
041445,000077: 
041446,000078: 17,2210           04714                          TC       IBNKCALL                              #  UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041447,000079: 17,2211           13313                          CADR     MASSPROP                              #         OR NOUNS 46 AND 47 MUST BE CORRECT)
041448,000080: 
041449,000081: 17,2212           31465                          CAE      DAPDATR1                              #  CHECK LEM-ON/OFF
041450,000082: 17,2213           74753                          MASK     BIT14                                 
041451,000083: 17,2214           10000                          CCS      A                                     
041452,000084: 17,2215           34770                          CAF      BIT1                                  #  LEM-ON (BIT1)
041453,000085: 17,2216           55446                          TS       CNTR                                  #  LEM-OFF (ZERO)
041454,000086: 
041455,000087: 17,2217           51446                          INDEX    CNTR                                  #  LOAD THE FILTER COEFFICIENTS
041456,000088: 17,2220           32521                          CAF      CSMCFADR                              
041457,000089: 17,2221           55704                          TS       COEFFADR                              
041458,000090: 17,2222           02412                          TC       LOADCOEF                              
041459,000091: 
041460,000092: 17,2223           51446                          INDEX    CNTR                                  #  PICK UP LM-OFF,-ON KTLX/I
041461,000093: 17,2224           31416                          CAE      EKTLX/I                               #         SCALED (1.08 B+2) 1/SECSQ CSM/LM
041462,000094: 17,2225           55630                          TS       KTLX/I                                #                ( "   B+4)    "    CSM
041463,000095: 
041464,000096: 17,2226           02452                          TCR      S40.15                                #  COMPUTE 1/CONACC, VARK
041465,000097: 
041466,000098: 17,2227           41446        TVCINIT2          CS       CNTR                                  #  PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041467,000099: 17,2230           50000                          INDEX    A                                     #  DETERMINATION:
041468,000100: 17,2231           34767                          CAF      BIT2                                  #         BIT2 FOR CSM ONLY 40MS FILTER
041469,000101: 17,2232           55626                          TS       KPRIMEDT                              #         BIT3 FOR CSM/LM 80MS FILTER
041470,000102: 
041471,000103: 17,2233           40000                          COM                                            #  PREPARE T5TVCDT
041472,000104: 17,2234           64750                          AD       POSMAX                                
041473,000105: 17,2235           64770                          AD       BIT1                                  
041474,000106: 17,2236           55625                          TS       T5TVCDT                               
041475,000107: 
041476,000108: 17,2237           44752                          CS       SWTOVBIT                              #  RESET SWTOVER FLAG
041477,000109: 17,2240           70105                          MASK     FLAGWRD9                              
041478,000110: 17,2241           54105                          TS       FLAGWRD9                              
041479,000111: 17,2242           51446                          INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON KPRIME
041480,000112: 17,2243           31414                          CAE      EKPRIME                               #         SCALED (100 PI)/16
041481,000113: 17,2244           00006                          EXTEND                                         
041482,000114: 17,2245           71626                          MP       KPRIMEDT                              #  (TVCDT/2, SC.AT B+14CS)
041483,000115: 17,2246           22000                          LXCH     A                                     #         SC.AT PI/8      (DIMENSIONLESS)
041484,000116: 17,2247           53627                          DXCH     KPRIMEDT                              
041485,000117:                                                                                                 # # Page 945              
041486,000118: 17,2250           51446                          INDEX    CNTR                                  #  PICK UP LEM-OFF,-ON REPFRAC
041487,000119: 17,2251           31421                          CAE      EREPFRAC                              
041488,000120: 17,2252           55633                          TS       REPFRAC                               
041489,000121: 
041490,000122: 17,2253           51446                          INDEX    CNTR                                  #  PICK UP ONE-SHOT CORRECTION TIME
041491,000123: 17,2254           32530                          CAF      TCORR                                 
041492,000124: 17,2255           55446                          TS       CNTR                                  
041493,000125: 
041494,000126: 17,2256           34351                          CAF      NINETEEN                              #  SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041495,000127: 17,2257           55634                          TS       VCNTR                                 #  10 SECS (TVCEXEC 1/2 SEC RATE)
041496,000128: 17,2260           31423        TVCINIT3          CAE      PACTOFF                               #  TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041497,000129: 17,2261           55605                          TS       PDELOFF                               #         TRACKERS, OFFSET-UPDATES, AND
041498,000130: 17,2262           55623                          TS       PCMD                                  #         OFFSET-TRACKER FILTERS
041499,000131: 17,2263           55601                          TS       DELPBAR                               #         NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041500,000132: 
041501,000133: 17,2264           31424                          CAE      YACTOFF                               
041502,000134: 17,2265           55607                          TS       YDELOFF                               
041503,000135: 17,2266           55624                          TS       YCMD                                  
041504,000136: 17,2267           55603                          TS       DELYBAR                               
041505,000137: 
041506,000138: 17,2270           31465        ATTINIT           CAE      DAPDATR1                              #  ATTITUDE-ERROR INITIALIZATION LOGIC
041507,000139: 17,2271           74754                          MASK     BIT13                                 #         TEST FOR CSM OR CSM/LM
041508,000140: 17,2272           00006                          EXTEND                                         
041509,000141: 17,2273           12321                          BZF      NEEDLEIN                              #         BYPASS INITIALIZATION FOR CSM/LM
041510,000142: 
041511,000143: 17,2274           34770                          CAF      BIT1                                  #         SET UP TEMPORARY COUNTER
041512,000144: 17,2275           55611                 +5       TS       TTMP1                                 
041513,000145: 
041514,000146: 17,2276           51611                          INDEX    TTMP1                                 
041515,000147: 17,2277           31664                          CA       ERRBTMP                               #  ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041516,000148: 17,2300           00006                          EXTEND                                         #         ERRORY & ERRORZ (P40 AT DOTVCON)
041517,000149: 17,2301           72527                          MP       1/ATTLIM                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041518,000150: 17,2302           00006                          EXTEND                                         
041519,000151: 17,2303           12313                          BZF      +8D                                   #         |ERROR| LESS THAN 1.5 DEG
041520,000152: 17,2304           00006                          EXTEND                                         
041521,000153: 17,2305           62310                          BZMF     +3                                    #         |ERROR| > 1.5 DEG, AND NEG
041522,000154: 17,2306           32526                          CA       ATTLIM                                #         |ERROR| > 1.5 DEG, AND POS
041523,000155: 17,2307           12311                          TCF      +2                                    
041524,000156: 17,2310           42526                 +3       CS       ATTLIM                                
041525,000157: 17,2311           51611                 +2       INDEX    TTMP1                                 
041526,000158: 17,2312           55664                          TS       ERRBTMP                               
041527,000159: 17,2313           11611                 +8       CCS      TTMP1                                 #         TEST TEMPORARY COUNTER
041528,000160: 17,2314           12275                          TCF      ATTINIT    +5                         #         BACK TO REPEAT FOR PITCH ERROR
041529,000161: 
041530,000162: 17,2315           31664                          CA       ERRBTMP                               #  ERRORS ESTABLISHED AND LIMITED
041531,000163: 17,2316           55575                          TS       PERRB                                 
041532,000164: 17,2317           31665                          CA       ERRBTMP    +1                         
041533,000165: 17,2320           55577                          TS       YERRB                                 
041534,000166: 
041535,000167: 17,2321           41501        NEEDLEIN          CS       RCSFLAGS                              #  SET BIT 3 FOR INITIALIZATION PASS AND GO
041536,000168:                                                                                                 # # Page 946
041537,000169: 17,2322           74766                          MASK     BIT3                                  #         TO NEEDLER.  WILL CLEAR FOR TVC DAP
041538,000170: 17,2323           27501                          ADS      RCSFLAGS                              #         (RETURNS AFTER CADR)
041539,000171: 17,2324           04714                          TC       IBNKCALL                              
041540,000172: 17,2325           42425                          CADR     NEEDLER                               
041541,000173: 
041542,000174: 17,2326           34772        TVCINIT4          CAF      ZERO                                  #  SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041543,000175: 17,2327           55635                          TS       TVCPHASE                              #         NEEDLEIN INITIALIZATION FINISHED.
041544,000176:                                                                                                 #         (POSSIBLE TVC-RESTART ENTRY)
041545,000177: 
041546,000178: 17,2330           30032                          CAE      CDUX                                  #  PREPARE ROLL DAP
041547,000179: 17,2331           55645                          TS       OGANOW                                
041548,000180: 
041549,000181: 17,2332           32524                          CAF      NZERO                                 #  CALL TVCEXECUTIVE IN 0.51 SEC
041550,000182: 17,2333           05233                          TC       WAITLIST                              
041551,000183: 17,2334  E6,1446                                 EBANK=   CNTR                                  
041552,000184: 17,2334           03037 34066                    2CADR    TVCEXEC                               
041553,000185: 
041554,000186: 
041555,000187: 17,2336           00006                          EXTEND                                         #  CALL FOR DAPINIT
041556,000188: 17,2337           32536                          DCA      DAPINIT5                              
041557,000189: 17,2340           52113                          DXCH     T5LOC                                 
041558,000190: 17,2341           31625                          CAE      T5TVCDT                               #  (ALLOW TIME FOR RESTART COMPUTATIONS)
041559,000191: 17,2342           54030                          TS       TIME5                                 
041560,000192: 
041561,000193: 17,2343           15323        ENDTVCIN          TCF      RESUME                                
041562,000194: 
041563,000195: 
041564,000196: 17,2344           00004        SWICHOVR          INHINT                                         
041565,000197: 17,2345           31635                          CA       TVCPHASE                              #  SAVE TVCPHASE
041566,000198: 17,2346           55611                          TS       PHASETMP                              
041567,000199: 17,2347           44767                          CS       BIT2                                  #  SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041568,000200: 17,2350           55635                          TS       TVCPHASE                              #         TO RESTART LOGIC)
041569,000201: 
041570,000202: 17,2351           00006                 +5       EXTEND                                         #  SAVE Q FOR RETURN (RESTART ENTRY POINT,
041571,000203: 17,2352           23613                          QXCH     RTRNLOC                               #         TVCPHASE AND PHASETMP ALREADY SET)
041572,000204: 
041573,000205: 17,2353           32525                          CAF      NZEROJR                               #  ZEROING LOOP FOR FILTER STORAGE LOCS
041574,000206: 17,2354           55661                 +8       TS       CNTRTMP                               
041575,000207: 
041576,000208: 17,2355           34772        MCLEANJR          CA       ZERO                                  
041577,000209: 17,2356           54001                          TS       L                                     
041578,000210: 17,2357           51661                          INDEX    CNTRTMP                               
041579,000211: 17,2360           53541                          DXCH     PTMP1      -1                         
041580,000212: 17,2361           11661                          CCS      CNTRTMP                               
041581,000213: 17,2362           10000                          CCS      A                                     
041582,000214: 17,2363           12354                          TCF      SWICHOVR   +8D                        
041583,000215: 
041584,000216: 17,2364           40105                          CS       FLAGWRD9                              #  SET SWITCHOVER FLAG FOR DOWNLINK
041585,000217: 17,2365           74752                          MASK     SWTOVBIT                              
041586,000218:                                                                                                 # # Page 947
041587,000219: 17,2366           26105                          ADS      FLAGWRD9                              
041588,000220: 
041589,000221: 17,2367           31420                          CAE      EKTLX/I    +2                         #  LOW BANDWIDTH GAINS - DAP
041590,000222: 17,2370           55630                          TS       KTLX/I                                
041591,000223: 17,2371           02461                          TCR      S40.15     +7                         
041592,000224: 
041593,000225: 17,2372           32532                          CAF      FKPRIMDT                              #                         - STEERING
041594,000226: 17,2373           55626                          TS       KPRIMEDT                              
041595,000227: 
041596,000228: 17,2374           32533                          CAF      FREPFRAC                              #                         - TMC LOOP
041597,000229: 17,2375           55633                          TS       REPFRAC                               
041598,000230: 
041599,000231: 17,2376           00006                          EXTEND                                         #  UPDATE TRIM ESTIMATES
041600,000232: 17,2377           31602                          DCA      DELPBAR                               
041601,000233: 17,2400           53606                          DXCH     PDELOFF                               
041602,000234: 17,2401           00006                          EXTEND                                         
041603,000235: 17,2402           31604                          DCA      DELYBAR                               
041604,000236: 17,2403           53610                          DXCH     YDELOFF                               
041605,000237: 
041606,000238: 17,2404           32523                          CA       LBCFADR                               
041607,000239: 17,2405           55704                          TS       COEFFADR                              
041608,000240: 17,2406           02412                          TC       LOADCOEF                              
041609,000241: 
041610,000242: 17,2407           31611                          CAE      PHASETMP                              #  RESTORE TVCPHASE
041611,000243: 17,2410           55635                          TS       TVCPHASE                              
041612,000244: 
041613,000245: 17,2411           01613                          TC       RTRNLOC                               #  BACK TO PRESWTCH OR TVCRESTARTS
041614,000246: 
041615,000247: 
041616,000248: 17,2412           00006        LOADCOEF          EXTEND                                         #  LOAD DAP FILTER COEFFICIENTS
041617,000249: 17,2413           51704                          INDEX    COEFFADR                              #    FROM: ERASABLE FOR CSM/LM HB
041618,000250: 17,2414           30001                          DCA      0                                     #          FIXED    FOR CSM/LM LB
041619,000251: 17,2415           53706                          DXCH     N10                                   #          FIXED    FOR CSM
041620,000252: 
041621,000253: 17,2416           00006                          EXTEND                                         #  NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041622,000254: 17,2417           51704                          INDEX    COEFFADR                              #  LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041623,000255: 17,2420           30003                          DCA      2                                     #  ERASABLES. DURING CSM/LM SWITCHOVER, 
041624,000256: 17,2421           53710                          DXCH     N10        +2                         #  THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041625,000257:                                                                                                 #  COEFFICIENTS FROM FIXED MEMORY.
041626,000258: 
041627,000259: 17,2422           00006                          EXTEND                                         
041628,000260: 17,2423           51704                          INDEX    COEFFADR                              
041629,000261: 17,2424           30005                          DCA      4                                     
041630,000262: 17,2425           53712                          DXCH     N10        +4                         
041631,000263: 
041632,000264: 17,2426           00006                          EXTEND                                         
041633,000265: 17,2427           51704                          INDEX    COEFFADR                              
041634,000266: 17,2430           30007                          DCA      6                                     
041635,000267: 17,2431           53714                          DXCH     N10        +6                         
041636,000268:                                                                                                 # # Page 948
041637,000269: 17,2432           00006                          EXTEND                                         
041638,000270: 17,2433           51704                          INDEX    COEFFADR                              
041639,000271: 17,2434           30011                          DCA      8D                                    
041640,000272: 17,2435           53716                          DXCH     N10        +8D                        
041641,000273: 
041642,000274: 17,2436           00006                          EXTEND                                         
041643,000275: 17,2437           51704                          INDEX    COEFFADR                              
041644,000276: 17,2440           30013                          DCA      10D                                   
041645,000277: 17,2441           53720                          DXCH     N10        +10D                       
041646,000278: 
041647,000279: 17,2442           00006                          EXTEND                                         
041648,000280: 17,2443           51704                          INDEX    COEFFADR                              
041649,000281: 17,2444           30015                          DCA      12D                                   
041650,000282: 17,2445           53722                          DXCH     N10        +12D                       
041651,000283: 
041652,000284: 17,2446           51704                          INDEX    COEFFADR                              
041653,000285: 17,2447           30016                          CA       14D                                   
041654,000286: 17,2450           55723                          TS       N10        +14D                       
041655,000287: 
041656,000288: 17,2451           00002                          TC       Q                                     
041657,000289: 
041658,000290: 17,2452           31467        S40.15            CAE      IXX                                   #  GAIN COMPUTATIONS (1/CONACC, VARK)
041659,000291: 17,2453           00006                          EXTEND                                         #  ENTERED FROM TVCINITIALIZE AND TVCEXEC
041660,000292: 17,2454           72534                          MP       2PI/M                                 #         2PI/M SCALED 1/(B+8 N M)
041661,000293: 17,2455           20001                          DDOUBL                                         #         IXX   SCALED B+20 KG-MSQ
041662,000294: 17,2456           20001                          DDOUBL                                         
041663,000295: 17,2457           20001                          DDOUBL                                         
041664,000296: 17,2460           55631                          TS       1/CONACC                              #               SCALED B+9 SEC-SQ/REV
041665,000297: 
041666,000298:                                                                                                 #  ENTRY FROM CSM/LM V46 SWITCH-OVER
041667,000299: 17,2461           31630                 +7       CAE      KTLX/I                                #         SCALED (1.08 B+2) 1/SECSQ CSM/LM
041668,000300: 17,2462           00006                          EXTEND                                         #                (  "  B+4)   CSM
041669,000301: 17,2463           71471                          MP       IAVG/TLX                              #               SCALED B+2 SECSQ
041670,000302: 17,2464           20001                          DDOUBL                                         
041671,000303: 17,2465           20001                          DDOUBL                                         
041672,000304: 17,2466           55632                          TS       VARK                                  #         SCALED (1.08 B+2)   CSM/LM
041673,000305: 17,2467           00002                          TC       Q                                     #                (  "  B+4)   CSM
041674,000306: 
041675,000307: 
041676,000308: 17,2470           37777        CSMN10            DEC      .99999                                #  N10    CSM ONLY FILTER COEFFICIENTS
041677,000309: 17,2471           67657                          DEC      -.2549                                #  N11/2
041678,000310: 17,2472           01703                          DEC      .0588                                 #  N12
041679,000311: 17,2473           47472                          DEC      -.7620                                #  D11/2
041680,000312: 17,2474           27656                          DEC      .7450                                 #  D12
041681,000313: 
041682,000314: 17,2475           37777                          DEC      .99999                                #  N20
041683,000315: 17,2476           60361                          DEC      -.4852                                #  N21/2
041684,000316: 17,2477           00000                          DEC      0          B-14                       #  N22
041685,000317:                                                                                                 # # Page 949
041686,000318: 17,2500           67304                          DEC      -.2692                                #  D22/2
041687,000319: 17,2501           00000                          DEC      0          B-14                       #  D22
041688,000320: 
041689,000321: 17,2502           37777        LBN10             DEC      +.99999                               #  N10    LOW BANDWIDTH FILTER COEFFICIENTS
041690,000322: 17,2503           65371                          DEC      -.3285                                #  N11/2
041691,000323: 17,2504           65337                          DEC      -.3301                                #  N12
041692,000324: 17,2505           42700                          DEC      -.9101                                #  D11/2
041693,000325: 17,2506           33045                          DEC      +.8460                                #  D12
041694,000326: 
041695,000327: 17,2507           01000                          DEC      +.03125                               #  N20
041696,000328: 17,2510           00000                          DEC      0          B-14                       #  N21/2
041697,000329: 17,2511           00000                          DEC      0          B-14                       #  N22
041698,000330: 17,2512           42700                          DEC      -.9101                                #  D21/2
041699,000331: 17,2513           33045                          DEC      +.8460                                #  D22
041700,000332: 
041701,000333: 17,2514           20000                          DEC      +.5000                                #  N30
041702,000334: 17,2515           60730                          DEC      -.47115                               #  N31/2
041703,000335: 17,2516           17145                          DEC      +.4749                                #  N32
041704,000336: 17,2517           41323                          DEC      -.9558                                #  D31/2
041705,000337: 17,2520           35773                          DEC      +.9372                                #  D32
041706,000338: 
041707,000339: 
041708,000340: 17,2521           02470        CSMCFADR          GENADR   CSMN10                                #  CSM ONLY COEFFICIENTS ADDRESS
041709,000341: 17,2522           01425        HBCFADR           GENADR   HBN10                                 #  HIGH BANDWIDTH COEFFICIENTS ADDRESS
041710,000342: 17,2523           02502        LBCFADR           GENADR   LBN10                                 #  LOW BANDWIDTH COEFFICIENTS ADDRESS
041711,000343: 
041712,000344: 17,2524           00063        NZERO             DEC      51         B-14                       #  MUST BE ODD FOR MRCLEAN
041713,000345: 17,2525           00027        NZEROJR           DEC      23         B-14                       #  MUST BE ODD FOR MCLEANJR
041714,000346: 
041715,000347: 17,2526           00210        ATTLIM            DEC      0.00833                               #  INITIAL ATTITUDE EROR LIMIT (1.5 DEG)
041716,000348: 17,2527           00170        1/ATTLIM          DEC      0.007325                              #  .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041717,000349: 
041718,000350: 17,2530           00005        TCORR             OCT      00005                                 #  CSM
041719,000351: 17,2531           00000                 +1       OCT      00000                                 #  CSM/LM (HB,LB)
041720,000352: 
041721,000353: 17,2532           00247        FKPRIMDT          DEC      .0102                                 #  CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041722,000354: 17,2533           00232        FREPFRAC          DEC      .0375      B-2                        #  CSM/LM (LB),  0.0375 SCALED AT B+2
041723,000355: 
041724,000356: 17,2534     4351               NINETEEN          =        VD1                                   
041725,000357: 17,2534           33074        2PI/M             DEC      .00331017  B+8                        #  2PI/M, SCALED AT 1/(B+8 N-M)
041726,000358: 
041727,000359: 17,2535  E6,1446                                 EBANK=   CNTR                                  
041728,000360: 17,2535           03227 40066  DAPINIT5          2CADR    DAPINIT                               
041729,000361: 
041730,000362: 
041731,000363: 17,2537  E6,1446                                 EBANK=   CNTR                                  
041732,000364: 17,2537           02205 36066  INITLOC2          2CADR    TVCINIT1                              

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