Source Code

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