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