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