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