Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, 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 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

064469,000002:                                                                                                  ## Copyright:   Public domain.
064470,000003:                                                                                                  ## Filename:    AOSTASK_AND_AOSJOB.agc
064471,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
064472,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
064473,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
064474,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
064475,000008:                                                                                                  ##              that the code format has been changed to conform to the
064476,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
064477,000010:                                                                                                  ##              original YUL assembler.
064478,000011:                                                                                                  ## Reference:   pp. 1483-1504
064479,000012:                                                                                                  ## Assembler:   yaYUL
064480,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
064481,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
064482,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
064483,000016:                                                                                                  ##              2016-12-10 HG   Transcribed
064484,000017:                                                                                                  ##              2016-12-12 HG   Bumped a -1 into column 2 to fix a yaYUL warning.
064485,000018:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
064486,000019:                                                                                                  ##                              and corrected errors found.
064487,000020:                                                                                                  ##              2017-03-10 RSB  Comment-text fixes noted in proofing Luminary 116.
064488,000021: 

Page 1483

064490,000023:                                                                                                  #  PROGRAM NAME: 1/ACCS
064491,000024:                                                                                                  #  PROGRAM WRITTEN BY: BOB COVELLI AND MIKE HOUSTON
064492,000025:                                                                                                  #  LAST MODIFICATION: FEB.14,1969 BY G. KALAN
064493,000026: 
064494,000027:                                                                                                  #  PROGRAM DESCRIPTION:
064495,000028: 
064496,000029:                                                                                                  #     1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A
064497,000030:                                                                                                  #  CHANGE IN THE MASS OF THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT-
064498,000031:                                                                                                  #  DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP.
064499,000032: 
064500,000033:                                                                                                  #     THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR),
064501,000034:                                                                                                  #  STAGE VERIFY BIT (CHAN30,BIT2), DOCKED BIT (DAPBOOLS,BIT13), DRIFT BIT (DAPBOOLS,BIT8), USEQRJTS (DAPBOOLS,
064502,000035:                                                                                                  #  BIT14), AND SURFACE FLAG (FLAGWRD8,BIT8), AND CH5MASK.
064503,000036: 
064504,000037:                                                                                                  #     1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE
064505,000038:                                                                                                  #  FORMED BY RESOLVING 1JACCQ NAD 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L,PVT-CG) IS ALSO
064506,000039:                                                                                                  #  COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ,
064507,000040:                                                                                                  #  ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE.
064508,000041: 
064509,000042:                                                                                                  #     AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL  NET ACCELERATIONS ABOUT THE P, U,
064510,000043:                                                                                                  #  AND V AXES (2 JETS FOR P AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT
064511,000044:                                                                                                  #  THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5)ARE ALSO COMPUTED FOR THESE AXES. THE
064512,000045:                                                                                                  #  FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS. FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE
064513,000046:                                                                                                  #  MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
064514,000047:                                                                                                  #  IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
064515,000048: 
064516,000049: 
064517,000050:                                                                                                  #  SUBBOUTINES CALLED:
064518,000051: 
064519,000052:                                                                                                  #           TIMEGMBL
064520,000053:                                                                                                  #           MAKECADR
064521,000054:                                                                                                  #           ROT45DEG
064522,000055: 
064523,000056:                                                                                                  #  CALLING SEQUENCE:
064524,000057: 
064525,000058:                                                                                                  #                                             TC     BANKCALL        (1/ACCS MUST BE CALL BY BANKCALL
064526,000059:                                                                                                  #                                             CADR   1/ACCS
064527,000060: 
064528,000061:                                                                                                  #  NORMAL EXIT: VIA BANKJUMP       ALARM AND ABORT EXIT MODES: NONE.
064529,000062: 
064530,000063:                                                                                                  #  INPUT/OUTPUT: SEE PROGRAM DESCRIPTION
064531,000064: 
064532,000065:                                                                                                  #  DEBRIS:
064533,000066: 
064534,000067:                                                                                                  #  ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
064535,000068: 
064536,000069:                                                                                                  #  RESTRICTIONS:
064537,000070: 
064538,000071:                                                                                                  #  1/ACCS MUST BE CALLED BY BANKCALL
064539,000072:                                                                                                  #  EBANK IS SET TO 6, BUT NOT RESTORED.
064540,000073: 

Page 1484

064542,000075: 
064543,000076: 21,3576                                           BANK     21                                    
064544,000077: 21,2000                                           SETLOC   DAPS4                                 
064545,000078: 21,2000                                           BANK                                           
064546,000079: 
064547,000080: 21,3576                                           COUNT*   $$/DAPAO                              
064548,000081: 
064549,000082: 21,3576  E6,1536                                  EBANK=   AOSQ                                  
064550,000083: 
064551,000084:                                                                                                  #  ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
064552,000085: 
064553,000086:                                                                                                  #  IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY.  HOWEVER, SINCE THERE IS NO CHECK OF
064554,000087:                                                                                                  #  NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
064555,000088: 
064556,000089: 21,3576           34746        1/ACCSET           CAF      ZERO                                  #  ENTRY FROM FRESH START/RESTART CODING.
064557,000090: 21,3577           55536                           TS       AOSQ                                  #    NULL THE OFFSET ESTIMATES FOR 1/ACCS.
064558,000091: 21,3600           55540                           TS       AOSR                                  
064559,000092: 21,3601           55424                           TS       ALPHAQ                                #    NULL THE OFFSET ESTIMATES FOR DOWNLIST
064560,000093: 21,3602           55425                           TS       ALPHAR                                
064561,000094: 
064562,000095: 21,3603           04607        1/ACCJOB           TC       BANKCALL                              #  1/ACCS ASSUMES ENTRY VIA BANKCALL.
064563,000096: 21,3604           40465                           CADR     1/ACCS     +2                         #  SKIP EBANK SETTING.
064564,000097: 
064565,000098: 21,3605           05146                           TC       ENDOFJOB                              
064566,000099: 
064567,000100: 20,2463                                           BANK     20                                    
064568,000101: 20,2000                                           SETLOC   DAPS3                                 
064569,000102: 20,2000                                           BANK                                           
064570,000103: 20,2463                                           COUNT*   $$/DAPAO                              
064571,000104: 
064572,000105: 20,2463           35006        1/ACCS             CA       EBANK6                                #  ***** EBANK SET BUT NOT RESTORED *****
064573,000106: 20,2464           54003                           TS       EBANK                                 
064574,000107: 
064575,000108: 20,2465           04636                           TC       MAKECADR                              #  SAVE RETURN SO THAT BUF2 MAY BE USED
064576,000109: 20,2466           54117                           TS       ACCRETRN                              
064577,000110: 
064578,000111:                                                                                                  #  DETERMINE MASS OF THE LEM.
064579,000112: 20,2467           30111                           CA       DAPBOOLS                              #  IS CSM DOCKED
064580,000113: 20,2470           74730                           MASK     CSMDOCKD                              
064581,000114: 20,2471           54157                           TS       DOCKTEMP                              #  STORE RECORD OF STATE IN TEMP (MPAC +3).
064582,000115: 20,2472           10000                           CCS      A                                     
064583,000116: 20,2473           41327                           CS       CSMMASS                               #    DOCKED:  LEMMASS = MASS - CSMMASS
064584,000117: 20,2474           61243                           AD       MASS                                  #    LEM ALONE: LEMMASS = MASS
064585,000118: 20,2475           55326                           TS       LEMMASS                               
064586,000119: 
064587,000120:                                                                                                  #  ON THE BASIS OF APSFLAG:
064588,000121:                                                                                                  #      SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/4-JET CONTROL
064589,000122:                                                                                                  #      SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
064590,000123:                                                                                                  #      ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
064591,000124: 
064592,000125: 20,2476           00004                           INHINT                                         
064593,000126: 

Page 1485

064595,000128: 20,2477           30106                           CAE      FLGWRD10                              #  DETERMINE WHETHER STAGED.
064596,000129: 20,2500           74730                           MASK     APSFLBIT                              
064597,000130: 20,2501           00006                           EXTEND                                         
064598,000131: 20,2502           12526                           BZF      DPSFLITE                              
064599,000132: 
064600,000133: 20,2503           44724                           CS       POSMAX                                #  ASCENT (OR ON LUNAR SURFACE)
064601,000134: 20,2504           55475                           TS       -2JETLIM                              #  ALWAYS 2 JETS FOR P-AXIS RATE COMMAND
064602,000135: 20,2505           35745                           CAF      OCT14                                 #  INITIALIZE INDEX AT 12.
064603,000136: 20,2506           54154                           TS       MPAC                                  
064604,000137: 20,2507           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO HIGH.  CATCH STAGING.
064605,000138: 20,2510           61400                           AD       HIASCENT                              
064606,000139: 20,2511           00006                           EXTEND                                         
064607,000140: 20,2512           62517                           BZMF     MASSFIX                               
064608,000141: 20,2513           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO LOW.  THIS LIMITS THE
064609,000142: 20,2514           62001                           AD       LOASCENT                              #    DECREMENTING BY MASSMON.
064610,000143: 20,2515           00006                           EXTEND                                         
064611,000144: 20,2516           62544                           BZMF     F(MASS)                               
064612,000145: 
064613,000146: 20,2517           27326        MASSFIX            ADS      LEMMASS                               #  STORE THE VIOLATED LIMIT AS LEMMASS.
064614,000147: 20,2520           22007                           ZL                                             #    ALSO CORRECT TOTAL MASS, ZEROING THE
064615,000148: 20,2521           10157                           CCS      DOCKTEMP                              #    LOW-ORDER WORD.
064616,000149: 20,2522           31327                           CAE      CSMMASS                               #      DOCKED:  MASS = LEMMASS + CSMMASS
064617,000150: 20,2523           61326                           AD       LEMMASS                               #      LEM ALONE:  MASS = LEMMASS
064618,000151: 20,2524           53244                           DXCH     MASS                                  
064619,000152: 20,2525           12544                           TCF      F(MASS)                               
064620,000153: 
064621,000154: 20,2526           44733        DPSFLITE           CS       BIT10                                 #  FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
064622,000155: 20,2527           55475                           TS       -2JETLIM                              #    EXCEEDING 1.4 DEG/SEC  (SCALED AT 45)
064623,000156: 20,2530           36263                           CAF      SIX                                   #  INITIALIZE INDEX AT 6.
064624,000157: 20,2531           54154                           TS       MPAC                                  
064625,000158: 20,2532           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO HIGH.  SHOULD NEVER
064626,000159: 20,2533           62002                           AD       HIDESCNT                              #    OCCUR EXCEPT PERHAPS BEFORE THE PAD
064627,000160: 20,2534           00006                           EXTEND                                         #    LOAD IS DONE.
064628,000161: 20,2535           62517                           BZMF     MASSFIX                               
064629,000162: 20,2536           41326                           CS       LEMMASS                               #  CHECK IF MASS TOO LOW.  THIS LIMITS THE
064630,000163: 20,2537           62003                           AD       LODESCNT                              #    DECREMENTING BY MASSMON.
064631,000164: 20,2540           61400                           AD       HIASCENT                              
064632,000165: 20,2541           00006                           EXTEND                                         
064633,000166: 20,2542           62544                           BZMF     F(MASS)                               
064634,000167: 20,2543           12517                           TCF      MASSFIX                               
064635,000168:                                                                                                  #  COMPUTATION OF FUNCTIONS OF MASS
064636,000169: 
064637,000170: 20,2544           00003        F(MASS)            RELINT                                         
064638,000171: 20,2545           10157                           CCS      DOCKTEMP                              
064639,000172: 20,2546           13063                           TCF      DOCKED                                #  DOCKED: USE SEPERATE COMPUTATION.
064640,000173: 20,2547           34743                           CA       TWO                                   
064641,000174: 20,2550           54155        STCTR              TS       MPAC       +1                         #  J=2,1,0 FOR 1JACCR,1JACCQ,1JACC
064642,000175: 
064643,000176: 20,2551           44743                           CS       TWO                                   
064644,000177: 20,2552           26154                           ADS      MPAC                                  #  JX=10,8,6 OR 4,2,0 TO INDEX COEFS.
064645,000178: 

Page 1486

064647,000180: 20,2553           31326        STCTR1             CAE      LEMMASS                               
064648,000181: 20,2554           50154                           INDEX    MPAC                                  
064649,000182: 20,2555           63042                           AD       INERCONC                              
064650,000183: 20,2556           54156                           TS       MPAC       +2                         #  MASS + C
064651,000184: 20,2557           00006                           EXTEND                                         
064652,000185: 20,2560           50154                           INDEX    MPAC                                  
064653,000186: 20,2561           33024                           DCA      INERCONA                              
064654,000187: 20,2562           00006                           EXTEND                                         
064655,000188: 20,2563           10156                           DV       MPAC       +2                         
064656,000189: 20,2564           50154                           INDEX    MPAC                                  
064657,000190: 20,2565           63041                           AD       INERCONB                              
064658,000191: 20,2566           50155                           INDEX    MPAC       +1                         #  1JACC(J)=A(JX)/(MASS+C(JX) + B(JX)
064659,000192: 20,2567           55530                           TS       1JACC                                 #  1JACC(-1)=L,PVT-CG  SCALED AT 8 FEET
064660,000193: 
064661,000194: 20,2570           10155                           CCS      MPAC       +1                         
064662,000195: 20,2571           12550                           TCF      STCTR                                 
064663,000196: 20,2572           12574                           TCF      COMMEQS                               
064664,000197: 20,2573           12673                           TCF      LRESC                                 
064665,000198: 
064666,000199:                                                                                                  #    COEFFQ AND COEFFR ARE COMPUTED IN THIS SECTION. THEY ARE USED TO RESOLVE Q-R COMPONENTS INTO NON-ORTHOGONAL
064667,000200:                                                                                                  #  U AND V COMPONENTS (SEE ROT-TOUV SECTION).
064668,000201: 
064669,000202: 20,2574           22007        COMMEQS            ZL                                             
064670,000203: 20,2575           41532                           CS       1JACCR                                
064671,000204: 20,2576           61531                           AD       1JACCQ                                
064672,000205: 20,2577           00006                           EXTEND                                         
064673,000206: 20,2600           62624                           BZMF     BIGIQ                                 
064674,000207: 20,2601           00006                           EXTEND                                         #  EPSILON IS A MEASURE OF COUPLING AND IS
064675,000208: 20,2602           11531                           DV       1JACCQ                                #  DEFINED=1-IQ/IR FOR IR GREATER THAN IQ.
064676,000209: 20,2603           54155                           TS       EPSILON                               #  THE COMPUTED EXPRESSION IS EQUIVALENT
064677,000210: 20,2604           63062                           AD       -EPSMAX                               
064678,000211: 20,2605           00006                           EXTEND                                         
064679,000212: 20,2606           62611                           BZMF     GOODEPS1                              
064680,000213: 20,2607           43062                           CS       -EPSMAX                               
064681,000214: 20,2610           54155                           TS       EPSILON                               #  EPSILON IS LIMITED TO A MAX. OF .42265
064682,000215: 20,2611           30155        GOODEPS1           CA       EPSILON                               
064683,000216: 20,2612           00006                           EXTEND                                         
064684,000217: 20,2613           73056                           MP       0.35356                               
064685,000218: 20,2614           63060                           AD       .7071                                 
064686,000219: 20,2615           55627                           TS       COEFFR                                #  IN THIS CASE WHERE IR IS GREATER THAN
064687,000220: 20,2616           44724                           CS       POSMAX                                #  IQ, COEFFQ=-.707(1+.5EPSILON)(1-EPSILON)
064688,000221: 20,2617           60155                           AD       EPSILON                               #  AND COEFFR=.707(1+.5EPSILON)
064689,000222: 20,2620           00006                           EXTEND                                         
064690,000223: 20,2621           71627                           MP       COEFFR                                
064691,000224: 20,2622           55626                           TS       COEFFQ                                
064692,000225: 20,2623           12647                           TCF      JACCUV                                
064693,000226: 20,2624           00006        BIGIQ              EXTEND                                         #  EPSILON IS DEFINED AS 1-IR/IQ FOR IQ
064694,000227: 20,2625           11532                           DV       1JACCR                                #  GREATER THAN IR. -EPSILON IS COMPUTED
064695,000228: 20,2626           54155                           TS       -EPSILON                              #  RATHER THAN EPSILON FOR CONVENIENCE
064696,000229: 20,2627           40155                           CS       -EPSILON                              
064697,000230: 

Page 1487

064699,000232: 20,2630           63062                           AD       -EPSMAX                               
064700,000233: 20,2631           00006                           EXTEND                                         
064701,000234: 20,2632           62635                           BZMF     GOODEPS2                              
064702,000235: 20,2633           33062                           CA       -EPSMAX                               
064703,000236: 20,2634           54155                           TS       -EPSILON                              #  EPSILON IS LIMITED TO A MAX. OF .42265
064704,000237: 20,2635           30155        GOODEPS2           CA       -EPSILON                              
064705,000238: 20,2636           00006                           EXTEND                                         
064706,000239: 20,2637           73056                           MP       0.35356                               
064707,000240: 20,2640           63061                           AD       -.7071                                
064708,000241: 20,2641           55626                           TS       COEFFQ                                #  IN THIS CASE WHERE IQ IS GREATER THAN
064709,000242: 20,2642           40155                           CS       -EPSILON                              #  IR, COEFFQ=-.707(1+.5EPSILON) AND
064710,000243: 20,2643           64726                           AD       NEGMAX                                #  COEFFR=.707(1+.5EPSILON)(1-EPSILON)
064711,000244: 20,2644           00006                           EXTEND                                         
064712,000245: 20,2645           71626                           MP       COEFFQ                                
064713,000246: 20,2646           55627                           TS       COEFFR                                
064714,000247: 20,2647           41626        JACCUV             CS       COEFFQ                                
064715,000248: 20,2650           00006                           EXTEND                                         
064716,000249: 20,2651           71531                           MP       1JACCQ                                #  1JACCQ IS SCALED AT PI/4
064717,000250: 20,2652           55533                           TS       1JACCU                                #  1JACCU USED AS TEMPORARY STORAGE
064718,000251: 20,2653           31627                           CA       COEFFR                                
064719,000252: 20,2654           00006                           EXTEND                                         
064720,000253: 20,2655           71532                           MP       1JACCR                                
064721,000254: 20,2656           61533                           AD       1JACCU                                
064722,000255: 20,2657           00006                           EXTEND                                         
064723,000256: 20,2660           74727                           MP       BIT14                                 #  SCALING CHANGED FROM PI/4 TO PI/2
064724,000257: 20,2661           55533                           TS       1JACCU                                #  SCALED AT PI/2 RADIANS/SEC(2)
064725,000258: 20,2662           10154                           CCS      MPAC                                  #  COMPUTE L,PVT-CG IF IN DESCENT
064726,000259: 20,2663           34746                           CAF      ZERO                                  #  ZERO SWITCHES AND GO TO 1/ACCONT IN
064727,000260: 20,2664           55502                           TS       ALLOWGTS                              #    ASCENT
064728,000261: 20,2665           13206                           TCF      1/ACCONT   -1                         
064729,000262: 
064730,000263: 20,2666           44743                           CS       TWO                                   
064731,000264: 20,2667           54154                           TS       MPAC                                  
064732,000265: 20,2670           44744                           CS       ONE                                   
064733,000266: 20,2671           54155                           TS       MPAC       +1                         
064734,000267: 20,2672           12553                           TCF      STCTR1                                
064735,000268:                                                                                                  #  THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS.  THE EQUATION IMPLE
064736,000269:                                                                                                  #  MENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
064737,000270:                                                                                                  #       T = ENGINE THRUST FORCE
064738,000271:                                                                                                  #       L = PIVOT TO CG DISTANCE OF ENGINE
064739,000272:                                                                                                  #       I = MOMENT OF INERTIA
064740,000273: 
064741,000274: 20,2673           31245        LRESC              CAE      ABDELV                                #  SCALED AT 2(13) CM/SEC(2)
064742,000275: 20,2674           00006                           EXTEND                                         
064743,000276: 20,2675           71243                           MP       MASS                                  #  SCALED AT B+16 KGS
064744,000277: 20,2676           02760                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064745,000278: 20,2677           03057                           ADRES    GFACTM                                
064746,000279: 
064747,000280:                                                                                                  #  MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
064748,000281:                                                                                                  #  THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO
064749,000282: 

Page 1488

064751,000284:                                                                                                  #  THAT IS UNCONVERTED.  2.20462 CONVERTS KG. TO LB.  NOW T IS IN A SCALED AT 2(14).
064752,000285: 
064753,000286: 20,2700           00006                           EXTEND                                         
064754,000287: 20,2701           71527                           MP       L,PVT-CG                              #  SCALED AT 8 FEET.
064755,000288: 20,2702           00004                           INHINT                                         
064756,000289: 20,2703           54154                           TS       MPAC                                  
064757,000290: 20,2704           00006                           EXTEND                                         
064758,000291: 20,2705           71532                           MP       1JACCR                                
064759,000292: 20,2706           02760                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064760,000293: 20,2707           02000                           ADRES    TORKJET1                              
064761,000294: 
064762,000295: 20,2710           55511                           TS       ACCDOTR                               #  SCALED AT PI/2(7)
064763,000296: 20,2711           30154                           CA       MPAC                                  
064764,000297: 20,2712           00006                           EXTEND                                         
064765,000298: 20,2713           71531                           MP       1JACCQ                                
064766,000299: 20,2714           02760                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064767,000300: 20,2715           02000                           ADRES    TORKJET1                              
064768,000301: 
064769,000302: 20,2716           55507        SPSCONT            TS       ACCDOTQ                               #  SCALED AT PI/2(7)
064770,000303: 20,2717           00006                           EXTEND                                         
064771,000304: 20,2720           73055                           MP       DGBF                                  #  .3ACCDOTQ SCALED AT PI/2(8)
064772,000305: 20,2721           55504                           TS       KQ                                    
064773,000306: 20,2722           31511                           CAE      ACCDOTR                               #  .3ACCDOTR AT PI/2(8)
064774,000307: 20,2723           00006                           EXTEND                                         
064775,000308: 20,2724           73055                           MP       DGBF                                  
064776,000309: 20,2725           55506                           TS       KRDAP                                 
064777,000310: 20,2726           11510                           CCS      QACCDOT                               #  UPDATE THE JERK VALUES USED BY THE STATE
064778,000311: 20,2727           31507                           CA       ACCDOTQ                               #    ESTIMATOR WITH THE MAGNITUDES THAT
064779,000312: 20,2730           12732                           TCF      +2                                    #    HAVE JUST BEEN COMPUTED.
064780,000313: 20,2731           41507                           CS       ACCDOTQ                               
064781,000314: 20,2732           55510                 +2        TS       QACCDOT                               
064782,000315: 20,2733           11512                           CCS      RACCDOT                               
064783,000316: 20,2734           31511                           CA       ACCDOTR                               
064784,000317: 20,2735           12737                           TCF      +2                                    
064785,000318: 20,2736           41511                           CS       ACCDOTR                               
064786,000319: 20,2737           55512                 +2        TS       RACCDOT                               
064787,000320: 20,2740           40111                           CS       DAPBOOLS                              #  IS GIMBAL USABLE?
064788,000321: 20,2741           74727                           MASK     USEQRJTS                              
064789,000322: 20,2742           00006                           EXTEND                                         
064790,000323: 20,2743           13664                           BZF      DOWNGTS                               #  NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064791,000324: 20,2744           41262                           CS       T5ADR                                 #  YES.  IS THE DAP RUNNING?
064792,000325: 20,2745           63744                           AD       PAXISADR                              
064793,000326: 20,2746           00006                           EXTEND                                         
064794,000327: 20,2747           12751                           BZF      +2                                    
064795,000328: 20,2750           13664                           TCF      DOWNGTS                               #  NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064796,000329: 20,2751           11632                           CCS      INGTS                                 #  YES.  IS GTS IN CONTROL?
064797,000330: 20,2752           12755                           TCF      DOCKTEST                              #  YES.  PROCEED WITH 1/ACCS.
064798,000331: 20,2753           04665                           TC       IBNKCALL                              #  NO. NULL OFFSET AND FIND ALLOWGTS
064799,000332: 20,2754           43260                           CADR     TIMEGMBL                              
064800,000333: 

Page 1489

064802,000335: 20,2755           10157        DOCKTEST           CCS      DOCKTEMP                              #  BYPASS 1/ACCONT WHEN DOCKED.
064803,000336: 20,2756           13647                           TCF      1/ACCRET                              
064804,000337: 20,2757           13207                           TCF      1/ACCONT                              
064805,000338: 

Page 1490

064807,000340:                                                                                                  #  SUBROUTINE:  DVOVSUB
064808,000341: 
064809,000342:                                                                                                  #  AUTHOR:  C. WORK, MOD 0 12 JUNE 68
064810,000343: 
064811,000344:                                                                                                  #  PURPOSE:  THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
064812,000345:                                                                                                  #            (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
064813,000346:                                                                                                  #            (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
064814,000347:                                                                                                  #            (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
064815,000348:                                                                                                  #            THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6.
064816,000349:                                                                                                  #            THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE.  SIGN AGREEMENT IS
064817,000350:                                                                                                  #            ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE RE-
064818,000351:                                                                                                  #            SULT OF A MULTIPLICATION OPERATION.)
064819,000352:                                                                                                  #  CALL SEQUENCE:
064820,000353:                                                                                                  #                                          L        TC     DVOVSUB
064821,000354:                                                                                                  #                                          L +1     ADRES  (DIVISOR)
064822,000355:                                                                                                  #                                          L +2     RETURN HERE, WITH RESULT IN A,L
064823,000356: 
064824,000357:                                                                                                  #  INPUT:  DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
064825,000358:                                                                                                  #          DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
064826,000359: 
064827,000360:                                                                                                  #  OUTPUT:  QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
064828,000361: 
064829,000362:                                                                                                  #  DEBRIS:  SCRATCHX,SCRATCHY,SCRATCHZ,A,L  (NOTE:  SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.)
064830,000363: 
064831,000364:                                                                                                  #  ABORTS OR ALARMS:  NONE
064832,000365: 
064833,000366:                                                                                                  #  EXITS:  TO THE CALL POINT + 2.
064834,000367: 
064835,000368:                                                                                                  #  SUBROUTINES CALLED:  NONE.
064836,000369: 
064837,000370: 20,2760           54161        DVOVSUB            TS       SCRATCHY                              #  SAVE UPPER HALF OF DIVIDEND
064838,000371: 20,2761           54160                           TS       SCRATCHX                              
064839,000372: 20,2762           50002                           INDEX    Q                                     #  OBTAIN ADDRESS OF DIVISOR.
064840,000373: 20,2763           30000                           CA       0                                     
064841,000374: 20,2764           24002                           INCR     Q                                     #  STEP Q FOR PROPER RETURN SEQUENCE.
064842,000375: 20,2765           50000                           INDEX    A                                     
064843,000376: 20,2766           30000                           CA       0                                     #  PICK UP THE DIVISOR.
064844,000377: 20,2767           00006                           EXTEND                                         #  RETURN POSMAX FOR A ZERO DIVISOR.
064845,000378: 20,2770           13017                           BZF      MAXPLUS                               
064846,000379: 
064847,000380: 20,2771           54162                           TS       SCRATCHZ                              #  STORE DIVISOR.
064848,000381: 
064849,000382: 20,2772           10000                           CCS      A                                     #  GET ABS(DIVISOR) IN THE A REGISTER.
064850,000383: 20,2773           64744                           AD       BIT1                                  
064851,000384: 20,2774           12776                           TCF      ZEROPLUS                              
064852,000385: 20,2775           64744                           AD       BIT1                                  
064853,000386: 
064854,000387: 20,2776           56161        ZEROPLUS           XCH      SCRATCHY                              #  STORE ABS(DIVISOR).  PICK UP TOP HALF OF
064855,000388: 20,2777           00006                           EXTEND                                         #  DIVIDEND.
064856,000389: 20,3000           63002                           BZMF     GOODNEG                               #  GET  -ABS(DIVIDEND)
064857,000390: 

Page 1491

064859,000392: 20,3001           40000                           CS       A                                     
064860,000393: 
064861,000394: 20,3002           60161        GOODNEG            AD       SCRATCHY                              #  ABS(DIVISOR) - ABS(DIVIDEND)
064862,000395: 20,3003           00006                           EXTEND                                         
064863,000396: 20,3004           63011                           BZMF     MAKEMAX                               #  BRANCH IF DIVISION IS NOT PROPER.
064864,000397: 
064865,000398: 20,3005           30160                           CA       SCRATCHX                              #  RE-ESTABLISH THE DIVIDEND.
064866,000399: 20,3006           00006                           EXTEND                                         
064867,000400: 20,3007           10162                           DV       SCRATCHZ                              #  QUOTIENT IN THE A, REMAINDER IN L.
064868,000401: 20,3010           00002                           TC       Q                                     #  RETURN TO CALLER.
064869,000402: 
064870,000403: 20,3011           10160        MAKEMAX            CCS      SCRATCHX                              #  DETERMINE THE SIGN OF THE QUOTIENT.
064871,000404: 20,3012           10162                           CCS      SCRATCHZ                              #  SCRATCHX AND SCRATCHZ ARE NON-ZERO.
064872,000405: 20,3013           13017                           TCF      MAXPLUS                               
064873,000406: 20,3014           10162                           CCS      SCRATCHZ                              
064874,000407: 20,3015           34726                           CAF      NEGMAX                                #  +,- OR -,+
064875,000408: 20,3016           00002                           TC       Q                                     
064876,000409: 20,3017           34724        MAXPLUS            CAF      POSMAX                                #  -,- OR +,+
064877,000410: 20,3020           00002                           TC       Q                                     
064878,000411: 
064879,000412:                                                                                                  #  COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
064880,000413:                                                                                                  #  THE CURVE FITS ARE OF THE FORM -
064881,000414: 
064882,000415:                                                                                                  #           1JACC = A/(MASS + C) + B
064883,000416: 
064884,000417:                                                                                                  #  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.
064885,000418: 
064886,000419:                                                                                                  #  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,
064887,000420:                                                                                                  #  AND C IS SCALED AT B+16 KG.
064888,000421: 
064889,000422: 20,3021           00502 36554                     2DEC     +.0197118964                            #  L             A               DESCENT
064890,000423: 20,3023           00165 22103  INERCONA           2DEC     +.0071756944                            #  1JACCP        A               DESCENT
064891,000424: 20,3025           00027 32731                     2DEC     +.0014551624                            #  1JACCQ        A               DESCENT
064892,000425: 20,3027           00016 24420                     2DEC     +.0008936540                            #  1JACCR        A               DESCENT
064893,000426: 20,3031           00153 07111                     2DEC     +.0065443852                            #  1JACCP        A               ASCENT
064894,000427: 20,3033           00072 24103                     2DEC     +.0035784354                            #  1JACCQ        A               ASCENT
064895,000428: 20,3035           00135 11511                     2DEC     +.0056946631                            #  1JACCR        A               ASCENT
064896,000429: 20,3037           06147                           DEC      +.193797                              #  L             B               DESCENT
064897,000430: 20,3040           75512                           DEC      -.073545                              #  L             C               DESCENT
064898,000431: 20,3041           00000        INERCONB           DEC      +.000000                              #  1JACCP        B               DESCENT
064899,000432: 20,3042           01363        INERCONC           DEC      +.046084                              #  1JACCP        C               DESCENT
064900,000433: 

