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