Source Code
045470,000001: # Copyright: Public domain.
045471,000002: # Filename: AUTOMATIC_MANEUVERS.agc
045472,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
045473,000004: # It is part of the source code for the Command Module's (CM)
045474,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
045475,000006: # Assembler: yaYUL
045476,000007: # Contact: Ron Burkey <info@sandroid.org>.
045477,000008: # Website: www.ibiblio.org/apollo.
045478,000009: # Pages: 1025-1036
045479,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
045480,000011: # same name, using Comanche055 page images.
045481,000012:
045482,000013: # This source code has been transcribed or otherwise adapted from digitized
045483,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
045484,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
045485,000016: # thanks to both. The images (with suitable reduction in storage size and
045486,000017: # consequent reduction in image quality as well) are available online at
045487,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
045488,000019: # illegible, contact me at info@sandroid.org about getting access to the
045489,000020: # (much) higher-quality images which Paul actually created.
045490,000021:
045491,000022: # Notations on the hardcopy document read, in part:
045492,000023:
045493,000024: # Assemble revision 055 of AGC program Comanche by NASA
045494,000025: # 2021113-051. 10:28 APR. 1, 1969
045495,000026:
045496,000027: # This AGC program shall also be referred to as
045497,000028: # Colossus 2A
045498,000029:
045499,000030: # Page 1025
045500,000031: 21,3250 BANK 21
045501,000032: 21,2000 SETLOC DAPS3
045502,000033: 21,2000 BANK
045503,000034:
045504,000035: 21,3250 COUNT 21/DAPAM
045505,000036:
045506,000037: 21,3250 E6,1510 EBANK= KMPAC
045507,000038: 21,3250 00006 AHFNOROT EXTEND
045508,000039: 21,3251 00031 READ CHAN31
045509,000040: 21,3252 75002 MASK BIT14
045510,000041: 21,3253 00006 EXTEND
045511,000042: 21,3254 63272 BZMF FREECONT
045512,000043: 21,3255 31501 CA RCSFLAGS # SEE IF RATE FILTER HAS BEEN INITIALIZED
045513,000044: 21,3256 75002 MASK BIT14
045514,000045: 21,3257 10000 CCS A # IF SO, PROCEED WITH ATTITUDE CONTROL
045515,000046: 21,3260 12534 TCF REINIT # IF NOT, RECYCLE TO INITIALIZE FILTER
045516,000047: # AUTOMATIC CONTROL YET
045517,000048: 21,3261 00006 EXTEND
045518,000049: 21,3262 00031 READ CHAN31
045519,000050: 21,3263 75003 MASK BIT13
045520,000051: 21,3264 00006 EXTEND
045521,000052: 21,3265 63372 BZMF HOLDFUNC
045522,000053:
045523,000054: 21,3266 31332 AUTOCONT CA HOLDFLAG # IF HOLDFLAG IS +, GO TO GRABANG.
045524,000055: 21,3267 00006 EXTEND # OTHERWISE, GO TO ATTHOLD.
045525,000056: 21,3270 63322 BZMF ATTHOLD
045526,000057: 21,3271 13376 TCF GRABANG
045527,000058:
045528,000059: # MINIMUM IMPULSE CONTROL
045529,000060:
045530,000061: 21,3272 35017 FREECONT CAF ONE
045531,000062: 21,3273 55332 TS HOLDFLAG # RESET HOLDFLAG
045532,000063: # INHIBIT AUTOMATIC STEERING
045533,000064: 21,3274 00006 EXTEND
045534,000065: 21,3275 00032 READ CHAN32
045535,000066: 21,3276 54001 TS L
045536,000067: 21,3277 40000 COM
045537,000068: 21,3300 73036 MASK MANROT
045538,000069: 21,3301 71633 MASK CHANTEMP
045539,000070: 21,3302 23633 LXCH CHANTEMP
045540,000071: 21,3303 03130 TC STICKCHK
045541,000072: 21,3304 51656 INDEX RMANNDX
045542,000073: 21,3305 33316 CA MINTAU # MINTAU +0
045543,000074: 21,3306 55561 TS TAU # +1 +14MS MINIMUM IMPULSE
045544,000075: 21,3307 51657 INDEX PMANNDX # +2 -14MS TIME
045545,000076: 21,3310 33316 CA MINTAU # +3 +0
045546,000077: 21,3311 55562 TS TAU1
045547,000078: 21,3312 51660 INDEX YMANNDX
045548,000079: 21,3313 33316 CA MINTAU
045549,000080: # Page 1026
045550,000081: 21,3314 55563 TS TAU2
045551,000082: 21,3315 13067 TCF T6PROGM
045552,000083:
045553,000084: 21,3316 00000 MINTAU DEC 0 B-14
045554,000085: 21,3317 00027 DEC 23 B-14 # = 14MS
045555,000086: 21,3320 77750 DEC -23 B-14 # = -14MS
045556,000087: 21,3321 00000 DEC 0 B-14
045557,000088:
045558,000089: # Page 1027
045559,000090: # CALCULATION OF ATTITUDE ERRORS:
045560,000091: # _ * _ _ _
045561,000092: # AK = AMGB (CDUX - THETADX) + BIAS
045562,000093:
045563,000094: # I.E., *AK * * 1 SIN(PSI) 0 ** CDUX - THETADX * *BIAS *
045564,000095: # * * * ** * * *
045565,000096: # *AK1* = * 0 COS(PSI)COS(PHI) SIN(PHI)** CDUY - THETADY * + *BIAS1*
045566,000097: # * * * ** * * *
045567,000098: # *AK2* * 0 -COS(PSI)SIN(PHI) COS(PHI)** CDUZ - THETADZ * *BIAS2*
045568,000099:
045569,000100: # THE BIASES ARE ADDED ONLY WHILE PERFORMING AUTOMATIC MANEUVERS (ESP KALCMANU) TO PROVIDE ADDITIONAL LEAD
045570,000101: # AND PREVENT OVERSHOOT WHEN STARTING AN AUTOMATIC MANEUVER. NORMALLY THE REQUIRED LEAD IS ONLY 1-2 DEGREES.
045571,000102: # BUT DURING HIGH RATE MANEUVERS IT CAN BE AS MUCH AS 7 DEGREES. THE BIASES ARE COMPUTED BY KALCMANU AND REMAIN
045572,000103: # FIXED UNTIL THE MANEUVER IS COMPLETED AT WHICH TIME THEY ARE RESET TO ZERO.
045573,000104:
045574,000105: 21,3322 30032 ATTHOLD CA CDUX
045575,000106: 21,3323 00006 EXTEND
045576,000107: 21,3324 21572 MSU THETADX
045577,000108: 21,3325 55567 TS ERRORX
045578,000109: 21,3326 30033 CA CDUY
045579,000110: 21,3327 00006 EXTEND
045580,000111: 21,3330 21573 MSU THETADY
045581,000112: 21,3331 55502 TS T5TEMP
045582,000113: 21,3332 00006 EXTEND
045583,000114: 21,3333 71640 MP AMGB1
045584,000115: 21,3334 27567 ADS ERRORX
045585,000116: 21,3335 31502 CA T5TEMP
045586,000117: 21,3336 00006 EXTEND
045587,000118: 21,3337 71641 MP AMGB4
045588,000119: 21,3340 55570 TS ERRORY
045589,000120: 21,3341 31502 CA T5TEMP
045590,000121: 21,3342 00006 EXTEND
045591,000122: 21,3343 71643 MP AMGB7
045592,000123: 21,3344 55571 TS ERRORZ
045593,000124: 21,3345 30034 CA CDUZ
045594,000125: 21,3346 00006 EXTEND
045595,000126: 21,3347 21574 MSU THETADZ
045596,000127: 21,3350 55502 TS T5TEMP
045597,000128: 21,3351 00006 EXTEND
045598,000129: 21,3352 71642 MP AMGB5
045599,000130: 21,3353 27570 ADS ERRORY
045600,000131: 21,3354 31502 CA T5TEMP
045601,000132: 21,3355 00006 EXTEND
045602,000133: 21,3356 71644 MP AMGB8
045603,000134: 21,3357 27571 ADS ERRORZ
045604,000135: 21,3360 41332 CS HOLDFLAG
045605,000136: 21,3361 00006 EXTEND
045606,000137: # Page 1028
045607,000138: 21,3362 63441 BZMF JETS
045608,000139: 21,3363 31564 CA BIAS # AD BIASES ONLY IF PERFORMING AUTOMATIC
045609,000140: 21,3364 27567 ADS ERRORX
045610,000141: 21,3365 31565 CA BIAS1
045611,000142: 21,3366 27570 ADS ERRORY
045612,000143: 21,3367 31566 CA BIAS2
045613,000144: 21,3370 27571 ADS ERRORZ
045614,000145: 21,3371 13441 TCF JETS
045615,000146:
045616,000147: 21,3372 11332 HOLDFUNC CCS HOLDFLAG
045617,000148: 21,3373 13376 TCF +3
045618,000149: 21,3374 13322 TCF ATTHOLD
045619,000150: 21,3375 13376 TCF +1
045620,000151: 21,3376 35021 GRABANG CAF ZERO # ZERO WBODYS AND BIASES
045621,000152: 21,3377 55525 TS WBODY
045622,000153: 21,3400 55526 TS WBODY +1
045623,000154: 21,3401 55527 TS WBODY1
045624,000155: 21,3402 55530 TS WBODY1 +1
045625,000156: 21,3403 55531 TS WBODY2
045626,000157: 21,3404 55532 TS WBODY2 +1
045627,000158: 21,3405 55564 TS BIAS
045628,000159: 21,3406 55565 TS BIAS1
045629,000160: 21,3407 55566 TS BIAS2
045630,000161:
045631,000162: 21,3410 31501 CA RCSFLAGS
045632,000163: 21,3411 73037 MASK OCT16000
045633,000164: 21,3412 00006 EXTEND # IS RATE DAMPING COMPLETED
045634,000165: 21,3413 13421 BZF ENDDAMP # IF SO, GO TO ENDDAMP
045635,000166: 21,3414 35021 CAF ZERO # OTHERWISE, ZERO ERRORS
045636,000167: 21,3415 55567 TS ERRORX
045637,000168: 21,3416 55570 TS ERRORY
045638,000169: 21,3417 55571 TS ERRORZ
045639,000170: 21,3420 13441 TCF JETS
045640,000171:
045641,000172: 21,3421 55332 ENDDAMP TS HOLDFLAG # SET HOLDFLAG +0
045642,000173: 21,3422 00006 EXTEND
045643,000174: 21,3423 30033 DCA CDUX # PICK UP CDU ANGLES FOR ATTITUDE HOLD
045644,000175: 21,3424 53573 DXCH THETADX # REFERENCES
045645,000176: 21,3425 30034 CA CDUZ
045646,000177: 21,3426 55574 TS THETADZ
045647,000178: 21,3427 13322 TCF ATTHOLD
045648,000179:
045649,000180: # Page 1029
045650,000181: # JET SWITCHING LOGIC AND CALCULATION OF REQUIRED ROTATION COMMANDS
045651,000182:
045652,000183: # DETERMINE THE LOCATION OF THE RATE ERROR AND THE ATTITUDE ERROR RELATIVE TO THE SWITCHING LOGIC IN THE PHASE
045653,000184: # PLANE.
045654,000185:
045655,000186: # COMPUTE THE CHANGE IN RATE CORRESPONDING TO THE ATTITUDE ERROR NECESSARY TO DRIVE THE S/C INTO THE
045656,000187: # APPROPRIATE DEADZONE.
045657,000188:
045658,000189: # .
045659,000190: # R22 RATE . ERROR
045660,000191: # WL+H .
045661,000192: # ********************************* . ***** SWITCH LINES ENCLOSING DEADZONES
045662,000193: # R23 WL * .
045663,000194: # ----------------------------------* . ----- DESIRED RATE LINES
045664,000195: # R23 WL-H - *.
045665,000196: # ****************** - . R20, R21, R22, ETC REGIONS IN PHASE
045666,000197: # * - .* R18 R20 R21 PLANE FOF COMPUTING DESIRED RESPONSE
045667,000198: # * . *
045668,000199: # *- . *
045669,000200: # R22 R24*- R23 . *
045670,000201: # * . *
045671,000202: # * . *
045672,000203: # + -ADB . * AF ATTITUDE
045673,000204: # ........................+--+---------------+--+........................
045674,000205: # AF * . +ADB + ERROR
045675,000206: # * . *
045676,000207: # * . -*
045677,000208: # * . -*
045678,000209: # * . -*
045679,000210: # * . *
045680,000211: # *. - *
045681,000212: # . - *****************
045682,000213: # .*-
045683,000214: # . * --------------------------------
045684,000215: # .
045685,000216: # .
045686,000217: # FIG. 1 PHASE PLANE SWITCHING LOGIC
045687,000218:
045688,000219: # CONSTANTS FOR JET SWITCHING LOGIC
045689,000220:
045690,000221: 21,3430 00114 WLH/SLOP DEC .00463 # = WL+H/SLOPE = .83333 DEG $180
045691,000222: 21,3431 00055 WL-H/SLP DEC .00277 # = WL-H/SLOPE = .5 DEG $180
045692,000223: 21,3432 00022 06426 WLH 2DEC .0011111111 # = WL+H = 0.5 DEG/SEC $450
045693,000224:
045694,000225: 21,3434 00012 35415 WLMH 2DEC .0006666666 # = WL-H = 0.3 DEG/SEC $450
045695,000226:
045696,000227: 21,3436 00016 22021 WL 2DEC .0008888888 # = WL = 0.4 DEG/SEC $450
045697,000228:
045698,000229: # Page 1030
045699,000230: 21,3440 12173 SLOPE2 DEC .32 # = 0.8 DEG/SEC/DEG $450/180
045700,000231: 21,3441 31655 JETS CA ADB
045701,000232: 21,3442 65015 AD FOUR # AF = FLAT REGION = .044 DEG
045702,000233: 21,3443 55502 TS T5TEMP # ADB+AF
045703,000234: 21,3444 35016 CAF TWO
045704,000235: 21,3445 55506 JLOOP TS SPNDX
045705,000236: 21,3446 60000 DOUBLE
045706,000237: 21,3447 55507 TS DPNDX
045707,000238: 21,3450 00006 EXTEND
045708,000239: 21,3451 50000 INDEX A
045709,000240: 21,3452 31534 DCA ADOT
045710,000241: 21,3453 53516 DXCH EDOT
045711,000242: 21,3454 31332 CA HOLDFLAG # HOLDFLAG = +0 MEANS THAT DAP IS IN
045712,000243: 21,3455 00006 EXTEND # ATTITUDE HOLD AND RATE DAMPING IS OVER.
045713,000244: 21,3456 13463 BZF INHOLD # IF THIS IS THE CASE, BYPASS ADDITION
045714,000245: # OF WBODY AND GO TO INHOLD
045715,000246: 21,3457 00006 EXTEND
045716,000247: 21,3460 51507 INDEX DPNDX
045717,000248: 21,3461 41526 DCS WBODY
045718,000249: 21,3462 21516 DAS EDOT # = ADOT-WBODY
045719,000250: 21,3463 51506 INHOLD INDEX SPNDX
045720,000251: 21,3464 31567 CA ERRORX
045721,000252: 21,3465 55517 TS AERR # AERR = BIAS + AK
045722,000253:
045723,000254: 21,3466 11515 CCS EDOT
045724,000255: 21,3467 13477 TCF POSVEL
045725,000256: 21,3470 13472 TCF SIGNCK1
045726,000257: 21,3471 13507 TCF NEGVEL
045727,000258: 21,3472 11516 SIGNCK1 CCS EDOT +1
045728,000259: 21,3473 13477 TCF POSVEL
045729,000260: 21,3474 13477 TCF POSVEL
045730,000261: 21,3475 13507 TCF NEGVEL
045731,000262: 21,3476 13507 TCF NEGVEL
045732,000263: 21,3477 00006 POSVEL EXTEND
045733,000264: 21,3500 31516 DCA EDOT
045734,000265: 21,3501 53521 DXCH EDOTVEL
045735,000266: 21,3502 31502 CA T5TEMP
045736,000267: 21,3503 55523 TS ADBVEL # +(ADB+AF)
045737,000268: 21,3504 31517 CA AERR
045738,000269: 21,3505 55522 TS AERRVEL
045739,000270: 21,3506 03516 TC J6.
045740,000271: 21,3507 00006 NEGVEL EXTEND
045741,000272: 21,3510 41516 DCS EDOT
045742,000273: 21,3511 53521 DXCH EDOTVEL
045743,000274: 21,3512 41502 CS T5TEMP
045744,000275: 21,3513 55523 TS ADBVEL # -(ADB+AF)
045745,000276: 21,3514 41517 CS AERR
045746,000277: 21,3515 55522 TS AERRVEL
045747,000278:
045748,000279: 21,3516 00006 J6. EXTEND
045749,000280: # Page 1031
045750,000281: 21,3517 61655 SU ADB
045751,000282: 21,3520 63430 AD WLH/SLOP
045752,000283: 21,3521 00006 EXTEND
045753,000284: 21,3522 63551 BZMF J8
045754,000285:
045755,000286: 21,3523 41502 CS T5TEMP # (ADB+AF)
045756,000287: 21,3524 61522 AD AERRVEL
045757,000288: 21,3525 00006 EXTEND
045758,000289: 21,3526 63530 BZMF +2
045759,000290: 21,3527 13542 TCF J7
045760,000291: 21,3530 00006 EXTEND
045761,000292: 21,3531 41521 DCS EDOTVEL
045762,000293: 21,3532 00006 EXTEND
045763,000294: 21,3533 11654 DV SLOPE
045764,000295: 21,3534 00006 EXTEND
045765,000296: 21,3535 61522 SU AERRVEL
045766,000297: 21,3536 61655 AD ADB
045767,000298: 21,3537 00006 EXTEND
045768,000299: 21,3540 63630 BZMF J18
045769,000300: 21,3541 13704 TCF J23
045770,000301:
045771,000302: 21,3542 43431 J7 CS WL-H/SLP
045772,000303: 21,3543 00006 EXTEND
045773,000304: 21,3544 61502 SU T5TEMP # (ADB+AF)
045774,000305: 21,3545 61522 AD AERRVEL
045775,000306: 21,3546 00006 EXTEND
045776,000307: 21,3547 63634 BZMF J20
045777,000308: 21,3550 13645 TCF J21
045778,000309:
045779,000310: 21,3551 00006 J8 EXTEND
045780,000311: 21,3552 43433 DCS WLH
045781,000312: 21,3553 53514 DXCH WTEMP
045782,000313: 21,3554 00006 EXTEND
045783,000314: 21,3555 31521 DCA EDOTVEL
045784,000315: 21,3556 21514 DAS WTEMP
045785,000316: 21,3557 11513 CCS WTEMP
045786,000317: 21,3560 13673 TCF J22
045787,000318: 21,3561 13563 TCF SIGNCK2
045788,000319: 21,3562 13567 TCF NJ22
045789,000320: 21,3563 11514 SIGNCK2 CCS WTEMP +1
045790,000321: 21,3564 13673 TCF J22
045791,000322: 21,3565 13673 TCF J22
045792,000323: 21,3566 13567 TCF NJ22
045793,000324:
045794,000325: 21,3567 00006 NJ22 EXTEND
045795,000326: 21,3570 31521 DCA EDOTVEL
045796,000327: 21,3571 00006 EXTEND
045797,000328: 21,3572 11654 DV SLOPE
045798,000329: 21,3573 61502 AD T5TEMP # (ADB+AF)
045799,000330: 21,3574 61522 AD AERRVEL
045800,000331: # Page 1032
045801,000332: 21,3575 10000 CCS A
045802,000333: 21,3576 13704 TCF J23
045803,000334: 21,3577 13704 TCF J23
045804,000335: 21,3600 13602 TCF +2
045805,000336: 21,3601 13704 TCF J23
045806,000337:
045807,000338: 21,3602 00006 EXTEND
045808,000339: 21,3603 43435 DCS WLMH # WL - H
045809,000340: 21,3604 53514 DXCH WTEMP
045810,000341: 21,3605 00006 EXTEND
045811,000342: 21,3606 31521 DCA EDOTVEL
045812,000343: 21,3607 21514 DAS WTEMP
045813,000344: 21,3610 11513 CCS WTEMP
045814,000345: 21,3611 13704 TCF J23
045815,000346: 21,3612 13614 TCF SIGNCK3
045816,000347: 21,3613 13620 TCF NJ23
045817,000348: 21,3614 11514 SIGNCK3 CCS WTEMP +1
045818,000349: 21,3615 13704 TCF J23
045819,000350: 21,3616 13704 TCF J23
045820,000351: 21,3617 13620 TCF NJ23
045821,000352:
045822,000353: 21,3620 31522 NJ23 CA AERRVEL
045823,000354: 21,3621 61502 AD T5TEMP # (ADB+AF)
045824,000355: 21,3622 63431 AD WL-H/SLP
045825,000356: 21,3623 10000 CCS A
045826,000357: 21,3624 13716 TCF J24
045827,000358: 21,3625 13716 TCF J24
045828,000359: 21,3626 13673 TCF J22
045829,000360: 21,3627 13673 TCF J22
045830,000361:
045831,000362: 21,3630 00006 J18 EXTEND
045832,000363: 21,3631 41516 DCS EDOT
045833,000364: 21,3632 53511 DXCH KMPAC
045834,000365: 21,3633 13727 TCF JTIME
045835,000366:
045836,000367: 21,3634 41517 J20 CS AERR
045837,000368: 21,3635 61523 AD ADBVEL
045838,000369: 21,3636 00006 EXTEND
045839,000370: 21,3637 73440 MP SLOPE2 # (HYSTERESIS SLOPE)
045840,000371: 21,3640 53511 DXCH KMPAC
045841,000372: 21,3641 00006 EXTEND
045842,000373: 21,3642 41516 DCS EDOT
045843,000374: 21,3643 21511 DAS KMPAC
045844,000375: 21,3644 13727 TCF JTIME
045845,000376:
045846,000377: 21,3645 11515 J21 CCS EDOT
045847,000378: 21,3646 13664 TCF JP
045848,000379: 21,3647 13651 TCF SIGNCK4
045849,000380: 21,3650 13655 TCF JN
045850,000381: 21,3651 11516 SIGNCK4 CCS EDOT +1
045851,000382: # Page 1033
045852,000383: 21,3652 13664 TCF JP
045853,000384: 21,3653 13664 TCF JP
045854,000385: 21,3654 13655 TCF JN
045855,000386: 21,3655 00006 JN EXTEND
045856,000387: 21,3656 41516 DCS EDOT
045857,000388: 21,3657 53511 DXCH KMPAC
045858,000389: 21,3660 00006 EXTEND
045859,000390: 21,3661 33437 DCA WL
045860,000391: 21,3662 21511 DAS KMPAC
045861,000392: 21,3663 13727 TCF JTIME
045862,000393:
045863,000394: 21,3664 00006 JP EXTEND
045864,000395: 21,3665 41516 DCS EDOT
045865,000396: 21,3666 53511 DXCH KMPAC
045866,000397: 21,3667 00006 EXTEND
045867,000398: 21,3670 43437 DCS WL
045868,000399: 21,3671 21511 DAS KMPAC
045869,000400: 21,3672 13727 TCF JTIME
045870,000401:
045871,000402: 21,3673 11515 J22 CCS EDOT
045872,000403: 21,3674 13655 TCF JN
045873,000404: 21,3675 13677 TCF SIGNCK5
045874,000405: 21,3676 13664 TCF JP
045875,000406: 21,3677 11516 SIGNCK5 CCS EDOT +1
045876,000407: 21,3700 13655 TCF JN
045877,000408: 21,3701 13655 TCF JN
045878,000409: 21,3702 13664 TCF JP
045879,000410: 21,3703 13664 TCF JP
045880,000411:
045881,000412: 21,3704 51506 J23 INDEX SPNDX
045882,000413: 21,3705 45003 CS BIT13 # RESET RATE DAMPING FLAG
045883,000414: 21,3706 71501 MASK RCSFLAGS # BIT13 FOR ROLL (SPNDX = 0)
045884,000415: 21,3707 55501 TS RCSFLAGS # BIT12 FOR PITCH (SPNDX = 1)
045885,000416: # BIT11 FOR YAW (SPNDX = 2)
045886,000417:
045887,000418: 21,3710 51506 INDEX SPNDX
045888,000419: 21,3711 33033 CAF OCT01400 # IS THERE TO BE A FORCED FIRING ON THIS
045889,000420: 21,3712 71501 MASK RCSFLAGS # AXIS
045890,000421: 21,3713 00006 EXTEND
045891,000422: 21,3714 13750 BZF DOJET +2 # NO, GO TO DOJET +2 AND DO NOTHING
045892,000423:
045893,000424: 21,3715 13630 TCF J18 # YES, GO TO J18 AND FORCE A FIRING
045894,000425:
045895,000426: 21,3716 41517 J24 CS AERR
045896,000427: 21,3717 00006 EXTEND
045897,000428: 21,3720 61523 SU ADBVEL
045898,000429: 21,3721 00006 EXTEND
045899,000430: 21,3722 73440 MP SLOPE2 # (HYSTERESIS SLOPE)
045900,000431: 21,3723 53511 DXCH KMPAC
045901,000432: 21,3724 00006 EXTEND
045902,000433: # Page 1034
045903,000434: 21,3725 41516 DCS EDOT
045904,000435: 21,3726 21511 DAS KMPAC
045905,000436:
045906,000437: # Page 1035
045907,000438: # COMPUTE THE JET ON TIME NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, I.E.,
045908,000439:
045909,000440: # T = J/M(DELTA W)
045910,000441: # J
045911,000442:
045912,000443: # DELTA W = DESIRED CHANGE IN S/C ANGULAR RATE AS DETERMINED BY THE
045913,000444: # SWITCHING LOGIC, AT THIS POINT STORED IN KMPAC.
045914,000445:
045915,000446: # J/M = S/C INERTIA TO TORQUE RATIO SCALED BY
045916,000447: # (57.3/450)(B24/1600)(1/.8)
045917,000448: # FOR 1 JET OPERATION (M = 700 FT-LB).
045918,000449: # I.E., J/M = J(SLUG-FTFT) x 0.00000085601606
045919,000450:
045920,000451: # THE CORRESPONDING COMPUTER VARIABLES ESTABLISHED BY
045921,000452: # KEYBOARD ENTRY ARE
045922,000453: # J/M (ROLL)
045923,000454: # J/M1 (PITCH)
045924,000455: # J/M2 (YAW)
045925,000456:
045926,000457: # T = JET-ON TIME SCALED 16384/1600 SEC
045927,000458: # J
045928,000459:
045929,000460: # THE COMPUTER VARIABLES ARE
045930,000461: # TAU (ROLL)
045931,000462: # TAU1 (PITCH)
045932,000463: # TAU2 (YAW)
045933,000464:
045934,000465: 21,3727 51506 JTIME INDEX SPNDX # PICK UP S/C INERTIA/TORQUE RATIO
045935,000466: 21,3730 31623 CA J/M # SCALED (57.3/450)(B24/1600)
045936,000467: 21,3731 02042 TC SMALLMP # FOR 1-JET OPERATION
045937,000468: 21,3732 35005 CA BIT11
045938,000469: 21,3733 02042 TC SMALLMP
045939,000470: 21,3734 11510 CCS KMPAC
045940,000471: 21,3735 13741 TCF +4
045941,000472: 21,3736 13745 TCF TAUNORM
045942,000473: 21,3737 13743 TCF +4
045943,000474: 21,3740 13745 TCF TAUNORM
045944,000475: 21,3741 34777 CA POSMAX
045945,000476: 21,3742 13746 TCF DOJET
045946,000477: 21,3743 35001 CA NEGMAX
045947,000478: 21,3744 13746 TCF DOJET
045948,000479:
045949,000480: 21,3745 31511 TAUNORM CA KMPAC +1
045950,000481: 21,3746 51506 DOJET INDEX SPNDX
045951,000482: 21,3747 55561 TS TAU
045952,000483: 21,3750 11506 CCS SPNDX
045953,000484: 21,3751 13445 TCF JLOOP
045954,000485: 21,3752 13757 TCF T6PROG
045955,000486:
045956,000487: # Page 1036
045957,000488: 21,3753 35021 ZEROCMDS CAF ZERO
045958,000489: 21,3754 55561 TS TAU
045959,000490: 21,3755 55562 TS TAU1
045960,000491: 21,3756 55563 TS TAU2
045961,000492: 21,3757 00006 T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS)
045962,000493: 21,3760 33764 DCA JETADDR # HAVE BEEN DETERINED
045963,000494: 21,3761 53313 DXCH T5LOC # RESET T5LOC FOR PHASE3
045964,000495: 21,3762 15333 TCF RESUME
045965,000496:
045966,000497: 21,3763 E6,1510 EBANK= KMPAC
045967,000498: 21,3763 02552 36066 JETADDR 2CADR JETSLECT
045968,000499:
End of include-file AUTOMATIC_MANEUVERS.agc. Parent file is MAIN.agc