Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

064507,000002:                                                                                                  ## Copyright:   Public domain.
064508,000003:                                                                                                  ## Filename:    AOSTASK_AND_AOSJOB.agc
064509,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
064510,000005:                                                                                                  ##              It is part of the source code for the original release
064511,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
064512,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
064513,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
064514,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
064515,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
064516,000011:                                                                                                  ##              that the code format has been changed to conform to the
064517,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
064518,000013:                                                                                                  ##              original YUL assembler.
064519,000014:                                                                                                  ## Reference:   pp. 1479-1499
064520,000015:                                                                                                  ## Assembler:   yaYUL
064521,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
064522,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
064523,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
064524,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
064525,000020:                                                                                                  ##              2016-12-23 RRB  Updated for Luminary 69 revision 0. The Luminary 99 version was updated on
064526,000021:                                                                                                  ##                              Feb. 14, 1969, which was before the release of Luminary 69 revision 2 on April 1, 1969.
064527,000022:                                                                                                  ##              2017-01-23 HG   Fix operator CS -> CA
064528,000023:                                                                                                  ##                              Remove declaration  1JACCCON OCT 00167
064529,000024:                                                                                                  ##                              Add missing sequence of statements   AD  1JACCU
064530,000025:                                                                                                  ##                                                                   TS  ANET
064531,000026:                                                                                                  ##                                                                   AD  BIT8
064532,000027:                                                                                                  ##                                                                   XCH ANET
064533,000028:                                                                                                  ##                                                                   TC  INVERT
064534,000029:                                                                                                  ##                                                                   EXTEND
064535,000030:                                                                                                  ##                                                                   MP  BIT14
064536,000031:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
064537,000032:                                                                                                  ##                              and fixed errors found.
064538,000033:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes identified in 5-way
064539,000034:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
064540,000035: 
064541,000036:                                                                                                  ##
064542,000037: 

Page 1479

064544,000039:                                                                                                  #  PROGRAM NAME:         1/ACCS
064545,000040:                                                                                                  #  PROGRAM WRITTEN BY:   BOB COVELLI AND MIKE HOUSTON
064546,000041:                                                                                                  #  LAST MODIFICATION:    FEB. 21, 1968
064547,000042: 
064548,000043:                                                                                                  #  PROGRAM DESCRIPTION:
064549,000044: 
064550,000045:                                                                                                  #    1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A
064551,000046:                                                                                                  #  CHANGE IN THE MASS OF THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT-
064552,000047:                                                                                                  #  DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP.
064553,000048: 
064554,000049:                                                                                                  #    THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR),
064555,000050:                                                                                                  #  STAGE VERIFY BIT (CHAN30,BIT2), DOCKED BIT (DAPBOOLS,BIT13), DRIFT BIT (DAPBOOLS,BIT8), USEQRJTS (DAPBOOLS,
064556,000051:                                                                                                  #  BIT14), AND SURFACE FLAG (FLAGWRD8,BIT8), AND CH5MASK.
064557,000052: 
064558,000053:                                                                                                  #    1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE
064559,000054:                                                                                                  #  FORMED BY RESOLVING 1JACCQ NAD 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L, PVT-CG) IS ALSO
064560,000055:                                                                                                  #  COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ,
064561,000056:                                                                                                  #  ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE.
064562,000057: 
064563,000058:                                                                                                  #    AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL  NET ACCELERATIONS ABOUT THE P, U,
064564,000059:                                                                                                  #  AND V AXES (2 JETS FOR P AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT
064565,000060:                                                                                                  #  THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5) ARE ALSO COMPUTED FOR THESE AXES. THE
064566,000061:                                                                                                  #  FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS. FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE
064567,000062:                                                                                                  #  MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
064568,000063:                                                                                                  # IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
064569,000064: 
064570,000065:                                                                                                  #  SUBBOUTINES CALLED:
064571,000066:                                                                                                  #        TIMEGMBL
064572,000067:                                                                                                  #        MAKECADR
064573,000068:                                                                                                  #        ROT45DEG
064574,000069: 
064575,000070:                                                                                                  #  CALLING SEQUENCE:
064576,000071:                                                                                                  #                TC      BANKCALL        (1/ACCS MUST BE CALL BY BANKCALL
064577,000072:                                                                                                  #                CADR    1/ACCS
064578,000073: 
064579,000074:                                                                                                  #  NORMAL EXIT:  VIA BANKJUMP            ALARM AND ABORT EXIT MODES:  NONE.
064580,000075: 
064581,000076:                                                                                                  #  INPUT/OUTPUT:  SEE PROGRAM DESCRIPTION
064582,000077: 
064583,000078:                                                                                                  #  DEBRIS:
064584,000079: 
064585,000080:                                                                                                  #  ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
064586,000081: 
064587,000082:                                                                                                  #  RESTRICTIONS:
064588,000083:                                                                                                  #  1/ACCS MUST BE CALLED BY BANKCALL
064589,000084:                                                                                                  #  EBANK IS SET TO 6, BUT NOT RESTORED.

Page 1480

064591,000086: 
064592,000087: 20,2447                                           BANK     20                                    
064593,000088: 20,2000                                           SETLOC   DAPS3                                 
064594,000089: 20,2000                                           BANK                                           
064595,000090: 
064596,000091: 20,2447                                           COUNT*   $$/DAPAO                              
064597,000092: 
064598,000093: 20,2447  E6,1537                                  EBANK=   AOSQ                                  
064599,000094: 
064600,000095:                                                                                                  #  ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
064601,000096: 
064602,000097:                                                                                                  #  IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY.  HOWEVER, SINCE THERE IS NO CHECK OF
064603,000098:                                                                                                  #  NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
064604,000099: 
064605,000100: 20,2447           34755        1/ACCSET           CAF      ZERO                                  #  ENTRY FROM FRESH START/RESTART CODING.
064606,000101: 20,2450           55537                           TS       AOSQ                                  #    NULL THE OFFSET ESTIMATES FOR 1/ACCS.
064607,000102: 20,2451           55541                           TS       AOSR                                  
064608,000103: 20,2452           55422                           TS       ALPHAQ                                #    NULL THE OFFSET ESTIMATES FOR DOWNLIST
064609,000104: 20,2453           55423                           TS       ALPHAR                                
064610,000105: 
064611,000106: 20,2454           04616        1/ACCJOB           TC       BANKCALL                              #  1/ACCS ASSUMES ENTRY VIA BANKCALL.
064612,000107: 20,2455           40461                           CADR     1/ACCS     +2                         #  SKIP EBANK SETTING.
064613,000108: 
064614,000109: 20,2456           05155                           TC       ENDOFJOB                              
064615,000110: 
064616,000111: 20,2457           35015        1/ACCS             CA       EBANK6                                #  ***** EBANK SET BUT NOT RESTORED *****
064617,000112: 20,2460           54003                           TS       EBANK                                 
064618,000113: 
064619,000114: 20,2461           04645                           TC       MAKECADR                              #  SAVE RETURN SO THAT BUF2 MAY BE USED
064620,000115: 20,2462           54117                           TS       ACCRETRN                              
064621,000116: 
064622,000117:                                                                                                  #  DETERMINE MASS OF THE LEM.
064623,000118: 20,2463           30111                           CA       DAPBOOLS                              #  IS CSM DOCKED
064624,000119: 20,2464           74737                           MASK     CSMDOCKD                              
064625,000120: 20,2465           54157                           TS       DOCKTEMP                              #  STORE RECORD OF STATE IN TEMP (MPAC +3).
064626,000121: 20,2466           10000                           CCS      A                                     
064627,000122: 20,2467           41332                           CS       CSMMASS                               #    DOCKED:  LEMMASS = MASS - CSMMASS
064628,000123: 20,2470           61244                           AD       MASS                                  #    LEM ALONE:  LEMMASS = MASS
064629,000124: 20,2471           55331                           TS       LEMMASS                               
064630,000125: 
064631,000126:                                                                                                  #  ON THE BASIS OF APSFLAG:
064632,000127:                                                                                                  #        SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/4-JET CONTROL
064633,000128:                                                                                                  #        SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
064634,000129:                                                                                                  #        ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
064635,000130: 
064636,000131: 20,2472           00004                           INHINT                                         
064637,000132: 20,2473           30106                           CAE      FLGWRD10                              #  DETERMINE WHETHER STAGED.
064638,000133: 20,2474           74737                           MASK     APSFLBIT                              
064639,000134: 20,2475           00006                           EXTEND                                         
064640,000135: 20,2476           12522                           BZF      DPSFLITE                              

Page 1481

064642,000137: 20,2477           44733                           CS       POSMAX                                #  ASCENT (OR ON LUNAR SURFACE)
064643,000138: 20,2500           55473                           TS       -2JETLIM                              #  ALWAYS 2 JETS FOR P-AXIS RATE COMMAND
064644,000139: 20,2501           35742                           CAF      OCT14                                 #  INITIALIZE INDEX AT 12.
064645,000140: 20,2502           54154                           TS       MPAC                                  
064646,000141: 20,2503           41331                           CS       LEMMASS                               #  CHECK IF MASS TOO HIGH.  CATCH STAGING.
064647,000142: 20,2504           61400                           AD       HIASCENT                              
064648,000143: 20,2505           00006                           EXTEND                                         
064649,000144: 20,2506           62513                           BZMF     MASSFIX                               
064650,000145: 20,2507           41331                           CS       LEMMASS                               #  CHECK IF MASS TOO LOW.  THIS LIMITS THE
064651,000146: 20,2510           62001                           AD       LOASCENT                              #    DECREMENTING BY MASSMON.
064652,000147: 20,2511           00006                           EXTEND                                         
064653,000148: 20,2512           62540                           BZMF     F(MASS)                               
064654,000149: 
064655,000150: 20,2513           27331        MASSFIX            ADS      LEMMASS                               #  STORE THE VIOLATED LIMIT AS LEMMASS.
064656,000151: 20,2514           22007                           ZL                                             #    ALSO CORRECT TOTAL MASS, ZEROING THE
064657,000152: 20,2515           10157                           CCS      DOCKTEMP                              #    LOW-ORDER WORD.
064658,000153: 20,2516           31332                           CAE      CSMMASS                               #      DOCKED:  MASS = LEMMASS + CSMMASS
064659,000154: 20,2517           61331                           AD       LEMMASS                               #      LEM ALONE:  MASS = LEMMASS
064660,000155: 20,2520           53245                           DXCH     MASS                                  
064661,000156: 20,2521           12540                           TCF      F(MASS)                               
064662,000157: 
064663,000158: 20,2522           44742        DPSFLITE           CS       BIT10                                 #  FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
064664,000159: 20,2523           55473                           TS       -2JETLIM                              #    EXCEEDING 1.4 DEG/SEC (SCALED AT 45)
064665,000160: 20,2524           36241                           CAF      SIX                                   #  INITIALIZE INDEX AT 6.
064666,000161: 20,2525           54154                           TS       MPAC                                  
064667,000162: 20,2526           41331                           CS       LEMMASS                               #  CHECK IF MASS TOO HIGH.  SHOULD NEVER
064668,000163: 20,2527           62002                           AD       HIDESCNT                              #    OCCUR EXCEPT PERHAPS BEFORE THE PAD
064669,000164: 20,2530           00006                           EXTEND                                         #    LOAD IS DONE.
064670,000165: 20,2531           62513                           BZMF     MASSFIX                               
064671,000166: 20,2532           41331                           CS       LEMMASS                               #  CHECK IF MASS TOO LOW.  THIS LIMITS THE
064672,000167: 20,2533           62003                           AD       LODESCNT                              #        DECREMENTING BY MASSMON.
064673,000168: 20,2534           61400                           AD       HIASCENT                              
064674,000169: 20,2535           00006                           EXTEND                                         
064675,000170: 20,2536           62540                           BZMF     F(MASS)                               
064676,000171: 20,2537           12513                           TCF      MASSFIX                               
064677,000172: 
064678,000173:                                                                                                  #  COMPUTATION OF FUNCTIONS OF MASS
064679,000174: 20,2540           00003        F(MASS)            RELINT                                         
064680,000175: 20,2541           10157                           CCS      DOCKTEMP                              
064681,000176: 20,2542           13030                           TCF      DOCKED                                #  DOCKED:  USE SEPERATE COMPUTATION.
064682,000177: 20,2543           34752                           CA       TWO                                   
064683,000178: 20,2544           54155        STCTR              TS       MPAC       +1                         #  J=2,1,0 FOR 1JACCR,1JACCQ,1JACC
064684,000179: 
064685,000180: 20,2545           44752                           CS       TWO                                   
064686,000181: 20,2546           26154                           ADS      MPAC                                  #  JX=10,8,6 OR 4,2,0 TO INDEX COEFS.
064687,000182: 
064688,000183: 20,2547           31331        STCTR1             CAE      LEMMASS                               
064689,000184: 20,2550           50154                           INDEX    MPAC                                  
064690,000185: 20,2551           63006                           AD       INERCONC                              
064691,000186: 20,2552           54156                           TS       MPAC       +2                         #  MASS + C

Page 1482

064693,000188: 20,2553           00006                           EXTEND                                         
064694,000189: 20,2554           50154                           INDEX    MPAC                                  
064695,000190: 20,2555           32770                           DCA      INERCONA                              
064696,000191: 20,2556           00006                           EXTEND                                         
064697,000192: 20,2557           10156                           DV       MPAC       +2                         
064698,000193: 20,2560           50154                           INDEX    MPAC                                  
064699,000194: 20,2561           63005                           AD       INERCONB                              
064700,000195: 20,2562           50155                           INDEX    MPAC       +1                         #  1JACC(J)=A(JX)/(MASS+C(JX) + B(JX)
064701,000196: 20,2563           55530                           TS       1JACC                                 #  1JACC(-1)=L,PVT-CG  SCALED AT 8 FEET
064702,000197: 
064703,000198: 20,2564           10155                           CCS      MPAC       +1                         
064704,000199: 20,2565           12544                           TCF      STCTR                                 
064705,000200: 20,2566           12570                           TCF      COMMEQS                               
064706,000201: 20,2567           12607                           TCF      LRESC                                 
064707,000202: 
064708,000203: 20,2570           31532        COMMEQS            CA       1JACCR                                #  SCALED AT PI/4
064709,000204: 20,2571           61531                           AD       1JACCQ                                
064710,000205: 20,2572           00006                           EXTEND                                         
064711,000206: 20,2573           73026                           MP       0.35356                               #  .70711 SCALED BY (+1)
064712,000207: 20,2574           55533                           TS       1JACCU                                
064713,000208: 20,2575           55534                           TS       1JACCV                                #  SCALED AT PI/2 RAD/SEC**2
064714,000209: 
064715,000210: 20,2576           10154                           CCS      MPAC                                  #  COMPUTE L,PVT-CG IF IN DESCENT
064716,000211: 20,2577           34755                           CAF      ZERO                                  #  ZERO SWITCHES AND GO TO 1/ACCONT IN
064717,000212: 20,2600           55501                           TS       ALLOWGTS                              #    ASCENT
064718,000213: 20,2601           13142                           TCF      1/ACCONT   -1                         
064719,000214: 
064720,000215: 20,2602           44752                           CS       TWO                                   
064721,000216: 20,2603           54154                           TS       MPAC                                  
064722,000217: 20,2604           44753                           CS       ONE                                   
064723,000218: 20,2605           54155                           TS       MPAC       +1                         
064724,000219: 20,2606           12547                           TCF      STCTR1                                
064725,000220:                                                                                                  #  THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS.  THE EQUATION IMPLE
064726,000221:                                                                                                  #  MENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
064727,000222:                                                                                                  #        T = ENGINE THRUST FORCE
064728,000223:                                                                                                  #        L = PIVOT TO CG DISTANCE OF ENGINE
064729,000224:                                                                                                  #        I = MOMENT OF INERTIA
064730,000225: 
064731,000226: 20,2607           31246        LRESC              CAE      ABDELV                                #  SCALED AT 2(13) CM/SEC(2)
064732,000227: 20,2610           00006                           EXTEND                                         
064733,000228: 20,2611           71244                           MP       MASS                                  #  SCALED AT B+16 KGS
064734,000229: 20,2612           02724                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064735,000230: 20,2613           03027                           ADRES    GFACTM                                
064736,000231: 
064737,000232:                                                                                                  #  MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
064738,000233:                                                                                                  #  THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO
064739,000234:                                                                                                  #  THAT IS UNCONVERTED.  2.20462 CONVERTS KG. TO LB.  NOW T IS IN A SCALED AT 2(14).
064740,000235: 
064741,000236: 20,2614           00006                           EXTEND                                         
064742,000237: 20,2615           71527                           MP       L,PVT-CG                              #  SCALED AT 8 FEET.

Page 1483

064744,000239: 20,2616           00004                           INHINT                                         
064745,000240: 20,2617           54154                           TS       MPAC                                  
064746,000241: 20,2620           00006                           EXTEND                                         
064747,000242: 20,2621           71532                           MP       1JACCR                                
064748,000243: 20,2622           02724                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064749,000244: 20,2623           02000                           ADRES    TORKJET1                              
064750,000245: 
064751,000246: 20,2624           55511                           TS       ACCDOTR                               #  SCALED AT PI/2(7)
064752,000247: 20,2625           30154                           CA       MPAC                                  
064753,000248: 20,2626           00006                           EXTEND                                         
064754,000249: 20,2627           71531                           MP       1JACCQ                                
064755,000250: 20,2630           02724                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
064756,000251: 20,2631           02000                           ADRES    TORKJET1                              
064757,000252: 
064758,000253: 20,2632           55507        SPSCONT            TS       ACCDOTQ                               #  SCALED AT PI/2(7)
064759,000254: 20,2633           00006                           EXTEND                                         
064760,000255: 20,2634           73025                           MP       DGBF                                  #  .3ACCDOTQ SCALED AT PI/2(8)
064761,000256: 20,2635           55503                           TS       KQ                                    
064762,000257: 20,2636           00006                           EXTEND                                         
064763,000258: 20,2637           70000                           SQUARE                                         
064764,000259: 20,2640           55504                           TS       KQ2                                   #  KQ(2)
064765,000260: 
064766,000261: 20,2641           31511                           CAE      ACCDOTR                               #  .3ACCDOTR AT PI/2(8)
064767,000262: 20,2642           00006                           EXTEND                                         
064768,000263: 20,2643           73025                           MP       DGBF                                  
064769,000264: 20,2644           55505                           TS       KRDAP                                 
064770,000265: 20,2645           00006                           EXTEND                                         
064771,000266: 20,2646           70000                           SQUARE                                         
064772,000267: 20,2647           55506                           TS       KR2                                   
064773,000268: 
064774,000269: 20,2650           00006                           EXTEND                                         #  NOW COMPUTE QACCDOT, RACCDOT, THE SIGNED
064775,000270: 20,2651           00012                           READ     CHAN12                                #  JERK TERMS.  STORE CHANNEL 12. WITH GIM
064776,000271: 20,2652           54155                           TS       MPAC       +1                         #  BAL DRIVE BITS 9 THROUGH 12. SET LOOP
064777,000272: 20,2653           34752                           CAF      BIT2                                  #  INDEX TO COMPUTE RACCDOT, THEN QACCDOT.
064778,000273: 20,2654           12656                           TCF      LOOP3                                 
064779,000274: 20,2655           34755                           CAF      ZERO                                  #  ACCDOTQ AND ACCDOTR ARE NOT NEGATIVE,
064780,000275: 20,2656           54154        LOOP3              TS       MPAC                                  #  BECAUSE THEY ARE MAGNITUDES
064781,000276: 20,2657           30155                           CA       MPAC       +1                         
064782,000277: 20,2660           50154                           INDEX    MPAC                                  #  MASK CHANNEL IMAGE FOR ANY GIMBAL MOTION
064783,000278: 20,2661           73021                           MASK     GIMBLBTS                              
064784,000279: 20,2662           00006                           EXTEND                                         
064785,000280: 20,2663           12677                           BZF      ZACCDOT                               #  IF NONE, Q(R)ACCDOT IS ZERO.
064786,000281: 20,2664           30155                           CA       MPAC       +1                         
064787,000282: 20,2665           50154                           INDEX    MPAC                                  #  GIMBAL IS MOVING.  IS ROTATION POSITIVE.
064788,000283: 20,2666           73022                           MASK     GIMBLBTS   +1                         
064789,000284: 20,2667           00006                           EXTEND                                         
064790,000285: 20,2670           12674                           BZF      FRSTZERO                              #  IF NOT POSITIVE, BRANCH
064791,000286: 20,2671           50154                           INDEX    MPAC                                  #  POSITIVE ROTATION, NEGATIVE Q(R)ACCDOT.
064792,000287: 20,2672           41507                           CS       ACCDOTQ                               
064793,000288: 20,2673           12700                           TCF      STACCDOT                              

