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.

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

Page 958

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

Page 959

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

Page 960

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

Page 961

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

Page 962

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

Page 963

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

Page 964

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

Page 965

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

Page 966

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

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