Source Code

059017,000001: # Copyright: Public domain. 059018,000002: # Filename: POWERED_FLIGHT_SUBROUTINES.agc 059019,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 059020,000004: # It is part of the source code for the Command Module's (CM) 059021,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 059022,000006: # Assembler: yaYUL 059023,000007: # Contact: Ron Burkey <info@sandroid.org>. 059024,000008: # Website: www.ibiblio.org/apollo. 059025,000009: # Pages: 1365-1372 059026,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting 059027,000011: # from the Colossus249/ file of the same 059028,000012: # name, using Comanche055 page images. 059029,000013: 059030,000014: # This source code has been transcribed or otherwise adapted from digitized 059031,000015: # images of a hardcopy from the MIT Museum. The digitization was performed 059032,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 059033,000017: # thanks to both. The images (with suitable reduction in storage size and 059034,000018: # consequent reduction in image quality as well) are available online at 059035,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are 059036,000020: # illegible, contact me at info@sandroid.org about getting access to the 059037,000021: # (much) higher-quality images which Paul actually created. 059038,000022: 059039,000023: # Notations on the hardcopy document read, in part: 059040,000024: 059041,000025: # Assemble revision 055 of AGC program Comanche by NASA 059042,000026: # 2021113-051. 10:28 APR. 1, 1969 059043,000027: 059044,000028: # This AGC program shall also be referred to as 059045,000029: # Colossus 2A 059046,000030: 059047,000031: 059048,000032: # Page 1365 059049,000033: 14,3422 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM 059050,000034: 23,2000 SETLOC POWFLITE 059051,000035: 23,2000 BANK 059052,000036: 059053,000037: 23,3477 0142 EBANK= DEXDEX 059054,000038: 23,3477 COUNT* $$/POWFL 059055,000039: 059056,000040: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*GR*GS ALL COMPUTE THE SINES AND 059057,000041: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE 059058,000042: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN 059059,000043: # ADDITIONAL OUTPUT IS THE 1'S COMPLENT ANGLES AT CDUSPOT. THESE 059060,000044: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT. 059061,000045: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN 059062,000046: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING. 059063,000047: 059064,000048: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE 059065,000049: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS. 059066,000050: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY 059067,000051: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS. 059068,000052: 059069,000053: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC. 059070,000054: 059071,000055: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS 059072,000056: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL 059073,000057: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS 059074,000058: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO 059075,000059: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND 059076,000060: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT 059077,000061: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED 059078,000062: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE 059079,000063: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE 059080,000064: # CALLED USING BANKCALL. SORRY. 059081,000065: 059082,000066: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN 059083,000067: # INTERPRETIVE. 059084,000068: 059085,000069: 23,3477 77776 CDUTRIG EXIT 059086,000070: 23,3500 03507 TC CDUTRIGS 059087,000071: 23,3501 06006 TC INTPRET 059088,000072: 23,3502 77616 RVQ 059089,000073: 059090,000074: 23,3503 77776 CD*TR*G EXIT 059091,000075: 23,3504 03515 TC CD*TR*GS 059092,000076: 23,3505 06006 TC INTPRET 059093,000077: 23,3506 77616 RVQ 059094,000078: 059095,000079: 23,3507 30032 CDUTRIGS CA CDUX 059096,000080: 23,3510 54772 TS CDUSPOT +4 059097,000081: 23,3511 30033 CA CDUY 059098,000082: 23,3512 54766 TS CDUSPOT 059099,000083: # Page 1366 059100,000084: 23,3513 30034 CA CDUZ 059101,000085: 23,3514 54770 TS CDUSPOT +2 059102,000086: 059103,000087: 23,3515 00006 CD*TR*GS EXTEND 059104,000088: 23,3516 22142 QXCH TEM2 059105,000089: 23,3517 35015 CAF FOUR 059106,000090: 23,3520 76211 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER 059107,000091: 23,3521 54143 TS TEM3 059108,000092: 23,3522 50143 INDEX TEM3 059109,000093: 23,3523 30766 CA CDUSPOT 059110,000094: 23,3524 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC 059111,000095: 23,3525 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION 059112,000096: 23,3526 04757 TC USPRCADR 059113,000097: 23,3527 45513 CADR CDULOGIC 059114,000098: 23,3530 00006 EXTEND 059115,000099: 23,3531 30155 DCA MPAC 059116,000100: 23,3532 50143 INDEX TEM3 059117,000101: 23,3533 52767 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE 059118,000102: 23,3534 04757 TC USPRCADR 059119,000103: 23,3535 01516 CADR COSINE 059120,000104: 23,3536 52155 DXCH MPAC 059121,000105: 23,3537 50143 INDEX TEM3 059122,000106: 23,3540 52745 DXCH COSCDU # STORING COSINE 059123,000107: 23,3541 00006 EXTEND 059124,000108: 23,3542 50143 INDEX TEM3 059125,000109: 23,3543 30767 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE 059126,000110: 23,3544 04757 TC USPRCADR 059127,000111: 23,3545 01530 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L 059128,000112: 23,3546 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED 059129,000113: 23,3547 52155 DXCH MPAC 059130,000114: 23,3550 50143 INDEX TEM3 059131,000115: 23,3551 52737 DXCH SINCDU 059132,000116: 23,3552 10143 CCS TEM3 059133,000117: 23,3553 13520 TCF TR*GL**P 059134,000118: 23,3554 00142 TC TEM2 059135,000119: # Page 1367 059136,000120: # ******************************************************************************************************* 059137,000121: # QUICTRIG, INTENDED FOR QUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS. 059138,000122: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2, 059139,000123: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN 059140,000124: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE 059141,000125: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL. 059142,000126: 059143,000127: 23,3555 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS 059144,000128: 23,3556 00006 EXTEND 059145,000129: 23,3557 22061 QXCH ITEMP1 059146,000130: 23,3560 35015 CAF FOUR 059147,000131: 23,3561 76211 +4 MASK SIX 059148,000132: 23,3562 54062 TS ITEMP2 059149,000133: 23,3563 50062 INDEX ITEMP2 059150,000134: 23,3564 30766 CA CDUSPOT 059151,000135: 23,3565 05075 TC SPSIN 059152,000136: 23,3566 00006 EXTEND 059153,000137: 23,3567 75002 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS 059154,000138: 23,3570 50062 INDEX ITEMP2 059155,000139: 23,3571 52737 DXCH SINCDU 059156,000140: 23,3572 50062 INDEX ITEMP2 059157,000141: 23,3573 30766 CA CDUSPOT 059158,000142: 23,3574 05074 TC SPCOS 059159,000143: 23,3575 00006 EXTEND 059160,000144: 23,3576 75002 MP BIT14 059161,000145: 23,3577 50062 INDEX ITEMP2 059162,000146: 23,3600 52745 DXCH COSCDU 059163,000147: 23,3601 10062 CCS ITEMP2 059164,000148: 23,3602 13561 TCF QUICTRIG +4 059165,000149: 23,3603 30061 CA ITEMP1 059166,000150: 23,3604 00003 RELINT 059167,000151: 23,3605 00000 TC A 059168,000152: # Page 1368 059169,000153: # **************************************************************************** 059170,000154: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN 059171,000155: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED. 059172,000156: 059173,000157: # NBSM WILL BE THE FIRST TO GO. IT SHOULD NOT BE USED. 059174,000158: 059175,000159: 23,3606 77620 NBSM STQ 059176,000160: 23,3607 00047 X2 059177,000161: 23,3610 76740 LXC,1 VLOAD* 059178,000162: 23,3611 00050 S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1 059179,000163: 23,3612 00001 0,1 059180,000164: 23,3613 24767 STOVL CDUSPOT 059181,000165: 23,3614 00041 32D # VECTOR TO BE TRANSFORMED IS IN 32D 059182,000166: 23,3615 77624 CALL 059183,000167: 23,3616 47637 TRG*NBSM 059184,000168: 23,3617 34041 STCALL 32D # SINCE THERE'S NO STGOTO 059185,000169: 23,3620 00047 X2 059186,000170: 059187,000171: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK 059188,000172: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL", 059189,000173: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR- 059190,000174: # MED INTERPRETER-STYLE IN MPAC: COMPONENTS AT MPAC, MPAC +3, AND MPAC +5. 059191,000175: 059192,000176: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES 059193,000177: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4. ODD 059194,000178: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFOR- 059195,000179: # MATION: TRG*SMNB, VICE VERSA. 059196,000180: 059197,000181: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF 059198,000182: # THE CDL COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM. 059199,000183: 059200,000184: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM. 059201,000185: 059202,000186: 23,3621 77776 CDU*SMNB EXIT 059203,000187: 23,3622 03507 TC CDUTRIGS 059204,000188: 23,3623 13626 TCF C*MM*N1 059205,000189: 059206,000190: 23,3624 77776 TRG*SMNB EXIT 059207,000191: 23,3625 03515 TC CD*TR*GS 059208,000192: 23,3626 07501 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF 059209,000193: 23,3627 46214 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION. 059210,000194: 23,3630 03650 C*MM*N2 TC AX*SR*T 059211,000195: 23,3631 06006 TC INTPRET 059212,000196: 23,3632 43575 VLOAD RVQ 059213,000197: 23,3633 00123 VBUF 059214,000198: 059215,000199: 23,3634 77776 CDU*NBSM EXIT 059216,000200: 23,3635 03507 TC CDUTRIGS 059217,000201: 059218,000202: # Page 1369 059219,000203: 059220,000204: 23,3636 13641 TCF C*MM*N3 059221,000205: 059222,000206: 23,3637 77776 TRG*NBSM EXIT 059223,000207: 23,3640 03515 TC CD*TR*GS 059224,000208: 23,3641 07501 C*MM*N3 TC MPACVBUF # FOR AX*SR*T 059225,000209: 23,3642 36214 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION 059226,000210: 23,3643 13630 TCF C*MM*N2 059227,000211: 059228,000212: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU 059229,000213: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE 059230,000214: # LIKE TRG*NBSM AND TRG*SMNB. 059231,000215: 059232,000216: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES 059233,000217: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM 059234,000218: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANFOR- 059235,000219: # MATIONS USE *NBSM* AND *SMNB*. 059236,000220: 059237,000221: 23,3644 77776 *SMNB* EXIT 059238,000222: 23,3645 13626 TCF C*MM*N1 059239,000223: 059240,000224: 23,3646 77776 *NBSM* EXIT 059241,000225: 23,3647 13641 TCF C*MM*N3 059242,000226: 059243,000227: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM 059244,000228: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3. 059245,000229: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF. 059246,000230: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION 059247,000231: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH 059248,000232: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF 059249,000233: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-- 059250,000234: # TC CDUTRIGS 059251,000235: # CS THREE # ("CA THREE" FOR NBSM) 059252,000236: # TC AX*SR*T 059253,000237: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE 059254,000238: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED. 059255,000239: 059256,000240: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN 059257,000241: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE 059258,000242: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS- 059259,000243: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED. 059260,000244: 059261,000245: 23,3650 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES. 059262,000246: 23,3651 00006 EXTEND 059263,000247: 23,3652 22145 QXCH RTNSAVER 059264,000248: 059265,000249: 23,3653 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2 059266,000250: 23,3654 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1 059267,000251: 23,3655 66214 AD THREE # +1 --> 2 -1 --> 0 059268,000252: # Page 1370 059269,000253: 23,3656 00006 EXTEND 059270,000254: 23,3657 50000 INDEX A 059271,000255: 23,3660 33737 DCA INDEXI 059272,000256: 23,3661 52144 DXCH DEXI 059273,000257: 059274,000258: 23,3662 35017 CA ONE 059275,000259: 23,3663 54130 TS BUF 059276,000260: 23,3664 00006 EXTEND 059277,000261: 23,3665 50143 INDEX DEX1 059278,000262: 23,3666 40123 DCS VBUF 059279,000263: 23,3667 13671 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA 059280,000264: 059281,000265: 23,3670 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX 059282,000266: 059283,000267: 23,3671 52155 LOOP1 DXCH MPAC 059284,000268: 23,3672 33735 CA SINESLOC 059285,000269: 23,3673 60143 AD DEX1 059286,000270: 23,3674 54116 TS ADDRWD 059287,000271: 059288,000272: 23,3675 07056 TC DMPSUB # MULTIPLY BY SIN(CDUANGLE) 059289,000273: 23,3676 10142 CCS DEXDEX 059290,000274: 23,3677 52155 DXCH MPAC # NBSM CASE 059291,000275: 23,3700 13703 TCF +3 059292,000276: 23,3701 00006 EXTEND # SMNB CASE 059293,000277: 23,3702 40155 DCS MPAC 059294,000278: 23,3703 52134 DXCH TERM1TMP 059295,000279: 059296,000280: 23,3704 36211 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST 059297,000281: 23,3705 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER 059298,000282: 059299,000283: 23,3706 00006 EXTEND 059300,000284: 23,3707 50130 INDEX BUF 059301,000285: 23,3710 50143 INDEX DEX1 059302,000286: 23,3711 30123 DCA VBUF 059303,000287: 23,3712 52155 DXCH MPAC 059304,000288: 23,3713 07056 TC DMPSUB # MULTIPLY BY COS(CDUANGLE) 059305,000289: 23,3714 52155 DXCH MPAC 059306,000290: 23,3715 20134 DAS TERM1TMP 059307,000291: 23,3716 52134 DXCH TERM1TMP 059308,000292: 23,3717 20001 DDOUBL 059309,000293: 23,3720 50130 INDEX BUF 059310,000294: 23,3721 50143 INDEX DEX1 059311,000295: 23,3722 52123 DXCH VBUF 059312,000296: 23,3723 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT 059313,000297: 23,3724 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS 059314,000298: 23,3725 13670 TCF LOOP2 059315,000299: 059316,000300: 23,3726 00006 EXTEND 059317,000301: 23,3727 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN 059318,000302: 059319,000303: # Page 1371 059320,000304: 23,3730 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED 059321,000305: 23,3731 13653 TCF R*TL**P 059322,000306: 23,3732 00145 TC RTNSAVER 059323,000307: 23,3733 13653 TCF R*TL**P 059324,000308: 23,3734 00145 TC RTNSAVER 059325,000309: 059326,000310: 23,3735 00736 SINESLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD 059327,000311: 059328,000312: 23,3736 00004 INDEXI DEC 4 B-14 # ********** DON'T *********** 059329,000313: 23,3737 00002 DEC 2 B-14 # ********** TOUCH *********** 059330,000314: 23,3740 00000 DEC 0 B-14 # ********** THESE *********** 059331,000315: 23,3741 00004 DEC 4 B-14 # ********** CONSTANTS *********** 059332,000316: 059333,000317: # ****************************************************************************** 059334,000318: # Page 1372 059335,000319: # THIS SUBROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL CHANGES ABOUT SM AXES. IT 059336,000320: # REQUIRES SM INCREMENTS AS A DP VECTOR SCALED AT ONE REVOLUTION(DTHETASM,+2,+4). SIN,COS(CDUY,Z,X) ARE IN 059337,000321: # SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY, SCALED TO ONE HALF. CDU INCREMENTS ARE PLACED IN DCDU,+2,+4 SCALED TO 059338,000322: # ONE REVOLUTION. 059339,000323: 059340,000324: # * COS(IGA)SEC(MGA) 0 -SIN(IGA)SEC(MGA) * 059341,000325: # * * 059342,000326: # * -COS(IGA)TAN(MGA) 1 SIN(IGA)TAN(MGA) * 059343,000327: # * * 059344,000328: # * SIN(IGA) 0 COS(IGA) * 059345,000329: 059346,000330: 14,3422 BANK 14 059347,000331: 23,2000 SETLOC POWFLIT1 059348,000332: 23,2000 BANK 059349,000333: 059350,000334: 23,3742 41345 SMCDURES DLOAD DMP 059351,000335: 23,3743 03212 DTHETASM 059352,000336: 23,3744 00745 COSCDUY 059353,000337: 059354,000338: 23,3745 41325 PDDL DMP 059355,000339: 23,3746 03216 DTHETASM +4 059356,000340: 23,3747 00737 SINCDUY 059357,000341: 059358,000342: 23,3750 77621 BDSU 059359,000343: 23,3751 77671 DDV 059360,000344: 23,3752 00747 COSCDUZ 059361,000345: 23,3753 03204 STORE DCDU 059362,000346: 059363,000347: 23,3754 72405 DMP SL1 # SCALE 059364,000348: 23,3755 00741 SINCDUZ 059365,000349: 23,3756 77621 BDSU 059366,000350: 059367,000351: 23,3757 03214 DTHETASM +2 059368,000352: 23,3760 17206 STODL DCDU +2 059369,000353: 23,3761 03212 DTHETASM 059370,000354: 059371,000355: 23,3762 65205 DMP PDDL 059372,000356: 23,3763 00737 SINCDUY 059373,000357: 23,3764 03216 DTHETASM +4 059374,000358: 059375,000359: 23,3765 43205 DMP DAD 059376,000360: 23,3766 00745 COSCDUY 059377,000361: 23,3767 77752 SL1 059378,000362: 23,3770 03210 STORE DCDU +4 059379,000363: 23,3771 77616 RVQ 059380,000364: End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc