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