Page 1484

064795,000290: 20,2674           50154        FRSTZERO           INDEX    MPAC                                  #  NEGATIVE ROTATION, POSITIVE Q(R)ACCDOT.
064796,000291: 20,2675           31507                           CA       ACCDOTQ                               
064797,000292: 20,2676           12700                           TCF      STACCDOT                              
064798,000293: 20,2677           34755        ZACCDOT            CAF      ZERO                                  
064799,000294: 20,2700           50154        STACCDOT           INDEX    MPAC                                  
064800,000295: 20,2701           55510                           TS       QACCDOT                               #  STORE Q(R)ACCDOT.
064801,000296: 20,2702           10154                           CCS      MPAC                                  
064802,000297: 20,2703           12655                           TCF      LOOP3      -1                         #  NOW DO QACCDOT.
064803,000298: 
064804,000299: 20,2704           40111                           CS       DAPBOOLS                              #  IS GIMBAL USABLE?
064805,000300: 20,2705           74736                           MASK     USEQRJTS                              
064806,000301: 20,2706           00006                           EXTEND                                         
064807,000302: 20,2707           13576                           BZF      DOWNGTS                               #  NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064808,000303: 20,2710           41274                           CS       T5ADR                                 #  YES.  IS THE DAP RUNNING?
064809,000304: 20,2711           63655                           AD       PAXISADR                              
064810,000305: 20,2712           00006                           EXTEND                                         
064811,000306: 20,2713           12715                           BZF      +2                                    
064812,000307: 20,2714           13576                           TCF      DOWNGTS                               #  NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064813,000308: 20,2715           11631                           CCS      INGTS                                 #  YES.  IS GTS IN CONTROL?
064814,000309: 20,2716           12721                           TCF      DOCKTEST                              #  YES.  PROCEED WITH 1/ACCS.
064815,000310: 20,2717           04674                           TC       IBNKCALL                              #  NO. NULL OFFSET AND FIND ALLOWGTS
064816,000311: 20,2720           43450                           CADR     TIMEGMBL                              
064817,000312: 
064818,000313: 20,2721           10157        DOCKTEST           CCS      DOCKTEMP                              #  BYPASS 1/ACCONT WHEN DOCKED.
064819,000314: 20,2722           13561                           TCF      1/ACCRET                              
064820,000315: 20,2723           13143                           TCF      1/ACCONT                              
064821,000316: 

Page 1485

064823,000318:                                                                                                  #  SUBROUTINE:   DVOVSUB
064824,000319:                                                                                                  #  AUTHOR:       C. WORK, MOD 0 12 JUNE 68
064825,000320:                                                                                                  #  PURPOSE:      THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
064826,000321:                                                                                                  #                (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
064827,000322:                                                                                                  #                (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
064828,000323:                                                                                                  #                (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
064829,000324:                                                                                                  #                THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB.  E BANK MUST BE 6.
064830,000325:                                                                                                  #                THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE.  SIGN AGREEMENT IS
064831,000326:                                                                                                  #                ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND.  (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE RE-
064832,000327:                                                                                                  #                SULT OF A MULTIPLICATION OPERATION.)
064833,000328:                                                                                                  #  CALL SEQUENCE:
064834,000329:                                                                                                  #                        L       TC      DVOVSUB
064835,000330:                                                                                                  #                        L +1    ADRES   (DIVISOR)
064836,000331:                                                                                                  #                        L +2    RETURN HERE, WITH RESULT IN A,L
064837,000332:                                                                                                  #  INPUT:        DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
064838,000333:                                                                                                  #                DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
064839,000334:                                                                                                  #  OUTPUT:       QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
064840,000335:                                                                                                  #  DEBRIS:       SCRATCHX,SCRATCHY,SCRATCHZ,A,L  (NOTE: SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.)
064841,000336:                                                                                                  #  ABORTS OR ALARMS:  NONE
064842,000337:                                                                                                  #  EXITS:        TO THE CALL POINT +2.
064843,000338:                                                                                                  #  SUBROUTINES CALLED:  NONE.
064844,000339: 
064845,000340: 20,2724           54161        DVOVSUB            TS       SCRATCHY                              #  SAVE UPPER HALF OF DIVIDEND
064846,000341: 20,2725           54160                           TS       SCRATCHX                              
064847,000342: 20,2726           50002                           INDEX    Q                                     #  OBTAIN ADDRESS OF DIVISOR.
064848,000343: 20,2727           30000                           CA       0                                     
064849,000344: 20,2730           24002                           INCR     Q                                     #  STEP Q FOR PROPER RETURN SEQUENCE.
064850,000345: 20,2731           50000                           INDEX    A                                     
064851,000346: 20,2732           30000                           CA       0                                     #  PICK UP THE DIVISOR.
064852,000347: 20,2733           00006                           EXTEND                                         #  RETURN POSMAX FOR A ZERO DIVISOR.
064853,000348: 20,2734           12763                           BZF      MAXPLUS                               
064854,000349: 
064855,000350: 20,2735           54162                           TS       SCRATCHZ                              #  STORE DIVISOR.
064856,000351: 
064857,000352: 20,2736           10000                           CCS      A                                     #  GET ABS(DIVISOR) IN THE A REGISTER.
064858,000353: 20,2737           64753                           AD       BIT1                                  
064859,000354: 20,2740           12742                           TCF      ZEROPLUS                              
064860,000355: 20,2741           64753                           AD       BIT1                                  
064861,000356: 
064862,000357: 20,2742           56161        ZEROPLUS           XCH      SCRATCHY                              #  STORE ABS(DIVISOR).  PICK UP TOP HALF OF
064863,000358: 20,2743           00006                           EXTEND                                         #  DIVIDEND.
064864,000359: 20,2744           62746                           BZMF     GOODNEG                               #  GET -ABS(DIVIDEND)

Page 1486

064866,000361: 20,2745           40000                           CS       A                                     
064867,000362: 
064868,000363: 20,2746           60161        GOODNEG            AD       SCRATCHY                              #  ABS(DIVISOR) - ABS(DIVIDEND)
064869,000364: 20,2747           00006                           EXTEND                                         
064870,000365: 20,2750           62755                           BZMF     MAKEMAX                               #  BRANCH IF DIVISION IS NOT PROPER.
064871,000366: 
064872,000367: 20,2751           30160                           CA       SCRATCHX                              #  RE-ESTABLISH THE DIVIDEND.
064873,000368: 20,2752           00006                           EXTEND                                         
064874,000369: 20,2753           10162                           DV       SCRATCHZ                              #  QUOTIENT IN THE A, REMAINDER IN L.
064875,000370: 20,2754           00002                           TC       Q                                     #  RETURN TO CALLER.
064876,000371: 
064877,000372: 20,2755           10160        MAKEMAX            CCS      SCRATCHX                              #  DETERMINE THE SIGN OF THE QUOTIENT.
064878,000373: 20,2756           10162                           CCS      SCRATCHZ                              #  SCRATCHX AND SCRATCHZ ARE NON-ZERO.
064879,000374: 20,2757           12763                           TCF      MAXPLUS                               
064880,000375: 20,2760           10162                           CCS      SCRATCHZ                              
064881,000376: 20,2761           34735                           CAF      NEGMAX                                #  +,- OR -,+
064882,000377: 20,2762           00002                           TC       Q                                     
064883,000378: 20,2763           34733        MAXPLUS            CAF      POSMAX                                #  -,- OR +,+
064884,000379: 20,2764           00002                           TC       Q                                     
064885,000380: 
064886,000381:                                                                                                  #  COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
064887,000382:                                                                                                  #  THE CURVE FITS ARE OF THE FORM -
064888,000383: 
064889,000384:                                                                                                  #        1JACC = A/(MASS + C) + B
064890,000385: 
064891,000386:                                                                                                  #  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.
064892,000387: 
064893,000388:                                                                                                  #  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,
064894,000389:                                                                                                  #  AND C IS SCALED AT B+16 KG.
064895,000390: 
064896,000391: 20,2765           01240 22513                     2DEC     +.0410511917                            #  L             A               DESCENT
064897,000392: 
064898,000393: 20,2767           00141 07416  INERCONA           2DEC     +.0059347674                            #  1JACCP        A               DESCENT
064899,000394: 
064900,000395: 20,2771           00030 21261                     2DEC     +.0014979264                            #  1JACCQ        A               DESCENT
064901,000396: 
064902,000397: 20,2773           00021 03766                     2DEC     +.0010451889                            #  1JACCR        A               DESCENT
064903,000398: 
064904,000399: 20,2775           00153 07111                     2DEC     +.0065443852                            #  1JACCP        A               ASCENT
064905,000400: 
064906,000401: 20,2777           00072 24103                     2DEC     +.0035784354                            #  1JACCQ        A               ASCENT
064907,000402: 
064908,000403: 20,3001           00135 11511                     2DEC     +.0056946631                            #  1JACCR        A               ASCENT
064909,000404: 
064910,000405: 20,3003           04754                           DEC      +.155044                              #  L             B               DESCENT
064911,000406: 20,3004           77142                           DEC      -.025233                              #  L             C               DESCENT

Page 1487

064913,000408: 20,3005           00061        INERCONB           DEC      +.002989                              #  1JACCP        B               DESCENT
064914,000409: 20,3006           00217        INERCONC           DEC      +.008721                              #  1JACCP        C               DESCENT
064915,000410: 20,3007           00464                           DEC      +.018791                              #  1JACCQ        B               DESCENT
064916,000411: 20,3010           75642                           DEC      -.068163                              #  1JACCQ        C               DESCENT
064917,000412: 20,3011           00536                           DEC      +.021345                              #  1JACCR        B               DESCENT
064918,000413: 20,3012           75705                           DEC      -.066027                              #  1JACCR        C               DESCENT
064919,000414: 
064920,000415: 20,3013           00001                           DEC      +.000032                              #  1JACCP        B               ASCENT
064921,000416: 20,3014           77616                           DEC      -.006923                              #  1JACCP        C               ASCENT
064922,000417: 20,3015           05154                           DEC      +.162862                              #  1JACCQ        B               ASCENT
064923,000418: 20,3016           00052                           DEC      +.002588                              #  1JACCQ        C               ASCENT
064924,000419: 20,3017           00231                           DEC      +.009312                              #  1JACCR        B               ASCENT
064925,000420: 20,3020           77174                           DEC      -.023608                              #  1JACCR        C               ASCENT
064926,000421: 
064927,000422: 20,3021           01400        GIMBLBTS           OCTAL    01400                                 
064928,000423: 20,3022           01000                           OCTAL    01000                                 
064929,000424: 20,3023           06000                           OCTAL    06000                                 
064930,000425: 20,3024           04000                           OCTAL    04000                                 
064931,000426: 20,3025           23146        DGBF               DEC      0.6                                   #  .3 SCALED AT 1/2
064932,000427: 20,3026           13241        0.35356            DEC      0.35356                               #  .70711 SCALED AT 2
064933,000428: 20,3027           00337        GFACTM             OCT      337                                   #  979.24/2.20462 AT B+15
064934,000429: 
064935,000430:                                                                                                  #  CSM-DOCKED INERTIA COMPUTATIONS
064936,000431: 
064937,000432: 20,3030           34753        DOCKED             CA       ONE                                   #  COEFTR  = 1 FOR INERTIA COEFFICIENTS
064938,000433: 20,3031           54160        SPSLOOP1           TS       COEFCTR                               #          = 7 FOR CG COEFFICIENTS
064939,000434: 20,3032           34753                           CA       ONE                                   #  MASSCTR = 1 FOR CSM
064940,000435: 20,3033           54161                           TS       MASSCTR                               #          = 0 FOR LEM
064941,000436: 
064942,000437: 20,3034           50160                           INDEX    COEFCTR                               
064943,000438: 20,3035           33125                           CA       COEFF      -1                         #  COEFF -1 = C
064944,000439: 20,3036           00006                           EXTEND                                         
064945,000440: 20,3037           71331                           MP       LEMMASS                               
064946,000441: 20,3040           00006                           EXTEND                                         
064947,000442: 20,3041           71332                           MP       CSMMASS                               #  LET X = CSMMASS AND Y = LEMMASS
064948,000443: 
064949,000444: 20,3042           50160                           INDEX    COEFCTR                               
064950,000445: 20,3043           63126                           AD       COEFF                                 #  COEFF = F
064951,000446: 20,3044           54154                           TS       MPAC                                  #  MPAC = C X Y + F
064952,000447: 20,3045           13051                           TCF      +4                                    
064953,000448: 
064954,000449: 20,3046           54161        SPSLOOP2           TS       MASSCTR                               #  LOOP TWICE THROUGH HERE TO OBTAIN
064955,000450: 20,3047           00006                           EXTEND                                         #  MPAC = MPAC + (A X +D)X + (B Y +E)Y
064956,000451: 20,3050           26160                           DIM      COEFCTR                               #                 LOOP #1     LOOP #2
064957,000452: 20,3051           50160                           INDEX    COEFCTR                               
064958,000453: 20,3052           33130                           CA       COEFF      +2                         #  COEFF +2 = A OR B
064959,000454: 20,3053           00006                           EXTEND                                         
064960,000455: 20,3054           50161                           INDEX    MASSCTR                               
064961,000456: 20,3055           71331                           MP       LEMMASS                               
064962,000457: 20,3056           50160                           INDEX    COEFCTR                               

Page 1488

064964,000459: 20,3057           63132                           AD       COEFF      +4                         #  COEFF +4 = E OR D
064965,000460: 20,3060           00006                           EXTEND                                         
064966,000461: 20,3061           50161                           INDEX    MASSCTR                               
064967,000462: 20,3062           71331                           MP       LEMMASS                               
064968,000463: 20,3063           26154                           ADS      MPAC                                  
064969,000464: 
064970,000465: 20,3064           10161                           CCS      MASSCTR                               
064971,000466: 20,3065           13046                           TCF      SPSLOOP2                              
064972,000467: 20,3066           10160                           CCS      COEFCTR                               #  IF COEFCTR IS POS, EXIT FROM LOOP WITH
064973,000468: 20,3067           13076                           TCF      +7                                    #  CG X DELDOT = MPAC X 4 PI RAD-CM/SEC
064974,000469: 20,3070           00000 20354  TORQCONS           2DEC     0.51443    B-14                       #  CORRESPONDS TO 500 LB-FT
064975,000470: 
064976,000471: 20,3072           30154                           CA       MPAC                                  
064977,000472: 20,3073           54155                           TS       MPAC       +1                         #  INERTIA = (MPAC +1) X 2(38) KG-CM(2)
064978,000473: 20,3074           34757                           CA       SEVEN                                 
064979,000474: 20,3075           13031                           TCF      SPSLOOP1                              
064980,000475: 
064981,000476: 20,3076           34742                           CA       BIT10                                 #  CORRESPONDS TO 1. 4 DEG/SEC(2)
064982,000477: 20,3077           55530                           TS       1JACC                                 #  SCALED AT PI/4
064983,000478: 
064984,000479: 20,3100           34733                           CA       POSMAX                                #  SET INVERSE JET ACCELERATIONS TO POSMAX,
064985,000480: 20,3101           55551                           TS       1/ANETP                               #  WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS.
064986,000481: 20,3102           55571                           TS       1/ANET2    +1                         
064987,000482: 20,3103           55572                           TS       1/ANET2    +2                         
064988,000483: 20,3104           55611                           TS       1/ANET2    +17D                       
064989,000484: 20,3105           55612                           TS       1/ANET2    +18D                       
064990,000485: 20,3106           00006                           EXTEND                                         
064991,000486: 20,3107           33071                           DCA      TORQCONS                              
064992,000487: 20,3110           00006                           EXTEND                                         
064993,000488: 20,3111           10155                           DV       MPAC       +1                         
064994,000489: 20,3112           00004                           INHINT                                         
064995,000490: 20,3113           55531                           TS       1JACCQ                                #  SCALED AT PI/4
064996,000491: 20,3114           55532                           TS       1JACCR                                
064997,000492: 
064998,000493: 20,3115           31244                           CA       MASS                                  #  SCALED AT 2(16) KG
064999,000494: 20,3116           00006                           EXTEND                                         
065000,000495: 20,3117           70154                           MP       MPAC                                  #  SCALED AT 4 PI RAD-CM/SEC
065001,000496: 20,3120           00006                           EXTEND                                         
065002,000497: 20,3121           71246                           MP       ABDELV                                #  SCALED AT 2(13) CM/SEC(2)
065003,000498: 20,3122           02724                           TC       DVOVSUB                               #  GET QUOTIENT WITH OVERFLOW PROTECTION
065004,000499: 20,3123           00155                           ADRES    MPAC       +1                         
065005,000500: 
065006,000501: 20,3124           55511                           TS       ACCDOTR                               
065007,000502: 20,3125           12632                           TCF      SPSCONT                               #  CONTINUE K, KSQ CALCULATIONS
065008,000503: 
065009,000504:                                                                                                  #                                                2     2
065010,000505:                                                                                                  #  COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X  +B Y  +C X Y +D X +E Y +F
065011,000506: 
065012,000507: 20,3126           06176        COEFF              DEC      .19518                                #  C  COEFFICIENT OF INERTIA
065013,000508: 20,3127           77650                           DEC      -.00529                               #  F             ''

Page 1489

065015,000510: 20,3130           72260                           DEC      -.17670                               #  B             ''
065016,000511: 20,3131           76637                           DEC      -.03709                               #  A             ''
065017,000512: 20,3132           02167                           DEC      .06974                                #  E             ''
065018,000513: 20,3133           00645                           DEC      .02569                                #  D             ''
065019,000514: 
065020,000515: 20,3134           06335                           DEC      .20096                                #  C  COEFFICIENT OF CG
065021,000516: 20,3135           04256                           DEC      .13564                                #  F          ''
065022,000517: 20,3136           30163                           DEC      .75704                                #  B          ''
065023,000518: 20,3137           64072                           DEC      -.37142                               #  A          ''
065024,000519: 20,3140           53632                           DEC      -.63117                               #  E          ''
065025,000520: 20,3141           15133                           DEC      .41179                                #  D          ''
065026,000521: 
065027,000522:                                                                                                  #  ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
065028,000523:                                                                                                  #  MPAC, MPAC +1, MPAC +2  USED EXPLICITLY
065029,000524: 20,3142     0160               COEFCTR            EQUALS   MPAC       +4                         
065030,000525: 20,3142     0161               MASSCTR            EQUALS   MPAC       +5                         
065031,000526: 20,3142     0160               SCRATCHX           EQUALS   MPAC       +4                         #  SCRATCH AREA FOR DVOVSUB ROUTINE.
065032,000527: 20,3142     0161               SCRATCHY           EQUALS   SCRATCHX   +1                         
065033,000528: 20,3142     0162               SCRATCHZ           EQUALS   SCRATCHX   +2                         
065034,000529: 
065035,000530: 20,3142     0157               DOCKTEMP           EQUALS   MPAC       +3                         #  RECORD OF CSMDOCKED BIT OF DAPBOOLS
065036,000531: 