Page 1492

064902,000435: 20,3043           00455                           DEC      +.018374                              #  1JACCQ        B               DESCENT
064903,000436: 20,3044           76036                           DEC      -.060583                              #  1JACCQ        C               DESCENT
064904,000437: 20,3045           00562                           DEC      +.022613                              #  1JACCR        B               DESCENT
064905,000438: 20,3046           75643                           DEC      -.068096                              #  1JACCR        C               DESCENT
064906,000439: 
064907,000440: 20,3047           00001                           DEC      +.000032                              #  1JACCP        B               ASCENT
064908,000441: 20,3050           77616                           DEC      -.006923                              #  1JACCP        C               ASCENT
064909,000442: 20,3051           05154                           DEC      +.162862                              #  1JACCQ        B               ASCENT
064910,000443: 20,3052           00052                           DEC      +.002588                              #  1JACCQ        C               ASCENT
064911,000444: 20,3053           00231                           DEC      +.009312                              #  1JACCR        B               ASCENT
064912,000445: 20,3054           77174                           DEC      -.023608                              #  1JACCR        C               ASCENT
064913,000446: 
064914,000447: 
064915,000448: 20,3055           23146        DGBF               DEC      0.6                                   #  .3 SCALED AT 1/2
064916,000449: 20,3056           13241        0.35356            DEC      0.35356                               #  .70711 SCALED AT 2
064917,000450: 20,3057           00337        GFACTM             OCT      337                                   #  979.24/2.20462 AT B+15
064918,000451: 20,3060           26501        .7071              DEC      .70711                                
064919,000452: 20,3061           51276        -.7071             DEC      -.70711                               
064920,000453: 20,3062           62362        -EPSMAX            DEC      -.42265                               
064921,000454:                                                                                                  #  CSM-DOCKED INERTIA COMPUTATIONS
064922,000455: 
064923,000456: 20,3063           34744        DOCKED             CA       ONE                                   #  COEFTR = 1 FOR INERTIA COEFFICIENTS

Note: The label DOCKED is actually indented by one character originally. yaYul does not recognize this as proper label

064925,000458: 20,3064           54160        SPSLOOP1           TS       COEFCTR                               #          = 7 FOR CG COEFFICIENTS
064926,000459: 20,3065           34744                           CA       ONE                                   #  MASSCTR = 1 FOR CSM
064927,000460: 20,3066           54161                           TS       MASSCTR                               #          = 0 FOR LEM
064928,000461: 
064929,000462: 20,3067           50160                           INDEX    COEFCTR                               
064930,000463: 20,3070           33170                           CA       COEFF      -1                         #  COEFF -1 = C
064931,000464: 20,3071           00006                           EXTEND                                         
064932,000465: 20,3072           71326                           MP       LEMMASS                               
064933,000466: 20,3073           00006                           EXTEND                                         
064934,000467: 20,3074           71327                           MP       CSMMASS                               #  LET X = CSMMASS AND Y = LEMMASS
064935,000468: 
064936,000469: 20,3075           50160                           INDEX    COEFCTR                               
064937,000470: 20,3076           63171                           AD       COEFF                                 #  COEFF = F
064938,000471: 20,3077           54154                           TS       MPAC                                  #  MPAC = C X Y + F
064939,000472: 20,3100           13104                           TCF      +4                                    
064940,000473: 
064941,000474: 20,3101           54161        SPSLOOP2           TS       MASSCTR                               #  LOOP TWICE THROUGH HERE TO OBTAIN
064942,000475: 20,3102           00006                           EXTEND                                         #  MPAC = MPAC + (A X +D)X + (B Y +E)Y
064943,000476: 20,3103           26160                           DIM      COEFCTR                               #                 LOOP #1     LOOP #2
064944,000477: 20,3104           50160                           INDEX    COEFCTR                               
064945,000478: 20,3105           33173                           CA       COEFF      +2                         #  COEFF +2 = A OR B
064946,000479: 20,3106           00006                           EXTEND                                         
064947,000480: 20,3107           50161                           INDEX    MASSCTR                               
064948,000481: 20,3110           71326                           MP       LEMMASS                               
064949,000482: 20,3111           50160                           INDEX    COEFCTR                               
064950,000483: 20,3112           63175                           AD       COEFF      +4                         #  COEFF +4 = E OR D
064951,000484: 20,3113           00006                           EXTEND                                         
064952,000485: 20,3114           50161                           INDEX    MASSCTR                               
064953,000486: 

Page 1493

064955,000488: 20,3115           71326                           MP       LEMMASS                               
064956,000489: 20,3116           26154                           ADS      MPAC                                  
064957,000490: 
064958,000491: 20,3117           10161                           CCS      MASSCTR                               
064959,000492: 20,3120           13101                           TCF      SPSLOOP2                              
064960,000493: 20,3121           10160                           CCS      COEFCTR                               #  IF COEFCTR IS POS, EXIT FROM LOOP WITH
064961,000494: 20,3122           13131                           TCF      +7                                    #  CG X DELDOT = MPAC X 4 PI RAD-CM/SEC
064962,000495: 20,3123           00000 20354  TORQCONS           2DEC     0.51443    B-14                       #  CORRESPONDS TO 500 LB-FT
064963,000496: 
064964,000497: 20,3125           30154                           CA       MPAC                                  
064965,000498: 20,3126           54155                           TS       MPAC       +1                         #  INERTIA = (MPAC +1) X 2(38) KG-CM(2)
064966,000499: 20,3127           34750                           CA       SEVEN                                 
064967,000500: 20,3130           13064                           TCF      SPSLOOP1                              
064968,000501: 
064969,000502: 20,3131           33170                           CA       1JACCCON                              #  1JACC=1JACCCON/MASS
064970,000503: 20,3132           22007                           ZL                                             
064971,000504: 20,3133           02760                           TC       DVOVSUB                               
064972,000505: 20,3134           01243                           ADRES    MASS                                  
064973,000506: 20,3135           55530                           TS       1JACC                                 #  SCALED AT PI/4
064974,000507: 
064975,000508: 20,3136           34724                           CA       POSMAX                                #  SET INVERSE JET ACCELERATIONS TO POSMAX,
064976,000509: 20,3137           55550                           TS       1/ANETP                               #  WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS.
064977,000510: 20,3140           55570                           TS       1/ANET2    +1                         
064978,000511: 20,3141           55571                           TS       1/ANET2    +2                         
064979,000512: 20,3142           55610                           TS       1/ANET2    +17D                       
064980,000513: 20,3143           55611                           TS       1/ANET2    +18D                       
064981,000514: 20,3144           00006                           EXTEND                                         
064982,000515: 20,3145           33124                           DCA      TORQCONS                              
064983,000516: 20,3146           00006                           EXTEND                                         
064984,000517: 20,3147           10155                           DV       MPAC       +1                         
064985,000518: 20,3150           00004                           INHINT                                         
064986,000519: 20,3151           55531                           TS       1JACCQ                                #  SCALED AT PI/4
064987,000520: 20,3152           55532                           TS       1JACCR                                
064988,000521: 
064989,000522: 20,3153           33061                           CA       -.7071                                
064990,000523: 20,3154           55626                           TS       COEFFQ                                #  COEFFQ AND COEFFR ARE CHOSEN TO MAKE U-
064991,000524: 20,3155           33060                           CA       .7071                                 #  AND V-AXES ORTHOGONAL FOR DOCKED CASE
064992,000525: 20,3156           55627                           TS       COEFFR                                
064993,000526: 20,3157           31243                           CA       MASS                                  #  SCALED AT 2(16) KG
064994,000527: 20,3160           00006                           EXTEND                                         
064995,000528: 20,3161           70154                           MP       MPAC                                  #  SCALED AT 4 PI RAD-CM/SEC
064996,000529: 20,3162           00006                           EXTEND                                         
064997,000530: 20,3163           71245                           MP       ABDELV                                #  SCALED AT 2(13) CM/SEC(2)
064998,000531: 20,3164           02760                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064999,000532: 20,3165           00155                           ADRES    MPAC       +1                         
065000,000533: 
065001,000534: 20,3166           55511                           TS       ACCDOTR                               
065002,000535: 20,3167           12716                           TCF      SPSCONT                               #  CONTINUE K, KSQ CALCULATIONS
065003,000536: 
065004,000537: 20,3170           00167        1JACCCON           OCT      00167                                 #  SCALED AT PI/4X2(16) RAD/SEC(2)-KG
065005,000538: 

Page 1494

065007,000540: 
065008,000541:                                                                                                  #                                                                                              2     2
065009,000542:                                                                                                  #                                                COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X  +B Y  +C X Y +D X +E Y +F
065010,000543: 
065011,000544: 20,3171           06176        COEFF              DEC      .19518                                #  C  COEFFICIENT OF INERTIA
065012,000545: 20,3172           77650                           DEC      -.00529                               #  F              ''
065013,000546: 20,3173           72260                           DEC      -.17670                               #  B              ''
065014,000547: 20,3174           76637                           DEC      -.03709                               #  A              ''
065015,000548: 20,3175           02167                           DEC      .06974                                #  E              ''
065016,000549: 20,3176           00645                           DEC      .02569                                #  D              ''
065017,000550: 
065018,000551: 20,3177           06335                           DEC      .20096                                #  C  COEFFICIENT OF CG
065019,000552: 20,3200           04256                           DEC      .13564                                #  F       ''
065020,000553: 20,3201           30163                           DEC      .75704                                #  B       ''
065021,000554: 20,3202           64072                           DEC      -.37142                               #  A       ''
065022,000555: 20,3203           53632                           DEC      -.63117                               #  E       ''
065023,000556: 20,3204           15133                           DEC      .41179                                #  D       ''
065024,000557: 
065025,000558:                                                                                                  #  ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
065026,000559: 
065027,000560:                                                                                                  #                                          MPAC, MPAC +1, MPAC +2 USED EXPLICITLY
065028,000561: 20,3205     0160               COEFCTR            EQUALS   MPAC       +4                         
065029,000562: 20,3205     0161               MASSCTR            EQUALS   MPAC       +5                         
065030,000563: 20,3205     0160               SCRATCHX           EQUALS   MPAC       +4                         #  SCRATCH AREA FOR DVOVSUB ROUTINE.
065031,000564: 20,3205     0161               SCRATCHY           EQUALS   SCRATCHX   +1                         
065032,000565: 20,3205     0162               SCRATCHZ           EQUALS   SCRATCHX   +2                         
065033,000566: 
065034,000567: 20,3205     0157               DOCKTEMP           EQUALS   MPAC       +3                         #  RECORD OF CSMDOCKED BIT OF DAPBOOLS
065035,000568: 20,3205     0155               EPSILON            EQUALS   MPAC       +1                         
065036,000569: 20,3205     0155               -EPSILON           EQUALS   EPSILON                               
065037,000570: 20,3205           71777        -.1875             DEC      -.18750                               
065038,000571: 

