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