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