Source Code

053417,000001: # Copyright: Public domain. 053418,000002: # Filename: POWERED_FLIGHT_SUBROUTINES.agc 053419,000003: # Purpose: Part of the source code for Luminary 1A build 099. 053420,000004: # It is part of the source code for the Lunar Module's (LM) 053421,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 053422,000006: # Assembler: yaYUL 053423,000007: # Contact: Ron Burkey <info@sandroid.org>. 053424,000008: # Website: www.ibiblio.org/apollo. 053425,000009: # Pages: 1259-1267 053426,000010: # Mod history: 2009-05-26 RSB Adapted from the corresponding 053427,000011: # Luminary131 file, using page 053428,000012: # images from Luminary 1A. 053429,000013: # 2011-01-06 JL Fixed pseudo-label indentation. 053430,000014: 053431,000015: # This source code has been transcribed or otherwise adapted from 053432,000016: # digitized images of a hardcopy from the MIT Museum. The digitization 053433,000017: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 053434,000018: # the Museum. Many thanks to both. The images (with suitable reduction 053435,000019: # in storage size and consequent reduction in image quality as well) are 053436,000020: # available online at www.ibiblio.org/apollo. If for some reason you 053437,000021: # find that the images are illegible, contact me at info@sandroid.org 053438,000022: # about getting access to the (much) higher-quality images which Paul 053439,000023: # actually created. 053440,000024: 053441,000025: # Notations on the hardcopy document read, in part: 053442,000026: 053443,000027: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 053444,000028: # 16:27 JULY 14, 1969 053445,000029: 053446,000030: # Page 1259 053447,000031: 14,3774 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM 053448,000032: 23,2000 SETLOC POWFLITE 053449,000033: 23,2000 BANK 053450,000034: 053451,000035: 23,3537 0142 EBANK= DEXDEX 053452,000036: 23,3537 COUNT* $$/POWFL 053453,000037: 053454,000038: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND 053455,000039: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE 053456,000040: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN 053457,000041: # ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE 053458,000042: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT. 053459,000043: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN 053460,000044: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING. 053461,000045: 053462,000046: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE 053463,000047: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS. 053464,000048: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY 053465,000049: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS. 053466,000050: 053467,000051: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC. 053468,000052: 053469,000053: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS 053470,000054: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL 053471,000055: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS 053472,000056: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO 053473,000057: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND 053474,000058: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT 053475,000059: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED 053476,000060: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE 053477,000061: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE 053478,000062: # CALLED USING BANKCALL. SORRY. 053479,000063: 053480,000064: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN 053481,000065: # INTERPRETIVE. 053482,000066: 053483,000067: 23,3537 77776 CDUTRIG EXIT 053484,000068: 23,3540 03547 TC CDUTRIGS 053485,000069: 23,3541 06037 TC INTPRET 053486,000070: 23,3542 77616 RVQ 053487,000071: 053488,000072: 23,3543 77776 CD*TR*G EXIT 053489,000073: 23,3544 03555 TC CD*TR*GS 053490,000074: 23,3545 06037 TC INTPRET 053491,000075: 23,3546 77616 RVQ 053492,000076: 053493,000077: 23,3547 30032 CDUTRIGS CA CDUX 053494,000078: 23,3550 54772 TS CDUSPOT +4 053495,000079: 23,3551 30033 CA CDUY 053496,000080: 23,3552 54766 TS CDUSPOT 053497,000081: # Page 1260 053498,000082: 23,3553 30034 CA CDUZ 053499,000083: 23,3554 54770 TS CDUSPOT +2 053500,000084: 053501,000085: 23,3555 00006 CD*TR*GS EXTEND 053502,000086: 23,3556 22142 QXCH TEM2 053503,000087: 23,3557 34751 CAF FOUR 053504,000088: 23,3560 76242 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER 053505,000089: 23,3561 54143 TS TEM3 053506,000090: 23,3562 50143 INDEX TEM3 053507,000091: 23,3563 30766 CA CDUSPOT 053508,000092: 23,3564 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC 053509,000093: 23,3565 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION 053510,000094: 23,3566 04713 TC USPRCADR 053511,000095: 23,3567 21576 CADR CDULOGIC 053512,000096: 23,3570 00006 EXTEND 053513,000097: 23,3571 30155 DCA MPAC 053514,000098: 23,3572 50143 INDEX TEM3 053515,000099: 23,3573 52767 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE 053516,000100: 23,3574 04713 TC USPRCADR 053517,000101: 23,3575 01517 CADR COSINE 053518,000102: 23,3576 52155 DXCH MPAC 053519,000103: 23,3577 50143 INDEX TEM3 053520,000104: 23,3600 52745 DXCH COSCDU # STORING COSINE 053521,000105: 23,3601 00006 EXTEND 053522,000106: 23,3602 50143 INDEX TEM3 053523,000107: 23,3603 30767 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE 053524,000108: 23,3604 04713 TC USPRCADR 053525,000109: 23,3605 01531 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L 053526,000110: 23,3606 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED 053527,000111: 23,3607 52155 DXCH MPAC 053528,000112: 23,3610 50143 INDEX TEM3 053529,000113: 23,3611 52737 DXCH SINCDU 053530,000114: 23,3612 10143 CCS TEM3 053531,000115: 23,3613 13560 TCF TR*GL**P 053532,000116: 23,3614 00142 TC TEM2 053533,000117: # Page 1261 053534,000118: # ******************************************************************************************************* 053535,000119: # QUICTRIG, INTENDED FOR QUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS. 053536,000120: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2, 053537,000121: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN 053538,000122: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE 053539,000123: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL. 053540,000124: 053541,000125: 23,3615 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS 053542,000126: 23,3616 00006 EXTEND 053543,000127: 23,3617 22061 QXCH ITEMP1 053544,000128: 23,3620 34751 CAF FOUR 053545,000129: 23,3621 76242 +4 MASK SIX 053546,000130: 23,3622 54062 TS ITEMP2 053547,000131: 23,3623 50062 INDEX ITEMP2 053548,000132: 23,3624 30766 CA CDUSPOT 053549,000133: 23,3625 05033 TC SPSIN 053550,000134: 23,3626 00006 EXTEND 053551,000135: 23,3627 74736 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS 053552,000136: 23,3630 50062 INDEX ITEMP2 053553,000137: 23,3631 52737 DXCH SINCDU 053554,000138: 23,3632 50062 INDEX ITEMP2 053555,000139: 23,3633 30766 CA CDUSPOT 053556,000140: 23,3634 05032 TC SPCOS 053557,000141: 23,3635 00006 EXTEND 053558,000142: 23,3636 74736 MP BIT14 053559,000143: 23,3637 50062 INDEX ITEMP2 053560,000144: 23,3640 52745 DXCH COSCDU 053561,000145: 23,3641 10062 CCS ITEMP2 053562,000146: 23,3642 13621 TCF QUICTRIG +4 053563,000147: 23,3643 30061 CA ITEMP1 053564,000148: 23,3644 00003 RELINT 053565,000149: 23,3645 00000 TC A 053566,000150: 053567,000151: # Page 1262 053568,000152: # **************************************************************************** 053569,000153: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN 053570,000154: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED. 053571,000155: 053572,000156: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK 053573,000157: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL", 053574,000158: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFORMED 053575,000159: # INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5. 053576,000160: 053577,000161: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES 053578,000162: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD 053579,000163: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFORMATION; 053580,000164: # TRG*SMNB, VICE VERSA. 053581,000165: 053582,000166: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF 053583,000167: # THE CDL COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM. 053584,000168: 053585,000169: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM. 053586,000170: 053587,000171: 23,3646 77776 CDU*SMNB EXIT 053588,000172: 23,3647 03547 TC CDUTRIGS 053589,000173: 23,3650 13653 TCF C*MM*N1 053590,000174: 053591,000175: 23,3651 77776 TRG*SMNB EXIT 053592,000176: 23,3652 03555 TC CD*TR*GS 053593,000177: 23,3653 07532 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF 053594,000178: 23,3654 46245 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION. 053595,000179: 23,3655 03675 C*MM*N2 TC AX*SR*T 053596,000180: 23,3656 06037 TC INTPRET 053597,000181: 23,3657 43575 VLOAD RVQ 053598,000182: 23,3660 00123 VBUF 053599,000183: 053600,000184: 23,3661 77776 CDU*NBSM EXIT 053601,000185: 23,3662 03547 TC CDUTRIGS 053602,000186: 23,3663 13666 TCF C*MM*N3 053603,000187: 053604,000188: 23,3664 77776 TRG*NBSM EXIT 053605,000189: 23,3665 03555 TC CD*TR*GS 053606,000190: 23,3666 07532 C*MM*N3 TC MPACVBUF # FOR AX*SR*T 053607,000191: 23,3667 36245 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION 053608,000192: 23,3670 13655 TCF C*MM*N2 053609,000193: 053610,000194: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU 053611,000195: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE 053612,000196: # LIKE TRG*NBSM AND TRG*SMNB. 053613,000197: 053614,000198: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES 053615,000199: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM 053616,000200: # Page 1263 053617,000201: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANFOR- 053618,000202: # MATIONS USE *NBSM* AND *SMNB*. 053619,000203: 053620,000204: 23,3671 77776 *SMNB* EXIT 053621,000205: 23,3672 13653 TCF C*MM*N1 053622,000206: 053623,000207: 23,3673 77776 *NBSM* EXIT 053624,000208: 23,3674 13666 TCF C*MM*N3 053625,000209: 053626,000210: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM 053627,000211: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3. 053628,000212: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF. 053629,000213: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION 053630,000214: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH 053631,000215: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF 053632,000216: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-- 053633,000217: # TC CDUTRIGS 053634,000218: # CS THREE # ("CA THREE" FOR NBSM) 053635,000219: # TC AX*SR*T 053636,000220: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE 053637,000221: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED. 053638,000222: 053639,000223: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN 053640,000224: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE 053641,000225: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS- 053642,000226: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED. 053643,000227: 053644,000228: 23,3675 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES. 053645,000229: 23,3676 00006 EXTEND 053646,000230: 23,3677 22145 QXCH RTNSAVER 053647,000231: 053648,000232: 23,3700 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2 053649,000233: 23,3701 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1 053650,000234: 23,3702 66245 AD THREE # +1 --> 2 -1 --> 0 053651,000235: 23,3703 00006 EXTEND 053652,000236: 23,3704 50000 INDEX A 053653,000237: 23,3705 33764 DCA INDEXI 053654,000238: 23,3706 52144 DXCH DEXI 053655,000239: 053656,000240: 23,3707 34753 CA ONE 053657,000241: 23,3710 54130 TS BUF 053658,000242: 23,3711 00006 EXTEND 053659,000243: 23,3712 50143 INDEX DEX1 053660,000244: 23,3713 40123 DCS VBUF 053661,000245: 23,3714 13716 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA 053662,000246: 053663,000247: 23,3715 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX 053664,000248: # Page 1264 053665,000249: 23,3716 52155 LOOP1 DXCH MPAC 053666,000250: 23,3717 33762 CA SINSLOC 053667,000251: 23,3720 60143 AD DEX1 053668,000252: 23,3721 54116 TS ADDRWD 053669,000253: 053670,000254: 23,3722 07107 TC DMPSUB # MULTIPLY AT SIN(CDUANGLE) 053671,000255: 23,3723 10142 CCS DEXDEX 053672,000256: 23,3724 52155 DXCH MPAC # NBSM CASE 053673,000257: 23,3725 13730 TCF +3 053674,000258: 23,3726 00006 EXTEND # SMNB CASE 053675,000259: 23,3727 40155 DCS MPAC 053676,000260: 23,3730 52160 DXCH TERM1TMP 053677,000261: 053678,000262: 23,3731 36242 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST 053679,000263: 23,3732 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER 053680,000264: 053681,000265: 23,3733 00006 EXTEND 053682,000266: 23,3734 50130 INDEX BUF 053683,000267: 23,3735 50143 INDEX DEX1 053684,000268: 23,3736 30123 DCA VBUF 053685,000269: 23,3737 52155 DXCH MPAC 053686,000270: 23,3740 07107 TC DMPSUB # MULTIPLY BY COS(CDUANGLE) 053687,000271: 23,3741 52155 DXCH MPAC 053688,000272: 23,3742 20160 DAS TERM1TMP 053689,000273: 23,3743 52160 DXCH TERM1TMP 053690,000274: 23,3744 20001 DDOUBL 053691,000275: 23,3745 50130 INDEX BUF 053692,000276: 23,3746 50143 INDEX DEX1 053693,000277: 23,3747 52123 DXCH VBUF 053694,000278: 23,3750 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT 053695,000279: 053696,000280: 23,3751 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS 053697,000281: 23,3752 13715 TCF LOOP2 053698,000282: 053699,000283: 23,3753 00006 EXTEND 053700,000284: 23,3754 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN 053701,000285: 053702,000286: 23,3755 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED 053703,000287: 23,3756 13700 TCF R*TL**P 053704,000288: 23,3757 00145 TC RTNSAVER 053705,000289: 23,3760 13700 TCF R*TL**P 053706,000290: 23,3761 00145 TC RTNSAVER 053707,000291: 053708,000292: 23,3762 00736 SINSLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD 053709,000293: 053710,000294: 23,3763 00004 INDEXI DEC 4 B-14 # ********** DON'T *********** 053711,000295: 23,3764 00002 DEC 2 B-14 # ********** TOUCH *********** 053712,000296: 23,3765 00000 DEC 0 B-14 # ********** THESE *********** 053713,000297: # Page 1265 053714,000298: 23,3766 00004 DEC 4 B-14 # ********** CONSTANTS *********** 053715,000299: 053716,000300: # ****************************************************************************** 053717,000301: 053718,000302: 10,2030 BANK 10 053719,000303: 10,2000 SETLOC FLESHLOC 053720,000304: 10,2000 BANK 053721,000305: 10,2030 COUNT* $$/POWFL 053722,000306: 053723,000307: # ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES 053724,000308: # IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A. 053725,000309: 053726,000310: 10,2030 77776 CALCSMSC EXIT 053727,000311: 10,2031 04616 TC BANKCALL 053728,000312: 10,2032 20036 CADR FLESHPOT -1 053729,000313: 10,2033 06037 TC INTPRET 053730,000314: 10,2034 77616 RVQ 053731,000315: 053732,000316: 10,2035 02664 XNBECADR ECADR XNB 053733,000317: 053734,000318: 10,2036 32035 -1 CAF XNBECADR 053735,000319: 053736,000320: 10,2037 54142 FLESHPOT TS TEM2 053737,000321: 10,2040 56003 XCH EBANK 053738,000322: 10,2041 56142 XCH TEM2 053739,000323: 10,2042 74357 MASK LOW8 053740,000324: 10,2043 65007 AD OCT1400 053741,000325: 10,2044 54141 TS TEM1 053742,000326: 053743,000327: 10,2045 00006 EXTEND 053744,000328: 10,2046 30745 DCA COSCDUY 053745,000329: 10,2047 52155 DXCH MPAC 053746,000330: 10,2050 07103 TC DMP 053747,000331: 10,2051 00746 ADRES COSCDUZ 053748,000332: 10,2052 52155 DXCH MPAC 053749,000333: 10,2053 20001 DDOUBL 053750,000334: 10,2054 50141 INDEX TEM1 053751,000335: 10,2055 52001 DXCH 0 # = COSY COSZ 053752,000336: 053753,000337: 10,2056 00006 EXTEND 053754,000338: 10,2057 30741 DCA SINCDUZ 053755,000339: 10,2060 50141 INDEX TEM1 053756,000340: 10,2061 52003 DXCH 2 # = SINZ 053757,000341: 053758,000342: 10,2062 00006 EXTEND 053759,000343: 10,2063 40737 DCS SINCDUY 053760,000344: 10,2064 52155 DXCH MPAC 053761,000345: 10,2065 07107 TC DMPSUB # ADDRWD SET TO COSCDUZ 053762,000346: # Page 1266 053763,000347: 10,2066 52155 DXCH MPAC 053764,000348: 10,2067 20001 DDOUBL 053765,000349: 10,2070 50141 INDEX TEM1 053766,000350: 10,2071 52005 DXCH 4 # = - SINY COSZ 053767,000351: 053768,000352: 10,2072 00006 EXTEND 053769,000353: 10,2073 40743 DCS SINCDUX 053770,000354: 10,2074 52155 DXCH MPAC 053771,000355: 10,2075 07107 TC DMPSUB # ADDRWD SET TO COSCDUZ STILL 053772,000356: 10,2076 52155 DXCH MPAC 053773,000357: 10,2077 20001 DDOUBL 053774,000358: 10,2100 52160 DXCH MPAC +3 053775,000359: 053776,000360: 10,2101 00006 EXTEND 053777,000361: 10,2102 40743 DCS SINCDUX 053778,000362: 10,2103 52155 DXCH MPAC 053779,000363: 10,2104 07103 TC DMP 053780,000364: 10,2105 00740 ADRES SINCDUZ 053781,000365: 10,2106 00006 EXTEND 053782,000366: 10,2107 40155 DCS MPAC 053783,000367: 10,2110 52162 DXCH MPAC +5 053784,000368: 10,2111 07103 TC DMP 053785,000369: 10,2112 00736 ADRES SINCDUY 053786,000370: 10,2113 52155 DXCH MPAC 053787,000371: 10,2114 20001 DDOUBL 053788,000372: 10,2115 20001 DDOUBL 053789,000373: 10,2116 52162 DXCH MPAC +5 053790,000374: 053791,000375: 10,2117 52155 DXCH MPAC 053792,000376: 10,2120 07103 TC DMP 053793,000377: 10,2121 00744 ADRES COSCDUY 053794,000378: 10,2122 52155 DXCH MPAC 053795,000379: 10,2123 20001 DDOUBL 053796,000380: 10,2124 20001 DDOUBL 053797,000381: 10,2125 52131 DXCH BUF 053798,000382: 053799,000383: 10,2126 00006 EXTEND 053800,000384: 10,2127 30745 DCA COSCDUY 053801,000385: 10,2130 52155 DXCH MPAC 053802,000386: 10,2131 07103 TC DMP 053803,000387: 10,2132 00750 ADRES COSCDUX 053804,000388: 10,2133 52155 DXCH MPAC 053805,000389: 10,2134 20001 DDOUBL 053806,000390: 10,2135 20162 DAS MPAC +5 053807,000391: 053808,000392: 10,2136 00006 EXTEND 053809,000393: 10,2137 30737 DCA SINCDUY 053810,000394: 10,2140 52155 DXCH MPAC 053811,000395: 10,2141 07107 TC DMPSUB # ADDRWD SET TO COSCDUX 053812,000396: 10,2142 52155 DXCH MPAC 053813,000397: 053814,000398: # Page 1267 053815,000399: 10,2143 20001 DDOUBL 053816,000400: 10,2144 20131 DAS BUF 053817,000401: 053818,000402: 10,2145 52131 DXCH BUF 053819,000403: 10,2146 52155 DXCH MPAC 053820,000404: 053821,000405: 10,2147 00006 EXTEND 053822,000406: 10,2150 30155 DCA MPAC 053823,000407: 10,2151 50141 INDEX TEM1 053824,000408: 10,2152 52015 DXCH 14 # = - SINY COSX + SINX SINZ COSY 053825,000409: 053826,000410: 10,2153 00006 EXTEND 053827,000411: 10,2154 30160 DCA MPAC +3 053828,000412: 10,2155 50141 INDEX TEM1 053829,000413: 10,2156 52017 DXCH 16 # = - SINX COSZ 053830,000414: 053831,000415: 10,2157 00006 EXTEND 053832,000416: 10,2160 30162 DCA MPAC +5 053833,000417: 10,2161 50141 INDEX TEM1 053834,000418: 10,2162 52021 DXCH 20 # = COSX COSY - SINX SINY SINZ 053835,000419: 053836,000420: 10,2163 30141 CA TEM1 053837,000421: 10,2164 54116 TS ADDRWD 053838,000422: 10,2165 00006 EXTEND 053839,000423: 10,2166 30006 DCA Z 053840,000424: 10,2167 64751 AD FOUR 053841,000425: 10,2170 52165 DXCH LOC 053842,000426: 10,2171 34744 CAF BIT8 053843,000427: 10,2172 54023 TS EDOP 053844,000428: 10,2173 17460 TCF VXV 053845,000429: 10,2174 52155 DXCH MPAC 053846,000430: 10,2175 20001 DDOUBL 053847,000431: 10,2176 50141 INDEX TEM1 053848,000432: 10,2177 52007 DXCH 6 053849,000433: 053850,000434: 10,2200 52160 DXCH MPAC +3 053851,000435: 10,2201 20001 DDOUBL 053852,000436: 10,2202 50141 INDEX TEM1 053853,000437: 10,2203 52011 DXCH 10 053854,000438: 053855,000439: 10,2204 52162 DXCH MPAC +5 053856,000440: 10,2205 20001 DDOUBL 053857,000441: 10,2206 50141 INDEX TEM1 053858,000442: 10,2207 52013 DXCH 12 053859,000443: 053860,000444: 10,2210 30142 CA TEM2 053861,000445: 10,2211 54003 TS EBANK 053862,000446: 10,2212 14631 TCF SWRETURN 053863,000447: End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc