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