Source Code
041535,000001: # Copyright: Public domain.
041536,000002: # Filename: TVCINITIALIZE.agc
041537,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
041538,000004: # It is part of the source code for the Command Module's (CM)
041539,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
041540,000006: # Assembler: yaYUL
041541,000007: # Contact: Jim Lawton <jim.lawton@gmail.com>.
041542,000008: # Website: www.ibiblio.org/apollo.
041543,000009: # Pages: 936-944
041544,000010: # Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
041545,000011: # of the same name, using Comanche055 page
041546,000012: # images.
041547,000013: # 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing
041548,000014: # lines in TVCINIT1, changed the capitalization
041549,000015: # of a couple of the "Page N" comments,
041550,000016: # corrected a couple of lines in LOADCOEFF.
041551,000017: # 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to
041552,000018: # TS N10 +14D. Also, various comment-marks
041553,000019: # were added to comments following this
041554,000020: # change.
041555,000021:
041556,000022: # This source code has been transcribed or otherwise adapted from digitized
041557,000023: # images of a hardcopy from the MIT Museum. The digitization was performed
041558,000024: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
041559,000025: # thanks to both. The images (with suitable reduction in storage size and
041560,000026: # consequent reduction in image quality as well) are available online at
041561,000027: # www.ibiblio.org/apollo. If for some reason you find that the images are
041562,000028: # illegible, contact me at info@sandroid.org about getting access to the
041563,000029: # (much) higher-quality images which Paul actually created.
041564,000030:
041565,000031: # Notations on the hardcopy document read, in part:
041566,000032:
041567,000033: # Assemble revision 055 of AGC program Comanche by NASA
041568,000034: # 2021113-051. 10:28 APR. 1, 1969
041569,000035:
041570,000036: # This AGC program shall also be referred to as
041571,000037: # Colossus 2A
041572,000038:
041573,000039: # Page 937
041574,000040: # NAME TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041575,000041: # LOG SECTION...TVCINITIALIZE SUBROUTINE...DAPCSM
041576,000042: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
041577,000043: # FUNCTIONAL DESCRIPTION
041578,000044: # PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041579,000045: # COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041580,000046: # MAKES INITIALIZATION CALL TO "NEEDLER" FOR TVC DAP NEEDLES-SETUP
041581,000047: # PERFORMS INITIALIZATION FOR ROLL DAP
041582,000048: # CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041583,000049: # CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT VIA T5
041584,000050: # PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041585,000051: # CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041586,000052: # IN PARTICULAR, CALLED BY "DOTVCON" IN P40
041587,000053: # MRCLEAN AND TVCINIT4 ARE POSSIBLE TVC-RESTART ENTRY POINTS
041588,000054: # NORMAL EXIT MODE
041589,000055: # TCF RESUME
041590,000056: # SUBROUTINES CALLED
041591,000057: # NEEDLER, MASSPROP
041592,000058: # ALARM OR ABORT EXIT MODES
041593,000059: # NONE
041594,000060: # ERASABLE INITIALIZATION REQUIRED
041595,000061: # CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041596,000062: # TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041597,000063: # PACTOFF, YACTOFF, CDUX
041598,000064: # TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041599,000065: # OUTPUT
041600,000066: # ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041601,000067: # DEBRIS
041602,000068: # NONE
041603,000069:
041604,000070: 42,3772 COUNT* $$/INIT
041605,000071: 17,2147 BANK 17
041606,000072: 17,2000 SETLOC DAPS7
041607,000073: 17,2000 BANK
041608,000074:
041609,000075: 17,2147 E6,1702 EBANK= BZERO
041610,000076:
041611,000077: 17,2147 22016 TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041612,000078: 17,2150 00006 EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND
041613,000079: 17,2151 22012 QXCH QRUPT # TVCINIT4 ARE ENTRIES)
041614,000080: 17,2152 32534 MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
041615,000081: # TVC RESTARTS ENTER HERE (NEW BANK)
041616,000082: 17,2153 10000 +1 CCS A
041617,000083: 17,2154 55447 TS CNTR
041618,000084: 17,2155 35021 CAF ZERO
041619,000085: 17,2156 54001 TS L
041620,000086: 17,2157 51447 INDEX CNTR
041621,000087: 17,2160 53530 DXCH OMEGAYC # FIRST (LAST) TWO LOCATIONS
041622,000088: 17,2161 11447 CCS CNTR
041623,000089: 17,2162 12153 TCF MRCLEAN +1
041624,000090: # Page 938
041625,000091: 17,2163 00006 EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
041626,000092: 17,2164 32551 DCA INITLOC2 # INITIALIZATION AT TVCINIT1
041627,000093: 17,2165 53313 DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
041628,000094: 17,2166 34777 CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
041629,000095: 17,2167 54030 TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
041630,000096: 17,2170 15333 ENDMRC TCF RESUME # ENTRY.
041631,000097:
041632,000098: 17,2171 22016 TVCINIT1 LXCH BANKRUPT
041633,000099: 17,2172 00006 EXTEND
041634,000100: 17,2173 22012 QXCH QRUPT
041635,000101:
041636,000102: 17,2174 04740 TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041637,000103: 17,2175 13366 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
041638,000104:
041639,000105: 17,2176 30110 CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
041640,000106: 17,2177 00006 EXTEND
041641,000107: 17,2200 72545 MP ONETHOU
041642,000108: 17,2201 55637 TS TENMDOT # 10-SEC MASS LOSS B+16 KG
041643,000109: 17,2202 40000 COM
041644,000110: 17,2203 61474 AD CSMMASS
041645,000111: 17,2204 55652 TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
041646,000112:
041647,000113: 17,2205 31466 CAE DAPDATR1 # CHECK LEM-ON/OFF
041648,000114: 17,2206 75002 MASK BIT14
041649,000115: 17,2207 10000 CCS A
041650,000116: 17,2210 35017 CAF BIT1 # LEM-ON (BIT1)
041651,000117: 17,2211 55447 TS CNTR # LEM-OFF (ZERO)
041652,000118:
041653,000119: 17,2212 51447 INDEX CNTR # LOAD THE FILTER COEFFICIENTS
041654,000120: 17,2213 32531 CAF CSMCFADR
041655,000121: 17,2214 55722 TS COEFFADR
041656,000122: 17,2215 02422 TC LOADCOEF
041657,000123:
041658,000124: 17,2216 51447 INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
041659,000125: 17,2217 31416 CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
041660,000126: 17,2220 55636 TS KTLX/I
041661,000127:
041662,000128: 17,2221 02462 TCR S40.15 # COMPUTE 1/CONACC, VARK
041663,000129:
041664,000130: 17,2222 41447 TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041665,000131: 17,2223 50000 INDEX A # DETERMINATION:
041666,000132: 17,2224 35016 CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
041667,000133: 17,2225 55634 TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
041668,000134:
041669,000135: 17,2226 40000 COM # PREPARE T5TVCDT
041670,000136: 17,2227 64777 AD POSMAX
041671,000137: 17,2230 65017 AD BIT1
041672,000138: 17,2231 55625 TS T5TVCDT
041673,000139:
041674,000140: 17,2232 45001 CS BIT15 # RESET SWTOVER FLAG
041675,000141: # Page 939
041676,000142: 17,2233 70105 MASK FLAGWRD9
041677,000143: 17,2234 54105 TS FLAGWRD9
041678,000144:
041679,000145: 17,2235 51447 INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
041680,000146: 17,2236 31414 CAE EKPRIME # SCALED (100 PI)/16
041681,000147: 17,2237 00006 EXTEND
041682,000148: 17,2240 71634 MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
041683,000149: 17,2241 22000 LXCH A # SC.AT PI/8 (DIMENSIONLESS)
041684,000150: 17,2242 53635 DXCH KPRIMEDT
041685,000151:
041686,000152: 17,2243 51447 INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
041687,000153: 17,2244 31421 CAE EREPFRAC
041688,000154: 17,2245 55642 TS REPFRAC
041689,000155:
041690,000156: 17,2246 51447 INDEX CNTR # PICK UP ONE-SHOT CORRECTION TIME
041691,000157: 17,2247 32540 CAF TCORR
041692,000158: 17,2250 55447 TS CNTR
041693,000159:
041694,000160: 17,2251 37716 CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
041695,000161: 17,2252 55654 TS STRKTIME
041696,000162:
041697,000163: 17,2253 34374 CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041698,000164: 17,2254 55643 TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
041699,000165: 17,2255 55444 TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
041700,000166:
041701,000167: 17,2256 31423 TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041702,000168: 17,2257 55605 TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
041703,000169: 17,2260 55623 TS PCMD # OFFSET-TRACKER FILTERS
041704,000170: 17,2261 55601 TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041705,000171:
041706,000172: 17,2262 31424 CAE YACTOFF
041707,000173: 17,2263 55607 TS YDELOFF
041708,000174: 17,2264 55624 TS YCMD
041709,000175: 17,2265 55603 TS DELYBAR
041710,000176:
041711,000177: 17,2266 31466 ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC
041712,000178: 17,2267 75003 MASK BIT13 # TEST FOR CSM OR CSM/LM
041713,000179: 17,2270 00006 EXTEND
041714,000180: 17,2271 12317 BZF NEEDLEIN # BYPASS INITIALIZATION FOR CSM/LM
041715,000181:
041716,000182: 17,2272 35017 CAF BIT1 # SET UP TEMPORARY COUNTER
041717,000183: 17,2273 55611 +5 TS TTMP1
041718,000184:
041719,000185: 17,2274 51611 INDEX TTMP1
041720,000186: 17,2275 31702 CA ERRBTMP # ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041721,000187: 17,2276 00006 EXTEND # ERRORY & ERRORZ (P40 AT DOTVCON)
041722,000188: 17,2277 72537 MP 1/ATTLIM # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041723,000189: 17,2300 00006 EXTEND
041724,000190: 17,2301 12311 BZF +8D # |ERROR| LESS THAN 1.5 DEG
041725,000191: 17,2302 00006 EXTEND
041726,000192: # Page 940
041727,000193: 17,2303 62306 BZMF +3 # |ERROR| > 1.5 DEG, AND NEG
041728,000194: 17,2304 32536 CA ATTLIM # |ERROR| > 1.5 DEG, AND POS
041729,000195: 17,2305 12307 TCF +2
041730,000196: 17,2306 42536 +3 CS ATTLIM
041731,000197: 17,2307 51611 +2 INDEX TTMP1
041732,000198: 17,2310 55702 TS ERRBTMP
041733,000199: 17,2311 11611 +8 CCS TTMP1 # TEST TEMPORARY COUNTER
041734,000200: 17,2312 12273 TCF ATTINIT +5 # BACK TO REPEAT FOR PITCH ERROR
041735,000201:
041736,000202: 17,2313 31702 CA ERRBTMP # ERROS ESTABLISHED AND LIMITED
041737,000203: 17,2314 55575 TS PERRB
041738,000204: 17,2315 31703 CA ERRBTMP +1
041739,000205: 17,2316 55577 TS YERRB
041740,000206:
041741,000207: 17,2317 41501 NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
041742,000208: 17,2320 75015 MASK BIT3 # TO NEEDLER. WILL CLEAR FOR TVC DAP
041743,000209: 17,2321 27501 ADS RCSFLAGS # (RETURNS AFTER CADR)
041744,000210: 17,2322 04740 TC IBNKCALL
041745,000211: 17,2323 42420 CADR NEEDLER
041746,000212:
041747,000213: 17,2324 35021 TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041748,000214: 17,2325 55644 TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
041749,000215: # (POSSIBLE TVC-RESTART ENTRY)
041750,000216:
041751,000217: 17,2326 30032 CAE CDUX # PREPARE ROLL DAP
041752,000218: 17,2327 55662 TS OGANOW
041753,000219:
041754,000220: 17,2330 35003 CAF BIT13 # IF ENGINE IS ALREADY OFF, ENGINOFF HAS
041755,000221: 17,2331 00006 EXTEND # ALREADY ESTABLISHED THE POST-BURN
041756,000222: 17,2332 02011 RAND DSALMOUT # CSMMASS (MASSBACK DOES IT). DON'T
041757,000223: 17,2333 00006 EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
041758,000224: 17,2334 12337 BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE
041759,000225: # EVEN BURNS LESS THAN 0.4 SEC ARE AOK
041760,000226:
041761,000227: 17,2335 31652 CAE MASSTMP # COPYCYCLE
041762,000228: 17,2336 55474 TS CSMMASS
041763,000229:
041764,000230: 17,2337 35036 +3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
041765,000231: 17,2340 05245 TC WAITLIST
041766,000232: 17,2341 E6,1702 EBANK= BZERO
041767,000233: 17,2341 02720 34066 2CADR TVCEXEC
041768,000234:
041769,000235: 17,2343 00006 EXTEND # CALL FOR DAPINIT
041770,000236: 17,2344 32547 DCA DAPINIT5
041771,000237: 17,2345 53313 DXCH T5LOC
041772,000238: 17,2346 31625 CAE T5TVCDT # (ALLOW TIME FOR RESTART COMPUTATIONS)
041773,000239: 17,2347 54030 TS TIME5
041774,000240: # Page 941
041775,000241: 17,2350 15333 ENDTVCIN TCF RESUME
041776,000242:
041777,000243: 17,2351 02354 PRESWTCH TCR SWICHOVR # ENTRY FROM V46
041778,000244:
041779,000245: 17,2352 04701 TC POSTJUMP # THIS PROVIDES AN EXIT FROM SWITCH-OVER
041780,000246: 17,2353 21272 CADR PINBRNCH # (PINBRNCH DOES A RELINT)
041781,000247:
041782,000248: 17,2354 00004 SWICHOVR INHINT
041783,000249: 17,2355 31644 CA TVCPHASE # SAVE TVCPHASE
041784,000250: 17,2356 55611 TS PHASETMP
041785,000251: 17,2357 45016 CS BIT2 # SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041786,000252: 17,2360 55644 TS TVCPHASE # TO RESTART LOGIC)
041787,000253:
041788,000254: 17,2361 00006 +5 EXTEND # SAVE Q FOR RETURN (RESTART ENTRY POINT,
041789,000255: 17,2362 23613 QXCH RTRNLOC # TVCPHASE AND PHASETMP ALREADY SET)
041790,000256:
041791,000257: 17,2363 32535 CAF NZEROJR # ZEROING LOOP FOR FILTER STORAGE LOCS
041792,000258: 17,2364 55676 +8 TS CNTRTMP
041793,000259:
041794,000260: 17,2365 35021 MCLEANJR CA ZERO
041795,000261: 17,2366 54001 TS L
041796,000262: 17,2367 51676 INDEX CNTRTMP
041797,000263: 17,2370 53541 DXCH PTMP1 -1
041798,000264: 17,2371 11676 CCS CNTRTMP
041799,000265: 17,2372 10000 CCS A
041800,000266: 17,2373 12364 TCF SWICHOVR +8D
041801,000267:
041802,000268: 17,2374 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
041803,000269: 17,2375 75001 MASK BIT15
041804,000270: 17,2376 26105 ADS FLAGWRD9
041805,000271:
041806,000272: 17,2377 31420 CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
041807,000273: 17,2400 55636 TS KTLX/I
041808,000274: 17,2401 02471 TCR S40.15 +7
041809,000275:
041810,000276: 17,2402 32542 CAF FKPRIMDT # - STEERING
041811,000277: 17,2403 55634 TS KPRIMEDT
041812,000278:
041813,000279: 17,2404 32543 CAF FREPFRAC # - TMC LOOP
041814,000280: 17,2405 55642 TS REPFRAC
041815,000281:
041816,000282: 17,2406 00006 EXTEND # UPDATE TRIM ESTIMATES
041817,000283: 17,2407 31602 DCA DELPBAR
041818,000284: 17,2410 53606 DXCH PDELOFF
041819,000285: 17,2411 00006 EXTEND
041820,000286: 17,2412 31604 DCA DELYBAR
041821,000287: 17,2413 53610 DXCH YDELOFF
041822,000288:
041823,000289: 17,2414 32533 CA LBCFADR
041824,000290: # Page 942
041825,000291: 17,2415 55722 TS COEFFADR
041826,000292: 17,2416 02422 TC LOADCOEF
041827,000293:
041828,000294: 17,2417 31611 CAE PHASETMP # RESTORE TVCPHASE
041829,000295: 17,2420 55644 TS TVCPHASE
041830,000296:
041831,000297: 17,2421 01613 TC RTRNLOC # BACK TO PRESWTCH OR TVCRESTARTS
041832,000298:
041833,000299: 17,2422 00006 LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
041834,000300: 17,2423 51722 INDEX COEFFADR # FROM: ERASABLE FOR CSM/LM HB
041835,000301: 17,2424 30001 DCA 0 # FIXED FOR CSM/LM LB
041836,000302: 17,2425 53724 DXCH N10 # FIXED FOR CSM
041837,000303:
041838,000304: 17,2426 00006 EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041839,000305: 17,2427 51722 INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041840,000306: 17,2430 30003 DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
041841,000307: 17,2431 53726 DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041842,000308: # COEFFICIENTS FROM FIXED MEMORY.
041843,000309:
041844,000310: 17,2432 00006 EXTEND
041845,000311: 17,2433 51722 INDEX COEFFADR
041846,000312: 17,2434 30005 DCA 4
041847,000313: 17,2435 53730 DXCH N10 +4
041848,000314:
041849,000315: 17,2436 00006 EXTEND
041850,000316: 17,2437 51722 INDEX COEFFADR
041851,000317: 17,2440 30007 DCA 6
041852,000318: 17,2441 53732 DXCH N10 +6
041853,000319:
041854,000320: 17,2442 00006 EXTEND
041855,000321: 17,2443 51722 INDEX COEFFADR
041856,000322: 17,2444 30011 DCA 8D
041857,000323: 17,2445 53734 DXCH N10 +8D
041858,000324:
041859,000325: 17,2446 00006 EXTEND
041860,000326: 17,2447 51722 INDEX COEFFADR
041861,000327: 17,2450 30013 DCA 10D
041862,000328: 17,2451 53736 DXCH N10 +10D
041863,000329:
041864,000330: 17,2452 00006 EXTEND
041865,000331: 17,2453 51722 INDEX COEFFADR
041866,000332: 17,2454 30015 DCA 12D
041867,000333: 17,2455 53740 DXCH N10 +12D
041868,000334:
041869,000335: 17,2456 51722 INDEX COEFFADR
041870,000336: 17,2457 30016 CA 14D
041871,000337: 17,2460 55741 TS N10 +14D
041872,000338:
041873,000339: 17,2461 00002 TC Q
041874,000340: # Page 943
041875,000341: 17,2462 31470 S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
041876,000342: 17,2463 00006 EXTEND # ENTERED FROM TVCINITIALIZE AND TVCEXEC
041877,000343: 17,2464 72544 MP 2PI/M # 2PI/M SCALED 1/(B+8 N M)
041878,000344: 17,2465 20001 DDOUBL # IXX SCALED B+20 KG-MSQ
041879,000345: 17,2466 20001 DDOUBL
041880,000346: 17,2467 20001 DDOUBL
041881,000347: 17,2470 55640 TS 1/CONACC # SCALED B+9 SEC-SQ/REV
041882,000348:
041883,000349: 17,2471 31636 +7 CAE KTLX/I # ENTRY FROM CSM/LM V46 SWITCH-OVER
041884,000350: 17,2472 00006 EXTEND # SCALED (B+3 ASCREV) 1/SECSQ
041885,000351: 17,2473 71472 MP IAVG/TLX # SCALED B+2 SECSQ
041886,000352: 17,2474 20001 DDOUBL
041887,000353: 17,2475 20001 DDOUBL
041888,000354: 17,2476 55641 TS VARK # SCALED (B+3 ASCREV)
041889,000355: 17,2477 00002 TC Q
041890,000356:
041891,000357: 17,2500 37777 CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
041892,000358: 17,2501 67657 DEC -.2549 # N11/2
041893,000359: 17,2502 01703 DEC .0588 # N12
041894,000360: 17,2503 47472 DEC -.7620 # D11/2
041895,000361: 17,2504 27656 DEC .7450 # D12
041896,000362:
041897,000363: 17,2505 37777 DEC .99999 # N20
041898,000364: 17,2506 60361 DEC -.4852 # N21/2
041899,000365: 17,2507 00000 DEC 0 B-14 # N22
041900,000366: 17,2510 67304 DEC -.2692 # D22/2
041901,000367: 17,2511 00000 DEC 0 B-14 # D22
041902,000368:
041903,000369: 17,2512 37777 LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
041904,000370: 17,2513 65371 DEC -.3285 # N11/2
041905,000371: 17,2514 65337 DEC -.3301 # N12
041906,000372: 17,2515 42700 DEC -.9101 # D11/2
041907,000373: 17,2516 33045 DEC +.8460 # D12
041908,000374:
041909,000375: 17,2517 01000 DEC +.03125 # N20
041910,000376: 17,2520 00000 DEC 0 B-14 # N21/2
041911,000377: 17,2521 00000 DEC 0 B-14 # N22
041912,000378: 17,2522 42700 DEC -.9101 # D21/2
041913,000379: 17,2523 33045 DEC +.8460 # D22
041914,000380:
041915,000381: 17,2524 20000 DEC +.50000 # N30
041916,000382: 17,2525 60730 DEC -.47115 # N31/2
041917,000383: 17,2526 17145 DEC +.4749 # N32
041918,000384: 17,2527 41323 DEC -.9558 # D31/2
041919,000385: 17,2530 35773 DEC +.9372 # D32
041920,000386:
041921,000387: 17,2531 02500 CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
041922,000388: 17,2532 01425 HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
041923,000389: # Page 944
041924,000390: 17,2533 02512 LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
041925,000391:
041926,000392: 17,2534 00063 NZERO DEC 51 B-14 # MUST BE ODD FOR MRCLEAN
041927,000393: 17,2535 00027 NZEROJR DEC 23 B-14 # MUST BE ODD FOR MCLEANJR
041928,000394:
041929,000395: 17,2536 00210 ATTLIM DEC 0.00833 # INITIAL ATTITUDE EROR LIMIT (1.5 DEG)
041930,000396: 17,2537 00170 1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041931,000397:
041932,000398: 17,2540 00005 TCORR OCT 00005 # CSM
041933,000399: 17,2541 00000 +1 OCT 00000 # CSM/LM (HB,LB)
041934,000400:
041935,000401: 17,2542 00247 FKPRIMDT DEC .0102 # CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041936,000402: 17,2543 00232 FREPFRAC DEC .0375 B-2 # CSM/LM (LB), 0.0375 SCALED AT B+2
041937,000403:
041938,000404: 17,2544 4374 NINETEEN = VD1
041939,000405: 17,2544 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SCALED AT 1/(B+8 N-M)
041940,000406:
041941,000407: 17,2545 03720 ONETHOU DEC 1000 B-13 # KG/CS B3 TO KG/10SEC B16 CONVERSION
041942,000408:
041943,000409: 17,2546 E6,1702 EBANK= BZERO
041944,000410: 17,2546 03107 40066 DAPINIT5 2CADR DAPINIT
041945,000411:
041946,000412: 17,2550 E6,1702 EBANK= BZERO
041947,000413: 17,2550 02171 36066 INITLOC2 2CADR TVCINIT1
041948,000414:
End of include-file TVCINITIALIZE.agc. Parent file is MAIN.agc