Source Code
037762,000001: # Copyright: Public domain.
037763,000002: # Filename: LANDING_ANALOG_DISPLAYS.agc
037764,000003: # Purpose: A section of Luminary 1C, revision 131.
037765,000004: # It is part of the source code for the Lunar Module's (LM)
037766,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
037767,000006: # This file is intended to be a faithful transcription, except
037768,000007: # that the code format has been changed to conform to the
037769,000008: # requirements of the yaYUL assembler rather than the
037770,000009: # original YUL assembler.
037771,000010: # Reference: pp. 896-906 of 1729.pdf.
037772,000011: # Contact: Ron Burkey <info@sandroid.org>.
037773,000012: # Website: www.ibiblio.org/apollo/index.html
037774,000013: # Mod history: 05/28/03 RSB. Began transcribing.
037775,000014: # 05/14/05 RSB Corrected website reference above.
037776,000015:
037777,000016: # Page 896
037778,000017: 21,2145 BANK 21
037779,000018: 21,2000 SETLOC R10
037780,000019: 21,2000 BANK
037781,000020:
037782,000021: 21,2145 E7,1536 EBANK= UNIT/R/
037783,000022: 21,2145 COUNT* $$/R10
037784,000023:
037785,000024: 21,2145 23714 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
037786,000025: 21,2146 40025 CS TIME1
037787,000026: 21,2147 53055 DXCH TBASE2
037788,000027:
037789,000028: 21,2150 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
037790,000029: 21,2151 74741 MASK SWANDBIT
037791,000030: 21,2152 10000 CCS A
037792,000031: 21,2153 13052 TCF DISPRSET # NO.
037793,000032: 21,2154 31300 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
037794,000033: 21,2155 74745 MASK BIT7
037795,000034: 21,2156 10000 CCS A
037796,000035: 21,2157 12231 TCF ALTOUT
037797,000036: 21,2160 02315 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
037798,000037: 21,2161 41300 CS IMODES33
037799,000038: 21,2162 74745 MASK BIT7
037800,000039: 21,2163 27300 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
037801,000040: 21,2164 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
037802,000041: 21,2165 00006 EXTEND
037803,000042: 21,2166 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
037804,000043: 21,2167 31743 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *(-16).
037805,000044: 21,2170 00006 EXTEND
037806,000045: 21,2171 71706 MP VVECT # MULTIPLY X-COMPONENTS.
037807,000046: 21,2172 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6)
037808,000047: 21,2173 31744 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
037809,000048: 21,2174 00006 EXTEND
037810,000049: 21,2175 71707 MP VVECT +1
037811,000050: 21,2176 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
037812,000051: 21,2177 31745 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
037813,000052: 21,2200 00006 EXTEND
037814,000053: 21,2201 71710 MP VVECT +2
037815,000054: 21,2202 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
037816,000055: 21,2203 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
037817,000056: 21,2204 00006 EXTEND
037818,000057: 21,2205 70070 MP RUPTREG1
037819,000058: 21,2206 20001 DDOUBL
037820,000059: 21,2207 20001 DDOUBL
037821,000060: 21,2210 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
037822,000061: 21,2211 31716 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
037823,000062: 21,2212 00006 EXTEND
037824,000063: 21,2213 71715 MP DT
037825,000064: 21,2214 60070 AD RUPTREG1
037826,000065: 21,2215 55711 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
037827,000066: 21,2216 41711 CS ALTRATE
037828,000067: # Page 897
037829,000068: 21,2217 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
037830,000069: 21,2220 62222 BZMF +2
037831,000070: 21,2221 12224 TCF DATAOUT # NEGATIVE -- SEND POS. PULSES TO ALTM REG.
037832,000071: 21,2222 31711 CA ALTRATE # POSITIVE OR ZERO -- SET SIGN BUT = 1 AND
037833,000072: 21,2223 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
037834,000073: 21,2224 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS
037835,000074: 21,2225 34751 CAF BIT3
037836,000075: 21,2226 00006 EXTEND
037837,000076: 21,2227 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
037838,000077: 21,2230 15261 TCF TASKOVER # EXIT
037839,000078:
037840,000079: 21,2231 02315 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
037841,000080: 21,2232 44745 CS BIT7
037842,000081: 21,2233 71300 MASK IMODES33
037843,000082: 21,2234 55300 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
037844,000083: 21,2235 44752 CS BIT2
037845,000084: 21,2236 00006 EXTEND
037846,000085: 21,2237 03014 WAND CHAN14
037847,000086: 21,2240 11741 CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
037848,000087: 21,2241 12245 TCF +4
037849,000088: 21,2242 12245 TCF +3
037850,000089: 21,2243 12263 TCF OLDDATA
037851,000090: 21,2244 55741 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
037852,000091: 21,2245 44753 CS ONE
037853,000092: 21,2246 53742 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
037854,000093: 21,2247 53713 DXCH ALTSAVE
037855,000094: 21,2250 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
037856,000095: 21,2251 56002 XCH Q
037857,000096: 21,2252 22007 LXCH 7 # ZL
037858,000097: 21,2253 31715 CA DT
037859,000098: 21,2254 00006 EXTEND
037860,000099: 21,2255 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
037861,000100: 21,2256 00006 EXTEND
037862,000101: 21,2257 72002 MP ARTOA2 # .0021322 *2(+8)
037863,000102: 21,2260 12264 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
037864,000103:
037865,000104: 21,2261 53713 ZDATA2 DXCH ALTSAVE
037866,000105: 21,2262 12304 TCF NEWDATA
037867,000106: 21,2263 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
037868,000107: 21,2264 00006 EXTEND
037869,000108: 21,2265 71711 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
037870,000109: 21,2266 20001 DDOUBL
037871,000110: 21,2267 61713 AD ALTSAVE +1
037872,000111: 21,2270 55713 TS ALTSAVE +1
037873,000112: 21,2271 34755 CAF ZERO
037874,000113: 21,2272 27712 ADS ALTSAVE
037875,000114: 21,2273 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
037876,000115: 21,2274 64753 AD ONE # NON-NEGATIVE ALTSAVE.
037877,000116: 21,2275 61713 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
037878,000117: 21,2276 55713 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
037879,000118: # Page 898
037880,000119: 21,2277 34755 CAF ZERO
037881,000120: 21,2300 64733 AD POSMAX
037882,000121: 21,2301 61712 AD ALTSAVE
037883,000122: 21,2302 55712 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
037884,000123: 21,2303 13047 TCF ZERODATA
037885,000124: 21,2304 11713 NEWDATA CCS ALTSAVE +1
037886,000125: 21,2305 12311 TCF +4
037887,000126: 21,2306 12311 TCF +3
037888,000127: 21,2307 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
037889,000128: 21,2310 55713 TS ALTSAVE +1
037890,000129: 21,2311 11712 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
037891,000130: 21,2312 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
037892,000131: 21,2313 61713 AD ALTSAVE +1
037893,000132: 21,2314 12224 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
037894,000133: 21,2315 00006 DISINDAT EXTEND
037895,000134: 21,2316 23714 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
037896,000135: 21,2317 34746 CAF BIT6
037897,000136: 21,2320 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
037898,000137: 21,2321 02030 RAND CHAN30 # DISPLAYS? I.E.,
037899,000138: 21,2322 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
037900,000139: 21,2323 13052 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
037901,000140: 21,2324 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
037902,000141: 21,2325 74736 MASK DIDFLBIT
037903,000142: 21,2326 00006 EXTEND
037904,000143: 21,2327 12365 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
037905,000144: 21,2330 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
037906,000145: 21,2331 74736 MASK DIDFLBIT
037907,000146: 21,2332 26075 ADS FLAGWRD1 # SET DIDFLAG.
037908,000147: 21,2333 44745 CS BIT7
037909,000148: 21,2334 71300 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
037910,000149: 21,2335 55300 TS IMODES33
037911,000150: 21,2336 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
037912,000151: 21,2337 74752 MASK R10FLBIT
037913,000152: 21,2340 00006 EXTEND
037914,000153: 21,2341 15261 BZF TASKOVER # NO
037915,000154: 21,2342 34744 CAF BIT8 # YES.
037916,000155: 21,2343 00006 EXTEND
037917,000156: 21,2344 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
037918,000157: 21,2345 34755 CAF ZERO
037919,000158: 21,2346 55702 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
037920,000159: 21,2347 55703 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
037921,000160: 21,2350 55676 TS LATVMETR # LATVEL MONITOR METER
037922,000161: 21,2351 55677 TS FORVMETR # FORVEL MONITOR METER
037923,000162: 21,2352 34750 CAF BIT4
037924,000163: 21,2353 05173 TC TWIDDLE
037925,000164: 21,2354 02356 ADRES INTLZE
037926,000165: 21,2355 15261 TCF TASKOVER
037927,000166: 21,2356 34752 INTLZE CAF BIT2
037928,000167: 21,2357 00006 EXTEND
037929,000168: 21,2360 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
037930,000169: # Page 899
037931,000170: 21,2361 41300 CS IMODES33
037932,000171: 21,2362 74744 MASK BIT8
037933,000172: 21,2363 27300 ADS IMODES33 # SET INERTIAL DATA FLAG.
037934,000173: 21,2364 15261 TCF TASKOVER
037935,000174:
037936,000175: 21,2365 41234 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
037937,000176: 21,2366 60025 AD TIME1 # COMPUTE T - TN
037938,000177: 21,2367 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
037939,000178: 21,2370 64736 AD HALF
037940,000179: 21,2371 57715 XCH DT # SAVE FOR LATER USE
037941,000180: 21,2372 34777 CA 1SEC
037942,000181: 21,2373 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
037943,000182: 21,2374 00006 EXTEND
037944,000183: 21,2375 31236 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
037945,000184: 21,2376 20001 DDOUBL
037946,000185: 21,2377 20001 DDOUBL
037947,000186: 21,2400 00006 EXTEND
037948,000187: 21,2401 71715 MP DT
037949,000188: 21,2402 00006 EXTEND
037950,000189: 21,2403 10065 DV ITEMP5
037951,000190: 21,2404 57706 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
037952,000191: 21,2405 00006 EXTEND
037953,000192: 21,2406 31527 DCA V # M/CS *2(-7)
037954,000193: 21,2407 20001 DDOUBL # RESCALE TO 2(-5)
037955,000194: 21,2410 20001 DDOUBL
037956,000195: 21,2411 27706 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
037957,000196: 21,2412 30037 CA PIPAX # DELV CM/SEC *2(-14)
037958,000197: 21,2413 61157 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
037959,000198: 21,2414 00006 EXTEND
037960,000199: 21,2415 72004 MP KPIP1(5) # DELV M/CS *2(-5)
037961,000200: 21,2416 27706 ADS VVECT # VVECT = VN + DELV * GN(T-TN) M/CS *2(-5)
037962,000201: 21,2417 00006 EXTEND
037963,000202: 21,2420 31240 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
037964,000203: 21,2421 20001 DDOUBL
037965,000204: 21,2422 20001 DDOUBL
037966,000205: 21,2423 00006 EXTEND
037967,000206: 21,2424 71715 MP DT
037968,000207: 21,2425 00006 EXTEND
037969,000208: 21,2426 10065 DV ITEMP5
037970,000209: 21,2427 57707 XCH VVECT +1
037971,000210: 21,2430 00006 EXTEND
037972,000211: 21,2431 31531 DCA V +2
037973,000212: 21,2432 20001 DDOUBL
037974,000213: 21,2433 20001 DDOUBL
037975,000214: 21,2434 27707 ADS VVECT +1
037976,000215: 21,2435 30040 CA PIPAY
037977,000216: 21,2436 61160 AD PIPATMPY
037978,000217: 21,2437 00006 EXTEND
037979,000218: 21,2440 72004 MP KPIP1(5)
037980,000219: 21,2441 27707 ADS VVECT +1
037981,000220: # Page 900
037982,000221: 21,2442 00006 EXTEND
037983,000222: 21,2443 31242 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
037984,000223: 21,2444 20001 DDOUBL
037985,000224: 21,2445 20001 DDOUBL
037986,000225: 21,2446 00006 EXTEND
037987,000226: 21,2447 71715 MP DT
037988,000227: 21,2450 00006 EXTEND
037989,000228: 21,2451 10065 DV ITEMP5
037990,000229: 21,2452 57710 XCH VVECT +2
037991,000230: 21,2453 00006 EXTEND
037992,000231: 21,2454 31533 DCA V +4
037993,000232: 21,2455 20001 DDOUBL
037994,000233: 21,2456 20001 DDOUBL
037995,000234: 21,2457 27710 ADS VVECT +2
037996,000235: 21,2460 30041 CA PIPAZ
037997,000236: 21,2461 61161 AD PIPATMPZ
037998,000237: 21,2462 00006 EXTEND
037999,000238: 21,2463 72004 MP KPIP1(5)
038000,000239: 21,2464 27710 ADS VVECT +2
038001,000240:
038002,000241: 21,2465 34751 CAF BIT3 # PAUSE 40 MS TO LET OTHER RUPTS IN.
038003,000242: 21,2466 05224 TC VARDELAY
038004,000243:
038005,000244: 21,2467 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038006,000245: 21,2470 74752 MASK R10FLBIT
038007,000246: 21,2471 10000 CCS A
038008,000247: 21,2472 12474 TCF +2 # YES.
038009,000248: 21,2473 01714 TC LADQSAVE # NO.
038010,000249:
038011,000250: 21,2474 34752 CAF BIT2 # CHECK TO SEE IF RR ERROR COUNTERS
038012,000251: 21,2475 00006 EXTEND # ARE ENABLED.
038013,000252: 21,2476 02012 RAND CHAN12
038014,000253: 21,2477 10000 CCS A # IF NOT.
038015,000254: 21,2500 12502 TCF +2
038016,000255: 21,2501 13052 TCF DISPRSET # RE-INITIALIZE LANDING ANALOG DISPLAYS
038017,000256:
038018,000257: 21,2502 31733 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
038019,000258: 21,2503 61706 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
038020,000259: 21,2504 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
038021,000260: 21,2505 31735 CA DELVS +2 # Y
038022,000261: 21,2506 61707 AD VVECT +1 # Y
038023,000262: 21,2507 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5)
038024,000263: 21,2510 31737 CA DELVS +4 # Z
038025,000264: 21,2511 61710 AD VVECT +2 # Z
038026,000265: 21,2512 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5)
038027,000266: 21,2513 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038028,000267: 21,2514 00006 EXTEND # Y-COORDINATE.
038029,000268: 21,2515 71717 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR
038030,000269: 21,2516 56070 XCH RUPTREG1
038031,000270: 21,2517 30062 CA ITEMP2
038032,000271: # Page 901
038033,000272: 21,2520 00006 EXTEND
038034,000273: 21,2521 71721 MP UHYP +2 # Y
038035,000274: 21,2522 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038036,000275: 21,2523 30063 CA ITEMP3
038037,000276: 21,2524 00006 EXTEND
038038,000277: 21,2525 71723 MP UHYP +4 # Z
038039,000278: 21,2526 26070 ADS RUPTREG1
038040,000279: 21,2527 30070 CA RUPTREG1
038041,000280: 21,2530 60000 DOUBLE
038042,000281: 21,2531 57704 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
038043,000282: 21,2532 30061 CA ITEMP1 # NO COMPUTE VHZ, VELOCITY DIRECTED ALONG
038044,000283: 21,2533 00006 EXTEND # THE Z-COORDINATE.
038045,000284: 21,2534 71725 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038046,000285: 21,2535 56070 XCH RUPTREG1
038047,000286: 21,2536 30062 CA ITEMP2
038048,000287: 21,2537 00006 EXTEND
038049,000288: 21,2540 71727 MP UHZP +2 # Y
038050,000289: 21,2541 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038051,000290: 21,2542 30063 CA ITEMP3
038052,000291: 21,2543 00006 EXTEND
038053,000292: 21,2544 71731 MP UHZP +4 # Z
038054,000293: 21,2545 26070 ADS RUPTREG1
038055,000294: 21,2546 30070 CA RUPTREG1
038056,000295: 21,2547 60000 DOUBLE
038057,000296: 21,2550 57705 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
038058,000297: 21,2551 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038059,000298: 21,2552 54003 TS EBANK
038060,000299: 21,2553 E6,1417 EBANK= M22
038061,000300: 21,2553 31417 CA M22
038062,000301: 21,2554 54063 TS ITEMP3
038063,000302: 21,2555 31420 CA M32
038064,000303: 21,2556 54064 TS ITEMP4
038065,000304: 21,2557 35016 CAF EBANK7
038066,000305: 21,2560 54003 TS EBANK
038067,000306: 21,2561 E7,1536 EBANK= UNIT/R/
038068,000307: 21,2561 30064 LADFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
038069,000308: 21,2562 00006 EXTEND
038070,000309: 21,2563 71704 MP VHY
038071,000310: 21,2564 56070 XCH RUPTREG1
038072,000311: 21,2565 30063 CA ITEMP3
038073,000312: 21,2566 00006 EXTEND
038074,000313: 21,2567 71705 MP VHZ
038075,000314: 21,2570 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038076,000315: 21,2571 32003 CA VELCONV
038077,000316: 21,2572 00006 EXTEND
038078,000317: 21,2573 70070 MP RUPTREG1
038079,000318: 21,2574 20001 DDOUBL
038080,000319: 21,2575 57700 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
038081,000320: 21,2576 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
038082,000321: 21,2577 00006 EXTEND
038083,000322: # Page 902
038084,000323: 21,2600 71705 MP VHZ
038085,000324: 21,2601 56070 XCH RUPTREG1
038086,000325: 21,2602 30063 CA ITEMP3
038087,000326: 21,2603 00006 EXTEND
038088,000327: 21,2604 71704 MP VHY
038089,000328: 21,2605 40000 CS A
038090,000329: 21,2606 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
038091,000330: 21,2607 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
038092,000331: 21,2610 00006 EXTEND
038093,000332: 21,2611 70070 MP RUPTREG1
038094,000333: 21,2612 20001 DDOUBL
038095,000334: 21,2613 57701 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
038096,000335:
038097,000336: 21,2614 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
038098,000337: 21,2615 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
038099,000338:
038100,000339: 21,2616 34753 CAF ONE # LOOP TWICE.
038101,000340: 21,2617 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
038102,000341: 21,2620 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
038103,000342: 21,2621 11700 CCS LATVEL
038104,000343: 21,2622 12626 TCF +4
038105,000344: 21,2623 12727 TCF LVLIMITS
038106,000345: 21,2624 12634 TCF +8D
038107,000346: 21,2625 12727 TCF LVLIMITS
038108,000347: 21,2626 50065 INDEX ITEMP5
038109,000348: 21,2627 41700 CS LATVEL
038110,000349: 21,2630 62005 AD MAXVBITS # +199.9989 FT.SEC.
038111,000350: 21,2631 00006 EXTEND
038112,000351: 21,2632 62642 BZMF CHKLASTY
038113,000352: 21,2633 12727 TCF LVLIMITS
038114,000353: 21,2634 50065 INDEX ITEMP5
038115,000354: 21,2635 31700 CA LATVEL
038116,000355: 21,2636 62005 AD MAXVBITS
038117,000356: 21,2637 00006 EXTEND
038118,000357: 21,2640 62642 BZMF +2
038119,000358: 21,2641 12727 TCF LVLIMITS
038120,000359: 21,2642 50065 CHKLASTY INDEX ITEMP5
038121,000360: 21,2643 11676 CCS LATVMETR
038122,000361: 21,2644 12650 TCF +4
038123,000362: 21,2645 12661 TCF LASTOK
038124,000363: 21,2646 12655 TCF +7
038125,000364: 21,2647 12661 TCF LASTOK
038126,000365: 21,2650 50065 INDEX ITEMP5
038127,000366: 21,2651 31700 CA LATVEL
038128,000367: 21,2652 00006 EXTEND
038129,000368: 21,2653 62700 BZMF LASTPOSY +5
038130,000369: 21,2654 12661 TCF +5
038131,000370: 21,2655 50065 INDEX ITEMP5
038132,000371: 21,2656 41700 CS LATVEL
038133,000372: 21,2657 00006 EXTEND
038134,000373: # Page 903
038135,000374: 21,2660 62715 BZMF LASTNEGY +4
038136,000375: 21,2661 50065 LASTOK INDEX ITEMP5
038137,000376: 21,2662 11702 CCS TRAKLATV
038138,000377: 21,2663 12673 TCF LASTPOSY
038139,000378: 21,2664 12666 TCF +2
038140,000379: 21,2665 12711 TCF LASTNEGY
038141,000380: 21,2666 50065 INDEX ITEMP5
038142,000381: 21,2667 31700 CA LATVEL
038143,000382: 21,2670 00006 EXTEND
038144,000383: 21,2671 62717 BZMF NEGVMAXY
038145,000384: 21,2672 12702 TCF POSVMAXY
038146,000385: 21,2673 50065 LASTPOSY INDEX ITEMP5
038147,000386: 21,2674 31700 CA LATVEL
038148,000387: 21,2675 00006 EXTEND
038149,000388: 21,2676 62700 BZMF +2
038150,000389: 21,2677 12702 TCF POSVMAXY
038151,000390: 21,2700 42005 CS MAXVBITS
038152,000391: 21,2701 13023 TCF ZEROLSTY
038153,000392: 21,2702 50065 POSVMAXY INDEX ITEMP5
038154,000393: 21,2703 41676 CS LATVMETR
038155,000394: 21,2704 62005 AD MAXVBITS
038156,000395: 21,2705 50065 INDEX ITEMP5
038157,000396: 21,2706 56072 XCH RUPTREG3
038158,000397: 21,2707 34753 CAF ONE
038159,000398: 21,2710 13026 TCF ZEROLSTY +3
038160,000399: 21,2711 50065 LASTNEGY INDEX ITEMP5
038161,000400: 21,2712 31700 CA LATVEL
038162,000401: 21,2713 00006 EXTEND
038163,000402: 21,2714 62717 BZMF NEGVMAXY
038164,000403: 21,2715 32005 CA MAXVBITS
038165,000404: 21,2716 13023 TCF ZEROLSTY
038166,000405: 21,2717 50065 NEGVMAXY INDEX ITEMP5
038167,000406: 21,2720 31676 CA LATVMETR
038168,000407: 21,2721 62005 AD MAXVBITS
038169,000408: 21,2722 40000 COM
038170,000409: 21,2723 50065 INDEX ITEMP5
038171,000410: 21,2724 56072 XCH RUPTREG3
038172,000411: 21,2725 44753 CS ONE
038173,000412: 21,2726 13026 TCF ZEROLSTY +3
038174,000413: 21,2727 50065 LVLIMITS INDEX ITEMP5
038175,000414: 21,2730 11702 CCS TRAKLATV
038176,000415: 21,2731 12760 TCF LATVPOS
038177,000416: 21,2732 12734 TCF +2
038178,000417: 21,2733 12765 TCF LATVNEG
038179,000418: 21,2734 50065 INDEX ITEMP5
038180,000419: 21,2735 41676 CS LATVMETR
038181,000420: 21,2736 00006 EXTEND
038182,000421: 21,2737 62741 BZMF +2
038183,000422: 21,2740 12774 TCF NEGLMLV
038184,000423: 21,2741 50065 INDEX ITEMP5
038185,000424: # Page 904
038186,000425: 21,2742 41700 CS LATVEL
038187,000426: 21,2743 00006 EXTEND
038188,000427: 21,2744 63017 BZMF LVMINLM
038189,000428: 21,2745 60066 AD ITEMP6
038190,000429: 21,2746 50065 INDEX ITEMP5
038191,000430: 21,2747 61676 AD LATVMETR
038192,000431: 21,2750 00006 EXTEND
038193,000432: 21,2751 63017 BZMF LVMINLM
038194,000433: 21,2752 50065 INDEX ITEMP5
038195,000434: 21,2753 61700 AD LATVEL
038196,000435: 21,2754 00006 EXTEND
038197,000436: 21,2755 50065 INDEX ITEMP5
038198,000437: 21,2756 61676 SU LATVMETR
038199,000438: 21,2757 13023 TCF ZEROLSTY
038200,000439: 21,2760 50065 LATVPOS INDEX ITEMP5
038201,000440: 21,2761 41700 CS LATVEL
038202,000441: 21,2762 00006 EXTEND
038203,000442: 21,2763 63017 BZMF LVMINLM
038204,000443: 21,2764 12771 TCF +5
038205,000444: 21,2765 50065 LATVNEG INDEX ITEMP5
038206,000445: 21,2766 31700 CA LATVEL
038207,000446: 21,2767 00006 EXTEND
038208,000447: 21,2770 63017 BZMF LVMINLM
038209,000448: 21,2771 50065 INDEX ITEMP5
038210,000449: 21,2772 41676 CS LATVMETR
038211,000450: 21,2773 13023 TCF ZEROLSTY
038212,000451: 21,2774 50065 NEGLMLV INDEX ITEMP5
038213,000452: 21,2775 31700 CA LATVEL
038214,000453: 21,2776 00006 EXTEND
038215,000454: 21,2777 63017 BZMF LVMINLM
038216,000455: 21,3000 32005 CA MAXVBITS
038217,000456: 21,3001 50065 INDEX ITEMP5
038218,000457: 21,3002 61676 AD LATVMETR
038219,000458: 21,3003 40000 COM
038220,000459: 21,3004 50065 INDEX ITEMP5
038221,000460: 21,3005 61700 AD LATVEL
038222,000461: 21,3006 00006 EXTEND
038223,000462: 21,3007 63017 BZMF LVMINLM
038224,000463: 21,3010 00006 EXTEND
038225,000464: 21,3011 50065 INDEX ITEMP5
038226,000465: 21,3012 61700 SU LATVEL
038227,000466: 21,3013 50065 INDEX ITEMP5
038228,000467: 21,3014 61676 AD LATVMETR
038229,000468: 21,3015 40000 COM
038230,000469: 21,3016 13023 TCF ZEROLSTY
038231,000470: 21,3017 50065 LVMINLM INDEX ITEMP5
038232,000471: 21,3020 41676 CS LATVMETR
038233,000472: 21,3021 50065 INDEX ITEMP5
038234,000473: 21,3022 61700 AD LATVEL
038235,000474: 21,3023 50065 ZEROLSTY INDEX ITEMP5
038236,000475: # Page 905
038237,000476: 21,3024 56072 XCH RUPTREG3
038238,000477: 21,3025 34755 CAF ZERO
038239,000478: 21,3026 50065 INDEX ITEMP5
038240,000479: 21,3027 55702 TS TRAKLATV
038241,000480: 21,3030 50065 INDEX ITEMP5
038242,000481: 21,3031 30072 CA RUPTREG3
038243,000482: 21,3032 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
038244,000483: 21,3033 50065 INDEX ITEMP5
038245,000484: 21,3034 54053 TS CDUTCMD
038246,000485: 21,3035 50065 INDEX ITEMP5
038247,000486: 21,3036 30072 CA RUPTREG3
038248,000487: 21,3037 50065 INDEX ITEMP5
038249,000488: 21,3040 27676 ADS LATVMETR
038250,000489: 21,3041 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
038251,000490: 21,3042 12617 TCF VMONITOR
038252,000491:
038253,000492: 21,3043 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
038254,000493: 21,3044 00006 EXTEND
038255,000494: 21,3045 05014 WOR CHAN14
038256,000495: 21,3046 01714 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
038257,000496: 21,3047 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1
038258,000497: 21,3050 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
038259,000498: 21,3051 12261 TCF ZDATA2
038260,000499:
038261,000500: # ****************************************************************************
038262,000501:
038263,000502: 21,3052 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038264,000503: 21,3053 74752 MASK R10FLBIT
038265,000504: 21,3054 00006 EXTEND
038266,000505: 21,3055 13066 BZF ABORTON # NO.
038267,000506: 21,3056 34744 CAF BIT8 # YES.
038268,000507: 21,3057 71300 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
038269,000508: 21,3060 10000 CCS A
038270,000509: 21,3061 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
038271,000510: 21,3062 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
038272,000511: 21,3063 40000 COM
038273,000512: 21,3064 00006 EXTEND
038274,000513: 21,3065 03012 WAND CHAN12
038275,000514: 21,3066 43075 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
038276,000515: 21,3067 71300 MASK IMODES33
038277,000516: 21,3070 55300 TS IMODES33
038278,000517: 21,3071 44736 CS DIDFLBIT
038279,000518: 21,3072 70075 MASK FLAGWRD1
038280,000519: 21,3073 54075 TS FLAGWRD1 # RESET DIDFLAG.
038281,000520: 21,3074 15261 TCF TASKOVER
038282,000521:
038283,000522: # ******************************************************************************
038284,000523:
038285,000524: 21,3075 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
038286,000525: 21,3076 5020 BITSET = PRIO6
038287,000526:
038288,000527: # ******************************************************************************
038289,000528:
038290,000529: # Page 906
038291,000530: # (There is no source code on the original program listing.)
038292,000531:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc