Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

063165,000002:                                                                                                  ## Copyright:   Public domain.
063166,000003:                                                                                                  ## Filename:    AOSTASK_AND_AOSJOB.agc
063167,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
063168,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
063169,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
063170,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
063171,000008:                                                                                                  ##              that the code format has been changed to conform to the
063172,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
063173,000010:                                                                                                  ##              original YUL assembler.
063174,000011:                                                                                                  ## Reference:   pp. 1475-1496
063175,000012:                                                                                                  ## Assembler:   yaYUL
063176,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
063177,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
063178,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
063179,000016:                                                                                                  ##              2017-01-27 RRB  Updated for Luminary 116.
063180,000017:                                                                                                  ##              2017-02-25 HG   Add missing address setup
063181,000018:                                                                                                  ##                                              BANK     20
063182,000019:                                                                                                  ##                                              SETLOC   DAPS3
063183,000020:                                                                                                  ##                                              BANK
063184,000021:                                                                                                  ##                                              COUNT*   $$/DAPAO
063185,000022:                                                                                                  ##              2017-03-10 RSB  Proofed comment text via 3-way diff vs
063186,000023:                                                                                                  ##                              Luminary 99 and 132 ... no problems found.
063187,000024:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes identified in 5-way
063188,000025:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
063189,000026:                                                                                                  ##              2017-03-19 HG   Replace .0125RS EQUALS BIT8 with .023R/S2 OCT 00356
063190,000027:                                                                                                  ##                              Fix operand .0125RS --> .023R/S2
063191,000028:                                                                                                  ##                              Update comments arround the change above
063192,000029: 

Page 1475

063194,000031:                                                                                                  #  PROGRAM NAME: 1/ACCS
063195,000032:                                                                                                  #  PROGRAM WRITTEN BY: BOB COVELLI AND MIKE HOUSTON
063196,000033:                                                                                                  #  LAST MODIFICATION: FEB. 14, 1969 BY G. KALAN
063197,000034: 
063198,000035:                                                                                                  #  PROGRAM DESCRIPTION:
063199,000036:                                                                                                  #     1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A
063200,000037:                                                                                                  #  CHANGE IN THE MASS OF THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT-
063201,000038:                                                                                                  #  DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP.
063202,000039: 
063203,000040:                                                                                                  #     THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR),
063204,000041:                                                                                                  #  STAGE VERIFY BIT (CHAN30, BIT2), DOCKED BIT (DAPBOOLS, BIT13), DRIFT BIT (DAPBOOLS, BIT8), USEQRJTS (DAPBOOLS,
063205,000042:                                                                                                  #  BIT14), AND SURFACE FLAG (FLAGWRD8, BIT8), AND CH5MASK.
063206,000043: 
063207,000044:                                                                                                  #     1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE
063208,000045:                                                                                                  #  FORMED BY RESOLVING 1JACCQ NAD 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L, PVT-CG) IS ALSO
063209,000046:                                                                                                  #  COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ,
063210,000047:                                                                                                  #  ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE.
063211,000048: 
063212,000049:                                                                                                  #     AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL NET ACCELERATIONS ABOUT THE P, U,
063213,000050:                                                                                                  #  AND V AXES (2 JETS FOR P AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT
063214,000051:                                                                                                  #  THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5) ARE ALSO COMPUTED FOR THESE AXES. THE
063215,000052:                                                                                                  #  FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS.  FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE
063216,000053:                                                                                                  #  MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
063217,000054:                                                                                                  #  IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
063218,000055: 
063219,000056:                                                                                                  #  SUBBOUTINES CALLED:
063220,000057: 
063221,000058:                                                                                                  #           TIMEGMBL
063222,000059:                                                                                                  #           MAKECADR
063223,000060:                                                                                                  #           ROT45DEG
063224,000061: 
063225,000062:                                                                                                  #  CALLING SEQUENCE:
063226,000063: 
063227,000064:                                                                                                  #                                                   TC    BANKCALL         (1/ACCS MUST BE CALL BY BANKCALL
063228,000065:                                                                                                  #                                                   CADR  1/ACCS
063229,000066: 
063230,000067:                                                                                                  #  NORMAL EXIT: VIA BANKJUMP       ALARM AND ABORT EXIT MODES: NONE.
063231,000068: 
063232,000069:                                                                                                  #  INPUT/OUTPUT: SEE PROGRAM DESCRIPTION
063233,000070: 
063234,000071:                                                                                                  #  DEBRIS:
063235,000072: 
063236,000073:                                                                                                  #  ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
063237,000074: 
063238,000075:                                                                                                  #  RESTRICTIONS:
063239,000076: 
063240,000077:                                                                                                  #  1/ACCS MUST BE CALLED BY BANKCALL
063241,000078:                                                                                                  #  EBANK IS SET TO 6, BUT NOT RESTORED.

Page 1476

063243,000080: 
063244,000081: 21,3637                                           BANK     21                                    
063245,000082: 21,2000                                           SETLOC   DAPS4                                 
063246,000083: 21,2000                                           BANK                                           
063247,000084: 
063248,000085: 21,3637                                           COUNT*   $$/DAPAO                              
063249,000086: 
063250,000087: 21,3637  E6,1537                                  EBANK=   AOSQ                                  
063251,000088: 
063252,000089:                                                                                                  #  ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
063253,000090: 
063254,000091:                                                                                                  #  IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY.  HOWEVER, SINCE THERE IS NO CHECK OF
063255,000092:                                                                                                  #  NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
063256,000093: 
063257,000094: 21,3637           34755        1/ACCSET           CAF      ZERO                                  #  ENTRY FROM FRESH START/RESTART CODING.
063258,000095: 21,3640           55537                           TS       AOSQ                                  #    NULL THE OFFSET ESTIMATES FOR 1/ACCS.
063259,000096: 21,3641           55541                           TS       AOSR                                  
063260,000097: 21,3642           55424                           TS       ALPHAQ                                #    NULL THE OFFSET ESTIMATES FOR DOWNLIST
063261,000098: 21,3643           55425                           TS       ALPHAR                                
063262,000099: 
063263,000100: 21,3644           04616        1/ACCJOB           TC       BANKCALL                              #  1/ACCS ASSUMES ENTRY VIA BANKCALL.
063264,000101: 21,3645           40465                           CADR     1/ACCS     +2                         #  SKIP EBANK SETTING.
063265,000102: 
063266,000103: 21,3646           05155                           TC       ENDOFJOB                              
063267,000104: 
063268,000105: 20,2463                                           BANK     20                                    
063269,000106: 20,2000                                           SETLOC   DAPS3                                 
063270,000107: 20,2000                                           BANK                                           
063271,000108: 20,2463                                           COUNT*   $$/DAPAO                              
063272,000109: 
063273,000110: 20,2463           35015        1/ACCS             CA       EBANK6                                #  ***** EBANK SET BUT NOT RESTORED *****
063274,000111: 20,2464           54003                           TS       EBANK                                 
063275,000112: 
063276,000113: 20,2465           04645                           TC       MAKECADR                              #  SAVE RETURN SO THAT BUF2 MAY BE USED
063277,000114: 20,2466           54117                           TS       ACCRETRN                              
063278,000115: 
063279,000116:                                                                                                  #  DETERMINE MASS OF THE LEM.
063280,000117: 20,2467           30111                           CA       DAPBOOLS                              #  IS CSM DOCKED
063281,000118: 20,2470           74737                           MASK     CSMDOCKD                              
063282,000119: 20,2471           54157                           TS       DOCKTEMP                              #  STORE RECORD OF STATE IN TEMP (MPAC +3).
063283,000120: 20,2472           10000                           CCS      A                                     
063284,000121: 20,2473           41327                           CS       CSMMASS                               #    DOCKED:  LEMMASS = MASS - CSMMASS
063285,000122: 20,2474           61243                           AD       MASS                                  #    LEM ALONE:  LEMMASS = MASS
063286,000123: 20,2475           55326                           TS       LEMMASS                               
063287,000124: 
063288,000125:                                                                                                  #  ON THE BASIS OF APSFLAG:
063289,000126:                                                                                                  #       SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/4-JET CONTROL
063290,000127:                                                                                                  #       SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
063291,000128:                                                                                                  #       ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
063292,000129: 
063293,000130: 20,2476           00004                           INHINT                                         

Page 1477

063295,000132: 20,2477           30106                           CAE      FLGWRD10                              #  DETERMINE WHETHER STAGED.
063296,000133: 20,2500           74737                           MASK     APSFLBIT                              
063297,000134: 20,2501           00006                           EXTEND                                         
063298,000135: 20,2502           12526                           BZF      DPSFLITE                              
063299,000136: 
063300,000137: 20,2503           44733                           CS       POSMAX                                #  ASCENT (OR ON LUNAR SURFACE)
063301,000138: 20,2504           55475                           TS       -2JETLIM                              #  ALWAYS 2 JETS FOR P-AXIS RATE COMMAND
063302,000139: 20,2505           35741                           CAF      OCT14                                 #  INITIALIZE INDEX AT 12.
063303,000140: 20,2506           54154                           TS       MPAC                                  
063304,000141: 20,2507           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO HIGH.  CATCH STAGING.
063305,000142: 20,2510           61400                           AD       HIASCENT                              
063306,000143: 20,2511           00006                           EXTEND                                         
063307,000144: 20,2512           62517                           BZMF     MASSFIX                               
063308,000145: 20,2513           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO LOW.  THIS LIMITS THE
063309,000146: 20,2514           62001                           AD       LOASCENT                              #    DECREMENTING BY MASSMON.
063310,000147: 20,2515           00006                           EXTEND                                         
063311,000148: 20,2516           62544                           BZMF     F(MASS)                               
063312,000149: 
063313,000150: 20,2517           27326        MASSFIX            ADS      LEMMASS                               #  STORE THE VIOLATED LIMIT AS LEMMASS.
063314,000151: 20,2520           22007                           ZL                                             #    ALSO CORRECT TOTAL MASS, ZEROING THE
063315,000152: 20,2521           10157                           CCS      DOCKTEMP                              #    LOW-ORDER WORD.
063316,000153: 20,2522           31327                           CAE      CSMMASS                               #      DOCKED:  MASS = LEMMASS + CSMMASS
063317,000154: 20,2523           61326                           AD       LEMMASS                               #      LEM ALONE:  MASS = LEMMASS
063318,000155: 20,2524           53244                           DXCH     MASS                                  
063319,000156: 20,2525           12544                           TCF      F(MASS)                               
063320,000157: 
063321,000158: 20,2526           44742        DPSFLITE           CS       BIT10                                 #  FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
063322,000159: 20,2527           55475                           TS       -2JETLIM                              #    EXCEEDING 1.4 DEG/SEC (SCALED AT 45)
063323,000160: 20,2530           36245                           CAF      SIX                                   #  INITIALIZE INDEX AT 6.
063324,000161: 20,2531           54154                           TS       MPAC                                  
063325,000162: 20,2532           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO HIGH.  SHOULD NEVER
063326,000163: 20,2533           62002                           AD       HIDESCNT                              #    OCCUR EXCEPT PERHAPS BEFORE THE PAD
063327,000164: 20,2534           00006                           EXTEND                                         #    LOAD IS DONE.
063328,000165: 20,2535           62517                           BZMF     MASSFIX                               
063329,000166: 20,2536           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO LOW.  THIS LIMITS THE
063330,000167: 20,2537           62003                           AD       LODESCNT                              #    DECREMENTING BY MASSMON.
063331,000168: 20,2540           61400                           AD       HIASCENT                              
063332,000169: 20,2541           00006                           EXTEND                                         
063333,000170: 20,2542           62544                           BZMF     F(MASS)                               
063334,000171: 20,2543           12517                           TCF      MASSFIX                               
063335,000172: 
063336,000173:                                                                                                  #  COMPUTATION OF FUNCTIONS OF MASS
063337,000174: 
063338,000175: 20,2544           00003        F(MASS)            RELINT                                         
063339,000176: 20,2545           10157                           CCS      DOCKTEMP                              
063340,000177: 20,2546           13111                           TCF      DOCKED                                #  DOCKED:  USE SEPERATE COMPUTATION.
063341,000178: 20,2547           34752                           CA       TWO                                   
063342,000179: 20,2550           54155        STCTR              TS       MPAC       +1                         #  J=2,1,0 FOR 1JACCR,1JACCQ,1JACC
063343,000180: 
063344,000181: 20,2551           44752                           CS       TWO                                   
063345,000182: 20,2552           26154                           ADS      MPAC                                  #  JX=10,8,6 OR 4,2,0 TO INDEX COEFS.

Page 1478

063347,000184: 20,2553           31326        STCTR1             CAE      LEMMASS                               
063348,000185: 20,2554           50154                           INDEX    MPAC                                  
063349,000186: 20,2555           63064                           AD       INERCONC                              
063350,000187: 20,2556           54156                           TS       MPAC       +2                         #  MASS + C
063351,000188: 20,2557           00006                           EXTEND                                         
063352,000189: 20,2560           50154                           INDEX    MPAC                                  
063353,000190: 20,2561           33046                           DCA      INERCONA                              
063354,000191: 20,2562           00006                           EXTEND                                         
063355,000192: 20,2563           10156                           DV       MPAC       +2                         
063356,000193: 20,2564           50154                           INDEX    MPAC                                  
063357,000194: 20,2565           63063                           AD       INERCONB                              
063358,000195: 20,2566           50155                           INDEX    MPAC       +1                         #  1JACC(J)=A(JX)/(MASS+C(JX) + B(JX)
063359,000196: 20,2567           55530                           TS       1JACC                                 #  1JACC(-1)=L,PVT-CG  SCALED AT 8 FEET
063360,000197: 
063361,000198: 20,2570           10155                           CCS      MPAC       +1                         
063362,000199: 20,2571           12550                           TCF      STCTR                                 
063363,000200: 20,2572           12574                           TCF      COMMEQS                               
063364,000201: 20,2573           12673                           TCF      LRESC                                 
063365,000202: 
063366,000203:                                                                                                  #    COEFFQ AND COEFFR ARE COMPUTED IN THIS SECTION. THEY ARE USED TO RESOLVE Q-R COMPONENTS INTO NON-ORTHOGONAL
063367,000204:                                                                                                  #  U AND V COMPONENTS (SEE ROT-TOUV SECTION).
063368,000205: 
063369,000206: 20,2574           41532        COMMEQS            CS       1JACCR                                
063370,000207: 20,2575           61531                           AD       1JACCQ                                
063371,000208: 20,2576           00006                           EXTEND                                         
063372,000209: 20,2577           62623                           BZMF     BIGIQ                                 
063373,000210: 20,2600           00006                           EXTEND                                         #  EPSILON IS A MEASURE OF COUPLING AND IS
063374,000211: 20,2601           11531                           DV       1JACCQ                                #  DEFINED=1-IQ/IR FOR IR GREATER THAN IQ.
063375,000212: 20,2602           54155                           TS       EPSILON                               #  THE COMPUTED EXPRESSION IS EQUIVALENT
063376,000213: 20,2603           63110                           AD       -EPSMAX                               
063377,000214: 20,2604           00006                           EXTEND                                         
063378,000215: 20,2605           62610                           BZMF     GOODEPS1                              
063379,000216: 20,2606           43110                           CS       -EPSMAX                               
063380,000217: 20,2607           54155                           TS       EPSILON                               #  EPSILON IS LIMITED TO A MAX. OF .42265
063381,000218: 20,2610           30155        GOODEPS1           CA       EPSILON                               
063382,000219: 20,2611           00006                           EXTEND                                         
063383,000220: 20,2612           73104                           MP       0.35356                               
063384,000221: 20,2613           63106                           AD       .7071                                 
063385,000222: 20,2614           55630                           TS       COEFFR                                #  IN THIS CASE WHERE IR IS GREATER THAN
063386,000223: 20,2615           44733                           CS       POSMAX                                #  IQ, COEFFQ=-.707(1+.5EPSILON)(1-EPSILON)
063387,000224: 20,2616           60155                           AD       EPSILON                               #  AND COEFFR=.707(1+.5EPSILON)
063388,000225: 20,2617           00006                           EXTEND                                         
063389,000226: 20,2620           71630                           MP       COEFFR                                
063390,000227: 20,2621           55627                           TS       COEFFQ                                
063391,000228: 20,2622           12646                           TCF      JACCUV                                
063392,000229: 20,2623           00006        BIGIQ              EXTEND                                         #  EPSILON IS DEFINED AS 1-IR/IQ FOR IQ
063393,000230: 20,2624           11532                           DV       1JACCR                                #  GREATER THAN IR.  -EPSILON IS COMPUTED
063394,000231: 20,2625           54155                           TS       -EPSILON                              #  RATHER THAN EPSILON FOR CONVENIENCE
063395,000232: 20,2626           40155                           CS       -EPSILON                              
063396,000233: 20,2627           63110                           AD       -EPSMAX                               

Page 1479

063398,000235: 20,2630           00006                           EXTEND                                         
063399,000236: 20,2631           62634                           BZMF     GOODEPS2                              
063400,000237: 20,2632           33110                           CA       -EPSMAX                               
063401,000238: 20,2633           54155                           TS       -EPSILON                              #  EPSILON IS LIMITED TO A MAX. OF .42265
063402,000239: 20,2634           30155        GOODEPS2           CA       -EPSILON                              
063403,000240: 20,2635           00006                           EXTEND                                         
063404,000241: 20,2636           73104                           MP       0.35356                               
063405,000242: 20,2637           63107                           AD       -.7071                                
063406,000243: 20,2640           55627                           TS       COEFFQ                                #  IN THIS CASE WHERE IQ IS GREATER THAN
063407,000244: 20,2641           40155                           CS       -EPSILON                              #  IR, COEFFQ=-.707(1+.5EPSILON) AND
063408,000245: 20,2642           64735                           AD       NEGMAX                                #  COEFFR=.707(1+.5EPSILON)(1-EPSILON)
063409,000246: 20,2643           00006                           EXTEND                                         
063410,000247: 20,2644           71627                           MP       COEFFQ                                
063411,000248: 20,2645           55630                           TS       COEFFR                                
063412,000249: 20,2646           41627        JACCUV             CS       COEFFQ                                
063413,000250: 20,2647           00006                           EXTEND                                         
063414,000251: 20,2650           71531                           MP       1JACCQ                                #  1JACCQ IS SCALED AT PI/4
063415,000252: 20,2651           55533                           TS       1JACCU                                #  1JACCU USED AS TEMPORARY STORAGE
063416,000253: 20,2652           31630                           CA       COEFFR                                
063417,000254: 20,2653           00006                           EXTEND                                         
063418,000255: 20,2654           71532                           MP       1JACCR                                
063419,000256: 20,2655           61533                           AD       1JACCU                                
063420,000257: 20,2656           00006                           EXTEND                                         
063421,000258: 20,2657           74736                           MP       BIT14                                 #  SCALING CHANGED FROM PI/4 TO PI/2
063422,000259: 20,2660           55533                           TS       1JACCU                                
063423,000260: 20,2661           55534                           TS       1JACCV                                #  SCALED AT PI/2 RADIANS/SEC(2)
063424,000261: 20,2662           10154                           CCS      MPAC                                  #  COMPUTE L,PVT-CG IF IN DESCENT
063425,000262: 20,2663           34755                           CAF      ZERO                                  #  ZERO SWITCHES AND GO TO 1/ACCONT IN
063426,000263: 20,2664           55502                           TS       ALLOWGTS                              #    ASCENT
063427,000264: 20,2665           13234                           TCF      1/ACCONT   -1                         
063428,000265: 
063429,000266: 20,2666           44752                           CS       TWO                                   
063430,000267: 20,2667           54154                           TS       MPAC                                  
063431,000268: 20,2670           44753                           CS       ONE                                   
063432,000269: 20,2671           54155                           TS       MPAC       +1                         
063433,000270: 20,2672           12553                           TCF      STCTR1                                
063434,000271: 
063435,000272:                                                                                                  #  THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS.  THE EQUATION IMPLE
063436,000273:                                                                                                  #  MENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
063437,000274:                                                                                                  #       T = ENGINE THRUST FORCE
063438,000275:                                                                                                  #       L = PIVOT TO CG DISTANCE OF ENGINE
063439,000276:                                                                                                  #       I = MOMENT OF INERTIA
063440,000277: 
063441,000278: 20,2673           31245        LRESC              CAE      ABDELV                                #  SCALED AT 2(13) CM/SEC(2)
063442,000279: 20,2674           00006                           EXTEND                                         
063443,000280: 20,2675           71243                           MP       MASS                                  #  SCALED AT B+16 KGS
063444,000281: 20,2676           03002                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
063445,000282: 20,2677           03105                           ADRES    GFACTM                                
063446,000283: 
063447,000284:                                                                                                  #  MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
063448,000285:                                                                                                  #  THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO

Page 1480

063450,000287:                                                                                                  #  THAT IS UNCONVERTED.  2.20462 CONVERTS KG. TO LB.  NOW T IS IN A SCALED AT 2(14).
063451,000288: 
063452,000289: 20,2700           00006                           EXTEND                                         
063453,000290: 20,2701           71527                           MP       L,PVT-CG                              #  SCALED AT 8 FEET.
063454,000291: 
063455,000292: 20,2702           00004                           INHINT                                         
063456,000293: 20,2703           54154                           TS       MPAC                                  
063457,000294: 20,2704           00006                           EXTEND                                         
063458,000295: 20,2705           71532                           MP       1JACCR                                
063459,000296: 20,2706           03002                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
063460,000297: 20,2707           02000                           ADRES    TORKJET1                              
063461,000298: 
063462,000299: 20,2710           55511                           TS       ACCDOTR                               #  SCALED AT PI/2(7)
063463,000300: 20,2711           30154                           CA       MPAC                                  
063464,000301: 20,2712           00006                           EXTEND                                         
063465,000302: 20,2713           71531                           MP       1JACCQ                                
063466,000303: 20,2714           03002                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
063467,000304: 20,2715           02000                           ADRES    TORKJET1                              
063468,000305: 
063469,000306: 20,2716           55507        SPSCONT            TS       ACCDOTQ                               #  SCALED AT PI/2(7)
063470,000307: 20,2717           00006                           EXTEND                                         
063471,000308: 20,2720           73103                           MP       DGBF                                  #  .3ACCDOTQ SCALED AT PI/2(8)
063472,000309: 20,2721           55504                           TS       KQ                                    
063473,000310: 20,2722           31511                           CAE      ACCDOTR                               #  .3ACCDOTR AT PI/2(8)
063474,000311: 20,2723           00006                           EXTEND                                         
063475,000312: 20,2724           73103                           MP       DGBF                                  
063476,000313: 20,2725           55506                           TS       KRDAP                                 
063477,000314: 20,2726           00006                           EXTEND                                         #  NOW COMPUTE QACCDOT, RACCDOT, THE SIGNED
063478,000315: 20,2727           00012                           READ     CHAN12                                #  JERK TERMS.  STORE CHANNEL 12. WITH GIM
063479,000316: 20,2730           54155                           TS       MPAC       +1                         #  BAL DRIVE BITS 9 THROUGH 12.  SET LOOP
063480,000317: 20,2731           34752                           CAF      BIT2                                  #  INDEX TO COMPUTE RACCDOT, THEN QACCDOT.
063481,000318: 20,2732           12734                           TCF      LOOP3                                 
063482,000319: 20,2733           34755                           CAF      ZERO                                  #  ACCDOTQ AND ACCDOTR ARE NOT NEGATIVE,
063483,000320: 20,2734           54154        LOOP3              TS       MPAC                                  #  BECAUSE THEY ARE MAGNITUDES
063484,000321: 20,2735           30155                           CA       MPAC       +1                         
063485,000322: 20,2736           50154                           INDEX    MPAC                                  #  MASK CHANNEL IMAGE FOR ANY GIMBAL MOTION
063486,000323: 20,2737           73077                           MASK     GIMBLBTS                              
063487,000324: 20,2740           00006                           EXTEND                                         
063488,000325: 20,2741           12755                           BZF      ZACCDOT                               #  IF NONE, Q(R)ACCDOT IS ZERO.
063489,000326: 20,2742           30155                           CA       MPAC       +1                         
063490,000327: 20,2743           50154                           INDEX    MPAC                                  #  GIMBAL IS MOVING.  IS ROTATION POSITIVE.
063491,000328: 20,2744           73100                           MASK     GIMBLBTS   +1                         
063492,000329: 20,2745           00006                           EXTEND                                         
063493,000330: 20,2746           12752                           BZF      FRSTZERO                              #  IF NOT POSITIVE, BRANCH
063494,000331: 20,2747           50154                           INDEX    MPAC                                  #  POSITIVE ROTATION, NEGATIVE Q(R)ACCDOT.
063495,000332: 20,2750           41507                           CS       ACCDOTQ                               
063496,000333: 20,2751           12756                           TCF      STACCDOT                              
063497,000334: 20,2752           50154        FRSTZERO           INDEX    MPAC                                  #  NEGATIVE ROTATION, POSITIVE Q(R)ACCDOT.
063498,000335: 20,2753           31507                           CA       ACCDOTQ                               
063499,000336: 20,2754           12756                           TCF      STACCDOT                              
063500,000337: 20,2755           34755        ZACCDOT            CAF      ZERO                                  

Page 1481

063502,000339: 20,2756           50154        STACCDOT           INDEX    MPAC                                  
063503,000340: 20,2757           55510                           TS       QACCDOT                               #  STORE Q(R)ACCDOT.
063504,000341: 20,2760           10154                           CCS      MPAC                                  
063505,000342: 20,2761           12733                           TCF      LOOP3      -1                         #  NOW DO QACCDOT.
063506,000343: 20,2762           40111                           CS       DAPBOOLS                              #  IS GIMBAL USABLE?
063507,000344: 20,2763           74736                           MASK     USEQRJTS                              
063508,000345: 20,2764           00006                           EXTEND                                         
063509,000346: 20,2765           13712                           BZF      DOWNGTS                               #  NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
063510,000347: 20,2766           41263                           CS       T5ADR                                 #  YES.  IS THE DAP RUNNING?
063511,000348: 20,2767           63772                           AD       PAXISADR                              
063512,000349: 20,2770           00006                           EXTEND                                         
063513,000350: 20,2771           12773                           BZF      +2                                    
063514,000351: 20,2772           13712                           TCF      DOWNGTS                               #  NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
063515,000352: 20,2773           11633                           CCS      INGTS                                 #  YES.  IS GTS IN CONTROL?
063516,000353: 20,2774           12777                           TCF      DOCKTEST                              #  YES.  PROCEED WITH 1/ACCS.
063517,000354: 20,2775           04674                           TC       IBNKCALL                              #  NO. NULL OFFSET AND FIND ALLOWGTS
063518,000355: 20,2776           43321                           CADR     TIMEGMBL                              
063519,000356: 
063520,000357: 20,2777           10157        DOCKTEST           CCS      DOCKTEMP                              #  BYPASS 1/ACCONT WHEN DOCKED.
063521,000358: 20,3000           13675                           TCF      1/ACCRET                              
063522,000359: 20,3001           13235                           TCF      1/ACCONT                              
063523,000360: 

Page 1482

063525,000362:                                                                                                  #  SUBROUTINE:  DVOVSUB
063526,000363: 
063527,000364:                                                                                                  #  AUTHOR:  C. WORK, MOD 0 12 JUNE 68
063528,000365: 
063529,000366:                                                                                                  #  PURPOSE:  THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
063530,000367:                                                                                                  #            (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
063531,000368:                                                                                                  #            (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
063532,000369:                                                                                                  #            (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
063533,000370:                                                                                                  #            THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6.
063534,000371:                                                                                                  #            THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE.  SIGN AGREEMENT IS
063535,000372:                                                                                                  #            ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND.  (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE RE-
063536,000373:                                                                                                  #            SULT OF A MULTIPLICATION OPERATION.)
063537,000374:                                                                                                  #  CALL SEQUENCE:
063538,000375:                                                                                                  #                                          L        TC     DVOVSUB
063539,000376:                                                                                                  #                                          L +1     ADRES  (DIVISOR)
063540,000377:                                                                                                  #                                          L +2     RETURN HERE, WITH RESULT IN A,L
063541,000378: 
063542,000379:                                                                                                  #  INPUT: DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
063543,000380:                                                                                                  #         DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
063544,000381: 
063545,000382:                                                                                                  #  OUTPUT: QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
063546,000383: 
063547,000384:                                                                                                  #  DEBRIS: SCRATCHX,SCRATCHY,SCRATCHZ,A,L  (NOTE: SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.)
063548,000385: 
063549,000386:                                                                                                  #  ABORTS OR ALARMS:  NONE
063550,000387: 
063551,000388:                                                                                                  #  EXITS:  TO THE CALL POINT +2.
063552,000389: 
063553,000390:                                                                                                  #  SUBROUTINES CALLED:  NONE.
063554,000391: 
063555,000392: 20,3002           54161        DVOVSUB            TS       SCRATCHY                              #  SAVE UPPER HALF OF DIVIDEND
063556,000393: 20,3003           54160                           TS       SCRATCHX                              
063557,000394: 20,3004           50002                           INDEX    Q                                     #  OBTAIN ADDRESS OF DIVISOR.
063558,000395: 20,3005           30000                           CA       0                                     
063559,000396: 20,3006           24002                           INCR     Q                                     #  STEP Q FOR PROPER RETURN SEQUENCE.
063560,000397: 20,3007           50000                           INDEX    A                                     
063561,000398: 20,3010           30000                           CA       0                                     #  PICK UP THE DIVISOR.
063562,000399: 20,3011           00006                           EXTEND                                         #  RETURN POSMAX FOR A ZERO DIVISOR.
063563,000400: 20,3012           13041                           BZF      MAXPLUS                               
063564,000401: 
063565,000402: 20,3013           54162                           TS       SCRATCHZ                              #  STORE DIVISOR.
063566,000403: 
063567,000404: 20,3014           10000                           CCS      A                                     #  GET ABS(DIVISOR) IN THE A REGISTER.
063568,000405: 20,3015           64753                           AD       BIT1                                  
063569,000406: 20,3016           13020                           TCF      ZEROPLUS                              
063570,000407: 20,3017           64753                           AD       BIT1                                  
063571,000408: 
063572,000409: 20,3020           56161        ZEROPLUS           XCH      SCRATCHY                              #  STORE ABS(DIVISOR).  PICK UP TOP HALF OF
063573,000410: 20,3021           00006                           EXTEND                                         #  DIVIDEND.
063574,000411: 20,3022           63024                           BZMF     GOODNEG                               #  GET -ABS(DIVIDEND)

Page 1483

063576,000413: 20,3023           40000                           CS       A                                     
063577,000414: 
063578,000415: 20,3024           60161        GOODNEG            AD       SCRATCHY                              #  ABS(DIVISOR) - ABS(DIVIDEND)
063579,000416: 20,3025           00006                           EXTEND                                         
063580,000417: 20,3026           63033                           BZMF     MAKEMAX                               #  BRANCH IF DIVISION IS NOT PROPER.
063581,000418: 
063582,000419: 20,3027           30160                           CA       SCRATCHX                              #  RE-ESTABLISH THE DIVIDEND.
063583,000420: 20,3030           00006                           EXTEND                                         
063584,000421: 20,3031           10162                           DV       SCRATCHZ                              #  QUOTIENT IN THE A, REMAINDER IN L.
063585,000422: 20,3032           00002                           TC       Q                                     #  RETURN TO CALLER.
063586,000423: 
063587,000424: 20,3033           10160        MAKEMAX            CCS      SCRATCHX                              #  DETERMINE THE SIGN OF THE QUOTIENT.
063588,000425: 20,3034           10162                           CCS      SCRATCHZ                              #  SCRATCHX AND SCRATCHZ ARE NON-ZERO.
063589,000426: 20,3035           13041                           TCF      MAXPLUS                               
063590,000427: 20,3036           10162                           CCS      SCRATCHZ                              
063591,000428: 20,3037           34735                           CAF      NEGMAX                                #  +,- OR -,+
063592,000429: 20,3040           00002                           TC       Q                                     
063593,000430: 20,3041           34733        MAXPLUS            CAF      POSMAX                                #  -,- OR +,+
063594,000431: 20,3042           00002                           TC       Q                                     
063595,000432: 
063596,000433:                                                                                                  #  COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
063597,000434:                                                                                                  #  THE CURVE FITS ARE OF THE FORM -
063598,000435: 
063599,000436:                                                                                                  #           1JACC = A/(MASS + C) + B
063600,000437: 
063601,000438:                                                                                                  #  A IS SCALED AT PI/4 RAD/SEC**2 B+16KG, B IS SCALED AT PI/4 RAD/SEC**2, AND C IS SCALED AT B +16 KG.
063602,000439: 
063603,000440:                                                                                                  #  THE CURVE FIT FOR L,PVT-CG IS OF THE SAME FORM, EXCEPT THAT A IS SCALED AT 8 FT B+16 KG, B IS SCALED AT 8 FT,
063604,000441:                                                                                                  #  AND C IS SCALED AT B+16 KG.
063605,000442: 
063606,000443: 20,3043           01240 22513                     2DEC     +.0410511917                            #  L             A               DESCENT
063607,000444: 
063608,000445: 20,3045           00141 07416  INERCONA           2DEC     +.0059347674                            #  1JACCP        A               DESCENT
063609,000446: 
063610,000447: 20,3047           00030 21261                     2DEC     +.0014979264                            #  1JACCQ        A               DESCENT
063611,000448: 
063612,000449: 20,3051           00021 03766                     2DEC     +.0010451889                            #  1JACCR        A               DESCENT
063613,000450: 
063614,000451: 20,3053           00153 07111                     2DEC     +.0065443852                            #  1JACCP        A               ASCENT
063615,000452: 
063616,000453: 20,3055           00072 24103                     2DEC     +.0035784354                            #  1JACCQ        A               ASCENT
063617,000454: 
063618,000455: 20,3057           00135 11511                     2DEC     +.0056946631                            #  1JACCR        A               ASCENT
063619,000456: 
063620,000457: 20,3061           04754                           DEC      +.155044                              #  L             B               DESCENT
063621,000458: 20,3062           77142                           DEC      -.025233                              #  L             C               DESCENT

Page 1484

063623,000460: 20,3063           00061        INERCONB           DEC      +.002989                              #  1JACCP        B               DESCENT
063624,000461: 20,3064           00217        INERCONC           DEC      +.008721                              #  1JACCP        C               DESCENT
063625,000462: 20,3065           00464                           DEC      +.018791                              #  1JACCQ        B               DESCENT
063626,000463: 20,3066           75642                           DEC      -.068163                              #  1JACCQ        C               DESCENT
063627,000464: 20,3067           00536                           DEC      +.021345                              #  1JACCR        B               DESCENT
063628,000465: 20,3070           75705                           DEC      -.066027                              #  1JACCR        C               DESCENT
063629,000466: 
063630,000467: 20,3071           00001                           DEC      +.000032                              #  1JACCP        B               ASCENT
063631,000468: 20,3072           77616                           DEC      -.006923                              #  1JACCP        C               ASCENT
063632,000469: 20,3073           05154                           DEC      +.162862                              #  1JACCQ        B               ASCENT
063633,000470: 20,3074           00052                           DEC      +.002588                              #  1JACCQ        C               ASCENT
063634,000471: 20,3075           00231                           DEC      +.009312                              #  1JACCR        B               ASCENT
063635,000472: 20,3076           77174                           DEC      -.023608                              #  1JACCR        C               ASCENT
063636,000473: 
063637,000474: 20,3077           01400        GIMBLBTS           OCTAL    01400                                 
063638,000475: 20,3100           01000                           OCTAL    01000                                 
063639,000476: 20,3101           06000                           OCTAL    06000                                 
063640,000477: 20,3102           04000                           OCTAL    04000                                 
063641,000478: 20,3103           23146        DGBF               DEC      0.6                                   #   .3 SCALED AT 1/2
063642,000479: 20,3104           13241        0.35356            DEC      0.35356                               #  .70711 SCALED AT 2
063643,000480: 20,3105           00337        GFACTM             OCT      337                                   #  979.24/2.20462 AT B+15
063644,000481: 20,3106           26501        .7071              DEC      .70711                                
063645,000482: 20,3107           51276        -.7071             DEC      -.70711                               
063646,000483: 20,3110           62362        -EPSMAX            DEC      -.42265                               
063647,000484: 
063648,000485:                                                                                                  #  CSM-DOCKED INERTIA COMPUTATIONS
063649,000486: 
063650,000487: 20,3111           34753        DOCKED             CA       ONE                                   #  COEFTR = 1 FOR INERTIA COEFFICIENTS
063651,000488: 20,3112           54160        SPSLOOP1           TS       COEFCTR                               #          = 7 FOR CG COEFFICIENTS
063652,000489: 20,3113           34753                           CA       ONE                                   #  MASSCTR = 1 FOR CSM
063653,000490: 20,3114           54161                           TS       MASSCTR                               #          = 0 FOR LEM
063654,000491: 
063655,000492: 20,3115           50160                           INDEX    COEFCTR                               
063656,000493: 20,3116           33216                           CA       COEFF      -1                         #  COEFF -1 = C
063657,000494: 20,3117           00006                           EXTEND                                         
063658,000495: 20,3120           71326                           MP       LEMMASS                               
063659,000496: 20,3121           00006                           EXTEND                                         
063660,000497: 20,3122           71327                           MP       CSMMASS                               #  LET X = CSMMASS AND Y = LEMMASS
063661,000498: 
063662,000499: 20,3123           50160                           INDEX    COEFCTR                               
063663,000500: 20,3124           63217                           AD       COEFF                                 #  COEFF = F
063664,000501: 20,3125           54154                           TS       MPAC                                  #  MPAC = C X Y + F
063665,000502: 20,3126           13132                           TCF      +4                                    
063666,000503: 
063667,000504: 20,3127           54161        SPSLOOP2           TS       MASSCTR                               #  LOOP TWICE THROUGH HERE TO OBTAIN
063668,000505: 20,3130           00006                           EXTEND                                         #  MPAC = MPAC + (A X +D)X + (B Y +E)Y
063669,000506: 20,3131           26160                           DIM      COEFCTR                               #                 LOOP #1     LOOP #2
063670,000507: 20,3132           50160                           INDEX    COEFCTR                               
063671,000508: 20,3133           33221                           CA       COEFF      +2                         #  COEFF +2 = A OR B
063672,000509: 20,3134           00006                           EXTEND                                         

Page 1485

063674,000511: 20,3135           50161                           INDEX    MASSCTR                               
063675,000512: 20,3136           71326                           MP       LEMMASS                               
063676,000513: 20,3137           50160                           INDEX    COEFCTR                               
063677,000514: 20,3140           63223                           AD       COEFF      +4                         #  COEFF +4 = E OR D
063678,000515: 20,3141           00006                           EXTEND                                         
063679,000516: 20,3142           50161                           INDEX    MASSCTR                               
063680,000517: 20,3143           71326                           MP       LEMMASS                               
063681,000518: 20,3144           26154                           ADS      MPAC                                  
063682,000519: 
063683,000520: 20,3145           10161                           CCS      MASSCTR                               
063684,000521: 20,3146           13127                           TCF      SPSLOOP2                              
063685,000522: 20,3147           10160                           CCS      COEFCTR                               #  IF COEFCTR IS POS, EXIT FROM LOOP WITH
063686,000523: 20,3150           13157                           TCF      +7                                    #  CG X DELDOT = MPAC X 4 PI RAD-CM/SEC
063687,000524: 20,3151           00000 20354  TORQCONS           2DEC     0.51443    B-14                       #  CORRESPONDS TO 500 LB-FT
063688,000525: 
063689,000526: 20,3153           30154                           CA       MPAC                                  
063690,000527: 20,3154           54155                           TS       MPAC       +1                         #  INERTIA = (MPAC +1) X 2(38) KG-CM(2)
063691,000528: 20,3155           34757                           CA       SEVEN                                 
063692,000529: 20,3156           13112                           TCF      SPSLOOP1                              
063693,000530: 
063694,000531: 20,3157           33216                           CA       1JACCCON                              #  1JACC=1JACCCON/MASS
063695,000532: 20,3160           22007                           ZL                                             
063696,000533: 20,3161           03002                           TC       DVOVSUB                               
063697,000534: 20,3162           01243                           ADRES    MASS                                  
063698,000535: 20,3163           55530                           TS       1JACC                                 #  SCALED AT PI/4
063699,000536: 
063700,000537: 20,3164           34733                           CA       POSMAX                                #  SET INVERSE JET ACCELERATIONS TO POSMAX,
063701,000538: 20,3165           55551                           TS       1/ANETP                               #  WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS.
063702,000539: 20,3166           55571                           TS       1/ANET2    +1                         
063703,000540: 20,3167           55572                           TS       1/ANET2    +2                         
063704,000541: 20,3170           55611                           TS       1/ANET2    +17D                       
063705,000542: 20,3171           55612                           TS       1/ANET2    +18D                       
063706,000543: 20,3172           00006                           EXTEND                                         
063707,000544: 20,3173           33152                           DCA      TORQCONS                              
063708,000545: 20,3174           00006                           EXTEND                                         
063709,000546: 20,3175           10155                           DV       MPAC       +1                         
063710,000547: 20,3176           00004                           INHINT                                         
063711,000548: 20,3177           55531                           TS       1JACCQ                                #  SCALED AT PI/4
063712,000549: 20,3200           55532                           TS       1JACCR                                
063713,000550: 
063714,000551: 20,3201           33107                           CA       -.7071                                
063715,000552: 20,3202           55627                           TS       COEFFQ                                #  COEFFQ AND COEFFR ARE CHOSEN TO MAKE U-
063716,000553: 20,3203           33106                           CA       .7071                                 #  AND V-AXES ORTHOGONAL FOR DOCKED CASE
063717,000554: 20,3204           55630                           TS       COEFFR                                
063718,000555: 20,3205           31243                           CA       MASS                                  #  SCALED AT 2(16) KG
063719,000556: 20,3206           00006                           EXTEND                                         
063720,000557: 20,3207           70154                           MP       MPAC                                  #  SCALED AT 4 PI RAD-CM/SEC
063721,000558: 20,3210           00006                           EXTEND                                         
063722,000559: 20,3211           71245                           MP       ABDELV                                #  SCALED AT 2(13) CM/SEC(2)
063723,000560: 20,3212           03002                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION

Page 1486

063725,000562: 20,3213           00155                           ADRES    MPAC       +1                         
063726,000563: 
063727,000564: 20,3214           55511                           TS       ACCDOTR                               
063728,000565: 20,3215           12716                           TCF      SPSCONT                               #  CONTINUE K, KSQ CALCULATIONS
063729,000566: 
063730,000567: 20,3216           00167        1JACCCON           OCT      00167                                 #  SCALED AT PI/4X2(16) RAD/SEC(2)-KG
063731,000568: 
063732,000569:                                                                                                  #                                                2     2
063733,000570:                                                                                                  #  COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X  +B Y  +C X Y +D X +E Y +F
063734,000571: 
063735,000572: 20,3217           06176        COEFF              DEC      .19518                                #  C  COEFFICIENT OF INERTIA
063736,000573: 20,3220           77650                           DEC      -.00529                               #  F             ''
063737,000574: 20,3221           72260                           DEC      -.17670                               #  B             ''
063738,000575: 20,3222           76637                           DEC      -.03709                               #  A             ''
063739,000576: 20,3223           02167                           DEC      .06974                                #  E             ''
063740,000577: 20,3224           00645                           DEC      .02569                                #  D             ''
063741,000578: 
063742,000579: 20,3225           06335                           DEC      .20096                                #  C  COEFFICIENT OF CG
063743,000580: 20,3226           04256                           DEC      .13564                                #  F          ''
063744,000581: 20,3227           30163                           DEC      .75704                                #  B          ''
063745,000582: 20,3230           64072                           DEC      -.37142                               #  A          ''
063746,000583: 20,3231           53632                           DEC      -.63117                               #  E          ''
063747,000584: 20,3232           15133                           DEC      .41179                                #  D          ''
063748,000585: 
063749,000586:                                                                                                  #  ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
063750,000587:                                                                                                  #  MPAC, MPAC +1, MPAC +2  USED EXPLICITLY
063751,000588: 20,3233     0160               COEFCTR            EQUALS   MPAC       +4                         
063752,000589: 20,3233     0161               MASSCTR            EQUALS   MPAC       +5                         
063753,000590: 20,3233     0160               SCRATCHX           EQUALS   MPAC       +4                         #  SCRATCH AREA FOR DVOVSUB ROUTINE.
063754,000591: 20,3233     0161               SCRATCHY           EQUALS   SCRATCHX   +1                         
063755,000592: 20,3233     0162               SCRATCHZ           EQUALS   SCRATCHX   +2                         
063756,000593: 
063757,000594: 20,3233     0157               DOCKTEMP           EQUALS   MPAC       +3                         #  RECORD OF CSMDOCKED BIT OF DAPBOOLS
063758,000595: 20,3233     0155               EPSILON            EQUALS   MPAC       +1                         
063759,000596: 20,3233     0155               -EPSILON           EQUALS   EPSILON                               
063760,000597: 20,3233           71777        -.1875             DEC      -.18750                               
063761,000598: 

Page 1487

063763,000600: 20,3234                                           BANK     20                                    
063764,000601: 20,2000                                           SETLOC   DAPS3                                 
063765,000602: 20,2000                                           BANK                                           
063766,000603: 
063767,000604: 20,3234  E6,1537                                  EBANK=   AOSQ                                  
063768,000605: 
063769,000606: 20,3234                                           COUNT*   $$/DAPAO                              
063770,000607: 
063771,000608: 20,3234           55633                 -1        TS       INGTS                                 #  ZERO INGTS IN ASCENT
063772,000609: 20,3235           31343        1/ACCONT           CA       DB                                    #  INITIALIZE DBVAL1,2,3
063773,000610: 20,3236           00006                           EXTEND                                         
063774,000611: 20,3237           74737                           MP       BIT13                                 
063775,000612: 20,3240           54001                           TS       L                                     #  0.25 DB
063776,000613: 20,3241           60000                           AD       A                                     
063777,000614: 20,3242           54115                           TS       DBVAL3                                #  0.50 DB
063778,000615: 20,3243           41343                           CS       DBVAL1                                
063779,000616: 20,3244           60001                           AD       L                                     
063780,000617: 20,3245           54114                           TS       DBVAL2                                #  -.75 DB
063781,000618: 
063782,000619: 20,3246           00004        GETAOSUV           INHINT                                         
063783,000620: 20,3247           31541                           CAE      AOSR                                  #  COMPUTE AOSU AND AOSV BY ROTATING
063784,000621: 20,3250           54001                           TS       L                                     #       AOSQ AND AOSR.
063785,000622: 20,3251           31537                           CAE      AOSQ                                  
063786,000623: 20,3252           04674                           TC       IBNKCALL                              
063787,000624: 20,3253           37200                           CADR     ROT-TOUV                              
063788,000625: 20,3254           53544                           DXCH     AOSU                                  
063789,000626: 
063790,000627: 20,3255           00003                           RELINT                                         
063791,000628: 20,3256           30111                           CA       DAPBOOLS                              
063792,000629: 20,3257           74744                           MASK     DRIFTBIT                              #  ZERO DURING ULLAGE AND POWERED FLIGHT.
063793,000630: 20,3260           10000                           CCS      A                                     #  IF DRIFTING FLIGHT,
063794,000631: 20,3261           34753                           CA       ONE                                   #       SET DRIFTER TO 1
063795,000632: 20,3262           54116                           TS       DRIFTER                               #  SAVE TO TEST FOR DRIFTING FLIGHT LATER
063796,000633: 20,3263           61502                           AD       ALLOWGTS                              #  NON-ZERO IF DRIFT OR GTS NEAR
063797,000634: 20,3264           10000                           CCS      A                                     
063798,000635: 20,3265           33767                           CA       FLATVAL                               #  DRIFTING FLIGHT, STORE .8 IN FLAT
063799,000636: 20,3266           54151                           TS       FLATEMP                               #  IN POWERED FLIGHT, STORE ZERO IN FLAT
063800,000637: 20,3267           00006                           EXTEND                                         
063801,000638: 20,3270           13274                           BZF      DOPAXIS                               #  IF POWERED AND NO GTS, START P AXIS,
063802,000639: 20,3271           10116                           CCS      DRIFTER                               #  OTHERWISE SET ZONE3LIM
063803,000640: 20,3272           33766                           CA       ZONE3MAX                              #  17.5 MS, SCALED AT 4 SECONDS.
063804,000641: 20,3273           54152                           TS       Z3TEM                                 
063805,000642: 
063806,000643: 20,3274           31530        DOPAXIS            CA       1JACC                                 #  1JACC AT PI/4 = 2JACC AT PI/2 =
063807,000644:                                                                                                  #  ANET AT PI/2 = ANET/ACOAST AT 2(6).
063808,000645: 20,3275           64743                           AD       BIT9                                  #  1 + ANET/ACOAST AT 2(6)
063809,000646: 20,3276           54157                           TS       FUNTEM                                
063810,000647: 
063811,000648: 20,3277           31530                           CA       1JACC                                 

Page 1488

063813,000650: 20,3300           03704                           TC       INVERT                                
063814,000651: 20,3301           00004                           INHINT                                         #  P AXIS DATA MUST BE CONSISTENT
063815,000652: 20,3302           55551                           TS       1/ANETP                               #  SCALED AT 2(7)/PI.
063816,000653: 20,3303           55552                           TS       1/ANETP    +1                         
063817,000654: 
063818,000655: 20,3304           44743                           CS       BIT9                                  #  -1 AT 2(6)
063819,000656: 20,3305           00006                           EXTEND                                         
063820,000657: 20,3306           71551                           MP       1/ANETP                               #  -1/ANET AT 2(13)/PI
063821,000658: 20,3307           00006                           EXTEND                                         
063822,000659: 20,3310           10157                           DV       FUNTEM                                #  -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI
063823,000660: 20,3311           55557                           TS       PACCFUN                               
063824,000661: 20,3312           55560                           TS       PACCFUN    +1                         
063825,000662: 
063826,000663: 20,3313           34733                           CA       1/.03                                 #  NO AOS FOR P AXIS, ACOAST = AMIN
063827,000664: 20,3314           55553                           TS       1/ACOSTP                              
063828,000665: 20,3315           55554                           TS       1/ACOSTP   +1                         
063829,000666: 20,3316           00003                           RELINT                                         
063830,000667: 
063831,000668: 20,3317           22007                           ZL                                             
063832,000669: 20,3320           10116                           CCS      DRIFTER                               
063833,000670: 20,3321           53544                           DXCH     AOSU                                  #  ZERO AOSU,V IF IN DRIFT, JUST TO BE SURE
063834,000671: 
063835,000672: 20,3322           34755        UAXIS              CA       ZERO                                  #  DO U AXIS COMPUTATIONS
063836,000673: 20,3323           54154                           TS       UV                                    #  ZERO FOR U AXIS, ONE FOR V AXIS.
063837,000674: 
063838,000675: 20,3324           54163        BOTHAXES           TS       SIGNAOS                               #  CODING COMMON TO U,V AXES
063839,000676: 20,3325           50154                           INDEX    UV                                    
063840,000677: 20,3326           11543                           CCS      AOSU                                  #  PICK UP ABS(AOSU OR AOSV)
063841,000678: 20,3327           64753                           AD       ONE                                   #  RESTORE TO PROPER VALUE
063842,000679: 20,3330           13333                           TCF      +3                                    #  AND LEAVE SIGNAOS AT ZERO
063843,000680: 20,3331           64753                           AD       ONE                                   #  NEGATIVE, RESTORE TO PROPER VALUE
063844,000681: 20,3332           24163                           INCR     SIGNAOS                               #  AND SET SIGNAOS TO ONE TO SHOW AOS NEG
063845,000682: 20,3333           54162                           TS       ABSAOS                                #  SAVE ABS(AOS)
063846,000683: 20,3334           40163                           CS       SIGNAOS                               
063847,000684: 20,3335           54164                           TS       -SIGNAOS                              #  USED AS AN INDEX
063848,000685: 
063849,000686: 20,3336           31343                           CA       DBVAL1                                #  SET DB1, DB2 TO DBVAL1 (= DB)
063850,000687: 20,3337           54143                           TS       DBB1                                  
063851,000688: 20,3340           54144                           TS       DBB2                                  
063852,000689: 
063853,000690: 20,3341           30162                           CA       ABSAOS                                #  TEST MAGNITUDE OF ABS(AOS)
063854,000691: 20,3342           63770                           AD       -.03R/S2                              
063855,000692: 20,3343           00006                           EXTEND                                         
063856,000693: 20,3344           63436                           BZMF     NOTMUCH                               #  ABS(AOS) LESS THAN AMIN
063857,000694: 20,3345           10151        BIGAOS             CCS      FLATEMP                               #  AGS(AOS) GREATER THAN AMIN
063858,000695: 20,3346           13376                           TCF      SKIPDB1                               #  I DRIFT OR GTS, DO NOT COMPUTE DB
063859,000696: 
063860,000697: 20,3347           31343                           CA       DBVAL1                                
063861,000698: 20,3350           50164                           INDEX    -SIGNAOS                              

Page 1489

063863,000700: 20,3351           26144                           ADS      DBB2                                  #  DB2(1) = 2 DB
063864,000701: 20,3352           50163                           INDEX    SIGNAOS                               
063865,000702: 20,3353           54145                           TS       DBB4                                  #  DB4(3) = 1 DB
063866,000703: 20,3354           33233                           CA       -.1875                                #  -.1875 PI/2 RAD/SEC(2) SCALED AT PI/2
063867,000704: 20,3355           60162                           AD       ABSAOS                                #  ABSAOS IS SCALED AT PI/2
063868,000705: 20,3356           00006                           EXTEND                                         
063869,000706: 20,3357           63362                           BZMF     +3                                    
063870,000707: 20,3360           40115                           CS       DBVAL3                                #  -.5 DB
063871,000708: 20,3361           13371                           TCF      DBONE                                 
063872,000709: 20,3362           40162                           CS       ABSAOS                                
063873,000710: 20,3363           60000                           DOUBLE                                         
063874,000711: 20,3364           60000                           DOUBLE                                         
063875,000712: 20,3365           64736                           AD       BIT14                                 
063876,000713: 20,3366           60000                           DOUBLE                                         #  1-8 ABSAOS.  (8 IS 16/PI SCALED AT 2/PI)
063877,000714: 20,3367           00006                           EXTEND                                         
063878,000715: 20,3370           71343                           MP       DB                                    
063879,000716: 20,3371           50163        DBONE              INDEX    SIGNAOS                               #  DB1(2)=(1-8 ABSAOS) DB.  IF ABSAOS IS
063880,000717: 20,3372           54143                           TS       DBB1                                  #  GREATER THAN .1875 THEN DB1(2) = -.5 DB
063881,000718: 20,3373           30114                           CA       DBVAL2                                
063882,000719: 20,3374           50164                           INDEX    -SIGNAOS                              
063883,000720: 20,3375           54146                           TS       DBB3                                  #  DB3(4) = -.75 DB
063884,000721: 
063885,000722: 20,3376           30162        SKIPDB1            CA       ABSAOS                                #  ABS(AOS) GREATER THAN AMIN, SO IT IS
063886,000723: 20,3377           00006                           EXTEND                                         
063887,000724: 20,3400           74740                           MP       BIT12                                 
063888,000725: 20,3401           60162                           AD       ABSAOS                                #  (9/8) ABSAOS.
063889,000726: 20,3402           03704                           TC       INVERT                                #  ALL RIGHT TO DIVIDE
063890,000727: 20,3403           50164                           INDEX    -SIGNAOS                              
063891,000728: 20,3404           54130                           TS       1/ACOSTT   +1                         #  1/ACOASTPOS(NEG) = 1/ABS(AOS)
063892,000729: 20,3405           34733                           CA       1/.03                                 
063893,000730: 20,3406           50163                           INDEX    SIGNAOS                               
063894,000731: 20,3407           54127                           TS       1/ACOSTT                              #  1/ACOASTNEG(POS) = 1/AMIN
063895,000732: 
063896,000733: 20,3410           30162                           CA       ABSAOS                                
063897,000734: 20,3411           61533                           AD       1JACCU                                
063898,000735: 20,3412           61533                           AD       1JACCU                                #  2 JACC + ABS(AOS)
063899,000736: 20,3413           64743                           AD       BIT9                                  #  MAXIMUM VALUE IN COMPUTATIONS
063900,000737: 20,3414           54000                           TS       A                                     #  TEST FOR OVERFLOW
063901,000738: 20,3415           13462                           TCF      SKIPDB2                               #  NO OVERFLOW, DO NORMAL COMPUTATION
063902,000739: 
063903,000740: 20,3416           30162                           CA       ABSAOS                                #  RESCALE TO PI TO PREVENT OVERFLOW
063904,000741: 20,3417           00006                           EXTEND                                         
063905,000742: 20,3420           74736                           MP       BIT14                                 
063906,000743: 20,3421           61533                           AD       1JACCU                                #  1 JACC AT PI/2 = 2JACC AT PI
063907,000744: 20,3422           54157                           TS       ANET                                  #  ANETPOS(NEG) MAX SCALED AT PI =
063908,000745:                                                                                                  #  ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7)
063909,000746: 20,3423           64744                           AD       BIT8                                  #  1 + ANETPOS/ACOASTNEG AT 2(7)
063910,000747: 20,3424           56157                           XCH      ANET                                  #  SAVE IN ANET, WHILE PICKING UP ANET
063911,000748: 20,3425           03704                           TC       INVERT                                
063912,000749: 20,3426           00006                           EXTEND                                         

Page 1490

063914,000751: 20,3427           74736                           MP       BIT14                                 #  SCALE 1/ANET AT 2(7)/PI
063915,000752: 20,3430           54160                           TS       1/ANET                                
063916,000753: 
063917,000754: 20,3431           33435                           CA       ACCHERE                               #  SET UP RETURN FROM COMPUTATION ROUTINE
063918,000755: 20,3432           54161                           TS       ARET                                  
063919,000756: 20,3433           44744                           CS       BIT8                                  #  -1 AT 2(7)
063920,000757: 20,3434           13737                           TCF      DOACCFUN                              #  FINISH ACCFUN COMPUTATION
063921,000758: 
063922,000759: 20,3435           13467        ACCHERE            TCF      ACCTHERE                              
063923,000760: 
063924,000761: 20,3436           54001        NOTMUCH            TS       L                                     #  ABS(AOS) LESS THAN AMIN, SAVE IN L
063925,000762: 20,3437           34733                           CA       1/.03                                 #  ACOASTPOS,NEG = AMIN
063926,000763: 20,3440           54127                           TS       1/ACOSTT                              
063927,000764: 20,3441           54130                           TS       1/ACOSTT   +1                         
063928,000765: 
063929,000766: 20,3442           10151                           CCS      FLATEMP                               
063930,000767: 20,3443           13462                           TCF      SKIPDB2                               #  DO NOT COMPUTE DB IF DRIFT OR GTS
063931,000768: 
063932,000769: 20,3444           33771                           CA       .023R/S2                              #  .0228 RAD/SEC(2)
063933,000770: 20,3445           60001                           AD       L                                     #  L=ABS(AOS)-AMIN=ABS(AOS)-.0245RAD/SEC(2)
063934,000771: 20,3446           00006                           EXTEND                                         #  RESULT IS ABS(AOS)-.0017 RAD/SEC(2)
063935,000772: 20,3447           63457                           BZMF     NOAOS                                 #  ABS(AOS) LESS THAN .0017 RAD/SEC(2)
063936,000773: 20,3450           30115        SOMEAOS            CA       DBVAL3                                #  .0017 RAD/SEC(2) LT ABS(AOS) LT AMIN
063937,000774: 20,3451           50164                           INDEX    -SIGNAOS                              
063938,000775: 20,3452           54146                           TS       DBB3                                  #  DB3(4) = DB/2
063939,000776: 20,3453           60000                           AD       A                                     
063940,000777: 20,3454           50163                           INDEX    SIGNAOS                               
063941,000778: 20,3455           54145                           TS       DBB4                                  #  DB4(3) = DB
063942,000779: 20,3456           13462                           TCF      SKIPDB2                               
063943,000780: 
063944,000781: 20,3457           31343        NOAOS              CA       DBVAL1                                
063945,000782: 20,3460           54146                           TS       DBB3                                  #  DB3,4 = DB
063946,000783: 20,3461           54145                           TS       DBB4                                  
063947,000784: 
063948,000785: 20,3462           30162        SKIPDB2            CA       ABSAOS                                #  ANETPOS(NEG) MAX = 2 JACC + ABS(AOS)
063949,000786: 20,3463           61533                           AD       1JACCU                                
063950,000787: 20,3464           61533                           AD       1JACCU                                
063951,000788: 20,3465           54157                           TS       ANET                                  #  CONNOT OVERFLOW HERE
063952,000789: 20,3466           03730        CL1/NET+           TC       DO1/NET+                              #  COMPUTE 1/ANET, ACCFUN
063953,000790: 
063954,000791: 20,3467           50164        ACCTHERE           INDEX    -SIGNAOS                              
063955,000792: 20,3470           54134                           TS       Z5TEM      +2                         #  STORE ACCFUN IN TEMPORARY BUFFER
063956,000793: 20,3471           30160                           CA       1/ANET                                
063957,000794: 20,3472           50164                           INDEX    -SIGNAOS                              
063958,000795: 20,3473           54126                           TS       1/ATEM2    +2                         #  STORE 1/ANET IN TEMPORARY BUFFER
063959,000796: 
063960,000797: 20,3474           30162                           CA       ABSAOS                                #  SEE IF OVERFLOW IN MIN CASE
063961,000798: 20,3475           61533                           AD       1JACCU                                
063962,000799: 20,3476           64743                           AD       BIT9                                  #  MAXIMUM POSSIBLE VALUE

Page 1491

