Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
041362,000002: ## Copyright: Public domain.
041363,000003: ## Filename: TVCDAPS.agc
041364,000004: ## Purpose: A section of Comanche revision 072.
041365,000005: ## It is part of the reconstructed source code for the first
041366,000006: ## release of the software for the Command Module's (CM) Apollo
041367,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
041368,000008: ## of this program are available; instead, this file was recreated
041369,000009: ## from a printout of Comanche 055, binary dumps of a set of
041370,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
041371,000011: ## and 072. It has been adapted such that the resulting bugger words
041372,000012: ## exactly match those specified for Comanche 072 in NASA drawing
041373,000013: ## 2021153G, which gives relatively high confidence that the
041374,000014: ## reconstruction is correct.
041375,000015: ## Assembler: yaYUL
041376,000016: ## Contact: Ron Burkey <info@sandroid.org>.
041377,000017: ## Website: www.ibiblio.org/apollo/index.html
041378,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
041379,000019: ## 2024-05-14 MAS Implemented ACB-97, "Delete redundant line
041380,000020: ## inadvertently inserted in implementation of
041381,000021: ## PCR 810".
041382,000022:
041383,000023: # PROGRAM NAME....TVCDAP, CONSISTING OF PITCHDAP, YAWDAP, ETC.
041384,000024: # LOG SECTION...TVCDAPS SUBROUTINE...DAPCSM
041385,000025: # MODIFIED BY SCHLUNDT 21 OCTOBER 1968
041386,000026:
041387,000027: # FUNCTIONAL DESCRIPTION....
041388,000028:
041389,000029: # SELF-PERPETUATING T5 TASKS WHICH GENERATE THE COMMAND SIGNALS
041390,000030: # FOR THE PITCH AND YAW SPS GIMBAL ACTUATORS DURING TVC (SPS) BURNS,
041391,000031: # IN RESPONSE TO BODY-AXIS RATE COMMANDS FROM CROSS-PRODUCT STEERING
041392,000032: # (S40.8). IF NO STEERING (IMPULSIVE BURNS) MAINTAINS ATTITUDE-HOLD
041393,000033: # ABOUT THE REFERENCE (INITIAL) DIRECTIONS (ZERO RATE COMMANDS).
041394,000034:
041395,000035: # THE PITCH AND YAW LOOPS ARE SEPARATE, BUT STRUCTURED IDENTICALLY.
041396,000036: # EACH ATTITUDE-RATE LOOP INCLUDES GIMBAL ANGLE RATE DERIVATION,
041397,000037: # GIMBAL/BODY AXIS TRANSFORMATION, BODY-AXIS ATTITUDE ERROR
041398,000038: # INTEGRATION WITH ERROR LIMITING, THE GENERALIZED 6TH-ORDER FILTER
041399,000039: # FOR CSM OR CSM/LM OPERATION, A FILTER OUTPUT LIMITER,
041400,000040: # CG-OFFSET TRACKER FILTER, AND THE CG-TRACKER MINOR LOOP.
041401,000041:
041402,000042: # THE DAPS ARE CYCLIC, CALLING EACH OTHER AT 1/2 THE DAP SAMPLE
041403,000043: # TIME, AS DETERMINED BY T5TVCDT. THE ACTUATOR COMMANDS ARE
041404,000044: # REGENERATED AS ANALOG VOLTAGES BY THE OPTICS ERROR COUNTERS, WHICH
041405,000045: # TRANSMIT THE SIGNAL TO THE ACTUATOR SERVOS WHEN THERE IS PROPER CDU
041406,000046: # MODING.
041407,000047:
041408,000048: # CALLING SEQUENCE.... (TYPICALLY)
041409,000049:
041410,000050: # T5 CALL OF TVCDAPON (TVCINITIALIZE) BY DOTVCON (P40)
041411,000051: # T5 CALL OF DAPINIT (TVCDAPS) BY TVCINIT4 (TVCINITIALIZE)
041412,000052: # T5 CALL OF PITCHDAP BY DAPINIT
041413,000053: # T5 CALL OF YAWDAP BY PITCHDAP
041414,000054: # T5 CALL OF PITCHDAP BY YAWDAP
041415,000055: # ETC.
041416,000056: # (AUTOMATIC SEQUENCING FROM TVCDAPON)
041417,000057:
041418,000058: # NORMAL EXIT MODE....RESUME
041419,000059:
041420,000060: # ALARM OR ABORT EXIT MODES....NONE
041421,000061:
041422,000062: # SUBROUTINES CALLED....
041423,000063:
041424,000064: # HACK FOR STROKE TEST (V68) WAVEFORM GENERATION
041425,000065: # PCOPY, YCOPY FOR COPY-CYCLES (USED ALSO BY TVC RESTART PACKAGE)
041426,000066: # DAPINIT FOR INITIAL CDUS FOR RATE MEASUREMENTS
041427,000067: # ERRORLIM, ACTLIM FOR INPUT (ATTITUDE-ERROR INTEGRATION) AND
041428,000068: # OUTPUT (ACTUATOR COMMAND) LIMITING, COMMON TO PITCH AND
041429,000069: # YAW DAPS
041430,000070: # FWDFLTR (INCLUDING OPTVARK) AND PRECOMP, TO COMPUTE FILTER
041431,000071: # OUTPUTS AND STORAGE VALUES
041432,000072: # RESUME
041433,000073:
041434,000074: # OTHER INTERFACES....
041435,000075:
041436,000076: # S40.8 CROSS-PRODUCT STEERING FOR BODY AXIS RATE COMMANDS OMEGAY,ZC
041437,000077: # S40.15 FOR THE INITIAL DAP GAINS VARK AND 1/CONACC
041438,000078: # TVCEXECUTIVE FOR DAP GAIN UPDATES AND TMC LOOP OPERATIONS
041439,000079: # TVCRESTART PACKAGE FOR TVC RESTART PROTECTION.
041440,000080:
041441,000081: # ERASABLE INITIALIZATION REQUIRED....
041442,000082:
041443,000083: # PAD-LOAD ERASABLES (SEE ERASABLE ASSIGNMENTS)
041444,000084: # CONFIGURATION BITS (14, 13) OF DAPDATR1 AS IN R03
041445,000085: # ENGINE-ON BIT (11.13) FOR RESTARTS
041446,000086: # TVCPHASE FOR RESTARTS (SEE DOTVCON, AND TVCINIT4)
041447,000087: # T5 BITS (15,14 OF FLAGWRD6) FOR RESTARTS
041448,000088: # MISCELLANEOUS VARIABLES SET UP OR COMPUTED BY TVCDAPON....TVCINIT4,
041449,000089: # INCLUDING THE ZEROING OF TEMPORARIES BY MRCLEAN
041450,000090: # CDUX,Y,Z AND SINCDUX.... COSCDUZ AS PREPARED BY QUICTRIG (WITH
041451,000091: # UPDATES EVERY 1/2 SECOND)
041452,000092: # ALSO G+N PRIMARY, TVC ENABLE, AND OPTICS ERROR COUNTER ENABLE
041453,000093: # UNLESS BENCH-TESTING.
041454,000094:
041455,000095: # OUTPUT....
041456,000096:
041457,000097: # TVCPITCH AND TVCYAW WITH COUNTER RELEASE (11.14 AND 11.13 INCREMEN-
041458,000098: # TAL COMMANDS TO OPTICS ERROR COUNTERS), FILTER NODES, BODY-
041459,000099: # AXIS ATTITUDE ERROR INTEGRATOR, TOTAL ACTUATOR COMMANDS,
041460,000100: # OFFSET-TRACKER-FILTER OUTPUTS, ETC.
041461,000101:
041462,000102: # DEBRIS....
041463,000103:
041464,000104: # MUCH, SHAREABLE WITH RCS/ENTRY, IN EBANK6 ONLY
041465,000105:
041466,000106: 17,2610 BANK 17
041467,000107: 20,2000 SETLOC DAPS2
041468,000108: 20,2000 BANK
041469,000109:
041470,000110: 20,2547 E6,1704 EBANK= BZERO
041471,000111:
041472,000112: 20,2547 COUNT* $$/DAPS
041473,000113:
041474,000114: # PITCH TVCDAP STARTS HERE....(INCORPORATES CSM/LEM DAP FILTER, MODOR DESIGN)
041475,000115:
041476,000116: 20,2547 22016 PITCHDAP LXCH BANKRUPT # T5 ENTRY, NORMAL OR VIA DAPINIT
041477,000117: 20,2550 00006 EXTEND
041478,000118: 20,2551 22012 QXCH QRUPT
041479,000119:
041480,000120: 20,2552 33533 CAF YAWT5 # SET UP T5 CALL FOR YAW AUTOPILOT (LOW-
041481,000121: 20,2553 55312 TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
041482,000122: 20,2554 31625 CAE T5TVCDT
041483,000123: 20,2555 54030 TS TIME5
041484,000124:
041485,000125: 20,2556 11574 PSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
041486,000126: 20,2557 03571 TC HACK # TEST-START OR TEST-IN-PROGRESS
041487,000127: 20,2560 12562 TCF +2 # NO-TEST
041488,000128: 20,2561 03571 TC HACK # TEST-IN-PROGRESS
041489,000129:
041490,000130: 20,2562 30033 PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW)
041491,000131: 20,2563 57645 XCH PCDUYPST
041492,000132: 20,2564 00006 EXTEND
041493,000133: 20,2565 21645 MSU PCDUYPST
041494,000134: 20,2566 02577 TCR RLIMTEST # RATE TEST
041495,000135: 20,2567 55651 TS MCDUYDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
041496,000136:
041497,000137: 20,2570 30034 CAE CDUZ # COMPUTE CDUZDOT (USED BY PITCH AND YAW)
041498,000138: 20,2571 57646 XCH PCDUZPST
041499,000139: 20,2572 00006 EXTEND
041500,000140: 20,2573 21646 MSU PCDUZPST
041501,000141: 20,2574 02577 TCR RLIMTEST # RATE TEST
041502,000142: 20,2575 55652 TS MCDUZDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
041503,000143: 20,2576 12610 TCF PINTEGRL
041504,000144:
041505,000145: 20,2577 55611 RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER
041506,000146: 20,2600 00006 EXTEND # THAN 2.33 DEG IN ONE SAMPLE PERIOD)
041507,000147: 20,2601 73534 MP 1/RTLIM
041508,000148: 20,2602 00006 EXTEND
041509,000149: 20,2603 12606 BZF +3
041510,000150: 20,2604 35035 CAF ZERO
041511,000151: 20,2605 55611 TS TTMP1
041512,000152: 20,2606 31611 CAE TTMP1
041513,000153: 20,2607 00002 TC Q
041514,000154:
041515,000155: 20,2610 00006 PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE
041516,000156: 20,2611 31576 DCA PERRB # ERROR, SC.AT B-1 REVS
041517,000157: 20,2612 53705 DXCH ERRBTMP
041518,000158:
041519,000159: 20,2613 00006 EXTEND
041520,000160: 20,2614 31530 DCA OMEGAYC
041521,000161: 20,2615 21705 DAS ERRBTMP
041522,000162:
041523,000163: 20,2616 40746 CS COSCDUZ # PREPARE BODY-AXIS PITCH RATE, OMEGAYB
041524,000164: 20,2617 00006 EXTEND
041525,000165: 20,2620 70750 MP COSCDUX
041526,000166: 20,2621 20001 DDOUBL
041527,000167: 20,2622 00006 EXTEND
041528,000168: 20,2623 71651 MP MCDUYDOT
041529,000169: 20,2624 20001 DDOUBL
041530,000170: 20,2625 53536 DXCH OMEGAYB
041531,000171:
041532,000172: 20,2626 41652 CS MCDUZDOT
041533,000173: 20,2627 00006 EXTEND
041534,000174: 20,2630 70742 MP SINCDUX
041535,000175: 20,2631 20001 DDOUBL
041536,000176: 20,2632 21536 DAS OMEGAYB # (COMPLETED OMEGAYB, SC.AT 1/2TVCDT REVS)
041537,000177:
041538,000178: 20,2633 00006 EXTEND # PICK UP -OMEGAYB (SIGN CHNG, INTEGRATE)
041539,000179: 20,2634 41536 DCS OMEGAYB
041540,000180: 20,2635 21705 DAS ERRBTMP
041541,000181:
041542,000182: 20,2636 03161 PERORLIM TCR ERRORLIM # PITCH BODY-AXIS-ERROR INPUT LIMITER
041543,000183:
041544,000184: 20,2637 00006 PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
041545,000185: 20,2640 31542 DCA PTMP1 # FOR THE PITCH CHANNEL
041546,000186: 20,2641 53711 DXCH TMP1
041547,000187: 20,2642 00006 EXTEND
041548,000188: 20,2643 31546 DCA PTMP3
041549,000189: 20,2644 53715 DXCH TMP3
041550,000190: 20,2645 00006 EXTEND
041551,000191: 20,2646 31552 DCA PTMP5
041552,000192: 20,2647 53721 DXCH TMP5
041553,000193:
041554,000194: 20,2650 03213 TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
041555,000195: # (INCLUDES VARIABLE GAIN PACKAGE)
041556,000196:
041557,000197: 20,2651 00006 POFFSET EXTEND
041558,000198: 20,2652 31606 DCA PDELOFF
041559,000199: 20,2653 21707 DAS CMDTMP # NOW SCALED AT B+0 ASCREV
041560,000200:
041561,000201: 20,2654 03174 PACLIM TCR ACTLIM # ROUND OFF & LIMIT PITCH ACTUATOR COMMAND
041562,000202:
041563,000203: 20,2655 41623 POUT CS PCMD # INCREMENTAL PITCH COMMAND
041564,000204: 20,2656 61706 AD CMDTMP
041565,000205: 20,2657 26054 ADS TVCPITCH # UPDATE THE ERROR COUNTER (NO RESTART-
041566,000206: # PROTECT, SINCE ERROR CNTR ZEROED)
041567,000207:
041568,000208: 20,2660 35021 CAF BIT11 # BIT FOR TVCPITCH COUNT RELEASE
041569,000209: 20,2661 00006 EXTEND
041570,000210: 20,2662 05014 WOR CHAN14
041571,000211:
041572,000212: 20,2663 00006 PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH
041573,000213: 20,2664 31544 DCA PTMP2
041574,000214: 20,2665 53713 DXCH TMP2
041575,000215: 20,2666 00006 EXTEND
041576,000216: 20,2667 31550 DCA PTMP4
041577,000217: 20,2670 53717 DXCH TMP4
041578,000218: 20,2671 00006 EXTEND
041579,000219: 20,2672 31554 DCA PTMP6
041580,000220: 20,2673 53723 DXCH TMP6
041581,000221:
041582,000222: 20,2674 03305 TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
041583,000223:
041584,000224: 20,2675 31602 DELBARP CAE DELPBAR +1 # UPDATE PITCH OFFSET-TRACKER-FILTER
041585,000225: 20,2676 00006 EXTEND
041586,000226: 20,2677 73536 MP E(-AT)
041587,000227: 20,2700 55703 TS DELBRTMP +1
041588,000228: 20,2701 31601 CAE DELPBAR
041589,000229: 20,2702 00006 EXTEND
041590,000230: 20,2703 73536 MP E(-AT)
041591,000231: 20,2704 21703 DAS DELBRTMP
041592,000232: 20,2705 31706 CAE CMDTMP
041593,000233: 20,2706 00006 EXTEND
041594,000234: 20,2707 73535 MP 1-E(-AT)
041595,000235: 20,2710 21703 DAS DELBRTMP
041596,000236:
041597,000237: 20,2711 02713 PCOPYCYC TCR PCOPY # PITCH COPYCYCLE
041598,000238:
041599,000239: 20,2712 15347 PDAPEND TCF RESUME # PITCH DAP COMPLETED
041600,000240: # PITCH TVCDAP COPYCYCLE SUBROUTINE (CALLED VIA PITCH TVCDAP OR TVC RESTART PACKAGE)
041601,000241:
041602,000242: 20,2713 25644 PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
041603,000243: # NOTE POSSIBLE RE-ENTRY FROM RESTART
041604,000244: # PACKAGE, SHOULD A RESTART OCCUR
041605,000245: # DURING PITCH COPYCYCLE.
041606,000246:
041607,000247: 20,2714 00006 EXTEND
041608,000248: 20,2715 31711 DCA TMP1
041609,000249: 20,2716 53542 DXCH PTMP1
041610,000250: 20,2717 00006 EXTEND
041611,000251: 20,2720 31713 DCA TMP2
041612,000252: 20,2721 53544 DXCH PTMP2
041613,000253: 20,2722 00006 EXTEND
041614,000254: 20,2723 31715 DCA TMP3
041615,000255: 20,2724 53546 DXCH PTMP3
041616,000256: 20,2725 00006 EXTEND
041617,000257: 20,2726 31717 DCA TMP4
041618,000258: 20,2727 53550 DXCH PTMP4
041619,000259: 20,2730 00006 EXTEND
041620,000260: 20,2731 31721 DCA TMP5
041621,000261: 20,2732 53552 DXCH PTMP5
041622,000262: 20,2733 00006 EXTEND
041623,000263: 20,2734 31723 DCA TMP6
041624,000264: 20,2735 53554 DXCH PTMP6
041625,000265:
041626,000266: 20,2736 00006 PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR
041627,000267: 20,2737 31705 DCA ERRBTMP
041628,000268: 20,2740 55477 TS AK1 # FOR PITCH NEEDLES, SC.AT B-1 REVS
041629,000269: 20,2741 53576 DXCH PERRB
041630,000270:
041631,000271: 20,2742 31706 CAE CMDTMP # PITCH ACTUATOR COMMAND
041632,000272: 20,2743 55623 TS PCMD
041633,000273:
041634,000274: 20,2744 00006 EXTEND # PITCH OFFSET-TRACKER-FILTER
041635,000275: 20,2745 31703 DCA DELBRTMP
041636,000276: 20,2746 53602 DXCH DELPBAR
041637,000277:
041638,000278: 20,2747 25644 INCR TVCPHASE # PITCH COPYCYCLE COMPLETED (2)
041639,000279:
041640,000280: 20,2750 00002 TC Q
041641,000281:
041642,000282: # YAW TVCDAP STARTS HERE....(INCORPORATES CSM/LEM DAP FILTER, MODOR DESIGN)
041643,000283:
041644,000284: 20,2751 22016 YAWDAP LXCH BANKRUPT # T5 ENTRY, NORMAL
041645,000285: 20,2752 00006 EXTEND
041646,000286: 20,2753 22012 QXCH QRUPT
041647,000287:
041648,000288: 20,2754 33531 CAF PITCHT5 # SET UP T5 CALL FOR PITCH AUTOPILOT (LOW-
041649,000289: 20,2755 55312 TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
041650,000290: 20,2756 31625 CAE T5TVCDT
041651,000291: 20,2757 54030 TS TIME5
041652,000292:
041653,000293: 20,2760 11574 YSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
041654,000294: 20,2761 03571 TC HACK # TEST-START OR TEST-IN-PROGRESS
041655,000295: 20,2762 12764 TCF +2 # NO-TEST
041656,000296: 20,2763 03571 TC HACK # TEST-IN-PROGRESS
041657,000297:
041658,000298: 20,2764 30033 YCDUDOTS CAE CDUY # COMPUTE CDUYDOT
041659,000299: 20,2765 57647 XCH YCDUYPST
041660,000300: 20,2766 00006 EXTEND
041661,000301: 20,2767 21647 MSU YCDUYPST
041662,000302: 20,2770 02577 TCR RLIMTEST # RATE TEST
041663,000303: 20,2771 55651 TS MCDUYDOT # (MINUS, SCALED 1/2TVCDT REV/SEC)
041664,000304:
041665,000305: 20,2772 30034 CAE CDUZ # COMPUTE CDUZDOT
041666,000306: 20,2773 57650 XCH YCDUZPST
041667,000307: 20,2774 00006 EXTEND
041668,000308: 20,2775 21650 MSU YCDUZPST
041669,000309: 20,2776 02577 TCR RLIMTEST # RATE TEST
041670,000310: 20,2777 55652 TS MCDUZDOT # (MINUS, SCALED 1/2TVCDT REV/SEC)
041671,000311:
041672,000312: 20,3000 00006 YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE
041673,000313: 20,3001 31600 DCA YERRB # ERROR, SC.AT B-1 REVS
041674,000314: 20,3002 53705 DXCH ERRBTMP
041675,000315:
041676,000316: 20,3003 00006 EXTEND
041677,000317: 20,3004 31532 DCA OMEGAZC
041678,000318: 20,3005 21705 DAS ERRBTMP
041679,000319:
041680,000320: 20,3006 30746 CAE COSCDUZ # PREPARE BODY-AXIS YAW-RATE, OMEGAZB
041681,000321: 20,3007 00006 EXTEND
041682,000322: 20,3010 70742 MP SINCDUX
041683,000323: 20,3011 20001 DDOUBL
041684,000324: 20,3012 00006 EXTEND
041685,000325: 20,3013 71651 MP MCDUYDOT
041686,000326: 20,3014 20001 DDOUBL
041687,000327: 20,3015 53540 DXCH OMEGAZB
041688,000328:
041689,000329: 20,3016 41652 CS MCDUZDOT
041690,000330: 20,3017 00006 EXTEND
041691,000331: 20,3020 70750 MP COSCDUX
041692,000332: 20,3021 20001 DDOUBL
041693,000333: 20,3022 21540 DAS OMEGAZB # (COMPLETED OMEGAZB, SC.AT 1/2TVCDT REVS)
041694,000334:
041695,000335: 20,3023 00006 EXTEND # PICK UP -OMEGAZB (SIGN CHNG, INTEGRATE)
041696,000336: 20,3024 41540 DCS OMEGAZB
041697,000337: 20,3025 21705 DAS ERRBTMP
041698,000338:
041699,000339: 20,3026 03161 YERORLIM TCR ERRORLIM # YAW BODY-AXIS-ERROR INPUT LIMITER
041700,000340:
041701,000341: 20,3027 00006 YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
041702,000342: 20,3030 31556 DCA YTMP1 # FOR THE YAW CHANNEL
041703,000343: 20,3031 53711 DXCH TMP1
041704,000344: 20,3032 00006 EXTEND
041705,000345: 20,3033 31562 DCA YTMP3
041706,000346: 20,3034 53715 DXCH TMP3
041707,000347: 20,3035 00006 EXTEND
041708,000348: 20,3036 31566 DCA YTMP5
041709,000349: 20,3037 53721 DXCH TMP5
041710,000350:
041711,000351: 20,3040 03213 TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
041712,000352: # (INCLUDES VARIABLE GAIN PACKAGE)
041713,000353:
041714,000354: 20,3041 00006 YOFFSET EXTEND
041715,000355: 20,3042 31610 DCA YDELOFF
041716,000356: 20,3043 21707 DAS CMDTMP # NOW SCALED AT B+0 ASCREV
041717,000357:
041718,000358: 20,3044 03174 YACLIM TCR ACTLIM # ROUND OFF & LIMIT YAW ACTUATOR COMMAND
041719,000359:
041720,000360: 20,3045 41624 YOUT CS YCMD # INCREMENTAL YAW COMMAND
041721,000361: 20,3046 61706 AD CMDTMP
041722,000362: 20,3047 26053 ADS TVCYAW # UPDATE THE ERROR COUNTER (NO RESTART-
041723,000363: # PROTECT, SINCE ERROR CNTR ZEROED)
041724,000364:
041725,000365: 20,3050 35020 CAF BIT12 # BIT FOR TVCYAW COUNT RELEASE
041726,000366: 20,3051 00006 EXTEND
041727,000367: 20,3052 05014 WOR CHAN14
041728,000368:
041729,000369: 20,3053 00006 YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW
041730,000370: 20,3054 31560 DCA YTMP2
041731,000371: 20,3055 53713 DXCH TMP2
041732,000372: 20,3056 00006 EXTEND
041733,000373: 20,3057 31564 DCA YTMP4
041734,000374: 20,3060 53717 DXCH TMP4
041735,000375: 20,3061 00006 EXTEND
041736,000376: 20,3062 31570 DCA YTMP6
041737,000377: 20,3063 53723 DXCH TMP6
041738,000378:
041739,000379: 20,3064 03305 TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
041740,000380:
041741,000381: 20,3065 31604 DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER
041742,000382: 20,3066 00006 EXTEND
041743,000383: 20,3067 73536 MP E(-AT)
041744,000384: 20,3070 55703 TS DELBRTMP +1
041745,000385: 20,3071 31603 CAE DELYBAR
041746,000386: 20,3072 00006 EXTEND
041747,000387: 20,3073 73536 MP E(-AT)
041748,000388: 20,3074 21703 DAS DELBRTMP
041749,000389: 20,3075 31706 CAE CMDTMP
041750,000390: 20,3076 00006 EXTEND
041751,000391: 20,3077 73535 MP 1-E(-AT)
041752,000392: 20,3100 21703 DAS DELBRTMP
041753,000393:
041754,000394: 20,3101 03103 YCOPYCYC TCR YCOPY # YAW COPYCYCLE
041755,000395:
041756,000396: 20,3102 15347 YDAPEND TCF RESUME # YAW DAP COMPLETED
041757,000397:
041758,000398: # YAW TVCDAP COPYCYCLE SUBROUTINE (CALLED VIA YAW TVCDAP OR TVC RESTART PACKAGE)
041759,000399:
041760,000400: 20,3103 25644 YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3)
041761,000401: # NOTE POSSIBLE RE-ENTRY FROM RESTART
041762,000402: # PACKAGE, SHOULD A RESTART OCCUR
041763,000403: # DURING YAW COPYCYCLE.
041764,000404:
041765,000405: 20,3104 00006 EXTEND
041766,000406: 20,3105 31711 DCA TMP1
041767,000407: 20,3106 53556 DXCH YTMP1
041768,000408: 20,3107 00006 EXTEND
041769,000409: 20,3110 31713 DCA TMP2
041770,000410: 20,3111 53560 DXCH YTMP2
041771,000411: 20,3112 00006 EXTEND
041772,000412: 20,3113 31715 DCA TMP3
041773,000413: 20,3114 53562 DXCH YTMP3
041774,000414: 20,3115 00006 EXTEND
041775,000415: 20,3116 31717 DCA TMP4
041776,000416: 20,3117 53564 DXCH YTMP4
041777,000417: 20,3120 00006 EXTEND
041778,000418: 20,3121 31721 DCA TMP5
041779,000419: 20,3122 53566 DXCH YTMP5
041780,000420: 20,3123 00006 EXTEND
041781,000421: 20,3124 31723 DCA TMP6
041782,000422: 20,3125 53570 DXCH YTMP6
041783,000423:
041784,000424: 20,3126 00006 YMISC EXTEND # MISC....YAW-RATE-ERROR INTEGRATOR
041785,000425: 20,3127 31705 DCA ERRBTMP
041786,000426: 20,3130 55500 TS AK2 # FOR YAW NEEDLES, SC.AT B-1 REVS
041787,000427: 20,3131 53600 DXCH YERRB
041788,000428:
041789,000429: 20,3132 31706 CAE CMDTMP
041790,000430: 20,3133 55624 TS YCMD
041791,000431:
041792,000432: 20,3134 00006 EXTEND
041793,000433: 20,3135 31703 DCA DELBRTMP
041794,000434: 20,3136 53604 DXCH DELYBAR
041795,000435:
041796,000436: 20,3137 35035 CAF ZERO # YAW COPYCYCLE COMPLETED
041797,000437: 20,3140 55644 TS TVCPHASE # RESET TVCPHASE
041798,000438:
041799,000439: 20,3141 00002 TC Q
041800,000440:
041801,000441: # SUBROUTINES COMMON TO BOTH PITCH AND YAW DAPS....
041802,000442:
041803,000443: # INITIALIZATION PACKAGE FOR CDURATES....
041804,000444:
041805,000445: 20,3142 22016 DAPINIT LXCH BANKRUPT # T5 RUPT ENTRY (CALLED BY TVCINT4)
041806,000446:
041807,000447: 20,3143 37716 CAF NEGONE # SET UP
041808,000448: 20,3144 61625 AD T5TVCDT # T5 CALL FOR PITCHDAP IN TVCDT SECS
041809,000449: 20,3145 65015 AD NEGMAX # (T5TVCDT = POSMAX - TVCDT/2 +1)
041810,000450: 20,3146 61625 AD T5TVCDT
041811,000451: 20,3147 54030 TS TIME5
041812,000452: 20,3150 33531 CAF PITCHT5 # (BBCON ALREADY THERE)
041813,000453: 20,3151 55312 TS T5LOC
041814,000454:
041815,000455: 20,3152 30033 CAE CDUY # READ AND STORE CDUS FOR DIFFERENTIATOR
041816,000456: 20,3153 55645 TS PCDUYPST # PAST-VALUES
041817,000457: 20,3154 55647 TS YCDUYPST
041818,000458: 20,3155 30034 CAE CDUZ
041819,000459: 20,3156 55646 TS PCDUZPST
041820,000460: 20,3157 55650 TS YCDUZPST
041821,000461:
041822,000462: 20,3160 15351 TCF NOQRSM
041823,000463:
041824,000464: # BODY-AXIS-ERROR INPUT LIMITER PACKAGE....
041825,000465:
041826,000466: 20,3161 31704 ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT
041827,000467: 20,3162 00006 EXTEND # CHECKS UPPER WORD ONLY
041828,000468: 20,3163 75031 MP 1/ERRLIM
041829,000469: 20,3164 00006 EXTEND
041830,000470: 20,3165 13173 BZF +6
041831,000471: 20,3166 11704 CCS ERRBTMP
041832,000472: 20,3167 35017 CAF ERRLIM
041833,000473: 20,3170 13172 TCF +2
041834,000474: 20,3171 45017 CS ERRLIM
041835,000475: 20,3172 55704 TS ERRBTMP # LIMIT WRITES OVER UPPER WORD ONLY
041836,000476:
041837,000477: 20,3173 00002 TC Q
041838,000478:
041839,000479: # ACTUATOR-COMMAND LIMITER PACKAGE....
041840,000480:
041841,000481: 20,3174 31707 ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
041842,000482: 20,3175 60000 DOUBLE
041843,000483: 20,3176 54001 TS L
041844,000484: 20,3177 35035 CAF ZERO
041845,000485: 20,3200 61706 AD CMDTMP
041846,000486:
041847,000487: 20,3201 00006 EXTEND # CHECK FOR ACTUATOR COMMAND LIMIT
041848,000488: 20,3202 73530 MP 1/ACTSAT
041849,000489: 20,3203 00006 EXTEND
041850,000490: 20,3204 13212 BZF +6
041851,000491: 20,3205 11706 CCS CMDTMP # APPLY LIMITS
041852,000492: 20,3206 33527 CAF ACTSAT
041853,000493: 20,3207 13211 TCF +2
041854,000494: 20,3210 43527 CS ACTSAT
041855,000495: 20,3211 55706 TS CMDTMP # LIMITS WRITE OVER CMDTMP
041856,000496:
041857,000497: 20,3212 00002 TC Q
041858,000498:
041859,000499: # FILTER COMPUTATIONS FOR PRESENT OUTPUT................
041860,000500:
041861,000501: 20,3213 35035 FWDFLTR CAF ZERO
041862,000502: 20,3214 55615 TS DAP1
041863,000503: 20,3215 55617 TS DAP2
041864,000504: 20,3216 55621 TS DAP3
041865,000505: 20,3217 55706 TS CMDTMP
041866,000506:
041867,000507: 20,3220 55702 TS DELBRTMP
041868,000508:
041869,000509: 20,3221 31705 1DAPCAS CAE ERRBTMP +1 # FIRST DAP CASCADE
041870,000510: 20,3222 00006 EXTEND
041871,000511: 20,3223 71725 MP N10 # N10
041872,000512: 20,3224 55616 TS DAP1 +1
041873,000513: 20,3225 31704 CA ERRBTMP
041874,000514: 20,3226 00006 EXTEND
041875,000515: 20,3227 71725 MP N10 # N10
041876,000516: 20,3230 21616 DAS DAP1
041877,000517: 20,3231 53711 DXCH TMP1
041878,000518: 20,3232 21616 DAS DAP1
041879,000519:
041880,000520: 20,3233 31616 2DAPCAS CAE DAP1 +1 # SECOND DAP CASCADE
041881,000521: 20,3234 00006 EXTEND
041882,000522: 20,3235 71732 MP N10 +5 # N20
041883,000523: 20,3236 55620 TS DAP2 +1
041884,000524: 20,3237 31615 CA DAP1
041885,000525: 20,3240 00006 EXTEND
041886,000526: 20,3241 71732 MP N10 +5 # N20
041887,000527: 20,3242 21620 DAS DAP2
041888,000528: 20,3243 53715 DXCH TMP3
041889,000529: 20,3244 21620 DAS DAP2
041890,000530:
041891,000531: 20,3245 31466 CAE DAPDATR1 # TEST FOR LEM ON OR OFF
041892,000532: 20,3246 75016 MASK BIT14
041893,000533: 20,3247 10000 CCS A
041894,000534: 20,3250 13257 TCF 3DAPCAS # LEM ON
041895,000535: 20,3251 00006 EXTEND # LEM OFF
041896,000536: 20,3252 31620 DCA DAP2
041897,000537: 20,3253 20001 DDOUBL
041898,000538: 20,3254 20001 DDOUBL
041899,000539: 20,3255 53622 DXCH DAP3
041900,000540: 20,3256 13271 TCF OPTVARK
041901,000541:
041902,000542: 20,3257 31620 3DAPCAS CAE DAP2 +1 # THIRD DAP CASCADE
041903,000543: 20,3260 00006 EXTEND
041904,000544: 20,3261 71737 MP N10 +10D # N30
041905,000545: 20,3262 55622 TS DAP3 +1
041906,000546: 20,3263 31617 CA DAP2
041907,000547: 20,3264 00006 EXTEND
041908,000548: 20,3265 71737 MP N10 +10D # N30
041909,000549: 20,3266 21622 DAS DAP3
041910,000550: 20,3267 53721 DXCH TMP5
041911,000551: 20,3270 21622 DAS DAP3
041912,000552:
|
|
Reconstruction: The line "TS CMDTMP +1" below was accidentally
duplicated during the implementation of PCR-810 in Comanche 67. This
was corrected in Comanche 72 under ACB-97, "Delete redundant line
inadvertently inserted in implementation of PCR 810".
|
041917,000557: 20,3271 41622 OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE
041918,000558: 20,3272 00006 EXTEND # (ALSO, SIGN CHANGE IN FORWARD LOOP)
041919,000559: 20,3273 71641 MP VARK # SCALED (1.08 B+2) CSM/LM
041920,000560: 20,3274 55707 TS CMDTMP +1 # ( " B+4) CSM
041921,000561: 20,3275 41621 CS DAP3
041922,000562: 20,3276 00006 EXTEND
041923,000563: 20,3277 71641 MP VARK
041924,000564: 20,3300 21707 DAS CMDTMP
041925,000565:
041926,000566: 20,3301 53707 DXCH CMDTMP # FIX UP SCALING - SCALED B+3 ASCREVS
041927,000567: 20,3302 20001 DDOUBL
041928,000568: 20,3303 53707 DXCH CMDTMP # - SCALED B+1 ASCREVS
041929,000569: # NOTE - THERE IS AN INHERANT GAIN OF
041930,000570: # (B+1 ASCREVS) ON THE OUTPUT DACS.
041931,000571:
041932,000572: 20,3304 00002 TC Q
041933,000573:
041934,000574: # FILTER PRECOMPUTATIONS FOR NEXT PASS...................
041935,000575:
041936,000576: 20,3305 35035 PRECOMP CAF ZERO # ***** FIRST CASCADE FILTER **********
041937,000577: 20,3306 55611 TS TTMP1
041938,000578: 20,3307 55613 TS TTMP2
041939,000579:
041940,000580: 20,3310 31705 CA ERRBTMP +1 # MULTIPLY INPUT BY
041941,000581: 20,3311 00006 EXTEND
041942,000582: 20,3312 71726 MP N10 +1 # N11/2
041943,000583: 20,3313 55612 TS TTMP1 +1
041944,000584: 20,3314 31704 CA ERRBTMP
041945,000585: 20,3315 00006 EXTEND
041946,000586: 20,3316 71726 MP N10 +1 # N11/2
041947,000587: 20,3317 21612 DAS TTMP1
041948,000588:
041949,000589: 20,3320 41616 CS DAP1 +1 # MULTIPLY OUTPUT BY
041950,000590: 20,3321 00006 EXTEND
041951,000591: 20,3322 71730 MP N10 +3 # D11/2
041952,000592: 20,3323 55614 TS TTMP2 +1
041953,000593: 20,3324 41615 CS DAP1
041954,000594:
041955,000595: 20,3325 00006 EXTEND
041956,000596: 20,3326 71730 MP N10 +3 # D11/2
041957,000597: 20,3327 21614 DAS TTMP2
041958,000598:
041959,000599: 20,3330 53614 DXCH TTMP2
041960,000600: 20,3331 21612 DAS TTMP1
041961,000601: 20,3332 53612 DXCH TTMP1
041962,000602: 20,3333 20001 DDOUBL
041963,000603: 20,3334 21713 DAS TMP2
041964,000604:
041965,000605: 20,3335 53713 DXCH TMP2
041966,000606: 20,3336 53711 DXCH TMP1
041967,000607:
041968,000608: 20,3337 35035 CAF ZERO
041969,000609: 20,3340 55611 TS TTMP1
041970,000610: 20,3341 55712 TS TMP2
041971,000611:
041972,000612: 20,3342 31705 CA ERRBTMP +1 # MULTIPLY INPUT BY
041973,000613: 20,3343 00006 EXTEND # SECOND-ORDER NUMERATOR COEFF.
041974,000614: 20,3344 71727 MP N10 +2 # N12
041975,000615: 20,3345 55612 TS TTMP1 +1
041976,000616: 20,3346 31704 CA ERRBTMP
041977,000617: 20,3347 00006 EXTEND
041978,000618: 20,3350 71727 MP N10 +2 # N12
041979,000619: 20,3351 21612 DAS TTMP1
041980,000620:
041981,000621: 20,3352 41616 CS DAP1 +1 # MULTIPLY OUTPUT BY
041982,000622: 20,3353 00006 EXTEND
041983,000623: 20,3354 71731 MP N10 +4 # D12
041984,000624: 20,3355 55713 TS TMP2 +1
041985,000625: 20,3356 41615 CS DAP1
041986,000626: 20,3357 00006 EXTEND
041987,000627: 20,3360 71731 MP N10 +4 # D12
041988,000628: 20,3361 21713 DAS TMP2
041989,000629:
041990,000630: 20,3362 53612 DXCH TTMP1
041991,000631: 20,3363 21713 DAS TMP2
041992,000632:
041993,000633: 20,3364 35035 2CASFLTR CAF ZERO # ***** SECOND CASCADE FILTER *****
041994,000634: 20,3365 55611 TS TTMP1
041995,000635: 20,3366 55613 TS TTMP2
041996,000636:
041997,000637: 20,3367 31616 CA DAP1 +1 # MULTIPLY INPUT BY
041998,000638: 20,3370 00006 EXTEND
041999,000639: 20,3371 71733 MP N10 +6 # N21/2
042000,000640: 20,3372 55612 TS TTMP1 +1
042001,000641: 20,3373 31615 CA DAP1
042002,000642: 20,3374 00006 EXTEND
042003,000643: 20,3375 71733 MP N10 +6 # N21/2
042004,000644: 20,3376 21612 DAS TTMP1
042005,000645:
042006,000646: 20,3377 41620 CS DAP2 +1 # MULTIPLY OUTPUT BY
042007,000647: 20,3400 00006 EXTEND
042008,000648: 20,3401 71735 MP N10 +8D # D21/2
042009,000649: 20,3402 55614 TS TTMP2 +1
042010,000650: 20,3403 41617 CS DAP2
042011,000651: 20,3404 00006 EXTEND
042012,000652: 20,3405 71735 MP N10 +8D # D21/2
042013,000653: 20,3406 21614 DAS TTMP2
042014,000654:
042015,000655: 20,3407 53614 DXCH TTMP2
042016,000656: 20,3410 21612 DAS TTMP1
042017,000657: 20,3411 53612 DXCH TTMP1
042018,000658: 20,3412 20001 DDOUBL
042019,000659: 20,3413 21717 DAS TMP4
042020,000660:
042021,000661: 20,3414 53717 DXCH TMP4
042022,000662: 20,3415 53715 DXCH TMP3
042023,000663:
042024,000664: 20,3416 35035 CAF ZERO
042025,000665: 20,3417 55611 TS TTMP1
042026,000666: 20,3420 55716 TS TMP4
042027,000667:
042028,000668: 20,3421 31616 CA DAP1 +1 # MULTIPLY INPUT BY
042029,000669: 20,3422 00006 EXTEND
042030,000670: 20,3423 71734 MP N10 +7 # N22
042031,000671: 20,3424 55612 TS TTMP1 +1
042032,000672: 20,3425 31615 CA DAP1
042033,000673: 20,3426 00006 EXTEND
042034,000674: 20,3427 71734 MP N10 +7 # N22
042035,000675: 20,3430 21612 DAS TTMP1
042036,000676:
042037,000677: 20,3431 41620 CS DAP2 +1 # MULTIPLY OUTPUT BY
042038,000678: 20,3432 00006 EXTEND
042039,000679: 20,3433 71736 MP N10 +9D # D22
042040,000680: 20,3434 55717 TS TMP4 +1
042041,000681: 20,3435 41617 CS DAP2
042042,000682: 20,3436 00006 EXTEND
042043,000683: 20,3437 71736 MP N10 +9D # D22
042044,000684: 20,3440 21717 DAS TMP4
042045,000685:
042046,000686: 20,3441 53612 DXCH TTMP1
042047,000687: 20,3442 21717 DAS TMP4
042048,000688:
042049,000689: 20,3443 31466 CAE DAPDATR1 # TEST FOR LEM ON OR OFF
042050,000690: 20,3444 75017 MASK BIT13
042051,000691: 20,3445 10000 CCS A
042052,000692: 20,3446 00002 TC Q # EXIT IF LEM OFF
042053,000693:
042054,000694: 20,3447 35035 3CASFLTR CAF ZERO # ***** THIRD CASCADE FILTER *****
042055,000695: 20,3450 55611 TS TTMP1
042056,000696: 20,3451 55613 TS TTMP2
042057,000697:
042058,000698: 20,3452 31620 CA DAP2 +1 # MULTIPLY INPUT BY (1/2)
042059,000699: 20,3453 00006 EXTEND
042060,000700: 20,3454 71740 MP N10 +11D # N31/2
042061,000701: 20,3455 55612 TS TTMP1 +1
042062,000702: 20,3456 31617 CA DAP2
042063,000703: 20,3457 00006 EXTEND
042064,000704: 20,3460 71740 MP N10 +11D # N31/2
042065,000705: 20,3461 21612 DAS TTMP1
042066,000706:
042067,000707: 20,3462 41622 CS DAP3 +1
042068,000708: 20,3463 00006 EXTEND
042069,000709: 20,3464 71742 MP N10 +13D # D31/2
042070,000710: 20,3465 55614 TS TTMP2 +1
042071,000711: 20,3466 41621 CS DAP3
042072,000712: 20,3467 00006 EXTEND
042073,000713: 20,3470 71742 MP N10 +13D # D31/2
042074,000714: 20,3471 21614 DAS TTMP2
042075,000715:
042076,000716: 20,3472 53614 DXCH TTMP2
042077,000717: 20,3473 21612 DAS TTMP1
042078,000718: 20,3474 53612 DXCH TTMP1
042079,000719: 20,3475 20001 DDOUBL
042080,000720: 20,3476 21723 DAS TMP6
042081,000721:
042082,000722: 20,3477 53723 DXCH TMP6
042083,000723: 20,3500 53721 DXCH TMP5
042084,000724:
042085,000725: 20,3501 35035 CAF ZERO
042086,000726: 20,3502 55611 TS TTMP1
042087,000727: 20,3503 55722 TS TMP6
042088,000728:
042089,000729: 20,3504 31620 CA DAP2 +1 # MULTIPLY INPUT BY
042090,000730: 20,3505 00006 EXTEND
042091,000731: 20,3506 71741 MP N10 +12D # N32
042092,000732: 20,3507 55612 TS TTMP1 +1
042093,000733: 20,3510 31617 CA DAP2
042094,000734: 20,3511 00006 EXTEND
042095,000735: 20,3512 71741 MP N10 +12D # N32
042096,000736: 20,3513 21612 DAS TTMP1
042097,000737:
042098,000738: 20,3514 41622 CS DAP3 +1
042099,000739: 20,3515 00006 EXTEND
042100,000740: 20,3516 71743 MP N10 +14D # D32
042101,000741: 20,3517 55723 TS TMP6 +1
042102,000742: 20,3520 41621 CS DAP3
042103,000743: 20,3521 00006 EXTEND
042104,000744: 20,3522 71743 MP N10 +14D # D32
042105,000745: 20,3523 21723 DAS TMP6
042106,000746:
042107,000747: 20,3524 53612 DXCH TTMP1
042108,000748: 20,3525 21723 DAS TMP6
042109,000749:
042110,000750: 20,3526 00002 TC Q
042111,000751:
042112,000752: # CONSTANTS FOR AUTOPILOTS
042113,000753:
042114,000754: # NOTE....1 ASCREV (ACTUATOR CMD SCALING) = 85.41 ARCSEC/BIT OR 1.07975111 REVS (85.41X16384/3600/360)
042115,000755: # 1 SPASCREV (SPECIAL ACTUATOR CMD SCALING) = 1.04620942 REVS
042116,000756:
042117,000757: 20,3527 00375 ACTSAT DEC 253 B-14 # ACTUATOR LIMIT (6 DEG), SC.AT 1ASCREV
042118,000758: 20,3530 00101 1/ACTSAT DEC .0039525692 # RECIPROCAL (1/253)
042119,000759:
042120,000760: 20,3531 5017 ERRLIM EQUALS BIT13 # FILTER INPUT LIMIT....B-3 REVS (45DEG),
042121,000761: 20,3531 5031 1/ERRLIM EQUALS BIT3 # SC.AT B-1 REV, AND ITS RECIPROCAL
042122,000762:
042123,000763: 20,3531 02547 PITCHT5 GENADR PITCHDAP # UPPER WORDS OF T5 2CADRS, LOWER WORDS
042124,000764: 20,3532 03142 DAPT5 GENADR DAPINIT # (BBCON) ALREADY THERE. ORDER IS
042125,000765: 20,3533 02751 YAWT5 GENADR YAWDAP # REQUIRED.
042126,000766:
042127,000767: 20,3534 00115 1/RTLIM DEC 0.004715 # .004715(CDUDIF) = 0 IF CDUDIF < 2.33 DEG
042128,000768: 20,3535 00243 1-E(-AT) OCT 00243 # AT = .01SEC....EITHER(1/A=4SEC, T=40MS),
042129,000769: 20,3536 37535 E(-AT) OCT 37535 # OR(1/A=8SEC, T=80MS)
042130,000770:
End of include-file TVCDAPS.agc. Parent file is MAIN.agc