Source Code
063758,000001: # Copyright: Public domain.
063759,000002: # Filename: AOSTASK_AND_AOSJOB.agc
063760,000003: # Purpose: Part of the source code for Luminary 1A build 099.
063761,000004: # It is part of the source code for the Lunar Module's (LM)
063762,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
063763,000006: # Assembler: yaYUL
063764,000007: # Contact: Ron Burkey <info@sandroid.org>.
063765,000008: # Website: www.ibiblio.org/apollo.
063766,000009: # Pages: 1485-1506
063767,000010: # Mod history: 2009-05-27 RSB Adapted from the corresponding
063768,000011: # Luminary131 file, using page
063769,000012: # images from Luminary 1A.
063770,000013: # 2009-06-05 RSB Corrected a memory-bank error type.
063771,000014: # 2009-06-07 RSB Corrected a typo.
063772,000015: # 2011-01-06 JL Fixed pseudo-label indentation.
063773,000016:
063774,000017: # This source code has been transcribed or otherwise adapted from
063775,000018: # digitized images of a hardcopy from the MIT Museum. The digitization
063776,000019: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
063777,000020: # the Museum. Many thanks to both. The images (with suitable reduction
063778,000021: # in storage size and consequent reduction in image quality as well) are
063779,000022: # available online at www.ibiblio.org/apollo. If for some reason you
063780,000023: # find that the images are illegible, contact me at info@sandroid.org
063781,000024: # about getting access to the (much) higher-quality images which Paul
063782,000025: # actually created.
063783,000026:
063784,000027: # Notations on the hardcopy document read, in part:
063785,000028:
063786,000029: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
063787,000030: # 16:27 JULY 14, 1969
063788,000031:
063789,000032: # Page 1485
063790,000033: # PROGRAM NAME: 1/ACCS
063791,000034: # PROGRAM WRITTEN BY: BOB COVELLI AND MIKE HOUSTON
063792,000035: # LAST MODIFICATION: FEB. 14, 1969 BY G. KALAN
063793,000036:
063794,000037: # PROGRAM DESCRIPTION:
063795,000038: # 1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A
063796,000039: # CHANGE IN THE MASS OF THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT-
063797,000040: # DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP.
063798,000041:
063799,000042: # THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR),
063800,000043: # STAGE VERIFY BIT (CHAN30, BIT2), DOCKED BIT (DAPBOOLS, BIT13), DRIFT BIT (DAPBOOLS, BIT8), USEQRJTS (DAPBOOLS,
063801,000044: # BIT14), AND SURFACE FLAG (FLAGWRDB, BIT8), AND CH5MASK.
063802,000045:
063803,000046: # 1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE
063804,000047: # FORMED BY RESOLVING 1JACCQ AND 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L, PVT-CG) IS ALSO
063805,000048: # COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ,
063806,000049: # ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE.
063807,000050:
063808,000051: # AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL NET ACCELERATIONS ABOUT THE P, U,
063809,000052: # AND V AXES (2 JETS FOR P-AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT
063810,000053: # THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5) ARE ALSO COMPUTED FOR THESE AXES. THE
063811,000054: # FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS. FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE
063812,000055: # MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
063813,000056: # IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
063814,000057:
063815,000058: # SUBROUTINES CALLED:
063816,000059: # TIMEGMBL
063817,000060: # MAKECADR
063818,000061: # ROT45DEG
063819,000062:
063820,000063: # CALLING SEQUENCE:
063821,000064: # TC BANKCALL # (1/ACCS MUST BE CALLED BY BANKCALL)
063822,000065: # CADR 1/ACCS
063823,000066:
063824,000067: # NORMAL EXIT: VIA BANKJUMP
063825,000068:
063826,000069: # ALARM AND EXIT MODES: NONE
063827,000070:
063828,000071: # INPUT/OUTPUT: SEE PROGRAM DESCRIPTION.
063829,000072:
063830,000073: # DEBRIS:
063831,000074: # ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
063832,000075:
063833,000076: # RESTRICTIONS:
063834,000077: # 1/ACCS MUST BE CALLED BY BANKCALL
063835,000078: # EBANK IS SET TO 6, BUT NOT RESTORED.
063836,000079: # Page 1486
063837,000080:
063838,000081: 20,2447 BANK 20
063839,000082: 20,2000 SETLOC DAPS3
063840,000083: 20,2000 BANK
063841,000084:
063842,000085: 20,2447 COUNT* $$/DAPAO
063843,000086:
063844,000087: 20,2447 E6,1537 EBANK= AOSQ
063845,000088:
063846,000089: # ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSIT WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
063847,000090: # IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF
063848,000091: # NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
063849,000092:
063850,000093: 20,2447 34755 1/ACCSET CAF ZERO # ENTRY FROM FRESH START/RESTART CODING.
063851,000094: 20,2450 55537 TS AOSQ # NULL THE OFFSET ESTIMATES FOR 1/ACCS.
063852,000095: 20,2451 55541 TS AOSR
063853,000096: 20,2452 55424 TS ALPHAQ # NULL THE OFFSET ESTIMATES FOR DOWNLIST
063854,000097: 20,2453 55425 TS ALPHAR
063855,000098:
063856,000099: 20,2454 04616 1/ACCJOB TC BANKCALL # 1/ACCS ASSUMES ENTRY VIA BANKCALL.
063857,000100: 20,2455 40461 CADR 1/ACCS +2 # SKIP EBANK SETTING.
063858,000101:
063859,000102: 20,2456 05155 TC ENDOFJOB
063860,000103:
063861,000104: 20,2457 35015 1/ACCS CA EBANK6 # ***** EBANK SET BUT NOT RESTORED *****
063862,000105: 20,2460 54003 TS EBANK
063863,000106:
063864,000107: 20,2461 04645 TC MAKECADR # SAVE RETURN SO THAT BUF2 MAY BE USED
063865,000108: 20,2462 54117 TS ACCRETRN
063866,000109:
063867,000110: # DETERMINE MASS OF THE LEM.
063868,000111:
063869,000112: 20,2463 30111 CA DAPBOOLS # IS THE CSM DOCKED
063870,000113: 20,2464 74737 MASK CSMDOCKD
063871,000114: 20,2465 54157 TS DOCKTEMP # STORE RECORD OF STATE IN TEMP (MPAC +3).
063872,000115: 20,2466 10000 CCS A
063873,000116: 20,2467 41332 CS CSMMASS # DOCKED: LEMMAS = MASS - CSMMASS
063874,000117: 20,2470 61244 AD MASS # LEM ALONE: LEMMASS = MASS
063875,000118: 20,2471 55331 TS LEMMASS
063876,000119:
063877,000120: # ON THE BASIS OF APSFLAG:
063878,000121: # SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/2-JET CONTROL
063879,000122: # SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
063880,000123: # ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
063881,000124:
063882,000125: 20,2472 00004 INHINT
063883,000126: 20,2473 30106 CAE FLGWRD10 # DETERMINE WHETHER STAGED.
063884,000127: 20,2474 74737 MASK APSFLBIT
063885,000128: 20,2475 00006 EXTEND
063886,000129: 20,2476 12522 BZF DPSFLITE
063887,000130: # Page 1487
063888,000131: 20,2477 44733 CS POSMAX # ASCENT (OR ON LUNAR SURFACE)
063889,000132: 20,2500 55475 TS -2JETLIM # ALWAYS 2 JETS FOR P-AXIS RATE COMMAND
063890,000133: 20,2501 35751 CAF OCT14 # INITIALIZE INDEX AT 12.
063891,000134: 20,2502 54154 TS MPAC
063892,000135: 20,2503 41331 CS LEMMASS # CHECK IF MASS TOO HIGH. CATCH STAGING.
063893,000136: 20,2504 61400 AD HIASCENT
063894,000137: 20,2505 00006 EXTEND
063895,000138: 20,2506 62513 BZMF MASSFIX
063896,000139: 20,2507 41331 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE
063897,000140: 20,2510 62001 AD LOASCENT # DECREMENTING BY MASSMON.
063898,000141: 20,2511 00006 EXTEND
063899,000142: 20,2512 62540 BZMF F(MASS)
063900,000143:
063901,000144: 20,2513 27331 MASSFIX ADS LEMMASS # STORE THE VIOLATED LIMIT AS LEMMASS.
063902,000145: 20,2514 22007 ZL # ALSO CORRECT TOTAL MASS, ZEROING THE
063903,000146: 20,2515 10157 CCS DOCKTEMP # LOW-ORDER WORD.
063904,000147: 20,2516 31332 CAE CSMMASS # DOCKED: MASS = LEMMASS + CSMMASS
063905,000148: 20,2517 61331 AD LEMMASS # LEM ALONE: MASS = LEMMASS
063906,000149: 20,2520 53245 DXCH MASS
063907,000150: 20,2521 12540 TCF F(MASS)
063908,000151:
063909,000152: 20,2522 44742 DPSFLITE CS BIT10 # FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
063910,000153: 20,2523 55475 TS -2JETLIM # EXCEEDING 1.4 DEG/SEC (SCALED AT 45)
063911,000154: 20,2524 36242 CAF SIX # INITIALIZE INDEX AT 6.
063912,000155: 20,2525 54154 TS MPAC
063913,000156: 20,2526 41331 CS LEMMASS # CHECK IF MASS TOO HIGH. SHOULD NEVER
063914,000157: 20,2527 62002 AD HIDESCNT # OCCUR EXCEPT PERHAPS BEFORE THE PAD
063915,000158: 20,2530 00006 EXTEND # LOAD IS DONE.
063916,000159: 20,2531 62513 BZMF MASSFIX
063917,000160: 20,2532 41331 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE
063918,000161: 20,2533 62003 AD LODESCNT # DECREMENTING BY MASSMON.
063919,000162: 20,2534 61400 AD HIASCENT
063920,000163: 20,2535 00006 EXTEND
063921,000164: 20,2536 62540 BZMF F(MASS)
063922,000165: 20,2537 12513 TCF MASSFIX
063923,000166:
063924,000167: # COMPUTATION OF FUNCTIONS OF MASS
063925,000168:
063926,000169: 20,2540 00003 F(MASS) RELINT
063927,000170: 20,2541 10157 CCS DOCKTEMP
063928,000171: 20,2542 13105 TCF DOCKED # DOCKED: USE SEPARATE COMPUTATION.
063929,000172: 20,2543 34752 CA TWO
063930,000173: 20,2544 54155 STCTR TS MPAC +1 # J=2,1,0 FOR 1JACCR,1JACCQ,1JACC
063931,000174:
063932,000175: 20,2545 44752 CS TWO
063933,000176: 20,2546 26154 ADS MPAC # JX=10,8,6 OR 4,2,0 TO INDEX COEFS.
063934,000177:
063935,000178: 20,2547 31331 STCTR1 CAE LEMMASS
063936,000179: 20,2550 50154 INDEX MPAC
063937,000180: 20,2551 63060 AD INERCONC
063938,000181: 20,2552 54156 TS MPAC +2 # MASS + C
063939,000182: # Page 1488
063940,000183: 20,2553 00006 EXTEND
063941,000184: 20,2554 50154 INDEX MPAC
063942,000185: 20,2555 33042 DCA INERCONA
063943,000186: 20,2556 00006 EXTEND
063944,000187: 20,2557 10156 DV MPAC +2
063945,000188: 20,2560 50154 INDEX MPAC
063946,000189: 20,2561 63057 AD INERCONB
063947,000190: 20,2562 50155 INDEX MPAC +1 # 1JACC(J)=A(JX)/(MASS+C(JX) + B(JX)
063948,000191: 20,2563 55530 TS 1JACC # 1JACC(-1)=L,PVT-CG SCALED AT 8 FEET
063949,000192:
063950,000193: 20,2564 10155 CCS MPAC +1
063951,000194: 20,2565 12544 TCF STCTR
063952,000195: 20,2566 12570 TCF COMMEQS
063953,000196: 20,2567 12667 TCF LRESC
063954,000197:
063955,000198: # COEFFQ AND COEFFR ARE COMPUTED IN THIS SECTION. THEY ARE USED TO RESOLVE Q-R COMPONENTS INTO NON-ORTHOGONAL
063956,000199: # U AND V COMPONENTS (SEE ROT-TOUV SECTION).
063957,000200:
063958,000201: 20,2570 41532 COMMEQS CS 1JACCR
063959,000202: 20,2571 61531 AD 1JACCQ
063960,000203: 20,2572 00006 EXTEND
063961,000204: 20,2573 62617 BZMF BIGIQ
063962,000205: 20,2574 00006 EXTEND # EPSILON IS A MEASURE OF COUPLING AND IS
063963,000206: 20,2575 11531 DV 1JACCQ # DEFINED=1-IQ/IR FOR IR GREATER THAN IQ.
063964,000207: 20,2576 54155 TS EPSILON # THE COMPUTED EXPRESSION IS EQUIVALENT
063965,000208: 20,2577 63104 AD -EPSMAX
063966,000209: 20,2600 00006 EXTEND
063967,000210: 20,2601 62604 BZMF GOODEPS1
063968,000211: 20,2602 43104 CS -EPSMAX
063969,000212: 20,2603 54155 TS EPSILON # EPSILON IS LIMITED TO A MAX. OF .42265
063970,000213: 20,2604 30155 GOODEPS1 CA EPSILON
063971,000214: 20,2605 00006 EXTEND
063972,000215: 20,2606 73100 MP 0.35356
063973,000216: 20,2607 63102 AD .7071
063974,000217: 20,2610 55630 TS COEFFR # IN THIS CASE WHERE IR IS GREATER THAN
063975,000218: 20,2611 44733 CS POSMAX # IQ, COEFFQ=-.707(1+.5EPSILON)(1-EPSILON)
063976,000219: 20,2612 60155 AD EPSILON # AND COEFFR=.707(1+.5EPSILON)
063977,000220: 20,2613 00006 EXTEND
063978,000221: 20,2614 71630 MP COEFFR
063979,000222: 20,2615 55627 TS COEFFQ
063980,000223: 20,2616 12642 TCF JACCUV
063981,000224: 20,2617 00006 BIGIQ EXTEND # EPSILON IS DEFINED AS 1-IR/IQ FOR IQ
063982,000225: 20,2620 11532 DV 1JACCR # GREATER THAN IR. -EPSILON IS COMPUTED
063983,000226: 20,2621 54155 TS -EPSILON # RATHER THAN EPSILON FOR CONVENIENCE
063984,000227: 20,2622 40155 CS -EPSILON
063985,000228: 20,2623 63104 AD -EPSMAX
063986,000229: 20,2624 00006 EXTEND
063987,000230: 20,2625 62630 BZMF GOODEPS2
063988,000231: 20,2626 33104 CA -EPSMAX
063989,000232: 20,2627 54155 TS -EPSILON # EPSILON IS LIMITED TO A MAX. OF .42265
063990,000233: # Page 1489
063991,000234: 20,2630 30155 GOODEPS2 CA -EPSILON
063992,000235: 20,2631 00006 EXTEND
063993,000236: 20,2632 73100 MP 0.35356
063994,000237: 20,2633 63103 AD -.7071
063995,000238: 20,2634 55627 TS COEFFQ # IN THIS CASE WHERE IQ IS GREATER THAN
063996,000239: 20,2635 40155 CS -EPSILON # IR, COEFFQ=-.707(1+.5EPSILON) AND
063997,000240: 20,2636 64735 AD NEGMAX # COEFFR=.707(1+.5EPSILON)(1-EPSILON)
063998,000241: 20,2637 00006 EXTEND
063999,000242: 20,2640 71627 MP COEFFQ
064000,000243: 20,2641 55630 TS COEFFR
064001,000244: 20,2642 41627 JACCUV CS COEFFQ
064002,000245: 20,2643 00006 EXTEND
064003,000246: 20,2644 71531 MP 1JACCQ # 1JACCQ IS SCALED AT PI/4
064004,000247: 20,2645 55533 TS 1JACCU # 1JACCU USED AS TEMPORARY STORAGE
064005,000248: 20,2646 31630 CA COEFFR
064006,000249: 20,2647 00006 EXTEND
064007,000250: 20,2650 71532 MP 1JACCR
064008,000251: 20,2651 61533 AD 1JACCU
064009,000252: 20,2652 00006 EXTEND
064010,000253: 20,2653 74736 MP BIT14 # SCALING CHANGED FROM PI/4 TO PI/2
064011,000254: 20,2654 55533 TS 1JACCU
064012,000255: 20,2655 55534 TS 1JACCV # SCALED AT PI/2 RADIANS/SEC(2)
064013,000256: 20,2656 10154 CCS MPAC # COMPUTE L,PVT-CG IF IN DESCENT
064014,000257: 20,2657 34755 CAF ZERO # ZERO SWITCHES AND GO TO 1/ACCONT IN
064015,000258: 20,2660 55502 TS ALLOWGTS # ASCENT
064016,000259: 20,2661 13230 TCF 1/ACCONT -1
064017,000260:
064018,000261: 20,2662 44752 CS TWO
064019,000262: 20,2663 54154 TS MPAC
064020,000263: 20,2664 44753 CS ONE
064021,000264: 20,2665 54155 TS MPAC +1
064022,000265: 20,2666 12547 TCF STCTR1
064023,000266:
064024,000267: # THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS. THE EQUATION
064025,000268: # IMPLEMENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WEHRE
064026,000269: # T = ENGINE THRUST FORCE
064027,000270: # L = PIVIT TO CG DISTANCE OF ENGINE
064028,000271: # I = MOMENT OF INERTIA
064029,000272:
064030,000273: 20,2667 31246 LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
064031,000274: 20,2670 00006 EXTEND
064032,000275: 20,2671 71244 MP MASS # SCALED AT B+16 KGS
064033,000276: 20,2672 02776 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064034,000277: 20,2673 03101 ADRES GFACTM
064035,000278:
064036,000279: # MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
064037,000280: # THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO
064038,000281: # THAT IS UNCONVERTED. 2.20462 CONVERTS KG. TO LB. NOW T IN IN A SCALED AT 2(14).
064039,000282:
064040,000283: 20,2674 00006 EXTEND
064041,000284: 20,2675 71527 MP L,PVT-CG # SCALED AT 8 FEET.
064042,000285: # Page 1490
064043,000286: 20,2676 00004 INHINT
064044,000287: 20,2677 54154 TS MPAC
064045,000288: 20,2700 00006 EXTEND
064046,000289: 20,2701 71532 MP 1JACCR
064047,000290: 20,2702 02776 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064048,000291: 20,2703 02000 ADRES TORKJET1
064049,000292:
064050,000293: 20,2704 55511 TS ACCDOTR # SCALED AT PI/2(7)
064051,000294: 20,2705 30154 CA MPAC
064052,000295: 20,2706 00006 EXTEND
064053,000296: 20,2707 71531 MP 1JACCQ
064054,000297: 20,2710 02776 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064055,000298: 20,2711 02000 ADRES TORKJET1
064056,000299:
064057,000300: 20,2712 55507 SPSCONT TS ACCDOTQ # SCALED AT PI/2(7)
064058,000301: 20,2713 00006 EXTEND
064059,000302: 20,2714 73077 MP DGBF # .3ACCDOTQ SCALED AT PI/2(8)
064060,000303: 20,2715 55504 TS KQ
064061,000304: 20,2716 31511 CAE ACCDOTR # .3ACCDOTR AT PI/2(8)
064062,000305: 20,2717 00006 EXTEND
064063,000306: 20,2720 73077 MP DGBF
064064,000307: 20,2721 55506 TS KRDAP
064065,000308: 20,2722 00006 EXTEND # NOW COMPUTE QACCDOT, RACCDOT, THE SIGNED
064066,000309: 20,2723 00012 READ CHAN12 # JERK TERMS. STORE CHANNEL 12. WITH GIMBAL
064067,000310: 20,2724 54155 TS MPAC +1 # DRIVE BITS 9 THROUGH 12 SET LOOP
064068,000311: 20,2725 34752 CAF BIT2 # INDEX TO COMPUTE RACCDOT, THEN QACCDOT.
064069,000312: 20,2726 12730 TCF LOOP3
064070,000313: 20,2727 34755 CAF ZERO # ACCDOTQ AND ACCDOTR ARE NOT NEGATIVE,
064071,000314: 20,2730 54154 LOOP3 TS MPAC # BECAUSE THEY ARE MAGNITUDES
064072,000315: 20,2731 30155 CA MPAC +1
064073,000316: 20,2732 50154 INDEX MPAC # MASK CHANNEL IMAGE FOR ANY GIMBAL MOTION
064074,000317: 20,2733 73073 MASK GIMBLBTS
064075,000318: 20,2734 00006 EXTEND
064076,000319: 20,2735 12751 BZF ZACCDOT # IF NONE, Q(R)ACCDOT IS ZERO.
064077,000320: 20,2736 30155 CA MPAC +1
064078,000321: 20,2737 50154 INDEX MPAC # GIMBAL IS MOVING. IS ROTATION POSITIVE.
064079,000322: 20,2740 73074 MASK GIMBLBTS +1
064080,000323: 20,2741 00006 EXTEND
064081,000324: 20,2742 12746 BZF FRSTZERO # IF NOT POSITIVE, BRANCH
064082,000325: 20,2743 50154 INDEX MPAC # POSITIVE ROTATION, NEGATIVE Q(R)ACCDOT.
064083,000326: 20,2744 41507 CS ACCDOTQ
064084,000327: 20,2745 12752 TCF STACCDOT
064085,000328: 20,2746 50154 FRSTZERO INDEX MPAC # NEGATIVE ROTATION, POSITIVE Q(R)ACCDOT.
064086,000329: 20,2747 31507 CA ACCDOTQ
064087,000330: 20,2750 12752 TCF STACCDOT
064088,000331: 20,2751 34755 ZACCDOT CAF ZERO
064089,000332: 20,2752 50154 STACCDOT INDEX MPAC
064090,000333: 20,2753 55510 TS QACCDOT # STORE Q(R)ACCDOT.
064091,000334: 20,2754 10154 CCS MPAC
064092,000335: 20,2755 12727 TCF LOOP3 -1 # NOW DO QACCDOT.
064093,000336: # Page 1491
064094,000337: 20,2756 40111 CS DAPBOOLS # IS GIMBAL USABLE?
064095,000338: 20,2757 74736 MASK USEQRJTS
064096,000339: 20,2760 00006 EXTEND
064097,000340: 20,2761 13706 BZF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064098,000341: 20,2762 41274 CS T5ADR # YES. IS THE DAP RUNNINT?
064099,000342: 20,2763 63765 AD PAXISADR
064100,000343: 20,2764 00006 EXTEND
064101,000344: 20,2765 12767 BZF +2
064102,000345: 20,2766 13706 TCF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064103,000346: 20,2767 11633 CCS INGTS # YES. IS GTS IN CONTROL?
064104,000347: 20,2770 12773 TCF DOCKTEST # YES. PROCEED WITH 1/ACCS.
064105,000348: 20,2771 04674 TC IBNKCALL # NO. NULL OFFSET AND FIND ALLOWGTS
064106,000349: 20,2772 43330 CADR TIMEGMBL
064107,000350:
064108,000351: 20,2773 10157 DOCKTEST CCS DOCKTEMP # BYPASS 1/ACCONT WHEN DOCKED.
064109,000352: 20,2774 13671 TCF 1/ACCRET
064110,000353: 20,2775 13231 TCF 1/ACCONT
064111,000354:
064112,000355: # Page 1492
064113,000356: # SUBROUTINE: DVOVSUB
064114,000357: # AUTHOR: C. WORK, MOD 0, 12 JUNE 68
064115,000358: # PURPOSE: THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
064116,000359: # (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
064117,000360: # (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
064118,000361: # (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
064119,000362: # THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6.
064120,000363: # THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE. SIGN AGREEMENT IS
064121,000364: # ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE
064122,000365: # RESULT OF A MULTIPLICATION OPERATION.)
064123,000366: # CALL SEQUENCE: L TC DVOVSUB
064124,000367: # L +1 ADRES (DIVISOR)
064125,000368: # L +2 RETURN HERE, WITH RESULT IN A,L
064126,000369: # INPUT: DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
064127,000370: # DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
064128,000371: # OUTPUT: QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
064129,000372: # DEBRIS: SCRATCHX,SCRATCHY,SCRATCHZ,A,L (NOTE: SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.)
064130,000373: # ABORTS OR ALARMS: NONE
064131,000374: # EXITS: TO THE CALL POINT +2.
064132,000375: # SUBROUTINES CALLED: NONE.
064133,000376:
064134,000377: 20,2776 54161 DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND
064135,000378: 20,2777 54160 TS SCRATCHX
064136,000379: 20,3000 50002 INDEX Q # OBTAIN ADDRESS OF DIVISOR.
064137,000380: 20,3001 30000 CA 0
064138,000381: 20,3002 24002 INCR Q # STEP Q FOR PROPER RETURN SEQUENCE.
064139,000382: 20,3003 50000 INDEX A
064140,000383: 20,3004 30000 CA 0 # PICK UP THE DIVISOR.
064141,000384: 20,3005 00006 EXTEND # RETURN POSMAX FOR A ZERO DIVISOR.
064142,000385: 20,3006 13035 BZF MAXPLUS
064143,000386:
064144,000387: 20,3007 54162 TS SCRATCHZ # STORE DIVISOR.
064145,000388:
064146,000389: 20,3010 10000 CCS A # GET ABS(DIVISOR) IN THE A REGISTER.
064147,000390: 20,3011 64753 AD BIT1
064148,000391: 20,3012 13014 TCF ZEROPLUS
064149,000392: 20,3013 64753 AD BIT1
064150,000393:
064151,000394: 20,3014 56161 ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF
064152,000395: 20,3015 00006 EXTEND # DIVIDENT.
064153,000396: 20,3016 63020 BZMF GOODNEG # GET -ABS(DIVIDEND)
064154,000397: # Page 1493
064155,000398: 20,3017 40000 CS A
064156,000399:
064157,000400: 20,3020 60161 GOODNEG AD SCRATCHY # ABS(DIVISOR) - ABS(DIVIDEND)
064158,000401: 20,3021 00006 EXTEND
064159,000402: 20,3022 63027 BZMF MAKEMAX # BRANCH IF DIVISION IS NOT PROPER.
064160,000403:
064161,000404: 20,3023 30160 CA SCRATCHX # RE-ESTABLISH THE DIVIDEND
064162,000405: 20,3024 00006 EXTEND
064163,000406: 20,3025 10162 DV SCRATCHZ # QUOTIENT IN THE A, REMAINDER IN L.
064164,000407: 20,3026 00002 TC Q # RETURN TO CALLER.
064165,000408:
064166,000409: 20,3027 10160 MAKEMAX CCS SCRATCHX # DETERMINE THE SIGN OF THE QUOTIENT.
064167,000410: 20,3030 10162 CCS SCRATCHZ # SCRATCHX AND SCRATCHZ ARE NON-ZERO.
064168,000411: 20,3031 13035 TCF MAXPLUS
064169,000412: 20,3032 10162 CCS SCRATCHZ
064170,000413: 20,3033 34735 CAF NEGMAX # +,- OR -,+
064171,000414: 20,3034 00002 TC Q
064172,000415: 20,3035 34733 MAXPLUS CAF POSMAX # -,- OR +,+
064173,000416: 20,3036 00002 TC Q
064174,000417:
064175,000418: # COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
064176,000419: # THE CURVE FITS ARE OF THE FORM --
064177,000420:
064178,000421: # 1JACC = A/(MASS + C) + B
064179,000422:
064180,000423: # 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.
064181,000424:
064182,000425: # 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,
064183,000426: # AND C IS SCALED AT B+16 KG.
064184,000427:
064185,000428: 20,3037 01240 22513 2DEC +.0410511917 # L A DESCENT
064186,000429:
064187,000430: 20,3041 00141 07416 INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
064188,000431:
064189,000432: 20,3043 00030 21261 2DEC +.0014979264 # 1JACCQ A DESCENT
064190,000433:
064191,000434: 20,3045 00021 03766 2DEC +.0010451889 # 1JACCR A DESCENT
064192,000435:
064193,000436: 20,3047 00153 07111 2DEC +.0065443852 # 1JACCP A ASCENT
064194,000437:
064195,000438: 20,3051 00072 24103 2DEC +.0035784354 # 1JACCQ A ASCENT
064196,000439:
064197,000440: 20,3053 00135 11511 2DEC +.0056946631 # 1JACCR A ASCENT
064198,000441:
064199,000442: 20,3055 04754 DEC +.155044 # L B DESCENT
064200,000443: 20,3056 77142 DEC -.025233 # L C DESCENT
064201,000444: # Page 1494
064202,000445: 20,3057 00061 INERCONB DEC +.002989 # 1JACCP B DESCENT
064203,000446: 20,3060 00217 INERCONC DEC +.008721 # 1JACCP C DESCENT
064204,000447: 20,3061 00464 DEC +.018791 # 1JACCQ B DESCENT
064205,000448: 20,3062 75642 DEC -.068163 # 1JACCQ C DESCENT
064206,000449: 20,3063 00536 DEC +.021345 # 1JACCR B DESCENT
064207,000450: 20,3064 75705 DEC -.066027 # 1JACCR C DESCENT
064208,000451:
064209,000452: 20,3065 00001 DEC +.000032 # 1JACCP B ASCENT
064210,000453: 20,3066 77616 DEC -.006923 # 1JACCP C ASCENT
064211,000454: 20,3067 05154 DEC +.162862 # 1JACCQ B ASCENT
064212,000455: 20,3070 00052 DEC +.002588 # 1JACCQ C ASCENT
064213,000456: 20,3071 00231 DEC +.009312 # 1JACCR B ASCENT
064214,000457: 20,3072 77174 DEC -.023608 # 1JACCR C ASCENT
064215,000458:
064216,000459: 20,3073 01400 GIMBLBTS OCTAL 01400
064217,000460: 20,3074 01000 OCTAL 01000
064218,000461: 20,3075 06000 OCTAL 06000
064219,000462: 20,3076 04000 OCTAL 04000
064220,000463: 20,3077 23146 DGBF DEC 0.6 # .3 SCALED AT 1/2
064221,000464: 20,3100 13241 0.35356 DEC 0.35356 # .70711 SCALED AT 2
064222,000465: 20,3101 00337 GFACTM OCT 337 # 979.24/2.20462 AT B+15
064223,000466: 20,3102 26501 .7071 DEC .70711
064224,000467: 20,3103 51276 -.7071 DEC -.70711
064225,000468: 20,3104 62362 -EPSMAX DEC -.42265
064226,000469:
064227,000470: # CSM-DOCKED INERTIA COMPUTATIONS
064228,000471:
064229,000472: 20,3105 34753 DOCKED CA ONE # COEFTR = 1 FOR INERTIA COEFFICIENTS
064230,000473: 20,3106 54160 SPSLOOP1 TS COEFCTR # = 7 FOR CG COEFFICIENTS
064231,000474: 20,3107 34753 CA ONE # MASSCTR = 1 FOR CSM
064232,000475: 20,3110 54161 TS MASSCTR # = 0 FOR LEM
064233,000476:
064234,000477: 20,3111 50160 INDEX COEFCTR
064235,000478: 20,3112 33212 CA COEFF -1 # COEFF -1 = C
064236,000479: 20,3113 00006 EXTEND
064237,000480: 20,3114 71331 MP LEMMASS
064238,000481: 20,3115 00006 EXTEND
064239,000482: 20,3116 71332 MP CSMMASS # LET X = CSMMASS AND Y = LEMMASS
064240,000483:
064241,000484: 20,3117 50160 INDEX COEFCTR
064242,000485: 20,3120 63213 AD COEFF # COEFF = F
064243,000486: 20,3121 54154 TS MPAC # MPAC = C X Y + F
064244,000487: 20,3122 13126 TCF +4
064245,000488:
064246,000489: 20,3123 54161 SPSLOOP2 TS MASSCTR # LOOP TWICE THROUGH HERE TO OBTAIN
064247,000490: 20,3124 00006 EXTEND # MPAC = MPAC + (A X +D)X + (B Y +E)Y
064248,000491: 20,3125 26160 DIM COEFCTR # LOOP #1 LOOP #2
064249,000492: 20,3126 50160 INDEX COEFCTR
064250,000493: 20,3127 33215 CA COEFF +2 # COEFF +2 = A OR B
064251,000494: 20,3130 00006 EXTEND
064252,000495: # Page 1495
064253,000496: 20,3131 50161 INDEX MASSCTR
064254,000497: 20,3132 71331 MP LEMMASS
064255,000498: 20,3133 50160 INDEX COEFCTR
064256,000499: 20,3134 63217 AD COEFF +4 # COEFF +4 = E OR D
064257,000500: 20,3135 00006 EXTEND
064258,000501: 20,3136 50161 INDEX MASSCTR
064259,000502: 20,3137 71331 MP LEMMASS
064260,000503: 20,3140 26154 ADS MPAC
064261,000504:
064262,000505: 20,3141 10161 CCS MASSCTR
064263,000506: 20,3142 13123 TCF SPSLOOP2
064264,000507: 20,3143 10160 CCS COEFCTR # IF COEFCTR IS POS, EXIT FROM LOOP WITH
064265,000508: 20,3144 13153 TCF +7 # CG X DELDOT = MPAC X 4 PI RAD-CM/SEC
064266,000509: 20,3145 00000 20354 TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT
064267,000510:
064268,000511: 20,3147 30154 CA MPAC
064269,000512: 20,3150 54155 TS MPAC +1 # INERTIA = (MPAC +1) X 2(38) KG-CM(2)
064270,000513: 20,3151 34757 CA SEVEN
064271,000514: 20,3152 13106 TCF SPSLOOP1
064272,000515:
064273,000516: 20,3153 33212 CA 1JACCCON # 1JACC=1JACCCON/MASS
064274,000517: 20,3154 22007 ZL
064275,000518: 20,3155 02776 TC DVOVSUB
064276,000519: 20,3156 01244 ADRES MASS
064277,000520: 20,3157 55530 TS 1JACC # SCALED AT PI/4
064278,000521:
064279,000522: 20,3160 34733 CA POSMAX # SET INVERSE JET ACCELERATIONS TO POSMAX,
064280,000523: 20,3161 55551 TS 1/ANETP # WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS.
064281,000524: 20,3162 55571 TS 1/ANET2 +1
064282,000525: 20,3163 55572 TS 1/ANET2 +2
064283,000526: 20,3164 55611 TS 1/ANET2 +17D
064284,000527: 20,3165 55612 TS 1/ANET2 +18D
064285,000528: 20,3166 00006 EXTEND
064286,000529: 20,3167 33146 DCA TORQCONS
064287,000530: 20,3170 00006 EXTEND
064288,000531: 20,3171 10155 DV MPAC +1
064289,000532: 20,3172 00004 INHINT
064290,000533: 20,3173 55531 TS 1JACCQ # SCALED AT PI/4
064291,000534: 20,3174 55532 TS 1JACCR
064292,000535:
064293,000536: 20,3175 33103 CA -.7071
064294,000537: 20,3176 55627 TS COEFFQ # COEFFQ AND COEFFR ARE CHOSEN TO MAKE U-
064295,000538: 20,3177 33102 CA .7071 # AND V-AXES ORTHOGONAL FOR DOCKED CASE
064296,000539: 20,3200 55630 TS COEFFR
064297,000540: 20,3201 31244 CA MASS # SCALED AT 2(16) KG
064298,000541: 20,3202 00006 EXTEND
064299,000542: 20,3203 70154 MP MPAC # SCALED AT 4 PI RAD-CM/SEC
064300,000543: 20,3204 00006 EXTEND
064301,000544: 20,3205 71246 MP ABDELV # SCALED AT 2(13) CM/SEC(2)
064302,000545: 20,3206 02776 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064303,000546: # Page 1496
064304,000547: 20,3207 00155 ADRES MPAC +1
064305,000548:
064306,000549: 20,3210 55511 TS ACCDOTR
064307,000550: 20,3211 12712 TCF SPSCONT # CONTINUE K, KSQ CALCULATIONS
064308,000551:
064309,000552: 20,3212 00167 1JACCCON OCT 00167 # SCALED AT PI/4X2(16) RAD/SEC(2)-KG
064310,000553:
064311,000554: # 2 2
064312,000555: # COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X +B Y +C X Y +D X +E Y +F
064313,000556:
064314,000557: 20,3213 06176 COEFF DEC .19518 # C COEFFICIENT OF INERTIA
064315,000558: 20,3214 77650 DEC -.00529 # F "
064316,000559: 20,3215 72260 DEC -.17670 # B "
064317,000560: 20,3216 76637 DEC -.03709 # A "
064318,000561: 20,3217 02167 DEC .06974 # E "
064319,000562: 20,3220 00645 DEC .02569 # D "
064320,000563:
064321,000564: 20,3221 06335 DEC .20096 # C COEFFICIENT OF CG
064322,000565: 20,3222 04256 DEC .13564 # F "
064323,000566: 20,3223 30163 DEC .75704 # B "
064324,000567: 20,3224 64072 DEC -.37142 # A "
064325,000568: 20,3225 53632 DEC -.63117 # E "
064326,000569: 20,3226 15133 DEC .41179 # D "
064327,000570:
064328,000571: # ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
064329,000572: # MPAC, MPAC +1, MPAC +2 USED EXPLICITLY
064330,000573: 20,3227 0160 COEFCTR EQUALS MPAC +4
064331,000574: 20,3227 0161 MASSCTR EQUALS MPAC +5
064332,000575: 20,3227 0160 SCRATCHX EQUALS MPAC +4 # SCRATCH AREA FOR DVOVSUB ROUTINE.
064333,000576: 20,3227 0161 SCRATCHY EQUALS SCRATCHX +1
064334,000577: 20,3227 0162 SCRATCHZ EQUALS SCRATCHX +2
064335,000578:
064336,000579: 20,3227 0157 DOCKTEMP EQUALS MPAC +3 # RECORD OF CSMDOCKED BIT OF DAPBOOLS
064337,000580: 20,3227 0155 EPSILON EQUALS MPAC +1
064338,000581: 20,3227 0155 -EPSILON EQUALS EPSILON
064339,000582: 20,3227 71777 -.1875 DEC -.18750
064340,000583:
064341,000584: # Page 1497
064342,000585: 20,3230 BANK 20
064343,000586: 20,2000 SETLOC DAPS3
064344,000587: 20,2000 BANK
064345,000588:
064346,000589: 20,3230 E6,1537 EBANK= AOSQ
064347,000590:
064348,000591: 20,3230 COUNT* $$/DAPAO
064349,000592:
064350,000593: 20,3230 55633 -1 TS INGTS # ZERO INGTS IN ASCENT
064351,000594: 20,3231 31346 1/ACCONT CA DB # INITIALIZE DBVAL1,2,3
064352,000595: 20,3232 00006 EXTEND
064353,000596: 20,3233 74737 MP BIT13
064354,000597: 20,3234 54001 TS L # 0.25 DB
064355,000598: 20,3235 60000 AD A
064356,000599: 20,3236 54115 TS DBVAL3 # 0.50 DB
064357,000600: 20,3237 41346 CS DBVAL1
064358,000601: 20,3240 60001 AD L
064359,000602: 20,3241 54114 TS DBVAL2 # -.75 DB
064360,000603:
064361,000604: 20,3242 00004 GETAOSUV INHINT
064362,000605: 20,3243 31541 CAE AOSR # COMPUTE ASOU AND AOSV BY ROTATING
064363,000606: 20,3244 54001 TS L # AOSQ AND AOSR.
064364,000607: 20,3245 31537 CAE AOSQ
064365,000608: 20,3246 04674 TC IBNKCALL
064366,000609: 20,3247 37146 CADR ROT-TOUV
064367,000610: 20,3250 53544 DXCH AOSU
064368,000611:
064369,000612: 20,3251 00003 RELINT
064370,000613: 20,3252 30111 CA DAPBOOLS
064371,000614: 20,3253 74744 MASK DRIFTBIT # ZERO DURING ULLAGE AND POWERED FLIGHT.
064372,000615: 20,3254 10000 CCS A # IF DRIFTING LIGHT,
064373,000616: 20,3255 34753 CA ONE # SET DRIFTER TO 1
064374,000617: 20,3256 54116 TS DRIFTER # SAVE TO TEST FOR DRIFTING FLIGHT LATER
064375,000618: 20,3257 61502 AD ALLOWGTS # NON-ZERO IF DRIFT OR GTS NEAR
064376,000619: 20,3260 10000 CCS A
064377,000620: 20,3261 33763 CA FLATVAL # DRIFTING FLIGHT, STORE .8 IN FLAT
064378,000621: 20,3262 54151 TS FLATEMP # IN POWERED FLIGHT, STORE ZERO IN FLAT
064379,000622: 20,3263 00006 EXTEND
064380,000623: 20,3264 13270 BZF DOPAXIS # IF POWERED AND NO GTS, START P AXIS,
064381,000624: 20,3265 10116 CCS DRIFTER # OTHERWISE SET ZONE3LIM
064382,000625: 20,3266 33762 CA ZONE3MAX # 17.5 MS, SCALED AT 4 SECONDS.
064383,000626: 20,3267 54152 TS Z3TEM
064384,000627:
064385,000628: 20,3270 31530 DOPAXIS CA 1JACC # 1JACC AT PI/4 = 2JACC AT PI/2 =
064386,000629: # ANET AT PI/2 = ANET/ACOAST AT 2(6).
064387,000630: 20,3271 64743 AD BIT9 # 1 + ANET/ACOAST AT 2(6)
064388,000631: 20,3272 54157 TS FUNTEM
064389,000632:
064390,000633: 20,3273 31530 CA 1JACC
064391,000634: # Page 1498
064392,000635: 20,3274 03700 TC INVERT
064393,000636: 20,3275 00004 INHINT # P AXIS DATA MUST BE CONSISTENT
064394,000637: 20,3276 55551 TS 1/ANETP # SCALED AT 2(7)/PI.
064395,000638: 20,3277 55552 TS 1/ANETP +1
064396,000639:
064397,000640: 20,3300 44743 CS BIT9 # -1 AT 2(6)
064398,000641: 20,3301 00006 EXTEND
064399,000642: 20,3302 71551 MP 1/ANETP # -1/ANET AT 2(13)/PI
064400,000643: 20,3303 00006 EXTEND
064401,000644: 20,3304 10157 DV FUNTEM # -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI
064402,000645: 20,3305 55557 TS PACCFUN
064403,000646: 20,3306 55560 TS PACCFUN +1
064404,000647:
064405,000648: 20,3307 34733 CA 1/.03 # NO AOS FOR P AXIS, ACOAST = AMIN
064406,000649: 20,3310 55553 TS 1/ACOSTP
064407,000650: 20,3311 55554 TS 1/ACOSTP +1
064408,000651: 20,3312 00003 RELINT
064409,000652:
064410,000653: 20,3313 22007 ZL
064411,000654: 20,3314 10116 CCS DRIFTER
064412,000655: 20,3315 53544 DXCH AOSU # ZERO AOSU,V IF IN DRIFT, JUST TO BE SURE
064413,000656:
064414,000657: 20,3316 34755 UAXIS CA ZERO # DO U AXIS COMPUTATIONS
064415,000658: 20,3317 54154 TS UV # ZERO FOR U AXIS, ONE FOR V AXIS.
064416,000659:
064417,000660: 20,3320 54163 BOTHAXES TS SIGNAOS # CODING COMMON TO U,V AXES
064418,000661: 20,3321 50154 INDEX UV
064419,000662: 20,3322 11543 CCS AOSU # PICK UP ABS(AOSU OR AOSV)
064420,000663: 20,3323 64753 AD ONE # RESTORE TO PROPER VALUE
064421,000664: 20,3324 13327 TCF +3 # AND LEAVE SIGNAOS AT ZERO
064422,000665: 20,3325 64753 AD ONE # NEGATIVE, RESTORE TO PROPER VALUE
064423,000666: 20,3326 24163 INCR SIGNAOS # AND SET SIGNAOS TO ONE TO SHOW AOS NEG
064424,000667: 20,3327 54162 TS ABSAOS # SAVE ABS(AOS)
064425,000668: 20,3330 40163 CS SIGNAOS
064426,000669: 20,3331 54164 TS -SIGNAOS # USED AS AN INDEX
064427,000670:
064428,000671: 20,3332 31346 CA DBVAL1 # SET DB1, DB2 TO DBVAL1 (= DB)
064429,000672: 20,3333 54143 TS DBB1
064430,000673: 20,3334 54144 TS DBB2
064431,000674:
064432,000675: 20,3335 30162 CA ABSAOS # TEST MAGNITUDE OF ABS(AOS)
064433,000676: 20,3336 63764 AD -.03R/S2
064434,000677: 20,3337 00006 EXTEND
064435,000678: 20,3340 63432 BZMF NOTMUCH # ABS(AOS) LESS THAN AMIN
064436,000679: 20,3341 10151 BIGAOS CCS FLATEMP # AGS(AOS) GREATER THAN AMIN
064437,000680: 20,3342 13372 TCF SKIPDB1 # I DRIFT OR GTS, DO NOT COMPUTE DB
064438,000681:
064439,000682: 20,3343 31346 CA DBVAL1
064440,000683: 20,3344 50164 INDEX -SIGNAOS
064441,000684: # Page 1499
064442,000685: 20,3345 26144 ADS DBB2 # DB2(1) = 2 DB
064443,000686: 20,3346 50163 INDEX SIGNAOS
064444,000687: 20,3347 54145 TS DBB4 # DB4(3) = 1 DB
064445,000688: 20,3350 33227 CA -.1875 # -.1875 PI/2 RAD/SEC(2) SCALED AT PI/2
064446,000689: 20,3351 60162 AD ABSAOS # ABSAOS IS SCALED AT PI/2
064447,000690: 20,3352 00006 EXTEND
064448,000691: 20,3353 63356 BZMF +3
064449,000692: 20,3354 40115 CS DBVAL3 # -.5 DB
064450,000693: 20,3355 13365 TCF DBONE
064451,000694: 20,3356 40162 CS ABSAOS
064452,000695: 20,3357 60000 DOUBLE
064453,000696: 20,3360 60000 DOUBLE
064454,000697: 20,3361 64736 AD BIT14
064455,000698: 20,3362 60000 DOUBLE # 1-8 ABSAOS. (8 IS 16/PI SCALED AT 2/PI)
064456,000699: 20,3363 00006 EXTEND
064457,000700: 20,3364 71346 MP DB
064458,000701: 20,3365 50163 DBONE INDEX SIGNAOS # DB1(2)=(1-8 ABSAOS) DB. IF ABSAOS IS
064459,000702: 20,3366 54143 TS DBB1 # GREATER THAN .1875 THEN DB1(2) = -.5 DB
064460,000703: 20,3367 30114 CA DBVAL2
064461,000704: 20,3370 50164 INDEX -SIGNAOS
064462,000705: 20,3371 54146 TS DBB3 # DB3(4) = -.75 DB
064463,000706:
064464,000707: 20,3372 30162 SKIPDB1 CA ABSAOS # ABS(AOS) GREATER THAN AMIN, SO IT IS
064465,000708: 20,3373 00006 EXTEND
064466,000709: 20,3374 74740 MP BIT12
064467,000710: 20,3375 60162 AD ABSAOS # (9/8) ABSAOS.
064468,000711: 20,3376 03700 TC INVERT # ALL RIGHT TO DIVIDE
064469,000712: 20,3377 50164 INDEX -SIGNAOS
064470,000713: 20,3400 54130 TS 1/ACOSTT +1 # 1/ACOASTPOS(NET) = 1/ABS(AOS)
064471,000714: 20,3401 34733 CA 1/.03
064472,000715: 20,3402 50163 INDEX SIGNAOS
064473,000716: 20,3403 54127 TS 1/ACOSTT # 1/ACOASTNEG(POS) = 1/AIN
064474,000717:
064475,000718: 20,3404 30162 CA ABSAOS
064476,000719: 20,3405 61533 AD 1JACCU
064477,000720: 20,3406 61533 AD 1JACCU # 2 JACC + ABS(AOS)
064478,000721: 20,3407 64743 AD BIT9 # MAXIMUM VALUE IN COMPUTATIONS
064479,000722: 20,3410 54000 TS A # TEST FOR OVERFLOW
064480,000723: 20,3411 13456 TCF SKIPDB2 # NO OVERFLOW, DO NORMAL COMPUTATION
064481,000724:
064482,000725: 20,3412 30162 CA ABSAOS # RESCALE TO PI TO PREVENT OVERFLOW
064483,000726: 20,3413 00006 EXTEND
064484,000727: 20,3414 74736 MP BIT14
064485,000728: 20,3415 61533 AD 1JACCU # 1 JACC AT PI/2 = 2JACC AT PI
064486,000729: 20,3416 54157 TS ANET # ANETPOS(NEG) MAX SCALED AT PI =
064487,000730: # ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7)
064488,000731: 20,3417 64744 AD BIT8 # 1 + ANETPOS/ACOASTNEG AT 2(7)
064489,000732: 20,3420 56157 XCH ANET # SAVE IN ANET, WHILE PICKING UP ANET
064490,000733: 20,3421 03700 TC INVERT
064491,000734: 20,3422 00006 EXTEND
064492,000735: # Page 1500
064493,000736: 20,3423 74736 MP BIT14 # SCALE 1/ANET AT 2(7)/PI
064494,000737: 20,3424 54160 TS 1/ANET
064495,000738:
064496,000739: 20,3425 33431 CA ACCHERE # SET UP RETURN FROM COMPUTATION ROUTINE
064497,000740: 20,3426 54161 TS ARET
064498,000741: 20,3427 44744 CS BIT8 # -1 AT 2(7)
064499,000742: 20,3430 13733 TCF DOACCFUN # FINISH ACCFUN COMPUTATION
064500,000743:
064501,000744: 20,3431 13463 ACCHERE TCF ACCTHERE
064502,000745:
064503,000746: 20,3432 54001 NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L
064504,000747: 20,3433 34733 CA 1/.03 # ACOASTPOS,NEG = AMIN
064505,000748: 20,3434 54127 TS 1/ACOSTT
064506,000749: 20,3435 54130 TS 1/ACOSTT +1
064507,000750:
064508,000751: 20,3436 10151 CCS FLATEMP
064509,000752: 20,3437 13456 TCF SKIPDB2 # DO NOT COMPUTE DB IF DRIFT OR GTS
064510,000753:
064511,000754: 20,3440 34744 CA .0125RS # AMIN/2
064512,000755: 20,3441 60001 AD L # L HAS ABS(AOS) - AMIN
064513,000756: 20,3442 00006 EXTEND # RESULT IS ABS(AOS)- AMIN/2
064514,000757: 20,3443 63453 BZMF NOAOS # ABS(AOS) LESS THAN AMIN/2
064515,000758:
064516,000759: 20,3444 30115 SOMEAOS CA DBVAL3 # AMIN/2 LT ABS(AOS) LT AMIN
064517,000760: 20,3445 50164 INDEX -SIGNAOS
064518,000761: 20,3446 54146 TS DBB3 # DB3(4) = DB/2
064519,000762: 20,3447 60000 AD A
064520,000763: 20,3450 50163 INDEX SIGNAOS
064521,000764: 20,3451 54145 TS DBB4 # DB4(3) = DB
064522,000765: 20,3452 13456 TCF SKIPDB2
064523,000766:
064524,000767: 20,3453 31346 NOAOS CA DBVAL1
064525,000768: 20,3454 54146 TS DBB3 # DB3,4 = DB
064526,000769: 20,3455 54145 TS DBB4
064527,000770:
064528,000771: 20,3456 30162 SKIPDB2 CA ABSAOS # ANETPOS(NEG) MAX = 2 JACC + ABS(AOS)
064529,000772: 20,3457 61533 AD 1JACCU
064530,000773: 20,3460 61533 AD 1JACCU
064531,000774: 20,3461 54157 TS ANET # CANNOT OVERFLOW HERE
064532,000775: 20,3462 03724 CL1/NET+ TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN
064533,000776:
064534,000777: 20,3463 50164 ACCTHERE INDEX -SIGNAOS
064535,000778: 20,3464 54134 TS Z5TEM +2 # STORE ACCFUN IN TEMPORARY BUFFER
064536,000779: 20,3465 30160 CA 1/ANET
064537,000780: 20,3466 50164 INDEX -SIGNAOS
064538,000781: 20,3467 54126 TS 1/ATEM2 +2 # STORE 1/ANET IN TEMPORARY BUFFER
064539,000782:
064540,000783: 20,3470 30162 CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
064541,000784: 20,3471 61533 AD 1JACCU
064542,000785: # Page 1501
064543,000786: 20,3472 64743 AD BIT9 # MAXIMUM POSSIBLE VALUE
064544,000787: 20,3473 54000 TS A # OVERFLOW POSSIBLE BUT REMOTE
064545,000788: 20,3474 13476 TCF +2
064546,000789: 20,3475 34733 CA POSMAX # IF OVERFLOW, TRUNCATE TO PI/2
064547,000790: 20,3476 63764 AD -.03R/S2 # RESTORE TO CORRECT VALUE
064548,000791: 20,3477 54157 TS ANET
064549,000792: 20,3500 03724 TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN
064550,000793:
064551,000794: 20,3501 50164 INDEX -SIGNAOS # STORE MIN VALUES JUST AS MAX VALUES
064552,000795: 20,3502 54132 TS Z5TEM
064553,000796: 20,3503 30160 CA 1/ANET
064554,000797: 20,3504 50164 INDEX -SIGNAOS
064555,000798: 20,3505 54124 TS 1/ATEM2
064556,000799:
064557,000800: 20,3506 40162 CS ABSAOS # NOW DO NEG(POS) CASES
064558,000801: 20,3507 61533 AD 1JACCU
064559,000802: 20,3510 61533 AD 1JACCU # ANETNEG(POS) MAX
064560,000803: 20,3511 03712 TC 1/ANET- # COMPUTE 1/ANET, ACCFUN, AND ACCSW
064561,000804: 20,3512 50163 INDEX SIGNAOS # STORE NEG(POS) VALUES JUST AS POS(NEG)
064562,000805: 20,3513 54133 TS Z1TEM +2
064563,000806: 20,3514 54001 TS L # SAVE IN L FOR POSSIBLE FUTURE USE
064564,000807: 20,3515 30160 CA 1/ANET
064565,000808: 20,3516 50163 INDEX SIGNAOS
064566,000809: 20,3517 54125 TS 1/ATEM1 +2
064567,000810: 20,3520 40162 CS ABSAOS
064568,000811: 20,3521 61533 AD 1JACCU # 1/ANETNEG(POS) MIN
064569,000812: 20,3522 54157 TS ANET
064570,000813: 20,3523 63764 AD -.03R/S2 # TEST FOR AMIN
064571,000814: 20,3524 00006 EXTEND # IF ANET LESS THAN AMIN, STORE MAX JET
064572,000815: 20,3525 63743 BZMF FIXMIN # VALUES FOR MIN JETS AND SET ACCSW
064573,000816:
064574,000817: 20,3526 03720 TC 1/NETMIN # OTHERWISE DO MIN JET COMPUTATIONS
064575,000818: 20,3527 50163 STMIN- INDEX SIGNAOS # STORE VALUES
064576,000819: 20,3530 54131 TS Z1TEM
064577,000820: 20,3531 30160 CA 1/ANET
064578,000821: 20,3532 50163 INDEX SIGNAOS
064579,000822: 20,3533 54123 TS 1/ATEM1
064580,000823:
064581,000824: 20,3534 50154 INDEX UV
064582,000825: 20,3535 33770 CA +UMASK
064583,000826: 20,3536 71262 MASK CH5MASK # TEST FOR +U (+V) JET FAILURES
064584,000827: 20,3537 00006 EXTEND
064585,000828: 20,3540 13545 BZF FAIL-
064586,000829: 20,3541 30124 CA 1/ATEM2 # REPLACE FUNCTION VALUES DEPENDING ON THE
064587,000830: 20,3542 54126 TS 1/ATEM2 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
064588,000831: 20,3543 30132 CA Z5TEM # JET (OR AMIN) FUNCTION VALUES
064589,000832: 20,3544 54134 TS Z5TEM +2
064590,000833: 20,3545 50154 FAIL- INDEX UV
064591,000834: # Page 1502
064592,000835: 20,3546 33766 CA -UMASK
064593,000836: 20,3547 71262 MASK CH5MASK # TEST FOR -U (-V) JET FAILURES
064594,000837: 20,3550 00006 EXTEND
064595,000838: 20,3551 13556 BZF DBFUN
064596,000839: 20,3552 30123 CA 1/ATEM1 # REPLACE FUNCTION VALUES DEPENDING ON THE
064597,000840: 20,3553 54125 TS 1/ATEM1 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
064598,000841: 20,3554 30131 CA Z1TEM # JET (OR AMIN) FUNCTION VALUES
064599,000842: 20,3555 54133 TS Z1TEM +2
064600,000843:
064601,000844: 20,3556 40146 DBFUN CS DBB3 # COMPUTE AXISDIST
064602,000845: 20,3557 60143 AD DBB1
064603,000846: 20,3560 60151 AD FLATEMP
064604,000847: 20,3561 54147 TS AXDSTEM
064605,000848: 20,3562 40145 CS DBB4
064606,000849: 20,3563 60144 AD DBB2
064607,000850: 20,3564 60151 AD FLATEMP
064608,000851: 20,3565 54150 TS AXDSTEM +1
064609,000852:
064610,000853: 20,3566 00004 INHINT
064611,000854: 20,3567 10154 CCS UV # TEST FOR U OR V AXIS
064612,000855: 20,3570 13612 TCF STORV # V AXIS STORE V VALUES
064613,000856:
064614,000857: 20,3571 30122 CA ACCSW # U AXIS STORE U VALUES
064615,000858: 20,3572 55547 TS ACCSWU
064616,000859:
064617,000860: 20,3573 34320 CA NINE # TRANSFER 10 WORDS VIA GENTRAN
064618,000861: 20,3574 05545 TC GENTRAN +1
064619,000862: 20,3575 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER
064620,000863: 20,3576 01567 ADRES 1/ANET1 # THE REAL PLACE
064621,000864:
064622,000865: 20,3577 00003 RELINT
064623,000866: 20,3600 52144 DXCH DBB1 # SAVE U DBS FOR LATER STORING
064624,000867: 20,3601 52136 DXCH UDB1
064625,000868: 20,3602 52146 DXCH DBB4
064626,000869: 20,3603 52140 DXCH UDB4
064627,000870:
064628,000871: 20,3604 52150 DXCH AXDSTEM
064629,000872: 20,3605 52142 DXCH UAXDIST
064630,000873:
064631,000874: 20,3606 34753 CA ONE # NOW DO V AXIS
064632,000875: 20,3607 54154 TS UV
064633,000876: 20,3610 34755 CA ZERO
064634,000877: 20,3611 13320 TCF BOTHAXES # AND DO IT AGAIN
064635,000878:
064636,000879: 20,3612 30122 STORV CA ACCSW # STORE V AXIS VALUES
064637,000880: 20,3613 55550 TS ACCSWV
064638,000881: 20,3614 34320 CA NINE
064639,000882: 20,3615 05545 TC GENTRAN +1
064640,000883: # Page 1503
064641,000884: 20,3616 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER
064642,000885: 20,3617 01607 ADRES 1/ANET1 +16D # THE REAL PLACE
064643,000886:
064644,000887: # NOW STORE DEADBANDS FOR ALL AXES
064645,000888: 20,3620 52152 DXCH FLATEMP # FLAT AND ZONE3LIM
064646,000889: 20,3621 53556 DXCH FLAT
064647,000890:
064648,000891: 20,3622 31346 CA DBVAL1 # COMPUTE P AXIS DEADBANDS
064649,000892: 20,3623 55561 TS PDB1
064650,000893: 20,3624 55562 TS PDB2
064651,000894: 20,3625 61555 AD FLAT
064652,000895: 20,3626 55564 TS PDB3
064653,000896: 20,3627 55563 TS PDB4
064654,000897: 20,3630 34755 CA ZERO
064655,000898: 20,3631 55565 TS PAXDIST
064656,000899: 20,3632 55566 TS PAXDIST +1
064657,000900:
064658,000901: 20,3633 11555 CCS FLAT
064659,000902: 20,3634 13652 TCF DRFDB # DRIFT OR GTS -- COMPUTE DBS
064660,000903:
064661,000904: 20,3635 52136 DXCH UDB1 # STORE U DEADBANDS
064662,000905: 20,3636 53602 DXCH FIREDB # CANNOT USE GENTRAN BECAUSE OF RELINT
064663,000906: 20,3637 52140 DXCH UDB4
064664,000907: 20,3640 53604 DXCH COASTDB
064665,000908: 20,3641 52142 DXCH UAXDIST
064666,000909: 20,3642 53606 DXCH AXISDIST
064667,000910: 20,3643 52144 DXCH DBB1 # STORE V AXIS DEADBANDS
064668,000911: 20,3644 53622 DXCH FIREDB +16D # COULD USE GENTRAN IF DESIRED
064669,000912: 20,3645 52146 DXCH DBB4
064670,000913: 20,3646 53624 DXCH COASTDB +16D
064671,000914: 20,3647 52150 DXCH AXDSTEM
064672,000915: 20,3650 53626 DXCH AXISDIST +16D
064673,000916:
064674,000917: 20,3651 13672 TCF 1/ACCRET +1 # ALL DONE
064675,000918: 20,3652 31346 DRFDB CA DBVAL1 # DRIFT DEADBANDS
064676,000919: 20,3653 55601 TS FIREDB
064677,000920: 20,3654 55602 TS FIREDB +1
064678,000921: 20,3655 55621 TS FIREDB +16D
064679,000922: 20,3656 55622 TS FIREDB +17D
064680,000923: 20,3657 61555 AD FLAT
064681,000924: 20,3660 55603 TS COASTDB
064682,000925: 20,3661 55604 TS COASTDB +1
064683,000926: 20,3662 55623 TS COASTDB +16D
064684,000927: 20,3663 55624 TS COASTDB +17D
064685,000928: 20,3664 34755 CA ZERO
064686,000929: 20,3665 55605 TS AXISDIST
064687,000930: 20,3666 55606 TS AXISDIST +1
064688,000931: 20,3667 55625 TS AXISDIST +16D
064689,000932: 20,3670 55626 TS AXISDIST +17D
064690,000933:
064691,000934: # Page 1504
064692,000935: 20,3671 00004 1/ACCRET INHINT
064693,000936: 20,3672 40111 CS DAPBOOLS # SET BIT TO INDICATE DATA GOOD.
064694,000937: 20,3673 74751 MASK ACCSOKAY
064695,000938: 20,3674 26111 ADS DAPBOOLS
064696,000939: 20,3675 00003 RELINT
064697,000940: 20,3676 30117 CA ACCRETRN
064698,000941: 20,3677 04640 TC BANKJUMP # RETURN TO CALLER
064699,000942:
064700,000943: 20,3700 54165 INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2
064701,000944: 20,3701 34743 CA BIT9 # 1 AT 2(6)
064702,000945: 20,3702 22007 ZL # ZERO L FOR ACCURACY AND TO PREVENT OVFLO
064703,000946: 20,3703 00006 EXTEND
064704,000947: 20,3704 10165 DV HOLD
064705,000948: 20,3705 00002 TC Q # RESULT AT 2(7)/PI
064706,000949:
064707,000950: 20,3706 34755 DOWNGTS CAF ZERO # ZERO SWITCHES WHEN USEQRJTS BIT IS UP
064708,000951: 20,3707 55502 TS ALLOWGTS # OR DAP IS OFF
064709,000952: 20,3710 55633 TS INGTS
064710,000953: 20,3711 12773 TCF DOCKTEST
064711,000954:
064712,000955: 20,3712 22007 1/ANET- ZL
064713,000956: 20,3713 22122 LXCH ACCSW # ZERO ACCSW
064714,000957: 20,3714 54157 TS ANET # SAVE ANET
064715,000958: 20,3715 63764 AD -.03R/S2 # TEST FOR MIN VALUE
064716,000959: 20,3716 00006 EXTEND
064717,000960: 20,3717 63740 BZMF NETNEG # ANET LESS THAN AMIN, SO FAKE IT
064718,000961: 20,3720 30157 1/NETMIN CA ANET
064719,000962: 20,3721 00006 EXTEND
064720,000963: 20,3722 50164 INDEX -SIGNAOS
064721,000964: 20,3723 70130 MP 1/ACOSTT +1 # ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
064722,000965:
064723,000966: # THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
064724,000967: # VALUES OF AOS
064725,000968:
064726,000969: 20,3724 64743 DO1/NET+ AD BIT9 # 1 + ANET/ACOAST AT 2(6)
064727,000970: 20,3725 56157 XCH ANET # SAVE AND PICK UP ANET
064728,000971: 20,3726 00006 EXTEND
064729,000972: 20,3727 22161 QXCH ARET # SAVE RETURN
064730,000973: 20,3730 03700 TC INVERT
064731,000974: 20,3731 54160 TS 1/ANET # 1/ANET AT 2(7)/PI
064732,000975: 20,3732 44743 CS BIT9 # -1 AT 2(6)
064733,000976: 20,3733 00006 DOACCFUN EXTEND
064734,000977: 20,3734 70160 MP 1/ANET # -1/ANET AT 2(13)/PI
064735,000978: 20,3735 00006 EXTEND
064736,000979: 20,3736 10157 DV ANET # ACCFUN AT 2(7)/PI
064737,000980: 20,3737 00161 TC ARET # RETURN
064738,000981:
064739,000982: 20,3740 43764 NETNEG CS -.03R/S2 # ANET LESS THAN AMIN -- SET EQUAL TO AMIN
064740,000983: 20,3741 54157 TS ANET
064741,000984: # Page 1505
064742,000985: 20,3742 13721 TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED.
064743,000986:
064744,000987: 20,3743 10163 FIXMIN CCS SIGNAOS
064745,000988: 20,3744 34752 CA TWO # IF AOS NEG, ACCSW = +1
064746,000989: 20,3745 67747 AD NEGONE # IF AOS POS, ACCSW = -1
064747,000990: 20,3746 54122 TS ACCSW
064748,000991: 20,3747 60154 AD UV # IF ACCSW = +1, TEST FOR +U (+V) JET FAIL
064749,000992: 20,3750 50000 INDEX A # IF ACCSW = -1, TEST FOR -U (-V) JET FAIL
064750,000993: 20,3751 33767 CA -UMASK +1
064751,000994: 20,3752 71262 MASK CH5MASK
064752,000995: 20,3753 00006 EXTEND
064753,000996: 20,3754 13760 BZF +4
064754,000997: 20,3755 43764 CS -.03R/S2 # JET FAILURE -- CANNOT USE 2-JET VALUES
064755,000998: 20,3756 54157 TS ANET # ANET = AMIN
064756,000999: 20,3757 13526 TCF STMIN- -1 # CALCULATE FUNCTIONS USING AMIN
064757,001000: 20,3760 30001 CA L # L HAS ACCFUN
064758,001001: 20,3761 13527 TCF STMIN- # STORE MAX VALUES FOR MIN JETS
064759,001002:
064760,001003: # ERASABLE ASSIGNMENTS FOR 1/ACCONT
064761,001004:
064762,001005: 20,3762 E6,1551 1/ANETP EQUALS BLOCKTOP +2
064763,001006: 20,3762 E6,1553 1/ACOSTP EQUALS BLOCKTOP +4
064764,001007: 20,3762 E6,1557 PACCFUN EQUALS BLOCKTOP +8D
064765,001008: 20,3762 E6,1561 PDB1 EQUALS BLOCKTOP +10D
064766,001009: 20,3762 E6,1562 PDB2 EQUALS BLOCKTOP +11D
064767,001010: 20,3762 E6,1563 PDB4 EQUALS BLOCKTOP +12D
064768,001011: 20,3762 E6,1564 PDB3 EQUALS BLOCKTOP +13D
064769,001012: 20,3762 E6,1565 PAXDIST EQUALS BLOCKTOP +14D
064770,001013:
064771,001014: 20,3762 0122 ACCSW EQUALS VBUF # EXECUTIVE TEMPORARIES
064772,001015: # CANNOT DO CCS NEWJOB DURING 1/ACCS
064773,001016: 20,3762 0123 1/ATEM1 EQUALS ACCSW +1 # TEMP BUFFER FOR U AND V AXES
064774,001017: 20,3762 0124 1/ATEM2 EQUALS 1/ATEM1 +1
064775,001018: 20,3762 0127 1/ACOSTT EQUALS 1/ATEM1 +4
064776,001019: 20,3762 0131 Z1TEM EQUALS 1/ATEM1 +6
064777,001020: 20,3762 0132 Z5TEM EQUALS 1/ATEM1 +7
064778,001021:
064779,001022: 20,3762 0135 UDB1 EQUALS 1/ATEM1 +10D # UAXIS DEADBAND BUFFER
064780,001023: 20,3762 0136 UDB2 EQUALS 1/ATEM1 +11D
064781,001024: 20,3762 0137 UDB4 EQUALS 1/ATEM1 +12D
064782,001025: 20,3762 0140 UDB3 EQUALS 1/ATEM1 +13D
064783,001026: 20,3762 0141 UAXDIST EQUALS 1/ATEM1 +14D
064784,001027:
064785,001028: 20,3762 0143 DBB1 EQUALS 1/ATEM1 +16D # TEMP DEADBAND BUFFER, ALSO V AXIS
064786,001029: 20,3762 0144 DBB2 EQUALS 1/ATEM1 +17D
064787,001030: 20,3762 0145 DBB4 EQUALS 1/ATEM1 +18D
064788,001031: 20,3762 0146 DBB3 EQUALS 1/ATEM1 +19D
064789,001032: 20,3762 0147 AXDSTEM EQUALS 1/ATEM1 +20D
064790,001033:
064791,001034: # Page 1506
064792,001035: 20,3762 0151 FLATEMP EQUALS 1/ATEM1 +22D
064793,001036: 20,3762 0152 Z3TEM EQUALS 1/ATEM1 +23D # MUST FOLLOW FLATEMP
064794,001037:
064795,001038: 20,3762 1346 DBVAL1 EQUALS DB
064796,001039: 20,3762 0114 DBVAL2 EQUALS INTB15+
064797,001040: 20,3762 0115 DBVAL3 EQUALS INTB15+ +1
064798,001041:
064799,001042: 20,3762 0116 DRIFTER EQUALS INTB15+ +2
064800,001043:
064801,001044: 20,3762 0154 UV EQUALS MPAC
064802,001045: 20,3762 0157 ANET EQUALS MPAC +3
064803,001046: 20,3762 0157 FUNTEM EQUALS MPAC +3
064804,001047: 20,3762 0160 1/ANET EQUALS MPAC +4
064805,001048: 20,3762 0161 ARET EQUALS MPAC +5
064806,001049: 20,3762 0162 ABSAOS EQUALS MPAC +6
064807,001050: 20,3762 0163 SIGNAOS EQUALS MPAC +7
064808,001051: 20,3762 0164 -SIGNAOS EQUALS MPAC +8D
064809,001052: 20,3762 0165 HOLD EQUALS MPAC +9D
064810,001053: 20,3762 0117 ACCRETRN EQUALS FIXLOC -1
064811,001054:
064812,001055: 20,3762 00110 ZONE3MAX DEC .004375 # 17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
064813,001056: 20,3763 00443 FLATVAL DEC .01778 # .8 AT PI/4 RAD
064814,001057: 20,3764 77377 -.03R/S2 OCT 77377 # -PI/2(7) AT PI/2
064815,001058:
064816,001059: 20,3765 4744 .0125RS EQUALS BIT8 # PI/2(+8) AT PI/2
064817,001060: 20,3765 4733 1/.03 EQUALS POSMAX # 2(7)/PI AT 2(7)/PI
064818,001061:
064819,001062: 20,3765 02213 PAXISADR GENADR PAXIS
064820,001063:
064821,001064: # THE FOLLOWING 4 CONSTANTS ARE JET
064822,001065: # FAILURE MASKS AND ARE INDEXED
064823,001066: 20,3766 00110 -UMASK OCT 00110 # -U
064824,001067: 20,3767 00022 OCT 00022 # -V
064825,001068: 20,3770 00204 +UMASK OCT 00204 # +U
064826,001069: 20,3771 00041 OCT 00041 # +V
064827,001070:
End of include-file AOSTASK_AND_AOSJOB.agc. Parent file is MAIN.agc