Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

044854,000002:                                                                                                 #  Copyright:     Public domain.
044855,000003:                                                                                                 #  Filename:      AUTOMATIC_MANEUVERS.agc
044856,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
044857,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
044858,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
044859,000007:                                                                                                 #                 Apollo 15-17.
044860,000008:                                                                                                 #  Assembler:     yaYUL
044861,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
044862,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
044863,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
044864,000012:                                                                                                 #  Mod history:   2009-08-27 SN   Adapted from corresponding Comanche 055 file.
044865,000013:                                                                                                 #                 2009-09-06 JL   Fixed typos.
044866,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
044867,000015: 
044868,000016:                                                                                                 # # Page 1024
044869,000017: 21,2000                                          SETLOC   DAPS3                                 
044870,000018: 21,2000                                          BANK                                           
044871,000019: 
044872,000020: 21,3272                                          COUNT*   $$/DAPAM                              
044873,000021: 21,3272  E6,1510                                 EBANK=   KMPAC                                 
044874,000022: 21,3272           34753        AHFNOROT          CAF      BIT14                                 
044875,000023: 21,3273           05654                          TC       C31BTCHK                              
044876,000024: 21,3274           13310                          TCF      FREECONT                              
044877,000025: 21,3275           31501                          CA       RCSFLAGS                              #  SEE IF RATE FILTER HAS BEEN INITIALIZED
044878,000026: 21,3276           74753                          MASK     BIT14                                 
044879,000027: 21,3277           10000                          CCS      A                                     #  IF SO, PROCEED WITH ATTITUDE CONTROL
044880,000028: 21,3300           12541                          TCF      REINIT                                #  IF NOT, RECYCLE TO INITIALIZE FILTER
044881,000029:                                                                                                 #  AUTOMATIC CONTROL YET
044882,000030: 21,3301           34754                          CAF      BIT13                                 
044883,000031: 21,3302           05654                          TC       C31BTCHK                              
044884,000032: 21,3303           13404                          TCF      HOLDFUNC                              
044885,000033: 21,3304           31340        AUTOCONT          CA       HOLDFLAG                              #  IF HOLDFLAG IS +, GO TO GRABANG.
044886,000034: 21,3305           00006                          EXTEND                                         #  OTHERWISE, GO TO ATTHOLD.
044887,000035: 21,3306           63334                          BZMF     ATTHOLD                               
044888,000036: 21,3307           13410                          TCF      GRABANG                               
044889,000037: 
044890,000038:                                                                                                 #  MINIMUM IMPULSE CONTROL
044891,000039: 
044892,000040: 21,3310           34770        FREECONT          CAF      ONE                                   
044893,000041: 21,3311           55340                          TS       HOLDFLAG                              #  RESET HOLDFLAG
044894,000042:                                                                                                 #  INHIBIT AUTOMATIC STEERING
044895,000043: 21,3312           00006                          EXTEND                                         
044896,000044: 21,3313           00032                          READ     CHAN32                                
044897,000045: 21,3314           54001                          TS       L                                     
044898,000046: 21,3315           40000                          COM                                            
044899,000047: 21,3316           71633                          MASK     CHANTEMP                              
044900,000048: 21,3317           23633                          LXCH     CHANTEMP                              
044901,000049: 21,3320           73063        RHCMINP           MASK     MANROT                                
044902,000050: 21,3321           03152                          TC       STICKCHK                              
044903,000051: 21,3322           51656                          INDEX    RMANNDX                               
044904,000052: 21,3323           34614                          CA       MINTAU                                #  MINTAU  +0
044905,000053: 21,3324           55561                          TS       TAU                                   #              +1   +14MS MINIMUM IMPULSE
044906,000054: 21,3325           51657                          INDEX    PMANNDX                               #              +2   -14MS TIME
044907,000055: 21,3326           34614                          CA       MINTAU                                #              +3   +0
044908,000056: 21,3327           55562                          TS       TAU1                                  
044909,000057: 21,3330           51660                          INDEX    YMANNDX                               
044910,000058: 21,3331           34614                          CA       MINTAU                                
044911,000059: 21,3332           55563                          TS       TAU2                                  
044912,000060: 21,3333           13105                          TCF      T6PROGM                               
044913,000061: 
044914,000062: 
044915,000063:    4000                                          SETLOC   FFTAG12                               
044916,000064:    4000                                          BANK                                           
044917,000065: 
044918,000066:    4614                                          COUNT*   $$/DAPAM                              
044919,000067:                                                                                                 # # Page 1025
044920,000068: 
044921,000069:    4614           00000        MINTAU            DEC      0          B-14                       
044922,000070:    4615           00027        DEC23             DEC      23         B-14                       #  = 14 MS
044923,000071:    4616           77750        DECNEG23          DEC      -23        B-14                       #  = -14 MS
044924,000072:    4617           00000                          DEC      0          B-14                       
044925,000073: 
044926,000074: 
044927,000075: 21,2000                                          SETLOC   DAPS3                                 
044928,000076: 21,2000                                          BANK                                           
044929,000077: 
044930,000078: 21,3334                                          COUNT*   $$/DAPAM                              
044931,000079: 
044932,000080:                                                                                                 # # Page 1026
044933,000081:                                                                                                 #  CALCULATION OF ATTITUDE ERRORS-
044934,000082: 
044935,000083:                                                                                                 #         -    *     -      -          -
044936,000084:                                                                                                 #         AK = AMGB (CDUX - THETADX) + BIAS
044937,000085: 
044938,000086:                                                                                                 #  IE     *AK *   * 1   SIN(PSI)            0     ** CDUX - THETADX *    *BIAS *
044939,000087:                                                                                                 #         *   *   *                               **                *    *     *
044940,000088:                                                                                                 #         *AK1* = * 0   COS(PSI)COS(PHI)  SIN(PHI)** CDUY - THETADY *  + *BIAS1*
044941,000089:                                                                                                 #         *   *   *                               **                *    *     *
044942,000090:                                                                                                 #         *AK2*   * 0  -COS(PSI)SIN(PHI)  COS(PHI)** CDUZ - THETADZ *    *BIAS2*
044943,000091: 
044944,000092:                                                                                                 #  THE BIASES ARE ADDED ONLY WHILE PERFORMING AUTOMATIC MANEUVERS (ESP KALCMANU) TO PROVIDE ADDITIONAL LEAD
044945,000093:                                                                                                 #  AND PREVENT OVERSHOOT WHEN STARTING AN AUTOMATIC MANEUVER. NORMALLY THE REQUIRED LEAD IS ONLY 1-2 DEGREES.
044946,000094:                                                                                                 #  BUT DURING HIGH RATE MANEUVERS IT CAN BE AS MUCH AS 7 DEGREES.  THE BIASES ARE COMPUTED BY KALCMANU AND REMAIN
044947,000095:                                                                                                 #  FIXED UNTIL THE MANEUVER IS COMPLETED AT WHICH TIME THEY ARE RESET TO ZERO.
044948,000096: 
044949,000097: 21,3334           30032        ATTHOLD           CA       CDUX                                  
044950,000098: 21,3335           00006                          EXTEND                                         
044951,000099: 21,3336           21572                          MSU      THETADX                               
044952,000100: 21,3337           55567                          TS       ERRORX                                
044953,000101: 21,3340           30033                          CA       CDUY                                  
044954,000102: 21,3341           00006                          EXTEND                                         
044955,000103: 21,3342           21573                          MSU      THETADY                               
044956,000104: 21,3343           55502                          TS       T5TEMP                                
044957,000105: 21,3344           00006                          EXTEND                                         
044958,000106: 21,3345           71640                          MP       AMGB1                                 
044959,000107: 21,3346           27567                          ADS      ERRORX                                
044960,000108: 21,3347           31502                          CA       T5TEMP                                
044961,000109: 21,3350           00006                          EXTEND                                         
044962,000110: 21,3351           71641                          MP       AMGB4                                 
044963,000111: 21,3352           55570                          TS       ERRORY                                
044964,000112: 21,3353           31502                          CA       T5TEMP                                
044965,000113: 21,3354           00006                          EXTEND                                         
044966,000114: 21,3355           71643                          MP       AMGB7                                 
044967,000115: 21,3356           55571                          TS       ERRORZ                                
044968,000116: 21,3357           30034                          CA       CDUZ                                  
044969,000117: 21,3360           00006                          EXTEND                                         
044970,000118: 21,3361           21574                          MSU      THETADZ                               
044971,000119: 21,3362           55502                          TS       T5TEMP                                
044972,000120: 21,3363           00006                          EXTEND                                         
044973,000121: 21,3364           71642                          MP       AMGB5                                 
044974,000122: 21,3365           27570                          ADS      ERRORY                                
044975,000123: 21,3366           31502                          CA       T5TEMP                                
044976,000124: 21,3367           00006                          EXTEND                                         
044977,000125: 21,3370           71644                          MP       AMGB8                                 
044978,000126: 21,3371           27571                          ADS      ERRORZ                                
044979,000127: 21,3372           41340                          CS       HOLDFLAG                              
044980,000128: 21,3373           00006                          EXTEND                                         
044981,000129:                                                                                                 # # Page 1027
044982,000130: 21,3374           63452                          BZMF     JETS                                  
044983,000131: 21,3375           31564                          CA       BIAS                                  #  AD BIASES ONLY IF PERFORMING AUTOMATIC
044984,000132: 21,3376           27567                          ADS      ERRORX                                
044985,000133: 21,3377           31565                          CA       BIAS1                                 
044986,000134: 21,3400           27570                          ADS      ERRORY                                
044987,000135: 21,3401           31566                          CA       BIAS2                                 
044988,000136: 21,3402           27571                          ADS      ERRORZ                                
044989,000137: 21,3403           13452                          TCF      JETS                                  
044990,000138: 
044991,000139: 
044992,000140: 21,3404           11340        HOLDFUNC          CCS      HOLDFLAG                              
044993,000141: 21,3405           13410                          TCF      +3                                    
044994,000142: 21,3406           13334                          TCF      ATTHOLD                               
044995,000143: 21,3407           13410                          TCF      +1                                    
044996,000144: 21,3410           34772        GRABANG           CAF      ZERO                                  #  ZERO WBODYS AND BIASES
044997,000145: 21,3411           55525                          TS       WBODY                                 
044998,000146: 21,3412           55526                          TS       WBODY      +1                         
044999,000147: 21,3413           55527                          TS       WBODY1                                
045000,000148: 21,3414           55530                          TS       WBODY1     +1                         
045001,000149: 21,3415           55531                          TS       WBODY2                                
045002,000150: 21,3416           55532                          TS       WBODY2     +1                         
045003,000151: 21,3417           55564                          TS       BIAS                                  
045004,000152: 21,3420           55565                          TS       BIAS1                                 
045005,000153: 21,3421           55566                          TS       BIAS2                                 
045006,000154: 
045007,000155: 21,3422           31501                          CA       RCSFLAGS                              
045008,000156: 21,3423           73064                          MASK     OCT16000                              
045009,000157: 21,3424           00006                          EXTEND                                         #  IS RATE DAMPING COMPLETED
045010,000158: 21,3425           13433                          BZF      ENDDAMP                               #  IF SO, GO TO ENDDAMP
045011,000159: 21,3426           34772                          CAF      ZERO                                  #  OTHERWISE, ZERO ERRORS
045012,000160: 21,3427           55567                          TS       ERRORX                                
045013,000161: 21,3430           55570                          TS       ERRORY                                
045014,000162: 21,3431           55571                          TS       ERRORZ                                
045015,000163: 21,3432           13452                          TCF      JETS                                  
045016,000164: 
045017,000165: 21,3433           55340        ENDDAMP           TS       HOLDFLAG                              #  SET HOLDFLAG +0
045018,000166: 21,3434           00006                          EXTEND                                         
045019,000167: 21,3435           30033                          DCA      CDUX                                  #  PICK UP CDU ANGLES FOR ATTITUDE HOLD
045020,000168: 21,3436           53573                          DXCH     THETADX                               #  REFERENCES
045021,000169: 21,3437           30034                          CA       CDUZ                                  
045022,000170: 21,3440           55574                          TS       THETADZ                               
045023,000171: 21,3441           13334                          TCF      ATTHOLD                               
045024,000172: 
045025,000173:                                                                                                 # # Page 1028
045026,000174:                                                                                                 #  JET SWITCHING LOGIC AND CALCULATION OF REQUIRED ROTATION COMMANDS
045027,000175: 
045028,000176:                                                                                                 #  DETERMINE THE LOCATION OF THE RATE ERROR AND THE ATTITUDE ERROR RELATIVE TO THE SWITCHING LOGIC IN THE PHASE
045029,000177:                                                                                                 #  PLANE.
045030,000178:                                                                                                 #  COMPUTE THE CHANGE IN RATE CORRESPONDING TO THE ATTITUDE ERROR NECESSARY TO DRIVE THE S/C INTO THE
045031,000179:                                                                                                 #  APPROPRIATE DEADZONE.
045032,000180: 
045033,000181: 
045034,000182:                                                                                                 #                                      .
045035,000183:                                                                                                 #    R22                          RATE . ERROR
045036,000184:                                                                                                 #         WL+H                         .
045037,000185:                                                                                                 #  *********************************   .                                  ***** SWITCH LINES ENCLOSING DEADZONES
045038,000186:                                                                                                 #    R23  WL                        *  .
045039,000187:                                                                                                 #  --------------------------------- * .                                  ----- DESIRED RATE LINES
045040,000188:                                                                                                 #    R23  WL-H       -                *.
045041,000189:                                                                                                 #  ****************** -                .                                  R20, R21, R22, ETC  REGIONS IN PHASE
045042,000190:                                                                                                 #                    * -               .* R18      R20       R21          PLANE FOF COMPUTING DESIRED RESPONSE
045043,000191:                                                                                                 #                     *                . *
045044,000192:                                                                                                 #                      *-              .  *
045045,000193:                                                                                                 #    R22             R24*-     R23     .   *
045046,000194:                                                                                                 #                        *             .    *
045047,000195:                                                                                                 #                         *            .     *
045048,000196:                                                                                                 #                          + -ADB      .      * AF              ATTITUDE
045049,000197:                                                                                                 #   ........................+--+---------------+--+........................
045050,000198:                                                                                                 #                            AF *      .     +ADB  +             ERROR
045051,000199:                                                                                                 #                                *     .            *
045052,000200:                                                                                                 #                                 *    .            -*
045053,000201:                                                                                                 #                                  *   .             -*
045054,000202:                                                                                                 #                                   *  .              -*
045055,000203:                                                                                                 #                                    * .                *
045056,000204:                                                                                                 #                                     *.               - *
045057,000205:                                                                                                 #                                      .                - *****************
045058,000206:                                                                                                 #                                      .*                -
045059,000207:                                                                                                 #                                      . * --------------------------------
045060,000208:                                                                                                 #                                      .  *
045061,000209:                                                                                                 #                                      .   ********************************
045062,000210:                                                                                                 #                                      .
045063,000211: 
045064,000212:                                                                                                 #                         FIG. 1  PHASE PLANE SWITCHING LOGIC
045065,000213: 
045066,000214: 
045067,000215:                                                                                                 #  CONSTANTS FOR JET SWITCHING LOGIC
045068,000216: 
045069,000217: 21,3442           00114        WLH/SLOP          DEC      .00463                                #  = WL+H/SLOPE = .83333 DEG      $180
045070,000218: 21,3443     5006               WL-H/SLP          =        DEC45                                 #  = WL-H/SLOPE = .5 DEG           $180
045071,000219: 21,3443           00022 06426  WLH               2DEC     .0011111111                            #  = WL+H = 0.5 DEG/SEC           $450
045072,000220: 21,3445           00012 35415  WLMH              2DEC     .0006666666                            #  = WL-H = 0.3 DEG/SEC           $450
045073,000221: 21,3447           00016 22021  WL                2DEC     .0008888888                            #  = WL   = 0.4 DEG/SEC           $450
045074,000222: 
045075,000223:                                                                                                 # # Page 1029
045076,000224: 21,3451           12173        SLOPE2            DEC      .32                                   #  = 0.8 DEG/SEC/DEG              $450/180
045077,000225: 21,3452           31655        JETS              CA       ADB                                   
045078,000226: 21,3453           64766                          AD       FOUR                                  #  AF = FLAT REGION = .044 DEG
045079,000227: 21,3454           55502                          TS       T5TEMP                                #  ADB+AF
045080,000228: 21,3455           34767                          CAF      TWO                                   
045081,000229: 21,3456           55506        JLOOP             TS       SPNDX                                 
045082,000230: 21,3457           60000                          DOUBLE                                         
045083,000231: 21,3460           55507                          TS       DPNDX                                 
045084,000232: 21,3461           00006                          EXTEND                                         
045085,000233: 21,3462           50000                          INDEX    A                                     
045086,000234: 21,3463           31534                          DCA      ADOT                                  
045087,000235: 21,3464           53516                          DXCH     EDOT                                  
045088,000236: 21,3465           31340                          CA       HOLDFLAG                              #  HOLDFLAG = +0 MEANS THAT DAP IS IN
045089,000237: 21,3466           00006                          EXTEND                                         #  ATTITUDE HOLD AND RATE DAMPING IS OVER.
045090,000238: 21,3467           13474                          BZF      INHOLD                                #  IF THIS IS THE CASE, BYPASS ADDITION
045091,000239:                                                                                                 #  OF WBODY AND GO TO INHOLD
045092,000240: 21,3470           00006                          EXTEND                                         
045093,000241: 21,3471           51507                          INDEX    DPNDX                                 
045094,000242: 21,3472           41526                          DCS      WBODY                                 
045095,000243: 21,3473           21516                          DAS      EDOT                                  #  = ADOT-WBODY
045096,000244: 21,3474           51506        INHOLD            INDEX    SPNDX                                 
045097,000245: 21,3475           31567                          CA       ERRORX                                
045098,000246: 21,3476           55517                          TS       AERR                                  #  AERR = BIAS + AK
045099,000247: 
045100,000248: 21,3477           11515                          CCS      EDOT                                  
045101,000249: 21,3500           13510                          TCF      POSVEL                                
045102,000250: 21,3501           13503                          TCF      SIGNCK1                               
045103,000251: 21,3502           13520                          TCF      NEGVEL                                
045104,000252: 21,3503           11516        SIGNCK1           CCS      EDOT       +1                         
045105,000253: 21,3504           13510                          TCF      POSVEL                                
045106,000254: 21,3505           13510                          TCF      POSVEL                                
045107,000255: 21,3506           13520                          TCF      NEGVEL                                
045108,000256: 21,3507           13520                          TCF      NEGVEL                                
045109,000257: 21,3510           00006        POSVEL            EXTEND                                         
045110,000258: 21,3511           31516                          DCA      EDOT                                  
045111,000259: 21,3512           53521                          DXCH     EDOTVEL                               
045112,000260: 21,3513           31502                          CA       T5TEMP                                
045113,000261: 21,3514           55523                          TS       ADBVEL                                #  +(ADB+AF)
045114,000262: 21,3515           31517                          CA       AERR                                  
045115,000263: 21,3516           55522                          TS       AERRVEL                               
045116,000264: 21,3517           03527                          TC       J6.                                   
045117,000265: 21,3520           00006        NEGVEL            EXTEND                                         
045118,000266: 21,3521           41516                          DCS      EDOT                                  
045119,000267: 21,3522           53521                          DXCH     EDOTVEL                               
045120,000268: 21,3523           41502                          CS       T5TEMP                                
045121,000269: 21,3524           55523                          TS       ADBVEL                                #  -(ADB+AF)
045122,000270: 21,3525           41517                          CS       AERR                                  
045123,000271: 21,3526           55522                          TS       AERRVEL                               
045124,000272: 
045125,000273: 21,3527           00006        J6.               EXTEND                                         
045126,000274:                                                                                                 # # Page 1030
045127,000275: 21,3530           61655                          SU       ADB                                   
045128,000276: 21,3531           63442                          AD       WLH/SLOP                              
045129,000277: 21,3532           00006                          EXTEND                                         
045130,000278: 21,3533           63562                          BZMF     J8                                    
045131,000279: 
045132,000280: 21,3534           41502                          CS       T5TEMP                                #  (ADB+AF)
045133,000281: 21,3535           61522                          AD       AERRVEL                               
045134,000282: 21,3536           00006                          EXTEND                                         
045135,000283: 21,3537           63541                          BZMF     +2                                    
045136,000284: 21,3540           13553                          TCF      J7                                    
045137,000285: 21,3541           00006                          EXTEND                                         
045138,000286: 21,3542           41521                          DCS      EDOTVEL                               
045139,000287: 21,3543           00006                          EXTEND                                         
045140,000288: 21,3544           11654                          DV       SLOPE                                 
045141,000289: 21,3545           00006                          EXTEND                                         
045142,000290: 21,3546           61522                          SU       AERRVEL                               
045143,000291: 21,3547           61655                          AD       ADB                                   
045144,000292: 21,3550           00006                          EXTEND                                         
045145,000293: 21,3551           63641                          BZMF     J18                                   
045146,000294: 21,3552           13715                          TCF      J23                                   
045147,000295: 
045148,000296: 21,3553           45006        J7                CS       WL-H/SLP                              
045149,000297: 21,3554           00006                          EXTEND                                         
045150,000298: 21,3555           61502                          SU       T5TEMP                                #  (ADB+AF)
045151,000299: 21,3556           61522                          AD       AERRVEL                               
045152,000300: 21,3557           00006                          EXTEND                                         
045153,000301: 21,3560           63645                          BZMF     J20                                   
045154,000302: 21,3561           13656                          TCF      J21                                   
045155,000303: 
045156,000304: 21,3562           00006        J8                EXTEND                                         
045157,000305: 21,3563           43444                          DCS      WLH                                   
045158,000306: 21,3564           53514                          DXCH     WTEMP                                 
045159,000307: 21,3565           00006                          EXTEND                                         
045160,000308: 21,3566           31521                          DCA      EDOTVEL                               
045161,000309: 21,3567           21514                          DAS      WTEMP                                 
045162,000310: 21,3570           11513                          CCS      WTEMP                                 
045163,000311: 21,3571           13704                          TCF      J22                                   
045164,000312: 21,3572           13574                          TCF      SIGNCK2                               
045165,000313: 21,3573           13600                          TCF      NJ22                                  
045166,000314: 21,3574           11514        SIGNCK2           CCS      WTEMP      +1                         
045167,000315: 21,3575           13704                          TCF      J22                                   
045168,000316: 21,3576           13704                          TCF      J22                                   
045169,000317: 21,3577           13600                          TCF      NJ22                                  
045170,000318: 
045171,000319: 21,3600           00006        NJ22              EXTEND                                         
045172,000320: 21,3601           31521                          DCA      EDOTVEL                               
045173,000321: 21,3602           00006                          EXTEND                                         
045174,000322: 21,3603           11654                          DV       SLOPE                                 
045175,000323: 21,3604           61502                          AD       T5TEMP                                #  (ADB+AF)
045176,000324: 21,3605           61522                          AD       AERRVEL                               
045177,000325:                                                                                                 # # Page 1031
045178,000326: 21,3606           10000                          CCS      A                                     
045179,000327: 21,3607           13715                          TCF      J23                                   
045180,000328: 21,3610           13715                          TCF      J23                                   
045181,000329: 21,3611           13613                          TCF      +2                                    
045182,000330: 21,3612           13715                          TCF      J23                                   
045183,000331: 
045184,000332: 21,3613           00006                          EXTEND                                         
045185,000333: 21,3614           43446                          DCS      WLMH                                  #  WL - H
045186,000334: 21,3615           53514                          DXCH     WTEMP                                 
045187,000335: 21,3616           00006                          EXTEND                                         
045188,000336: 21,3617           31521                          DCA      EDOTVEL                               
045189,000337: 21,3620           21514                          DAS      WTEMP                                 
045190,000338: 21,3621           11513                          CCS      WTEMP                                 
045191,000339: 21,3622           13715                          TCF      J23                                   
045192,000340: 21,3623           13625                          TCF      SIGNCK3                               
045193,000341: 21,3624           13631                          TCF      NJ23                                  
045194,000342: 21,3625           11514        SIGNCK3           CCS      WTEMP      +1                         
045195,000343: 21,3626           13715                          TCF      J23                                   
045196,000344: 21,3627           13715                          TCF      J23                                   
045197,000345: 21,3630           13631                          TCF      NJ23                                  
045198,000346: 
045199,000347: 21,3631           31522        NJ23              CA       AERRVEL                               
045200,000348: 21,3632           61502                          AD       T5TEMP                                #  (ADB+AF)
045201,000349: 21,3633           65006                          AD       WL-H/SLP                              
045202,000350: 21,3634           10000                          CCS      A                                     
045203,000351: 21,3635           13727                          TCF      J24                                   
045204,000352: 21,3636           13727                          TCF      J24                                   
045205,000353: 21,3637           13704                          TCF      J22                                   
045206,000354: 21,3640           13704                          TCF      J22                                   
045207,000355: 
045208,000356: 21,3641           00006        J18               EXTEND                                         
045209,000357: 21,3642           41516                          DCS      EDOT                                  
045210,000358: 21,3643           53511                          DXCH     KMPAC                                 
045211,000359: 21,3644           13740                          TCF      JTIME                                 
045212,000360: 
045213,000361: 21,3645           41517        J20               CS       AERR                                  
045214,000362: 21,3646           61523                          AD       ADBVEL                                
045215,000363: 21,3647           00006                          EXTEND                                         
045216,000364: 21,3650           73451                          MP       SLOPE2                                #  (HYSTERESIS SLOPE)
045217,000365: 21,3651           53511                          DXCH     KMPAC                                 
045218,000366: 21,3652           00006                          EXTEND                                         
045219,000367: 21,3653           41516                          DCS      EDOT                                  
045220,000368: 21,3654           21511                          DAS      KMPAC                                 
045221,000369: 21,3655           13740                          TCF      JTIME                                 
045222,000370: 
045223,000371: 21,3656           11515        J21               CCS      EDOT                                  
045224,000372: 21,3657           13675                          TCF      JP                                    
045225,000373: 21,3660           13662                          TCF      SIGNCK4                               
045226,000374: 21,3661           13666                          TCF      JN                                    
045227,000375: 21,3662           11516        SIGNCK4           CCS      EDOT       +1                         
045228,000376:                                                                                                 # # Page 1032
045229,000377: 21,3663           13675                          TCF      JP                                    
045230,000378: 21,3664           13675                          TCF      JP                                    
045231,000379: 21,3665           13666                          TCF      JN                                    
045232,000380: 21,3666           00006        JN                EXTEND                                         
045233,000381: 21,3667           41516                          DCS      EDOT                                  
045234,000382: 21,3670           53511                          DXCH     KMPAC                                 
045235,000383: 21,3671           00006                          EXTEND                                         
045236,000384: 21,3672           33450                          DCA      WL                                    
045237,000385: 21,3673           21511                          DAS      KMPAC                                 
045238,000386: 21,3674           13740                          TCF      JTIME                                 
045239,000387: 
045240,000388: 21,3675           00006        JP                EXTEND                                         
045241,000389: 21,3676           41516                          DCS      EDOT                                  
045242,000390: 21,3677           53511                          DXCH     KMPAC                                 
045243,000391: 21,3700           00006                          EXTEND                                         
045244,000392: 21,3701           43450                          DCS      WL                                    
045245,000393: 21,3702           21511                          DAS      KMPAC                                 
045246,000394: 21,3703           13740                          TCF      JTIME                                 
045247,000395: 
045248,000396: 21,3704           11515        J22               CCS      EDOT                                  
045249,000397: 21,3705           13666                          TCF      JN                                    
045250,000398: 21,3706           13710                          TCF      SIGNCK5                               
045251,000399: 21,3707           13675                          TCF      JP                                    
045252,000400: 21,3710           11516        SIGNCK5           CCS      EDOT       +1                         
045253,000401: 21,3711           13666                          TCF      JN                                    
045254,000402: 21,3712           13666                          TCF      JN                                    
045255,000403: 21,3713           13675                          TCF      JP                                    
045256,000404: 21,3714           13675                          TCF      JP                                    
045257,000405: 
045258,000406: 21,3715           51506        J23               INDEX    SPNDX                                 
045259,000407: 21,3716           44754                          CS       BIT13                                 #  RESET RATE DAMPING FLAG
045260,000408: 21,3717           71501                          MASK     RCSFLAGS                              #  BIT13 FOR ROLL  (SPNDX = 0)
045261,000409: 21,3720           55501                          TS       RCSFLAGS                              #  BIT12 FOR PITCH (SPNDX = 1)
045262,000410:                                                                                                 #  BIT11 FOR YAW   (SPNDX = 2)
045263,000411: 
045264,000412: 21,3721           51506                          INDEX    SPNDX                                 
045265,000413: 21,3722           33060                          CAF      OCT01400                              #  IS THERE TO BE A FORCED FIRING ON THIS
045266,000414: 21,3723           71501                          MASK     RCSFLAGS                              #  AXIS
045267,000415: 21,3724           00006                          EXTEND                                         
045268,000416: 21,3725           13761                          BZF      DOJET      +2                         #  NO, GO TO DOJET +2 AND DO NOTHING
045269,000417: 
045270,000418: 21,3726           13641                          TCF      J18                                   #  YES, GO TO J18 AND FORCE A FIRING
045271,000419: 
045272,000420: 21,3727           41517        J24               CS       AERR                                  
045273,000421: 21,3730           00006                          EXTEND                                         
045274,000422: 21,3731           61523                          SU       ADBVEL                                
045275,000423: 21,3732           00006                          EXTEND                                         
045276,000424: 21,3733           73451                          MP       SLOPE2                                #  (HYSTERESIS SLOPE)
045277,000425: 21,3734           53511                          DXCH     KMPAC                                 
045278,000426: 21,3735           00006                          EXTEND                                         
045279,000427:                                                                                                 # # Page 1033
045280,000428: 21,3736           41516                          DCS      EDOT                                  
045281,000429: 21,3737           21511                          DAS      KMPAC                                 
045282,000430: 
045283,000431:                                                                                                 # # Page 1034
045284,000432:                                                                                                 #  COMPUTE THE JET ON TIME NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, IE
045285,000433: 
045286,000434:                                                                                                 #              T  = J/M(DELTA W)
045287,000435:                                                                                                 #               J
045288,000436: 
045289,000437:                                                                                                 #         DELTA W = DESIRED CHANGE IN S/C ANGULAR RATE AS DETERMINED BY THE
045290,000438:                                                                                                 #                   SWITCHING LOGIC,  AT THIS POINT STORED IN KMPAC.
045291,000439: 
045292,000440:                                                                                                 #            J/M  = S/C INERTIA TO TORQUE RATIO SCALED BY
045293,000441:                                                                                                 #                     (57.3/450)(B24/1600)(1/.8)
045294,000442:                                                                                                 #                   FOR 1 JET OPERATION  (M = 700 FT-LB).
045295,000443:                                                                                                 #                   IE J/M = J(SLUG-FTFT) x 0.00000085601606
045296,000444: 
045297,000445:                                                                                                 #                   THE CORRESPONDING COMPUTER VARIABLES ESTABLISHED BY
045298,000446:                                                                                                 #                   KEYBOARD ENTRY ARE
045299,000447:                                                                                                 #                      J/M (ROLL)
045300,000448:                                                                                                 #                      J/M1 (PITCH)
045301,000449:                                                                                                 #                      J/M2 (YAW)
045302,000450: 
045303,000451:                                                                                                 #             T   = JET ON-TIME     SCALED 16384/1600 SEC
045304,000452:                                                                                                 #              J
045305,000453: 
045306,000454:                                                                                                 #                   THE COMPUTER VARIABLES ARE
045307,000455:                                                                                                 #                         TAU  (ROLL)
045308,000456:                                                                                                 #                         TAU1 (PITCH)
045309,000457:                                                                                                 #                         TAU2 (YAW)
045310,000458: 
045311,000459: 
045312,000460: 21,3740           51506        JTIME             INDEX    SPNDX                                 #  PICK UP S/C INERTIA/TORQUE RATIO
045313,000461: 21,3741           31623                          CA       J/M                                   #  SCALED (57.3/450)(B24/1600)
045314,000462: 21,3742           02060                          TC       SMALLMP                               #  FOR 1-JET OPERATION
045315,000463: 21,3743           34756                          CA       BIT11                                 
045316,000464: 21,3744           02060                          TC       SMALLMP                               
045317,000465: 21,3745           11510                          CCS      KMPAC                                 
045318,000466: 21,3746           13752                          TCF      +4                                    
045319,000467: 21,3747           13756                          TCF      TAUNORM                               
045320,000468: 21,3750           13754                          TCF      +4                                    
045321,000469: 21,3751           13756                          TCF      TAUNORM                               
045322,000470: 21,3752           34750                          CA       POSMAX                                
045323,000471: 21,3753           13757                          TCF      DOJET                                 
045324,000472: 21,3754           34752                          CA       NEGMAX                                
045325,000473: 21,3755           13757                          TCF      DOJET                                 
045326,000474: 
045327,000475: 21,3756           31511        TAUNORM           CA       KMPAC      +1                         
045328,000476: 21,3757           51506        DOJET             INDEX    SPNDX                                 
045329,000477: 21,3760           55561                          TS       TAU                                   
045330,000478: 21,3761           11506                 +2       CCS      SPNDX                                 
045331,000479: 21,3762           13456                          TCF      JLOOP                                 
045332,000480: 21,3763           00006        T6PROG            EXTEND                                         #  WHEN THE ROTATION COMMANDS (TAUS)
045333,000481: 21,3764           33770                          DCA      JETADDR                               #  HAVE BEEN DETERMINED
045334,000482:                                                                                                 # # Page 1035
045335,000483: 21,3765           52113                          DXCH     T5LOC                                 #  RESET T5LOC FOR PHASE3
045336,000484: 21,3766           15323                          TCF      RESUME                                
045337,000485: 
045338,000486: 21,3767  E6,1510                                 EBANK=   KMPAC                                 
045339,000487: 21,3767           02541 36066  JETADDR           2CADR    JETSLECT                              

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