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