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