Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
040250,000002: ## Copyright: Public domain.
040251,000003: ## Filename: TVCINITIALIZE.agc
040252,000004: ## Purpose: A section of Comanche revision 072.
040253,000005: ## It is part of the reconstructed source code for the first
040254,000006: ## release of the software for the Command Module's (CM) Apollo
040255,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
040256,000008: ## of this program are available; instead, this file was recreated
040257,000009: ## from a printout of Comanche 055, binary dumps of a set of
040258,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
040259,000011: ## and 072. It has been adapted such that the resulting bugger words
040260,000012: ## exactly match those specified for Comanche 072 in NASA drawing
040261,000013: ## 2021153G, which gives relatively high confidence that the
040262,000014: ## reconstruction is correct.
040263,000015: ## Assembler: yaYUL
040264,000016: ## Contact: Ron Burkey <info@sandroid.org>.
040265,000017: ## Website: www.ibiblio.org/apollo/index.html
040266,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
040267,000019:
040268,000020: # NAME TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
040269,000021: # LOG SECTION...TVCINITIALIZE SUBROUTINE...DAPCSM
040270,000022: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
040271,000023: # FUNCTIONAL DESCRIPTION
040272,000024: # PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
040273,000025: # COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
040274,000026: # MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
040275,000027: # PERFORMS INITIALIZATION FOR ROLL DAP
040276,000028: # CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
040277,000029: # CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT VIA T5
040278,000030: # PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
040279,000031: # CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
040280,000032: # IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
040281,000033: # MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
040282,000034: # NORMAL EXIT MODE
040283,000035: # TCF RESUME
040284,000036: # SUBROUTINES CALLED
040285,000037: # NEEDLER, MASSPROP
040286,000038: # ALARM OR ABORT EXIT MODES
040287,000039: # NONE
040288,000040: # ERASABLE INITIALIZATION REQUIRED
040289,000041: # CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
040290,000042: # TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
040291,000043: # PACTOFF, YACTOFF, CDUX
040292,000044: # TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
040293,000045: # OUTPUT
040294,000046: # ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
040295,000047: # DEBRIS
040296,000048: # NONE
040297,000049:
040298,000050: 42,3767 COUNT* $$/INIT
040299,000051: 17,2205 BANK 17
040300,000052: 17,2000 SETLOC DAPS7
040301,000053: 17,2000 BANK
040302,000054:
040303,000055: 17,2205 E6,1704 EBANK= BZERO
040304,000056:
040305,000057: 17,2205 22016 TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
040306,000058: 17,2206 00006 EXTEND # SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
040307,000059: 17,2207 22012 QXCH QRUPT # TVCINIT4 ARE ENTRIES)
040308,000060: 17,2210 32572 MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
040309,000061: # TVC RESTARTS ENTER HERE (NEW BANK)
040310,000062: 17,2211 10000 +1 CCS A
040311,000063: 17,2212 55447 TS CNTR
040312,000064: 17,2213 35035 CAF ZERO
040313,000065: 17,2214 54001 TS L
040314,000066: 17,2215 51447 INDEX CNTR
040315,000067: 17,2216 53530 DXCH OMEGAYC # FIRST (LAST) TWO LOCATIONS
040316,000068: 17,2217 11447 CCS CNTR
040317,000069: 17,2220 12211 TCF MRCLEAN +1
040318,000070: 17,2221 00006 EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
040319,000071: 17,2222 32607 DCA INITLOC2 # INITIALIZATION AT TVCINIT1
040320,000072: 17,2223 53313 DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
040321,000073: 17,2224 35013 CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
040322,000074: 17,2225 54030 TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
040323,000075: 17,2226 15347 ENDMRC TCF RESUME # ENTRY.
040324,000076:
040325,000077: 17,2227 22016 TVCINIT1 LXCH BANKRUPT
040326,000078: 17,2230 00006 EXTEND
040327,000079: 17,2231 22012 QXCH QRUPT
040328,000080:
040329,000081: 17,2232 04754 TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
040330,000082: 17,2233 13370 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
040331,000083:
040332,000084: 17,2234 30110 CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
040333,000085: 17,2235 00006 EXTEND
040334,000086: 17,2236 72603 MP ONETHOU
040335,000087: 17,2237 55637 TS TENMDOT # 10-SEC MASS LOSS B+16 KG
040336,000088: 17,2240 40000 COM
040337,000089: 17,2241 61474 AD CSMMASS
040338,000090: 17,2242 55654 TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
040339,000091:
040340,000092: 17,2243 31466 CAE DAPDATR1 # CHECK LEM-ON/OFF
040341,000093: 17,2244 75016 MASK BIT14
040342,000094: 17,2245 10000 CCS A
040343,000095: 17,2246 35033 CAF BIT1 # LEM-ON (BIT1)
040344,000096: 17,2247 55447 TS CNTR # LEM-OFF (ZERO)
040345,000097:
040346,000098: 17,2250 51447 INDEX CNTR # LOAD THE FILTER COEFFICIENTS
040347,000099: 17,2251 32567 CAF CSMCFADR
040348,000100: 17,2252 55724 TS COEFFADR
040349,000101: 17,2253 02460 TC LOADCOEF
040350,000102:
040351,000103: 17,2254 51447 INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
040352,000104: 17,2255 31416 CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
040353,000105: 17,2256 55636 TS KTLX/I
040354,000106:
040355,000107: 17,2257 02520 TCR S40.15 # COMPUTE 1/CONACC, VARK
040356,000108:
040357,000109: 17,2260 41447 TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
040358,000110: 17,2261 50000 INDEX A # DETERMINATION:
040359,000111: 17,2262 35032 CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
040360,000112: 17,2263 55634 TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
040361,000113:
040362,000114: 17,2264 40000 COM # PREPARE T5TVCDT
040363,000115: 17,2265 65013 AD POSMAX
040364,000116: 17,2266 65033 AD BIT1
040365,000117: 17,2267 55625 TS T5TVCDT
040366,000118:
040367,000119: 17,2270 45015 CS BIT15 # RESET SWTOVER FLAG
040368,000120: 17,2271 70105 MASK FLAGWRD9
040369,000121: 17,2272 54105 TS FLAGWRD9
040370,000122:
040371,000123: 17,2273 51447 INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
040372,000124: 17,2274 31414 CAE EKPRIME # SCALED (100 PI)/16
040373,000125: 17,2275 00006 EXTEND
040374,000126: 17,2276 71634 MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
040375,000127: 17,2277 22000 LXCH A # SC.AT PI/8 (DIMENSIONLESS)
040376,000128: 17,2300 53635 DXCH KPRIMEDT
040377,000129:
040378,000130: 17,2301 51447 INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
040379,000131: 17,2302 31421 CAE EREPFRAC
040380,000132: 17,2303 55642 TS REPFRAC
040381,000133:
040382,000134: 17,2304 51447 INDEX CNTR # PICK UP ONE-SHOT CORRECTION TIME
040383,000135: 17,2305 32576 CAF TCORR
040384,000136: 17,2306 55447 TS CNTR
040385,000137:
040386,000138: 17,2307 37716 CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
040387,000139: 17,2310 55656 TS STRKTIME
040388,000140:
040389,000141: 17,2311 34374 CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
040390,000142: 17,2312 55643 TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
040391,000143: 17,2313 55444 TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
040392,000144:
040393,000145: 17,2314 31423 TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
040394,000146: 17,2315 55605 TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
040395,000147: 17,2316 55623 TS PCMD # OFFSET-TRACKER FILTERS
040396,000148: 17,2317 55601 TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
040397,000149:
040398,000150: 17,2320 31424 CAE YACTOFF
040399,000151: 17,2321 55607 TS YDELOFF
040400,000152: 17,2322 55624 TS YCMD
040401,000153: 17,2323 55603 TS DELYBAR
040402,000154:
040403,000155: 17,2324 31466 ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC
040404,000156: 17,2325 75017 MASK BIT13 # TEST FOR CSM OR CSM/LM
040405,000157: 17,2326 00006 EXTEND
040406,000158: 17,2327 12355 BZF NEEDLEIN # BYPASS INITIALIZATION FOR CSM/LM
040407,000159:
040408,000160: 17,2330 35033 CAF BIT1 # SET UP TEMPORARY COUNTER
040409,000161: 17,2331 55611 +5 TS TTMP1
040410,000162:
040411,000163: 17,2332 51611 INDEX TTMP1
040412,000164: 17,2333 31704 CA ERRBTMP # ERRBTMP CONTAINS RCS ATTITUDE ERRORS
040413,000165: 17,2334 00006 EXTEND # ERRORY & ERRORZ (P40 AT DOTVCON)
040414,000166: 17,2335 72575 MP 1/ATTLIM # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
040415,000167: 17,2336 00006 EXTEND
040416,000168: 17,2337 12347 BZF +8D # |ERROR| LESS THAN 1.5 DEG
040417,000169: 17,2340 00006 EXTEND
040418,000170: 17,2341 62344 BZMF +3 # |ERROR| > 1.5 DEG, AND NEG
040419,000171: 17,2342 32574 CA ATTLIM # |ERROR| > 1.5 DEG, AND POS
040420,000172: 17,2343 12345 TCF +2
040421,000173: 17,2344 42574 +3 CS ATTLIM
040422,000174: 17,2345 51611 +2 INDEX TTMP1
040423,000175: 17,2346 55704 TS ERRBTMP
040424,000176: 17,2347 11611 +8 CCS TTMP1 # TEST TEMPORARY COUNTER
040425,000177: 17,2350 12331 TCF ATTINIT +5 # BACK TO REPEAT FOR PITCH ERROR
040426,000178:
040427,000179: 17,2351 31704 CA ERRBTMP # ERRORS ESTABLISHED AND LIMITED
040428,000180: 17,2352 55575 TS PERRB
040429,000181: 17,2353 31705 CA ERRBTMP +1
040430,000182: 17,2354 55577 TS YERRB
040431,000183:
040432,000184: 17,2355 41501 NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
040433,000185: 17,2356 75031 MASK BIT3 # TO NEEDLER. WILL CLEAR FOR TVC DAP
040434,000186: 17,2357 27501 ADS RCSFLAGS # (RETURNS AFTER CADR)
040435,000187: 17,2360 04754 TC IBNKCALL
040436,000188: 17,2361 42432 CADR NEEDLER
040437,000189:
040438,000190: 17,2362 35035 TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
040439,000191: 17,2363 55644 TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
040440,000192: # (POSSIBLE TVC-RESTART ENTRY)
040441,000193:
040442,000194: 17,2364 30032 CAE CDUX # PREPARE ROLL DAP
040443,000195: 17,2365 55664 TS OGANOW
040444,000196:
040445,000197: 17,2366 35017 CAF BIT13 # IF ENGINE IS ALREADY OFF, ENGINOFF HAS
040446,000198: 17,2367 00006 EXTEND # ALREADY ESTABLISHED THE POST-BURN
040447,000199: 17,2370 02011 RAND DSALMOUT # CSMMASS (MASSBACK DOES IT). DONT
040448,000200: 17,2371 00006 EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
040449,000201: 17,2372 12375 BZF +3 # THEN ITS OK TO DO THE COPYCYCLE
040450,000202: # EVEN BURNS LESS THAN 0.4 SEC ARE AOK
040451,000203:
040452,000204: 17,2373 31654 CAE MASSTMP # COPYCYCLE
040453,000205: 17,2374 55474 TS CSMMASS
040454,000206:
040455,000207: 17,2375 35052 +3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
040456,000208: 17,2376 05261 TC WAITLIST
040457,000209: 17,2377 E6,1704 EBANK= BZERO
040458,000210: 17,2377 02772 34066 2CADR TVCEXEC
040459,000211:
040460,000212: 17,2401 00006 EXTEND # CALL FOR DAPINIT
040461,000213: 17,2402 32605 DCA DAPINIT5
040462,000214: 17,2403 53313 DXCH T5LOC
040463,000215: 17,2404 31625 CAE T5TVCDT # (ALLOW TIME FOR RESTART COMPUTATIONS)
040464,000216: 17,2405 54030 TS TIME5
040465,000217: 17,2406 15347 ENDTVCIN TCF RESUME
040466,000218:
040467,000219: 17,2407 02412 PRESWTCH TCR SWICHOVR # ENTRY FROM V46
040468,000220:
040469,000221: 17,2410 04715 TC POSTJUMP # THIS PROVIDES AN EXIT FROM SWITCH-OVER
040470,000222: 17,2411 21272 CADR PINBRNCH # (PINBRNCH DOES A RELINT)
040471,000223:
040472,000224: 17,2412 00004 SWICHOVR INHINT
040473,000225: 17,2413 31644 CA TVCPHASE # SAVE TVCPHASE
040474,000226: 17,2414 55611 TS PHASETMP
040475,000227: 17,2415 45032 CS BIT2 # SET TVCPHASE = -2 (INDICATES SWITCH-OVER
040476,000228: 17,2416 55644 TS TVCPHASE # TO RESTART LOGIC)
040477,000229:
040478,000230: 17,2417 00006 +5 EXTEND # SAVE Q FOR RETURN (RESTART ENTRY POINT,
040479,000231: 17,2420 23613 QXCH RTRNLOC # TVCPHASE AND PHASETMP ALREADY SET)
040480,000232:
040481,000233: 17,2421 32573 CAF NZEROJR # ZEROING LOOP FOR FILTER STORAGE LOCS
040482,000234: 17,2422 55700 +8 TS CNTRTMP
040483,000235:
040484,000236: 17,2423 35035 MCLEANJR CA ZERO
040485,000237: 17,2424 54001 TS L
040486,000238: 17,2425 51700 INDEX CNTRTMP
040487,000239: 17,2426 53541 DXCH PTMP1 -1
040488,000240: 17,2427 11700 CCS CNTRTMP
040489,000241: 17,2430 10000 CCS A
040490,000242: 17,2431 12422 TCF SWICHOVR +8D
040491,000243:
040492,000244: 17,2432 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
040493,000245: 17,2433 75015 MASK BIT15
040494,000246: 17,2434 26105 ADS FLAGWRD9
040495,000247:
040496,000248: 17,2435 31420 CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
040497,000249: 17,2436 55636 TS KTLX/I
040498,000250: 17,2437 02527 TCR S40.15 +7
040499,000251:
040500,000252: 17,2440 32600 CAF FKPRIMDT # - STEERING
040501,000253: 17,2441 55634 TS KPRIMEDT
040502,000254:
040503,000255: 17,2442 32601 CAF FREPFRAC # - TMC LOOP
040504,000256: 17,2443 55642 TS REPFRAC
040505,000257:
040506,000258: 17,2444 00006 EXTEND # UPDATE TRIM ESTIMATES
040507,000259: 17,2445 31602 DCA DELPBAR
040508,000260: 17,2446 53606 DXCH PDELOFF
040509,000261: 17,2447 00006 EXTEND
040510,000262: 17,2450 31604 DCA DELYBAR
040511,000263: 17,2451 53610 DXCH YDELOFF
040512,000264:
040513,000265: 17,2452 32571 CA LBCFADR
040514,000266: 17,2453 55724 TS COEFFADR
040515,000267: 17,2454 02460 TC LOADCOEF
040516,000268:
040517,000269: 17,2455 31611 CAE PHASETMP # RESTORE TVCPHASE
040518,000270: 17,2456 55644 TS TVCPHASE
040519,000271:
040520,000272: 17,2457 01613 TC RTRNLOC # BACK TO PRESWTCH OR TVCRESTARTS
040521,000273:
040522,000274: 17,2460 00006 LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
040523,000275: 17,2461 51724 INDEX COEFFADR # FROM: ERASABLE FOR CSM/LM HB
040524,000276: 17,2462 30001 DCA 0 # FIXED FOR CSM/LM LB
040525,000277: 17,2463 53726 DXCH N10 # FIXED FOR CSM
040526,000278:
040527,000279: 17,2464 00006 EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
040528,000280: 17,2465 51724 INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
040529,000281: 17,2466 30003 DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
040530,000282: 17,2467 53730 DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
040531,000283: # COEFFICIENTS FROM FIXED MEMORY.
040532,000284:
040533,000285: 17,2470 00006 EXTEND
040534,000286: 17,2471 51724 INDEX COEFFADR
040535,000287: 17,2472 30005 DCA 4
040536,000288: 17,2473 53732 DXCH N10 +4
040537,000289:
040538,000290: 17,2474 00006 EXTEND
040539,000291: 17,2475 51724 INDEX COEFFADR
040540,000292: 17,2476 30007 DCA 6
040541,000293: 17,2477 53734 DXCH N10 +6
040542,000294:
040543,000295: 17,2500 00006 EXTEND
040544,000296: 17,2501 51724 INDEX COEFFADR
040545,000297: 17,2502 30011 DCA 8D
040546,000298: 17,2503 53736 DXCH N10 +8D
040547,000299:
040548,000300: 17,2504 00006 EXTEND
040549,000301: 17,2505 51724 INDEX COEFFADR
040550,000302: 17,2506 30013 DCA 10D
040551,000303: 17,2507 53740 DXCH N10 +10D
040552,000304:
040553,000305: 17,2510 00006 EXTEND
040554,000306: 17,2511 51724 INDEX COEFFADR
040555,000307: 17,2512 30015 DCA 12D
040556,000308: 17,2513 53742 DXCH N10 +12D
040557,000309:
040558,000310: 17,2514 51724 INDEX COEFFADR
040559,000311: 17,2515 30016 CA 14D
040560,000312: 17,2516 55743 TS N10 +14D
040561,000313:
040562,000314: 17,2517 00002 TC Q
040563,000315: 17,2520 31470 S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
040564,000316: 17,2521 00006 EXTEND # ENTERED FROM TVCINITIALIZE AND TVCEXEC
040565,000317: 17,2522 72602 MP 2PI/M # 2PI/M SCALED 1/(B+8 N M)
040566,000318: 17,2523 20001 DDOUBL # IXX SCALED B+20 KG-MSQ
040567,000319: 17,2524 20001 DDOUBL
040568,000320: 17,2525 20001 DDOUBL
040569,000321: 17,2526 55640 TS 1/CONACC # SCALED B+9 SEC-SQ/REV
040570,000322:
040571,000323: 17,2527 31636 +7 CAE KTLX/I # ENTRY FROM CSM/LM V46 SWITCH-OVER
040572,000324: 17,2530 00006 EXTEND # SCALED (B+3 ASCREV) 1/SECSQ
040573,000325: 17,2531 71472 MP IAVG/TLX # SCALED B+2 SECSQ
040574,000326: 17,2532 20001 DDOUBL
040575,000327: 17,2533 20001 DDOUBL
040576,000328: 17,2534 55641 TS VARK # SCALED (B+3 ASCREV)
040577,000329: 17,2535 00002 TC Q
040578,000330:
040579,000331: 17,2536 37777 CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
040580,000332: 17,2537 67657 DEC -.2549 # N11/2
040581,000333: 17,2540 01703 DEC .0588 # N12
040582,000334: 17,2541 47472 DEC -.7620 # D11/2
040583,000335: 17,2542 27656 DEC .7450 # D12
040584,000336:
040585,000337: 17,2543 37777 DEC .99999 # N20
040586,000338: 17,2544 60361 DEC -.4852 # N21/2
040587,000339: 17,2545 00000 DEC 0 B-14 # N22
040588,000340: 17,2546 67304 DEC -.2692 # D22/2
040589,000341: 17,2547 00000 DEC 0 B-14 # D22
040590,000342:
040591,000343: 17,2550 37777 LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
040592,000344: 17,2551 65371 DEC -.3285 # N11/2
040593,000345: 17,2552 65337 DEC -.3301 # N12
040594,000346: 17,2553 42700 DEC -.9101 # D11/2
040595,000347: 17,2554 33045 DEC +.8460 # D12
040596,000348:
040597,000349: 17,2555 01000 DEC +.03125 # N20
040598,000350: 17,2556 00000 DEC 0 B-14 # N21/2
040599,000351: 17,2557 00000 DEC 0 B-14 # N22
040600,000352: 17,2560 42700 DEC -.9101 # D21/2
040601,000353: 17,2561 33045 DEC +.8460 # D22
040602,000354:
040603,000355: 17,2562 20000 DEC +.50000 # N30
040604,000356: 17,2563 60730 DEC -.47115 # N31/2
040605,000357: 17,2564 17145 DEC +.4749 # N32
040606,000358: 17,2565 41323 DEC -.9558 # D31/2
040607,000359: 17,2566 35773 DEC +.9372 # D32
040608,000360:
040609,000361: 17,2567 02536 CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
040610,000362: 17,2570 01425 HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
040611,000363: 17,2571 02550 LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
040612,000364:
040613,000365: 17,2572 00063 NZERO DEC 51 B-14 # MUST BE ODD FOR MRCLEAN
040614,000366: 17,2573 00027 NZEROJR DEC 23 B-14 # MUST BE ODD FOR MCLEANJR
040615,000367:
040616,000368: 17,2574 00210 ATTLIM DEC 0.00833 # INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
040617,000369: 17,2575 00170 1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
040618,000370:
040619,000371: 17,2576 00005 TCORR OCT 00005 # CSM
040620,000372: 17,2577 00000 +1 OCT 00000 # CSM/LM (HB,LB)
040621,000373:
040622,000374: 17,2600 00247 FKPRIMDT DEC .0102 # CSM/LM (LB), (.05 X .08) SCALED AT PI/8
040623,000375: 17,2601 00232 FREPFRAC DEC .0375 B-2 # CSM/LM (LB), 0.0375 SCALED AT B+2
040624,000376:
040625,000377: 17,2602 4374 NINETEEN = VD1
040626,000378: 17,2602 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SCALED AT 1/(B+8 N-M)
040627,000379:
040628,000380: 17,2603 03720 ONETHOU DEC 1000 B-13 # KG/CS B3 TO KG/10SEC B16 CONVERSION
040629,000381:
040630,000382: 17,2604 E6,1704 EBANK= BZERO
040631,000383: 17,2604 03142 40066 DAPINIT5 2CADR DAPINIT
040632,000384:
040633,000385: 17,2606 E6,1704 EBANK= BZERO
040634,000386: 17,2606 02227 36066 INITLOC2 2CADR TVCINIT1
End of include-file TVCINITIALIZE.agc. Parent file is MAIN.agc