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