Page 1495

065040,000573: 20,3206                                           BANK     20                                    
065041,000574: 20,2000                                           SETLOC   DAPS3                                 
065042,000575: 20,2000                                           BANK                                           
065043,000576: 
065044,000577: 20,3206  E6,1536                                  EBANK=   AOSQ                                  
065045,000578: 
065046,000579: 20,3206                                           COUNT*   $$/DAPAO                              
065047,000580: 
065048,000581: 20,3206           55632                 -1        TS       INGTS                                 #  ZERO INGTS IN ASCENT
065049,000582: 20,3207           31343        1/ACCONT           CA       DB                                    #  INITIALIZE DBVAL1,2,3
065050,000583: 20,3210           00006                           EXTEND                                         
065051,000584: 20,3211           74730                           MP       BIT13                                 
065052,000585: 20,3212           54001                           TS       L                                     #  0.25 DB
065053,000586: 20,3213           60000                           AD       A                                     
065054,000587: 20,3214           54115                           TS       DBVAL3                                #  0.50 DB
065055,000588: 20,3215           41343                           CS       DBVAL1                                
065056,000589: 20,3216           60001                           AD       L                                     
065057,000590: 20,3217           54114                           TS       DBVAL2                                #  -.75 DB
065058,000591: 
065059,000592: 20,3220           00004        GETAOSUV           INHINT                                         
065060,000593: 20,3221           31540                           CAE      AOSR                                  #  COMPUTE AOSU AND AOSV BY ROTATING
065061,000594: 20,3222           54001                           TS       L                                     #       AOSQ AND AOSR.
065062,000595: 20,3223           31536                           CAE      AOSQ                                  
065063,000596: 20,3224           04665                           TC       IBNKCALL                              
065064,000597: 20,3225           37200                           CADR     ROT-TOUV                              
065065,000598: 20,3226           53543                           DXCH     AOSU                                  
065066,000599: 
065067,000600: 20,3227           00003                           RELINT                                         
065068,000601: 20,3230           30111                           CA       DAPBOOLS                              
065069,000602: 20,3231           74735                           MASK     DRIFTBIT                              #  ZERO DURING ULLAGE AND POWERED FLIGHT.

Note: there is short horizontal blue line mark between DRIFTBIT and the comment directly to the right of the operand

065072,000605: 20,3232           10000                           CCS      A                                     #  IF DRIFTING FLIGHT,
065073,000606: 20,3233           34744                           CA       ONE                                   #       SET DRIFTER TO 1
065074,000607: 20,3234           54116                           TS       DRIFTER                               #  SAVE TO TEST FOR DRIFTING FLIGHT LATER
065075,000608: 20,3235           61502                           AD       ALLOWGTS                              #  NON-ZERO IF DRIFT OR GTS NEAR
065076,000609: 20,3236           10000                           CCS      A                                     
065077,000610: 20,3237           33741                           CA       FLATVAL                               #  DRIFTING FLIGHT, STORE .8 IN FLAT
065078,000611: 20,3240           54151                           TS       FLATEMP                               #  IN POWERED FLIGHT, STORE ZERO IN FLAT
065079,000612: 20,3241           00006                           EXTEND                                         
065080,000613: 20,3242           13246                           BZF      DOPAXIS                               #  IF POWERED AND NO GTS, START P AXIS,
065081,000614: 20,3243           10116                           CCS      DRIFTER                               #  OTHERWISE SET ZONE3LIM
065082,000615: 20,3244           33740                           CA       ZONE3MAX                              #  17.5 MS , SCALED AT 4 SECONDS.
065083,000616: 20,3245           54152                           TS       Z3TEM                                 
065084,000617: 
065085,000618: 20,3246           31530        DOPAXIS            CA       1JACC                                 #  1JACC AT PI/4 = 2JACC AT PI/2 =
065086,000619:                                                                                                  #  ANET AT PI/2 = ANET/ACOAST AT 2(6).
065087,000620: 20,3247           64734                           AD       BIT9                                  #  1 + ANET/ACOAST AT 2(6)
065088,000621: 20,3250           54157                           TS       FUNTEM                                
065089,000622: 
065090,000623: 20,3251           31530                           CA       1JACC                                 
065091,000624: 

Page 1496

065093,000626: 20,3252           03656                           TC       INVERT                                
065094,000627: 20,3253           00004                           INHINT                                         #  P AXIS DATA MUST BE CONSISTENT
065095,000628: 20,3254           55550                           TS       1/ANETP                               #  SCALED AT 2(7)/PI.
065096,000629: 20,3255           55551                           TS       1/ANETP    +1                         
065097,000630: 
065098,000631: 20,3256           44734                           CS       BIT9                                  #  -1 AT 2(6)
065099,000632: 20,3257           00006                           EXTEND                                         
065100,000633: 20,3260           71550                           MP       1/ANETP                               #  -1/ANET AT 2(13)/PI
065101,000634: 20,3261           00006                           EXTEND                                         
065102,000635: 20,3262           10157                           DV       FUNTEM                                #  -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI
065103,000636: 20,3263           55556                           TS       PACCFUN                               
065104,000637: 20,3264           55557                           TS       PACCFUN    +1                         
065105,000638: 
065106,000639: 20,3265           34724                           CA       1/.03                                 #  NO AOS FOR P AXIS, ACOAST = AMIN
065107,000640: 20,3266           55552                           TS       1/ACOSTP                              
065108,000641: 20,3267           55553                           TS       1/ACOSTP   +1                         
065109,000642: 20,3270           00003                           RELINT                                         
065110,000643: 
065111,000644: 
065112,000645: 20,3271           22007                           ZL                                             
065113,000646: 20,3272           10116                           CCS      DRIFTER                               
065114,000647: 20,3273           53543                           DXCH     AOSU                                  #  ZERO AOSU,V IF IN DRIFT, JUST TO BE SURE
065115,000648: 
065116,000649: 20,3274           34746        UAXIS              CA       ZERO                                  #  DO U AXIS COMPUTATIONS
065117,000650: 20,3275           54154                           TS       UV                                    #  ZERO FOR U AXIS, ONE FOR V AXIS.
065118,000651: 
065119,000652: 20,3276           54163        BOTHAXES           TS       SIGNAOS                               #  CODING COMMON TO U,V AXES
065120,000653: 20,3277           50154                           INDEX    UV                                    
065121,000654: 20,3300           11542                           CCS      AOSU                                  #  PICK UP ABS(AOSU OR AOSV)
065122,000655: 20,3301           64744                           AD       ONE                                   #  RESTORE TO PROPER VALUE
065123,000656: 20,3302           13305                           TCF      +3                                    #  AND LEAVE SIGNAOS AT ZERO
065124,000657: 20,3303           64744                           AD       ONE                                   #  NEGATIVE, RESTORE TO PROPER VALUE
065125,000658: 20,3304           24163                           INCR     SIGNAOS                               #  AND SET SIGNAOS TO ONE TO SHOW AOS NEG
065126,000659: 20,3305           54162                           TS       ABSAOS                                #  SAVE ABS(AOS)
065127,000660: 20,3306           40163                           CS       SIGNAOS                               
065128,000661: 20,3307           54164                           TS       -SIGNAOS                              #  USED AS AN INDEX
065129,000662: 
065130,000663: 20,3310           31343                           CA       DBVAL1                                #  SET DB1, DB2 TO DBVAL1 (= DB)
065131,000664: 20,3311           54143                           TS       DBB1                                  
065132,000665: 20,3312           54144                           TS       DBB2                                  
065133,000666: 
065134,000667: 20,3313           30162                           CA       ABSAOS                                #  TEST MAGNITUDE OF ABS(AOS)
065135,000668: 20,3314           63742                           AD       -.03R/S2                              
065136,000669: 20,3315           00006                           EXTEND                                         
065137,000670: 20,3316           63410                           BZMF     NOTMUCH                               #  ABS(AOS) LESS THAN AMIN
065138,000671: 20,3317           10151        BIGAOS             CCS      FLATEMP                               #  AGS(AOS) GREATER THAN AMIN
065139,000672: 20,3320           13350                           TCF      SKIPDB1                               #  I DRIFT OR GTS, DO NOT COMPUTE DB
065140,000673: 
065141,000674: 20,3321           31343                           CA       DBVAL1                                
065142,000675: 20,3322           50164                           INDEX    -SIGNAOS                              
065143,000676: 

Page 1497

065145,000678: 20,3323           26144                           ADS      DBB2                                  #  DB2(1) = 2 DB
065146,000679: 20,3324           50163                           INDEX    SIGNAOS                               
065147,000680: 20,3325           54145                           TS       DBB4                                  #  DB4(3) = 1 DB
065148,000681: 20,3326           33205                           CA       -.1875                                #  -.1875 PI/2 RAD/SEC(2) SCALED AT PI/2
065149,000682: 20,3327           60162                           AD       ABSAOS                                #  ABSAOS IS SCALED AT PI/2
065150,000683: 20,3330           00006                           EXTEND                                         
065151,000684: 20,3331           63334                           BZMF     +3                                    
065152,000685: 20,3332           40115                           CS       DBVAL3                                #  -.5 DB
065153,000686: 20,3333           13343                           TCF      DBONE                                 
065154,000687: 20,3334           40162                           CS       ABSAOS                                
065155,000688: 20,3335           60000                           DOUBLE                                         
065156,000689: 20,3336           60000                           DOUBLE                                         
065157,000690: 20,3337           64727                           AD       BIT14                                 
065158,000691: 20,3340           60000                           DOUBLE                                         #  1-8 ABSAOS.  (8 IS 16/PI SCALED AT 2/PI)
065159,000692: 20,3341           00006                           EXTEND                                         
065160,000693: 20,3342           71343                           MP       DB                                    
065161,000694: 20,3343           50163        DBONE              INDEX    SIGNAOS                               #  DB1(2)=(1-8 ABSAOS) DB.  IF ABSAOS IS
065162,000695: 20,3344           54143                           TS       DBB1                                  #  GREATER THAN .1875 THEN DB1(2)=-.5 DB
065163,000696: 20,3345           30114                           CA       DBVAL2                                
065164,000697: 20,3346           50164                           INDEX    -SIGNAOS                              
065165,000698: 20,3347           54146                           TS       DBB3                                  #  DB3(4) = -.75 DB
065166,000699: 
065167,000700: 20,3350           30162        SKIPDB1            CA       ABSAOS                                #  ABS(AOS) GREATER THAN AMIN, SO IT IS
065168,000701: 20,3351           00006                           EXTEND                                         
065169,000702: 20,3352           74731                           MP       BIT12                                 
065170,000703: 20,3353           60162                           AD       ABSAOS                                #  (9/8) ABSAOS.
065171,000704: 20,3354           03656                           TC       INVERT                                #  ALL RIGHT TO DIVIDE
065172,000705: 20,3355           50164                           INDEX    -SIGNAOS                              
065173,000706: 20,3356           54130                           TS       1/ACOSTT   +1                         #  1/ACOASTPOS(NEG) = 1/ABS(AOS)
065174,000707: 20,3357           34724                           CA       1/.03                                 
065175,000708: 20,3360           50163                           INDEX    SIGNAOS                               
065176,000709: 20,3361           54127                           TS       1/ACOSTT                              #  1/ACOASTNEG(POS) = 1/AMIN
065177,000710: 
065178,000711: 20,3362           30162                           CA       ABSAOS                                
065179,000712: 20,3363           61533                           AD       1JACCU                                
065180,000713: 20,3364           61533                           AD       1JACCU                                #  2 JACC + ABS(AOS)
065181,000714: 20,3365           64734                           AD       BIT9                                  #  MAXIMUM VALUE IN COMPUTATIONS
065182,000715: 20,3366           54000                           TS       A                                     #  TEST FOR OVERFLOW
065183,000716: 20,3367           13434                           TCF      SKIPDB2                               #  NO OVERFLOW, DO NORMAL COMPUTATION
065184,000717: 
065185,000718: 20,3370           30162                           CA       ABSAOS                                #  RESCALE TO PI TO PREVENT OVERFLOW
065186,000719: 20,3371           00006                           EXTEND                                         
065187,000720: 20,3372           74727                           MP       BIT14                                 
065188,000721: 20,3373           61533                           AD       1JACCU                                #  1 JACC AT PI/2 = 2JACC AT PI
065189,000722: 20,3374           54157                           TS       ANET                                  #  ANETPOS(NEG) MAX SCALED AT PI =
065190,000723:                                                                                                  #  ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7)
065191,000724: 20,3375           64735                           AD       BIT8                                  #  1 + ANETPOS/ACOASTNEG AT 2(7)
065192,000725: 20,3376           56157                           XCH      ANET                                  #  SAVE IN ANET, WHILE PICKING UP ANET
065193,000726: 20,3377           03656                           TC       INVERT                                
065194,000727: 20,3400           00006                           EXTEND                                         
065195,000728: 

Page 1498

065197,000730: 20,3401           74727                           MP       BIT14                                 #  SCALE 1/ANET AT 2(7)/PI
065198,000731: 20,3402           54160                           TS       1/ANET                                
065199,000732: 
065200,000733: 20,3403           33407                           CA       ACCHERE                               #  SET UP RETURN FROM COMPUTATION ROUTINE
065201,000734: 20,3404           54161                           TS       ARET                                  
065202,000735: 20,3405           44735                           CS       BIT8                                  #  -1 AT 2(7)
065203,000736: 20,3406           13711                           TCF      DOACCFUN                              #  FINISH ACCFUN COMPUTATION
065204,000737: 
065205,000738: 20,3407           13441        ACCHERE            TCF      ACCTHERE                              
065206,000739: 
065207,000740: 
065208,000741: 20,3410           54001        NOTMUCH            TS       L                                     #  ABS(AOS) LESS THAN AMIN, SAVE IN L
065209,000742: 20,3411           34724                           CA       1/.03                                 #  ACOASTPOS,NEG = AMIN
065210,000743: 20,3412           54127                           TS       1/ACOSTT                              
065211,000744: 20,3413           54130                           TS       1/ACOSTT   +1                         
065212,000745: 
065213,000746: 20,3414           10151                           CCS      FLATEMP                               
065214,000747: 20,3415           13434                           TCF      SKIPDB2                               #  DO NOT COMPUTE DB IF DRIFT OR GTS
065215,000748: 
065216,000749: 20,3416           33743                           CA       .023R/S2                              #  .0228 RAD/SEC(2)
065217,000750: 20,3417           60001                           AD       L                                     #  L=ABS(AOS)-AMIN=ABS(AOS)-.0245RAD/SEC(2)
065218,000751: 20,3420           00006                           EXTEND                                         #  RESULT IS ABS(AOS)-.0017 RAD/SEC(2)
065219,000752: 20,3421           63431                           BZMF     NOAOS                                 #  ABS(AOS) LESS THAN .0017 RAD/SEC(2)
065220,000753: 20,3422           30115        SOMEAOS            CA       DBVAL3                                #  .0017 RAD/SEC(2) LT ABS(AOS) LT AMIN
065221,000754: 20,3423           50164                           INDEX    -SIGNAOS                              
065222,000755: 20,3424           54146                           TS       DBB3                                  #  DB3(4) = DB/2
065223,000756: 20,3425           60000                           AD       A                                     
065224,000757: 20,3426           50163                           INDEX    SIGNAOS                               
065225,000758: 20,3427           54145                           TS       DBB4                                  #  DB4(3) = DB
065226,000759: 20,3430           13434                           TCF      SKIPDB2                               
065227,000760: 
065228,000761: 20,3431           31343        NOAOS              CA       DBVAL1                                
065229,000762: 20,3432           54146                           TS       DBB3                                  #  DB3,4 = DB
065230,000763: 20,3433           54145                           TS       DBB4                                  
065231,000764: 
065232,000765: 20,3434           30162        SKIPDB2            CA       ABSAOS                                #  ANETPOS(NEG) MAX = 2 JACC + ABS(AOS)
065233,000766: 20,3435           61533                           AD       1JACCU                                
065234,000767: 20,3436           61533                           AD       1JACCU                                
065235,000768: 20,3437           54157                           TS       ANET                                  #  CONNOT OVERFLOW HERE
065236,000769: 20,3440           03702        CL1/NET+           TC       DO1/NET+                              #  COMPUTE 1/ANET, ACCFUN
065237,000770: 
065238,000771: 20,3441           50164        ACCTHERE           INDEX    -SIGNAOS                              
065239,000772: 20,3442           54134                           TS       Z5TEM      +2                         #  STORE ACCFUN IN TEMPORARY BUFFER
065240,000773: 20,3443           30160                           CA       1/ANET                                
065241,000774: 20,3444           50164                           INDEX    -SIGNAOS                              
065242,000775: 20,3445           54126                           TS       1/ATEM2    +2                         #  STORE 1/ANET IN TEMPORARY BUFFER
065243,000776: 
065244,000777: 20,3446           30162                           CA       ABSAOS                                #  SEE IF OVERFLOW IN MIN CASE
065245,000778: 20,3447           61533                           AD       1JACCU                                
065246,000779: 20,3450           64734                           AD       BIT9                                  #  MAXIMUM POSSIBLE VALUE
065247,000780: 

Page 1499

065249,000782: 20,3451           54000                           TS       A                                     #  OVERFLOW POSSIBLE BUT REMOTE
065250,000783: 20,3452           13454                           TCF      +2                                    
065251,000784: 20,3453           34724                           CA       POSMAX                                #  IF OVERFLOW, TRUNCATE TO PI/2
065252,000785: 20,3454           63742                           AD       -.03R/S2                              #  RESTORE TO CORRECT VALUE
065253,000786: 20,3455           54157                           TS       ANET                                  
065254,000787: 20,3456           03702                           TC       DO1/NET+                              #  COMPUTE 1/ANET, ACCFUN
065255,000788: 
065256,000789: 20,3457           50164                           INDEX    -SIGNAOS                              #  STORE MIN VALUES JUST AS MAX VALUES
065257,000790: 20,3460           54132                           TS       Z5TEM                                 
065258,000791: 20,3461           30160                           CA       1/ANET                                
065259,000792: 20,3462           50164                           INDEX    -SIGNAOS                              
065260,000793: 20,3463           54124                           TS       1/ATEM2                               
065261,000794: 
065262,000795: 
065263,000796: 20,3464           40162                           CS       ABSAOS                                #  NOW DO NEG(POS) CASES
065264,000797: 20,3465           61533                           AD       1JACCU                                
065265,000798: 20,3466           61533                           AD       1JACCU                                #  ANETNEG(POS) MAX
065266,000799: 20,3467           03670                           TC       1/ANET-                               #  COMPUTE 1/ANET, ACCFUN, AND ACCSW
065267,000800: 20,3470           50163                           INDEX    SIGNAOS                               #  STORE NEG(POS) VALUES JUST AS POS(NEG)
065268,000801: 20,3471           54133                           TS       Z1TEM      +2                         
065269,000802: 20,3472           54001                           TS       L                                     #  SAVE IN L FOR POSSIBLE FUTURE USE
065270,000803: 20,3473           30160                           CA       1/ANET                                
065271,000804: 20,3474           50163                           INDEX    SIGNAOS                               
065272,000805: 20,3475           54125                           TS       1/ATEM1    +2                         
065273,000806: 20,3476           40162                           CS       ABSAOS                                
065274,000807: 20,3477           61533                           AD       1JACCU                                #  1/ANETNEG(POS) MIN
065275,000808: 20,3500           54157                           TS       ANET                                  
065276,000809: 20,3501           63742                           AD       -.03R/S2                              #  TEST FOR AMIN
065277,000810: 20,3502           00006                           EXTEND                                         #  IF ANET LESS THAN AMIN, STORE MAX JET
065278,000811: 20,3503           63721                           BZMF     FIXMIN                                #  VALUES FOR MIN JETS AND SET ACCSW
065279,000812: 
065280,000813: 20,3504           03676                           TC       1/NETMIN                              #  OTHERWISE DO MIN JET COMPUTATIONS
065281,000814: 20,3505           50163        STMIN-             INDEX    SIGNAOS                               #  STORE VALUES
065282,000815: 20,3506           54131                           TS       Z1TEM                                 
065283,000816: 20,3507           30160                           CA       1/ANET                                
065284,000817: 20,3510           50163                           INDEX    SIGNAOS                               
065285,000818: 20,3511           54123                           TS       1/ATEM1                               
065286,000819: 
065287,000820: 
065288,000821: 20,3512           50154                           INDEX    UV                                    
065289,000822: 20,3513           33747                           CA       +UMASK                                
065290,000823: 20,3514           71257                           MASK     CH5MASK                               #  TEST FOR +U (+V) JET FAILURES
065291,000824: 20,3515           00006                           EXTEND                                         
065292,000825: 20,3516           13523                           BZF      FAIL-                                 
065293,000826: 20,3517           30124                           CA       1/ATEM2                               #  REPLACE FUNCTION VALUES DEPENDING ON THE
065294,000827: 20,3520           54126                           TS       1/ATEM2    +2                         #  FAILED JET PAIR WITH CORRESPONDING ONE-
065295,000828: 20,3521           30132                           CA       Z5TEM                                 #  JET (OR AMIN) FUNCTION VALUES
065296,000829: 20,3522           54134                           TS       Z5TEM      +2                         
065297,000830: 20,3523           50154        FAIL-              INDEX    UV                                    
065298,000831: 20,3524           33745                           CA       -UMASK                                
065299,000832: 

Page 1500

065301,000834: 20,3525           71257                           MASK     CH5MASK                               #  TEST FOR -U (-V) JET FAILURES
065302,000835: 20,3526           00006                           EXTEND                                         
065303,000836: 20,3527           13534                           BZF      DBFUN                                 
065304,000837: 20,3530           30123                           CA       1/ATEM1                               #  REPLACE FUNCTION VALUES DEPENDING ON THE
065305,000838: 20,3531           54125                           TS       1/ATEM1    +2                         #  FAILED JET PAIR WITH CORRESPONDING ONE-
065306,000839: 20,3532           30131                           CA       Z1TEM                                 #  JET (OR AMIN) FUNCTION VALUES
065307,000840: 20,3533           54133                           TS       Z1TEM      +2                         
065308,000841: 
065309,000842: 20,3534           40146        DBFUN              CS       DBB3                                  #  COMPUTE AXISDIST
065310,000843: 20,3535           60143                           AD       DBB1                                  
065311,000844: 20,3536           60151                           AD       FLATEMP                               
065312,000845: 20,3537           54147                           TS       AXDSTEM                               
065313,000846: 20,3540           40145                           CS       DBB4                                  
065314,000847: 20,3541           60144                           AD       DBB2                                  
065315,000848: 20,3542           60151                           AD       FLATEMP                               
065316,000849: 20,3543           54150                           TS       AXDSTEM    +1                         
065317,000850: 
065318,000851: 20,3544           00004                           INHINT                                         
065319,000852: 20,3545           10154                           CCS      UV                                    #  TEST FOR U OR V AXIS
065320,000853: 20,3546           13570                           TCF      STORV                                 #  V AXIS   STORE V VALUES
065321,000854: 
065322,000855: 20,3547           30122                           CA       ACCSW                                 #  U AXIS   STORE U VALUES
065323,000856: 20,3550           55546                           TS       ACCSWU                                
065324,000857: 
065325,000858: 20,3551           34311                           CA       NINE                                  #  TRANSFER 10 WORDS VIA GENTRAN
065326,000859: 20,3552           05547                           TC       GENTRAN    +1                         
065327,000860: 20,3553           00123                           ADRES    1/ATEM1                               #  TEMPORARY BUFFER
065328,000861: 20,3554           01566                           ADRES    1/ANET1                               #  THE REAL PLACE
065329,000862: 
065330,000863: 20,3555           00003                           RELINT                                         
065331,000864: 20,3556           52144                           DXCH     DBB1                                  #  SAVE U DBS FOR LATER STORING
065332,000865: 20,3557           52136                           DXCH     UDB1                                  
065333,000866: 20,3560           52146                           DXCH     DBB4                                  
065334,000867: 20,3561           52140                           DXCH     UDB4                                  
065335,000868: 
065336,000869: 20,3562           52150                           DXCH     AXDSTEM                               
065337,000870: 20,3563           52142                           DXCH     UAXDIST                               
065338,000871: 
065339,000872: 20,3564           34744                           CA       ONE                                   #  NOW DO V AXIS
065340,000873: 20,3565           54154                           TS       UV                                    
065341,000874: 20,3566           34746                           CA       ZERO                                  
065342,000875: 20,3567           13276                           TCF      BOTHAXES                              #  AND DO IT AGAIN
065343,000876: 
065344,000877: 20,3570           30122        STORV              CA       ACCSW                                 #  STORE V AXIS VALUES
065345,000878: 20,3571           55547                           TS       ACCSWV                                
065346,000879: 20,3572           34311                           CA       NINE                                  
065347,000880: 20,3573           05547                           TC       GENTRAN    +1                         
065348,000881: 20,3574           00123                           ADRES    1/ATEM1                               #  TEMPORARY BUFFER
065349,000882: 

Page 1501

065351,000884: 20,3575           01606                           ADRES    1/ANET1    +16D                       #  THE REAL PLACE
065352,000885: 
065353,000886:                                                                                                  #  NOW STORE DEADBANDS FOR ALL AXES
065354,000887: 20,3576           52152                           DXCH     FLATEMP                               #  FLAT AND ZONE3LIM
065355,000888: 20,3577           53555                           DXCH     FLAT                                  
065356,000889: 
065357,000890: 20,3600           31343                           CA       DBVAL1                                #  COMPUTE P AXIS DEADBANDS
065358,000891: 20,3601           55560                           TS       PDB1                                  
065359,000892: 20,3602           55561                           TS       PDB2                                  
065360,000893: 20,3603           61554                           AD       FLAT                                  
065361,000894: 20,3604           55563                           TS       PDB3                                  
065362,000895: 20,3605           55562                           TS       PDB4                                  
065363,000896: 20,3606           34746                           CA       ZERO                                  
065364,000897: 20,3607           55564                           TS       PAXDIST                               
065365,000898: 20,3610           55565                           TS       PAXDIST    +1                         
065366,000899: 
065367,000900: 20,3611           11554                           CCS      FLAT                                  
065368,000901: 20,3612           13630                           TCF      DRFDB                                 #  DRIFT OR GTS - COMPUTE DBS
065369,000902: 
065370,000903: 20,3613           52136                           DXCH     UDB1                                  #  STORE U DEADBANDS
065371,000904: 20,3614           53601                           DXCH     FIREDB                                #  CANNOT USE GENTRAN BECAUSE OF RELINT
065372,000905: 20,3615           52140                           DXCH     UDB4                                  
065373,000906: 20,3616           53603                           DXCH     COASTDB                               
065374,000907: 20,3617           52142                           DXCH     UAXDIST                               
065375,000908: 20,3620           53605                           DXCH     AXISDIST                              
065376,000909: 20,3621           52144                           DXCH     DBB1                                  #  STORE V AXIS DEADBANDS
065377,000910: 20,3622           53621                           DXCH     FIREDB     +16D                       #  COULD USE GENTRAN IF DESIRED
065378,000911: 20,3623           52146                           DXCH     DBB4                                  
065379,000912: 20,3624           53623                           DXCH     COASTDB    +16D                       
065380,000913: 20,3625           52150                           DXCH     AXDSTEM                               
065381,000914: 20,3626           53625                           DXCH     AXISDIST   +16D                       
065382,000915: 
065383,000916: 20,3627           13650                           TCF      1/ACCRET   +1                         #  ALL DONE
065384,000917: 20,3630           31343        DRFDB              CA       DBVAL1                                #  DRIFT DEADBANDS
065385,000918: 20,3631           55600                           TS       FIREDB                                
065386,000919: 20,3632           55601                           TS       FIREDB     +1                         
065387,000920: 20,3633           55620                           TS       FIREDB     +16D                       
065388,000921: 20,3634           55621                           TS       FIREDB     +17D                       
065389,000922: 20,3635           61554                           AD       FLAT                                  
065390,000923: 20,3636           55602                           TS       COASTDB                               
065391,000924: 20,3637           55603                           TS       COASTDB    +1                         
065392,000925: 20,3640           55622                           TS       COASTDB    +16D                       
065393,000926: 20,3641           55623                           TS       COASTDB    +17D                       
065394,000927: 20,3642           34746                           CA       ZERO                                  
065395,000928: 20,3643           55604                           TS       AXISDIST                              
065396,000929: 20,3644           55605                           TS       AXISDIST   +1                         
065397,000930: 20,3645           55624                           TS       AXISDIST   +16D                       
065398,000931: 20,3646           55625                           TS       AXISDIST   +17D                       
065399,000932: 
065400,000933: 20,3647           00004        1/ACCRET           INHINT                                         
065401,000934: 

Page 1502

065403,000936: 20,3650           40111                           CS       DAPBOOLS                              #  SET BIT TO INDICATE DATA GOOD.
065404,000937: 20,3651           74742                           MASK     ACCSOKAY                              
065405,000938: 20,3652           26111                           ADS      DAPBOOLS                              
065406,000939: 20,3653           00003                           RELINT                                         
065407,000940: 20,3654           30117                           CA       ACCRETRN                              
065408,000941: 20,3655           04631                           TC       BANKJUMP                              #  RETURN TO CALLER
065409,000942: 
065410,000943: 20,3656           54165        INVERT             TS       HOLD                                  #  ROUTINE TO INVERT   -INPUT AT PI/2
065411,000944: 20,3657           34734                           CA       BIT9                                  #  1 AT 2(6)
065412,000945: 20,3660           22007                           ZL                                             #  ZERO L FOR ACCURACY AND TO PREVENT OVFLO
065413,000946: 20,3661           00006                           EXTEND                                         
065414,000947: 20,3662           10165                           DV       HOLD                                  
065415,000948: 20,3663           00002                           TC       Q                                     #  RESULT AT 2(7)/PI
065416,000949: 
065417,000950: 20,3664           34746        DOWNGTS            CAF      ZERO                                  #  ZERO SWITCHES WHEN USEQRJTS BIT IS UP
065418,000951: 20,3665           55502                           TS       ALLOWGTS                              #    OR DAP IS OFF.
065419,000952: 20,3666           55632                           TS       INGTS                                 
065420,000953: 20,3667           12755                           TCF      DOCKTEST                              
065421,000954: 
065422,000955: 20,3670           22007        1/ANET-            ZL                                             
065423,000956: 20,3671           22122                           LXCH     ACCSW                                 #  ZERO ACCSW
065424,000957: 20,3672           54157                           TS       ANET                                  #  SAVE ANET
065425,000958: 20,3673           63742                           AD       -.03R/S2                              #  TEST FOR MIN VALUE
065426,000959: 20,3674           00006                           EXTEND                                         
065427,000960: 20,3675           63716                           BZMF     NETNEG                                #  ANET LESS THAN AMIN, SO FAKE IT
065428,000961: 20,3676           30157        1/NETMIN           CA       ANET                                  
065429,000962: 20,3677           00006                           EXTEND                                         
065430,000963: 20,3700           50164                           INDEX    -SIGNAOS                              
065431,000964: 20,3701           70130                           MP       1/ACOSTT   +1                         #  ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
065432,000965: 
065433,000966:                                                                                                  #                                                THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
065434,000967:                                                                                                  #                                                        VALUES OF AOS
065435,000968: 
065436,000969: 20,3702           64734        DO1/NET+           AD       BIT9                                  #  1 + ANET/ACOAST AT 2(6)
065437,000970: 20,3703           56157                           XCH      ANET                                  #  SAVE AND PICK UP ANET
065438,000971: 20,3704           00006                           EXTEND                                         
065439,000972: 20,3705           22161                           QXCH     ARET                                  #  SAVE RETURN
065440,000973: 20,3706           03656                           TC       INVERT                                
065441,000974: 20,3707           54160                           TS       1/ANET                                #  1/ANET AT 2(7)/PI
065442,000975: 20,3710           44734                           CS       BIT9                                  #  -1 AT 2(6)
065443,000976: 20,3711           00006        DOACCFUN           EXTEND                                         
065444,000977: 20,3712           70160                           MP       1/ANET                                #  -1/ANET AT 2(13)/PI
065445,000978: 20,3713           00006                           EXTEND                                         
065446,000979: 20,3714           10157                           DV       ANET                                  #  ACCFUN AT 2(7)/PI
065447,000980: 20,3715           00161                           TC       ARET                                  #  RETURN
065448,000981: 
065449,000982: 20,3716           43742        NETNEG             CS       -.03R/S2                              #  ANET LESS THAN AMIN - SET EQUAL TO AMIN
065450,000983: 20,3717           54157                           TS       ANET                                  
065451,000984: 20,3720           13677                           TCF      1/NETMIN   +1                         #  CONTINUE AS IF NOTHING HAPPENED
065452,000985: 

Page 1503

065454,000987: 20,3721           10163        FIXMIN             CCS      SIGNAOS                               
065455,000988: 20,3722           34743                           CA       TWO                                   #  IF AOS NEG, ACCSW = +1
065456,000989: 20,3723           67770                           AD       NEGONE                                #  IF AOS POS, ACCSW = -1
065457,000990: 20,3724           54122                           TS       ACCSW                                 
065458,000991: 20,3725           60154                           AD       UV                                    #  IF ACCSW = +1, TEST FOR +U (+V) JET FAIL
065459,000992: 20,3726           50000                           INDEX    A                                     #  IF ACCSW = -1, TEST FOR -U (-V) JET FAIL
065460,000993: 20,3727           33746                           CA       -UMASK     +1                         
065461,000994: 20,3730           71257                           MASK     CH5MASK                               
065462,000995: 20,3731           00006                           EXTEND                                         
065463,000996: 20,3732           13736                           BZF      +4                                    
065464,000997: 20,3733           43742                           CS       -.03R/S2                              #  JET FAILURE - CANNOT USE 2-JET VALUES
065465,000998: 20,3734           54157                           TS       ANET                                  #  ANET = AMIN
065466,000999: 20,3735           13504                           TCF      STMIN-     -1                         #  CALCULATE FUNCTIONS USING AMIN
065467,001000: 20,3736           30001                           CA       L                                     #  L HAS ACCFUN
065468,001001: 20,3737           13505                           TCF      STMIN-                                #  STORE MAX VALUES FOR MIN JETS
065469,001002: 
065470,001003:                                                                                                  #  ERASABLE ASSIGNMENTS FOR 1/ACCONT
065471,001004: 
065472,001005: 20,3740  E6,1550               1/ANETP            EQUALS   BLOCKTOP   +2                         
065473,001006: 20,3740  E6,1552               1/ACOSTP           EQUALS   BLOCKTOP   +4                         
065474,001007: 20,3740  E6,1556               PACCFUN            EQUALS   BLOCKTOP   +8D                        
065475,001008: 20,3740  E6,1560               PDB1               EQUALS   BLOCKTOP   +10D                       
065476,001009: 20,3740  E6,1561               PDB2               EQUALS   BLOCKTOP   +11D                       
065477,001010: 20,3740  E6,1562               PDB4               EQUALS   BLOCKTOP   +12D                       
065478,001011: 20,3740  E6,1563               PDB3               EQUALS   BLOCKTOP   +13D                       
065479,001012: 20,3740  E6,1564               PAXDIST            EQUALS   BLOCKTOP   +14D                       
065480,001013: 
065481,001014: 20,3740     0122               ACCSW              EQUALS   VBUF                                  #  EXECUTIVE TEMPORARIES
065482,001015:                                                                                                  #  CANNOT DO CCS     NEWJOB DURING 1/ACCS
065483,001016: 20,3740     0123               1/ATEM1            EQUALS   ACCSW      +1                         #  TEMP BUFFER FOR U AND V AXES
065484,001017: 20,3740     0124               1/ATEM2            EQUALS   1/ATEM1    +1                         
065485,001018: 20,3740     0127               1/ACOSTT           EQUALS   1/ATEM1    +4                         
065486,001019: 20,3740     0131               Z1TEM              EQUALS   1/ATEM1    +6                         
065487,001020: 20,3740     0132               Z5TEM              EQUALS   1/ATEM1    +7                         
065488,001021: 
065489,001022: 20,3740     0135               UDB1               EQUALS   1/ATEM1    +10D                       #  UAXIS DEADBAND BUFFER
065490,001023: 20,3740     0136               UDB2               EQUALS   1/ATEM1    +11D                       
065491,001024: 20,3740     0137               UDB4               EQUALS   1/ATEM1    +12D                       
065492,001025: 20,3740     0140               UDB3               EQUALS   1/ATEM1    +13D                       
065493,001026: 20,3740     0141               UAXDIST            EQUALS   1/ATEM1    +14D                       
065494,001027: 
065495,001028: 20,3740     0143               DBB1               EQUALS   1/ATEM1    +16D                       #  TEMP DEADBAND BUFFER, ALSO V AXIS
065496,001029: 20,3740     0144               DBB2               EQUALS   1/ATEM1    +17D                       
065497,001030: 20,3740     0145               DBB4               EQUALS   1/ATEM1    +18D                       
065498,001031: 20,3740     0146               DBB3               EQUALS   1/ATEM1    +19D                       
065499,001032: 20,3740     0147               AXDSTEM            EQUALS   1/ATEM1    +20D                       
065500,001033: 
065501,001034: 20,3740     0151               FLATEMP            EQUALS   1/ATEM1    +22D                       
065502,001035: 20,3740     0152               Z3TEM              EQUALS   1/ATEM1    +23D                       #  MUST FOLLOW FLATEMP
065503,001036: 

Page 1504

065505,001038: 20,3740     0114               DBVAL2             EQUALS   INTB15+                               
065506,001039: 20,3740     0115               DBVAL3             EQUALS   INTB15+    +1                         
065507,001040: 
065508,001041: 20,3740     0116               DRIFTER            EQUALS   INTB15+    +2                         
065509,001042: 
065510,001043: 20,3740     0154               UV                 EQUALS   MPAC                                  
065511,001044: 20,3740     0157               ANET               EQUALS   MPAC       +3                         
065512,001045: 20,3740     0157               FUNTEM             EQUALS   MPAC       +3                         
065513,001046: 20,3740     0160               1/ANET             EQUALS   MPAC       +4                         
065514,001047: 20,3740     0161               ARET               EQUALS   MPAC       +5                         
065515,001048: 20,3740     0162               ABSAOS             EQUALS   MPAC       +6                         
065516,001049: 20,3740     0163               SIGNAOS            EQUALS   MPAC       +7                         
065517,001050: 20,3740     0164               -SIGNAOS           EQUALS   MPAC       +8D                        
065518,001051: 20,3740     0165               HOLD               EQUALS   MPAC       +9D                        
065519,001052: 20,3740     0117               ACCRETRN           EQUALS   FIXLOC     -1                         
065520,001053: 
065521,001054: 20,3740           00110        ZONE3MAX           DEC      .004375                               #  17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
065522,001055: 20,3741           00443        FLATVAL            DEC      .01778                                #  .8 AT PI/4 RAD
065523,001056: 20,3742           77377        -.03R/S2           OCT      77377                                 #  -PI/2(7) AT PI/2
065524,001057: 
065525,001058: 20,3743           00356        .023R/S2           OCT      00356                                 #  .0228 RAD/SEC(2) AT PI/2
065526,001059: 20,3744     4724               1/.03              EQUALS   POSMAX                                #  2(7)/PI AT 2(7)/PI
065527,001060: 
065528,001061: 20,3744           02217        PAXISADR           GENADR   PAXIS                                 
065529,001062: 
065530,001063: 
065531,001064:                                                                                                  #  THE FOLLOWING 4 CONSTANTS ARE JET
065532,001065:                                                                                                  #  FAILURE MASKS AND ARE INDEXED
065533,001066: 20,3745           00110        -UMASK             OCT      00110                                 #  -U
065534,001067: 20,3746           00022                           OCT      00022                                 #  -V
065535,001068: 20,3747           00204        +UMASK             OCT      00204                                 #  +U
065536,001069: 20,3750           00041                           OCT      00041                                 #  +V
065537,001070: 

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