Page 1490

065038,000533: 20,3142                                           BANK     20                                    
065039,000534: 20,2000                                           SETLOC   DAPS3                                 
065040,000535: 20,2000                                           BANK                                           
065041,000536: 
065042,000537: 20,3142  E6,1537                                  EBANK=   AOSQ                                  
065043,000538: 
065044,000539: 20,3142                                           COUNT*   $$/DAPAO                              
065045,000540: 
065046,000541: 20,3142           55631                 -1        TS       INGTS                                 #  ZERO INGTS IN ASCENT
065047,000542: 20,3143           31346        1/ACCONT           CA       DB                                    #  INITIALIZE DBVAL1,2,3
065048,000543: 20,3144           00006                           EXTEND                                         
065049,000544: 20,3145           74737                           MP       BIT13                                 
065050,000545: 20,3146           54001                           TS       L                                     #  0.25 DB
065051,000546: 20,3147           60000                           AD       A                                     
065052,000547: 20,3150           54115                           TS       DBVAL3                                #  0.50 DB
065053,000548: 20,3151           41346                           CS       DBVAL1                                
065054,000549: 20,3152           60001                           AD       L                                     
065055,000550: 20,3153           54114                           TS       DBVAL2                                #  -.75 DB
065056,000551: 
065057,000552: 20,3154           00004        GETAOSUV           INHINT                                         
065058,000553: 20,3155           31541                           CAE      AOSR                                  #  COMPUTE AOSU AND AOSV BY ROTATING
065059,000554: 20,3156           54001                           TS       L                                     #        AOSQ AND AOSR.
065060,000555: 20,3157           31537                           CAE      AOSQ                                  
065061,000556: 20,3160           04674                           TC       IBNKCALL                              
065062,000557: 20,3161           37100                           CADR     ROT45DEG                              
065063,000558: 20,3162           53544                           DXCH     AOSU                                  
065064,000559: 
065065,000560: 20,3163           00003                           RELINT                                         
065066,000561: 20,3164           30111                           CA       DAPBOOLS                              
065067,000562: 20,3165           74744                           MASK     DRIFTBIT                              #  ZERO DURING ULLAGE AND POWERED FLIGHT.
065068,000563: 20,3166           10000                           CCS      A                                     #  IF DRIFTING FLIGHT,
065069,000564: 20,3167           34753                           CA       ONE                                   #        SET DRIFTER TO 1
065070,000565: 20,3170           54116                           TS       DRIFTER                               #  SAVE TO TEST FOR DRIFTING FLIGHT LATER
065071,000566: 20,3171           61501                           AD       ALLOWGTS                              #  NON-ZERO IF DRIFT OR GTS NEAR
065072,000567: 20,3172           10000                           CCS      A                                     
065073,000568: 20,3173           33653                           CA       FLATVAL                               #  DRIFTING FLIGHT, STORE .8 IN FLAT
065074,000569: 20,3174           54151                           TS       FLATEMP                               #  IN POWERED FLIGHT, STORE ZERO IN FLAT
065075,000570: 20,3175           00006                           EXTEND                                         
065076,000571: 20,3176           13202                           BZF      DOPAXIS                               #  IF POWERED AND NO GTS, START P AXIS,
065077,000572: 20,3177           10116                           CCS      DRIFTER                               #  OTHERWISE SET ZONE3LIM
065078,000573: 20,3200           33652                           CA       ZONE3MAX                              #  17.5 MS, SCALED AT 4 SECONDS.
065079,000574: 20,3201           54152                           TS       Z3TEM                                 
065080,000575: 
065081,000576: 20,3202           31530        DOPAXIS            CA       1JACC                                 #  1JACC AT PI/4 = 2JACC AT PI/2 =
065082,000577:                                                                                                  #  ANET AT PI/2 = ANET/ACOAST AT 2(6).
065083,000578: 20,3203           64743                           AD       BIT9                                  #  1 + ANET/ACOAST AT 2(6)
065084,000579: 20,3204           54157                           TS       FUNTEM                                
065085,000580: 
065086,000581: 20,3205           31530                           CA       1JACC                                 

Page 1491

065088,000583: 20,3206           03570                           TC       INVERT                                
065089,000584: 20,3207           00004                           INHINT                                         #  P AXIS DATA MUST BE CONSISTENT
065090,000585: 20,3210           55551                           TS       1/ANETP                               #  SCALED AT 2(7)/PI.
065091,000586: 20,3211           55552                           TS       1/ANETP    +1                         
065092,000587: 
065093,000588: 20,3212           44743                           CS       BIT9                                  #  -1 AT 2(6)
065094,000589: 20,3213           00006                           EXTEND                                         
065095,000590: 20,3214           71551                           MP       1/ANETP                               #  -1/ANET AT 2(13)/PI
065096,000591: 20,3215           00006                           EXTEND                                         
065097,000592: 20,3216           10157                           DV       FUNTEM                                #  -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI
065098,000593: 20,3217           55557                           TS       PACCFUN                               
065099,000594: 20,3220           55560                           TS       PACCFUN    +1                         
065100,000595: 
065101,000596: 20,3221           34733                           CA       1/.03                                 #  NO AOS FOR P AXIS, ACOAST = AMIN
065102,000597: 20,3222           55553                           TS       1/ACOSTP                              
065103,000598: 20,3223           55554                           TS       1/ACOSTP   +1                         
065104,000599: 20,3224           00003                           RELINT                                         
065105,000600: 
065106,000601: 20,3225           22007                           ZL                                             
065107,000602: 20,3226           10116                           CCS      DRIFTER                               
065108,000603: 20,3227           53544                           DXCH     AOSU                                  #  ZERO AOSU,V IF IN DRIFT, JUST TO BE SURE
065109,000604: 
065110,000605: 20,3230           34755        UAXIS              CA       ZERO                                  #  DO U AXIS COMPUTATIONS
065111,000606: 20,3231           54154                           TS       UV                                    #  ZERO FOR U AXIS, ONE FOR V AXIS.
065112,000607: 
065113,000608: 20,3232           54163        BOTHAXES           TS       SIGNAOS                               #  CODING COMMON TO U,V AXES
065114,000609: 20,3233           50154                           INDEX    UV                                    
065115,000610: 20,3234           11543                           CCS      AOSU                                  #  PICK UP ABS(AOSU OR AOSV)
065116,000611: 20,3235           64753                           AD       ONE                                   #  RESTORE TO PROPER VALUE
065117,000612: 20,3236           13241                           TCF      +3                                    #  AND LEAVE SIGNAOS AT ZERO
065118,000613: 20,3237           64753                           AD       ONE                                   #  NEGATIVE, RESTORE TO PROPER VALUE
065119,000614: 20,3240           24163                           INCR     SIGNAOS                               #  AND SET SIGNAOS TO ONE TO SHOW AOS NEG
065120,000615: 20,3241           54162                           TS       ABSAOS                                #  SAVE ABS(AOS)
065121,000616: 20,3242           40163                           CS       SIGNAOS                               
065122,000617: 20,3243           54164                           TS       -SIGNAOS                              #  USED AS AN INDEX
065123,000618: 
065124,000619: 20,3244           31346                           CA       DBVAL1                                #  SET DB1, DB2 TO DBVAL1 (= DB)
065125,000620: 20,3245           54143                           TS       DBB1                                  
065126,000621: 20,3246           54144                           TS       DBB2                                  
065127,000622: 
065128,000623: 20,3247           30162                           CA       ABSAOS                                #  TEST MAGNITUDE OF ABS(AOS)
065129,000624: 20,3250           63654                           AD       -.03R/S2                              
065130,000625: 20,3251           00006                           EXTEND                                         
065131,000626: 20,3252           63322                           BZMF     NOTMUCH                               #  ABS(AOS) LESS THAN AMIN
065132,000627: 20,3253           10151        BIGAOS             CCS      FLATEMP                               #  AGS(AOS) GREATER THAN AMIN
065133,000628: 20,3254           13265                           TCF      SKIPDB1                               #  I DRIFT OR GTS, DO NOT COMPUTE DB
065134,000629: 
065135,000630: 20,3255           31346                           CA       DBVAL1                                
065136,000631: 20,3256           50164                           INDEX    -SIGNAOS                              

Page 1492

065138,000633: 20,3257           26144                           ADS      DBB2                                  #  DB2(1) = 2 DB
065139,000634: 20,3260           50163                           INDEX    SIGNAOS                               
065140,000635: 20,3261           54145                           TS       DBB4                                  #  DB4(3) = 1 DB
065141,000636: 20,3262           30114                           CA       DBVAL2                                
065142,000637: 20,3263           50164                           INDEX    -SIGNAOS                              
065143,000638: 20,3264           54146                           TS       DBB3                                  #  DB3(4) = -.75 DB
065144,000639: 
065145,000640: 20,3265           30162        SKIPDB1            CA       ABSAOS                                #  ABS(AOS) GREATER THAN AMIN, SO IT IS
065146,000641: 20,3266           03570                           TC       INVERT                                #  ALL RIGHT TO DIVIDE
065147,000642: 20,3267           50164                           INDEX    -SIGNAOS                              
065148,000643: 20,3270           54130                           TS       1/ACOSTT   +1                         #  1/ACOASTPOS(NEG) = 1/ABS(AOS)
065149,000644: 20,3271           34733                           CA       1/.03                                 
065150,000645: 20,3272           50163                           INDEX    SIGNAOS                               
065151,000646: 20,3273           54127                           TS       1/ACOSTT                              #  1/ACOASTNEG(POS) = 1/AMIN
065152,000647: 
065153,000648: 20,3274           30162                           CA       ABSAOS                                
065154,000649: 20,3275           61533                           AD       1JACCU                                
065155,000650: 20,3276           61533                           AD       1JACCU                                #  2 JACC + ABS(AOS)
065156,000651: 20,3277           64743                           AD       BIT9                                  #  MAXIMUM VALUE IN COMPUTATIONS
065157,000652: 20,3300           54000                           TS       A                                     #  TEST FOR OVERFLOW
065158,000653: 20,3301           13346                           TCF      SKIPDB2                               #  NO OVERFLOW, DO NORMAL COMPUTATION
065159,000654: 
065160,000655: 20,3302           30162                           CA       ABSAOS                                #  RESCALE TO PI TO PREVENT OVERFLOW
065161,000656: 20,3303           00006                           EXTEND                                         
065162,000657: 20,3304           74736                           MP       BIT14                                 
065163,000658: 20,3305           61533                           AD       1JACCU                                #  1 JACC AT PI/2 = 2JACC AT PI
065164,000659: 20,3306           54157                           TS       ANET                                  #  ANETPOS(NEG) MAX SCALED AT PI  =
065165,000660:                                                                                                  #  ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7)
065166,000661: 20,3307           64744                           AD       BIT8                                  #  1 + ANETPOS/ACOASTNEG AT 2(7)
065167,000662: 20,3310           56157                           XCH      ANET                                  #  SAVE IN ANET, WHILE PICKING UP ANET
065168,000663: 20,3311           03570                           TC       INVERT                                
065169,000664: 20,3312           00006                           EXTEND                                         
065170,000665: 20,3313           74736                           MP       BIT14                                 #  SCALE 1/ANET AT 2(7)/PI
065171,000666: 20,3314           54160                           TS       1/ANET                                
065172,000667: 
065173,000668: 20,3315           33321                           CA       ACCHERE                               #  SET UP RETURN FROM COMPUTATION ROUTINE
065174,000669: 20,3316           54161                           TS       ARET                                  
065175,000670: 20,3317           44744                           CS       BIT8                                  #  -1 AT 2(7)
065176,000671: 20,3320           13623                           TCF      DOACCFUN                              #  FINISH ACCFUN COMPUTATION
065177,000672: 
065178,000673: 20,3321           13353        ACCHERE            TCF      ACCTHERE                              
065179,000674: 
065180,000675: 
065181,000676: 20,3322           54001        NOTMUCH            TS       L                                     #  ABS(AOS) LESS THAN AMIN, SAVE IN L
065182,000677: 20,3323           34733                           CA       1/.03                                 #  ACOASTPOS,NEG = AMIN
065183,000678: 20,3324           54127                           TS       1/ACOSTT                              
065184,000679: 20,3325           54130                           TS       1/ACOSTT   +1                         
065185,000680: 
065186,000681: 20,3326           10151                           CCS      FLATEMP                               
065187,000682: 20,3327           13346                           TCF      SKIPDB2                               #  DO NOT COMPUTE DB IF DRIFT OR GTS
065188,000683: 

Page 1493

065190,000685: 20,3330           34744                           CA       .0125RS                               #  AMIN/2
065191,000686: 20,3331           60001                           AD       L                                     #  L HAS ABS(AOS) - AMIN
065192,000687: 20,3332           00006                           EXTEND                                         #  RESULT IS ABS(AOS)- AMIN/2
065193,000688: 20,3333           63343                           BZMF     NOAOS                                 #  ABS(AOS) LESS THAN AMIN/2
065194,000689: 
065195,000690: 20,3334           30115        SOMEAOS            CA       DBVAL3                                #  AMIN/2 LT ABS(AOS) LT AMIN
065196,000691: 20,3335           50164                           INDEX    -SIGNAOS                              
065197,000692: 20,3336           54146                           TS       DBB3                                  #  DB3(4) = DB/2
065198,000693: 20,3337           60000                           AD       A                                     
065199,000694: 20,3340           50163                           INDEX    SIGNAOS                               
065200,000695: 20,3341           54145                           TS       DBB4                                  #  DB4(3) = DB
065201,000696: 20,3342           13346                           TCF      SKIPDB2                               
065202,000697: 
065203,000698: 20,3343           31346        NOAOS              CA       DBVAL1                                
065204,000699: 20,3344           54146                           TS       DBB3                                  #  DB3,4 = DB
065205,000700: 20,3345           54145                           TS       DBB4                                  
065206,000701: 
065207,000702: 20,3346           30162        SKIPDB2            CA       ABSAOS                                #  ANETPOS(NEG) MAX = 2 JACC + ABS(AOS)
065208,000703: 20,3347           61533                           AD       1JACCU                                
065209,000704: 20,3350           61533                           AD       1JACCU                                
065210,000705: 20,3351           54157                           TS       ANET                                  #  CONNOT OVERFLOW HERE
065211,000706: 20,3352           03614        CL1/NET+           TC       DO1/NET+                              #  COMPUTE 1/ANET, ACCFUN
065212,000707: 
065213,000708: 20,3353           50164        ACCTHERE           INDEX    -SIGNAOS                              
065214,000709: 20,3354           54134                           TS       Z5TEM      +2                         #  STORE ACCFUN IN TEMPORARY BUFFER
065215,000710: 20,3355           30160                           CA       1/ANET                                
065216,000711: 20,3356           50164                           INDEX    -SIGNAOS                              
065217,000712: 20,3357           54126                           TS       1/ATEM2    +2                         #  STORE 1/ANET IN TEMPORARY BUFFER
065218,000713: 
065219,000714: 20,3360           30162                           CA       ABSAOS                                #  SEE IF OVERFLOW IN MIN CASE
065220,000715: 20,3361           61533                           AD       1JACCU                                
065221,000716: 20,3362           64743                           AD       BIT9                                  #  MAXIMUM POSSIBLE VALUE
065222,000717: 20,3363           54000                           TS       A                                     #  OVERFLOW POSSIBLE BUT REMOTE
065223,000718: 20,3364           13366                           TCF      +2                                    
065224,000719: 20,3365           34733                           CA       POSMAX                                #  IF OVERFLOW, TRUNCATE TO PI/2
065225,000720: 20,3366           63654                           AD       -.03R/S2                              #  RESTORE TO CORRECT VALUE
065226,000721: 20,3367           54157                           TS       ANET                                  
065227,000722: 20,3370           03614                           TC       DO1/NET+                              #  COMPUTE 1/ANET, ACCFUN
065228,000723: 
065229,000724: 20,3371           50164                           INDEX    -SIGNAOS                              #  STORE MIN VALUES JUST AS MAX VALUES
065230,000725: 20,3372           54132                           TS       Z5TEM                                 
065231,000726: 20,3373           30160                           CA       1/ANET                                
065232,000727: 20,3374           50164                           INDEX    -SIGNAOS                              
065233,000728: 20,3375           54124                           TS       1/ATEM2                               
065234,000729: 
065235,000730: 20,3376           40162                           CS       ABSAOS                                #  NOW DO NEG(POS) CASES
065236,000731: 20,3377           61533                           AD       1JACCU                                
065237,000732: 20,3400           61533                           AD       1JACCU                                #  ANETNEG(POS) MAX
065238,000733: 20,3401           03602                           TC       1/ANET-                               #  COMPUTE 1/ANET, ACCFUN, AND ACCSW

Page 1494

