Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

041750,000002:                                                                                                  ## Copyright:   Public domain.
041751,000003:                                                                                                  ## Filename:    TVCGEN3FILTERS.agc
041752,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
041753,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
041754,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
041755,000007:                                                                                                  ## Assembler:   yaYUL
041756,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
041757,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
041758,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
041759,000011:                                                                                                  ## Mod history: 2011-03-12 JL   Adapted from corresponding Colossus 249 file.
041760,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
041761,000013:                                                                                                  ##                              and fixed errors found.
041762,000014:                                                                                                  ##              2017-01-20 RSB  Fixed comment-text errors noted while diff'ing
041763,000015:                                                                                                  ##                              vs Colossus 249.
041764,000016: 

Page 958

041766,000018:                                                                                                  #  PROGRAM NAME.... GEN3DAP FILTERS, CONSISTING OF NP0NODE, NP1NODE, NY0NODE, NY1NODE, ETC.
041767,000019:                                                                                                  #  LOG SECTION.... GEN3DAP FILTERS   SUBROUTINE....DAPCSM
041768,000020:                                                                                                  #  MOD BY ENGEL                      20 OCT, 1967
041769,000021: 
041770,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION....
041771,000023: 
041772,000024:                                                                                                  #       THE GEN3DAP FILTER PACKAGE IS DESIGNED TO PROVIDE FLEXIBLE, LAST-MINUTE CHANGEABLE DIGITAL AUTOPILOT
041773,000025:                                                                                                  #  FILTERS FOR LEM-OFF FLIGHT.  GROUNDRULES FOR THE DESIGN AND USE OF THE PACKAGE ARE AS FOLLOWS.....
041774,000026: 
041775,000027:                                                                                                  #       1. FILTER COEFFICIENTS AND GAINS IN ERASABLE MEMORY
041776,000028:                                                                                                  #       2. UP TO THIRD-ORDER NUMERATOR OR DENOMINATOR
041777,000029:                                                                                                  #       3. OPERATIONAL FIT WITHIN THE STRUCTURE OF THE REGULAR LEM-ON DAP CODING
041778,000030:                                                                                                  #       4. DENOMINATOR POLES INSIDE THE Z-PLANE UNIT CIRCLE
041779,000031:                                                                                                  #       5. NUMERATOR ZEROS INSIDE THE Z-PLANE DOUBLE-UNIT CIRCLE
041780,000032:                                                                                                  #       6. HIGH FREQUENCY (BODE) GAIN LESS THAN 8ASCREVS, OR 8.6380088 DEG/DEG
041781,000033: 
041782,000034:                                                                                                  #  THE FILTERS ARE SHOWN IN THE FOLLOWING DIAGRAMS.....
041783,000035: 
041784,000036: 
041785,000037:                                                                                                  #  PITCH GEN3DAP FILTER..
041786,000038: 
041787,000039:                                                                                                  #                                                                   KPGEN3
041788,000040:                                                                                                  #                                                                  ********
041789,000041:                                                                                                  #                     *****************************************           *
041790,000042:                                                                                                  #                     *                                       *           *
041791,000043:                                                                                                  #                     *              -1        -2        -3   *           *
041792,000044:                                                                                                  #        EP = ERRBTMP *    APO + AP1 Z   + AP2 Z   + AP3 Z     *   NPO          NPD = CMDTMP  **
041793,000045:                                                                                                  #       ***************  -----------------------------------  **********( X )*********************
041794,000046:                                                                                                  #                     *              -1        -2        -3   *                               **
041795,000047:                                                                                                  #                     *    1  + BP1 Z   + BP2 Z   + BP3 Z     *
041796,000048:                                                                                                  #                     *                                       *
041797,000049:                                                                                                  #                     *****************************************
041798,000050: 
041799,000051: 
041800,000052:                                                                                                  #  YAW GEN3DAP FILTER..
041801,000053: 
041802,000054:                                                                                                  #                                                                 KYGEN3
041803,000055:                                                                                                  #                                                                ********
041804,000056:                                                                                                  #                    *****************************************           *
041805,000057:                                                                                                  #                    *                                       *           *
041806,000058:                                                                                                  #                    *              -1        -2        -3   *           *
041807,000059:                                                                                                  #       EY = ERRBTMP *    AYO + AY1 Z   + AY2 Z   + AY3 Z     *   NY0          NYP = CMDTMP  **
041808,000060:                                                                                                  #      ***************  -----------------------------------  **********( X )*********************
041809,000061:                                                                                                  #                    *              -1        -2        -3   *                               **
041810,000062:                                                                                                  #                    *    1  + BY1 Z   + BY2 Z   + BY3 Z     *
041811,000063:                                                                                                  #                    *                                       *
041812,000064:                                                                                                  #                    *****************************************
041813,000065: 

