Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

041539,000002:                                                                                                 #  Copyright:    Public domain.
041540,000003:                                                                                                 #  Filename:      TVCGEN3FILTERS.agc
041541,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
041542,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
041543,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
041544,000007:                                                                                                 #  Assembler:    yaYUL
041545,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
041546,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
041547,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
041548,000011:                                                                                                 #  Mod history:  2011-03-12 JL    Adapted from corresponding Colossus 249 file.
041549,000012: 
041550,000013:                                                                                                 # # Page 958
041551,000014:                                                                                                 #  PROGRAM NAME.... GEN3DAP FILTERS, CONSISTING OF NP0NODE, NP1NODE, NY0NODE, NY1NODE, ETC.
041552,000015:                                                                                                 #  LOG SECTION.... GEN3DAP FILTERS   SUBROUTINE....DAPCSM
041553,000016:                                                                                                 #  MOD BY ENGEL                      20 OCT, 1967
041554,000017: 
041555,000018:                                                                                                 #  FUNCTIONAL DESCRIPTION....
041556,000019: 
041557,000020:                                                                                                 #       THE GEN3DAP FILTER PACKAGE IS DESIGNED TO PROVIDE FLEXIBLE, LAST-MINUTE CHANGEABLE DIGITAL AUTOPILOT
041558,000021:                                                                                                 #  FILTERS FOR LEM-OFF FLIGHT.  GROUNDRULES FOR THE DESIGN AND USE OF THE PACKAGE ARE AS FOLLOWS.....
041559,000022: 
041560,000023:                                                                                                 #       1. FILTER COEFFICIENTS AND GAINS IN ERASABLE MEMORY
041561,000024:                                                                                                 #       2. UP TO THIRD-ORDER NUMERATOR OR DENOMINATOR
041562,000025:                                                                                                 #       3. OPERATIONAL FIT WITHIN THE STRUCTURE OF TEH REGULAR LEM-ON DAP CODING
041563,000026:                                                                                                 #       4. DENOMINATOR POLES INSIDE THE Z-PLANE UNIT CIRCLE
041564,000027:                                                                                                 #       5. NUMERATOR ZEROES INSIDE THE Z-PLANE DOUBLE-UNIT CIRCLE
041565,000028:                                                                                                 #       6. HIGH FREQUENCY (BODE) GAIN LESS THAN 8ASCREVS, OR 8.6380088 DEG/DEG
041566,000029: 
041567,000030:                                                                                                 #  THE FILTERS ARE SHOWN IN THE FOLLOWING DIAGRAMS.....
041568,000031: 
041569,000032: 
041570,000033:                                                                                                 #  PITCH GEN3DAP FILTER..
041571,000034: 
041572,000035:                                                                                                 #                                                                   KPGEN3
041573,000036:                                                                                                 #                                                                  ********
041574,000037:                                                                                                 #                     *****************************************           *
041575,000038:                                                                                                 #                     *                                       *           *
041576,000039:                                                                                                 #                     *              -1        -2        -3   *           *
041577,000040:                                                                                                 #        EP = ERRBTMP *    AP0 + AP1 Z   + AP2 Z   + AP3 Z     *   NP0          NPD = CMDTMP  **
041578,000041:                                                                                                 #       ***************  -----------------------------------  **********( X )*********************
041579,000042:                                                                                                 #                     *              -1        -2        -3   *                               **
041580,000043:                                                                                                 #                     *    1  + BP1 Z   + BP2 Z   + BP3 Z     *
041581,000044:                                                                                                 #                     *                                       *
041582,000045:                                                                                                 #                     *****************************************
041583,000046: 
041584,000047: 
041585,000048:                                                                                                 #  YAW GEN3DAP FILTER..
041586,000049: 
041587,000050:                                                                                                 #                                                                 KYGEN3
041588,000051:                                                                                                 #                                                                ********
041589,000052:                                                                                                 #                    *****************************************           *
041590,000053:                                                                                                 #                    *                                       *           *
041591,000054:                                                                                                 #                    *              -1        -2        -3   *           *
041592,000055:                                                                                                 #       EY = ERRBTMP *    AY0 + AY1 Z   + AY2 Z   + AY3 Z     *   NY0          NYP = CMDTMP  **
041593,000056:                                                                                                 #      ***************  -----------------------------------  **********( X )*********************
041594,000057:                                                                                                 #                    *              -1        -2        -3   *                               **
041595,000058:                                                                                                 #                    *    1  + BY1 Z   + BY2 Z   + BY3 Z     *
041596,000059:                                                                                                 #                    *                                       *
041597,000060:                                                                                                 #                    *****************************************
041598,000061: 
041599,000062:                                                                                                 # # Page 959
041600,000063:                                                                                                 #  THE IMPLEMENTING EQUATIONS FOR THESE FILTERS ARE AS FOLLOWS.....
041601,000064: 
041602,000065:                                                                                                 #       PITCH GEN3DAP....                                 YAW GEN3DAP....
041603,000066:                                                                                                 #           NPD = (B+4) KPGEN3 NP0                            NYD = (B+4) KYGEN3 NY0
041604,000067:                                                                                                 #           NP0 = AP0 EP            +4(Z-1) NP1                NY0 = AY0 EY           +4(Z-1) NY1
041605,000068:                                                                                                 #           NP1 = AP1 EP - BP1 NP0 + (Z-1) NP2                NY1 = AY1 EY - BY1 NY0 + (Z-1) NY2
041606,000069:                                                                                                 #           NP2 = AP3 EP - BP2 NP0 + (Z-1) NP3                NY2 = AY2 EY - BY2 NY0 + (Z-1) NY3
041607,000070:                                                                                                 #           NP3 = AP3 EP - BP3 NP0                            NY3 = AY3 EY - BY3 NY0
041608,000071: 
041609,000072: 
041610,000073:                                                                                                 #       FILTER INPUTS EP AND EY ARE PICKED UP FROM REGULAR LEM-ON CODING AT ERRBTMP  (UPPER WORD ONLY),  THUS ARE
041611,000074:                                                                                                 #  SINGLE PRECISION QUANTITIES SCALED AT B-1 REVS. FILTER OUTPUTS NPD AND NYD ARE LEFT IN DOUBLE PRECISION AT
041612,000075:                                                                                                 #  CMDTMP, SCALED AT 1 ASCREV, READY FOR OUTPUT PROCESSING VIA REGULAR LEM-ON CODING AT ..P,YOFFSET..
041613,000076:                                                                                                 #  FOLLOWING OUTPUT PROCESSING, RETURN TO THE GEN3DAP FILTERS IS MADE FOR CALCULATION OF THE REMAINING NODES
041614,000077:                                                                                                 #  NP1 TO NP3, OR NY1 TO NY3.  GEN3DAP FILTERS THEN RETURN TO THE LEM-ON CODING AT  ..DELBARP,Y..   FOR RESPECTIVE
041615,000078:                                                                                                 #  OFFSET-TRACKER-FILTER COMPUTATIONS AND COPYCYCLES. NOTE THE EQUIVALENCES...NP1TMP=J5TMP, NP1=J5,
041616,000079:                                                                                                 #  NP2TMP=NSUMTMP, NP2=PNSUM, NP3TMP=DSUMTMP, NP3=PDSUM, WITH CORRESPONDING RELATIONS FOR YAW.  THUS THE COPY-
041617,000080:                                                                                                 #  CYCLE  PCOPY, FROM THE GEN3DAP STANDPOINT, IS EFFECTIVE FROM PMISC-3 TO ITS END AT TC Q.  YCOPY FROM YMISC-3.
041618,000081: 
041619,000082: 
041620,000083:                                                                                                 #  SCALING OF THE FILTER NODES, COEFFICIENTS, AND GAINS WITHIN THE AGC IS AS FOLLOWS.....
041621,000084: 
041622,000085:                                                                                                 #           QUANTITY   QUANTITY      PHYS.UNITS     MAX.VALUE      SCALE AT (FOR)
041623,000086: 
041624,000087:                                                                                                 #           EP         EY            REVS              1/8           B-1 REV           (CDU SCALING)
041625,000088: 
041626,000089:                                                                                                 #           NP0        NY0           REVS             (B+1)          B+1 REV
041627,000090:                                                                                                 #           NP1        NY1           REVS             (B+3)          B+3 REV
041628,000091:                                                                                                 #           NP2        NY2           REVS             (B+3)          B+3 REV
041629,000092:                                                                                                 #           NP3        NY3           REVS             (B+3)          B+3 REV
041630,000093: 
041631,000094:                                                                                                 #           NPD        NYD         ASC REVS            (1)           1 ASCREV          (ACTUATOR CDU SCALING)
041632,000095: 
041633,000096:                                                                                                 #           KPGEN3     KYGEN3     ASCREV/REV           (8)         B+3 ASCREV/REV
041634,000097: 
041635,000098:                                                                                                 #           AP0        AY0         DIMLESS.             1              B+2
041636,000099:                                                                                                 #           AP1        AY1         DIMLESS.             6              B+4
041637,000100:                                                                                                 #           AP2        AY2         DIMLESS.             12             B+4
041638,000101:                                                                                                 #           AP3        AY3         DIMLESS.             8              B+4
041639,000102: 
041640,000103:                                                                                                 #           BP1        BY1         DIMLESS.             3              B+2
041641,000104:                                                                                                 #           BP2        BY2         DIMLESS.             3              B+2
041642,000105:                                                                                                 #           BP3        BY3         DIMLESS.             1              B+2
041643,000106: 
041644,000107:                                                                                                 #  FILTER COEFFICIENTS, GAINS, AND NODES ARE HELD IN DOUBLE PRECISION (ERASABLE) TO PERMIT CONSERVATIVE
041645,000108:                                                                                                 #  SCALING AND YET OFFSET TRUNCATION LOSSES.  THIS APPEARS NECESSARY IF FILTER FLEXIBILITY IS TO BE MAINTAINED.
041646,000109:                                                                                                 #  COMPUTATION TIME IS NOT CRITICAL.
041647,000110: 
041648,000111:                                                                                                 # # Page 960
041649,000112:                                                                                                 #  CALLING SEQUENCE....
041650,000113: 
041651,000114:                                                                                                 #      *TC POSTJUMP....
041652,000115:                                                                                                 #       CADR NP0NODE, NP1, NY0, NY1.  SPECIFICALLY, FROM PITCHDAP OR YAWDAP
041653,000116:                                                                                                 #       (TVCDAP),AT P1FILJMP, P2FILJMP, Y1FILJMP, Y2FILJMP
041654,000117: 
041655,000118:                                                                                                 #  NORMAL EXIT MODE....
041656,000119: 
041657,000120:                                                                                                 #      *TC POSTJUMP....
041658,000121:                                                                                                 #       CADR  (POFFSET, DELBARP), (YOFFSET, DELBARY).     IE, RETURNS TO
041659,000122:                                                                                                 #       PITCHDAP OR YAWDAP AT APPROPRIATE ENTRY POINT
041660,000123: 
041661,000124:                                                                                                 #  ALARM OR ABORT EXIT MODES....NONE
041662,000125: 
041663,000126:                                                                                                 #  SUBROUTINES CALLED.... NONE
041664,000127: 
041665,000128:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED....
041666,000129: 
041667,000130:                                                                                                 #      *AP0(SP),AP1(DP),...AP3(DP), (PITCH AND YAW) NUMERATOR COEFFICIENTS
041668,000131:                                                                                                 #       (PAD LOADS)
041669,000132:                                                                                                 #      *BP1(DP),...BP3(DP), (PITCH AND YAW) DENOMINATOR COEFFICIENTS
041670,000133:                                                                                                 #       (PAD LOADS)
041671,000134:                                                                                                 #      *KPGEN3 (S40.15 OF R03)
041672,000135: 
041673,000136:                                                                                                 #  OUTPUT....
041674,000137: 
041675,000138:                                                                                                 #      *CMDTMP (NPD, NYD) FOR OUTPUT PROCESSING BY PITCHDAP OR YAWDAP
041676,000139:                                                                                                 #      *OTHER FILTER NODES
041677,000140: 
041678,000141:                                                                                                 #  DEBRIS....TVC TEMPORARIES, SHAREABLE WITH RCS/ENTRY IN EBANK6 ONLY
041679,000142: 
041680,000143: 
041681,000144: 21,2026                                          BANK     21                                    
041682,000145: 17,2000                                          SETLOC   DAPS4                                 
041683,000146: 17,2000                                          BANK                                           
041684,000147: 17,2215  E6,1742                                 EBANK=   EP                                    
041685,000148: 17,2215                                          COUNT*   $$/GEN3                               
041686,000149: 
041687,000150:                                                                                                 # # Page 961
041688,000151:                                                                                                 #  PITCH GEN3DAP FILTER.....
041689,000152: 
041690,000153: 17,2215           00006        NP0NODE           EXTEND                                         #  FORM NODE NP0....COLLECT  (PAST NP1)
041691,000154: 17,2216           31564                          DCA      NP1                                   #       (COMES HERE FROM REG. DAP CODING)
041692,000155: 17,2217           20001                          DDOUBL                                         
041693,000156: 17,2220           20001                          DDOUBL                                         
041694,000157: 17,2221           53562                          DXCH     NP0                                   
041695,000158: 
041696,000159: 17,2222           31742        AP0(EP)           CAE      EP                                    #  SPXSP MULTIPLY FOR NUMERATOR COMPONENT
041697,000160: 17,2223           00006                          EXTEND                                         #       EP = ERRBTMP,  SP, SC.AT B-1 REVS
041698,000161: 17,2224           71427                          MP       AP0                                   
041699,000162: 17,2225           21562                          DAS      NP0                                   #  COMPLETED NODE NP0, SC.AT B+1 REVS
041700,000163: 
041701,000164: 
041702,000165: 17,2226           31561        NPDNODE           CAE      NP0                                   #  FORM NODE NPD....SPXDP MULTIPLY BY GAIN
041703,000166: 17,2227           00006                          EXTEND                                         
041704,000167: 17,2230           71651                          MP       KPGEN3                                
041705,000168: 17,2231           53745                          DXCH     NPD                                   
041706,000169: 17,2232           31562                          CAE      NP0        +1                         
041707,000170: 17,2233           00006                          EXTEND                                         
041708,000171: 17,2234           71651                          MP       KPGEN3                                
041709,000172: 17,2235           22007                          ZL                                             
041710,000173: 17,2236           22000                          LXCH     A                                     
041711,000174: 17,2237           21745                          DAS      NPD                                   #  SC.AT B+4 ASCREV SINCE KPGEN3 AT B+3
041712,000175: 
041713,000176: 17,2240           53745                          DXCH     NPD                                   #  FIX UP SCALING
041714,000177: 17,2241           20001                          DDOUBL                                         
041715,000178: 17,2242           20001                          DDOUBL                                         
041716,000179: 17,2243           20001                          DDOUBL                                         
041717,000180: 17,2244           20001                          DDOUBL                                         
041718,000181: 17,2245           53745                          DXCH     NPD                                   #  COMPLETED NODE NPD, SC.AT 1ASCREV
041719,000182: 
041720,000183: 
041721,000184: 17,2246           04574                          TC       POSTJUMP                              #  TRANSFER BACK TO REGULAR DAP CODING FOR
041722,000185: 17,2247           40436                          CADR     POFFSET                               #       OUTPUT  (NPD = CMDTMP, DP)
041723,000186: 17,2250           00006        NP1NODE           EXTEND                                         #  FORM NODE NP1....COLLECT  (PAST NP2)
041724,000187: 17,2251           31542                          DCA      NP2                                   #       (COMES HERE FROM REG. DAP CODING)
041725,000188: 17,2252           53737                          DXCH     NP1TMP                                
041726,000189: 
041727,000190: 17,2253           41561        BP1(NP0)          CS       NP0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
041728,000191: 17,2254           00006                          EXTEND                                         
041729,000192: 17,2255           71436                          MP       BP1                                   
041730,000193: 17,2256           21737                          DAS      NP1TMP                                
041731,000194: 17,2257           41562                          CS       NP0        +1                         
041732,000195: 17,2260           00006                          EXTEND                                         
041733,000196: 17,2261           71436                          MP       BP1                                   
041734,000197: 17,2262           27737                          ADS      NP1TMP     +1                         
041735,000198: 17,2263           54001                          TS       L                                     
041736,000199: 17,2264           12266                          TCF      +2                                    
041737,000200: 17,2265           27736                          ADS      NP1TMP                                
041738,000201:                                                                                                 # # Page 962
041739,000202: 17,2266           41561                          CS       NP0                                   
041740,000203: 17,2267           00006                          EXTEND                                         
041741,000204: 17,2270           71437                          MP       BP1        +1                         
041742,000205: 17,2271           27737                          ADS      NP1TMP     +1                         
041743,000206: 17,2272           54001                          TS       L                                     
041744,000207: 17,2273           12275                          TCF      +2                                    
041745,000208: 17,2274           27736                          ADS      NP1TMP                                
041746,000209: 
041747,000210: 17,2275           31742        AP1(EP)           CAE      EP                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041748,000211: 17,2276           00006                          EXTEND                                         
041749,000212: 17,2277           71430                          MP       AP1                                   
041750,000213: 17,2300           21737                          DAS      NP1TMP                                
041751,000214: 17,2301           31742                          CAE      EP                                    
041752,000215: 17,2302           00006                          EXTEND                                         
041753,000216: 17,2303           71431                          MP       AP1        +1                         
041754,000217: 17,2304           27737                          ADS      NP1TMP     +1                         
041755,000218: 17,2305           54001                          TS       L                                     
041756,000219: 17,2306           12310                          TCF      +2                                    
041757,000220: 17,2307           27736                          ADS      NP1TMP                                #  COMPLETED NODE NP1
041758,000221: 
041759,000222: 17,2310           00006        NP2NODE           EXTEND                                         #  FORM NODE NP2....COLLECT (PAST NP3)
041760,000223: 17,2311           31544                          DCA      NP3                                   
041761,000224: 17,2312           53712                          DXCH     NP2TMP                                
041762,000225: 17,2313           41561        BP2(NP0)          CS       NP0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
041763,000226: 17,2314           00006                          EXTEND                                         
041764,000227: 17,2315           71440                          MP       BP2                                   
041765,000228: 17,2316           21712                          DAS      NP2TMP                                
041766,000229: 17,2317           41562                          CS       NP0        +1                         
041767,000230: 17,2320           00006                          EXTEND                                         
041768,000231: 17,2321           71440                          MP       BP2                                   
041769,000232: 17,2322           27712                          ADS      NP2TMP     +1                         
041770,000233: 17,2323           54001                          TS       L                                     
041771,000234: 17,2324           12326                          TCF      +2                                    
041772,000235: 17,2325           27711                          ADS      NP2TMP                                
041773,000236: 17,2326           41561                          CS       NP0                                   
041774,000237: 17,2327           00006                          EXTEND                                         
041775,000238: 17,2330           71441                          MP       BP2        +1                         
041776,000239: 17,2331           27712                          ADS      NP2TMP     +1                         
041777,000240: 17,2332           54001                          TS       L                                     
041778,000241: 17,2333           12335                          TCF      +2                                    
041779,000242: 17,2334           27711                          ADS      NP2TMP                                
041780,000243: 
041781,000244: 17,2335           31742        AP2(EP)           CAE      EP                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041782,000245: 17,2336           00006                          EXTEND                                         
041783,000246: 17,2337           71432                          MP       AP2                                   
041784,000247: 17,2340           21712                          DAS      NP2TMP                                
041785,000248: 17,2341           31742                          CAE      EP                                    
041786,000249: 17,2342           00006                          EXTEND                                         
041787,000250: 17,2343           71433                          MP       AP2        +1                         
041788,000251: 17,2344           27712                          ADS      NP2TMP     +1                         
041789,000252:                                                                                                 # # Page 963
041790,000253: 17,2345           54001                          TS       L                                     
041791,000254: 17,2346           12350                          TCF      +2                                    
041792,000255: 17,2347           27711                          ADS      NP2TMP                                #  COMPLETED NODE NP2
041793,000256: 
041794,000257: 17,2350           41561        NP3NODE           CS       NP0                                   #  FORM NODE NP3....NO PAST NODES, DIRECT
041795,000258: 17,2351           00006                          EXTEND                                         #       DPXDP MULTIPLY FOR DENOMINATOR
041796,000259: 17,2352           71442                          MP       BP3                                   #       COMPONENT
041797,000260: 17,2353           53714                          DXCH     NP3TMP                                
041798,000261: 17,2354           41562                          CS       NP0        +1                         
041799,000262: 17,2355           00006                          EXTEND                                         
041800,000263: 17,2356           71442                          MP       BP3                                   
041801,000264: 17,2357           27714                          ADS      NP3TMP     +1                         
041802,000265: 17,2360           54001                          TS       L                                     
041803,000266: 17,2361           12363                          TCF      +2                                    
041804,000267: 17,2362           27713                          ADS      NP3TMP                                
041805,000268: 17,2363           41561                          CS       NP0                                   
041806,000269: 17,2364           00006                          EXTEND                                         
041807,000270: 17,2365           71443                          MP       BP3        +1                         
041808,000271: 17,2366           27714                          ADS      NP3TMP     +1                         
041809,000272: 17,2367           54001                          TS       L                                     
041810,000273: 17,2370           12372                          TCF      +2                                    
041811,000274: 17,2371           27713                          ADS      NP3TMP                                
041812,000275: 
041813,000276: 17,2372           31742        AP3(EP)           CAE      EP                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041814,000277: 17,2373           00006                          EXTEND                                         
041815,000278: 17,2374           71434                          MP       AP3                                   
041816,000279: 17,2375           21714                          DAS      NP3TMP                                
041817,000280: 17,2376           31742                          CAE      EP                                    
041818,000281: 17,2377           00006                          EXTEND                                         
041819,000282: 17,2400           71435                          MP       AP3        +1                         
041820,000283: 17,2401           27714                          ADS      NP3TMP     +1                         
041821,000284: 17,2402           54001                          TS       L                                     
041822,000285: 17,2403           12405                          TCF      +2                                    
041823,000286: 17,2404           27713                          ADS      NP3TMP                                #  COMPLETED NODE NP3, AND PITCH GEN3DAP
041824,000287:                                                                                                 #                                                FILTER COMPUTATIONS
041825,000288: 
041826,000289: 
041827,000290: 17,2405           04574                          TC       POSTJUMP                              #  RETURN TO CSMDAP CODING FOR PITCH
041828,000291: 17,2406           40523                          CADR     DELBARP                               #       OFFSET-TRACKER-FILTER COMPUTATIONS,
041829,000292:                                                                                                 #                                                AND PITCH DAP COPYCYCLE.
041830,000293: 
041831,000294:                                                                                                 # # Page 964
041832,000295:                                                                                                 #  YAW GEN3DAP FILTER....
041833,000296: 
041834,000297: 17,2407           00006        NY0NODE           EXTEND                                         #  FORM NODE NY0....COLLECT (PAST NY1)
041835,000298: 17,2410           31610                          DCA      NY1                                   #       (COMES HERE FROM REG. DAP CODING)
041836,000299: 17,2411           20001                          DDOUBL                                         
041837,000300: 17,2412           20001                          DDOUBL                                         
041838,000301: 17,2413           53606                          DXCH     NY0                                   
041839,000302: 
041840,000303: 17,2414           31742        AY0(EY)           CAE      EY                                    #  SPXSP MULTIPLY FOR NUMERATOR COMPONENT
041841,000304: 17,2415           00006                          EXTEND                                         #       EY = ERRBTMP,  SP, SC.AT B-1 REVS
041842,000305: 17,2416           71427                          MP       AY0                                   
041843,000306: 17,2417           21606                          DAS      NY0                                   #  COMPLETED NODE NY0, SC.AT B+1 REVS
041844,000307: 
041845,000308: 
041846,000309: 17,2420           31605        NYDNODE           CAE      NY0                                   #  FORM NODE NYD....SPXDP MULTIPLY BY GAIN
041847,000310: 17,2421           00006                          EXTEND                                         
041848,000311: 17,2422           71651                          MP       KYGEN3                                
041849,000312: 17,2423           53745                          DXCH     NYD                                   
041850,000313: 17,2424           31606                          CAE      NY0        +1                         
041851,000314: 17,2425           00006                          EXTEND                                         
041852,000315: 17,2426           71651                          MP       KYGEN3                                
041853,000316: 17,2427           22007                          ZL                                             
041854,000317: 17,2430           22000                          LXCH     A                                     
041855,000318: 17,2431           21745                          DAS      NYD                                   #  SC.AT B+4 ASCREV SINCE KYGEN3 AT B+1
041856,000319: 
041857,000320: 17,2432           53745                          DXCH     NYD                                   #  FIX UP SCALING
041858,000321: 17,2433           20001                          DDOUBL                                         
041859,000322: 17,2434           20001                          DDOUBL                                         
041860,000323: 17,2435           20001                          DDOUBL                                         
041861,000324: 17,2436           20001                          DDOUBL                                         
041862,000325: 17,2437           53745                          DXCH     NYD                                   #  COMPLETED NODE NYD, SC.AT 1ASCREV
041863,000326: 
041864,000327: 
041865,000328: 17,2440           04574                          TC       POSTJUMP                              #  TRANSFER BACK TO REGULAR DAP CODING FOR
041866,000329: 17,2441           40714                          CADR     YOFFSET                               #       OUTPUT  (NYD = CMDTMP, DP)
041867,000330: 17,2442           00006        NY1NODE           EXTEND                                         #  FORM NODE NY1....COLLECT  (PAST NY2)
041868,000331: 17,2443           31566                          DCA      NY2                                   #       (COMES HERE FROM REG. DAP CODING)
041869,000332: 17,2444           53737                          DXCH     NY1TMP                                
041870,000333: 
041871,000334: 17,2445           41605        BY1(NY0)          CS       NY0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
041872,000335: 17,2446           00006                          EXTEND                                         
041873,000336: 17,2447           71436                          MP       BY1                                   
041874,000337: 17,2450           21737                          DAS      NY1TMP                                
041875,000338: 17,2451           41606                          CS       NY0        +1                         
041876,000339: 17,2452           00006                          EXTEND                                         
041877,000340: 17,2453           71436                          MP       BY1                                   
041878,000341: 17,2454           27737                          ADS      NY1TMP     +1                         
041879,000342: 17,2455           54001                          TS       L                                     
041880,000343: 17,2456           12460                          TCF      +2                                    
041881,000344: 17,2457           27736                          ADS      NY1TMP                                
041882,000345:                                                                                                 # # Page 965
041883,000346: 17,2460           41605                          CS       NY0                                   
041884,000347: 17,2461           00006                          EXTEND                                         
041885,000348: 17,2462           71437                          MP       BY1        +1                         
041886,000349: 17,2463           27737                          ADS      NY1TMP     +1                         
041887,000350: 17,2464           54001                          TS       L                                     
041888,000351: 17,2465           12467                          TCF      +2                                    
041889,000352: 17,2466           27736                          ADS      NY1TMP                                
041890,000353: 
041891,000354: 17,2467           31742        AY1(EY)           CAE      EY                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041892,000355: 17,2470           00006                          EXTEND                                         
041893,000356: 17,2471           71430                          MP       AY1                                   
041894,000357: 17,2472           21737                          DAS      NY1TMP                                
041895,000358: 17,2473           31742                          CAE      EY                                    
041896,000359: 17,2474           00006                          EXTEND                                         
041897,000360: 17,2475           71431                          MP       AY1        +1                         
041898,000361: 17,2476           27737                          ADS      NY1TMP     +1                         
041899,000362: 17,2477           54001                          TS       L                                     
041900,000363: 17,2500           12502                          TCF      +2                                    
041901,000364: 17,2501           27736                          ADS      NY1TMP                                #  COMPLETED NODE NY1
041902,000365: 
041903,000366: 17,2502           00006        NY2NODE           EXTEND                                         #  DORM NODE NY2....COLLECT (PAST NY3)
041904,000367: 17,2503           31570                          DCA      NY3                                   
041905,000368: 17,2504           53712                          DXCH     NY2TMP                                
041906,000369: 
041907,000370: 17,2505           41605        BY2(NY0)          CS       NY0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
041908,000371: 17,2506           00006                          EXTEND                                         
041909,000372: 17,2507           71440                          MP       BY2                                   
041910,000373: 17,2510           21712                          DAS      NY2TMP                                
041911,000374: 17,2511           41606                          CS       NY0        +1                         
041912,000375: 17,2512           00006                          EXTEND                                         
041913,000376: 17,2513           71440                          MP       BY2                                   
041914,000377: 17,2514           27712                          ADS      NY2TMP     +1                         
041915,000378: 17,2515           54001                          TS       L                                     
041916,000379: 17,2516           12520                          TCF      +2                                    
041917,000380: 17,2517           27711                          ADS      NY2TMP                                
041918,000381: 17,2520           41605                          CS       NY0                                   
041919,000382: 17,2521           00006                          EXTEND                                         
041920,000383: 17,2522           71441                          MP       BY2        +1                         
041921,000384: 17,2523           27712                          ADS      NY2TMP     +1                         
041922,000385: 17,2524           54001                          TS       L                                     
041923,000386: 17,2525           12527                          TCF      +2                                    
041924,000387: 17,2526           27711                          ADS      NY2TMP                                
041925,000388: 
041926,000389: 17,2527           31742        AY2(EY)           CAE      EY                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041927,000390: 17,2530           00006                          EXTEND                                         
041928,000391: 17,2531           71432                          MP       AY2                                   
041929,000392: 17,2532           21712                          DAS      NY2TMP                                
041930,000393: 17,2533           31742                          CAE      EY                                    
041931,000394: 17,2534           00006                          EXTEND                                         
041932,000395: 17,2535           71433                          MP       AY2        +1                         
041933,000396:                                                                                                 # # Page 966
041934,000397: 17,2536           27712                          ADS      NY2TMP     +1                         
041935,000398: 17,2537           54001                          TS       L                                     
041936,000399: 17,2540           12542                          TCF      +2                                    
041937,000400: 17,2541           27711                          ADS      NY2TMP                                #  COMPLETED NODE NY2
041938,000401: 
041939,000402: 17,2542           41605        NY3NODE           CS       NY0                                   #  FORM NODE NY3....NO PAST NODES, DIRECT
041940,000403: 17,2543           00006                          EXTEND                                         #       TO DPXDP MULTIPLY FOR DENOMINATOR
041941,000404: 17,2544           71442                          MP       BY3                                   #       COMPONENT
041942,000405: 17,2545           53714                          DXCH     NY3TMP                                
041943,000406: 17,2546           41606                          CS       NY0        +1                         
041944,000407: 17,2547           00006                          EXTEND                                         
041945,000408: 17,2550           71442                          MP       BY3                                   
041946,000409: 17,2551           27714                          ADS      NY3TMP     +1                         
041947,000410: 17,2552           54001                          TS       L                                     
041948,000411: 17,2553           12555                          TCF      +2                                    
041949,000412: 17,2554           27713                          ADS      NY3TMP                                
041950,000413: 17,2555           41605                          CS       NY0                                   
041951,000414: 17,2556           00006                          EXTEND                                         
041952,000415: 17,2557           71443                          MP       BY3        +1                         
041953,000416: 17,2560           27714                          ADS      NY3TMP     +1                         
041954,000417: 17,2561           54001                          TS       L                                     
041955,000418: 17,2562           12564                          TCF      +2                                    
041956,000419: 17,2563           27713                          ADS      NY3TMP                                
041957,000420: 
041958,000421: 17,2564           31742        AY3(EY)           CAE      EY                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041959,000422: 17,2565           00006                          EXTEND                                         
041960,000423: 17,2566           71434                          MP       AY3                                   
041961,000424: 17,2567           21714                          DAS      NY3TMP                                
041962,000425: 17,2570           31742                          CAE      EY                                    
041963,000426: 17,2571           00006                          EXTEND                                         
041964,000427: 17,2572           71435                          MP       AY3        +1                         
041965,000428: 17,2573           27714                          ADS      NY3TMP     +1                         
041966,000429: 17,2574           54001                          TS       L                                     
041967,000430: 17,2575           12577                          TCF      +2                                    
041968,000431: 17,2576           27713                          ADS      NY3TMP                                #  COMPLETED NODE NY3, AND YAW GEN3DAP
041969,000432:                                                                                                 #                                                FILTER COMPUTATIONS
041970,000433: 
041971,000434: 
041972,000435: 17,2577           04574                          TC       POSTJUMP                              #  RETURN TO CSMDAP CODING FOR YAW
041973,000436: 17,2600           41001                          CADR     DELBARY                               #       OFFSET-TRACKER-FILTER COMPUTATIONS,
041974,000437:                                                                                                 #                                                AND YAW DAP COPYCYCLE.

End of include-file TVCGEN3FILTERS.agc.  Parent file is MAIN.agc