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