Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

045062,000002:                                                                                                  ## Copyright:   Public domain.
045063,000003:                                                                                                  ## Filename:    AUTOMATIC_MANEUVERS.agc
045064,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
045065,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
045066,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
045067,000007:                                                                                                  ##              Apollo 15-17.
045068,000008:                                                                                                  ## Assembler:   yaYUL
045069,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
045070,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
045071,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045072,000012:                                                                                                  ## Mod history: 2009-08-27 SN   Adapted from corresponding Comanche 055 file.
045073,000013:                                                                                                  ##              2009-09-06 JL   Fixed typos.
045074,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
045075,000015:                                                                                                  ##              2017-01-21 RSB  Proofed comment text by diff'ing vs Comanche 55
045076,000016:                                                                                                  ##                              and corrected errors found.
045077,000017: 

Page 1024

045079,000019: 21,2000                                           SETLOC   DAPS3                                 
045080,000020: 21,2000                                           BANK                                           
045081,000021: 
045082,000022: 21,3272                                           COUNT*   $$/DAPAM                              
045083,000023: 21,3272  E6,1510                                  EBANK=   KMPAC                                 
045084,000024: 21,3272           34753        AHFNOROT           CAF      BIT14                                 
045085,000025: 21,3273           05654                           TC       C31BTCHK                              
045086,000026: 21,3274           13310                           TCF      FREECONT                              
045087,000027: 21,3275           31501                           CA       RCSFLAGS                              #  SEE IF RATE FILTER HAS BEEN INITIALIZED
045088,000028: 21,3276           74753                           MASK     BIT14                                 
045089,000029: 21,3277           10000                           CCS      A                                     #  IF SO, PROCEED WITH ATTITUDE CONTROL
045090,000030: 21,3300           12541                           TCF      REINIT                                #  IF NOT, RECYCLE TO INITIALIZE FILTER
045091,000031:                                                                                                  #  AUTOMATIC CONTROL YET
045092,000032: 21,3301           34754                           CAF      BIT13                                 
045093,000033: 21,3302           05654                           TC       C31BTCHK                              
045094,000034: 21,3303           13404                           TCF      HOLDFUNC                              
045095,000035: 21,3304           31340        AUTOCONT           CA       HOLDFLAG                              #  IF HOLDFLAG IS +, GO TO GRABANG.
045096,000036: 21,3305           00006                           EXTEND                                         #  OTHERWISE, GO TO ATTHOLD.
045097,000037: 21,3306           63334                           BZMF     ATTHOLD                               
045098,000038: 21,3307           13410                           TCF      GRABANG                               
045099,000039: 
045100,000040:                                                                                                  #  MINIMUM IMPULSE CONTROL
045101,000041: 
045102,000042: 21,3310           34770        FREECONT           CAF      ONE                                   
045103,000043: 21,3311           55340                           TS       HOLDFLAG                              #  RESET HOLDFLAG
045104,000044:                                                                                                  #  INHIBIT AUTOMATIC STEERING
045105,000045: 21,3312           00006                           EXTEND                                         
045106,000046: 21,3313           00032                           READ     CHAN32                                
045107,000047: 21,3314           54001                           TS       L                                     
045108,000048: 21,3315           40000                           COM                                            
045109,000049: 21,3316           71633                           MASK     CHANTEMP                              
045110,000050: 21,3317           23633                           LXCH     CHANTEMP                              
045111,000051: 21,3320           73063        RHCMINP            MASK     MANROT                                
045112,000052: 21,3321           03152                           TC       STICKCHK                              
045113,000053: 21,3322           51656                           INDEX    RMANNDX                               
045114,000054: 21,3323           34614                           CA       MINTAU                                #  MINTAU  +0
045115,000055: 21,3324           55561                           TS       TAU                                   #             +1   +14MS MINIMUM IMPULSE
045116,000056: 21,3325           51657                           INDEX    PMANNDX                               #             +2   -14MS TIME
045117,000057: 21,3326           34614                           CA       MINTAU                                #             +3   +0
045118,000058: 21,3327           55562                           TS       TAU1                                  
045119,000059: 21,3330           51660                           INDEX    YMANNDX                               
045120,000060: 21,3331           34614                           CA       MINTAU                                
045121,000061: 21,3332           55563                           TS       TAU2                                  
045122,000062: 21,3333           13105                           TCF      T6PROGM                               
045123,000063: 
045124,000064: 
045125,000065:    4000                                           SETLOC   FFTAG12                               
045126,000066:    4000                                           BANK                                           
045127,000067: 
045128,000068:    4614                                           COUNT*   $$/DAPAM                              

Page 1025

045130,000070: 
045131,000071:    4614           00000        MINTAU             DEC      0          B-14                       
045132,000072:    4615           00027        DEC23              DEC      23         B-14                       #  = 14 MS
045133,000073:    4616           77750        DECNEG23           DEC      -23        B-14                       #  = -14 MS
045134,000074:    4617           00000                           DEC      0          B-14                       
045135,000075: 
045136,000076: 
045137,000077: 21,2000                                           SETLOC   DAPS3                                 
045138,000078: 21,2000                                           BANK                                           
045139,000079: 
045140,000080: 21,3334                                           COUNT*   $$/DAPAM                              
045141,000081: 

Page 1026

045143,000083:                                                                                                  #  CALCULATION OF ATTITUDE ERRORS-
045144,000084: 
045145,000085:                                                                                                  #        -    *     -      -          -
045146,000086:                                                                                                  #        AK = AMGB (CDUX - THETADX) + BIAS
045147,000087: 
045148,000088:                                                                                                  #  IE    *AK *   * 1   SIN(PSI)            0     ** CDUX - THETADX *    *BIAS *
045149,000089:                                                                                                  #        *   *   *                               **                *    *     *
045150,000090:                                                                                                  #        *AK1* = * 0   COS(PSI)COS(PHI)  SIN(PHI)** CDUY - THETADY *  + *BIAS1*
045151,000091:                                                                                                  #        *   *   *                               **                *    *     *
045152,000092:                                                                                                  #        *AK2*   * 0  -COS(PSI)SIN(PHI)  COS(PHI)** CDUZ - THETADZ *    *BIAS2*
045153,000093: 
045154,000094:                                                                                                  #  THE BIASES ARE ADDED ONLY WHILE PERFORMING AUTOMATIC MANEUVERS (ESP KALCMANU) TO PROVIDE ADDITIONAL LEAD
045155,000095:                                                                                                  #  AND PREVENT OVERSHOOT WHEN STARTING AN AUTOMATIC MANEUVER. NORMALLY THE REQUIRED LEAD IS ONLY 1-2 DEGREES.
045156,000096:                                                                                                  #  BUT DURING HIGH RATE MANEUVERS IT CAN BE AS MUCH AS 7 DEGREES.  THE BIASES ARE COMPUTED BY KALCMANU AND REMAIN
045157,000097:                                                                                                  #  FIXED UNTIL THE MANEUVER IS COMPLETED AT WHICH TIME THEY ARE RESET TO ZERO.
045158,000098: 
045159,000099: 21,3334           30032        ATTHOLD            CA       CDUX                                  
045160,000100: 21,3335           00006                           EXTEND                                         
045161,000101: 21,3336           21572                           MSU      THETADX                               
045162,000102: 21,3337           55567                           TS       ERRORX                                
045163,000103: 21,3340           30033                           CA       CDUY                                  
045164,000104: 21,3341           00006                           EXTEND                                         
045165,000105: 21,3342           21573                           MSU      THETADY                               
045166,000106: 21,3343           55502                           TS       T5TEMP                                
045167,000107: 21,3344           00006                           EXTEND                                         
045168,000108: 21,3345           71640                           MP       AMGB1                                 
045169,000109: 21,3346           27567                           ADS      ERRORX                                
045170,000110: 21,3347           31502                           CA       T5TEMP                                
045171,000111: 21,3350           00006                           EXTEND                                         
045172,000112: 21,3351           71641                           MP       AMGB4                                 
045173,000113: 21,3352           55570                           TS       ERRORY                                
045174,000114: 21,3353           31502                           CA       T5TEMP                                
045175,000115: 21,3354           00006                           EXTEND                                         
045176,000116: 21,3355           71643                           MP       AMGB7                                 
045177,000117: 21,3356           55571                           TS       ERRORZ                                
045178,000118: 21,3357           30034                           CA       CDUZ                                  
045179,000119: 21,3360           00006                           EXTEND                                         
045180,000120: 21,3361           21574                           MSU      THETADZ                               
045181,000121: 21,3362           55502                           TS       T5TEMP                                
045182,000122: 21,3363           00006                           EXTEND                                         
045183,000123: 21,3364           71642                           MP       AMGB5                                 
045184,000124: 21,3365           27570                           ADS      ERRORY                                
045185,000125: 21,3366           31502                           CA       T5TEMP                                
045186,000126: 21,3367           00006                           EXTEND                                         
045187,000127: 21,3370           71644                           MP       AMGB8                                 
045188,000128: 21,3371           27571                           ADS      ERRORZ                                
045189,000129: 21,3372           41340                           CS       HOLDFLAG                              
045190,000130: 21,3373           00006                           EXTEND                                         

Page 1027

045192,000132: 21,3374           63452                           BZMF     JETS                                  
045193,000133: 21,3375           31564                           CA       BIAS                                  #  AD BIASES ONLY IF PERFORMING AUTOMATIC
045194,000134: 21,3376           27567                           ADS      ERRORX                                
045195,000135: 21,3377           31565                           CA       BIAS1                                 
045196,000136: 21,3400           27570                           ADS      ERRORY                                
045197,000137: 21,3401           31566                           CA       BIAS2                                 
045198,000138: 21,3402           27571                           ADS      ERRORZ                                
045199,000139: 21,3403           13452                           TCF      JETS                                  
045200,000140: 
045201,000141: 
045202,000142: 21,3404           11340        HOLDFUNC           CCS      HOLDFLAG                              
045203,000143: 21,3405           13410                           TCF      +3                                    
045204,000144: 21,3406           13334                           TCF      ATTHOLD                               
045205,000145: 21,3407           13410                           TCF      +1                                    
045206,000146: 21,3410           34772        GRABANG            CAF      ZERO                                  #  ZERO WBODYS AND BIASES
045207,000147: 21,3411           55525                           TS       WBODY                                 
045208,000148: 21,3412           55526                           TS       WBODY      +1                         
045209,000149: 21,3413           55527                           TS       WBODY1                                
045210,000150: 21,3414           55530                           TS       WBODY1     +1                         
045211,000151: 21,3415           55531                           TS       WBODY2                                
045212,000152: 21,3416           55532                           TS       WBODY2     +1                         
045213,000153: 21,3417           55564                           TS       BIAS                                  
045214,000154: 21,3420           55565                           TS       BIAS1                                 
045215,000155: 21,3421           55566                           TS       BIAS2                                 
045216,000156: 
045217,000157: 21,3422           31501                           CA       RCSFLAGS                              
045218,000158: 21,3423           73064                           MASK     OCT16000                              
045219,000159: 21,3424           00006                           EXTEND                                         #  IS RATE DAMPING COMPLETED
045220,000160: 21,3425           13433                           BZF      ENDDAMP                               #  IF SO, GO TO ENDDAMP
045221,000161: 21,3426           34772                           CAF      ZERO                                  #  OTHERWISE, ZERO ERRORS
045222,000162: 21,3427           55567                           TS       ERRORX                                
045223,000163: 21,3430           55570                           TS       ERRORY                                
045224,000164: 21,3431           55571                           TS       ERRORZ                                
045225,000165: 21,3432           13452                           TCF      JETS                                  
045226,000166: 
045227,000167: 21,3433           55340        ENDDAMP            TS       HOLDFLAG                              #  SET HOLDFLAG +0
045228,000168: 21,3434           00006                           EXTEND                                         
045229,000169: 21,3435           30033                           DCA      CDUX                                  #  PICK UP CDU ANGLES FOR ATTITUDE HOLD
045230,000170: 21,3436           53573                           DXCH     THETADX                               #  REFERENCES
045231,000171: 21,3437           30034                           CA       CDUZ                                  
045232,000172: 21,3440           55574                           TS       THETADZ                               
045233,000173: 21,3441           13334                           TCF      ATTHOLD                               
045234,000174: 

Page 1028

