Source Code

042532,000001: # Copyright: Public domain. 042533,000002: # Filename: TVCGEN3FILTERS.agc 042534,000003: # Purpose: Part of the source code for Colossus, build 249. 042535,000004: # It is part of the source code for the Command Module's (CM) 042536,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 042537,000006: # Assembler: yaYUL 042538,000007: # Reference: Starts on p. 965 of 1701.pdf. 042539,000008: # Contact: Ron Burkey <info@sandroid.org>. 042540,000009: # Website: www.ibiblio.org/apollo/index.html 042541,000010: # Mod history: 08/24/04 RSB. Began transcribing. 042542,000011: # 05/14/05 RSB Corrected website references above. 042543,000012: # 2010-10-25 JL Fixed page numbers. 042544,000013: 042545,000014: # The contents of the "Colossus249" files, in general, are transcribed 042546,000015: # from a scanned document obtained from MIT's website, 042547,000016: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 042548,000017: # document read, in part: 042549,000018: 042550,000019: # Assemble revision 249 of AGC program Colossus by NASA 042551,000020: # 2021111-041. October 28, 1968. 042552,000021: 042553,000022: # This AGC program shall also be referred to as 042554,000023: # Colossus 1A 042555,000024: 042556,000025: # Prepared by 042557,000026: # Massachusetts Institute of Technology 042558,000027: # 75 Cambridge Parkway 042559,000028: # Cambridge, Massachusetts 042560,000029: # under NASA contract NAS 9-4065. 042561,000030: 042562,000031: # Refer directly to the online document mentioned above for further information. 042563,000032: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 042564,000033: 042565,000034: # In some cases, where the source code for Luminary 131 overlaps that of 042566,000035: # Colossus 249, this code is instead copied from the corresponding Luminary 131 042567,000036: # source file, and then is proofed to incorporate any changes. 042568,000037: 042569,000038: # Page 965 042570,000039: # PROGRAM NAME.... GEN3DAP FILTERS, CONSISTING OF NP0NODE, NP1NODE, NY0NODE, NY1NODE, ETC. 042571,000040: # LOG SECTION.... GEN3DAP FILTERS SUBROUTINE....DAPCSM 042572,000041: # MOD BY ENGEL 20 OCT, 1967 042573,000042: 042574,000043: 042575,000044: # FUNCTIONAL DESCRIPTION.... 042576,000045: 042577,000046: # THE GEN3DAP FILTER PACKAGE IS DESIGNED TO PROVIDE FLEXIBLE, LAST-MINUTE CHANGEABLE DIGITAL AUTOPILOT 042578,000047: # FILTERS FOR LEM-OFF FLIGHT. GROUNDRULES FOR THE DESIGN AND USE OF THE PACKAGE ARE AS FOLLOWS..... 042579,000048: 042580,000049: # 1. FILTER COEFFICIENTS AND GAINS IN ERASABLE MEMORY 042581,000050: # 2. UP TO THIRD-ORDER NUMERATOR OR DENOMINATOR 042582,000051: # 3. OPERATIONAL FIT WITHIN THE STRUCTURE OF TEH REGULAR LEM-ON DAP CODING 042583,000052: # 4. DENOMINATOR POLES INSIDE THE Z-PLANE UNIT CIRCLE 042584,000053: # 5. NUMERATOR ZEROES INSIDE THE Z-PLANE DOUBLE-UNIT CIRCLE 042585,000054: # 6. HIGH FREQUENCY (BODE) GAIN LESS THAN 8ASCREVS, OR 8.6380088 DEG/DEG 042586,000055: 042587,000056: # THE FILTERS ARE SHOWN IN THE FOLLOWING DIAGRAMS..... 042588,000057: # PITCH GEN3DAP FILTER: 042589,000058: # KPGEN3 042590,000059: # ******** 042591,000060: # ***************************************** * 042592,000061: # * * * 042593,000062: # * -1 -2 -3 * * 042594,000063: # EP = ERRBTMP * APO + AP1 Z + AP2 Z + AP3 Z * NPO NP0 = CMDTMP ** 042595,000064: # *************** ----------------------------------- **********( X )********************* 042596,000065: # * -1 -2 -3 * ** 042597,000066: # * 1 + BP1 Z + BP2 Z + BP3 Z * 042598,000067: # * * 042599,000068: # ***************************************** 042600,000069: 042601,000070: # YAW GEN3DAP FILTER: 042602,000071: # KYGEN3 042603,000072: # ******** 042604,000073: # ***************************************** * 042605,000074: # * * * 042606,000075: # * -1 -2 -3 * * 042607,000076: # EY = ERRBTMP * AYO + AY1 Z + AY2 Z + AY3 Z * NYO NY0 = CMDTMP ** 042608,000077: # *************** ----------------------------------- **********( X )********************* 042609,000078: # * -1 -2 -3 * ** 042610,000079: # * 1 + BY1 Z + BY2 Z + BY3 Z * 042611,000080: # * * 042612,000081: # ***************************************** 042613,000082: 042614,000083: # Page 966 042615,000084: # THE IMPLEMENTING EQUATIONS FOR THESE FILTERS ARE AS FOLLOWS..... 042616,000085: 042617,000086: # PITCH GEN3DAP..... YAW GEN3DAP.... 042618,000087: # NPD = (B+4) KPGEN3 NP0 NYD = (B+4) KYGEN3 NY0 042619,000088: # NP0 = AP0 EP + 4(Z-1) NP1 NY0 = AY0 EY + 4(Z-1) NY1 042620,000089: # NP1 = AP1 EP - BP1 NP0 + (Z-1) NP2 NY1 = AY1 EY - BY1 NY0 + (Z-1) NY2 042621,000090: # NP2 = AP3 EP - BP2 NP0 + (Z-1) NP3 NY2 = AY2 EY - BY2 NY0 + (Z-1) NY3 042622,000091: # NP3 = AP3 EP - BP3 NP0 NY3 = AY3 EY - BY3 NY0 042623,000092: 042624,000093: # FILTER INPUTS EP AND EY ARE PICKED UP FROM REGULAR LEM-ON CODING AT ERRBTMP (UPPER WORD ONLY), THUS ARE 042625,000094: # SINGLE PRECISION QUANTITIES SCALED AT B-1 REVS. FILTER OUTPUTS NPD AND NYD ARE LEFT IN DOUBLE PRECISION AT 042626,000095: # CMDTMP, SCALED AT 1 ASCREV, READY FOR OUTPUT PROCESSING VIA REGULAR LEM-ON CODING AT "P,YOFFSET" 042627,000096: # FOLLOWING OUTPUT PROCESSING, RETURN TO THE GEN3DAP FILTERS IS MADE FOR CALCULATION OF THE REMAINING NODES 042628,000097: # NP1 TO NP3, OR NY1 TO NY3. GEN3DAP FILTERS THEN RETURN TOTHE LEM-ON CODING AT "DELBARP,Y" FOR RESPECTIVE 042629,000098: # OFFSET-TRACKER-FILTER COMPUTATIONS AND COPYCYCLES. NOTE THE EQUIVALENCES...NP1TMP=J5TMP, NP1=J5, 042630,000099: # NP2TMP=NSUMTMP, NPT2=PNSUM, NP3TMP=DSUMTMP, NP3=PDSUM, WITH CORRESPONDING RELATIONS FOR YAW. THUS THE COPY- 042631,000100: # CYCLE PCOPY, FROM THE GEN3DAP STANDPOINT, IS EFFECTIVE FROM PMISC-3 TO ITS END AT TC Q. YCOPY FROM YMISC-3. 042632,000101: # SCALING OF THE FILTER NODES, COEFFICIENTS, AND GAINS WITHIN THE AGS IS AS FOLLOWS..... 042633,000102: 042634,000103: # QUANTITY QUANTITY PHYS. UNITS MAX. VALUE SCALE AT (FOR) 042635,000104: 042636,000105: # EP EY REVS 1/8 B-1 REV (CDU SCALING) 042637,000106: # 042638,000107: # NP0 NY0 REVS (B+1) B+1 REV 042639,000108: # NP1 NY1 REVS (B+3) B+3 REV 042640,000109: # NP2 NY2 REVS (B+3) B+3 REV 042641,000110: # NP3 NY3 REVS (B+3) B+3 REV 042642,000111: 042643,000112: # NPD NYD ASC REVS (1) 1 ASCREV (ACTUATOR CDU SCALING) 042644,000113: # 042645,000114: # KPGEN3 KYGEN3 ASCREV/REV (8) B+3 ASCREV/REV 042646,000115: 042647,000116: # AP0 AY0 DIMLESS. 1 B+2 042648,000117: # AP1 AY1 DIMLESS. 6 B+4 042649,000118: # AP2 AY2 DIMLESS. 12 B+4 042650,000119: # AP3 AY3 DIMLESS 8 B+4 042651,000120: 042652,000121: # BP1 BY1 DIMLESS. 3 B+2 042653,000122: # BP2 BY2 DIMLESS. 3 B+2 042654,000123: # BP3 BY3 DIMLESS. 1 B+2 042655,000124: 042656,000125: # FILTER COEFFICIENTS, GAINS, AND NODES ARE HELD IN DOUBLE PRECISION (ERASABLE) TO PERMIT CONSERVATIVE 042657,000126: # SCALING AND YET OFFSET TRUNCATION LOSSES. THIS APPEARS NECESSARY IF FILTER FLEXIBILITY IS TO BE MAINTAINED. 042658,000127: # COMPUTATION TIME IS NOT CRITICAL. 042659,000128: 042660,000129: # CALLING SEQUENCE.... 042661,000130: # 042662,000131: # *TC POSTJUMP.... 042663,000132: # CADR NP0NODE, NP1, NY0, NY1. SPECIFICALLY, FROM PITCHDAP OR YAWDAP 042664,000133: # (TVCDAP), AT P1FILJMP, P2FILJMP, Y1FILJMP, Y2FILJMP 042665,000134: 042666,000135: # NORMAL EXIT MODE.... 042667,000136: 042668,000137: # *TC POSTJUMP.... 042669,000138: # CADR (POFFSET, DELBARP), (YOFFSET, DELBARY). I.E., RETURNS TO 042670,000139: # PITCHDAP OR YAWDAP AT APPROPRIATE ENTRY POINT. 042671,000140: 042672,000141: # ALARM OR ABORT EXIT MODES....NONE 042673,000142: 042674,000143: # SUBROUTINES CALLED.... NONE 042675,000144: 042676,000145: # ERASABLE INITIALIZATION REQUIRED.... 042677,000146: 042678,000147: # *AP0(SP),AP1(DP),...AP3(DP), (PITCH AND YAW) NUMERATOR COEFFICIENTS 042679,000148: # (PAD LOADS) 042680,000149: 042681,000150: # *BP1(DP),...BP3(DP), (PITCH AND YAW) DENOMINATOR COEFFICIENTS 042682,000151: # (PAD LOADS) 042683,000152: 042684,000153: # *KPGEN3 (S40.15 OF R03) 042685,000154: 042686,000155: # OUTPUT.... 042687,000156: 042688,000157: # *CMDTMP (NPD, NYD) FOR OUTPUT PROCESSING BY PITCHDAP OR YAWDAP 042689,000158: 042690,000159: # *OTHER FILTER NODES 042691,000160: 042692,000161: # DEBRIS....TVC TEMPORARIES, SHAREABLE WITH RCS/ENTRY IN EBANK6 ONLY 042693,000162: 042694,000163: 21,2026 BANK 21 042695,000164: 17,2000 SETLOC DAPS4 042696,000165: 17,2000 BANK 042697,000166: 17,2213 E6,1742 EBANK= EP 042698,000167: 17,2213 COUNT* $$/GEN3 042699,000168: 042700,000169: # Page 967 042701,000170: # PITCH GEN3DAP FILTER..... 042702,000171: 042703,000172: 17,2213 00006 NP0NODE EXTEND # FORM NODE NP0....COLLECT (PAST NP1) 042704,000173: 17,2214 31564 DCA NP1 # (COMES HERE FROM REG. DAP CODING) 042705,000174: 17,2215 20001 DDOUBL 042706,000175: 17,2216 20001 DDOUBL 042707,000176: 17,2217 53562 DXCH NP0 042708,000177: 042709,000178: 17,2220 31742 AP0(EP) CAE EP # SPXSP MULTIPLY FOR NUMERATOR COMPONENT 042710,000179: 17,2221 00006 EXTEND # EP = ERRBTMP, SP, SC.AT B-1 REVS 042711,000180: 17,2222 71427 MP AP0 042712,000181: 17,2223 21562 DAS NP0 # COMPLETED NODE NP0, SC.AT B+1 REVS 042713,000182: 17,2224 31561 NPDNODE CAE NP0 # FORM NODE NPD....SPXDP MULTIPLY BY GAIN 042714,000183: 17,2225 00006 EXTEND 042715,000184: 17,2226 71651 MP KPGEN3 042716,000185: 17,2227 53745 DXCH NPD 042717,000186: 17,2230 31562 CAE NP0 +1 042718,000187: 17,2231 00006 EXTEND 042719,000188: 17,2232 71651 MP KPGEN3 042720,000189: 17,2233 22007 ZL 042721,000190: 17,2234 22000 LXCH A 042722,000191: 17,2235 21745 DAS NPD # SC.AT B+4 ASCREV SINCE KPGEN3 AT B+3 042723,000192: 042724,000193: 17,2236 53745 DXCH NPD # FIX UP SCALING 042725,000194: 17,2237 20001 DDOUBL 042726,000195: 17,2240 20001 DDOUBL 042727,000196: 17,2241 20001 DDOUBL 042728,000197: 17,2242 20001 DDOUBL 042729,000198: 17,2243 53745 DXCH NPD # COMPLETED NODE NPD, SC.AT 1ASCREV 042730,000199: 17,2244 04574 TC POSTJUMP # TRANSFER BACK TO REGULAR DAP CODING FOR 042731,000200: 17,2245 40441 CADR POFFSET # OUTPUT (NPD = CMDTMP, DP) 042732,000201: 17,2246 00006 NP1NODE EXTEND # FORM NODE NP1....COLLECT (PAST NP2) 042733,000202: 17,2247 31542 DCA NP2 # (COMES HERE FROM REG. DAP CODING) 042734,000203: 17,2250 53737 DXCH NP1TMP 042735,000204: 042736,000205: 17,2251 41561 BP1(NP0) CS NP0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT 042737,000206: 17,2252 00006 EXTEND 042738,000207: 17,2253 71436 MP BP1 042739,000208: 17,2254 21737 DAS NP1TMP 042740,000209: 17,2255 41562 CS NP0 +1 042741,000210: 17,2256 00006 EXTEND 042742,000211: 17,2257 71436 MP BP1 042743,000212: 17,2260 27737 ADS NP1TMP +1 042744,000213: 17,2261 54001 TS L 042745,000214: 17,2262 12264 TCF +2 042746,000215: 17,2263 27736 ADS NP1TMP 042747,000216: # Page 968 042748,000217: 17,2264 41561 CS NP0 042749,000218: 17,2265 00006 EXTEND 042750,000219: 17,2266 71437 MP BP1 +1 042751,000220: 17,2267 27737 ADS NP1TMP +1 042752,000221: 17,2270 54001 TS L 042753,000222: 17,2271 12273 TCF +2 042754,000223: 17,2272 27736 ADS NP1TMP 042755,000224: 042756,000225: 17,2273 31742 AP1(EP) CAE EP # DPXSP MULTIPLY FOR NUMERATOR COMPONENT 042757,000226: 17,2274 00006 EXTEND 042758,000227: 17,2275 71430 MP AP1 042759,000228: 17,2276 21737 DAS NP1TMP 042760,000229: 17,2277 31742 CAE EP 042761,000230: 17,2300 00006 EXTEND 042762,000231: 17,2301 71431 MP AP1 +1 042763,000232: 17,2302 27737 ADS NP1TMP +1 042764,000233: 17,2303 54001 TS L 042765,000234: 17,2304 12306 TCF +2 042766,000235: 17,2305 27736 ADS NP1TMP # COMPLETED NODE NP1 042767,000236: 042768,000237: 17,2306 00006 NP2NODE EXTEND # FORM NODE NP2....COLLECT (PAST NP3) 042769,000238: 17,2307 31544 DCA NP3 042770,000239: 17,2310 53712 DXCH NP2TMP 042771,000240: 17,2311 41561 BP2(NP0) CS NP0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT 042772,000241: 17,2312 00006 EXTEND 042773,000242: 17,2313 71440 MP BP2 042774,000243: 17,2314 21712 DAS NP2TMP 042775,000244: 17,2315 41562 CS NP0 +1 042776,000245: 17,2316 00006 EXTEND 042777,000246: 17,2317 71440 MP BP2 042778,000247: 17,2320 27712 ADS NP2TMP +1 042779,000248: 17,2321 54001 TS L 042780,000249: 17,2322 12324 TCF +2 042781,000250: 17,2323 27711 ADS NP2TMP 042782,000251: 17,2324 41561 CS NP0 042783,000252: 17,2325 00006 EXTEND 042784,000253: 17,2326 71441 MP BP2 +1 042785,000254: 17,2327 27712 ADS NP2TMP +1 042786,000255: 17,2330 54001 TS L 042787,000256: 17,2331 12333 TCF +2 042788,000257: 17,2332 27711 ADS NP2TMP 042789,000258: 042790,000259: 17,2333 31742 AP2(EP) CAE EP # DPXSP MULTIPLY FOR NUMERATOR COMPONENT 042791,000260: 17,2334 00006 EXTEND 042792,000261: 17,2335 71432 MP AP2 042793,000262: 17,2336 21712 DAS NP2TMP 042794,000263: 17,2337 31742 CAE EP 042795,000264: 17,2340 00006 EXTEND 042796,000265: 17,2341 71433 MP AP2 +1 042797,000266: 17,2342 27712 ADS NP2TMP +1 042798,000267: # Page 969 042799,000268: 17,2343 54001 TS L 042800,000269: 17,2344 12346 TCF +2 042801,000270: 17,2345 27711 ADS NP2TMP # COMPLETED NODE NP2 042802,000271: 042803,000272: 17,2346 41561 NP3NODE CS NP0 # FORM NODE NP3....NO PAST NODES, DIRECT 042804,000273: 17,2347 00006 EXTEND # DPXDP MULTIPLY FOR DENOMINATOR 042805,000274: 17,2350 71442 MP BP3 # COMPONENT 042806,000275: 17,2351 53714 DXCH NP3TMP 042807,000276: 17,2352 41562 CS NP0 +1 042808,000277: 17,2353 00006 EXTEND 042809,000278: 17,2354 71442 MP BP3 042810,000279: 17,2355 27714 ADS NP3TMP +1 042811,000280: 17,2356 54001 TS L 042812,000281: 17,2357 12361 TCF +2 042813,000282: 17,2360 27713 ADS NP3TMP 042814,000283: 17,2361 41561 CS NP0 042815,000284: 17,2362 00006 EXTEND 042816,000285: 17,2363 71443 MP BP3 +1 042817,000286: 17,2364 27714 ADS NP3TMP +1 042818,000287: 17,2365 54001 TS L 042819,000288: 17,2366 12370 TCF +2 042820,000289: 17,2367 27713 ADS NP3TMP 042821,000290: 042822,000291: 17,2370 31742 AP3(EP) CAE EP # DPXSP MULTIPLY FOR NUMERATOR COMPONENT 042823,000292: 17,2371 00006 EXTEND 042824,000293: 17,2372 71434 MP AP3 042825,000294: 17,2373 21714 DAS NP3TMP 042826,000295: 17,2374 31742 CAE EP 042827,000296: 17,2375 00006 EXTEND 042828,000297: 17,2376 71435 MP AP3 +1 042829,000298: 17,2377 27714 ADS NP3TMP +1 042830,000299: 17,2400 54001 TS L 042831,000300: 17,2401 12403 TCF +2 042832,000301: 17,2402 27713 ADS NP3TMP # COMPLETED NODE NP3, AND PITCH GEN3DAP 042833,000302: # FILTER COMPUTATIONS 042834,000303: 17,2403 04574 TC POSTJUMP # RETURN TO CSMDAP CODING FOR PITCH 042835,000304: 17,2404 40526 CADR DELBARP # OFFSET-TRACKER-FILTER COMPUTATIONS, 042836,000305: # AND PITCH DAP COPYCYCLE. 042837,000306: 042838,000307: # Page 970 042839,000308: # YAW GEN3DAP FILTER 042840,000309: 042841,000310: 17,2405 00006 NY0NODE EXTEND # FORM NODE NY0....COLLECT (PAST NY1) 042842,000311: 17,2406 31610 DCA NY1 # (COMES HERE FROM REG. DAP CODING) 042843,000312: 17,2407 20001 DDOUBL 042844,000313: 17,2410 20001 DDOUBL 042845,000314: 17,2411 53606 DXCH NY0 042846,000315: 042847,000316: 17,2412 31742 AY0(EY) CAE EY # SPXSP MULTIPLY FOR NUMERATOR COMPONENT 042848,000317: 17,2413 00006 EXTEND # EY = ERRBTMP, SP, SC.AT B-1 REVS 042849,000318: 17,2414 71427 MP AY0 042850,000319: 17,2415 21606 DAS NY0 # COMPLETED NODE NY0, SC.AT B+1 REVS 042851,000320: 17,2416 31605 NYDNODE CAE NY0 # FORM NODE NYD....SPXDP MULTIPLY BY GAIN 042852,000321: 17,2417 00006 EXTEND 042853,000322: 17,2420 71651 MP KYGEN3 042854,000323: 17,2421 53745 DXCH NYD 042855,000324: 17,2422 31606 CAE NY0 +1 042856,000325: 17,2423 00006 EXTEND 042857,000326: 17,2424 71651 MP KYGEN3 042858,000327: 17,2425 22007 ZL 042859,000328: 17,2426 22000 LXCH A 042860,000329: 17,2427 21745 DAS NYD # SC.AT B+4 ASCREV SINCE KYGEN3 AT B+1 042861,000330: 042862,000331: 17,2430 53745 DXCH NYD # FIX UP SCALING 042863,000332: 17,2431 20001 DDOUBL 042864,000333: 17,2432 20001 DDOUBL 042865,000334: 17,2433 20001 DDOUBL 042866,000335: 17,2434 20001 DDOUBL 042867,000336: 17,2435 53745 DXCH NYD # COMPLETED NODE NYD, SC.AT 1ASCREV 042868,000337: 17,2436 04574 TC POSTJUMP # TRANSFER BACK TO REGULAR DAP CODING FOR 042869,000338: 17,2437 40730 CADR YOFFSET # OUTPUT (NYD = CMDTMP, DP) 042870,000339: 17,2440 00006 NY1NODE EXTEND # FORM NODE NY1....COLLECT (PAST NY2) 042871,000340: 17,2441 31566 DCA NY2 # (COMES HERE FROM REG. DAP CODING) 042872,000341: 17,2442 53737 DXCH NY1TMP 042873,000342: 042874,000343: 17,2443 41605 BY1(NY0) CS NY0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT 042875,000344: 17,2444 00006 EXTEND 042876,000345: 17,2445 71436 MP BY1 042877,000346: 17,2446 21737 DAS NY1TMP 042878,000347: 17,2447 41606 CS NY0 +1 042879,000348: 17,2450 00006 EXTEND 042880,000349: 17,2451 71436 MP BY1 042881,000350: 17,2452 27737 ADS NY1TMP +1 042882,000351: 17,2453 54001 TS L 042883,000352: 17,2454 12456 TCF +2 042884,000353: 17,2455 27736 ADS NY1TMP 042885,000354: # Page 971 042886,000355: 17,2456 41605 CS NY0 042887,000356: 17,2457 00006 EXTEND 042888,000357: 17,2460 71437 MP BY1 +1 042889,000358: 17,2461 27737 ADS NY1TMP +1 042890,000359: 17,2462 54001 TS L 042891,000360: 17,2463 12465 TCF +2 042892,000361: 17,2464 27736 ADS NY1TMP 042893,000362: 042894,000363: 17,2465 31742 AY1(EY) CAE EY # DPXSP MULTIPLY FOR NUMERATOR COMPONENT 042895,000364: 17,2466 00006 EXTEND 042896,000365: 17,2467 71430 MP AY1 042897,000366: 17,2470 21737 DAS NY1TMP 042898,000367: 17,2471 31742 CAE EY 042899,000368: 17,2472 00006 EXTEND 042900,000369: 17,2473 71431 MP AY1 +1 042901,000370: 17,2474 27737 ADS NY1TMP +1 042902,000371: 17,2475 54001 TS L 042903,000372: 17,2476 12500 TCF +2 042904,000373: 17,2477 27736 ADS NY1TMP # COMPLETED NODE NY1 042905,000374: 042906,000375: 17,2500 00006 NY2NODE EXTEND # DORM NODE NY2....COLLECT (PAST NY3) 042907,000376: 17,2501 31570 DCA NY3 042908,000377: 17,2502 53712 DXCH NY2TMP 042909,000378: 042910,000379: 17,2503 41605 BY2(NY0) CS NY0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT 042911,000380: 17,2504 00006 EXTEND 042912,000381: 17,2505 71440 MP BY2 042913,000382: 17,2506 21712 DAS NY2TMP 042914,000383: 17,2507 41606 CS NY0 +1 042915,000384: 17,2510 00006 EXTEND 042916,000385: 17,2511 71440 MP BY2 042917,000386: 17,2512 27712 ADS NY2TMP +1 042918,000387: 17,2513 54001 TS L 042919,000388: 17,2514 12516 TCF +2 042920,000389: 17,2515 27711 ADS NY2TMP 042921,000390: 17,2516 41605 CS NY0 042922,000391: 17,2517 00006 EXTEND 042923,000392: 17,2520 71441 MP BY2 +1 042924,000393: 17,2521 27712 ADS NY2TMP +1 042925,000394: 17,2522 54001 TS L 042926,000395: 17,2523 12525 TCF +2 042927,000396: 17,2524 27711 ADS NY2TMP 042928,000397: 042929,000398: 17,2525 31742 AY2(EY) CAE EY # DPXSP MULTIPLY FOR NUMERATOR COMPONENT 042930,000399: 17,2526 00006 EXTEND 042931,000400: 17,2527 71432 MP AY2 042932,000401: 17,2530 21712 DAS NY2TMP 042933,000402: 17,2531 31742 CAE EY 042934,000403: 17,2532 00006 EXTEND 042935,000404: 17,2533 71433 MP AY2 +1 042936,000405: # Page 972 042937,000406: 17,2534 27712 ADS NY2TMP +1 042938,000407: 17,2535 54001 TS L 042939,000408: 17,2536 12540 TCF +2 042940,000409: 17,2537 27711 ADS NY2TMP # COMPLETED NODE NY2 042941,000410: 042942,000411: 17,2540 41605 NY3NODE CS NY0 # FORM NODE NY3....NO PAST NODES, DIRECT 042943,000412: 17,2541 00006 EXTEND # TO DPXDP MULTIPLY FOR DENOMINATOR 042944,000413: 17,2542 71442 MP BY3 # COMPONENT 042945,000414: 17,2543 53714 DXCH NY3TMP 042946,000415: 17,2544 41606 CS NY0 +1 042947,000416: 17,2545 00006 EXTEND 042948,000417: 17,2546 71442 MP BY3 042949,000418: 17,2547 27714 ADS NY3TMP +1 042950,000419: 17,2550 54001 TS L 042951,000420: 17,2551 12553 TCF +2 042952,000421: 17,2552 27713 ADS NY3TMP 042953,000422: 17,2553 41605 CS NY0 042954,000423: 17,2554 00006 EXTEND 042955,000424: 17,2555 71443 MP BY3 +1 042956,000425: 17,2556 27714 ADS NY3TMP +1 042957,000426: 17,2557 54001 TS L 042958,000427: 17,2560 12562 TCF +2 042959,000428: 17,2561 27713 ADS NY3TMP 042960,000429: 042961,000430: 17,2562 31742 AY3(EY) CAE EY # DPXSP MULTIPLY FOR NUMERATOR COMPONENT 042962,000431: 17,2563 00006 EXTEND 042963,000432: 17,2564 71434 MP AY3 042964,000433: 17,2565 21714 DAS NY3TMP 042965,000434: 17,2566 31742 CAE EY 042966,000435: 17,2567 00006 EXTEND 042967,000436: 17,2570 71435 MP AY3 +1 042968,000437: 17,2571 27714 ADS NY3TMP +1 042969,000438: 17,2572 54001 TS L 042970,000439: 17,2573 12575 TCF +2 042971,000440: 17,2574 27713 ADS NY3TMP # COMPLETED NODE NY3, AND YAW GEN3DAP 042972,000441: # FILTER COMPUTATIONS 042973,000442: 17,2575 04574 TC POSTJUMP # RETURN TO CSMDAP CODING FOR YAW 042974,000443: 17,2576 41015 CADR DELBARY # OFFSET-TRACKER-FILTER COMPUTATIONS, 042975,000444: # AND YAW DAP COPYCYCLE. 042976,000445: 042977,000446: End of include-file TVCGEN3FILTERS.agc. Parent file is MAIN.agc