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