Source Code
|
These source-code files are part of a reconstructed copy of LM131 revision 1,
the final release of the Apollo 13 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The source reconstruction began with source code of Luminary 131 previously
transcribed from a digitized copy of that program. A dump of the flight spare
core rope memory module B5, part number 2010802-171, serial number RAY 411,
was obtained. This module is the only module different between Luminary 131
and LM131 revision 1. The dump was disassembled and all changes were incorporated
into these source files. Note that page numbers in the reconstructed code match
those on the Luminary 131 printout, although the changed code would likely have
changed page numbers for a real LM131 revision 1 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
038219,000002: ## Copyright: Public domain.
038220,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
038221,000004: ## Purpose: A section of LM131 revision 1.
038222,000005: ## It is part of the reconstructed source code for the final
038223,000006: ## release of the flight software for the Lunar Module's (LM)
038224,000007: ## Apollo Guidance Computer (AGC) for Apollo 13. The code has
038225,000008: ## been reconstructed from a listing of Luminary 131 and a dump
038226,000009: ## of a core rope memory module B5, part number 2010802-171,
038227,000010: ## which is the only module different between LM131 revision 1
038228,000011: ## and Luminary 131. The executable generated from this source
038229,000012: ## has been verified against the module dump, so while the names,
038230,000013: ## comments, and ordering may not be exactly correct, the
038231,000014: ## resulting binary is.
038232,000015: ## Reference: pp. 891-901
038233,000016: ## Assembler: yaYUL
038234,000017: ## Contact: Ron Burkey <info@sandroid.org>.
038235,000018: ## Website: www.ibiblio.org/apollo/index.html
038236,000019: ## Mod history: 2022-10-28 MAS Created from Luminary 131.
038237,000020:
|
|
Page 891
|
038239,000022: 21,2145 BANK 21
038240,000023: 21,2000 SETLOC R10
038241,000024: 21,2000 BANK
038242,000025:
038243,000026: 21,2145 E7,1536 EBANK= UNIT/R/
038244,000027: 21,2145 COUNT* $$/R10
038245,000028:
038246,000029: 21,2145 23714 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038247,000030: 21,2146 40025 CS TIME1
038248,000031: 21,2147 53055 DXCH TBASE2
038249,000032:
038250,000033: 21,2150 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
038251,000034: 21,2151 74741 MASK SWANDBIT
038252,000035: 21,2152 10000 CCS A
038253,000036: 21,2153 13052 TCF DISPRSET # NO.
038254,000037: 21,2154 31300 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
038255,000038: 21,2155 74745 MASK BIT7
038256,000039: 21,2156 10000 CCS A
038257,000040: 21,2157 12231 TCF ALTOUT
038258,000041: 21,2160 02315 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
038259,000042: 21,2161 41300 CS IMODES33
038260,000043: 21,2162 74745 MASK BIT7
038261,000044: 21,2163 27300 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038262,000045: 21,2164 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
038263,000046: 21,2165 00006 EXTEND
038264,000047: 21,2166 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
038265,000048: 21,2167 31743 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
038266,000049: 21,2170 00006 EXTEND
038267,000050: 21,2171 71706 MP VVECT # MULTIPLY X-COMPONENTS.
038268,000051: 21,2172 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
038269,000052: 21,2173 31744 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
038270,000053: 21,2174 00006 EXTEND
038271,000054: 21,2175 71707 MP VVECT +1
038272,000055: 21,2176 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038273,000056: 21,2177 31745 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
038274,000057: 21,2200 00006 EXTEND
038275,000058: 21,2201 71710 MP VVECT +2
038276,000059: 21,2202 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
038277,000060: 21,2203 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
038278,000061: 21,2204 00006 EXTEND
038279,000062: 21,2205 70070 MP RUPTREG1
038280,000063: 21,2206 20001 DDOUBL
038281,000064: 21,2207 20001 DDOUBL
038282,000065: 21,2210 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
038283,000066: 21,2211 31716 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
038284,000067: 21,2212 00006 EXTEND
038285,000068: 21,2213 71715 MP DT
038286,000069: 21,2214 60070 AD RUPTREG1
038287,000070: 21,2215 55711 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
038288,000071: 21,2216 41711 CS ALTRATE
|
|
Page 892
|
038290,000073: 21,2217 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
038291,000074: 21,2220 62222 BZMF +2
038292,000075: 21,2221 12224 TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
038293,000076: 21,2222 31711 CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
038294,000077: 21,2223 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
038295,000078: 21,2224 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
038296,000079: 21,2225 34751 CAF BIT3
038297,000080: 21,2226 00006 EXTEND
038298,000081: 21,2227 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
038299,000082: 21,2230 15261 TCF TASKOVER # EXIT
038300,000083:
038301,000084: 21,2231 02315 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
038302,000085: 21,2232 44745 CS BIT7
038303,000086: 21,2233 71300 MASK IMODES33
038304,000087: 21,2234 55300 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038305,000088: 21,2235 44752 CS BIT2
038306,000089: 21,2236 00006 EXTEND
038307,000090: 21,2237 03014 WAND CHAN14
038308,000091: 21,2240 11741 CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
038309,000092: 21,2241 12245 TCF +4
038310,000093: 21,2242 12245 TCF +3
038311,000094: 21,2243 12263 TCF OLDDATA
038312,000095: 21,2244 55741 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
038313,000096: 21,2245 44753 CS ONE
038314,000097: 21,2246 53742 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
038315,000098: 21,2247 53713 DXCH ALTSAVE
038316,000099: 21,2250 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
038317,000100: 21,2251 56002 XCH Q
038318,000101: 21,2252 22007 LXCH 7 # ZL
038319,000102: 21,2253 31715 CA DT
038320,000103: 21,2254 00006 EXTEND
038321,000104: 21,2255 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
038322,000105: 21,2256 00006 EXTEND
038323,000106: 21,2257 72002 MP ARTOA2 # .0021322 *2(+8)
038324,000107: 21,2260 12264 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
038325,000108:
038326,000109: 21,2261 53713 ZDATA2 DXCH ALTSAVE
038327,000110: 21,2262 12304 TCF NEWDATA
038328,000111: 21,2263 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
038329,000112: 21,2264 00006 EXTEND
038330,000113: 21,2265 71711 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
038331,000114: 21,2266 20001 DDOUBL
038332,000115: 21,2267 61713 AD ALTSAVE +1
038333,000116: 21,2270 55713 TS ALTSAVE +1
038334,000117: 21,2271 34755 CAF ZERO
038335,000118: 21,2272 27712 ADS ALTSAVE
038336,000119: 21,2273 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
038337,000120: 21,2274 64753 AD ONE # NON-NEGATIVE ALTSAVE.
038338,000121: 21,2275 61713 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
038339,000122: 21,2276 55713 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
|
|
Page 893
|
038341,000124: 21,2277 34755 CAF ZERO
038342,000125: 21,2300 64733 AD POSMAX
038343,000126: 21,2301 61712 AD ALTSAVE
038344,000127: 21,2302 55712 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
038345,000128: 21,2303 13047 TCF ZERODATA
038346,000129: 21,2304 11713 NEWDATA CCS ALTSAVE +1
038347,000130: 21,2305 12311 TCF +4
038348,000131: 21,2306 12311 TCF +3
038349,000132: 21,2307 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
038350,000133: 21,2310 55713 TS ALTSAVE +1
038351,000134: 21,2311 11712 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
038352,000135: 21,2312 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
038353,000136: 21,2313 61713 AD ALTSAVE +1
038354,000137: 21,2314 12224 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
038355,000138: 21,2315 00006 DISINDAT EXTEND
038356,000139: 21,2316 23714 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
038357,000140: 21,2317 34746 CAF BIT6
038358,000141: 21,2320 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
038359,000142: 21,2321 02030 RAND CHAN30 # DISPLAYS? I.E.,
038360,000143: 21,2322 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
038361,000144: 21,2323 13052 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
038362,000145: 21,2324 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
038363,000146: 21,2325 74736 MASK DIDFLBIT
038364,000147: 21,2326 00006 EXTEND
038365,000148: 21,2327 12365 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
038366,000149: 21,2330 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
038367,000150: 21,2331 74736 MASK DIDFLBIT
038368,000151: 21,2332 26075 ADS FLAGWRD1 # SET DIDFLAG.
038369,000152: 21,2333 44745 CS BIT7
038370,000153: 21,2334 71300 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
038371,000154: 21,2335 55300 TS IMODES33
038372,000155: 21,2336 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038373,000156: 21,2337 74752 MASK R10FLBIT
038374,000157: 21,2340 00006 EXTEND
038375,000158: 21,2341 15261 BZF TASKOVER # NO
038376,000159: 21,2342 34744 CAF BIT8 # YES.
038377,000160: 21,2343 00006 EXTEND
038378,000161: 21,2344 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
038379,000162: 21,2345 34755 CAF ZERO
038380,000163: 21,2346 55702 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
038381,000164: 21,2347 55703 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
038382,000165: 21,2350 55676 TS LATVMETR # LATVEL MONITOR METER
038383,000166: 21,2351 55677 TS FORVMETR # FORVEL MONITOR METER
038384,000167: 21,2352 34750 CAF BIT4
038385,000168: 21,2353 05173 TC TWIDDLE
038386,000169: 21,2354 02356 ADRES INTLZE
038387,000170: 21,2355 15261 TCF TASKOVER
038388,000171: 21,2356 34752 INTLZE CAF BIT2
038389,000172: 21,2357 00006 EXTEND
038390,000173: 21,2360 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
|
|
Page 894
|
038392,000175: 21,2361 41300 CS IMODES33
038393,000176: 21,2362 74744 MASK BIT8
038394,000177: 21,2363 27300 ADS IMODES33 # SET INERTIAL DATA FLAG.
038395,000178: 21,2364 15261 TCF TASKOVER
038396,000179:
038397,000180: 21,2365 41234 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
038398,000181: 21,2366 60025 AD TIME1 # COMPUTE T - TN
038399,000182: 21,2367 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
038400,000183: 21,2370 64736 AD HALF
038401,000184: 21,2371 57715 XCH DT # SAVE FOR LATER USE
038402,000185: 21,2372 34777 CA 1SEC
038403,000186: 21,2373 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
038404,000187: 21,2374 00006 EXTEND
038405,000188: 21,2375 31236 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
038406,000189: 21,2376 20001 DDOUBL
038407,000190: 21,2377 20001 DDOUBL
038408,000191: 21,2400 00006 EXTEND
038409,000192: 21,2401 71715 MP DT
038410,000193: 21,2402 00006 EXTEND
038411,000194: 21,2403 10065 DV ITEMP5
038412,000195: 21,2404 57706 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
038413,000196: 21,2405 00006 EXTEND
038414,000197: 21,2406 31527 DCA V # M/CS *2(-7)
038415,000198: 21,2407 20001 DDOUBL # RESCALE TO 2(-5)
038416,000199: 21,2410 20001 DDOUBL
038417,000200: 21,2411 27706 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
038418,000201: 21,2412 30037 CA PIPAX # DELV CM/SEC *2(-14)
038419,000202: 21,2413 61157 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
038420,000203: 21,2414 00006 EXTEND
038421,000204: 21,2415 72004 MP KPIP1(5) # DELV M/CS *2(-5)
038422,000205: 21,2416 27706 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
038423,000206: 21,2417 00006 EXTEND
038424,000207: 21,2420 31240 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
038425,000208: 21,2421 20001 DDOUBL
038426,000209: 21,2422 20001 DDOUBL
038427,000210: 21,2423 00006 EXTEND
038428,000211: 21,2424 71715 MP DT
038429,000212: 21,2425 00006 EXTEND
038430,000213: 21,2426 10065 DV ITEMP5
038431,000214: 21,2427 57707 XCH VVECT +1
038432,000215: 21,2430 00006 EXTEND
038433,000216: 21,2431 31531 DCA V +2
038434,000217: 21,2432 20001 DDOUBL
038435,000218: 21,2433 20001 DDOUBL
038436,000219: 21,2434 27707 ADS VVECT +1
038437,000220: 21,2435 30040 CA PIPAY
038438,000221: 21,2436 61160 AD PIPATMPY
038439,000222: 21,2437 00006 EXTEND
038440,000223: 21,2440 72004 MP KPIP1(5)
038441,000224: 21,2441 27707 ADS VVECT +1
|
|
Page 895
|
038443,000226: 21,2442 00006 EXTEND
038444,000227: 21,2443 31242 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
038445,000228: 21,2444 20001 DDOUBL
038446,000229: 21,2445 20001 DDOUBL
038447,000230: 21,2446 00006 EXTEND
038448,000231: 21,2447 71715 MP DT
038449,000232: 21,2450 00006 EXTEND
038450,000233: 21,2451 10065 DV ITEMP5
038451,000234: 21,2452 57710 XCH VVECT +2
038452,000235: 21,2453 00006 EXTEND
038453,000236: 21,2454 31533 DCA V +4
038454,000237: 21,2455 20001 DDOUBL
038455,000238: 21,2456 20001 DDOUBL
038456,000239: 21,2457 27710 ADS VVECT +2
038457,000240: 21,2460 30041 CA PIPAZ
038458,000241: 21,2461 61161 AD PIPATMPZ
038459,000242: 21,2462 00006 EXTEND
038460,000243: 21,2463 72004 MP KPIP1(5)
038461,000244: 21,2464 27710 ADS VVECT +2
038462,000245:
038463,000246: 21,2465 34751 CAF BIT3 # PAUSE 40 MS TO LET OTHER RUPTS IN.
038464,000247: 21,2466 05224 TC VARDELAY
038465,000248:
038466,000249: 21,2467 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038467,000250: 21,2470 74752 MASK R10FLBIT
038468,000251: 21,2471 10000 CCS A
038469,000252: 21,2472 12474 TCF +2 # YES.
038470,000253: 21,2473 01714 TC LADQSAVE # NO.
038471,000254:
038472,000255: 21,2474 34752 CAF BIT2 # CHECK TO SEE IF RR ERROR COUNTERS
038473,000256: 21,2475 00006 EXTEND # ARE ENABLED.
038474,000257: 21,2476 02012 RAND CHAN12
038475,000258: 21,2477 10000 CCS A # IF NOT.
038476,000259: 21,2500 12502 TCF +2
038477,000260: 21,2501 13052 TCF DISPRSET # RE-INITIALIZE LANDING ANALOG DISPLAYS
038478,000261:
038479,000262: 21,2502 31733 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
038480,000263: 21,2503 61706 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
038481,000264: 21,2504 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
038482,000265: 21,2505 31735 CA DELVS +2 # Y
038483,000266: 21,2506 61707 AD VVECT +1 # Y
038484,000267: 21,2507 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5).
038485,000268: 21,2510 31737 CA DELVS +4 # Z
038486,000269: 21,2511 61710 AD VVECT +2 # Z
038487,000270: 21,2512 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5).
038488,000271: 21,2513 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038489,000272: 21,2514 00006 EXTEND # Y-COORDINATE.
038490,000273: 21,2515 71717 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
038491,000274: 21,2516 56070 XCH RUPTREG1
038492,000275: 21,2517 30062 CA ITEMP2
|
|
Page 896
|
038494,000277: 21,2520 00006 EXTEND
038495,000278: 21,2521 71721 MP UHYP +2 # Y
038496,000279: 21,2522 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038497,000280: 21,2523 30063 CA ITEMP3
038498,000281: 21,2524 00006 EXTEND
038499,000282: 21,2525 71723 MP UHYP +4 # Z
038500,000283: 21,2526 26070 ADS RUPTREG1
038501,000284: 21,2527 30070 CA RUPTREG1
038502,000285: 21,2530 60000 DOUBLE
038503,000286: 21,2531 57704 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
038504,000287: 21,2532 30061 CA ITEMP1 # NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
038505,000288: 21,2533 00006 EXTEND # THE Z-COORDINATE.
038506,000289: 21,2534 71725 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038507,000290: 21,2535 56070 XCH RUPTREG1
038508,000291: 21,2536 30062 CA ITEMP2
038509,000292: 21,2537 00006 EXTEND
038510,000293: 21,2540 71727 MP UHZP +2 # Y
038511,000294: 21,2541 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038512,000295: 21,2542 30063 CA ITEMP3
038513,000296: 21,2543 00006 EXTEND
038514,000297: 21,2544 71731 MP UHZP +4 # Z
038515,000298: 21,2545 26070 ADS RUPTREG1
038516,000299: 21,2546 30070 CA RUPTREG1
038517,000300: 21,2547 60000 DOUBLE
038518,000301: 21,2550 57705 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
038519,000302: 21,2551 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038520,000303: 21,2552 54003 TS EBANK
038521,000304: 21,2553 E6,1417 EBANK= M22
038522,000305: 21,2553 31417 CA M22
038523,000306: 21,2554 54063 TS ITEMP3
038524,000307: 21,2555 31420 CA M32
038525,000308: 21,2556 54064 TS ITEMP4
038526,000309: 21,2557 35016 CAF EBANK7
038527,000310: 21,2560 54003 TS EBANK
038528,000311: 21,2561 E7,1536 EBANK= UNIT/R/
038529,000312: 21,2561 30064 LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
038530,000313: 21,2562 00006 EXTEND
038531,000314: 21,2563 71704 MP VHY
038532,000315: 21,2564 56070 XCH RUPTREG1
038533,000316: 21,2565 30063 CA ITEMP3
038534,000317: 21,2566 00006 EXTEND
038535,000318: 21,2567 71705 MP VHZ
038536,000319: 21,2570 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038537,000320: 21,2571 32003 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
038538,000321: 21,2572 00006 EXTEND
038539,000322: 21,2573 70070 MP RUPTREG1
038540,000323: 21,2574 20001 DDOUBL
038541,000324: 21,2575 57700 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
038542,000325: 21,2576 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
038543,000326: 21,2577 00006 EXTEND
|
|
Page 897
|
038545,000328: 21,2600 71705 MP VHZ
038546,000329: 21,2601 56070 XCH RUPTREG1
038547,000330: 21,2602 30063 CA ITEMP3
038548,000331: 21,2603 00006 EXTEND
038549,000332: 21,2604 71704 MP VHY
038550,000333: 21,2605 40000 CS A
038551,000334: 21,2606 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
038552,000335: 21,2607 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
038553,000336: 21,2610 00006 EXTEND
038554,000337: 21,2611 70070 MP RUPTREG1
038555,000338: 21,2612 20001 DDOUBL
038556,000339: 21,2613 57701 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
038557,000340:
038558,000341: 21,2614 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
038559,000342: 21,2615 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
038560,000343:
038561,000344: 21,2616 34753 CAF ONE # LOOP TWICE.
038562,000345: 21,2617 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
038563,000346: 21,2620 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
038564,000347: 21,2621 11700 CCS LATVEL
038565,000348: 21,2622 12626 TCF +4
038566,000349: 21,2623 12727 TCF LVLIMITS
038567,000350: 21,2624 12634 TCF +8D
038568,000351: 21,2625 12727 TCF LVLIMITS
038569,000352: 21,2626 50065 INDEX ITEMP5
038570,000353: 21,2627 41700 CS LATVEL
038571,000354: 21,2630 62005 AD MAXVBITS # +199.9989 FT./SEC.
038572,000355: 21,2631 00006 EXTEND
038573,000356: 21,2632 62642 BZMF CHKLASTY
038574,000357: 21,2633 12727 TCF LVLIMITS
038575,000358: 21,2634 50065 INDEX ITEMP5
038576,000359: 21,2635 31700 CA LATVEL
038577,000360: 21,2636 62005 AD MAXVBITS
038578,000361: 21,2637 00006 EXTEND
038579,000362: 21,2640 62642 BZMF +2
038580,000363: 21,2641 12727 TCF LVLIMITS
038581,000364: 21,2642 50065 CHKLASTY INDEX ITEMP5
038582,000365: 21,2643 11676 CCS LATVMETR
038583,000366: 21,2644 12650 TCF +4
038584,000367: 21,2645 12661 TCF LASTOK
038585,000368: 21,2646 12655 TCF +7
038586,000369: 21,2647 12661 TCF LASTOK
038587,000370: 21,2650 50065 INDEX ITEMP5
038588,000371: 21,2651 31700 CA LATVEL
038589,000372: 21,2652 00006 EXTEND
038590,000373: 21,2653 62700 BZMF LASTPOSY +5
038591,000374: 21,2654 12661 TCF +5
038592,000375: 21,2655 50065 INDEX ITEMP5
038593,000376: 21,2656 41700 CS LATVEL
038594,000377: 21,2657 00006 EXTEND
|
|
Page 898
|
038596,000379: 21,2660 62715 BZMF LASTNEGY +4
038597,000380: 21,2661 50065 LASTOK INDEX ITEMP5
038598,000381: 21,2662 11702 CCS TRAKLATV
038599,000382: 21,2663 12673 TCF LASTPOSY
038600,000383: 21,2664 12666 TCF +2
038601,000384: 21,2665 12711 TCF LASTNEGY
038602,000385: 21,2666 50065 INDEX ITEMP5
038603,000386: 21,2667 31700 CA LATVEL
038604,000387: 21,2670 00006 EXTEND
038605,000388: 21,2671 62717 BZMF NEGVMAXY
038606,000389: 21,2672 12702 TCF POSVMAXY
038607,000390: 21,2673 50065 LASTPOSY INDEX ITEMP5
038608,000391: 21,2674 31700 CA LATVEL
038609,000392: 21,2675 00006 EXTEND
038610,000393: 21,2676 62700 BZMF +2
038611,000394: 21,2677 12702 TCF POSVMAXY
038612,000395: 21,2700 42005 CS MAXVBITS
038613,000396: 21,2701 13023 TCF ZEROLSTY
038614,000397: 21,2702 50065 POSVMAXY INDEX ITEMP5
038615,000398: 21,2703 41676 CS LATVMETR
038616,000399: 21,2704 62005 AD MAXVBITS
038617,000400: 21,2705 50065 INDEX ITEMP5
038618,000401: 21,2706 56072 XCH RUPTREG3
038619,000402: 21,2707 34753 CAF ONE
038620,000403: 21,2710 13026 TCF ZEROLSTY +3
038621,000404: 21,2711 50065 LASTNEGY INDEX ITEMP5
038622,000405: 21,2712 31700 CA LATVEL
038623,000406: 21,2713 00006 EXTEND
038624,000407: 21,2714 62717 BZMF NEGVMAXY
038625,000408: 21,2715 32005 CA MAXVBITS
038626,000409: 21,2716 13023 TCF ZEROLSTY
038627,000410: 21,2717 50065 NEGVMAXY INDEX ITEMP5
038628,000411: 21,2720 31676 CA LATVMETR
038629,000412: 21,2721 62005 AD MAXVBITS
038630,000413: 21,2722 40000 COM
038631,000414: 21,2723 50065 INDEX ITEMP5
038632,000415: 21,2724 56072 XCH RUPTREG3
038633,000416: 21,2725 44753 CS ONE
038634,000417: 21,2726 13026 TCF ZEROLSTY +3
038635,000418: 21,2727 50065 LVLIMITS INDEX ITEMP5
038636,000419: 21,2730 11702 CCS TRAKLATV
038637,000420: 21,2731 12760 TCF LATVPOS
038638,000421: 21,2732 12734 TCF +2
038639,000422: 21,2733 12765 TCF LATVNEG
038640,000423: 21,2734 50065 INDEX ITEMP5
038641,000424: 21,2735 41676 CS LATVMETR
038642,000425: 21,2736 00006 EXTEND
038643,000426: 21,2737 62741 BZMF +2
038644,000427: 21,2740 12774 TCF NEGLMLV
038645,000428: 21,2741 50065 INDEX ITEMP5
|
|
Page 899
|
038647,000430: 21,2742 41700 CS LATVEL
038648,000431: 21,2743 00006 EXTEND
038649,000432: 21,2744 63017 BZMF LVMINLM
038650,000433: 21,2745 60066 AD ITEMP6
038651,000434: 21,2746 50065 INDEX ITEMP5
038652,000435: 21,2747 61676 AD LATVMETR
038653,000436: 21,2750 00006 EXTEND
038654,000437: 21,2751 63017 BZMF LVMINLM
038655,000438: 21,2752 50065 INDEX ITEMP5
038656,000439: 21,2753 61700 AD LATVEL
038657,000440: 21,2754 00006 EXTEND
038658,000441: 21,2755 50065 INDEX ITEMP5
038659,000442: 21,2756 61676 SU LATVMETR
038660,000443: 21,2757 13023 TCF ZEROLSTY
038661,000444: 21,2760 50065 LATVPOS INDEX ITEMP5
038662,000445: 21,2761 41700 CS LATVEL
038663,000446: 21,2762 00006 EXTEND
038664,000447: 21,2763 63017 BZMF LVMINLM
038665,000448: 21,2764 12771 TCF +5
038666,000449: 21,2765 50065 LATVNEG INDEX ITEMP5
038667,000450: 21,2766 31700 CA LATVEL
038668,000451: 21,2767 00006 EXTEND
038669,000452: 21,2770 63017 BZMF LVMINLM
038670,000453: 21,2771 50065 INDEX ITEMP5
038671,000454: 21,2772 41676 CS LATVMETR
038672,000455: 21,2773 13023 TCF ZEROLSTY
038673,000456: 21,2774 50065 NEGLMLV INDEX ITEMP5
038674,000457: 21,2775 31700 CA LATVEL
038675,000458: 21,2776 00006 EXTEND
038676,000459: 21,2777 63017 BZMF LVMINLM
038677,000460: 21,3000 32005 CA MAXVBITS
038678,000461: 21,3001 50065 INDEX ITEMP5
038679,000462: 21,3002 61676 AD LATVMETR
038680,000463: 21,3003 40000 COM
038681,000464: 21,3004 50065 INDEX ITEMP5
038682,000465: 21,3005 61700 AD LATVEL
038683,000466: 21,3006 00006 EXTEND
038684,000467: 21,3007 63017 BZMF LVMINLM
038685,000468: 21,3010 00006 EXTEND
038686,000469: 21,3011 50065 INDEX ITEMP5
038687,000470: 21,3012 61700 SU LATVEL
038688,000471: 21,3013 50065 INDEX ITEMP5
038689,000472: 21,3014 61676 AD LATVMETR
038690,000473: 21,3015 40000 COM
038691,000474: 21,3016 13023 TCF ZEROLSTY
038692,000475: 21,3017 50065 LVMINLM INDEX ITEMP5
038693,000476: 21,3020 41676 CS LATVMETR
038694,000477: 21,3021 50065 INDEX ITEMP5
038695,000478: 21,3022 61700 AD LATVEL
038696,000479: 21,3023 50065 ZEROLSTY INDEX ITEMP5
|
|
Page 900
|
038698,000481: 21,3024 56072 XCH RUPTREG3
038699,000482: 21,3025 34755 CAF ZERO
038700,000483: 21,3026 50065 INDEX ITEMP5
038701,000484: 21,3027 55702 TS TRAKLATV
038702,000485: 21,3030 50065 INDEX ITEMP5
038703,000486: 21,3031 30072 CA RUPTREG3
038704,000487: 21,3032 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
038705,000488: 21,3033 50065 INDEX ITEMP5
038706,000489: 21,3034 54053 TS CDUTCMD
038707,000490: 21,3035 50065 INDEX ITEMP5
038708,000491: 21,3036 30072 CA RUPTREG3
038709,000492: 21,3037 50065 INDEX ITEMP5
038710,000493: 21,3040 27676 ADS LATVMETR
038711,000494: 21,3041 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
038712,000495: 21,3042 12617 TCF VMONITOR
038713,000496:
038714,000497: 21,3043 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
038715,000498: 21,3044 00006 EXTEND
038716,000499: 21,3045 05014 WOR CHAN14
038717,000500: 21,3046 01714 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
038718,000501: 21,3047 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
038719,000502: 21,3050 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
038720,000503: 21,3051 12261 TCF ZDATA2
038721,000504:
038722,000505: # ************************************************************************
038723,000506:
038724,000507: 21,3052 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038725,000508: 21,3053 74752 MASK R10FLBIT
038726,000509: 21,3054 00006 EXTEND
038727,000510: 21,3055 13066 BZF ABORTON # NO.
038728,000511: 21,3056 34744 CAF BIT8 # YES.
038729,000512: 21,3057 71300 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
038730,000513: 21,3060 10000 CCS A
038731,000514: 21,3061 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
038732,000515: 21,3062 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
038733,000516: 21,3063 40000 COM
038734,000517: 21,3064 00006 EXTEND
038735,000518: 21,3065 03012 WAND CHAN12
038736,000519: 21,3066 43075 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
038737,000520: 21,3067 71300 MASK IMODES33
038738,000521: 21,3070 55300 TS IMODES33
038739,000522: 21,3071 44736 CS DIDFLBIT
038740,000523: 21,3072 70075 MASK FLAGWRD1
038741,000524: 21,3073 54075 TS FLAGWRD1 # RESET DIDFLAG.
038742,000525: 21,3074 15261 TCF TASKOVER
038743,000526:
038744,000527: # ************************************************************************
038745,000528:
038746,000529: 21,3075 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
038747,000530: 21,3076 5020 BITSET = PRIO6
038748,000531:
038749,000532: # ************************************************************************
038750,000533:
|
|
Page 901
There is no source code on the original program listing.
|
038753,000536:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc