Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

058470,000002:                                                                                                  ## Copyright:   Public domain.
058471,000003:                                                                                                  ## Filename:    POWERED_FLIGHT_SUBROUTINES.agc
058472,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
058473,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
058474,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
058475,000007:                                                                                                  ##              Apollo 15-17.
058476,000008:                                                                                                  ## Assembler:   yaYUL
058477,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
058478,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058479,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
058480,000012:                                                                                                  ## Mod history: 2009-08-21 JL   Adapted from corresponding Comanche 055 file.
058481,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
058482,000014:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55.
058483,000015: 

Page 1364

058485,000017: 
058486,000018: 23,2000                                           SETLOC   POWFLITE                              
058487,000019: 23,2000                                           BANK                                           
058488,000020: 
058489,000021: 23,3530     0142                                  EBANK=   DEXDEX                                
058490,000022: 23,3530                                           COUNT*   $$/POWFL                              
058491,000023: 
058492,000024:                                                                                                  #  CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
058493,000025:                                                                                                  #  COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
058494,000026:                                                                                                  #  PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU.  AN
058495,000027:                                                                                                  #  ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT.  THESE
058496,000028:                                                                                                  #  ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
058497,000029:                                                                                                  #  EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2.  THEY DIFFER ONLY IN
058498,000030:                                                                                                  #  WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
058499,000031: 
058500,000032:                                                                                                  #  CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
058501,000033:                                                                                                  #  SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
058502,000034:                                                                                                  #  THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
058503,000035:                                                                                                  #  CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
058504,000036: 
058505,000037:                                                                                                  #  CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
058506,000038: 
058507,000039:                                                                                                  #  CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP.  THIS
058508,000040:                                                                                                  #  ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
058509,000041:                                                                                                  #  ANGLES IN AN ORDER OTHER THAN X Y Z.  A CALL TO THIS ROUTINE IS
058510,000042:                                                                                                  #  NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
058511,000043:                                                                                                  #  MODES (SMNB OR NBSM).  SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
058512,000044:                                                                                                  #  COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
058513,000045:                                                                                                  #  IN THIS ORDER.  CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
058514,000046:                                                                                                  #  MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED.  NOTE THAT SINCE
058515,000047:                                                                                                  #  IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
058516,000048:                                                                                                  #  CALLED USING BANKCALL.  SORRY.
058517,000049: 
058518,000050:                                                                                                  #  CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
058519,000051:                                                                                                  #  INTERPRETIVE.
058520,000052: 
058521,000053: 23,3530           77776        CDUTRIG            EXIT                                           
058522,000054: 23,3531           03534                           TC       CDUTRIGS                              
058523,000055: 23,3532           06006                           TC       INTPRET                               
058524,000056: 23,3533           77616                           RVQ                                            
058525,000057: 
058526,000058: 23,3534           30032        CDUTRIGS           CA       CDUX                                  
058527,000059: 23,3535           55175                           TS       CDUSPOT    +4                         
058528,000060: 23,3536           30033                           CA       CDUY                                  
058529,000061: 23,3537           55171                           TS       CDUSPOT                               
058530,000062: 23,3540           30034                           CA       CDUZ                                  
058531,000063: 23,3541           55173                           TS       CDUSPOT    +2                         
058532,000064: 
058533,000065: 23,3542           00006        CD*TR*GS           EXTEND                                         
058534,000066: 23,3543           22142                           QXCH     TEM2                                  
058535,000067: 23,3544           34766                           CAF      FOUR                                  

Page 1365

058537,000069: 23,3545           76211        TR*GL**P           MASK     SIX                                   #  MAKE IT EVEN AND SMALLER
058538,000070: 23,3546           54143                           TS       TEM3                                  
058539,000071: 23,3547           50143                           INDEX    TEM3                                  
058540,000072: 23,3550           31171                           CA       CDUSPOT                               
058541,000073: 23,3551           52155                           DXCH     MPAC                                  #  STORING 2'S COMP ANGLE, LOADING MPAC
058542,000074: 23,3552           52127                           DXCH     VBUF       +4                         #  STORING MPAC FOR LATER RESTORATION
058543,000075: 23,3553           04733                           TC       USPRCADR                              
058544,000076: 23,3554           51754                           CADR     CDULOGIC                              
058545,000077: 23,3555           00006                           EXTEND                                         
058546,000078: 23,3556           30155                           DCA      MPAC                                  
058547,000079: 23,3557           50143                           INDEX    TEM3                                  
058548,000080: 23,3560           53172                           DXCH     CDUSPOT                               #  STORING 1'S COMPLEMENT ANGLE
058549,000081: 23,3561           04733                           TC       USPRCADR                              
058550,000082: 23,3562           01514                           CADR     COSINE                                
058551,000083: 23,3563           52155                           DXCH     MPAC                                  
058552,000084: 23,3564           50143                           INDEX    TEM3                                  
058553,000085: 23,3565           53150                           DXCH     COSCDU                                #  STORING COSINE
058554,000086: 23,3566           00006                           EXTEND                                         
058555,000087: 23,3567           50143                           INDEX    TEM3                                  
058556,000088: 23,3570           31172                           DCA      CDUSPOT                               #  LOADING 1'S COMPLEMENT ANGLE
058557,000089: 23,3571           04733                           TC       USPRCADR                              
058558,000090: 23,3572           01526                           CADR     SINE       +1                         #  SINE +1 EXPECTS ARGUMENT IN A AND L
058559,000091: 23,3573           52127                           DXCH     VBUF       +4                         #  BRINGING UP PRIOR MPAC TO BE RESTORED
058560,000092: 23,3574           52155                           DXCH     MPAC                                  
058561,000093: 23,3575           50143                           INDEX    TEM3                                  
058562,000094: 23,3576           53142                           DXCH     SINCDU                                
058563,000095: 23,3577           10143                           CCS      TEM3                                  
058564,000096: 23,3600           13545                           TCF      TR*GL**P                              
058565,000097: 23,3601           00142                           TC       TEM2                                  
058566,000098: 

Page 1366

058568,000100: 
058569,000101:                                                                                                  #  ****************************************************************************************************************
058570,000102: 
058571,000103:                                                                                                  #  QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
058572,000104:                                                                                                  #  QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
058573,000105:                                                                                                  #  AND CDUSPOT +4.  UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
058574,000106:                                                                                                  #  CDUSPOT.  QUICTRIG'S EXECUTION TIME IS 4.1 MS;    THIS IS 10 TIMES AS FAST AS CD*TR*GS.    QUICTRIG MAY BE
058575,000107:                                                                                                  #  CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
058576,000108: 
058577,000109: 23,3602           00004        QUICTRIG           INHINT                                         #  INHINT SINCE DAP USES THE SAME TEMPS
058578,000110: 23,3603           00006                           EXTEND                                         
058579,000111: 23,3604           22061                           QXCH     ITEMP1                                
058580,000112: 23,3605           34766                           CAF      FOUR                                  
058581,000113: 23,3606           76211                 +4        MASK     SIX                                   
058582,000114: 23,3607           54062                           TS       ITEMP2                                
058583,000115: 23,3610           50062                           INDEX    ITEMP2                                
058584,000116: 23,3611           31171                           CA       CDUSPOT                               
058585,000117: 23,3612           05061                           TC       SPSIN                                 
058586,000118: 23,3613           00006                           EXTEND                                         
058587,000119: 23,3614           74753                           MP       BIT14                                 #  SCALE DOWN TO MATCH INTERPRETER OUTPUTS
058588,000120: 23,3615           50062                           INDEX    ITEMP2                                
058589,000121: 23,3616           53142                           DXCH     SINCDU                                
058590,000122: 23,3617           50062                           INDEX    ITEMP2                                
058591,000123: 23,3620           31171                           CA       CDUSPOT                               
058592,000124: 23,3621           05060                           TC       SPCOS                                 
058593,000125: 23,3622           00006                           EXTEND                                         
058594,000126: 23,3623           74753                           MP       BIT14                                 
058595,000127: 23,3624           50062                           INDEX    ITEMP2                                
058596,000128: 23,3625           53150                           DXCH     COSCDU                                
058597,000129: 23,3626           10062                           CCS      ITEMP2                                
058598,000130: 23,3627           13606                           TCF      QUICTRIG   +4                         
058599,000131: 23,3630           30061                           CA       ITEMP1                                
058600,000132: 23,3631           00003                           RELINT                                         
058601,000133: 23,3632           00000                           TC       A                                     
058602,000134: 

Page 1367

058604,000136: 
058605,000137:                                                                                                  #  ****************************************************************************************************************
058606,000138: 
058607,000139:                                                                                                  #  THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
058608,000140:                                                                                                  #  INTERPRETIVE.  LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
058609,000141: 
058610,000142:                                                                                                  #  THESE INTERFACE ROUTINES ARE PERMANENT.  ALL RESTORE USER'S EBANK
058611,000143:                                                                                                  #  SETTING.  ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
058612,000144:                                                                                                  #  RETURNING VIA QPRET.  ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
058613,000145:                                                                                                  #  MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
058614,000146: 
058615,000147:                                                                                                  #  TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
058616,000148:                                                                                                  #  AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
058617,000149:                                                                                                  #  LOCATIONS NEED NOT BE ZEROED).  TRG*NBSM DOES THE NB TO SM TRANSFOR-
058618,000150:                                                                                                  #  MATION;  TRG*SMNB, VICE VERSA.
058619,000151: 
058620,000152:                                                                                                  #  CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
058621,000153:                                                                                                  #  THE CDU COUNTERS.  OTHERWISE IT IS LIKE TRG*NBSM.
058622,000154: 
058623,000155:                                                                                                  #  CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
058624,000156: 
058625,000157: 23,3633           77776        *SMNB*             EXIT                                           
058626,000158: 23,3634           07466        C*MM*N1            TC       MPACVBUF                              #  AX*SR*T EXPECTS VECTOR IN VBUF
058627,000159: 23,3635           46214                           CS       THREE                                 #  SIGNAL FOR SM TO NB TRANSFORMATION
058628,000160: 23,3636           03651        C*MM*N2            TC       AX*SR*T                               
058629,000161: 23,3637           06006                           TC       INTPRET                               
058630,000162: 23,3640           43575                           VLOAD    RVQ                                   
058631,000163: 23,3641           00123                                    VBUF                                  
058632,000164: 
058633,000165: 23,3642           77776        TRG*NBSM           EXIT                                           
058634,000166: 23,3643           03542                           TC       CD*TR*GS                              
058635,000167: 23,3644           07466        C*MM*N3            TC       MPACVBUF                              #  FOR AX*SR*T
058636,000168: 23,3645           36214                           CA       THREE                                 #  SIGNAL FOR NB TO SM TRANSFORMATION
058637,000169: 23,3646           13636                           TCF      C*MM*N2                               
058638,000170: 
058639,000171:                                                                                                  #  *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
058640,000172:                                                                                                  #  AND COSCDU) RATHER THAN THE ANGLES THEMSELVES.  OTHERWISE THEY ARE
058641,000173:                                                                                                  #  LIKE TRG*NBSM AND TRG*SMNB.
058642,000174: 
058643,000175:                                                                                                  #  NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
058644,000176:                                                                                                  #  OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
058645,000177:                                                                                                  #  AND TRG*SMNB NEED BE CALLED FOR EACH SERIES.  FOR SUBSEQUENT TRANSFOR-
058646,000178:                                                                                                  #  MATIONS USE *NBSM* AND *SMNB*.
058647,000179: 
058648,000180: 23,3647           77776        *NBSM*             EXIT                                           
058649,000181: 23,3650           13644                           TCF      C*MM*N3                               
058650,000182: 
058651,000183:                                                                                                  #  AX*SR*T COMBINES THE OLD SMNB AND NBSM.  FOR THE NB TO SM
058652,000184:                                                                                                  #  TRANSFORMATION, ENTER WITH +3 IN A.  FOR SM TO NB, ENTER WITH -3.
058653,000185:                                                                                                  #  THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.

Page 1368

058655,000187:                                                                                                  #  AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
058656,000188:                                                                                                  #  AT SINCDU AND COSCDU, IN THE ORDER Y Z X.  A CALL TO CD*TR*GS, WITH
058657,000189:                                                                                                  #  THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
058658,000190:                                                                                                  #  THIS.  HERE IS A SAMPLE CALLING SEQUENCE:-
058659,000191: 
058660,000192:                                                                                                  #                TC      CDUTRIGS
058661,000193:                                                                                                  #                CS      THREE           ("CA THREE" FOR NBSM)
058662,000194:                                                                                                  #                TC      AX*SR*T
058663,000195: 
058664,000196:                                                                                                  #  THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
058665,000197:                                                                                                  #  THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
058666,000198: 
058667,000199:                                                                                                  #  AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
058668,000200:                                                                                                  #  UNITY.  A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
058669,000201:                                                                                                  #  HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
058670,000202:                                                                                                  #  FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
058671,000203: 
058672,000204: 23,3651           54142        AX*SR*T            TS       DEXDEX                                #  WHERE IT BECOMES THE INDEX OF INDEXES
058673,000205: 23,3652           00006                           EXTEND                                         
058674,000206: 23,3653           22145                           QXCH     RTNSAVER                              
058675,000207: 
058676,000208: 23,3654           10142        R*TL**P            CCS      DEXDEX                                #                +3 --> 0        -3 --> 2
058677,000209: 23,3655           40142                           CS       DEXDEX                                #  THUS:         +2 --> 1        -2 --> 1
058678,000210: 23,3656           66214                           AD       THREE                                 #                +1 --> 2        -1 --> 0
058679,000211: 23,3657           00006                           EXTEND                                         
058680,000212: 23,3660           50000                           INDEX    A                                     
058681,000213: 23,3661           33740                           DCA      INDEXI                                
058682,000214: 23,3662           52144                           DXCH     DEXI                                  
058683,000215: 
058684,000216: 23,3663           34770                           CA       ONE                                   
058685,000217: 23,3664           54130                           TS       BUF                                   
058686,000218: 23,3665           00006                           EXTEND                                         
058687,000219: 23,3666           50143                           INDEX    DEX1                                  
058688,000220: 23,3667           40123                           DCS      VBUF                                  
058689,000221: 23,3670           13672                           TCF      LOOP1                                 #  REALLY BE A SUBTRACT, AND VICE VERSA
058690,000222: 
058691,000223: 23,3671           52131        LOOP2              DXCH     BUF                                   #  LOADING VECTOR COMPONENT, STORING INDEX
058692,000224: 
058693,000225: 23,3672           52155        LOOP1              DXCH     MPAC                                  
058694,000226: 23,3673           33736                           CA       SINESLOC                              
058695,000227: 23,3674           60143                           AD       DEX1                                  
058696,000228: 23,3675           54116                           TS       ADDRWD                                
058697,000229: 
058698,000230: 23,3676           07056                           TC       DMPSUB                                #  MULTIPLY BY SIN(CDUANGLE)
058699,000231: 23,3677           10142                           CCS      DEXDEX                                
058700,000232: 23,3700           52155                           DXCH     MPAC                                  #  NBSM CASE
058701,000233: 23,3701           13704                           TCF      +3                                    
058702,000234: 23,3702           00006                           EXTEND                                         #  SMNB CASE
058703,000235: 23,3703           40155                           DCS      MPAC                                  
058704,000236: 23,3704           52134                           DXCH     TERM1TMP                              
058705,000237: 

Page 1369

058707,000239: 23,3705           36211                           CA       SIX                                   #  SINCDU AND COSCDU (EACH 6 WORDS) MUST
058708,000240: 23,3706           26116                           ADS      ADDRWD                                #        BE CONSECUTIVE AND IN THAT ORDER
058709,000241: 
058710,000242: 23,3707           00006                           EXTEND                                         
058711,000243: 23,3710           50130                           INDEX    BUF                                   
058712,000244: 23,3711           50143                           INDEX    DEX1                                  
058713,000245: 23,3712           30123                           DCA      VBUF                                  
058714,000246: 23,3713           52155                           DXCH     MPAC                                  
058715,000247: 23,3714           07056                           TC       DMPSUB                                #  MULTIPLY BY COS(CDUANGLE)
058716,000248: 23,3715           52155                           DXCH     MPAC                                  
058717,000249: 23,3716           20134                           DAS      TERM1TMP                              
058718,000250: 23,3717           52134                           DXCH     TERM1TMP                              
058719,000251: 23,3720           20001                           DDOUBL                                         
058720,000252: 23,3721           50130                           INDEX    BUF                                   
058721,000253: 23,3722           50143                           INDEX    DEX1                                  
058722,000254: 23,3723           52123                           DXCH     VBUF                                  
058723,000255: 23,3724           52131                           DXCH     BUF                                   #  LOADING INDEX, STORING VECTOR COMPONENT
058724,000256: 
058725,000257: 23,3725           10000                           CCS      A                                     #  'CAUSE THAT'S WHERE THE INDEX NOW IS
058726,000258: 23,3726           13671                           TCF      LOOP2                                 
058727,000259: 
058728,000260: 23,3727           00006                           EXTEND                                         
058729,000261: 23,3730           26142                           DIM      DEXDEX                                #  DECREMENT MAGNITUDE PRESERVING SIGN
058730,000262: 
058731,000263: 23,3731           10142        TSTPOINT           CCS      DEXDEX                                #  ONLY THE BRANCHING FUNCTION IS USED
058732,000264: 23,3732           13654                           TCF      R*TL**P                               
058733,000265: 23,3733           00145                           TC       RTNSAVER                              
058734,000266: 23,3734           13654                           TCF      R*TL**P                               
058735,000267: 23,3735           00145                           TC       RTNSAVER                              
058736,000268: 
058737,000269: 23,3736           01141        SINESLOC           ADRES    SINCDU                                #  FOR USE IN SETTING ADDRWD
058738,000270: 
058739,000271: 23,3737           00004        INDEXI             DEC      4          B-14                       #  **********   DON'T   **********
058740,000272: 23,3740           00002                           DEC      2          B-14                       #  **********   TOUCH   **********
058741,000273: 23,3741           00000                           DEC      0          B-14                       #  **********   THESE   **********
058742,000274: 23,3742           00004                           DEC      4          B-14                       #  ********** CONSTANTS **********
058743,000275: 
058744,000276:                                                                                                  #  ****************************************************************************************************************
058745,000277: 

Page 1370

058747,000279: 
058748,000280:                                                                                                  #  THIS SUBROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL CHANGES ABOUT SM AXES. IT
058749,000281:                                                                                                  #  REQUIRES SM INCREMENTS AS A DP VECTOR SCALED AT ONE REVOLUTION(DTHETASM,+2,+4).  SIN,COS(CDUY,Z,X) ARE IN
058750,000282:                                                                                                  #  SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY, SCALED TO ONE HALF. CDU INCREENTS ARE PLACED IN DCDU,+2,+4 SCALED TO
058751,000283:                                                                                                  #  ONE REVOLUTION.
058752,000284: 
058753,000285:                                                                                                  #        *  COS(IGA)SEC(MGA)             0               -SIN(IGA)SEC(MGA) *
058754,000286:                                                                                                  #        *                                                                 *
058755,000287:                                                                                                  #        * -COS(IGA)TAN(MGA)             1                SIN(IGA)TAN(MGA) *
058756,000288:                                                                                                  #        *                                                                 *
058757,000289:                                                                                                  #        *      SIN(IGA)                 0                    COS(IGA)     *
058758,000290: 
058759,000291: 23,2000                                           SETLOC   POWFLIT1                              
058760,000292: 23,2000                                           BANK                                           
058761,000293: 23,3743                                           COUNT*   $$/POWFL                              
058762,000294: 23,3743           41345        SMCDURES           DLOAD    DMP                                   
058763,000295: 23,3744           03212                                    DTHETASM                              
058764,000296: 23,3745           01150                                    COSCDUY                               
058765,000297: 
058766,000298: 23,3746           41325                           PDDL     DMP                                   
058767,000299: 23,3747           03216                                    DTHETASM   +4                         
058768,000300: 23,3750           01142                                    SINCDUY                               
058769,000301: 
058770,000302: 23,3751           77621                           BDSU                                           
058771,000303: 23,3752           77671                           DDV                                            
058772,000304: 23,3753           01152                                    COSCDUZ                               
058773,000305: 23,3754           03204                           STORE    DCDU                                  
058774,000306: 
058775,000307: 23,3755           72405                           DMP      SL1                                   #  SCALE
058776,000308: 23,3756           01144                                    SINCDUZ                               
058777,000309: 23,3757           77621                           BDSU                                           
058778,000310: 
058779,000311: 23,3760           03214                                    DTHETASM   +2                         
058780,000312: 23,3761           17206                           STODL    DCDU       +2                         
058781,000313: 23,3762           03212                                    DTHETASM                              
058782,000314: 
058783,000315: 23,3763           65205                           DMP      PDDL                                  
058784,000316: 23,3764           01142                                    SINCDUY                               
058785,000317: 23,3765           03216                                    DTHETASM   +4                         
058786,000318: 
058787,000319: 23,3766           43205                           DMP      DAD                                   
058788,000320: 23,3767           01150                                    COSCDUY                               
058789,000321: 23,3770           77752                           SL1                                            
058790,000322: 23,3771           03210                           STORE    DCDU       +4                         
058791,000323: 23,3772           77616                           RVQ                                            

End of include-file POWERED_FLIGHT_SUBROUTINES.agc.  Parent file is MAIN.agc