065240,000735: 20,3402           50163                           INDEX    SIGNAOS                               #  STORE NEG(POS) VALUES JUST AS POS(NEG)
065241,000736: 20,3403           54133                           TS       Z1TEM      +2                         
065242,000737: 20,3404           54001                           TS       L                                     #  SAVE IN L FOR POSSIBLE FUTURE USE
065243,000738: 20,3405           30160                           CA       1/ANET                                
065244,000739: 20,3406           50163                           INDEX    SIGNAOS                               
065245,000740: 20,3407           54125                           TS       1/ATEM1    +2                         
065246,000741: 20,3410           40162                           CS       ABSAOS                                
065247,000742: 20,3411           61533                           AD       1JACCU                                #  1/ANETNEG(POS) MIN
065248,000743: 20,3412           54157                           TS       ANET                                  
065249,000744: 20,3413           63654                           AD       -.03R/S2                              #  TEST FOR AMIN
065250,000745: 20,3414           00006                           EXTEND                                         #  IF ANET LESS THAN AMIN, STORE MAX JET
065251,000746: 20,3415           63633                           BZMF     FIXMIN                                #  VALUES FOR MIN JETS AND SET ACCSW
065252,000747: 
065253,000748: 20,3416           03610                           TC       1/NETMIN                              #  OTHERWISE DO MIN JET COMPUTATIONS
065254,000749: 20,3417           50163        STMIN-             INDEX    SIGNAOS                               #  STORE VALUES
065255,000750: 20,3420           54131                           TS       Z1TEM                                 
065256,000751: 20,3421           30160                           CA       1/ANET                                
065257,000752: 20,3422           50163                           INDEX    SIGNAOS                               
065258,000753: 20,3423           54123                           TS       1/ATEM1                               
065259,000754: 
065260,000755: 20,3424           50154                           INDEX    UV                                    
065261,000756: 20,3425           33660                           CA       +UMASK                                
065262,000757: 20,3426           71262                           MASK     CH5MASK                               #  TEST FOR +U (+V) JET FAILURES
065263,000758: 20,3427           00006                           EXTEND                                         
065264,000759: 20,3430           13435                           BZF      FAIL-                                 
065265,000760: 20,3431           30124                           CA       1/ATEM2                               #  REPLACE FUNCTION VALUES DEPENDING ON THE
065266,000761: 20,3432           54126                           TS       1/ATEM2    +2                         #  FAILED JET PAIR WITH CORRESPONDING ONE-
065267,000762: 20,3433           30132                           CA       Z5TEM                                 #  JET (OR AMIN) FUNCTION VALUES
065268,000763: 20,3434           54134                           TS       Z5TEM      +2                         
065269,000764: 20,3435           50154        FAIL-              INDEX    UV                                    
065270,000765: 20,3436           33656                           CA       -UMASK                                
065271,000766: 20,3437           71262                           MASK     CH5MASK                               #  TEST FOR -U (-V) JET FAILURES
065272,000767: 20,3440           00006                           EXTEND                                         
065273,000768: 20,3441           13446                           BZF      DBFUN                                 
065274,000769: 20,3442           30123                           CA       1/ATEM1                               #  REPLACE FUNCTION VALUES DEPENDING ON THE
065275,000770: 20,3443           54125                           TS       1/ATEM1    +2                         #  FAILED JET PAIR WITH CORRESPONDING ONE-
065276,000771: 20,3444           30131                           CA       Z1TEM                                 #  JET (OR AMIN) FUNCTION VALUES
065277,000772: 20,3445           54133                           TS       Z1TEM      +2                         
065278,000773: 
065279,000774: 20,3446           40146        DBFUN              CS       DBB3                                  #  COMPUTE AXISDIST
065280,000775: 20,3447           60143                           AD       DBB1                                  
065281,000776: 20,3450           60151                           AD       FLATEMP                               
065282,000777: 20,3451           54147                           TS       AXDSTEM                               
065283,000778: 20,3452           40145                           CS       DBB4                                  
065284,000779: 20,3453           60144                           AD       DBB2                                  
065285,000780: 20,3454           60151                           AD       FLATEMP                               
065286,000781: 20,3455           54150                           TS       AXDSTEM    +1                         
065287,000782: 

Page 1495

065289,000784: 20,3456           00004                           INHINT                                         
065290,000785: 20,3457           10154                           CCS      UV                                    #  TEST FOR U OR V AXIS
065291,000786: 20,3460           13502                           TCF      STORV                                 #  V AXIS        STORE V VALUES
065292,000787: 
065293,000788: 20,3461           30122                           CA       ACCSW                                 #  U AXIS        STORE U VALUES
065294,000789: 20,3462           55547                           TS       ACCSWU                                
065295,000790: 
065296,000791: 20,3463           34320                           CA       NINE                                  #  TRANSFER 10 WORDS VIA GENTRAN
065297,000792: 20,3464           05545                           TC       GENTRAN    +1                         
065298,000793: 20,3465           00123                           ADRES    1/ATEM1                               #  TEMPORARY BUFFER
065299,000794: 20,3466           01567                           ADRES    1/ANET1                               #  THE REAL PLACE
065300,000795: 
065301,000796: 20,3467           00003                           RELINT                                         
065302,000797: 20,3470           52144                           DXCH     DBB1                                  #  SAVE U DBS FOR LATER STORING
065303,000798: 20,3471           52136                           DXCH     UDB1                                  
065304,000799: 20,3472           52146                           DXCH     DBB4                                  
065305,000800: 20,3473           52140                           DXCH     UDB4                                  
065306,000801: 
065307,000802: 20,3474           52150                           DXCH     AXDSTEM                               
065308,000803: 20,3475           52142                           DXCH     UAXDIST                               
065309,000804: 
065310,000805: 20,3476           34753                           CA       ONE                                   #  NOW DO V AXIS
065311,000806: 20,3477           54154                           TS       UV                                    
065312,000807: 20,3500           34755                           CA       ZERO                                  
065313,000808: 20,3501           13232                           TCF      BOTHAXES                              #  AND DO IT AGAIN
065314,000809: 
065315,000810: 20,3502           30122        STORV              CA       ACCSW                                 #  STORE V AXIS VALUES
065316,000811: 20,3503           55550                           TS       ACCSWV                                
065317,000812: 20,3504           34320                           CA       NINE                                  
065318,000813: 20,3505           05545                           TC       GENTRAN    +1                         
065319,000814: 20,3506           00123                           ADRES    1/ATEM1                               #  TEMPORARY BUFFER
065320,000815: 20,3507           01607                           ADRES    1/ANET1    +16D                       #  THE REAL PLACE
065321,000816: 
065322,000817:                                                                                                  #  NOW STORE DEADBANDS FOR ALL AXES
065323,000818: 20,3510           52152                           DXCH     FLATEMP                               #  FLAT AND ZONE3LIM
065324,000819: 20,3511           53556                           DXCH     FLAT                                  
065325,000820: 
065326,000821: 20,3512           31346                           CA       DBVAL1                                #  COMPUTE P AXIS DEADBANDS
065327,000822: 20,3513           55561                           TS       PDB1                                  
065328,000823: 20,3514           55562                           TS       PDB2                                  
065329,000824: 20,3515           61555                           AD       FLAT                                  
065330,000825: 20,3516           55564                           TS       PDB3                                  
065331,000826: 20,3517           55563                           TS       PDB4                                  
065332,000827: 20,3520           34755                           CA       ZERO                                  
065333,000828: 20,3521           55565                           TS       PAXDIST                               
065334,000829: 20,3522           55566                           TS       PAXDIST    +1                         
065335,000830: 
065336,000831: 20,3523           11555                           CCS      FLAT                                  
065337,000832: 20,3524           13542                           TCF      DRFDB                                 #  DRIFT OR GTS - COMPUTE DBS
065338,000833: 

Page 1496

065340,000835: 20,3525           52136                           DXCH     UDB1                                  #  STORE U DEADBANDS
065341,000836: 20,3526           53602                           DXCH     FIREDB                                #  CANNOT USE GENTRAN BECAUSE OF RELINT
065342,000837: 20,3527           52140                           DXCH     UDB4                                  
065343,000838: 20,3530           53604                           DXCH     COASTDB                               
065344,000839: 20,3531           52142                           DXCH     UAXDIST                               
065345,000840: 20,3532           53606                           DXCH     AXISDIST                              
065346,000841: 20,3533           52144                           DXCH     DBB1                                  #  STORE V AXIS DEADBANDS
065347,000842: 20,3534           53622                           DXCH     FIREDB     +16D                       #  COULD USE GENTRAN IF DESIRED
065348,000843: 20,3535           52146                           DXCH     DBB4                                  
065349,000844: 20,3536           53624                           DXCH     COASTDB    +16D                       
065350,000845: 20,3537           52150                           DXCH     AXDSTEM                               
065351,000846: 20,3540           53626                           DXCH     AXISDIST   +16D                       
065352,000847: 
065353,000848: 20,3541           13562                           TCF      1/ACCRET   +1                         #  ALL DONE
065354,000849: 20,3542           31346        DRFDB              CA       DBVAL1                                #  DRIFT DEADBANDS
065355,000850: 20,3543           55601                           TS       FIREDB                                
065356,000851: 20,3544           55602                           TS       FIREDB     +1                         
065357,000852: 20,3545           55621                           TS       FIREDB     +16D                       
065358,000853: 20,3546           55622                           TS       FIREDB     +17D                       
065359,000854: 20,3547           61555                           AD       FLAT                                  
065360,000855: 20,3550           55603                           TS       COASTDB                               
065361,000856: 20,3551           55604                           TS       COASTDB    +1                         
065362,000857: 20,3552           55623                           TS       COASTDB    +16D                       
065363,000858: 20,3553           55624                           TS       COASTDB    +17D                       
065364,000859: 20,3554           34755                           CA       ZERO                                  
065365,000860: 20,3555           55605                           TS       AXISDIST                              
065366,000861: 20,3556           55606                           TS       AXISDIST   +1                         
065367,000862: 20,3557           55625                           TS       AXISDIST   +16D                       
065368,000863: 20,3560           55626                           TS       AXISDIST   +17D                       
065369,000864: 
065370,000865: 20,3561           00004        1/ACCRET           INHINT                                         
065371,000866: 20,3562           40111                           CS       DAPBOOLS                              #  SET BIT TO INDICATE DATA GOOD.
065372,000867: 20,3563           74751                           MASK     ACCSOKAY                              
065373,000868: 20,3564           26111                           ADS      DAPBOOLS                              
065374,000869: 20,3565           00003                           RELINT                                         
065375,000870: 20,3566           30117                           CA       ACCRETRN                              
065376,000871: 20,3567           04640                           TC       BANKJUMP                              #  RETURN TO CALLER
065377,000872: 
065378,000873: 20,3570           54165        INVERT             TS       HOLD                                  #  ROUTINE TO INVERT -INPUT AT PI/2
065379,000874: 20,3571           34743                           CA       BIT9                                  #  1 AT 2(6)
065380,000875: 20,3572           22007                           ZL                                             #  ZERO L FOR ACCURACY AND TO PREVENT OVFLO
065381,000876: 20,3573           00006                           EXTEND                                         
065382,000877: 20,3574           10165                           DV       HOLD                                  
065383,000878: 20,3575           00002                           TC       Q                                     #  RESULT AT 2(7)/PI
065384,000879: 
065385,000880: 20,3576           34755        DOWNGTS            CAF      ZERO                                  #  ZERO SWITCHES WHEN USEQRJTS BIT IS UP
065386,000881: 20,3577           55501                           TS       ALLOWGTS                              #        OR DAP IS OFF.
065387,000882: 20,3600           55631                           TS       INGTS                                 
065388,000883: 20,3601           12721                           TCF      DOCKTEST                              
065389,000884: 

Page 1497

065391,000886: 20,3602           22007        1/ANET-            ZL                                             
065392,000887: 20,3603           22122                           LXCH     ACCSW                                 #  ZERO ACCSW
065393,000888: 20,3604           54157                           TS       ANET                                  #  SAVE ANET
065394,000889: 20,3605           63654                           AD       -.03R/S2                              #  TEST FOR MIN VALUE
065395,000890: 20,3606           00006                           EXTEND                                         
065396,000891: 20,3607           63630                           BZMF     NETNEG                                #  ANET LESS THAN AMIN, SO FAKE IT
065397,000892: 20,3610           30157        1/NETMIN           CA       ANET                                  
065398,000893: 20,3611           00006                           EXTEND                                         
065399,000894: 20,3612           50164                           INDEX    -SIGNAOS                              
065400,000895: 20,3613           70130                           MP       1/ACOSTT   +1                         #  ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
065401,000896: 
065402,000897:                                                                                                  #  THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
065403,000898:                                                                                                  #        VALUES OF AOS
065404,000899: 
065405,000900: 20,3614           64743        DO1/NET+           AD       BIT9                                  #  1 + ANET/ACOAST AT 2(6)
065406,000901: 20,3615           56157                           XCH      ANET                                  #  SAVE AND PICK UP ANET
065407,000902: 20,3616           00006                           EXTEND                                         
065408,000903: 20,3617           22161                           QXCH     ARET                                  #  SAVE RETURN
065409,000904: 20,3620           03570                           TC       INVERT                                
065410,000905: 20,3621           54160                           TS       1/ANET                                #  1/ANET AT 2(7)/PI
065411,000906: 20,3622           44743                           CS       BIT9                                  #  -1 AT 2(6)
065412,000907: 20,3623           00006        DOACCFUN           EXTEND                                         
065413,000908: 20,3624           70160                           MP       1/ANET                                #  -1/ANET AT 2(13)/PI
065414,000909: 20,3625           00006                           EXTEND                                         
065415,000910: 20,3626           10157                           DV       ANET                                  #  ACCFUN AT 2(7)/PI
065416,000911: 20,3627           00161                           TC       ARET                                  #  RETURN
065417,000912: 
065418,000913: 20,3630           43654        NETNEG             CS       -.03R/S2                              #  ANET LESS THAN AMIN - SET EQUAL TO AMIN
065419,000914: 20,3631           54157                           TS       ANET                                  
065420,000915: 20,3632           13611                           TCF      1/NETMIN   +1                         #  CONTINUE AS IF NOTHING HAPPENED
065421,000916: 
065422,000917: 20,3633           10163        FIXMIN             CCS      SIGNAOS                               
065423,000918: 20,3634           34752                           CA       TWO                                   #  IF AOS NEG, ACCSW = +1
065424,000919: 20,3635           67746                           AD       NEGONE                                #  IF AOS POS, ACCSW = -1
065425,000920: 20,3636           54122                           TS       ACCSW                                 
065426,000921: 20,3637           60154                           AD       UV                                    #  IF ACCSW = +1, TEST FOR +U (+V) JET FAIL
065427,000922: 20,3640           50000                           INDEX    A                                     #  IF ACCSW = -1, TEST FOR -U (-V) JET FAIL
065428,000923: 20,3641           33657                           CA       -UMASK     +1                         
065429,000924: 20,3642           71262                           MASK     CH5MASK                               
065430,000925: 20,3643           00006                           EXTEND                                         
065431,000926: 20,3644           13650                           BZF      +4                                    
065432,000927: 20,3645           43654                           CS       -.03R/S2                              #  JET FAILURE - CANNOT USE 2-JET VALUES
065433,000928: 20,3646           54157                           TS       ANET                                  #  ANET = AMIN
065434,000929: 20,3647           13416                           TCF      STMIN-     -1                         #  CALCULATE FUNCTIONS USING AMIN
065435,000930: 20,3650           30001                           CA       L                                     #  L HAS ACCFUN
065436,000931: 20,3651           13417                           TCF      STMIN-                                #  STORE MAX VALUES FOR MIN JETS
065437,000932: 
065438,000933:                                                                                                  #  ERASABLE ASSIGNMENTS FOR 1/ACCONT

Page 1498

065440,000935: 20,3652  E6,1551               1/ANETP            EQUALS   BLOCKTOP   +2                         
065441,000936: 20,3652  E6,1553               1/ACOSTP           EQUALS   BLOCKTOP   +4                         
065442,000937: 20,3652  E6,1557               PACCFUN            EQUALS   BLOCKTOP   +8D                        
065443,000938: 20,3652  E6,1561               PDB1               EQUALS   BLOCKTOP   +10D                       
065444,000939: 20,3652  E6,1562               PDB2               EQUALS   BLOCKTOP   +11D                       
065445,000940: 20,3652  E6,1563               PDB4               EQUALS   BLOCKTOP   +12D                       
065446,000941: 20,3652  E6,1564               PDB3               EQUALS   BLOCKTOP   +13D                       
065447,000942: 20,3652  E6,1565               PAXDIST            EQUALS   BLOCKTOP   +14D                       
065448,000943: 
065449,000944: 20,3652     0122               ACCSW              EQUALS   VBUF                                  #  EXECUTIVE TEMPORARIES
065450,000945:                                                                                                  #  CANNOT DO CCS NEWJOB DURING 1/ACCS
065451,000946: 20,3652     0123               1/ATEM1            EQUALS   ACCSW      +1                         #  TEMP BUFFER FOR U AND V AXES
065452,000947: 20,3652     0124               1/ATEM2            EQUALS   1/ATEM1    +1                         
065453,000948: 20,3652     0127               1/ACOSTT           EQUALS   1/ATEM1    +4                         
065454,000949: 20,3652     0131               Z1TEM              EQUALS   1/ATEM1    +6                         
065455,000950: 20,3652     0132               Z5TEM              EQUALS   1/ATEM1    +7                         
065456,000951: 
065457,000952: 20,3652     0135               UDB1               EQUALS   1/ATEM1    +10D                       #  UAXIS DEADBAND BUFFER
065458,000953: 20,3652     0136               UDB2               EQUALS   1/ATEM1    +11D                       
065459,000954: 20,3652     0137               UDB4               EQUALS   1/ATEM1    +12D                       
065460,000955: 20,3652     0140               UDB3               EQUALS   1/ATEM1    +13D                       
065461,000956: 20,3652     0141               UAXDIST            EQUALS   1/ATEM1    +14D                       
065462,000957: 
065463,000958: 20,3652     0143               DBB1               EQUALS   1/ATEM1    +16D                       #  TEMP DEADBAND BUFFER, ALSO V AXIS
065464,000959: 20,3652     0144               DBB2               EQUALS   1/ATEM1    +17D                       
065465,000960: 20,3652     0145               DBB4               EQUALS   1/ATEM1    +18D                       
065466,000961: 20,3652     0146               DBB3               EQUALS   1/ATEM1    +19D                       
065467,000962: 20,3652     0147               AXDSTEM            EQUALS   1/ATEM1    +20D                       
065468,000963: 
065469,000964: 20,3652     0151               FLATEMP            EQUALS   1/ATEM1    +22D                       
065470,000965: 20,3652     0152               Z3TEM              EQUALS   1/ATEM1    +23D                       #  MUST FOLLOW FLATEMP
065471,000966: 
065472,000967: 20,3652     1346               DBVAL1             EQUALS   DB                                    
065473,000968: 20,3652     0114               DBVAL2             EQUALS   INTB15+                               
065474,000969: 20,3652     0115               DBVAL3             EQUALS   INTB15+    +1                         
065475,000970: 
065476,000971: 20,3652     0116               DRIFTER            EQUALS   INTB15+    +2                         
065477,000972: 
065478,000973: 20,3652     0154               UV                 EQUALS   MPAC                                  
065479,000974: 20,3652     0157               ANET               EQUALS   MPAC       +3                         
065480,000975: 20,3652     0157               FUNTEM             EQUALS   MPAC       +3                         
065481,000976: 20,3652     0160               1/ANET             EQUALS   MPAC       +4                         
065482,000977: 20,3652     0161               ARET               EQUALS   MPAC       +5                         
065483,000978: 20,3652     0162               ABSAOS             EQUALS   MPAC       +6                         
065484,000979: 20,3652     0163               SIGNAOS            EQUALS   MPAC       +7                         
065485,000980: 20,3652     0164               -SIGNAOS           EQUALS   MPAC       +8D                        
065486,000981: 20,3652     0165               HOLD               EQUALS   MPAC       +9D                        
065487,000982: 20,3652     0117               ACCRETRN           EQUALS   FIXLOC     -1                         
065488,000983: 

Page 1499

065490,000985: 20,3652           00110        ZONE3MAX           DEC      .004375                               #  17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
065491,000986: 20,3653           00443        FLATVAL            DEC      .01778                                #  .8 AT PI/4 RAD
065492,000987: 20,3654           77377        -.03R/S2           OCT      77377                                 #  -PI/2(7) AT PI/2
065493,000988: 
065494,000989: 20,3655     4744               .0125RS            EQUALS   BIT8                                  #  PI/2(+8) AT PI/2
065495,000990: 20,3655     4733               1/.03              EQUALS   POSMAX                                #  2(7)/PI AT 2(7)/PI
065496,000991: 
065497,000992: 20,3655           02210        PAXISADR           GENADR   PAXIS                                 
065498,000993: 
065499,000994:                                                                                                  #  THE FOLLOWING 4 CONSTANTS ARE JET
065500,000995:                                                                                                  #  FAILURE MASKS AND ARE INDEXED
065501,000996: 20,3656           00110        -UMASK             OCT      00110                                 #  -U
065502,000997: 20,3657           00022                           OCT      00022                                 #  -V
065503,000998: 20,3660           00204        +UMASK             OCT      00204                                 #  +U
065504,000999: 20,3661           00041                           OCT      00041                                 #  +V
065505,001000: 

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