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.
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