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