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. |
039741,000002: ## Copyright: Public domain.
039742,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
039743,000004: ## Purpose: The main source file for Luminary revision 069.
039744,000005: ## It is part of the source code for the original release
039745,000006: ## of the flight software for the Lunar Module's (LM) Apollo
039746,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
039747,000008: ## version was Luminary 69 revision 2, which included a
039748,000009: ## newer lunar gravity model and only affected module 2.
039749,000010: ## This file is intended to be a faithful transcription, except
039750,000011: ## that the code format has been changed to conform to the
039751,000012: ## requirements of the yaYUL assembler rather than the
039752,000013: ## original YUL assembler.
039753,000014: ## Reference: pp. 897-906
039754,000015: ## Assembler: yaYUL
039755,000016: ## Contact: Ron Burkey <info@sandroid.org>.
039756,000017: ## Website: www.ibiblio.org/apollo/index.html
039757,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
039758,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
039759,000020: ## 2017-01-05 RRB Updated for Luminary 69.
039760,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
039761,000022: ## but no errors found.
039762,000023:
|
|
Page 897 |
039764,000025: 21,2340 BANK 21
039765,000026: 21,2000 SETLOC R10
039766,000027: 21,2000 BANK
039767,000028:
039768,000029: 21,2340 E7,1534 EBANK= UNIT/R/
039769,000030: 21,2340 COUNT* $$/R10
039770,000031:
039771,000032: 21,2340 23712 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
039772,000033: 21,2341 40025 CS TIME1
039773,000034: 21,2342 53056 DXCH TBASE2
039774,000035:
039775,000036: 21,2343 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
039776,000037: 21,2344 74741 MASK SWANDBIT
039777,000038: 21,2345 10000 CCS A
039778,000039: 21,2346 13237 TCF DISPRSET # NO.
039779,000040: 21,2347 31303 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
039780,000041: 21,2350 74745 MASK BIT7
039781,000042: 21,2351 10000 CCS A
039782,000043: 21,2352 12424 TCF ALTOUT
039783,000044: 21,2353 02510 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
039784,000045: 21,2354 41303 CS IMODES33
039785,000046: 21,2355 74745 MASK BIT7
039786,000047: 21,2356 27303 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039787,000048: 21,2357 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
039788,000049: 21,2360 00006 EXTEND
039789,000050: 21,2361 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
039790,000051: 21,2362 31741 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
039791,000052: 21,2363 00006 EXTEND
039792,000053: 21,2364 71704 MP VVECT # MULTIPLY X-COMPONENTS.
039793,000054: 21,2365 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
039794,000055: 21,2366 31742 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
039795,000056: 21,2367 00006 EXTEND
039796,000057: 21,2370 71705 MP VVECT +1
039797,000058: 21,2371 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039798,000059: 21,2372 31743 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
039799,000060: 21,2373 00006 EXTEND
039800,000061: 21,2374 71706 MP VVECT +2
039801,000062: 21,2375 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
039802,000063: 21,2376 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
039803,000064: 21,2377 00006 EXTEND
039804,000065: 21,2400 70070 MP RUPTREG1
039805,000066: 21,2401 20001 DDOUBL
039806,000067: 21,2402 20001 DDOUBL
039807,000068: 21,2403 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
039808,000069: 21,2404 31714 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
039809,000070: 21,2405 00006 EXTEND
039810,000071: 21,2406 71713 MP DT
039811,000072: 21,2407 60070 AD RUPTREG1
039812,000073: 21,2410 55707 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
039813,000074: 21,2411 41707 CS ALTRATE
|
|
Page 898 |
039815,000076: 21,2412 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
039816,000077: 21,2413 62415 BZMF +2
039817,000078: 21,2414 12417 TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
039818,000079: 21,2415 31707 CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
039819,000080: 21,2416 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
039820,000081: 21,2417 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
039821,000082: 21,2420 34751 CAF BIT3
039822,000083: 21,2421 00006 EXTEND
039823,000084: 21,2422 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
039824,000085: 21,2423 15261 TCF TASKOVER # EXIT
039825,000086:
039826,000087: 21,2424 02510 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
039827,000088: 21,2425 44745 CS BIT7
039828,000089: 21,2426 71303 MASK IMODES33
039829,000090: 21,2427 55303 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039830,000091: 21,2430 44752 CS BIT2
039831,000092: 21,2431 00006 EXTEND
039832,000093: 21,2432 03014 WAND CHAN14
039833,000094: 21,2433 11737 CCS ALTBITS # =-1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
039834,000095: 21,2434 12440 TCF +4
039835,000096: 21,2435 12440 TCF +3
039836,000097: 21,2436 12456 TCF OLDDATA
039837,000098: 21,2437 55737 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
039838,000099: 21,2440 44753 CS ONE
039839,000100: 21,2441 53740 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
039840,000101: 21,2442 53711 DXCH ALTSAVE
039841,000102: 21,2443 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
039842,000103: 21,2444 56002 XCH Q
039843,000104: 21,2445 22007 LXCH 7 # ZL
039844,000105: 21,2446 31713 CA DT
039845,000106: 21,2447 00006 EXTEND
039846,000107: 21,2450 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
039847,000108: 21,2451 00006 EXTEND
039848,000109: 21,2452 72002 MP ARTOA2 # .0021322 *2(+8)
039849,000110: 21,2453 12457 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
039850,000111:
039851,000112: 21,2454 53711 ZDATA2 DXCH ALTSAVE
039852,000113: 21,2455 12477 TCF NEWDATA
039853,000114: 21,2456 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
039854,000115: 21,2457 00006 EXTEND
039855,000116: 21,2460 71707 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
039856,000117: 21,2461 20001 DDOUBL
039857,000118: 21,2462 61711 AD ALTSAVE +1
039858,000119: 21,2463 55711 TS ALTSAVE +1
039859,000120: 21,2464 34755 CAF ZERO
039860,000121: 21,2465 27710 ADS ALTSAVE
039861,000122: 21,2466 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
039862,000123: 21,2467 64753 AD ONE # NON-NEGATIVE ALTSAVE.
039863,000124: 21,2470 61711 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
039864,000125: 21,2471 55711 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
|
|
Page 899 |
039866,000127: 21,2472 34755 CAF ZERO
039867,000128: 21,2473 64733 AD POSMAX
039868,000129: 21,2474 61710 AD ALTSAVE
039869,000130: 21,2475 55710 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
039870,000131: 21,2476 13234 TCF ZERODATA
039871,000132: 21,2477 11711 NEWDATA CCS ALTSAVE +1
039872,000133: 21,2500 12504 TCF +4
039873,000134: 21,2501 12504 TCF +3
039874,000135: 21,2502 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
039875,000136: 21,2503 55711 TS ALTSAVE +1
039876,000137: 21,2504 11710 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
039877,000138: 21,2505 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
039878,000139: 21,2506 61711 AD ALTSAVE +1
039879,000140: 21,2507 12417 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
039880,000141: 21,2510 00006 DISINDAT EXTEND
039881,000142: 21,2511 23712 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
039882,000143: 21,2512 34746 CAF BIT6
039883,000144: 21,2513 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
039884,000145: 21,2514 02030 RAND CHAN30 # DISPLAYS? I.E.,
039885,000146: 21,2515 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
039886,000147: 21,2516 13237 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
039887,000148: 21,2517 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
039888,000149: 21,2520 74736 MASK DIDFLBIT
039889,000150: 21,2521 00006 EXTEND
039890,000151: 21,2522 12560 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
039891,000152: 21,2523 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
039892,000153: 21,2524 74736 MASK DIDFLBIT
039893,000154: 21,2525 26075 ADS FLAGWRD1 # SET DIDFLAG.
039894,000155: 21,2526 44745 CS BIT7
039895,000156: 21,2527 71303 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
039896,000157: 21,2530 55303 TS IMODES33
039897,000158: 21,2531 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039898,000159: 21,2532 74752 MASK R10FLBIT
039899,000160: 21,2533 00006 EXTEND
039900,000161: 21,2534 15261 BZF TASKOVER # NO
039901,000162: 21,2535 34744 CAF BIT8 # YES.
039902,000163: 21,2536 00006 EXTEND
039903,000164: 21,2537 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
039904,000165: 21,2540 34755 CAF ZERO
039905,000166: 21,2541 55700 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
039906,000167: 21,2542 55701 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
039907,000168: 21,2543 55674 TS LATVMETR # LATVEL MONITOR METER
039908,000169: 21,2544 55675 TS FORVMETR # FORVEL MONITOR METER
039909,000170: 21,2545 34750 CAF BIT4
039910,000171: 21,2546 05173 TC TWIDDLE
039911,000172: 21,2547 02551 ADRES INTLZE
039912,000173: 21,2550 15261 TCF TASKOVER
039913,000174: 21,2551 34752 INTLZE CAF BIT2
039914,000175: 21,2552 00006 EXTEND
039915,000176: 21,2553 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
|
|
Page 900 |
039917,000178: 21,2554 41303 CS IMODES33
039918,000179: 21,2555 74744 MASK BIT8
039919,000180: 21,2556 27303 ADS IMODES33 # SET INERTIAL DATA FLAG.
039920,000181: 21,2557 15261 TCF TASKOVER
039921,000182:
039922,000183: 21,2560 41235 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
039923,000184: 21,2561 60025 AD TIME1 # COMPUTE T - TN
039924,000185: 21,2562 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
039925,000186: 21,2563 64736 AD HALF
039926,000187: 21,2564 57713 XCH DT # SAVE FOR LATER USE
039927,000188: 21,2565 34777 CA 1SEC
039928,000189: 21,2566 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
039929,000190: 21,2567 00006 EXTEND
039930,000191: 21,2570 31237 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
039931,000192: 21,2571 20001 DDOUBL
039932,000193: 21,2572 20001 DDOUBL
039933,000194: 21,2573 00006 EXTEND
039934,000195: 21,2574 71713 MP DT
039935,000196: 21,2575 00006 EXTEND
039936,000197: 21,2576 10065 DV ITEMP5
039937,000198: 21,2577 57704 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
039938,000199: 21,2600 00006 EXTEND
039939,000200: 21,2601 31525 DCA V # M/CS *2(-7)
039940,000201: 21,2602 20001 DDOUBL # RESCALE TO 2(-5)
039941,000202: 21,2603 20001 DDOUBL
039942,000203: 21,2604 27704 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
039943,000204: 21,2605 30037 CA PIPAX # DELV CM/SEC *2(-14)
039944,000205: 21,2606 61160 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
039945,000206: 21,2607 00006 EXTEND
039946,000207: 21,2610 72004 MP KPIP1(5) # DELV M/CS *2(-5)
039947,000208: 21,2611 27704 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
039948,000209: 21,2612 00006 EXTEND
039949,000210: 21,2613 31241 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
039950,000211: 21,2614 20001 DDOUBL
039951,000212: 21,2615 20001 DDOUBL
039952,000213: 21,2616 00006 EXTEND
039953,000214: 21,2617 71713 MP DT
039954,000215: 21,2620 00006 EXTEND
039955,000216: 21,2621 10065 DV ITEMP5
039956,000217: 21,2622 57705 XCH VVECT +1
039957,000218: 21,2623 00006 EXTEND
039958,000219: 21,2624 31527 DCA V +2
039959,000220: 21,2625 20001 DDOUBL
039960,000221: 21,2626 20001 DDOUBL
039961,000222: 21,2627 27705 ADS VVECT +1
039962,000223: 21,2630 30040 CA PIPAY
039963,000224: 21,2631 61161 AD PIPATMPY
039964,000225: 21,2632 00006 EXTEND
039965,000226: 21,2633 72004 MP KPIP1(5)
039966,000227: 21,2634 27705 ADS VVECT +1
|
|
Page 901 |
039968,000229: 21,2635 00006 EXTEND
039969,000230: 21,2636 31243 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
039970,000231: 21,2637 20001 DDOUBL
039971,000232: 21,2640 20001 DDOUBL
039972,000233: 21,2641 00006 EXTEND
039973,000234: 21,2642 71713 MP DT
039974,000235: 21,2643 00006 EXTEND
039975,000236: 21,2644 10065 DV ITEMP5
039976,000237: 21,2645 57706 XCH VVECT +2
039977,000238: 21,2646 00006 EXTEND
039978,000239: 21,2647 31531 DCA V +4
039979,000240: 21,2650 20001 DDOUBL
039980,000241: 21,2651 20001 DDOUBL
039981,000242: 21,2652 27706 ADS VVECT +2
039982,000243: 21,2653 30041 CA PIPAZ
039983,000244: 21,2654 61162 AD PIPATMPZ
039984,000245: 21,2655 00006 EXTEND
039985,000246: 21,2656 72004 MP KPIP1(5)
039986,000247: 21,2657 27706 ADS VVECT +2
039987,000248:
039988,000249: 21,2660 34751 CAF BIT3 # PAUSE 30 MS TO LET OTHER RUPTS IN.
039989,000250: 21,2661 05224 TC VARDELAY
039990,000251:
039991,000252: 21,2662 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039992,000253: 21,2663 74752 MASK R10FLBIT
039993,000254: 21,2664 10000 CCS A
039994,000255: 21,2665 12667 TCF +2 # YES.
039995,000256: 21,2666 01712 TC LADQSAVE # NO.
039996,000257:
039997,000258: 21,2667 31731 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
039998,000259: 21,2670 61704 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
039999,000260: 21,2671 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
040000,000261: 21,2672 31733 CA DELVS +2 # Y
040001,000262: 21,2673 61705 AD VVECT +1 # Y
040002,000263: 21,2674 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5).
040003,000264: 21,2675 31735 CA DELVS +4 # Z
040004,000265: 21,2676 61706 AD VVECT +2 # Z
040005,000266: 21,2677 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5).
040006,000267: 21,2700 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
040007,000268: 21,2701 00006 EXTEND # Y-COORDINATE.
040008,000269: 21,2702 71715 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
040009,000270: 21,2703 56070 XCH RUPTREG1
040010,000271: 21,2704 30062 CA ITEMP2
040011,000272: 21,2705 00006 EXTEND
040012,000273: 21,2706 71717 MP UHYP +2 # Y
040013,000274: 21,2707 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
040014,000275: 21,2710 30063 CA ITEMP3
040015,000276: 21,2711 00006 EXTEND
040016,000277: 21,2712 71721 MP UHYP +4 # Z
040017,000278: 21,2713 26070 ADS RUPTREG1
|
|
Page 902 |
040019,000280: 21,2714 30070 CA RUPTREG1
040020,000281: 21,2715 60000 DOUBLE
040021,000282: 21,2716 57702 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
040022,000283: 21,2717 30061 CA ITEMP1 # NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
040023,000284: 21,2720 00006 EXTEND # THE Z-COORDINATE.
040024,000285: 21,2721 71723 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
040025,000286: 21,2722 56070 XCH RUPTREG1
040026,000287: 21,2723 30062 CA ITEMP2
040027,000288: 21,2724 00006 EXTEND
040028,000289: 21,2725 71725 MP UHZP +2 # Y
040029,000290: 21,2726 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
040030,000291: 21,2727 30063 CA ITEMP3
040031,000292: 21,2730 00006 EXTEND
040032,000293: 21,2731 71727 MP UHZP +4 # Z
040033,000294: 21,2732 26070 ADS RUPTREG1
040034,000295: 21,2733 30070 CA RUPTREG1
040035,000296: 21,2734 60000 DOUBLE
040036,000297: 21,2735 57703 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
040037,000298: 21,2736 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
040038,000299: 21,2737 54003 TS EBANK
040039,000300: 21,2740 E6,1415 EBANK= M22
040040,000301: 21,2740 31415 CA M22
040041,000302: 21,2741 54063 TS ITEMP3
040042,000303: 21,2742 31416 CA M32
040043,000304: 21,2743 54064 TS ITEMP4
040044,000305: 21,2744 35016 CAF EBANK7
040045,000306: 21,2745 54003 TS EBANK
040046,000307: 21,2746 E7,1534 EBANK= UNIT/R/
040047,000308: 21,2746 30064 LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
040048,000309: 21,2747 00006 EXTEND
040049,000310: 21,2750 71702 MP VHY
040050,000311: 21,2751 56070 XCH RUPTREG1
040051,000312: 21,2752 30063 CA ITEMP3
040052,000313: 21,2753 00006 EXTEND
040053,000314: 21,2754 71703 MP VHZ
040054,000315: 21,2755 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
040055,000316: 21,2756 32003 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
040056,000317: 21,2757 00006 EXTEND
040057,000318: 21,2760 70070 MP RUPTREG1
040058,000319: 21,2761 20001 DDOUBL
040059,000320: 21,2762 57676 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
040060,000321: 21,2763 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
040061,000322: 21,2764 00006 EXTEND
040062,000323: 21,2765 71703 MP VHZ
040063,000324: 21,2766 56070 XCH RUPTREG1
040064,000325: 21,2767 30063 CA ITEMP3
040065,000326: 21,2770 00006 EXTEND
040066,000327: 21,2771 71702 MP VHY
040067,000328: 21,2772 40000 CS A
040068,000329: 21,2773 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
|
|
Page 903 |
040070,000331: 21,2774 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
040071,000332: 21,2775 00006 EXTEND
040072,000333: 21,2776 70070 MP RUPTREG1
040073,000334: 21,2777 20001 DDOUBL
040074,000335: 21,3000 57677 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
040075,000336:
040076,000337: 21,3001 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
040077,000338: 21,3002 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
040078,000339:
040079,000340: 21,3003 34753 CAF ONE # LOOP TWICE.
040080,000341: 21,3004 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
040081,000342: 21,3005 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
040082,000343: 21,3006 11676 CCS LATVEL
040083,000344: 21,3007 13013 TCF +4
040084,000345: 21,3010 13114 TCF LVLIMITS
040085,000346: 21,3011 13021 TCF +8D
040086,000347: 21,3012 13114 TCF LVLIMITS
040087,000348: 21,3013 50065 INDEX ITEMP5
040088,000349: 21,3014 41676 CS LATVEL
040089,000350: 21,3015 62005 AD MAXVBITS # +199.9989 FT./SEC.
040090,000351: 21,3016 00006 EXTEND
040091,000352: 21,3017 63027 BZMF CHKLASTY
040092,000353: 21,3020 13114 TCF LVLIMITS
040093,000354: 21,3021 50065 INDEX ITEMP5
040094,000355: 21,3022 31676 CA LATVEL
040095,000356: 21,3023 62005 AD MAXVBITS
040096,000357: 21,3024 00006 EXTEND
040097,000358: 21,3025 63027 BZMF +2
040098,000359: 21,3026 13114 TCF LVLIMITS
040099,000360: 21,3027 50065 CHKLASTY INDEX ITEMP5
040100,000361: 21,3030 11674 CCS LATVMETR
040101,000362: 21,3031 13035 TCF +4
040102,000363: 21,3032 13046 TCF LASTOK
040103,000364: 21,3033 13042 TCF +7
040104,000365: 21,3034 13046 TCF LASTOK
040105,000366: 21,3035 50065 INDEX ITEMP5
040106,000367: 21,3036 31676 CA LATVEL
040107,000368: 21,3037 00006 EXTEND
040108,000369: 21,3040 63065 BZMF LASTPOSY +5
040109,000370: 21,3041 13046 TCF +5
040110,000371: 21,3042 50065 INDEX ITEMP5
040111,000372: 21,3043 41676 CS LATVEL
040112,000373: 21,3044 00006 EXTEND
040113,000374: 21,3045 63102 BZMF LASTNEGY +4
040114,000375: 21,3046 50065 LASTOK INDEX ITEMP5
040115,000376: 21,3047 11700 CCS TRAKLATV
040116,000377: 21,3050 13060 TCF LASTPOSY
040117,000378: 21,3051 13053 TCF +2
040118,000379: 21,3052 13076 TCF LASTNEGY
040119,000380: 21,3053 50065 INDEX ITEMP5
|
|
Page 904 |
040121,000382: 21,3054 31676 CA LATVEL
040122,000383: 21,3055 00006 EXTEND
040123,000384: 21,3056 63104 BZMF NEGVMAXY
040124,000385: 21,3057 13067 TCF POSVMAXY
040125,000386: 21,3060 50065 LASTPOSY INDEX ITEMP5
040126,000387: 21,3061 31676 CA LATVEL
040127,000388: 21,3062 00006 EXTEND
040128,000389: 21,3063 63065 BZMF +2
040129,000390: 21,3064 13067 TCF POSVMAXY
040130,000391: 21,3065 42005 CS MAXVBITS
040131,000392: 21,3066 13210 TCF ZEROLSTY
040132,000393: 21,3067 50065 POSVMAXY INDEX ITEMP5
040133,000394: 21,3070 41674 CS LATVMETR
040134,000395: 21,3071 62005 AD MAXVBITS
040135,000396: 21,3072 50065 INDEX ITEMP5
040136,000397: 21,3073 56072 XCH RUPTREG3
040137,000398: 21,3074 34753 CAF ONE
040138,000399: 21,3075 13213 TCF ZEROLSTY +3
040139,000400: 21,3076 50065 LASTNEGY INDEX ITEMP5
040140,000401: 21,3077 31676 CA LATVEL
040141,000402: 21,3100 00006 EXTEND
040142,000403: 21,3101 63104 BZMF NEGVMAXY
040143,000404: 21,3102 32005 CA MAXVBITS
040144,000405: 21,3103 13210 TCF ZEROLSTY
040145,000406: 21,3104 50065 NEGVMAXY INDEX ITEMP5
040146,000407: 21,3105 31674 CA LATVMETR
040147,000408: 21,3106 62005 AD MAXVBITS
040148,000409: 21,3107 40000 COM
040149,000410: 21,3110 50065 INDEX ITEMP5
040150,000411: 21,3111 56072 XCH RUPTREG3
040151,000412: 21,3112 44753 CS ONE
040152,000413: 21,3113 13213 TCF ZEROLSTY +3
040153,000414: 21,3114 50065 LVLIMITS INDEX ITEMP5
040154,000415: 21,3115 11700 CCS TRAKLATV
040155,000416: 21,3116 13145 TCF LATVPOS
040156,000417: 21,3117 13121 TCF +2
040157,000418: 21,3120 13152 TCF LATVNEG
040158,000419: 21,3121 50065 INDEX ITEMP5
040159,000420: 21,3122 41674 CS LATVMETR
040160,000421: 21,3123 00006 EXTEND
040161,000422: 21,3124 63126 BZMF +2
040162,000423: 21,3125 13161 TCF NEGLMLV
040163,000424: 21,3126 50065 INDEX ITEMP5
040164,000425: 21,3127 41676 CS LATVEL
040165,000426: 21,3130 00006 EXTEND
040166,000427: 21,3131 63204 BZMF LVMINLM
040167,000428: 21,3132 60066 AD ITEMP6
040168,000429: 21,3133 50065 INDEX ITEMP5
040169,000430: 21,3134 61674 AD LATVMETR
040170,000431: 21,3135 00006 EXTEND
|
|
Page 905 |
040172,000433: 21,3136 63204 BZMF LVMINLM
040173,000434: 21,3137 50065 INDEX ITEMP5
040174,000435: 21,3140 61676 AD LATVEL
040175,000436: 21,3141 00006 EXTEND
040176,000437: 21,3142 50065 INDEX ITEMP5
040177,000438: 21,3143 61674 SU LATVMETR
040178,000439: 21,3144 13210 TCF ZEROLSTY
040179,000440: 21,3145 50065 LATVPOS INDEX ITEMP5
040180,000441: 21,3146 41676 CS LATVEL
040181,000442: 21,3147 00006 EXTEND
040182,000443: 21,3150 63204 BZMF LVMINLM
040183,000444: 21,3151 13156 TCF +5
040184,000445: 21,3152 50065 LATVNEG INDEX ITEMP5
040185,000446: 21,3153 31676 CA LATVEL
040186,000447: 21,3154 00006 EXTEND
040187,000448: 21,3155 63204 BZMF LVMINLM
040188,000449: 21,3156 50065 INDEX ITEMP5
040189,000450: 21,3157 41674 CS LATVMETR
040190,000451: 21,3160 13210 TCF ZEROLSTY
040191,000452: 21,3161 50065 NEGLMLV INDEX ITEMP5
040192,000453: 21,3162 31676 CA LATVEL
040193,000454: 21,3163 00006 EXTEND
040194,000455: 21,3164 63204 BZMF LVMINLM
040195,000456: 21,3165 32005 CA MAXVBITS
040196,000457: 21,3166 50065 INDEX ITEMP5
040197,000458: 21,3167 61674 AD LATVMETR
040198,000459: 21,3170 40000 COM
040199,000460: 21,3171 50065 INDEX ITEMP5
040200,000461: 21,3172 61676 AD LATVEL
040201,000462: 21,3173 00006 EXTEND
040202,000463: 21,3174 63204 BZMF LVMINLM
040203,000464: 21,3175 00006 EXTEND
040204,000465: 21,3176 50065 INDEX ITEMP5
040205,000466: 21,3177 61676 SU LATVEL
040206,000467: 21,3200 50065 INDEX ITEMP5
040207,000468: 21,3201 61674 AD LATVMETR
040208,000469: 21,3202 40000 COM
040209,000470: 21,3203 13210 TCF ZEROLSTY
040210,000471: 21,3204 50065 LVMINLM INDEX ITEMP5
040211,000472: 21,3205 41674 CS LATVMETR
040212,000473: 21,3206 50065 INDEX ITEMP5
040213,000474: 21,3207 61676 AD LATVEL
040214,000475: 21,3210 50065 ZEROLSTY INDEX ITEMP5
040215,000476: 21,3211 56072 XCH RUPTREG3
040216,000477: 21,3212 34755 CAF ZERO
040217,000478: 21,3213 50065 INDEX ITEMP5
040218,000479: 21,3214 55700 TS TRAKLATV
040219,000480: 21,3215 50065 INDEX ITEMP5
040220,000481: 21,3216 30072 CA RUPTREG3
040221,000482: 21,3217 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
|
|
Page 906 |
040223,000484: 21,3220 50065 INDEX ITEMP5
040224,000485: 21,3221 54053 TS CDUTCMD
040225,000486: 21,3222 50065 INDEX ITEMP5
040226,000487: 21,3223 30072 CA RUPTREG3
040227,000488: 21,3224 50065 INDEX ITEMP5
040228,000489: 21,3225 27674 ADS LATVMETR
040229,000490: 21,3226 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
040230,000491: 21,3227 13004 TCF VMONITOR
040231,000492:
040232,000493: 21,3230 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
040233,000494: 21,3231 00006 EXTEND
040234,000495: 21,3232 05014 WOR CHAN14
040235,000496: 21,3233 01712 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
040236,000497: 21,3234 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
040237,000498: 21,3235 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
040238,000499: 21,3236 12454 TCF ZDATA2
040239,000500:
040240,000501: # ************************************************************************
040241,000502:
040242,000503: 21,3237 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
040243,000504: 21,3240 74752 MASK R10FLBIT
040244,000505: 21,3241 00006 EXTEND
040245,000506: 21,3242 13253 BZF ABORTON # NO.
040246,000507: 21,3243 34744 CAF BIT8 # YES.
040247,000508: 21,3244 71303 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
040248,000509: 21,3245 10000 CCS A
040249,000510: 21,3246 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
040250,000511: 21,3247 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
040251,000512: 21,3250 40000 COM
040252,000513: 21,3251 00006 EXTEND
040253,000514: 21,3252 03012 WAND CHAN12
040254,000515: 21,3253 43262 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
040255,000516: 21,3254 71303 MASK IMODES33
040256,000517: 21,3255 55303 TS IMODES33
040257,000518: 21,3256 44736 CS DIDFLBIT
040258,000519: 21,3257 70075 MASK FLAGWRD1
040259,000520: 21,3260 54075 TS FLAGWRD1 # RESET DIDFLAG.
040260,000521: 21,3261 15261 TCF TASKOVER
040261,000522:
040262,000523: # ************************************************************************
040263,000524:
040264,000525: 21,3262 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
040265,000526: 21,3263 5020 BITSET = PRIO6
040266,000527:
040267,000528: # ************************************************************************
040268,000529:
040269,000530:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc