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