Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
039541,000002: ## Copyright: Public domain.
039542,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
039543,000004: ## Purpose: A section of Luminary revision 210.
039544,000005: ## It is part of the source code for the Lunar Module's (LM)
039545,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
039546,000007: ## This file is intended to be a faithful transcription, except
039547,000008: ## that the code format has been changed to conform to the
039548,000009: ## requirements of the yaYUL assembler rather than the
039549,000010: ## original YUL assembler.
039550,000011: ## Reference: pp. 895-904
039551,000012: ## Assembler: yaYUL
039552,000013: ## Contact: Ron Burkey <info@sandroid.org>.
039553,000014: ## Website: www.ibiblio.org/apollo/index.html
039554,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
039555,000016: ## 2016-11-27 HG Transcribed
039556,000017: ## 2016-12-12 HG Fix operannd modifier none -> +4
039557,000018: ## 2016-12-25 RSB Comment-text proofed using ProoferComments
039558,000019: ## and corrected errors found.
039559,000020:
![]() |
Page 895 |
039561,000022: 21,2170 BANK 21
039562,000023: 21,2000 SETLOC R10
039563,000024: 21,2000 BANK
039564,000025:
039565,000026: 21,2170 E7,1777 EBANK= END-E7
039566,000027: 21,2170 COUNT* $$/R10
039567,000028:
039568,000029: # ****************************************************************************************************************
039569,000030: # LANADISP: DISPLAY INERTIAL DATA ROUTINE FOR DESCENT AND ABORTS THIS VERSION BY EYLES
039570,000031: # ****************************************************************************************************************
039571,000032:
039572,000033: 21,2170 23722 LANADISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY
039573,000034: 21,2171 40025 CS TIME1
039574,000035: 21,2172 53055 DXCH TBASE2
039575,000036:
039576,000037: 21,2173 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
039577,000038: 21,2174 74732 MASK SWANDBIT
039578,000039: 21,2175 10000 CCS A
039579,000040: 21,2176 12654 TCF DISPRSET +1 # NO: GO RESET
039580,000041:
039581,000042: # ************************************************************************
039582,000043: # COMPUTE VELOCITY VECTOR
039583,000044: # ************************************************************************
039584,000045:
039585,000046: # DO EVERYTHING POSSIBLE BEFORE READING PIPAS.
039586,000047:
039587,000048: 21,2177 00006 EXTEND
039588,000049: 21,2200 41702 DCS VSURFACE
039589,000050: 21,2201 53721 DXCH VVECTX
039590,000051: 21,2202 00006 EXTEND
039591,000052: 21,2203 31527 DCA V
039592,000053: 21,2204 20001 DDOUBL
039593,000054: 21,2205 20001 DDOUBL
039594,000055: 21,2206 21721 DAS VVECTX
039595,000056:
039596,000057: 21,2207 00006 EXTEND
039597,000058: 21,2210 41704 DCS VSURFACE +2
039598,000059: 21,2211 53723 DXCH VVECTY
039599,000060: 21,2212 00006 EXTEND
039600,000061: 21,2213 31531 DCA V +2
039601,000062: 21,2214 20001 DDOUBL
039602,000063: 21,2215 20001 DDOUBL
039603,000064: 21,2216 21723 DAS VVECTY
039604,000065:
039605,000066: 21,2217 00006 EXTEND
039606,000067: 21,2220 41706 DCS VSURFACE +4
039607,000068: 21,2221 53725 DXCH VVECTZ
039608,000069: 21,2222 00006 EXTEND
039609,000070: 21,2223 31533 DCA V +4
039610,000071: 21,2224 20001 DDOUBL
039611,000072:
![]() |
Page 896 |
039613,000074: 21,2225 20001 DDOUBL
039614,000075: 21,2226 21725 DAS VVECTZ
039615,000076:
039616,000077: # COMPUTE TIME SINCE PIPTIME.
039617,000078:
039618,000079: 21,2227 41234 CS PIPTIME +1
039619,000080: 21,2230 60025 AD TIME1
039620,000081: 21,2231 64727 AD HALF
039621,000082: 21,2232 64727 AD HALF
039622,000083: 21,2233 57717 XCH DT # DT SINCE PIPTIME IN UNITS 0F 2(14) CS
039623,000084:
039624,000085: # ADD IN PIPA PULSES.
039625,000086:
039626,000087: 21,2234 31157 CA PIPATMPX
039627,000088: 21,2235 60037 AD PIPAX
039628,000089: 21,2236 00006 EXTEND
039629,000090: 21,2237 72000 MP LANAKPIP
039630,000091: 21,2240 21721 DAS VVECTX
039631,000092:
039632,000093: 21,2241 31160 CA PIPATMPY
039633,000094: 21,2242 60040 AD PIPAY
039634,000095: 21,2243 00006 EXTEND
039635,000096: 21,2244 72000 MP LANAKPIP
039636,000097: 21,2245 21723 DAS VVECTY
039637,000098:
039638,000099: 21,2246 31161 CA PIPATMPZ
039639,000100: 21,2247 60041 AD PIPAZ
039640,000101: 21,2250 00006 EXTEND
039641,000102: 21,2251 72000 MP LANAKPIP
039642,000103: 21,2252 21725 QUARDUMP DAS VVECTZ # TAG IS FOR EDITS
039643,000104:
039644,000105: # FINALLY, ADD IN CONTRIBUTIONS OF GRAVITY AND PIPA BIAS.
039645,000106:
039646,000107: 21,2253 31676 CA G-VBIASX # G-VBIASX IS IN UNITS OF 2(-9) M/CS/CS
039647,000108: 21,2254 00006 EXTEND
039648,000109: 21,2255 71717 MP DT
039649,000110: 21,2256 21721 DAS VVECTX # VVECTX IN UNITS OF 2(5) M/CS
039650,000111:
039651,000112: 21,2257 31677 CA G-VBIASY # G-VBIASY IS IN UNITS OF 2(-9) M/CS/CS
039652,000113: 21,2260 00006 EXTEND
039653,000114: 21,2261 71717 MP DT
039654,000115: 21,2262 21723 DAS VVECTY # VVECTY IN UNITS OF 2(5) M/CS
039655,000116:
039656,000117: 21,2263 31700 CA G-VBIASZ # G-VBIASZ IS IN UNITS OF 2(-9) M/CS/CS
039657,000118: 21,2264 00006 EXTEND
039658,000119: 21,2265 71717 MP DT
039659,000120: 21,2266 21725 DAS VVECTZ # VVECTZ IN UNITS OF 2(5) M/CS
039660,000121:
039661,000122: # ************************************************************************
039662,000123: # COMPUTE ALTITUDE AND ALTITUDE-RATE
039663,000124:
![]() |
Page 897 |
039665,000126: # ************************************************************************
039666,000127: 21,2267 31714 ALTSTUFF CA RUNITX # COMPUTE RADIAL VELOCITY
039667,000128: 21,2270 00006 EXTEND
039668,000129: 21,2271 71720 MP VVECTX
039669,000130: 21,2272 53727 DXCH ALTRATE
039670,000131: 21,2273 31714 CA RUNITX # COMPUTE THE MORE SENSITIVE TERM IN DP
039671,000132: 21,2274 00006 EXTEND
039672,000133: 21,2275 71721 MP VVECTX +1
039673,000134: 21,2276 54001 TS L
039674,000135: 21,2277 34746 CAF ZERO
039675,000136: 21,2300 21727 DAS ALTRATE
039676,000137: 21,2301 31715 CA RUNITY # NOTE: WITH NORMAL DESCENT IMU ALIGNMENT
039677,000138: 21,2302 00006 EXTEND # THIS TERM IS ALWAYS ZERO, BUT ALTRATE
039678,000139: 21,2303 71722 MP VVECTY # CAN BE DISPLAYED DURING ASCENT TOO
039679,000140: 21,2304 21727 DAS ALTRATE
039680,000141: 21,2305 31716 CA RUNITZ
039681,000142: 21,2306 00006 EXTEND
039682,000143: 21,2307 71724 MP VVECTZ
039683,000144: 21,2310 21727 DAS ALTRATE
039684,000145:
039685,000146: 21,2311 31713 CA DALTRATE # COMPENSATE FOR CHANGE IN DIRECTION OF R
039686,000147: 21,2312 00006 EXTEND
039687,000148: 21,2313 71717 MP DT
039688,000149: 21,2314 21727 DAS ALTRATE # ALTRATE IN UNITS OF 2(5) M/CS
039689,000150:
039690,000151: 21,2315 00006 EXTEND
039691,000152: 21,2316 31727 DCA ALTRATE
039692,000153: 21,2317 52064 DXCH ALTRTEMP
039693,000154: 21,2320 00006 EXTEND
039694,000155: 21,2321 31712 DCA HDOTLAD
039695,000156: 21,2322 20064 DAS ALTRTEMP # AVERAGE ALTRATE IN UNITS OF 2(4) M/CS
039696,000157:
039697,000158: # THE FOLLOWING COMPUTATION FAILS IF DT EXCEEDS 20.47 SECONDS (UNLIKELY).
039698,000159:
039699,000160: 21,2323 31717 CA DT
039700,000161: 21,2324 00006 EXTEND
039701,000162: 21,2325 74741 MP BIT4
039702,000163: 21,2326 30001 CA L # FETCH DT FROM L IN UNITS OF 2(11) CS
039703,000164: 21,2327 00006 EXTEND
039704,000165: 21,2330 70063 MP ALTRTEMP
039705,000166: 21,2331 53731 DXCH ALTITUDE
039706,000167: 21,2332 00006 EXTEND
039707,000168: 21,2333 31710 DCA HCALCLAD
039708,000169: 21,2334 21731 DAS ALTITUDE # ALTITUDE IN UNITS OF 2(15) METERS
039709,000170:
039710,000171: # ************************************************************************
039711,000172: # SEND OUT ALTITUDE-RATE IF POSSIBLE
039712,000173: # ************************************************************************
039713,000174:
![]() |
Page 898 |
039715,000176: 21,2335 40075 CS FLAGWRD1 # IS INITIALIZATION IN ORDER?
039716,000177: 21,2336 74727 MASK DIDFLBIT
039717,000178: 21,2337 10000 CCS A
039718,000179: 21,2340 12626 TCF DISPINIT # YES: THEN GO DO IT
039719,000180:
039720,000181: 21,2341 34743 CAF BIT2 # NO: ARE RR ERROR COUNTERS ENABLED?
039721,000182: 21,2342 00006 EXTEND
039722,000183: 21,2343 02012 RAND CHAN12
039723,000184: 21,2344 00006 EXTEND
039724,000185: 21,2345 12653 BZF DISPRSET # NO: REINITIALIZE DISPLAYS
039725,000186: 21,2346 00006 ALTRROUT EXTEND # YES: SIGNIFY ALTITUDE-RATE (BIT2 IN A)
039726,000187: 21,2347 05014 WOR CHAN14
039727,000188:
039728,000189: 21,2350 00006 EXTEND
039729,000190: 21,2351 31727 DCA ALTRATE
039730,000191: 21,2352 20001 DDOUBL # RESCALE ALTRATE TO UNITS OF 2(2) M/CS
039731,000192: 21,2353 20001 DDOUBL
039732,000193: 21,2354 20001 DDOUBL
039733,000194: 21,2355 00006 EXTEND
039734,000195: 21,2356 72004 MP ALTRCONV # RESCALE TO UNITS OF .5 F/S/BIT
039735,000196:
039736,000197: 21,2357 56001 XCH L # ROUND TO NEAREST .5 F/S
039737,000198: 21,2360 60000 DOUBLE
039738,000199: 21,2361 54002 TS Q
039739,000200: 21,2362 34746 CAF ZERO
039740,000201: 21,2363 26001 ADS L
039741,000202:
039742,000203: 21,2364 64726 AD NEGMAX
039743,000204: 21,2365 54001 TS L
039744,000205: 21,2366 12371 TCF +3
039745,000206: 21,2367 60001 AD L
039746,000207: 21,2370 40000 COM
039747,000208: 21,2371 56060 +3 XCH ALTM
039748,000209:
039749,000210: 21,2372 34742 CAF BIT3
039750,000211: 21,2373 00006 EXTEND
039751,000212: 21,2374 05014 WOR CHAN14
039752,000213:
039753,000214: 21,2375 35745 CA TWELVE # DELAY 120 MS FOR DATA OUTPUT
039754,000215: # NOTE - THIS DELAY MUST BE GREATER THAN
039755,000216: # 100 MS FOR COMPATIBILITY WITH THE LMS
039756,000217: 21,2376 05226 TC VARDELAY
039757,000218:
039758,000219: 21,2377 44743 ALTROUT CS BIT2 # SIGNIFY ALTITUDE
039759,000220: 21,2400 00006 EXTEND
039760,000221: 21,2401 03014 WAND CHAN14
039761,000222:
039762,000223: 21,2402 31731 CA ALTITUDE +1
039763,000224: 21,2403 00006 EXTEND
039764,000225: 21,2404 72005 MP ALTCONV
039765,000226:
![]() |
Page 899 |
039767,000228: 21,2405 54001 TS L
039768,000229: 21,2406 34746 CAF ZERO
039769,000230: 21,2407 52064 DXCH ALTTEMP
039770,000231: 21,2410 31730 CA ALTITUDE
039771,000232: 21,2411 00006 EXTEND
039772,000233: 21,2412 72005 MP ALTCONV
039773,000234: 21,2413 20064 DAS ALTTEMP # ALTITUDE IN UNITS OF 9.380 FEET/BIT
039774,000235:
039775,000236: 21,2414 52064 DXCH ALTTEMP
039776,000237: 21,2415 20001 DDOUBL
039777,000238: 21,2416 20001 DDOUBL # RESCALE TO UNITS OF 2.345 FEET/BIT
039778,000239: 21,2417 54000 OVSK
039779,000240: 21,2420 12424 TCF +4 # NO OVERFLOW: -38420 < ALTITUDE < +38420
039780,000241:
039781,000242: 21,2421 74724 MASK POSMAX # RESET OVERFLOW
039782,000243: 21,2422 64726 AD BIT15
039783,000244: 21,2423 12430 TCF +5
039784,000245:
039785,000246: 21,2424 10000 +4 CCS A # APPLY LOWER LIMIT OF POSITIVE ZERO
039786,000247: 21,2425 64744 AD ONE
039787,000248: 21,2426 12430 TCF +2
039788,000249: 21,2427 34746 CAF ZERO
039789,000250:
039790,000251: 21,2430 56060 +5 XCH ALTM
039791,000252: 21,2431 34742 CAF BIT3
039792,000253: 21,2432 00006 EXTEND
039793,000254: 21,2433 05014 WOR CHAN14
039794,000255:
039795,000256: # ************************************************************************
039796,000257: # SEND OUT FORWARD AND LATERAL VELOCITIES
039797,000258: # ************************************************************************
039798,000259:
039799,000260: 21,2434 02513 TC CROSCOMP # FIRST CALL SUBROUTINE TO COMPUTE THEM
039800,000261:
039801,000262: 21,2435 34733 CAF BIT10 # 1/32 TO ITEMP2 FOR USE AS DIVISOR BELOW
039802,000263: 21,2436 54062 TS ITEMP2
039803,000264:
039804,000265: 21,2437 32001 CAF MAXVEL # LIMIT COMMAND TO 198.645 F/S
039805,000266: 21,2440 22070 LXCH FORVTEMP
039806,000267: 21,2441 02673 TC LADLIMIT
039807,000268: 21,2442 22071 LXCH FORVTEMP +1
039808,000269: 21,2443 00006 EXTEND # RESCALE TO UNITS OF ONE M/CS
039809,000270: 21,2444 10062 DV ITEMP2
039810,000271: 21,2445 00006 EXTEND # RESCALE TO UNITS OF .5571 F/S/BIT
039811,000272: 21,2446 72003 MP VELCONV
039812,000273: 21,2447 56001 XCH L # ROUND TO NEAREST .5571 F/S
039813,000274: 21,2450 60000 DOUBLE
039814,000275: 21,2451 54002 TS Q
039815,000276: 21,2452 12454 TCF FORVOUT
039816,000277: 21,2453 26001 ADS L
039817,000278:
![]() |
Page 900 |
039819,000280: 21,2454 41733 FORVOUT CS FORVMETR # SUBTRACT METER INDICATOR TO GET CHANGE
039820,000281: 21,2455 26001 ADS L
039821,000282: 21,2456 32002 CA MAXDBITS
039822,000283: 21,2457 02673 TC LADLIMIT # LIMIT CHANGE TO ABOUT 300 F/S
039823,000284: 21,2460 64745 AD NEG0
039824,000285: 21,2461 54054 TS CDUSCMD
039825,000286: 21,2462 27733 ADS FORVMETR # UPDATE METER INDICATOR
039826,000287:
039827,000288: 21,2463 32001 CAF MAXVEL # LIMIT COMMAND TO 198.645 F/S
039828,000289: 21,2464 22072 LXCH LATVEL
039829,000290: 21,2465 02673 TC LADLIMIT
039830,000291: 21,2466 22073 LXCH LATVEL +1
039831,000292: 21,2467 00006 EXTEND # RESCALE TO UNITS OF ONE M/CS
039832,000293: 21,2470 10062 DV ITEMP2
039833,000294: 21,2471 00006 EXTEND # RESCALE TO UNITS OF .5571 F/S/BIT
039834,000295: 21,2472 72003 MP VELCONV
039835,000296: 21,2473 56001 XCH L # ROUND TO NEAREST .5571 F/S
039836,000297: 21,2474 60000 DOUBLE
039837,000298: 21,2475 54002 TS Q
039838,000299: 21,2476 12500 TCF LATVOUT
039839,000300: 21,2477 26001 ADS L
039840,000301: 21,2500 41732 LATVOUT CS LATVMETR # SUBTRACT METER INDICATOR TO GET CHANGE
039841,000302: 21,2501 26001 ADS L
039842,000303: 21,2502 32002 CAF MAXDBITS
039843,000304: 21,2503 02673 TC LADLIMIT # LIMIT CHANGE TO ABOUT 300 F/S
039844,000305: 21,2504 64745 AD NEG0
039845,000306: 21,2505 54053 TS CDUTCMD
039846,000307: 21,2506 27732 ADS LATVMETR # UPDATE METER INDICATOR
039847,000308:
039848,000309: 21,2507 35011 CAF BITSET # SET DRIVE BITS
039849,000310: 21,2510 00006 EXTEND
039850,000311: 21,2511 05014 WOR CHAN14
039851,000312:
039852,000313: 21,2512 05263 LANADEND TC TASKOVER
039853,000314:
039854,000315: # ************************************************************************
039855,000316: # SUBROUTINE TO COMPUTE FORWARD AND LATERAL VELOCITIES
039856,000317: # ************************************************************************
039857,000318:
039858,000319: # THE SCALARS VHY AND VHZ, COMPUTED NEXT, ARE THE VELOCITIES ALONG UNIT VECTORS UHYP AND UHZP. UHYP NORMAL
039859,000320: # TO THE PRE-PDI ORBITAL PLANE, UHZP IN TURN NORMAL TO UHYP AND THE POSITION VECTOR. NOW SINCE FOR THE "LANDING
039860,000321: # ALIGNMENT" OF THE IMU THE STABLE-MEMBER Y-AXIS IS DEFINED THE SAME WAY AS UHYP, VVECTY IS PRECISELY VHY.
039861,000322: # FURTHERMORE, THE Y-TERM OF THE VHZ COMPUTATION DROPS OUT, AND THE FOLLOWING USEFUL EQUALITIES BECOME TRUE:
039862,000323: # UHZPX = - RUNITZ AND UHZPZ = RUNITX. DRAW A PICTURE TO BE CONVINCED.
039863,000324:
039864,000325: # NOTE THAT IN THIS VERSION CROSS-POINTER DISPLAYS ARE OUTPUT DURING ASCENT AND ABORTS AS WELL AS DESCENT.
039865,000326:
039866,000327: 21,2513 40074 CROSCOMP CS FLAGWRD0 # IS R10FLAG SET TO INDICATE ASCENT?
039867,000328: 21,2514 74743 MASK R10FLBIT
039868,000329: 21,2515 00006 EXTEND
039869,000330:
![]() |
Page 901 |
039871,000332: 21,2516 12615 BZF APSLAD # YES: DISPLAY LATVEL IN INERTIAL AXES
039872,000333:
039873,000334: 21,2517 41716 CS RUNITZ # NO: COMPUTE DOWNRANGE VELOCITY
039874,000335: 21,2520 00006 EXTEND
039875,000336: 21,2521 71720 MP VVECTX
039876,000337: 21,2522 52066 DXCH VHZ
039877,000338: 21,2523 31714 CA RUNITX
039878,000339: 21,2524 00006 EXTEND
039879,000340: 21,2525 71724 MP VVECTZ
039880,000341: 21,2526 20066 DAS VHZ
039881,000342: 21,2527 31714 CA RUNITX # COMPUTE THE MORE SENSITIVE TERM IN DP
039882,000343: 21,2530 00006 EXTEND
039883,000344: 21,2531 71725 MP VVECTZ +1
039884,000345: 21,2532 54001 TS L
039885,000346: 21,2533 34746 CAF ZERO
039886,000347: 21,2534 20066 DAS VHZ # VHZ IN UNITS OF 2(5) M/CS
039887,000348:
039888,000349: 21,2535 00006 EXTEND
039889,000350: 21,2536 31723 DCA VVECTY
039890,000351: 21,2537 52064 DXCH VHY # VHY IN UNITS OF 2(5) M/CS
039891,000352:
039892,000353: 21,2540 35006 CAF EBANK6 # SWITCH TO DAP EBANK
039893,000354: 21,2541 54003 TS EBANK
039894,000355: 21,2542 E6,1417 EBANK= M22
039895,000356:
039896,000357: 21,2542 31420 CA M32 # COS(AOG)
039897,000358: 21,2543 00006 EXTEND
039898,000359: 21,2544 70065 MP VHZ
039899,000360: 21,2545 52071 DXCH FORVTEMP
039900,000361: 21,2546 41417 CS M22 # SIN(AOG)
039901,000362: 21,2547 00006 EXTEND
039902,000363: 21,2550 70063 MP VHY
039903,000364: 21,2551 20071 DAS FORVTEMP
039904,000365:
039905,000366: 21,2552 31420 CA M32 # COS(AOG)
039906,000367: 21,2553 00006 EXTEND
039907,000368: 21,2554 70066 MP VHZ +1
039908,000369: 21,2555 54062 TS ITEMP2
039909,000370: 21,2556 41417 CS M22 # SIN(AOG)
039910,000371: 21,2557 00006 EXTEND
039911,000372: 21,2560 70064 MP VHY +1
039912,000373: 21,2561 60062 AD ITEMP2
039913,000374: 21,2562 54001 TS L
039914,000375: 21,2563 34746 CAF ZERO
039915,000376: 21,2564 20071 DAS FORVTEMP # FORWARD VELOCITY IN UNITS OF 2(5) M/CS
039916,000377:
039917,000378: 21,2565 31417 CA M22 # SIN(AOG)
039918,000379: 21,2566 00006 EXTEND
039919,000380: 21,2567 70065 MP VHZ
039920,000381: 21,2570 52073 DXCH LATVEL
039921,000382:
![]() |
Page 902 |
039923,000384: 21,2571 31420 CA M32 # COS(AOG)
039924,000385: 21,2572 00006 EXTEND
039925,000386: 21,2573 70063 MP VHY
039926,000387: 21,2574 20073 DAS LATVEL
039927,000388:
039928,000389: 21,2575 31417 CA M22 # SIN(AOG)
039929,000390: 21,2576 00006 EXTEND
039930,000391: 21,2577 70066 MP VHZ +1
039931,000392: 21,2600 54062 TS ITEMP2
039932,000393: 21,2601 31420 CA M32 # COS(AOG)
039933,000394: 21,2602 00006 EXTEND
039934,000395: 21,2603 70064 MP VHY +1
039935,000396: 21,2604 60062 AD ITEMP2
039936,000397: 21,2605 54001 TS L
039937,000398: 21,2606 34746 CAF ZERO
039938,000399: 21,2607 20073 DAS LATVEL # LATERAL VELOCITY IN UNITS OF 2(5) M/CS
039939,000400:
039940,000401: 21,2610 24006 INCR BBANK # RETURN TO SERVICER EBANK
039941,000402: 21,2611 E7,1711 EBANK= HDOTLAD
039942,000403:
039943,000404: 21,2611 00006 CROSSOUT EXTEND # MOVE FORVTEMP TO FORVEL FOR DSKY DISPLAY
039944,000405: 21,2612 30071 DCA FORVTEMP
039945,000406: 21,2613 53735 DXCH FORVEL
039946,000407:
039947,000408: 21,2614 00002 TC Q
039948,000409:
039949,000410: 21,2615 54070 APSLAD TS FORVTEMP # DURING ASCENT AND ABORTS COME HERE TO
039950,000411: 21,2616 54071 TS FORVTEMP +1 # DISPLAY LATVEL = SM Y-AXIS VELOCITY
039951,000412:
039952,000413: 21,2617 00006 EXTEND
039953,000414: 21,2620 31723 DCA VVECTY
039954,000415: 21,2621 52073 DXCH LATVEL
039955,000416: 21,2622 00006 EXTEND # ADD SURFACE VELOCITY BACK IN SO APS
039956,000417: 21,2623 31704 DCA VSURFACE +2 # LATVEL DISPLAY WILL BE IN TRUE
039957,000418: 21,2624 20073 DAS LATVEL # STABLE-MEMBER COORDINATES
039958,000419:
039959,000420: 21,2625 12611 TCF CROSSOUT # REJOIN THE MAINSTREAM
039960,000421:
039961,000422: # ************************************************************************
039962,000423: # LANDING ANALOG DISPLAYS INITIALIZATION
039963,000424: # ************************************************************************
039964,000425:
039965,000426: 21,2626 02513 DISPINIT TC CROSCOMP # FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
039966,000427:
039967,000428: 21,2627 40075 CS FLAGWRD1 # SET DIDFLAG
039968,000429: 21,2630 74727 MASK DIDFLBIT
039969,000430: 21,2631 26075 ADS FLAGWRD1
039970,000431:
039971,000432: 21,2632 34735 CAF BIT8 # SET DISPLAY INERTIAL DATA OUTBIT
039972,000433: 21,2633 00006 EXTEND
039973,000434:
![]() |
Page 903 |
039975,000436: 21,2634 05012 WOR CHAN12
039976,000437:
039977,000438: 21,2635 44746 CS ZERO # ZERO METER INDICATORS
039978,000439: 21,2636 55732 TS LATVMETR
039979,000440: 21,2637 55733 TS FORVMETR
039980,000441:
039981,000442: 21,2640 34741 CAF BIT4 # SET UP TASK TO FINISH INITIALIZATION
039982,000443: 21,2641 05175 TC TWIDDLE
039983,000444: 21,2642 02644 ADRES INTLZE
039984,000445: 21,2643 12512 TCF LANADEND
039985,000446:
039986,000447: 21,2644 34743 INTLZE CAF BIT2 # ENABLE RR ERROR COUNTER
039987,000448: 21,2645 00006 EXTEND
039988,000449: 21,2646 05012 WOR CHAN12
039989,000450:
039990,000451: 21,2647 41300 CS IMODES33 # SET INERTIAL DATA FLAG
039991,000452: 21,2650 74735 MASK BIT8
039992,000453: 21,2651 27300 ADS IMODES33
039993,000454: 21,2652 05263 TC TASKOVER
039994,000455:
039995,000456: # ************************************************************************
039996,000457: # LANDING ANALOG DISPLAYS RESET ROUTINE
039997,000458: # ************************************************************************
039998,000459:
039999,000460: 21,2653 02513 DISPRSET TC CROSCOMP # FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
040000,000461:
040001,000462: 21,2654 44727 +1 CS DIDFLBIT # RESET DIDFLAG
040002,000463: 21,2655 70075 MASK FLAGWRD1
040003,000464: 21,2656 54075 TS FLAGWRD1
040004,000465:
040005,000466: 21,2657 34735 CAF BIT8 # WAS INERTIAL DATA JUST DISPLAYED?
040006,000467: 21,2660 71300 MASK IMODES33
040007,000468: 21,2661 10000 CCS A
040008,000469: 21,2662 34743 CAF BIT2 # YES: DISABLE RR ERROR COUNTER AND
040009,000470: 21,2663 64735 AD BIT8 # NO: RESET DISPLAY INERTIAL DATA OUTBIT
040010,000471: 21,2664 40000 COM
040011,000472: 21,2665 00006 EXTEND
040012,000473: 21,2666 03012 WAND CHAN12
040013,000474:
040014,000475: 21,2667 44735 CS BIT8
040015,000476: 21,2670 71300 MASK IMODES33
040016,000477: 21,2671 55300 TS IMODES33
040017,000478: 21,2672 12512 TCF LANADEND
040018,000479:
040019,000480: # ************************************************************************
040020,000481: # CONSTANTS FOR LANDING ANALOG DISPLAYS
040021,000482: # ************************************************************************
040022,000483:
040023,000484: # CONSTANTS ON A-CARDS ARE FOUND IN THE CONTROLLED CONSTANTS SECTION
040024,000485:
![]() |
Page 904 |
040026,000487: # LANAKPIP DEC .0512 SCALES PIPAS TO UNITS OF 2(5) M/CS
040027,000488:
040028,000489: # MAXVEL OCT 00466 A98.645 F/S IN UNITS OF 2(5) M/CS
040029,000490:
040030,000491: # MAXDBITS OCT 01034 ABOUT 300 F/S
040031,000492:
040032,000493: # VELCONV DEC .03594 SCALES VEL AT ONE M/CS TO .5571 F/S/BIT
040033,000494:
040034,000495: # ALTRCONV DEC .16020 SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
040035,000496:
040036,000497: # ALTCONV DEC .69954 SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
040037,000498:
040038,000499: 21,2673 5011 BITSET = PRIO6 # CROSS-POINTER DRIVE BITS
040039,000500:
040040,000501: # ************************************************************************
040041,000502: # SUBROUTINES
040042,000503: # ************************************************************************
040043,000504: 21,2673 54061 LADLIMIT TS ITEMP1
040044,000505: 21,2674 34746 CAF ZERO
040045,000506: 21,2675 00006 EXTEND
040046,000507: 21,2676 10061 DV ITEMP1
040047,000508: 21,2677 10000 CCS A
040048,000509: 21,2700 22061 LXCH ITEMP1
040049,000510: 21,2701 12703 TCF +2
040050,000511: 21,2702 12705 TCF +3
040051,000512: 21,2703 30001 CA L
040052,000513: 21,2704 00002 TC Q
040053,000514: 21,2705 40061 CS ITEMP1
040054,000515: 21,2706 00002 TC Q
040055,000516:
040056,000517: # ************************************************************************
040057,000518: # THE END OF THE LANDING ANALOG DISPLAYS
040058,000519: # ************************************************************************
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc