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