GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
064539,000002: ## Copyright: Public domain.
064540,000003: ## Filename: AOSTASK_AND_AOSJOB.agc
064541,000004: ## Purpose: The main source file for Luminary revision 069.
064542,000005: ## It is part of the source code for the original release
064543,000006: ## of the flight software for the Lunar Module's (LM) Apollo
064544,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
064545,000008: ## version was Luminary 69 revision 2, which included a
064546,000009: ## newer lunar gravity model and only affected module 2.
064547,000010: ## This file is intended to be a faithful transcription, except
064548,000011: ## that the code format has been changed to conform to the
064549,000012: ## requirements of the yaYUL assembler rather than the
064550,000013: ## original YUL assembler.
064551,000014: ## Reference: pp. 1479-1499
064552,000015: ## Assembler: yaYUL
064553,000016: ## Contact: Ron Burkey <info@sandroid.org>.
064554,000017: ## Website: www.ibiblio.org/apollo/index.html
064555,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
064556,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
064557,000020: ## 2016-12-23 RRB Updated for Luminary 69 revision 0. The Luminary 99 version was updated on
064558,000021: ## Feb. 14, 1969, which was before the release of Luminary 69 revision 2 on April 1, 1969.
064559,000022: ## 2017-01-23 HG Fix operator CS -> CA
064560,000023: ## Remove declaration 1JACCCON OCT 00167
064561,000024: ## Add missing sequence of statements AD 1JACCU
064562,000025: ## TS ANET
064563,000026: ## AD BIT8
064564,000027: ## XCH ANET
064565,000028: ## TC INVERT
064566,000029: ## EXTEND
064567,000030: ## MP BIT14
064568,000031: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
064569,000032: ## and fixed errors found.
064570,000033: ## 2017-03-14 RSB Comment-text fixes identified in 5-way
064571,000034: ## side-by-side diff of Luminary 69/99/116/131/210.
064572,000035:
064573,000036: ##
064574,000037:
|
|
Page 1479 |
064576,000039: # PROGRAM NAME: 1/ACCS
064577,000040: # PROGRAM WRITTEN BY: BOB COVELLI AND MIKE HOUSTON
064578,000041: # LAST MODIFICATION: FEB. 21, 1968
064579,000042:
064580,000043: # PROGRAM DESCRIPTION:
064581,000044:
064582,000045: # 1/ACCS PROVIDES THE INTERFACE BETWEEN THE GUIDANCE PROGRAMS AND THE DIGITAL AUTOPILOT. WHENEVER THERE IS A
064583,000046: # CHANGE IN THE MASS OF THE VEHICLE, IN THE DEADBAND SELECTED, IN THE VEHICLE CONFIGURATION (ASCENT-DESCENT-
064584,000047: # DOCKED), AND DURING A FRESH START OR A RESTART, 1/ACCS IS CALLED TO COMMUNICATE THE DATA CHANGES TO THE DAP.
064585,000048:
064586,000049: # THE INPUTS TO 1/ACCS ARE MASS, ACCELERATION (ABDELV), DEADBAND (DB), OFFSET ACCELERATIONS (AOSQ AND AOSR),
064587,000050: # STAGE VERIFY BIT (CHAN30,BIT2), DOCKED BIT (DAPBOOLS,BIT13), DRIFT BIT (DAPBOOLS,BIT8), USEQRJTS (DAPBOOLS,
064588,000051: # BIT14), AND SURFACE FLAG (FLAGWRD8,BIT8), AND CH5MASK.
064589,000052:
064590,000053: # 1/ACCS COMPUTES THE JET ACCELERATIONS (1JACC, 1JACCQ, 1JACCR) AS FUNCTIONS OF MASS. 1JACCU AND 1JACCV ARE
064591,000054: # FORMED BY RESOLVING 1JACCQ NAD 1JACCR. IN THE DESCENT CASE, THE DESCENT ENGINE MOMENT ARM (L, PVT-CG) IS ALSO
064592,000055: # COMPUTED AS A FUNCTION OF MASS. THE RATE OF CHANGE OF ACCELERATION DUE TO ROTATION OF THE GIMBAL (ACCDOTQ,
064593,000056: # ACCDOTR) IS ALSO COMPUTED IN THE DESCENT CASE.
064594,000057:
064595,000058: # AFTER THE ABOVE COMPUTATIONS, THE PROGRAM 1/ACCONT COMPUTES THE RECIPROCAL NET ACCELERATIONS ABOUT THE P, U,
064596,000059: # AND V AXES (2 JETS FOR P AXIS, BOTH 1 AND 2 JETS FOR U AND V AXES), AND THE RECIPROCAL COAST ACCELERATIONS ABOUT
064597,000060: # THE P, U, AND V AXES. THE ACCELERATION FUNCTIONS (ACCFCTZ1 AND ACCFCTZ5) ARE ALSO COMPUTED FOR THESE AXES. THE
064598,000061: # FIRE AND COAST DEADBANDS AND AXISDIST ARE COMPUTED FOR EACH AXIS. FLAT AND ZONE3LIM, THE WIDTH AND HEIGHT OF THE
064599,000062: # MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
064600,000063: # IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
064601,000064:
064602,000065: # SUBBOUTINES CALLED:
064603,000066: # TIMEGMBL
064604,000067: # MAKECADR
064605,000068: # ROT45DEG
064606,000069:
064607,000070: # CALLING SEQUENCE:
064608,000071: # TC BANKCALL (1/ACCS MUST BE CALL BY BANKCALL
064609,000072: # CADR 1/ACCS
064610,000073:
064611,000074: # NORMAL EXIT: VIA BANKJUMP ALARM AND ABORT EXIT MODES: NONE.
064612,000075:
064613,000076: # INPUT/OUTPUT: SEE PROGRAM DESCRIPTION
064614,000077:
064615,000078: # DEBRIS:
064616,000079:
064617,000080: # ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
064618,000081:
064619,000082: # RESTRICTIONS:
064620,000083: # 1/ACCS MUST BE CALLED BY BANKCALL
064621,000084: # EBANK IS SET TO 6, BUT NOT RESTORED.
|
|
Page 1480 |
064623,000086:
064624,000087: 20,2447 BANK 20
064625,000088: 20,2000 SETLOC DAPS3
064626,000089: 20,2000 BANK
064627,000090:
064628,000091: 20,2447 COUNT* $$/DAPAO
064629,000092:
064630,000093: 20,2447 E6,1537 EBANK= AOSQ
064631,000094:
064632,000095: # ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
064633,000096:
064634,000097: # IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF
064635,000098: # NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
064636,000099:
064637,000100: 20,2447 34755 1/ACCSET CAF ZERO # ENTRY FROM FRESH START/RESTART CODING.
064638,000101: 20,2450 55537 TS AOSQ # NULL THE OFFSET ESTIMATES FOR 1/ACCS.
064639,000102: 20,2451 55541 TS AOSR
064640,000103: 20,2452 55422 TS ALPHAQ # NULL THE OFFSET ESTIMATES FOR DOWNLIST
064641,000104: 20,2453 55423 TS ALPHAR
064642,000105:
064643,000106: 20,2454 04616 1/ACCJOB TC BANKCALL # 1/ACCS ASSUMES ENTRY VIA BANKCALL.
064644,000107: 20,2455 40461 CADR 1/ACCS +2 # SKIP EBANK SETTING.
064645,000108:
064646,000109: 20,2456 05155 TC ENDOFJOB
064647,000110:
064648,000111: 20,2457 35015 1/ACCS CA EBANK6 # ***** EBANK SET BUT NOT RESTORED *****
064649,000112: 20,2460 54003 TS EBANK
064650,000113:
064651,000114: 20,2461 04645 TC MAKECADR # SAVE RETURN SO THAT BUF2 MAY BE USED
064652,000115: 20,2462 54117 TS ACCRETRN
064653,000116:
064654,000117: # DETERMINE MASS OF THE LEM.
064655,000118: 20,2463 30111 CA DAPBOOLS # IS CSM DOCKED
064656,000119: 20,2464 74737 MASK CSMDOCKD
064657,000120: 20,2465 54157 TS DOCKTEMP # STORE RECORD OF STATE IN TEMP (MPAC +3).
064658,000121: 20,2466 10000 CCS A
064659,000122: 20,2467 41332 CS CSMMASS # DOCKED: LEMMASS = MASS - CSMMASS
064660,000123: 20,2470 61244 AD MASS # LEM ALONE: LEMMASS = MASS
064661,000124: 20,2471 55331 TS LEMMASS
064662,000125:
064663,000126: # ON THE BASIS OF APSFLAG:
064664,000127: # SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/4-JET CONTROL
064665,000128: # SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
064666,000129: # ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
064667,000130:
064668,000131: 20,2472 00004 INHINT
064669,000132: 20,2473 30106 CAE FLGWRD10 # DETERMINE WHETHER STAGED.
064670,000133: 20,2474 74737 MASK APSFLBIT
064671,000134: 20,2475 00006 EXTEND
064672,000135: 20,2476 12522 BZF DPSFLITE
|
|
Page 1481 |
064674,000137: 20,2477 44733 CS POSMAX # ASCENT (OR ON LUNAR SURFACE)
064675,000138: 20,2500 55473 TS -2JETLIM # ALWAYS 2 JETS FOR P-AXIS RATE COMMAND
064676,000139: 20,2501 35742 CAF OCT14 # INITIALIZE INDEX AT 12.
064677,000140: 20,2502 54154 TS MPAC
064678,000141: 20,2503 41331 CS LEMMASS # CHECK IF MASS TOO HIGH. CATCH STAGING.
064679,000142: 20,2504 61400 AD HIASCENT
064680,000143: 20,2505 00006 EXTEND
064681,000144: 20,2506 62513 BZMF MASSFIX
064682,000145: 20,2507 41331 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE
064683,000146: 20,2510 62001 AD LOASCENT # DECREMENTING BY MASSMON.
064684,000147: 20,2511 00006 EXTEND
064685,000148: 20,2512 62540 BZMF F(MASS)
064686,000149:
064687,000150: 20,2513 27331 MASSFIX ADS LEMMASS # STORE THE VIOLATED LIMIT AS LEMMASS.
064688,000151: 20,2514 22007 ZL # ALSO CORRECT TOTAL MASS, ZEROING THE
064689,000152: 20,2515 10157 CCS DOCKTEMP # LOW-ORDER WORD.
064690,000153: 20,2516 31332 CAE CSMMASS # DOCKED: MASS = LEMMASS + CSMMASS
064691,000154: 20,2517 61331 AD LEMMASS # LEM ALONE: MASS = LEMMASS
064692,000155: 20,2520 53245 DXCH MASS
064693,000156: 20,2521 12540 TCF F(MASS)
064694,000157:
064695,000158: 20,2522 44742 DPSFLITE CS BIT10 # FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
064696,000159: 20,2523 55473 TS -2JETLIM # EXCEEDING 1.4 DEG/SEC (SCALED AT 45)
064697,000160: 20,2524 36241 CAF SIX # INITIALIZE INDEX AT 6.
064698,000161: 20,2525 54154 TS MPAC
064699,000162: 20,2526 41331 CS LEMMASS # CHECK IF MASS TOO HIGH. SHOULD NEVER
064700,000163: 20,2527 62002 AD HIDESCNT # OCCUR EXCEPT PERHAPS BEFORE THE PAD
064701,000164: 20,2530 00006 EXTEND # LOAD IS DONE.
064702,000165: 20,2531 62513 BZMF MASSFIX
064703,000166: 20,2532 41331 CS LEMMASS # CHECK IF MASS TOO LOW. THIS LIMITS THE
064704,000167: 20,2533 62003 AD LODESCNT # DECREMENTING BY MASSMON.
064705,000168: 20,2534 61400 AD HIASCENT
064706,000169: 20,2535 00006 EXTEND
064707,000170: 20,2536 62540 BZMF F(MASS)
064708,000171: 20,2537 12513 TCF MASSFIX
064709,000172:
064710,000173: # COMPUTATION OF FUNCTIONS OF MASS
064711,000174: 20,2540 00003 F(MASS) RELINT
064712,000175: 20,2541 10157 CCS DOCKTEMP
064713,000176: 20,2542 13030 TCF DOCKED # DOCKED: USE SEPERATE COMPUTATION.
064714,000177: 20,2543 34752 CA TWO
064715,000178: 20,2544 54155 STCTR TS MPAC +1 # J=2,1,0 FOR 1JACCR,1JACCQ,1JACC
064716,000179:
064717,000180: 20,2545 44752 CS TWO
064718,000181: 20,2546 26154 ADS MPAC # JX=10,8,6 OR 4,2,0 TO INDEX COEFS.
064719,000182:
064720,000183: 20,2547 31331 STCTR1 CAE LEMMASS
064721,000184: 20,2550 50154 INDEX MPAC
064722,000185: 20,2551 63006 AD INERCONC
064723,000186: 20,2552 54156 TS MPAC +2 # MASS + C
|
|
Page 1482 |
064725,000188: 20,2553 00006 EXTEND
064726,000189: 20,2554 50154 INDEX MPAC
064727,000190: 20,2555 32770 DCA INERCONA
064728,000191: 20,2556 00006 EXTEND
064729,000192: 20,2557 10156 DV MPAC +2
064730,000193: 20,2560 50154 INDEX MPAC
064731,000194: 20,2561 63005 AD INERCONB
064732,000195: 20,2562 50155 INDEX MPAC +1 # 1JACC(J)=A(JX)/(MASS+C(JX) + B(JX)
064733,000196: 20,2563 55530 TS 1JACC # 1JACC(-1)=L,PVT-CG SCALED AT 8 FEET
064734,000197:
064735,000198: 20,2564 10155 CCS MPAC +1
064736,000199: 20,2565 12544 TCF STCTR
064737,000200: 20,2566 12570 TCF COMMEQS
064738,000201: 20,2567 12607 TCF LRESC
064739,000202:
064740,000203: 20,2570 31532 COMMEQS CA 1JACCR # SCALED AT PI/4
064741,000204: 20,2571 61531 AD 1JACCQ
064742,000205: 20,2572 00006 EXTEND
064743,000206: 20,2573 73026 MP 0.35356 # .70711 SCALED BY (+1)
064744,000207: 20,2574 55533 TS 1JACCU
064745,000208: 20,2575 55534 TS 1JACCV # SCALED AT PI/2 RAD/SEC**2
064746,000209:
064747,000210: 20,2576 10154 CCS MPAC # COMPUTE L,PVT-CG IF IN DESCENT
064748,000211: 20,2577 34755 CAF ZERO # ZERO SWITCHES AND GO TO 1/ACCONT IN
064749,000212: 20,2600 55501 TS ALLOWGTS # ASCENT
064750,000213: 20,2601 13142 TCF 1/ACCONT -1
064751,000214:
064752,000215: 20,2602 44752 CS TWO
064753,000216: 20,2603 54154 TS MPAC
064754,000217: 20,2604 44753 CS ONE
064755,000218: 20,2605 54155 TS MPAC +1
064756,000219: 20,2606 12547 TCF STCTR1
064757,000220: # THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS. THE EQUATION IMPLE
064758,000221: # MENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
064759,000222: # T = ENGINE THRUST FORCE
064760,000223: # L = PIVOT TO CG DISTANCE OF ENGINE
064761,000224: # I = MOMENT OF INERTIA
064762,000225:
064763,000226: 20,2607 31246 LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
064764,000227: 20,2610 00006 EXTEND
064765,000228: 20,2611 71244 MP MASS # SCALED AT B+16 KGS
064766,000229: 20,2612 02724 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064767,000230: 20,2613 03027 ADRES GFACTM
064768,000231:
064769,000232: # MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
064770,000233: # THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO
064771,000234: # THAT IS UNCONVERTED. 2.20462 CONVERTS KG. TO LB. NOW T IS IN A SCALED AT 2(14).
064772,000235:
064773,000236: 20,2614 00006 EXTEND
064774,000237: 20,2615 71527 MP L,PVT-CG # SCALED AT 8 FEET.
|
|
Page 1483 |
064776,000239: 20,2616 00004 INHINT
064777,000240: 20,2617 54154 TS MPAC
064778,000241: 20,2620 00006 EXTEND
064779,000242: 20,2621 71532 MP 1JACCR
064780,000243: 20,2622 02724 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064781,000244: 20,2623 02000 ADRES TORKJET1
064782,000245:
064783,000246: 20,2624 55511 TS ACCDOTR # SCALED AT PI/2(7)
064784,000247: 20,2625 30154 CA MPAC
064785,000248: 20,2626 00006 EXTEND
064786,000249: 20,2627 71531 MP 1JACCQ
064787,000250: 20,2630 02724 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
064788,000251: 20,2631 02000 ADRES TORKJET1
064789,000252:
064790,000253: 20,2632 55507 SPSCONT TS ACCDOTQ # SCALED AT PI/2(7)
064791,000254: 20,2633 00006 EXTEND
064792,000255: 20,2634 73025 MP DGBF # .3ACCDOTQ SCALED AT PI/2(8)
064793,000256: 20,2635 55503 TS KQ
064794,000257: 20,2636 00006 EXTEND
064795,000258: 20,2637 70000 SQUARE
064796,000259: 20,2640 55504 TS KQ2 # KQ(2)
064797,000260:
064798,000261: 20,2641 31511 CAE ACCDOTR # .3ACCDOTR AT PI/2(8)
064799,000262: 20,2642 00006 EXTEND
064800,000263: 20,2643 73025 MP DGBF
064801,000264: 20,2644 55505 TS KRDAP
064802,000265: 20,2645 00006 EXTEND
064803,000266: 20,2646 70000 SQUARE
064804,000267: 20,2647 55506 TS KR2
064805,000268:
064806,000269: 20,2650 00006 EXTEND # NOW COMPUTE QACCDOT, RACCDOT, THE SIGNED
064807,000270: 20,2651 00012 READ CHAN12 # JERK TERMS. STORE CHANNEL 12. WITH GIM
064808,000271: 20,2652 54155 TS MPAC +1 # BAL DRIVE BITS 9 THROUGH 12. SET LOOP
064809,000272: 20,2653 34752 CAF BIT2 # INDEX TO COMPUTE RACCDOT, THEN QACCDOT.
064810,000273: 20,2654 12656 TCF LOOP3
064811,000274: 20,2655 34755 CAF ZERO # ACCDOTQ AND ACCDOTR ARE NOT NEGATIVE,
064812,000275: 20,2656 54154 LOOP3 TS MPAC # BECAUSE THEY ARE MAGNITUDES
064813,000276: 20,2657 30155 CA MPAC +1
064814,000277: 20,2660 50154 INDEX MPAC # MASK CHANNEL IMAGE FOR ANY GIMBAL MOTION
064815,000278: 20,2661 73021 MASK GIMBLBTS
064816,000279: 20,2662 00006 EXTEND
064817,000280: 20,2663 12677 BZF ZACCDOT # IF NONE, Q(R)ACCDOT IS ZERO.
064818,000281: 20,2664 30155 CA MPAC +1
064819,000282: 20,2665 50154 INDEX MPAC # GIMBAL IS MOVING. IS ROTATION POSITIVE.
064820,000283: 20,2666 73022 MASK GIMBLBTS +1
064821,000284: 20,2667 00006 EXTEND
064822,000285: 20,2670 12674 BZF FRSTZERO # IF NOT POSITIVE, BRANCH
064823,000286: 20,2671 50154 INDEX MPAC # POSITIVE ROTATION, NEGATIVE Q(R)ACCDOT.
064824,000287: 20,2672 41507 CS ACCDOTQ
064825,000288: 20,2673 12700 TCF STACCDOT
|
|
Page 1484 |
064827,000290: 20,2674 50154 FRSTZERO INDEX MPAC # NEGATIVE ROTATION, POSITIVE Q(R)ACCDOT.
064828,000291: 20,2675 31507 CA ACCDOTQ
064829,000292: 20,2676 12700 TCF STACCDOT
064830,000293: 20,2677 34755 ZACCDOT CAF ZERO
064831,000294: 20,2700 50154 STACCDOT INDEX MPAC
064832,000295: 20,2701 55510 TS QACCDOT # STORE Q(R)ACCDOT.
064833,000296: 20,2702 10154 CCS MPAC
064834,000297: 20,2703 12655 TCF LOOP3 -1 # NOW DO QACCDOT.
064835,000298:
064836,000299: 20,2704 40111 CS DAPBOOLS # IS GIMBAL USABLE?
064837,000300: 20,2705 74736 MASK USEQRJTS
064838,000301: 20,2706 00006 EXTEND
064839,000302: 20,2707 13576 BZF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064840,000303: 20,2710 41274 CS T5ADR # YES. IS THE DAP RUNNING?
064841,000304: 20,2711 63655 AD PAXISADR
064842,000305: 20,2712 00006 EXTEND
064843,000306: 20,2713 12715 BZF +2
064844,000307: 20,2714 13576 TCF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
064845,000308: 20,2715 11631 CCS INGTS # YES. IS GTS IN CONTROL?
064846,000309: 20,2716 12721 TCF DOCKTEST # YES. PROCEED WITH 1/ACCS.
064847,000310: 20,2717 04674 TC IBNKCALL # NO. NULL OFFSET AND FIND ALLOWGTS
064848,000311: 20,2720 43450 CADR TIMEGMBL
064849,000312:
064850,000313: 20,2721 10157 DOCKTEST CCS DOCKTEMP # BYPASS 1/ACCONT WHEN DOCKED.
064851,000314: 20,2722 13561 TCF 1/ACCRET
064852,000315: 20,2723 13143 TCF 1/ACCONT
064853,000316:
|
|
Page 1485 |
064855,000318: # SUBROUTINE: DVOVSUB
064856,000319: # AUTHOR: C. WORK, MOD 0 12 JUNE 68
064857,000320: # PURPOSE: THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
064858,000321: # (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
064859,000322: # (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
064860,000323: # (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
064861,000324: # THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6.
064862,000325: # THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE. SIGN AGREEMENT IS
064863,000326: # ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE RE-
064864,000327: # SULT OF A MULTIPLICATION OPERATION.)
064865,000328: # CALL SEQUENCE:
064866,000329: # L TC DVOVSUB
064867,000330: # L +1 ADRES (DIVISOR)
064868,000331: # L +2 RETURN HERE, WITH RESULT IN A,L
064869,000332: # INPUT: DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
064870,000333: # DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
064871,000334: # OUTPUT: QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
064872,000335: # DEBRIS: SCRATCHX,SCRATCHY,SCRATCHZ,A,L (NOTE: SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5, AND +6.)
064873,000336: # ABORTS OR ALARMS: NONE
064874,000337: # EXITS: TO THE CALL POINT +2.
064875,000338: # SUBROUTINES CALLED: NONE.
064876,000339:
064877,000340: 20,2724 54161 DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND
064878,000341: 20,2725 54160 TS SCRATCHX
064879,000342: 20,2726 50002 INDEX Q # OBTAIN ADDRESS OF DIVISOR.
064880,000343: 20,2727 30000 CA 0
064881,000344: 20,2730 24002 INCR Q # STEP Q FOR PROPER RETURN SEQUENCE.
064882,000345: 20,2731 50000 INDEX A
064883,000346: 20,2732 30000 CA 0 # PICK UP THE DIVISOR.
064884,000347: 20,2733 00006 EXTEND # RETURN POSMAX FOR A ZERO DIVISOR.
064885,000348: 20,2734 12763 BZF MAXPLUS
064886,000349:
064887,000350: 20,2735 54162 TS SCRATCHZ # STORE DIVISOR.
064888,000351:
064889,000352: 20,2736 10000 CCS A # GET ABS(DIVISOR) IN THE A REGISTER.
064890,000353: 20,2737 64753 AD BIT1
064891,000354: 20,2740 12742 TCF ZEROPLUS
064892,000355: 20,2741 64753 AD BIT1
064893,000356:
064894,000357: 20,2742 56161 ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF
064895,000358: 20,2743 00006 EXTEND # DIVIDEND.
064896,000359: 20,2744 62746 BZMF GOODNEG # GET -ABS(DIVIDEND)
|
|
Page 1486 |
064898,000361: 20,2745 40000 CS A
064899,000362:
064900,000363: 20,2746 60161 GOODNEG AD SCRATCHY # ABS(DIVISOR) - ABS(DIVIDEND)
064901,000364: 20,2747 00006 EXTEND
064902,000365: 20,2750 62755 BZMF MAKEMAX # BRANCH IF DIVISION IS NOT PROPER.
064903,000366:
064904,000367: 20,2751 30160 CA SCRATCHX # RE-ESTABLISH THE DIVIDEND.
064905,000368: 20,2752 00006 EXTEND
064906,000369: 20,2753 10162 DV SCRATCHZ # QUOTIENT IN THE A, REMAINDER IN L.
064907,000370: 20,2754 00002 TC Q # RETURN TO CALLER.
064908,000371:
064909,000372: 20,2755 10160 MAKEMAX CCS SCRATCHX # DETERMINE THE SIGN OF THE QUOTIENT.
064910,000373: 20,2756 10162 CCS SCRATCHZ # SCRATCHX AND SCRATCHZ ARE NON-ZERO.
064911,000374: 20,2757 12763 TCF MAXPLUS
064912,000375: 20,2760 10162 CCS SCRATCHZ
064913,000376: 20,2761 34735 CAF NEGMAX # +,- OR -,+
064914,000377: 20,2762 00002 TC Q
064915,000378: 20,2763 34733 MAXPLUS CAF POSMAX # -,- OR +,+
064916,000379: 20,2764 00002 TC Q
064917,000380:
064918,000381: # COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
064919,000382: # THE CURVE FITS ARE OF THE FORM -
064920,000383:
064921,000384: # 1JACC = A/(MASS + C) + B
064922,000385:
064923,000386: # A IS SCALED AT PI/4 RAD/SEC**2 B+16KG, B IS SCALED AT PI/4 RAD/SEC**2, AND C IS SCALED AT B +16 KG.
064924,000387:
064925,000388: # THE CURVE FIT FOR L,PVT-CG IS OF THE SAME FORM, EXCEPT THAT A IS SCALED AT 8 FT B+16 KG, B IS SCALED AT 8 FT,
064926,000389: # AND C IS SCALED AT B+16 KG.
064927,000390:
064928,000391: 20,2765 01240 22513 2DEC +.0410511917 # L A DESCENT
064929,000392:
064930,000393: 20,2767 00141 07416 INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
064931,000394:
064932,000395: 20,2771 00030 21261 2DEC +.0014979264 # 1JACCQ A DESCENT
064933,000396:
064934,000397: 20,2773 00021 03766 2DEC +.0010451889 # 1JACCR A DESCENT
064935,000398:
064936,000399: 20,2775 00153 07111 2DEC +.0065443852 # 1JACCP A ASCENT
064937,000400:
064938,000401: 20,2777 00072 24103 2DEC +.0035784354 # 1JACCQ A ASCENT
064939,000402:
064940,000403: 20,3001 00135 11511 2DEC +.0056946631 # 1JACCR A ASCENT
064941,000404:
064942,000405: 20,3003 04754 DEC +.155044 # L B DESCENT
064943,000406: 20,3004 77142 DEC -.025233 # L C DESCENT
|
|
Page 1487 |
064945,000408: 20,3005 00061 INERCONB DEC +.002989 # 1JACCP B DESCENT
064946,000409: 20,3006 00217 INERCONC DEC +.008721 # 1JACCP C DESCENT
064947,000410: 20,3007 00464 DEC +.018791 # 1JACCQ B DESCENT
064948,000411: 20,3010 75642 DEC -.068163 # 1JACCQ C DESCENT
064949,000412: 20,3011 00536 DEC +.021345 # 1JACCR B DESCENT
064950,000413: 20,3012 75705 DEC -.066027 # 1JACCR C DESCENT
064951,000414:
064952,000415: 20,3013 00001 DEC +.000032 # 1JACCP B ASCENT
064953,000416: 20,3014 77616 DEC -.006923 # 1JACCP C ASCENT
064954,000417: 20,3015 05154 DEC +.162862 # 1JACCQ B ASCENT
064955,000418: 20,3016 00052 DEC +.002588 # 1JACCQ C ASCENT
064956,000419: 20,3017 00231 DEC +.009312 # 1JACCR B ASCENT
064957,000420: 20,3020 77174 DEC -.023608 # 1JACCR C ASCENT
064958,000421:
064959,000422: 20,3021 01400 GIMBLBTS OCTAL 01400
064960,000423: 20,3022 01000 OCTAL 01000
064961,000424: 20,3023 06000 OCTAL 06000
064962,000425: 20,3024 04000 OCTAL 04000
064963,000426: 20,3025 23146 DGBF DEC 0.6 # .3 SCALED AT 1/2
064964,000427: 20,3026 13241 0.35356 DEC 0.35356 # .70711 SCALED AT 2
064965,000428: 20,3027 00337 GFACTM OCT 337 # 979.24/2.20462 AT B+15
064966,000429:
064967,000430: # CSM-DOCKED INERTIA COMPUTATIONS
064968,000431:
064969,000432: 20,3030 34753 DOCKED CA ONE # COEFTR = 1 FOR INERTIA COEFFICIENTS
064970,000433: 20,3031 54160 SPSLOOP1 TS COEFCTR # = 7 FOR CG COEFFICIENTS
064971,000434: 20,3032 34753 CA ONE # MASSCTR = 1 FOR CSM
064972,000435: 20,3033 54161 TS MASSCTR # = 0 FOR LEM
064973,000436:
064974,000437: 20,3034 50160 INDEX COEFCTR
064975,000438: 20,3035 33125 CA COEFF -1 # COEFF -1 = C
064976,000439: 20,3036 00006 EXTEND
064977,000440: 20,3037 71331 MP LEMMASS
064978,000441: 20,3040 00006 EXTEND
064979,000442: 20,3041 71332 MP CSMMASS # LET X = CSMMASS AND Y = LEMMASS
064980,000443:
064981,000444: 20,3042 50160 INDEX COEFCTR
064982,000445: 20,3043 63126 AD COEFF # COEFF = F
064983,000446: 20,3044 54154 TS MPAC # MPAC = C X Y + F
064984,000447: 20,3045 13051 TCF +4
064985,000448:
064986,000449: 20,3046 54161 SPSLOOP2 TS MASSCTR # LOOP TWICE THROUGH HERE TO OBTAIN
064987,000450: 20,3047 00006 EXTEND # MPAC = MPAC + (A X +D)X + (B Y +E)Y
064988,000451: 20,3050 26160 DIM COEFCTR # LOOP #1 LOOP #2
064989,000452: 20,3051 50160 INDEX COEFCTR
064990,000453: 20,3052 33130 CA COEFF +2 # COEFF +2 = A OR B
064991,000454: 20,3053 00006 EXTEND
064992,000455: 20,3054 50161 INDEX MASSCTR
064993,000456: 20,3055 71331 MP LEMMASS
064994,000457: 20,3056 50160 INDEX COEFCTR
|
|
Page 1488 |
064996,000459: 20,3057 63132 AD COEFF +4 # COEFF +4 = E OR D
064997,000460: 20,3060 00006 EXTEND
064998,000461: 20,3061 50161 INDEX MASSCTR
064999,000462: 20,3062 71331 MP LEMMASS
065000,000463: 20,3063 26154 ADS MPAC
065001,000464:
065002,000465: 20,3064 10161 CCS MASSCTR
065003,000466: 20,3065 13046 TCF SPSLOOP2
065004,000467: 20,3066 10160 CCS COEFCTR # IF COEFCTR IS POS, EXIT FROM LOOP WITH
065005,000468: 20,3067 13076 TCF +7 # CG X DELDOT = MPAC X 4 PI RAD-CM/SEC
065006,000469: 20,3070 00000 20354 TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT
065007,000470:
065008,000471: 20,3072 30154 CA MPAC
065009,000472: 20,3073 54155 TS MPAC +1 # INERTIA = (MPAC +1) X 2(38) KG-CM(2)
065010,000473: 20,3074 34757 CA SEVEN
065011,000474: 20,3075 13031 TCF SPSLOOP1
065012,000475:
065013,000476: 20,3076 34742 CA BIT10 # CORRESPONDS TO 1. 4 DEG/SEC(2)
065014,000477: 20,3077 55530 TS 1JACC # SCALED AT PI/4
065015,000478:
065016,000479: 20,3100 34733 CA POSMAX # SET INVERSE JET ACCELERATIONS TO POSMAX,
065017,000480: 20,3101 55551 TS 1/ANETP # WHICH CORRESPONDS TO ACCEL. OF 1.4 D/SS.
065018,000481: 20,3102 55571 TS 1/ANET2 +1
065019,000482: 20,3103 55572 TS 1/ANET2 +2
065020,000483: 20,3104 55611 TS 1/ANET2 +17D
065021,000484: 20,3105 55612 TS 1/ANET2 +18D
065022,000485: 20,3106 00006 EXTEND
065023,000486: 20,3107 33071 DCA TORQCONS
065024,000487: 20,3110 00006 EXTEND
065025,000488: 20,3111 10155 DV MPAC +1
065026,000489: 20,3112 00004 INHINT
065027,000490: 20,3113 55531 TS 1JACCQ # SCALED AT PI/4
065028,000491: 20,3114 55532 TS 1JACCR
065029,000492:
065030,000493: 20,3115 31244 CA MASS # SCALED AT 2(16) KG
065031,000494: 20,3116 00006 EXTEND
065032,000495: 20,3117 70154 MP MPAC # SCALED AT 4 PI RAD-CM/SEC
065033,000496: 20,3120 00006 EXTEND
065034,000497: 20,3121 71246 MP ABDELV # SCALED AT 2(13) CM/SEC(2)
065035,000498: 20,3122 02724 TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
065036,000499: 20,3123 00155 ADRES MPAC +1
065037,000500:
065038,000501: 20,3124 55511 TS ACCDOTR
065039,000502: 20,3125 12632 TCF SPSCONT # CONTINUE K, KSQ CALCULATIONS
065040,000503:
065041,000504: # 2 2
065042,000505: # COEFFICIENTS FOR CURVE FIT OF THE FORM Z = A X +B Y +C X Y +D X +E Y +F
065043,000506:
065044,000507: 20,3126 06176 COEFF DEC .19518 # C COEFFICIENT OF INERTIA
065045,000508: 20,3127 77650 DEC -.00529 # F ''
|
|
Page 1489 |
065047,000510: 20,3130 72260 DEC -.17670 # B ''
065048,000511: 20,3131 76637 DEC -.03709 # A ''
065049,000512: 20,3132 02167 DEC .06974 # E ''
065050,000513: 20,3133 00645 DEC .02569 # D ''
065051,000514:
065052,000515: 20,3134 06335 DEC .20096 # C COEFFICIENT OF CG
065053,000516: 20,3135 04256 DEC .13564 # F ''
065054,000517: 20,3136 30163 DEC .75704 # B ''
065055,000518: 20,3137 64072 DEC -.37142 # A ''
065056,000519: 20,3140 53632 DEC -.63117 # E ''
065057,000520: 20,3141 15133 DEC .41179 # D ''
065058,000521:
065059,000522: # ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
065060,000523: # MPAC, MPAC +1, MPAC +2 USED EXPLICITLY
065061,000524: 20,3142 0160 COEFCTR EQUALS MPAC +4
065062,000525: 20,3142 0161 MASSCTR EQUALS MPAC +5
065063,000526: 20,3142 0160 SCRATCHX EQUALS MPAC +4 # SCRATCH AREA FOR DVOVSUB ROUTINE.
065064,000527: 20,3142 0161 SCRATCHY EQUALS SCRATCHX +1
065065,000528: 20,3142 0162 SCRATCHZ EQUALS SCRATCHX +2
065066,000529:
065067,000530: 20,3142 0157 DOCKTEMP EQUALS MPAC +3 # RECORD OF CSMDOCKED BIT OF DAPBOOLS
065068,000531:
|
|
Page 1490 |
065070,000533: 20,3142 BANK 20
065071,000534: 20,2000 SETLOC DAPS3
065072,000535: 20,2000 BANK
065073,000536:
065074,000537: 20,3142 E6,1537 EBANK= AOSQ
065075,000538:
065076,000539: 20,3142 COUNT* $$/DAPAO
065077,000540:
065078,000541: 20,3142 55631 -1 TS INGTS # ZERO INGTS IN ASCENT
065079,000542: 20,3143 31346 1/ACCONT CA DB # INITIALIZE DBVAL1,2,3
065080,000543: 20,3144 00006 EXTEND
065081,000544: 20,3145 74737 MP BIT13
065082,000545: 20,3146 54001 TS L # 0.25 DB
065083,000546: 20,3147 60000 AD A
065084,000547: 20,3150 54115 TS DBVAL3 # 0.50 DB
065085,000548: 20,3151 41346 CS DBVAL1
065086,000549: 20,3152 60001 AD L
065087,000550: 20,3153 54114 TS DBVAL2 # -.75 DB
065088,000551:
065089,000552: 20,3154 00004 GETAOSUV INHINT
065090,000553: 20,3155 31541 CAE AOSR # COMPUTE AOSU AND AOSV BY ROTATING
065091,000554: 20,3156 54001 TS L # AOSQ AND AOSR.
065092,000555: 20,3157 31537 CAE AOSQ
065093,000556: 20,3160 04674 TC IBNKCALL
065094,000557: 20,3161 37100 CADR ROT45DEG
065095,000558: 20,3162 53544 DXCH AOSU
065096,000559:
065097,000560: 20,3163 00003 RELINT
065098,000561: 20,3164 30111 CA DAPBOOLS
065099,000562: 20,3165 74744 MASK DRIFTBIT # ZERO DURING ULLAGE AND POWERED FLIGHT.
065100,000563: 20,3166 10000 CCS A # IF DRIFTING FLIGHT,
065101,000564: 20,3167 34753 CA ONE # SET DRIFTER TO 1
065102,000565: 20,3170 54116 TS DRIFTER # SAVE TO TEST FOR DRIFTING FLIGHT LATER
065103,000566: 20,3171 61501 AD ALLOWGTS # NON-ZERO IF DRIFT OR GTS NEAR
065104,000567: 20,3172 10000 CCS A
065105,000568: 20,3173 33653 CA FLATVAL # DRIFTING FLIGHT, STORE .8 IN FLAT
065106,000569: 20,3174 54151 TS FLATEMP # IN POWERED FLIGHT, STORE ZERO IN FLAT
065107,000570: 20,3175 00006 EXTEND
065108,000571: 20,3176 13202 BZF DOPAXIS # IF POWERED AND NO GTS, START P AXIS,
065109,000572: 20,3177 10116 CCS DRIFTER # OTHERWISE SET ZONE3LIM
065110,000573: 20,3200 33652 CA ZONE3MAX # 17.5 MS, SCALED AT 4 SECONDS.
065111,000574: 20,3201 54152 TS Z3TEM
065112,000575:
065113,000576: 20,3202 31530 DOPAXIS CA 1JACC # 1JACC AT PI/4 = 2JACC AT PI/2 =
065114,000577: # ANET AT PI/2 = ANET/ACOAST AT 2(6).
065115,000578: 20,3203 64743 AD BIT9 # 1 + ANET/ACOAST AT 2(6)
065116,000579: 20,3204 54157 TS FUNTEM
065117,000580:
065118,000581: 20,3205 31530 CA 1JACC
|
|
Page 1491 |
065120,000583: 20,3206 03570 TC INVERT
065121,000584: 20,3207 00004 INHINT # P AXIS DATA MUST BE CONSISTENT
065122,000585: 20,3210 55551 TS 1/ANETP # SCALED AT 2(7)/PI.
065123,000586: 20,3211 55552 TS 1/ANETP +1
065124,000587:
065125,000588: 20,3212 44743 CS BIT9 # -1 AT 2(6)
065126,000589: 20,3213 00006 EXTEND
065127,000590: 20,3214 71551 MP 1/ANETP # -1/ANET AT 2(13)/PI
065128,000591: 20,3215 00006 EXTEND
065129,000592: 20,3216 10157 DV FUNTEM # -1/(ANET + ANET**2/ACOAST) AT 2(7)/PI
065130,000593: 20,3217 55557 TS PACCFUN
065131,000594: 20,3220 55560 TS PACCFUN +1
065132,000595:
065133,000596: 20,3221 34733 CA 1/.03 # NO AOS FOR P AXIS, ACOAST = AMIN
065134,000597: 20,3222 55553 TS 1/ACOSTP
065135,000598: 20,3223 55554 TS 1/ACOSTP +1
065136,000599: 20,3224 00003 RELINT
065137,000600:
065138,000601: 20,3225 22007 ZL
065139,000602: 20,3226 10116 CCS DRIFTER
065140,000603: 20,3227 53544 DXCH AOSU # ZERO AOSU,V IF IN DRIFT, JUST TO BE SURE
065141,000604:
065142,000605: 20,3230 34755 UAXIS CA ZERO # DO U AXIS COMPUTATIONS
065143,000606: 20,3231 54154 TS UV # ZERO FOR U AXIS, ONE FOR V AXIS.
065144,000607:
065145,000608: 20,3232 54163 BOTHAXES TS SIGNAOS # CODING COMMON TO U,V AXES
065146,000609: 20,3233 50154 INDEX UV
065147,000610: 20,3234 11543 CCS AOSU # PICK UP ABS(AOSU OR AOSV)
065148,000611: 20,3235 64753 AD ONE # RESTORE TO PROPER VALUE
065149,000612: 20,3236 13241 TCF +3 # AND LEAVE SIGNAOS AT ZERO
065150,000613: 20,3237 64753 AD ONE # NEGATIVE, RESTORE TO PROPER VALUE
065151,000614: 20,3240 24163 INCR SIGNAOS # AND SET SIGNAOS TO ONE TO SHOW AOS NEG
065152,000615: 20,3241 54162 TS ABSAOS # SAVE ABS(AOS)
065153,000616: 20,3242 40163 CS SIGNAOS
065154,000617: 20,3243 54164 TS -SIGNAOS # USED AS AN INDEX
065155,000618:
065156,000619: 20,3244 31346 CA DBVAL1 # SET DB1, DB2 TO DBVAL1 (= DB)
065157,000620: 20,3245 54143 TS DBB1
065158,000621: 20,3246 54144 TS DBB2
065159,000622:
065160,000623: 20,3247 30162 CA ABSAOS # TEST MAGNITUDE OF ABS(AOS)
065161,000624: 20,3250 63654 AD -.03R/S2
065162,000625: 20,3251 00006 EXTEND
065163,000626: 20,3252 63322 BZMF NOTMUCH # ABS(AOS) LESS THAN AMIN
065164,000627: 20,3253 10151 BIGAOS CCS FLATEMP # AGS(AOS) GREATER THAN AMIN
065165,000628: 20,3254 13265 TCF SKIPDB1 # I DRIFT OR GTS, DO NOT COMPUTE DB
065166,000629:
065167,000630: 20,3255 31346 CA DBVAL1
065168,000631: 20,3256 50164 INDEX -SIGNAOS
|
|
Page 1492 |
065170,000633: 20,3257 26144 ADS DBB2 # DB2(1) = 2 DB
065171,000634: 20,3260 50163 INDEX SIGNAOS
065172,000635: 20,3261 54145 TS DBB4 # DB4(3) = 1 DB
065173,000636: 20,3262 30114 CA DBVAL2
065174,000637: 20,3263 50164 INDEX -SIGNAOS
065175,000638: 20,3264 54146 TS DBB3 # DB3(4) = -.75 DB
065176,000639:
065177,000640: 20,3265 30162 SKIPDB1 CA ABSAOS # ABS(AOS) GREATER THAN AMIN, SO IT IS
065178,000641: 20,3266 03570 TC INVERT # ALL RIGHT TO DIVIDE
065179,000642: 20,3267 50164 INDEX -SIGNAOS
065180,000643: 20,3270 54130 TS 1/ACOSTT +1 # 1/ACOASTPOS(NEG) = 1/ABS(AOS)
065181,000644: 20,3271 34733 CA 1/.03
065182,000645: 20,3272 50163 INDEX SIGNAOS
065183,000646: 20,3273 54127 TS 1/ACOSTT # 1/ACOASTNEG(POS) = 1/AMIN
065184,000647:
065185,000648: 20,3274 30162 CA ABSAOS
065186,000649: 20,3275 61533 AD 1JACCU
065187,000650: 20,3276 61533 AD 1JACCU # 2 JACC + ABS(AOS)
065188,000651: 20,3277 64743 AD BIT9 # MAXIMUM VALUE IN COMPUTATIONS
065189,000652: 20,3300 54000 TS A # TEST FOR OVERFLOW
065190,000653: 20,3301 13346 TCF SKIPDB2 # NO OVERFLOW, DO NORMAL COMPUTATION
065191,000654:
065192,000655: 20,3302 30162 CA ABSAOS # RESCALE TO PI TO PREVENT OVERFLOW
065193,000656: 20,3303 00006 EXTEND
065194,000657: 20,3304 74736 MP BIT14
065195,000658: 20,3305 61533 AD 1JACCU # 1 JACC AT PI/2 = 2JACC AT PI
065196,000659: 20,3306 54157 TS ANET # ANETPOS(NEG) MAX SCALED AT PI =
065197,000660: # ANETPOS(NEG) MAX/ACOASTNEG(POS) AT 2(7)
065198,000661: 20,3307 64744 AD BIT8 # 1 + ANETPOS/ACOASTNEG AT 2(7)
065199,000662: 20,3310 56157 XCH ANET # SAVE IN ANET, WHILE PICKING UP ANET
065200,000663: 20,3311 03570 TC INVERT
065201,000664: 20,3312 00006 EXTEND
065202,000665: 20,3313 74736 MP BIT14 # SCALE 1/ANET AT 2(7)/PI
065203,000666: 20,3314 54160 TS 1/ANET
065204,000667:
065205,000668: 20,3315 33321 CA ACCHERE # SET UP RETURN FROM COMPUTATION ROUTINE
065206,000669: 20,3316 54161 TS ARET
065207,000670: 20,3317 44744 CS BIT8 # -1 AT 2(7)
065208,000671: 20,3320 13623 TCF DOACCFUN # FINISH ACCFUN COMPUTATION
065209,000672:
065210,000673: 20,3321 13353 ACCHERE TCF ACCTHERE
065211,000674:
065212,000675:
065213,000676: 20,3322 54001 NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L
065214,000677: 20,3323 34733 CA 1/.03 # ACOASTPOS,NEG = AMIN
065215,000678: 20,3324 54127 TS 1/ACOSTT
065216,000679: 20,3325 54130 TS 1/ACOSTT +1
065217,000680:
065218,000681: 20,3326 10151 CCS FLATEMP
065219,000682: 20,3327 13346 TCF SKIPDB2 # DO NOT COMPUTE DB IF DRIFT OR GTS
065220,000683:
|
|
Page 1493 |
065222,000685: 20,3330 34744 CA .0125RS # AMIN/2
065223,000686: 20,3331 60001 AD L # L HAS ABS(AOS) - AMIN
065224,000687: 20,3332 00006 EXTEND # RESULT IS ABS(AOS)- AMIN/2
065225,000688: 20,3333 63343 BZMF NOAOS # ABS(AOS) LESS THAN AMIN/2
065226,000689:
065227,000690: 20,3334 30115 SOMEAOS CA DBVAL3 # AMIN/2 LT ABS(AOS) LT AMIN
065228,000691: 20,3335 50164 INDEX -SIGNAOS
065229,000692: 20,3336 54146 TS DBB3 # DB3(4) = DB/2
065230,000693: 20,3337 60000 AD A
065231,000694: 20,3340 50163 INDEX SIGNAOS
065232,000695: 20,3341 54145 TS DBB4 # DB4(3) = DB
065233,000696: 20,3342 13346 TCF SKIPDB2
065234,000697:
065235,000698: 20,3343 31346 NOAOS CA DBVAL1
065236,000699: 20,3344 54146 TS DBB3 # DB3,4 = DB
065237,000700: 20,3345 54145 TS DBB4
065238,000701:
065239,000702: 20,3346 30162 SKIPDB2 CA ABSAOS # ANETPOS(NEG) MAX = 2 JACC + ABS(AOS)
065240,000703: 20,3347 61533 AD 1JACCU
065241,000704: 20,3350 61533 AD 1JACCU
065242,000705: 20,3351 54157 TS ANET # CONNOT OVERFLOW HERE
065243,000706: 20,3352 03614 CL1/NET+ TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN
065244,000707:
065245,000708: 20,3353 50164 ACCTHERE INDEX -SIGNAOS
065246,000709: 20,3354 54134 TS Z5TEM +2 # STORE ACCFUN IN TEMPORARY BUFFER
065247,000710: 20,3355 30160 CA 1/ANET
065248,000711: 20,3356 50164 INDEX -SIGNAOS
065249,000712: 20,3357 54126 TS 1/ATEM2 +2 # STORE 1/ANET IN TEMPORARY BUFFER
065250,000713:
065251,000714: 20,3360 30162 CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
065252,000715: 20,3361 61533 AD 1JACCU
065253,000716: 20,3362 64743 AD BIT9 # MAXIMUM POSSIBLE VALUE
065254,000717: 20,3363 54000 TS A # OVERFLOW POSSIBLE BUT REMOTE
065255,000718: 20,3364 13366 TCF +2
065256,000719: 20,3365 34733 CA POSMAX # IF OVERFLOW, TRUNCATE TO PI/2
065257,000720: 20,3366 63654 AD -.03R/S2 # RESTORE TO CORRECT VALUE
065258,000721: 20,3367 54157 TS ANET
065259,000722: 20,3370 03614 TC DO1/NET+ # COMPUTE 1/ANET, ACCFUN
065260,000723:
065261,000724: 20,3371 50164 INDEX -SIGNAOS # STORE MIN VALUES JUST AS MAX VALUES
065262,000725: 20,3372 54132 TS Z5TEM
065263,000726: 20,3373 30160 CA 1/ANET
065264,000727: 20,3374 50164 INDEX -SIGNAOS
065265,000728: 20,3375 54124 TS 1/ATEM2
065266,000729:
065267,000730: 20,3376 40162 CS ABSAOS # NOW DO NEG(POS) CASES
065268,000731: 20,3377 61533 AD 1JACCU
065269,000732: 20,3400 61533 AD 1JACCU # ANETNEG(POS) MAX
065270,000733: 20,3401 03602 TC 1/ANET- # COMPUTE 1/ANET, ACCFUN, AND ACCSW
|
|
Page 1494 |
065272,000735: 20,3402 50163 INDEX SIGNAOS # STORE NEG(POS) VALUES JUST AS POS(NEG)
065273,000736: 20,3403 54133 TS Z1TEM +2
065274,000737: 20,3404 54001 TS L # SAVE IN L FOR POSSIBLE FUTURE USE
065275,000738: 20,3405 30160 CA 1/ANET
065276,000739: 20,3406 50163 INDEX SIGNAOS
065277,000740: 20,3407 54125 TS 1/ATEM1 +2
065278,000741: 20,3410 40162 CS ABSAOS
065279,000742: 20,3411 61533 AD 1JACCU # 1/ANETNEG(POS) MIN
065280,000743: 20,3412 54157 TS ANET
065281,000744: 20,3413 63654 AD -.03R/S2 # TEST FOR AMIN
065282,000745: 20,3414 00006 EXTEND # IF ANET LESS THAN AMIN, STORE MAX JET
065283,000746: 20,3415 63633 BZMF FIXMIN # VALUES FOR MIN JETS AND SET ACCSW
065284,000747:
065285,000748: 20,3416 03610 TC 1/NETMIN # OTHERWISE DO MIN JET COMPUTATIONS
065286,000749: 20,3417 50163 STMIN- INDEX SIGNAOS # STORE VALUES
065287,000750: 20,3420 54131 TS Z1TEM
065288,000751: 20,3421 30160 CA 1/ANET
065289,000752: 20,3422 50163 INDEX SIGNAOS
065290,000753: 20,3423 54123 TS 1/ATEM1
065291,000754:
065292,000755: 20,3424 50154 INDEX UV
065293,000756: 20,3425 33660 CA +UMASK
065294,000757: 20,3426 71262 MASK CH5MASK # TEST FOR +U (+V) JET FAILURES
065295,000758: 20,3427 00006 EXTEND
065296,000759: 20,3430 13435 BZF FAIL-
065297,000760: 20,3431 30124 CA 1/ATEM2 # REPLACE FUNCTION VALUES DEPENDING ON THE
065298,000761: 20,3432 54126 TS 1/ATEM2 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
065299,000762: 20,3433 30132 CA Z5TEM # JET (OR AMIN) FUNCTION VALUES
065300,000763: 20,3434 54134 TS Z5TEM +2
065301,000764: 20,3435 50154 FAIL- INDEX UV
065302,000765: 20,3436 33656 CA -UMASK
065303,000766: 20,3437 71262 MASK CH5MASK # TEST FOR -U (-V) JET FAILURES
065304,000767: 20,3440 00006 EXTEND
065305,000768: 20,3441 13446 BZF DBFUN
065306,000769: 20,3442 30123 CA 1/ATEM1 # REPLACE FUNCTION VALUES DEPENDING ON THE
065307,000770: 20,3443 54125 TS 1/ATEM1 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
065308,000771: 20,3444 30131 CA Z1TEM # JET (OR AMIN) FUNCTION VALUES
065309,000772: 20,3445 54133 TS Z1TEM +2
065310,000773:
065311,000774: 20,3446 40146 DBFUN CS DBB3 # COMPUTE AXISDIST
065312,000775: 20,3447 60143 AD DBB1
065313,000776: 20,3450 60151 AD FLATEMP
065314,000777: 20,3451 54147 TS AXDSTEM
065315,000778: 20,3452 40145 CS DBB4
065316,000779: 20,3453 60144 AD DBB2
065317,000780: 20,3454 60151 AD FLATEMP
065318,000781: 20,3455 54150 TS AXDSTEM +1
065319,000782:
|
|
Page 1495 |
065321,000784: 20,3456 00004 INHINT
065322,000785: 20,3457 10154 CCS UV # TEST FOR U OR V AXIS
065323,000786: 20,3460 13502 TCF STORV # V AXIS STORE V VALUES
065324,000787:
065325,000788: 20,3461 30122 CA ACCSW # U AXIS STORE U VALUES
065326,000789: 20,3462 55547 TS ACCSWU
065327,000790:
065328,000791: 20,3463 34320 CA NINE # TRANSFER 10 WORDS VIA GENTRAN
065329,000792: 20,3464 05545 TC GENTRAN +1
065330,000793: 20,3465 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER
065331,000794: 20,3466 01567 ADRES 1/ANET1 # THE REAL PLACE
065332,000795:
065333,000796: 20,3467 00003 RELINT
065334,000797: 20,3470 52144 DXCH DBB1 # SAVE U DBS FOR LATER STORING
065335,000798: 20,3471 52136 DXCH UDB1
065336,000799: 20,3472 52146 DXCH DBB4
065337,000800: 20,3473 52140 DXCH UDB4
065338,000801:
065339,000802: 20,3474 52150 DXCH AXDSTEM
065340,000803: 20,3475 52142 DXCH UAXDIST
065341,000804:
065342,000805: 20,3476 34753 CA ONE # NOW DO V AXIS
065343,000806: 20,3477 54154 TS UV
065344,000807: 20,3500 34755 CA ZERO
065345,000808: 20,3501 13232 TCF BOTHAXES # AND DO IT AGAIN
065346,000809:
065347,000810: 20,3502 30122 STORV CA ACCSW # STORE V AXIS VALUES
065348,000811: 20,3503 55550 TS ACCSWV
065349,000812: 20,3504 34320 CA NINE
065350,000813: 20,3505 05545 TC GENTRAN +1
065351,000814: 20,3506 00123 ADRES 1/ATEM1 # TEMPORARY BUFFER
065352,000815: 20,3507 01607 ADRES 1/ANET1 +16D # THE REAL PLACE
065353,000816:
065354,000817: # NOW STORE DEADBANDS FOR ALL AXES
065355,000818: 20,3510 52152 DXCH FLATEMP # FLAT AND ZONE3LIM
065356,000819: 20,3511 53556 DXCH FLAT
065357,000820:
065358,000821: 20,3512 31346 CA DBVAL1 # COMPUTE P AXIS DEADBANDS
065359,000822: 20,3513 55561 TS PDB1
065360,000823: 20,3514 55562 TS PDB2
065361,000824: 20,3515 61555 AD FLAT
065362,000825: 20,3516 55564 TS PDB3
065363,000826: 20,3517 55563 TS PDB4
065364,000827: 20,3520 34755 CA ZERO
065365,000828: 20,3521 55565 TS PAXDIST
065366,000829: 20,3522 55566 TS PAXDIST +1
065367,000830:
065368,000831: 20,3523 11555 CCS FLAT
065369,000832: 20,3524 13542 TCF DRFDB # DRIFT OR GTS - COMPUTE DBS
065370,000833:
|
|
Page 1496 |
065372,000835: 20,3525 52136 DXCH UDB1 # STORE U DEADBANDS
065373,000836: 20,3526 53602 DXCH FIREDB # CANNOT USE GENTRAN BECAUSE OF RELINT
065374,000837: 20,3527 52140 DXCH UDB4
065375,000838: 20,3530 53604 DXCH COASTDB
065376,000839: 20,3531 52142 DXCH UAXDIST
065377,000840: 20,3532 53606 DXCH AXISDIST
065378,000841: 20,3533 52144 DXCH DBB1 # STORE V AXIS DEADBANDS
065379,000842: 20,3534 53622 DXCH FIREDB +16D # COULD USE GENTRAN IF DESIRED
065380,000843: 20,3535 52146 DXCH DBB4
065381,000844: 20,3536 53624 DXCH COASTDB +16D
065382,000845: 20,3537 52150 DXCH AXDSTEM
065383,000846: 20,3540 53626 DXCH AXISDIST +16D
065384,000847:
065385,000848: 20,3541 13562 TCF 1/ACCRET +1 # ALL DONE
065386,000849: 20,3542 31346 DRFDB CA DBVAL1 # DRIFT DEADBANDS
065387,000850: 20,3543 55601 TS FIREDB
065388,000851: 20,3544 55602 TS FIREDB +1
065389,000852: 20,3545 55621 TS FIREDB +16D
065390,000853: 20,3546 55622 TS FIREDB +17D
065391,000854: 20,3547 61555 AD FLAT
065392,000855: 20,3550 55603 TS COASTDB
065393,000856: 20,3551 55604 TS COASTDB +1
065394,000857: 20,3552 55623 TS COASTDB +16D
065395,000858: 20,3553 55624 TS COASTDB +17D
065396,000859: 20,3554 34755 CA ZERO
065397,000860: 20,3555 55605 TS AXISDIST
065398,000861: 20,3556 55606 TS AXISDIST +1
065399,000862: 20,3557 55625 TS AXISDIST +16D
065400,000863: 20,3560 55626 TS AXISDIST +17D
065401,000864:
065402,000865: 20,3561 00004 1/ACCRET INHINT
065403,000866: 20,3562 40111 CS DAPBOOLS # SET BIT TO INDICATE DATA GOOD.
065404,000867: 20,3563 74751 MASK ACCSOKAY
065405,000868: 20,3564 26111 ADS DAPBOOLS
065406,000869: 20,3565 00003 RELINT
065407,000870: 20,3566 30117 CA ACCRETRN
065408,000871: 20,3567 04640 TC BANKJUMP # RETURN TO CALLER
065409,000872:
065410,000873: 20,3570 54165 INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2
065411,000874: 20,3571 34743 CA BIT9 # 1 AT 2(6)
065412,000875: 20,3572 22007 ZL # ZERO L FOR ACCURACY AND TO PREVENT OVFLO
065413,000876: 20,3573 00006 EXTEND
065414,000877: 20,3574 10165 DV HOLD
065415,000878: 20,3575 00002 TC Q # RESULT AT 2(7)/PI
065416,000879:
065417,000880: 20,3576 34755 DOWNGTS CAF ZERO # ZERO SWITCHES WHEN USEQRJTS BIT IS UP
065418,000881: 20,3577 55501 TS ALLOWGTS # OR DAP IS OFF.
065419,000882: 20,3600 55631 TS INGTS
065420,000883: 20,3601 12721 TCF DOCKTEST
065421,000884:
|
|
Page 1497 |
065423,000886: 20,3602 22007 1/ANET- ZL
065424,000887: 20,3603 22122 LXCH ACCSW # ZERO ACCSW
065425,000888: 20,3604 54157 TS ANET # SAVE ANET
065426,000889: 20,3605 63654 AD -.03R/S2 # TEST FOR MIN VALUE
065427,000890: 20,3606 00006 EXTEND
065428,000891: 20,3607 63630 BZMF NETNEG # ANET LESS THAN AMIN, SO FAKE IT
065429,000892: 20,3610 30157 1/NETMIN CA ANET
065430,000893: 20,3611 00006 EXTEND
065431,000894: 20,3612 50164 INDEX -SIGNAOS
065432,000895: 20,3613 70130 MP 1/ACOSTT +1 # ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
065433,000896:
065434,000897: # THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
065435,000898: # VALUES OF AOS
065436,000899:
065437,000900: 20,3614 64743 DO1/NET+ AD BIT9 # 1 + ANET/ACOAST AT 2(6)
065438,000901: 20,3615 56157 XCH ANET # SAVE AND PICK UP ANET
065439,000902: 20,3616 00006 EXTEND
065440,000903: 20,3617 22161 QXCH ARET # SAVE RETURN
065441,000904: 20,3620 03570 TC INVERT
065442,000905: 20,3621 54160 TS 1/ANET # 1/ANET AT 2(7)/PI
065443,000906: 20,3622 44743 CS BIT9 # -1 AT 2(6)
065444,000907: 20,3623 00006 DOACCFUN EXTEND
065445,000908: 20,3624 70160 MP 1/ANET # -1/ANET AT 2(13)/PI
065446,000909: 20,3625 00006 EXTEND
065447,000910: 20,3626 10157 DV ANET # ACCFUN AT 2(7)/PI
065448,000911: 20,3627 00161 TC ARET # RETURN
065449,000912:
065450,000913: 20,3630 43654 NETNEG CS -.03R/S2 # ANET LESS THAN AMIN - SET EQUAL TO AMIN
065451,000914: 20,3631 54157 TS ANET
065452,000915: 20,3632 13611 TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED
065453,000916:
065454,000917: 20,3633 10163 FIXMIN CCS SIGNAOS
065455,000918: 20,3634 34752 CA TWO # IF AOS NEG, ACCSW = +1
065456,000919: 20,3635 67746 AD NEGONE # IF AOS POS, ACCSW = -1
065457,000920: 20,3636 54122 TS ACCSW
065458,000921: 20,3637 60154 AD UV # IF ACCSW = +1, TEST FOR +U (+V) JET FAIL
065459,000922: 20,3640 50000 INDEX A # IF ACCSW = -1, TEST FOR -U (-V) JET FAIL
065460,000923: 20,3641 33657 CA -UMASK +1
065461,000924: 20,3642 71262 MASK CH5MASK
065462,000925: 20,3643 00006 EXTEND
065463,000926: 20,3644 13650 BZF +4
065464,000927: 20,3645 43654 CS -.03R/S2 # JET FAILURE - CANNOT USE 2-JET VALUES
065465,000928: 20,3646 54157 TS ANET # ANET = AMIN
065466,000929: 20,3647 13416 TCF STMIN- -1 # CALCULATE FUNCTIONS USING AMIN
065467,000930: 20,3650 30001 CA L # L HAS ACCFUN
065468,000931: 20,3651 13417 TCF STMIN- # STORE MAX VALUES FOR MIN JETS
065469,000932:
065470,000933: # ERASABLE ASSIGNMENTS FOR 1/ACCONT
|
|
Page 1498 |
065472,000935: 20,3652 E6,1551 1/ANETP EQUALS BLOCKTOP +2
065473,000936: 20,3652 E6,1553 1/ACOSTP EQUALS BLOCKTOP +4
065474,000937: 20,3652 E6,1557 PACCFUN EQUALS BLOCKTOP +8D
065475,000938: 20,3652 E6,1561 PDB1 EQUALS BLOCKTOP +10D
065476,000939: 20,3652 E6,1562 PDB2 EQUALS BLOCKTOP +11D
065477,000940: 20,3652 E6,1563 PDB4 EQUALS BLOCKTOP +12D
065478,000941: 20,3652 E6,1564 PDB3 EQUALS BLOCKTOP +13D
065479,000942: 20,3652 E6,1565 PAXDIST EQUALS BLOCKTOP +14D
065480,000943:
065481,000944: 20,3652 0122 ACCSW EQUALS VBUF # EXECUTIVE TEMPORARIES
065482,000945: # CANNOT DO CCS NEWJOB DURING 1/ACCS
065483,000946: 20,3652 0123 1/ATEM1 EQUALS ACCSW +1 # TEMP BUFFER FOR U AND V AXES
065484,000947: 20,3652 0124 1/ATEM2 EQUALS 1/ATEM1 +1
065485,000948: 20,3652 0127 1/ACOSTT EQUALS 1/ATEM1 +4
065486,000949: 20,3652 0131 Z1TEM EQUALS 1/ATEM1 +6
065487,000950: 20,3652 0132 Z5TEM EQUALS 1/ATEM1 +7
065488,000951:
065489,000952: 20,3652 0135 UDB1 EQUALS 1/ATEM1 +10D # UAXIS DEADBAND BUFFER
065490,000953: 20,3652 0136 UDB2 EQUALS 1/ATEM1 +11D
065491,000954: 20,3652 0137 UDB4 EQUALS 1/ATEM1 +12D
065492,000955: 20,3652 0140 UDB3 EQUALS 1/ATEM1 +13D
065493,000956: 20,3652 0141 UAXDIST EQUALS 1/ATEM1 +14D
065494,000957:
065495,000958: 20,3652 0143 DBB1 EQUALS 1/ATEM1 +16D # TEMP DEADBAND BUFFER, ALSO V AXIS
065496,000959: 20,3652 0144 DBB2 EQUALS 1/ATEM1 +17D
065497,000960: 20,3652 0145 DBB4 EQUALS 1/ATEM1 +18D
065498,000961: 20,3652 0146 DBB3 EQUALS 1/ATEM1 +19D
065499,000962: 20,3652 0147 AXDSTEM EQUALS 1/ATEM1 +20D
065500,000963:
065501,000964: 20,3652 0151 FLATEMP EQUALS 1/ATEM1 +22D
065502,000965: 20,3652 0152 Z3TEM EQUALS 1/ATEM1 +23D # MUST FOLLOW FLATEMP
065503,000966:
065504,000967: 20,3652 1346 DBVAL1 EQUALS DB
065505,000968: 20,3652 0114 DBVAL2 EQUALS INTB15+
065506,000969: 20,3652 0115 DBVAL3 EQUALS INTB15+ +1
065507,000970:
065508,000971: 20,3652 0116 DRIFTER EQUALS INTB15+ +2
065509,000972:
065510,000973: 20,3652 0154 UV EQUALS MPAC
065511,000974: 20,3652 0157 ANET EQUALS MPAC +3
065512,000975: 20,3652 0157 FUNTEM EQUALS MPAC +3
065513,000976: 20,3652 0160 1/ANET EQUALS MPAC +4
065514,000977: 20,3652 0161 ARET EQUALS MPAC +5
065515,000978: 20,3652 0162 ABSAOS EQUALS MPAC +6
065516,000979: 20,3652 0163 SIGNAOS EQUALS MPAC +7
065517,000980: 20,3652 0164 -SIGNAOS EQUALS MPAC +8D
065518,000981: 20,3652 0165 HOLD EQUALS MPAC +9D
065519,000982: 20,3652 0117 ACCRETRN EQUALS FIXLOC -1
065520,000983:
|
|
Page 1499 |
065522,000985: 20,3652 00110 ZONE3MAX DEC .004375 # 17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
065523,000986: 20,3653 00443 FLATVAL DEC .01778 # .8 AT PI/4 RAD
065524,000987: 20,3654 77377 -.03R/S2 OCT 77377 # -PI/2(7) AT PI/2
065525,000988:
065526,000989: 20,3655 4744 .0125RS EQUALS BIT8 # PI/2(+8) AT PI/2
065527,000990: 20,3655 4733 1/.03 EQUALS POSMAX # 2(7)/PI AT 2(7)/PI
065528,000991:
065529,000992: 20,3655 02210 PAXISADR GENADR PAXIS
065530,000993:
065531,000994: # THE FOLLOWING 4 CONSTANTS ARE JET
065532,000995: # FAILURE MASKS AND ARE INDEXED
065533,000996: 20,3656 00110 -UMASK OCT 00110 # -U
065534,000997: 20,3657 00022 OCT 00022 # -V
065535,000998: 20,3660 00204 +UMASK OCT 00204 # +U
065536,000999: 20,3661 00041 OCT 00041 # +V
065537,001000:
End of include-file AOSTASK_AND_AOSJOB.agc. Parent file is MAIN.agc