Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
064484,000002: ## Copyright: Public domain.
064485,000003: ## Filename: AOSTASK_AND_AOSJOB.agc
064486,000004: ## Purpose: A section of Luminary revision 210.
064487,000005: ## It is part of the source code for the Lunar Module's (LM)
064488,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
064489,000007: ## This file is intended to be a faithful transcription, except
064490,000008: ## that the code format has been changed to conform to the
064491,000009: ## requirements of the yaYUL assembler rather than the
064492,000010: ## original YUL assembler.
064493,000011: ## Reference: pp. 1483-1504
064494,000012: ## Assembler: yaYUL
064495,000013: ## Contact: Ron Burkey <info@sandroid.org>.
064496,000014: ## Website: www.ibiblio.org/apollo/index.html
064497,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
064498,000016: ## 2016-12-10 HG Transcribed
064499,000017: ## 2016-12-12 HG Bumped a -1 into column 2 to fix a yaYUL warning.
064500,000018: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
064501,000019: ## and corrected errors found.
064502,000020: ## 2017-03-10 RSB Comment-text fixes noted in proofing Luminary 116.
064503,000021:
|
|
Page 1483 |
064505,000023: # PROGRAM NAME: 1/ACCS
064506,000024: # PROGRAM WRITTEN BY: BOB COVELLI AND MIKE HOUSTON
064507,000025: # LAST MODIFICATION: FEB.14,1969 BY G. KALAN
064508,000026:
064509,000027: # PROGRAM DESCRIPTION:
064510,000028:
064511,000029: # 1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A
064512,000030: # CHANGE IN THE MASS OF THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT-
064513,000031: # DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP.
064514,000032:
064515,000033: # THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR),
064516,000034: # STAGE VERIFY BIT (CHAN30,BIT2), DOCKED BIT (DAPBOOLS,BIT13), DRIFT BIT (DAPBOOLS,BIT8), USEQRJTS (DAPBOOLS,
064517,000035: # BIT14), AND SURFACE FLAG (FLAGWRD8,BIT8), AND CH5MASK.
064518,000036:
064519,000037: # 1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE
064520,000038: # FORMED BY RESOLVING 1JACCQ NAD 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L,PVT-CG) IS ALSO
064521,000039: # COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ,
064522,000040: # ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE.
064523,000041:
064524,000042: # AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL NET ACCELERATIONS ABOUT THE P, U,
064525,000043: # AND V AXES (2 JETS FOR P AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT
064526,000044: # THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5)ARE ALSO COMPUTED FOR THESE AXES. THE
064527,000045: # FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS. FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE
064528,000046: # MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
064529,000047: # IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
064530,000048:
064531,000049:
064532,000050: # SUBBOUTINES CALLED:
064533,000051:
064534,000052: # TIMEGMBL
064535,000053: # MAKECADR
064536,000054: # ROT45DEG
064537,000055:
064538,000056: # CALLING SEQUENCE:
064539,000057:
064540,000058: # TC BANKCALL (1/ACCS MUST BE CALL BY BANKCALL
064541,000059: # CADR 1/ACCS
064542,000060:
064543,000061: # NORMAL EXIT: VIA BANKJUMP ALARM AND ABORT EXIT MODES: NONE.
064544,000062:
064545,000063: # INPUT/OUTPUT: SEE PROGRAM DESCRIPTION
064546,000064:
064547,000065: # DEBRIS:
064548,000066:
064549,000067: # ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
064550,000068:
064551,000069: # RESTRICTIONS:
064552,000070:
064553,000071: # 1/ACCS MUST BE CALLED BY BANKCALL
064554,000072: # EBANK IS SET TO 6, BUT NOT RESTORED.
064555,000073:
|
|
Page 1484 |
064557,000075:
064558,000076: 21,3576 BANK 21
064559,000077: 21,2000 SETLOC DAPS4
064560,000078: 21,2000 BANK
064561,000079:
064562,000080: 21,3576 COUNT* $$/DAPAO
064563,000081:
064564,000082: 21,3576 E6,1536 EBANK= AOSQ
064565,000083:
064566,000084: # ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
064567,000085:
064568,000086: # IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF
064569,000087: # NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
064570,000088:
064571,000089: 21,3576 34746 1/ACCSET CAF ZERO # ENTRY FROM FRESH START/RESTART CODING.
064572,000090: 21,3577 55536 TS AOSQ # NULL THE OFFSET ESTIMATES FOR 1/ACCS.
064573,000091: 21,3600 55540 TS AOSR
064574,000092: 21,3601 55424 TS ALPHAQ # NULL THE OFFSET ESTIMATES FOR DOWNLIST
064575,000093: 21,3602 55425 TS ALPHAR
064576,000094:
064577,000095: 21,3603 04607 1/ACCJOB TC BANKCALL # 1/ACCS ASSUMES ENTRY VIA BANKCALL.
064578,000096: 21,3604 40465 CADR 1/ACCS +2 # SKIP EBANK SETTING.
064579,000097:
064580,000098: 21,3605 05146 TC ENDOFJOB
064581,000099:
064582,000100: 20,2463 BANK 20
064583,000101: 20,2000 SETLOC DAPS3
064584,000102: 20,2000 BANK
064585,000103: 20,2463 COUNT* $$/DAPAO
064586,000104:
064587,000105: 20,2463 35006 1/ACCS CA EBANK6 # ***** EBANK SET BUT NOT RESTORED *****
064588,000106: 20,2464 54003 TS EBANK
064589,000107:
064590,000108: 20,2465 04636 TC MAKECADR # SAVE RETURN SO THAT BUF2 MAY BE USED
064591,000109: 20,2466 54117 TS ACCRETRN
064592,000110:
064593,000111: # DETERMINE MASS OF THE LEM.
064594,000112: 20,2467 30111 CA DAPBOOLS # IS CSM DOCKED
064595,000113: 20,2470 74730 MASK CSMDOCKD
064596,000114: 20,2471 54157 TS DOCKTEMP # STORE RECORD OF STATE IN TEMP (MPAC +3).
064597,000115: 20,2472 10000 CCS A
064598,000116: 20,2473 41327 CS CSMMASS # DOCKED: LEMMASS = MASS - CSMMASS
064599,000117: 20,2474 61243 AD MASS # LEM ALONE: LEMMASS = MASS
064600,000118: 20,2475 55326 TS LEMMASS
064601,000119:
064602,000120: # ON THE BASIS OF APSFLAG:
064603,000121: # SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/4-JET CONTROL
064604,000122: # SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
064605,000123: # ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
064606,000124:
064607,000125: 20,2476 00004 INHINT
064608,000126:
|
|
Page 1485 |
064610,000128: 20,2477 30106 CAE FLGWRD10 # DETERMINE WHETHER STAGED.
064611,000129: 20,2500 74730 MASK APSFLBIT
064612,000130: 20,2501 00006 EXTEND
064613,000131: 20,2502 12526 BZF DPSFLITE
064614,000132:
064615,000133: 20,2503 44724 CS POSMAX # ASCENT (OR ON LUNAR SURFACE)
064616,000134: 20,2504 55475 TS -2JETLIM # ALWAYS 2 JETS FOR P-AXIS RATE COMMAND
064617,000135: 20,2505 35745 CAF OCT14 # INITIALIZE INDEX AT 12.
064618,000136: 20,2506 54154 TS MPAC
064619,000137: 20,2507 41326 CS LEMMASS # CHECK IF MASS TOO HIGH. CATCH STAGING.
064620,000138: 20,2510 61400 AD HIASCENT
064621,000139: 20,2511 00006 EXTEND
064622,000140: 20,2512 62517 BZMF MASSFIX
064623,000141: 20,2513 41326 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE
064624,000142: 20,2514 62001 AD LOASCENT # DECREMENTING BY MASSMON.
064625,000143: 20,2515 00006 EXTEND
064626,000144: 20,2516 62544 BZMF F(MASS)
064627,000145:
064628,000146: 20,2517 27326 MASSFIX ADS LEMMASS # STORE THE VIOLATED LIMIT AS LEMMASS.
064629,000147: 20,2520 22007 ZL # ALSO CORRECT TOTAL MASS, ZEROING THE
064630,000148: 20,2521 10157 CCS DOCKTEMP # LOW-ORDER WORD.
064631,000149: 20,2522 31327 CAE CSMMASS # DOCKED: MASS = LEMMASS + CSMMASS
064632,000150: 20,2523 61326 AD LEMMASS # LEM ALONE: MASS = LEMMASS
064633,000151: 20,2524 53244 DXCH MASS
064634,000152: 20,2525 12544 TCF F(MASS)
064635,000153:
064636,000154: 20,2526 44733 DPSFLITE CS BIT10 # FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
064637,000155: 20,2527 55475 TS -2JETLIM # EXCEEDING 1.4 DEG/SEC (SCALED AT 45)
064638,000156: 20,2530 36263 CAF SIX # INITIALIZE INDEX AT 6.
064639,000157: 20,2531 54154 TS MPAC
064640,000158: 20,2532 41326 CS LEMMASS # CHECK IF MASS TOO HIGH. SHOULD NEVER
064641,000159: 20,2533 62002 AD HIDESCNT # OCCUR EXCEPT PERHAPS BEFORE THE PAD
064642,000160: 20,2534 00006 EXTEND # LOAD IS DONE.
064643,000161: 20,2535 62517 BZMF MASSFIX
064644,000162: 20,2536 41326 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE
064645,000163: 20,2537 62003 AD LODESCNT # DECREMENTING BY MASSMON.
064646,000164: 20,2540 61400 AD HIASCENT
064647,000165: 20,2541 00006 EXTEND
064648,000166: 20,2542 62544 BZMF F(MASS)
064649,000167: 20,2543 12517 TCF MASSFIX
064650,000168: # COMPUTATION OF FUNCTIONS OF MASS
064651,000169:
064652,000170: 20,2544 00003 F(MASS) RELINT
064653,000171: 20,2545 10157 CCS DOCKTEMP
064654,000172: 20,2546 13063 TCF DOCKED # DOCKED: USE SEPERATE COMPUTATION.
064655,000173: 20,2547 34743 CA TWO
064656,000174: 20,2550 54155 STCTR TS MPAC +1 # J=2,1,0 FOR 1JACCR,1JACCQ,1JACC
064657,000175:
064658,000176: 20,2551 44743 CS TWO
064659,000177: 20,2552 26154 ADS MPAC # JX=10,8,6 OR 4,2,0 TO INDEX COEFS.
064660,000178:
|
|
Page 1486 |
064662,000180: 20,2553 31326 STCTR1 CAE LEMMASS
064663,000181: 20,2554 50154 INDEX MPAC
064664,000182: 20,2555 63042 AD INERCONC
064665,000183: 20,2556 54156 TS MPAC +2 # MASS + C
064666,000184: 20,2557 00006 EXTEND
064667,000185: 20,2560 50154 INDEX MPAC
064668,000186: 20,2561 33024 DCA INERCONA
064669,000187: 20,2562 00006 EXTEND
064670,000188: 20,2563 10156 DV MPAC +2
064671,000189: 20,2564 50154 INDEX MPAC
064672,000190: 20,2565 63041 AD INERCONB
064673,000191: 20,2566 50155 INDEX MPAC +1 # 1JACC(J)=A(JX)/(MASS+C(JX) + B(JX)
064674,000192: 20,2567 55530 TS 1JACC # 1JACC(-1)=L,PVT-CG SCALED AT 8 FEET
064675,000193:
064676,000194: 20,2570 10155 CCS MPAC +1
064677,000195: 20,2571 12550 TCF STCTR
064678,000196: 20,2572 12574 TCF COMMEQS
064679,000197: 20,2573 12673 TCF LRESC
064680,000198:
064681,000199: # COEFFQ AND COEFFR ARE COMPUTED IN THIS SECTION. THEY ARE USED TO RESOLVE Q-R COMPONENTS INTO NON-ORTHOGONAL
064682,000200: # U AND V COMPONENTS (SEE ROT-TOUV SECTION).
064683,000201:
064684,000202: 20,2574 22007 COMMEQS ZL
064685,000203: 20,2575 41532 CS 1JACCR
064686,000204: 20,2576 61531 AD 1JACCQ
064687,000205: 20,2577 00006 EXTEND
064688,000206: 20,2600 62624 BZMF BIGIQ
064689,000207: 20,2601 00006 EXTEND # EPSILON IS A MEASURE OF COUPLING AND IS
064690,000208: 20,2602 11531 DV 1JACCQ # DEFINED=1-IQ/IR FOR IR GREATER THAN IQ.
064691,000209: 20,2603 54155 TS EPSILON # THE COMPUTED EXPRESSION IS EQUIVALENT
064692,000210: 20,2604 63062 AD -EPSMAX
064693,000211: 20,2605 00006 EXTEND
064694,000212: 20,2606 62611 BZMF GOODEPS1
064695,000213: 20,2607 43062 CS -EPSMAX
064696,000214: 20,2610 54155 TS EPSILON # EPSILON IS LIMITED TO A MAX. OF .42265
064697,000215: 20,2611 30155 GOODEPS1 CA EPSILON
064698,000216: 20,2612 00006 EXTEND
064699,000217: 20,2613 73056 MP 0.35356
064700,000218: 20,2614 63060 AD .7071
064701,000219: 20,2615 55627 TS COEFFR # IN THIS CASE WHERE IR IS GREATER THAN
064702,000220: 20,2616 44724 CS POSMAX # IQ, COEFFQ=-.707(1+.5EPSILON)(1-EPSILON)
064703,000221: 20,2617 60155 AD EPSILON # AND COEFFR=.707(1+.5EPSILON)
064704,000222: 20,2620 00006 EXTEND
064705,000223: 20,2621 71627 MP COEFFR
064706,000224: 20,2622 55626 TS COEFFQ
064707,000225: 20,2623 12647 TCF JACCUV
064708,000226: 20,2624 00006 BIGIQ EXTEND # EPSILON IS DEFINED AS 1-IR/IQ FOR IQ
064709,000227: 20,2625 11532 DV 1JACCR # GREATER THAN IR. -EPSILON IS COMPUTED
064710,000228: 20,2626 54155 TS -EPSILON # RATHER THAN EPSILON FOR CONVENIENCE
064711,000229: 20,2627 40155 CS -EPSILON
064712,000230:
|
|
Page 1487 |
064714,000232: 20,2630 63062 AD -EPSMAX
064715,000233: 20,2631 00006 EXTEND
064716,000234: 20,2632 62635 BZMF GOODEPS2
064717,000235: 20,2633 33062 CA -EPSMAX
064718,000236: 20,2634 54155 TS -EPSILON # EPSILON IS LIMITED TO A MAX. OF .42265
064719,000237: 20,2635 30155 GOODEPS2 CA -EPSILON
064720,000238: 20,2636 00006 EXTEND
064721,000239: 20,2637 73056 MP 0.35356
064722,000240: 20,2640 63061 AD -.7071
064723,000241: 20,2641 55626 TS COEFFQ # IN THIS CASE WHERE IQ IS GREATER THAN
064724,000242: 20,2642 40155 CS -EPSILON # IR, COEFFQ=-.707(1+.5EPSILON) AND
064725,000243: 20,2643 64726 AD NEGMAX # COEFFR=.707(1+.5EPSILON)(1-EPSILON)
064726,000244: 20,2644 00006 EXTEND
064727,000245: 20,2645 71626 MP COEFFQ
064728,000246: 20,2646 55627 TS COEFFR
064729,000247: 20,2647 41626 JACCUV CS COEFFQ
064730,000248: 20,2650 00006 EXTEND
064731,000249: 20,2651 71531 MP 1JACCQ # 1JACCQ IS SCALED AT PI/4
064732,000250: 20,2652 55533 TS 1JACCU # 1JACCU USED AS TEMPORARY STORAGE
064733,000251: 20,2653 31627 CA COEFFR
064734,000252: 20,2654 00006 EXTEND
064735,000253: 20,2655 71532 MP 1JACCR
064736,000254: 20,2656 61533 AD 1JACCU
064737,000255: 20,2657 00006 EXTEND
064738,000256: 20,2660 74727 MP BIT14 # SCALING CHANGED FROM PI/4 TO PI/2
064739,000257: 20,2661 55533 TS 1JACCU # SCALED AT PI/2 RADIANS/SEC(2)
064740,000258: 20,2662 10154 CCS MPAC # COMPUTE L,PVT-CG IF IN DESCENT
064741,000259: 20,2663 34746 CAF ZERO # ZERO SWITCHES AND GO TO 1/ACCONT IN
064742,000260: 20,2664 55502 TS ALLOWGTS # ASCENT
064743,000261: 20,2665 13206 TCF 1/ACCONT -1
064744,000262:
064745,000263: 20,2666 44743 CS TWO
064746,000264: 20,2667 54154 TS MPAC
064747,000265: 20,2670 44744 CS ONE
064748,000266: 20,2671 54155 TS MPAC +1
064749,000267: 20,2672 12553 TCF STCTR1
064750,000268: # THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS. THE EQUATION IMPLE
064751,000269: # MENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
064752,000270: # T = ENGINE THRUST FORCE
064753,000271: # L = PIVOT TO CG DISTANCE OF ENGINE
064754,000272: # I = MOMENT OF INERTIA
064755,000273:
064756,000274: 20,2673 31245 LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
064757,000275: 20,2674 00006 EXTEND
064758,000276: 20,2675 71243 MP MASS # SCALED AT B+16 KGS
064759,000277: 20,2676 02760 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064760,000278: 20,2677 03057 ADRES GFACTM
064761,000279:
064762,000280: # MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
064763,000281: # THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO
064764,000282:
|
|
Page 1488 |
064766,000284: # THAT IS UNCONVERTED. 2.20462 CONVERTS KG. TO LB. NOW T IS IN A SCALED AT 2(14).
064767,000285:
064768,000286: 20,2700 00006 EXTEND
064769,000287: 20,2701 71527 MP L,PVT-CG # SCALED AT 8 FEET.
064770,000288: 20,2702 00004 INHINT
064771,000289: 20,2703 54154 TS MPAC
064772,000290: 20,2704 00006 EXTEND
064773,000291: 20,2705 71532 MP 1JACCR
064774,000292: 20,2706 02760 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064775,000293: 20,2707 02000 ADRES TORKJET1
064776,000294:
064777,000295: 20,2710 55511 TS ACCDOTR # SCALED AT PI/2(7)
064778,000296: 20,2711 30154 CA MPAC
064779,000297: 20,2712 00006 EXTEND
064780,000298: 20,2713 71531 MP 1JACCQ
064781,000299: 20,2714 02760 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064782,000300: 20,2715 02000 ADRES TORKJET1
064783,000301:
064784,000302: 20,2716 55507 SPSCONT TS ACCDOTQ # SCALED AT PI/2(7)
064785,000303: 20,2717 00006 EXTEND
064786,000304: 20,2720 73055 MP DGBF # .3ACCDOTQ SCALED AT PI/2(8)
064787,000305: 20,2721 55504 TS KQ
064788,000306: 20,2722 31511 CAE ACCDOTR # .3ACCDOTR AT PI/2(8)
064789,000307: 20,2723 00006 EXTEND
064790,000308: 20,2724 73055 MP DGBF
064791,000309: 20,2725 55506 TS KRDAP
064792,000310: 20,2726 11510 CCS QACCDOT # UPDATE THE JERK VALUES USED BY THE STATE
064793,000311: 20,2727 31507 CA ACCDOTQ # ESTIMATOR WITH THE MAGNITUDES THAT
064794,000312: 20,2730 12732 TCF +2 # HAVE JUST BEEN COMPUTED.
064795,000313: 20,2731 41507 CS ACCDOTQ
064796,000314: 20,2732 55510 +2 TS QACCDOT
064797,000315: 20,2733 11512 CCS RACCDOT
064798,000316: 20,2734 31511 CA ACCDOTR
064799,000317: 20,2735 12737 TCF +2
064800,000318: 20,2736 41511 CS ACCDOTR
064801,000319: 20,2737 55512 +2 TS RACCDOT
064802,000320: 20,2740 40111 CS DAPBOOLS # IS GIMBAL USABLE?
064803,000321: 20,2741 74727 MASK USEQRJTS
064804,000322: 20,2742 00006 EXTEND
064805,000323: 20,2743 13664 BZF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064806,000324: 20,2744 41262 CS T5ADR # YES. IS THE DAP RUNNING?
064807,000325: 20,2745 63744 AD PAXISADR
064808,000326: 20,2746 00006 EXTEND
064809,000327: 20,2747 12751 BZF +2
064810,000328: 20,2750 13664 TCF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064811,000329: 20,2751 11632 CCS INGTS # YES. IS GTS IN CONTROL?
064812,000330: 20,2752 12755 TCF DOCKTEST # YES. PROCEED WITH 1/ACCS.
064813,000331: 20,2753 04665 TC IBNKCALL # NO. NULL OFFSET AND FIND ALLOWGTS
064814,000332: 20,2754 43260 CADR TIMEGMBL
064815,000333:
|
|
Page 1489 |
064817,000335: 20,2755 10157 DOCKTEST CCS DOCKTEMP # BYPASS 1/ACCONT WHEN DOCKED.
064818,000336: 20,2756 13647 TCF 1/ACCRET
064819,000337: 20,2757 13207 TCF 1/ACCONT
064820,000338:
|
|
Page 1490 |
064822,000340: # SUBROUTINE: DVOVSUB
064823,000341:
064824,000342: # AUTHOR: C. WORK, MOD 0 12 JUNE 68
064825,000343:
064826,000344: # PURPOSE: THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
064827,000345: # (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
064828,000346: # (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
064829,000347: # (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
064830,000348: # THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6.
064831,000349: # THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE. SIGN AGREEMENT IS
064832,000350: # ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE RE-
064833,000351: # SULT OF A MULTIPLICATION OPERATION.)
064834,000352: # CALL SEQUENCE:
064835,000353: # L TC DVOVSUB
064836,000354: # L +1 ADRES (DIVISOR)
064837,000355: # L +2 RETURN HERE, WITH RESULT IN A,L
064838,000356:
064839,000357: # INPUT: DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
064840,000358: # DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
064841,000359:
064842,000360: # OUTPUT: QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
064843,000361:
064844,000362: # DEBRIS: SCRATCHX,SCRATCHY,SCRATCHZ,A,L (NOTE: SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.)
064845,000363:
064846,000364: # ABORTS OR ALARMS: NONE
064847,000365:
064848,000366: # EXITS: TO THE CALL POINT + 2.
064849,000367:
064850,000368: # SUBROUTINES CALLED: NONE.
064851,000369:
064852,000370: 20,2760 54161 DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND
064853,000371: 20,2761 54160 TS SCRATCHX
064854,000372: 20,2762 50002 INDEX Q # OBTAIN ADDRESS OF DIVISOR.
064855,000373: 20,2763 30000 CA 0
064856,000374: 20,2764 24002 INCR Q # STEP Q FOR PROPER RETURN SEQUENCE.
064857,000375: 20,2765 50000 INDEX A
064858,000376: 20,2766 30000 CA 0 # PICK UP THE DIVISOR.
064859,000377: 20,2767 00006 EXTEND # RETURN POSMAX FOR A ZERO DIVISOR.
064860,000378: 20,2770 13017 BZF MAXPLUS
064861,000379:
064862,000380: 20,2771 54162 TS SCRATCHZ # STORE DIVISOR.
064863,000381:
064864,000382: 20,2772 10000 CCS A # GET ABS(DIVISOR) IN THE A REGISTER.
064865,000383: 20,2773 64744 AD BIT1
064866,000384: 20,2774 12776 TCF ZEROPLUS
064867,000385: 20,2775 64744 AD BIT1
064868,000386:
064869,000387: 20,2776 56161 ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF
064870,000388: 20,2777 00006 EXTEND # DIVIDEND.
064871,000389: 20,3000 63002 BZMF GOODNEG # GET -ABS(DIVIDEND)
064872,000390:
|
|
Page 1491 |
064874,000392: 20,3001 40000 CS A
064875,000393:
064876,000394: 20,3002 60161 GOODNEG AD SCRATCHY # ABS(DIVISOR) - ABS(DIVIDEND)
064877,000395: 20,3003 00006 EXTEND
064878,000396: 20,3004 63011 BZMF MAKEMAX # BRANCH IF DIVISION IS NOT PROPER.
064879,000397:
064880,000398: 20,3005 30160 CA SCRATCHX # RE-ESTABLISH THE DIVIDEND.
064881,000399: 20,3006 00006 EXTEND
064882,000400: 20,3007 10162 DV SCRATCHZ # QUOTIENT IN THE A, REMAINDER IN L.
064883,000401: 20,3010 00002 TC Q # RETURN TO CALLER.
064884,000402:
064885,000403: 20,3011 10160 MAKEMAX CCS SCRATCHX # DETERMINE THE SIGN OF THE QUOTIENT.
064886,000404: 20,3012 10162 CCS SCRATCHZ # SCRATCHX AND SCRATCHZ ARE NON-ZERO.
064887,000405: 20,3013 13017 TCF MAXPLUS
064888,000406: 20,3014 10162 CCS SCRATCHZ
064889,000407: 20,3015 34726 CAF NEGMAX # +,- OR -,+
064890,000408: 20,3016 00002 TC Q
064891,000409: 20,3017 34724 MAXPLUS CAF POSMAX # -,- OR +,+
064892,000410: 20,3020 00002 TC Q
064893,000411:
064894,000412: # COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
064895,000413: # THE CURVE FITS ARE OF THE FORM -
064896,000414:
064897,000415: # 1JACC = A/(MASS + C) + B
064898,000416:
064899,000417: # A IS SCALED AT PI/4 RAD/SEC**2 B+16KG, B IS SCALED AT PI/4 RAD/SEC**2, AND C IS SCALED AT B +16 KG.
064900,000418:
064901,000419: # THE CURVE FIT FOR L,PVT-CG IS OF THE SAME FORM, EXCEPT THAT A IS SCALED AT 8 FT B+16 KG, B IS SCALED AT 8 FT,
064902,000420: # AND C IS SCALED AT B+16 KG.
064903,000421:
064904,000422: 20,3021 00502 36554 2DEC +.0197118964 # L A DESCENT
064905,000423: 20,3023 00165 22103 INERCONA 2DEC +.0071756944 # 1JACCP A DESCENT
064906,000424: 20,3025 00027 32731 2DEC +.0014551624 # 1JACCQ A DESCENT
064907,000425: 20,3027 00016 24420 2DEC +.0008936540 # 1JACCR A DESCENT
064908,000426: 20,3031 00153 07111 2DEC +.0065443852 # 1JACCP A ASCENT
064909,000427: 20,3033 00072 24103 2DEC +.0035784354 # 1JACCQ A ASCENT
064910,000428: 20,3035 00135 11511 2DEC +.0056946631 # 1JACCR A ASCENT
064911,000429: 20,3037 06147 DEC +.193797 # L B DESCENT
064912,000430: 20,3040 75512 DEC -.073545 # L C DESCENT
064913,000431: 20,3041 00000 INERCONB DEC +.000000 # 1JACCP B DESCENT
064914,000432: 20,3042 01363 INERCONC DEC +.046084 # 1JACCP C DESCENT
064915,000433:
|
|
Page 1492 |
064917,000435: 20,3043 00455 DEC +.018374 # 1JACCQ B DESCENT
064918,000436: 20,3044 76036 DEC -.060583 # 1JACCQ C DESCENT
064919,000437: 20,3045 00562 DEC +.022613 # 1JACCR B DESCENT
064920,000438: 20,3046 75643 DEC -.068096 # 1JACCR C DESCENT
064921,000439:
064922,000440: 20,3047 00001 DEC +.000032 # 1JACCP B ASCENT
064923,000441: 20,3050 77616 DEC -.006923 # 1JACCP C ASCENT
064924,000442: 20,3051 05154 DEC +.162862 # 1JACCQ B ASCENT
064925,000443: 20,3052 00052 DEC +.002588 # 1JACCQ C ASCENT
064926,000444: 20,3053 00231 DEC +.009312 # 1JACCR B ASCENT
064927,000445: 20,3054 77174 DEC -.023608 # 1JACCR C ASCENT
064928,000446:
064929,000447:
064930,000448: 20,3055 23146 DGBF DEC 0.6 # .3 SCALED AT 1/2
064931,000449: 20,3056 13241 0.35356 DEC 0.35356 # .70711 SCALED AT 2
064932,000450: 20,3057 00337 GFACTM OCT 337 # 979.24/2.20462 AT B+15
064933,000451: 20,3060 26501 .7071 DEC .70711
064934,000452: 20,3061 51276 -.7071 DEC -.70711
064935,000453: 20,3062 62362 -EPSMAX DEC -.42265
064936,000454: # CSM-DOCKED INERTIA COMPUTATIONS
064937,000455:
064938,000456: 20,3063 34744 DOCKED CA ONE # COEFTR = 1 FOR INERTIA COEFFICIENTS
|
|
Note: The label DOCKED is actually indented by one character originally. yaYul does not recognize this as proper label |
064940,000458: 20,3064 54160 SPSLOOP1 TS COEFCTR # = 7 FOR CG COEFFICIENTS
064941,000459: 20,3065 34744 CA ONE # MASSCTR = 1 FOR CSM
064942,000460: 20,3066 54161 TS MASSCTR # = 0 FOR LEM
064943,000461:
064944,000462: 20,3067 50160 INDEX COEFCTR
064945,000463: 20,3070 33170 CA COEFF -1 # COEFF -1 = C
064946,000464: 20,3071 00006 EXTEND
064947,000465: 20,3072 71326 MP LEMMASS
064948,000466: 20,3073 00006 EXTEND
064949,000467: 20,3074 71327 MP CSMMASS # LET X = CSMMASS AND Y = LEMMASS
064950,000468:
064951,000469: 20,3075 50160 INDEX COEFCTR
064952,000470: 20,3076 63171 AD COEFF # COEFF = F
064953,000471: 20,3077 54154 TS MPAC # MPAC = C X Y + F
064954,000472: 20,3100 13104 TCF +4
064955,000473:
064956,000474: 20,3101 54161 SPSLOOP2 TS MASSCTR # LOOP TWICE THROUGH HERE TO OBTAIN
064957,000475: 20,3102 00006 EXTEND # MPAC = MPAC + (A X +D)X + (B Y +E)Y
064958,000476: 20,3103 26160 DIM COEFCTR # LOOP #1 LOOP #2
064959,000477: 20,3104 50160 INDEX COEFCTR
064960,000478: 20,3105 33173 CA COEFF +2 # COEFF +2 = A OR B
064961,000479: 20,3106 00006 EXTEND
064962,000480: 20,3107 50161 INDEX MASSCTR
064963,000481: 20,3110 71326 MP LEMMASS
064964,000482: 20,3111 50160 INDEX COEFCTR
064965,000483: 20,3112 63175 AD COEFF +4 # COEFF +4 = E OR D
064966,000484: 20,3113 00006 EXTEND
064967,000485: 20,3114 50161 INDEX MASSCTR
064968,000486:
|
|
Page 1493 |
064970,000488: 20,3115 71326 MP LEMMASS
064971,000489: 20,3116 26154 ADS MPAC
064972,000490:
064973,000491: 20,3117 10161 CCS MASSCTR
064974,000492: 20,3120 13101 TCF SPSLOOP2
064975,000493: 20,3121 10160 CCS COEFCTR # IF COEFCTR IS POS, EXIT FROM LOOP WITH
064976,000494: 20,3122 13131 TCF +7 # CG X DELDOT = MPAC X 4 PI RAD-CM/SEC
064977,000495: 20,3123 00000 20354 TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT
064978,000496:
064979,000497: 20,3125 30154 CA MPAC
064980,000498: 20,3126 54155 TS MPAC +1 # INERTIA = (MPAC +1) X 2(38) KG-CM(2)
064981,000499: 20,3127 34750 CA SEVEN
064982,000500: 20,3130 13064 TCF SPSLOOP1
064983,000501:
064984,000502: 20,3131 33170 CA 1JACCCON # 1JACC=1JACCCON/MASS
064985,000503: 20,3132 22007 ZL
064986,000504: 20,3133 02760 TC DVOVSUB
064987,000505: 20,3134 01243 ADRES MASS
064988,000506: 20,3135 55530 TS 1JACC # SCALED AT PI/4
064989,000507:
064990,000508: 20,3136 34724 CA POSMAX # SET INVERSE JET ACCELERATIONS TO POSMAX,
064991,000509: 20,3137 55550 TS 1/ANETP # WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS.
064992,000510: 20,3140 55570 TS 1/ANET2 +1
064993,000511: 20,3141 55571 TS 1/ANET2 +2
064994,000512: 20,3142 55610 TS 1/ANET2 +17D
064995,000513: 20,3143 55611 TS 1/ANET2 +18D
064996,000514: 20,3144 00006 EXTEND
064997,000515: 20,3145 33124 DCA TORQCONS
064998,000516: 20,3146 00006 EXTEND
064999,000517: 20,3147 10155 DV MPAC +1
065000,000518: 20,3150 00004 INHINT
065001,000519: 20,3151 55531 TS 1JACCQ # SCALED AT PI/4
065002,000520: 20,3152 55532 TS 1JACCR
065003,000521:
065004,000522: 20,3153 33061 CA -.7071
065005,000523: 20,3154 55626 TS COEFFQ # COEFFQ AND COEFFR ARE CHOSEN TO MAKE U-
065006,000524: 20,3155 33060 CA .7071 # AND V-AXES ORTHOGONAL FOR DOCKED CASE
065007,000525: 20,3156 55627 TS COEFFR
065008,000526: 20,3157 31243 CA MASS # SCALED AT 2(16) KG
065009,000527: 20,3160 00006 EXTEND
065010,000528: 20,3161 70154 MP MPAC # SCALED AT 4 PI RAD-CM/SEC
065011,000529: 20,3162 00006 EXTEND
065012,000530: 20,3163 71245 MP ABDELV # SCALED AT 2(13) CM/SEC(2)
065013,000531: 20,3164 02760 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
065014,000532: 20,3165 00155 ADRES MPAC +1
065015,000533:
065016,000534: 20,3166 55511 TS ACCDOTR
065017,000535: 20,3167 12716 TCF SPSCONT # CONTINUE K, KSQ CALCULATIONS
065018,000536:
065019,000537: 20,3170 00167 1JACCCON OCT 00167 # SCALED AT PI/4X2(16) RAD/SEC(2)-KG
065020,000538:
|
|
Page 1494 |
065022,000540:
065023,000541: # 2 2
065024,000542: # COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X +B Y +C X Y +D X +E Y +F
065025,000543:
065026,000544: 20,3171 06176 COEFF DEC .19518 # C COEFFICIENT OF INERTIA
065027,000545: 20,3172 77650 DEC -.00529 # F ''
065028,000546: 20,3173 72260 DEC -.17670 # B ''
065029,000547: 20,3174 76637 DEC -.03709 # A ''
065030,000548: 20,3175 02167 DEC .06974 # E ''
065031,000549: 20,3176 00645 DEC .02569 # D ''
065032,000550:
065033,000551: 20,3177 06335 DEC .20096 # C COEFFICIENT OF CG
065034,000552: 20,3200 04256 DEC .13564 # F ''
065035,000553: 20,3201 30163 DEC .75704 # B ''
065036,000554: 20,3202 64072 DEC -.37142 # A ''
065037,000555: 20,3203 53632 DEC -.63117 # E ''
065038,000556: 20,3204 15133 DEC .41179 # D ''
065039,000557:
065040,000558: # ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
065041,000559:
065042,000560: # MPAC, MPAC +1, MPAC +2 USED EXPLICITLY
065043,000561: 20,3205 0160 COEFCTR EQUALS MPAC +4
065044,000562: 20,3205 0161 MASSCTR EQUALS MPAC +5
065045,000563: 20,3205 0160 SCRATCHX EQUALS MPAC +4 # SCRATCH AREA FOR DVOVSUB ROUTINE.
065046,000564: 20,3205 0161 SCRATCHY EQUALS SCRATCHX +1
065047,000565: 20,3205 0162 SCRATCHZ EQUALS SCRATCHX +2
065048,000566:
065049,000567: 20,3205 0157 DOCKTEMP EQUALS MPAC +3 # RECORD OF CSMDOCKED BIT OF DAPBOOLS
065050,000568: 20,3205 0155 EPSILON EQUALS MPAC +1
065051,000569: 20,3205 0155 -EPSILON EQUALS EPSILON
065052,000570: 20,3205 71777 -.1875 DEC -.18750
065053,000571:
|
|
Page 1495 |
065055,000573: 20,3206 BANK 20
065056,000574: 20,2000 SETLOC DAPS3
065057,000575: 20,2000 BANK
065058,000576:
065059,000577: 20,3206 E6,1536 EBANK= AOSQ
065060,000578:
065061,000579: 20,3206 COUNT* $$/DAPAO
065062,000580:
065063,000581: 20,3206 55632 -1 TS INGTS # ZERO INGTS IN ASCENT
065064,000582: 20,3207 31343 1/ACCONT CA DB # INITIALIZE DBVAL1,2,3
065065,000583: 20,3210 00006 EXTEND
065066,000584: 20,3211 74730 MP BIT13
065067,000585: 20,3212 54001 TS L # 0.25 DB
065068,000586: 20,3213 60000 AD A
065069,000587: 20,3214 54115 TS DBVAL3 # 0.50 DB
065070,000588: 20,3215 41343 CS DBVAL1
065071,000589: 20,3216 60001 AD L
065072,000590: 20,3217 54114 TS DBVAL2 # -.75 DB
065073,000591:
065074,000592: 20,3220 00004 GETAOSUV INHINT
065075,000593: 20,3221 31540 CAE AOSR # COMPUTE AOSU AND AOSV BY ROTATING
065076,000594: 20,3222 54001 TS L # AOSQ AND AOSR.
065077,000595: 20,3223 31536 CAE AOSQ
065078,000596: 20,3224 04665 TC IBNKCALL
065079,000597: 20,3225 37200 CADR ROT-TOUV
065080,000598: 20,3226 53543 DXCH AOSU
065081,000599:
065082,000600: 20,3227 00003 RELINT
065083,000601: 20,3230 30111 CA DAPBOOLS
065084,000602: 20,3231 74735 MASK DRIFTBIT # ZERO DURING ULLAGE AND POWERED FLIGHT.
|
|
Note: there is short horizontal blue line mark between DRIFTBIT and the comment directly to the right of the operand |
065087,000605: 20,3232 10000 CCS A # IF DRIFTING FLIGHT,
065088,000606: 20,3233 34744 CA ONE # SET DRIFTER TO 1
065089,000607: 20,3234 54116 TS DRIFTER # SAVE TO TEST FOR DRIFTING FLIGHT LATER
065090,000608: 20,3235 61502 AD ALLOWGTS # NON-ZERO IF DRIFT OR GTS NEAR
065091,000609: 20,3236 10000 CCS A
065092,000610: 20,3237 33741 CA FLATVAL # DRIFTING FLIGHT, STORE .8 IN FLAT
065093,000611: 20,3240 54151 TS FLATEMP # IN POWERED FLIGHT, STORE ZERO IN FLAT
065094,000612: 20,3241 00006 EXTEND
065095,000613: 20,3242 13246 BZF DOPAXIS # IF POWERED AND NO GTS, START P AXIS,
065096,000614: 20,3243 10116 CCS DRIFTER # OTHERWISE SET ZONE3LIM
065097,000615: 20,3244 33740 CA ZONE3MAX # 17.5 MS , SCALED AT 4 SECONDS.
065098,000616: 20,3245 54152 TS Z3TEM
065099,000617:
065100,000618: 20,3246 31530 DOPAXIS CA 1JACC # 1JACC AT PI/4 = 2JACC AT PI/2 =
065101,000619: # ANET AT PI/2 = ANET/ACOAST AT 2(6).
065102,000620: 20,3247 64734 AD BIT9 # 1 + ANET/ACOAST AT 2(6)
065103,000621: 20,3250 54157 TS FUNTEM
065104,000622:
065105,000623: 20,3251 31530 CA 1JACC
065106,000624:
|
|
Page 1496 |
065108,000626: 20,3252 03656 TC INVERT
065109,000627: 20,3253 00004 INHINT # P AXIS DATA MUST BE CONSISTENT
065110,000628: 20,3254 55550 TS 1/ANETP # SCALED AT 2(7)/PI.
065111,000629: 20,3255 55551 TS 1/ANETP +1
065112,000630:
065113,000631: 20,3256 44734 CS BIT9 # -1 AT 2(6)
065114,000632: 20,3257 00006 EXTEND
065115,000633: 20,3260 71550 MP 1/ANETP # -1/ANET AT 2(13)/PI
065116,000634: 20,3261 00006 EXTEND
065117,000635: 20,3262 10157 DV FUNTEM # -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI
065118,000636: 20,3263 55556 TS PACCFUN
065119,000637: 20,3264 55557 TS PACCFUN +1
065120,000638:
065121,000639: 20,3265 34724 CA 1/.03 # NO AOS FOR P AXIS, ACOAST = AMIN
065122,000640: 20,3266 55552 TS 1/ACOSTP
065123,000641: 20,3267 55553 TS 1/ACOSTP +1
065124,000642: 20,3270 00003 RELINT
065125,000643:
065126,000644:
065127,000645: 20,3271 22007 ZL
065128,000646: 20,3272 10116 CCS DRIFTER
065129,000647: 20,3273 53543 DXCH AOSU # ZERO AOSU,V IF IN DRIFT, JUST TO BE SURE
065130,000648:
065131,000649: 20,3274 34746 UAXIS CA ZERO # DO U AXIS COMPUTATIONS
065132,000650: 20,3275 54154 TS UV # ZERO FOR U AXIS, ONE FOR V AXIS.
065133,000651:
065134,000652: 20,3276 54163 BOTHAXES TS SIGNAOS # CODING COMMON TO U,V AXES
065135,000653: 20,3277 50154 INDEX UV
065136,000654: 20,3300 11542 CCS AOSU # PICK UP ABS(AOSU OR AOSV)
065137,000655: 20,3301 64744 AD ONE # RESTORE TO PROPER VALUE
065138,000656: 20,3302 13305 TCF +3 # AND LEAVE SIGNAOS AT ZERO
065139,000657: 20,3303 64744 AD ONE # NEGATIVE, RESTORE TO PROPER VALUE
065140,000658: 20,3304 24163 INCR SIGNAOS # AND SET SIGNAOS TO ONE TO SHOW AOS NEG
065141,000659: 20,3305 54162 TS ABSAOS # SAVE ABS(AOS)
065142,000660: 20,3306 40163 CS SIGNAOS
065143,000661: 20,3307 54164 TS -SIGNAOS # USED AS AN INDEX
065144,000662:
065145,000663: 20,3310 31343 CA DBVAL1 # SET DB1, DB2 TO DBVAL1 (= DB)
065146,000664: 20,3311 54143 TS DBB1
065147,000665: 20,3312 54144 TS DBB2
065148,000666:
065149,000667: 20,3313 30162 CA ABSAOS # TEST MAGNITUDE OF ABS(AOS)
065150,000668: 20,3314 63742 AD -.03R/S2
065151,000669: 20,3315 00006 EXTEND
065152,000670: 20,3316 63410 BZMF NOTMUCH # ABS(AOS) LESS THAN AMIN
065153,000671: 20,3317 10151 BIGAOS CCS FLATEMP # AGS(AOS) GREATER THAN AMIN
065154,000672: 20,3320 13350 TCF SKIPDB1 # I DRIFT OR GTS, DO NOT COMPUTE DB
065155,000673:
065156,000674: 20,3321 31343 CA DBVAL1
065157,000675: 20,3322 50164 INDEX -SIGNAOS
065158,000676:
|
|
Page 1497 |
065160,000678: 20,3323 26144 ADS DBB2 # DB2(1) = 2 DB
065161,000679: 20,3324 50163 INDEX SIGNAOS
065162,000680: 20,3325 54145 TS DBB4 # DB4(3) = 1 DB
065163,000681: 20,3326 33205 CA -.1875 # -.1875 PI/2 RAD/SEC(2) SCALED AT PI/2
065164,000682: 20,3327 60162 AD ABSAOS # ABSAOS IS SCALED AT PI/2
065165,000683: 20,3330 00006 EXTEND
065166,000684: 20,3331 63334 BZMF +3
065167,000685: 20,3332 40115 CS DBVAL3 # -.5 DB
065168,000686: 20,3333 13343 TCF DBONE
065169,000687: 20,3334 40162 CS ABSAOS
065170,000688: 20,3335 60000 DOUBLE
065171,000689: 20,3336 60000 DOUBLE
065172,000690: 20,3337 64727 AD BIT14
065173,000691: 20,3340 60000 DOUBLE # 1-8 ABSAOS. (8 IS 16/PI SCALED AT 2/PI)
065174,000692: 20,3341 00006 EXTEND
065175,000693: 20,3342 71343 MP DB
065176,000694: 20,3343 50163 DBONE INDEX SIGNAOS # DB1(2)=(1-8 ABSAOS) DB. IF ABSAOS IS
065177,000695: 20,3344 54143 TS DBB1 # GREATER THAN .1875 THEN DB1(2)=-.5 DB
065178,000696: 20,3345 30114 CA DBVAL2
065179,000697: 20,3346 50164 INDEX -SIGNAOS
065180,000698: 20,3347 54146 TS DBB3 # DB3(4) = -.75 DB
065181,000699:
065182,000700: 20,3350 30162 SKIPDB1 CA ABSAOS # ABS(AOS) GREATER THAN AMIN, SO IT IS
065183,000701: 20,3351 00006 EXTEND
065184,000702: 20,3352 74731 MP BIT12
065185,000703: 20,3353 60162 AD ABSAOS # (9/8) ABSAOS.
065186,000704: 20,3354 03656 TC INVERT # ALL RIGHT TO DIVIDE
065187,000705: 20,3355 50164 INDEX -SIGNAOS
065188,000706: 20,3356 54130 TS 1/ACOSTT +1 # 1/ACOASTPOS(NEG) = 1/ABS(AOS)
065189,000707: 20,3357 34724 CA 1/.03
065190,000708: 20,3360 50163 INDEX SIGNAOS
065191,000709: 20,3361 54127 TS 1/ACOSTT # 1/ACOASTNEG(POS) = 1/AMIN
065192,000710:
065193,000711: 20,3362 30162 CA ABSAOS
065194,000712: 20,3363 61533 AD 1JACCU
065195,000713: 20,3364 61533 AD 1JACCU # 2 JACC + ABS(AOS)
065196,000714: 20,3365 64734 AD BIT9 # MAXIMUM VALUE IN COMPUTATIONS
065197,000715: 20,3366 54000 TS A # TEST FOR OVERFLOW
065198,000716: 20,3367 13434 TCF SKIPDB2 # NO OVERFLOW, DO NORMAL COMPUTATION
065199,000717:
065200,000718: 20,3370 30162 CA ABSAOS # RESCALE TO PI TO PREVENT OVERFLOW
065201,000719: 20,3371 00006 EXTEND
065202,000720: 20,3372 74727 MP BIT14
065203,000721: 20,3373 61533 AD 1JACCU # 1 JACC AT PI/2 = 2JACC AT PI
065204,000722: 20,3374 54157 TS ANET # ANETPOS(NEG) MAX SCALED AT PI =
065205,000723: # ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7)
065206,000724: 20,3375 64735 AD BIT8 # 1 + ANETPOS/ACOASTNEG AT 2(7)
065207,000725: 20,3376 56157 XCH ANET # SAVE IN ANET, WHILE PICKING UP ANET
065208,000726: 20,3377 03656 TC INVERT
065209,000727: 20,3400 00006 EXTEND
065210,000728:
|
|
Page 1498 |
065212,000730: 20,3401 74727 MP BIT14 # SCALE 1/ANET AT 2(7)/PI
065213,000731: 20,3402 54160 TS 1/ANET
065214,000732:
065215,000733: 20,3403 33407 CA ACCHERE # SET UP RETURN FROM COMPUTATION ROUTINE
065216,000734: 20,3404 54161 TS ARET
065217,000735: 20,3405 44735 CS BIT8 # -1 AT 2(7)
065218,000736: 20,3406 13711 TCF DOACCFUN # FINISH ACCFUN COMPUTATION
065219,000737:
065220,000738: 20,3407 13441 ACCHERE TCF ACCTHERE
065221,000739:
065222,000740:
065223,000741: 20,3410 54001 NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L
065224,000742: 20,3411 34724 CA 1/.03 # ACOASTPOS,NEG = AMIN
065225,000743: 20,3412 54127 TS 1/ACOSTT
065226,000744: 20,3413 54130 TS 1/ACOSTT +1
065227,000745:
065228,000746: 20,3414 10151 CCS FLATEMP
065229,000747: 20,3415 13434 TCF SKIPDB2 # DO NOT COMPUTE DB IF DRIFT OR GTS
065230,000748:
065231,000749: 20,3416 33743 CA .023R/S2 # .0228 RAD/SEC(2)
065232,000750: 20,3417 60001 AD L # L=ABS(AOS)-AMIN=ABS(AOS)-.0245RAD/SEC(2)
065233,000751: 20,3420 00006 EXTEND # RESULT IS ABS(AOS)-.0017 RAD/SEC(2)
065234,000752: 20,3421 63431 BZMF NOAOS # ABS(AOS) LESS THAN .0017 RAD/SEC(2)
065235,000753: 20,3422 30115 SOMEAOS CA DBVAL3 # .0017 RAD/SEC(2) LT ABS(AOS) LT AMIN
065236,000754: 20,3423 50164 INDEX -SIGNAOS
065237,000755: 20,3424 54146 TS DBB3 # DB3(4) = DB/2
065238,000756: 20,3425 60000 AD A
065239,000757: 20,3426 50163 INDEX SIGNAOS
065240,000758: 20,3427 54145 TS DBB4 # DB4(3) = DB
065241,000759: 20,3430 13434 TCF SKIPDB2
065242,000760:
065243,000761: 20,3431 31343 NOAOS CA DBVAL1
065244,000762: 20,3432 54146 TS DBB3 # DB3,4 = DB
065245,000763: 20,3433 54145 TS DBB4
065246,000764:
065247,000765: 20,3434 30162 SKIPDB2 CA ABSAOS # ANETPOS(NEG) MAX = 2 JACC + ABS(AOS)
065248,000766: 20,3435 61533 AD 1JACCU
065249,000767: 20,3436 61533 AD 1JACCU
065250,000768: 20,3437 54157 TS ANET # CONNOT OVERFLOW HERE
065251,000769: 20,3440 03702 CL1/NET+ TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN
065252,000770:
065253,000771: 20,3441 50164 ACCTHERE INDEX -SIGNAOS
065254,000772: 20,3442 54134 TS Z5TEM +2 # STORE ACCFUN IN TEMPORARY BUFFER
065255,000773: 20,3443 30160 CA 1/ANET
065256,000774: 20,3444 50164 INDEX -SIGNAOS
065257,000775: 20,3445 54126 TS 1/ATEM2 +2 # STORE 1/ANET IN TEMPORARY BUFFER
065258,000776:
065259,000777: 20,3446 30162 CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
065260,000778: 20,3447 61533 AD 1JACCU
065261,000779: 20,3450 64734 AD BIT9 # MAXIMUM POSSIBLE VALUE
065262,000780:
|
|
Page 1499 |
065264,000782: 20,3451 54000 TS A # OVERFLOW POSSIBLE BUT REMOTE
065265,000783: 20,3452 13454 TCF +2
065266,000784: 20,3453 34724 CA POSMAX # IF OVERFLOW, TRUNCATE TO PI/2
065267,000785: 20,3454 63742 AD -.03R/S2 # RESTORE TO CORRECT VALUE
065268,000786: 20,3455 54157 TS ANET
065269,000787: 20,3456 03702 TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN
065270,000788:
065271,000789: 20,3457 50164 INDEX -SIGNAOS # STORE MIN VALUES JUST AS MAX VALUES
065272,000790: 20,3460 54132 TS Z5TEM
065273,000791: 20,3461 30160 CA 1/ANET
065274,000792: 20,3462 50164 INDEX -SIGNAOS
065275,000793: 20,3463 54124 TS 1/ATEM2
065276,000794:
065277,000795:
065278,000796: 20,3464 40162 CS ABSAOS # NOW DO NEG(POS) CASES
065279,000797: 20,3465 61533 AD 1JACCU
065280,000798: 20,3466 61533 AD 1JACCU # ANETNEG(POS) MAX
065281,000799: 20,3467 03670 TC 1/ANET- # COMPUTE 1/ANET, ACCFUN, AND ACCSW
065282,000800: 20,3470 50163 INDEX SIGNAOS # STORE NEG(POS) VALUES JUST AS POS(NEG)
065283,000801: 20,3471 54133 TS Z1TEM +2
065284,000802: 20,3472 54001 TS L # SAVE IN L FOR POSSIBLE FUTURE USE
065285,000803: 20,3473 30160 CA 1/ANET
065286,000804: 20,3474 50163 INDEX SIGNAOS
065287,000805: 20,3475 54125 TS 1/ATEM1 +2
065288,000806: 20,3476 40162 CS ABSAOS
065289,000807: 20,3477 61533 AD 1JACCU # 1/ANETNEG(POS) MIN
065290,000808: 20,3500 54157 TS ANET
065291,000809: 20,3501 63742 AD -.03R/S2 # TEST FOR AMIN
065292,000810: 20,3502 00006 EXTEND # IF ANET LESS THAN AMIN, STORE MAX JET
065293,000811: 20,3503 63721 BZMF FIXMIN # VALUES FOR MIN JETS AND SET ACCSW
065294,000812:
065295,000813: 20,3504 03676 TC 1/NETMIN # OTHERWISE DO MIN JET COMPUTATIONS
065296,000814: 20,3505 50163 STMIN- INDEX SIGNAOS # STORE VALUES
065297,000815: 20,3506 54131 TS Z1TEM
065298,000816: 20,3507 30160 CA 1/ANET
065299,000817: 20,3510 50163 INDEX SIGNAOS
065300,000818: 20,3511 54123 TS 1/ATEM1
065301,000819:
065302,000820:
065303,000821: 20,3512 50154 INDEX UV
065304,000822: 20,3513 33747 CA +UMASK
065305,000823: 20,3514 71257 MASK CH5MASK # TEST FOR +U (+V) JET FAILURES
065306,000824: 20,3515 00006 EXTEND
065307,000825: 20,3516 13523 BZF FAIL-
065308,000826: 20,3517 30124 CA 1/ATEM2 # REPLACE FUNCTION VALUES DEPENDING ON THE
065309,000827: 20,3520 54126 TS 1/ATEM2 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
065310,000828: 20,3521 30132 CA Z5TEM # JET (OR AMIN) FUNCTION VALUES
065311,000829: 20,3522 54134 TS Z5TEM +2
065312,000830: 20,3523 50154 FAIL- INDEX UV
065313,000831: 20,3524 33745 CA -UMASK
065314,000832:
|
|
Page 1500 |
065316,000834: 20,3525 71257 MASK CH5MASK # TEST FOR -U (-V) JET FAILURES
065317,000835: 20,3526 00006 EXTEND
065318,000836: 20,3527 13534 BZF DBFUN
065319,000837: 20,3530 30123 CA 1/ATEM1 # REPLACE FUNCTION VALUES DEPENDING ON THE
065320,000838: 20,3531 54125 TS 1/ATEM1 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
065321,000839: 20,3532 30131 CA Z1TEM # JET (OR AMIN) FUNCTION VALUES
065322,000840: 20,3533 54133 TS Z1TEM +2
065323,000841:
065324,000842: 20,3534 40146 DBFUN CS DBB3 # COMPUTE AXISDIST
065325,000843: 20,3535 60143 AD DBB1
065326,000844: 20,3536 60151 AD FLATEMP
065327,000845: 20,3537 54147 TS AXDSTEM
065328,000846: 20,3540 40145 CS DBB4
065329,000847: 20,3541 60144 AD DBB2
065330,000848: 20,3542 60151 AD FLATEMP
065331,000849: 20,3543 54150 TS AXDSTEM +1
065332,000850:
065333,000851: 20,3544 00004 INHINT
065334,000852: 20,3545 10154 CCS UV # TEST FOR U OR V AXIS
065335,000853: 20,3546 13570 TCF STORV # V AXIS STORE V VALUES
065336,000854:
065337,000855: 20,3547 30122 CA ACCSW # U AXIS STORE U VALUES
065338,000856: 20,3550 55546 TS ACCSWU
065339,000857:
065340,000858: 20,3551 34311 CA NINE # TRANSFER 10 WORDS VIA GENTRAN
065341,000859: 20,3552 05547 TC GENTRAN +1
065342,000860: 20,3553 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER
065343,000861: 20,3554 01566 ADRES 1/ANET1 # THE REAL PLACE
065344,000862:
065345,000863: 20,3555 00003 RELINT
065346,000864: 20,3556 52144 DXCH DBB1 # SAVE U DBS FOR LATER STORING
065347,000865: 20,3557 52136 DXCH UDB1
065348,000866: 20,3560 52146 DXCH DBB4
065349,000867: 20,3561 52140 DXCH UDB4
065350,000868:
065351,000869: 20,3562 52150 DXCH AXDSTEM
065352,000870: 20,3563 52142 DXCH UAXDIST
065353,000871:
065354,000872: 20,3564 34744 CA ONE # NOW DO V AXIS
065355,000873: 20,3565 54154 TS UV
065356,000874: 20,3566 34746 CA ZERO
065357,000875: 20,3567 13276 TCF BOTHAXES # AND DO IT AGAIN
065358,000876:
065359,000877: 20,3570 30122 STORV CA ACCSW # STORE V AXIS VALUES
065360,000878: 20,3571 55547 TS ACCSWV
065361,000879: 20,3572 34311 CA NINE
065362,000880: 20,3573 05547 TC GENTRAN +1
065363,000881: 20,3574 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER
065364,000882:
|
|
Page 1501 |
065366,000884: 20,3575 01606 ADRES 1/ANET1 +16D # THE REAL PLACE
065367,000885:
065368,000886: # NOW STORE DEADBANDS FOR ALL AXES
065369,000887: 20,3576 52152 DXCH FLATEMP # FLAT AND ZONE3LIM
065370,000888: 20,3577 53555 DXCH FLAT
065371,000889:
065372,000890: 20,3600 31343 CA DBVAL1 # COMPUTE P AXIS DEADBANDS
065373,000891: 20,3601 55560 TS PDB1
065374,000892: 20,3602 55561 TS PDB2
065375,000893: 20,3603 61554 AD FLAT
065376,000894: 20,3604 55563 TS PDB3
065377,000895: 20,3605 55562 TS PDB4
065378,000896: 20,3606 34746 CA ZERO
065379,000897: 20,3607 55564 TS PAXDIST
065380,000898: 20,3610 55565 TS PAXDIST +1
065381,000899:
065382,000900: 20,3611 11554 CCS FLAT
065383,000901: 20,3612 13630 TCF DRFDB # DRIFT OR GTS - COMPUTE DBS
065384,000902:
065385,000903: 20,3613 52136 DXCH UDB1 # STORE U DEADBANDS
065386,000904: 20,3614 53601 DXCH FIREDB # CANNOT USE GENTRAN BECAUSE OF RELINT
065387,000905: 20,3615 52140 DXCH UDB4
065388,000906: 20,3616 53603 DXCH COASTDB
065389,000907: 20,3617 52142 DXCH UAXDIST
065390,000908: 20,3620 53605 DXCH AXISDIST
065391,000909: 20,3621 52144 DXCH DBB1 # STORE V AXIS DEADBANDS
065392,000910: 20,3622 53621 DXCH FIREDB +16D # COULD USE GENTRAN IF DESIRED
065393,000911: 20,3623 52146 DXCH DBB4
065394,000912: 20,3624 53623 DXCH COASTDB +16D
065395,000913: 20,3625 52150 DXCH AXDSTEM
065396,000914: 20,3626 53625 DXCH AXISDIST +16D
065397,000915:
065398,000916: 20,3627 13650 TCF 1/ACCRET +1 # ALL DONE
065399,000917: 20,3630 31343 DRFDB CA DBVAL1 # DRIFT DEADBANDS
065400,000918: 20,3631 55600 TS FIREDB
065401,000919: 20,3632 55601 TS FIREDB +1
065402,000920: 20,3633 55620 TS FIREDB +16D
065403,000921: 20,3634 55621 TS FIREDB +17D
065404,000922: 20,3635 61554 AD FLAT
065405,000923: 20,3636 55602 TS COASTDB
065406,000924: 20,3637 55603 TS COASTDB +1
065407,000925: 20,3640 55622 TS COASTDB +16D
065408,000926: 20,3641 55623 TS COASTDB +17D
065409,000927: 20,3642 34746 CA ZERO
065410,000928: 20,3643 55604 TS AXISDIST
065411,000929: 20,3644 55605 TS AXISDIST +1
065412,000930: 20,3645 55624 TS AXISDIST +16D
065413,000931: 20,3646 55625 TS AXISDIST +17D
065414,000932:
065415,000933: 20,3647 00004 1/ACCRET INHINT
065416,000934:
|
|
Page 1502 |
065418,000936: 20,3650 40111 CS DAPBOOLS # SET BIT TO INDICATE DATA GOOD.
065419,000937: 20,3651 74742 MASK ACCSOKAY
065420,000938: 20,3652 26111 ADS DAPBOOLS
065421,000939: 20,3653 00003 RELINT
065422,000940: 20,3654 30117 CA ACCRETRN
065423,000941: 20,3655 04631 TC BANKJUMP # RETURN TO CALLER
065424,000942:
065425,000943: 20,3656 54165 INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2
065426,000944: 20,3657 34734 CA BIT9 # 1 AT 2(6)
065427,000945: 20,3660 22007 ZL # ZERO L FOR ACCURACY AND TO PREVENT OVFLO
065428,000946: 20,3661 00006 EXTEND
065429,000947: 20,3662 10165 DV HOLD
065430,000948: 20,3663 00002 TC Q # RESULT AT 2(7)/PI
065431,000949:
065432,000950: 20,3664 34746 DOWNGTS CAF ZERO # ZERO SWITCHES WHEN USEQRJTS BIT IS UP
065433,000951: 20,3665 55502 TS ALLOWGTS # OR DAP IS OFF.
065434,000952: 20,3666 55632 TS INGTS
065435,000953: 20,3667 12755 TCF DOCKTEST
065436,000954:
065437,000955: 20,3670 22007 1/ANET- ZL
065438,000956: 20,3671 22122 LXCH ACCSW # ZERO ACCSW
065439,000957: 20,3672 54157 TS ANET # SAVE ANET
065440,000958: 20,3673 63742 AD -.03R/S2 # TEST FOR MIN VALUE
065441,000959: 20,3674 00006 EXTEND
065442,000960: 20,3675 63716 BZMF NETNEG # ANET LESS THAN AMIN, SO FAKE IT
065443,000961: 20,3676 30157 1/NETMIN CA ANET
065444,000962: 20,3677 00006 EXTEND
065445,000963: 20,3700 50164 INDEX -SIGNAOS
065446,000964: 20,3701 70130 MP 1/ACOSTT +1 # ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
065447,000965:
065448,000966: # THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
065449,000967: # VALUES OF AOS
065450,000968:
065451,000969: 20,3702 64734 DO1/NET+ AD BIT9 # 1 + ANET/ACOAST AT 2(6)
065452,000970: 20,3703 56157 XCH ANET # SAVE AND PICK UP ANET
065453,000971: 20,3704 00006 EXTEND
065454,000972: 20,3705 22161 QXCH ARET # SAVE RETURN
065455,000973: 20,3706 03656 TC INVERT
065456,000974: 20,3707 54160 TS 1/ANET # 1/ANET AT 2(7)/PI
065457,000975: 20,3710 44734 CS BIT9 # -1 AT 2(6)
065458,000976: 20,3711 00006 DOACCFUN EXTEND
065459,000977: 20,3712 70160 MP 1/ANET # -1/ANET AT 2(13)/PI
065460,000978: 20,3713 00006 EXTEND
065461,000979: 20,3714 10157 DV ANET # ACCFUN AT 2(7)/PI
065462,000980: 20,3715 00161 TC ARET # RETURN
065463,000981:
065464,000982: 20,3716 43742 NETNEG CS -.03R/S2 # ANET LESS THAN AMIN - SET EQUAL TO AMIN
065465,000983: 20,3717 54157 TS ANET
065466,000984: 20,3720 13677 TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED
065467,000985:
|
|
Page 1503 |
065469,000987: 20,3721 10163 FIXMIN CCS SIGNAOS
065470,000988: 20,3722 34743 CA TWO # IF AOS NEG, ACCSW = +1
065471,000989: 20,3723 67770 AD NEGONE # IF AOS POS, ACCSW = -1
065472,000990: 20,3724 54122 TS ACCSW
065473,000991: 20,3725 60154 AD UV # IF ACCSW = +1, TEST FOR +U (+V) JET FAIL
065474,000992: 20,3726 50000 INDEX A # IF ACCSW = -1, TEST FOR -U (-V) JET FAIL
065475,000993: 20,3727 33746 CA -UMASK +1
065476,000994: 20,3730 71257 MASK CH5MASK
065477,000995: 20,3731 00006 EXTEND
065478,000996: 20,3732 13736 BZF +4
065479,000997: 20,3733 43742 CS -.03R/S2 # JET FAILURE - CANNOT USE 2-JET VALUES
065480,000998: 20,3734 54157 TS ANET # ANET = AMIN
065481,000999: 20,3735 13504 TCF STMIN- -1 # CALCULATE FUNCTIONS USING AMIN
065482,001000: 20,3736 30001 CA L # L HAS ACCFUN
065483,001001: 20,3737 13505 TCF STMIN- # STORE MAX VALUES FOR MIN JETS
065484,001002:
065485,001003: # ERASABLE ASSIGNMENTS FOR 1/ACCONT
065486,001004:
065487,001005: 20,3740 E6,1550 1/ANETP EQUALS BLOCKTOP +2
065488,001006: 20,3740 E6,1552 1/ACOSTP EQUALS BLOCKTOP +4
065489,001007: 20,3740 E6,1556 PACCFUN EQUALS BLOCKTOP +8D
065490,001008: 20,3740 E6,1560 PDB1 EQUALS BLOCKTOP +10D
065491,001009: 20,3740 E6,1561 PDB2 EQUALS BLOCKTOP +11D
065492,001010: 20,3740 E6,1562 PDB4 EQUALS BLOCKTOP +12D
065493,001011: 20,3740 E6,1563 PDB3 EQUALS BLOCKTOP +13D
065494,001012: 20,3740 E6,1564 PAXDIST EQUALS BLOCKTOP +14D
065495,001013:
065496,001014: 20,3740 0122 ACCSW EQUALS VBUF # EXECUTIVE TEMPORARIES
065497,001015: # CANNOT DO CCS NEWJOB DURING 1/ACCS
065498,001016: 20,3740 0123 1/ATEM1 EQUALS ACCSW +1 # TEMP BUFFER FOR U AND V AXES
065499,001017: 20,3740 0124 1/ATEM2 EQUALS 1/ATEM1 +1
065500,001018: 20,3740 0127 1/ACOSTT EQUALS 1/ATEM1 +4
065501,001019: 20,3740 0131 Z1TEM EQUALS 1/ATEM1 +6
065502,001020: 20,3740 0132 Z5TEM EQUALS 1/ATEM1 +7
065503,001021:
065504,001022: 20,3740 0135 UDB1 EQUALS 1/ATEM1 +10D # UAXIS DEADBAND BUFFER
065505,001023: 20,3740 0136 UDB2 EQUALS 1/ATEM1 +11D
065506,001024: 20,3740 0137 UDB4 EQUALS 1/ATEM1 +12D
065507,001025: 20,3740 0140 UDB3 EQUALS 1/ATEM1 +13D
065508,001026: 20,3740 0141 UAXDIST EQUALS 1/ATEM1 +14D
065509,001027:
065510,001028: 20,3740 0143 DBB1 EQUALS 1/ATEM1 +16D # TEMP DEADBAND BUFFER, ALSO V AXIS
065511,001029: 20,3740 0144 DBB2 EQUALS 1/ATEM1 +17D
065512,001030: 20,3740 0145 DBB4 EQUALS 1/ATEM1 +18D
065513,001031: 20,3740 0146 DBB3 EQUALS 1/ATEM1 +19D
065514,001032: 20,3740 0147 AXDSTEM EQUALS 1/ATEM1 +20D
065515,001033:
065516,001034: 20,3740 0151 FLATEMP EQUALS 1/ATEM1 +22D
065517,001035: 20,3740 0152 Z3TEM EQUALS 1/ATEM1 +23D # MUST FOLLOW FLATEMP
065518,001036:
|
|
Page 1504 |
065520,001038: 20,3740 0114 DBVAL2 EQUALS INTB15+
065521,001039: 20,3740 0115 DBVAL3 EQUALS INTB15+ +1
065522,001040:
065523,001041: 20,3740 0116 DRIFTER EQUALS INTB15+ +2
065524,001042:
065525,001043: 20,3740 0154 UV EQUALS MPAC
065526,001044: 20,3740 0157 ANET EQUALS MPAC +3
065527,001045: 20,3740 0157 FUNTEM EQUALS MPAC +3
065528,001046: 20,3740 0160 1/ANET EQUALS MPAC +4
065529,001047: 20,3740 0161 ARET EQUALS MPAC +5
065530,001048: 20,3740 0162 ABSAOS EQUALS MPAC +6
065531,001049: 20,3740 0163 SIGNAOS EQUALS MPAC +7
065532,001050: 20,3740 0164 -SIGNAOS EQUALS MPAC +8D
065533,001051: 20,3740 0165 HOLD EQUALS MPAC +9D
065534,001052: 20,3740 0117 ACCRETRN EQUALS FIXLOC -1
065535,001053:
065536,001054: 20,3740 00110 ZONE3MAX DEC .004375 # 17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
065537,001055: 20,3741 00443 FLATVAL DEC .01778 # .8 AT PI/4 RAD
065538,001056: 20,3742 77377 -.03R/S2 OCT 77377 # -PI/2(7) AT PI/2
065539,001057:
065540,001058: 20,3743 00356 .023R/S2 OCT 00356 # .0228 RAD/SEC(2) AT PI/2
065541,001059: 20,3744 4724 1/.03 EQUALS POSMAX # 2(7)/PI AT 2(7)/PI
065542,001060:
065543,001061: 20,3744 02217 PAXISADR GENADR PAXIS
065544,001062:
065545,001063:
065546,001064: # THE FOLLOWING 4 CONSTANTS ARE JET
065547,001065: # FAILURE MASKS AND ARE INDEXED
065548,001066: 20,3745 00110 -UMASK OCT 00110 # -U
065549,001067: 20,3746 00022 OCT 00022 # -V
065550,001068: 20,3747 00204 +UMASK OCT 00204 # +U
065551,001069: 20,3750 00041 OCT 00041 # +V
065552,001070:
End of include-file AOSTASK_AND_AOSJOB.agc. Parent file is MAIN.agc