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