Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

052558,000002:                                                                                                  ## Copyright:   Public domain.
052559,000003:                                                                                                  ## Filename:    POWERED_FLIGHT_SUBROUTINES.agc
052560,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
052561,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
052562,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
052563,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
052564,000008:                                                                                                  ##              that the code format has been changed to conform to the
052565,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
052566,000010:                                                                                                  ##              original YUL assembler.
052567,000011:                                                                                                  ## Reference:   pp. 1251-1259
052568,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052569,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
052570,000014:                                                                                                  ## Mod history: 06/03/03 RSB.   Began transcribing.
052571,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
052572,000016:                                                                                                  ##              2010-10-25 JL   Indentation fixes.
052573,000017:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
052574,000018:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
052575,000019:                                                                                                  ##                              numbers in 1701.pdf.
052576,000020:                                                                                                  ##              2017-02-27 RSB  Proofed comment text using octopus/ProoferComments.
052577,000021:                                                                                                  ##              2017-03-01 RSB  Fixed lingering comment-text typos.
052578,000022:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
052579,000023:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
052580,000024:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
052581,000025:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
052582,000026:                                                                                                  ##                              Luminary 99 vs Comanche 55.
052583,000027: 

Page 1251

052585,000029: 14,3775                                           BANK     14                                    #  SAME FBANK AS THE FINDCDUD SUB-PROGRAM
052586,000030: 23,2000                                           SETLOC   POWFLITE                              
052587,000031: 23,2000                                           BANK                                           
052588,000032: 
052589,000033: 23,3541     0142                                  EBANK=   DEXDEX                                
052590,000034: 23,3541                                           COUNT*   $$/POWFL                              
052591,000035: 
052592,000036:                                                                                                  #  CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
052593,000037:                                                                                                  #  COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
052594,000038:                                                                                                  #  PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU.  AN
052595,000039:                                                                                                  #  ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT.  THESE
052596,000040:                                                                                                  #  ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
052597,000041:                                                                                                  #  EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2.  THEY DIFFER ONLY IN
052598,000042:                                                                                                  #  WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
052599,000043: 
052600,000044:                                                                                                  #  CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
052601,000045:                                                                                                  #  SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
052602,000046:                                                                                                  #  THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
052603,000047:                                                                                                  #  CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
052604,000048: 
052605,000049:                                                                                                  #  CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
052606,000050: 
052607,000051:                                                                                                  #  CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP.  THIS
052608,000052:                                                                                                  #  ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
052609,000053:                                                                                                  #  ANGLES IN AN ORDER OTHER THAN X Y Z.  A CALL TO THIS ROUTINE IS
052610,000054:                                                                                                  #  NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
052611,000055:                                                                                                  #  MODES (SMNB OR NBSM).  SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
052612,000056:                                                                                                  #  COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
052613,000057:                                                                                                  #  IN THIS ORDER.  CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
052614,000058:                                                                                                  #  MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED.  NOTE THAT SINCE
052615,000059:                                                                                                  #  IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
052616,000060:                                                                                                  #  CALLED USING BANKCALL.  SORRY.
052617,000061: 
052618,000062:                                                                                                  #  CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
052619,000063:                                                                                                  #  INTERPRETIVE.
052620,000064: 
052621,000065: 23,3541           77776        CDUTRIG            EXIT                                           
052622,000066: 23,3542           03551                           TC       CDUTRIGS                              
052623,000067: 23,3543           06042                           TC       INTPRET                               
052624,000068: 23,3544           77616                           RVQ                                            
052625,000069: 
052626,000070: 23,3545           77776        CD*TR*G            EXIT                                           
052627,000071: 23,3546           03557                           TC       CD*TR*GS                              
052628,000072: 23,3547           06042                           TC       INTPRET                               
052629,000073: 23,3550           77616                           RVQ                                            
052630,000074: 
052631,000075: 23,3551           30032        CDUTRIGS           CA       CDUX                                  
052632,000076: 23,3552           54771                           TS       CDUSPOT    +4                         
052633,000077: 23,3553           30033                           CA       CDUY                                  
052634,000078: 23,3554           54765                           TS       CDUSPOT                               

Page 1252

052636,000080: 23,3555           30034                           CA       CDUZ                                  
052637,000081: 23,3556           54767                           TS       CDUSPOT    +2                         
052638,000082: 
052639,000083: 23,3557           00006        CD*TR*GS           EXTEND                                         
052640,000084: 23,3560           22142                           QXCH     TEM2                                  
052641,000085: 23,3561           34751                           CAF      FOUR                                  
052642,000086: 23,3562           76245        TR*GL**P           MASK     SIX                                   #  MAKE IT EVEN AND SMALLER
052643,000087: 23,3563           54143                           TS       TEM3                                  
052644,000088: 23,3564           50143                           INDEX    TEM3                                  
052645,000089: 23,3565           30765                           CA       CDUSPOT                               
052646,000090: 23,3566           52155                           DXCH     MPAC                                  #  STORING 2'S COMP ANGLE, LOADING MPAC
052647,000091: 23,3567           52127                           DXCH     VBUF       +4                         #  STORING MPAC FOR LATER RESTORATION
052648,000092: 23,3570           04713                           TC       USPRCADR                              
052649,000093: 23,3571           21577                           CADR     CDULOGIC                              
052650,000094: 23,3572           00006                           EXTEND                                         
052651,000095: 23,3573           30155                           DCA      MPAC                                  
052652,000096: 23,3574           50143                           INDEX    TEM3                                  
052653,000097: 23,3575           52766                           DXCH     CDUSPOT                               #  STORING 1'S COMPLEMENT ANGLE
052654,000098: 23,3576           04713                           TC       USPRCADR                              
052655,000099: 23,3577           01517                           CADR     COSINE                                
052656,000100: 23,3600           52155                           DXCH     MPAC                                  
052657,000101: 23,3601           50143                           INDEX    TEM3                                  
052658,000102: 23,3602           52744                           DXCH     COSCDU                                #  STORING COSINE
052659,000103: 23,3603           00006                           EXTEND                                         
052660,000104: 23,3604           50143                           INDEX    TEM3                                  
052661,000105: 23,3605           30766                           DCA      CDUSPOT                               #  LOADING 1'S COMPLEMENT ANGLE
052662,000106: 23,3606           04713                           TC       USPRCADR                              
052663,000107: 23,3607           01531                           CADR     SINE       +1                         #  SINE +1 EXPECTS ARGUMENT IN A AND L
052664,000108: 23,3610           52127                           DXCH     VBUF       +4                         #  BRINGING UP PRIOR MPAC TO BE RESTORED
052665,000109: 23,3611           52155                           DXCH     MPAC                                  
052666,000110: 23,3612           50143                           INDEX    TEM3                                  
052667,000111: 23,3613           52736                           DXCH     SINCDU                                
052668,000112: 23,3614           10143                           CCS      TEM3                                  
052669,000113: 23,3615           13562                           TCF      TR*GL**P                              
052670,000114: 23,3616           00142                           TC       TEM2                                  

Page 1253

052672,000116:                                                                                                  #  ****************************************************************************************************************
052673,000117:                                                                                                  #  QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
052674,000118:                                                                                                  #  QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
052675,000119:                                                                                                  #  AND CDUSPOT +4.  UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
052676,000120:                                                                                                  #  CDUSPOT.  QUICTRIG'S EXECUTION TIME IS 4.1 MS;  THIS IS 10 TIMES AS FAST AS CD*TR*GS.  QUICTRIG MAY BE
052677,000121:                                                                                                  #  CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
052678,000122: 
052679,000123: 23,3617           00004        QUICTRIG           INHINT                                         #  INHINT SINCE DAP USES THE SAME TEMPS
052680,000124: 23,3620           00006                           EXTEND                                         
052681,000125: 23,3621           22061                           QXCH     ITEMP1                                
052682,000126: 23,3622           34751                           CAF      FOUR                                  
052683,000127: 23,3623           76245                 +4        MASK     SIX                                   
052684,000128: 23,3624           54062                           TS       ITEMP2                                
052685,000129: 23,3625           50062                           INDEX    ITEMP2                                
052686,000130: 23,3626           30765                           CA       CDUSPOT                               
052687,000131: 23,3627           05033                           TC       SPSIN                                 
052688,000132: 23,3630           00006                           EXTEND                                         
052689,000133: 23,3631           74736                           MP       BIT14                                 #  SCALE DOWN TO MATCH INTERPRETER OUTPUTS
052690,000134: 23,3632           50062                           INDEX    ITEMP2                                
052691,000135: 23,3633           52736                           DXCH     SINCDU                                
052692,000136: 23,3634           50062                           INDEX    ITEMP2                                
052693,000137: 23,3635           30765                           CA       CDUSPOT                               
052694,000138: 23,3636           05032                           TC       SPCOS                                 
052695,000139: 23,3637           00006                           EXTEND                                         
052696,000140: 23,3640           74736                           MP       BIT14                                 
052697,000141: 23,3641           50062                           INDEX    ITEMP2                                
052698,000142: 23,3642           52744                           DXCH     COSCDU                                
052699,000143: 23,3643           10062                           CCS      ITEMP2                                
052700,000144: 23,3644           13623                           TCF      QUICTRIG   +4                         
052701,000145: 23,3645           30061                           CA       ITEMP1                                
052702,000146: 23,3646           00003                           RELINT                                         
052703,000147: 23,3647           00000                           TC       A                                     
052704,000148: 

Page 1254

052706,000150:                                                                                                  #  ****************************************************************************************************************
052707,000151:                                                                                                  #  THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
052708,000152:                                                                                                  #  INTERPRETIVE.  LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
052709,000153: 
052710,000154:                                                                                                  #  THESE INTERFACE ROUTINES ARE PERMANENT.  ALL RESTORE USER'S EBANK
052711,000155:                                                                                                  #  SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
052712,000156:                                                                                                  #  RETURNING VIA QPRET.  ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
052713,000157:                                                                                                  #  MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
052714,000158: 
052715,000159:                                                                                                  #  TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
052716,000160:                                                                                                  #  AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
052717,000161:                                                                                                  #  LOCATIONS NEED NOT BE ZEROED).  TRG*NBSM DOES THE NB TO SM TRANSFOR-
052718,000162:                                                                                                  #  MATION; TRG*SMNB, VICE VERSA.
052719,000163: 
052720,000164:                                                                                                  #  CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
052721,000165:                                                                                                  #  THE CDU COUNTERS.  OTHERWISE IT IS LIKE TRG*NBSM.
052722,000166: 
052723,000167:                                                                                                  #  CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
052724,000168: 
052725,000169: 23,3650           77776        CDU*SMNB           EXIT                                           
052726,000170: 23,3651           03551                           TC       CDUTRIGS                              
052727,000171: 23,3652           13655                           TCF      C*MM*N1                               
052728,000172: 
052729,000173: 23,3653           77776        TRG*SMNB           EXIT                                           
052730,000174: 23,3654           03557                           TC       CD*TR*GS                              
052731,000175: 23,3655           07535        C*MM*N1            TC       MPACVBUF                              #  AX*SR*T EXPECTS VECTOR IN VBUF
052732,000176: 23,3656           46250                           CS       THREE                                 #  SIGNAL FOR SM TO NB TRANSFORMATION
052733,000177: 23,3657           03677        C*MM*N2            TC       AX*SR*T                               
052734,000178: 23,3660           06042                           TC       INTPRET                               
052735,000179: 23,3661           43575                           VLOAD    RVQ                                   
052736,000180: 23,3662           00123                                    VBUF                                  
052737,000181: 
052738,000182: 23,3663           77776        CDU*NBSM           EXIT                                           
052739,000183: 23,3664           03551                           TC       CDUTRIGS                              
052740,000184: 23,3665           13670                           TCF      C*MM*N3                               
052741,000185: 
052742,000186: 23,3666           77776        TRG*NBSM           EXIT                                           
052743,000187: 23,3667           03557                           TC       CD*TR*GS                              
052744,000188: 23,3670           07535        C*MM*N3            TC       MPACVBUF                              #  FOR AX*SR*T
052745,000189: 23,3671           36250                           CA       THREE                                 #  SIGNAL FOR NB TO SM TRANSFORMATION
052746,000190: 23,3672           13657                           TCF      C*MM*N2                               
052747,000191: 
052748,000192:                                                                                                  #  *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
052749,000193:                                                                                                  #  AND COSCDU) RATHER THAN THE ANGLES THEMSELVES.  OTHERWISE THEY ARE
052750,000194:                                                                                                  #  LIKE TRG*NBSM AND TRG*SMNB.
052751,000195: 
052752,000196:                                                                                                  #  NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
052753,000197:                                                                                                  #  OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM

Page 1255

052755,000199:                                                                                                  #  AND TRG*SMNB NEED BE CALLED FOR EACH SERIES.  FOR SUBSEQUENT TRANSFOR-
052756,000200:                                                                                                  #  MATIONS USE *NBSM* AND *SMNB*.
052757,000201: 
052758,000202: 23,3673           77776        *SMNB*             EXIT                                           
052759,000203: 23,3674           13655                           TCF      C*MM*N1                               
052760,000204: 
052761,000205: 23,3675           77776        *NBSM*             EXIT                                           
052762,000206: 23,3676           13670                           TCF      C*MM*N3                               
052763,000207: 
052764,000208:                                                                                                  #  AX*SR*T COMBINES THE OLD SMNB AND NBSM.  FOR THE NB TO SM
052765,000209:                                                                                                  #  TRANSFORMATION, ENTER WITH +3 IN A.  FOR SM TO NB, ENTER WITH -3.
052766,000210:                                                                                                  #  THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
052767,000211:                                                                                                  #  AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
052768,000212:                                                                                                  #  AT SINCDU AND COSCDU, IN THE ORDER Y Z X.  A CALL TO CD*TR*GS, WITH
052769,000213:                                                                                                  #  THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
052770,000214:                                                                                                  #  THIS.  HERE IS A SAMPLE CALLING SEQUENCE:-
052771,000215:                                                                                                  #                TC      CDUTRIGS
052772,000216:                                                                                                  #                CS      THREE           ("CA THREE" FOR NBSM)
052773,000217:                                                                                                  #                TC      AX*SR*T
052774,000218:                                                                                                  #  THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
052775,000219:                                                                                                  #  THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
052776,000220: 
052777,000221:                                                                                                  #  AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
052778,000222:                                                                                                  #  UNITY.  A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
052779,000223:                                                                                                  #  HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
052780,000224:                                                                                                  #  FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
052781,000225: 
052782,000226: 23,3677           54142        AX*SR*T            TS       DEXDEX                                #  WHERE IT BECOMES THE INDEX OF INDEXES
052783,000227: 23,3700           00006                           EXTEND                                         
052784,000228: 23,3701           22145                           QXCH     RTNSAVER                              
052785,000229: 
052786,000230: 23,3702           10142        R*TL**P            CCS      DEXDEX                                #                +3 --> 0        -3 --> 2
052787,000231: 23,3703           40142                           CS       DEXDEX                                #  THUS:         +2 --> 1        -2 --> 1
052788,000232: 23,3704           66250                           AD       THREE                                 #                +1 --> 2        -1 --> 0
052789,000233: 23,3705           00006                           EXTEND                                         
052790,000234: 23,3706           50000                           INDEX    A                                     
052791,000235: 23,3707           33766                           DCA      INDEXI                                
052792,000236: 23,3710           52144                           DXCH     DEXI                                  
052793,000237: 
052794,000238: 23,3711           34753                           CA       ONE                                   
052795,000239: 23,3712           54130                           TS       BUF                                   
052796,000240: 23,3713           00006                           EXTEND                                         
052797,000241: 23,3714           50143                           INDEX    DEX1                                  
052798,000242: 23,3715           40123                           DCS      VBUF                                  
052799,000243: 23,3716           13720                           TCF      LOOP1                                 #  REALLY BE A SUBTRACT, AND VICE VERSA
052800,000244: 
052801,000245: 23,3717           52131        LOOP2              DXCH     BUF                                   #  LOADING VECTOR COMPONENT, STORING INDEX

Page 1256

