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