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