Source Code

061983,000001: # Copyright: Public domain. 061984,000002: # Filename: AOSTASK_AND_AOSJOB.agc 061985,000003: # Purpose: A section of Luminary 1C, revision 131. 061986,000004: # It is part of the source code for the Lunar Module's (LM) 061987,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 061988,000006: # This file is intended to be a faithful transcription, except 061989,000007: # that the code format has been changed to conform to the 061990,000008: # requirements of the yaYUL assembler rather than the 061991,000009: # original YUL assembler. 061992,000010: # Reference: pp. 1482-1503 of 1729.pdf. 061993,000011: # Contact: Ron Burkey <info@sandroid.org>. 061994,000012: # Website: www.ibiblio.org/apollo/index.html 061995,000013: # Mod history: 06/08/03 RSB. Began transcribing. 061996,000014: # 05/14/05 RSB Corrected website reference above. 061997,000015: # 2010-08-24 JL Fixed page 1502 number. 061998,000016: # 2010-10-25 JL Indentation fixes. 061999,000017: 062000,000018: # Page 1482 062001,000019: # PROGRAM NAME: 1/ACCS 062002,000020: # PROGRAM WRITTEN BY: BOB COVELLI AND MIKE HOUSTON 062003,000021: # LAST MODIFICATION: FEB. 14, 1969 BY G. KALAN 062004,000022: 062005,000023: # PROGRAM DESCRIPTION: 062006,000024: # 1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A 062007,000025: # CHANGE IN THE MASS OS THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT- 062008,000026: # DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP. 062009,000027: 062010,000028: # THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR), 062011,000029: # STAGE VERIFY BIT (CHAN30, BIT2), DOCKED BIT (DAPBOOLS, BIT13), DRIFT BIT (DAPBOOLS, BIT8), USEQRJTS (DAPBOOLS, 062012,000030: # BIT14), AND SURFACE FLAG (FLAGWRDB, BIT8), AND CH5MASK. 062013,000031: 062014,000032: # 1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE 062015,000033: # FORMED BY RESOLVING 1JACCQ AND 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L, PVT-CG) IS ALSO 062016,000034: # COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ, 062017,000035: # ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE. 062018,000036: 062019,000037: # AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL NET ACCELERATIONS ABOUT THE P, U, 062020,000038: # AND V AXES (2 JETS FOR P-AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT 062021,000039: # THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5) ARE ALSO COMPUTED FOR THESE AXES. THE 062022,000040: # FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS. FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE 062023,000041: # MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION 062024,000042: # IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET. 062025,000043: 062026,000044: # SUBROUTINES CALLED: 062027,000045: # TIMEGMBL 062028,000046: # MAKECADR 062029,000047: # ROT45DEG 062030,000048: 062031,000049: # CALLING SEQUENCE: 062032,000050: # TC BANKCALL # (1/ACCS MUST BE CALLED BY BANKCALL) 062033,000051: # CADR 1/ACCS 062034,000052: 062035,000053: # NORMAL EXIT: VIA BANKJUMP 062036,000054: 062037,000055: # ALARM AND EXIT MODES: NONE 062038,000056: 062039,000057: # INPUT/OUTPUT: SEE PROGRAM DESCRIPTION. 062040,000058: 062041,000059: # DEBRIS: 062042,000060: # ALL FO THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET. 062043,000061: 062044,000062: # RESTRICTIONS: 062045,000063: # 1/ACCS MUST BE CALLED BY BANKCALL 062046,000064: # EBANK IS SET TO 6, BUT NOT RESTORED. 062047,000065: # Page 1483 062048,000066: 062049,000067: 21,3645 BANK 21 062050,000068: 21,2000 SETLOC DAPS4 062051,000069: 21,2000 BANK 062052,000070: 062053,000071: 21,3645 COUNT* $$/DAPAO 062054,000072: 062055,000073: 21,3645 E6,1536 EBANK= AOSQ 062056,000074: 062057,000075: # ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSIT WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB. 062058,000076: # IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF 062059,000077: # NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED. 062060,000078: 062061,000079: 21,3645 34755 1/ACCSET CAF ZERO # ENTRY FROM FRESH START/RESTART CODING. 062062,000080: 21,3646 55536 TS AOSQ # NULL THE OFFSET ESTIMATES FOR 1/ACCS. 062063,000081: 21,3647 55540 TS AOSR 062064,000082: 21,3650 55424 TS ALPHAQ # NULL THE OFFSET ESITMATES FOR DOWNLIST 062065,000083: 21,3651 55425 TS ALPHAR 062066,000084: 062067,000085: 21,3652 04616 1/ACCJOB TC BANKCALL # 1/ACCS ASSUMES ENTRY VIA BANKCALL. 062068,000086: 21,3653 40465 CADR 1/ACCS +2 # SKIP EBANK SETTING. 062069,000087: 062070,000088: 21,3654 05155 TC ENDOFJOB 062071,000089: 062072,000090: 20,2463 BANK 20 062073,000091: 20,2000 SETLOC DAPS3 062074,000092: 20,2000 BANK 062075,000093: 20,2463 COUNT* $$/DAPAO 062076,000094: 062077,000095: 20,2463 35015 1/ACCS CA EBANK6 # ***** EBANK SET BUT NOT RESTORED ***** 062078,000096: 20,2464 54003 TS EBANK 062079,000097: 062080,000098: 20,2465 04645 TC MAKECADR # SAVE RETURN SO THAT BUF2 MAY BE USED 062081,000099: 20,2466 54117 TS ACCRETRN 062082,000100: 062083,000101: # DETERMINE MASS OF THE LEM. 062084,000102: 062085,000103: 20,2467 30111 CA DAPBOOLS # IS THE CSM DOCKED 062086,000104: 20,2470 74737 MASK CSMDOCKD 062087,000105: 20,2471 54157 TS DOCKTEMP # STORE REDORD OF STATE IN TEMP (MPAC +3). 062088,000106: 20,2472 10000 CCS A 062089,000107: 20,2473 41327 CS CSMMASS # DOCKED: LEMMAS = MASS - CSMMASS 062090,000108: 20,2474 61243 AD MASS # LEM ALONE: LEMMASS = MASS 062091,000109: 20,2475 55326 TS LEMMASS 062092,000110: 062093,000111: # ON THE BASIS OF APSFLAG: 062094,000112: # SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/2-JET CONTROL 062095,000113: # SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS 062096,000114: # ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE 062097,000115: 062098,000116: 20,2476 00004 INHINT 062099,000117: # Page 1484 062100,000118: 20,2477 30106 CAE FLGWRD10 # DETERMINE WHETHER STAGED. 062101,000119: 20,2500 74737 MASK APSFLBIT 062102,000120: 20,2501 00006 EXTEND 062103,000121: 20,2502 12526 BZF DPSFLITE 062104,000122: 062105,000123: 20,2503 44733 CS POSMAX # ASCENT (OR ON LUNAR SURFACE) 062106,000124: 20,2504 55475 TS -2JETLIM # ALWAYS 2 JETS FOR P-AXIS RATE COMMAND 062107,000125: 20,2505 35741 CAF OCT14 # INITIALIZE INDEX AT 12. 062108,000126: 20,2506 54154 TS MPAC 062109,000127: 20,2507 41326 CS LEMMASS # CHECK IF MASS TOO HIGH. CATCH STAGING. 062110,000128: 20,2510 61400 AD HIASCENT 062111,000129: 20,2511 00006 EXTEND 062112,000130: 20,2512 62517 BZMF MASSFIX 062113,000131: 20,2513 41326 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE 062114,000132: 20,2514 62001 AD LOASCENT # DECREMENTING BY MASSMON. 062115,000133: 20,2515 00006 EXTEND 062116,000134: 20,2516 62544 BZMF F(MASS) 062117,000135: 062118,000136: 20,2517 27326 MASSFIX ADS LEMMASS # STORE THE VIOLATED LIMIT AS LEMMASS. 062119,000137: 20,2520 22007 ZL # ALSO CORRECT TOTAL MASS, ZEROING THE 062120,000138: 20,2521 10157 CCS DOCKTEMP # LOW-ORDER WORD. 062121,000139: 20,2522 31327 CAE CSMMASS # DOCKED: MASS = LEMMASS + CSMMASS 062122,000140: 20,2523 61326 AD LEMMASS # LEM ALONE: MASS = LEMMASS 062123,000141: 20,2524 53244 DXCH MASS 062124,000142: 20,2525 12544 TCF F(MASS) 062125,000143: 062126,000144: 20,2526 44742 DPSFLITE CS BIT10 # FOUR JETS FOR P-AXIS RATE COMMAND ERRORS 062127,000145: 20,2527 55475 TS -2JETLIM # EXCEEDING 1.4 DEG/SEC (SCALED AT 45) 062128,000146: 20,2530 36245 CAF SIX # INITIALIZE INDEX AT 6. 062129,000147: 20,2531 54154 TS MPAC 062130,000148: 20,2532 41326 CS LEMMASS # CHECK IF MASS TOO HIGH. SHOULD NEVER 062131,000149: 20,2533 62002 AD HIDESCNT # OCCUR EXCEPT PERHAPS BEFORE THE PAD 062132,000150: 20,2534 00006 EXTEND # LOAD IS DONE. 062133,000151: 20,2535 62517 BZMF MASSFIX 062134,000152: 20,2536 41326 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE 062135,000153: 20,2537 62003 AD LODESCNT # DECREMENTING BY MASSMON. 062136,000154: 20,2540 61400 AD HIASCENT 062137,000155: 20,2541 00006 EXTEND 062138,000156: 20,2542 62544 BZMF F(MASS) 062139,000157: 20,2543 12517 TCF MASSFIX 062140,000158: 062141,000159: # COMPUTATION OF FUNCTIONS OF MASS 062142,000160: 062143,000161: 20,2544 00003 F(MASS) RELINT 062144,000162: 20,2545 10157 CCS DOCKTEMP 062145,000163: 20,2546 13111 TCF DOCKED # DOCKED: USE SEPARATE COMPUTATION. 062146,000164: 20,2547 34752 CA TWO 062147,000165: 20,2550 54155 STCTR TS MPAC +1 # J=2,1,0 FOR 1JACCR,1JACCQ,1JACC 062148,000166: 062149,000167: 20,2551 44752 CS TWO 062150,000168: 20,2552 26154 ADS MPAC # JX=10,8,6 OR 4,2,0 TO INDEX COEFS. 062151,000169: 062152,000170: # Page 1485 062153,000171: 20,2553 31326 STCTR1 CAE LEMMASS 062154,000172: 20,2554 50154 INDEX MPAC 062155,000173: 20,2555 63064 AD INERCONC 062156,000174: 20,2556 54156 TS MPAC +2 # MASS + C 062157,000175: 20,2557 00006 EXTEND 062158,000176: 20,2560 50154 INDEX MPAC 062159,000177: 20,2561 33046 DCA INERCONA 062160,000178: 20,2562 00006 EXTEND 062161,000179: 20,2563 10156 DV MPAC +2 062162,000180: 20,2564 50154 INDEX MPAC 062163,000181: 20,2565 63063 AD INERCONB 062164,000182: 20,2566 50155 INDEX MPAC +1 # 1JACC(J)=A(JX)/(MASS+C(JX) + B(JX) 062165,000183: 20,2567 55530 TS 1JACC # 1JACC(-1)=L,PVT-CG SCALED AT 8 FEET 062166,000184: 062167,000185: 20,2570 10155 CCS MPAC +1 062168,000186: 20,2571 12550 TCF STCTR 062169,000187: 20,2572 12574 TCF COMMEQS 062170,000188: 20,2573 12673 TCF LRESC 062171,000189: 062172,000190: # COEFFQ AND COEFFR ARE COMPUTED IN THIS SECTION. THEY ARE USED TO RESOLVE Q-R COMPONENTS INTO NON-ORTHOGONAL 062173,000191: # U AND V COMPONENTS (SEE ROT-TOUV SECTION). 062174,000192: 062175,000193: 20,2574 22007 COMMEQS ZL 062176,000194: 20,2575 41532 CS 1JACCR 062177,000195: 20,2576 61531 AD 1JACCQ 062178,000196: 20,2577 00006 EXTEND 062179,000197: 20,2600 62624 BZMF BIGIQ 062180,000198: 20,2601 00006 EXTEND # EPSILON IS A MEASURE OF COUPLING AND IS 062181,000199: 20,2602 11531 DV 1JACCQ # DEFINED=1-IQ/IR FOR IR GREATER THAN IQ. 062182,000200: 20,2603 54155 TS EPSILON # THE COMPUTED EXPRESSION IS EQUIVALENT 062183,000201: 20,2604 63110 AD -EPSMAX 062184,000202: 20,2605 00006 EXTEND 062185,000203: 20,2606 62611 BZMF GOODEPS1 062186,000204: 20,2607 43110 CS -EPSMAX 062187,000205: 20,2610 54155 TS EPSILON # EPSILON IS LIMITED TO A MAX. OF .42265 062188,000206: 20,2611 30155 GOODEPS1 CA EPSILON 062189,000207: 20,2612 00006 EXTEND 062190,000208: 20,2613 73104 MP 0.35356 062191,000209: 20,2614 63106 AD .7071 062192,000210: 20,2615 55627 TS COEFFR # IN THIS CASE WHERE IR IS GREATER THAN 062193,000211: 20,2616 44733 CS POSMAX # IQ, COEFFQ=-.707(1+.5EPSILON)(1-EPSILON) 062194,000212: 20,2617 60155 AD EPSILON # AND COEFFR=.707(1+.5EPSILON) 062195,000213: 20,2620 00006 EXTEND 062196,000214: 20,2621 71627 MP COEFFR 062197,000215: 20,2622 55626 TS COEFFQ 062198,000216: 20,2623 12647 TCF JACCUV 062199,000217: 20,2624 00006 BIGIQ EXTEND # EPSILON IS DEFINED AS 1-IR/IQ FOR IQ 062200,000218: 20,2625 11532 DV 1JACCR # GREATER THAN IR. -EPSILON IS COMPUTED 062201,000219: 20,2626 54155 TS -EPSILON # RATHER THAN EPSILON FOR CONVENIENCE 062202,000220: 20,2627 40155 CS -EPSILON 062203,000221: # Page 1486 062204,000222: 20,2630 63110 AD -EPSMAX 062205,000223: 20,2631 00006 EXTEND 062206,000224: 20,2632 62635 BZMF GOODEPS2 062207,000225: 20,2633 33110 CA -EPSMAX 062208,000226: 20,2634 54155 TS -EPSILON # EPSILON IS LIMITED TO A MAX. OF .42265 062209,000227: 20,2635 30155 GOODEPS2 CA -EPSILON 062210,000228: 20,2636 00006 EXTEND 062211,000229: 20,2637 73104 MP 0.35356 062212,000230: 20,2640 63107 AD -.7071 062213,000231: 20,2641 55626 TS COEFFQ # IN THIS CASE WHERE IQ IS GREATER THAN 062214,000232: 20,2642 40155 CS -EPSILON # IR, COEFFQ=-.707(1+.5EPSILON) AND 062215,000233: 20,2643 64735 AD NEGMAX # COEFFR=.707(1+.5EPSILON)(1-EPSILON) 062216,000234: 20,2644 00006 EXTEND 062217,000235: 20,2645 71626 MP COEFFQ 062218,000236: 20,2646 55627 TS COEFFR 062219,000237: 20,2647 41626 JACCUV CS COEFFQ 062220,000238: 20,2650 00006 EXTEND 062221,000239: 20,2651 71531 MP 1JACCQ # 1JACCQ IS SCALED AT PI/4 062222,000240: 20,2652 55533 TS 1JACCU # 1JACCU USED AS TEMPORARY STORAGE 062223,000241: 20,2653 31627 CA COEFFR 062224,000242: 20,2654 00006 EXTEND 062225,000243: 20,2655 71532 MP 1JACCR 062226,000244: 20,2656 61533 AD 1JACCU 062227,000245: 20,2657 00006 EXTEND 062228,000246: 20,2660 74736 MP BIT14 # SCALING CHANGED FROM PI/4 TO PI/2 062229,000247: 20,2661 55533 TS 1JACCU # SCALED AT PI/2 RADIANS/SEC(2) 062230,000248: 20,2662 10154 CCS MPAC # COMPUTE L,PVT-CG IF IN DESCENT 062231,000249: 20,2663 34755 CAF ZERO # ZERO SWITCHES AND GO TO 1/ACCONT IN 062232,000250: 20,2664 55502 TS ALLOWGTS # ASCENT 062233,000251: 20,2665 13234 TCF 1/ACCONT -1 062234,000252: 062235,000253: 20,2666 44752 CS TWO 062236,000254: 20,2667 54154 TS MPAC 062237,000255: 20,2670 44753 CS ONE 062238,000256: 20,2671 54155 TS MPAC +1 062239,000257: 20,2672 12553 TCF STCTR1 062240,000258: 062241,000259: # THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS. THE EQUATION 062242,000260: # IMPLEMENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WEHRE 062243,000261: # T = ENGINE THRUST FORCE 062244,000262: # L = PIVIT TO CT DISTANCE OF ENGINE 062245,000263: # I = MOMENT OF INERTIA 062246,000264: 062247,000265: 20,2673 31245 LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2) 062248,000266: 20,2674 00006 EXTEND 062249,000267: 20,2675 71243 MP MASS # SCALED AT B+16 KGS 062250,000268: 20,2676 03002 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION 062251,000269: 20,2677 03105 ADRES GFACTM 062252,000270: 062253,000271: # MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2). 062254,000272: # THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO 062255,000273: # Page 1487 062256,000274: # THAT IS UNCONVERTED. 2.20462 CONVERTS KG. TO LB. NOW T IN IN A SCALED AT 2(14). 062257,000275: 062258,000276: 20,2700 00006 EXTEND 062259,000277: 20,2701 71527 MP L,PVT-CG # SCALED AT 8 FEET. 062260,000278: 20,2702 00004 INHINT 062261,000279: 20,2703 54154 TS MPAC 062262,000280: 20,2704 00006 EXTEND 062263,000281: 20,2705 71532 MP 1JACCR 062264,000282: 20,2706 03002 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION 062265,000283: 20,2707 02000 ADRES TORKJET1 062266,000284: 062267,000285: 20,2710 55511 TS ACCDOTR # SCALED AT PI/2(7) 062268,000286: 20,2711 30154 CA MPAC 062269,000287: 20,2712 00006 EXTEND 062270,000288: 20,2713 71531 MP 1JACCQ 062271,000289: 20,2714 03002 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION 062272,000290: 20,2715 02000 ADRES TORKJET1 062273,000291: 062274,000292: 20,2716 55507 SPSCONT TS ACCDOTQ # SCALED AT PI/2(7) 062275,000293: 20,2717 00006 EXTEND 062276,000294: 20,2720 73103 MP DGBF # .3ACCDOTQ SCALED AT PI/2(8) 062277,000295: 20,2721 55504 TS KQ 062278,000296: 20,2722 31511 CAE ACCDOTR # .3ACCDOTR AT PI/2(8) 062279,000297: 20,2723 00006 EXTEND 062280,000298: 20,2724 73103 MP DGBF 062281,000299: 20,2725 55506 TS KRDAP 062282,000300: 20,2726 00006 EXTEND # NOW COMPUTE QACCDOT, RACCDOT, THE SIGNED 062283,000301: 20,2727 00012 READ CHAN12 # JERK TERMS. STORE CHANNEL 12. WITH GIMBAL 062284,000302: 20,2730 54155 TS MPAC +1 # DRIVE BITS 9 THROUGH 12 SET LOOP 062285,000303: 20,2731 34752 CAF BIT2 # INDEX TO COMPUTE RACCDOT, THEN QACCDOT. 062286,000304: 20,2732 12734 TCF LOOP3 062287,000305: 20,2733 34755 CAF ZERO # ACCDOTQ AND ACCDOTR ARE NOT NEGATIVE, 062288,000306: 20,2734 54154 LOOP3 TS MPAC # BECAUSE THEY ARE MAGNITUDES 062289,000307: 20,2735 30155 CA MPAC +1 062290,000308: 20,2736 50154 INDEX MPAC # MASK CHANNEL IMAGE FOR ANY GIMBAL MOTION 062291,000309: 20,2737 73077 MASK GIMBLBTS 062292,000310: 20,2740 00006 EXTEND 062293,000311: 20,2741 12755 BZF ZACCDOT # IF NONE, Q(R)ACCDOT IS ZERO. 062294,000312: 20,2742 30155 CA MPAC +1 062295,000313: 20,2743 50154 INDEX MPAC # GIMBAL IS MOVING. IS ROTATION POSITIVE. 062296,000314: 20,2744 73100 MASK GIMBLBTS +1 062297,000315: 20,2745 00006 EXTEND 062298,000316: 20,2746 12752 BZF FRSTZERO # IF NOT POSITIVE, BRANCH 062299,000317: 20,2747 50154 INDEX MPAC # POSITIVE ROTATION, NEGATIVE Q(R)ACCDOT. 062300,000318: 20,2750 41507 CS ACCDOTQ 062301,000319: 20,2751 12756 TCF STACCDOT 062302,000320: 20,2752 50154 FRSTZERO INDEX MPAC # NEGATIVE ROTATION, POSITIVE Q(R)ACCDOT. 062303,000321: 20,2753 31507 CA ACCDOTQ 062304,000322: 20,2754 12756 TCF STACCDOT 062305,000323: 20,2755 34755 ZACCDOT CAF ZERO 062306,000324: # Page 1488 062307,000325: 20,2756 50154 STACCDOT INDEX MPAC 062308,000326: 20,2757 55510 TS QACCDOT # STORE Q(R)ACCDOT. 062309,000327: 20,2760 10154 CCS MPAC 062310,000328: 20,2761 12733 TCF LOOP3 -1 # NOW DO QACCDOT. 062311,000329: 20,2762 40111 CS DAPBOOLS # IS GIMBAL USABLE? 062312,000330: 20,2763 74736 MASK USEQRJTS 062313,000331: 20,2764 00006 EXTEND 062314,000332: 20,2765 13712 BZF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN 062315,000333: 20,2766 41263 CS T5ADR # YES. IS THE DAP RUNNINT? 062316,000334: 20,2767 63772 AD PAXISADR 062317,000335: 20,2770 00006 EXTEND 062318,000336: 20,2771 12773 BZF +2 062319,000337: 20,2772 13712 TCF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN 062320,000338: 20,2773 11632 CCS INGTS # YES. IS GTS IN CONTROL? 062321,000339: 20,2774 12777 TCF DOCKTEST # YES. PROCEED WITH 1/ACCS. 062322,000340: 20,2775 04674 TC IBNKCALL # NO. NULL OFFSET AND FIND ALLOWGTS 062323,000341: 20,2776 43327 CADR TIMEGMBL 062324,000342: 062325,000343: 20,2777 10157 DOCKTEST CCS DOCKTEMP # BYPASS 1/ACCONT WHEN DOCKED. 062326,000344: 20,3000 13675 TCF 1/ACCRET 062327,000345: 20,3001 13235 TCF 1/ACCONT 062328,000346: 062329,000347: # Page 1489 062330,000348: # SUBROUTINE: DVOVSUB 062331,000349: # AUTHOR: C. WORK, MOD 0, 12 JUNE 68 062332,000350: # PURPOSE: THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS 062333,000351: # (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL. 062334,000352: # (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE. 062335,000353: # (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR. 062336,000354: # THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6. 062337,000355: # THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE. SIGN AGREEMENT IS 062338,000356: # ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE 062339,000357: # RESULT OF A MULTIPLICATION OPERATION.) 062340,000358: # CALL SEQUENCE: L TC DVOVSUB 062341,000359: # L +1 ADRES (DIVISOR) 062342,000360: # L +2 RETURN HERE, WITH RESULT IN A,L 062343,000361: # INPUT: DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES". 062344,000362: # DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE. 062345,000363: # OUTPUT: QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE. 062346,000364: # DEBRIS: SCRATCHX,SCRATCHY,SCRATCHZ,A,L (NOTE: SCRATX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.) 062347,000365: # ABORTS OR ALARMS: NONE 062348,000366: # EXITS: TO THE CALL POINT +2. 062349,000367: # SUBROUTINES CALLED: NONE. 062350,000368: 062351,000369: 20,3002 54161 DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND 062352,000370: 20,3003 54160 TS SCRATCHX 062353,000371: 20,3004 50002 INDEX Q # OBTAIN ADDRESS OF DIVISOR. 062354,000372: 20,3005 30000 CA 0 062355,000373: 20,3006 24002 INCR Q # STEP Q FOR PROPER RETURN SEQUENCE. 062356,000374: 20,3007 50000 INDEX A 062357,000375: 20,3010 30000 CA 0 # PICK UP THE DIVISOR. 062358,000376: 20,3011 00006 EXTEND # RETURN POSMAX FOR A ZERO DIVISOR. 062359,000377: 20,3012 13041 BZF MAXPLUS 062360,000378: 062361,000379: 20,3013 54162 TS SCRATCHZ # STORE DIVISOR. 062362,000380: 062363,000381: 20,3014 10000 CCS A # GET ABS(DIVISOR) IN THE A REGISTER. 062364,000382: 20,3015 64753 AD BIT1 062365,000383: 20,3016 13020 TCF ZEROPLUS 062366,000384: 20,3017 64753 AD BIT1 062367,000385: 062368,000386: 20,3020 56161 ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF 062369,000387: 20,3021 00006 EXTEND # DIVIDENT. 062370,000388: 20,3022 63024 BZMF GOODNEG # GET -ABS(DIVIDEND) 062371,000389: # Page 1490 062372,000390: 20,3023 40000 CS A 062373,000391: 062374,000392: 20,3024 60161 GOODNEG AD SCRATCHY # ABS(DIVISOR) - ABS(DIVIDEND) 062375,000393: 20,3025 00006 EXTEND 062376,000394: 20,3026 63033 BZMF MAKEMAX # BRANCH IF DIVISION IS NOT PROPER. 062377,000395: 062378,000396: 20,3027 30160 CA SCRATCHX # RE-ESTABLISH THE DIVIDEND 062379,000397: 20,3030 00006 EXTEND 062380,000398: 20,3031 10162 DV SCRATCHZ # QUOTIENT IN THE A, REMAINDER IN L. 062381,000399: 20,3032 00002 TC Q # RETURN TO CALLER. 062382,000400: 062383,000401: 20,3033 10160 MAKEMAX CCS SCRATCHX # DETERMINE THE SIGN OF THE QUOTIENT. 062384,000402: 20,3034 10162 CCS SCRATCHZ # SCRATCHX AND SCRATCHZ ARE NON-ZERO. 062385,000403: 20,3035 13041 TCF MAXPLUS 062386,000404: 20,3036 10162 CCS SCRATCHZ 062387,000405: 20,3037 34735 CAF NEGMAX # +,- OR -,+ 062388,000406: 20,3040 00002 TC Q 062389,000407: 20,3041 34733 MAXPLUS CAF POSMAX # -,- OR +,+ 062390,000408: 20,3042 00002 TC Q 062391,000409: 062392,000410: # COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS 062393,000411: # THE CURVE FITS ARE OF THE FORM -- 062394,000412: # 1JACC = A/(MASS + C) + B 062395,000413: # 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. 062396,000414: 062397,000415: # 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, 062398,000416: # AND C IS SCALED AT B+16 KG. 062399,000417: 062400,000418: 20,3043 01240 22513 2DEC +.0410511917 # L A DESCENT 062401,000419: 20,3045 00141 07416 INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT 062402,000420: 20,3047 00030 21261 2DEC +.0014979264 # 1JACCQ A DESCENT 062403,000421: 20,3051 00021 03766 2DEC +.0010451889 # 1JACCR A DESCENT 062404,000422: 20,3053 00153 07111 2DEC +.0065443852 # 1JACCP A ASCENT 062405,000423: 20,3055 00072 24103 2DEC +.0035784354 # 1JACCQ A ASCENT 062406,000424: 20,3057 00135 11511 2DEC +.0056946631 # 1JACCR A ASCENT 062407,000425: 20,3061 04754 DEC +.155044 # L B DESCENT 062408,000426: 20,3062 77142 DEC -.025233 # L C DESCENT 062409,000427: # Page 1491 062410,000428: 20,3063 00061 INERCONB DEC +.002989 # 1JACCP B DESCENT 062411,000429: 20,3064 00217 INERCONC DEC +.008721 # 1JACCP C DESCENT 062412,000430: 20,3065 00464 DEC +.018791 # 1JACCQ B DESCENT 062413,000431: 20,3066 75642 DEC -.068163 # 1JACCQ C DESCENT 062414,000432: 20,3067 00536 DEC +.021345 # 1JACCR B DESCENT 062415,000433: 20,3070 75705 DEC -.066027 # 1JACCR C DESCENT 062416,000434: 062417,000435: 20,3071 00001 DEC +.000032 # 1JACCP B ASCENT 062418,000436: 20,3072 77616 DEC -.006923 # 1JACCP C ASCENT 062419,000437: 20,3073 05154 DEC +.162862 # 1JACCQ B ASCENT 062420,000438: 20,3074 00052 DEC +.002588 # 1JACCQ C ASCENT 062421,000439: 20,3075 00231 DEC +.009312 # 1JACCR B ASCENT 062422,000440: 20,3076 77174 DEC -.023608 # 1JACCR C ASCENT 062423,000441: 062424,000442: 20,3077 01400 GIMBLBTS OCTAL 01400 062425,000443: 20,3100 01000 OCTAL 01000 062426,000444: 20,3101 06000 OCTAL 06000 062427,000445: 20,3102 04000 OCTAL 04000 062428,000446: 20,3103 23146 DGBF DEC 0.6 # .3 SCALED AT 1/2 062429,000447: 20,3104 13241 0.35356 DEC 0.35356 # .70711 SCALED AT 2 062430,000448: 20,3105 00337 GFACTM OCT 337 # 979.24/2.20462 AT B+15 062431,000449: 20,3106 26501 .7071 DEC .70711 062432,000450: 20,3107 51276 -.7071 DEC -.70711 062433,000451: 20,3110 62362 -EPSMAX DEC -.42265 062434,000452: 062435,000453: # CSM-DOCKED INERTIA COMPUTATIONS 062436,000454: 062437,000455: 20,3111 34753 DOCKED CA ONE # COEFTR = 1 FOR INERTIA COEFFICIENTS 062438,000456: 20,3112 54160 SPSLOOP1 TS COEFCTR # = 7 FOR CG COEFFICIENTS 062439,000457: 20,3113 34753 CA ONE # MASSCTR = 1 FOR CSM 062440,000458: 20,3114 54161 TS MASSCTR # = 0 FOR LEM 062441,000459: 062442,000460: 20,3115 50160 INDEX COEFCTR 062443,000461: 20,3116 33216 CA COEFF -1 # COEFF -1 = C 062444,000462: 20,3117 00006 EXTEND 062445,000463: 20,3120 71326 MP LEMMASS 062446,000464: 20,3121 00006 EXTEND 062447,000465: 20,3122 71327 MP CSMMASS # LET X = CSMMASS AND Y = LEMMASS 062448,000466: 062449,000467: 20,3123 50160 INDEX COEFCTR 062450,000468: 20,3124 63217 AD COEFF # COEFF = F 062451,000469: 20,3125 54154 TS MPAC # MPAC = C X Y + F 062452,000470: 20,3126 13132 TCF +4 062453,000471: 062454,000472: 20,3127 54161 SPSLOOP2 TS MASSCTR # LOOP TWICE THROUGH HERE TO OBTAIN 062455,000473: 20,3130 00006 EXTEND # MPAC = MPAC + (A X +D)X + (B Y +E)Y 062456,000474: 20,3131 26160 DIM COEFCTR # LOOP #1 LOOP #2 062457,000475: 20,3132 50160 INDEX COEFCTR 062458,000476: 20,3133 33221 CA COEFF +2 # COEFF +2 = A OR B 062459,000477: 20,3134 00006 EXTEND 062460,000478: # Page 1492 062461,000479: 20,3135 50161 INDEX MASSCTR 062462,000480: 20,3136 71326 MP LEMMASS 062463,000481: 20,3137 50160 INDEX COEFCTR 062464,000482: 20,3140 63223 AD COEFF +4 # COEFF +4 = E OR D 062465,000483: 20,3141 00006 EXTEND 062466,000484: 20,3142 50161 INDEX MASSCTR 062467,000485: 20,3143 71326 MP LEMMASS 062468,000486: 20,3144 26154 ADS MPAC 062469,000487: 062470,000488: 20,3145 10161 CCS MASSCTR 062471,000489: 20,3146 13127 TCF SPSLOOP2 062472,000490: 20,3147 10160 CCS COEFCTR # IF COEFCTR IS POS, EXIT FROM LOOP WITH 062473,000491: 20,3150 13157 TCF +7 # CG X DELDOT = MPAC X 4 PI RAD-CM/SEC 062474,000492: 20,3151 00000 20354 TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT 062475,000493: 062476,000494: 20,3153 30154 CA MPAC 062477,000495: 20,3154 54155 TS MPAC +1 # INERTIA = (MPAC +1) X 2(38) KG-CM(2) 062478,000496: 20,3155 34757 CA SEVEN 062479,000497: 20,3156 13112 TCF SPSLOOP1 062480,000498: 062481,000499: 20,3157 33216 CA 1JACCCON # 1JACC=1JACCCON/MASS 062482,000500: 20,3160 22007 ZL 062483,000501: 20,3161 03002 TC DVOVSUB 062484,000502: 20,3162 01243 ADRES MASS 062485,000503: 20,3163 55530 TS 1JACC # SCALED AT PI/4 062486,000504: 062487,000505: 20,3164 34733 CA POSMAX # SET INVERSE JET ACCELERATIONS TO POSMAX, 062488,000506: 20,3165 55550 TS 1/ANETP # WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS. 062489,000507: 20,3166 55570 TS 1/ANET2 +1 062490,000508: 20,3167 55571 TS 1/ANET2 +2 062491,000509: 20,3170 55610 TS 1/ANET2 +17D 062492,000510: 20,3171 55611 TS 1/ANET2 +18D 062493,000511: 20,3172 00006 EXTEND 062494,000512: 20,3173 33152 DCA TORQCONS 062495,000513: 20,3174 00006 EXTEND 062496,000514: 20,3175 10155 DV MPAC +1 062497,000515: 20,3176 00004 INHINT 062498,000516: 20,3177 55531 TS 1JACCQ # SCALED AT PI/4 062499,000517: 20,3200 55532 TS 1JACCR 062500,000518: 062501,000519: 20,3201 33107 CA -.7071 062502,000520: 20,3202 55626 TS COEFFQ # COEFFQ AND COEFFR ARE CHOSEN TO MAKE U- 062503,000521: 20,3203 33106 CA .7071 # AND V-AXES ORTHOGONAL FOR DOCKED CASE 062504,000522: 20,3204 55627 TS COEFFR 062505,000523: 20,3205 31243 CA MASS # SCALED AT 2(16) KG 062506,000524: 20,3206 00006 EXTEND 062507,000525: 20,3207 70154 MP MPAC # SCALED AT 4 PI RAD-CM/SEC 062508,000526: 20,3210 00006 EXTEND 062509,000527: 20,3211 71245 MP ABDELV # SCALED AT 2(13) CM/SEC(2) 062510,000528: 20,3212 03002 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION 062511,000529: # Page 1493 062512,000530: 20,3213 00155 ADRES MPAC +1 062513,000531: 062514,000532: 20,3214 55511 TS ACCDOTR 062515,000533: 20,3215 12716 TCF SPSCONT # CONTINUE K, KSQ CALCULATIONS 062516,000534: 062517,000535: 20,3216 00167 1JACCCON OCT 00167 # SCALED AT PI/4X2(16) RAD/SEC(2)-KG 062518,000536: 062519,000537: # 2 2 062520,000538: # COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X +B Y +C X Y +D X +E Y +F 062521,000539: 062522,000540: 20,3217 06176 COEFF DEC .19518 # C COEFFICIENT OF INERTIA 062523,000541: 20,3220 77650 DEC -.00529 # F " 062524,000542: 20,3221 72260 DEC -.17670 # B " 062525,000543: 20,3222 76637 DEC -.03709 # A " 062526,000544: 20,3223 02167 DEC .06974 # E " 062527,000545: 20,3224 00645 DEC .02569 # D " 062528,000546: 062529,000547: 20,3225 06335 DEC .20096 # C COEFFICIENT OF CG 062530,000548: 20,3226 04256 DEC .13564 # F " 062531,000549: 20,3227 30163 DEC .75704 # B " 062532,000550: 20,3230 64072 DEC -.37142 # A " 062533,000551: 20,3231 53632 DEC -.63117 # E " 062534,000552: 20,3232 15133 DEC .41179 # D " 062535,000553: 062536,000554: # ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT) 062537,000555: # MPAC, MPAC +1, MPAC +2 USED EXPLICITLY 062538,000556: 20,3233 0160 COEFCTR EQUALS MPAC +4 062539,000557: 20,3233 0161 MASSCTR EQUALS MPAC +5 062540,000558: 20,3233 0160 SCRATCHX EQUALS MPAC +4 # SCRATCH AREA FOR DVOVSUB ROUTINE. 062541,000559: 20,3233 0161 SCRATCHY EQUALS SCRATCHX +1 062542,000560: 20,3233 0162 SCRATCHZ EQUALS SCRATCHX +2 062543,000561: 20,3233 0157 DOCKTEMP EQUALS MPAC +3 # RECORD OF CSMDOCKED BIT OF DAPBOOLS 062544,000562: 20,3233 0155 EPSILON EQUALS MPAC +1 062545,000563: 20,3233 0155 -EPSILON EQUALS EPSILON 062546,000564: 20,3233 71777 -.1875 DEC -.18750 062547,000565: 062548,000566: # Page 1494 062549,000567: 20,3234 BANK 20 062550,000568: 20,2000 SETLOC DAPS3 062551,000569: 20,2000 BANK 062552,000570: 062553,000571: 20,3234 E6,1536 EBANK= AOSQ 062554,000572: 062555,000573: 20,3234 COUNT* $$/DAPAO 062556,000574: 062557,000575: 20,3234 55632 -1 TS INGTS # ZERO INGTS IN ASCENT 062558,000576: 20,3235 31343 1/ACCONT CA DB # INITIALIZE DBVAL1,2,3 062559,000577: 20,3236 00006 EXTEND 062560,000578: 20,3237 74737 MP BIT13 062561,000579: 20,3240 54001 TS L # 0.25 DB 062562,000580: 20,3241 60000 AD A 062563,000581: 20,3242 54115 TS DBVAL3 # 0.50 DB 062564,000582: 20,3243 41343 CS DBVAL1 062565,000583: 20,3244 60001 AD L 062566,000584: 20,3245 54114 TS DBVAL2 # -.75 DB 062567,000585: 062568,000586: 20,3246 00004 GETAOSUV INHINT 062569,000587: 20,3247 31540 CAE AOSR # COMPUTE ASOU AND AOSV BY ROTATING 062570,000588: 20,3250 54001 TS L # AOSQ AND AOSR. 062571,000589: 20,3251 31536 CAE AOSQ 062572,000590: 20,3252 04674 TC IBNKCALL 062573,000591: 20,3253 37200 CADR ROT-TOUV 062574,000592: 20,3254 53543 DXCH AOSU 062575,000593: 062576,000594: 20,3255 00003 RELINT 062577,000595: 20,3256 30111 CA DAPBOOLS 062578,000596: 20,3257 74744 MASK DRIFTBIT # ZERO DURING ULLAGE AND POWERED FLIGHT. 062579,000597: 20,3260 10000 CCS A # IF DRIFTING LIGHT, 062580,000598: 20,3261 34753 CA ONE # SET DRIFTER TO 1 062581,000599: 20,3262 54116 TS DRIFTER # SAVE TO TEST FOR DRIFTING FLIGHT LATER 062582,000600: 20,3263 61502 AD ALLOWGTS # NON-ZERO IF DRIFT OR GTS NEAR 062583,000601: 20,3264 10000 CCS A 062584,000602: 20,3265 33767 CA FLATVAL # DRIFTING FLIGHT, STORE .8 INFLAT 062585,000603: 20,3266 54151 TS FLATEMP # IN POWERED FLIGHT, STORE ZERO IN FLAT 062586,000604: 20,3267 00006 EXTEND 062587,000605: 20,3270 13274 BZF DOPAXIS # IF POWERED AND NO GTS, START P AXIS, 062588,000606: 20,3271 10116 CCS DRIFTER # OTHERWISE SET ZONE3LIM 062589,000607: 20,3272 33766 CA ZONE3MAX # 17.5 MS, SCALED AT 4 SECONDS. 062590,000608: 20,3273 54152 TS Z3TEM 062591,000609: 062592,000610: 20,3274 31530 DOPAXIS CA 1JACC # 1JACC AT PI/4 = 2JACC AT PI/2 = 062593,000611: # ANET AT PI/2 = ANET/ACOAST AT 2(6). 062594,000612: 20,3275 64743 AD BIT9 # 1 + ANET/ACOAST AT 2(6) 062595,000613: 20,3276 54157 TS FUNTEM 062596,000614: 062597,000615: 20,3277 31530 CA 1JACC 062598,000616: # Page 1495 062599,000617: 20,3300 03704 TC INVERT 062600,000618: 20,3301 00004 INHINT # P AXIS DATA MUST BE CONSISTENT 062601,000619: 20,3302 55550 TS 1/ANETP 062602,000620: 20,3303 55551 TS 1/ANETP +1 062603,000621: 062604,000622: 20,3304 44743 CS BIT9 # -1 AT 2(6) 062605,000623: 20,3305 00006 EXTEND 062606,000624: 20,3306 71550 MP 1/ANETP # -1/ANET AT 2(13)/PI 062607,000625: 20,3307 00006 EXTEND 062608,000626: 20,3310 10157 DV FUNTEM # -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI 062609,000627: 20,3311 55556 TS PACCFUN 062610,000628: 20,3312 55557 TS PACCFUN +1 062611,000629: 062612,000630: 20,3313 34733 CA 1/.03 # NO AOS FOR P AXIS, ACOAST = AMIN 062613,000631: 20,3314 55552 TS 1/ACOSTP 062614,000632: 20,3315 55553 TS 1/ACOSTP +1 062615,000633: 20,3316 00003 RELINT 062616,000634: 062617,000635: 20,3317 22007 ZL 062618,000636: 20,3320 10116 CCS DRIFTER 062619,000637: 20,3321 53543 DXCH AOSU # ZERO AOSU,V IF IN DRIFT, JUST BE BE SURE 062620,000638: 062621,000639: 20,3322 34755 UAXIS CA ZERO # DO U AXIS COMPUTATIONS 062622,000640: 20,3323 54154 TS UV # ZERO FOR U AXIS, ONE FOR V AXIS. 062623,000641: 062624,000642: 20,3324 54163 BOTHAXES TS SIGNAOS # CODING COMMON TO U,V AXES 062625,000643: 20,3325 50154 INDEX UV 062626,000644: 20,3326 11542 CCS AOSU # PICK UP ABS(AOSU OR AOSV) 062627,000645: 20,3327 64753 AD ONE # RESTORE TO PROPER VALUE 062628,000646: 20,3330 13333 TCF +3 # AND LEAVE SIGNACS AT ZERO 062629,000647: 20,3331 64753 AD ONE # NEGATIVE, RESTORE TO PROPER VALUE 062630,000648: 20,3332 24163 INCR SIGNAOS # AND SET SIGNAOS TO ONE TO SHOW AOS NEG 062631,000649: 20,3333 54162 TS ABSAOS # SAVE ABS(AOS) 062632,000650: 20,3334 40163 CS SIGNAOS 062633,000651: 20,3335 54164 TS -SIGNAOS # USED AS AN INDEX 062634,000652: 062635,000653: 20,3336 31343 CA DBVAL1 # SET DB1, DB2 TO DBVAL1 (= DB) 062636,000654: 20,3337 54143 TS DBB1 062637,000655: 20,3340 54144 TS DBB2 062638,000656: 062639,000657: 20,3341 30162 CA ABSAOS # TEST MAGNITUDE OF ABS(AOS) 062640,000658: 20,3342 63770 AD -.03R/S2 062641,000659: 20,3343 00006 EXTEND 062642,000660: 20,3344 63436 BZMF NOTMUCH # ABS(AOS) LESS THAN AMIN 062643,000661: 20,3345 10151 BIGAOS CCS FLATEMP # AGS(AOS) GREATER THAN AMIN 062644,000662: 20,3346 13376 TCF SKIPDB1 # I DRIFT OR GTS, DO NOT COMPUTE DB 062645,000663: 062646,000664: 20,3347 31343 CA DBVAL1 062647,000665: 20,3350 50164 INDEX -SIGNAOS 062648,000666: # Page 1496 062649,000667: 20,3351 26144 ADS DBB2 # DB2(1) = 2 DB 062650,000668: 20,3352 50163 INDEX SIGNAOS 062651,000669: 20,3353 54145 TS DBB4 # DB4(3) = 1 DB 062652,000670: 20,3354 33233 CA -.1875 # -.1875 PI/2 RAD/SEC(2) SCALED AT PI/2 062653,000671: 20,3355 60162 AD ABSAOS # ABSAOS IS SCALED AT PI/2 062654,000672: 20,3356 00006 EXTEND 062655,000673: 20,3357 63362 BZMF +3 062656,000674: 20,3360 40115 CS DBVAL3 # -.5 DB 062657,000675: 20,3361 13371 TCF DBONE 062658,000676: 20,3362 40162 CS ABSAOS 062659,000677: 20,3363 60000 DOUBLE 062660,000678: 20,3364 60000 DOUBLE 062661,000679: 20,3365 64736 AD BIT14 062662,000680: 20,3366 60000 DOUBLE # 1-8 ABSAOS. (8 IS 16/PI SCALED AT 2/PI) 062663,000681: 20,3367 00006 EXTEND 062664,000682: 20,3370 71343 MP DB 062665,000683: 20,3371 50163 DBONE INDEX SIGNAOS # DB1(2)=(1-8 ABSAOS) DB. IF ABSAOS IS 062666,000684: 20,3372 54143 TS DBB1 # GREATER THAN .1875 THEN DB1(2) = -.5 DB 062667,000685: 20,3373 30114 CA DBVAL2 062668,000686: 20,3374 50164 INDEX -SIGNAOS 062669,000687: 20,3375 54146 TS DBB3 # DB3(4) = -.75 DB 062670,000688: 062671,000689: 20,3376 30162 SKIPDB1 CA ABSAOS # ABS(AOS) GREATER THAN AMIN, SO IT IS 062672,000690: 20,3377 00006 EXTEND 062673,000691: 20,3400 74740 MP BIT12 062674,000692: 20,3401 60162 AD ABSAOS # (9/8) ABSAOS. 062675,000693: 20,3402 03704 TC INVERT # ALL RIGHT TO DIVIDE 062676,000694: 20,3403 50164 INDEX -SIGNAOS 062677,000695: 20,3404 54130 TS 1/ACOSTT +1 # 1/ACOASTPOS(NET) = 1/ABS(AOS) 062678,000696: 20,3405 34733 CA 1/.03 062679,000697: 20,3406 50163 INDEX SIGNAOS 062680,000698: 20,3407 54127 TS 1/ACOSTT # 1/ACOASTNEG(POS) = 1/AIN 062681,000699: 062682,000700: 20,3410 30162 CA ABSAOS 062683,000701: 20,3411 61533 AD 1JACCU 062684,000702: 20,3412 61533 AD 1JACCU # 2 JACC + ABS(AOS) 062685,000703: 20,3413 64743 AD BIT9 # MAXIMUM VALUE IN COMPUTATIONS 062686,000704: 20,3414 54000 TS A # TEST FOR OVERFLOW 062687,000705: 20,3415 13462 TCF SKIPDB2 # NO OVERFLOW, DO NORMAL COMPUTATION 062688,000706: 062689,000707: 20,3416 30162 CA ABSAOS # RESCALE TO PI TO PREVENT OVERFLOW 062690,000708: 20,3417 00006 EXTEND 062691,000709: 20,3420 74736 MP BIT14 062692,000710: 20,3421 61533 AD 1JACCU # 1 JACC AT PI/2 = 2JACC AT PI 062693,000711: 20,3422 54157 TS ANET # ANETPOS(NEG) MAX SCALED AT PI = 062694,000712: # ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7) 062695,000713: 20,3423 64744 AD BIT8 # 1 + ANETPOS/ACOASTNEG AT 2(7) 062696,000714: 20,3424 56157 XCH ANET # SAVE IN ANET, WHILE PICKING UP ANET 062697,000715: 20,3425 03704 TC INVERT 062698,000716: 20,3426 00006 EXTEND 062699,000717: # Page 1497 062700,000718: 20,3427 74736 MP BIT14 # SCALE 1/ANET AT 2(7)/PI 062701,000719: 20,3430 54160 TS 1/ANET 062702,000720: 062703,000721: 20,3431 33435 CA ACCHERE # SET UP RETURN FROM COMPUTATION ROUTINE 062704,000722: 20,3432 54161 TS ARET 062705,000723: 20,3433 44744 CS BIT8 # -1 AT 2(7) 062706,000724: 20,3434 13737 TCF DOACCFUN # FINISH ACCFUN COMPUTATION 062707,000725: 062708,000726: 20,3435 13467 ACCHERE TCF ACCTHERE 062709,000727: 062710,000728: 20,3436 54001 NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L 062711,000729: 20,3437 34733 CA 1/.03 # ACOASTPOS,NEG = AMIN 062712,000730: 20,3440 54127 TS 1/ACOSTT 062713,000731: 20,3441 54130 TS 1/ACOSTT +1 062714,000732: 062715,000733: 20,3442 10151 CCS FLATEMP 062716,000734: 20,3443 13462 TCF SKIPDB2 # DO NOT COMPUTE DB IF DRIFT OR GTS 062717,000735: 062718,000736: 20,3444 33771 CA .023R/S2 # .0228 RAD/SEC(2) 062719,000737: 20,3445 60001 AD L # L=ABS(AOS)-AMIN=ABS(AOS)-.0245RAD/SEC(2) 062720,000738: 20,3446 00006 EXTEND # RESULT IS ABS(AOS)-.0017 RAD/SEC(2) 062721,000739: 20,3447 63457 BZMF NOAOS # ABS(AOS) LESS THAN .0017 RAD/SEC(2) 062722,000740: 20,3450 30115 SOMEAOS CA DBVAL3 # .0017 RAD/SEC(2) LT ABS(AOS) LT AMIN 062723,000741: 20,3451 50164 INDEX -SIGNAOS 062724,000742: 20,3452 54146 TS DBB3 # DB3(4) = DB/2 062725,000743: 20,3453 60000 AD A 062726,000744: 20,3454 50163 INDEX SIGNAOS 062727,000745: 20,3455 54145 TS DBB4 # DB4(3) = DB 062728,000746: 20,3456 13462 TCF SKIPDB2 062729,000747: 062730,000748: 20,3457 31343 NOAOS CA DBVAL1 062731,000749: 20,3460 54146 TS DBB3 # DB3,4 = DB 062732,000750: 20,3461 54145 TS DBB4 062733,000751: 062734,000752: 20,3462 30162 SKIPDB2 CA ABSAOS # ANETPOS(NEG) MAX = 2 JACC + ABS(AOS) 062735,000753: 20,3463 61533 AD 1JACCU 062736,000754: 20,3464 61533 AD 1JACCU 062737,000755: 20,3465 54157 TS ANET # CANNOT OVERFLOW HERE 062738,000756: 20,3466 03730 CL1/NET+ TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN 062739,000757: 062740,000758: 20,3467 50164 ACCTHERE INDEX -SIGNAOS 062741,000759: 20,3470 54134 TS Z5TEM +2 # STORE ACCFUN IN TEMPORARY BUFFER 062742,000760: 20,3471 30160 CA 1/ANET 062743,000761: 20,3472 50164 INDEX -SIGNAOS 062744,000762: 20,3473 54126 TS 1/ATEM2 +2 # STORE 1/ANET IN TEMPORARY BUFFER 062745,000763: 062746,000764: 20,3474 30162 CA ABSAOS # SEE IF OVERFLOW IN MIN CASE 062747,000765: 20,3475 61533 AD 1JACCU 062748,000766: 20,3476 64743 AD BIT9 # MAXIMUM POSSIBLE VALUE 062749,000767: # Page 1498 062750,000768: 20,3477 54000 TS A # OVERFLOW POSSIBLE BUT REMOTE 062751,000769: 20,3500 13502 TCF +2 062752,000770: 20,3501 34733 CA POSMAX # IF OVERFLOW, TRUNCATE TO PI/2 062753,000771: 20,3502 63770 AD -.03R/S2 # RESTORE TO CORRECT VALUE 062754,000772: 20,3503 54157 TS ANET 062755,000773: 20,3504 03730 TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN 062756,000774: 062757,000775: 20,3505 50164 INDEX -SIGNAOS # STORE MIN VALUES JUST AS MAX VALUES 062758,000776: 20,3506 54132 TS Z5TEM 062759,000777: 20,3507 30160 CA 1/ANET 062760,000778: 20,3510 50164 INDEX -SIGNAOS 062761,000779: 20,3511 54124 TS 1/ATEM2 062762,000780: 062763,000781: 20,3512 40162 CS ABSAOS # NOW DO NEG(POS) CASES 062764,000782: 20,3513 61533 AD 1JACCU 062765,000783: 20,3514 61533 AD 1JACCU # ANETNEG(POS) MAX 062766,000784: 20,3515 03716 TC 1/ANET- # COMPUTE 1/ANET, ACCFUN, AND ACCSW 062767,000785: 20,3516 50163 INDEX SIGNAOS # STORE NEG(POS) VALUES JUST AS POS(NEG) 062768,000786: 20,3517 54133 TS Z1TEM +2 062769,000787: 20,3520 54001 TS L # SAVE IN L FOR POSSIBLE FUTURE USE 062770,000788: 20,3521 30160 CA 1/ANET 062771,000789: 20,3522 50163 INDEX SIGNAOS 062772,000790: 20,3523 54125 TS 1/ATEM1 +2 062773,000791: 20,3524 40162 CS ABSAOS 062774,000792: 20,3525 61533 AD 1JACCU # 1/ANETNEG(POS) MIN 062775,000793: 20,3526 54157 TS ANET 062776,000794: 20,3527 63770 AD -.03R/S2 # TEST FOR AMIN 062777,000795: 20,3530 00006 EXTEND # IF ANET LESS THAN AMIN, STORE MAX JET 062778,000796: 20,3531 63747 BZMF FIXMIN # VALUES FOR MIN JETS AND SET ACCSW 062779,000797: 062780,000798: 20,3532 03724 TC 1/NETMIN # OTHERWISE DO MIN JET COMPUTATIONS 062781,000799: 20,3533 50163 STMIN- INDEX SIGNAOS # STORE VALUES 062782,000800: 20,3534 54131 TS Z1TEM 062783,000801: 20,3535 30160 CA 1/ANET 062784,000802: 20,3536 50163 INDEX SIGNAOS 062785,000803: 20,3537 54123 TS 1/ATEM1 062786,000804: 062787,000805: 20,3540 50154 INDEX UV 062788,000806: 20,3541 33775 CA +UMASK 062789,000807: 20,3542 71257 MASK CH5MASK # TEST FOR +U (+V) JET FAILURES 062790,000808: 20,3543 00006 EXTEND 062791,000809: 20,3544 13551 BZF FAIL- 062792,000810: 20,3545 30124 CA 1/ATEM2 # REPLACE FUNCTION VALUES DEPENDING ON THE 062793,000811: 20,3546 54126 TS 1/ATEM2 +2 # FAILED JET PAIR WITH CORRESPONDING ONE- 062794,000812: 20,3547 30132 CA Z5TEM # JET (OR AMIN) FUNCTION VALUES 062795,000813: 20,3550 54134 TS Z5TEM +2 062796,000814: 20,3551 50154 FAIL- INDEX UV 062797,000815: 20,3552 33773 CA -UMASK 062798,000816: # Page 1499 062799,000817: 20,3553 71257 MASK CH5MASK # TEST FOR -U (-V) JET FAILURES 062800,000818: 20,3554 00006 EXTEND 062801,000819: 20,3555 13562 BZF DBFUN 062802,000820: 20,3556 30123 CA 1/ATEM1 # REPLACE FUNCTION VALUES DEPENDING ON THE 062803,000821: 20,3557 54125 TS 1/ATEM1 +2 # FAILED JET PAIR WITH CORRESPONDING ONE- 062804,000822: 20,3560 30131 CA Z1TEM # JET (OR AMIN) FUNCTION VALUES 062805,000823: 20,3561 54133 TS Z1TEM +2 062806,000824: 062807,000825: 20,3562 40146 DBFUN CS DBB3 # COMPUTE AXISDIST 062808,000826: 20,3563 60143 AD DBB1 062809,000827: 20,3564 60151 AD FLATEMP 062810,000828: 20,3565 54147 TS AXDSTEM 062811,000829: 20,3566 40145 CS DBB4 062812,000830: 20,3567 60144 AD DBB2 062813,000831: 20,3570 60151 AD FLATEMP 062814,000832: 20,3571 54150 TS AXDSTEM +1 062815,000833: 062816,000834: 20,3572 00004 INHINT 062817,000835: 20,3573 10154 CCS UV # TEST FOR U OR V AXIS 062818,000836: 20,3574 13616 TCF STORV # V AXIS STORE V VALUES 062819,000837: 062820,000838: 20,3575 30122 CA ACCSW # U AXIS STORE U VALUES 062821,000839: 20,3576 55546 TS ACCSWU 062822,000840: 062823,000841: 20,3577 34320 CA NINE # TRANSFER 10 WORDS VIA GENTRAN 062824,000842: 20,3600 05545 TC GENTRAN +1 062825,000843: 20,3601 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER 062826,000844: 20,3602 01566 ADRES 1/ANET1 # THE REAL PLACE 062827,000845: 062828,000846: 20,3603 00003 RELINT 062829,000847: 20,3604 52144 DXCH DBB1 # SAVE U DBS FOR LATER STORING 062830,000848: 20,3605 52136 DXCH UDB1 062831,000849: 20,3606 52146 DXCH DBB4 062832,000850: 20,3607 52140 DXCH UDB4 062833,000851: 062834,000852: 20,3610 52150 DXCH AXDSTEM 062835,000853: 20,3611 52142 DXCH UAXDIST 062836,000854: 062837,000855: 20,3612 34753 CA ONE # NOW DO V AXIS 062838,000856: 20,3613 54154 TS UV 062839,000857: 20,3614 34755 CA ZERO 062840,000858: 20,3615 13324 TCF BOTHAXES # AND DO IT AGAIN 062841,000859: 062842,000860: 20,3616 30122 STORV CA ACCSW # STORE V AXIS VALUES 062843,000861: 20,3617 55547 TS ACCSWV 062844,000862: 20,3620 34320 CA NINE 062845,000863: 20,3621 05545 TC GENTRAN +1 062846,000864: 20,3622 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER 062847,000865: # Page 1500 062848,000866: 20,3623 01606 ADRES 1/ANET1 +16D # THE REAL PLACE 062849,000867: 062850,000868: # NOW STORE DEADBANDS FOR ALL AXES 062851,000869: 20,3624 52152 DXCH FLATEMP # FLAT AND ZONE3LIM 062852,000870: 20,3625 53555 DXCH FLAT 062853,000871: 062854,000872: 20,3626 31343 CA DBVAL1 # COMPUTE P AXIS DEADBANDS 062855,000873: 20,3627 55560 TS PDB1 062856,000874: 20,3630 55561 TS PDB2 062857,000875: 20,3631 61554 AD FLAT 062858,000876: 20,3632 55563 TS PDB3 062859,000877: 20,3633 55562 TS PDB4 062860,000878: 20,3634 34755 CA ZERO 062861,000879: 20,3635 55564 TS PAXDIST 062862,000880: 20,3636 55565 TS PAXDIST +1 062863,000881: 062864,000882: 20,3637 11554 CCS FLAT 062865,000883: 20,3640 13656 TCF DRFDB # DRIFT OR GTS -- COMPUTE DBS 062866,000884: 062867,000885: 20,3641 52136 DXCH UDB1 # STORE U DEADBANDS 062868,000886: 20,3642 53601 DXCH FIREDB # CANNOT USE GENTRAN BECAUSE OF RELINT 062869,000887: 20,3643 52140 DXCH UDB4 062870,000888: 20,3644 53603 DXCH COASTDB 062871,000889: 20,3645 52142 DXCH UAXDIST 062872,000890: 20,3646 53605 DXCH AXISDIST 062873,000891: 20,3647 52144 DXCH DBB1 # STORE V AXIS DEADBANDS 062874,000892: 20,3650 53621 DXCH FIREDB +16D # COULD USE GENTRAN IF DESIRED 062875,000893: 20,3651 52146 DXCH DBB4 062876,000894: 20,3652 53623 DXCH COASTDB +16D 062877,000895: 20,3653 52150 DXCH AXDSTEM 062878,000896: 20,3654 53625 DXCH AXISDIST +16D 062879,000897: 062880,000898: 20,3655 13676 TCF 1/ACCRET +1 # ALL DONE 062881,000899: 20,3656 31343 DRFDB CA DBVAL1 # DRIFT DEADBANDS 062882,000900: 20,3657 55600 TS FIREDB 062883,000901: 20,3660 55601 TS FIREDB +1 062884,000902: 20,3661 55620 TS FIREDB +16D 062885,000903: 20,3662 55621 TS FIREDB +17D 062886,000904: 20,3663 61554 AD FLAT 062887,000905: 20,3664 55602 TS COASTDB 062888,000906: 20,3665 55603 TS COASTDB +1 062889,000907: 20,3666 55622 TS COASTDB +16D 062890,000908: 20,3667 55623 TS COASTDB +17D 062891,000909: 20,3670 34755 CA ZERO 062892,000910: 20,3671 55604 TS AXISDIST 062893,000911: 20,3672 55605 TS AXISDIST +1 062894,000912: 20,3673 55624 TS AXISDIST +16D 062895,000913: 20,3674 55625 TS AXISDIST +17D 062896,000914: 062897,000915: 20,3675 00004 1/ACCRET INHINT 062898,000916: # Page 1501 062899,000917: 20,3676 40111 CS DAPBOOLS # SET BIT TO INDICATE DATA GOOD. 062900,000918: 20,3677 74751 MASK ACCSOKAY 062901,000919: 20,3700 26111 ADS DAPBOOLS 062902,000920: 20,3701 00003 RELINT 062903,000921: 20,3702 30117 CA ACCRETRN 062904,000922: 20,3703 04640 TC BANKJUMP # RETURN TO CALLER 062905,000923: 062906,000924: 20,3704 54165 INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2 062907,000925: 20,3705 34743 CA BIT9 # 1 AT 2(6) 062908,000926: 20,3706 22007 ZL # ZERO L FOR ACCURACY AND TO PREVENT OVFLO 062909,000927: 20,3707 00006 EXTEND 062910,000928: 20,3710 10165 DV HOLD 062911,000929: 20,3711 00002 TC Q # RESULT AT 2(7)/PI 062912,000930: 062913,000931: 20,3712 34755 DOWNGTS CAF ZERO # ZERO SWITCHES WHEN USEQRJTS BIT IS UP 062914,000932: 20,3713 55502 TS ALLOWGTS # OR DAP IS OFF 062915,000933: 20,3714 55632 TS INGTS 062916,000934: 20,3715 12777 TCF DOCKTEST 062917,000935: 062918,000936: 20,3716 22007 1/ANET- ZL 062919,000937: 20,3717 22122 LXCH ACCSW # ZERO ACCSW 062920,000938: 20,3720 54157 TS ANET # SAVE ANET 062921,000939: 20,3721 63770 AD -.03R/S2 # TEST FOR MIN VALUE 062922,000940: 20,3722 00006 EXTEND 062923,000941: 20,3723 63744 BZMF NETNEG # ANET LESS THAN AMIN, SO FAKE IT 062924,000942: 20,3724 30157 1/NETMIN CA ANET 062925,000943: 20,3725 00006 EXTEND 062926,000944: 20,3726 50164 INDEX -SIGNAOS 062927,000945: 20,3727 70130 MP 1/ACOSTT +1 # ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6) 062928,000946: 062929,000947: # THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG 062930,000948: # VALUES OF AOS 062931,000949: 062932,000950: 20,3730 64743 DO1/NET+ AD BIT9 # 1 + ANET/ACOAST AT 2(6) 062933,000951: 20,3731 56157 XCH ANET # SAVE AND PICK UP ANET 062934,000952: 20,3732 00006 EXTEND 062935,000953: 20,3733 22161 QXCH ARET # SAVE RETURN 062936,000954: 20,3734 03704 TC INVERT 062937,000955: 20,3735 54160 TS 1/ANET # 1/ANET AT 2(7)/PI 062938,000956: 20,3736 44743 CS BIT9 # -1 AT 2(6) 062939,000957: 20,3737 00006 DOACCFUN EXTEND 062940,000958: 20,3740 70160 MP 1/ANET # -1/ANET AT 2(13)/PI 062941,000959: 20,3741 00006 EXTEND 062942,000960: 20,3742 10157 DV ANET # ACCFUN AT 2(7)/PI 062943,000961: 20,3743 00161 TC ARET # RETURN 062944,000962: 062945,000963: 20,3744 43770 NETNEG CS -.03R/S2 # ANET LESS THAN AMIN -- SET EQUAL TO AMIN 062946,000964: 20,3745 54157 TS ANET 062947,000965: 20,3746 13725 TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED. 062948,000966: 062949,000967: # Page 1502 062950,000968: 20,3747 10163 FIXMIN CCS SIGNAOS 062951,000969: 20,3750 34752 CA TWO # IF AOS NEG, ACCSW = +1 062952,000970: 20,3751 67752 AD NEGONE # IF AOS POS, ACCSW = -1 062953,000971: 20,3752 54122 TS ACCSW 062954,000972: 20,3753 60154 AD UV # IF ACCSW = +1, TEST FOR +U (+V) JET FAIL 062955,000973: 20,3754 50000 INDEX A # IF ACCSW = -1, TEST FOR -U (-V) JET FAIL 062956,000974: 20,3755 33774 CA -UMASK +1 062957,000975: 20,3756 71257 MASK CH5MASK 062958,000976: 20,3757 00006 EXTEND 062959,000977: 20,3760 13764 BZF +4 062960,000978: 20,3761 43770 CS -.03R/S2 # JET FAILURE -- CANNOT USE 2-JET VALUES 062961,000979: 20,3762 54157 TS ANET # ANET = AMIN 062962,000980: 20,3763 13532 TCF STMIN- -1 # CALCULATE FUNCTIONS USING AMIN 062963,000981: 20,3764 30001 CA L # L HAS ACCFUN 062964,000982: 20,3765 13533 TCF STMIN- # STORE MAX VALUES FOR MIN JETS 062965,000983: 062966,000984: # ERASABLE ASSIGNMENTS FOR 1/ACCONT 062967,000985: 062968,000986: 20,3766 E6,1550 1/ANETP EQUALS BLOCKTOP +2 062969,000987: 20,3766 E6,1552 1/ACOSTP EQUALS BLOCKTOP +4 062970,000988: 20,3766 E6,1556 PACCFUN EQUALS BLOCKTOP +8D 062971,000989: 20,3766 E6,1560 PDB1 EQUALS BLOCKTOP +10D 062972,000990: 20,3766 E6,1561 PDB2 EQUALS BLOCKTOP +11D 062973,000991: 20,3766 E6,1562 PDB4 EQUALS BLOCKTOP +12D 062974,000992: 20,3766 E6,1563 PDB3 EQUALS BLOCKTOP +13D 062975,000993: 20,3766 E6,1564 PAXDIST EQUALS BLOCKTOP +14D 062976,000994: 062977,000995: 20,3766 0122 ACCSW EQUALS VBUF # EXECUTIVE TEMPORARIES 062978,000996: # CANNOT DO CCS NEWJOB DURING 1/ACCS 062979,000997: 20,3766 0123 1/ATEM1 EQUALS ACCSW +1 062980,000998: 20,3766 0124 1/ATEM2 EQUALS 1/ATEM1 +1 062981,000999: 20,3766 0127 1/ACOSTT EQUALS 1/ATEM1 +4 062982,001000: 20,3766 0131 Z1TEM EQUALS 1/ATEM1 +6 062983,001001: 20,3766 0132 Z5TEM EQUALS 1/ATEM1 +7 062984,001002: 062985,001003: 20,3766 0135 UDB1 EQUALS 1/ATEM1 +10D # UAXIS DEADBAND BUFFER 062986,001004: 20,3766 0136 UDB2 EQUALS 1/ATEM1 +11D 062987,001005: 20,3766 0137 UDB4 EQUALS 1/ATEM1 +12D 062988,001006: 20,3766 0140 UDB3 EQUALS 1/ATEM1 +13D 062989,001007: 20,3766 0141 UAXDIST EQUALS 1/ATEM1 +14D 062990,001008: 062991,001009: 20,3766 0143 DBB1 EQUALS 1/ATEM1 +16D # TEMP DEADBAND BUFFER, ALSO V AXIS 062992,001010: 20,3766 0144 DBB2 EQUALS 1/ATEM1 +17D 062993,001011: 20,3766 0145 DBB4 EQUALS 1/ATEM1 +18D 062994,001012: 20,3766 0146 DBB3 EQUALS 1/ATEM1 +19D 062995,001013: 20,3766 0147 AXDSTEM EQUALS 1/ATEM1 +20D 062996,001014: 062997,001015: 20,3766 0151 FLATEMP EQUALS 1/ATEM1 +22D 062998,001016: 20,3766 0152 Z3TEM EQUALS 1/ATEM1 +23D # MUST FOLLOW FLATEMP 062999,001017: # Page 1503 063000,001018: 20,3766 1343 DBVAL1 EQUALS DB 063001,001019: 20,3766 0114 DBVAL2 EQUALS INTB15+ 063002,001020: 20,3766 0115 DBVAL3 EQUALS INTB15+ +1 063003,001021: 063004,001022: 20,3766 0116 DRIFTER EQUALS INTB15+ +2 063005,001023: 063006,001024: 20,3766 0154 UV EQUALS MPAC 063007,001025: 20,3766 0157 ANET EQUALS MPAC +3 063008,001026: 20,3766 0157 FUNTEM EQUALS MPAC +3 063009,001027: 20,3766 0160 1/ANET EQUALS MPAC +4 063010,001028: 20,3766 0161 ARET EQUALS MPAC +5 063011,001029: 20,3766 0162 ABSAOS EQUALS MPAC +6 063012,001030: 20,3766 0163 SIGNAOS EQUALS MPAC +7 063013,001031: 20,3766 0164 -SIGNAOS EQUALS MPAC +8D 063014,001032: 20,3766 0165 HOLD EQUALS MPAC +9D 063015,001033: 20,3766 0117 ACCRETRN EQUALS FIXLOC -1 063016,001034: 063017,001035: 20,3766 00110 ZONE3MAX DEC .004375 # 17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS 063018,001036: 20,3767 00443 FLATVAL DEC .01778 # .8 AT PI/4 RAD 063019,001037: 20,3770 77377 -.03R/S2 OCT 77377 # -PI/2(7) AT PI/2 063020,001038: 063021,001039: 20,3771 00356 .023R/S2 OCT 00356 # .0228 RAD/SEC(2) AT PI/2 063022,001040: 20,3772 4733 1/.03 EQUALS POSMAX # 2(7)/PI AT 2(7)/PI 063023,001041: 063024,001042: 20,3772 02213 PAXISADR GENADR PAXIS 063025,001043: 063026,001044: # THE FOLLOWING 4 CONSTANTS ARE JET 063027,001045: # FAILURE MASKS AND ARE INDEXED 063028,001046: 20,3773 00110 -UMASK OCT 00110 # -U 063029,001047: 20,3774 00022 OCT 00022 # -V 063030,001048: 20,3775 00204 +UMASK OCT 00204 # +U 063031,001049: 20,3776 00041 OCT 00041 # +V 063032,001050: End of include-file AOSTASK_AND_AOSJOB.agc. Parent file is MAIN.agc