Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

054515,000002:                                                                                                  ## Copyright:   Public domain.
054516,000003:                                                                                                  ## Filename:    POWERED_FLIGHT_SUBROUTINES.agc
054517,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
054518,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
054519,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
054520,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
054521,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
054522,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
054523,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
054524,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
054525,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
054526,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
054527,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
054528,000015:                                                                                                  ## Reference:   pp. 1248-1256
054529,000016:                                                                                                  ## Assembler:   yaYUL
054530,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
054531,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
054532,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
054533,000020:                                                                                                  ##              2017-08-29 RSB  Transcribed.
054534,000021:                                                                                                  ##              2021-05-30 ABS  SINSLOC -> SINESLOC
054535,000022: 

Page 1248

054537,000024: 14,3775                                           BANK     14                                    #  SAME FBANK AS THE FINDCDUD SUB-PROGRAM
054538,000025: 23,2000                                           SETLOC   POWFLITE                              
054539,000026: 23,2000                                           BANK                                           
054540,000027: 
054541,000028: 23,3535     0142                                  EBANK=   DEXDEX                                
054542,000029: 23,3535                                           COUNT*   $$/POWFL                              
054543,000030: 
054544,000031:                                                                                                  #      CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
054545,000032:                                                                                                  #  COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
054546,000033:                                                                                                  #  PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU.   AN
054547,000034:                                                                                                  #  ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT.   THESE
054548,000035:                                                                                                  #  ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT,
054549,000036:                                                                                                  #  EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2.   THEY DIFFER ONLY IN
054550,000037:                                                                                                  #  WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
054551,000038: 
054552,000039:                                                                                                  #      CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
054553,000040:                                                                                                  #  SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
054554,000041:                                                                                                  #  THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
054555,000042:                                                                                                  #  CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
054556,000043: 
054557,000044:                                                                                                  #      CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
054558,000045: 
054559,000046:                                                                                                  #      CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP.   THIS
054560,000047:                                                                                                  #  ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
054561,000048:                                                                                                  #  ANGLES IN AN ORDER OTHER THAN X Y Z.   A CALL TO THIS ROUTINE IS
054562,000049:                                                                                                  #  NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
054563,000050:                                                                                                  #  MODES (SMNB OR NBSM).   SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
054564,000051:                                                                                                  #  COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
054565,000052:                                                                                                  #  IN THIS ORDER.   CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
054566,000053:                                                                                                  #  MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED.   NOTE THAT SINCE
054567,000054:                                                                                                  #  IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
054568,000055:                                                                                                  #  CALLED USING BANKCALL.   SORRY.
054569,000056: 
054570,000057:                                                                                                  #      CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
054571,000058:                                                                                                  #  INTERPRETIVE.
054572,000059: 
054573,000060: 23,3535           77776        CDUTRIG            EXIT                                           
054574,000061: 23,3536           03545                           TC       CDUTRIGS                              
054575,000062: 23,3537           06051                           TC       INTPRET                               
054576,000063: 23,3540           77616                           RVQ                                            
054577,000064: 
054578,000065: 23,3541           77776        CD*TR*G            EXIT                                           
054579,000066: 23,3542           03553                           TC       CD*TR*GS                              
054580,000067: 23,3543           06051                           TC       INTPRET                               
054581,000068: 23,3544           77616                           RVQ                                            
054582,000069: 
054583,000070: 23,3545           30032        CDUTRIGS           CA       CDUX                                  
054584,000071: 23,3546           54771                           TS       CDUSPOT    +4                         
054585,000072: 23,3547           30033                           CA       CDUY                                  
054586,000073: 23,3550           54765                           TS       CDUSPOT                               

Page 1249

