GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
056482,000002: ## Copyright: Public domain.
056483,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
056484,000004: ## Purpose: Part of the source code for Colossus build 237.
056485,000005: ## This is for the Command Module's (CM) Apollo Guidance
056486,000006: ## Computer (AGC), for Apollo 8.
056487,000007: ## Assembler: yaYUL
056488,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
056489,000009: ## Website: www.ibiblio.org/apollo/index.html
056490,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
056491,000011: ## Mod history: 2011-04-17 JL Adapted from corresponding Colossus 249 file.
056492,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
056493,000013: ## and fixed errors found.
056494,000014: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
056495,000015: ## and fixed errors found.
056496,000016: ## 2021-05-30 ABS SINSLOC -> SINESLOC
056497,000017:
|
|
Page 1329 |
056499,000019: 14,3412 BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
056500,000020: 23,2000 SETLOC POWFLITE
056501,000021: 23,2000 BANK
056502,000022:
056503,000023: 23,3432 0142 EBANK= DEXDEX
056504,000024: 23,3432 COUNT* $$/POWFL
056505,000025:
056506,000026: # CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
056507,000027: # COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
056508,000028: # PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN
056509,000029: # ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE
056510,000030: # ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
056511,000031: # EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN
056512,000032: # WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
056513,000033:
056514,000034: # CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
056515,000035: # SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
056516,000036: # THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
056517,000037: # CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
056518,000038:
056519,000039: # CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
056520,000040:
056521,000041: # CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS
056522,000042: # ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
056523,000043: # ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS
056524,000044: # NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
056525,000045: # MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
056526,000046: # COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
056527,000047: # IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
056528,000048: # MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE
056529,000049: # IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
056530,000050: # CALLED USING BANKCALL. SORRY.
056531,000051:
056532,000052: # CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
056533,000053: # INTERPRETIVE.
056534,000054:
056535,000055: 23,3432 77776 CDUTRIG EXIT
056536,000056: 23,3433 03442 TC CDUTRIGS
056537,000057: 23,3434 06006 TC INTPRET
056538,000058: 23,3435 77616 RVQ
056539,000059:
056540,000060: 23,3436 77776 CD*TR*G EXIT
056541,000061: 23,3437 03450 TC CD*TR*GS
056542,000062: 23,3440 06006 TC INTPRET
056543,000063: 23,3441 77616 RVQ
056544,000064:
056545,000065: 23,3442 30032 CDUTRIGS CA CDUX
056546,000066: 23,3443 54772 TS CDUSPOT +4
056547,000067: 23,3444 30033 CA CDUY
056548,000068: 23,3445 54766 TS CDUSPOT
|
|
Page 1330 |
056550,000070: 23,3446 30034 CA CDUZ
056551,000071: 23,3447 54770 TS CDUSPOT +2
056552,000072:
056553,000073: 23,3450 00006 CD*TR*GS EXTEND
056554,000074: 23,3451 22142 QXCH TEM2
056555,000075: 23,3452 34710 CAF FOUR
056556,000076: 23,3453 76211 TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER
056557,000077: 23,3454 54143 TS TEM3
056558,000078: 23,3455 50143 INDEX TEM3
056559,000079: 23,3456 30766 CA CDUSPOT
056560,000080: 23,3457 52155 DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC
056561,000081: 23,3460 52127 DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION
056562,000082: 23,3461 04652 TC USPRCADR
056563,000083: 23,3462 45510 CADR CDULOGIC
056564,000084: 23,3463 00006 EXTEND
056565,000085: 23,3464 30155 DCA MPAC
056566,000086: 23,3465 50143 INDEX TEM3
056567,000087: 23,3466 52767 DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE
056568,000088: 23,3467 04652 TC USPRCADR
056569,000089: 23,3470 01516 CADR COSINE
056570,000090: 23,3471 52155 DXCH MPAC
056571,000091: 23,3472 50143 INDEX TEM3
056572,000092: 23,3473 52745 DXCH COSCDU # STORING COSINE
056573,000093: 23,3474 00006 EXTEND
056574,000094: 23,3475 50143 INDEX TEM3
056575,000095: 23,3476 30767 DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE
056576,000096: 23,3477 04652 TC USPRCADR
056577,000097: 23,3500 01530 CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L
056578,000098: 23,3501 52127 DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED
056579,000099: 23,3502 52155 DXCH MPAC
056580,000100: 23,3503 50143 INDEX TEM3
056581,000101: 23,3504 52737 DXCH SINCDU
056582,000102: 23,3505 10143 CCS TEM3
056583,000103: 23,3506 13453 TCF TR*GL**P
056584,000104: 23,3507 00142 TC TEM2
056585,000105:
|
|
Page 1331 |
056587,000107: # ****************************************************************************************************************
056588,000108:
056589,000109: # QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
056590,000110: # QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
056591,000111: # AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
056592,000112: # CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE
056593,000113: # CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
056594,000114:
056595,000115: 23,3510 00004 QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
056596,000116: 23,3511 00006 EXTEND
056597,000117: 23,3512 22061 QXCH ITEMP1
056598,000118: 23,3513 34710 CAF FOUR
056599,000119: 23,3514 76211 +4 MASK SIX
056600,000120: 23,3515 54062 TS ITEMP2
056601,000121: 23,3516 50062 INDEX ITEMP2
056602,000122: 23,3517 30766 CA CDUSPOT
056603,000123: 23,3520 04770 TC SPSIN
056604,000124: 23,3521 00006 EXTEND
056605,000125: 23,3522 74675 MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS
056606,000126: 23,3523 50062 INDEX ITEMP2
056607,000127: 23,3524 52737 DXCH SINCDU
056608,000128: 23,3525 50062 INDEX ITEMP2
056609,000129: 23,3526 30766 CA CDUSPOT
056610,000130: 23,3527 04767 TC SPCOS
056611,000131: 23,3530 00006 EXTEND
056612,000132: 23,3531 74675 MP BIT14
056613,000133: 23,3532 50062 INDEX ITEMP2
056614,000134: 23,3533 52745 DXCH COSCDU
056615,000135: 23,3534 10062 CCS ITEMP2
056616,000136: 23,3535 13514 TCF QUICTRIG +4
056617,000137: 23,3536 30061 CA ITEMP1
056618,000138: 23,3537 00003 RELINT
056619,000139: 23,3540 00000 TC A
056620,000140:
|
|
Page 1332 |
056622,000142: # ****************************************************************************************************************
056623,000143:
056624,000144:
056625,000145: # THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
056626,000146: # INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
056627,000147:
056628,000148: # NBSM WILL BE THE FIRST TO GO. IT SHOULD NOT BE USED.
056629,000149:
056630,000150: 23,3541 77620 NBSM STQ
056631,000151: 23,3542 00047 X2
056632,000152: 23,3543 76740 LXC,1 VLOAD*
056633,000153: 23,3544 00050 S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1
056634,000154: 23,3545 00001 0,1
056635,000155: 23,3546 24767 STOVL CDUSPOT
056636,000156: 23,3547 00041 32D # VECTOR TO BE TRANSFORMED IS IN 32D
056637,000157: 23,3550 77624 CALL
056638,000158: 23,3551 47572 TRG*NBSM
056639,000159: 23,3552 34041 STCALL 32D # SINCE THERE'S NO STGOTO
056640,000160: 23,3553 00047 X2
056641,000161:
056642,000162: # THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK
056643,000163: # SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
056644,000164: # RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
056645,000165: # MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
056646,000166:
056647,000167: # TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
056648,000168: # AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
056649,000169: # LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFOR-
056650,000170: # MATION; TRG*SMNB, VICE VERSA.
056651,000171:
056652,000172: # CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
056653,000173: # THE CDU COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM.
056654,000174:
056655,000175: # CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
056656,000176:
056657,000177: 23,3554 77776 CDU*SMNB EXIT
056658,000178: 23,3555 03442 TC CDUTRIGS
056659,000179: 23,3556 13561 TCF C*MM*N1
056660,000180:
056661,000181: 23,3557 77776 TRG*SMNB EXIT
056662,000182: 23,3560 03450 TC CD*TR*GS
056663,000183: 23,3561 07501 C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF
056664,000184: 23,3562 46214 CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION
056665,000185: 23,3563 03603 C*MM*N2 TC AX*SR*T
056666,000186: 23,3564 06006 TC INTPRET
056667,000187: 23,3565 43575 VLOAD RVQ
056668,000188: 23,3566 00123 VBUF
056669,000189:
056670,000190: 23,3567 77776 CDU*NBSM EXIT
056671,000191: 23,3570 03442 TC CDUTRIGS
|
|
Page 1333 |
056673,000193: 23,3571 13574 TCF C*MM*N3
056674,000194:
056675,000195: 23,3572 77776 TRG*NBSM EXIT
056676,000196: 23,3573 03450 TC CD*TR*GS
056677,000197: 23,3574 07501 C*MM*N3 TC MPACVBUF # FOR AX*SR*T
056678,000198: 23,3575 36214 CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION
056679,000199: 23,3576 13563 TCF C*MM*N2
056680,000200:
056681,000201: # *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
056682,000202: # AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE
056683,000203: # LIKE TRG*NBSM AND TRG*SMNB.
056684,000204:
056685,000205: # NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
056686,000206: # OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
056687,000207: # AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANSFOR-
056688,000208: # MATIONS USE *NBSM* AND *SMNB*.
056689,000209:
056690,000210: 23,3577 77776 *SMNB* EXIT
056691,000211: 23,3600 13561 TCF C*MM*N1
056692,000212:
056693,000213: 23,3601 77776 *NBSM* EXIT
056694,000214: 23,3602 13574 TCF C*MM*N3
056695,000215:
056696,000216: # AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM
056697,000217: # TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3.
056698,000218: # THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
056699,000219: # AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
056700,000220: # AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH
056701,000221: # THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
056702,000222: # THIS. HERE IS A SAMPLE CALLING SEQUENCE:-
056703,000223:
056704,000224: # TC CDUTRIGS
056705,000225: # CS THREE ("CA THREE" FOR NBSM)
056706,000226: # TC AX*SR*T
056707,000227:
056708,000228: # THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
056709,000229: # THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
056710,000230:
056711,000231: # AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
056712,000232: # UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
056713,000233: # HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
056714,000234: # FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
056715,000235:
056716,000236: 23,3603 54142 AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES
056717,000237: 23,3604 00006 EXTEND
056718,000238: 23,3605 22145 QXCH RTNSAVER
056719,000239:
056720,000240: 23,3606 10142 R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2
056721,000241: 23,3607 40142 CS DEXDEX # THUS: +2 --> 1 -2 --> 1
056722,000242: 23,3610 66214 AD THREE # +1 --> 2 -1 --> 0
|
|
Page 1334 |
056724,000244: 23,3611 00006 EXTEND
056725,000245: 23,3612 50000 INDEX A
056726,000246: 23,3613 33672 DCA INDEXI
056727,000247: 23,3614 52144 DXCH DEXI
056728,000248:
056729,000249: 23,3615 34712 CA ONE
056730,000250: 23,3616 54130 TS BUF
056731,000251: 23,3617 00006 EXTEND
056732,000252: 23,3620 50143 INDEX DEX1
056733,000253: 23,3621 40123 DCS VBUF
056734,000254: 23,3622 13624 TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA
056735,000255:
056736,000256: 23,3623 52131 LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX
056737,000257:
056738,000258: 23,3624 52155 LOOP1 DXCH MPAC
056739,000259: 23,3625 33670 CA SINESLOC
056740,000260: 23,3626 60143 AD DEX1
056741,000261: 23,3627 54116 TS ADDRWD
056742,000262:
056743,000263: 23,3630 07056 TC DMPSUB # MULTIPLY BY SIN(CDUANGLE)
056744,000264: 23,3631 10142 CCS DEXDEX
056745,000265: 23,3632 52155 DXCH MPAC # NBSM CASE
056746,000266: 23,3633 13636 TCF +3
056747,000267: 23,3634 00006 EXTEND # SMNB CASE
056748,000268: 23,3635 40155 DCS MPAC
056749,000269: 23,3636 52134 DXCH TERM1TMP
056750,000270:
056751,000271: 23,3637 36211 CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST
056752,000272: 23,3640 26116 ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER
056753,000273:
056754,000274: 23,3641 00006 EXTEND
056755,000275: 23,3642 50130 INDEX BUF
056756,000276: 23,3643 50143 INDEX DEX1
056757,000277: 23,3644 30123 DCA VBUF
056758,000278: 23,3645 52155 DXCH MPAC
056759,000279: 23,3646 07056 TC DMPSUB # MULTIPLY BY COS(CDUANGLE)
056760,000280: 23,3647 52155 DXCH MPAC
056761,000281: 23,3650 20134 DAS TERM1TMP
056762,000282: 23,3651 52134 DXCH TERM1TMP
056763,000283: 23,3652 20001 DDOUBL
056764,000284: 23,3653 50130 INDEX BUF
056765,000285: 23,3654 50143 INDEX DEX1
056766,000286: 23,3655 52123 DXCH VBUF
056767,000287: 23,3656 52131 DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
056768,000288:
056769,000289: 23,3657 10000 CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
056770,000290: 23,3660 13623 TCF LOOP2
056771,000291:
056772,000292: 23,3661 00006 EXTEND
056773,000293: 23,3662 26142 DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN
|
|
Page 1335 |
056775,000295: 23,3663 10142 TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED
056776,000296: 23,3664 13606 TCF R*TL**P
056777,000297: 23,3665 00145 TC RTNSAVER
056778,000298: 23,3666 13606 TCF R*TL**P
056779,000299: 23,3667 00145 TC RTNSAVER
056780,000300:
056781,000301:
056782,000302: 23,3670 00736 SINESLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD
056783,000303:
056784,000304:
056785,000305: 23,3671 00004 INDEXI DEC 4 B-14 # ********** DON'T **********
056786,000306: 23,3672 00002 DEC 2 B-14 # ********** TOUCH **********
056787,000307: 23,3673 00000 DEC 0 B-14 # ********** THESE **********
056788,000308: 23,3674 00004 DEC 4 B-14 # ********** CONSTANTS **********
056789,000309:
056790,000310:
056791,000311: # ****************************************************************************************************************
056792,000312:
|
|
Page 1336 |
056794,000314: # THIS SUBROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL CHANGES ABOUT SM AXES. IT
056795,000315: # REQUIRES SM INCREMENTS AS A DP VECTOR SCALED AT ONE REVOLUTION(DTHETASM,+2,+4). SIN,COS(CDUY,Z,X) ARE IN
056796,000316: # SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY,SCALED TO ONE HALF. CDU INCREENTS ARE PLACED IN DCDU,+2,+4 SCALED TO
056797,000317: # ONE REVOLUTION.
056798,000318:
056799,000319: # * COS(IGA)SEC(MGA) 0 -SIN(IGA)SEC(MGA) *
056800,000320: # * *
056801,000321: # * -COS(IGA)TAN(MGA) 1 SIN(IGA)TAN(MGA) *
056802,000322: # * *
056803,000323: # * SIN(IGA) 0 COS(IGA) *
056804,000324:
056805,000325: 14,3412 BANK 14
056806,000326: 23,2000 SETLOC POWFLIT1
056807,000327: 23,2000 BANK
056808,000328: 23,3675 41345 SMCDURES DLOAD DMP
056809,000329: 23,3676 03212 DTHETASM
056810,000330: 23,3677 00745 COSCDUY
056811,000331:
056812,000332: 23,3700 41325 PDDL DMP
056813,000333: 23,3701 03216 DTHETASM +4
056814,000334: 23,3702 00737 SINCDUY
056815,000335:
056816,000336: 23,3703 77621 BDSU
056817,000337: 23,3704 77671 DDV
056818,000338: 23,3705 00747 COSCDUZ
056819,000339: 23,3706 03204 STORE DCDU
056820,000340:
056821,000341: 23,3707 72405 DMP SL1 # SCALE
056822,000342: 23,3710 00741 SINCDUZ
056823,000343: 23,3711 77621 BDSU
056824,000344:
056825,000345: 23,3712 03214 DTHETASM +2
056826,000346: 23,3713 17206 STODL DCDU +2
056827,000347: 23,3714 03212 DTHETASM
056828,000348:
056829,000349: 23,3715 65205 DMP PDDL
056830,000350: 23,3716 00737 SINCDUY
056831,000351: 23,3717 03216 DTHETASM +4
056832,000352:
056833,000353: 23,3720 43205 DMP DAD
056834,000354: 23,3721 00745 COSCDUY
056835,000355: 23,3722 77752 SL1
056836,000356: 23,3723 03210 STORE DCDU +4
056837,000357: 23,3724 77616 RVQ
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc