Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
037566,000002: ## Copyright: Public domain.
037567,000003: ## Filename: TVCINITIALIZE.agc
037568,000004: ## Purpose: A section of Skylark revision 048.
037569,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
037570,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
037571,000007: ## this software are available; instead, this file was created via
037572,000008: ## disassembly of dumps of the core rope modules actually flown on
037573,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
037574,000010: ## Museum of Space History.
037575,000011: ## Assembler: yaYUL
037576,000012: ## Contact: Ron Burkey <info@sandroid.org>.
037577,000013: ## Website: www.ibiblio.org/apollo/index.html
037578,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
037579,000015: ## 2024-03-05 MAS Updated for Skylark 48.
037580,000016:
037581,000017: # NAME TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
037582,000018: # LOG SECTION...TVCINITIALIZE SUBROUTINE...DAPCSM
037583,000019: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
037584,000020: # MODIFIED BY BEALS TO ELIMINATE CSMMASS UPDATE LOGIC (NOW DONE IN S40.8)
037585,000021: # FUNCTIONAL DESCRIPTION
037586,000022: # PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
037587,000023: # COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
037588,000024: # MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
037589,000025: # PERFORMS INITIALIZATION FOR ROLL DAP
037590,000026: # CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
037591,000027: # CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT VIA T5
037592,000028: # PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
037593,000029: # CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
037594,000030: # IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
037595,000031: # MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
037596,000032: # NORMAL EXIT MODE
037597,000033: # TCF RESUME
037598,000034: # SUBROUTINES CALLED
037599,000035: # NEEDLER, MASSPROP
037600,000036: # ALARM OR ABORT EXIT MODES
037601,000037: # NONE
037602,000038: # ERASABLE INITIALIZATION REQUIRED
037603,000039: # CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
037604,000040: # TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
037605,000041: # PACTOFF, YACTOFF, CDUX
037606,000042: # TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
037607,000043: # OUTPUT
037608,000044: # ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
037609,000045: # DEBRIS
037610,000046: # NONE
037611,000047:
037612,000048: 17,2000 SETLOC DAPS7
037613,000049: 17,2000 BANK
037614,000050:
037615,000051: 17,2221 COUNT* $$/INIT
037616,000052: 17,2221 E6,1453 EBANK= CNTR
037617,000053: 17,2221 22016 TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
037618,000054: 17,2222 00006 EXTEND # SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
037619,000055: 17,2223 22012 QXCH QRUPT # TVCINIT4 ARE ENTRIES)
037620,000056: 17,2224 32562 MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
037621,000057: # TVC RESTARTS ENTER HERE (NEW BANK)
037622,000058: 17,2225 10000 +1 CCS A
037623,000059: 17,2226 55453 TS CNTR
037624,000060: 17,2227 35003 CAF ZERO
037625,000061: 17,2230 54001 TS L
037626,000062: 17,2231 51453 INDEX CNTR
037627,000063: 17,2232 53557 DXCH OMEGAYC # FIRST (LAST) TWO LOCATIONS
037628,000064: 17,2233 11453 CCS CNTR
037629,000065: 17,2234 12225 TCF MRCLEAN +1
037630,000066: 17,2235 00006 EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
037631,000067: 17,2236 32576 DCA INITLOC2 # INITIALIZATION AT TVCINIT1
037632,000068: 17,2237 52113 DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
037633,000069: 17,2240 34761 CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
037634,000070: 17,2241 54030 TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
037635,000071: 17,2242 15336 ENDMRC TCF RESUME # ENTRY.
037636,000072:
037637,000073: 17,2243 22016 TVCINIT1 LXCH BANKRUPT
037638,000074: 17,2244 00006 EXTEND
037639,000075: 17,2245 22012 QXCH QRUPT
037640,000076:
037641,000077: 17,2246 04725 TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
037642,000078: 17,2247 13311 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
037643,000079:
037644,000080: 17,2250 31514 CAE DAPDATR1 # CHECK LEM-ON/OFF
037645,000081: 17,2251 74764 MASK BIT14
037646,000082: 17,2252 10000 CCS A
037647,000083: 17,2253 35001 CAF BIT1 # LEM-ON (BIT1)
037648,000084: 17,2254 55453 TS CNTR # LEM-OFF (ZERO)
037649,000085:
037650,000086: 17,2255 51453 INDEX CNTR # LOAD THE FILTER COEFFICIENTS
037651,000087: 17,2256 32557 CAF CSMCFADR
037652,000088: 17,2257 55733 TS COEFFADR
037653,000089: 17,2260 02450 TC LOADCOEF
037654,000090:
037655,000091: 17,2261 51453 INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
037656,000092: 17,2262 31403 CAE EKTLX/I # SCALED (1.08 B+2) 1/SECSQ CSM/LM
037657,000093: 17,2263 55657 TS KTLX/I # ( " B+4) " CSM
037658,000094:
037659,000095: 17,2264 02510 TCR S40.15 # COMPUTE 1/CONACC, VARK
037660,000096:
037661,000097: 17,2265 41453 TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
037662,000098: 17,2266 50000 INDEX A # DETERMINATION:
037663,000099: 17,2267 35000 CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
037664,000100: 17,2270 55655 TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
037665,000101:
037666,000102: 17,2271 40000 COM # PREPARE T5TVCDT
037667,000103: 17,2272 64761 AD POSMAX
037668,000104: 17,2273 65001 AD BIT1
037669,000105: 17,2274 55654 TS T5TVCDT
037670,000106:
037671,000107: 17,2275 44763 CS SWTOVBIT # RESET SWTOVER FLAG
037672,000108: 17,2276 70105 MASK FLAGWRD9
037673,000109: 17,2277 54105 TS FLAGWRD9
037674,000110: 17,2300 51453 INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
037675,000111: 17,2301 31401 CAE EKPRIME # SCALED (100 PI)/16
037676,000112: 17,2302 00006 EXTEND
037677,000113: 17,2303 71655 MP KPRIMEDT # (TVCDT/2, SC.AT B+14CS)
037678,000114: 17,2304 22000 LXCH A # SC.AT PI/8 (DIMENSIONLESS)
037679,000115: 17,2305 53656 DXCH KPRIMEDT
037680,000116: 17,2306 51453 INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
037681,000117: 17,2307 31406 CAE EREPFRAC
037682,000118: 17,2310 55662 TS REPFRAC
037683,000119:
037684,000120: 17,2311 51453 INDEX CNTR # PICK UP ONE-SHOT CORRECTION TIME
037685,000121: 17,2312 32566 CAF TCORR
037686,000122: 17,2313 55453 TS CNTR
037687,000123:
037688,000124: 17,2314 34351 CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
037689,000125: 17,2315 55663 TS VCNTR # 10 SECS (TVCEXEC 1/2 SEC RATE)
037690,000126: 17,2316 31410 TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
037691,000127: 17,2317 55634 TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
037692,000128: 17,2320 55652 TS PCMD # OFFSET-TRACKER FILTERS
037693,000129: 17,2321 55630 TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
037694,000130:
037695,000131: 17,2322 31411 CAE YACTOFF
037696,000132: 17,2323 55636 TS YDELOFF
037697,000133: 17,2324 55653 TS YCMD
037698,000134: 17,2325 55632 TS DELYBAR
037699,000135:
037700,000136: 17,2326 31514 ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC
037701,000137: 17,2327 74765 MASK BIT13 # TEST FOR CSM OR CSM/LM
037702,000138: 17,2330 00006 EXTEND
037703,000139: 17,2331 12357 BZF NEEDLEIN # BYPASS INITIALIZATION FOR CSM/LM
037704,000140:
037705,000141: 17,2332 35001 CAF BIT1 # SET UP TEMPORARY COUNTER
037706,000142: 17,2333 55640 +5 TS TTMP1
037707,000143:
037708,000144: 17,2334 51640 INDEX TTMP1
037709,000145: 17,2335 31713 CA ERRBTMP # ERRBTMP CONTAINS RCS ATTITUDE ERRORS
037710,000146: 17,2336 00006 EXTEND # ERRORY & ERRORZ (P40 AT DOTVCON)
037711,000147: 17,2337 72565 MP 1/ATTLIM # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
037712,000148: 17,2340 00006 EXTEND
037713,000149: 17,2341 12351 BZF +8D # |ERROR| LESS THAN 1.5 DEG
037714,000150: 17,2342 00006 EXTEND
037715,000151: 17,2343 62346 BZMF +3 # |ERROR| > 1.5 DEG, AND NEG
037716,000152: 17,2344 32564 CA ATTLIM # |ERROR| > 1.5 DEG, AND POS
037717,000153: 17,2345 12347 TCF +2
037718,000154: 17,2346 42564 +3 CS ATTLIM
037719,000155: 17,2347 51640 +2 INDEX TTMP1
037720,000156: 17,2350 55713 TS ERRBTMP
037721,000157: 17,2351 11640 +8 CCS TTMP1 # TEST TEMPORARY COUNTER
037722,000158: 17,2352 12333 TCF ATTINIT +5 # BACK TO REPEAT FOR PITCH ERROR
037723,000159:
037724,000160: 17,2353 31713 CA ERRBTMP # ERRORS ESTABLISHED AND LIMITED
037725,000161: 17,2354 55624 TS PERRB
037726,000162: 17,2355 31714 CA ERRBTMP +1
037727,000163: 17,2356 55626 TS YERRB
037728,000164:
037729,000165: 17,2357 41530 NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
037730,000166: 17,2360 74777 MASK BIT3 # TO NEEDLER. WILL CLEAR FOR TVC DAP
037731,000167: 17,2361 27530 ADS RCSFLAGS # (RETURNS AFTER CADR)
037732,000168: 17,2362 04725 TC IBNKCALL
037733,000169: 17,2363 31660 CADR NEEDLER
037734,000170:
037735,000171: 17,2364 35003 TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
037736,000172: 17,2365 55664 TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
037737,000173: # (POSSIBLE TVC-RESTART ENTRY)
037738,000174:
037739,000175: 17,2366 30032 CAE CDUX # PREPARE ROLL DAP
037740,000176: 17,2367 55674 TS OGANOW
037741,000177:
037742,000178: 17,2370 35023 CAF .5SEC # CALL TVCEXECUTIVE IN 0.5 SEC
037743,000179: 17,2371 05246 TC WAITLIST
037744,000180: 17,2372 E6,1453 EBANK= CNTR
037745,000181: 17,2372 03013 34066 2CADR TVCEXEC
037746,000182:
037747,000183:
037748,000184: 17,2374 00006 EXTEND # CALL FOR DAPINIT
037749,000185: 17,2375 32574 DCA DAPINIT5
037750,000186: 17,2376 52113 DXCH T5LOC
037751,000187: 17,2377 31654 CAE T5TVCDT # (ALLOW TIME FOR RESTART COMPUTATIONS)
037752,000188: 17,2400 54030 TS TIME5
037753,000189:
037754,000190: 17,2401 15336 ENDTVCIN TCF RESUME
037755,000191:
037756,000192:
037757,000193: 17,2402 00004 SWICHOVR INHINT
037758,000194: 17,2403 31664 CA TVCPHASE # SAVE TVCPHASE
037759,000195: 17,2404 55640 TS PHASETMP
037760,000196: 17,2405 45000 CS BIT2 # SET TVCPHASE = -2 (INDICATES SWITCH-OVER
037761,000197: 17,2406 55664 TS TVCPHASE # TO RESTART LOGIC)
037762,000198:
037763,000199: 17,2407 00006 +5 EXTEND # SAVE Q FOR RETURN (RESTART ENTRY POINT,
037764,000200: 17,2410 23642 QXCH RTRNLOC # TVCPHASE AND PHASETMP ALREADY SET)
037765,000201:
037766,000202: 17,2411 32563 CAF NZEROJR # ZEROING LOOP FOR FILTER STORAGE LOCS
037767,000203: 17,2412 55710 +8 TS CNTRTMP
037768,000204:
037769,000205: 17,2413 35003 MCLEANJR CA ZERO
037770,000206: 17,2414 54001 TS L
037771,000207: 17,2415 51710 INDEX CNTRTMP
037772,000208: 17,2416 53570 DXCH PTMP1 -1
037773,000209: 17,2417 11710 CCS CNTRTMP
037774,000210: 17,2420 10000 CCS A
037775,000211: 17,2421 12412 TCF SWICHOVR +8D
037776,000212:
037777,000213: 17,2422 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
037778,000214: 17,2423 74763 MASK SWTOVBIT
037779,000215: 17,2424 26105 ADS FLAGWRD9
037780,000216:
037781,000217: 17,2425 31405 CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
037782,000218: 17,2426 55657 TS KTLX/I
037783,000219: 17,2427 02517 TCR S40.15 +7
037784,000220:
037785,000221: 17,2430 32570 CAF FKPRIMDT # - STEERING
037786,000222: 17,2431 55655 TS KPRIMEDT
037787,000223:
037788,000224: 17,2432 32571 CAF FREPFRAC # - TMC LOOP
037789,000225: 17,2433 55662 TS REPFRAC
037790,000226:
037791,000227: 17,2434 00006 EXTEND # UPDATE TRIM ESTIMATES
037792,000228: 17,2435 31631 DCA DELPBAR
037793,000229: 17,2436 53635 DXCH PDELOFF
037794,000230: 17,2437 00006 EXTEND
037795,000231: 17,2440 31633 DCA DELYBAR
037796,000232: 17,2441 53637 DXCH YDELOFF
037797,000233:
037798,000234: 17,2442 32561 CA LBCFADR
037799,000235: 17,2443 55733 TS COEFFADR
037800,000236: 17,2444 02450 TC LOADCOEF
037801,000237:
037802,000238: 17,2445 31640 CAE PHASETMP # RESTORE TVCPHASE
037803,000239: 17,2446 55664 TS TVCPHASE
037804,000240:
037805,000241: 17,2447 01642 TC RTRNLOC # BACK TO PRESWTCH OR TVCRESTARTS
037806,000242:
037807,000243:
037808,000244: 17,2450 00006 LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
037809,000245: 17,2451 51733 INDEX COEFFADR # FROM: ERASABLE FOR CSM/LM HB
037810,000246: 17,2452 30001 DCA 0 # FIXED FOR CSM/LM LB
037811,000247: 17,2453 53735 DXCH N10 # FIXED FOR CSM
037812,000248:
037813,000249: 17,2454 00006 EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
037814,000250: 17,2455 51733 INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
037815,000251: 17,2456 30003 DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
037816,000252: 17,2457 53737 DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
037817,000253: # COEFFICIENTS FROM FIXED MEMORY.
037818,000254:
037819,000255: 17,2460 00006 EXTEND
037820,000256: 17,2461 51733 INDEX COEFFADR
037821,000257: 17,2462 30005 DCA 4
037822,000258: 17,2463 53741 DXCH N10 +4
037823,000259:
037824,000260: 17,2464 00006 EXTEND
037825,000261: 17,2465 51733 INDEX COEFFADR
037826,000262: 17,2466 30007 DCA 6
037827,000263: 17,2467 53743 DXCH N10 +6
037828,000264: 17,2470 00006 EXTEND
037829,000265: 17,2471 51733 INDEX COEFFADR
037830,000266: 17,2472 30011 DCA 8D
037831,000267: 17,2473 53745 DXCH N10 +8D
037832,000268:
037833,000269: 17,2474 00006 EXTEND
037834,000270: 17,2475 51733 INDEX COEFFADR
037835,000271: 17,2476 30013 DCA 10D
037836,000272: 17,2477 53747 DXCH N10 +10D
037837,000273:
037838,000274: 17,2500 00006 EXTEND
037839,000275: 17,2501 51733 INDEX COEFFADR
037840,000276: 17,2502 30015 DCA 12D
037841,000277: 17,2503 53751 DXCH N10 +12D
037842,000278:
037843,000279: 17,2504 51733 INDEX COEFFADR
037844,000280: 17,2505 30016 CA 14D
037845,000281: 17,2506 55752 TS N10 +14D
037846,000282:
037847,000283: 17,2507 00002 TC Q
037848,000284:
037849,000285: 17,2510 31516 S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
037850,000286: 17,2511 00006 EXTEND # ENTERED FROM TVCINITIALIZE AND TVCEXEC
037851,000287: 17,2512 72572 MP 2PI/M # 2PI/M SCALED 1/(B+8 N M)
037852,000288: 17,2513 20001 DDOUBL # IXX SCALED B+20 KG-MSQ
037853,000289: 17,2514 20001 DDOUBL
037854,000290: 17,2515 20001 DDOUBL
037855,000291: 17,2516 55660 TS 1/CONACC # SCALED B+9 SEC-SQ/REV
037856,000292:
037857,000293: # ENTRY FROM CSM/LM V46 SWITCHOVER
037858,000294: 17,2517 31657 +7 CAE KTLX/I # SCALED (1.08 B+2) 1/SECSQ CSM/LM
037859,000295: 17,2520 00006 EXTEND # ( " B+4) CSM
037860,000296: 17,2521 71520 MP IAVG/TLX # SCALED B+2 SECSQ
037861,000297: 17,2522 20001 DDOUBL
037862,000298: 17,2523 20001 DDOUBL
037863,000299: 17,2524 55661 TS VARK # SCALED (1.08 B+2) CSM/LM
037864,000300: 17,2525 00002 TC Q # ( " B+4) CSM
037865,000301:
037866,000302:
037867,000303: 17,2526 37777 CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
037868,000304: 17,2527 67657 DEC -.2549 # N11/2
037869,000305: 17,2530 01703 DEC .0588 # N12
037870,000306: 17,2531 47472 DEC -.7620 # D11/2
037871,000307: 17,2532 27656 DEC .7450 # D12
037872,000308:
037873,000309: 17,2533 37777 DEC .99999 # N20
037874,000310: 17,2534 60361 DEC -.4852 # N21/2
037875,000311: 17,2535 00000 DEC 0 B-14 # N22
037876,000312: 17,2536 67304 DEC -.2692 # D22/2
037877,000313: 17,2537 00000 DEC 0 B-14 # D22
037878,000314:
037879,000315: 17,2540 37777 LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
037880,000316: 17,2541 65371 DEC -.3285 # N11/2
037881,000317: 17,2542 65337 DEC -.3301 # N12
037882,000318: 17,2543 42700 DEC -.9101 # D11/2
037883,000319: 17,2544 33045 DEC +.8460 # D12
037884,000320:
037885,000321: 17,2545 01000 DEC +.03125 # N20
037886,000322: 17,2546 00000 DEC 0 B-14 # N21/2
037887,000323: 17,2547 00000 DEC 0 B-14 # N22
037888,000324: 17,2550 42700 DEC -.9101 # D21/2
037889,000325: 17,2551 33045 DEC +.8460 # D22
037890,000326:
037891,000327: 17,2552 20000 DEC +.5000 # N30
037892,000328: 17,2553 60730 DEC -.47115 # N31/2
037893,000329: 17,2554 17145 DEC +.4749 # N32
037894,000330: 17,2555 41323 DEC -.9558 # D31/2
037895,000331: 17,2556 35773 DEC +.9372 # D32
037896,000332:
037897,000333:
037898,000334: 17,2557 02526 CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
037899,000335: 17,2560 01412 HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
037900,000336: 17,2561 02540 LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
037901,000337:
037902,000338: 17,2562 00063 NZERO DEC 51 B-14 # MUST BE ODD FOR MRCLEAN
037903,000339: 17,2563 00027 NZEROJR DEC 23 B-14 # MUST BE ODD FOR MCLEANJR
037904,000340:
037905,000341: 17,2564 00210 ATTLIM DEC 0.00833 # INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
037906,000342: 17,2565 00170 1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
037907,000343:
037908,000344: 17,2566 00005 TCORR OCT 00005 # CSM
037909,000345: 17,2567 00000 +1 OCT 00000 # CSM/LM (HB,LB)
037910,000346:
037911,000347: 17,2570 00247 FKPRIMDT DEC .0102 # CSM/LM (LB), (.05 X .08) SCALED AT PI/8
037912,000348: 17,2571 00232 FREPFRAC DEC .0375 B-2 # CSM/LM (LB), 0.0375 SCALED AT B+2
037913,000349:
037914,000350: 17,2572 4351 NINETEEN = VD1
037915,000351: 17,2572 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SCALED AT 1/(B+8 N-M)
037916,000352:
037917,000353: 17,2573 E6,1453 EBANK= CNTR
037918,000354: 17,2573 03164 40066 DAPINIT5 2CADR DAPINIT
037919,000355:
037920,000356:
037921,000357: 17,2575 E6,1453 EBANK= CNTR
037922,000358: 17,2575 02243 36066 INITLOC2 2CADR TVCINIT1
End of include-file TVCINITIALIZE.agc. Parent file is MAIN.agc