Source Code

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