GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
041559,000002: ## Copyright: Public domain.
041560,000003: ## Filename: TVCINITIALIZE.agc
041561,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
041562,000005: ## build 072. This is for the Command Module's (CM)
041563,000006: ## Apollo Guidance Computer (AGC), for
041564,000007: ## Apollo 15-17.
041565,000008: ## Assembler: yaYUL
041566,000009: ## Contact: Steve Case <case1780@adelphia.net>
041567,000010: ## Website: www.ibiblio.org/apollo/index.html
041568,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
041569,000012: ## Mod history: 2009-09-01 SMC Adapted from Comanche055 files.
041570,000013: ## 2009-09-14 JL Fix typos. Fix page numbers. Remove change comments. Restore hard tabs.
041571,000014: ## 2010-02-20 RSB Un-##'d this header.
041572,000015: ## 2017-02-09 RSB Proofed comment text by diff'ing vs Comanche 55
041573,000016: ## and/or octopus/ProoferComments as most-appropriate.
041574,000017:
|
|
Page 943 |
041576,000019: # NAME TVCDAPON (TVC DAP INITIALIZATION AND STARTUP CALL)
041577,000020: # LOG SECTION...TVCINITIALIZE SUBROUTINE...DAPCSM
041578,000021: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
041579,000022: # MODIFIED BY BEALS TO ELIMINATE CSMMASS UPDATE LOGIC (NOW DONE IN S40.8)
041580,000023: # FUNCTIONAL DESCRIPTION
041581,000024: # PERFORMS TVCDAP INITIALIZATION (GAINS, TIMING PARAMETERS, FILTER VARIABLES, ETC.)
041582,000025: # COMPUTES STEERING (S40.8) GAIN KPRIMEDT, AND ZEROES PASTDELV,+1 VARIABLE
041583,000026: # MAKES INITIALIZATION CALL TO ..NEEDLER.. FOR TVC DAP NEEDLES-SETUP
041584,000027: # PERFORMS INITIALIZATION FOR ROLL DAP
041585,000028: # CALLS TVCEXECUTIVE AT TVCEXEC, VIA WAITLIST
041586,000029: # CALLS TVCDAP CDU-RATE INITIALIZATION PKG AT DAPINIT VIA T5
041587,000030: # PROVIDES FOR LOADING OF LOW-BANDWIDTH COEFFS AND GAINS AT SWICHOVR
041588,000031: # CALLING SEQUENCE - T5LOC=2CADR(TVCDAPON,EBANK=BZERO), T5=.6SECT5
041589,000032: # IN PARTICULAR, CALLED BY ..DOTVCON.. IN P40
041590,000033: # MRCLEAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS
041591,000034: # NORMAL EXIT MODE
041592,000035: # TCF RESUME
041593,000036: # SUBROUTINES CALLED
041594,000037: # NEEDLER, MASSPROP
041595,000038: # ALARM OR ABORT EXIT MODES
041596,000039: # NONE
041597,000040: # ERASABLE INITIALIZATION REQUIRED
041598,000041: # CSMMASS, LEMMASS, DAPDATR1 (FOR MASSPROP SUBROUTINE)
041599,000042: # TVC PAD LOADS (SEE EBANK6 IN ERASABLE ASSIGNMENTS)
041600,000043: # PACTOFF, YACTOFF, CDUX
041601,000044: # TVCPHASE AND THE T5 BITS OF FLAGWRD6 (SET AT DOTVCON IN P40)
041602,000045: # OUTPUT
041603,000046: # ALL TVC AND ROLL DAP ERASABLES, FLAGWRD6 (BITS 13,14), T5, WAITLIST
041604,000047: # DEBRIS
041605,000048: # NONE
041606,000049:
041607,000050: 17,2000 SETLOC DAPS7
041608,000051: 17,2000 BANK
041609,000052:
041610,000053: 17,2163 COUNT* $$/INIT
041611,000054: 17,2163 E6,1446 EBANK= CNTR
041612,000055: 17,2163 22016 TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
041613,000056: 17,2164 00006 EXTEND # SAVE Q REQUIRED IN RESTARTS (MRCLEAN AND
041614,000057: 17,2165 22012 QXCH QRUPT # TVCINIT4 ARE ENTRIES)
041615,000058: 17,2166 32524 MRCLEAN CAF NZERO # NUMBER TO ZERO, LESS ONE (MUST BE ODD)
041616,000059: # TVC RESTARTS ENTER HERE (NEW BANK)
041617,000060: 17,2167 10000 +1 CCS A
041618,000061: 17,2170 55446 TS CNTR
041619,000062: 17,2171 34772 CAF ZERO
041620,000063: 17,2172 54001 TS L
041621,000064: 17,2173 51446 INDEX CNTR
041622,000065: 17,2174 53530 DXCH OMEGAYC # FIRST (LAST) TWO LOCATIONS
041623,000066: 17,2175 11446 CCS CNTR
041624,000067: 17,2176 12167 TCF MRCLEAN +1
|
|
Page 944 |
041626,000069: 17,2177 00006 EXTEND # SET UP ANOTHER T5 RUPT TO CONTINUE
041627,000070: 17,2200 32540 DCA INITLOC2 # INITIALIZATION AT TVCINIT1
041628,000071: 17,2201 52113 DXCH T5LOC # THE PHSCHK2 ENTRY (REDOTVC) AT TVCDAPON
041629,000072: 17,2202 34750 CAF POSMAX # +3 IS IN ANOTHER BANK. MUST RESET
041630,000073: 17,2203 54030 TS TIME5 # BBCON TOO (FULL 2CADR), FOR THAT
041631,000074: 17,2204 15323 ENDMRC TCF RESUME # ENTRY.
041632,000075:
041633,000076: 17,2205 22016 TVCINIT1 LXCH BANKRUPT
041634,000077: 17,2206 00006 EXTEND
041635,000078: 17,2207 22012 QXCH QRUPT
041636,000079:
041637,000080: 17,2210 04714 TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
041638,000081: 17,2211 13313 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
041639,000082:
041640,000083: 17,2212 31465 CAE DAPDATR1 # CHECK LEM-ON/OFF
041641,000084: 17,2213 74753 MASK BIT14
041642,000085: 17,2214 10000 CCS A
041643,000086: 17,2215 34770 CAF BIT1 # LEM-ON (BIT1)
041644,000087: 17,2216 55446 TS CNTR # LEM-OFF (ZERO)
041645,000088:
041646,000089: 17,2217 51446 INDEX CNTR # LOAD THE FILTER COEFFICIENTS
041647,000090: 17,2220 32521 CAF CSMCFADR
041648,000091: 17,2221 55704 TS COEFFADR
041649,000092: 17,2222 02412 TC LOADCOEF
041650,000093:
041651,000094: 17,2223 51446 INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
041652,000095: 17,2224 31416 CAE EKTLX/I # SCALED (1.08 B+2) 1/SECSQ CSM/LM
041653,000096: 17,2225 55630 TS KTLX/I # ( " B+4) " CSM
041654,000097:
041655,000098: 17,2226 02452 TCR S40.15 # COMPUTE 1/CONACC, VARK
041656,000099:
041657,000100: 17,2227 41446 TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
041658,000101: 17,2230 50000 INDEX A # DETERMINATION:
041659,000102: 17,2231 34767 CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
041660,000103: 17,2232 55626 TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
041661,000104:
041662,000105: 17,2233 40000 COM # PREPARE T5TVCDT
041663,000106: 17,2234 64750 AD POSMAX
041664,000107: 17,2235 64770 AD BIT1
041665,000108: 17,2236 55625 TS T5TVCDT
041666,000109:
041667,000110: 17,2237 44752 CS SWTOVBIT # RESET SWTOVER FLAG
041668,000111: 17,2240 70105 MASK FLAGWRD9
041669,000112: 17,2241 54105 TS FLAGWRD9
041670,000113: 17,2242 51446 INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
041671,000114: 17,2243 31414 CAE EKPRIME # SCALED (100 PI)/16
041672,000115: 17,2244 00006 EXTEND
041673,000116: 17,2245 71626 MP KPRIMEDT # (TVCDT/2, SC.AT B+14CS)
041674,000117: 17,2246 22000 LXCH A # SC.AT PI/8 (DIMENSIONLESS)
041675,000118: 17,2247 53627 DXCH KPRIMEDT
|
|
Page 945 |
041677,000120: 17,2250 51446 INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
041678,000121: 17,2251 31421 CAE EREPFRAC
041679,000122: 17,2252 55633 TS REPFRAC
041680,000123:
041681,000124: 17,2253 51446 INDEX CNTR # PICK UP ONE-SHOT CORRECTION TIME
041682,000125: 17,2254 32530 CAF TCORR
041683,000126: 17,2255 55446 TS CNTR
041684,000127:
041685,000128: 17,2256 34351 CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
041686,000129: 17,2257 55634 TS VCNTR # 10 SECS (TVCEXEC 1/2 SEC RATE)
041687,000130: 17,2260 31423 TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
041688,000131: 17,2261 55605 TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
041689,000132: 17,2262 55623 TS PCMD # OFFSET-TRACKER FILTERS
041690,000133: 17,2263 55601 TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
041691,000134:
041692,000135: 17,2264 31424 CAE YACTOFF
041693,000136: 17,2265 55607 TS YDELOFF
041694,000137: 17,2266 55624 TS YCMD
041695,000138: 17,2267 55603 TS DELYBAR
041696,000139:
041697,000140: 17,2270 31465 ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC
041698,000141: 17,2271 74754 MASK BIT13 # TEST FOR CSM OR CSM/LM
041699,000142: 17,2272 00006 EXTEND
041700,000143: 17,2273 12321 BZF NEEDLEIN # BYPASS INITIALIZATION FOR CSM/LM
041701,000144:
041702,000145: 17,2274 34770 CAF BIT1 # SET UP TEMPORARY COUNTER
041703,000146: 17,2275 55611 +5 TS TTMP1
041704,000147:
041705,000148: 17,2276 51611 INDEX TTMP1
041706,000149: 17,2277 31664 CA ERRBTMP # ERRBTMP CONTAINS RCS ATTITUDE ERRORS
041707,000150: 17,2300 00006 EXTEND # ERRORY & ERRORZ (P40 AT DOTVCON)
041708,000151: 17,2301 72527 MP 1/ATTLIM # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041709,000152: 17,2302 00006 EXTEND
041710,000153: 17,2303 12313 BZF +8D # |ERROR| LESS THAN 1.5 DEG
041711,000154: 17,2304 00006 EXTEND
041712,000155: 17,2305 62310 BZMF +3 # |ERROR| > 1.5 DEG, AND NEG
041713,000156: 17,2306 32526 CA ATTLIM # |ERROR| > 1.5 DEG, AND POS
041714,000157: 17,2307 12311 TCF +2
041715,000158: 17,2310 42526 +3 CS ATTLIM
041716,000159: 17,2311 51611 +2 INDEX TTMP1
041717,000160: 17,2312 55664 TS ERRBTMP
041718,000161: 17,2313 11611 +8 CCS TTMP1 # TEST TEMPORARY COUNTER
041719,000162: 17,2314 12275 TCF ATTINIT +5 # BACK TO REPEAT FOR PITCH ERROR
041720,000163:
041721,000164: 17,2315 31664 CA ERRBTMP # ERRORS ESTABLISHED AND LIMITED
041722,000165: 17,2316 55575 TS PERRB
041723,000166: 17,2317 31665 CA ERRBTMP +1
041724,000167: 17,2320 55577 TS YERRB
041725,000168:
041726,000169: 17,2321 41501 NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
|
|
Page 946 |
041728,000171: 17,2322 74766 MASK BIT3 # TO NEEDLER. WILL CLEAR FOR TVC DAP
041729,000172: 17,2323 27501 ADS RCSFLAGS # (RETURNS AFTER CADR)
041730,000173: 17,2324 04714 TC IBNKCALL
041731,000174: 17,2325 42425 CADR NEEDLER
041732,000175:
041733,000176: 17,2326 34772 TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
041734,000177: 17,2327 55635 TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
041735,000178: # (POSSIBLE TVC-RESTART ENTRY)
041736,000179:
041737,000180: 17,2330 30032 CAE CDUX # PREPARE ROLL DAP
041738,000181: 17,2331 55645 TS OGANOW
041739,000182:
041740,000183: 17,2332 32524 CAF NZERO # CALL TVCEXECUTIVE IN 0.51 SEC
041741,000184: 17,2333 05233 TC WAITLIST
041742,000185: 17,2334 E6,1446 EBANK= CNTR
041743,000186: 17,2334 03037 34066 2CADR TVCEXEC
041744,000187:
041745,000188:
041746,000189: 17,2336 00006 EXTEND # CALL FOR DAPINIT
041747,000190: 17,2337 32536 DCA DAPINIT5
041748,000191: 17,2340 52113 DXCH T5LOC
041749,000192: 17,2341 31625 CAE T5TVCDT # (ALLOW TIME FOR RESTART COMPUTATIONS)
041750,000193: 17,2342 54030 TS TIME5
041751,000194:
041752,000195: 17,2343 15323 ENDTVCIN TCF RESUME
041753,000196:
041754,000197:
041755,000198: 17,2344 00004 SWICHOVR INHINT
041756,000199: 17,2345 31635 CA TVCPHASE # SAVE TVCPHASE
041757,000200: 17,2346 55611 TS PHASETMP
041758,000201: 17,2347 44767 CS BIT2 # SET TVCPHASE = -2 (INDICATES SWITCH-OVER
041759,000202: 17,2350 55635 TS TVCPHASE # TO RESTART LOGIC)
041760,000203:
041761,000204: 17,2351 00006 +5 EXTEND # SAVE Q FOR RETURN (RESTART ENTRY POINT,
041762,000205: 17,2352 23613 QXCH RTRNLOC # TVCPHASE AND PHASETMP ALREADY SET)
041763,000206:
041764,000207: 17,2353 32525 CAF NZEROJR # ZEROING LOOP FOR FILTER STORAGE LOCS
041765,000208: 17,2354 55661 +8 TS CNTRTMP
041766,000209:
041767,000210: 17,2355 34772 MCLEANJR CA ZERO
041768,000211: 17,2356 54001 TS L
041769,000212: 17,2357 51661 INDEX CNTRTMP
041770,000213: 17,2360 53541 DXCH PTMP1 -1
041771,000214: 17,2361 11661 CCS CNTRTMP
041772,000215: 17,2362 10000 CCS A
041773,000216: 17,2363 12354 TCF SWICHOVR +8D
041774,000217:
041775,000218: 17,2364 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
041776,000219: 17,2365 74752 MASK SWTOVBIT
|
|
Page 947 |
041778,000221: 17,2366 26105 ADS FLAGWRD9
041779,000222:
041780,000223: 17,2367 31420 CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
041781,000224: 17,2370 55630 TS KTLX/I
041782,000225: 17,2371 02461 TCR S40.15 +7
041783,000226:
041784,000227: 17,2372 32532 CAF FKPRIMDT # - STEERING
041785,000228: 17,2373 55626 TS KPRIMEDT
041786,000229:
041787,000230: 17,2374 32533 CAF FREPFRAC # - TMC LOOP
041788,000231: 17,2375 55633 TS REPFRAC
041789,000232:
041790,000233: 17,2376 00006 EXTEND # UPDATE TRIM ESTIMATES
041791,000234: 17,2377 31602 DCA DELPBAR
041792,000235: 17,2400 53606 DXCH PDELOFF
041793,000236: 17,2401 00006 EXTEND
041794,000237: 17,2402 31604 DCA DELYBAR
041795,000238: 17,2403 53610 DXCH YDELOFF
041796,000239:
041797,000240: 17,2404 32523 CA LBCFADR
041798,000241: 17,2405 55704 TS COEFFADR
041799,000242: 17,2406 02412 TC LOADCOEF
041800,000243:
041801,000244: 17,2407 31611 CAE PHASETMP # RESTORE TVCPHASE
041802,000245: 17,2410 55635 TS TVCPHASE
041803,000246:
041804,000247: 17,2411 01613 TC RTRNLOC # BACK TO PRESWTCH OR TVCRESTARTS
041805,000248:
041806,000249:
041807,000250: 17,2412 00006 LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
041808,000251: 17,2413 51704 INDEX COEFFADR # FROM: ERASABLE FOR CSM/LM HB
041809,000252: 17,2414 30001 DCA 0 # FIXED FOR CSM/LM LB
041810,000253: 17,2415 53706 DXCH N10 # FIXED FOR CSM
041811,000254:
041812,000255: 17,2416 00006 EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
041813,000256: 17,2417 51704 INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
041814,000257: 17,2420 30003 DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
041815,000258: 17,2421 53710 DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
041816,000259: # COEFFICIENTS FROM FIXED MEMORY.
041817,000260:
041818,000261: 17,2422 00006 EXTEND
041819,000262: 17,2423 51704 INDEX COEFFADR
041820,000263: 17,2424 30005 DCA 4
041821,000264: 17,2425 53712 DXCH N10 +4
041822,000265:
041823,000266: 17,2426 00006 EXTEND
041824,000267: 17,2427 51704 INDEX COEFFADR
041825,000268: 17,2430 30007 DCA 6
041826,000269: 17,2431 53714 DXCH N10 +6
|
|
Page 948 |
041828,000271: 17,2432 00006 EXTEND
041829,000272: 17,2433 51704 INDEX COEFFADR
041830,000273: 17,2434 30011 DCA 8D
041831,000274: 17,2435 53716 DXCH N10 +8D
041832,000275:
041833,000276: 17,2436 00006 EXTEND
041834,000277: 17,2437 51704 INDEX COEFFADR
041835,000278: 17,2440 30013 DCA 10D
041836,000279: 17,2441 53720 DXCH N10 +10D
041837,000280:
041838,000281: 17,2442 00006 EXTEND
041839,000282: 17,2443 51704 INDEX COEFFADR
041840,000283: 17,2444 30015 DCA 12D
041841,000284: 17,2445 53722 DXCH N10 +12D
041842,000285:
041843,000286: 17,2446 51704 INDEX COEFFADR
041844,000287: 17,2447 30016 CA 14D
041845,000288: 17,2450 55723 TS N10 +14D
041846,000289:
041847,000290: 17,2451 00002 TC Q
041848,000291:
041849,000292: 17,2452 31467 S40.15 CAE IXX # GAIN COMPUTATIONS (1/CONACC, VARK)
041850,000293: 17,2453 00006 EXTEND # ENTERED FROM TVCINITIALIZE AND TVCEXEC
041851,000294: 17,2454 72534 MP 2PI/M # 2PI/M SCALED 1/(B+8 N M)
041852,000295: 17,2455 20001 DDOUBL # IXX SCALED B+20 KG-MSQ
041853,000296: 17,2456 20001 DDOUBL
041854,000297: 17,2457 20001 DDOUBL
041855,000298: 17,2460 55631 TS 1/CONACC # SCALED B+9 SEC-SQ/REV
041856,000299:
041857,000300: # ENTRY FROM CSM/LM V46 SWITCHOVER
041858,000301: 17,2461 31630 +7 CAE KTLX/I # SCALED (1.08 B+2) 1/SECSQ CSM/LM
041859,000302: 17,2462 00006 EXTEND # ( " B+4) CSM
041860,000303: 17,2463 71471 MP IAVG/TLX # SCALED B+2 SECSQ
041861,000304: 17,2464 20001 DDOUBL
041862,000305: 17,2465 20001 DDOUBL
041863,000306: 17,2466 55632 TS VARK # SCALED (1.08 B+2) CSM/LM
041864,000307: 17,2467 00002 TC Q # ( " B+4) CSM
041865,000308:
041866,000309:
041867,000310: 17,2470 37777 CSMN10 DEC .99999 # N10 CSM ONLY FILTER COEFFICIENTS
041868,000311: 17,2471 67657 DEC -.2549 # N11/2
041869,000312: 17,2472 01703 DEC .0588 # N12
041870,000313: 17,2473 47472 DEC -.7620 # D11/2
041871,000314: 17,2474 27656 DEC .7450 # D12
041872,000315:
041873,000316: 17,2475 37777 DEC .99999 # N20
041874,000317: 17,2476 60361 DEC -.4852 # N21/2
041875,000318: 17,2477 00000 DEC 0 B-14 # N22
|
|
Page 949 |
041877,000320: 17,2500 67304 DEC -.2692 # D22/2
041878,000321: 17,2501 00000 DEC 0 B-14 # D22
041879,000322:
041880,000323: 17,2502 37777 LBN10 DEC +.99999 # N10 LOW BANDWIDTH FILTER COEFFICIENTS
041881,000324: 17,2503 65371 DEC -.3285 # N11/2
041882,000325: 17,2504 65337 DEC -.3301 # N12
041883,000326: 17,2505 42700 DEC -.9101 # D11/2
041884,000327: 17,2506 33045 DEC +.8460 # D12
041885,000328:
041886,000329: 17,2507 01000 DEC +.03125 # N20
041887,000330: 17,2510 00000 DEC 0 B-14 # N21/2
041888,000331: 17,2511 00000 DEC 0 B-14 # N22
041889,000332: 17,2512 42700 DEC -.9101 # D21/2
041890,000333: 17,2513 33045 DEC +.8460 # D22
041891,000334:
041892,000335: 17,2514 20000 DEC +.5000 # N30
041893,000336: 17,2515 60730 DEC -.47115 # N31/2
041894,000337: 17,2516 17145 DEC +.4749 # N32
041895,000338: 17,2517 41323 DEC -.9558 # D31/2
041896,000339: 17,2520 35773 DEC +.9372 # D32
041897,000340:
041898,000341:
041899,000342: 17,2521 02470 CSMCFADR GENADR CSMN10 # CSM ONLY COEFFICIENTS ADDRESS
041900,000343: 17,2522 01425 HBCFADR GENADR HBN10 # HIGH BANDWIDTH COEFFICIENTS ADDRESS
041901,000344: 17,2523 02502 LBCFADR GENADR LBN10 # LOW BANDWIDTH COEFFICIENTS ADDRESS
041902,000345:
041903,000346: 17,2524 00063 NZERO DEC 51 B-14 # MUST BE ODD FOR MRCLEAN
041904,000347: 17,2525 00027 NZEROJR DEC 23 B-14 # MUST BE ODD FOR MCLEANJR
041905,000348:
041906,000349: 17,2526 00210 ATTLIM DEC 0.00833 # INITIAL ATTITUDE ERROR LIMIT (1.5 DEG)
041907,000350: 17,2527 00170 1/ATTLIM DEC 0.007325 # .007325(ERROR) = 0 IF ERROR < 1.5 DEG
041908,000351:
041909,000352: 17,2530 00005 TCORR OCT 00005 # CSM
041910,000353: 17,2531 00000 +1 OCT 00000 # CSM/LM (HB,LB)
041911,000354:
041912,000355: 17,2532 00247 FKPRIMDT DEC .0102 # CSM/LM (LB), (.05 X .08) SCALED AT PI/8
041913,000356: 17,2533 00232 FREPFRAC DEC .0375 B-2 # CSM/LM (LB), 0.0375 SCALED AT B+2
041914,000357:
041915,000358: 17,2534 4351 NINETEEN = VD1
041916,000359: 17,2534 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SCALED AT 1/(B+8 N-M)
041917,000360:
041918,000361: 17,2535 E6,1446 EBANK= CNTR
041919,000362: 17,2535 03227 40066 DAPINIT5 2CADR DAPINIT
041920,000363:
041921,000364:
041922,000365: 17,2537 E6,1446 EBANK= CNTR
041923,000366: 17,2537 02205 36066 INITLOC2 2CADR TVCINIT1
End of include-file TVCINITIALIZE.agc. Parent file is MAIN.agc