Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
040058,000002: ## Copyright: Public domain. 040059,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc 040060,000004: ## Purpose: A log section of Zerlina 56, the final revision of 040061,000005: ## Don Eyles's offline development program for the variable 040062,000006: ## guidance period servicer. It also includes a new P66 with LPD 040063,000007: ## (Landing Point Designator) capability, based on an idea of John 040064,000008: ## Young's. Neither of these advanced features were actually flown, 040065,000009: ## but Zerlina was also the birthplace of other big improvements to 040066,000010: ## Luminary including the terrain model and new (Luminary 1E) 040067,000011: ## analog display programs. Zerlina was branched off of Luminary 145, 040068,000012: ## and revision 56 includes all changes up to and including Luminary 040069,000013: ## 183. It is therefore quite close to the Apollo 14 program, 040070,000014: ## Luminary 178, where not modified with new features. 040071,000015: ## Reference: pp. 890-898 040072,000016: ## Assembler: yaYUL 040073,000017: ## Contact: Ron Burkey <info@sandroid.org>. 040074,000018: ## Website: www.ibiblio.org/apollo/index.html 040075,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210. 040076,000020: ## 2017-08-19 MAS Updated for Zerlina 56. 040077,000021:
![]() |
Page 890 |
040079,000023: # **************************************************************************************************************** 040080,000024: # LANADISP: DISPLAY INERTIAL DATA ROUTINE FOR DESCENT AND ABORTS THIS VERSION BY EYLES 040081,000025: # **************************************************************************************************************** 040082,000026: 040083,000027: 21,2334 BANK 21 040084,000028: 21,2000 SETLOC R10 040085,000029: 21,2000 BANK 040086,000030: 040087,000031: 21,2334 E7,1777 EBANK= END-E7 040088,000032: 21,2334 COUNT* $$/R10 040089,000033: 040090,000034: # ************************************************************************ 040091,000035: # COMPUTE ALTITUDE AND ALTITUDE-RATE 040092,000036: # ************************************************************************ 040093,000037: 21,2334 31722 LANADISP CA RUNITX # COMPUTE RADIAL VELOCITY 040094,000038: 21,2335 00006 EXTEND 040095,000039: 21,2336 71726 MP VVECTX 040096,000040: 21,2337 53735 DXCH ALTRATE 040097,000041: 21,2340 31722 CA RUNITX # COMPUTE THE MORE SENSITIVE TERM IN DP 040098,000042: 21,2341 00006 EXTEND 040099,000043: 21,2342 71727 MP VVECTX +1 040100,000044: 21,2343 54001 TS L 040101,000045: 21,2344 34755 CAF ZERO 040102,000046: 21,2345 21735 DAS ALTRATE 040103,000047: 21,2346 31723 CA RUNITY # NOTE: WITH NORMAL DESCENT IMU ALIGNMENT 040104,000048: 21,2347 00006 EXTEND # THIS TERM IS ALWAYS ZERO, BUT ALTRATE 040105,000049: 21,2350 71730 MP VVECTY # CAN BE DISPLAYED DURING ASCENT TOO 040106,000050: 21,2351 21735 DAS ALTRATE 040107,000051: 21,2352 31724 CA RUNITZ 040108,000052: 21,2353 00006 EXTEND 040109,000053: 21,2354 71732 MP VVECTZ 040110,000054: 21,2355 21735 DAS ALTRATE 040111,000055: 040112,000056: 21,2356 31721 CA DALTRATE # COMPENSATE FOR CHANGE IN DIRECTION OF R 040113,000057: 21,2357 00006 EXTEND 040114,000058: 21,2360 71725 MP DT 040115,000059: 21,2361 21735 DAS ALTRATE # ALTRATE IN UNITS OF 2(5) M/CS 040116,000060: 040117,000061: 21,2362 00006 EXTEND 040118,000062: 21,2363 31735 DCA ALTRATE 040119,000063: 21,2364 52064 DXCH ALTRTEMP 040120,000064: 21,2365 00006 EXTEND 040121,000065: 21,2366 31720 DCA HDOTLAD 040122,000066: 21,2367 20064 DAS ALTRTEMP # AVERAGE ALTRATE IN UNITS OF 2(4) M/CS 040123,000067: 040124,000068: # THE FOLLOWING COMPUTATION FAILS IF DT EXCEEDS 20.47 SECONDS (UNLIKELY). 040125,000069: 040126,000070: 21,2370 31725 CA DT 040127,000071: 21,2371 00006 EXTEND
![]() |
Page 891 |
040129,000073: 21,2372 74750 MP BIT4 040130,000074: 21,2373 30001 CA L # FETCH DT FROM L IN UNITS OF 2(11) CS 040131,000075: 21,2374 00006 EXTEND 040132,000076: 21,2375 70063 MP ALTRTEMP 040133,000077: 21,2376 53737 DXCH ALTITUDE 040134,000078: 21,2377 00006 EXTEND 040135,000079: 21,2400 31716 DCA HCALCLAD 040136,000080: 21,2401 21737 DAS ALTITUDE # ALTITUDE IN UNITS OF 2(15) METERS 040137,000081: 040138,000082: # ************************************************************************ 040139,000083: # SEND OUT ALTITUDE-RATE IF POSSIBLE 040140,000084: # ************************************************************************ 040141,000085: 040142,000086: 21,2402 34746 LANACONT CAF BIT6 # IS THE METER MODE SWITCH IN PGNCS? 040143,000087: 21,2403 00006 EXTEND 040144,000088: 21,2404 02030 RAND CHAN30 040145,000089: 21,2405 10000 CCS A 040146,000090: 21,2406 12725 TCF DISPRSET # NO: GO RESET 040147,000091: 040148,000092: 21,2407 40075 CS FLAGWRD1 # YES: IS INITIALIZATION IN ORDER? 040149,000093: 21,2410 74736 MASK DIDFLBIT 040150,000094: 21,2411 10000 CCS A 040151,000095: 21,2412 12700 TCF DISPINIT # YES: THEN GO DO IT 040152,000096: 040153,000097: 21,2413 34752 CAF BIT2 # NO: ARE RR ERROR COUNTERS ENABLED? 040154,000098: 21,2414 00006 EXTEND 040155,000099: 21,2415 02012 RAND CHAN12 040156,000100: 21,2416 00006 EXTEND 040157,000101: 21,2417 12725 BZF DISPRSET # NO: REINITIALIZE DISPLAYS 040158,000102: 040159,000103: 21,2420 00006 ALTRROUT EXTEND # YES: SIGNIFY ALTITUDE-RATE (BIT2 IN A) 040160,000104: 21,2421 05014 WOR CHAN14 040161,000105: 040162,000106: 21,2422 00006 EXTEND 040163,000107: 21,2423 31735 DCA ALTRATE 040164,000108: 21,2424 20001 DDOUBL # RESCALE ALTRATE TO UNITS OF 2(2) M/CS 040165,000109: 21,2425 20001 DDOUBL 040166,000110: 21,2426 20001 DDOUBL 040167,000111: 21,2427 00006 EXTEND 040168,000112: 21,2430 72004 MP ALTRCONV # RESCALE TO UNITS OF .5 F/S/BIT 040169,000113: 040170,000114: 21,2431 56001 XCH L # ROUND TO NEAREST .5 F/S 040171,000115: 21,2432 60000 DOUBLE 040172,000116: 21,2433 54002 TS Q 040173,000117: 21,2434 34755 CAF ZERO 040174,000118: 21,2435 26001 ADS L 040175,000119: 040176,000120: 21,2436 64735 AD NEGMAX 040177,000121: 21,2437 54001 TS L 040178,000122: 21,2440 12443 TCF +3
![]() |
Page 892 |
040180,000124: 21,2441 60001 AD L 040181,000125: 21,2442 40000 COM 040182,000126: 21,2443 56060 +3 XCH ALTM 040183,000127: 040184,000128: 21,2444 34751 CAF BIT3 040185,000129: 21,2445 00006 EXTEND 040186,000130: 21,2446 05014 WOR CHAN14 040187,000131: 040188,000132: 21,2447 35752 CA TWELVE # PAUSE 12 CS FOR ALTRATE TO BE READ OUT 040189,000133: 21,2450 05235 TC VARDELAY # (MUST BE > 100 MS TO WORK ON THE LMS) 040190,000134: 040191,000135: 21,2451 44752 ALTROUT CS BIT2 # SIGNIFY ALTITUDE 040192,000136: 21,2452 00006 EXTEND 040193,000137: 21,2453 03014 WAND CHAN14 040194,000138: 040195,000139: 21,2454 31737 CA ALTITUDE +1 040196,000140: 21,2455 00006 EXTEND 040197,000141: 21,2456 72005 MP ALTCONV 040198,000142: 21,2457 54001 TS L 040199,000143: 21,2460 34755 CAF ZERO 040200,000144: 21,2461 52064 DXCH ALTTEMP 040201,000145: 21,2462 31736 CA ALTITUDE 040202,000146: 21,2463 00006 EXTEND 040203,000147: 21,2464 72005 MP ALTCONV 040204,000148: 21,2465 20064 DAS ALTTEMP # ALTITUDE IN UNITS OF 9.380 FEET/BIT 040205,000149: 040206,000150: 21,2466 52064 DXCH ALTTEMP 040207,000151: 21,2467 20001 DDOUBL 040208,000152: 21,2470 20001 DDOUBL # RESCALE TO UNITS OF 2.345 FEET/BIT 040209,000153: 21,2471 54000 OVSK 040210,000154: 21,2472 12476 TCF +4 # NO OVERFLOW: -38420 < ALTITUDE < +38420 040211,000155: 040212,000156: 21,2473 74733 MASK POSMAX # RESET OVERFLOW 040213,000157: 21,2474 64735 AD BIT15 040214,000158: 21,2475 12502 TCF +5 040215,000159: 040216,000160: 21,2476 10000 +4 CCS A # APPLY LOWER LIMIT OF POSITIVE ZERO 040217,000161: 21,2477 64753 AD ONE 040218,000162: 21,2500 12502 TCF +2 040219,000163: 21,2501 34755 CAF ZERO 040220,000164: 040221,000165: 21,2502 56060 +5 XCH ALTM 040222,000166: 21,2503 34751 CAF BIT3 040223,000167: 21,2504 00006 EXTEND 040224,000168: 21,2505 05014 WOR CHAN14 040225,000169: 040226,000170: # ************************************************************************ 040227,000171: # SEND OUT FORWARD AND LATERAL VELOCITIES 040228,000172: # ************************************************************************ 040229,000173:
![]() |
Page 893 |
040231,000175: 21,2506 02565 TC CROSCOMP # FIRST CALL SUBROUTINE TO COMPUTE THEM 040232,000176: 040233,000177: 21,2507 34742 CAF BIT10 # 1/32 TO ITEMP2 FOR USE AS DIVISOR BELOW 040234,000178: 21,2510 54062 TS ITEMP2 040235,000179: 040236,000180: 21,2511 32001 CAF MAXVEL # LIMIT COMMAND TO 198.645 F/S 040237,000181: 21,2512 22070 LXCH FORVTEMP 040238,000182: 21,2513 02745 TC LADLIMIT 040239,000183: 21,2514 22071 LXCH FORVTEMP +1 040240,000184: 21,2515 00006 EXTEND # RESCALE TO UNITS OF ONE M/CS 040241,000185: 21,2516 10062 DV ITEMP2 040242,000186: 21,2517 00006 EXTEND # RESCALE TO UNITS OF .5571 F/S/BIT 040243,000187: 21,2520 72003 MP VELCONV 040244,000188: 21,2521 56001 XCH L # ROUND TO NEAREST .5571 F/S 040245,000189: 21,2522 60000 DOUBLE 040246,000190: 21,2523 54002 TS Q 040247,000191: 21,2524 12526 TCF FORVOUT 040248,000192: 21,2525 26001 ADS L 040249,000193: 21,2526 41741 FORVOUT CS FORVMETR # SUBTRACT METER INDICATOR TO GET CHANGE 040250,000194: 21,2527 26001 ADS L 040251,000195: 21,2530 32002 CA MAXDBITS 040252,000196: 21,2531 02745 TC LADLIMIT # LIMIT CHANGE TO ABOUT 300 F/S 040253,000197: 21,2532 64754 AD NEG0 040254,000198: 21,2533 54054 TS CDUSCMD 040255,000199: 21,2534 27741 ADS FORVMETR # UPDATE METER INDICATOR 040256,000200: 040257,000201: 21,2535 32001 CAF MAXVEL # LIMIT COMMAND TO 198.645 F/S 040258,000202: 21,2536 22072 LXCH LATVEL 040259,000203: 21,2537 02745 TC LADLIMIT 040260,000204: 21,2540 22073 LXCH LATVEL +1 040261,000205: 21,2541 00006 EXTEND # RESCALE TO UNITS OF ONE M/CS 040262,000206: 21,2542 10062 DV ITEMP2 040263,000207: 21,2543 00006 EXTEND # RESCALE TO UNITS OF .5571 F/S/BIT 040264,000208: 21,2544 72003 MP VELCONV 040265,000209: 21,2545 56001 XCH L # ROUND TO NEAREST .5571 F/S 040266,000210: 21,2546 60000 DOUBLE 040267,000211: 21,2547 54002 TS Q 040268,000212: 21,2550 12552 TCF LATVOUT 040269,000213: 21,2551 26001 ADS L 040270,000214: 21,2552 41740 LATVOUT CS LATVMETR # SUBTRACT METER INDICATOR TO GET CHANGE 040271,000215: 21,2553 26001 ADS L 040272,000216: 21,2554 32002 CAF MAXDBITS 040273,000217: 21,2555 02745 TC LADLIMIT # LIMIT CHANGE TO ABOUT 300 F/S 040274,000218: 21,2556 64754 AD NEG0 040275,000219: 21,2557 54053 TS CDUTCMD 040276,000220: 21,2560 27740 ADS LATVMETR # UPDATE METER INDICATOR 040277,000221: 040278,000222: 21,2561 35020 CAF BITSET # SET DRIVE BITS 040279,000223: 21,2562 00006 EXTEND 040280,000224: 21,2563 05014 WOR CHAN14 040281,000225:
![]() |
Page 894 |
040283,000227: 21,2564 05272 LANADEND TC TASKOVER 040284,000228: 040285,000229: # ************************************************************************ 040286,000230: # SUBROUTINE TO COMPUTE FORWARD AND LATERAL VELOCITIES 040287,000231: # ************************************************************************ 040288,000232: 040289,000233: # THE SCALARS VHY AND VHZ, COMPUTED NEXT, ARE THE VELOCITIES ALONG UNIT VECTORS UHYP AND UHZP. UHYP NORMAL 040290,000234: # TO THE PRE-PDI ORBITAL PLANE, UHZP IN TURN NORMAL TO UHYP AND THE POSITION VECTOR. NOW SINCE FOR THE "LANDING 040291,000235: # ALIGNMENT" OF THE IMU THE STABLE-MEMBER Y-AXIS IS DEFINED THE SAME WAY AS UHYP, VVECTY IS PRECISELY VHY. 040292,000236: # FURTHERMORE, THE Y-TERM OF THE VHZ COMPUTATION DROPS OUT, AND THE FOLLOWING USEFUL EQUALITIES BECOME TRUE: 040293,000237: # UHZPX = - RUNITZ AND UHZPZ = RUNITX. DRAW A PICTURE TO BE CONVINCED. 040294,000238: 040295,000239: # NOTE THAT IN THIS VERSION CROSS-POINTER DISPLAYS ARE OUTPUT DURING ASCENT AND ABORTS AS WELL AS DESCENT. 040296,000240: 040297,000241: 21,2565 40074 CROSCOMP CS FLAGWRD0 # IS R10FLAG SET TO INDICATE ASCENT? 040298,000242: 21,2566 74752 MASK R10FLBIT 040299,000243: 21,2567 00006 EXTEND 040300,000244: 21,2570 12667 BZF APSLAD # YES: DISPLAY LATVEL IN INERTIAL AXES 040301,000245: 040302,000246: 21,2571 41724 CS RUNITZ # NO: COMPUTE DOWNRANGE VELOCITY 040303,000247: 21,2572 00006 EXTEND 040304,000248: 21,2573 71726 MP VVECTX 040305,000249: 21,2574 52066 DXCH VHZ 040306,000250: 21,2575 31722 CA RUNITX 040307,000251: 21,2576 00006 EXTEND 040308,000252: 21,2577 71732 MP VVECTZ 040309,000253: 21,2600 20066 DAS VHZ 040310,000254: 21,2601 31722 CA RUNITX # COMPUTE THE MORE SENSITIVE TERM IN DP 040311,000255: 21,2602 00006 EXTEND 040312,000256: 21,2603 71733 MP VVECTZ +1 040313,000257: 21,2604 54001 TS L 040314,000258: 21,2605 34755 CAF ZERO 040315,000259: 21,2606 20066 DAS VHZ # VHZ IN UNITS OF 2(5) M/CS 040316,000260: 040317,000261: 21,2607 00006 EXTEND 040318,000262: 21,2610 31731 DCA VVECTY 040319,000263: 21,2611 52064 DXCH VHY # VHY IN UNITS OF 2(5) M/CS 040320,000264: 040321,000265: 21,2612 35015 CAF EBANK6 # SWITCH TO DAP EBANK 040322,000266: 21,2613 54003 TS EBANK 040323,000267: 21,2614 E6,1417 EBANK= M22 040324,000268: 040325,000269: 21,2614 31420 CA M32 # COS(AOG) 040326,000270: 21,2615 00006 EXTEND 040327,000271: 21,2616 70065 MP VHZ 040328,000272: 21,2617 52071 DXCH FORVTEMP 040329,000273: 21,2620 41417 CS M22 # SIN(AOG) 040330,000274: 21,2621 00006 EXTEND 040331,000275: 21,2622 70063 MP VHY 040332,000276: 21,2623 20071 DAS FORVTEMP 040333,000277:
![]() |
Page 895 |
040335,000279: 21,2624 31420 CA M32 # COS(AOG) 040336,000280: 21,2625 00006 EXTEND 040337,000281: 21,2626 70066 MP VHZ +1 040338,000282: 21,2627 54062 TS ITEMP2 040339,000283: 21,2630 41417 CS M22 # SIN(AOG) 040340,000284: 21,2631 00006 EXTEND 040341,000285: 21,2632 70064 MP VHY +1 040342,000286: 21,2633 60062 AD ITEMP2 040343,000287: 21,2634 54001 TS L 040344,000288: 21,2635 34755 CAF ZERO 040345,000289: 21,2636 20071 DAS FORVTEMP # FORWARD VELOCITY IN UNITS OF 2(5) M/CS 040346,000290: 040347,000291: 21,2637 31417 CA M22 # SIN(AOG) 040348,000292: 21,2640 00006 EXTEND 040349,000293: 21,2641 70065 MP VHZ 040350,000294: 21,2642 52073 DXCH LATVEL 040351,000295: 21,2643 31420 CA M32 # COS(AOG) 040352,000296: 21,2644 00006 EXTEND 040353,000297: 21,2645 70063 MP VHY 040354,000298: 21,2646 20073 DAS LATVEL 040355,000299: 040356,000300: 21,2647 31417 CA M22 # SIN(AOG) 040357,000301: 21,2650 00006 EXTEND 040358,000302: 21,2651 70066 MP VHZ +1 040359,000303: 21,2652 54062 TS ITEMP2 040360,000304: 21,2653 31420 CA M32 # COS(AOG) 040361,000305: 21,2654 00006 EXTEND 040362,000306: 21,2655 70064 MP VHY +1 040363,000307: 21,2656 60062 AD ITEMP2 040364,000308: 21,2657 54001 TS L 040365,000309: 21,2660 34755 CAF ZERO 040366,000310: 21,2661 20073 DAS LATVEL # LATERAL VELOCITY IN UNITS OF 2(5) M/CS 040367,000311: 040368,000312: 21,2662 24006 INCR BBANK # RETURN TO SERVICER EBANK 040369,000313: 21,2663 E7,1717 EBANK= HDOTLAD 040370,000314: 040371,000315: 21,2663 00006 CROSSOUT EXTEND # MOVE FORVTEMP TO FORVEL FOR DSKY DISPLAY 040372,000316: 21,2664 30071 DCA FORVTEMP 040373,000317: 21,2665 53743 DXCH FORVEL 040374,000318: 040375,000319: 21,2666 00002 TC Q 040376,000320: 040377,000321: 21,2667 54070 APSLAD TS FORVTEMP # DURING ASCENT AND ABORTS COME HERE TO 040378,000322: 21,2670 54071 TS FORVTEMP +1 # DISPLAY LATVEL = SM Y-AXIS VELOCITY 040379,000323: 040380,000324: 21,2671 00006 EXTEND 040381,000325: 21,2672 31731 DCA VVECTY 040382,000326: 21,2673 52073 DXCH LATVEL 040383,000327: 21,2674 00006 EXTEND # ADD SURFACE VELOCITY BACK IN SO APS 040384,000328: 21,2675 31712 DCA VSURFACE +2 # LATVEL DISPLAY WILL BE IN TRUE
![]() |
Page 896 |
040386,000330: 21,2676 20073 DAS LATVEL # STABLE-MEMBER COORDINATES 040387,000331: 040388,000332: 21,2677 12663 TCF CROSSOUT # REJOIN THE MAINSTREAM 040389,000333: 040390,000334: # ************************************************************************ 040391,000335: # LANDING ANALOG DISPLAYS INITIALIZATION 040392,000336: # ************************************************************************ 040393,000337: 040394,000338: 21,2700 02565 DISPINIT TC CROSCOMP # FIRST COMPUTE BUT NOT OUTPUT VELOCITIES 040395,000339: 040396,000340: 21,2701 40075 CS FLAGWRD1 # SET DIDFLAG 040397,000341: 21,2702 74736 MASK DIDFLBIT 040398,000342: 21,2703 26075 ADS FLAGWRD1 040399,000343: 040400,000344: 21,2704 34744 CAF BIT8 # SET DISPLAY INERTIAL DATA OUTBIT 040401,000345: 21,2705 00006 EXTEND 040402,000346: 21,2706 05012 WOR CHAN12 040403,000347: 040404,000348: 21,2707 44755 CS ZERO # ZERO METER INDICATORS 040405,000349: 21,2710 55740 TS LATVMETR 040406,000350: 21,2711 55741 TS FORVMETR 040407,000351: 040408,000352: 21,2712 34750 CAF BIT4 # SET UP TASK TO FINISH INITIALIZATION 040409,000353: 21,2713 05204 TC TWIDDLE 040410,000354: 21,2714 02716 ADRES INTLZE 040411,000355: 21,2715 12564 TCF LANADEND 040412,000356: 040413,000357: 21,2716 34752 INTLZE CAF BIT2 # ENABLE RR ERROR COUNTER 040414,000358: 21,2717 00006 EXTEND 040415,000359: 21,2720 05012 WOR CHAN12 040416,000360: 040417,000361: 21,2721 41300 CS IMODES33 # SET INERTIAL DATA FLAG 040418,000362: 21,2722 74744 MASK BIT8 040419,000363: 21,2723 27300 ADS IMODES33 040420,000364: 21,2724 05272 TC TASKOVER 040421,000365: 040422,000366: # ************************************************************************ 040423,000367: # LANDING ANALOG DISPLAYS RESET ROUTINE 040424,000368: # ************************************************************************ 040425,000369: 040426,000370: 21,2725 02565 DISPRSET TC CROSCOMP # FIRST COMPUTE BUT NOT OUTPUT VELOCITIES 040427,000371: 040428,000372: 21,2726 44736 +1 CS DIDFLBIT # RESET DIDFLAG 040429,000373: 21,2727 70075 MASK FLAGWRD1 040430,000374: 21,2730 54075 TS FLAGWRD1 040431,000375: 040432,000376: 21,2731 34744 CAF BIT8 # WAS INERTIAL DATA JUST DISPLAYED? 040433,000377: 21,2732 71300 MASK IMODES33 040434,000378: 21,2733 10000 CCS A 040435,000379: 21,2734 34752 CAF BIT2 # YES: DISABLE RR ERROR COUNTER AND
![]() |
Page 897 |
040437,000381: 21,2735 64744 AD BIT8 # NO: RESET DISPLAY INERTIAL DATA OUTBIT 040438,000382: 21,2736 40000 COM 040439,000383: 21,2737 00006 EXTEND 040440,000384: 21,2740 03012 WAND CHAN12 040441,000385: 040442,000386: 21,2741 44744 CS BIT8 040443,000387: 21,2742 71300 MASK IMODES33 040444,000388: 21,2743 55300 TS IMODES33 040445,000389: 21,2744 12564 TCF LANADEND 040446,000390: 040447,000391: # ************************************************************************ 040448,000392: # CONSTANTS FOR LANDING ANALOG DISPLAYS 040449,000393: # ************************************************************************ 040450,000394: 040451,000395: # CONSTANTS ON A-CARDS ARE FOUND IN THE CONTROLLED CONSTANTS SECTION 040452,000396: 040453,000397: 040454,000398: # LANAKPIP DEC .0512 SCALES PIPAS TO UNITS OF 2(5) M/CS 040455,000399: 040456,000400: 040457,000401: # MAXVEL OCT 00466 198.645 F/S IN UNITS OF 2(5) M/CS 040458,000402: 040459,000403: 040460,000404: # MAXDBITS OCT 01034 ABOUT 300 F/S 040461,000405: 040462,000406: 040463,000407: # VELCONV DEC .03594 SCALES VEL AT ONE M/CS TO .5571 F/S/BIT 040464,000408: 040465,000409: 040466,000410: # ALTRCONV DEC .16020 SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT 040467,000411: 040468,000412: 040469,000413: # ALTCONV DEC .69954 SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT 040470,000414: 040471,000415: 040472,000416: 21,2745 5020 BITSET = PRIO6 # CROSS-POINTER DRIVE BITS 040473,000417: 040474,000418: # ************************************************************************ 040475,000419: # SUBROUTINES 040476,000420: # ************************************************************************ 040477,000421: 040478,000422: 21,2745 54061 LADLIMIT TS ITEMP1 040479,000423: 21,2746 34755 CAF ZERO 040480,000424: 21,2747 00006 EXTEND 040481,000425: 21,2750 10061 DV ITEMP1 040482,000426: 21,2751 10000 CCS A 040483,000427: 21,2752 22061 LXCH ITEMP1 040484,000428: 21,2753 12755 TCF +2 040485,000429: 21,2754 12757 TCF +3
![]() |
Page 898 |
040487,000431: 21,2755 30001 CA L 040488,000432: 21,2756 00002 TC Q 040489,000433: 21,2757 40061 CS ITEMP1 040490,000434: 21,2760 00002 TC Q 040491,000435: 040492,000436: 21,2761 56061 NORMPIP XCH ITEMP1 040493,000437: 21,2762 30061 CA ITEMP1 040494,000438: 21,2763 74736 MASK BIT14 040495,000439: 21,2764 00006 EXTEND 040496,000440: 21,2765 12772 BZF +5 040497,000441: 21,2766 30061 CA ITEMP1 040498,000442: 21,2767 64734 AD NEG1/2 040499,000443: 21,2770 64734 AD NEG1/2 040500,000444: 21,2771 12775 TCF +4 040501,000445: 21,2772 30061 +5 CA ITEMP1 040502,000446: 21,2773 64736 AD HALF 040503,000447: 21,2774 64736 AD HALF 040504,000448: 21,2775 22007 +4 ZL 040505,000449: 21,2776 56001 XCH L 040506,000450: 21,2777 56001 XCH L 040507,000451: 21,3000 00002 TC Q 040508,000452: 040509,000453: # ************************************************************************ 040510,000454: # THE END OF THE LANDING ANALOG DISPLAYS 040511,000455: # ************************************************************************ End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc