Source Code

These source-code files are part of a reconstructed copy of Luminary 98, a development version of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Luminary 99 revision 1 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes described in original Luminary memo 85, using asterisks indicating changed lines in the listing as a guide. While no listing of this version is known to exist, nor are the memory-bank checksums available, the reconstruction is believed to be correct because it was an an intermediate step in reconstructing Luminary 97 whose reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152G. Note that page numbers in the reconstructed code match those on the Luminary 099 revision 001 printout, although the added code would likely have changed page numbers for a real Luminary 98 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

052548,000002:                                                                                                  ## Copyright:   Public domain.
052549,000003:                                                                                                  ## Filename:    POWERED_FLIGHT_SUBROUTINES.agc
052550,000004:                                                                                                  ## Purpose:     A section of Luminary revision 98.
052551,000005:                                                                                                  ##              It is part of the reconstructed source code for the a
052552,000006:                                                                                                  ##              development version of the flight software for the Lunar 
052553,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
052554,000008:                                                                                                  ##              The code has been recreated from a copy of Luminary 99
052555,000009:                                                                                                  ##              revision 001, using asterisks indicating changed lines in
052556,000010:                                                                                                  ##              the listing and Luminary Memo #85, which lists changes between
052557,000011:                                                                                                  ##              Luminary 98 and 99.
052558,000012:                                                                                                  ## Reference:   pp. 1259-1267
052559,000013:                                                                                                  ## Assembler:   yaYUL
052560,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052561,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
052562,000016:                                                                                                  ## Mod history: 2019-07-28 MAS  Created from Luminary 99.
052563,000017:                                                                                                  ##              2021-05-30 ABS  SINSLOC -> SINESLOC
052564,000018: 

Page 1259

052566,000020: 14,3774                                           BANK     14                                    #  SAME FBANK AS THE FINDCDUD SUB-PROGRAM
052567,000021: 23,2000                                           SETLOC   POWFLITE                              
052568,000022: 23,2000                                           BANK                                           
052569,000023: 
052570,000024: 23,3537     0142                                  EBANK=   DEXDEX                                
052571,000025: 23,3537                                           COUNT*   $$/POWFL                              
052572,000026: 
052573,000027:                                                                                                  #  CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
052574,000028:                                                                                                  #  COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
052575,000029:                                                                                                  #  PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU.  AN
052576,000030:                                                                                                  #  ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT.  THESE
052577,000031:                                                                                                  #  ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
052578,000032:                                                                                                  #  EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2.  THEY DIFFER ONLY IN
052579,000033:                                                                                                  #  WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
052580,000034: 
052581,000035:                                                                                                  #  CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
052582,000036:                                                                                                  #  SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
052583,000037:                                                                                                  #  THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
052584,000038:                                                                                                  #  CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
052585,000039: 
052586,000040:                                                                                                  #  CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
052587,000041: 
052588,000042:                                                                                                  #  CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP.  THIS
052589,000043:                                                                                                  #  ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
052590,000044:                                                                                                  #  ANGLES IN AN ORDER OTHER THAN X Y Z.  A CALL TO THIS ROUTINE IS
052591,000045:                                                                                                  #  NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
052592,000046:                                                                                                  #  MODES (SMNB OR NBSM).  SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
052593,000047:                                                                                                  #  COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
052594,000048:                                                                                                  #  IN THIS ORDER.  CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
052595,000049:                                                                                                  #  MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED.  NOTE THAT SINCE
052596,000050:                                                                                                  #  IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
052597,000051:                                                                                                  #  CALLED USING BANKCALL.  SORRY.
052598,000052: 
052599,000053:                                                                                                  #  CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
052600,000054:                                                                                                  #  INTERPRETIVE.
052601,000055: 
052602,000056: 23,3537           77776        CDUTRIG            EXIT                                           
052603,000057: 23,3540           03547                           TC       CDUTRIGS                              
052604,000058: 23,3541           06037                           TC       INTPRET                               
052605,000059: 23,3542           77616                           RVQ                                            
052606,000060: 
052607,000061: 23,3543           77776        CD*TR*G            EXIT                                           
052608,000062: 23,3544           03555                           TC       CD*TR*GS                              
052609,000063: 23,3545           06037                           TC       INTPRET                               
052610,000064: 23,3546           77616                           RVQ                                            
052611,000065: 
052612,000066: 23,3547           30032        CDUTRIGS           CA       CDUX                                  
052613,000067: 23,3550           54772                           TS       CDUSPOT    +4                         
052614,000068: 23,3551           30033                           CA       CDUY                                  
052615,000069: 23,3552           54766                           TS       CDUSPOT                               

Page 1260

052617,000071: 23,3553           30034                           CA       CDUZ                                  
052618,000072: 23,3554           54770                           TS       CDUSPOT    +2                         
052619,000073: 
052620,000074: 23,3555           00006        CD*TR*GS           EXTEND                                         
052621,000075: 23,3556           22142                           QXCH     TEM2                                  
052622,000076: 23,3557           34751                           CAF      FOUR                                  
052623,000077: 23,3560           76242        TR*GL**P           MASK     SIX                                   #  MAKE IT EVEN AND SMALLER
052624,000078: 23,3561           54143                           TS       TEM3                                  
052625,000079: 23,3562           50143                           INDEX    TEM3                                  
052626,000080: 23,3563           30766                           CA       CDUSPOT                               
052627,000081: 23,3564           52155                           DXCH     MPAC                                  #  STORING 2'S COMP ANGLE, LOADING MPAC
052628,000082: 23,3565           52127                           DXCH     VBUF       +4                         #  STORING MPAC FOR LATER RESTORATION
052629,000083: 23,3566           04713                           TC       USPRCADR                              
052630,000084: 23,3567           21576                           CADR     CDULOGIC                              
052631,000085: 23,3570           00006                           EXTEND                                         
052632,000086: 23,3571           30155                           DCA      MPAC                                  
052633,000087: 23,3572           50143                           INDEX    TEM3                                  
052634,000088: 23,3573           52767                           DXCH     CDUSPOT                               #  STORING 1'S COMPLEMENT ANGLE
052635,000089: 23,3574           04713                           TC       USPRCADR                              
052636,000090: 23,3575           01517                           CADR     COSINE                                
052637,000091: 23,3576           52155                           DXCH     MPAC                                  
052638,000092: 23,3577           50143                           INDEX    TEM3                                  
052639,000093: 23,3600           52745                           DXCH     COSCDU                                #  STORING COSINE
052640,000094: 23,3601           00006                           EXTEND                                         
052641,000095: 23,3602           50143                           INDEX    TEM3                                  
052642,000096: 23,3603           30767                           DCA      CDUSPOT                               #  LOADING 1'S COMPLEMENT ANGLE
052643,000097: 23,3604           04713                           TC       USPRCADR                              
052644,000098: 23,3605           01531                           CADR     SINE       +1                         #  SINE +1 EXPECTS ARGUMENT IN A AND L
052645,000099: 23,3606           52127                           DXCH     VBUF       +4                         #  BRINGING UP PRIOR MPAC TO BE RESTORED
052646,000100: 23,3607           52155                           DXCH     MPAC                                  
052647,000101: 23,3610           50143                           INDEX    TEM3                                  
052648,000102: 23,3611           52737                           DXCH     SINCDU                                
052649,000103: 23,3612           10143                           CCS      TEM3                                  
052650,000104: 23,3613           13560                           TCF      TR*GL**P                              
052651,000105: 23,3614           00142                           TC       TEM2                                  

Page 1261

052653,000107:                                                                                                  #  ****************************************************************************************************************
052654,000108:                                                                                                  #  QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
052655,000109:                                                                                                  #  QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
052656,000110:                                                                                                  #  AND CDUSPOT +4.  UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
052657,000111:                                                                                                  #  CDUSPOT.  QUICTRIG'S EXECUTION TIME IS 4.1 MS;  THIS IS 10 TIMES AS FAST AS CD*TR*GS.  QUICTRIG MAY BE
052658,000112:                                                                                                  #  CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
052659,000113: 
052660,000114: 23,3615           00004        QUICTRIG           INHINT                                         #  INHINT SINCE DAP USES THE SAME TEMPS
052661,000115: 23,3616           00006                           EXTEND                                         
052662,000116: 23,3617           22061                           QXCH     ITEMP1                                
052663,000117: 23,3620           34751                           CAF      FOUR                                  
052664,000118: 23,3621           76242                 +4        MASK     SIX                                   
052665,000119: 23,3622           54062                           TS       ITEMP2                                
052666,000120: 23,3623           50062                           INDEX    ITEMP2                                
052667,000121: 23,3624           30766                           CA       CDUSPOT                               
052668,000122: 23,3625           05033                           TC       SPSIN                                 
052669,000123: 23,3626           00006                           EXTEND                                         
052670,000124: 23,3627           74736                           MP       BIT14                                 #  SCALE DOWN TO MATCH INTERPRETER OUTPUTS
052671,000125: 23,3630           50062                           INDEX    ITEMP2                                
052672,000126: 23,3631           52737                           DXCH     SINCDU                                
052673,000127: 23,3632           50062                           INDEX    ITEMP2                                
052674,000128: 23,3633           30766                           CA       CDUSPOT                               
052675,000129: 23,3634           05032                           TC       SPCOS                                 
052676,000130: 23,3635           00006                           EXTEND                                         
052677,000131: 23,3636           74736                           MP       BIT14                                 
052678,000132: 23,3637           50062                           INDEX    ITEMP2                                
052679,000133: 23,3640           52745                           DXCH     COSCDU                                
052680,000134: 23,3641           10062                           CCS      ITEMP2                                
052681,000135: 23,3642           13621                           TCF      QUICTRIG   +4                         
052682,000136: 23,3643           30061                           CA       ITEMP1                                
052683,000137: 23,3644           00003                           RELINT                                         
052684,000138: 23,3645           00000                           TC       A                                     
052685,000139: 

Page 1262

052687,000141:                                                                                                  #  ****************************************************************************************************************
052688,000142:                                                                                                  #  THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
052689,000143:                                                                                                  #  INTERPRETIVE.  LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
052690,000144: 
052691,000145:                                                                                                  #  THESE INTERFACE ROUTINES ARE PERMANENT.  ALL RESTORE USER'S EBANK
052692,000146:                                                                                                  #  SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
052693,000147:                                                                                                  #  RETURNING VIA QPRET.  ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
052694,000148:                                                                                                  #  MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
052695,000149: 
052696,000150:                                                                                                  #  TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
052697,000151:                                                                                                  #  AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
052698,000152:                                                                                                  #  LOCATIONS NEED NOT BE ZEROED).  TRG*NBSM DOES THE NB TO SM TRANSFOR-
052699,000153:                                                                                                  #  MATION;  TRG*SMNB, VICE VERSA.
052700,000154: 
052701,000155:                                                                                                  #  CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
052702,000156:                                                                                                  #  THE CDU COUNTERS.  OTHERWISE IT IS LIKE TRG*NBSM.
052703,000157: 
052704,000158:                                                                                                  #  CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
052705,000159: 
052706,000160: 23,3646           77776        CDU*SMNB           EXIT                                           
052707,000161: 23,3647           03547                           TC       CDUTRIGS                              
052708,000162: 23,3650           13653                           TCF      C*MM*N1                               
052709,000163: 
052710,000164: 23,3651           77776        TRG*SMNB           EXIT                                           
052711,000165: 23,3652           03555                           TC       CD*TR*GS                              
052712,000166: 23,3653           07532        C*MM*N1            TC       MPACVBUF                              #  AX*SR*T EXPECTS VECTOR IN VBUF
052713,000167: 23,3654           46245                           CS       THREE                                 #  SIGNAL FOR SM TO NB TRANSFORMATION
052714,000168: 23,3655           03675        C*MM*N2            TC       AX*SR*T                               
052715,000169: 23,3656           06037                           TC       INTPRET                               
052716,000170: 23,3657           43575                           VLOAD    RVQ                                   
052717,000171: 23,3660           00123                                    VBUF                                  
052718,000172: 
052719,000173: 23,3661           77776        CDU*NBSM           EXIT                                           
052720,000174: 23,3662           03547                           TC       CDUTRIGS                              
052721,000175: 23,3663           13666                           TCF      C*MM*N3                               
052722,000176: 
052723,000177: 23,3664           77776        TRG*NBSM           EXIT                                           
052724,000178: 23,3665           03555                           TC       CD*TR*GS                              
052725,000179: 23,3666           07532        C*MM*N3            TC       MPACVBUF                              #  FOR AX*SR*T
052726,000180: 23,3667           36245                           CA       THREE                                 #  SIGNAL FOR NB TO SM TRANSFORMATION
052727,000181: 23,3670           13655                           TCF      C*MM*N2                               
052728,000182: 
052729,000183:                                                                                                  #  *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
052730,000184:                                                                                                  #  AND COSCDU) RATHER THAN THE ANGLES THEMSELVES.  OTHERWISE THEY ARE
052731,000185:                                                                                                  #  LIKE TRG*NBSM AND TRG*SMNB.
052732,000186: 
052733,000187:                                                                                                  #  NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
052734,000188:                                                                                                  #  OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM

Page 1263

052736,000190:                                                                                                  #  AND TRG*SMNB NEED BE CALLED FOR EACH SERIES.  FOR SUBSEQUENT TRANSFOR-
052737,000191:                                                                                                  #  MATIONS USE *NBSM* AND *SMNB*.
052738,000192: 
052739,000193: 23,3671           77776        *SMNB*             EXIT                                           
052740,000194: 23,3672           13653                           TCF      C*MM*N1                               
052741,000195: 
052742,000196: 23,3673           77776        *NBSM*             EXIT                                           
052743,000197: 23,3674           13666                           TCF      C*MM*N3                               
052744,000198: 
052745,000199:                                                                                                  #  AX*SR*T COMBINES THE OLD SMNB AND NBSM.  FOR THE NB TO SM
052746,000200:                                                                                                  #  TRANSFORMATION, ENTER WITH +3 IN A.  FOR SM TO NB, ENTER WITH -3.
052747,000201:                                                                                                  #  THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
052748,000202:                                                                                                  #  AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
052749,000203:                                                                                                  #  AT SINCDU AND COSCDU, IN THE ORDER Y Z X.  A CALL TO CD*TR*GS, WITH
052750,000204:                                                                                                  #  THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
052751,000205:                                                                                                  #  THIS.  HERE IS A SAMPLE CALLING SEQUENCE:-
052752,000206:                                                                                                  #                TC      CDUTRIGS
052753,000207:                                                                                                  #                CS      THREE           ("CA THREE" FOR NBSM)
052754,000208:                                                                                                  #                TC      AX*SR*T
052755,000209:                                                                                                  #  THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
052756,000210:                                                                                                  #  THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
052757,000211: 
052758,000212:                                                                                                  #  AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
052759,000213:                                                                                                  #  UNITY.  A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
052760,000214:                                                                                                  #  HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
052761,000215:                                                                                                  #  FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
052762,000216: 
052763,000217: 23,3675           54142        AX*SR*T            TS       DEXDEX                                #  WHERE IT BECOMES THE INDEX OF INDEXES
052764,000218: 23,3676           00006                           EXTEND                                         
052765,000219: 23,3677           22145                           QXCH     RTNSAVER                              
052766,000220: 
052767,000221: 23,3700           10142        R*TL**P            CCS      DEXDEX                                #                +3 --> 0        -3 --> 2
052768,000222: 23,3701           40142                           CS       DEXDEX                                #  THUS:         +2 --> 1        -2 --> 1
052769,000223: 23,3702           66245                           AD       THREE                                 #                +1 --> 2        -1 --> 0
052770,000224: 23,3703           00006                           EXTEND                                         
052771,000225: 23,3704           50000                           INDEX    A                                     
052772,000226: 23,3705           33764                           DCA      INDEXI                                
052773,000227: 23,3706           52144                           DXCH     DEXI                                  
052774,000228: 
052775,000229: 23,3707           34753                           CA       ONE                                   
052776,000230: 23,3710           54130                           TS       BUF                                   
052777,000231: 23,3711           00006                           EXTEND                                         
052778,000232: 23,3712           50143                           INDEX    DEX1                                  
052779,000233: 23,3713           40123                           DCS      VBUF                                  
052780,000234: 23,3714           13716                           TCF      LOOP1                                 #  REALLY BE A SUBTRACT, AND VICE VERSA
052781,000235: 
052782,000236: 23,3715           52131        LOOP2              DXCH     BUF                                   #  LOADING VECTOR COMPONENT, STORING INDEX

Page 1264

052784,000238: 23,3716           52155        LOOP1              DXCH     MPAC                                  
052785,000239: 23,3717           33762                           CA       SINESLOC                              
052786,000240: 23,3720           60143                           AD       DEX1                                  
052787,000241: 23,3721           54116                           TS       ADDRWD                                
052788,000242: 
052789,000243: 23,3722           07107                           TC       DMPSUB                                #  MULTIPLY BY SIN(CDUANGLE)
052790,000244: 23,3723           10142                           CCS      DEXDEX                                
052791,000245: 23,3724           52155                           DXCH     MPAC                                  #  NBSM CASE
052792,000246: 23,3725           13730                           TCF      +3                                    
052793,000247: 23,3726           00006                           EXTEND                                         #  SMNB CASE
052794,000248: 23,3727           40155                           DCS      MPAC                                  
052795,000249: 23,3730           52160                           DXCH     TERM1TMP                              
052796,000250: 
052797,000251: 23,3731           36242                           CA       SIX                                   #  SINCDU AND COSCDU (EACH 6 WORDS) MUST
052798,000252: 23,3732           26116                           ADS      ADDRWD                                #        BE CONSECUTIVE AND IN THAT ORDER
052799,000253: 
052800,000254: 23,3733           00006                           EXTEND                                         
052801,000255: 23,3734           50130                           INDEX    BUF                                   
052802,000256: 23,3735           50143                           INDEX    DEX1                                  
052803,000257: 23,3736           30123                           DCA      VBUF                                  
052804,000258: 23,3737           52155                           DXCH     MPAC                                  
052805,000259: 23,3740           07107                           TC       DMPSUB                                #  MULTIPLY BY COS(CDUANGLE)
052806,000260: 23,3741           52155                           DXCH     MPAC                                  
052807,000261: 23,3742           20160                           DAS      TERM1TMP                              
052808,000262: 23,3743           52160                           DXCH     TERM1TMP                              
052809,000263: 23,3744           20001                           DDOUBL                                         
052810,000264: 23,3745           50130                           INDEX    BUF                                   
052811,000265: 23,3746           50143                           INDEX    DEX1                                  
052812,000266: 23,3747           52123                           DXCH     VBUF                                  
052813,000267: 23,3750           52131                           DXCH     BUF                                   #  LOADING INDEX, STORING VECTOR COMPONENT
052814,000268: 
052815,000269: 23,3751           10000                           CCS      A                                     #  'CAUSE THAT'S WHERE THE INDEX NOW IS
052816,000270: 23,3752           13715                           TCF      LOOP2                                 
052817,000271: 
052818,000272: 23,3753           00006                           EXTEND                                         
052819,000273: 23,3754           26142                           DIM      DEXDEX                                #  DECREMENT MAGNITUDE PRESERVING SIGN
052820,000274: 
052821,000275: 23,3755           10142        TSTPOINT           CCS      DEXDEX                                #  ONLY THE BRANCHING FUNCTION IS USED
052822,000276: 23,3756           13700                           TCF      R*TL**P                               
052823,000277: 23,3757           00145                           TC       RTNSAVER                              
052824,000278: 23,3760           13700                           TCF      R*TL**P                               
052825,000279: 23,3761           00145                           TC       RTNSAVER                              
052826,000280: 
052827,000281: 23,3762           00736        SINESLOC           ADRES    SINCDU                                #  FOR USE IN SETTING ADDRWD
052828,000282: 
052829,000283: 23,3763           00004        INDEXI             DEC      4          B-14                       #  **********   DON'T   **********
052830,000284: 23,3764           00002                           DEC      2          B-14                       #  **********   TOUCH   **********
052831,000285: 23,3765           00000                           DEC      0          B-14                       #  **********   THESE   **********

Page 1265

052833,000287: 23,3766           00004                           DEC      4          B-14                       #  ********** CONSTANTS **********
052834,000288: 
052835,000289:                                                                                                  #  ****************************************************************************************************************
052836,000290: 
052837,000291: 10,2030                                           BANK     10                                    
052838,000292: 10,2000                                           SETLOC   FLESHLOC                              
052839,000293: 10,2000                                           BANK                                           
052840,000294: 10,2030                                           COUNT*   $$/POWFL                              
052841,000295: 
052842,000296:                                                                                                  #  ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
052843,000297:                                                                                                  #  IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
052844,000298: 
052845,000299: 10,2030           77776        CALCSMSC           EXIT                                           
052846,000300: 10,2031           04616                           TC       BANKCALL                              
052847,000301: 10,2032           20036                           CADR     FLESHPOT   -1                         
052848,000302: 10,2033           06037                           TC       INTPRET                               
052849,000303: 10,2034           77616                           RVQ                                            
052850,000304: 
052851,000305: 10,2035           02664        XNBECADR           ECADR    XNB                                   
052852,000306: 
052853,000307: 10,2036           32035                 -1        CAF      XNBECADR                              
052854,000308: 
052855,000309: 10,2037           54142        FLESHPOT           TS       TEM2                                  
052856,000310: 10,2040           56003                           XCH      EBANK                                 
052857,000311: 10,2041           56142                           XCH      TEM2                                  
052858,000312: 10,2042           74357                           MASK     LOW8                                  
052859,000313: 10,2043           65007                           AD       OCT1400                               
052860,000314: 10,2044           54141                           TS       TEM1                                  
052861,000315: 
052862,000316: 10,2045           00006                           EXTEND                                         
052863,000317: 10,2046           30745                           DCA      COSCDUY                               
052864,000318: 10,2047           52155                           DXCH     MPAC                                  
052865,000319: 10,2050           07103                           TC       DMP                                   
052866,000320: 10,2051           00746                           ADRES    COSCDUZ                               
052867,000321: 10,2052           52155                           DXCH     MPAC                                  
052868,000322: 10,2053           20001                           DDOUBL                                         
052869,000323: 10,2054           50141                           INDEX    TEM1                                  
052870,000324: 10,2055           52001                           DXCH     0                                     #  = COSY COSZ
052871,000325: 
052872,000326: 10,2056           00006                           EXTEND                                         
052873,000327: 10,2057           30741                           DCA      SINCDUZ                               
052874,000328: 10,2060           50141                           INDEX    TEM1                                  
052875,000329: 10,2061           52003                           DXCH     2                                     #  = SINZ
052876,000330: 
052877,000331: 10,2062           00006                           EXTEND                                         
052878,000332: 10,2063           40737                           DCS      SINCDUY                               
052879,000333: 10,2064           52155                           DXCH     MPAC                                  
052880,000334: 10,2065           07107                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUZ

Page 1266

052882,000336: 10,2066           52155                           DXCH     MPAC                                  
052883,000337: 10,2067           20001                           DDOUBL                                         
052884,000338: 10,2070           50141                           INDEX    TEM1                                  
052885,000339: 10,2071           52005                           DXCH     4                                     #  = - SINY COSZ
052886,000340: 
052887,000341: 10,2072           00006                           EXTEND                                         
052888,000342: 10,2073           40743                           DCS      SINCDUX                               
052889,000343: 10,2074           52155                           DXCH     MPAC                                  
052890,000344: 10,2075           07107                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUZ STILL
052891,000345: 10,2076           52155                           DXCH     MPAC                                  
052892,000346: 10,2077           20001                           DDOUBL                                         
052893,000347: 10,2100           52160                           DXCH     MPAC       +3                         
052894,000348: 
052895,000349: 10,2101           00006                           EXTEND                                         
052896,000350: 10,2102           40743                           DCS      SINCDUX                               
052897,000351: 10,2103           52155                           DXCH     MPAC                                  
052898,000352: 10,2104           07103                           TC       DMP                                   
052899,000353: 10,2105           00740                           ADRES    SINCDUZ                               
052900,000354: 10,2106           00006                           EXTEND                                         
052901,000355: 10,2107           40155                           DCS      MPAC                                  
052902,000356: 10,2110           52162                           DXCH     MPAC       +5                         
052903,000357: 10,2111           07103                           TC       DMP                                   
052904,000358: 10,2112           00736                           ADRES    SINCDUY                               
052905,000359: 10,2113           52155                           DXCH     MPAC                                  
052906,000360: 10,2114           20001                           DDOUBL                                         
052907,000361: 10,2115           20001                           DDOUBL                                         
052908,000362: 10,2116           52162                           DXCH     MPAC       +5                         
052909,000363: 
052910,000364: 10,2117           52155                           DXCH     MPAC                                  
052911,000365: 10,2120           07103                           TC       DMP                                   
052912,000366: 10,2121           00744                           ADRES    COSCDUY                               
052913,000367: 10,2122           52155                           DXCH     MPAC                                  
052914,000368: 10,2123           20001                           DDOUBL                                         
052915,000369: 10,2124           20001                           DDOUBL                                         
052916,000370: 10,2125           52131                           DXCH     BUF                                   
052917,000371: 
052918,000372: 10,2126           00006                           EXTEND                                         
052919,000373: 10,2127           30745                           DCA      COSCDUY                               
052920,000374: 10,2130           52155                           DXCH     MPAC                                  
052921,000375: 10,2131           07103                           TC       DMP                                   
052922,000376: 10,2132           00750                           ADRES    COSCDUX                               
052923,000377: 10,2133           52155                           DXCH     MPAC                                  
052924,000378: 10,2134           20001                           DDOUBL                                         
052925,000379: 10,2135           20162                           DAS      MPAC       +5                         
052926,000380: 
052927,000381: 10,2136           00006                           EXTEND                                         
052928,000382: 10,2137           30737                           DCA      SINCDUY                               
052929,000383: 10,2140           52155                           DXCH     MPAC                                  
052930,000384: 10,2141           07107                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUX
052931,000385: 10,2142           52155                           DXCH     MPAC                                  
052932,000386: 