054588,000075: 23,3551           30034                           CA       CDUZ                                  
054589,000076: 23,3552           54767                           TS       CDUSPOT    +2                         
054590,000077: 
054591,000078: 23,3553           00006        CD*TR*GS           EXTEND                                         
054592,000079: 23,3554           22142                           QXCH     TEM2                                  
054593,000080: 23,3555           34751                           CAF      FOUR                                  
054594,000081: 23,3556           76254        TR*GL**P           MASK     SIX                                   #  MAKE IT EVEN AND SMALLER
054595,000082: 23,3557           54143                           TS       TEM3                                  
054596,000083: 23,3560           50143                           INDEX    TEM3                                  
054597,000084: 23,3561           30765                           CA       CDUSPOT                               
054598,000085: 23,3562           52155                           DXCH     MPAC                                  #  STORING 2'S COMP ANGLE, LOADING MPAC
054599,000086: 23,3563           52127                           DXCH     VBUF       +4                         #  STORING MPAC FOR LATER RESTORATION
054600,000087: 23,3564           04713                           TC       USPRCADR                              
054601,000088: 23,3565           21560                           CADR     CDULOGIC                              
054602,000089: 23,3566           00006                           EXTEND                                         
054603,000090: 23,3567           30155                           DCA      MPAC                                  
054604,000091: 23,3570           50143                           INDEX    TEM3                                  
054605,000092: 23,3571           52766                           DXCH     CDUSPOT                               #  STORING 1'S COMPLEMENT ANGLE
054606,000093: 23,3572           04713                           TC       USPRCADR                              
054607,000094: 23,3573           01517                           CADR     COSINE                                
054608,000095: 23,3574           52155                           DXCH     MPAC                                  
054609,000096: 23,3575           50143                           INDEX    TEM3                                  
054610,000097: 23,3576           52744                           DXCH     COSCDU                                #  STORING COSINE
054611,000098: 23,3577           00006                           EXTEND                                         
054612,000099: 23,3600           50143                           INDEX    TEM3                                  
054613,000100: 23,3601           30766                           DCA      CDUSPOT                               #  LOADING 1'S COMPLEMENT ANGLE
054614,000101: 23,3602           04713                           TC       USPRCADR                              
054615,000102: 23,3603           01531                           CADR     SINE       +1                         #  SINE +1 EXPECTS ARGUMENT IN A AND L
054616,000103: 23,3604           52127                           DXCH     VBUF       +4                         #  BRINGING UP PRIOR MPAC TO BE RESTORED
054617,000104: 23,3605           52155                           DXCH     MPAC                                  
054618,000105: 23,3606           50143                           INDEX    TEM3                                  
054619,000106: 23,3607           52736                           DXCH     SINCDU                                
054620,000107: 23,3610           10143                           CCS      TEM3                                  
054621,000108: 23,3611           13556                           TCF      TR*GL**P                              
054622,000109: 23,3612           00142                           TC       TEM2                                  

Page 1250

054624,000111:                                                                                                  #  ****************************************************************************************************************
054625,000112: 
054626,000113:                                                                                                  #      QUICTRIG, INTENDED FOR GUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
054627,000114:                                                                                                  #  QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
054628,000115:                                                                                                  #  AND CDUSPOT +4.   UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
054629,000116:                                                                                                  #  CDUSPOT.   QUICTRIG'S EXECUTION TIME IS 4.1 MS;   THIS IS 10 TIMES AS FAST AS CD*TR*GS.   QUICTRIG MAY BE
054630,000117:                                                                                                  #  CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
054631,000118: 
054632,000119: 23,3613           00004        QTPROLOG           INHINT                                         
054633,000120: 23,3614           30032                           CA       CDUX                                  
054634,000121: 23,3615           54771                           TS       CDUSPOTX                              
054635,000122: 23,3616           30033                           CA       CDUY                                  
054636,000123: 23,3617           54765                           TS       CDUSPOTY                              
054637,000124: 23,3620           30034                           CA       CDUZ                                  
054638,000125: 23,3621           54767                           TS       CDUSPOTZ                              
054639,000126: 
054640,000127: 23,3622           00004        QUICTRIG           INHINT                                         #  INHINT SINCE DAP USES THE SAME TEMPS
054641,000128: 23,3623           00006                           EXTEND                                         
054642,000129: 23,3624           22061                           QXCH     ITEMP1                                
054643,000130: 23,3625           34751                           CAF      FOUR                                  
054644,000131: 23,3626           76254                 +4        MASK     SIX                                   
054645,000132: 23,3627           54062                           TS       ITEMP2                                
054646,000133: 23,3630           50062                           INDEX    ITEMP2                                
054647,000134: 23,3631           30765                           CA       CDUSPOT                               
054648,000135: 23,3632           05033                           TC       SPSIN                                 
054649,000136: 23,3633           00006                           EXTEND                                         
054650,000137: 23,3634           74736                           MP       BIT14                                 #  SCALE DOWN TO MATCH INTERPRETER OUTPUTS
054651,000138: 23,3635           50062                           INDEX    ITEMP2                                
054652,000139: 23,3636           52736                           DXCH     SINCDU                                
054653,000140: 23,3637           50062                           INDEX    ITEMP2                                
054654,000141: 23,3640           30765                           CA       CDUSPOT                               
054655,000142: 23,3641           05032                           TC       SPCOS                                 
054656,000143: 23,3642           00006                           EXTEND                                         
054657,000144: 23,3643           74736                           MP       BIT14                                 
054658,000145: 23,3644           50062                           INDEX    ITEMP2                                
054659,000146: 23,3645           52744                           DXCH     COSCDU                                
054660,000147: 23,3646           10062                           CCS      ITEMP2                                
054661,000148: 23,3647           13626                           TCF      QUICTRIG   +4                         
054662,000149: 23,3650           30061                           CA       ITEMP1                                
054663,000150: 23,3651           00003                           RELINT                                         
054664,000151: 23,3652           00000                           TC       A                                     
054665,000152: 

Page 1251

054667,000154:                                                                                                  #  ****************************************************************************************************************
054668,000155:                                                                                                  #      THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
054669,000156:                                                                                                  #  INTERPRETIVE.   LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
054670,000157: 
054671,000158:                                                                                                  #      THESE INTERFACE ROUTINES ARE PERMANENT.   ALL RESTORE USER'S EBANK
054672,000159:                                                                                                  #  SETTING.   ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
054673,000160:                                                                                                  #  RETURNING VIA QPRET.   ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFOR-
054674,000161:                                                                                                  #  MED INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
054675,000162: 
054676,000163:                                                                                                  #      TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
054677,000164:                                                                                                  #  AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
054678,000165:                                                                                                  #  LOCATIONS NEED NOT BE ZEROED).   TRG*NBSM DOES THE NB TO SM TRANSFOR-
054679,000166:                                                                                                  #  MATION;  TRG*SMNB, VICE VERSA.
054680,000167: 
054681,000168:                                                                                                  #      CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
054682,000169:                                                                                                  #  THE CDU COUNTERS.   OTHERWISE IT IS LIKE TRG*NBSM.
054683,000170: 
054684,000171:                                                                                                  #      CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
054685,000172: 
054686,000173: 23,3653           77776        CDU*SMNB           EXIT                                           
054687,000174: 23,3654           03545                           TC       CDUTRIGS                              
054688,000175: 23,3655           13660                           TCF      C*MM*N1                               
054689,000176: 
054690,000177: 23,3656           77776        TRG*SMNB           EXIT                                           
054691,000178: 23,3657           03553                           TC       CD*TR*GS                              
054692,000179: 23,3660           07544        C*MM*N1            TC       MPACVBUF                              #  AX*SR*T EXPECTS VECTOR IN VBUF
054693,000180: 23,3661           46257                           CS       THREE                                 #  SIGNAL FOR SM TO NB TRANSFORMATION
054694,000181: 23,3662           03702        C*MM*N2            TC       AX*SR*T                               
054695,000182: 23,3663           06051                           TC       INTPRET                               
054696,000183: 23,3664           43575                           VLOAD    RVQ                                   
054697,000184: 23,3665           00123                                    VBUF                                  
054698,000185: 
054699,000186: 23,3666           77776        CDU*NBSM           EXIT                                           
054700,000187: 23,3667           03545                           TC       CDUTRIGS                              
054701,000188: 23,3670           13673                           TCF      C*MM*N3                               
054702,000189: 
054703,000190: 23,3671           77776        TRG*NBSM           EXIT                                           
054704,000191: 23,3672           03553                           TC       CD*TR*GS                              
054705,000192: 23,3673           07544        C*MM*N3            TC       MPACVBUF                              #  FOR AX*SR*T
054706,000193: 23,3674           36257                           CA       THREE                                 #  SIGNAL FOR NB TO SM TRANSFORMATION
054707,000194: 23,3675           13662                           TCF      C*MM*N2                               
054708,000195: 
054709,000196:                                                                                                  #      *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
054710,000197:                                                                                                  #  AND COSCDU) RATHER THAN THE ANGLES THEMSELVES.   OTHERWISE THEY ARE
054711,000198:                                                                                                  #  LIKE TRG*NBSM AND TRG*SMNB.
054712,000199: 
054713,000200:                                                                                                  #      NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
054714,000201:                                                                                                  #  OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM

Page 1252

054716,000203:                                                                                                  #  AND TRG*SMNB NEED BE CALLED FOR EACH SERIES.   FOR SUBSEQUENT TRANSFOR-
054717,000204:                                                                                                  #  MATIONS USE *NBSM* AND *SMNB*.
054718,000205: 
054719,000206: 23,3676           77776        *SMNB*             EXIT                                           
054720,000207: 23,3677           13660                           TCF      C*MM*N1                               
054721,000208: 
054722,000209: 23,3700           77776        *NBSM*             EXIT                                           
054723,000210: 23,3701           13673                           TCF      C*MM*N3                               
054724,000211: 
054725,000212:                                                                                                  #        AX*SR*T COMBINES THE OLD SMNB AND NBSM.   FOR THE NB TO SM
054726,000213:                                                                                                  #  TRANSFORMATION, ENTER WITH +3 IN A.   FOR SM TO NB, ENTER WITH -3.
054727,000214:                                                                                                  #  THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
054728,000215:                                                                                                  #  AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
054729,000216:                                                                                                  #  AT SINCDU AND COSCDU, IN THE ORDER Y Z X.   A CALL TO CD*TR*GS, WITH
054730,000217:                                                                                                  #  THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
054731,000218:                                                                                                  #  THIS.   HERE IS A SAMPLE CALLING SEQUENCE:-
054732,000219: 
054733,000220:                                                                                                  #                             TC     CDUTRIGS
054734,000221:                                                                                                  #                             CS     THREE       ("CA  THREE" FOR NBSM)
054735,000222:                                                                                                  #                             TC     AX*SR*T
054736,000223: 
054737,000224:                                                                                                  #  THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
054738,000225:                                                                                                  #  THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
054739,000226: 
054740,000227:                                                                                                  #      AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
054741,000228:                                                                                                  #  UNITY.   A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
054742,000229:                                                                                                  #  HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
054743,000230:                                                                                                  #  FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
054744,000231: 
054745,000232: 23,3702           54142        AX*SR*T            TS       DEXDEX                                #  WHERE IT BECOMES THE INDEX OF INDEXES
054746,000233: 23,3703           00006                           EXTEND                                         
054747,000234: 23,3704           22145                           QXCH     RTNSAVER                              
054748,000235: 
054749,000236: 23,3705           10142        R*TL**P            CCS      DEXDEX                                #          +3 --> 0     -3 --> 2
054750,000237: 23,3706           40142                           CS       DEXDEX                                #  THUS:   +2 --> 1     -2 --> 1
054751,000238: 23,3707           66257                           AD       THREE                                 #          +1 --> 2     -1 --> 0
054752,000239: 23,3710           00006                           EXTEND                                         
054753,000240: 23,3711           50000                           INDEX    A                                     
054754,000241: 23,3712           33771                           DCA      INDEXI                                
054755,000242: 23,3713           52144                           DXCH     DEXI                                  
054756,000243: 
054757,000244: 23,3714           34753                           CA       ONE                                   
054758,000245: 23,3715           54130                           TS       BUF                                   
054759,000246: 23,3716           00006                           EXTEND                                         
054760,000247: 23,3717           50143                           INDEX    DEX1                                  
054761,000248: 23,3720           40123                           DCS      VBUF                                  
054762,000249: 23,3721           13723                           TCF      LOOP1                                 #    REALLY BE A SUBTRACT, AND VICE VERSA
054763,000250: 
054764,000251: 23,3722           52131        LOOP2              DXCH     BUF                                   #  LOADING VECTOR COMPONENT, STORING INDEX

Page 1253

054766,000253: 23,3723           52155        LOOP1              DXCH     MPAC                                  
054767,000254: 23,3724           33767                           CA       SINESLOC                              
054768,000255: 23,3725           60143                           AD       DEX1                                  
054769,000256: 23,3726           54116                           TS       ADDRWD                                
054770,000257: 
054771,000258: 23,3727           07121                           TC       DMPSUB                                #  MULTIPLY BY SIN(CDUANGLE)
054772,000259: 23,3730           10142                           CCS      DEXDEX                                
054773,000260: 23,3731           52155                           DXCH     MPAC                                  #  NBSM CASE
054774,000261: 23,3732           13735                           TCF      +3                                    
054775,000262: 23,3733           00006                           EXTEND                                         #  SMNB CASE
054776,000263: 23,3734           40155                           DCS      MPAC                                  
054777,000264: 23,3735           52160                           DXCH     TERM1TMP                              
054778,000265: 
054779,000266: 23,3736           36254                           CA       SIX                                   #  SINCDU AND COSCDU (EACH 6 WORDS) MUST
054780,000267: 23,3737           26116                           ADS      ADDRWD                                #    BE CONSECUTIVE AND IN THAT ORDER
054781,000268: 
054782,000269: 23,3740           00006                           EXTEND                                         
054783,000270: 23,3741           50130                           INDEX    BUF                                   
054784,000271: 23,3742           50143                           INDEX    DEX1                                  
054785,000272: 23,3743           30123                           DCA      VBUF                                  
054786,000273: 23,3744           52155                           DXCH     MPAC                                  
054787,000274: 23,3745           07121                           TC       DMPSUB                                #  MULTIPLY BY COS(CDUANGLE)
054788,000275: 23,3746           52155                           DXCH     MPAC                                  
054789,000276: 23,3747           20160                           DAS      TERM1TMP                              
054790,000277: 23,3750           52160                           DXCH     TERM1TMP                              
054791,000278: 23,3751           20001                           DDOUBL                                         
054792,000279: 23,3752           50130                           INDEX    BUF                                   
054793,000280: 23,3753           50143                           INDEX    DEX1                                  
054794,000281: 23,3754           52123                           DXCH     VBUF                                  
054795,000282: 23,3755           52131                           DXCH     BUF                                   #  LOADING INDEX, STORING VECTOR COMPONENT
054796,000283: 
054797,000284: 23,3756           10000                           CCS      A                                     #  'CAUSE THAT'S WHERE THE INDEX NOW IS
054798,000285: 23,3757           13722                           TCF      LOOP2                                 
054799,000286: 
054800,000287: 23,3760           00006                           EXTEND                                         
054801,000288: 23,3761           26142                           DIM      DEXDEX                                #  DECREMENT MAGNITUDE PRESERVING SIGN
054802,000289: 
054803,000290: 23,3762           10142        TSTPOINT           CCS      DEXDEX                                #  ONLY THE BRANCHING FUNCTION IS USED
054804,000291: 23,3763           13705                           TCF      R*TL**P                               
054805,000292: 23,3764           00145                           TC       RTNSAVER                              
054806,000293: 23,3765           13705                           TCF      R*TL**P                               
054807,000294: 23,3766           00145                           TC       RTNSAVER                              
054808,000295: 
054809,000296: 23,3767           00735        SINESLOC           ADRES    SINCDU                                #  FOR USE IN SETTING ADDRWD
054810,000297: 
054811,000298: 23,3770           00004        INDEXI             DEC      4          B-14                       #  **********    DON'T    **********
054812,000299: 23,3771           00002                           DEC      2          B-14                       #  **********    TOUCH    **********
054813,000300: 23,3772           00000                           DEC      0          B-14                       #  **********    THESE    **********

Page 1254

