Source Code

057568,000001: # Copyright: Public domain. 057569,000002: # Filename: POWERED_FLIGHT_SUBROUTINES.agc 057570,000003: # Purpose: Part of the source code for Colossus, build 249. 057571,000004: # It is part of the source code for the Command Module's (CM) 057572,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 057573,000006: # Assembler: yaYUL 057574,000007: # Reference: Starts on p. 1345 of 1701.pdf. 057575,000008: # Contact: Ron Burkey <info@sandroid.org>. 057576,000009: # Website: www.ibiblio.org/apollo. 057577,000010: # Mod history: 08/29/04 RSB. Began adapting from corresponding Luminary131 file. 057578,000011: # 2010-10-24 JL Indentation fixes. 057579,000012: 057580,000013: # The contents of the "Colossus249" files, in general, are transcribed 057581,000014: # from a scanned document obtained from MIT's website, 057582,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 057583,000016: # document read, in part: 057584,000017: 057585,000018: # Assemble revision 249 of AGC program Colossus by NASA 057586,000019: # 2021111-041. October 28, 1968. 057587,000020: 057588,000021: # This AGC program shall also be referred to as 057589,000022: # Colossus 1A 057590,000023: 057591,000024: # Prepared by 057592,000025: # Massachusetts Institute of Technology 057593,000026: # 75 Cambridge Parkway 057594,000027: # Cambridge, Massachusetts 057595,000028: # under NASA contract NAS 9-4065. 057596,000029: 057597,000030: # Refer directly to the online document mentioned above for further information. 057598,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 057599,000032: 057600,000033: # In some cases, where the source code for Luminary 131 overlaps that of 057601,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131 057602,000035: # source file, and then is proofed to incorporate any changes. 057603,000036: 057604,000037: # Page 1345 057605,000038: 14,3405 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM 057606,000039: 23,2000 SETLOC POWFLITE 057607,000040: 23,2000 BANK 057608,000041: 057609,000042: 23,3432 0142 EBANK= DEXDEX 057610,000043: 23,3432 COUNT* $$/POWFL 057611,000044: 057612,000045: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*GR*GS ALL COMPUTE THE SINES AND 057613,000046: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE 057614,000047: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN 057615,000048: # ADDITIONAL OUTPUT IS THE 1'S COMPLENT ANGLES AT CDUSPOT. THESE 057616,000049: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT. 057617,000050: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN 057618,000051: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING. 057619,000052: 057620,000053: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE 057621,000054: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS. 057622,000055: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY 057623,000056: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS. 057624,000057: 057625,000058: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC. 057626,000059: 057627,000060: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS 057628,000061: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL 057629,000062: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS 057630,000063: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO 057631,000064: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND 057632,000065: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT 057633,000066: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED 057634,000067: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE 057635,000068: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTIENS) CD*TR*GS CANNOT BE 057636,000069: # CALLED USING BANKCALL. SORRY. 057637,000070: 057638,000071: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN 057639,000072: # INTERPRETIVE. 057640,000073: 057641,000074: 23,3432 77776 CDUTRIG EXIT 057642,000075: 23,3433 03442 TC CDUTRIGS 057643,000076: 23,3434 06006 TC INTPRET 057644,000077: 23,3435 77616 RVQ 057645,000078: 057646,000079: 23,3436 77776 CD*TR*G EXIT 057647,000080: 23,3437 03450 TC CD*TR*GS 057648,000081: 23,3440 06006 TC INTPRET 057649,000082: 23,3441 77616 RVQ 057650,000083: 057651,000084: 23,3442 30032 CDUTRIGS CA CDUX 057652,000085: 23,3443 54772 TS CDUSPOT +4 057653,000086: 23,3444 30033 CA CDUY 057654,000087: 23,3445 54766 TS CDUSPOT 057655,000088: # Page 1346 057656,000089: 23,3446 30034 CA CDUZ 057657,000090: 23,3447 54770 TS CDUSPOT +2 057658,000091: 057659,000092: 23,3450 00006 CD*TR*GS EXTEND 057660,000093: 23,3451 22142 QXCH TEM2 057661,000094: 23,3452 34710 CAF FOUR 057662,000095: 23,3453 76211 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER 057663,000096: 23,3454 54143 TS TEM3 057664,000097: 23,3455 50143 INDEX TEM3 057665,000098: 23,3456 30766 CA CDUSPOT 057666,000099: 23,3457 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC 057667,000100: 23,3460 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION 057668,000101: 23,3461 04652 TC USPRCADR 057669,000102: 23,3462 45510 CADR CDULOGIC 057670,000103: 23,3463 00006 EXTEND 057671,000104: 23,3464 30155 DCA MPAC 057672,000105: 23,3465 50143 INDEX TEM3 057673,000106: 23,3466 52767 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE 057674,000107: 23,3467 04652 TC USPRCADR 057675,000108: 23,3470 01516 CADR COSINE 057676,000109: 23,3471 52155 DXCH MPAC 057677,000110: 23,3472 50143 INDEX TEM3 057678,000111: 23,3473 52745 DXCH COSCDU # STORING COSINE 057679,000112: 23,3474 00006 EXTEND 057680,000113: 23,3475 50143 INDEX TEM3 057681,000114: 23,3476 30767 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE 057682,000115: 23,3477 04652 TC USPRCADR 057683,000116: 23,3500 01530 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L 057684,000117: 23,3501 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED 057685,000118: 23,3502 52155 DXCH MPAC 057686,000119: 23,3503 50143 INDEX TEM3 057687,000120: 23,3504 52737 DXCH SINCDU 057688,000121: 23,3505 10143 CCS TEM3 057689,000122: 23,3506 13453 TCF TR*GL**P 057690,000123: 23,3507 00142 TC TEM2 057691,000124: # Page 1347 057692,000125: # ******************************************************************************************************* 057693,000126: # QUICTRIG, INTENDED FOR QUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS. 057694,000127: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2, 057695,000128: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN 057696,000129: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS. 057697,000130: # Page 1348 --- blank --- RSB 2004 057698,000131: # Page 1349 057699,000132: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL. 057700,000133: 057701,000134: 23,3510 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS 057702,000135: 23,3511 00006 EXTEND 057703,000136: 23,3512 22061 QXCH ITEMP1 057704,000137: 23,3513 34710 CAF FOUR 057705,000138: 23,3514 76211 +4 MASK SIX 057706,000139: 23,3515 54062 TS ITEMP2 057707,000140: 23,3516 50062 INDEX ITEMP2 057708,000141: 23,3517 30766 CA CDUSPOT 057709,000142: 23,3520 04770 TC SPSIN 057710,000143: 23,3521 00006 EXTEND 057711,000144: 23,3522 74675 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS 057712,000145: 23,3523 50062 INDEX ITEMP2 057713,000146: 23,3524 52737 DXCH SINCDU 057714,000147: 23,3525 50062 INDEX ITEMP2 057715,000148: 23,3526 30766 CA CDUSPOT 057716,000149: 23,3527 04767 TC SPCOS 057717,000150: 23,3530 00006 EXTEND 057718,000151: 23,3531 74675 MP BIT14 057719,000152: 23,3532 50062 INDEX ITEMP2 057720,000153: 23,3533 52745 DXCH COSCDU 057721,000154: 23,3534 10062 CCS ITEMP2 057722,000155: 23,3535 13514 TCF QUICTRIG +4 057723,000156: 23,3536 30061 CA ITEMP1 057724,000157: 23,3537 00003 RELINT 057725,000158: 23,3540 00000 TC A 057726,000159: 057727,000160: # Page 1350 -- blank --- RSB 2004 057728,000161: # Page 1351 057729,000162: # **************************************************************************** 057730,000163: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN 057731,000164: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED. 057732,000165: 057733,000166: # NBSM WILL BE THE FIRST TO GO. IT SHOULD NOT BE USED. 057734,000167: 057735,000168: 23,3541 77620 NBSM STQ 057736,000169: 23,3542 00047 X2 057737,000170: 23,3543 76740 LXC,1 VLOAD* 057738,000171: 23,3544 00050 S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1 057739,000172: 23,3545 00001 0,1 057740,000173: 23,3546 24767 STOVL CDUSPOT 057741,000174: 23,3547 00041 32D # VECTOR TO BE TRANSFORMED IS IN 32D 057742,000175: 23,3550 77624 CALL 057743,000176: 23,3551 47572 TRG*NBSM 057744,000177: 23,3552 34041 STCALL 32D # SINCE THERE'S NO STGOTO 057745,000178: 23,3553 00047 X2 057746,000179: 057747,000180: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK 057748,000181: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL", 057749,000182: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFORMED 057750,000183: # INTERPRETER-STYLE IN MPAC. 057751,000184: # Page 1352 --- blank --- RSB 2004 057752,000185: # Page 1353 057753,000186: 057754,000187: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES 057755,000188: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4. 057756,000189: # Page 1354 --- blank --- RSB 2004 057757,000190: # Page 1355 057758,000191: 057759,000192: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM 057760,000193: # TRANSFORMATION. 057761,000194: # Page 1356 --- blank --- RSB 2004 057762,000195: # Page 1357 057763,000196: 057764,000197: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENDS OF 057765,000198: # THE CDL COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM. 057766,000199: 057767,000200: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM. 057768,000201: 057769,000202: 23,3554 77776 CDU*SMNB EXIT 057770,000203: 23,3555 03442 TC CDUTRIGS 057771,000204: 23,3556 13561 TCF C*MM*N1 057772,000205: 057773,000206: 23,3557 77776 TRG*SMNB EXIT 057774,000207: 23,3560 03450 TC CD*TR*GS 057775,000208: 23,3561 07501 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF 057776,000209: 23,3562 46214 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION. 057777,000210: 23,3563 03603 C*MM*N2 TC AX*SR*T 057778,000211: 23,3564 06006 TC INTPRET 057779,000212: 23,3565 43575 VLOAD RVQ 057780,000213: 23,3566 00123 VBUF 057781,000214: 057782,000215: 23,3567 77776 CDU*NBSM EXIT 057783,000216: 23,3570 03442 TC CDUTRIGS 057784,000217: # Page 1358 --- blank --- RSB 2004 057785,000218: # Page 1359 057786,000219: 057787,000220: 23,3571 13574 TCF C*MM*N3 057788,000221: 057789,000222: 23,3572 77776 TRG*NBSM EXIT 057790,000223: 23,3573 03450 TC CD*TR*GS 057791,000224: 23,3574 07501 C*MM*N3 TC MPACVBUF # FOR AX*SR*T 057792,000225: 23,3575 36214 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION 057793,000226: 23,3576 13563 TCF C*MM*N2 057794,000227: 057795,000228: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU 057796,000229: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE 057797,000230: # LIKE TRG*NBSM AND TRG*SMNB. 057798,000231: 057799,000232: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES 057800,000233: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM 057801,000234: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANFOR- 057802,000235: # MATIONS USE *NBSM* AND *SMNB*. 057803,000236: 057804,000237: 23,3577 77776 *SMNB* EXIT 057805,000238: 23,3600 13561 TCF C*MM*N1 057806,000239: 057807,000240: 23,3601 77776 *NBSM* EXIT 057808,000241: 23,3602 13574 TCF C*MM*N3 057809,000242: 057810,000243: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM 057811,000244: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3. 057812,000245: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF. 057813,000246: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION 057814,000247: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH 057815,000248: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF 057816,000249: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-- 057817,000250: # TC CDUTRIGS 057818,000251: # CS THREE # ("CA THREE" FOR NBSM) 057819,000252: # TC AX*SR*T 057820,000253: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE 057821,000254: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED. 057822,000255: 057823,000256: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN 057824,000257: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE 057825,000258: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS- 057826,000259: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED. 057827,000260: 057828,000261: 23,3603 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES. 057829,000262: 23,3604 00006 EXTEND 057830,000263: 23,3605 22145 QXCH RTNSAVER 057831,000264: 057832,000265: 23,3606 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2 057833,000266: 23,3607 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1 057834,000267: 23,3610 66214 AD THREE # +1 --> 2 -1 --> 0 057835,000268: # Page 1360 057836,000269: 23,3611 00006 EXTEND 057837,000270: 23,3612 50000 INDEX A 057838,000271: 23,3613 33672 DCA INDEXI 057839,000272: 23,3614 52144 DXCH DEXI 057840,000273: 057841,000274: 23,3615 34712 CA ONE 057842,000275: 23,3616 54130 TS BUF 057843,000276: 23,3617 00006 EXTEND 057844,000277: 23,3620 50143 INDEX DEX1 057845,000278: 23,3621 40123 DCS VBUF 057846,000279: 23,3622 13624 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA 057847,000280: 057848,000281: 23,3623 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX 057849,000282: 057850,000283: 23,3624 52155 LOOP1 DXCH MPAC 057851,000284: 23,3625 33670 CA SINSLOC 057852,000285: 23,3626 60143 AD DEX1 057853,000286: 23,3627 54116 TS ADDRWD 057854,000287: 057855,000288: 23,3630 07056 TC DMPSUB # MULTIPLY AT SIN(CDUANGLE) 057856,000289: 23,3631 10142 CCS DEXDEX 057857,000290: 23,3632 52155 DXCH MPAC # NBSM CASE 057858,000291: 23,3633 13636 TCF +3 057859,000292: 23,3634 00006 EXTEND # SMNB CASE 057860,000293: 23,3635 40155 DCS MPAC 057861,000294: 23,3636 52134 DXCH TERM1TMP 057862,000295: 057863,000296: 23,3637 36211 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST 057864,000297: 23,3640 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER 057865,000298: 057866,000299: 23,3641 00006 EXTEND 057867,000300: 23,3642 50130 INDEX BUF 057868,000301: 23,3643 50143 INDEX DEX1 057869,000302: 23,3644 30123 DCA VBUF 057870,000303: 23,3645 52155 DXCH MPAC 057871,000304: 23,3646 07056 TC DMPSUB # MULTIPLY BY COS(CDUANGLE) 057872,000305: 23,3647 52155 DXCH MPAC 057873,000306: 23,3650 20134 DAS TERM1TMP 057874,000307: 23,3651 52134 DXCH TERM1TMP 057875,000308: 23,3652 20001 DDOUBL 057876,000309: 23,3653 50130 INDEX BUF 057877,000310: 23,3654 50143 INDEX DEX1 057878,000311: 23,3655 52123 DXCH VBUF 057879,000312: 23,3656 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT 057880,000313: 23,3657 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS 057881,000314: 23,3660 13623 TCF LOOP2 057882,000315: 057883,000316: 23,3661 00006 EXTEND 057884,000317: 23,3662 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN 057885,000318: 057886,000319: # Page 1361 057887,000320: 23,3663 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED 057888,000321: 23,3664 13606 TCF R*TL**P 057889,000322: 23,3665 00145 TC RTNSAVER 057890,000323: 23,3666 13606 TCF R*TL**P 057891,000324: 23,3667 00145 TC RTNSAVER 057892,000325: 057893,000326: 23,3670 00736 SINSLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD 057894,000327: 057895,000328: 23,3671 00004 INDEXI DEC 4 B-14 # ********** DON'T *********** 057896,000329: 23,3672 00002 DEC 2 B-14 # ********** TOUCH *********** 057897,000330: 23,3673 00000 DEC 0 B-14 # ********** THESE *********** 057898,000331: 23,3674 00004 DEC 4 B-14 # ********** CONSTANTS *********** 057899,000332: 057900,000333: # ****************************************************************************** 057901,000334: # Page 1362 057902,000335: # THIS SUBROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL CHANGES ABOUT SM AXES. IT 057903,000336: # REQUIRES SM INCREMENTS AS A DP VECTOR SCALED AT ONE REVOLUTION(DTHETASM,+2,+4). SIN,COS(CDUY,Z,X) ARE IN 057904,000337: # SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY, SCALED TO ONE HALF. CDU INCREMENTS ARE PLACED IN DCDU,+2,+4 SCALED TO 057905,000338: # ONE REVOLUTION. 057906,000339: 057907,000340: # * COS(IGA)SEC(MGA) 0 -SIN(IGA)SEC(MGA) * 057908,000341: # * * 057909,000342: # * -COS(IGA)TAN(MGA) 1 SIN(IGA)TAN(MGA) * 057910,000343: # * * 057911,000344: # * SIN(IGA) 0 COS(IGA) * 057912,000345: 057913,000346: 14,3405 BANK 14 057914,000347: 23,2000 SETLOC POWFLIT1 057915,000348: 23,2000 BANK 057916,000349: 057917,000350: 23,3675 41345 SMCDURES DLOAD DMP 057918,000351: 23,3676 03212 DTHETASM 057919,000352: 23,3677 00745 COSCDUY 057920,000353: 057921,000354: 23,3700 41325 PDDL DMP 057922,000355: 23,3701 03216 DTHETASM +4 057923,000356: 23,3702 00737 SINCDUY 057924,000357: 057925,000358: 23,3703 77621 BDSU 057926,000359: 23,3704 77671 DDV 057927,000360: 23,3705 00747 COSCDUZ 057928,000361: 23,3706 03204 STORE DCDU 057929,000362: 057930,000363: 23,3707 72405 DMP SL1 # SCALE 057931,000364: 23,3710 00741 SINCDUZ 057932,000365: 23,3711 77621 BDSU 057933,000366: 057934,000367: 23,3712 03214 DTHETASM +2 057935,000368: 23,3713 17206 STODL DCDU +2 057936,000369: 23,3714 03212 DTHETASM 057937,000370: 057938,000371: 23,3715 65205 DMP PDDL 057939,000372: 23,3716 00737 SINCDUY 057940,000373: 23,3717 03216 DTHETASM +4 057941,000374: 057942,000375: 23,3720 43205 DMP DAD 057943,000376: 23,3721 00745 COSCDUY 057944,000377: 23,3722 77752 SL1 057945,000378: 23,3723 03210 STORE DCDU +4 057946,000379: 23,3724 77616 RVQ 057947,000380: End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc