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.

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

Page 958

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

Page 959

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

Page 960

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

Page 961

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

Page 962

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

Page 963

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

Page 964

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

Page 965

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

Page 966

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

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