Source Code
038958,000001: # Copyright: Public domain.
038959,000002: # Filename: LANDING_ANALOG_DISPLAYS.agc
038960,000003: # Purpose: Part of the source code for Luminary, build 099. It
038961,000004: # is part of the source code for the Lunar Module's
038962,000005: # (LM) Apollo Guidance Computer (AGC), Apollo 11.
038963,000006: # Assembler: yaYUL
038964,000007: # Reference: pp. 898-907
038965,000008: # Contact: Ron Burkey <info@sandroid.org>,
038966,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it>
038967,000010: # Website: http://www.ibiblio.org/apollo.
038968,000011: # Mod history: 05/06/09 FB Transcription Batch 4 Assignment.
038969,000012:
038970,000013: # The contents of the "Luminary099" files, in general, are transcribed
038971,000014: # from scanned documents.
038972,000015:
038973,000016: # Assemble revision 001 of AGC program Luminary099 by NASA
038974,000017: # 2021112-061. July 14, 1969.
038975,000018:
038976,000019: # Prepared by
038977,000020: # Massachusetts Institute of Technology
038978,000021: # 75 Cambridge Parkway
038979,000022: # Cambridge, Massachusetts
038980,000023:
038981,000024: # under NASA contract NAS 9-4065.
038982,000025:
038983,000026: # Refer directly to the online document mentioned above for further
038984,000027: # information. Please report any errors to info@sandroid.org.
038985,000028:
038986,000029: # Page 898
038987,000030: 21,2154 BANK 21
038988,000031: 21,2000 SETLOC R10
038989,000032: 21,2000 BANK
038990,000033:
038991,000034: 21,2154 E7,1536 EBANK= UNIT/R/
038992,000035: 21,2154 COUNT* $$/R10
038993,000036:
038994,000037: 21,2154 23714 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038995,000038: 21,2155 40025 CS TIME1
038996,000039: 21,2156 53056 DXCH TBASE2
038997,000040:
038998,000041: 21,2157 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
038999,000042: 21,2160 74741 MASK SWANDBIT
039000,000043: 21,2161 10000 CCS A
039001,000044: 21,2162 13053 TCF DISPRSET # NO.
039002,000045: 21,2163 31303 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
039003,000046: 21,2164 74745 MASK BIT7
039004,000047: 21,2165 10000 CCS A
039005,000048: 21,2166 12240 TCF ALTOUT
039006,000049: 21,2167 02324 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
039007,000050: 21,2170 41303 CS IMODES33
039008,000051: 21,2171 74745 MASK BIT7
039009,000052: 21,2172 27303 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039010,000053: 21,2173 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
039011,000054: 21,2174 00006 EXTEND
039012,000055: 21,2175 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
039013,000056: 21,2176 31743 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *(-6).
039014,000057: 21,2177 00006 EXTEND
039015,000058: 21,2200 71706 MP VVECT # MULTIPLY X-COMPONENTS.
039016,000059: 21,2201 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6)
039017,000060: 21,2202 31744 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
039018,000061: 21,2203 00006 EXTEND
039019,000062: 21,2204 71707 MP VVECT +1
039020,000063: 21,2205 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039021,000064: 21,2206 31745 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
039022,000065: 21,2207 00006 EXTEND
039023,000066: 21,2210 71710 MP VVECT +2
039024,000067: 21,2211 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
039025,000068: 21,2212 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
039026,000069: 21,2213 00006 EXTEND
039027,000070: 21,2214 70070 MP RUPTREG1
039028,000071: 21,2215 20001 DDOUBL
039029,000072: 21,2216 20001 DDOUBL
039030,000073: 21,2217 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
039031,000074: 21,2220 31716 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
039032,000075: 21,2221 00006 EXTEND
039033,000076: 21,2222 71715 MP DT
039034,000077: 21,2223 60070 AD RUPTREG1
039035,000078: 21,2224 55711 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
039036,000079: 21,2225 41711 CS ALTRATE
039037,000080: # Page 899
039038,000081: 21,2226 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
039039,000082: 21,2227 62231 BZMF +2
039040,000083: 21,2230 12233 TCF DATAOUT # NEGATIVE -- SEND POS. PULSES TO ALTM REG.
039041,000084: 21,2231 31711 CA ALTRATE # POSITIVE OR ZERO -- SET SIGN BIT = 1 AND
039042,000085: 21,2232 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
039043,000086: 21,2233 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS
039044,000087: 21,2234 34751 CAF BIT3
039045,000088: 21,2235 00006 EXTEND
039046,000089: 21,2236 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
039047,000090: 21,2237 15261 TCF TASKOVER # EXIT
039048,000091:
039049,000092: 21,2240 02324 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
039050,000093: 21,2241 44745 CS BIT7
039051,000094: 21,2242 71303 MASK IMODES33
039052,000095: 21,2243 55303 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039053,000096: 21,2244 44752 CS BIT2
039054,000097: 21,2245 00006 EXTEND
039055,000098: 21,2246 03014 WAND CHAN14
039056,000099: 21,2247 11741 CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
039057,000100: 21,2250 12254 TCF +4
039058,000101: 21,2251 12254 TCF +3
039059,000102: 21,2252 12272 TCF OLDDATA
039060,000103: 21,2253 55741 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
039061,000104: 21,2254 44753 CS ONE
039062,000105: 21,2255 53742 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
039063,000106: 21,2256 53713 DXCH ALTSAVE
039064,000107: 21,2257 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
039065,000108: 21,2260 56002 XCH Q
039066,000109: 21,2261 22007 LXCH 7 # ZL
039067,000110: 21,2262 31715 CA DT
039068,000111: 21,2263 00006 EXTEND
039069,000112: 21,2264 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
039070,000113: 21,2265 00006 EXTEND
039071,000114: 21,2266 72002 MP ARTOA2 # .0021322 *2(+8)
039072,000115: 21,2267 12273 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
039073,000116:
039074,000117: 21,2270 53713 ZDATA2 DXCH ALTSAVE
039075,000118: 21,2271 12313 TCF NEWDATA
039076,000119: 21,2272 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
039077,000120: 21,2273 00006 EXTEND
039078,000121: 21,2274 71711 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
039079,000122: 21,2275 20001 DDOUBL
039080,000123: 21,2276 61713 AD ALTSAVE +1
039081,000124: 21,2277 55713 TS ALTSAVE +1
039082,000125: 21,2300 34755 CAF ZERO
039083,000126: 21,2301 27712 ADS ALTSAVE
039084,000127: 21,2302 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
039085,000128: 21,2303 64753 AD ONE # NON-NEGATIVE ALTSAVE.
039086,000129: 21,2304 61713 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
039087,000130: 21,2305 55713 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
039088,000131: # Page 900
039089,000132: 21,2306 34755 CAF ZERO
039090,000133: 21,2307 64733 AD POSMAX
039091,000134: 21,2310 61712 AD ALTSAVE
039092,000135: 21,2311 55712 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
039093,000136: 21,2312 13050 TCF ZERODATA
039094,000137: 21,2313 11713 NEWDATA CCS ALTSAVE +1
039095,000138: 21,2314 12320 TCF +4
039096,000139: 21,2315 12320 TCF +3
039097,000140: 21,2316 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
039098,000141: 21,2317 55713 TS ALTSAVE +1
039099,000142: 21,2320 11712 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
039100,000143: 21,2321 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
039101,000144: 21,2322 61713 AD ALTSAVE +1
039102,000145: 21,2323 12233 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
039103,000146: 21,2324 00006 DISINDAT EXTEND
039104,000147: 21,2325 23714 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
039105,000148: 21,2326 34746 CAF BIT6
039106,000149: 21,2327 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
039107,000150: 21,2330 02030 RAND CHAN30 # DISPLAYS? I.E.,
039108,000151: 21,2331 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
039109,000152: 21,2332 13053 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
039110,000153: 21,2333 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
039111,000154: 21,2334 74736 MASK DIDFLBIT
039112,000155: 21,2335 00006 EXTEND
039113,000156: 21,2336 12374 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
039114,000157: 21,2337 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
039115,000158: 21,2340 74736 MASK DIDFLBIT
039116,000159: 21,2341 26075 ADS FLAGWRD1 # SET DIDFLAG.
039117,000160: 21,2342 44745 CS BIT7
039118,000161: 21,2343 71303 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
039119,000162: 21,2344 55303 TS IMODES33
039120,000163: 21,2345 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039121,000164: 21,2346 74752 MASK R10FLBIT
039122,000165: 21,2347 00006 EXTEND
039123,000166: 21,2350 15261 BZF TASKOVER # NO
039124,000167: 21,2351 34744 CAF BIT8 # YES.
039125,000168: 21,2352 00006 EXTEND
039126,000169: 21,2353 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
039127,000170: 21,2354 34755 CAF ZERO
039128,000171: 21,2355 55702 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
039129,000172: 21,2356 55703 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
039130,000173: 21,2357 55676 TS LATVMETR # LATVEL MONITOR METER
039131,000174: 21,2360 55677 TS FORVMETR # FORVEL MONITOR METER
039132,000175: 21,2361 34750 CAF BIT4
039133,000176: 21,2362 05173 TC TWIDDLE
039134,000177: 21,2363 02365 ADRES INTLZE
039135,000178: 21,2364 15261 TCF TASKOVER
039136,000179: 21,2365 34752 INTLZE CAF BIT2
039137,000180: 21,2366 00006 EXTEND
039138,000181: 21,2367 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
039139,000182: # Page 901
039140,000183: 21,2370 41303 CS IMODES33
039141,000184: 21,2371 74744 MASK BIT8
039142,000185: 21,2372 27303 ADS IMODES33 # SET INERTIAL DATA FLAG.
039143,000186: 21,2373 15261 TCF TASKOVER
039144,000187:
039145,000188: 21,2374 41235 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
039146,000189: 21,2375 60025 AD TIME1 # COMPUTE T - TN
039147,000190: 21,2376 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
039148,000191: 21,2377 64736 AD HALF
039149,000192: 21,2400 57715 XCH DT # SAVE FOR LATER USE
039150,000193: 21,2401 34777 CA 1SEC
039151,000194: 21,2402 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
039152,000195: 21,2403 00006 EXTEND
039153,000196: 21,2404 31237 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
039154,000197: 21,2405 20001 DDOUBL
039155,000198: 21,2406 20001 DDOUBL
039156,000199: 21,2407 00006 EXTEND
039157,000200: 21,2410 71715 MP DT
039158,000201: 21,2411 00006 EXTEND
039159,000202: 21,2412 10065 DV ITEMP5
039160,000203: 21,2413 57706 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
039161,000204: 21,2414 00006 EXTEND
039162,000205: 21,2415 31527 DCA V # M/CS *2(-7)
039163,000206: 21,2416 20001 DDOUBL # RESCALE TO 2(-5)
039164,000207: 21,2417 20001 DDOUBL
039165,000208: 21,2420 27706 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
039166,000209: 21,2421 30037 CA PIPAX # DELV CM/SEC *2(-14)
039167,000210: 21,2422 61160 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
039168,000211: 21,2423 00006 EXTEND
039169,000212: 21,2424 72004 MP KPIP1(5) # DELV M/CS *2(-5)
039170,000213: 21,2425 27706 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
039171,000214: 21,2426 00006 EXTEND
039172,000215: 21,2427 31241 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
039173,000216: 21,2430 20001 DDOUBL
039174,000217: 21,2431 20001 DDOUBL
039175,000218: 21,2432 00006 EXTEND
039176,000219: 21,2433 71715 MP DT
039177,000220: 21,2434 00006 EXTEND
039178,000221: 21,2435 10065 DV ITEMP5
039179,000222: 21,2436 57707 XCH VVECT +1
039180,000223: 21,2437 00006 EXTEND
039181,000224: 21,2440 31531 DCA V +2
039182,000225: 21,2441 20001 DDOUBL
039183,000226: 21,2442 20001 DDOUBL
039184,000227: 21,2443 27707 ADS VVECT +1
039185,000228: 21,2444 30040 CA PIPAY
039186,000229: 21,2445 61161 AD PIPATMPY
039187,000230: 21,2446 00006 EXTEND
039188,000231: 21,2447 72004 MP KPIP1(5)
039189,000232: 21,2450 27707 ADS VVECT +1
039190,000233: # Page 902
039191,000234: 21,2451 00006 EXTEND
039192,000235: 21,2452 31243 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
039193,000236: 21,2453 20001 DDOUBL
039194,000237: 21,2454 20001 DDOUBL
039195,000238: 21,2455 00006 EXTEND
039196,000239: 21,2456 71715 MP DT
039197,000240: 21,2457 00006 EXTEND
039198,000241: 21,2460 10065 DV ITEMP5
039199,000242: 21,2461 57710 XCH VVECT +2
039200,000243: 21,2462 00006 EXTEND
039201,000244: 21,2463 31533 DCA V +4
039202,000245: 21,2464 20001 DDOUBL
039203,000246: 21,2465 20001 DDOUBL
039204,000247: 21,2466 27710 ADS VVECT +2
039205,000248: 21,2467 30041 CA PIPAZ
039206,000249: 21,2470 61162 AD PIPATMPZ
039207,000250: 21,2471 00006 EXTEND
039208,000251: 21,2472 72004 MP KPIP1(5)
039209,000252: 21,2473 27710 ADS VVECT +2
039210,000253:
039211,000254: 21,2474 34751 CAF BIT3 # PAUSE 40 MS TO LET OTHER RUPTS IN.
039212,000255: 21,2475 05224 TC VARDELAY
039213,000256:
039214,000257: 21,2476 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039215,000258: 21,2477 74752 MASK R10FLBIT
039216,000259: 21,2500 10000 CCS A
039217,000260: 21,2501 12503 TCF +2 # YES.
039218,000261: 21,2502 01714 TC LADQSAVE # NO.
039219,000262:
039220,000263: 21,2503 31733 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
039221,000264: 21,2504 61706 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
039222,000265: 21,2505 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
039223,000266: 21,2506 31735 CA DELVS +2 # Y
039224,000267: 21,2507 61707 AD VVECT +1 # Y
039225,000268: 21,2510 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5)
039226,000269: 21,2511 31737 CA DELVS +4 # Z
039227,000270: 21,2512 61710 AD VVECT +2 # Z
039228,000271: 21,2513 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5)
039229,000272: 21,2514 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
039230,000273: 21,2515 00006 EXTEND # Y-COORDINATE.
039231,000274: 21,2516 71717 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR
039232,000275: 21,2517 56070 XCH RUPTREG1
039233,000276: 21,2520 30062 CA ITEMP2
039234,000277: 21,2521 00006 EXTEND
039235,000278: 21,2522 71721 MP UHYP +2 # Y
039236,000279: 21,2523 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039237,000280: 21,2524 30063 CA ITEMP3
039238,000281: 21,2525 00006 EXTEND
039239,000282: 21,2526 71723 MP UHYP +4 # Z
039240,000283: 21,2527 26070 ADS RUPTREG1
039241,000284: # Page 903
039242,000285: 21,2530 30070 CA RUPTREG1
039243,000286: 21,2531 60000 DOUBLE
039244,000287: 21,2532 57704 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
039245,000288: 21,2533 30061 CA ITEMP1 # NO COMPUTE VHZ, VELOCITY DIRECTED ALONG
039246,000289: 21,2534 00006 EXTEND # THE Z-COORDINATE.
039247,000290: 21,2535 71725 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
039248,000291: 21,2536 56070 XCH RUPTREG1
039249,000292: 21,2537 30062 CA ITEMP2
039250,000293: 21,2540 00006 EXTEND
039251,000294: 21,2541 71727 MP UHZP +2 # Y
039252,000295: 21,2542 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
039253,000296: 21,2543 30063 CA ITEMP3
039254,000297: 21,2544 00006 EXTEND
039255,000298: 21,2545 71731 MP UHZP +4 # Z
039256,000299: 21,2546 26070 ADS RUPTREG1
039257,000300: 21,2547 30070 CA RUPTREG1
039258,000301: 21,2550 60000 DOUBLE
039259,000302: 21,2551 57705 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
039260,000303: 21,2552 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
039261,000304: 21,2553 54003 TS EBANK
039262,000305: 21,2554 E6,1417 EBANK= M22
039263,000306: 21,2554 31417 CA M22
039264,000307: 21,2555 54063 TS ITEMP3
039265,000308: 21,2556 31420 CA M32
039266,000309: 21,2557 54064 TS ITEMP4
039267,000310: 21,2560 35016 CAF EBANK7
039268,000311: 21,2561 54003 TS EBANK
039269,000312: 21,2562 E7,1536 EBANK= UNIT/R/
039270,000313: 21,2562 30064 LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
039271,000314: 21,2563 00006 EXTEND
039272,000315: 21,2564 71704 MP VHY
039273,000316: 21,2565 56070 XCH RUPTREG1
039274,000317: 21,2566 30063 CA ITEMP3
039275,000318: 21,2567 00006 EXTEND
039276,000319: 21,2570 71705 MP VHZ
039277,000320: 21,2571 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
039278,000321: 21,2572 32003 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
039279,000322: 21,2573 00006 EXTEND
039280,000323: 21,2574 70070 MP RUPTREG1
039281,000324: 21,2575 20001 DDOUBL
039282,000325: 21,2576 57700 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
039283,000326: 21,2577 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
039284,000327: 21,2600 00006 EXTEND
039285,000328: 21,2601 71705 MP VHZ
039286,000329: 21,2602 56070 XCH RUPTREG1
039287,000330: 21,2603 30063 CA ITEMP3
039288,000331: 21,2604 00006 EXTEND
039289,000332: 21,2605 71704 MP VHY
039290,000333: 21,2606 40000 CS A
039291,000334: 21,2607 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
039292,000335: # Page 904
039293,000336: 21,2610 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
039294,000337: 21,2611 00006 EXTEND
039295,000338: 21,2612 70070 MP RUPTREG1
039296,000339: 21,2613 20001 DDOUBL
039297,000340: 21,2614 57701 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
039298,000341:
039299,000342: 21,2615 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
039300,000343: 21,2616 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
039301,000344:
039302,000345: 21,2617 34753 CAF ONE # LOOP TWICE.
039303,000346: 21,2620 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
039304,000347: 21,2621 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
039305,000348: 21,2622 11700 CCS LATVEL
039306,000349: 21,2623 12627 TCF +4
039307,000350: 21,2624 12730 TCF LVLIMITS
039308,000351: 21,2625 12635 TCF +8D
039309,000352: 21,2626 12730 TCF LVLIMITS
039310,000353: 21,2627 50065 INDEX ITEMP5
039311,000354: 21,2630 41700 CS LATVEL
039312,000355: 21,2631 62005 AD MAXVBITS # +199.9989 FT.SEC.
039313,000356: 21,2632 00006 EXTEND
039314,000357: 21,2633 62643 BZMF CHKLASTY
039315,000358: 21,2634 12730 TCF LVLIMITS
039316,000359: 21,2635 50065 INDEX ITEMP5
039317,000360: 21,2636 31700 CA LATVEL
039318,000361: 21,2637 62005 AD MAXVBITS
039319,000362: 21,2640 00006 EXTEND
039320,000363: 21,2641 62643 BZMF +2
039321,000364: 21,2642 12730 TCF LVLIMITS
039322,000365: 21,2643 50065 CHKLASTY INDEX ITEMP5
039323,000366: 21,2644 11676 CCS LATVMETR
039324,000367: 21,2645 12651 TCF +4
039325,000368: 21,2646 12662 TCF LASTOK
039326,000369: 21,2647 12656 TCF +7
039327,000370: 21,2650 12662 TCF LASTOK
039328,000371: 21,2651 50065 INDEX ITEMP5
039329,000372: 21,2652 31700 CA LATVEL
039330,000373: 21,2653 00006 EXTEND
039331,000374: 21,2654 62701 BZMF LASTPOSY +5
039332,000375: 21,2655 12662 TCF +5
039333,000376: 21,2656 50065 INDEX ITEMP5
039334,000377: 21,2657 41700 CS LATVEL
039335,000378: 21,2660 00006 EXTEND
039336,000379: 21,2661 62716 BZMF LASTNEGY +4
039337,000380: 21,2662 50065 LASTOK INDEX ITEMP5
039338,000381: 21,2663 11702 CCS TRAKLATV
039339,000382: 21,2664 12674 TCF LASTPOSY
039340,000383: 21,2665 12667 TCF +2
039341,000384: 21,2666 12712 TCF LASTNEGY
039342,000385: 21,2667 50065 INDEX ITEMP5
039343,000386: # Page 905
039344,000387: 21,2670 31700 CA LATVEL
039345,000388: 21,2671 00006 EXTEND
039346,000389: 21,2672 62720 BZMF NEGVMAXY
039347,000390: 21,2673 12703 TCF POSVMAXY
039348,000391: 21,2674 50065 LASTPOSY INDEX ITEMP5
039349,000392: 21,2675 31700 CA LATVEL
039350,000393: 21,2676 00006 EXTEND
039351,000394: 21,2677 62701 BZMF +2
039352,000395: 21,2700 12703 TCF POSVMAXY
039353,000396: 21,2701 42005 CS MAXVBITS
039354,000397: 21,2702 13024 TCF ZEROLSTY
039355,000398: 21,2703 50065 POSVMAXY INDEX ITEMP5
039356,000399: 21,2704 41676 CS LATVMETR
039357,000400: 21,2705 62005 AD MAXVBITS
039358,000401: 21,2706 50065 INDEX ITEMP5
039359,000402: 21,2707 56072 XCH RUPTREG3
039360,000403: 21,2710 34753 CAF ONE
039361,000404: 21,2711 13027 TCF ZEROLSTY +3
039362,000405: 21,2712 50065 LASTNEGY INDEX ITEMP5
039363,000406: 21,2713 31700 CA LATVEL
039364,000407: 21,2714 00006 EXTEND
039365,000408: 21,2715 62720 BZMF NEGVMAXY
039366,000409: 21,2716 32005 CA MAXVBITS
039367,000410: 21,2717 13024 TCF ZEROLSTY
039368,000411: 21,2720 50065 NEGVMAXY INDEX ITEMP5
039369,000412: 21,2721 31676 CA LATVMETR
039370,000413: 21,2722 62005 AD MAXVBITS
039371,000414: 21,2723 40000 COM
039372,000415: 21,2724 50065 INDEX ITEMP5
039373,000416: 21,2725 56072 XCH RUPTREG3
039374,000417: 21,2726 44753 CS ONE
039375,000418: 21,2727 13027 TCF ZEROLSTY +3
039376,000419: 21,2730 50065 LVLIMITS INDEX ITEMP5
039377,000420: 21,2731 11702 CCS TRAKLATV
039378,000421: 21,2732 12761 TCF LATVPOS
039379,000422: 21,2733 12735 TCF +2
039380,000423: 21,2734 12766 TCF LATVNEG
039381,000424: 21,2735 50065 INDEX ITEMP5
039382,000425: 21,2736 41676 CS LATVMETR
039383,000426: 21,2737 00006 EXTEND
039384,000427: 21,2740 62742 BZMF +2
039385,000428: 21,2741 12775 TCF NEGLMLV
039386,000429: 21,2742 50065 INDEX ITEMP5
039387,000430:
039388,000431: 21,2743 41700 CS LATVEL
039389,000432: 21,2744 00006 EXTEND
039390,000433: 21,2745 63020 BZMF LVMINLM
039391,000434: 21,2746 60066 AD ITEMP6
039392,000435: 21,2747 50065 INDEX ITEMP5
039393,000436: 21,2750 61676 AD LATVMETR
039394,000437: 21,2751 00006 EXTEND
039395,000438: # Page 906
039396,000439: 21,2752 63020 BZMF LVMINLM
039397,000440: 21,2753 50065 INDEX ITEMP5
039398,000441: 21,2754 61700 AD LATVEL
039399,000442: 21,2755 00006 EXTEND
039400,000443: 21,2756 50065 INDEX ITEMP5
039401,000444: 21,2757 61676 SU LATVMETR
039402,000445: 21,2760 13024 TCF ZEROLSTY
039403,000446: 21,2761 50065 LATVPOS INDEX ITEMP5
039404,000447: 21,2762 41700 CS LATVEL
039405,000448: 21,2763 00006 EXTEND
039406,000449: 21,2764 63020 BZMF LVMINLM
039407,000450: 21,2765 12772 TCF +5
039408,000451: 21,2766 50065 LATVNEG INDEX ITEMP5
039409,000452: 21,2767 31700 CA LATVEL
039410,000453: 21,2770 00006 EXTEND
039411,000454: 21,2771 63020 BZMF LVMINLM
039412,000455: 21,2772 50065 INDEX ITEMP5
039413,000456: 21,2773 41676 CS LATVMETR
039414,000457: 21,2774 13024 TCF ZEROLSTY
039415,000458: 21,2775 50065 NEGLMLV INDEX ITEMP5
039416,000459: 21,2776 31700 CA LATVEL
039417,000460: 21,2777 00006 EXTEND
039418,000461: 21,3000 63020 BZMF LVMINLM
039419,000462: 21,3001 32005 CA MAXVBITS
039420,000463: 21,3002 50065 INDEX ITEMP5
039421,000464: 21,3003 61676 AD LATVMETR
039422,000465: 21,3004 40000 COM
039423,000466: 21,3005 50065 INDEX ITEMP5
039424,000467: 21,3006 61700 AD LATVEL
039425,000468: 21,3007 00006 EXTEND
039426,000469: 21,3010 63020 BZMF LVMINLM
039427,000470: 21,3011 00006 EXTEND
039428,000471: 21,3012 50065 INDEX ITEMP5
039429,000472: 21,3013 61700 SU LATVEL
039430,000473: 21,3014 50065 INDEX ITEMP5
039431,000474: 21,3015 61676 AD LATVMETR
039432,000475: 21,3016 40000 COM
039433,000476: 21,3017 13024 TCF ZEROLSTY
039434,000477: 21,3020 50065 LVMINLM INDEX ITEMP5
039435,000478: 21,3021 41676 CS LATVMETR
039436,000479: 21,3022 50065 INDEX ITEMP5
039437,000480: 21,3023 61700 AD LATVEL
039438,000481: 21,3024 50065 ZEROLSTY INDEX ITEMP5
039439,000482: 21,3025 56072 XCH RUPTREG3
039440,000483: 21,3026 34755 CAF ZERO
039441,000484: 21,3027 50065 INDEX ITEMP5
039442,000485: 21,3030 55702 TS TRAKLATV
039443,000486: 21,3031 50065 INDEX ITEMP5
039444,000487: 21,3032 30072 CA RUPTREG3
039445,000488: 21,3033 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
039446,000489: # Page 907
039447,000490: 21,3034 50065 INDEX ITEMP5
039448,000491: 21,3035 54053 TS CDUTCMD
039449,000492: 21,3036 50065 INDEX ITEMP5
039450,000493: 21,3037 30072 CA RUPTREG3
039451,000494: 21,3040 50065 INDEX ITEMP5
039452,000495: 21,3041 27676 ADS LATVMETR
039453,000496: 21,3042 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
039454,000497: 21,3043 12620 TCF VMONITOR
039455,000498:
039456,000499: 21,3044 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
039457,000500: 21,3045 00006 EXTEND
039458,000501: 21,3046 05014 WOR CHAN14
039459,000502: 21,3047 01714 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
039460,000503: 21,3050 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1
039461,000504: 21,3051 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
039462,000505: 21,3052 12270 TCF ZDATA2
039463,000506:
039464,000507: # ****************************************************************************
039465,000508:
039466,000509: 21,3053 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039467,000510: 21,3054 74752 MASK R10FLBIT
039468,000511: 21,3055 00006 EXTEND
039469,000512: 21,3056 13067 BZF ABORTON # NO.
039470,000513: 21,3057 34744 CAF BIT8 # YES.
039471,000514: 21,3060 71303 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
039472,000515: 21,3061 10000 CCS A
039473,000516: 21,3062 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
039474,000517: 21,3063 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
039475,000518: 21,3064 40000 COM
039476,000519: 21,3065 00006 EXTEND
039477,000520: 21,3066 03012 WAND CHAN12
039478,000521: 21,3067 43076 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
039479,000522: 21,3070 71303 MASK IMODES33
039480,000523: 21,3071 55303 TS IMODES33
039481,000524: 21,3072 44736 CS DIDFLBIT
039482,000525: 21,3073 70075 MASK FLAGWRD1
039483,000526: 21,3074 54075 TS FLAGWRD1 # RESET DIDFLAG.
039484,000527: 21,3075 15261 TCF TASKOVER
039485,000528:
039486,000529: # ******************************************************************************
039487,000530:
039488,000531: 21,3076 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
039489,000532: 21,3077 5020 BITSET = PRIO6
039490,000533:
039491,000534: # ******************************************************************************
039492,000535:
039493,000536:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc