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