Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 source code was verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code match those on the Comanche 55 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step commentary about the reconstruction process.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
041327,000002: ## Copyright: Public domain.
041328,000003: ## Filename: TVCINITIALIZE.agc
041329,000004: ## Purpose: A section of Comanche revision 044.
041330,000005: ## It is part of the reconstructed source code for the
041331,000006: ## original release of the flight software for the Command
041332,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
041333,000008: ## The code has been recreated from a copy of Comanche 055. It
041334,000009: ## has been adapted such that the resulting bugger words
041335,000010: ## exactly match those specified for Comanche 44 in NASA drawing
041336,000011: ## 2021153D, which gives relatively high confidence that the
041337,000012: ## reconstruction is correct.
041338,000013: ## Assembler: yaYUL
041339,000014: ## Contact: Ron Burkey <info@sandroid.org>.
041340,000015: ## Website: www.ibiblio.org/apollo/index.html
041341,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51.
041342,000017: ## 2020-12-05 MAS Removed the "LM attached" check from ATTINIT.
041343,000018: ## 2020-12-12 RSB Added justifying annotations for the steps of
041344,000019: ## Mike's reconstruction.
041345,000020: ## 2020-12-13 RSB Incorporated feedback about the annotations.
041346,000021:
|
|
Page 937
|
041348,000023: # NAME TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041349,000024: # LOG SECTION...TVCINITIALIZE SUBROUTINE...DAPCSM
041350,000025: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
041351,000026: # FUNCTIONAL DESCRIPTION
041352,000027: # PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041353,000028: # COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041354,000029: # MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
041355,000030: # PERFORMS INITIALIZATION FOR ROLL DAP
041356,000031: # CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041357,000032: # CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT VIA T5
041358,000033: # PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041359,000034: # CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041360,000035: # IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
041361,000036: # MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041362,000037: # NORMAL EXIT MODE
041363,000038: # TCF RESUME
041364,000039: # SUBROUTINES CALLED
041365,000040: # NEEDLER, MASSPROP
041366,000041: # ALARM OR ABORT EXIT MODES
041367,000042: # NONE
041368,000043: # ERASABLE INITIALIZATION REQUIRED
041369,000044: # CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041370,000045: # TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041371,000046: # PACTOFF, YACTOFF, CDUX
041372,000047: # TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041373,000048: # OUTPUT
041374,000049: # ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041375,000050: # DEBRIS
041376,000051: # NONE
041377,000052:
041378,000053: 42,3772 COUNT* $$/INIT
041379,000054: 17,2153 BANK 17
041380,000055: 17,2000 SETLOC DAPS7
041381,000056: 17,2000 BANK
041382,000057:
041383,000058: 17,2153 E6,1702 EBANK= BZERO
041384,000059:
041385,000060: 17,2153 22016 TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041386,000061: 17,2154 00006 EXTEND # SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
041387,000062: 17,2155 22012 QXCH QRUPT # TVCINIT4 ARE ENTRIES)
041388,000063: 17,2156 32534 MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
041389,000064: # TVC RESTARTS ENTER HERE (NEW BANK)
041390,000065: 17,2157 10000 +1 CCS A
041391,000066: 17,2160 55447 TS CNTR
041392,000067: 17,2161 35021 CAF ZERO
041393,000068: 17,2162 54001 TS L
041394,000069: 17,2163 51447 INDEX CNTR
041395,000070: 17,2164 53530 DXCH OMEGAYC # FIRST (LAST) TWO LOCATIONS
041396,000071: 17,2165 11447 CCS CNTR
041397,000072: 17,2166 12157 TCF MRCLEAN +1
|
|
Page 938
|
041399,000074: 17,2167 00006 EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
041400,000075: 17,2170 32551 DCA INITLOC2 # INITIALIZATION AT TVCINIT1
041401,000076: 17,2171 53313 DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
041402,000077: 17,2172 34777 CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
041403,000078: 17,2173 54030 TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
041404,000079: 17,2174 15333 ENDMRC TCF RESUME # ENTRY.
041405,000080:
041406,000081: 17,2175 22016 TVCINIT1 LXCH BANKRUPT
041407,000082: 17,2176 00006 EXTEND
041408,000083: 17,2177 22012 QXCH QRUPT
041409,000084:
041410,000085: 17,2200 04740 TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041411,000086: 17,2201 13366 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
041412,000087:
041413,000088: 17,2202 30110 CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
041414,000089: 17,2203 00006 EXTEND
041415,000090: 17,2204 72545 MP ONETHOU
041416,000091: 17,2205 55637 TS TENMDOT # 10-SEC MASS LOSS B+16 KG
041417,000092: 17,2206 40000 COM
041418,000093: 17,2207 61474 AD CSMMASS
041419,000094: 17,2210 55652 TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
041420,000095:
041421,000096: 17,2211 31466 CAE DAPDATR1 # CHECK LEM-ON/OFF
041422,000097: 17,2212 75002 MASK BIT14
041423,000098: 17,2213 10000 CCS A
041424,000099: 17,2214 35017 CAF BIT1 # LEM-ON (BIT1)
041425,000100: 17,2215 55447 TS CNTR # LEM-OFF (ZERO)
041426,000101:
041427,000102: 17,2216 51447 INDEX CNTR # LOAD THE FILTER COEFFICIENTS
041428,000103: 17,2217 32531 CAF CSMCFADR
041429,000104: 17,2220 55722 TS COEFFADR
041430,000105: 17,2221 02422 TC LOADCOEF
041431,000106:
041432,000107: 17,2222 51447 INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
041433,000108: 17,2223 31416 CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
041434,000109: 17,2224 55636 TS KTLX/I
041435,000110:
041436,000111: 17,2225 02462 TCR S40.15 # COMPUTE 1/CONACC, VARK
041437,000112:
041438,000113: 17,2226 41447 TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041439,000114: 17,2227 50000 INDEX A # DETERMINATION:
041440,000115: 17,2230 35016 CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
041441,000116: 17,2231 55634 TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
041442,000117:
041443,000118: 17,2232 40000 COM # PREPARE T5TVCDT
041444,000119: 17,2233 64777 AD POSMAX
041445,000120: 17,2234 65017 AD BIT1
041446,000121: 17,2235 55625 TS T5TVCDT
041447,000122:
041448,000123: 17,2236 45001 CS BIT15 # RESET SWTOVER FLAG
|
|
Page 939
|
041450,000125: 17,2237 70105 MASK FLAGWRD9
041451,000126: 17,2240 54105 TS FLAGWRD9
041452,000127:
041453,000128: 17,2241 51447 INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
041454,000129: 17,2242 31414 CAE EKPRIME # SCALED (100 PI)/16
041455,000130: 17,2243 00006 EXTEND
041456,000131: 17,2244 71634 MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
041457,000132: 17,2245 22000 LXCH A # SC.AT PI/8 (DIMENSIONLESS)
041458,000133: 17,2246 53635 DXCH KPRIMEDT
041459,000134:
041460,000135: 17,2247 51447 INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
041461,000136: 17,2250 31421 CAE EREPFRAC
041462,000137: 17,2251 55642 TS REPFRAC
041463,000138:
041464,000139: 17,2252 51447 INDEX CNTR # PICK UP ONE-SHOT CORRECTION TIME
041465,000140: 17,2253 32540 CAF TCORR
041466,000141: 17,2254 55447 TS CNTR
041467,000142:
041468,000143: 17,2255 37716 CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
041469,000144: 17,2256 55654 TS STRKTIME
041470,000145:
041471,000146: 17,2257 34374 CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041472,000147: 17,2260 55643 TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
041473,000148: 17,2261 55444 TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
041474,000149:
041475,000150: 17,2262 31423 TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041476,000151: 17,2263 55605 TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
041477,000152: 17,2264 55623 TS PCMD # OFFSET-TRACKER FILTERS
041478,000153: 17,2265 55601 TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041479,000154:
041480,000155: 17,2266 31424 CAE YACTOFF
041481,000156: 17,2267 55607 TS YDELOFF
041482,000157: 17,2270 55624 TS YCMD
041483,000158: 17,2271 55603 TS DELYBAR
041484,000159:
|
|
Reconstruction: At this point in Comanche 51, the following block of code
has been used in place of the 2 lines of code following this annotation in
Comanche 44:
ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC
MASK BIT13 # TEST FOR CSM OR CSM/LM
EXTEND
BZF NEEDLEIN # BYPASS INITIALIZATION FOR CSM/LM
CAF BIT1 # SET UP TEMPORARY COUNTER
+5 TS TTMP1
This relates to the pseudocode changes listed on
Programmed Guidance Equations for Colossus 2, pp. DPTV-2 and -3.
Unfortunately, it is not possible from the pseudocode to determine the Comanche 44
code that this deleted chunk should be replaced with, nor it is not possible in this
case to resort to the usual trick of simply reverting to the Colossus 249 (Apollo 9)
version of the code. Some additional inquiry, and admittedly some speculation, is
necessary to arrive at a solution.
Several additional pieces of information are available.
The significance of the digitized pages from Comanche 55 is that — unlike
the normally more-handy source-code transcriptions — there are markings which
indicate which specific lines have changed (though not how they've changed) since
the preceding release (though not which release it considers the preceding one).
The marks in question are the asterisks which sometimes appear near the left-hand margin,
following the line-sequence numbers. They appear at line-sequence numbers 1103 through
110402 and at line-sequence number 110417.
This significance of the page from the GSOP document is that it mentions an applicable
Program Change Request, PCR 749, titled "TVC DAP initial errors, CSM alone". While
we don't have the full text of the PCR, the title at least tells us the motivation for
the changes.
Examining the deleted Comanche 55 code, we notice that it tests whether the spacecraft
configuration is CSM only or whether it is CSM+LM, and then bypasses the initialization
for the CSM+LM configuration. This may cause one to speculate that the error which the
PCR wanted to fix may have been that initialization was occurring in both cases —
i.e., even in the CSM+LM configuration.
What the following two lines of code implement, therefore, is precisely what the Comanche 55
code implemented, but without the test for CSM vs CSM+LM. I.e., it simply always
sets up an initialization instead of bypassing it when the spacecraft configuration is wrong.
|
041537,000212: 17,2272 35017 ATTINIT CAF BIT1
041538,000213: 17,2273 55611 +1 TS TTMP1
041539,000214:
041540,000215: 17,2274 51611 INDEX TTMP1
041541,000216: 17,2275 31702 CA ERRBTMP # ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041542,000217: 17,2276 00006 EXTEND # ERRORY & ERRORZ (P40 AT DOTVCON)
041543,000218: 17,2277 72537 MP 1/ATTLIM # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041544,000219: 17,2300 00006 EXTEND
041545,000220: 17,2301 12311 BZF +8D # |ERROR| LESS THAN 1.5 DEG
041546,000221: 17,2302 00006 EXTEND
|
|
Page 940
|
041548,000223: 17,2303 62306 BZMF +3 # |ERROR| > 1.5 DEG, AND NEG
041549,000224: 17,2304 32536 CA ATTLIM # |ERROR| > 1.5 DEG, AND POS
041550,000225: 17,2305 12307 TCF +2
041551,000226: 17,2306 42536 +3 CS ATTLIM
041552,000227: 17,2307 51611 +2 INDEX TTMP1
041553,000228: 17,2310 55702 TS ERRBTMP
041554,000229: 17,2311 11611 +8 CCS TTMP1 # TEST TEMPORARY COUNTER
|
|
Reconstruction: This change is a part of the change described in the preceding
annotation above.
|
041557,000232: 17,2312 12273 TCF ATTINIT +1 # BACK TO REPEAT FOR PITCH ERROR
041558,000233:
041559,000234: 17,2313 31702 CA ERRBTMP # ERRORS ESTABLISHED AND LIMITED
041560,000235: 17,2314 55575 TS PERRB
041561,000236: 17,2315 31703 CA ERRBTMP +1
041562,000237: 17,2316 55577 TS YERRB
041563,000238:
041564,000239: 17,2317 41501 NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
041565,000240: 17,2320 75015 MASK BIT3 # TO NEEDLER. WILL CLEAR FOR TVC DAP
041566,000241: 17,2321 27501 ADS RCSFLAGS # (RETURNS AFTER CADR)
041567,000242: 17,2322 04740 TC IBNKCALL
041568,000243: 17,2323 42420 CADR NEEDLER
041569,000244:
041570,000245: 17,2324 35021 TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041571,000246: 17,2325 55644 TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
041572,000247: # (POSSIBLE TVC-RESTART ENTRY)
041573,000248:
041574,000249: 17,2326 30032 CAE CDUX # PREPARE ROLL DAP
041575,000250: 17,2327 55662 TS OGANOW
041576,000251:
041577,000252: 17,2330 35003 CAF BIT13 # IF ENGINE IS ALREADY OFF, ENGINOFF HAS
041578,000253: 17,2331 00006 EXTEND # ALREADY ESTABLISHED THE POST-BURN
041579,000254: 17,2332 02011 RAND DSALMOUT # CSMMASS (MASSBACK DOES IT). DONT
041580,000255: 17,2333 00006 EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
041581,000256: 17,2334 12337 BZF +3 # THEN ITS OK TO DO THE COPYCYCLE
041582,000257: # EVEN BURNS LESS THAN 0.4 SEC ARE AOK
041583,000258:
041584,000259: 17,2335 31652 CAE MASSTMP # COPYCYCLE
041585,000260: 17,2336 55474 TS CSMMASS
041586,000261:
041587,000262: 17,2337 35036 +3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
041588,000263: 17,2340 05245 TC WAITLIST
041589,000264: 17,2341 E6,1702 EBANK= BZERO
041590,000265: 17,2341 02715 34066 2CADR TVCEXEC
041591,000266:
041592,000267: 17,2343 00006 EXTEND # CALL FOR DAPINIT
041593,000268: 17,2344 32547 DCA DAPINIT5
041594,000269: 17,2345 53313 DXCH T5LOC
041595,000270: 17,2346 31625 CAE T5TVCDT # (ALLOW TIME FOR RESTART COMPUTATIONS)
041596,000271: 17,2347 54030 TS TIME5
|
|
Page 941
|
041598,000273: 17,2350 15333 ENDTVCIN TCF RESUME
041599,000274:
041600,000275: 17,2351 02354 PRESWTCH TCR SWICHOVR # ENTRY FROM V46
041601,000276:
041602,000277: 17,2352 04701 TC POSTJUMP # THIS PROVIDES AN EXIT FROM SWITCH-OVER
041603,000278: 17,2353 21272 CADR PINBRNCH # (PINBRNCH DOES A RELINT)
041604,000279:
041605,000280: 17,2354 00004 SWICHOVR INHINT
041606,000281: 17,2355 31644 CA TVCPHASE # SAVE TVCPHASE
041607,000282: 17,2356 55611 TS PHASETMP
041608,000283: 17,2357 45016 CS BIT2 # SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041609,000284: 17,2360 55644 TS TVCPHASE # TO RESTART LOGIC)
041610,000285:
041611,000286: 17,2361 00006 +5 EXTEND # SAVE Q FOR RETURN (RESTART ENTRY POINT,
041612,000287: 17,2362 23613 QXCH RTRNLOC # TVCPHASE AND PHASETMP ALREADY SET)
041613,000288:
041614,000289: 17,2363 32535 CAF NZEROJR # ZEROING LOOP FOR FILTER STORAGE LOCS
041615,000290: 17,2364 55676 +8 TS CNTRTMP
041616,000291:
041617,000292: 17,2365 35021 MCLEANJR CA ZERO
041618,000293: 17,2366 54001 TS L
041619,000294: 17,2367 51676 INDEX CNTRTMP
041620,000295: 17,2370 53541 DXCH PTMP1 -1
041621,000296: 17,2371 11676 CCS CNTRTMP
041622,000297: 17,2372 10000 CCS A
041623,000298: 17,2373 12364 TCF SWICHOVR +8D
041624,000299:
041625,000300: 17,2374 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
041626,000301: 17,2375 75001 MASK BIT15
041627,000302: 17,2376 26105 ADS FLAGWRD9
041628,000303:
041629,000304: 17,2377 31420 CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
041630,000305: 17,2400 55636 TS KTLX/I
041631,000306: 17,2401 02471 TCR S40.15 +7
041632,000307:
041633,000308: 17,2402 32542 CAF FKPRIMDT # - STEERING
041634,000309: 17,2403 55634 TS KPRIMEDT
041635,000310:
041636,000311: 17,2404 32543 CAF FREPFRAC # - TMC LOOP
041637,000312: 17,2405 55642 TS REPFRAC
041638,000313:
041639,000314: 17,2406 00006 EXTEND # UPDATE TRIM ESTIMATES
041640,000315: 17,2407 31602 DCA DELPBAR
041641,000316: 17,2410 53606 DXCH PDELOFF
041642,000317: 17,2411 00006 EXTEND
041643,000318: 17,2412 31604 DCA DELYBAR
041644,000319: 17,2413 53610 DXCH YDELOFF
041645,000320:
041646,000321: 17,2414 32533 CA LBCFADR
|
|
Page 942
|
041648,000323: 17,2415 55722 TS COEFFADR
041649,000324: 17,2416 02422 TC LOADCOEF
041650,000325:
041651,000326: 17,2417 31611 CAE PHASETMP # RESTORE TVCPHASE
041652,000327: 17,2420 55644 TS TVCPHASE
041653,000328:
041654,000329: 17,2421 01613 TC RTRNLOC # BACK TO PRESWTCH OR TVCRESTARTS
041655,000330:
041656,000331: 17,2422 00006 LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
041657,000332: 17,2423 51722 INDEX COEFFADR # FROM: ERASABLE FOR CSM/LM HB
041658,000333: 17,2424 30001 DCA 0 # FIXED FOR CSM/LM LB
041659,000334: 17,2425 53724 DXCH N10 # FIXED FOR CSM
041660,000335:
041661,000336: 17,2426 00006 EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041662,000337: 17,2427 51722 INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041663,000338: 17,2430 30003 DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
041664,000339: 17,2431 53726 DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041665,000340: # COEFFICIENTS FROM FIXED MEMORY.
041666,000341:
041667,000342: 17,2432 00006 EXTEND
041668,000343: 17,2433 51722 INDEX COEFFADR
041669,000344: 17,2434 30005 DCA 4
041670,000345: 17,2435 53730 DXCH N10 +4
041671,000346:
041672,000347: 17,2436 00006 EXTEND
041673,000348: 17,2437 51722 INDEX COEFFADR
041674,000349: 17,2440 30007 DCA 6
041675,000350: 17,2441 53732 DXCH N10 +6
041676,000351:
041677,000352: 17,2442 00006 EXTEND
041678,000353: 17,2443 51722 INDEX COEFFADR
041679,000354: 17,2444 30011 DCA 8D
041680,000355: 17,2445 53734 DXCH N10 +8D
041681,000356:
041682,000357: 17,2446 00006 EXTEND
041683,000358: 17,2447 51722 INDEX COEFFADR
041684,000359: 17,2450 30013 DCA 10D
041685,000360: 17,2451 53736 DXCH N10 +10D
041686,000361:
041687,000362: 17,2452 00006 EXTEND
041688,000363: 17,2453 51722 INDEX COEFFADR
041689,000364: 17,2454 30015 DCA 12D
041690,000365: 17,2455 53740 DXCH N10 +12D
041691,000366:
041692,000367: 17,2456 51722 INDEX COEFFADR
041693,000368: 17,2457 30016 CA 14D
041694,000369: 17,2460 55741 TS N10 +14D
041695,000370:
041696,000371: 17,2461 00002 TC Q
|
|
Page 943
|
041698,000373: 17,2462 31470 S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
041699,000374: 17,2463 00006 EXTEND # ENTERED FROM TVCINITIALIZE AND TVCEXEC
041700,000375: 17,2464 72544 MP 2PI/M # 2PI/M SCALED 1/(B+8 N M)
041701,000376: 17,2465 20001 DDOUBL # IXX SCALED B+20 KG-MSQ
041702,000377: 17,2466 20001 DDOUBL
041703,000378: 17,2467 20001 DDOUBL
041704,000379: 17,2470 55640 TS 1/CONACC # SCALED B+9 SEC-SQ/REV
041705,000380:
041706,000381: 17,2471 31636 +7 CAE KTLX/I # ENTRY FROM CSM/LM V46 SWITCH-OVER
041707,000382: 17,2472 00006 EXTEND # SCALED (B+3 ASCREV) 1/SECSQ
041708,000383: 17,2473 71472 MP IAVG/TLX # SCALED B+2 SECSQ
041709,000384: 17,2474 20001 DDOUBL
041710,000385: 17,2475 20001 DDOUBL
041711,000386: 17,2476 55641 TS VARK # SCALED (B+3 ASCREV)
041712,000387: 17,2477 00002 TC Q
041713,000388:
041714,000389: 17,2500 37777 CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
041715,000390: 17,2501 67657 DEC -.2549 # N11/2
041716,000391: 17,2502 01703 DEC .0588 # N12
041717,000392: 17,2503 47472 DEC -.7620 # D11/2
041718,000393: 17,2504 27656 DEC .7450 # D12
041719,000394:
041720,000395: 17,2505 37777 DEC .99999 # N20
041721,000396: 17,2506 60361 DEC -.4852 # N21/2
041722,000397: 17,2507 00000 DEC 0 B-14 # N22
041723,000398: 17,2510 67304 DEC -.2692 # D22/2
041724,000399: 17,2511 00000 DEC 0 B-14 # D22
041725,000400:
041726,000401: 17,2512 37777 LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
041727,000402: 17,2513 65371 DEC -.3285 # N11/2
041728,000403: 17,2514 65337 DEC -.3301 # N12
041729,000404: 17,2515 42700 DEC -.9101 # D11/2
041730,000405: 17,2516 33045 DEC +.8460 # D12
041731,000406:
041732,000407: 17,2517 01000 DEC +.03125 # N20
041733,000408: 17,2520 00000 DEC 0 B-14 # N21/2
041734,000409: 17,2521 00000 DEC 0 B-14 # N22
041735,000410: 17,2522 42700 DEC -.9101 # D21/2
041736,000411: 17,2523 33045 DEC +.8460 # D22
041737,000412:
041738,000413: 17,2524 20000 DEC +.50000 # N30
041739,000414: 17,2525 60730 DEC -.47115 # N31/2
041740,000415: 17,2526 17145 DEC +.4749 # N32
041741,000416: 17,2527 41323 DEC -.9558 # D31/2
041742,000417: 17,2530 35773 DEC +.9372 # D32
041743,000418:
041744,000419: 17,2531 02500 CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
041745,000420: 17,2532 01425 HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
|
|
Page 944
|
041747,000422: 17,2533 02512 LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
041748,000423:
041749,000424: 17,2534 00063 NZERO DEC 51 B-14 # MUST BE ODD FOR MRCLEAN
041750,000425: 17,2535 00027 NZEROJR DEC 23 B-14 # MUST BE ODD FOR MCLEANJR
041751,000426:
041752,000427: 17,2536 00210 ATTLIM DEC 0.00833 # INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
041753,000428: 17,2537 00170 1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041754,000429:
041755,000430: 17,2540 00005 TCORR OCT 00005 # CSM
041756,000431: 17,2541 00000 +1 OCT 00000 # CSM/LM (HB,LB)
041757,000432:
041758,000433: 17,2542 00247 FKPRIMDT DEC .0102 # CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041759,000434: 17,2543 00232 FREPFRAC DEC .0375 B-2 # CSM/LM (LB), 0.0375 SCALED AT B+2
041760,000435:
041761,000436: 17,2544 4374 NINETEEN = VD1
041762,000437: 17,2544 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SCALED AT 1/(B+8 N-M)
041763,000438:
041764,000439: 17,2545 03720 ONETHOU DEC 1000 B-13 # KG/CS B3 TO KG/10SEC B16 CONVERSION
041765,000440:
041766,000441: 17,2546 E6,1702 EBANK= BZERO
041767,000442: 17,2546 03107 40066 DAPINIT5 2CADR DAPINIT
041768,000443:
041769,000444: 17,2550 E6,1702 EBANK= BZERO
041770,000445: 17,2550 02175 36066 INITLOC2 2CADR TVCINIT1
End of include-file TVCINITIALIZE.agc. Parent file is MAIN.agc
