Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. 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 178 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.
|
038759,000002: ## Copyright: Public domain.
038760,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
038761,000004: ## Purpose: A section of Luminary revision 178.
038762,000005: ## It is part of the reconstructed source code for the final
038763,000006: ## release of the flight software for the Lunar Module's
038764,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
038765,000008: ## code has been recreated from copies of Zerlina 56, Luminary
038766,000009: ## 210, and Luminary 131, as well as many Luminary memos.
038767,000010: ## It has been adapted such that the resulting bugger words
038768,000011: ## exactly match those specified for Luminary 178 in NASA
038769,000012: ## drawing 2021152N, which gives relatively high confidence
038770,000013: ## that the reconstruction is correct.
038771,000014: ## Reference: pp. 890-898
038772,000015: ## Assembler: yaYUL
038773,000016: ## Contact: Ron Burkey <info@sandroid.org>.
038774,000017: ## Website: www.ibiblio.org/apollo/index.html
038775,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
038776,000019: ## 2019-09-14 MAS Re-based on Luminary 210. Restored check
038777,000020: ## of channel 30 bit 6 at LANACONT.
038778,000021:
|
|
Page 895
|
038780,000023: 21,2130 BANK 21
038781,000024: 21,2000 SETLOC R10
038782,000025: 21,2000 BANK
038783,000026:
038784,000027: 21,2130 E7,1777 EBANK= END-E7
038785,000028: 21,2130 COUNT* $$/R10
038786,000029:
038787,000030: # ****************************************************************************************************************
038788,000031: # LANADISP: DISPLAY INERTIAL DATA ROUTINE FOR DESCENT AND ABORTS THIS VERSION BY EYLES
038789,000032: # ****************************************************************************************************************
038790,000033:
038791,000034: 21,2130 23722 LANADISP LXCH PIPCTR1 # UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY
038792,000035: 21,2131 40025 CS TIME1
038793,000036: 21,2132 53055 DXCH TBASE2
038794,000037:
038795,000038: 21,2133 40103 CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
038796,000039: 21,2134 74741 MASK SWANDBIT
038797,000040: 21,2135 10000 CCS A
038798,000041: 21,2136 12621 TCF DISPRSET +1 # NO: GO RESET
038799,000042:
038800,000043: # ************************************************************************
038801,000044: # COMPUTE VELOCITY VECTOR
038802,000045: # ************************************************************************
038803,000046:
038804,000047: # DO EVERYTHING POSSIBLE BEFORE READING PIPAS.
038805,000048:
038806,000049: 21,2137 00006 EXTEND
038807,000050: 21,2140 41702 DCS VSURFACE
038808,000051: 21,2141 53721 DXCH VVECTX
038809,000052: 21,2142 00006 EXTEND
038810,000053: 21,2143 31527 DCA V
038811,000054: 21,2144 20001 DDOUBL
038812,000055: 21,2145 20001 DDOUBL
038813,000056: 21,2146 21721 DAS VVECTX
038814,000057:
038815,000058: 21,2147 00006 EXTEND
038816,000059: 21,2150 41704 DCS VSURFACE +2
038817,000060: 21,2151 53723 DXCH VVECTY
038818,000061: 21,2152 00006 EXTEND
038819,000062: 21,2153 31531 DCA V +2
038820,000063: 21,2154 20001 DDOUBL
038821,000064: 21,2155 20001 DDOUBL
038822,000065: 21,2156 21723 DAS VVECTY
038823,000066:
038824,000067: 21,2157 00006 EXTEND
038825,000068: 21,2160 41706 DCS VSURFACE +4
038826,000069: 21,2161 53725 DXCH VVECTZ
038827,000070: 21,2162 00006 EXTEND
038828,000071: 21,2163 31533 DCA V +4
038829,000072: 21,2164 20001 DDOUBL
038830,000073:
|
|
Page 896
|
038832,000075: 21,2165 20001 DDOUBL
038833,000076: 21,2166 21725 DAS VVECTZ
038834,000077:
038835,000078: # COMPUTE TIME SINCE PIPTIME.
038836,000079:
038837,000080: 21,2167 41234 CS PIPTIME +1
038838,000081: 21,2170 60025 AD TIME1
038839,000082: 21,2171 64736 AD HALF
038840,000083: 21,2172 64736 AD HALF
038841,000084: 21,2173 57717 XCH DT # DT SINCE PIPTIME IN UNITS 0F 2(14) CS
038842,000085:
038843,000086: # ADD IN PIPA PULSES.
038844,000087:
038845,000088: 21,2174 31157 CA PIPATMPX
038846,000089: 21,2175 60037 AD PIPAX
038847,000090: 21,2176 00006 EXTEND
038848,000091: 21,2177 72000 MP LANAKPIP
038849,000092: 21,2200 21721 DAS VVECTX
038850,000093:
038851,000094: 21,2201 31160 CA PIPATMPY
038852,000095: 21,2202 60040 AD PIPAY
038853,000096: 21,2203 00006 EXTEND
038854,000097: 21,2204 72000 MP LANAKPIP
038855,000098: 21,2205 21723 DAS VVECTY
038856,000099:
038857,000100: 21,2206 31161 CA PIPATMPZ
038858,000101: 21,2207 60041 AD PIPAZ
038859,000102: 21,2210 00006 EXTEND
038860,000103: 21,2211 72000 MP LANAKPIP
038861,000104: 21,2212 21725 QUARDUMP DAS VVECTZ # TAG IS FOR EDITS
038862,000105:
038863,000106: # FINALLY, ADD IN CONTRIBUTIONS OF GRAVITY AND PIPA BIAS.
038864,000107:
038865,000108: 21,2213 31676 CA G-VBIASX # G-VBIASX IS IN UNITS OF 2(-9) M/CS/CS
038866,000109: 21,2214 00006 EXTEND
038867,000110: 21,2215 71717 MP DT
038868,000111: 21,2216 21721 DAS VVECTX # VVECTX IN UNITS OF 2(5) M/CS
038869,000112:
038870,000113: 21,2217 31677 CA G-VBIASY # G-VBIASY IS IN UNITS OF 2(-9) M/CS/CS
038871,000114: 21,2220 00006 EXTEND
038872,000115: 21,2221 71717 MP DT
038873,000116: 21,2222 21723 DAS VVECTY # VVECTY IN UNITS OF 2(5) M/CS
038874,000117:
038875,000118: 21,2223 31700 CA G-VBIASZ # G-VBIASZ IS IN UNITS OF 2(-9) M/CS/CS
038876,000119: 21,2224 00006 EXTEND
038877,000120: 21,2225 71717 MP DT
038878,000121: 21,2226 21725 DAS VVECTZ # VVECTZ IN UNITS OF 2(5) M/CS
038879,000122:
038880,000123: # ************************************************************************
038881,000124: # COMPUTE ALTITUDE AND ALTITUDE-RATE
038882,000125:
|
|
Page 897
|
038884,000127: # ************************************************************************
038885,000128: 21,2227 31714 ALTSTUFF CA RUNITX # COMPUTE RADIAL VELOCITY
038886,000129: 21,2230 00006 EXTEND
038887,000130: 21,2231 71720 MP VVECTX
038888,000131: 21,2232 53727 DXCH ALTRATE
038889,000132: 21,2233 31714 CA RUNITX # COMPUTE THE MORE SENSITIVE TERM IN DP
038890,000133: 21,2234 00006 EXTEND
038891,000134: 21,2235 71721 MP VVECTX +1
038892,000135: 21,2236 54001 TS L
038893,000136: 21,2237 34755 CAF ZERO
038894,000137: 21,2240 21727 DAS ALTRATE
038895,000138: 21,2241 31715 CA RUNITY # NOTE: WITH NORMAL DESCENT IMU ALIGNMENT
038896,000139: 21,2242 00006 EXTEND # THIS TERM IS ALWAYS ZERO, BUT ALTRATE
038897,000140: 21,2243 71722 MP VVECTY # CAN BE DISPLAYED DURING ASCENT TOO
038898,000141: 21,2244 21727 DAS ALTRATE
038899,000142: 21,2245 31716 CA RUNITZ
038900,000143: 21,2246 00006 EXTEND
038901,000144: 21,2247 71724 MP VVECTZ
038902,000145: 21,2250 21727 DAS ALTRATE
038903,000146:
038904,000147: 21,2251 31713 CA DALTRATE # COMPENSATE FOR CHANGE IN DIRECTION OF R
038905,000148: 21,2252 00006 EXTEND
038906,000149: 21,2253 71717 MP DT
038907,000150: 21,2254 21727 DAS ALTRATE # ALTRATE IN UNITS OF 2(5) M/CS
038908,000151:
038909,000152: 21,2255 00006 EXTEND
038910,000153: 21,2256 31727 DCA ALTRATE
038911,000154: 21,2257 52064 DXCH ALTRTEMP
038912,000155: 21,2260 00006 EXTEND
038913,000156: 21,2261 31712 DCA HDOTLAD
038914,000157: 21,2262 20064 DAS ALTRTEMP # AVERAGE ALTRATE IN UNITS OF 2(4) M/CS
038915,000158:
038916,000159: # THE FOLLOWING COMPUTATION FAILS IF DT EXCEEDS 20.47 SECONDS (UNLIKELY).
038917,000160:
038918,000161: 21,2263 31717 CA DT
038919,000162: 21,2264 00006 EXTEND
038920,000163: 21,2265 74750 MP BIT4
038921,000164: 21,2266 30001 CA L # FETCH DT FROM L IN UNITS OF 2(11) CS
038922,000165: 21,2267 00006 EXTEND
038923,000166: 21,2270 70063 MP ALTRTEMP
038924,000167: 21,2271 53731 DXCH ALTITUDE
038925,000168: 21,2272 00006 EXTEND
038926,000169: 21,2273 31710 DCA HCALCLAD
038927,000170: 21,2274 21731 DAS ALTITUDE # ALTITUDE IN UNITS OF 2(15) METERS
038928,000171:
038929,000172: # ************************************************************************
038930,000173: # SEND OUT ALTITUDE-RATE IF POSSIBLE
038931,000174: # ************************************************************************
038932,000175:
|
|
Page 898
|
038934,000177: 21,2275 34746 LANACONT CAF BIT6 # IS THE METER MODE SWITCH IN PGNCS?
038935,000178: 21,2276 00006 EXTEND
038936,000179: 21,2277 02030 RAND CHAN30
038937,000180: 21,2300 10000 CCS A
038938,000181: 21,2301 12620 TCF DISPRSET # NO: GO RESET
038939,000182:
038940,000183: 21,2302 40075 CS FLAGWRD1 # YES: IS INITIALIZATION IN ORDER?
038941,000184: 21,2303 74736 MASK DIDFLBIT
038942,000185: 21,2304 10000 CCS A
038943,000186: 21,2305 12573 TCF DISPINIT # YES: THEN GO DO IT
038944,000187:
038945,000188: 21,2306 34752 CAF BIT2 # NO: ARE RR ERROR COUNTERS ENABLED?
038946,000189: 21,2307 00006 EXTEND
038947,000190: 21,2310 02012 RAND CHAN12
038948,000191: 21,2311 00006 EXTEND
038949,000192: 21,2312 12620 BZF DISPRSET # NO: REINITIALIZE DISPLAYS
038950,000193: 21,2313 00006 ALTRROUT EXTEND # YES: SIGNIFY ALTITUDE-RATE (BIT2 IN A)
038951,000194: 21,2314 05014 WOR CHAN14
038952,000195:
038953,000196: 21,2315 00006 EXTEND
038954,000197: 21,2316 31727 DCA ALTRATE
038955,000198: 21,2317 20001 DDOUBL # RESCALE ALTRATE TO UNITS OF 2(2) M/CS
038956,000199: 21,2320 20001 DDOUBL
038957,000200: 21,2321 20001 DDOUBL
038958,000201: 21,2322 00006 EXTEND
038959,000202: 21,2323 72004 MP ALTRCONV # RESCALE TO UNITS OF .5 F/S/BIT
038960,000203:
038961,000204: 21,2324 56001 XCH L # ROUND TO NEAREST .5 F/S
038962,000205: 21,2325 60000 DOUBLE
038963,000206: 21,2326 54002 TS Q
038964,000207: 21,2327 34755 CAF ZERO
038965,000208: 21,2330 26001 ADS L
038966,000209:
038967,000210: 21,2331 64735 AD NEGMAX
038968,000211: 21,2332 54001 TS L
038969,000212: 21,2333 12336 TCF +3
038970,000213: 21,2334 60001 AD L
038971,000214: 21,2335 40000 COM
038972,000215: 21,2336 56060 +3 XCH ALTM
038973,000216:
038974,000217: 21,2337 34751 CAF BIT3
038975,000218: 21,2340 00006 EXTEND
038976,000219: 21,2341 05014 WOR CHAN14
038977,000220:
038978,000221: 21,2342 35752 CA TWELVE # DELAY 120 MS FOR DATA OUTPUT
038979,000222: # NOTE - THIS DELAY MUST BE GREATER THAN
038980,000223: # 100 MS FOR COMPATIBILITY WITH THE LMS
038981,000224: 21,2343 05235 TC VARDELAY
038982,000225:
038983,000226: 21,2344 44752 ALTROUT CS BIT2 # SIGNIFY ALTITUDE
038984,000227: 21,2345 00006 EXTEND
038985,000228: 21,2346 03014 WAND CHAN14
038986,000229:
038987,000230: 21,2347 31731 CA ALTITUDE +1
038988,000231: 21,2350 00006 EXTEND
038989,000232: 21,2351 72005 MP ALTCONV
038990,000233:
|
|
Page 899
|
038992,000235: 21,2352 54001 TS L
038993,000236: 21,2353 34755 CAF ZERO
038994,000237: 21,2354 52064 DXCH ALTTEMP
038995,000238: 21,2355 31730 CA ALTITUDE
038996,000239: 21,2356 00006 EXTEND
038997,000240: 21,2357 72005 MP ALTCONV
038998,000241: 21,2360 20064 DAS ALTTEMP # ALTITUDE IN UNITS OF 9.380 FEET/BIT
038999,000242:
039000,000243: 21,2361 52064 DXCH ALTTEMP
039001,000244: 21,2362 20001 DDOUBL
039002,000245: 21,2363 20001 DDOUBL # RESCALE TO UNITS OF 2.345 FEET/BIT
039003,000246: 21,2364 54000 OVSK
039004,000247: 21,2365 12371 TCF +4 # NO OVERFLOW: -38420 < ALTITUDE < +38420
039005,000248:
039006,000249: 21,2366 74733 MASK POSMAX # RESET OVERFLOW
039007,000250: 21,2367 64735 AD BIT15
039008,000251: 21,2370 12375 TCF +5
039009,000252:
039010,000253: 21,2371 10000 +4 CCS A # APPLY LOWER LIMIT OF POSITIVE ZERO
039011,000254: 21,2372 64753 AD ONE
039012,000255: 21,2373 12375 TCF +2
039013,000256: 21,2374 34755 CAF ZERO
039014,000257:
039015,000258: 21,2375 56060 +5 XCH ALTM
039016,000259: 21,2376 34751 CAF BIT3
039017,000260: 21,2377 00006 EXTEND
039018,000261: 21,2400 05014 WOR CHAN14
039019,000262:
039020,000263: # ************************************************************************
039021,000264: # SEND OUT FORWARD AND LATERAL VELOCITIES
039022,000265: # ************************************************************************
039023,000266:
039024,000267: 21,2401 02460 TC CROSCOMP # FIRST CALL SUBROUTINE TO COMPUTE THEM
039025,000268:
039026,000269: 21,2402 34742 CAF BIT10 # 1/32 TO ITEMP2 FOR USE AS DIVISOR BELOW
039027,000270: 21,2403 54062 TS ITEMP2
039028,000271:
039029,000272: 21,2404 32001 CAF MAXVEL # LIMIT COMMAND TO 198.645 F/S
039030,000273: 21,2405 22070 LXCH FORVTEMP
039031,000274: 21,2406 02640 TC LADLIMIT
039032,000275: 21,2407 22071 LXCH FORVTEMP +1
039033,000276: 21,2410 00006 EXTEND # RESCALE TO UNITS OF ONE M/CS
039034,000277: 21,2411 10062 DV ITEMP2
039035,000278: 21,2412 00006 EXTEND # RESCALE TO UNITS OF .5571 F/S/BIT
039036,000279: 21,2413 72003 MP VELCONV
039037,000280: 21,2414 56001 XCH L # ROUND TO NEAREST .5571 F/S
039038,000281: 21,2415 60000 DOUBLE
039039,000282: 21,2416 54002 TS Q
039040,000283: 21,2417 12421 TCF FORVOUT
039041,000284: 21,2420 26001 ADS L
039042,000285:
|
|
Page 900
|
039044,000287: 21,2421 41733 FORVOUT CS FORVMETR # SUBTRACT METER INDICATOR TO GET CHANGE
039045,000288: 21,2422 26001 ADS L
039046,000289: 21,2423 32002 CA MAXDBITS
039047,000290: 21,2424 02640 TC LADLIMIT # LIMIT CHANGE TO ABOUT 300 F/S
039048,000291: 21,2425 64754 AD NEG0
039049,000292: 21,2426 54054 TS CDUSCMD
039050,000293: 21,2427 27733 ADS FORVMETR # UPDATE METER INDICATOR
039051,000294:
039052,000295: 21,2430 32001 CAF MAXVEL # LIMIT COMMAND TO 198.645 F/S
039053,000296: 21,2431 22072 LXCH LATVEL
039054,000297: 21,2432 02640 TC LADLIMIT
039055,000298: 21,2433 22073 LXCH LATVEL +1
039056,000299: 21,2434 00006 EXTEND # RESCALE TO UNITS OF ONE M/CS
039057,000300: 21,2435 10062 DV ITEMP2
039058,000301: 21,2436 00006 EXTEND # RESCALE TO UNITS OF .5571 F/S/BIT
039059,000302: 21,2437 72003 MP VELCONV
039060,000303: 21,2440 56001 XCH L # ROUND TO NEAREST .5571 F/S
039061,000304: 21,2441 60000 DOUBLE
039062,000305: 21,2442 54002 TS Q
039063,000306: 21,2443 12445 TCF LATVOUT
039064,000307: 21,2444 26001 ADS L
039065,000308: 21,2445 41732 LATVOUT CS LATVMETR # SUBTRACT METER INDICATOR TO GET CHANGE
039066,000309: 21,2446 26001 ADS L
039067,000310: 21,2447 32002 CAF MAXDBITS
039068,000311: 21,2450 02640 TC LADLIMIT # LIMIT CHANGE TO ABOUT 300 F/S
039069,000312: 21,2451 64754 AD NEG0
039070,000313: 21,2452 54053 TS CDUTCMD
039071,000314: 21,2453 27732 ADS LATVMETR # UPDATE METER INDICATOR
039072,000315:
039073,000316: 21,2454 35020 CAF BITSET # SET DRIVE BITS
039074,000317: 21,2455 00006 EXTEND
039075,000318: 21,2456 05014 WOR CHAN14
039076,000319:
039077,000320: 21,2457 05272 LANADEND TC TASKOVER
039078,000321:
039079,000322: # ************************************************************************
039080,000323: # SUBROUTINE TO COMPUTE FORWARD AND LATERAL VELOCITIES
039081,000324: # ************************************************************************
039082,000325:
039083,000326: # THE SCALARS VHY AND VHZ, COMPUTED NEXT, ARE THE VELOCITIES ALONG UNIT VECTORS UHYP AND UHZP. UHYP NORMAL
039084,000327: # TO THE PRE-PDI ORBITAL PLANE, UHZP IN TURN NORMAL TO UHYP AND THE POSITION VECTOR. NOW SINCE FOR THE "LANDING
039085,000328: # ALIGNMENT" OF THE IMU THE STABLE-MEMBER Y-AXIS IS DEFINED THE SAME WAY AS UHYP, VVECTY IS PRECISELY VHY.
039086,000329: # FURTHERMORE, THE Y-TERM OF THE VHZ COMPUTATION DROPS OUT, AND THE FOLLOWING USEFUL EQUALITIES BECOME TRUE:
039087,000330: # UHZPX = - RUNITZ AND UHZPZ = RUNITX. DRAW A PICTURE TO BE CONVINCED.
039088,000331:
039089,000332: # NOTE THAT IN THIS VERSION CROSS-POINTER DISPLAYS ARE OUTPUT DURING ASCENT AND ABORTS AS WELL AS DESCENT.
039090,000333:
039091,000334: 21,2460 40074 CROSCOMP CS FLAGWRD0 # IS R10FLAG SET TO INDICATE ASCENT?
039092,000335: 21,2461 74752 MASK R10FLBIT
039093,000336: 21,2462 00006 EXTEND
039094,000337:
|
|
Page 901
|
039096,000339: 21,2463 12562 BZF APSLAD # YES: DISPLAY LATVEL IN INERTIAL AXES
039097,000340:
039098,000341: 21,2464 41716 CS RUNITZ # NO: COMPUTE DOWNRANGE VELOCITY
039099,000342: 21,2465 00006 EXTEND
039100,000343: 21,2466 71720 MP VVECTX
039101,000344: 21,2467 52066 DXCH VHZ
039102,000345: 21,2470 31714 CA RUNITX
039103,000346: 21,2471 00006 EXTEND
039104,000347: 21,2472 71724 MP VVECTZ
039105,000348: 21,2473 20066 DAS VHZ
039106,000349: 21,2474 31714 CA RUNITX # COMPUTE THE MORE SENSITIVE TERM IN DP
039107,000350: 21,2475 00006 EXTEND
039108,000351: 21,2476 71725 MP VVECTZ +1
039109,000352: 21,2477 54001 TS L
039110,000353: 21,2500 34755 CAF ZERO
039111,000354: 21,2501 20066 DAS VHZ # VHZ IN UNITS OF 2(5) M/CS
039112,000355:
039113,000356: 21,2502 00006 EXTEND
039114,000357: 21,2503 31723 DCA VVECTY
039115,000358: 21,2504 52064 DXCH VHY # VHY IN UNITS OF 2(5) M/CS
039116,000359:
039117,000360: 21,2505 35015 CAF EBANK6 # SWITCH TO DAP EBANK
039118,000361: 21,2506 54003 TS EBANK
039119,000362: 21,2507 E6,1417 EBANK= M22
039120,000363:
039121,000364: 21,2507 31420 CA M32 # COS(AOG)
039122,000365: 21,2510 00006 EXTEND
039123,000366: 21,2511 70065 MP VHZ
039124,000367: 21,2512 52071 DXCH FORVTEMP
039125,000368: 21,2513 41417 CS M22 # SIN(AOG)
039126,000369: 21,2514 00006 EXTEND
039127,000370: 21,2515 70063 MP VHY
039128,000371: 21,2516 20071 DAS FORVTEMP
039129,000372:
039130,000373: 21,2517 31420 CA M32 # COS(AOG)
039131,000374: 21,2520 00006 EXTEND
039132,000375: 21,2521 70066 MP VHZ +1
039133,000376: 21,2522 54062 TS ITEMP2
039134,000377: 21,2523 41417 CS M22 # SIN(AOG)
039135,000378: 21,2524 00006 EXTEND
039136,000379: 21,2525 70064 MP VHY +1
039137,000380: 21,2526 60062 AD ITEMP2
039138,000381: 21,2527 54001 TS L
039139,000382: 21,2530 34755 CAF ZERO
039140,000383: 21,2531 20071 DAS FORVTEMP # FORWARD VELOCITY IN UNITS OF 2(5) M/CS
039141,000384:
039142,000385: 21,2532 31417 CA M22 # SIN(AOG)
039143,000386: 21,2533 00006 EXTEND
039144,000387: 21,2534 70065 MP VHZ
039145,000388: 21,2535 52073 DXCH LATVEL
039146,000389:
|
|
Page 902
|
039148,000391: 21,2536 31420 CA M32 # COS(AOG)
039149,000392: 21,2537 00006 EXTEND
039150,000393: 21,2540 70063 MP VHY
039151,000394: 21,2541 20073 DAS LATVEL
039152,000395:
039153,000396: 21,2542 31417 CA M22 # SIN(AOG)
039154,000397: 21,2543 00006 EXTEND
039155,000398: 21,2544 70066 MP VHZ +1
039156,000399: 21,2545 54062 TS ITEMP2
039157,000400: 21,2546 31420 CA M32 # COS(AOG)
039158,000401: 21,2547 00006 EXTEND
039159,000402: 21,2550 70064 MP VHY +1
039160,000403: 21,2551 60062 AD ITEMP2
039161,000404: 21,2552 54001 TS L
039162,000405: 21,2553 34755 CAF ZERO
039163,000406: 21,2554 20073 DAS LATVEL # LATERAL VELOCITY IN UNITS OF 2(5) M/CS
039164,000407:
039165,000408: 21,2555 24006 INCR BBANK # RETURN TO SERVICER EBANK
039166,000409: 21,2556 E7,1711 EBANK= HDOTLAD
039167,000410:
039168,000411: 21,2556 00006 CROSSOUT EXTEND # MOVE FORVTEMP TO FORVEL FOR DSKY DISPLAY
039169,000412: 21,2557 30071 DCA FORVTEMP
039170,000413: 21,2560 53735 DXCH FORVEL
039171,000414:
039172,000415: 21,2561 00002 TC Q
039173,000416:
039174,000417: 21,2562 54070 APSLAD TS FORVTEMP # DURING ASCENT AND ABORTS COME HERE TO
039175,000418: 21,2563 54071 TS FORVTEMP +1 # DISPLAY LATVEL = SM Y-AXIS VELOCITY
039176,000419:
039177,000420: 21,2564 00006 EXTEND
039178,000421: 21,2565 31723 DCA VVECTY
039179,000422: 21,2566 52073 DXCH LATVEL
039180,000423: 21,2567 00006 EXTEND # ADD SURFACE VELOCITY BACK IN SO APS
039181,000424: 21,2570 31704 DCA VSURFACE +2 # LATVEL DISPLAY WILL BE IN TRUE
039182,000425: 21,2571 20073 DAS LATVEL # STABLE-MEMBER COORDINATES
039183,000426:
039184,000427: 21,2572 12556 TCF CROSSOUT # REJOIN THE MAINSTREAM
039185,000428:
039186,000429: # ************************************************************************
039187,000430: # LANDING ANALOG DISPLAYS INITIALIZATION
039188,000431: # ************************************************************************
039189,000432:
039190,000433: 21,2573 02460 DISPINIT TC CROSCOMP # FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
039191,000434:
039192,000435: 21,2574 40075 CS FLAGWRD1 # SET DIDFLAG
039193,000436: 21,2575 74736 MASK DIDFLBIT
039194,000437: 21,2576 26075 ADS FLAGWRD1
039195,000438:
039196,000439: 21,2577 34744 CAF BIT8 # SET DISPLAY INERTIAL DATA OUTBIT
039197,000440: 21,2600 00006 EXTEND
039198,000441:
|
|
Page 903
|
039200,000443: 21,2601 05012 WOR CHAN12
039201,000444:
039202,000445: 21,2602 44755 CS ZERO # ZERO METER INDICATORS
039203,000446: 21,2603 55732 TS LATVMETR
039204,000447: 21,2604 55733 TS FORVMETR
039205,000448:
039206,000449: 21,2605 34750 CAF BIT4 # SET UP TASK TO FINISH INITIALIZATION
039207,000450: 21,2606 05204 TC TWIDDLE
039208,000451: 21,2607 02611 ADRES INTLZE
039209,000452: 21,2610 12457 TCF LANADEND
039210,000453:
039211,000454: 21,2611 34752 INTLZE CAF BIT2 # ENABLE RR ERROR COUNTER
039212,000455: 21,2612 00006 EXTEND
039213,000456: 21,2613 05012 WOR CHAN12
039214,000457:
039215,000458: 21,2614 41300 CS IMODES33 # SET INERTIAL DATA FLAG
039216,000459: 21,2615 74744 MASK BIT8
039217,000460: 21,2616 27300 ADS IMODES33
039218,000461: 21,2617 05272 TC TASKOVER
039219,000462:
039220,000463: # ************************************************************************
039221,000464: # LANDING ANALOG DISPLAYS RESET ROUTINE
039222,000465: # ************************************************************************
039223,000466:
039224,000467: 21,2620 02460 DISPRSET TC CROSCOMP # FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
039225,000468:
039226,000469: 21,2621 44736 +1 CS DIDFLBIT # RESET DIDFLAG
039227,000470: 21,2622 70075 MASK FLAGWRD1
039228,000471: 21,2623 54075 TS FLAGWRD1
039229,000472:
039230,000473: 21,2624 34744 CAF BIT8 # WAS INERTIAL DATA JUST DISPLAYED?
039231,000474: 21,2625 71300 MASK IMODES33
039232,000475: 21,2626 10000 CCS A
039233,000476: 21,2627 34752 CAF BIT2 # YES: DISABLE RR ERROR COUNTER AND
039234,000477: 21,2630 64744 AD BIT8 # NO: RESET DISPLAY INERTIAL DATA OUTBIT
039235,000478: 21,2631 40000 COM
039236,000479: 21,2632 00006 EXTEND
039237,000480: 21,2633 03012 WAND CHAN12
039238,000481:
039239,000482: 21,2634 44744 CS BIT8
039240,000483: 21,2635 71300 MASK IMODES33
039241,000484: 21,2636 55300 TS IMODES33
039242,000485: 21,2637 12457 TCF LANADEND
039243,000486:
039244,000487: # ************************************************************************
039245,000488: # CONSTANTS FOR LANDING ANALOG DISPLAYS
039246,000489: # ************************************************************************
039247,000490:
039248,000491: # CONSTANTS ON A-CARDS ARE FOUND IN THE CONTROLLED CONSTANTS SECTION
039249,000492:
|
|
Page 904
|
039251,000494: # LANAKPIP DEC .0512 SCALES PIPAS TO UNITS OF 2(5) M/CS
039252,000495:
039253,000496: # MAXVEL OCT 00466 198.645 F/S IN UNITS OF 2(5) M/CS
039254,000497:
039255,000498: # MAXDBITS OCT 01034 ABOUT 300 F/S
039256,000499:
039257,000500: # VELCONV DEC .03594 SCALES VEL AT ONE M/CS TO .5571 F/S/BIT
039258,000501:
039259,000502: # ALTRCONV DEC .16020 SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
039260,000503:
039261,000504: # ALTCONV DEC .69954 SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
039262,000505:
039263,000506: 21,2640 5020 BITSET = PRIO6 # CROSS-POINTER DRIVE BITS
039264,000507:
039265,000508: # ************************************************************************
039266,000509: # SUBROUTINES
039267,000510: # ************************************************************************
039268,000511: 21,2640 54061 LADLIMIT TS ITEMP1
039269,000512: 21,2641 34755 CAF ZERO
039270,000513: 21,2642 00006 EXTEND
039271,000514: 21,2643 10061 DV ITEMP1
039272,000515: 21,2644 10000 CCS A
039273,000516: 21,2645 22061 LXCH ITEMP1
039274,000517: 21,2646 12650 TCF +2
039275,000518: 21,2647 12652 TCF +3
039276,000519: 21,2650 30001 CA L
039277,000520: 21,2651 00002 TC Q
039278,000521: 21,2652 40061 CS ITEMP1
039279,000522: 21,2653 00002 TC Q
039280,000523:
039281,000524: # ************************************************************************
039282,000525: # THE END OF THE LANDING ANALOG DISPLAYS
039283,000526: # ************************************************************************
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc