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