054815,000302: 23,3773           00004                           DEC      4          B-14                       #  **********  CONSTANTS  **********
054816,000303: 
054817,000304:                                                                                                  #  ****************************************************************************************************************
054818,000305: 
054819,000306: 10,2030                                           BANK     10                                    
054820,000307: 10,2000                                           SETLOC   FLESHLOC                              
054821,000308: 10,2000                                           BANK                                           
054822,000309: 10,2030                                           COUNT*   $$/POWFL                              
054823,000310: 
054824,000311:                                                                                                  #      ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
054825,000312:                                                                                                  #  IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
054826,000313: 
054827,000314: 10,2030           77776        CALCSMSC           EXIT                                           
054828,000315: 10,2031           04616                           TC       BANKCALL                              
054829,000316: 10,2032           20036                           CADR     FLESHPOT   -1                         
054830,000317: 10,2033           06051                           TC       INTPRET                               
054831,000318: 10,2034           77616                           RVQ                                            
054832,000319: 
054833,000320: 10,2035           02664        XNBECADR           ECADR    XNB                                   
054834,000321: 
054835,000322: 10,2036           32035                 -1        CAF      XNBECADR                              
054836,000323: 
054837,000324: 10,2037           54142        FLESHPOT           TS       TEM2                                  
054838,000325: 10,2040           56003                           XCH      EBANK                                 
054839,000326: 10,2041           56142                           XCH      TEM2                                  
054840,000327: 10,2042           74357                           MASK     LOW8                                  
054841,000328: 10,2043           65007                           AD       OCT1400                               
054842,000329: 10,2044           54141                           TS       TEM1                                  
054843,000330: 
054844,000331: 10,2045           00006                           EXTEND                                         
054845,000332: 10,2046           30744                           DCA      COSCDUY                               
054846,000333: 10,2047           52155                           DXCH     MPAC                                  
054847,000334: 10,2050           07115                           TC       DMP                                   
054848,000335: 10,2051           00745                           ADRES    COSCDUZ                               
054849,000336: 10,2052           52155                           DXCH     MPAC                                  
054850,000337: 10,2053           20001                           DDOUBL                                         
054851,000338: 10,2054           50141                           INDEX    TEM1                                  
054852,000339: 10,2055           52001                           DXCH     0                                     #  = COSY COSZ
054853,000340: 
054854,000341: 10,2056           00006                           EXTEND                                         
054855,000342: 10,2057           30740                           DCA      SINCDUZ                               
054856,000343: 10,2060           50141                           INDEX    TEM1                                  
054857,000344: 10,2061           52003                           DXCH     2                                     #  = SINZ
054858,000345: 
054859,000346: 10,2062           00006                           EXTEND                                         
054860,000347: 10,2063           40736                           DCS      SINCDUY                               
054861,000348: 10,2064           52155                           DXCH     MPAC                                  
054862,000349: 10,2065           07121                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUZ

Page 1255

054864,000351: 10,2066           52155                           DXCH     MPAC                                  
054865,000352: 10,2067           20001                           DDOUBL                                         
054866,000353: 10,2070           50141                           INDEX    TEM1                                  
054867,000354: 10,2071           52005                           DXCH     4                                     #  = - SINY COSZ
054868,000355: 
054869,000356: 10,2072           00006                           EXTEND                                         
054870,000357: 10,2073           40742                           DCS      SINCDUX                               
054871,000358: 10,2074           52155                           DXCH     MPAC                                  
054872,000359: 10,2075           07121                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUZ STILL
054873,000360: 10,2076           52155                           DXCH     MPAC                                  
054874,000361: 10,2077           20001                           DDOUBL                                         
054875,000362: 10,2100           52160                           DXCH     MPAC       +3                         
054876,000363: 
054877,000364: 10,2101           00006                           EXTEND                                         
054878,000365: 10,2102           40742                           DCS      SINCDUX                               
054879,000366: 10,2103           52155                           DXCH     MPAC                                  
054880,000367: 10,2104           07115                           TC       DMP                                   
054881,000368: 10,2105           00737                           ADRES    SINCDUZ                               
054882,000369: 10,2106           00006                           EXTEND                                         
054883,000370: 10,2107           40155                           DCS      MPAC                                  
054884,000371: 10,2110           52162                           DXCH     MPAC       +5                         
054885,000372: 10,2111           07115                           TC       DMP                                   
054886,000373: 10,2112           00735                           ADRES    SINCDUY                               
054887,000374: 10,2113           52155                           DXCH     MPAC                                  
054888,000375: 10,2114           20001                           DDOUBL                                         
054889,000376: 10,2115           20001                           DDOUBL                                         
054890,000377: 10,2116           52162                           DXCH     MPAC       +5                         
054891,000378: 
054892,000379: 10,2117           52155                           DXCH     MPAC                                  
054893,000380: 10,2120           07115                           TC       DMP                                   
054894,000381: 10,2121           00743                           ADRES    COSCDUY                               
054895,000382: 10,2122           52155                           DXCH     MPAC                                  
054896,000383: 10,2123           20001                           DDOUBL                                         
054897,000384: 10,2124           20001                           DDOUBL                                         
054898,000385: 10,2125           52131                           DXCH     BUF                                   
054899,000386: 
054900,000387: 10,2126           00006                           EXTEND                                         
054901,000388: 10,2127           30744                           DCA      COSCDUY                               
054902,000389: 10,2130           52155                           DXCH     MPAC                                  
054903,000390: 10,2131           07115                           TC       DMP                                   
054904,000391: 10,2132           00747                           ADRES    COSCDUX                               
054905,000392: 10,2133           52155                           DXCH     MPAC                                  
054906,000393: 10,2134           20001                           DDOUBL                                         
054907,000394: 10,2135           20162                           DAS      MPAC       +5                         
054908,000395: 
054909,000396: 10,2136           00006                           EXTEND                                         
054910,000397: 10,2137           30736                           DCA      SINCDUY                               
054911,000398: 10,2140           52155                           DXCH     MPAC                                  
054912,000399: 10,2141           07121                           TC       DMPSUB                                #  ADDRWD SET TO COSCDUX
054913,000400: 10,2142           52155                           DXCH     MPAC                                  
054914,000401: 

Page 1256

054916,000403: 10,2143           20001                           DDOUBL                                         
054917,000404: 10,2144           20131                           DAS      BUF                                   
054918,000405: 
054919,000406: 10,2145           52131                           DXCH     BUF                                   
054920,000407: 10,2146           52155                           DXCH     MPAC                                  
054921,000408: 
054922,000409: 10,2147           00006                           EXTEND                                         
054923,000410: 10,2150           30155                           DCA      MPAC                                  
054924,000411: 10,2151           50141                           INDEX    TEM1                                  
054925,000412: 10,2152           52015                           DXCH     14                                    #  = SINY COSX + SINX SINZ COSY
054926,000413: 
054927,000414: 10,2153           00006                           EXTEND                                         
054928,000415: 10,2154           30160                           DCA      MPAC       +3                         
054929,000416: 10,2155           50141                           INDEX    TEM1                                  
054930,000417: 10,2156           52017                           DXCH     16                                    #  = - SINX COSZ
054931,000418: 
054932,000419: 10,2157           00006                           EXTEND                                         
054933,000420: 10,2160           30162                           DCA      MPAC       +5                         
054934,000421: 10,2161           50141                           INDEX    TEM1                                  
054935,000422: 10,2162           52021                           DXCH     20                                    #  = COSX COSY - SINX SINY SINZ
054936,000423: 
054937,000424: 10,2163           30141                           CA       TEM1                                  
054938,000425: 10,2164           54116                           TS       ADDRWD                                
054939,000426: 10,2165           00006                           EXTEND                                         
054940,000427: 10,2166           30006                           DCA      Z                                     
054941,000428: 10,2167           64751                           AD       FOUR                                  
054942,000429: 10,2170           52165                           DXCH     LOC                                   
054943,000430: 10,2171           34744                           CAF      BIT8                                  
054944,000431: 10,2172           54023                           TS       EDOP                                  
054945,000432: 10,2173           17472                           TCF      VXV                                   
054946,000433: 10,2174           52155                           DXCH     MPAC                                  
054947,000434: 10,2175           20001                           DDOUBL                                         
054948,000435: 10,2176           50141                           INDEX    TEM1                                  
054949,000436: 10,2177           52007                           DXCH     6                                     
054950,000437: 
054951,000438: 10,2200           52160                           DXCH     MPAC       +3                         
054952,000439: 10,2201           20001                           DDOUBL                                         
054953,000440: 10,2202           50141                           INDEX    TEM1                                  
054954,000441: 10,2203           52011                           DXCH     10                                    
054955,000442: 
054956,000443: 10,2204           52162                           DXCH     MPAC       +5                         
054957,000444: 10,2205           20001                           DDOUBL                                         
054958,000445: 10,2206           50141                           INDEX    TEM1                                  
054959,000446: 10,2207           52013                           DXCH     12                                    
054960,000447: 
054961,000448: 10,2210           30142                           CA       TEM2                                  
054962,000449: 10,2211           54003                           TS       EBANK                                 
054963,000450: 10,2212           14631                           TCF      SWRETURN                              
054964,000451: 

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