GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
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, 1968Note 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