Page 1267

052934,000388: 10,2143           20001                           DDOUBL                                         
052935,000389: 10,2144           20131                           DAS      BUF                                   
052936,000390: 
052937,000391: 10,2145           52131                           DXCH     BUF                                   
052938,000392: 10,2146           52155                           DXCH     MPAC                                  
052939,000393: 
052940,000394: 10,2147           00006                           EXTEND                                         
052941,000395: 10,2150           30155                           DCA      MPAC                                  
052942,000396: 10,2151           50141                           INDEX    TEM1                                  
052943,000397: 10,2152           52015                           DXCH     14                                    #  = SINY COSX + SINX SINZ COSY
052944,000398: 
052945,000399: 10,2153           00006                           EXTEND                                         
052946,000400: 10,2154           30160                           DCA      MPAC       +3                         
052947,000401: 10,2155           50141                           INDEX    TEM1                                  
052948,000402: 10,2156           52017                           DXCH     16                                    #  = - SINX COSZ
052949,000403: 
052950,000404: 10,2157           00006                           EXTEND                                         
052951,000405: 10,2160           30162                           DCA      MPAC       +5                         
052952,000406: 10,2161           50141                           INDEX    TEM1                                  
052953,000407: 10,2162           52021                           DXCH     20                                    #  = COSX COSY - SINX SINY SINZ
052954,000408: 
052955,000409: 10,2163           30141                           CA       TEM1                                  
052956,000410: 10,2164           54116                           TS       ADDRWD                                
052957,000411: 10,2165           00006                           EXTEND                                         
052958,000412: 10,2166           30006                           DCA      Z                                     
052959,000413: 10,2167           64751                           AD       FOUR                                  
052960,000414: 10,2170           52165                           DXCH     LOC                                   
052961,000415: 10,2171           34744                           CAF      BIT8                                  
052962,000416: 10,2172           54023                           TS       EDOP                                  
052963,000417: 10,2173           17460                           TCF      VXV                                   
052964,000418: 10,2174           52155                           DXCH     MPAC                                  
052965,000419: 10,2175           20001                           DDOUBL                                         
052966,000420: 10,2176           50141                           INDEX    TEM1                                  
052967,000421: 10,2177           52007                           DXCH     6                                     
052968,000422: 
052969,000423: 10,2200           52160                           DXCH     MPAC       +3                         
052970,000424: 10,2201           20001                           DDOUBL                                         
052971,000425: 10,2202           50141                           INDEX    TEM1                                  
052972,000426: 10,2203           52011                           DXCH     10                                    
052973,000427: 
052974,000428: 10,2204           52162                           DXCH     MPAC       +5                         
052975,000429: 10,2205           20001                           DDOUBL                                         
052976,000430: 10,2206           50141                           INDEX    TEM1                                  
052977,000431: 10,2207           52013                           DXCH     12                                    
052978,000432: 
052979,000433: 10,2210           30142                           CA       TEM2                                  
052980,000434: 10,2211           54003                           TS       EBANK                                 
052981,000435: 10,2212           14631                           TCF      SWRETURN                              
052982,000436: 

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