Page 959

041815,000067:                                                                                                  #  THE IMPLEMENTING EQUATIONS FOR THESE FILTERS ARE AS FOLLOWS.....
041816,000068: 
041817,000069:                                                                                                  #       PITCH GEN3DAP....                                 YAW GEN3DAP....
041818,000070:                                                                                                  #           NPD = (B+4) KPGEN3 NP0                            NYD = (B+4) KYGEN3 NY0
041819,000071:                                                                                                  #           NP0 = AP0 EP           +4(Z-1) NP1                NY0 = AY0 EY           +4(Z-1) NY1
041820,000072:                                                                                                  #           NY1 = AP1 EP - BP1 NP0 + (Z-1) NP2                NY1 = AY1 EY - BY1 NY0 + (Z-1) NY2
041821,000073:                                                                                                  #           NP2 = AP2 EP - BP2 NP0 + (Z-1) NP3                NY2 = AY2 EY - BY2 NY0 + (Z-1) NY3
041822,000074:                                                                                                  #           NP3 = AP3 EP - BP3 NP0                            NY3 = AY3 EY - BY3 NY0
041823,000075: 
041824,000076: 
041825,000077:                                                                                                  #       FILTER INPUTS EP AND EY ARE PICKED UP FROM REGULAR LEM-ON CODING AT ERRBTMP  (UPPER WORD ONLY),  THUS ARE
041826,000078:                                                                                                  #  SINGLE PRECISION QUANTITIES SCALED AT B-1 REVS. FILTER OUTPUTS NPD AND NYD ARE LEFT IN DOUBLE PRECISION AT
041827,000079:                                                                                                  #  CMDTMP, SCALED AT 1 ASCREV, READY FOR OUTPUT PROCESSING VIA REGULAR LEM-ON CODING AT ..P,YOFFSET..
041828,000080:                                                                                                  #  FOLLOWING OUTPUT PROCESSING, RETURN TO THE GEN3DAP FILTERS IS MADE FOR CALCULATION OF THE REMAINING NODES
041829,000081:                                                                                                  #  NP1 TO NP3, OR NY1 TO NY3.  GEN3DAP FILTERS THEN RETURN TO THE LEM-ON CODING AT  ..DELBARP,Y..   FOR RESPECTIVE
041830,000082:                                                                                                  #  OFFSET-TRACKER-FILTER COMPUTATIONS AND COPYCYCLES. NOTE THE EQUIVALENCES...NP1TMP=J5TMP, NP1=J5,
041831,000083:                                                                                                  #  NP2TMP=NSUMTMP, NP2=PNSUM, NP3TMP=DSUMTMP, NP3=PDSUM, WITH CORRESPONDING RELATIONS FOR YAW.  THUS THE COPY-
041832,000084:                                                                                                  #  CYCLE  PCOPY, FROM THE GEN3DAP STANDPOINT, IS EFFECTIVE FROM PMISC-3 TO ITS END AT TC Q.  YCOPY FROM YMISC-3.
041833,000085: 
041834,000086: 
041835,000087:                                                                                                  #  SCALING OF THE FILTER NODES, COEFFICIENTS, AND GAINS WITHIN THE AGC IS AS FOLLOWS.....
041836,000088: 
041837,000089:                                                                                                  #           QUANTITY   QUANTITY      PHYS.UNITS     MAX.VALUE      SCALE AT (FOR)
041838,000090: 
041839,000091:                                                                                                  #           EP         EY            REVS              1/8           B-1 REV           (CDU SCALING)
041840,000092: 
041841,000093:                                                                                                  #           NP0        NY0           REVS             (B+1)          B+1 REV
041842,000094:                                                                                                  #           NP1        NY1           REVS             (B+3)          B+3 REV
041843,000095:                                                                                                  #           NP2        NY2           REVS             (B+3)          B+3 REV
041844,000096:                                                                                                  #           NP3        NY3           REVS             (B+3)          B+3 REV
041845,000097: 
041846,000098:                                                                                                  #           NPD        NYD         ASC REVS            (1)           1 ASCREV          (ACTUATOR CDU SCALING)
041847,000099: 
041848,000100:                                                                                                  #           KPGEN3     KYGEN3     ASCREV/REV           (8)         B+3 ASCREV/REV
041849,000101: 
041850,000102:                                                                                                  #           AP0        AY0         DIMLESS.             1              B+2
041851,000103:                                                                                                  #           AP1        AY1         DIMLESS.             6              B+4
041852,000104:                                                                                                  #           AP2        AY2         DIMLESS.             12             B+4
041853,000105:                                                                                                  #           AP3        AY3         DIMLESS.             8              B+4
041854,000106: 
041855,000107:                                                                                                  #           BP1        BY1         DIMLESS.             3              B+2
041856,000108:                                                                                                  #           BP2        BY2         DIMLESS.             3              B+2
041857,000109:                                                                                                  #           BP3        BY3         DIMLESS.             1              B+2
041858,000110: 
041859,000111:                                                                                                  #  FILTER COEFFICIENTS, GAINS, AND NODES ARE HELD IN DOUBLE PRECISION (ERASABLE) TO PERMIT CONSERVATIVE
041860,000112:                                                                                                  #  SCALING AND YET OFFSET TRUNCATION LOSSES.  THIS APPEARS NECESSARY IF FILTER FLEXIBILITY IS TO BE MAINTAINED.
041861,000113:                                                                                                  #  COMPUTATION TIME IS NOT CRITICAL.
041862,000114: 

