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.

058456,000002:                                                                                                  ## Copyright:   Public domain.
058457,000003:                                                                                                  ## Filename:    POWERED_FLIGHT_SUBROUTINES.agc
058458,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
058459,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
058460,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
058461,000007:                                                                                                  ##              Apollo 15-17.
058462,000008:                                                                                                  ## Assembler:   yaYUL
058463,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
058464,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058465,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
058466,000012:                                                                                                  ## Mod history: 2009-08-21 JL   Adapted from corresponding Comanche 055 file.
058467,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
058468,000014:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55.
058469,000015: 

Page 1364

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

Page 1365

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

Page 1366

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

Page 1367

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

Page 1368

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

Page 1369

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

Page 1370

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

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