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