Page 960

041864,000116:                                                                                                  #  CALLING SEQUENCE....
041865,000117: 
041866,000118:                                                                                                  #      *TC POSTJUMP....
041867,000119:                                                                                                  #       CADR NP0NODE, NP1, NY0, NY1.  SPECIFICALLY, FROM PITCHDAP OR YAWDAP
041868,000120:                                                                                                  #       (TVCDAP),AT P1FILJMP, P2FILJMP, Y1FILJMP, Y2FILJMP
041869,000121: 
041870,000122:                                                                                                  #  NORMAL EXIT MODE....
041871,000123: 
041872,000124:                                                                                                  #      *TC POSTJUMP....
041873,000125:                                                                                                  #       CADR  (POFFSET, DELBARP), (YOFFSET, DELBARY).     IE, RETURNS TO
041874,000126:                                                                                                  #       PITCHDAP OR YAWDAP AT APPROPRIATE ENTRY POINT
041875,000127: 
041876,000128:                                                                                                  #  ALARM OR ABORT EXIT MODES....NONE
041877,000129: 
041878,000130:                                                                                                  #  SUBROUTINES CALLED.... NONE
041879,000131: 
041880,000132:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED....
041881,000133: 
041882,000134:                                                                                                  #      *AP0(SP),AP1(DP),...AP3(DP), (PITCH AND YAW) NUMERATOR COEFFICIENTS
041883,000135:                                                                                                  #       (PAD LOADS)
041884,000136:                                                                                                  #      *BP1(DP),...BP3(DP), (PITCH AND YAW) DENOMINATOR COEFFICIENTS
041885,000137:                                                                                                  #       (PAD LOADS)
041886,000138:                                                                                                  #      *KPGEN3 (S40.15 OF R03)
041887,000139: 
041888,000140:                                                                                                  #  OUTPUT....
041889,000141: 
041890,000142:                                                                                                  #      *CMDTMP (NPD, NYD) FOR OUTPUT PROCESSING BY PITCHDAP OR YAWDAP
041891,000143:                                                                                                  #      *OTHER FILTER NODES
041892,000144: 
041893,000145:                                                                                                  #  DEBRIS....TVC TEMPORARIES, SHAREABLE WITH RCS/ENTRY IN EBANK6 ONLY
041894,000146: 
041895,000147: 
041896,000148: 21,2026                                           BANK     21                                    
041897,000149: 17,2000                                           SETLOC   DAPS4                                 
041898,000150: 17,2000                                           BANK                                           
041899,000151: 17,2215  E6,1742                                  EBANK=   EP                                    
041900,000152: 17,2215                                           COUNT*   $$/GEN3                               
041901,000153: 

Page 961

041903,000155:                                                                                                  #  PITCH GEN3DAP FILTER.....
041904,000156: 
041905,000157: 17,2215           00006        NP0NODE            EXTEND                                         #  FORM NODE NP0....COLLECT  (PAST NP1)
041906,000158: 17,2216           31564                           DCA      NP1                                   #       (COMES HERE FROM REG. DAP CODING)
041907,000159: 17,2217           20001                           DDOUBL                                         
041908,000160: 17,2220           20001                           DDOUBL                                         
041909,000161: 17,2221           53562                           DXCH     NP0                                   
041910,000162: 
041911,000163: 17,2222           31742        AP0(EP)            CAE      EP                                    #  SPXSP MULTIPLY FOR NUMERATOR COMPONENT
041912,000164: 17,2223           00006                           EXTEND                                         #       EP = ERRBTMP,  SP, SC.AT B-1 REVS
041913,000165: 17,2224           71427                           MP       AP0                                   
041914,000166: 17,2225           21562                           DAS      NP0                                   #  COMPLETED NODE NP0, SC.AT B+1 REVS
041915,000167: 
041916,000168: 
041917,000169: 17,2226           31561        NPDNODE            CAE      NP0                                   #  FORM NODE NPD....SPXDP MULTIPLY BY GAIN
041918,000170: 17,2227           00006                           EXTEND                                         
041919,000171: 17,2230           71651                           MP       KPGEN3                                
041920,000172: 17,2231           53745                           DXCH     NPD                                   
041921,000173: 17,2232           31562                           CAE      NP0        +1                         
041922,000174: 17,2233           00006                           EXTEND                                         
041923,000175: 17,2234           71651                           MP       KPGEN3                                
041924,000176: 17,2235           22007                           ZL                                             
041925,000177: 17,2236           22000                           LXCH     A                                     
041926,000178: 17,2237           21745                           DAS      NPD                                   #  SC.AT B+4 ASCREV SINCE KPGEN3 AT B+3
041927,000179: 
041928,000180: 17,2240           53745                           DXCH     NPD                                   #  FIX UP SCALING
041929,000181: 17,2241           20001                           DDOUBL                                         
041930,000182: 17,2242           20001                           DDOUBL                                         
041931,000183: 17,2243           20001                           DDOUBL                                         
041932,000184: 17,2244           20001                           DDOUBL                                         
041933,000185: 17,2245           53745                           DXCH     NPD                                   #  COMPLETED NODE NPD, SC.AT 1ASCREV
041934,000186: 
041935,000187: 
041936,000188: 17,2246           04574                           TC       POSTJUMP                              #  TRANSFER BACK TO REGULAR DAP CODING FOR
041937,000189: 17,2247           40436                           CADR     POFFSET                               #       OUTPUT  (NPD = CMDTMP, DP)
041938,000190: 17,2250           00006        NP1NODE            EXTEND                                         #  FORM NODE NP1....COLLECT  (PAST NP2)
041939,000191: 17,2251           31542                           DCA      NP2                                   #       (COMES HERE FROM REG. DAP CODING)
041940,000192: 17,2252           53737                           DXCH     NP1TMP                                
041941,000193: 
041942,000194: 17,2253           41561        BP1(NP0)           CS       NP0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
041943,000195: 17,2254           00006                           EXTEND                                         
041944,000196: 17,2255           71436                           MP       BP1                                   
041945,000197: 17,2256           21737                           DAS      NP1TMP                                
041946,000198: 17,2257           41562                           CS       NP0        +1                         
041947,000199: 17,2260           00006                           EXTEND                                         
041948,000200: 17,2261           71436                           MP       BP1                                   
041949,000201: 17,2262           27737                           ADS      NP1TMP     +1                         
041950,000202: 17,2263           54001                           TS       L                                     
041951,000203: 17,2264           12266                           TCF      +2                                    
041952,000204: 17,2265           27736                           ADS      NP1TMP                                

Page 962

041954,000206: 17,2266           41561                           CS       NP0                                   
041955,000207: 17,2267           00006                           EXTEND                                         
041956,000208: 17,2270           71437                           MP       BP1        +1                         
041957,000209: 17,2271           27737                           ADS      NP1TMP     +1                         
041958,000210: 17,2272           54001                           TS       L                                     
041959,000211: 17,2273           12275                           TCF      +2                                    
041960,000212: 17,2274           27736                           ADS      NP1TMP                                
041961,000213: 
041962,000214: 17,2275           31742        AP1(EP)            CAE      EP                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041963,000215: 17,2276           00006                           EXTEND                                         
041964,000216: 17,2277           71430                           MP       AP1                                   
041965,000217: 17,2300           21737                           DAS      NP1TMP                                
041966,000218: 17,2301           31742                           CAE      EP                                    
041967,000219: 17,2302           00006                           EXTEND                                         
041968,000220: 17,2303           71431                           MP       AP1        +1                         
041969,000221: 17,2304           27737                           ADS      NP1TMP     +1                         
041970,000222: 17,2305           54001                           TS       L                                     
041971,000223: 17,2306           12310                           TCF      +2                                    
041972,000224: 17,2307           27736                           ADS      NP1TMP                                #  COMPLETED NODE NP1
041973,000225: 
041974,000226: 17,2310           00006        NP2NODE            EXTEND                                         #  FORM NODE NP2....COLLECT (PAST NP3)
041975,000227: 17,2311           31544                           DCA      NP3                                   
041976,000228: 17,2312           53712                           DXCH     NP2TMP                                
041977,000229: 17,2313           41561        BP2(NP0)           CS       NP0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
041978,000230: 17,2314           00006                           EXTEND                                         
041979,000231: 17,2315           71440                           MP       BP2                                   
041980,000232: 17,2316           21712                           DAS      NP2TMP                                
041981,000233: 17,2317           41562                           CS       NP0        +1                         
041982,000234: 17,2320           00006                           EXTEND                                         
041983,000235: 17,2321           71440                           MP       BP2                                   
041984,000236: 17,2322           27712                           ADS      NP2TMP     +1                         
041985,000237: 17,2323           54001                           TS       L                                     
041986,000238: 17,2324           12326                           TCF      +2                                    
041987,000239: 17,2325           27711                           ADS      NP2TMP                                
041988,000240: 17,2326           41561                           CS       NP0                                   
041989,000241: 17,2327           00006                           EXTEND                                         
041990,000242: 17,2330           71441                           MP       BP2        +1                         
041991,000243: 17,2331           27712                           ADS      NP2TMP     +1                         
041992,000244: 17,2332           54001                           TS       L                                     
041993,000245: 17,2333           12335                           TCF      +2                                    
041994,000246: 17,2334           27711                           ADS      NP2TMP                                
041995,000247: 
041996,000248: 17,2335           31742        AP2(EP)            CAE      EP                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
041997,000249: 17,2336           00006                           EXTEND                                         
041998,000250: 17,2337           71432                           MP       AP2                                   
041999,000251: 17,2340           21712                           DAS      NP2TMP                                
042000,000252: 17,2341           31742                           CAE      EP                                    
042001,000253: 17,2342           00006                           EXTEND                                         
042002,000254: 17,2343           71433                           MP       AP2        +1                         
042003,000255: 17,2344           27712                           ADS      NP2TMP     +1                         

Page 963

