GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
041770,000002: ## Copyright: Public domain.
041771,000003: ## Filename: TVCINITIALIZE.agc
041772,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
041773,000005: ## It is part of the source code for the Command Module's (CM)
041774,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
041775,000007: ## Assembler: yaYUL
041776,000008: ## Contact: Jim Lawton <jim.lawton@gmail.com>.
041777,000009: ## Website: www.ibiblio.org/apollo.
041778,000010: ## Pages: 936-944
041779,000011: ## Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
041780,000012: ## of the same name, using Comanche055 page
041781,000013: ## images.
041782,000014: ## 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing
041783,000015: ## lines in TVCINIT1, changed the capitalization
041784,000016: ## of a couple of the "Page N" comments,
041785,000017: ## corrected a couple of lines in LOADCOEFF.
041786,000018: ## 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to
041787,000019: ## TS N10 +14D. Also, various comment-marks
041788,000020: ## were added to comments following this
041789,000021: ## change.
041790,000022: ## 2010-08-28 JL Fixed indentation.
041791,000023: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
041792,000024: ## and corrected the errors found.
041793,000025: ##
041794,000026: ## This source code has been transcribed or otherwise adapted from digitized
041795,000027: ## images of a hardcopy from the MIT Museum. The digitization was performed
041796,000028: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
041797,000029: ## thanks to both. The images (with suitable reduction in storage size and
041798,000030: ## consequent reduction in image quality as well) are available online at
041799,000031: ## www.ibiblio.org/apollo. If for some reason you find that the images are
041800,000032: ## illegible, contact me at info@sandroid.org about getting access to the
041801,000033: ## (much) higher-quality images which Paul actually created.
041802,000034: ##
041803,000035: ## Notations on the hardcopy document read, in part:
041804,000036: ##
041805,000037: ## Assemble revision 055 of AGC program Comanche by NASA
041806,000038: ## 2021113-051. 10:28 APR. 1, 1969
041807,000039: ##
041808,000040: ## This AGC program shall also be referred to as
041809,000041: ## Colossus 2A
041810,000042:
|
|
Page 937 |
041812,000044: # NAME TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041813,000045: # LOG SECTION...TVCINITIALIZE SUBROUTINE...DAPCSM
041814,000046: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
041815,000047: # FUNCTIONAL DESCRIPTION
041816,000048: # PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041817,000049: # COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041818,000050: # MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
041819,000051: # PERFORMS INITIALIZATION FOR ROLL DAP
041820,000052: # CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041821,000053: # CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT VIA T5
041822,000054: # PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041823,000055: # CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041824,000056: # IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
041825,000057: # MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041826,000058: # NORMAL EXIT MODE
041827,000059: # TCF RESUME
041828,000060: # SUBROUTINES CALLED
041829,000061: # NEEDLER, MASSPROP
041830,000062: # ALARM OR ABORT EXIT MODES
041831,000063: # NONE
041832,000064: # ERASABLE INITIALIZATION REQUIRED
041833,000065: # CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041834,000066: # TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041835,000067: # PACTOFF, YACTOFF, CDUX
041836,000068: # TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041837,000069: # OUTPUT
041838,000070: # ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041839,000071: # DEBRIS
041840,000072: # NONE
041841,000073:
041842,000074: 42,3772 COUNT* $$/INIT
041843,000075: 17,2147 BANK 17
041844,000076: 17,2000 SETLOC DAPS7
041845,000077: 17,2000 BANK
041846,000078:
041847,000079: 17,2147 E6,1702 EBANK= BZERO
041848,000080:
041849,000081: 17,2147 22016 TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041850,000082: 17,2150 00006 EXTEND # SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
041851,000083: 17,2151 22012 QXCH QRUPT # TVCINIT4 ARE ENTRIES)
041852,000084: 17,2152 32534 MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
041853,000085: # TVC RESTARTS ENTER HERE (NEW BANK)
041854,000086: 17,2153 10000 +1 CCS A
041855,000087: 17,2154 55447 TS CNTR
041856,000088: 17,2155 35021 CAF ZERO
041857,000089: 17,2156 54001 TS L
041858,000090: 17,2157 51447 INDEX CNTR
041859,000091: 17,2160 53530 DXCH OMEGAYC # FIRST (LAST) TWO LOCATIONS
041860,000092: 17,2161 11447 CCS CNTR
041861,000093: 17,2162 12153 TCF MRCLEAN +1
|
|
Page 938 |
041863,000095: 17,2163 00006 EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
041864,000096: 17,2164 32551 DCA INITLOC2 # INITIALIZATION AT TVCINIT1
041865,000097: 17,2165 53313 DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
041866,000098: 17,2166 34777 CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
041867,000099: 17,2167 54030 TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
041868,000100: 17,2170 15333 ENDMRC TCF RESUME # ENTRY.
041869,000101:
041870,000102: 17,2171 22016 TVCINIT1 LXCH BANKRUPT
041871,000103: 17,2172 00006 EXTEND
041872,000104: 17,2173 22012 QXCH QRUPT
041873,000105:
041874,000106: 17,2174 04740 TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041875,000107: 17,2175 13366 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
041876,000108:
041877,000109: 17,2176 30110 CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
041878,000110: 17,2177 00006 EXTEND
041879,000111: 17,2200 72545 MP ONETHOU
041880,000112: 17,2201 55637 TS TENMDOT # 10-SEC MASS LOSS B+16 KG
041881,000113: 17,2202 40000 COM
041882,000114: 17,2203 61474 AD CSMMASS
041883,000115: 17,2204 55652 TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
041884,000116:
041885,000117: 17,2205 31466 CAE DAPDATR1 # CHECK LEM-ON/OFF
041886,000118: 17,2206 75002 MASK BIT14
041887,000119: 17,2207 10000 CCS A
041888,000120: 17,2210 35017 CAF BIT1 # LEM-ON (BIT1)
041889,000121: 17,2211 55447 TS CNTR # LEM-OFF (ZERO)
041890,000122:
041891,000123: 17,2212 51447 INDEX CNTR # LOAD THE FILTER COEFFICIENTS
041892,000124: 17,2213 32531 CAF CSMCFADR
041893,000125: 17,2214 55722 TS COEFFADR
041894,000126: 17,2215 02422 TC LOADCOEF
041895,000127:
041896,000128: 17,2216 51447 INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
041897,000129: 17,2217 31416 CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
041898,000130: 17,2220 55636 TS KTLX/I
041899,000131:
041900,000132: 17,2221 02462 TCR S40.15 # COMPUTE 1/CONACC, VARK
041901,000133:
041902,000134: 17,2222 41447 TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041903,000135: 17,2223 50000 INDEX A # DETERMINATION:
041904,000136: 17,2224 35016 CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
041905,000137: 17,2225 55634 TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
041906,000138:
041907,000139: 17,2226 40000 COM # PREPARE T5TVCDT
041908,000140: 17,2227 64777 AD POSMAX
041909,000141: 17,2230 65017 AD BIT1
041910,000142: 17,2231 55625 TS T5TVCDT
041911,000143:
041912,000144: 17,2232 45001 CS BIT15 # RESET SWTOVER FLAG
|
|
Page 939 |
041914,000146: 17,2233 70105 MASK FLAGWRD9
041915,000147: 17,2234 54105 TS FLAGWRD9
041916,000148:
041917,000149: 17,2235 51447 INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
041918,000150: 17,2236 31414 CAE EKPRIME # SCALED (100 PI)/16
041919,000151: 17,2237 00006 EXTEND
041920,000152: 17,2240 71634 MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
041921,000153: 17,2241 22000 LXCH A # SC.AT PI/8 (DIMENSIONLESS)
041922,000154: 17,2242 53635 DXCH KPRIMEDT
041923,000155:
041924,000156: 17,2243 51447 INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
041925,000157: 17,2244 31421 CAE EREPFRAC
041926,000158: 17,2245 55642 TS REPFRAC
041927,000159:
041928,000160: 17,2246 51447 INDEX CNTR # PICK UP ONE-SHOT CORRECTION TIME
041929,000161: 17,2247 32540 CAF TCORR
041930,000162: 17,2250 55447 TS CNTR
041931,000163:
041932,000164: 17,2251 37716 CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
041933,000165: 17,2252 55654 TS STRKTIME
041934,000166:
041935,000167: 17,2253 34374 CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041936,000168: 17,2254 55643 TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
041937,000169: 17,2255 55444 TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
041938,000170:
041939,000171: 17,2256 31423 TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041940,000172: 17,2257 55605 TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
041941,000173: 17,2260 55623 TS PCMD # OFFSET-TRACKER FILTERS
041942,000174: 17,2261 55601 TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041943,000175:
041944,000176: 17,2262 31424 CAE YACTOFF
041945,000177: 17,2263 55607 TS YDELOFF
041946,000178: 17,2264 55624 TS YCMD
041947,000179: 17,2265 55603 TS DELYBAR
041948,000180:
041949,000181: 17,2266 31466 ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC
041950,000182: 17,2267 75003 MASK BIT13 # TEST FOR CSM OR CSM/LM
041951,000183: 17,2270 00006 EXTEND
041952,000184: 17,2271 12317 BZF NEEDLEIN # BYPASS INITIALIZATION FOR CSM/LM
041953,000185:
041954,000186: 17,2272 35017 CAF BIT1 # SET UP TEMPORARY COUNTER
041955,000187: 17,2273 55611 +5 TS TTMP1
041956,000188:
041957,000189: 17,2274 51611 INDEX TTMP1
041958,000190: 17,2275 31702 CA ERRBTMP # ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041959,000191: 17,2276 00006 EXTEND # ERRORY & ERRORZ (P40 AT DOTVCON)
041960,000192: 17,2277 72537 MP 1/ATTLIM # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041961,000193: 17,2300 00006 EXTEND
041962,000194: 17,2301 12311 BZF +8D # |ERROR| LESS THAN 1.5 DEG
041963,000195: 17,2302 00006 EXTEND
|
|
Page 940 |
041965,000197: 17,2303 62306 BZMF +3 # |ERROR| > 1.5 DEG, AND NEG
041966,000198: 17,2304 32536 CA ATTLIM # |ERROR| > 1.5 DEG, AND POS
041967,000199: 17,2305 12307 TCF +2
041968,000200: 17,2306 42536 +3 CS ATTLIM
041969,000201: 17,2307 51611 +2 INDEX TTMP1
041970,000202: 17,2310 55702 TS ERRBTMP
041971,000203: 17,2311 11611 +8 CCS TTMP1 # TEST TEMPORARY COUNTER
041972,000204: 17,2312 12273 TCF ATTINIT +5 # BACK TO REPEAT FOR PITCH ERROR
041973,000205:
041974,000206: 17,2313 31702 CA ERRBTMP # ERRORS ESTABLISHED AND LIMITED
041975,000207: 17,2314 55575 TS PERRB
041976,000208: 17,2315 31703 CA ERRBTMP +1
041977,000209: 17,2316 55577 TS YERRB
041978,000210:
041979,000211: 17,2317 41501 NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
041980,000212: 17,2320 75015 MASK BIT3 # TO NEEDLER. WILL CLEAR FOR TVC DAP
041981,000213: 17,2321 27501 ADS RCSFLAGS # (RETURNS AFTER CADR)
041982,000214: 17,2322 04740 TC IBNKCALL
041983,000215: 17,2323 42420 CADR NEEDLER
041984,000216:
041985,000217: 17,2324 35021 TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041986,000218: 17,2325 55644 TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
041987,000219: # (POSSIBLE TVC-RESTART ENTRY)
041988,000220:
041989,000221: 17,2326 30032 CAE CDUX # PREPARE ROLL DAP
041990,000222: 17,2327 55662 TS OGANOW
041991,000223:
041992,000224: 17,2330 35003 CAF BIT13 # IF ENGINE IS ALREADY OFF, ENGINOFF HAS
041993,000225: 17,2331 00006 EXTEND # ALREADY ESTABLISHED THE POST-BURN
041994,000226: 17,2332 02011 RAND DSALMOUT # CSMMASS (MASSBACK DOES IT). DONT
041995,000227: 17,2333 00006 EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
041996,000228: 17,2334 12337 BZF +3 # THEN ITS OK TO DO THE COPYCYCLE
041997,000229: # EVEN BURNS LESS THAN 0.4 SEC ARE AOK
041998,000230:
041999,000231: 17,2335 31652 CAE MASSTMP # COPYCYCLE
042000,000232: 17,2336 55474 TS CSMMASS
042001,000233:
042002,000234: 17,2337 35036 +3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
042003,000235: 17,2340 05245 TC WAITLIST
042004,000236: 17,2341 E6,1702 EBANK= BZERO
042005,000237: 17,2341 02720 34066 2CADR TVCEXEC
042006,000238:
042007,000239: 17,2343 00006 EXTEND # CALL FOR DAPINIT
042008,000240: 17,2344 32547 DCA DAPINIT5
042009,000241: 17,2345 53313 DXCH T5LOC
042010,000242: 17,2346 31625 CAE T5TVCDT # (ALLOW TIME FOR RESTART COMPUTATIONS)
042011,000243: 17,2347 54030 TS TIME5
|
|
Page 941 |
042013,000245: 17,2350 15333 ENDTVCIN TCF RESUME
042014,000246:
042015,000247: 17,2351 02354 PRESWTCH TCR SWICHOVR # ENTRY FROM V46
042016,000248:
042017,000249: 17,2352 04701 TC POSTJUMP # THIS PROVIDES AN EXIT FROM SWITCH-OVER
042018,000250: 17,2353 21272 CADR PINBRNCH # (PINBRNCH DOES A RELINT)
042019,000251:
042020,000252: 17,2354 00004 SWICHOVR INHINT
042021,000253: 17,2355 31644 CA TVCPHASE # SAVE TVCPHASE
042022,000254: 17,2356 55611 TS PHASETMP
042023,000255: 17,2357 45016 CS BIT2 # SET TVCPHASE = -2 (INDICATES SWITCH-OVER
042024,000256: 17,2360 55644 TS TVCPHASE # TO RESTART LOGIC)
042025,000257:
042026,000258: 17,2361 00006 +5 EXTEND # SAVE Q FOR RETURN (RESTART ENTRY POINT,
042027,000259: 17,2362 23613 QXCH RTRNLOC # TVCPHASE AND PHASETMP ALREADY SET)
042028,000260:
042029,000261: 17,2363 32535 CAF NZEROJR # ZEROING LOOP FOR FILTER STORAGE LOCS
042030,000262: 17,2364 55676 +8 TS CNTRTMP
042031,000263:
042032,000264: 17,2365 35021 MCLEANJR CA ZERO
042033,000265: 17,2366 54001 TS L
042034,000266: 17,2367 51676 INDEX CNTRTMP
042035,000267: 17,2370 53541 DXCH PTMP1 -1
042036,000268: 17,2371 11676 CCS CNTRTMP
042037,000269: 17,2372 10000 CCS A
042038,000270: 17,2373 12364 TCF SWICHOVR +8D
042039,000271:
042040,000272: 17,2374 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
042041,000273: 17,2375 75001 MASK BIT15
042042,000274: 17,2376 26105 ADS FLAGWRD9
042043,000275:
042044,000276: 17,2377 31420 CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
042045,000277: 17,2400 55636 TS KTLX/I
042046,000278: 17,2401 02471 TCR S40.15 +7
042047,000279:
042048,000280: 17,2402 32542 CAF FKPRIMDT # - STEERING
042049,000281: 17,2403 55634 TS KPRIMEDT
042050,000282:
042051,000283: 17,2404 32543 CAF FREPFRAC # - TMC LOOP
042052,000284: 17,2405 55642 TS REPFRAC
042053,000285:
042054,000286: 17,2406 00006 EXTEND # UPDATE TRIM ESTIMATES
042055,000287: 17,2407 31602 DCA DELPBAR
042056,000288: 17,2410 53606 DXCH PDELOFF
042057,000289: 17,2411 00006 EXTEND
042058,000290: 17,2412 31604 DCA DELYBAR
042059,000291: 17,2413 53610 DXCH YDELOFF
042060,000292:
042061,000293: 17,2414 32533 CA LBCFADR
|
|
Page 942 |
042063,000295: 17,2415 55722 TS COEFFADR
042064,000296: 17,2416 02422 TC LOADCOEF
042065,000297:
042066,000298: 17,2417 31611 CAE PHASETMP # RESTORE TVCPHASE
042067,000299: 17,2420 55644 TS TVCPHASE
042068,000300:
042069,000301: 17,2421 01613 TC RTRNLOC # BACK TO PRESWTCH OR TVCRESTARTS
042070,000302:
042071,000303: 17,2422 00006 LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
042072,000304: 17,2423 51722 INDEX COEFFADR # FROM: ERASABLE FOR CSM/LM HB
042073,000305: 17,2424 30001 DCA 0 # FIXED FOR CSM/LM LB
042074,000306: 17,2425 53724 DXCH N10 # FIXED FOR CSM
042075,000307:
042076,000308: 17,2426 00006 EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
042077,000309: 17,2427 51722 INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
042078,000310: 17,2430 30003 DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
042079,000311: 17,2431 53726 DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
042080,000312: # COEFFICIENTS FROM FIXED MEMORY.
042081,000313:
042082,000314: 17,2432 00006 EXTEND
042083,000315: 17,2433 51722 INDEX COEFFADR
042084,000316: 17,2434 30005 DCA 4
042085,000317: 17,2435 53730 DXCH N10 +4
042086,000318:
042087,000319: 17,2436 00006 EXTEND
042088,000320: 17,2437 51722 INDEX COEFFADR
042089,000321: 17,2440 30007 DCA 6
042090,000322: 17,2441 53732 DXCH N10 +6
042091,000323:
042092,000324: 17,2442 00006 EXTEND
042093,000325: 17,2443 51722 INDEX COEFFADR
042094,000326: 17,2444 30011 DCA 8D
042095,000327: 17,2445 53734 DXCH N10 +8D
042096,000328:
042097,000329: 17,2446 00006 EXTEND
042098,000330: 17,2447 51722 INDEX COEFFADR
042099,000331: 17,2450 30013 DCA 10D
042100,000332: 17,2451 53736 DXCH N10 +10D
042101,000333:
042102,000334: 17,2452 00006 EXTEND
042103,000335: 17,2453 51722 INDEX COEFFADR
042104,000336: 17,2454 30015 DCA 12D
042105,000337: 17,2455 53740 DXCH N10 +12D
042106,000338:
042107,000339: 17,2456 51722 INDEX COEFFADR
042108,000340: 17,2457 30016 CA 14D
042109,000341: 17,2460 55741 TS N10 +14D
042110,000342:
042111,000343: 17,2461 00002 TC Q
|
|
Page 943 |
042113,000345: 17,2462 31470 S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
042114,000346: 17,2463 00006 EXTEND # ENTERED FROM TVCINITIALIZE AND TVCEXEC
042115,000347: 17,2464 72544 MP 2PI/M # 2PI/M SCALED 1/(B+8 N M)
042116,000348: 17,2465 20001 DDOUBL # IXX SCALED B+20 KG-MSQ
042117,000349: 17,2466 20001 DDOUBL
042118,000350: 17,2467 20001 DDOUBL
042119,000351: 17,2470 55640 TS 1/CONACC # SCALED B+9 SEC-SQ/REV
042120,000352:
042121,000353: 17,2471 31636 +7 CAE KTLX/I # ENTRY FROM CSM/LM V46 SWITCH-OVER
042122,000354: 17,2472 00006 EXTEND # SCALED (B+3 ASCREV) 1/SECSQ
042123,000355: 17,2473 71472 MP IAVG/TLX # SCALED B+2 SECSQ
042124,000356: 17,2474 20001 DDOUBL
042125,000357: 17,2475 20001 DDOUBL
042126,000358: 17,2476 55641 TS VARK # SCALED (B+3 ASCREV)
042127,000359: 17,2477 00002 TC Q
042128,000360:
042129,000361: 17,2500 37777 CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
042130,000362: 17,2501 67657 DEC -.2549 # N11/2
042131,000363: 17,2502 01703 DEC .0588 # N12
042132,000364: 17,2503 47472 DEC -.7620 # D11/2
042133,000365: 17,2504 27656 DEC .7450 # D12
042134,000366:
042135,000367: 17,2505 37777 DEC .99999 # N20
042136,000368: 17,2506 60361 DEC -.4852 # N21/2
042137,000369: 17,2507 00000 DEC 0 B-14 # N22
042138,000370: 17,2510 67304 DEC -.2692 # D22/2
042139,000371: 17,2511 00000 DEC 0 B-14 # D22
042140,000372:
042141,000373: 17,2512 37777 LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
042142,000374: 17,2513 65371 DEC -.3285 # N11/2
042143,000375: 17,2514 65337 DEC -.3301 # N12
042144,000376: 17,2515 42700 DEC -.9101 # D11/2
042145,000377: 17,2516 33045 DEC +.8460 # D12
042146,000378:
042147,000379: 17,2517 01000 DEC +.03125 # N20
042148,000380: 17,2520 00000 DEC 0 B-14 # N21/2
042149,000381: 17,2521 00000 DEC 0 B-14 # N22
042150,000382: 17,2522 42700 DEC -.9101 # D21/2
042151,000383: 17,2523 33045 DEC +.8460 # D22
042152,000384:
042153,000385: 17,2524 20000 DEC +.50000 # N30
042154,000386: 17,2525 60730 DEC -.47115 # N31/2
042155,000387: 17,2526 17145 DEC +.4749 # N32
042156,000388: 17,2527 41323 DEC -.9558 # D31/2
042157,000389: 17,2530 35773 DEC +.9372 # D32
042158,000390:
042159,000391: 17,2531 02500 CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
042160,000392: 17,2532 01425 HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
|
|
Page 944 |
042162,000394: 17,2533 02512 LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
042163,000395:
042164,000396: 17,2534 00063 NZERO DEC 51 B-14 # MUST BE ODD FOR MRCLEAN
042165,000397: 17,2535 00027 NZEROJR DEC 23 B-14 # MUST BE ODD FOR MCLEANJR
042166,000398:
042167,000399: 17,2536 00210 ATTLIM DEC 0.00833 # INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
042168,000400: 17,2537 00170 1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
042169,000401:
042170,000402: 17,2540 00005 TCORR OCT 00005 # CSM
042171,000403: 17,2541 00000 +1 OCT 00000 # CSM/LM (HB,LB)
042172,000404:
042173,000405: 17,2542 00247 FKPRIMDT DEC .0102 # CSM/LM (LB), (.05 X .08) SCALED AT PI/8
042174,000406: 17,2543 00232 FREPFRAC DEC .0375 B-2 # CSM/LM (LB), 0.0375 SCALED AT B+2
042175,000407:
042176,000408: 17,2544 4374 NINETEEN = VD1
042177,000409: 17,2544 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SCALED AT 1/(B+8 N-M)
042178,000410:
042179,000411: 17,2545 03720 ONETHOU DEC 1000 B-13 # KG/CS B3 TO KG/10SEC B16 CONVERSION
042180,000412:
042181,000413: 17,2546 E6,1702 EBANK= BZERO
042182,000414: 17,2546 03107 40066 DAPINIT5 2CADR DAPINIT
042183,000415:
042184,000416: 17,2550 E6,1702 EBANK= BZERO
042185,000417: 17,2550 02171 36066 INITLOC2 2CADR TVCINIT1
End of include-file TVCINITIALIZE.agc. Parent file is MAIN.agc