ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
043013,000002: ## Copyright: Public domain.
043014,000003: ## Filename: TVCGEN3FILTERS.agc
043015,000004: ## Purpose: Part of the source code for Colossus, build 249.
043016,000005: ## It is part of the source code for the Command Module's (CM)
043017,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
043018,000007: ## Assembler: yaYUL
043019,000008: ## Reference: Starts on p. 961
043020,000009: ## Contact: Ron Burkey <info@sandroid.org>.
043021,000010: ## Website: www.ibiblio.org/apollo/index.html
043022,000011: ## Mod history: 08/24/04 RSB. Began transcribing.
043023,000012: ## 05/14/05 RSB Corrected website references above.
043024,000013: ## 2010-10-25 JL Fixed page numbers.
043025,000014: ## 2017-01-06 RSB Page numbers now agree with those on the
043026,000015: ## original harcopy, as opposed to the PDF page
043027,000016: ## numbers in 1701.pdf.
043028,000017: ## 2017-01-20 RSB Cross-diff'd comment text (not whitespace)
043029,000018: ## vs the already-proofed corresponding Colossus
043030,000019: ## 237 source-code files, and corrected errors found.
043031,000020: ##
043032,000021: ## The contents of the "Colossus249" files, in general, are transcribed
043033,000022: ## from a scanned copy of the program listing. Notations on this
043034,000023: ## document read, in part:
043035,000024: ##
043036,000025: ## Assemble revision 249 of AGC program Colossus by NASA
043037,000026: ## 2021111-041. October 28, 1968.
043038,000027: ##
043039,000028: ## This AGC program shall also be referred to as
043040,000029: ## Colossus 1A
043041,000030: ##
043042,000031: ## Prepared by
043043,000032: ## Massachusetts Institute of Technology
043044,000033: ## 75 Cambridge Parkway
043045,000034: ## Cambridge, Massachusetts
043046,000035: ## under NASA contract NAS 9-4065.
043047,000036: ##
043048,000037: ## Refer directly to the online document mentioned above for further information.
043049,000038: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
043050,000039: ##
043051,000040: ## In some cases, where the source code for Luminary 131 overlaps that of
043052,000041: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
043053,000042: ## source file, and then is proofed to incorporate any changes.
043054,000043:
|
|
Page 961 |
043056,000045: # PROGRAM NAME.... GEN3DAP FILTERS, CONSISTING OF NP0NODE, NP1NODE, NY0NODE, NY1NODE, ETC.
043057,000046: # LOG SECTION.... GEN3DAP FILTERS SUBROUTINE....DAPCSM
043058,000047: # MOD BY ENGEL 20 OCT, 1967
043059,000048:
043060,000049:
043061,000050: # FUNCTIONAL DESCRIPTION....
043062,000051:
043063,000052: # THE GEN3DAP FILTER PACKAGE IS DESIGNED TO PROVIDE FLEXIBLE, LAST-MINUTE CHANGEABLE DIGITAL AUTOPILOT
043064,000053: # FILTERS FOR LEM-OFF FLIGHT. GROUNDRULES FOR THE DESIGN AND USE OF THE PACKAGE ARE AS FOLLOWS.....
043065,000054:
043066,000055: # 1. FILTER COEFFICIENTS AND GAINS IN ERASABLE MEMORY
043067,000056: # 2. UP TO THIRD-ORDER NUMERATOR OR DENOMINATOR
043068,000057: # 3. OPERATIONAL FIT WITHIN THE STRUCTURE OF THE REGULAR LEM-ON DAP CODING
043069,000058: # 4. DENOMINATOR POLES INSIDE THE Z-PLANE UNIT CIRCLE
043070,000059: # 5. NUMERATOR ZEROS INSIDE THE Z-PLANE DOUBLE-UNIT CIRCLE
043071,000060: # 6. HIGH FREQUENCY (BODE) GAIN LESS THAN 8ASCREVS, OR 8.6380088 DEG/DEG
043072,000061:
043073,000062: # THE FILTERS ARE SHOWN IN THE FOLLOWING DIAGRAMS.....
043074,000063: # PITCH GEN3DAP FILTER..
043075,000064: # KPGEN3
043076,000065: # ********
043077,000066: # ***************************************** *
043078,000067: # * * *
043079,000068: # * -1 -2 -3 * *
043080,000069: # EP = ERRBTMP * APO + AP1 Z + AP2 Z + AP3 Z * NPO NPD = CMDTMP **
043081,000070: # *************** ----------------------------------- **********( X )*********************
043082,000071: # * -1 -2 -3 * **
043083,000072: # * 1 + BP1 Z + BP2 Z + BP3 Z *
043084,000073: # * *
043085,000074: # *****************************************
043086,000075:
043087,000076: # YAW GEN3DAP FILTER..
043088,000077: # KYGEN3
043089,000078: # ********
043090,000079: # ***************************************** *
043091,000080: # * * *
043092,000081: # * -1 -2 -3 * *
043093,000082: # EY = ERRBTMP * AYO + AY1 Z + AY2 Z + AY3 Z * NY0 NYP = CMDTMP **
043094,000083: # *************** ----------------------------------- **********( X )*********************
043095,000084: # * -1 -2 -3 * **
043096,000085: # * 1 + BY1 Z + BY2 Z + BY3 Z *
043097,000086: # * *
043098,000087: # *****************************************
043099,000088:
|
|
Page 962 |
043101,000090: # THE IMPLEMENTING EQUATIONS FOR THESE FILTERS ARE AS FOLLOWS.....
043102,000091:
043103,000092: # PITCH GEN3DAP.... YAW GEN3DAP....
043104,000093: # NPD = (B+4) KPGEN3 NP0 NYD = (B+4) KYGEN3 NY0
043105,000094: # NP0 = AP0 EP + 4(Z-1) NP1 NY0 = AY0 EY + 4(Z-1) NY1
043106,000095: # NY1 = AP1 EP - BP1 NP0 + (Z-1) NP2 NY1 = AY1 EY - BY1 NY0 + (Z-1) NY2
043107,000096: # NP2 = AP2 EP - BP2 NP0 + (Z-1) NP3 NY2 = AY2 EY - BY2 NY0 + (Z-1) NY3
043108,000097: # NP3 = AP3 EP - BP3 NP0 NY3 = AY3 EY - BY3 NY0
043109,000098:
043110,000099: # FILTER INPUTS EP AND EY ARE PICKED UP FROM REGULAR LEM-ON CODING AT ERRBTMP (UPPER WORD ONLY), THUS ARE
043111,000100: # SINGLE PRECISION QUANTITIES SCALED AT B-1 REVS. FILTER OUTPUTS NPD AND NYD ARE LEFT IN DOUBLE PRECISION AT
043112,000101: # CMDTMP, SCALED AT 1 ASCREV, READY FOR OUTPUT PROCESSING VIA REGULAR LEM-ON CODING AT ..P,YOFFSET..
043113,000102: # FOLLOWING OUTPUT PROCESSING, RETURN TO THE GEN3DAP FILTERS IS MADE FOR CALCULATION OF THE REMAINING NODES
043114,000103: # NP1 TO NP3, OR NY1 TO NY3. GEN3DAP FILTERS THEN RETURN TOTHE LEM-ON CODING AT ..DELBARP,Y.. FOR RESPECTIVE
043115,000104: # OFFSET-TRACKER-FILTER COMPUTATIONS AND COPYCYCLES. NOTE THE EQUIVALENCES...NP1TMP=J5TMP, NP1=J5,
043116,000105: # NP2TMP=NSUMTMP, NP2=PNSUM, NP3TMP=DSUMTMP, NP3=PDSUM, WITH CORRESPONDING RELATIONS FOR YAW. THUS THE COPY-
043117,000106: # CYCLE PCOPY, FROM THE GEN3DAP STANDPOINT, IS EFFECTIVE FROM PMISC-3 TO ITS END AT TC Q. YCOPY FROM YMISC-3.
043118,000107: # SCALING OF THE FILTER NODES, COEFFICIENTS, AND GAINS WITHIN THE AGC IS AS FOLLOWS.....
043119,000108:
043120,000109: # QUANTITY QUANTITY PHYS. UNITS MAX. VALUE SCALE AT (FOR)
043121,000110:
043122,000111: # EP EY REVS 1/8 B-1 REV (CDU SCALING)
043123,000112: #
043124,000113: # NP0 NY0 REVS (B+1) B+1 REV
043125,000114: # NP1 NY1 REVS (B+3) B+3 REV
043126,000115: # NP2 NY2 REVS (B+3) B+3 REV
043127,000116: # NP3 NY3 REVS (B+3) B+3 REV
043128,000117:
043129,000118: # NPD NYD ASC REVS (1) 1 ASCREV (ACTUATOR CDU SCALING)
043130,000119: #
043131,000120: # KPGEN3 KYGEN3 ASCREV/REV (8) B+3 ASCREV/REV
043132,000121:
043133,000122: # AP0 AY0 DIMLESS. 1 B+2
043134,000123: # AP1 AY1 DIMLESS. 6 B+4
043135,000124: # AP2 AY2 DIMLESS. 12 B+4
043136,000125: # AP3 AY3 DIMLESS. 8 B+4
043137,000126:
043138,000127: # BP1 BY1 DIMLESS. 3 B+2
043139,000128: # BP2 BY2 DIMLESS. 3 B+2
043140,000129: # BP3 BY3 DIMLESS. 1 B+2
043141,000130:
043142,000131: # FILTER COEFFICIENTS, GAINS, AND NODES ARE HELD IN DOUBLE PRECISION (ERASABLE) TO PERMIT CONSERVATIVE
043143,000132: # SCALING AND YET OFFSET TRUNCATION LOSSES. THIS APPEARS NECESSARY IF FILTER FLEXIBILITY IS TO BE MAINTAINED.
043144,000133: # COMPUTATION TIME IS NOT CRITICAL.
043145,000134:
|
|
Page 963 |
043147,000136: # CALLING SEQUENCE....
043148,000137: #
043149,000138: # *TC POSTJUMP....
043150,000139: # CADR NP0NODE, NP1, NY0, NY1. SPECIFICALLY, FROM PITCHDAP OR YAWDAP
043151,000140: # (TVCDAP), AT P1FILJMP, P2FILJMP, Y1FILJMP, Y2FILJMP
043152,000141:
043153,000142: # NORMAL EXIT MODE....
043154,000143:
043155,000144: # *TC POSTJUMP....
043156,000145: # CADR (POFFSET, DELBARP), (YOFFSET, DELBARY). IE, RETURNS TO
043157,000146: # PITCHDAP OR YAWDAP AT APPROPRIATE ENTRY POINT
043158,000147:
043159,000148: # ALARM OR ABORT EXIT MODES....NONE
043160,000149:
043161,000150: # SUBROUTINES CALLED.... NONE
043162,000151:
043163,000152: # ERASABLE INITIALIZATION REQUIRED....
043164,000153:
043165,000154: # *AP0(SP),AP1(DP),...AP3(DP), (PITCH AND YAW) NUMERATOR COEFFICIENTS
043166,000155: # (PAD LOADS)
043167,000156:
043168,000157: # *BP1(DP),...BP3(DP), (PITCH AND YAW) DENOMINATOR COEFFICIENTS
043169,000158: # (PAD LOADS)
043170,000159:
043171,000160: # *KPGEN3 (S40.15 OF R03)
043172,000161:
043173,000162: # OUTPUT....
043174,000163:
043175,000164: # *CMDTMP (NPD, NYD) FOR OUTPUT PROCESSING BY PITCHDAP OR YAWDAP
043176,000165:
043177,000166: # *OTHER FILTER NODES
043178,000167:
043179,000168: # DEBRIS....TVC TEMPORARIES, SHAREABLE WITH RCS/ENTRY IN EBANK6 ONLY
043180,000169:
043181,000170: 21,2026 BANK 21
043182,000171: 17,2000 SETLOC DAPS4
043183,000172: 17,2000 BANK
043184,000173: 17,2213 E6,1742 EBANK= EP
043185,000174: 17,2213 COUNT* $$/GEN3
043186,000175:
|
|
Page 964 |
043188,000177: # PITCH GEN3DAP FILTER.....
043189,000178:
043190,000179: 17,2213 00006 NP0NODE EXTEND # FORM NODE NP0....COLLECT (PAST NP1)
043191,000180: 17,2214 31564 DCA NP1 # (COMES HERE FROM REG. DAP CODING)
043192,000181: 17,2215 20001 DDOUBL
043193,000182: 17,2216 20001 DDOUBL
043194,000183: 17,2217 53562 DXCH NP0
043195,000184:
043196,000185: 17,2220 31742 AP0(EP) CAE EP # SPXSP MULTIPLY FOR NUMERATOR COMPONENT
043197,000186: 17,2221 00006 EXTEND # EP = ERRBTMP, SP, SC.AT B-1 REVS
043198,000187: 17,2222 71427 MP AP0
043199,000188: 17,2223 21562 DAS NP0 # COMPLETED NODE NP0, SC.AT B+1 REVS
043200,000189: 17,2224 31561 NPDNODE CAE NP0 # FORM NODE NPD....SPXDP MULTIPLY BY GAIN
043201,000190: 17,2225 00006 EXTEND
043202,000191: 17,2226 71651 MP KPGEN3
043203,000192: 17,2227 53745 DXCH NPD
043204,000193: 17,2230 31562 CAE NP0 +1
043205,000194: 17,2231 00006 EXTEND
043206,000195: 17,2232 71651 MP KPGEN3
043207,000196: 17,2233 22007 ZL
043208,000197: 17,2234 22000 LXCH A
043209,000198: 17,2235 21745 DAS NPD # SC.AT B+4 ASCREV SINCE KPGEN3 AT B+3
043210,000199:
043211,000200: 17,2236 53745 DXCH NPD # FIX UP SCALING
043212,000201: 17,2237 20001 DDOUBL
043213,000202: 17,2240 20001 DDOUBL
043214,000203: 17,2241 20001 DDOUBL
043215,000204: 17,2242 20001 DDOUBL
043216,000205: 17,2243 53745 DXCH NPD # COMPLETED NODE NPD, SC.AT 1ASCREV
043217,000206: 17,2244 04574 TC POSTJUMP # TRANSFER BACK TO REGULAR DAP CODING FOR
043218,000207: 17,2245 40441 CADR POFFSET # OUTPUT (NPD = CMDTMP, DP)
043219,000208: 17,2246 00006 NP1NODE EXTEND # FORM NODE NP1....COLLECT (PAST NP2)
043220,000209: 17,2247 31542 DCA NP2 # (COMES HERE FROM REG. DAP CODING)
043221,000210: 17,2250 53737 DXCH NP1TMP
043222,000211:
043223,000212: 17,2251 41561 BP1(NP0) CS NP0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
043224,000213: 17,2252 00006 EXTEND
043225,000214: 17,2253 71436 MP BP1
043226,000215: 17,2254 21737 DAS NP1TMP
043227,000216: 17,2255 41562 CS NP0 +1
043228,000217: 17,2256 00006 EXTEND
043229,000218: 17,2257 71436 MP BP1
043230,000219: 17,2260 27737 ADS NP1TMP +1
043231,000220: 17,2261 54001 TS L
043232,000221: 17,2262 12264 TCF +2
043233,000222: 17,2263 27736 ADS NP1TMP
|
|
Page 965 |
043235,000224: 17,2264 41561 CS NP0
043236,000225: 17,2265 00006 EXTEND
043237,000226: 17,2266 71437 MP BP1 +1
043238,000227: 17,2267 27737 ADS NP1TMP +1
043239,000228: 17,2270 54001 TS L
043240,000229: 17,2271 12273 TCF +2
043241,000230: 17,2272 27736 ADS NP1TMP
043242,000231:
043243,000232: 17,2273 31742 AP1(EP) CAE EP # DPXSP MULTIPLY FOR NUMERATOR COMPONENT
043244,000233: 17,2274 00006 EXTEND
043245,000234: 17,2275 71430 MP AP1
043246,000235: 17,2276 21737 DAS NP1TMP
043247,000236: 17,2277 31742 CAE EP
043248,000237: 17,2300 00006 EXTEND
043249,000238: 17,2301 71431 MP AP1 +1
043250,000239: 17,2302 27737 ADS NP1TMP +1
043251,000240: 17,2303 54001 TS L
043252,000241: 17,2304 12306 TCF +2
043253,000242: 17,2305 27736 ADS NP1TMP # COMPLETED NODE NP1
043254,000243:
043255,000244: 17,2306 00006 NP2NODE EXTEND # FORM NODE NP2....COLLECT (PAST NP3)
043256,000245: 17,2307 31544 DCA NP3
043257,000246: 17,2310 53712 DXCH NP2TMP
043258,000247: 17,2311 41561 BP2(NP0) CS NP0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
043259,000248: 17,2312 00006 EXTEND
043260,000249: 17,2313 71440 MP BP2
043261,000250: 17,2314 21712 DAS NP2TMP
043262,000251: 17,2315 41562 CS NP0 +1
043263,000252: 17,2316 00006 EXTEND
043264,000253: 17,2317 71440 MP BP2
043265,000254: 17,2320 27712 ADS NP2TMP +1
043266,000255: 17,2321 54001 TS L
043267,000256: 17,2322 12324 TCF +2
043268,000257: 17,2323 27711 ADS NP2TMP
043269,000258: 17,2324 41561 CS NP0
043270,000259: 17,2325 00006 EXTEND
043271,000260: 17,2326 71441 MP BP2 +1
043272,000261: 17,2327 27712 ADS NP2TMP +1
043273,000262: 17,2330 54001 TS L
043274,000263: 17,2331 12333 TCF +2
043275,000264: 17,2332 27711 ADS NP2TMP
043276,000265:
043277,000266: 17,2333 31742 AP2(EP) CAE EP # DPXSP MULTIPLY FOR NUMERATOR COMPONENT
043278,000267: 17,2334 00006 EXTEND
043279,000268: 17,2335 71432 MP AP2
043280,000269: 17,2336 21712 DAS NP2TMP
043281,000270: 17,2337 31742 CAE EP
043282,000271: 17,2340 00006 EXTEND
043283,000272: 17,2341 71433 MP AP2 +1
043284,000273: 17,2342 27712 ADS NP2TMP +1
|
|
Page 966 |
043286,000275: 17,2343 54001 TS L
043287,000276: 17,2344 12346 TCF +2
043288,000277: 17,2345 27711 ADS NP2TMP # COMPLETED NODE NP2
043289,000278:
043290,000279: 17,2346 41561 NP3NODE CS NP0 # FORM NODE NP3....NO PAST NODES, DIRECT
043291,000280: 17,2347 00006 EXTEND # TO DPXDP MULTIPLY FOR DENOMINATOR
043292,000281: 17,2350 71442 MP BP3 # COMPONENT
043293,000282: 17,2351 53714 DXCH NP3TMP
043294,000283: 17,2352 41562 CS NP0 +1
043295,000284: 17,2353 00006 EXTEND
043296,000285: 17,2354 71442 MP BP3
043297,000286: 17,2355 27714 ADS NP3TMP +1
043298,000287: 17,2356 54001 TS L
043299,000288: 17,2357 12361 TCF +2
043300,000289: 17,2360 27713 ADS NP3TMP
043301,000290: 17,2361 41561 CS NP0
043302,000291: 17,2362 00006 EXTEND
043303,000292: 17,2363 71443 MP BP3 +1
043304,000293: 17,2364 27714 ADS NP3TMP +1
043305,000294: 17,2365 54001 TS L
043306,000295: 17,2366 12370 TCF +2
043307,000296: 17,2367 27713 ADS NP3TMP
043308,000297:
043309,000298: 17,2370 31742 AP3(EP) CAE EP # DPXSP MULTIPLY FOR NUMERATOR COMPONENT
043310,000299: 17,2371 00006 EXTEND
043311,000300: 17,2372 71434 MP AP3
043312,000301: 17,2373 21714 DAS NP3TMP
043313,000302: 17,2374 31742 CAE EP
043314,000303: 17,2375 00006 EXTEND
043315,000304: 17,2376 71435 MP AP3 +1
043316,000305: 17,2377 27714 ADS NP3TMP +1
043317,000306: 17,2400 54001 TS L
043318,000307: 17,2401 12403 TCF +2
043319,000308: 17,2402 27713 ADS NP3TMP # COMPLETED NODE NP3, AND PITCH GEN3DAP
043320,000309: # FILTER COMPUTATIONS
043321,000310: 17,2403 04574 TC POSTJUMP # RETURN TO CSMDAP CODING FOR PITCH
043322,000311: 17,2404 40526 CADR DELBARP # OFFSET-TRACKER-FILTER COMPUTATIONS,
043323,000312: # AND PITCH DAP COPYCYCLE.
043324,000313:
|
|
Page 967 |
043326,000315: # YAW GEN3DAP FILTER....
043327,000316:
043328,000317: 17,2405 00006 NY0NODE EXTEND # FORM NODE NY0....COLLECT (PAST NY1)
043329,000318: 17,2406 31610 DCA NY1 # (COMES HERE FROM REG. DAP CODING)
043330,000319: 17,2407 20001 DDOUBL
043331,000320: 17,2410 20001 DDOUBL
043332,000321: 17,2411 53606 DXCH NY0
043333,000322:
043334,000323: 17,2412 31742 AY0(EY) CAE EY # SPXSP MULTIPLY FOR NUMERATOR COMPONENT
043335,000324: 17,2413 00006 EXTEND # EY = ERRBTMP, SP, SC.AT B-1 REVS
043336,000325: 17,2414 71427 MP AY0
043337,000326: 17,2415 21606 DAS NY0 # COMPLETED NODE NY0, SC.AT B+1 REVS
043338,000327: 17,2416 31605 NYDNODE CAE NY0 # FORM NODE NYD....SPXDP MULTIPLY BY GAIN
043339,000328: 17,2417 00006 EXTEND
043340,000329: 17,2420 71651 MP KYGEN3
043341,000330: 17,2421 53745 DXCH NYD
043342,000331: 17,2422 31606 CAE NY0 +1
043343,000332: 17,2423 00006 EXTEND
043344,000333: 17,2424 71651 MP KYGEN3
043345,000334: 17,2425 22007 ZL
043346,000335: 17,2426 22000 LXCH A
043347,000336: 17,2427 21745 DAS NYD # SC.AT B+4 ASCREV SINCE KYGEN3 AT B+1
043348,000337:
043349,000338: 17,2430 53745 DXCH NYD # FIX UP SCALING
043350,000339: 17,2431 20001 DDOUBL
043351,000340: 17,2432 20001 DDOUBL
043352,000341: 17,2433 20001 DDOUBL
043353,000342: 17,2434 20001 DDOUBL
043354,000343: 17,2435 53745 DXCH NYD # COMPLETED NODE NYD, SC.AT 1ASCREV
043355,000344: 17,2436 04574 TC POSTJUMP # TRANSFER BACK TO REGULAR DAP CODING FOR
043356,000345: 17,2437 40730 CADR YOFFSET # OUTPUT (NYD = CMDTMP, DP)
043357,000346: 17,2440 00006 NY1NODE EXTEND # FORM NODE NY1....COLLECT (PAST NY2)
043358,000347: 17,2441 31566 DCA NY2 # (COMES HERE FROM REG. DAP CODING)
043359,000348: 17,2442 53737 DXCH NY1TMP
043360,000349:
043361,000350: 17,2443 41605 BY1(NY0) CS NY0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
043362,000351: 17,2444 00006 EXTEND
043363,000352: 17,2445 71436 MP BY1
043364,000353: 17,2446 21737 DAS NY1TMP
043365,000354: 17,2447 41606 CS NY0 +1
043366,000355: 17,2450 00006 EXTEND
043367,000356: 17,2451 71436 MP BY1
043368,000357: 17,2452 27737 ADS NY1TMP +1
043369,000358: 17,2453 54001 TS L
043370,000359: 17,2454 12456 TCF +2
043371,000360: 17,2455 27736 ADS NY1TMP
|
|
Page 968 |
043373,000362: 17,2456 41605 CS NY0
043374,000363: 17,2457 00006 EXTEND
043375,000364: 17,2460 71437 MP BY1 +1
043376,000365: 17,2461 27737 ADS NY1TMP +1
043377,000366: 17,2462 54001 TS L
043378,000367: 17,2463 12465 TCF +2
043379,000368: 17,2464 27736 ADS NY1TMP
043380,000369:
043381,000370: 17,2465 31742 AY1(EY) CAE EY # DPXSP MULTIPLY FOR NUMERATOR COMPONENT
043382,000371: 17,2466 00006 EXTEND
043383,000372: 17,2467 71430 MP AY1
043384,000373: 17,2470 21737 DAS NY1TMP
043385,000374: 17,2471 31742 CAE EY
043386,000375: 17,2472 00006 EXTEND
043387,000376: 17,2473 71431 MP AY1 +1
043388,000377: 17,2474 27737 ADS NY1TMP +1
043389,000378: 17,2475 54001 TS L
043390,000379: 17,2476 12500 TCF +2
043391,000380: 17,2477 27736 ADS NY1TMP # COMPLETED NODE NY1
043392,000381:
043393,000382: 17,2500 00006 NY2NODE EXTEND # DORM NODE NY2....COLLECT (PAST NY3)
043394,000383: 17,2501 31570 DCA NY3
043395,000384: 17,2502 53712 DXCH NY2TMP
043396,000385:
043397,000386: 17,2503 41605 BY2(NY0) CS NY0 # DPXDP MULTIPLY FOR DENOMINATOR COMPONENT
043398,000387: 17,2504 00006 EXTEND
043399,000388: 17,2505 71440 MP BY2
043400,000389: 17,2506 21712 DAS NY2TMP
043401,000390: 17,2507 41606 CS NY0 +1
043402,000391: 17,2510 00006 EXTEND
043403,000392: 17,2511 71440 MP BY2
043404,000393: 17,2512 27712 ADS NY2TMP +1
043405,000394: 17,2513 54001 TS L
043406,000395: 17,2514 12516 TCF +2
043407,000396: 17,2515 27711 ADS NY2TMP
043408,000397: 17,2516 41605 CS NY0
043409,000398: 17,2517 00006 EXTEND
043410,000399: 17,2520 71441 MP BY2 +1
043411,000400: 17,2521 27712 ADS NY2TMP +1
043412,000401: 17,2522 54001 TS L
043413,000402: 17,2523 12525 TCF +2
043414,000403: 17,2524 27711 ADS NY2TMP
043415,000404:
043416,000405: 17,2525 31742 AY2(EY) CAE EY # DPXSP MULTIPLY FOR NUMERATOR COMPONENT
043417,000406: 17,2526 00006 EXTEND
043418,000407: 17,2527 71432 MP AY2
043419,000408: 17,2530 21712 DAS NY2TMP
043420,000409: 17,2531 31742 CAE EY
043421,000410: 17,2532 00006 EXTEND
043422,000411: 17,2533 71433 MP AY2 +1
|
|
Page 969 |
043424,000413: 17,2534 27712 ADS NY2TMP +1
043425,000414: 17,2535 54001 TS L
043426,000415: 17,2536 12540 TCF +2
043427,000416: 17,2537 27711 ADS NY2TMP # COMPLETED NODE NY2
043428,000417:
043429,000418: 17,2540 41605 NY3NODE CS NY0 # FORM NODE NY3....NO PAST NODES, DIRECT
043430,000419: 17,2541 00006 EXTEND # TO DPXDP MULTIPLY FOR DENOMINATOR
043431,000420: 17,2542 71442 MP BY3 # COMPONENT
043432,000421: 17,2543 53714 DXCH NY3TMP
043433,000422: 17,2544 41606 CS NY0 +1
043434,000423: 17,2545 00006 EXTEND
043435,000424: 17,2546 71442 MP BY3
043436,000425: 17,2547 27714 ADS NY3TMP +1
043437,000426: 17,2550 54001 TS L
043438,000427: 17,2551 12553 TCF +2
043439,000428: 17,2552 27713 ADS NY3TMP
043440,000429: 17,2553 41605 CS NY0
043441,000430: 17,2554 00006 EXTEND
043442,000431: 17,2555 71443 MP BY3 +1
043443,000432: 17,2556 27714 ADS NY3TMP +1
043444,000433: 17,2557 54001 TS L
043445,000434: 17,2560 12562 TCF +2
043446,000435: 17,2561 27713 ADS NY3TMP
043447,000436:
043448,000437: 17,2562 31742 AY3(EY) CAE EY # DPXSP MULTIPLY FOR NUMERATOR COMPONENT
043449,000438: 17,2563 00006 EXTEND
043450,000439: 17,2564 71434 MP AY3
043451,000440: 17,2565 21714 DAS NY3TMP
043452,000441: 17,2566 31742 CAE EY
043453,000442: 17,2567 00006 EXTEND
043454,000443: 17,2570 71435 MP AY3 +1
043455,000444: 17,2571 27714 ADS NY3TMP +1
043456,000445: 17,2572 54001 TS L
043457,000446: 17,2573 12575 TCF +2
043458,000447: 17,2574 27713 ADS NY3TMP # COMPLETED NODE NY3, AND YAW GEN3DAP
043459,000448: # FILTER COMPUTATIONS
043460,000449: 17,2575 04574 TC POSTJUMP # RETURN TO CSMDAP CODING FOR YAW
043461,000450: 17,2576 41015 CADR DELBARY # OFFSET-TRACKER-FILTER COMPUTATIONS,
043462,000451: # AND YAW DAP COPYCYCLE.
043463,000452:
043464,000453:
End of include-file TVCGEN3FILTERS.agc. Parent file is MAIN.agc