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