045236,000176:                                                                                                  #  JET SWITCHING LOGIC AND CALCULATION OF REQUIRED ROTATION COMMANDS
045237,000177: 
045238,000178:                                                                                                  #  DETERMINE THE LOCATION OF THE RATE ERROR AND THE ATTITUDE ERROR RELATIVE TO THE SWITCHING LOGIC IN THE PHASE
045239,000179:                                                                                                  #  PLANE.
045240,000180:                                                                                                  #  COMPUTE THE CHANGE IN RATE CORRESPONDING TO THE ATTITUDE ERROR NECESSARY TO DRIVE THE THE S/C INTO THE
045241,000181:                                                                                                  #  APPROPRIATE DEADZONE.
045242,000182: 
045243,000183: 
045244,000184:                                                                                                  #                                      .
045245,000185:                                                                                                  #    R22                          RATE . ERROR
045246,000186:                                                                                                  #         WL+H                         .
045247,000187:                                                                                                  #  *********************************   .                                 ***** SWITCH LINES ENCLOSING DEADZONES
045248,000188:                                                                                                  #    R23  WL                        *  .
045249,000189:                                                                                                  #  --------------------------------- * .                                 ----- DESIRED RATE LINES
045250,000190:                                                                                                  #    R23  WL-H       -                *.
045251,000191:                                                                                                  #  ****************** -                .                                 R20, R21, R22, ETC  REGIONS IN PHASE
045252,000192:                                                                                                  #                    * -               .* R18      R20       R21         PLANE FOF COMPUTING DESIRED RESPONSE
045253,000193:                                                                                                  #                     *                . *
045254,000194:                                                                                                  #                      *-              .  *
045255,000195:                                                                                                  #    R22             R24*-     R23     .   *
045256,000196:                                                                                                  #                        *-            .    *
045257,000197:                                                                                                  #                         *            .     *
045258,000198:                                                                                                  #                          + -ADB      .      * AF              ATTITUDE
045259,000199:                                                                                                  #  .........................+--+---------------+--+........................
045260,000200:                                                                                                  #                            AF *      .     +ADB  +             ERROR
045261,000201:                                                                                                  #                                *     .            *
045262,000202:                                                                                                  #                                 *    .            -*
045263,000203:                                                                                                  #                                  *   .             -*
045264,000204:                                                                                                  #                                   *  .              -*
045265,000205:                                                                                                  #                                    * .                *
045266,000206:                                                                                                  #                                     *.               - *
045267,000207:                                                                                                  #                                      .                - *****************
045268,000208:                                                                                                  #                                      .*                -
045269,000209:                                                                                                  #                                      . * --------------------------------
045270,000210:                                                                                                  #                                      .  *
045271,000211:                                                                                                  #                                      .   ********************************
045272,000212:                                                                                                  #                                      .
045273,000213: 
045274,000214:                                                                                                  #                        FIG. 1  PHASE PLANE SWITCHING LOGIC
045275,000215: 
045276,000216: 
045277,000217:                                                                                                  #  CONSTANTS FOR JET SWITCHING LOGIC
045278,000218: 
045279,000219: 21,3442           00114        WLH/SLOP           DEC      .00463                                #  = WL+H/SLOPE = .83333 DEG     $180
045280,000220: 21,3443     5006               WL-H/SLP           =        DEC45                                 #  = WL-H/SLOPE = .5 DEG          $180
045281,000221: 21,3443           00022 06426  WLH                2DEC     .0011111111                            #  = WL+H = 0.5 DEG/SEC          $450
045282,000222: 21,3445           00012 35415  WLMH               2DEC     .0006666666                            #  = WL-H = 0.3 DEG/SEC          $450
045283,000223: 21,3447           00016 22021  WL                 2DEC     .0008888888                            #  = WL   = 0.4 DEG/SEC          $450
045284,000224: 

Page 1029

045286,000226: 21,3451           12173        SLOPE2             DEC      .32                                   #  = 0.8 DEG/SEC/DEG             $450/180
045287,000227: 21,3452           31655        JETS               CA       ADB                                   
045288,000228: 21,3453           64766                           AD       FOUR                                  #  AF = FLAT REGION = .044 DEG
045289,000229: 21,3454           55502                           TS       T5TEMP                                #  ADB+AF
045290,000230: 21,3455           34767                           CAF      TWO                                   
045291,000231: 21,3456           55506        JLOOP              TS       SPNDX                                 
045292,000232: 21,3457           60000                           DOUBLE                                         
045293,000233: 21,3460           55507                           TS       DPNDX                                 
045294,000234: 21,3461           00006                           EXTEND                                         
045295,000235: 21,3462           50000                           INDEX    A                                     
045296,000236: 21,3463           31534                           DCA      ADOT                                  
045297,000237: 21,3464           53516                           DXCH     EDOT                                  
045298,000238: 21,3465           31340                           CA       HOLDFLAG                              #  HOLDFLAG = +0 MEANS THAT DAP IS IN
045299,000239: 21,3466           00006                           EXTEND                                         #  ATTITUDE HOLD AND RATE DAMPING IS OVER.
045300,000240: 21,3467           13474                           BZF      INHOLD                                #  IF THIS IS THE CASE, BYPASS ADDITION
045301,000241:                                                                                                  #  OF WBODY AND GO TO INHOLD
045302,000242: 21,3470           00006                           EXTEND                                         
045303,000243: 21,3471           51507                           INDEX    DPNDX                                 
045304,000244: 21,3472           41526                           DCS      WBODY                                 
045305,000245: 21,3473           21516                           DAS      EDOT                                  #  = ADOT-WBODY
045306,000246: 21,3474           51506        INHOLD             INDEX    SPNDX                                 
045307,000247: 21,3475           31567                           CA       ERRORX                                
045308,000248: 21,3476           55517                           TS       AERR                                  #  AERR = BIAS + AK
045309,000249: 
045310,000250: 21,3477           11515                           CCS      EDOT                                  
045311,000251: 21,3500           13510                           TCF      POSVEL                                
045312,000252: 21,3501           13503                           TCF      SIGNCK1                               
045313,000253: 21,3502           13520                           TCF      NEGVEL                                
045314,000254: 21,3503           11516        SIGNCK1            CCS      EDOT       +1                         
045315,000255: 21,3504           13510                           TCF      POSVEL                                
045316,000256: 21,3505           13510                           TCF      POSVEL                                
045317,000257: 21,3506           13520                           TCF      NEGVEL                                
045318,000258: 21,3507           13520                           TCF      NEGVEL                                
045319,000259: 21,3510           00006        POSVEL             EXTEND                                         
045320,000260: 21,3511           31516                           DCA      EDOT                                  
045321,000261: 21,3512           53521                           DXCH     EDOTVEL                               
045322,000262: 21,3513           31502                           CA       T5TEMP                                
045323,000263: 21,3514           55523                           TS       ADBVEL                                #  +(ADB+AF)
045324,000264: 21,3515           31517                           CA       AERR                                  
045325,000265: 21,3516           55522                           TS       AERRVEL                               
045326,000266: 21,3517           03527                           TC       J6.                                   
045327,000267: 21,3520           00006        NEGVEL             EXTEND                                         
045328,000268: 21,3521           41516                           DCS      EDOT                                  
045329,000269: 21,3522           53521                           DXCH     EDOTVEL                               
045330,000270: 21,3523           41502                           CS       T5TEMP                                
045331,000271: 21,3524           55523                           TS       ADBVEL                                #  -(ADB+AF)
045332,000272: 21,3525           41517                           CS       AERR                                  
045333,000273: 21,3526           55522                           TS       AERRVEL                               
045334,000274: 
045335,000275: 21,3527           00006        J6.                EXTEND                                         

Page 1030

045337,000277: 21,3530           61655                           SU       ADB                                   
045338,000278: 21,3531           63442                           AD       WLH/SLOP                              
045339,000279: 21,3532           00006                           EXTEND                                         
045340,000280: 21,3533           63562                           BZMF     J8                                    
045341,000281: 
045342,000282: 21,3534           41502                           CS       T5TEMP                                #  (ADB+AF)
045343,000283: 21,3535           61522                           AD       AERRVEL                               
045344,000284: 21,3536           00006                           EXTEND                                         
045345,000285: 21,3537           63541                           BZMF     +2                                    
045346,000286: 21,3540           13553                           TCF      J7                                    
045347,000287: 21,3541           00006                           EXTEND                                         
045348,000288: 21,3542           41521                           DCS      EDOTVEL                               
045349,000289: 21,3543           00006                           EXTEND                                         
045350,000290: 21,3544           11654                           DV       SLOPE                                 
045351,000291: 21,3545           00006                           EXTEND                                         
045352,000292: 21,3546           61522                           SU       AERRVEL                               
045353,000293: 21,3547           61655                           AD       ADB                                   
045354,000294: 21,3550           00006                           EXTEND                                         
045355,000295: 21,3551           63641                           BZMF     J18                                   
045356,000296: 21,3552           13715                           TCF      J23                                   
045357,000297: 
045358,000298: 21,3553           45006        J7                 CS       WL-H/SLP                              
045359,000299: 21,3554           00006                           EXTEND                                         
045360,000300: 21,3555           61502                           SU       T5TEMP                                #  (ADB+AF)
045361,000301: 21,3556           61522                           AD       AERRVEL                               
045362,000302: 21,3557           00006                           EXTEND                                         
045363,000303: 21,3560           63645                           BZMF     J20                                   
045364,000304: 21,3561           13656                           TCF      J21                                   
045365,000305: 
045366,000306: 21,3562           00006        J8                 EXTEND                                         
045367,000307: 21,3563           43444                           DCS      WLH                                   
045368,000308: 21,3564           53514                           DXCH     WTEMP                                 
045369,000309: 21,3565           00006                           EXTEND                                         
045370,000310: 21,3566           31521                           DCA      EDOTVEL                               
045371,000311: 21,3567           21514                           DAS      WTEMP                                 
045372,000312: 21,3570           11513                           CCS      WTEMP                                 
045373,000313: 21,3571           13704                           TCF      J22                                   
045374,000314: 21,3572           13574                           TCF      SIGNCK2                               
045375,000315: 21,3573           13600                           TCF      NJ22                                  
045376,000316: 21,3574           11514        SIGNCK2            CCS      WTEMP      +1                         
045377,000317: 21,3575           13704                           TCF      J22                                   
045378,000318: 21,3576           13704                           TCF      J22                                   
045379,000319: 21,3577           13600                           TCF      NJ22                                  
045380,000320: 
045381,000321: 21,3600           00006        NJ22               EXTEND                                         
045382,000322: 21,3601           31521                           DCA      EDOTVEL                               
045383,000323: 21,3602           00006                           EXTEND                                         
045384,000324: 21,3603           11654                           DV       SLOPE                                 
045385,000325: 21,3604           61502                           AD       T5TEMP                                #  (ADB+AF)
045386,000326: 21,3605           61522                           AD       AERRVEL                               

Page 1031

045388,000328: 21,3606           10000                           CCS      A                                     
045389,000329: 21,3607           13715                           TCF      J23                                   
045390,000330: 21,3610           13715                           TCF      J23                                   
045391,000331: 21,3611           13613                           TCF      +2                                    
045392,000332: 21,3612           13715                           TCF      J23                                   
045393,000333: 
045394,000334: 21,3613           00006                           EXTEND                                         
045395,000335: 21,3614           43446                           DCS      WLMH                                  #  WL - H
045396,000336: 21,3615           53514                           DXCH     WTEMP                                 
045397,000337: 21,3616           00006                           EXTEND                                         
045398,000338: 21,3617           31521                           DCA      EDOTVEL                               
045399,000339: 21,3620           21514                           DAS      WTEMP                                 
045400,000340: 21,3621           11513                           CCS      WTEMP                                 
045401,000341: 21,3622           13715                           TCF      J23                                   
045402,000342: 21,3623           13625                           TCF      SIGNCK3                               
045403,000343: 21,3624           13631                           TCF      NJ23                                  
045404,000344: 21,3625           11514        SIGNCK3            CCS      WTEMP      +1                         
045405,000345: 21,3626           13715                           TCF      J23                                   
045406,000346: 21,3627           13715                           TCF      J23                                   
045407,000347: 21,3630           13631                           TCF      NJ23                                  
045408,000348: 
045409,000349: 21,3631           31522        NJ23               CA       AERRVEL                               
045410,000350: 21,3632           61502                           AD       T5TEMP                                #  (ADB+AF)
045411,000351: 21,3633           65006                           AD       WL-H/SLP                              
045412,000352: 21,3634           10000                           CCS      A                                     
045413,000353: 21,3635           13727                           TCF      J24                                   
045414,000354: 21,3636           13727                           TCF      J24                                   
045415,000355: 21,3637           13704                           TCF      J22                                   
045416,000356: 21,3640           13704                           TCF      J22                                   
045417,000357: 
045418,000358: 21,3641           00006        J18                EXTEND                                         
045419,000359: 21,3642           41516                           DCS      EDOT                                  
045420,000360: 21,3643           53511                           DXCH     KMPAC                                 
045421,000361: 21,3644           13740                           TCF      JTIME                                 
045422,000362: 
045423,000363: 21,3645           41517        J20                CS       AERR                                  
045424,000364: 21,3646           61523                           AD       ADBVEL                                
045425,000365: 21,3647           00006                           EXTEND                                         
045426,000366: 21,3650           73451                           MP       SLOPE2                                #  (HYSTERESIS SLOPE)
045427,000367: 21,3651           53511                           DXCH     KMPAC                                 
045428,000368: 21,3652           00006                           EXTEND                                         
045429,000369: 21,3653           41516                           DCS      EDOT                                  
045430,000370: 21,3654           21511                           DAS      KMPAC                                 
045431,000371: 21,3655           13740                           TCF      JTIME                                 
045432,000372: 
045433,000373: 21,3656           11515        J21                CCS      EDOT                                  
045434,000374: 21,3657           13675                           TCF      JP                                    
045435,000375: 21,3660           13662                           TCF      SIGNCK4                               
045436,000376: 21,3661           13666                           TCF      JN                                    
045437,000377: 21,3662           11516        SIGNCK4            CCS      EDOT       +1                         

Page 1032

045439,000379: 21,3663           13675                           TCF      JP                                    
045440,000380: 21,3664           13675                           TCF      JP                                    
045441,000381: 21,3665           13666                           TCF      JN                                    
045442,000382: 21,3666           00006        JN                 EXTEND                                         
045443,000383: 21,3667           41516                           DCS      EDOT                                  
045444,000384: 21,3670           53511                           DXCH     KMPAC                                 
045445,000385: 21,3671           00006                           EXTEND                                         
045446,000386: 21,3672           33450                           DCA      WL                                    
045447,000387: 21,3673           21511                           DAS      KMPAC                                 
045448,000388: 21,3674           13740                           TCF      JTIME                                 
045449,000389: 
045450,000390: 21,3675           00006        JP                 EXTEND                                         
045451,000391: 21,3676           41516                           DCS      EDOT                                  
045452,000392: 21,3677           53511                           DXCH     KMPAC                                 
045453,000393: 21,3700           00006                           EXTEND                                         
045454,000394: 21,3701           43450                           DCS      WL                                    
045455,000395: 21,3702           21511                           DAS      KMPAC                                 
045456,000396: 21,3703           13740                           TCF      JTIME                                 
045457,000397: 
045458,000398: 21,3704           11515        J22                CCS      EDOT                                  
045459,000399: 21,3705           13666                           TCF      JN                                    
045460,000400: 21,3706           13710                           TCF      SIGNCK5                               
045461,000401: 21,3707           13675                           TCF      JP                                    
045462,000402: 21,3710           11516        SIGNCK5            CCS      EDOT       +1                         
045463,000403: 21,3711           13666                           TCF      JN                                    
045464,000404: 21,3712           13666                           TCF      JN                                    
045465,000405: 21,3713           13675                           TCF      JP                                    
045466,000406: 21,3714           13675                           TCF      JP                                    
045467,000407: 
045468,000408: 21,3715           51506        J23                INDEX    SPNDX                                 
045469,000409: 21,3716           44754                           CS       BIT13                                 #  RESET RATE DAMPING FLAG
045470,000410: 21,3717           71501                           MASK     RCSFLAGS                              #  BIT13 FOR ROLL  (SPNDX = 0)
045471,000411: 21,3720           55501                           TS       RCSFLAGS                              #  BIT12 FOR PITCH (SPNDX = 1)
045472,000412:                                                                                                  #  BIT11 FOR YAW   (SPNDX = 2)
045473,000413: 
045474,000414: 21,3721           51506                           INDEX    SPNDX                                 
045475,000415: 21,3722           33060                           CAF      OCT01400                              #  IS THERE TO BE A FORCED FIRING ON THIS
045476,000416: 21,3723           71501                           MASK     RCSFLAGS                              #  AXIS
045477,000417: 21,3724           00006                           EXTEND                                         
045478,000418: 21,3725           13761                           BZF      DOJET      +2                         #  NO, GO TO DOJET +2 AND DO NOTHING
045479,000419: 
045480,000420: 21,3726           13641                           TCF      J18                                   #  YES, GO TO J18 AND FORCE A FIRING
045481,000421: 
045482,000422: 21,3727           41517        J24                CS       AERR                                  
045483,000423: 21,3730           00006                           EXTEND                                         
045484,000424: 21,3731           61523                           SU       ADBVEL                                
045485,000425: 21,3732           00006                           EXTEND                                         
045486,000426: 21,3733           73451                           MP       SLOPE2                                #  (HYSTERESIS SLOPE)
045487,000427: 21,3734           53511                           DXCH     KMPAC                                 
045488,000428: 21,3735           00006                           EXTEND                                         

