Source Code

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