Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
035343,000002: ## Copyright: Public domain.
035344,000003: ## Filename: LANDING_ANALOG_DISPLAYS.agc
035345,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
035346,000005: ## It is part of the reconstructed source code for the Lunar
035347,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
035348,000007: ## No original listings of this program are available;
035349,000008: ## instead, this file was created via disassembly of dumps
035350,000009: ## of various revisions of Sundance core rope modules.
035351,000010: ## Assembler: yaYUL
035352,000011: ## Contact: Ron Burkey <info@sandroid.org>.
035353,000012: ## Website: www.ibiblio.org/apollo/index.html
035354,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
035355,000014:
035356,000015: ## Sundance 302
035357,000016:
035358,000017: 21,2102 BANK 21
035359,000018: 21,2000 SETLOC R10
035360,000019: 21,2000 BANK
035361,000020:
035362,000021: 21,2102 E7,1523 EBANK= UNIT/R/
035363,000022: 21,2102 COUNT* $$/R10
035364,000023:
035365,000024: 21,2102 35014 LANDISP CAF SWANDBIT # IS LANDING ANALOG DISPLAYS FLAG SET?
035366,000025: 21,2103 70103 MASK FLAGWRD7
035367,000026: 21,2104 10000 CCS A
035368,000027: 21,2105 12110 TCF +3 # YES.
035369,000028: 21,2106 03027 GODSPRST TC DISPRSET # NO.
035370,000029: 21,2107 12164 TCF LANDELAY
035371,000030: 21,2110 31305 CA IMODES33 # BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
035372,000031: 21,2111 75020 MASK BIT7
035373,000032: 21,2112 10000 CCS A
035374,000033: 21,2113 12173 TCF ALTOUT
035375,000034: 21,2114 02244 ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
035376,000035: 21,2115 41305 CS IMODES33
035377,000036: 21,2116 75020 MASK BIT7
035378,000037: 21,2117 27305 ADS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
035379,000038: 21,2120 35025 CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
035380,000039: 21,2121 00006 EXTEND
035381,000040: 21,2122 05014 WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
035382,000041: 21,2123 31737 ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
035383,000042: 21,2124 00006 EXTEND
035384,000043: 21,2125 71732 MP VVECT # MULTIPLY X-COMPONENTS.
035385,000044: 21,2126 56070 XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
035386,000045: 21,2127 31741 CA RUNIT +2 # MULTIPLY Y-COMPONENTS.
035387,000046: 21,2130 00006 EXTEND
035388,000047: 21,2131 71733 MP VVECT +1
035389,000048: 21,2132 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
035390,000049: 21,2133 31743 CA RUNIT +4 # MULTIPLY Z-COMPONENTS.
035391,000050: 21,2134 00006 EXTEND
035392,000051: 21,2135 71734 MP VVECT +2
035393,000052: 21,2136 26070 ADS RUPTREG1 # ALTITUDE RATE IN M/CS *2(-6).
035394,000053: 21,2137 33046 CA ARCONV # CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
035395,000054: 21,2140 00006 EXTEND
035396,000055: 21,2141 70070 MP RUPTREG1
035397,000056: 21,2142 60000 DOUBLE
035398,000057: 21,2143 60000 DOUBLE
035399,000058: 21,2144 56070 XCH RUPTREG1 # ALTITUDE RATE IN BIT UNITS*2(-14).
035400,000059: 21,2145 41757 CS DALTRATE # ALTITUDE RATE COMPENSATION FACTOR.
035401,000060: 21,2146 00006 EXTEND
035402,000061: 21,2147 71760 MP DT
035403,000062: 21,2150 60070 AD RUPTREG1
035404,000063: 21,2151 55747 TS ALTRATE # ALTITUDE RATE IN BIT UNITS*2(-14).
035405,000064: 21,2152 41747 CS ALTRATE
035406,000065: 21,2153 00006 EXTEND # CHECK POLARITY OF ALTITUDE RATE.
035407,000066: 21,2154 62156 BZMF +2
035408,000067: 21,2155 12160 TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
035409,000068: 21,2156 31747 CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
035410,000069: 21,2157 65010 AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
035411,000070: 21,2160 54060 DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
035412,000071: 21,2161 33050 CAF DATABITS
035413,000072: 21,2162 00006 EXTEND
035414,000073: 21,2163 05014 WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
035415,000074:
035416,000075: 21,2164 11257 LANDELAY CCS PIPCTR
035417,000076: 21,2165 12167 TCF +2
035418,000077: 21,2166 15321 TCF TASKOVER
035419,000078: 21,2167 55257 TS PIPCTR
035420,000079: 21,2170 05271 TC FIXDELAY
035421,000080: 21,2171 00030 DEC 24 B-14
035422,000081: 21,2172 12102 TCF LANDISP
035423,000082:
035424,000083: 21,2173 02244 ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
035425,000084: 21,2174 45020 CS BIT7
035426,000085: 21,2175 71305 MASK IMODES33
035427,000086: 21,2176 55305 TS IMODES33 # ALTERNATE ALTITUDE RATE WITH ALTITUDE.
035428,000087: 21,2177 45025 CS BIT2
035429,000088: 21,2200 00006 EXTEND
035430,000089: 21,2201 03014 WAND CHAN14
035431,000090: 21,2202 11735 CCS ALTBITS # =-1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
035432,000091: 21,2203 12207 TCF +4
035433,000092: 21,2204 12207 TCF +3
035434,000093: 21,2205 12213 TCF OLDDATA
035435,000094: 21,2206 55735 TS ALTBITS # SET ALTBITS FROM -0 TO +0.
035436,000095: 21,2207 45026 CS ONE
035437,000096: 21,2210 53736 DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
035438,000097:
035439,000098: 21,2211 53755 ZDATA2 DXCH ALTSAVE
035440,000099: 21,2212 12233 TCF NEWDATA
035441,000100: 21,2213 31747 OLDDATA CA ALTRATE # RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
035442,000101: 21,2214 00006 EXTEND
035443,000102: 21,2215 73047 MP ARTOA # EXTRAPOLATE WITH ALTITUDE RATE.
035444,000103: 21,2216 61755 AD ALTSAVE +1
035445,000104: 21,2217 55755 TS ALTSAVE +1
035446,000105: 21,2220 35030 CAF ZERO
035447,000106: 21,2221 27754 ADS ALTSAVE
035448,000107: 21,2222 35006 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING A
035449,000108: 21,2223 65026 AD ONE # NON-NEGATIVE ALTSAVE.
035450,000109: 21,2224 61755 AD ALTSAVE +1 # IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
035451,000110: 21,2225 55755 TS ALTSAVE +1 # AND ALTSAVE +1 AT ZERODATA.
035452,000111: 21,2226 35030 CAF ZERO
035453,000112: 21,2227 65006 AD POSMAX
035454,000113: 21,2230 61754 AD ALTSAVE
035455,000114: 21,2231 55754 TS ALTSAVE # POSSIBLY SKIP TO NEWDATA.
035456,000115: 21,2232 13024 TCF ZERODATA
035457,000116: 21,2233 11755 NEWDATA CCS ALTSAVE +1
035458,000117: 21,2234 12240 TCF +4
035459,000118: 21,2235 12240 TCF +3
035460,000119: 21,2236 35030 CAF ZERO # SET NEGATIVE ALTSAVE +1 TO +0.
035461,000120: 21,2237 55755 TS ALTSAVE +1
035462,000121: 21,2240 11754 CCS ALTSAVE # PROVIDE A 15 BIT UNSIGNED OUTPUT.
035463,000122: 21,2241 35010 CAF BIT15 # THE HI-ORDER PART IS +1 OR +0.
035464,000123: 21,2242 61755 AD ALTSAVE +1
035465,000124: 21,2243 12160 TCF DATAOUT # DISPATCH UNSIGNED BITS TO ALTM REG.
035466,000125: 21,2244 00006 DISINDAT EXTEND
035467,000126: 21,2245 23756 QXCH LADQSAVE # SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
035468,000127: 21,2246 35021 CAF BIT6
035469,000128: 21,2247 00006 EXTEND # WISHETH THE ASTRONAUT THE ANALOG
035470,000129: 21,2250 02030 RAND CHAN30 # DISPLAYS? I.E.,
035471,000130: 21,2251 10000 CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
035472,000131: 21,2252 12106 TCF GODSPRST # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
035473,000132: 21,2253 11316 CCS DIDFLG # YES. CHECK STATUS OF DIDFLAG.
035474,000133: 21,2254 12106 TCF GODSPRST
035475,000134: 21,2255 12305 TCF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
035476,000135: 21,2256 35017 CAF BIT8
035477,000136: 21,2257 00006 EXTEND
035478,000137: 21,2260 05012 WOR CHAN12 # SET DISPLAY INERTIAL DATA OUTBIT.
035479,000138: 21,2261 35030 CAF ZERO
035480,000139: 21,2262 55316 TS DIDFLG
035481,000140: 21,2263 55752 TS TRAKLATV # LATERAL VELOCITY MONITOR FLAG
035482,000141: 21,2264 55753 TS TRAKFWDV # FORWARD VELOCITY MONITOR FLAG
035483,000142: 21,2265 55745 TS LATVMETR # LATVEL MONITOR METER
035484,000143: 21,2266 55746 TS FORVMETR # FORVEL MONITOR METER
035485,000144: 21,2267 45020 CS BIT7
035486,000145: 21,2270 71305 MASK IMODES33
035487,000146: 21,2271 55305 TS IMODES33
035488,000147: 21,2272 35023 CAF BIT4
035489,000148: 21,2273 05243 TC TWIDDLE
035490,000149: 21,2274 02276 ADRES INTLZE
035491,000150: 21,2275 12164 TCF LANDELAY
035492,000151: 21,2276 35025 INTLZE CAF BIT2
035493,000152: 21,2277 00006 EXTEND
035494,000153: 21,2300 05012 WOR CHAN12 # ENABLE RR ERROR COUNTER.
035495,000154: 21,2301 41305 CS IMODES33
035496,000155: 21,2302 75017 MASK BIT8
035497,000156: 21,2303 27305 ADS IMODES33 # SET INERTIAL DATA FLAG.
035498,000157: 21,2304 15321 TCF TASKOVER
035499,000158:
035500,000159: 21,2305 41234 SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
035501,000160: 21,2306 60025 AD TIME1 # COMPUTE T - TN
035502,000161: 21,2307 65011 AD HALF # CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
035503,000162: 21,2310 65011 AD HALF
035504,000163: 21,2311 57760 XCH DT # SAVE FOR LATER USE
035505,000164: 21,2312 35047 CA 1SEC
035506,000165: 21,2313 54065 TS ITEMP5 # INITIALIZE FOR DIVISION LATER
035507,000166: 21,2314 00006 EXTEND
035508,000167: 21,2315 31236 DCA GDT/2 # COMPUTE THE X-COMPONENT OF VELOCITY.
035509,000168: 21,2316 20001 DDOUBL
035510,000169: 21,2317 20001 DDOUBL
035511,000170: 21,2320 00006 EXTEND
035512,000171: 21,2321 71760 MP DT
035513,000172: 21,2322 00006 EXTEND
035514,000173: 21,2323 10065 DV ITEMP5
035515,000174: 21,2324 57732 XCH VVECT # VVECT = G(T-TN) M/CS *2(-5)
035516,000175: 21,2325 00006 EXTEND
035517,000176: 21,2326 31504 DCA V # M/CS *2(-7)
035518,000177: 21,2327 20001 DDOUBL # RESCALE TO 2(-5)
035519,000178: 21,2330 20001 DDOUBL
035520,000179: 21,2331 27732 ADS VVECT # VVECT = VN + G(T-TN) M/CS *2(-5)
035521,000180: 21,2332 30037 CA PIPAX # DELV CM/SEC *2(-14)
035522,000181: 21,2333 61172 AD PIPATMPX # IN CASE PIPAX HAS BEEN ZEROED
035523,000182: 21,2334 00006 EXTEND
035524,000183: 21,2335 73052 MP KPIP1(5) # DELV M/CS *2(-5)
035525,000184: 21,2336 27732 ADS VVECT # VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
035526,000185: 21,2337 00006 EXTEND
035527,000186: 21,2340 31240 DCA GDT/2 +2 # COMPUTE THE Y-COMPONENT OF VELOCITY.
035528,000187: 21,2341 20001 DDOUBL
035529,000188: 21,2342 20001 DDOUBL
035530,000189: 21,2343 00006 EXTEND
035531,000190: 21,2344 71760 MP DT
035532,000191: 21,2345 00006 EXTEND
035533,000192: 21,2346 10065 DV ITEMP5
035534,000193: 21,2347 57733 XCH VVECT +1
035535,000194: 21,2350 00006 EXTEND
035536,000195: 21,2351 31506 DCA V +2
035537,000196: 21,2352 20001 DDOUBL
035538,000197: 21,2353 20001 DDOUBL
035539,000198: 21,2354 27733 ADS VVECT +1
035540,000199: 21,2355 30040 CA PIPAY
035541,000200: 21,2356 61173 AD PIPATMPY
035542,000201: 21,2357 00006 EXTEND
035543,000202: 21,2360 73052 MP KPIP1(5)
035544,000203: 21,2361 27733 ADS VVECT +1
035545,000204: 21,2362 00006 EXTEND
035546,000205: 21,2363 31242 DCA GDT/2 +4 # COMPUTE THE Z-COMPONENT OF VELOCITY.
035547,000206: 21,2364 20001 DDOUBL
035548,000207: 21,2365 20001 DDOUBL
035549,000208: 21,2366 00006 EXTEND
035550,000209: 21,2367 71760 MP DT
035551,000210: 21,2370 00006 EXTEND
035552,000211: 21,2371 10065 DV ITEMP5
035553,000212: 21,2372 57734 XCH VVECT +2
035554,000213: 21,2373 00006 EXTEND
035555,000214: 21,2374 31510 DCA V +4
035556,000215: 21,2375 20001 DDOUBL
035557,000216: 21,2376 20001 DDOUBL
035558,000217: 21,2377 27734 ADS VVECT +2
035559,000218: 21,2400 30041 CA PIPAZ
035560,000219: 21,2401 61174 AD PIPATMPZ
035561,000220: 21,2402 00006 EXTEND
035562,000221: 21,2403 73052 MP KPIP1(5)
035563,000222: 21,2404 27734 ADS VVECT +2
035564,000223:
035565,000224: 21,2405 41724 CS DELVS # HI X OF VELOCITY CORRECTION TERM.
035566,000225: 21,2406 61732 AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
035567,000226: 21,2407 54061 TS ITEMP1 # = VX - DVX M/CS *2(-5).
035568,000227: 21,2410 41726 CS DELVS +2 # Y
035569,000228: 21,2411 61733 AD VVECT +1 # Y
035570,000229: 21,2412 54062 TS ITEMP2 # = VY - DVY M/CS *2(-5).
035571,000230: 21,2413 41730 CS DELVS +4 # Z
035572,000231: 21,2414 61734 AD VVECT +2 # Z
035573,000232: 21,2415 54063 TS ITEMP3 # = VZ - DVZ M/CS *2(-5).
035574,000233: 21,2416 30061 CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
035575,000234: 21,2417 00006 EXTEND # Y-COORDINATE.
035576,000235: 21,2420 71706 MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
035577,000236: 21,2421 56070 XCH RUPTREG1
035578,000237: 21,2422 30062 CA ITEMP2
035579,000238: 21,2423 00006 EXTEND
035580,000239: 21,2424 71710 MP UHYP +2 # Y
035581,000240: 21,2425 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
035582,000241: 21,2426 30063 CA ITEMP3
035583,000242: 21,2427 00006 EXTEND
035584,000243: 21,2430 71712 MP UHYP +4 # Z
035585,000244: 21,2431 26070 ADS RUPTREG1
035586,000245: 21,2432 30070 CA RUPTREG1
035587,000246: 21,2433 60000 DOUBLE
035588,000247: 21,2434 57722 XCH VHY # VHY=VMP.UHYP M/CS*2(-5).
035589,000248: 21,2435 30061 CA ITEMP1 # NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
035590,000249: 21,2436 00006 EXTEND # THE Z-COORDINATE.
035591,000250: 21,2437 71714 MP UHZP # HI X OF DOWN-RANGE HALF-UNIT VECTOR.
035592,000251: 21,2440 56070 XCH RUPTREG1
035593,000252: 21,2441 30062 CA ITEMP2
035594,000253: 21,2442 00006 EXTEND
035595,000254: 21,2443 71716 MP UHZP +2 # Y
035596,000255: 21,2444 26070 ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
035597,000256: 21,2445 30063 CA ITEMP3
035598,000257: 21,2446 00006 EXTEND
035599,000258: 21,2447 71720 MP UHZP +4 # Z
035600,000259: 21,2450 26070 ADS RUPTREG1
035601,000260: 21,2451 30070 CA RUPTREG1
035602,000261: 21,2452 60000 DOUBLE
035603,000262: 21,2453 57723 XCH VHZ # VHZ = VMP.UHZP M/CS*2(-5).
035604,000263: 21,2454 35065 GET22/32 CAF EBANK6 # GET SIN(AOG),COS(AOG) FROM GPMATRIX.
035605,000264: 21,2455 54003 TS EBANK
035606,000265: 21,2456 E6,1415 EBANK= M22
035607,000266: 21,2456 31415 CA M22
035608,000267: 21,2457 54063 TS ITEMP3
035609,000268: 21,2460 31416 CA M32
035610,000269: 21,2461 54064 TS ITEMP4
035611,000270: 21,2462 35066 CAF EBANK7
035612,000271: 21,2463 54003 TS EBANK
035613,000272: 21,2464 E7,1523 EBANK= UNIT/R/
035614,000273: 21,2464 30064 LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
035615,000274: 21,2465 00006 EXTEND
035616,000275: 21,2466 71722 MP VHY
035617,000276: 21,2467 56070 XCH RUPTREG1
035618,000277: 21,2470 30063 CA ITEMP3
035619,000278: 21,2471 00006 EXTEND
035620,000279: 21,2472 71723 MP VHZ
035621,000280: 21,2473 26070 ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
035622,000281: 21,2474 33051 CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
035623,000282: 21,2475 00006 EXTEND
035624,000283: 21,2476 70070 MP RUPTREG1
035625,000284: 21,2477 60000 DOUBLE
035626,000285: 21,2500 57750 XCH LATVEL # LATERAL VELOCITY IN BIT UNITS *2(-14).
035627,000286: 21,2501 30064 CA ITEMP4 # COMPUTE FORWARD VELOCITY.
035628,000287: 21,2502 00006 EXTEND
035629,000288: 21,2503 71723 MP VHZ
035630,000289: 21,2504 56070 XCH RUPTREG1
035631,000290: 21,2505 30063 CA ITEMP3
035632,000291: 21,2506 00006 EXTEND
035633,000292: 21,2507 71722 MP VHY
035634,000293: 21,2510 40000 CS A
035635,000294: 21,2511 26070 ADS RUPTREG1 # =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
035636,000295: 21,2512 33051 CA VELCONV # CONVERT FORWARD VELOCITY TO BIT UNITS.
035637,000296: 21,2513 00006 EXTEND
035638,000297: 21,2514 70070 MP RUPTREG1
035639,000298: 21,2515 60000 DOUBLE
035640,000299: 21,2516 57751 XCH FORVEL # FORWARD VELOCITY IN BIT UNITS *2(-14).
035641,000300:
035642,000301: 21,2517 43054 CS MAXVBITS # ACC.=-199.9989 FT./SEC.
035643,000302: 21,2520 54066 TS ITEMP6 # -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
035644,000303:
035645,000304: 21,2521 11750 VMONITOR CCS LATVEL
035646,000305: 21,2522 12526 TCF +4
035647,000306: 21,2523 12576 TCF LVLIMITS
035648,000307: 21,2524 12533 TCF +7
035649,000308: 21,2525 12576 TCF LVLIMITS
035650,000309: 21,2526 41750 CS LATVEL
035651,000310: 21,2527 63054 AD MAXVBITS # +199.9989 FT./SEC.
035652,000311: 21,2530 00006 EXTEND
035653,000312: 21,2531 62540 BZMF CHKLASTY
035654,000313: 21,2532 12576 TCF LVLIMITS
035655,000314: 21,2533 31750 CA LATVEL
035656,000315: 21,2534 63054 AD MAXVBITS
035657,000316: 21,2535 00006 EXTEND
035658,000317: 21,2536 62540 BZMF +2
035659,000318: 21,2537 12576 TCF LVLIMITS
035660,000319: 21,2540 11752 CHKLASTY CCS TRAKLATV
035661,000320: 21,2541 12550 TCF LASTPOSY
035662,000321: 21,2542 12544 TCF +2
035663,000322: 21,2543 12563 TCF LASTNEGY
035664,000323: 21,2544 31750 CA LATVEL
035665,000324: 21,2545 00006 EXTEND
035666,000325: 21,2546 62570 BZMF NEGVMAXY
035667,000326: 21,2547 12556 TCF POSVMAXY
035668,000327: 21,2550 31750 LASTPOSY CA LATVEL
035669,000328: 21,2551 00006 EXTEND
035670,000329: 21,2552 62554 BZMF +2
035671,000330: 21,2553 12556 TCF POSVMAXY
035672,000331: 21,2554 43054 CS MAXVBITS
035673,000332: 21,2555 12652 TCF ZEROLSTY
035674,000333: 21,2556 41745 POSVMAXY CS LATVMETR
035675,000334: 21,2557 63054 AD MAXVBITS
035676,000335: 21,2560 56072 XCH RUPTREG3
035677,000336: 21,2561 35026 CAF ONE
035678,000337: 21,2562 12654 TCF ZEROLSTY +2
035679,000338: 21,2563 31750 LASTNEGY CA LATVEL
035680,000339: 21,2564 00006 EXTEND
035681,000340: 21,2565 62570 BZMF NEGVMAXY
035682,000341: 21,2566 33054 CA MAXVBITS
035683,000342: 21,2567 12652 TCF ZEROLSTY
035684,000343: 21,2570 31745 NEGVMAXY CA LATVMETR
035685,000344: 21,2571 63054 AD MAXVBITS
035686,000345: 21,2572 40000 COM
035687,000346: 21,2573 56072 XCH RUPTREG3
035688,000347: 21,2574 45026 CS ONE
035689,000348: 21,2575 12654 TCF ZEROLSTY +2
035690,000349: 21,2576 11752 LVLIMITS CCS TRAKLATV
035691,000350: 21,2577 12621 TCF LATVPOS
035692,000351: 21,2600 12602 TCF +2
035693,000352: 21,2601 12625 TCF LATVNEG
035694,000353: 21,2602 41745 CS LATVMETR
035695,000354: 21,2603 00006 EXTEND
035696,000355: 21,2604 62606 BZMF +2
035697,000356: 21,2605 12632 TCF NEGLMLV
035698,000357: 21,2606 41750 CS LATVEL
035699,000358: 21,2607 00006 EXTEND
035700,000359: 21,2610 62650 BZMF LVMINLM
035701,000360: 21,2611 60066 AD ITEMP6
035702,000361: 21,2612 61745 AD LATVMETR
035703,000362: 21,2613 00006 EXTEND
035704,000363: 21,2614 62650 BZMF LVMINLM
035705,000364: 21,2615 61750 AD LATVEL
035706,000365: 21,2616 00006 EXTEND
035707,000366: 21,2617 61745 SU LATVMETR
035708,000367: 21,2620 12652 TCF ZEROLSTY
035709,000368: 21,2621 41750 LATVPOS CS LATVEL
035710,000369: 21,2622 00006 EXTEND
035711,000370: 21,2623 62650 BZMF LVMINLM
035712,000371: 21,2624 12630 TCF +4
035713,000372: 21,2625 31750 LATVNEG CA LATVEL
035714,000373: 21,2626 00006 EXTEND
035715,000374: 21,2627 62650 BZMF LVMINLM
035716,000375: 21,2630 41745 CS LATVMETR
035717,000376: 21,2631 12652 TCF ZEROLSTY
035718,000377: 21,2632 31750 NEGLMLV CA LATVEL
035719,000378: 21,2633 00006 EXTEND
035720,000379: 21,2634 62650 BZMF LVMINLM
035721,000380: 21,2635 33054 CA MAXVBITS
035722,000381: 21,2636 61745 AD LATVMETR
035723,000382: 21,2637 40000 COM
035724,000383: 21,2640 61750 AD LATVEL
035725,000384: 21,2641 00006 EXTEND
035726,000385: 21,2642 62650 BZMF LVMINLM
035727,000386: 21,2643 00006 EXTEND
035728,000387: 21,2644 61750 SU LATVEL
035729,000388: 21,2645 61745 AD LATVMETR
035730,000389: 21,2646 40000 COM
035731,000390: 21,2647 12652 TCF ZEROLSTY
035732,000391: 21,2650 41745 LVMINLM CS LATVMETR
035733,000392: 21,2651 61750 AD LATVEL
035734,000393: 21,2652 56072 ZEROLSTY XCH RUPTREG3
035735,000394: 21,2653 35030 CAF ZERO
035736,000395: 21,2654 55752 TS TRAKLATV
035737,000396: 21,2655 30072 CA RUPTREG3
035738,000397: 21,2656 65027 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
035739,000398: 21,2657 54053 TS CDUTCMD
035740,000399: 21,2660 30072 CA RUPTREG3
035741,000400: 21,2661 27745 ADS LATVMETR
035742,000401:
035743,000402: 21,2662 11751 CCS FORVEL
035744,000403: 21,2663 12667 TCF +4
035745,000404: 21,2664 12737 TCF FVLIMITS
035746,000405: 21,2665 12674 TCF +7
035747,000406: 21,2666 12737 TCF FVLIMITS
035748,000407: 21,2667 41751 CS FORVEL
035749,000408: 21,2670 63054 AD MAXVBITS # +199.9989 FT./SEC.
035750,000409: 21,2671 00006 EXTEND
035751,000410: 21,2672 62701 BZMF CHKLASTZ
035752,000411: 21,2673 12737 TCF FVLIMITS
035753,000412: 21,2674 31751 CA FORVEL
035754,000413: 21,2675 63054 AD MAXVBITS
035755,000414: 21,2676 00006 EXTEND
035756,000415: 21,2677 62701 BZMF +2
035757,000416: 21,2700 12737 TCF FVLIMITS
035758,000417: 21,2701 11753 CHKLASTZ CCS TRAKFWDV
035759,000418: 21,2702 12711 TCF LASTPOSZ
035760,000419: 21,2703 12705 TCF +2
035761,000420: 21,2704 12724 TCF LASTNEGZ
035762,000421: 21,2705 31751 CA FORVEL
035763,000422: 21,2706 00006 EXTEND
035764,000423: 21,2707 62731 BZMF NEGVMAXZ
035765,000424: 21,2710 12717 TCF POSVMAXZ
035766,000425: 21,2711 31751 LASTPOSZ CA FORVEL
035767,000426: 21,2712 00006 EXTEND
035768,000427: 21,2713 62715 BZMF +2
035769,000428: 21,2714 12717 TCF POSVMAXZ
035770,000429: 21,2715 43054 CS MAXVBITS
035771,000430: 21,2716 13013 TCF ZEROLSTZ
035772,000431: 21,2717 41746 POSVMAXZ CS FORVMETR
035773,000432: 21,2720 63054 AD MAXVBITS
035774,000433: 21,2721 56073 XCH RUPTREG4
035775,000434: 21,2722 35026 CAF ONE
035776,000435: 21,2723 13015 TCF ZEROLSTZ +2
035777,000436: 21,2724 31751 LASTNEGZ CA FORVEL
035778,000437: 21,2725 00006 EXTEND
035779,000438: 21,2726 62731 BZMF NEGVMAXZ
035780,000439: 21,2727 33054 CA MAXVBITS
035781,000440: 21,2730 13013 TCF ZEROLSTZ
035782,000441: 21,2731 31746 NEGVMAXZ CA FORVMETR
035783,000442: 21,2732 63054 AD MAXVBITS
035784,000443: 21,2733 40000 COM
035785,000444: 21,2734 56073 XCH RUPTREG4
035786,000445: 21,2735 45026 CS ONE
035787,000446: 21,2736 13015 TCF ZEROLSTZ +2
035788,000447: 21,2737 11753 FVLIMITS CCS TRAKFWDV
035789,000448: 21,2740 12762 TCF FORVPOS
035790,000449: 21,2741 12743 TCF +2
035791,000450: 21,2742 12766 TCF FORVNEG
035792,000451: 21,2743 41746 CS FORVMETR
035793,000452: 21,2744 00006 EXTEND
035794,000453: 21,2745 62747 BZMF +2
035795,000454: 21,2746 12773 TCF NEGLMFV
035796,000455: 21,2747 41751 CS FORVEL
035797,000456: 21,2750 00006 EXTEND
035798,000457: 21,2751 63011 BZMF FVMINLM
035799,000458: 21,2752 60066 AD ITEMP6
035800,000459: 21,2753 61746 AD FORVMETR
035801,000460: 21,2754 00006 EXTEND
035802,000461: 21,2755 63011 BZMF FVMINLM
035803,000462: 21,2756 61751 AD FORVEL
035804,000463: 21,2757 00006 EXTEND
035805,000464: 21,2760 61746 SU FORVMETR
035806,000465: 21,2761 13013 TCF ZEROLSTZ
035807,000466: 21,2762 41751 FORVPOS CS FORVEL
035808,000467: 21,2763 00006 EXTEND
035809,000468: 21,2764 63011 BZMF FVMINLM
035810,000469: 21,2765 12771 TCF +4
035811,000470: 21,2766 31751 FORVNEG CA FORVEL
035812,000471: 21,2767 00006 EXTEND
035813,000472: 21,2770 63011 BZMF FVMINLM
035814,000473: 21,2771 41746 CS FORVMETR
035815,000474: 21,2772 13013 TCF ZEROLSTZ
035816,000475: 21,2773 31751 NEGLMFV CA FORVEL
035817,000476: 21,2774 00006 EXTEND
035818,000477: 21,2775 63011 BZMF FVMINLM
035819,000478: 21,2776 33054 CA MAXVBITS
035820,000479: 21,2777 61746 AD FORVMETR
035821,000480: 21,3000 40000 COM
035822,000481: 21,3001 61751 AD FORVEL
035823,000482: 21,3002 00006 EXTEND
035824,000483: 21,3003 63011 BZMF FVMINLM
035825,000484: 21,3004 00006 EXTEND
035826,000485: 21,3005 61751 SU FORVEL
035827,000486: 21,3006 61746 AD FORVMETR
035828,000487: 21,3007 40000 COM
035829,000488: 21,3010 13013 TCF ZEROLSTZ
035830,000489: 21,3011 41746 FVMINLM CS FORVMETR
035831,000490: 21,3012 61751 AD FORVEL
035832,000491: 21,3013 56073 ZEROLSTZ XCH RUPTREG4
035833,000492: 21,3014 35030 CAF ZERO
035834,000493: 21,3015 55753 TS TRAKFWDV
035835,000494: 21,3016 30073 CA RUPTREG4
035836,000495: 21,3017 65027 AD NEG0 # AVOIDS +0 DINC HARDWARE MALFUNCTION
035837,000496: 21,3020 54054 TS CDUSCMD
035838,000497: 21,3021 30073 CA RUPTREG4
035839,000498: 21,3022 27746 ADS FORVMETR
035840,000499: 21,3023 01756 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
035841,000500: 21,3024 35030 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
035842,000501: 21,3025 54001 TS L # NO NEGATIVE ALTITUDES ALLOWED.
035843,000502: 21,3026 12211 TCF ZDATA2
035844,000503:
035845,000504: # ************************************************************************
035846,000505:
035847,000506: 21,3027 35017 DISPRSET CAF BIT8
035848,000507: 21,3030 71305 MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
035849,000508: 21,3031 10000 CCS A
035850,000509: 21,3032 35025 CAF BIT2 # YES. DISABLE RR ERROR COUNTER
035851,000510: 21,3033 65017 AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
035852,000511: 21,3034 40000 COM
035853,000512: 21,3035 00006 EXTEND
035854,000513: 21,3036 03012 WAND CHAN12
035855,000514: 21,3037 43045 CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
035856,000515: 21,3040 71305 MASK IMODES33
035857,000516: 21,3041 55305 TS IMODES33
035858,000517: 21,3042 45026 CS ONE
035859,000518: 21,3043 55316 TS DIDFLG
035860,000519: 21,3044 00002 TC Q
035861,000520:
035862,000521: # ************************************************************************
035863,000522:
035864,000523: 21,3045 00300 BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
035865,000524: 21,3046 5070 BITSET = PRIO6
035866,000525: 21,3046 24402 ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNIT
035867,000526: 21,3047 03220 ARTOA DEC .2051 B-1
035868,000527: 21,3050 06004 DATABITS OCT 06004
035869,000528: 21,3051 22316 VELCONV OCT 22316 # 588.914 B-10 CONV VEL. TO BIT UNITS.
035870,000529: 21,3052 01506 KPIP1(5) DEC .05115 # SCALES DELV TO M/CS*2(-5).
035871,000530: 21,3053 33427 OCT33427 OCT 33427
035872,000531: 21,3054 00547 MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
035873,000532:
035874,000533: # ************************************************************************
035875,000534:
035876,000535:
End of include-file LANDING_ANALOG_DISPLAYS.agc. Parent file is MAIN.agc