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