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