Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
039399,000002: ## Copyright: Public domain.
039400,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
039401,000004: ## Purpose: A section of LUM69 revision 2.
039402,000005: ## It is part of the reconstructed source code for the flown
039403,000006: ## version of the flight software for the Lunar Module's (LM)
039404,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
039405,000008: ## been recreated from a copy of Luminary revsion 069, using
039406,000009: ## changes present in Luminary 099 which were described in
039407,000010: ## Luminary memos 75 and 78. The code has been adapted such
039408,000011: ## that the resulting bugger words exactly match those specified
039409,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
039410,000013: ## relatively high confidence that the reconstruction is correct.
039411,000014: ## Reference: pp. 897-906
039412,000015: ## Assembler: yaYUL
039413,000016: ## Contact: Ron Burkey <info@sandroid.org>.
039414,000017: ## Website: www.ibiblio.org/apollo/index.html
039415,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
039416,000019:
|
|
Page 897
|
039418,000021: 21,2340 BANK 21
039419,000022: 21,2000 SETLOC R10
039420,000023: 21,2000 BANK
039421,000024:
039422,000025: 21,2340 E7,1534 EBANK= UNIT/R/
039423,000026: 21,2340 COUNT* $$/R10
039424,000027:
039425,000028: 21,2340 23712 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
039426,000029: 21,2341 40025 CS TIME1
039427,000030: 21,2342 53056 DXCH TBASE2
039428,000031:
039429,000032: 21,2343 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
039430,000033: 21,2344 74741 MASK SWANDBIT
039431,000034: 21,2345 10000 CCS A
039432,000035: 21,2346 13237 TCF DISPRSET # NO.
039433,000036: 21,2347 31303 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
039434,000037: 21,2350 74745 MASK BIT7
039435,000038: 21,2351 10000 CCS A
039436,000039: 21,2352 12424 TCF ALTOUT
039437,000040: 21,2353 02510 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
039438,000041: 21,2354 41303 CS IMODES33
039439,000042: 21,2355 74745 MASK BIT7
039440,000043: 21,2356 27303 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039441,000044: 21,2357 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
039442,000045: 21,2360 00006 EXTEND
039443,000046: 21,2361 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
039444,000047: 21,2362 31741 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
039445,000048: 21,2363 00006 EXTEND
039446,000049: 21,2364 71704 MP VVECT # MULTIPLY X-COMPONENTS.
039447,000050: 21,2365 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
039448,000051: 21,2366 31742 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
039449,000052: 21,2367 00006 EXTEND
039450,000053: 21,2370 71705 MP VVECT +1
039451,000054: 21,2371 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039452,000055: 21,2372 31743 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
039453,000056: 21,2373 00006 EXTEND
039454,000057: 21,2374 71706 MP VVECT +2
039455,000058: 21,2375 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
039456,000059: 21,2376 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
039457,000060: 21,2377 00006 EXTEND
039458,000061: 21,2400 70070 MP RUPTREG1
039459,000062: 21,2401 20001 DDOUBL
039460,000063: 21,2402 20001 DDOUBL
039461,000064: 21,2403 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
039462,000065: 21,2404 31714 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
039463,000066: 21,2405 00006 EXTEND
039464,000067: 21,2406 71713 MP DT
039465,000068: 21,2407 60070 AD RUPTREG1
039466,000069: 21,2410 55707 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
039467,000070: 21,2411 41707 CS ALTRATE
|
|
Page 898
|
039469,000072: 21,2412 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
039470,000073: 21,2413 62415 BZMF +2
039471,000074: 21,2414 12417 TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
039472,000075: 21,2415 31707 CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
039473,000076: 21,2416 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
039474,000077: 21,2417 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
039475,000078: 21,2420 34751 CAF BIT3
039476,000079: 21,2421 00006 EXTEND
039477,000080: 21,2422 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
039478,000081: 21,2423 15261 TCF TASKOVER # EXIT
039479,000082:
039480,000083: 21,2424 02510 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
039481,000084: 21,2425 44745 CS BIT7
039482,000085: 21,2426 71303 MASK IMODES33
039483,000086: 21,2427 55303 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039484,000087: 21,2430 44752 CS BIT2
039485,000088: 21,2431 00006 EXTEND
039486,000089: 21,2432 03014 WAND CHAN14
039487,000090: 21,2433 11737 CCS ALTBITS # =-1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
039488,000091: 21,2434 12440 TCF +4
039489,000092: 21,2435 12440 TCF +3
039490,000093: 21,2436 12456 TCF OLDDATA
039491,000094: 21,2437 55737 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
039492,000095: 21,2440 44753 CS ONE
039493,000096: 21,2441 53740 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
039494,000097: 21,2442 53711 DXCH ALTSAVE
039495,000098: 21,2443 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
039496,000099: 21,2444 56002 XCH Q
039497,000100: 21,2445 22007 LXCH 7 # ZL
039498,000101: 21,2446 31713 CA DT
039499,000102: 21,2447 00006 EXTEND
039500,000103: 21,2450 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
039501,000104: 21,2451 00006 EXTEND
039502,000105: 21,2452 72002 MP ARTOA2 # .0021322 *2(+8)
039503,000106: 21,2453 12457 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
039504,000107:
039505,000108: 21,2454 53711 ZDATA2 DXCH ALTSAVE
039506,000109: 21,2455 12477 TCF NEWDATA
039507,000110: 21,2456 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
039508,000111: 21,2457 00006 EXTEND
039509,000112: 21,2460 71707 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
039510,000113: 21,2461 20001 DDOUBL
039511,000114: 21,2462 61711 AD ALTSAVE +1
039512,000115: 21,2463 55711 TS ALTSAVE +1
039513,000116: 21,2464 34755 CAF ZERO
039514,000117: 21,2465 27710 ADS ALTSAVE
039515,000118: 21,2466 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
039516,000119: 21,2467 64753 AD ONE # NON-NEGATIVE ALTSAVE.
039517,000120: 21,2470 61711 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
039518,000121: 21,2471 55711 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
|
|
Page 899
|
039520,000123: 21,2472 34755 CAF ZERO
039521,000124: 21,2473 64733 AD POSMAX
039522,000125: 21,2474 61710 AD ALTSAVE
039523,000126: 21,2475 55710 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
039524,000127: 21,2476 13234 TCF ZERODATA
039525,000128: 21,2477 11711 NEWDATA CCS ALTSAVE +1
039526,000129: 21,2500 12504 TCF +4
039527,000130: 21,2501 12504 TCF +3
039528,000131: 21,2502 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
039529,000132: 21,2503 55711 TS ALTSAVE +1
039530,000133: 21,2504 11710 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
039531,000134: 21,2505 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
039532,000135: 21,2506 61711 AD ALTSAVE +1
039533,000136: 21,2507 12417 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
039534,000137: 21,2510 00006 DISINDAT EXTEND
039535,000138: 21,2511 23712 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
039536,000139: 21,2512 34746 CAF BIT6
039537,000140: 21,2513 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
039538,000141: 21,2514 02030 RAND CHAN30 # DISPLAYS? I.E.,
039539,000142: 21,2515 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
039540,000143: 21,2516 13237 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
039541,000144: 21,2517 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
039542,000145: 21,2520 74736 MASK DIDFLBIT
039543,000146: 21,2521 00006 EXTEND
039544,000147: 21,2522 12560 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
039545,000148: 21,2523 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
039546,000149: 21,2524 74736 MASK DIDFLBIT
039547,000150: 21,2525 26075 ADS FLAGWRD1 # SET DIDFLAG.
039548,000151: 21,2526 44745 CS BIT7
039549,000152: 21,2527 71303 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
039550,000153: 21,2530 55303 TS IMODES33
039551,000154: 21,2531 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039552,000155: 21,2532 74752 MASK R10FLBIT
039553,000156: 21,2533 00006 EXTEND
039554,000157: 21,2534 15261 BZF TASKOVER # NO
039555,000158: 21,2535 34744 CAF BIT8 # YES.
039556,000159: 21,2536 00006 EXTEND
039557,000160: 21,2537 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
039558,000161: 21,2540 34755 CAF ZERO
039559,000162: 21,2541 55700 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
039560,000163: 21,2542 55701 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
039561,000164: 21,2543 55674 TS LATVMETR # LATVEL MONITOR METER
039562,000165: 21,2544 55675 TS FORVMETR # FORVEL MONITOR METER
039563,000166: 21,2545 34750 CAF BIT4
039564,000167: 21,2546 05173 TC TWIDDLE
039565,000168: 21,2547 02551 ADRES INTLZE
039566,000169: 21,2550 15261 TCF TASKOVER
039567,000170: 21,2551 34752 INTLZE CAF BIT2
039568,000171: 21,2552 00006 EXTEND
039569,000172: 21,2553 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
|
|
Page 900
|
039571,000174: 21,2554 41303 CS IMODES33
039572,000175: 21,2555 74744 MASK BIT8
039573,000176: 21,2556 27303 ADS IMODES33 # SET INERTIAL DATA FLAG.
039574,000177: 21,2557 15261 TCF TASKOVER
039575,000178:
039576,000179: 21,2560 41235 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
039577,000180: 21,2561 60025 AD TIME1 # COMPUTE T - TN
039578,000181: 21,2562 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
039579,000182: 21,2563 64736 AD HALF
039580,000183: 21,2564 57713 XCH DT # SAVE FOR LATER USE
039581,000184: 21,2565 34777 CA 1SEC
039582,000185: 21,2566 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
039583,000186: 21,2567 00006 EXTEND
039584,000187: 21,2570 31237 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
039585,000188: 21,2571 20001 DDOUBL
039586,000189: 21,2572 20001 DDOUBL
039587,000190: 21,2573 00006 EXTEND
039588,000191: 21,2574 71713 MP DT
039589,000192: 21,2575 00006 EXTEND
039590,000193: 21,2576 10065 DV ITEMP5
039591,000194: 21,2577 57704 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
039592,000195: 21,2600 00006 EXTEND
039593,000196: 21,2601 31525 DCA V # M/CS *2(-7)
039594,000197: 21,2602 20001 DDOUBL # RESCALE TO 2(-5)
039595,000198: 21,2603 20001 DDOUBL
039596,000199: 21,2604 27704 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
039597,000200: 21,2605 30037 CA PIPAX # DELV CM/SEC *2(-14)
039598,000201: 21,2606 61160 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
039599,000202: 21,2607 00006 EXTEND
039600,000203: 21,2610 72004 MP KPIP1(5) # DELV M/CS *2(-5)
039601,000204: 21,2611 27704 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
039602,000205: 21,2612 00006 EXTEND
039603,000206: 21,2613 31241 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
039604,000207: 21,2614 20001 DDOUBL
039605,000208: 21,2615 20001 DDOUBL
039606,000209: 21,2616 00006 EXTEND
039607,000210: 21,2617 71713 MP DT
039608,000211: 21,2620 00006 EXTEND
039609,000212: 21,2621 10065 DV ITEMP5
039610,000213: 21,2622 57705 XCH VVECT +1
039611,000214: 21,2623 00006 EXTEND
039612,000215: 21,2624 31527 DCA V +2
039613,000216: 21,2625 20001 DDOUBL
039614,000217: 21,2626 20001 DDOUBL
039615,000218: 21,2627 27705 ADS VVECT +1
039616,000219: 21,2630 30040 CA PIPAY
039617,000220: 21,2631 61161 AD PIPATMPY
039618,000221: 21,2632 00006 EXTEND
039619,000222: 21,2633 72004 MP KPIP1(5)
039620,000223: 21,2634 27705 ADS VVECT +1
|
|
Page 901
|
039622,000225: 21,2635 00006 EXTEND
039623,000226: 21,2636 31243 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
039624,000227: 21,2637 20001 DDOUBL
039625,000228: 21,2640 20001 DDOUBL
039626,000229: 21,2641 00006 EXTEND
039627,000230: 21,2642 71713 MP DT
039628,000231: 21,2643 00006 EXTEND
039629,000232: 21,2644 10065 DV ITEMP5
039630,000233: 21,2645 57706 XCH VVECT +2
039631,000234: 21,2646 00006 EXTEND
039632,000235: 21,2647 31531 DCA V +4
039633,000236: 21,2650 20001 DDOUBL
039634,000237: 21,2651 20001 DDOUBL
039635,000238: 21,2652 27706 ADS VVECT +2
039636,000239: 21,2653 30041 CA PIPAZ
039637,000240: 21,2654 61162 AD PIPATMPZ
039638,000241: 21,2655 00006 EXTEND
039639,000242: 21,2656 72004 MP KPIP1(5)
039640,000243: 21,2657 27706 ADS VVECT +2
039641,000244:
039642,000245: 21,2660 34751 CAF BIT3 # PAUSE 30 MS TO LET OTHER RUPTS IN.
039643,000246: 21,2661 05224 TC VARDELAY
039644,000247:
039645,000248: 21,2662 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039646,000249: 21,2663 74752 MASK R10FLBIT
039647,000250: 21,2664 10000 CCS A
039648,000251: 21,2665 12667 TCF +2 # YES.
039649,000252: 21,2666 01712 TC LADQSAVE # NO.
039650,000253:
039651,000254: 21,2667 31731 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
039652,000255: 21,2670 61704 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
039653,000256: 21,2671 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
039654,000257: 21,2672 31733 CA DELVS +2 # Y
039655,000258: 21,2673 61705 AD VVECT +1 # Y
039656,000259: 21,2674 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5).
039657,000260: 21,2675 31735 CA DELVS +4 # Z
039658,000261: 21,2676 61706 AD VVECT +2 # Z
039659,000262: 21,2677 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5).
039660,000263: 21,2700 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
039661,000264: 21,2701 00006 EXTEND # Y-COORDINATE.
039662,000265: 21,2702 71715 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
039663,000266: 21,2703 56070 XCH RUPTREG1
039664,000267: 21,2704 30062 CA ITEMP2
039665,000268: 21,2705 00006 EXTEND
039666,000269: 21,2706 71717 MP UHYP +2 # Y
039667,000270: 21,2707 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039668,000271: 21,2710 30063 CA ITEMP3
039669,000272: 21,2711 00006 EXTEND
039670,000273: 21,2712 71721 MP UHYP +4 # Z
039671,000274: 21,2713 26070 ADS RUPTREG1
|
|
Page 902
|
039673,000276: 21,2714 30070 CA RUPTREG1
039674,000277: 21,2715 60000 DOUBLE
039675,000278: 21,2716 57702 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
039676,000279: 21,2717 30061 CA ITEMP1 # NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
039677,000280: 21,2720 00006 EXTEND # THE Z-COORDINATE.
039678,000281: 21,2721 71723 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
039679,000282: 21,2722 56070 XCH RUPTREG1
039680,000283: 21,2723 30062 CA ITEMP2
039681,000284: 21,2724 00006 EXTEND
039682,000285: 21,2725 71725 MP UHZP +2 # Y
039683,000286: 21,2726 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039684,000287: 21,2727 30063 CA ITEMP3
039685,000288: 21,2730 00006 EXTEND
039686,000289: 21,2731 71727 MP UHZP +4 # Z
039687,000290: 21,2732 26070 ADS RUPTREG1
039688,000291: 21,2733 30070 CA RUPTREG1
039689,000292: 21,2734 60000 DOUBLE
039690,000293: 21,2735 57703 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
039691,000294: 21,2736 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
039692,000295: 21,2737 54003 TS EBANK
039693,000296: 21,2740 E6,1415 EBANK= M22
039694,000297: 21,2740 31415 CA M22
039695,000298: 21,2741 54063 TS ITEMP3
039696,000299: 21,2742 31416 CA M32
039697,000300: 21,2743 54064 TS ITEMP4
039698,000301: 21,2744 35016 CAF EBANK7
039699,000302: 21,2745 54003 TS EBANK
039700,000303: 21,2746 E7,1534 EBANK= UNIT/R/
039701,000304: 21,2746 30064 LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
039702,000305: 21,2747 00006 EXTEND
039703,000306: 21,2750 71702 MP VHY
039704,000307: 21,2751 56070 XCH RUPTREG1
039705,000308: 21,2752 30063 CA ITEMP3
039706,000309: 21,2753 00006 EXTEND
039707,000310: 21,2754 71703 MP VHZ
039708,000311: 21,2755 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
039709,000312: 21,2756 32003 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
039710,000313: 21,2757 00006 EXTEND
039711,000314: 21,2760 70070 MP RUPTREG1
039712,000315: 21,2761 20001 DDOUBL
039713,000316: 21,2762 57676 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
039714,000317: 21,2763 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
039715,000318: 21,2764 00006 EXTEND
039716,000319: 21,2765 71703 MP VHZ
039717,000320: 21,2766 56070 XCH RUPTREG1
039718,000321: 21,2767 30063 CA ITEMP3
039719,000322: 21,2770 00006 EXTEND
039720,000323: 21,2771 71702 MP VHY
039721,000324: 21,2772 40000 CS A
039722,000325: 21,2773 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
|
|
Page 903
|
039724,000327: 21,2774 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
039725,000328: 21,2775 00006 EXTEND
039726,000329: 21,2776 70070 MP RUPTREG1
039727,000330: 21,2777 20001 DDOUBL
039728,000331: 21,3000 57677 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
039729,000332:
039730,000333: 21,3001 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
039731,000334: 21,3002 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
039732,000335:
039733,000336: 21,3003 34753 CAF ONE # LOOP TWICE.
039734,000337: 21,3004 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
039735,000338: 21,3005 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
039736,000339: 21,3006 11676 CCS LATVEL
039737,000340: 21,3007 13013 TCF +4
039738,000341: 21,3010 13114 TCF LVLIMITS
039739,000342: 21,3011 13021 TCF +8D
039740,000343: 21,3012 13114 TCF LVLIMITS
039741,000344: 21,3013 50065 INDEX ITEMP5
039742,000345: 21,3014 41676 CS LATVEL
039743,000346: 21,3015 62005 AD MAXVBITS # +199.9989 FT./SEC.
039744,000347: 21,3016 00006 EXTEND
039745,000348: 21,3017 63027 BZMF CHKLASTY
039746,000349: 21,3020 13114 TCF LVLIMITS
039747,000350: 21,3021 50065 INDEX ITEMP5
039748,000351: 21,3022 31676 CA LATVEL
039749,000352: 21,3023 62005 AD MAXVBITS
039750,000353: 21,3024 00006 EXTEND
039751,000354: 21,3025 63027 BZMF +2
039752,000355: 21,3026 13114 TCF LVLIMITS
039753,000356: 21,3027 50065 CHKLASTY INDEX ITEMP5
039754,000357: 21,3030 11674 CCS LATVMETR
039755,000358: 21,3031 13035 TCF +4
039756,000359: 21,3032 13046 TCF LASTOK
039757,000360: 21,3033 13042 TCF +7
039758,000361: 21,3034 13046 TCF LASTOK
039759,000362: 21,3035 50065 INDEX ITEMP5
039760,000363: 21,3036 31676 CA LATVEL
039761,000364: 21,3037 00006 EXTEND
039762,000365: 21,3040 63065 BZMF LASTPOSY +5
039763,000366: 21,3041 13046 TCF +5
039764,000367: 21,3042 50065 INDEX ITEMP5
039765,000368: 21,3043 41676 CS LATVEL
039766,000369: 21,3044 00006 EXTEND
039767,000370: 21,3045 63102 BZMF LASTNEGY +4
039768,000371: 21,3046 50065 LASTOK INDEX ITEMP5
039769,000372: 21,3047 11700 CCS TRAKLATV
039770,000373: 21,3050 13060 TCF LASTPOSY
039771,000374: 21,3051 13053 TCF +2
039772,000375: 21,3052 13076 TCF LASTNEGY
039773,000376: 21,3053 50065 INDEX ITEMP5
|
|
Page 904
|
039775,000378: 21,3054 31676 CA LATVEL
039776,000379: 21,3055 00006 EXTEND
039777,000380: 21,3056 63104 BZMF NEGVMAXY
039778,000381: 21,3057 13067 TCF POSVMAXY
039779,000382: 21,3060 50065 LASTPOSY INDEX ITEMP5
039780,000383: 21,3061 31676 CA LATVEL
039781,000384: 21,3062 00006 EXTEND
039782,000385: 21,3063 63065 BZMF +2
039783,000386: 21,3064 13067 TCF POSVMAXY
039784,000387: 21,3065 42005 CS MAXVBITS
039785,000388: 21,3066 13210 TCF ZEROLSTY
039786,000389: 21,3067 50065 POSVMAXY INDEX ITEMP5
039787,000390: 21,3070 41674 CS LATVMETR
039788,000391: 21,3071 62005 AD MAXVBITS
039789,000392: 21,3072 50065 INDEX ITEMP5
039790,000393: 21,3073 56072 XCH RUPTREG3
039791,000394: 21,3074 34753 CAF ONE
039792,000395: 21,3075 13213 TCF ZEROLSTY +3
039793,000396: 21,3076 50065 LASTNEGY INDEX ITEMP5
039794,000397: 21,3077 31676 CA LATVEL
039795,000398: 21,3100 00006 EXTEND
039796,000399: 21,3101 63104 BZMF NEGVMAXY
039797,000400: 21,3102 32005 CA MAXVBITS
039798,000401: 21,3103 13210 TCF ZEROLSTY
039799,000402: 21,3104 50065 NEGVMAXY INDEX ITEMP5
039800,000403: 21,3105 31674 CA LATVMETR
039801,000404: 21,3106 62005 AD MAXVBITS
039802,000405: 21,3107 40000 COM
039803,000406: 21,3110 50065 INDEX ITEMP5
039804,000407: 21,3111 56072 XCH RUPTREG3
039805,000408: 21,3112 44753 CS ONE
039806,000409: 21,3113 13213 TCF ZEROLSTY +3
039807,000410: 21,3114 50065 LVLIMITS INDEX ITEMP5
039808,000411: 21,3115 11700 CCS TRAKLATV
039809,000412: 21,3116 13145 TCF LATVPOS
039810,000413: 21,3117 13121 TCF +2
039811,000414: 21,3120 13152 TCF LATVNEG
039812,000415: 21,3121 50065 INDEX ITEMP5
039813,000416: 21,3122 41674 CS LATVMETR
039814,000417: 21,3123 00006 EXTEND
039815,000418: 21,3124 63126 BZMF +2
039816,000419: 21,3125 13161 TCF NEGLMLV
039817,000420: 21,3126 50065 INDEX ITEMP5
039818,000421: 21,3127 41676 CS LATVEL
039819,000422: 21,3130 00006 EXTEND
039820,000423: 21,3131 63204 BZMF LVMINLM
039821,000424: 21,3132 60066 AD ITEMP6
039822,000425: 21,3133 50065 INDEX ITEMP5
039823,000426: 21,3134 61674 AD LATVMETR
039824,000427: 21,3135 00006 EXTEND
|
|
Page 905
|
039826,000429: 21,3136 63204 BZMF LVMINLM
039827,000430: 21,3137 50065 INDEX ITEMP5
039828,000431: 21,3140 61676 AD LATVEL
039829,000432: 21,3141 00006 EXTEND
039830,000433: 21,3142 50065 INDEX ITEMP5
039831,000434: 21,3143 61674 SU LATVMETR
039832,000435: 21,3144 13210 TCF ZEROLSTY
039833,000436: 21,3145 50065 LATVPOS INDEX ITEMP5
039834,000437: 21,3146 41676 CS LATVEL
039835,000438: 21,3147 00006 EXTEND
039836,000439: 21,3150 63204 BZMF LVMINLM
039837,000440: 21,3151 13156 TCF +5
039838,000441: 21,3152 50065 LATVNEG INDEX ITEMP5
039839,000442: 21,3153 31676 CA LATVEL
039840,000443: 21,3154 00006 EXTEND
039841,000444: 21,3155 63204 BZMF LVMINLM
039842,000445: 21,3156 50065 INDEX ITEMP5
039843,000446: 21,3157 41674 CS LATVMETR
039844,000447: 21,3160 13210 TCF ZEROLSTY
039845,000448: 21,3161 50065 NEGLMLV INDEX ITEMP5
039846,000449: 21,3162 31676 CA LATVEL
039847,000450: 21,3163 00006 EXTEND
039848,000451: 21,3164 63204 BZMF LVMINLM
039849,000452: 21,3165 32005 CA MAXVBITS
039850,000453: 21,3166 50065 INDEX ITEMP5
039851,000454: 21,3167 61674 AD LATVMETR
039852,000455: 21,3170 40000 COM
039853,000456: 21,3171 50065 INDEX ITEMP5
039854,000457: 21,3172 61676 AD LATVEL
039855,000458: 21,3173 00006 EXTEND
039856,000459: 21,3174 63204 BZMF LVMINLM
039857,000460: 21,3175 00006 EXTEND
039858,000461: 21,3176 50065 INDEX ITEMP5
039859,000462: 21,3177 61676 SU LATVEL
039860,000463: 21,3200 50065 INDEX ITEMP5
039861,000464: 21,3201 61674 AD LATVMETR
039862,000465: 21,3202 40000 COM
039863,000466: 21,3203 13210 TCF ZEROLSTY
039864,000467: 21,3204 50065 LVMINLM INDEX ITEMP5
039865,000468: 21,3205 41674 CS LATVMETR
039866,000469: 21,3206 50065 INDEX ITEMP5
039867,000470: 21,3207 61676 AD LATVEL
039868,000471: 21,3210 50065 ZEROLSTY INDEX ITEMP5
039869,000472: 21,3211 56072 XCH RUPTREG3
039870,000473: 21,3212 34755 CAF ZERO
039871,000474: 21,3213 50065 INDEX ITEMP5
039872,000475: 21,3214 55700 TS TRAKLATV
039873,000476: 21,3215 50065 INDEX ITEMP5
039874,000477: 21,3216 30072 CA RUPTREG3
039875,000478: 21,3217 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
|
|
Page 906
|
039877,000480: 21,3220 50065 INDEX ITEMP5
039878,000481: 21,3221 54053 TS CDUTCMD
039879,000482: 21,3222 50065 INDEX ITEMP5
039880,000483: 21,3223 30072 CA RUPTREG3
039881,000484: 21,3224 50065 INDEX ITEMP5
039882,000485: 21,3225 27674 ADS LATVMETR
039883,000486: 21,3226 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
039884,000487: 21,3227 13004 TCF VMONITOR
039885,000488:
039886,000489: 21,3230 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
039887,000490: 21,3231 00006 EXTEND
039888,000491: 21,3232 05014 WOR CHAN14
039889,000492: 21,3233 01712 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
039890,000493: 21,3234 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
039891,000494: 21,3235 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
039892,000495: 21,3236 12454 TCF ZDATA2
039893,000496:
039894,000497: # ************************************************************************
039895,000498:
039896,000499: 21,3237 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039897,000500: 21,3240 74752 MASK R10FLBIT
039898,000501: 21,3241 00006 EXTEND
039899,000502: 21,3242 13253 BZF ABORTON # NO.
039900,000503: 21,3243 34744 CAF BIT8 # YES.
039901,000504: 21,3244 71303 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
039902,000505: 21,3245 10000 CCS A
039903,000506: 21,3246 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
039904,000507: 21,3247 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
039905,000508: 21,3250 40000 COM
039906,000509: 21,3251 00006 EXTEND
039907,000510: 21,3252 03012 WAND CHAN12
039908,000511: 21,3253 43262 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
039909,000512: 21,3254 71303 MASK IMODES33
039910,000513: 21,3255 55303 TS IMODES33
039911,000514: 21,3256 44736 CS DIDFLBIT
039912,000515: 21,3257 70075 MASK FLAGWRD1
039913,000516: 21,3260 54075 TS FLAGWRD1 # RESET DIDFLAG.
039914,000517: 21,3261 15261 TCF TASKOVER
039915,000518:
039916,000519: # ************************************************************************
039917,000520:
039918,000521: 21,3262 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
039919,000522: 21,3263 5020 BITSET = PRIO6
039920,000523:
039921,000524: # ************************************************************************
039922,000525:
039923,000526:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc