Source Code
|
This is a reconstructed version of Luminary 130, the initial AGC program released
in November 1969 for the Apollo 13 LM. Three more releases
followed before the flown revision was finally manufactured in February 1970.
This reconstruction was created from a previous transcription of the original listing of
Luminary 131, combined with Luminary memo #129 which describes the small difference
between the Luminary 130 and 131. The reconstructed source code was verified by
matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.
In this source code, program comments from the original (Luminary 131) code are
prefixed with '#', while those added later by the Virtual AGC project are prefixed
with '##'.
|
038464,000002: ## Copyright: Public domain.
038465,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
038466,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
038467,000005: ## This was the original program released for the Apollo 13 LM,
038468,000006: ## although several more revisions would follow. It has been
038469,000007: ## reconstructed from a listing of Luminary 131, from which it
038470,000008: ## differs on only two lines in P70-P71. The difference is
038471,000009: ## described in detail in Luminary memo #129, which was used
038472,000010: ## to perform the reconstruction. This file is intended to be a
038473,000011: ## faithful reconstruction, except that the code format has been
038474,000012: ## changed to conform to the requirements of the yaYUL assembler
038475,000013: ## rather than the original YUL assembler.
038476,000014: ## Reference: pp. 891-901
038477,000015: ## Contact: Ron Burkey <info@sandroid.org>.
038478,000016: ## Website: www.ibiblio.org/apollo/index.html
038479,000017: ## Mod history: 05/28/03 RSB. Began transcribing.
038480,000018: ## 05/14/05 RSB Corrected website reference above.
038481,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
038482,000020: ## original harcopy, as opposed to the PDF page
038483,000021: ## numbers in 1701.pdf.
038484,000022: ## 2017-02-26 RSB Proofed comment text using octopus/ProoferComments.
038485,000023: ## 2017-03-01 RSB Fixed lingering typos.
038486,000024: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
038487,000025: ## 2021-05-30 ABS LADFWDV -> LATFWDV
038488,000026:
|
|
Page 891
|
038490,000028: 21,2145 BANK 21
038491,000029: 21,2000 SETLOC R10
038492,000030: 21,2000 BANK
038493,000031:
038494,000032: 21,2145 E7,1536 EBANK= UNIT/R/
038495,000033: 21,2145 COUNT* $$/R10
038496,000034:
038497,000035: 21,2145 23714 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038498,000036: 21,2146 40025 CS TIME1
038499,000037: 21,2147 53055 DXCH TBASE2
038500,000038:
038501,000039: 21,2150 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
038502,000040: 21,2151 74741 MASK SWANDBIT
038503,000041: 21,2152 10000 CCS A
038504,000042: 21,2153 13052 TCF DISPRSET # NO.
038505,000043: 21,2154 31300 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
038506,000044: 21,2155 74745 MASK BIT7
038507,000045: 21,2156 10000 CCS A
038508,000046: 21,2157 12231 TCF ALTOUT
038509,000047: 21,2160 02315 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
038510,000048: 21,2161 41300 CS IMODES33
038511,000049: 21,2162 74745 MASK BIT7
038512,000050: 21,2163 27300 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038513,000051: 21,2164 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
038514,000052: 21,2165 00006 EXTEND
038515,000053: 21,2166 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
038516,000054: 21,2167 31743 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
038517,000055: 21,2170 00006 EXTEND
038518,000056: 21,2171 71706 MP VVECT # MULTIPLY X-COMPONENTS.
038519,000057: 21,2172 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
038520,000058: 21,2173 31744 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
038521,000059: 21,2174 00006 EXTEND
038522,000060: 21,2175 71707 MP VVECT +1
038523,000061: 21,2176 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038524,000062: 21,2177 31745 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
038525,000063: 21,2200 00006 EXTEND
038526,000064: 21,2201 71710 MP VVECT +2
038527,000065: 21,2202 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
038528,000066: 21,2203 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
038529,000067: 21,2204 00006 EXTEND
038530,000068: 21,2205 70070 MP RUPTREG1
038531,000069: 21,2206 20001 DDOUBL
038532,000070: 21,2207 20001 DDOUBL
038533,000071: 21,2210 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
038534,000072: 21,2211 31716 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
038535,000073: 21,2212 00006 EXTEND
038536,000074: 21,2213 71715 MP DT
038537,000075: 21,2214 60070 AD RUPTREG1
038538,000076: 21,2215 55711 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
038539,000077: 21,2216 41711 CS ALTRATE
|
|
Page 892
|
038541,000079: 21,2217 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
038542,000080: 21,2220 62222 BZMF +2
038543,000081: 21,2221 12224 TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
038544,000082: 21,2222 31711 CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
038545,000083: 21,2223 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
038546,000084: 21,2224 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
038547,000085: 21,2225 34751 CAF BIT3
038548,000086: 21,2226 00006 EXTEND
038549,000087: 21,2227 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
038550,000088: 21,2230 15261 TCF TASKOVER # EXIT
038551,000089:
038552,000090: 21,2231 02315 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
038553,000091: 21,2232 44745 CS BIT7
038554,000092: 21,2233 71300 MASK IMODES33
038555,000093: 21,2234 55300 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038556,000094: 21,2235 44752 CS BIT2
038557,000095: 21,2236 00006 EXTEND
038558,000096: 21,2237 03014 WAND CHAN14
038559,000097: 21,2240 11741 CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
038560,000098: 21,2241 12245 TCF +4
038561,000099: 21,2242 12245 TCF +3
038562,000100: 21,2243 12263 TCF OLDDATA
038563,000101: 21,2244 55741 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
038564,000102: 21,2245 44753 CS ONE
038565,000103: 21,2246 53742 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
038566,000104: 21,2247 53713 DXCH ALTSAVE
038567,000105: 21,2250 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
038568,000106: 21,2251 56002 XCH Q
038569,000107: 21,2252 22007 LXCH 7 # ZL
038570,000108: 21,2253 31715 CA DT
038571,000109: 21,2254 00006 EXTEND
038572,000110: 21,2255 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
038573,000111: 21,2256 00006 EXTEND
038574,000112: 21,2257 72002 MP ARTOA2 # .0021322 *2(+8)
038575,000113: 21,2260 12264 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
038576,000114:
038577,000115: 21,2261 53713 ZDATA2 DXCH ALTSAVE
038578,000116: 21,2262 12304 TCF NEWDATA
038579,000117: 21,2263 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
038580,000118: 21,2264 00006 EXTEND
038581,000119: 21,2265 71711 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
038582,000120: 21,2266 20001 DDOUBL
038583,000121: 21,2267 61713 AD ALTSAVE +1
038584,000122: 21,2270 55713 TS ALTSAVE +1
038585,000123: 21,2271 34755 CAF ZERO
038586,000124: 21,2272 27712 ADS ALTSAVE
038587,000125: 21,2273 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
038588,000126: 21,2274 64753 AD ONE # NON-NEGATIVE ALTSAVE.
038589,000127: 21,2275 61713 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
038590,000128: 21,2276 55713 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
|
|
Page 893
|
038592,000130: 21,2277 34755 CAF ZERO
038593,000131: 21,2300 64733 AD POSMAX
038594,000132: 21,2301 61712 AD ALTSAVE
038595,000133: 21,2302 55712 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
038596,000134: 21,2303 13047 TCF ZERODATA
038597,000135: 21,2304 11713 NEWDATA CCS ALTSAVE +1
038598,000136: 21,2305 12311 TCF +4
038599,000137: 21,2306 12311 TCF +3
038600,000138: 21,2307 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
038601,000139: 21,2310 55713 TS ALTSAVE +1
038602,000140: 21,2311 11712 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
038603,000141: 21,2312 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
038604,000142: 21,2313 61713 AD ALTSAVE +1
038605,000143: 21,2314 12224 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
038606,000144: 21,2315 00006 DISINDAT EXTEND
038607,000145: 21,2316 23714 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
038608,000146: 21,2317 34746 CAF BIT6
038609,000147: 21,2320 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
038610,000148: 21,2321 02030 RAND CHAN30 # DISPLAYS? I.E.,
038611,000149: 21,2322 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
038612,000150: 21,2323 13052 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
038613,000151: 21,2324 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
038614,000152: 21,2325 74736 MASK DIDFLBIT
038615,000153: 21,2326 00006 EXTEND
038616,000154: 21,2327 12365 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
038617,000155: 21,2330 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
038618,000156: 21,2331 74736 MASK DIDFLBIT
038619,000157: 21,2332 26075 ADS FLAGWRD1 # SET DIDFLAG.
038620,000158: 21,2333 44745 CS BIT7
038621,000159: 21,2334 71300 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
038622,000160: 21,2335 55300 TS IMODES33
038623,000161: 21,2336 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038624,000162: 21,2337 74752 MASK R10FLBIT
038625,000163: 21,2340 00006 EXTEND
038626,000164: 21,2341 15261 BZF TASKOVER # NO
038627,000165: 21,2342 34744 CAF BIT8 # YES.
038628,000166: 21,2343 00006 EXTEND
038629,000167: 21,2344 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
038630,000168: 21,2345 34755 CAF ZERO
038631,000169: 21,2346 55702 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
038632,000170: 21,2347 55703 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
038633,000171: 21,2350 55676 TS LATVMETR # LATVEL MONITOR METER
038634,000172: 21,2351 55677 TS FORVMETR # FORVEL MONITOR METER
038635,000173: 21,2352 34750 CAF BIT4
038636,000174: 21,2353 05173 TC TWIDDLE
038637,000175: 21,2354 02356 ADRES INTLZE
038638,000176: 21,2355 15261 TCF TASKOVER
038639,000177: 21,2356 34752 INTLZE CAF BIT2
038640,000178: 21,2357 00006 EXTEND
038641,000179: 21,2360 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
|
|
Page 894
|
038643,000181: 21,2361 41300 CS IMODES33
038644,000182: 21,2362 74744 MASK BIT8
038645,000183: 21,2363 27300 ADS IMODES33 # SET INERTIAL DATA FLAG.
038646,000184: 21,2364 15261 TCF TASKOVER
038647,000185:
038648,000186: 21,2365 41234 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
038649,000187: 21,2366 60025 AD TIME1 # COMPUTE T - TN
038650,000188: 21,2367 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
038651,000189: 21,2370 64736 AD HALF
038652,000190: 21,2371 57715 XCH DT # SAVE FOR LATER USE
038653,000191: 21,2372 34777 CA 1SEC
038654,000192: 21,2373 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
038655,000193: 21,2374 00006 EXTEND
038656,000194: 21,2375 31236 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
038657,000195: 21,2376 20001 DDOUBL
038658,000196: 21,2377 20001 DDOUBL
038659,000197: 21,2400 00006 EXTEND
038660,000198: 21,2401 71715 MP DT
038661,000199: 21,2402 00006 EXTEND
038662,000200: 21,2403 10065 DV ITEMP5
038663,000201: 21,2404 57706 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
038664,000202: 21,2405 00006 EXTEND
038665,000203: 21,2406 31527 DCA V # M/CS *2(-7)
038666,000204: 21,2407 20001 DDOUBL # RESCALE TO 2(-5)
038667,000205: 21,2410 20001 DDOUBL
038668,000206: 21,2411 27706 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
038669,000207: 21,2412 30037 CA PIPAX # DELV CM/SEC *2(-14)
038670,000208: 21,2413 61157 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
038671,000209: 21,2414 00006 EXTEND
038672,000210: 21,2415 72004 MP KPIP1(5) # DELV M/CS *2(-5)
038673,000211: 21,2416 27706 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
038674,000212: 21,2417 00006 EXTEND
038675,000213: 21,2420 31240 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
038676,000214: 21,2421 20001 DDOUBL
038677,000215: 21,2422 20001 DDOUBL
038678,000216: 21,2423 00006 EXTEND
038679,000217: 21,2424 71715 MP DT
038680,000218: 21,2425 00006 EXTEND
038681,000219: 21,2426 10065 DV ITEMP5
038682,000220: 21,2427 57707 XCH VVECT +1
038683,000221: 21,2430 00006 EXTEND
038684,000222: 21,2431 31531 DCA V +2
038685,000223: 21,2432 20001 DDOUBL
038686,000224: 21,2433 20001 DDOUBL
038687,000225: 21,2434 27707 ADS VVECT +1
038688,000226: 21,2435 30040 CA PIPAY
038689,000227: 21,2436 61160 AD PIPATMPY
038690,000228: 21,2437 00006 EXTEND
038691,000229: 21,2440 72004 MP KPIP1(5)
038692,000230: 21,2441 27707 ADS VVECT +1
|
|
Page 895
|
038694,000232: 21,2442 00006 EXTEND
038695,000233: 21,2443 31242 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
038696,000234: 21,2444 20001 DDOUBL
038697,000235: 21,2445 20001 DDOUBL
038698,000236: 21,2446 00006 EXTEND
038699,000237: 21,2447 71715 MP DT
038700,000238: 21,2450 00006 EXTEND
038701,000239: 21,2451 10065 DV ITEMP5
038702,000240: 21,2452 57710 XCH VVECT +2
038703,000241: 21,2453 00006 EXTEND
038704,000242: 21,2454 31533 DCA V +4
038705,000243: 21,2455 20001 DDOUBL
038706,000244: 21,2456 20001 DDOUBL
038707,000245: 21,2457 27710 ADS VVECT +2
038708,000246: 21,2460 30041 CA PIPAZ
038709,000247: 21,2461 61161 AD PIPATMPZ
038710,000248: 21,2462 00006 EXTEND
038711,000249: 21,2463 72004 MP KPIP1(5)
038712,000250: 21,2464 27710 ADS VVECT +2
038713,000251:
038714,000252: 21,2465 34751 CAF BIT3 # PAUSE 40 MS TO LET OTHER RUPTS IN.
038715,000253: 21,2466 05224 TC VARDELAY
038716,000254:
038717,000255: 21,2467 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038718,000256: 21,2470 74752 MASK R10FLBIT
038719,000257: 21,2471 10000 CCS A
038720,000258: 21,2472 12474 TCF +2 # YES.
038721,000259: 21,2473 01714 TC LADQSAVE # NO.
038722,000260:
038723,000261: 21,2474 34752 CAF BIT2 # CHECK TO SEE IF RR ERROR COUNTERS
038724,000262: 21,2475 00006 EXTEND # ARE ENABLED.
038725,000263: 21,2476 02012 RAND CHAN12
038726,000264: 21,2477 10000 CCS A # IF NOT.
038727,000265: 21,2500 12502 TCF +2
038728,000266: 21,2501 13052 TCF DISPRSET # RE-INITIALIZE LANDING ANALOG DISPLAYS
038729,000267:
038730,000268: 21,2502 31733 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
038731,000269: 21,2503 61706 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
038732,000270: 21,2504 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
038733,000271: 21,2505 31735 CA DELVS +2 # Y
038734,000272: 21,2506 61707 AD VVECT +1 # Y
038735,000273: 21,2507 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5).
038736,000274: 21,2510 31737 CA DELVS +4 # Z
038737,000275: 21,2511 61710 AD VVECT +2 # Z
038738,000276: 21,2512 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5).
038739,000277: 21,2513 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038740,000278: 21,2514 00006 EXTEND # Y-COORDINATE.
038741,000279: 21,2515 71717 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
038742,000280: 21,2516 56070 XCH RUPTREG1
038743,000281: 21,2517 30062 CA ITEMP2
|
|
Page 896
|
038745,000283: 21,2520 00006 EXTEND
038746,000284: 21,2521 71721 MP UHYP +2 # Y
038747,000285: 21,2522 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038748,000286: 21,2523 30063 CA ITEMP3
038749,000287: 21,2524 00006 EXTEND
038750,000288: 21,2525 71723 MP UHYP +4 # Z
038751,000289: 21,2526 26070 ADS RUPTREG1
038752,000290: 21,2527 30070 CA RUPTREG1
038753,000291: 21,2530 60000 DOUBLE
038754,000292: 21,2531 57704 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
038755,000293: 21,2532 30061 CA ITEMP1 # NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
038756,000294: 21,2533 00006 EXTEND # THE Z-COORDINATE.
038757,000295: 21,2534 71725 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038758,000296: 21,2535 56070 XCH RUPTREG1
038759,000297: 21,2536 30062 CA ITEMP2
038760,000298: 21,2537 00006 EXTEND
038761,000299: 21,2540 71727 MP UHZP +2 # Y
038762,000300: 21,2541 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038763,000301: 21,2542 30063 CA ITEMP3
038764,000302: 21,2543 00006 EXTEND
038765,000303: 21,2544 71731 MP UHZP +4 # Z
038766,000304: 21,2545 26070 ADS RUPTREG1
038767,000305: 21,2546 30070 CA RUPTREG1
038768,000306: 21,2547 60000 DOUBLE
038769,000307: 21,2550 57705 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
038770,000308: 21,2551 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038771,000309: 21,2552 54003 TS EBANK
038772,000310: 21,2553 E6,1417 EBANK= M22
038773,000311: 21,2553 31417 CA M22
038774,000312: 21,2554 54063 TS ITEMP3
038775,000313: 21,2555 31420 CA M32
038776,000314: 21,2556 54064 TS ITEMP4
038777,000315: 21,2557 35016 CAF EBANK7
038778,000316: 21,2560 54003 TS EBANK
038779,000317: 21,2561 E7,1536 EBANK= UNIT/R/
038780,000318: 21,2561 30064 LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
038781,000319: 21,2562 00006 EXTEND
038782,000320: 21,2563 71704 MP VHY
038783,000321: 21,2564 56070 XCH RUPTREG1
038784,000322: 21,2565 30063 CA ITEMP3
038785,000323: 21,2566 00006 EXTEND
038786,000324: 21,2567 71705 MP VHZ
038787,000325: 21,2570 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038788,000326: 21,2571 32003 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
038789,000327: 21,2572 00006 EXTEND
038790,000328: 21,2573 70070 MP RUPTREG1
038791,000329: 21,2574 20001 DDOUBL
038792,000330: 21,2575 57700 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
038793,000331: 21,2576 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
038794,000332: 21,2577 00006 EXTEND
|
|
Page 897
|
038796,000334: 21,2600 71705 MP VHZ
038797,000335: 21,2601 56070 XCH RUPTREG1
038798,000336: 21,2602 30063 CA ITEMP3
038799,000337: 21,2603 00006 EXTEND
038800,000338: 21,2604 71704 MP VHY
038801,000339: 21,2605 40000 CS A
038802,000340: 21,2606 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
038803,000341: 21,2607 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
038804,000342: 21,2610 00006 EXTEND
038805,000343: 21,2611 70070 MP RUPTREG1
038806,000344: 21,2612 20001 DDOUBL
038807,000345: 21,2613 57701 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
038808,000346:
038809,000347: 21,2614 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
038810,000348: 21,2615 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
038811,000349:
038812,000350: 21,2616 34753 CAF ONE # LOOP TWICE.
038813,000351: 21,2617 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
038814,000352: 21,2620 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
038815,000353: 21,2621 11700 CCS LATVEL
038816,000354: 21,2622 12626 TCF +4
038817,000355: 21,2623 12727 TCF LVLIMITS
038818,000356: 21,2624 12634 TCF +8D
038819,000357: 21,2625 12727 TCF LVLIMITS
038820,000358: 21,2626 50065 INDEX ITEMP5
038821,000359: 21,2627 41700 CS LATVEL
038822,000360: 21,2630 62005 AD MAXVBITS # +199.9989 FT./SEC.
038823,000361: 21,2631 00006 EXTEND
038824,000362: 21,2632 62642 BZMF CHKLASTY
038825,000363: 21,2633 12727 TCF LVLIMITS
038826,000364: 21,2634 50065 INDEX ITEMP5
038827,000365: 21,2635 31700 CA LATVEL
038828,000366: 21,2636 62005 AD MAXVBITS
038829,000367: 21,2637 00006 EXTEND
038830,000368: 21,2640 62642 BZMF +2
038831,000369: 21,2641 12727 TCF LVLIMITS
038832,000370: 21,2642 50065 CHKLASTY INDEX ITEMP5
038833,000371: 21,2643 11676 CCS LATVMETR
038834,000372: 21,2644 12650 TCF +4
038835,000373: 21,2645 12661 TCF LASTOK
038836,000374: 21,2646 12655 TCF +7
038837,000375: 21,2647 12661 TCF LASTOK
038838,000376: 21,2650 50065 INDEX ITEMP5
038839,000377: 21,2651 31700 CA LATVEL
038840,000378: 21,2652 00006 EXTEND
038841,000379: 21,2653 62700 BZMF LASTPOSY +5
038842,000380: 21,2654 12661 TCF +5
038843,000381: 21,2655 50065 INDEX ITEMP5
038844,000382: 21,2656 41700 CS LATVEL
038845,000383: 21,2657 00006 EXTEND
|
|
Page 898
|
038847,000385: 21,2660 62715 BZMF LASTNEGY +4
038848,000386: 21,2661 50065 LASTOK INDEX ITEMP5
038849,000387: 21,2662 11702 CCS TRAKLATV
038850,000388: 21,2663 12673 TCF LASTPOSY
038851,000389: 21,2664 12666 TCF +2
038852,000390: 21,2665 12711 TCF LASTNEGY
038853,000391: 21,2666 50065 INDEX ITEMP5
038854,000392: 21,2667 31700 CA LATVEL
038855,000393: 21,2670 00006 EXTEND
038856,000394: 21,2671 62717 BZMF NEGVMAXY
038857,000395: 21,2672 12702 TCF POSVMAXY
038858,000396: 21,2673 50065 LASTPOSY INDEX ITEMP5
038859,000397: 21,2674 31700 CA LATVEL
038860,000398: 21,2675 00006 EXTEND
038861,000399: 21,2676 62700 BZMF +2
038862,000400: 21,2677 12702 TCF POSVMAXY
038863,000401: 21,2700 42005 CS MAXVBITS
038864,000402: 21,2701 13023 TCF ZEROLSTY
038865,000403: 21,2702 50065 POSVMAXY INDEX ITEMP5
038866,000404: 21,2703 41676 CS LATVMETR
038867,000405: 21,2704 62005 AD MAXVBITS
038868,000406: 21,2705 50065 INDEX ITEMP5
038869,000407: 21,2706 56072 XCH RUPTREG3
038870,000408: 21,2707 34753 CAF ONE
038871,000409: 21,2710 13026 TCF ZEROLSTY +3
038872,000410: 21,2711 50065 LASTNEGY INDEX ITEMP5
038873,000411: 21,2712 31700 CA LATVEL
038874,000412: 21,2713 00006 EXTEND
038875,000413: 21,2714 62717 BZMF NEGVMAXY
038876,000414: 21,2715 32005 CA MAXVBITS
038877,000415: 21,2716 13023 TCF ZEROLSTY
038878,000416: 21,2717 50065 NEGVMAXY INDEX ITEMP5
038879,000417: 21,2720 31676 CA LATVMETR
038880,000418: 21,2721 62005 AD MAXVBITS
038881,000419: 21,2722 40000 COM
038882,000420: 21,2723 50065 INDEX ITEMP5
038883,000421: 21,2724 56072 XCH RUPTREG3
038884,000422: 21,2725 44753 CS ONE
038885,000423: 21,2726 13026 TCF ZEROLSTY +3
038886,000424: 21,2727 50065 LVLIMITS INDEX ITEMP5
038887,000425: 21,2730 11702 CCS TRAKLATV
038888,000426: 21,2731 12760 TCF LATVPOS
038889,000427: 21,2732 12734 TCF +2
038890,000428: 21,2733 12765 TCF LATVNEG
038891,000429: 21,2734 50065 INDEX ITEMP5
038892,000430: 21,2735 41676 CS LATVMETR
038893,000431: 21,2736 00006 EXTEND
038894,000432: 21,2737 62741 BZMF +2
038895,000433: 21,2740 12774 TCF NEGLMLV
038896,000434: 21,2741 50065 INDEX ITEMP5
|
|
Page 899
|
038898,000436: 21,2742 41700 CS LATVEL
038899,000437: 21,2743 00006 EXTEND
038900,000438: 21,2744 63017 BZMF LVMINLM
038901,000439: 21,2745 60066 AD ITEMP6
038902,000440: 21,2746 50065 INDEX ITEMP5
038903,000441: 21,2747 61676 AD LATVMETR
038904,000442: 21,2750 00006 EXTEND
038905,000443: 21,2751 63017 BZMF LVMINLM
038906,000444: 21,2752 50065 INDEX ITEMP5
038907,000445: 21,2753 61700 AD LATVEL
038908,000446: 21,2754 00006 EXTEND
038909,000447: 21,2755 50065 INDEX ITEMP5
038910,000448: 21,2756 61676 SU LATVMETR
038911,000449: 21,2757 13023 TCF ZEROLSTY
038912,000450: 21,2760 50065 LATVPOS INDEX ITEMP5
038913,000451: 21,2761 41700 CS LATVEL
038914,000452: 21,2762 00006 EXTEND
038915,000453: 21,2763 63017 BZMF LVMINLM
038916,000454: 21,2764 12771 TCF +5
038917,000455: 21,2765 50065 LATVNEG INDEX ITEMP5
038918,000456: 21,2766 31700 CA LATVEL
038919,000457: 21,2767 00006 EXTEND
038920,000458: 21,2770 63017 BZMF LVMINLM
038921,000459: 21,2771 50065 INDEX ITEMP5
038922,000460: 21,2772 41676 CS LATVMETR
038923,000461: 21,2773 13023 TCF ZEROLSTY
038924,000462: 21,2774 50065 NEGLMLV INDEX ITEMP5
038925,000463: 21,2775 31700 CA LATVEL
038926,000464: 21,2776 00006 EXTEND
038927,000465: 21,2777 63017 BZMF LVMINLM
038928,000466: 21,3000 32005 CA MAXVBITS
038929,000467: 21,3001 50065 INDEX ITEMP5
038930,000468: 21,3002 61676 AD LATVMETR
038931,000469: 21,3003 40000 COM
038932,000470: 21,3004 50065 INDEX ITEMP5
038933,000471: 21,3005 61700 AD LATVEL
038934,000472: 21,3006 00006 EXTEND
038935,000473: 21,3007 63017 BZMF LVMINLM
038936,000474: 21,3010 00006 EXTEND
038937,000475: 21,3011 50065 INDEX ITEMP5
038938,000476: 21,3012 61700 SU LATVEL
038939,000477: 21,3013 50065 INDEX ITEMP5
038940,000478: 21,3014 61676 AD LATVMETR
038941,000479: 21,3015 40000 COM
038942,000480: 21,3016 13023 TCF ZEROLSTY
038943,000481: 21,3017 50065 LVMINLM INDEX ITEMP5
038944,000482: 21,3020 41676 CS LATVMETR
038945,000483: 21,3021 50065 INDEX ITEMP5
038946,000484: 21,3022 61700 AD LATVEL
038947,000485: 21,3023 50065 ZEROLSTY INDEX ITEMP5
|
|
Page 900
|
038949,000487: 21,3024 56072 XCH RUPTREG3
038950,000488: 21,3025 34755 CAF ZERO
038951,000489: 21,3026 50065 INDEX ITEMP5
038952,000490: 21,3027 55702 TS TRAKLATV
038953,000491: 21,3030 50065 INDEX ITEMP5
038954,000492: 21,3031 30072 CA RUPTREG3
038955,000493: 21,3032 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
038956,000494: 21,3033 50065 INDEX ITEMP5
038957,000495: 21,3034 54053 TS CDUTCMD
038958,000496: 21,3035 50065 INDEX ITEMP5
038959,000497: 21,3036 30072 CA RUPTREG3
038960,000498: 21,3037 50065 INDEX ITEMP5
038961,000499: 21,3040 27676 ADS LATVMETR
038962,000500: 21,3041 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
038963,000501: 21,3042 12617 TCF VMONITOR
038964,000502:
038965,000503: 21,3043 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
038966,000504: 21,3044 00006 EXTEND
038967,000505: 21,3045 05014 WOR CHAN14
038968,000506: 21,3046 01714 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
038969,000507: 21,3047 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
038970,000508: 21,3050 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
038971,000509: 21,3051 12261 TCF ZDATA2
038972,000510:
038973,000511: # ************************************************************************
038974,000512:
038975,000513: 21,3052 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038976,000514: 21,3053 74752 MASK R10FLBIT
038977,000515: 21,3054 00006 EXTEND
038978,000516: 21,3055 13066 BZF ABORTON # NO.
038979,000517: 21,3056 34744 CAF BIT8 # YES.
038980,000518: 21,3057 71300 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
038981,000519: 21,3060 10000 CCS A
038982,000520: 21,3061 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
038983,000521: 21,3062 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
038984,000522: 21,3063 40000 COM
038985,000523: 21,3064 00006 EXTEND
038986,000524: 21,3065 03012 WAND CHAN12
038987,000525: 21,3066 43075 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
038988,000526: 21,3067 71300 MASK IMODES33
038989,000527: 21,3070 55300 TS IMODES33
038990,000528: 21,3071 44736 CS DIDFLBIT
038991,000529: 21,3072 70075 MASK FLAGWRD1
038992,000530: 21,3073 54075 TS FLAGWRD1 # RESET DIDFLAG.
038993,000531: 21,3074 15261 TCF TASKOVER
038994,000532:
038995,000533: # ************************************************************************
038996,000534:
038997,000535: 21,3075 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
038998,000536: 21,3076 5020 BITSET = PRIO6
038999,000537:
039000,000538: # ************************************************************************
039001,000539:
|
|
Page 901
There is no source code on the original program listing.
|
039004,000542:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc