Source Code
|
These source-code files are part of a reconstructed copy of Luminary 173, the
second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 178. Changes
between revision 173 and 178 were backed out, as described by Luminary memo 167
(revision 1). The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 173 listing would be different.
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.
|
038656,000002: ## Copyright: Public domain.
038657,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
038658,000004: ## Purpose: A section of Luminary revision 173.
038659,000005: ## It is part of the reconstructed source code for the second
038660,000006: ## (unflown) release of the flight software for the Lunar
038661,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
038662,000008: ## The code has been recreated from a reconstructed copy of
038663,000009: ## Luminary 178, as well as Luminary memo 167 (revision 1).
038664,000010: ## It has been adapted such that the resulting bugger words
038665,000011: ## exactly match those specified for Luminary 173 in NASA
038666,000012: ## drawing 2021152N, which gives relatively high confidence
038667,000013: ## that the reconstruction is correct.
038668,000014: ## Reference: pp. 890-898
038669,000015: ## Assembler: yaYUL
038670,000016: ## Contact: Ron Burkey <info@sandroid.org>.
038671,000017: ## Website: www.ibiblio.org/apollo/index.html
038672,000018: ## Mod history: 2019-09-18 MAS Created from Luminary 178.
038673,000019: ## 2019-09-21 MAS Re-based on Luminary 131. Implemented ACB L-11
038674,000020: ## by moving three checks as shown in the
038675,000021: ## Luminary 173 flowcharts.
038676,000022:
|
|
Page 891
|
038678,000024: 21,2130 BANK 21
038679,000025: 21,2000 SETLOC R10
038680,000026: 21,2000 BANK
038681,000027:
038682,000028: 21,2130 E7,1536 EBANK= UNIT/R/
038683,000029: 21,2130 COUNT* $$/R10
038684,000030:
038685,000031: 21,2130 23714 LANDISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038686,000032: 21,2131 40025 CS TIME1
038687,000033: 21,2132 53055 DXCH TBASE2
038688,000034:
038689,000035: 21,2133 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
038690,000036: 21,2134 74741 MASK SWANDBIT
038691,000037: 21,2135 10000 CCS A
038692,000038: 21,2136 13035 TCF DISPRSET # NO.
038693,000039: 21,2137 31300 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
038694,000040: 21,2140 74745 MASK BIT7
038695,000041: 21,2141 10000 CCS A
038696,000042: 21,2142 12214 TCF ALTOUT
038697,000043: 21,2143 02300 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
038698,000044: 21,2144 41300 CS IMODES33
038699,000045: 21,2145 74745 MASK BIT7
038700,000046: 21,2146 27300 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038701,000047: 21,2147 34752 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
038702,000048: 21,2150 00006 EXTEND
038703,000049: 21,2151 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
038704,000050: 21,2152 31743 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
038705,000051: 21,2153 00006 EXTEND
038706,000052: 21,2154 71706 MP VVECT # MULTIPLY X-COMPONENTS.
038707,000053: 21,2155 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
038708,000054: 21,2156 31744 CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
038709,000055: 21,2157 00006 EXTEND
038710,000056: 21,2160 71707 MP VVECT +1
038711,000057: 21,2161 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038712,000058: 21,2162 31745 CA RUNIT +2 # MULTIPLY Z-COMPONENTS.
038713,000059: 21,2163 00006 EXTEND
038714,000060: 21,2164 71710 MP VVECT +2
038715,000061: 21,2165 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
038716,000062: 21,2166 32000 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
038717,000063: 21,2167 00006 EXTEND
038718,000064: 21,2170 70070 MP RUPTREG1
038719,000065: 21,2171 20001 DDOUBL
038720,000066: 21,2172 20001 DDOUBL
038721,000067: 21,2173 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
038722,000068: 21,2174 31716 CA DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
038723,000069: 21,2175 00006 EXTEND
038724,000070: 21,2176 71715 MP DT
038725,000071: 21,2177 60070 AD RUPTREG1
038726,000072: 21,2200 55711 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
038727,000073: 21,2201 41711 CS ALTRATE
|
|
Page 892
|
038729,000075: 21,2202 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
038730,000076: 21,2203 62205 BZMF +2
038731,000077: 21,2204 12207 TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
038732,000078: 21,2205 31711 CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
038733,000079: 21,2206 64735 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
038734,000080: 21,2207 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
038735,000081: 21,2210 34751 CAF BIT3
038736,000082: 21,2211 00006 EXTEND
038737,000083: 21,2212 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
038738,000084: 21,2213 15272 TCF TASKOVER # EXIT
038739,000085:
038740,000086: 21,2214 02300 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
038741,000087: 21,2215 44745 CS BIT7
038742,000088: 21,2216 71300 MASK IMODES33
038743,000089: 21,2217 55300 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038744,000090: 21,2220 44752 CS BIT2
038745,000091: 21,2221 00006 EXTEND
038746,000092: 21,2222 03014 WAND CHAN14
038747,000093: 21,2223 11741 CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
038748,000094: 21,2224 12230 TCF +4
038749,000095: 21,2225 12230 TCF +3
038750,000096: 21,2226 12246 TCF OLDDATA
038751,000097: 21,2227 55741 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
038752,000098: 21,2230 44753 CS ONE
038753,000099: 21,2231 53742 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
038754,000100: 21,2232 53713 DXCH ALTSAVE
038755,000101: 21,2233 34742 CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
038756,000102: 21,2234 56002 XCH Q
038757,000103: 21,2235 22007 LXCH 7 # ZL
038758,000104: 21,2236 31715 CA DT
038759,000105: 21,2237 00006 EXTEND
038760,000106: 21,2240 10002 DV Q # RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
038761,000107: 21,2241 00006 EXTEND
038762,000108: 21,2242 72002 MP ARTOA2 # .0021322 *2(+8)
038763,000109: 21,2243 12247 TCF OLDDATA +1 # RATE APPLIES FOR DT CS.
038764,000110:
038765,000111: 21,2244 53713 ZDATA2 DXCH ALTSAVE
038766,000112: 21,2245 12267 TCF NEWDATA
038767,000113: 21,2246 32001 OLDDATA CA ARTOA # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
038768,000114: 21,2247 00006 EXTEND
038769,000115: 21,2250 71711 MP ALTRATE # EXTRAPOLATE WITH ALTITUDE RATE.
038770,000116: 21,2251 20001 DDOUBL
038771,000117: 21,2252 61713 AD ALTSAVE +1
038772,000118: 21,2253 55713 TS ALTSAVE +1
038773,000119: 21,2254 34755 CAF ZERO
038774,000120: 21,2255 27712 ADS ALTSAVE
038775,000121: 21,2256 34733 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
038776,000122: 21,2257 64753 AD ONE # NON-NEGATIVE ALTSAVE.
038777,000123: 21,2260 61713 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
038778,000124: 21,2261 55713 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
|
|
Page 893
|
038780,000126: 21,2262 34755 CAF ZERO
038781,000127: 21,2263 64733 AD POSMAX
038782,000128: 21,2264 61712 AD ALTSAVE
038783,000129: 21,2265 55712 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
038784,000130: 21,2266 13032 TCF ZERODATA
038785,000131: 21,2267 11713 NEWDATA CCS ALTSAVE +1
038786,000132: 21,2270 12274 TCF +4
038787,000133: 21,2271 12274 TCF +3
038788,000134: 21,2272 34755 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
038789,000135: 21,2273 55713 TS ALTSAVE +1
038790,000136: 21,2274 11712 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
038791,000137: 21,2275 34735 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
038792,000138: 21,2276 61713 AD ALTSAVE +1
038793,000139: 21,2277 12207 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
038794,000140: 21,2300 00006 DISINDAT EXTEND
038795,000141: 21,2301 23714 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
038796,000142: 21,2302 40075 CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
038797,000143: 21,2303 74736 MASK DIDFLBIT
038798,000144: 21,2304 00006 EXTEND
038799,000145: 21,2305 12343 BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
038800,000146: 21,2306 40075 CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
038801,000147: 21,2307 74736 MASK DIDFLBIT
038802,000148: 21,2310 26075 ADS FLAGWRD1 # SET DIDFLAG.
038803,000149: 21,2311 44745 CS BIT7
038804,000150: 21,2312 71300 MASK IMODES33 # TO DISPLAY ALTRATE FIRST AND ALT. SECOND
038805,000151: 21,2313 55300 TS IMODES33
038806,000152: 21,2314 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038807,000153: 21,2315 74752 MASK R10FLBIT
038808,000154: 21,2316 00006 EXTEND
038809,000155: 21,2317 15272 BZF TASKOVER # NO
038810,000156: 21,2320 34744 CAF BIT8 # YES.
038811,000157: 21,2321 00006 EXTEND
038812,000158: 21,2322 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
038813,000159: 21,2323 34755 CAF ZERO
038814,000160: 21,2324 55702 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
038815,000161: 21,2325 55703 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
038816,000162: 21,2326 55676 TS LATVMETR # LATVEL MONITOR METER
038817,000163: 21,2327 55677 TS FORVMETR # FORVEL MONITOR METER
038818,000164: 21,2330 34750 CAF BIT4
038819,000165: 21,2331 05204 TC TWIDDLE
038820,000166: 21,2332 02334 ADRES INTLZE
038821,000167: 21,2333 15272 TCF TASKOVER
038822,000168: 21,2334 34752 INTLZE CAF BIT2
038823,000169: 21,2335 00006 EXTEND
038824,000170: 21,2336 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
|
|
Page 894
|
038826,000172: 21,2337 41300 CS IMODES33
038827,000173: 21,2340 74744 MASK BIT8
038828,000174: 21,2341 27300 ADS IMODES33 # SET INERTIAL DATA FLAG.
038829,000175: 21,2342 15272 TCF TASKOVER
038830,000176:
038831,000177: 21,2343 41234 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
038832,000178: 21,2344 60025 AD TIME1 # COMPUTE T - TN
038833,000179: 21,2345 64736 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
038834,000180: 21,2346 64736 AD HALF
038835,000181: 21,2347 57715 XCH DT # SAVE FOR LATER USE
038836,000182: 21,2350 34777 CA 1SEC
038837,000183: 21,2351 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
038838,000184: 21,2352 00006 EXTEND
038839,000185: 21,2353 31236 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
038840,000186: 21,2354 20001 DDOUBL
038841,000187: 21,2355 20001 DDOUBL
038842,000188: 21,2356 00006 EXTEND
038843,000189: 21,2357 71715 MP DT
038844,000190: 21,2360 00006 EXTEND
038845,000191: 21,2361 10065 DV ITEMP5
038846,000192: 21,2362 57706 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
038847,000193: 21,2363 00006 EXTEND
038848,000194: 21,2364 31527 DCA V # M/CS *2(-7)
038849,000195: 21,2365 20001 DDOUBL # RESCALE TO 2(-5)
038850,000196: 21,2366 20001 DDOUBL
038851,000197: 21,2367 27706 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
038852,000198: 21,2370 30037 CA PIPAX # DELV CM/SEC *2(-14)
038853,000199: 21,2371 61157 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
038854,000200: 21,2372 00006 EXTEND
038855,000201: 21,2373 72004 MP KPIP1(5) # DELV M/CS *2(-5)
038856,000202: 21,2374 27706 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
038857,000203: 21,2375 00006 EXTEND
038858,000204: 21,2376 31240 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
038859,000205: 21,2377 20001 DDOUBL
038860,000206: 21,2400 20001 DDOUBL
038861,000207: 21,2401 00006 EXTEND
038862,000208: 21,2402 71715 MP DT
038863,000209: 21,2403 00006 EXTEND
038864,000210: 21,2404 10065 DV ITEMP5
038865,000211: 21,2405 57707 XCH VVECT +1
038866,000212: 21,2406 00006 EXTEND
038867,000213: 21,2407 31531 DCA V +2
038868,000214: 21,2410 20001 DDOUBL
038869,000215: 21,2411 20001 DDOUBL
038870,000216: 21,2412 27707 ADS VVECT +1
038871,000217: 21,2413 30040 CA PIPAY
038872,000218: 21,2414 61160 AD PIPATMPY
038873,000219: 21,2415 00006 EXTEND
038874,000220: 21,2416 72004 MP KPIP1(5)
038875,000221: 21,2417 27707 ADS VVECT +1
|
|
Page 895
|
038877,000223: 21,2420 00006 EXTEND
038878,000224: 21,2421 31242 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
038879,000225: 21,2422 20001 DDOUBL
038880,000226: 21,2423 20001 DDOUBL
038881,000227: 21,2424 00006 EXTEND
038882,000228: 21,2425 71715 MP DT
038883,000229: 21,2426 00006 EXTEND
038884,000230: 21,2427 10065 DV ITEMP5
038885,000231: 21,2430 57710 XCH VVECT +2
038886,000232: 21,2431 00006 EXTEND
038887,000233: 21,2432 31533 DCA V +4
038888,000234: 21,2433 20001 DDOUBL
038889,000235: 21,2434 20001 DDOUBL
038890,000236: 21,2435 27710 ADS VVECT +2
038891,000237: 21,2436 30041 CA PIPAZ
038892,000238: 21,2437 61161 AD PIPATMPZ
038893,000239: 21,2440 00006 EXTEND
038894,000240: 21,2441 72004 MP KPIP1(5)
038895,000241: 21,2442 27710 ADS VVECT +2
038896,000242:
038897,000243: 21,2443 34751 CAF BIT3 # PAUSE 40 MS TO LET OTHER RUPTS IN.
038898,000244: 21,2444 05235 TC VARDELAY
038899,000245:
038900,000246: 21,2445 31733 CA DELVS # HI X OF VELOCITY CORRECTION TERM.
038901,000247: 21,2446 61706 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
038902,000248: 21,2447 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
038903,000249: 21,2450 31735 CA DELVS +2 # Y
038904,000250: 21,2451 61707 AD VVECT +1 # Y
038905,000251: 21,2452 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5).
038906,000252: 21,2453 31737 CA DELVS +4 # Z
038907,000253: 21,2454 61710 AD VVECT +2 # Z
038908,000254: 21,2455 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5).
038909,000255: 21,2456 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038910,000256: 21,2457 00006 EXTEND # Y-COORDINATE.
038911,000257: 21,2460 71717 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
038912,000258: 21,2461 56070 XCH RUPTREG1
038913,000259: 21,2462 30062 CA ITEMP2
|
|
Page 896
|
038915,000261: 21,2463 00006 EXTEND
038916,000262: 21,2464 71721 MP UHYP +2 # Y
038917,000263: 21,2465 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038918,000264: 21,2466 30063 CA ITEMP3
038919,000265: 21,2467 00006 EXTEND
038920,000266: 21,2470 71723 MP UHYP +4 # Z
038921,000267: 21,2471 26070 ADS RUPTREG1
038922,000268: 21,2472 30070 CA RUPTREG1
038923,000269: 21,2473 60000 DOUBLE
038924,000270: 21,2474 57704 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
038925,000271: 21,2475 30061 CA ITEMP1 # NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
038926,000272: 21,2476 00006 EXTEND # THE Z-COORDINATE.
038927,000273: 21,2477 71725 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038928,000274: 21,2500 56070 XCH RUPTREG1
038929,000275: 21,2501 30062 CA ITEMP2
038930,000276: 21,2502 00006 EXTEND
038931,000277: 21,2503 71727 MP UHZP +2 # Y
038932,000278: 21,2504 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
038933,000279: 21,2505 30063 CA ITEMP3
038934,000280: 21,2506 00006 EXTEND
038935,000281: 21,2507 71731 MP UHZP +4 # Z
038936,000282: 21,2510 26070 ADS RUPTREG1
038937,000283: 21,2511 30070 CA RUPTREG1
038938,000284: 21,2512 60000 DOUBLE
038939,000285: 21,2513 57705 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
038940,000286: 21,2514 35015 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038941,000287: 21,2515 54003 TS EBANK
038942,000288: 21,2516 E6,1417 EBANK= M22
038943,000289: 21,2516 31417 CA M22
038944,000290: 21,2517 54063 TS ITEMP3
038945,000291: 21,2520 31420 CA M32
038946,000292: 21,2521 54064 TS ITEMP4
038947,000293: 21,2522 35016 CAF EBANK7
038948,000294: 21,2523 54003 TS EBANK
038949,000295: 21,2524 E7,1536 EBANK= UNIT/R/
038950,000296: 21,2524 30064 LADFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
038951,000297: 21,2525 00006 EXTEND
038952,000298: 21,2526 71704 MP VHY
038953,000299: 21,2527 56070 XCH RUPTREG1
038954,000300: 21,2530 30063 CA ITEMP3
038955,000301: 21,2531 00006 EXTEND
038956,000302: 21,2532 71705 MP VHZ
038957,000303: 21,2533 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038958,000304: 21,2534 32003 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
038959,000305: 21,2535 00006 EXTEND
038960,000306: 21,2536 70070 MP RUPTREG1
038961,000307: 21,2537 20001 DDOUBL
038962,000308: 21,2540 57700 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
038963,000309: 21,2541 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
038964,000310: 21,2542 00006 EXTEND
|
|
Page 897
|
038966,000312: 21,2543 71705 MP VHZ
038967,000313: 21,2544 56070 XCH RUPTREG1
038968,000314: 21,2545 30063 CA ITEMP3
038969,000315: 21,2546 00006 EXTEND
038970,000316: 21,2547 71704 MP VHY
038971,000317: 21,2550 40000 CS A
038972,000318: 21,2551 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
038973,000319: 21,2552 32003 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
038974,000320: 21,2553 00006 EXTEND
038975,000321: 21,2554 70070 MP RUPTREG1
038976,000322: 21,2555 20001 DDOUBL
038977,000323: 21,2556 57701 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
038978,000324:
038979,000325: 21,2557 34746 CAF BIT6
038980,000326: 21,2560 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
038981,000327: 21,2561 02030 RAND CHAN30 # DISPLAYS? I.E.,
038982,000328: 21,2562 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
038983,000329: 21,2563 13035 TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
038984,000330:
038985,000331: 21,2564 40074 CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
038986,000332: 21,2565 74752 MASK R10FLBIT
038987,000333: 21,2566 10000 CCS A
038988,000334: 21,2567 12571 TCF +2 # YES.
038989,000335: 21,2570 01714 TC LADQSAVE # NO.
038990,000336:
038991,000337: 21,2571 42005 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
038992,000338: 21,2572 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
038993,000339:
038994,000340: 21,2573 34753 CAF ONE # LOOP TWICE.
038995,000341: 21,2574 54065 VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
038996,000342: 21,2575 50065 INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
038997,000343: 21,2576 11700 CCS LATVEL
038998,000344: 21,2577 12603 TCF +4
038999,000345: 21,2600 12704 TCF LVLIMITS
039000,000346: 21,2601 12611 TCF +8D
039001,000347: 21,2602 12704 TCF LVLIMITS
039002,000348: 21,2603 50065 INDEX ITEMP5
039003,000349: 21,2604 41700 CS LATVEL
039004,000350: 21,2605 62005 AD MAXVBITS # +199.9989 FT./SEC.
039005,000351: 21,2606 00006 EXTEND
039006,000352: 21,2607 62617 BZMF CHKLASTY
039007,000353: 21,2610 12704 TCF LVLIMITS
039008,000354: 21,2611 50065 INDEX ITEMP5
039009,000355: 21,2612 31700 CA LATVEL
039010,000356: 21,2613 62005 AD MAXVBITS
039011,000357: 21,2614 00006 EXTEND
039012,000358: 21,2615 62617 BZMF +2
039013,000359: 21,2616 12704 TCF LVLIMITS
039014,000360: 21,2617 50065 CHKLASTY INDEX ITEMP5
039015,000361: 21,2620 11676 CCS LATVMETR
039016,000362: 21,2621 12625 TCF +4
039017,000363: 21,2622 12636 TCF LASTOK
039018,000364: 21,2623 12632 TCF +7
039019,000365: 21,2624 12636 TCF LASTOK
039020,000366: 21,2625 50065 INDEX ITEMP5
039021,000367: 21,2626 31700 CA LATVEL
039022,000368: 21,2627 00006 EXTEND
039023,000369: 21,2630 62655 BZMF LASTPOSY +5
039024,000370: 21,2631 12636 TCF +5
039025,000371: 21,2632 50065 INDEX ITEMP5
039026,000372: 21,2633 41700 CS LATVEL
039027,000373: 21,2634 00006 EXTEND
|
|
Page 898
|
039029,000375: 21,2635 62672 BZMF LASTNEGY +4
039030,000376: 21,2636 50065 LASTOK INDEX ITEMP5
039031,000377: 21,2637 11702 CCS TRAKLATV
039032,000378: 21,2640 12650 TCF LASTPOSY
039033,000379: 21,2641 12643 TCF +2
039034,000380: 21,2642 12666 TCF LASTNEGY
039035,000381: 21,2643 50065 INDEX ITEMP5
039036,000382: 21,2644 31700 CA LATVEL
039037,000383: 21,2645 00006 EXTEND
039038,000384: 21,2646 62674 BZMF NEGVMAXY
039039,000385: 21,2647 12657 TCF POSVMAXY
039040,000386: 21,2650 50065 LASTPOSY INDEX ITEMP5
039041,000387: 21,2651 31700 CA LATVEL
039042,000388: 21,2652 00006 EXTEND
039043,000389: 21,2653 62655 BZMF +2
039044,000390: 21,2654 12657 TCF POSVMAXY
039045,000391: 21,2655 42005 CS MAXVBITS
039046,000392: 21,2656 13000 TCF ZEROLSTY
039047,000393: 21,2657 50065 POSVMAXY INDEX ITEMP5
039048,000394: 21,2660 41676 CS LATVMETR
039049,000395: 21,2661 62005 AD MAXVBITS
039050,000396: 21,2662 50065 INDEX ITEMP5
039051,000397: 21,2663 56072 XCH RUPTREG3
039052,000398: 21,2664 34753 CAF ONE
039053,000399: 21,2665 13003 TCF ZEROLSTY +3
039054,000400: 21,2666 50065 LASTNEGY INDEX ITEMP5
039055,000401: 21,2667 31700 CA LATVEL
039056,000402: 21,2670 00006 EXTEND
039057,000403: 21,2671 62674 BZMF NEGVMAXY
039058,000404: 21,2672 32005 CA MAXVBITS
039059,000405: 21,2673 13000 TCF ZEROLSTY
039060,000406: 21,2674 50065 NEGVMAXY INDEX ITEMP5
039061,000407: 21,2675 31676 CA LATVMETR
039062,000408: 21,2676 62005 AD MAXVBITS
039063,000409: 21,2677 40000 COM
039064,000410: 21,2700 50065 INDEX ITEMP5
039065,000411: 21,2701 56072 XCH RUPTREG3
039066,000412: 21,2702 44753 CS ONE
039067,000413: 21,2703 13003 TCF ZEROLSTY +3
039068,000414: 21,2704 50065 LVLIMITS INDEX ITEMP5
039069,000415: 21,2705 11702 CCS TRAKLATV
039070,000416: 21,2706 12735 TCF LATVPOS
039071,000417: 21,2707 12711 TCF +2
039072,000418: 21,2710 12742 TCF LATVNEG
039073,000419: 21,2711 50065 INDEX ITEMP5
039074,000420: 21,2712 41676 CS LATVMETR
039075,000421: 21,2713 00006 EXTEND
039076,000422: 21,2714 62716 BZMF +2
039077,000423: 21,2715 12751 TCF NEGLMLV
039078,000424: 21,2716 50065 INDEX ITEMP5
|
|
Page 899
|
039080,000426: 21,2717 41700 CS LATVEL
039081,000427: 21,2720 00006 EXTEND
039082,000428: 21,2721 62774 BZMF LVMINLM
039083,000429: 21,2722 60066 AD ITEMP6
039084,000430: 21,2723 50065 INDEX ITEMP5
039085,000431: 21,2724 61676 AD LATVMETR
039086,000432: 21,2725 00006 EXTEND
039087,000433: 21,2726 62774 BZMF LVMINLM
039088,000434: 21,2727 50065 INDEX ITEMP5
039089,000435: 21,2730 61700 AD LATVEL
039090,000436: 21,2731 00006 EXTEND
039091,000437: 21,2732 50065 INDEX ITEMP5
039092,000438: 21,2733 61676 SU LATVMETR
039093,000439: 21,2734 13000 TCF ZEROLSTY
039094,000440: 21,2735 50065 LATVPOS INDEX ITEMP5
039095,000441: 21,2736 41700 CS LATVEL
039096,000442: 21,2737 00006 EXTEND
039097,000443: 21,2740 62774 BZMF LVMINLM
039098,000444: 21,2741 12746 TCF +5
039099,000445: 21,2742 50065 LATVNEG INDEX ITEMP5
039100,000446: 21,2743 31700 CA LATVEL
039101,000447: 21,2744 00006 EXTEND
039102,000448: 21,2745 62774 BZMF LVMINLM
039103,000449: 21,2746 50065 INDEX ITEMP5
039104,000450: 21,2747 41676 CS LATVMETR
039105,000451: 21,2750 13000 TCF ZEROLSTY
039106,000452: 21,2751 50065 NEGLMLV INDEX ITEMP5
039107,000453: 21,2752 31700 CA LATVEL
039108,000454: 21,2753 00006 EXTEND
039109,000455: 21,2754 62774 BZMF LVMINLM
039110,000456: 21,2755 32005 CA MAXVBITS
039111,000457: 21,2756 50065 INDEX ITEMP5
039112,000458: 21,2757 61676 AD LATVMETR
039113,000459: 21,2760 40000 COM
039114,000460: 21,2761 50065 INDEX ITEMP5
039115,000461: 21,2762 61700 AD LATVEL
039116,000462: 21,2763 00006 EXTEND
039117,000463: 21,2764 62774 BZMF LVMINLM
039118,000464: 21,2765 00006 EXTEND
039119,000465: 21,2766 50065 INDEX ITEMP5
039120,000466: 21,2767 61700 SU LATVEL
039121,000467: 21,2770 50065 INDEX ITEMP5
039122,000468: 21,2771 61676 AD LATVMETR
039123,000469: 21,2772 40000 COM
039124,000470: 21,2773 13000 TCF ZEROLSTY
039125,000471: 21,2774 50065 LVMINLM INDEX ITEMP5
039126,000472: 21,2775 41676 CS LATVMETR
039127,000473: 21,2776 50065 INDEX ITEMP5
039128,000474: 21,2777 61700 AD LATVEL
039129,000475: 21,3000 50065 ZEROLSTY INDEX ITEMP5
|
|
Page 900
|
039131,000477: 21,3001 56072 XCH RUPTREG3
039132,000478: 21,3002 34755 CAF ZERO
039133,000479: 21,3003 50065 INDEX ITEMP5
039134,000480: 21,3004 55702 TS TRAKLATV
039135,000481: 21,3005 50065 INDEX ITEMP5
039136,000482: 21,3006 30072 CA RUPTREG3
039137,000483: 21,3007 64754 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
039138,000484: 21,3010 50065 INDEX ITEMP5
039139,000485: 21,3011 54053 TS CDUTCMD
039140,000486: 21,3012 50065 INDEX ITEMP5
039141,000487: 21,3013 30072 CA RUPTREG3
039142,000488: 21,3014 50065 INDEX ITEMP5
039143,000489: 21,3015 27676 ADS LATVMETR
039144,000490: 21,3016 10065 CCS ITEMP5 # FIRST MONITOR FORWARD THEN LATERAL VEL.
039145,000491: 21,3017 12574 TCF VMONITOR
039146,000492:
039147,000493: 21,3020 34752 CAF BIT2 # CHECK TO SEE IF RR ERROR COUNTERS
039148,000494: 21,3021 00006 EXTEND # ARE ENABLED.
039149,000495: 21,3022 02012 RAND CHAN12
039150,000496: 21,3023 10000 CCS A # IF NOT.
039151,000497: 21,3024 13026 TCF +2
039152,000498: 21,3025 13035 TCF DISPRSET # RE-INITIALIZE LANDING ANALOG DISPLAYS
039153,000499:
039154,000500: 21,3026 35020 CAF BITSET # DRIVE THE X-POINTER DISPLAY.
039155,000501: 21,3027 00006 EXTEND
039156,000502: 21,3030 05014 WOR CHAN14
039157,000503: 21,3031 01714 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
039158,000504: 21,3032 34755 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
039159,000505: 21,3033 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
039160,000506: 21,3034 12244 TCF ZDATA2
039161,000507:
039162,000508: # ************************************************************************
039163,000509:
039164,000510: 21,3035 40074 DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
039165,000511: 21,3036 74752 MASK R10FLBIT
039166,000512: 21,3037 00006 EXTEND
039167,000513: 21,3040 13051 BZF ABORTON # NO.
039168,000514: 21,3041 34744 CAF BIT8 # YES.
039169,000515: 21,3042 71300 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
039170,000516: 21,3043 10000 CCS A
039171,000517: 21,3044 34752 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
039172,000518: 21,3045 64744 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
039173,000519: 21,3046 40000 COM
039174,000520: 21,3047 00006 EXTEND
039175,000521: 21,3050 03012 WAND CHAN12
039176,000522: 21,3051 43060 ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
039177,000523: 21,3052 71300 MASK IMODES33
039178,000524: 21,3053 55300 TS IMODES33
039179,000525: 21,3054 44736 CS DIDFLBIT
039180,000526: 21,3055 70075 MASK FLAGWRD1
039181,000527: 21,3056 54075 TS FLAGWRD1 # RESET DIDFLAG.
039182,000528: 21,3057 15272 TCF TASKOVER
039183,000529:
039184,000530: # ************************************************************************
039185,000531:
039186,000532: 21,3060 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
039187,000533: 21,3061 5020 BITSET = PRIO6
039188,000534:
039189,000535: # ************************************************************************
039190,000536:
|
|
Page 901
There is no source code on the original program listing.
|
039193,000539:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc