Source Code

017954,000001: # Copyright: Public domain. 017955,000002: # Filename: GIMBAL_LOCK_AVOIDANCE.agc 017956,000003: # Purpose: Part of the source code for Comanche, build 055. 017957,000004: # It is part of the source code for the Command Module's (CM) 017958,000005: # Apollo Guidance Computer (AGC), Apollo 11. 017959,000006: # Assembler: yaYUL 017960,000007: # Reference: pp. 412-413 017961,000008: # Contact: Onno Hommes <ohommes@cmu.edu>. 017962,000009: # Website: www.ibiblio.org/apollo. 017963,000010: # Mod history: 05/07/09 OH Transcription Batch 1 Assignment 017964,000011: 017965,000012: # The contents of the "Comanche055" files, in general, are transcribed 017966,000013: # from scanned documents. 017967,000014: 017968,000015: # Assemble revision 055 of AGC program Comanche by NASA 017969,000016: # 2021113-051. April 1, 1969. 017970,000017: 017971,000018: # This AGC program shall also be referred to as Colossus 2A 017972,000019: 017973,000020: # Prepared by 017974,000021: # Massachussets Institute of Technology 017975,000022: # 75 Cambridge Parkway 017976,000023: # Cambridge, Massachusetts 017977,000024: 017978,000025: # under NASA contract NAS 9-4065. 017979,000026: 017980,000027: # Refer directly to the online document mentioned above for further information. 017981,000028: # Please report any errors to info@sandroid.org. 017982,000029: 017983,000030: 017984,000031: # Page 412 017985,000032: 15,2000 BANK 15 017986,000033: 22,2000 SETLOC KALCMON1 017987,000034: 22,2000 BANK 017988,000035: 017989,000036: 22,2737 E6,1661 EBANK= BCDU 017990,000037: 017991,000038: # DETECTING GIMBAL LOCK 017992,000039: 22,2737 22,2737 LOCSKIRT EQUALS WCALC 017993,000040: 22,2737 70740 WCALC LXC,1 DLOAD* 017994,000041: 22,2740 01130 RATEINDX 017995,000042: 22,2741 04771 ARATE,1 017996,000043: 22,2742 45002 SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX 017997,000044: 22,2743 44530 DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION 017998,000045: # ABOUT COF 017999,000046: 22,2744 74343 DLOAD* VXSC 018000,000047: 22,2745 04771 ARATE,1 018001,000048: 22,2746 03343 COF 018002,000049: 22,2747 77721 MXV 018003,000050: 22,2750 05003 QUADROT 018004,000051: 22,2751 17311 STODL BRATE 018005,000052: 22,2752 03365 AM 018006,000053: 22,2753 55605 DMP DDV* 018007,000054: 22,2754 05001 ANGLTIME 018008,000055: 22,2755 04771 ARATE,1 018009,000056: 22,2756 77661 SR 018010,000057: 22,2757 20606 5 018011,000058: 22,2760 27317 STOVL TM 018012,000059: 22,2761 03311 BRATE 018013,000060: 22,2762 77761 VXSC 018014,000061: 22,2763 05025 BIASCALE 018015,000062: 22,2764 03275 STORE BIASTEMP # ATTITUDE ERROR BIAS TO PREVENT OVERSHOOT 018016,000063: # IN SYSTEM 018017,000064: 22,2765 77614 SETGO # STATE SWITCH CALCMAN2 (43D) 018018,000065: 22,2766 01035 CALCMAN2 # 0(OFF) = BYPASS STARTING PROCEDURE 018019,000066: 22,2767 45032 NEWANGL +1 # 1(ON) = START MANEUVER 018020,000067: 018021,000068: 018022,000069: 22,2770 00044 15053 ARATE 2DEC .0022222222 # = .05 DEG/SEC 018023,000070: 018024,000071: 22,2772 00221 24255 2DEC .0088888889 # = .2 DEG/SEC 018025,000072: 018026,000073: 22,2774 00554 02660 2DEC .0222222222 # = .5 DEG/SEC 018027,000074: 018028,000075: 22,2776 02660 13301 2DEC .0888888889 # = 2 DEG/SEC $22.5 DEG/SEC 018029,000076: 018030,000077: 22,3000 00003 04000 ANGLTIME 2DEC .000190735 # = 100B - 19 018031,000078: 018032,000079: # MANEUVER ANGLE TO MANEUVER TIME 018033,000080: 22,3002 03146 14632 QUADROT 2DEC .1 # ROTATION MATRIX FROM S/C AXES TO CONTROL 018034,000081: 018035,000082: # Page 413 018036,000083: 22,3004 00000 00000 2DEC 0 B-28 # AXES (X ROT = -7.25 DEG) 018037,000084: 018038,000085: 22,3006 00000 00000 2DEC 0 B-28 018039,000086: 018040,000087: 22,3010 00000 00000 2DEC 0 B-28 018041,000088: 018042,000089: 22,3012 03131 11275 2DEC .099200 # =(.1)COS7.25 018043,000090: 018044,000091: 22,3014 77461 47370 2DEC -.012620 # =-(.1)SIN7.25 018045,000092: 018046,000093: 22,3016 00000 00000 2DEC 0 B-28 018047,000094: 018048,000095: 22,3020 00316 30407 2DEC .012620 # (.1)SIN7.25 018049,000096: 018050,000097: 22,3022 03131 11275 2DEC .099200 # (.1)COS7.25 018051,000098: 018052,000099: 22,3024 00004 05253 BIASCALE 2DEC .0002543132 # = (450/180)(1/0.6)(1/16384) End of include-file GIMBAL_LOCK_AVOIDANCE.agc. Parent file is MAIN.agc