042005,000257: 17,2345           54001                           TS       L                                     
042006,000258: 17,2346           12350                           TCF      +2                                    
042007,000259: 17,2347           27711                           ADS      NP2TMP                                #  COMPLETED NODE NP2
042008,000260: 
042009,000261: 17,2350           41561        NP3NODE            CS       NP0                                   #  FORM NODE NP3....NO PAST NODES, DIRECT
042010,000262: 17,2351           00006                           EXTEND                                         #       TO DPXDP MULTIPLY FOR DENOMINATOR
042011,000263: 17,2352           71442                           MP       BP3                                   #       COMPONENT
042012,000264: 17,2353           53714                           DXCH     NP3TMP                                
042013,000265: 17,2354           41562                           CS       NP0        +1                         
042014,000266: 17,2355           00006                           EXTEND                                         
042015,000267: 17,2356           71442                           MP       BP3                                   
042016,000268: 17,2357           27714                           ADS      NP3TMP     +1                         
042017,000269: 17,2360           54001                           TS       L                                     
042018,000270: 17,2361           12363                           TCF      +2                                    
042019,000271: 17,2362           27713                           ADS      NP3TMP                                
042020,000272: 17,2363           41561                           CS       NP0                                   
042021,000273: 17,2364           00006                           EXTEND                                         
042022,000274: 17,2365           71443                           MP       BP3        +1                         
042023,000275: 17,2366           27714                           ADS      NP3TMP     +1                         
042024,000276: 17,2367           54001                           TS       L                                     
042025,000277: 17,2370           12372                           TCF      +2                                    
042026,000278: 17,2371           27713                           ADS      NP3TMP                                
042027,000279: 
042028,000280: 17,2372           31742        AP3(EP)            CAE      EP                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
042029,000281: 17,2373           00006                           EXTEND                                         
042030,000282: 17,2374           71434                           MP       AP3                                   
042031,000283: 17,2375           21714                           DAS      NP3TMP                                
042032,000284: 17,2376           31742                           CAE      EP                                    
042033,000285: 17,2377           00006                           EXTEND                                         
042034,000286: 17,2400           71435                           MP       AP3        +1                         
042035,000287: 17,2401           27714                           ADS      NP3TMP     +1                         
042036,000288: 17,2402           54001                           TS       L                                     
042037,000289: 17,2403           12405                           TCF      +2                                    
042038,000290: 17,2404           27713                           ADS      NP3TMP                                #  COMPLETED NODE NP3, AND PITCH GEN3DAP
042039,000291:                                                                                                  #                                               FILTER COMPUTATIONS
042040,000292: 
042041,000293: 
042042,000294: 17,2405           04574                           TC       POSTJUMP                              #  RETURN TO CSMDAP CODING FOR PITCH
042043,000295: 17,2406           40523                           CADR     DELBARP                               #       OFFSET-TRACKER-FILTER COMPUTATIONS,
042044,000296:                                                                                                  #                                               AND PITCH DAP COPYCYCLE.
042045,000297: 

Page 964

042047,000299:                                                                                                  #  YAW GEN3DAP FILTER....
042048,000300: 
042049,000301: 17,2407           00006        NY0NODE            EXTEND                                         #  FORM NODE NY0....COLLECT (PAST NY1)
042050,000302: 17,2410           31610                           DCA      NY1                                   #       (COMES HERE FROM REG. DAP CODING)
042051,000303: 17,2411           20001                           DDOUBL                                         
042052,000304: 17,2412           20001                           DDOUBL                                         
042053,000305: 17,2413           53606                           DXCH     NY0                                   
042054,000306: 
042055,000307: 17,2414           31742        AY0(EY)            CAE      EY                                    #  SPXSP MULTIPLY FOR NUMERATOR COMPONENT
042056,000308: 17,2415           00006                           EXTEND                                         #       EY = ERRBTMP,  SP, SC.AT B-1 REVS
042057,000309: 17,2416           71427                           MP       AY0                                   
042058,000310: 17,2417           21606                           DAS      NY0                                   #  COMPLETED NODE NY0, SC.AT B+1 REVS
042059,000311: 
042060,000312: 
042061,000313: 17,2420           31605        NYDNODE            CAE      NY0                                   #  FORM NODE NYD....SPXDP MULTIPLY BY GAIN
042062,000314: 17,2421           00006                           EXTEND                                         
042063,000315: 17,2422           71651                           MP       KYGEN3                                
042064,000316: 17,2423           53745                           DXCH     NYD                                   
042065,000317: 17,2424           31606                           CAE      NY0        +1                         
042066,000318: 17,2425           00006                           EXTEND                                         
042067,000319: 17,2426           71651                           MP       KYGEN3                                
042068,000320: 17,2427           22007                           ZL                                             
042069,000321: 17,2430           22000                           LXCH     A                                     
042070,000322: 17,2431           21745                           DAS      NYD                                   #  SC.AT B+4 ASCREV SINCE KYGEN3 AT B+1
042071,000323: 
042072,000324: 17,2432           53745                           DXCH     NYD                                   #  FIX UP SCALING
042073,000325: 17,2433           20001                           DDOUBL                                         
042074,000326: 17,2434           20001                           DDOUBL                                         
042075,000327: 17,2435           20001                           DDOUBL                                         
042076,000328: 17,2436           20001                           DDOUBL                                         
042077,000329: 17,2437           53745                           DXCH     NYD                                   #  COMPLETED NODE NYD, SC.AT 1ASCREV
042078,000330: 
042079,000331: 
042080,000332: 17,2440           04574                           TC       POSTJUMP                              #  TRANSFER BACK TO REGULAR DAP CODING FOR
042081,000333: 17,2441           40714                           CADR     YOFFSET                               #       OUTPUT  (NYD = CMDTMP, DP)
042082,000334: 17,2442           00006        NY1NODE            EXTEND                                         #  FORM NODE NY1....COLLECT  (PAST NY2)
042083,000335: 17,2443           31566                           DCA      NY2                                   #       (COMES HERE FROM REG. DAP CODING)
042084,000336: 17,2444           53737                           DXCH     NY1TMP                                
042085,000337: 
042086,000338: 17,2445           41605        BY1(NY0)           CS       NY0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
042087,000339: 17,2446           00006                           EXTEND                                         
042088,000340: 17,2447           71436                           MP       BY1                                   
042089,000341: 17,2450           21737                           DAS      NY1TMP                                
042090,000342: 17,2451           41606                           CS       NY0        +1                         
042091,000343: 17,2452           00006                           EXTEND                                         
042092,000344: 17,2453           71436                           MP       BY1                                   
042093,000345: 17,2454           27737                           ADS      NY1TMP     +1                         
042094,000346: 17,2455           54001                           TS       L                                     
042095,000347: 17,2456           12460                           TCF      +2                                    
042096,000348: 17,2457           27736                           ADS      NY1TMP                                

Page 965

042098,000350: 17,2460           41605                           CS       NY0                                   
042099,000351: 17,2461           00006                           EXTEND                                         
042100,000352: 17,2462           71437                           MP       BY1        +1                         
042101,000353: 17,2463           27737                           ADS      NY1TMP     +1                         
042102,000354: 17,2464           54001                           TS       L                                     
042103,000355: 17,2465           12467                           TCF      +2                                    
042104,000356: 17,2466           27736                           ADS      NY1TMP                                
042105,000357: 
042106,000358: 17,2467           31742        AY1(EY)            CAE      EY                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
042107,000359: 17,2470           00006                           EXTEND                                         
042108,000360: 17,2471           71430                           MP       AY1                                   
042109,000361: 17,2472           21737                           DAS      NY1TMP                                
042110,000362: 17,2473           31742                           CAE      EY                                    
042111,000363: 17,2474           00006                           EXTEND                                         
042112,000364: 17,2475           71431                           MP       AY1        +1                         
042113,000365: 17,2476           27737                           ADS      NY1TMP     +1                         
042114,000366: 17,2477           54001                           TS       L                                     
042115,000367: 17,2500           12502                           TCF      +2                                    
042116,000368: 17,2501           27736                           ADS      NY1TMP                                #  COMPLETED NODE NY1
042117,000369: 
042118,000370: 17,2502           00006        NY2NODE            EXTEND                                         #  DORM NODE NY2....COLLECT (PAST NY3)
042119,000371: 17,2503           31570                           DCA      NY3                                   
042120,000372: 17,2504           53712                           DXCH     NY2TMP                                
042121,000373: 
042122,000374: 17,2505           41605        BY2(NY0)           CS       NY0                                   #  DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
042123,000375: 17,2506           00006                           EXTEND                                         
042124,000376: 17,2507           71440                           MP       BY2                                   
042125,000377: 17,2510           21712                           DAS      NY2TMP                                
042126,000378: 17,2511           41606                           CS       NY0        +1                         
042127,000379: 17,2512           00006                           EXTEND                                         
042128,000380: 17,2513           71440                           MP       BY2                                   
042129,000381: 17,2514           27712                           ADS      NY2TMP     +1                         
042130,000382: 17,2515           54001                           TS       L                                     
042131,000383: 17,2516           12520                           TCF      +2                                    
042132,000384: 17,2517           27711                           ADS      NY2TMP                                
042133,000385: 17,2520           41605                           CS       NY0                                   
042134,000386: 17,2521           00006                           EXTEND                                         
042135,000387: 17,2522           71441                           MP       BY2        +1                         
042136,000388: 17,2523           27712                           ADS      NY2TMP     +1                         
042137,000389: 17,2524           54001                           TS       L                                     
042138,000390: 17,2525           12527                           TCF      +2                                    
042139,000391: 17,2526           27711                           ADS      NY2TMP                                
042140,000392: 
042141,000393: 17,2527           31742        AY2(EY)            CAE      EY                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
042142,000394: 17,2530           00006                           EXTEND                                         
042143,000395: 17,2531           71432                           MP       AY2                                   
042144,000396: 17,2532           21712                           DAS      NY2TMP                                
042145,000397: 17,2533           31742                           CAE      EY                                    
042146,000398: 17,2534           00006                           EXTEND                                         
042147,000399: 17,2535           71433                           MP       AY2        +1                         

Page 966

042149,000401: 17,2536           27712                           ADS      NY2TMP     +1                         
042150,000402: 17,2537           54001                           TS       L                                     
042151,000403: 17,2540           12542                           TCF      +2                                    
042152,000404: 17,2541           27711                           ADS      NY2TMP                                #  COMPLETED NODE NY2
042153,000405: 
042154,000406: 17,2542           41605        NY3NODE            CS       NY0                                   #  FORM NODE NY3....NO PAST NODES, DIRECT
042155,000407: 17,2543           00006                           EXTEND                                         #       TO DPXDP MULTIPLY FOR DENOMINATOR
042156,000408: 17,2544           71442                           MP       BY3                                   #       COMPONENT
042157,000409: 17,2545           53714                           DXCH     NY3TMP                                
042158,000410: 17,2546           41606                           CS       NY0        +1                         
042159,000411: 17,2547           00006                           EXTEND                                         
042160,000412: 17,2550           71442                           MP       BY3                                   
042161,000413: 17,2551           27714                           ADS      NY3TMP     +1                         
042162,000414: 17,2552           54001                           TS       L                                     
042163,000415: 17,2553           12555                           TCF      +2                                    
042164,000416: 17,2554           27713                           ADS      NY3TMP                                
042165,000417: 17,2555           41605                           CS       NY0                                   
042166,000418: 17,2556           00006                           EXTEND                                         
042167,000419: 17,2557           71443                           MP       BY3        +1                         
042168,000420: 17,2560           27714                           ADS      NY3TMP     +1                         
042169,000421: 17,2561           54001                           TS       L                                     
042170,000422: 17,2562           12564                           TCF      +2                                    
042171,000423: 17,2563           27713                           ADS      NY3TMP                                
042172,000424: 
042173,000425: 17,2564           31742        AY3(EY)            CAE      EY                                    #  DPXSP MULTIPLY FOR NUMERATOR COMPONENT
042174,000426: 17,2565           00006                           EXTEND                                         
042175,000427: 17,2566           71434                           MP       AY3                                   
042176,000428: 17,2567           21714                           DAS      NY3TMP                                
042177,000429: 17,2570           31742                           CAE      EY                                    
042178,000430: 17,2571           00006                           EXTEND                                         
042179,000431: 17,2572           71435                           MP       AY3        +1                         
042180,000432: 17,2573           27714                           ADS      NY3TMP     +1                         
042181,000433: 17,2574           54001                           TS       L                                     
042182,000434: 17,2575           12577                           TCF      +2                                    
042183,000435: 17,2576           27713                           ADS      NY3TMP                                #  COMPLETED NODE NY3, AND YAW GEN3DAP
042184,000436:                                                                                                  #                                               FILTER COMPUTATIONS
042185,000437: 
042186,000438: 
042187,000439: 17,2577           04574                           TC       POSTJUMP                              #  RETURN TO CSMDAP CODING FOR YAW
042188,000440: 17,2600           41001                           CADR     DELBARY                               #       OFFSET-TRACKER-FILTER COMPUTATIONS,
042189,000441:                                                                                                  #                                               AND YAW DAP COPYCYCLE.

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