Page 1033

045490,000430: 21,3736           41516                           DCS      EDOT                                  
045491,000431: 21,3737           21511                           DAS      KMPAC                                 
045492,000432: 

Page 1034

045494,000434:                                                                                                  #  COMPUTE THE JET ON TIME NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, IE
045495,000435: 
045496,000436:                                                                                                  #             T  = J/M(DELTA W)
045497,000437:                                                                                                  #              J
045498,000438: 
045499,000439:                                                                                                  #        DELTA W = DESIRED CHANGE IN S/C ANGULAR RATE AS DETERMINED BY THE
045500,000440:                                                                                                  #                  SWITCHING LOGIC,  AT THIS POINT STORED IN KMPAC.
045501,000441: 
045502,000442:                                                                                                  #           J/M  = S/C INERTIA TO TORQUE 9ATIO SCALED BY
045503,000443:                                                                                                  #                    (57.3/450)(B24/1600)(1/.8)
045504,000444:                                                                                                  #                  FOR 1 JET OPERATION  (M = 700 FT-LB).
045505,000445:                                                                                                  #                  IE J/M = J(SLUG-FTFT) X 0.00000085601606
045506,000446: 
045507,000447:                                                                                                  #                  THE CORRESPONDING COMPUTER VARIABLES ESTABLISHED BY
045508,000448:                                                                                                  #                  KEYBOARD ENTRY ARE
045509,000449:                                                                                                  #                     J/M (ROLL)
045510,000450:                                                                                                  #                     J/M1 (PITCH)
045511,000451:                                                                                                  #                     J/M2 (YAW)
045512,000452: 
045513,000453:                                                                                                  #            T   = JET ON-TIME     SCALED 16384/1600 SEC
045514,000454:                                                                                                  #             J
045515,000455: 
045516,000456:                                                                                                  #                  THE COMPUTER VARIABLES ARE
045517,000457:                                                                                                  #                        TAU  (ROLL)
045518,000458:                                                                                                  #                        TAU1 (PITCH)
045519,000459:                                                                                                  #                        TAU2 (YAW)
045520,000460: 
045521,000461: 
045522,000462: 21,3740           51506        JTIME              INDEX    SPNDX                                 #  PICK UP S/C INERTIA/TORQUE RATIO
045523,000463: 21,3741           31623                           CA       J/M                                   #  SCALED (57.3/450)(B24/1600)
045524,000464: 21,3742           02060                           TC       SMALLMP                               #  FOR 1-JET OPERATION
045525,000465: 21,3743           34756                           CA       BIT11                                 
045526,000466: 21,3744           02060                           TC       SMALLMP                               
045527,000467: 21,3745           11510                           CCS      KMPAC                                 
045528,000468: 21,3746           13752                           TCF      +4                                    
045529,000469: 21,3747           13756                           TCF      TAUNORM                               
045530,000470: 21,3750           13754                           TCF      +4                                    
045531,000471: 21,3751           13756                           TCF      TAUNORM                               
045532,000472: 21,3752           34750                           CA       POSMAX                                
045533,000473: 21,3753           13757                           TCF      DOJET                                 
045534,000474: 21,3754           34752                           CA       NEGMAX                                
045535,000475: 21,3755           13757                           TCF      DOJET                                 
045536,000476: 
045537,000477: 21,3756           31511        TAUNORM            CA       KMPAC      +1                         
045538,000478: 21,3757           51506        DOJET              INDEX    SPNDX                                 
045539,000479: 21,3760           55561                           TS       TAU                                   
045540,000480: 21,3761           11506                 +2        CCS      SPNDX                                 
045541,000481: 21,3762           13456                           TCF      JLOOP                                 
045542,000482: 21,3763           00006        T6PROG             EXTEND                                         #  WHEN THE ROTATION COMMANDS (TAUS)
045543,000483: 21,3764           33770                           DCA      JETADDR                               #  HAVE BEEN DETERMINED

Page 1035

045545,000485: 21,3765           52113                           DXCH     T5LOC                                 #  RESET T5LOC FOR PHASE3
045546,000486: 21,3766           15323                           TCF      RESUME                                
045547,000487: 
045548,000488: 21,3767  E6,1510                                  EBANK=   KMPAC                                 
045549,000489: 21,3767           02541 36066  JETADDR            2CADR    JETSLECT                              

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