063964,000801: 20,3477           54000                           TS       A                                     #  OVERFLOW POSSIBLE BUT REMOTE
063965,000802: 20,3500           13502                           TCF      +2                                    
063966,000803: 20,3501           34733                           CA       POSMAX                                #  IF OVERFLOW, TRUNCATE TO PI/2
063967,000804: 20,3502           63770                           AD       -.03R/S2                              #  RESTORE TO CORRECT VALUE
063968,000805: 20,3503           54157                           TS       ANET                                  
063969,000806: 20,3504           03730                           TC       DO1/NET+                              #  COMPUTE 1/ANET, ACCFUN
063970,000807: 
063971,000808: 20,3505           50164                           INDEX    -SIGNAOS                              #  STORE MIN VALUES JUST AS MAX VALUES
063972,000809: 20,3506           54132                           TS       Z5TEM                                 
063973,000810: 20,3507           30160                           CA       1/ANET                                
063974,000811: 20,3510           50164                           INDEX    -SIGNAOS                              
063975,000812: 20,3511           54124                           TS       1/ATEM2                               
063976,000813: 
063977,000814: 20,3512           40162                           CS       ABSAOS                                #  NOW DO NEG(POS) CASES
063978,000815: 20,3513           61533                           AD       1JACCU                                
063979,000816: 20,3514           61533                           AD       1JACCU                                #  ANETNEG(POS) MAX
063980,000817: 20,3515           03716                           TC       1/ANET-                               #  COMPUTE 1/ANET, ACCFUN, AND ACCSW
063981,000818: 20,3516           50163                           INDEX    SIGNAOS                               #  STORE NEG(POS) VALUES JUST AS POS(NEG)
063982,000819: 20,3517           54133                           TS       Z1TEM      +2                         
063983,000820: 20,3520           54001                           TS       L                                     #  SAVE IN L FOR POSSIBLE FUTURE USE
063984,000821: 20,3521           30160                           CA       1/ANET                                
063985,000822: 20,3522           50163                           INDEX    SIGNAOS                               
063986,000823: 20,3523           54125                           TS       1/ATEM1    +2                         
063987,000824: 20,3524           40162                           CS       ABSAOS                                
063988,000825: 20,3525           61533                           AD       1JACCU                                #  1/ANETNEG(POS) MIN
063989,000826: 20,3526           54157                           TS       ANET                                  
063990,000827: 20,3527           63770                           AD       -.03R/S2                              #  TEST FOR AMIN
063991,000828: 20,3530           00006                           EXTEND                                         #  IF ANET LESS THAN AMIN, STORE MAX JET
063992,000829: 20,3531           63747                           BZMF     FIXMIN                                #  VALUES FOR MIN JETS AND SET ACCSW
063993,000830: 
063994,000831: 20,3532           03724                           TC       1/NETMIN                              #  OTHERWISE DO MIN JET COMPUTATIONS
063995,000832: 20,3533           50163        STMIN-             INDEX    SIGNAOS                               #  STORE VALUES
063996,000833: 20,3534           54131                           TS       Z1TEM                                 
063997,000834: 20,3535           30160                           CA       1/ANET                                
063998,000835: 20,3536           50163                           INDEX    SIGNAOS                               
063999,000836: 20,3537           54123                           TS       1/ATEM1                               
064000,000837: 
064001,000838: 20,3540           50154                           INDEX    UV                                    
064002,000839: 20,3541           33775                           CA       +UMASK                                
064003,000840: 20,3542           71257                           MASK     CH5MASK                               #  TEST FOR +U (+V) JET FAILURES
064004,000841: 20,3543           00006                           EXTEND                                         
064005,000842: 20,3544           13551                           BZF      FAIL-                                 
064006,000843: 20,3545           30124                           CA       1/ATEM2                               #  REPLACE FUNCTION VALUES DEPENDING ON THE
064007,000844: 20,3546           54126                           TS       1/ATEM2    +2                         #  FAILED JET PAIR WITH CORRESPONDING ONE-
064008,000845: 20,3547           30132                           CA       Z5TEM                                 #  JET (OR AMIN) FUNCTION VALUES
064009,000846: 20,3550           54134                           TS       Z5TEM      +2                         
064010,000847: 20,3551           50154        FAIL-              INDEX    UV                                    
064011,000848: 20,3552           33773                           CA       -UMASK                                

Page 1492

064013,000850: 20,3553           71257                           MASK     CH5MASK                               #  TEST FOR -U (-V) JET FAILURES
064014,000851: 20,3554           00006                           EXTEND                                         
064015,000852: 20,3555           13562                           BZF      DBFUN                                 
064016,000853: 20,3556           30123                           CA       1/ATEM1                               #  REPLACE FUNCTION VALUES DEPENDING ON THE
064017,000854: 20,3557           54125                           TS       1/ATEM1    +2                         #  FAILED JET PAIR WITH CORRESPONDING ONE-
064018,000855: 20,3560           30131                           CA       Z1TEM                                 #  JET (OR AMIN) FUNCTION VALUES
064019,000856: 20,3561           54133                           TS       Z1TEM      +2                         
064020,000857: 
064021,000858: 20,3562           40146        DBFUN              CS       DBB3                                  #  COMPUTE AXISDIST
064022,000859: 20,3563           60143                           AD       DBB1                                  
064023,000860: 20,3564           60151                           AD       FLATEMP                               
064024,000861: 20,3565           54147                           TS       AXDSTEM                               
064025,000862: 20,3566           40145                           CS       DBB4                                  
064026,000863: 20,3567           60144                           AD       DBB2                                  
064027,000864: 20,3570           60151                           AD       FLATEMP                               
064028,000865: 20,3571           54150                           TS       AXDSTEM    +1                         
064029,000866: 
064030,000867: 20,3572           00004                           INHINT                                         
064031,000868: 20,3573           10154                           CCS      UV                                    #  TEST FOR U OR V AXIS
064032,000869: 20,3574           13616                           TCF      STORV                                 #  V AXIS   STORE V VALUES
064033,000870: 
064034,000871: 20,3575           30122                           CA       ACCSW                                 #  U AXIS   STORE U VALUES
064035,000872: 20,3576           55547                           TS       ACCSWU                                
064036,000873: 
064037,000874: 20,3577           34320                           CA       NINE                                  #  TRANSFER 10 WORDS VIA GENTRAN
064038,000875: 20,3600           05545                           TC       GENTRAN    +1                         
064039,000876: 20,3601           00123                           ADRES    1/ATEM1                               #  TEMPORARY BUFFER
064040,000877: 20,3602           01567                           ADRES    1/ANET1                               #  THE REAL PLACE
064041,000878: 
064042,000879: 20,3603           00003                           RELINT                                         
064043,000880: 20,3604           52144                           DXCH     DBB1                                  #  SAVE U DBS FOR LATER STORING
064044,000881: 20,3605           52136                           DXCH     UDB1                                  
064045,000882: 20,3606           52146                           DXCH     DBB4                                  
064046,000883: 20,3607           52140                           DXCH     UDB4                                  
064047,000884: 
064048,000885: 20,3610           52150                           DXCH     AXDSTEM                               
064049,000886: 20,3611           52142                           DXCH     UAXDIST                               
064050,000887: 
064051,000888: 20,3612           34753                           CA       ONE                                   #  NOW DO V AXIS
064052,000889: 20,3613           54154                           TS       UV                                    
064053,000890: 20,3614           34755                           CA       ZERO                                  
064054,000891: 20,3615           13324                           TCF      BOTHAXES                              #  AND DO IT AGAIN
064055,000892: 
064056,000893: 20,3616           30122        STORV              CA       ACCSW                                 #  STORE V AXIS VALUES
064057,000894: 20,3617           55550                           TS       ACCSWV                                
064058,000895: 20,3620           34320                           CA       NINE                                  
064059,000896: 20,3621           05545                           TC       GENTRAN    +1                         
064060,000897: 20,3622           00123                           ADRES    1/ATEM1                               #  TEMPORARY BUFFER

Page 1493

064062,000899: 20,3623           01607                           ADRES    1/ANET1    +16D                       #  THE REAL PLACE
064063,000900: 
064064,000901:                                                                                                  #  NOW STORE DEADBANDS FOR ALL AXES
064065,000902: 20,3624           52152                           DXCH     FLATEMP                               #  FLAT AND ZONE3LIM
064066,000903: 20,3625           53556                           DXCH     FLAT                                  
064067,000904: 
064068,000905: 20,3626           31343                           CA       DBVAL1                                #  COMPUTE P AXIS DEADBANDS
064069,000906: 20,3627           55561                           TS       PDB1                                  
064070,000907: 20,3630           55562                           TS       PDB2                                  
064071,000908: 20,3631           61555                           AD       FLAT                                  
064072,000909: 20,3632           55564                           TS       PDB3                                  
064073,000910: 20,3633           55563                           TS       PDB4                                  
064074,000911: 20,3634           34755                           CA       ZERO                                  
064075,000912: 20,3635           55565                           TS       PAXDIST                               
064076,000913: 20,3636           55566                           TS       PAXDIST    +1                         
064077,000914: 
064078,000915: 20,3637           11555                           CCS      FLAT                                  
064079,000916: 20,3640           13656                           TCF      DRFDB                                 #  DRIFT OR GTS - COMPUTE DBS
064080,000917: 
064081,000918: 20,3641           52136                           DXCH     UDB1                                  #  STORE U DEADBANDS
064082,000919: 20,3642           53602                           DXCH     FIREDB                                #  CANNOT USE GENTRAN BECAUSE OF RELINT
064083,000920: 20,3643           52140                           DXCH     UDB4                                  
064084,000921: 20,3644           53604                           DXCH     COASTDB                               
064085,000922: 20,3645           52142                           DXCH     UAXDIST                               
064086,000923: 20,3646           53606                           DXCH     AXISDIST                              
064087,000924: 20,3647           52144                           DXCH     DBB1                                  #  STORE V AXIS DEADBANDS
064088,000925: 20,3650           53622                           DXCH     FIREDB     +16D                       #  COULD USE GENTRAN IF DESIRED
064089,000926: 20,3651           52146                           DXCH     DBB4                                  
064090,000927: 20,3652           53624                           DXCH     COASTDB    +16D                       
064091,000928: 20,3653           52150                           DXCH     AXDSTEM                               
064092,000929: 20,3654           53626                           DXCH     AXISDIST   +16D                       
064093,000930: 
064094,000931: 20,3655           13676                           TCF      1/ACCRET   +1                         #  ALL DONE
064095,000932: 20,3656           31343        DRFDB              CA       DBVAL1                                #  DRIFT DEADBANDS
064096,000933: 20,3657           55601                           TS       FIREDB                                
064097,000934: 20,3660           55602                           TS       FIREDB     +1                         
064098,000935: 20,3661           55621                           TS       FIREDB     +16D                       
064099,000936: 20,3662           55622                           TS       FIREDB     +17D                       
064100,000937: 20,3663           61555                           AD       FLAT                                  
064101,000938: 20,3664           55603                           TS       COASTDB                               
064102,000939: 20,3665           55604                           TS       COASTDB    +1                         
064103,000940: 20,3666           55623                           TS       COASTDB    +16D                       
064104,000941: 20,3667           55624                           TS       COASTDB    +17D                       
064105,000942: 20,3670           34755                           CA       ZERO                                  
064106,000943: 20,3671           55605                           TS       AXISDIST                              
064107,000944: 20,3672           55606                           TS       AXISDIST   +1                         
064108,000945: 20,3673           55625                           TS       AXISDIST   +16D                       
064109,000946: 20,3674           55626                           TS       AXISDIST   +17D                       
064110,000947: 
064111,000948: 20,3675           00004        1/ACCRET           INHINT                                         

Page 1494