052803,000247: 23,3720           52155        LOOP1              DXCH     MPAC                                  
052804,000248: 23,3721           33764                           CA       SINSLOC                               
052805,000249: 23,3722           60143                           AD       DEX1                                  
052806,000250: 23,3723           54116                           TS       ADDRWD                                
052807,000251: 
052808,000252: 23,3724           07112                           TC       DMPSUB                                #  MULTIPLY BY SIN(CDUANGLE)
052809,000253: 23,3725           10142                           CCS      DEXDEX                                
052810,000254: 23,3726           52155                           DXCH     MPAC                                  #  NBSM CASE
052811,000255: 23,3727           13732                           TCF      +3                                    
052812,000256: 23,3730           00006                           EXTEND                                         #  SMNB CASE
052813,000257: 23,3731           40155                           DCS      MPAC                                  
052814,000258: 23,3732           52160                           DXCH     TERM1TMP                              
052815,000259: 
052816,000260: 23,3733           36245                           CA       SIX                                   #  SINCDU AND COSCDU (EACH 6 WORDS) MUST
052817,000261: 23,3734           26116                           ADS      ADDRWD                                #        BE CONSECUTIVE AND IN THAT ORDER
052818,000262: 
052819,000263: 23,3735           00006                           EXTEND                                         
052820,000264: 23,3736           50130                           INDEX    BUF                                   
052821,000265: 23,3737           50143                           INDEX    DEX1                                  
052822,000266: 23,3740           30123                           DCA      VBUF                                  
052823,000267: 23,3741           52155                           DXCH     MPAC                                  
052824,000268: 23,3742           07112                           TC       DMPSUB                                #  MULTIPLY BY COS(CDUANGLE)
052825,000269: 23,3743           52155                           DXCH     MPAC                                  
052826,000270: 23,3744           20160                           DAS      TERM1TMP                              
052827,000271: 23,3745           52160                           DXCH     TERM1TMP                              
052828,000272: 23,3746           20001                           DDOUBL                                         
052829,000273: 23,3747           50130                           INDEX    BUF                                   
052830,000274: 23,3750           50143                           INDEX    DEX1                                  
052831,000275: 23,3751           52123                           DXCH     VBUF                                  
052832,000276: 23,3752           52131                           DXCH     BUF                                   #  LOADING INDEX, STORING VECTOR COMPONENT
052833,000277: 23,3753           10000                           CCS      A                                     #  'CAUSE THAT'S WHERE THE INDEX NOW IS
052834,000278: 23,3754           13717                           TCF      LOOP2                                 
052835,000279: 
052836,000280: 23,3755           00006                           EXTEND                                         
052837,000281: 23,3756           26142                           DIM      DEXDEX                                #  DECREMENT MAGNITUDE PRESERVING SIGN
052838,000282: 
052839,000283: 23,3757           10142        TSTPOINT           CCS      DEXDEX                                #  ONLY THE BRANCHING FUNCTION IS USED
052840,000284: 23,3760           13702                           TCF      R*TL**P                               
052841,000285: 23,3761           00145                           TC       RTNSAVER                              
052842,000286: 23,3762           13702                           TCF      R*TL**P                               
052843,000287: 23,3763           00145                           TC       RTNSAVER                              
052844,000288: 
052845,000289: 23,3764           00735        SINSLOC            ADRES    SINCDU                                #  FOR USE IN SETTING ADDRWD
052846,000290: 
052847,000291: 23,3765           00004        INDEXI             DEC      4          B-14                       #  **********   DON'T   **********
052848,000292: 23,3766           00002                           DEC      2          B-14                       #  **********   TOUCH   **********
052849,000293: 23,3767           00000                           DEC      0          B-14                       #  **********   THESE   **********

Page 1257

052851,000295: 23,3770           00004                           DEC      4          B-14                       #  ********** CONSTANTS **********
052852,000296: 
052853,000297:                                                                                                  #  ****************************************************************************************************************
052854,000298: 
052855,000299: 10,2030                                           BANK     10                                    
052856,000300: 10,2000                                           SETLOC   FLESHLOC                              
052857,000301: 10,2000                                           BANK                                           
052858,000302: 10,2030                                           COUNT*   $$/POWFL                              
052859,000303: 
052860,000304:                                                                                                  #  ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
052861,000305:                                                                                                  #  IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
052862,000306: 
052863,000307: 10,2030           77776        CALCSMSC           EXIT                                           
052864,000308: 10,2031           04616                           TC       BANKCALL                              
052865,000309: 10,2032           20036                           CADR     FLESHPOT   -1                         
052866,000310: 10,2033           06042                           TC       INTPRET                               
052867,000311: 10,2034           77616                           RVQ                                            
052868,000312: 
052869,000313: 10,2035           02664        XNBECADR           ECADR    XNB                                   
052870,000314: 
052871,000315: 10,2036           32035                 -1        CAF      XNBECADR                              
052872,000316: 
052873,000317: 10,2037           54142        FLESHPOT           TS       TEM2                                  
052874,000318: 10,2040           56003                           XCH      EBANK                                 
052875,000319: 10,2041           56142                           XCH      TEM2                                  
052876,000320: 10,2042           74357                           MASK     LOW8                                  
052877,000321: 10,2043           65007                           AD       OCT1400                               
052878,000322: 10,2044           54141                           TS       TEM1                                  
052879,000323: 
052880,000324: 10,2045           00006                           EXTEND                                         
052881,000325: 10,2046           30744                           DCA      COSCDUY                               
052882,000326: 10,2047           52155                           DXCH     MPAC                                  
052883,000327: 10,2050           07106                           TC       DMP                                   
052884,000328: 10,2051           00745                           ADRES    COSCDUZ                               
052885,000329: 10,2052           52155                           DXCH     MPAC                                  
052886,000330: 10,2053           20001                           DDOUBL                                         
052887,000331: 10,2054           50141                           INDEX    TEM1                                  
052888,000332: 10,2055           52001                           DXCH     0                                     #  = COSY COSZ
052889,000333: 
052890,000334: 10,2056           00006                           EXTEND                                         
052891,000335: 10,2057           30740                           DCA      SINCDUZ                               
052892,000336: 10,2060           50141                           INDEX    TEM1                                  
052893,000337: 10,2061           52003                           DXCH     2                                     #  = SINZ
052894,000338: 
052895,000339: 10,2062           00006                           EXTEND                                         
052896,000340: 10,2063           40736                           DCS      SINCDUY                               
052897,000341: 10,2064           52155                           DXCH     MPAC                                  
052898,000342: 10,2065           07112                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUZ

Page 1258

052900,000344: 10,2066           52155                           DXCH     MPAC                                  
052901,000345: 10,2067           20001                           DDOUBL                                         
052902,000346: 10,2070           50141                           INDEX    TEM1                                  
052903,000347: 10,2071           52005                           DXCH     4                                     #  = - SINY COSZ
052904,000348: 
052905,000349: 10,2072           00006                           EXTEND                                         
052906,000350: 10,2073           40742                           DCS      SINCDUX                               
052907,000351: 10,2074           52155                           DXCH     MPAC                                  
052908,000352: 10,2075           07112                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUZ STILL
052909,000353: 10,2076           52155                           DXCH     MPAC                                  
052910,000354: 10,2077           20001                           DDOUBL                                         
052911,000355: 10,2100           52160                           DXCH     MPAC       +3                         
052912,000356: 
052913,000357: 10,2101           00006                           EXTEND                                         
052914,000358: 10,2102           40742                           DCS      SINCDUX                               
052915,000359: 10,2103           52155                           DXCH     MPAC                                  
052916,000360: 10,2104           07106                           TC       DMP                                   
052917,000361: 10,2105           00737                           ADRES    SINCDUZ                               
052918,000362: 10,2106           00006                           EXTEND                                         
052919,000363: 10,2107           40155                           DCS      MPAC                                  
052920,000364: 10,2110           52162                           DXCH     MPAC       +5                         
052921,000365: 10,2111           07106                           TC       DMP                                   
052922,000366: 10,2112           00735                           ADRES    SINCDUY                               
052923,000367: 10,2113           52155                           DXCH     MPAC                                  
052924,000368: 10,2114           20001                           DDOUBL                                         
052925,000369: 10,2115           20001                           DDOUBL                                         
052926,000370: 10,2116           52162                           DXCH     MPAC       +5                         
052927,000371: 
052928,000372: 10,2117           52155                           DXCH     MPAC                                  
052929,000373: 10,2120           07106                           TC       DMP                                   
052930,000374: 10,2121           00743                           ADRES    COSCDUY                               
052931,000375: 10,2122           52155                           DXCH     MPAC                                  
052932,000376: 10,2123           20001                           DDOUBL                                         
052933,000377: 10,2124           20001                           DDOUBL                                         
052934,000378: 10,2125           52131                           DXCH     BUF                                   
052935,000379: 
052936,000380: 10,2126           00006                           EXTEND                                         
052937,000381: 10,2127           30744                           DCA      COSCDUY                               
052938,000382: 10,2130           52155                           DXCH     MPAC                                  
052939,000383: 10,2131           07106                           TC       DMP                                   
052940,000384: 10,2132           00747                           ADRES    COSCDUX                               
052941,000385: 10,2133           52155                           DXCH     MPAC                                  
052942,000386: 10,2134           20001                           DDOUBL                                         
052943,000387: 10,2135           20162                           DAS      MPAC       +5                         
052944,000388: 
052945,000389: 10,2136           00006                           EXTEND                                         
052946,000390: 10,2137           30736                           DCA      SINCDUY                               
052947,000391: 10,2140           52155                           DXCH     MPAC                                  
052948,000392: 10,2141           07112                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUX
052949,000393: 10,2142           52155                           DXCH     MPAC                                  
052950,000394: 

Page 1259

052952,000396: 10,2143           20001                           DDOUBL                                         
052953,000397: 10,2144           20131                           DAS      BUF                                   
052954,000398: 
052955,000399: 10,2145           52131                           DXCH     BUF                                   
052956,000400: 10,2146           52155                           DXCH     MPAC                                  
052957,000401: 
052958,000402: 10,2147           00006                           EXTEND                                         
052959,000403: 10,2150           30155                           DCA      MPAC                                  
052960,000404: 10,2151           50141                           INDEX    TEM1                                  
052961,000405: 10,2152           52015                           DXCH     14                                    #  = SINY COSX + SINX SINZ COSY
052962,000406: 
052963,000407: 10,2153           00006                           EXTEND                                         
052964,000408: 10,2154           30160                           DCA      MPAC       +3                         
052965,000409: 10,2155           50141                           INDEX    TEM1                                  
052966,000410: 10,2156           52017                           DXCH     16                                    #  = - SINX COSZ
052967,000411: 
052968,000412: 10,2157           00006                           EXTEND                                         
052969,000413: 10,2160           30162                           DCA      MPAC       +5                         
052970,000414: 10,2161           50141                           INDEX    TEM1                                  
052971,000415: 10,2162           52021                           DXCH     20                                    #  = COSX COSY - SINX SINY SINZ
052972,000416: 
052973,000417: 10,2163           30141                           CA       TEM1                                  
052974,000418: 10,2164           54116                           TS       ADDRWD                                
052975,000419: 10,2165           00006                           EXTEND                                         
052976,000420: 10,2166           30006                           DCA      Z                                     
052977,000421: 10,2167           64751                           AD       FOUR                                  
052978,000422: 10,2170           52165                           DXCH     LOC                                   
052979,000423: 10,2171           34744                           CAF      BIT8                                  
052980,000424: 10,2172           54023                           TS       EDOP                                  
052981,000425: 10,2173           17463                           TCF      VXV                                   
052982,000426: 10,2174           52155                           DXCH     MPAC                                  
052983,000427: 10,2175           20001                           DDOUBL                                         
052984,000428: 10,2176           50141                           INDEX    TEM1                                  
052985,000429: 10,2177           52007                           DXCH     6                                     
052986,000430: 
052987,000431: 10,2200           52160                           DXCH     MPAC       +3                         
052988,000432: 10,2201           20001                           DDOUBL                                         
052989,000433: 10,2202           50141                           INDEX    TEM1                                  
052990,000434: 10,2203           52011                           DXCH     10                                    
052991,000435: 
052992,000436: 10,2204           52162                           DXCH     MPAC       +5                         
052993,000437: 10,2205           20001                           DDOUBL                                         
052994,000438: 10,2206           50141                           INDEX    TEM1                                  
052995,000439: 10,2207           52013                           DXCH     12                                    
052996,000440: 
052997,000441: 10,2210           30142                           CA       TEM2                                  
052998,000442: 10,2211           54003                           TS       EBANK                                 
052999,000443: 10,2212           14631                           TCF      SWRETURN                              
053000,000444: 

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