064113,000950: 20,3676           40111                           CS       DAPBOOLS                              #  SET BIT TO INDICATE DATA GOOD.
064114,000951: 20,3677           74751                           MASK     ACCSOKAY                              
064115,000952: 20,3700           26111                           ADS      DAPBOOLS                              
064116,000953: 20,3701           00003                           RELINT                                         
064117,000954: 20,3702           30117                           CA       ACCRETRN                              
064118,000955: 20,3703           04640                           TC       BANKJUMP                              #  RETURN TO CALLER
064119,000956: 
064120,000957: 20,3704           54165        INVERT             TS       HOLD                                  #  ROUTINE TO INVERT -INPUT AT PI/2
064121,000958: 20,3705           34743                           CA       BIT9                                  #  1 AT 2(6)
064122,000959: 20,3706           22007                           ZL                                             #  ZERO L FOR ACCURACY AND TO PREVENT OVFLO
064123,000960: 20,3707           00006                           EXTEND                                         
064124,000961: 20,3710           10165                           DV       HOLD                                  
064125,000962: 20,3711           00002                           TC       Q                                     #  RESULT AT 2(7)/PI
064126,000963: 
064127,000964: 20,3712           34755        DOWNGTS            CAF      ZERO                                  #  ZERO SWITCHES WHEN USEQRJTS BIT IS UP
064128,000965: 20,3713           55502                           TS       ALLOWGTS                              #    OR DAP IS OFF.
064129,000966: 20,3714           55633                           TS       INGTS                                 
064130,000967: 20,3715           12777                           TCF      DOCKTEST                              
064131,000968: 
064132,000969: 20,3716           22007        1/ANET-            ZL                                             
064133,000970: 20,3717           22122                           LXCH     ACCSW                                 #  ZERO ACCSW
064134,000971: 20,3720           54157                           TS       ANET                                  #  SAVE ANET
064135,000972: 20,3721           63770                           AD       -.03R/S2                              #  TEST FOR MIN VALUE
064136,000973: 20,3722           00006                           EXTEND                                         
064137,000974: 20,3723           63744                           BZMF     NETNEG                                #  ANET LESS THAN AMIN, SO FAKE IT
064138,000975: 20,3724           30157        1/NETMIN           CA       ANET                                  
064139,000976: 20,3725           00006                           EXTEND                                         
064140,000977: 20,3726           50164                           INDEX    -SIGNAOS                              
064141,000978: 20,3727           70130                           MP       1/ACOSTT   +1                         #  ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
064142,000979: 
064143,000980:                                                                                                  #  THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
064144,000981:                                                                                                  #          VALUES OF AOS
064145,000982: 
064146,000983: 20,3730           64743        DO1/NET+           AD       BIT9                                  #  1 + ANET/ACOAST AT 2(6)
064147,000984: 20,3731           56157                           XCH      ANET                                  #  SAVE AND PICK UP ANET
064148,000985: 20,3732           00006                           EXTEND                                         
064149,000986: 20,3733           22161                           QXCH     ARET                                  #  SAVE RETURN
064150,000987: 20,3734           03704                           TC       INVERT                                
064151,000988: 20,3735           54160                           TS       1/ANET                                #  1/ANET AT 2(7)/PI
064152,000989: 20,3736           44743                           CS       BIT9                                  #  -1 AT 2(6)
064153,000990: 20,3737           00006        DOACCFUN           EXTEND                                         
064154,000991: 20,3740           70160                           MP       1/ANET                                #  -1/ANET AT 2(13)/PI
064155,000992: 20,3741           00006                           EXTEND                                         
064156,000993: 20,3742           10157                           DV       ANET                                  #  ACCFUN AT 2(7)/PI
064157,000994: 20,3743           00161                           TC       ARET                                  #  RETURN
064158,000995: 
064159,000996: 20,3744           43770        NETNEG             CS       -.03R/S2                              #  ANET LESS THAN AMIN - SET EQUAL TO AMIN
064160,000997: 20,3745           54157                           TS       ANET                                  
064161,000998: 20,3746           13725                           TCF      1/NETMIN   +1                         #  CONTINUE AS IF NOTHING HAPPENED

Page 1495

064163,001000: 20,3747           10163        FIXMIN             CCS      SIGNAOS                               
064164,001001: 20,3750           34752                           CA       TWO                                   #  IF AOS NEG, ACCSW = +1
064165,001002: 20,3751           67752                           AD       NEGONE                                #  IF AOS POS, ACCSW = -1
064166,001003: 20,3752           54122                           TS       ACCSW                                 
064167,001004: 20,3753           60154                           AD       UV                                    #  IF ACCSW = +1, TEST FOR +U (+V) JET FAIL
064168,001005: 20,3754           50000                           INDEX    A                                     #  IF ACCSW = -1, TEST FOR -U (-V) JET FAIL
064169,001006: 20,3755           33774                           CA       -UMASK     +1                         
064170,001007: 20,3756           71257                           MASK     CH5MASK                               
064171,001008: 20,3757           00006                           EXTEND                                         
064172,001009: 20,3760           13764                           BZF      +4                                    
064173,001010: 20,3761           43770                           CS       -.03R/S2                              #  JET FAILURE - CANNOT USE 2-JET VALUES
064174,001011: 20,3762           54157                           TS       ANET                                  #  ANET = AMIN
064175,001012: 20,3763           13532                           TCF      STMIN-     -1                         #  CALCULATE FUNCTIONS USING AMIN
064176,001013: 20,3764           30001                           CA       L                                     #  L HAS ACCFUN
064177,001014: 20,3765           13533                           TCF      STMIN-                                #  STORE MAX VALUES FOR MIN JETS
064178,001015: 
064179,001016:                                                                                                  #  ERASABLE ASSIGNMENTS FOR 1/ACCONT
064180,001017: 
064181,001018: 20,3766  E6,1551               1/ANETP            EQUALS   BLOCKTOP   +2                         
064182,001019: 20,3766  E6,1553               1/ACOSTP           EQUALS   BLOCKTOP   +4                         
064183,001020: 20,3766  E6,1557               PACCFUN            EQUALS   BLOCKTOP   +8D                        
064184,001021: 20,3766  E6,1561               PDB1               EQUALS   BLOCKTOP   +10D                       
064185,001022: 20,3766  E6,1562               PDB2               EQUALS   BLOCKTOP   +11D                       
064186,001023: 20,3766  E6,1563               PDB4               EQUALS   BLOCKTOP   +12D                       
064187,001024: 20,3766  E6,1564               PDB3               EQUALS   BLOCKTOP   +13D                       
064188,001025: 20,3766  E6,1565               PAXDIST            EQUALS   BLOCKTOP   +14D                       
064189,001026: 
064190,001027: 20,3766     0122               ACCSW              EQUALS   VBUF                                  #  EXECUTIVE TEMPORARIES
064191,001028:                                                                                                  #  CANNOT DO CCS     NEWJOB DURING 1/ACCS
064192,001029: 20,3766     0123               1/ATEM1            EQUALS   ACCSW      +1                         #  TEMP BUFFER FOR U AND V AXES
064193,001030: 20,3766     0124               1/ATEM2            EQUALS   1/ATEM1    +1                         
064194,001031: 20,3766     0127               1/ACOSTT           EQUALS   1/ATEM1    +4                         
064195,001032: 20,3766     0131               Z1TEM              EQUALS   1/ATEM1    +6                         
064196,001033: 20,3766     0132               Z5TEM              EQUALS   1/ATEM1    +7                         
064197,001034: 
064198,001035: 20,3766     0135               UDB1               EQUALS   1/ATEM1    +10D                       #  UAXIS DEADBAND BUFFER
064199,001036: 20,3766     0136               UDB2               EQUALS   1/ATEM1    +11D                       
064200,001037: 20,3766     0137               UDB4               EQUALS   1/ATEM1    +12D                       
064201,001038: 20,3766     0140               UDB3               EQUALS   1/ATEM1    +13D                       
064202,001039: 20,3766     0141               UAXDIST            EQUALS   1/ATEM1    +14D                       
064203,001040: 
064204,001041: 20,3766     0143               DBB1               EQUALS   1/ATEM1    +16D                       #  TEMP DEADBAND BUFFER, ALSO V AXIS
064205,001042: 20,3766     0144               DBB2               EQUALS   1/ATEM1    +17D                       
064206,001043: 20,3766     0145               DBB4               EQUALS   1/ATEM1    +18D                       
064207,001044: 20,3766     0146               DBB3               EQUALS   1/ATEM1    +19D                       
064208,001045: 20,3766     0147               AXDSTEM            EQUALS   1/ATEM1    +20D                       
064209,001046: 
064210,001047: 20,3766     0151               FLATEMP            EQUALS   1/ATEM1    +22D                       
064211,001048: 20,3766     0152               Z3TEM              EQUALS   1/ATEM1    +23D                       #  MUST FOLLOW FLATEMP

Page 1496

064213,001050: 20,3766     1343               DBVAL1             EQUALS   DB                                    
064214,001051: 20,3766     0114               DBVAL2             EQUALS   INTB15+                               
064215,001052: 20,3766     0115               DBVAL3             EQUALS   INTB15+    +1                         
064216,001053: 
064217,001054: 20,3766     0116               DRIFTER            EQUALS   INTB15+    +2                         
064218,001055: 
064219,001056: 20,3766     0154               UV                 EQUALS   MPAC                                  
064220,001057: 20,3766     0157               ANET               EQUALS   MPAC       +3                         
064221,001058: 20,3766     0157               FUNTEM             EQUALS   MPAC       +3                         
064222,001059: 20,3766     0160               1/ANET             EQUALS   MPAC       +4                         
064223,001060: 20,3766     0161               ARET               EQUALS   MPAC       +5                         
064224,001061: 20,3766     0162               ABSAOS             EQUALS   MPAC       +6                         
064225,001062: 20,3766     0163               SIGNAOS            EQUALS   MPAC       +7                         
064226,001063: 20,3766     0164               -SIGNAOS           EQUALS   MPAC       +8D                        
064227,001064: 20,3766     0165               HOLD               EQUALS   MPAC       +9D                        
064228,001065: 20,3766     0117               ACCRETRN           EQUALS   FIXLOC     -1                         
064229,001066: 
064230,001067: 20,3766           00110        ZONE3MAX           DEC      .004375                               #  17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
064231,001068: 20,3767           00443        FLATVAL            DEC      .01778                                #  .8 AT PI/4 RAD
064232,001069: 20,3770           77377        -.03R/S2           OCT      77377                                 #  -PI/2(7) AT PI/2
064233,001070: 
064234,001071: 20,3771           00356        .023R/S2           OCT      00356                                 #  .0228 RAD/SEC(2) AT PI/2
064235,001072: 20,3772     4733               1/.03              EQUALS   POSMAX                                #  2(7)/PI AT 2(7)/PI
064236,001073: 
064237,001074: 20,3772           02213        PAXISADR           GENADR   PAXIS                                 
064238,001075: 
064239,001076:                                                                                                  #  THE FOLLOWING 4 CONSTANTS ARE JET
064240,001077:                                                                                                  #  FAILURE MASKS AND ARE INDEXED
064241,001078: 20,3773           00110        -UMASK             OCT      00110                                 #  -U
064242,001079: 20,3774           00022                           OCT      00022                                 #  -V
064243,001080: 20,3775           00204        +UMASK             OCT      00204                                 #  +U
064244,001081: 20,3776           00041                           OCT      00041                                 #  +V
064245,001082: 

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