Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

039541,000002:                                                                                                  ## Copyright:   Public domain.
039542,000003:                                                                                                  ## Filename:    LANDING_ANALOG_DISPLAYS.agc
039543,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
039544,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
039545,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
039546,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
039547,000008:                                                                                                  ##              that the code format has been changed to conform to the
039548,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
039549,000010:                                                                                                  ##              original YUL assembler.
039550,000011:                                                                                                  ## Reference:   pp. 895-904
039551,000012:                                                                                                  ## Assembler:   yaYUL
039552,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039553,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039554,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
039555,000016:                                                                                                  ##              2016-11-27 HG   Transcribed
039556,000017:                                                                                                  ##              2016-12-12 HG   Fix operannd modifier none -> +4
039557,000018:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
039558,000019:                                                                                                  ##                              and corrected errors found.
039559,000020: 

Page 895

039561,000022: 21,2170                                           BANK     21                                    
039562,000023: 21,2000                                           SETLOC   R10                                   
039563,000024: 21,2000                                           BANK                                           
039564,000025: 
039565,000026: 21,2170  E7,1777                                  EBANK=   END-E7                                
039566,000027: 21,2170                                           COUNT*   $$/R10                                
039567,000028: 
039568,000029:                                                                                                  #  ****************************************************************************************************************
039569,000030:                                                                                                  #  LANADISP:  DISPLAY INERTIAL DATA ROUTINE FOR DESCENT AND ABORTS                            THIS VERSION BY EYLES
039570,000031:                                                                                                  #  ****************************************************************************************************************
039571,000032: 
039572,000033: 21,2170           23722        LANADISP           LXCH     PIPCTR1                               #  UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY
039573,000034: 21,2171           40025                           CS       TIME1                                 
039574,000035: 21,2172           53055                           DXCH     TBASE2                                
039575,000036: 
039576,000037: 21,2173           40103                           CS       FLAGWRD7                              #  IS LANDING ANALOG DISPLAYS FLAG SET?
039577,000038: 21,2174           74732                           MASK     SWANDBIT                              
039578,000039: 21,2175           10000                           CCS      A                                     
039579,000040: 21,2176           12654                           TCF      DISPRSET   +1                         #  NO:   GO RESET
039580,000041: 
039581,000042:                                                                                                  #  ************************************************************************
039582,000043:                                                                                                  #  COMPUTE VELOCITY VECTOR
039583,000044:                                                                                                  #  ************************************************************************
039584,000045: 
039585,000046:                                                                                                  #  DO EVERYTHING POSSIBLE BEFORE READING PIPAS.
039586,000047: 
039587,000048: 21,2177           00006                           EXTEND                                         
039588,000049: 21,2200           41702                           DCS      VSURFACE                              
039589,000050: 21,2201           53721                           DXCH     VVECTX                                
039590,000051: 21,2202           00006                           EXTEND                                         
039591,000052: 21,2203           31527                           DCA      V                                     
039592,000053: 21,2204           20001                           DDOUBL                                         
039593,000054: 21,2205           20001                           DDOUBL                                         
039594,000055: 21,2206           21721                           DAS      VVECTX                                
039595,000056: 
039596,000057: 21,2207           00006                           EXTEND                                         
039597,000058: 21,2210           41704                           DCS      VSURFACE   +2                         
039598,000059: 21,2211           53723                           DXCH     VVECTY                                
039599,000060: 21,2212           00006                           EXTEND                                         
039600,000061: 21,2213           31531                           DCA      V          +2                         
039601,000062: 21,2214           20001                           DDOUBL                                         
039602,000063: 21,2215           20001                           DDOUBL                                         
039603,000064: 21,2216           21723                           DAS      VVECTY                                
039604,000065: 
039605,000066: 21,2217           00006                           EXTEND                                         
039606,000067: 21,2220           41706                           DCS      VSURFACE   +4                         
039607,000068: 21,2221           53725                           DXCH     VVECTZ                                
039608,000069: 21,2222           00006                           EXTEND                                         
039609,000070: 21,2223           31533                           DCA      V          +4                         
039610,000071: 21,2224           20001                           DDOUBL                                         
039611,000072: 

Page 896

039613,000074: 21,2225           20001                           DDOUBL                                         
039614,000075: 21,2226           21725                           DAS      VVECTZ                                
039615,000076: 
039616,000077:                                                                                                  #  COMPUTE TIME SINCE PIPTIME.
039617,000078: 
039618,000079: 21,2227           41234                           CS       PIPTIME    +1                         
039619,000080: 21,2230           60025                           AD       TIME1                                 
039620,000081: 21,2231           64727                           AD       HALF                                  
039621,000082: 21,2232           64727                           AD       HALF                                  
039622,000083: 21,2233           57717                           XCH      DT                                    #  DT SINCE PIPTIME IN UNITS 0F 2(14) CS
039623,000084: 
039624,000085:                                                                                                  #  ADD IN PIPA PULSES.
039625,000086: 
039626,000087: 21,2234           31157                           CA       PIPATMPX                              
039627,000088: 21,2235           60037                           AD       PIPAX                                 
039628,000089: 21,2236           00006                           EXTEND                                         
039629,000090: 21,2237           72000                           MP       LANAKPIP                              
039630,000091: 21,2240           21721                           DAS      VVECTX                                
039631,000092: 
039632,000093: 21,2241           31160                           CA       PIPATMPY                              
039633,000094: 21,2242           60040                           AD       PIPAY                                 
039634,000095: 21,2243           00006                           EXTEND                                         
039635,000096: 21,2244           72000                           MP       LANAKPIP                              
039636,000097: 21,2245           21723                           DAS      VVECTY                                
039637,000098: 
039638,000099: 21,2246           31161                           CA       PIPATMPZ                              
039639,000100: 21,2247           60041                           AD       PIPAZ                                 
039640,000101: 21,2250           00006                           EXTEND                                         
039641,000102: 21,2251           72000                           MP       LANAKPIP                              
039642,000103: 21,2252           21725        QUARDUMP           DAS      VVECTZ                                #  TAG IS FOR EDITS
039643,000104: 
039644,000105:                                                                                                  #  FINALLY, ADD IN CONTRIBUTIONS OF GRAVITY AND PIPA BIAS.
039645,000106: 
039646,000107: 21,2253           31676                           CA       G-VBIASX                              #  G-VBIASX IS IN UNITS OF 2(-9) M/CS/CS
039647,000108: 21,2254           00006                           EXTEND                                         
039648,000109: 21,2255           71717                           MP       DT                                    
039649,000110: 21,2256           21721                           DAS      VVECTX                                #  VVECTX IN UNITS OF 2(5) M/CS
039650,000111: 
039651,000112: 21,2257           31677                           CA       G-VBIASY                              #  G-VBIASY IS IN UNITS OF 2(-9) M/CS/CS
039652,000113: 21,2260           00006                           EXTEND                                         
039653,000114: 21,2261           71717                           MP       DT                                    
039654,000115: 21,2262           21723                           DAS      VVECTY                                #  VVECTY IN UNITS OF 2(5) M/CS
039655,000116: 
039656,000117: 21,2263           31700                           CA       G-VBIASZ                              #  G-VBIASZ IS IN UNITS OF 2(-9) M/CS/CS
039657,000118: 21,2264           00006                           EXTEND                                         
039658,000119: 21,2265           71717                           MP       DT                                    
039659,000120: 21,2266           21725                           DAS      VVECTZ                                #  VVECTZ IN UNITS OF 2(5) M/CS
039660,000121: 
039661,000122:                                                                                                  #  ************************************************************************
039662,000123:                                                                                                  #  COMPUTE ALTITUDE AND ALTITUDE-RATE
039663,000124: 

Page 897

039665,000126:                                                                                                  #  ************************************************************************
039666,000127: 21,2267           31714        ALTSTUFF           CA       RUNITX                                #  COMPUTE RADIAL VELOCITY
039667,000128: 21,2270           00006                           EXTEND                                         
039668,000129: 21,2271           71720                           MP       VVECTX                                
039669,000130: 21,2272           53727                           DXCH     ALTRATE                               
039670,000131: 21,2273           31714                           CA       RUNITX                                #  COMPUTE THE MORE SENSITIVE TERM IN DP
039671,000132: 21,2274           00006                           EXTEND                                         
039672,000133: 21,2275           71721                           MP       VVECTX     +1                         
039673,000134: 21,2276           54001                           TS       L                                     
039674,000135: 21,2277           34746                           CAF      ZERO                                  
039675,000136: 21,2300           21727                           DAS      ALTRATE                               
039676,000137: 21,2301           31715                           CA       RUNITY                                #  NOTE:  WITH NORMAL DESCENT IMU ALIGNMENT
039677,000138: 21,2302           00006                           EXTEND                                         #    THIS TERM IS ALWAYS ZERO, BUT ALTRATE
039678,000139: 21,2303           71722                           MP       VVECTY                                #    CAN BE DISPLAYED DURING ASCENT TOO
039679,000140: 21,2304           21727                           DAS      ALTRATE                               
039680,000141: 21,2305           31716                           CA       RUNITZ                                
039681,000142: 21,2306           00006                           EXTEND                                         
039682,000143: 21,2307           71724                           MP       VVECTZ                                
039683,000144: 21,2310           21727                           DAS      ALTRATE                               
039684,000145: 
039685,000146: 21,2311           31713                           CA       DALTRATE                              #  COMPENSATE FOR CHANGE IN DIRECTION OF R
039686,000147: 21,2312           00006                           EXTEND                                         
039687,000148: 21,2313           71717                           MP       DT                                    
039688,000149: 21,2314           21727                           DAS      ALTRATE                               #  ALTRATE IN UNITS OF 2(5) M/CS
039689,000150: 
039690,000151: 21,2315           00006                           EXTEND                                         
039691,000152: 21,2316           31727                           DCA      ALTRATE                               
039692,000153: 21,2317           52064                           DXCH     ALTRTEMP                              
039693,000154: 21,2320           00006                           EXTEND                                         
039694,000155: 21,2321           31712                           DCA      HDOTLAD                               
039695,000156: 21,2322           20064                           DAS      ALTRTEMP                              #  AVERAGE ALTRATE IN UNITS OF 2(4) M/CS
039696,000157: 
039697,000158:                                                                                                  #  THE FOLLOWING COMPUTATION FAILS IF DT EXCEEDS 20.47 SECONDS (UNLIKELY).
039698,000159: 
039699,000160: 21,2323           31717                           CA       DT                                    
039700,000161: 21,2324           00006                           EXTEND                                         
039701,000162: 21,2325           74741                           MP       BIT4                                  
039702,000163: 21,2326           30001                           CA       L                                     #  FETCH DT FROM L IN UNITS OF 2(11) CS
039703,000164: 21,2327           00006                           EXTEND                                         
039704,000165: 21,2330           70063                           MP       ALTRTEMP                              
039705,000166: 21,2331           53731                           DXCH     ALTITUDE                              
039706,000167: 21,2332           00006                           EXTEND                                         
039707,000168: 21,2333           31710                           DCA      HCALCLAD                              
039708,000169: 21,2334           21731                           DAS      ALTITUDE                              #  ALTITUDE IN UNITS OF 2(15) METERS
039709,000170: 
039710,000171:                                                                                                  #  ************************************************************************
039711,000172:                                                                                                  #  SEND OUT ALTITUDE-RATE IF POSSIBLE
039712,000173:                                                                                                  #  ************************************************************************
039713,000174: 

Page 898

039715,000176: 21,2335           40075                           CS       FLAGWRD1                              #  IS INITIALIZATION IN ORDER?
039716,000177: 21,2336           74727                           MASK     DIDFLBIT                              
039717,000178: 21,2337           10000                           CCS      A                                     
039718,000179: 21,2340           12626                           TCF      DISPINIT                              #  YES:  THEN GO DO IT
039719,000180: 
039720,000181: 21,2341           34743                           CAF      BIT2                                  #  NO:   ARE RR ERROR COUNTERS ENABLED?
039721,000182: 21,2342           00006                           EXTEND                                         
039722,000183: 21,2343           02012                           RAND     CHAN12                                
039723,000184: 21,2344           00006                           EXTEND                                         
039724,000185: 21,2345           12653                           BZF      DISPRSET                              #  NO:   REINITIALIZE DISPLAYS
039725,000186: 21,2346           00006        ALTRROUT           EXTEND                                         #  YES:  SIGNIFY ALTITUDE-RATE (BIT2 IN A)
039726,000187: 21,2347           05014                           WOR      CHAN14                                
039727,000188: 
039728,000189: 21,2350           00006                           EXTEND                                         
039729,000190: 21,2351           31727                           DCA      ALTRATE                               
039730,000191: 21,2352           20001                           DDOUBL                                         #  RESCALE ALTRATE TO UNITS OF 2(2) M/CS
039731,000192: 21,2353           20001                           DDOUBL                                         
039732,000193: 21,2354           20001                           DDOUBL                                         
039733,000194: 21,2355           00006                           EXTEND                                         
039734,000195: 21,2356           72004                           MP       ALTRCONV                              #  RESCALE TO UNITS OF .5 F/S/BIT
039735,000196: 
039736,000197: 21,2357           56001                           XCH      L                                     #  ROUND TO NEAREST .5 F/S
039737,000198: 21,2360           60000                           DOUBLE                                         
039738,000199: 21,2361           54002                           TS       Q                                     
039739,000200: 21,2362           34746                           CAF      ZERO                                  
039740,000201: 21,2363           26001                           ADS      L                                     
039741,000202: 
039742,000203: 21,2364           64726                           AD       NEGMAX                                
039743,000204: 21,2365           54001                           TS       L                                     
039744,000205: 21,2366           12371                           TCF      +3                                    
039745,000206: 21,2367           60001                           AD       L                                     
039746,000207: 21,2370           40000                           COM                                            
039747,000208: 21,2371           56060                 +3        XCH      ALTM                                  
039748,000209: 
039749,000210: 21,2372           34742                           CAF      BIT3                                  
039750,000211: 21,2373           00006                           EXTEND                                         
039751,000212: 21,2374           05014                           WOR      CHAN14                                
039752,000213: 
039753,000214: 21,2375           35745                           CA       TWELVE                                #  DELAY 120 MS FOR DATA OUTPUT
039754,000215:                                                                                                  #  NOTE - THIS DELAY MUST BE GREATER THAN
039755,000216:                                                                                                  #  100 MS FOR COMPATIBILITY WITH THE LMS
039756,000217: 21,2376           05226                           TC       VARDELAY                              
039757,000218: 
039758,000219: 21,2377           44743        ALTROUT            CS       BIT2                                  #  SIGNIFY ALTITUDE
039759,000220: 21,2400           00006                           EXTEND                                         
039760,000221: 21,2401           03014                           WAND     CHAN14                                
039761,000222: 
039762,000223: 21,2402           31731                           CA       ALTITUDE   +1                         
039763,000224: 21,2403           00006                           EXTEND                                         
039764,000225: 21,2404           72005                           MP       ALTCONV                               
039765,000226: 

Page 899

039767,000228: 21,2405           54001                           TS       L                                     
039768,000229: 21,2406           34746                           CAF      ZERO                                  
039769,000230: 21,2407           52064                           DXCH     ALTTEMP                               
039770,000231: 21,2410           31730                           CA       ALTITUDE                              
039771,000232: 21,2411           00006                           EXTEND                                         
039772,000233: 21,2412           72005                           MP       ALTCONV                               
039773,000234: 21,2413           20064                           DAS      ALTTEMP                               #  ALTITUDE IN UNITS OF 9.380 FEET/BIT
039774,000235: 
039775,000236: 21,2414           52064                           DXCH     ALTTEMP                               
039776,000237: 21,2415           20001                           DDOUBL                                         
039777,000238: 21,2416           20001                           DDOUBL                                         #  RESCALE TO UNITS OF 2.345 FEET/BIT
039778,000239: 21,2417           54000                           OVSK                                           
039779,000240: 21,2420           12424                           TCF      +4                                    #  NO OVERFLOW:  -38420 < ALTITUDE < +38420
039780,000241: 
039781,000242: 21,2421           74724                           MASK     POSMAX                                #  RESET OVERFLOW
039782,000243: 21,2422           64726                           AD       BIT15                                 
039783,000244: 21,2423           12430                           TCF      +5                                    
039784,000245: 
039785,000246: 21,2424           10000                 +4        CCS      A                                     #  APPLY LOWER LIMIT OF POSITIVE ZERO
039786,000247: 21,2425           64744                           AD       ONE                                   
039787,000248: 21,2426           12430                           TCF      +2                                    
039788,000249: 21,2427           34746                           CAF      ZERO                                  
039789,000250: 
039790,000251: 21,2430           56060                 +5        XCH      ALTM                                  
039791,000252: 21,2431           34742                           CAF      BIT3                                  
039792,000253: 21,2432           00006                           EXTEND                                         
039793,000254: 21,2433           05014                           WOR      CHAN14                                
039794,000255: 
039795,000256:                                                                                                  #  ************************************************************************
039796,000257:                                                                                                  #  SEND OUT FORWARD AND LATERAL VELOCITIES
039797,000258:                                                                                                  #  ************************************************************************
039798,000259: 
039799,000260: 21,2434           02513                           TC       CROSCOMP                              #  FIRST CALL SUBROUTINE TO COMPUTE THEM
039800,000261: 
039801,000262: 21,2435           34733                           CAF      BIT10                                 #  1/32 TO ITEMP2 FOR USE AS DIVISOR BELOW
039802,000263: 21,2436           54062                           TS       ITEMP2                                
039803,000264: 
039804,000265: 21,2437           32001                           CAF      MAXVEL                                #  LIMIT COMMAND TO 198.645 F/S
039805,000266: 21,2440           22070                           LXCH     FORVTEMP                              
039806,000267: 21,2441           02673                           TC       LADLIMIT                              
039807,000268: 21,2442           22071                           LXCH     FORVTEMP   +1                         
039808,000269: 21,2443           00006                           EXTEND                                         #  RESCALE TO UNITS OF ONE M/CS
039809,000270: 21,2444           10062                           DV       ITEMP2                                
039810,000271: 21,2445           00006                           EXTEND                                         #  RESCALE TO UNITS OF .5571 F/S/BIT
039811,000272: 21,2446           72003                           MP       VELCONV                               
039812,000273: 21,2447           56001                           XCH      L                                     #  ROUND TO NEAREST .5571 F/S
039813,000274: 21,2450           60000                           DOUBLE                                         
039814,000275: 21,2451           54002                           TS       Q                                     
039815,000276: 21,2452           12454                           TCF      FORVOUT                               
039816,000277: 21,2453           26001                           ADS      L                                     
039817,000278: 

Page 900

039819,000280: 21,2454           41733        FORVOUT            CS       FORVMETR                              #  SUBTRACT METER INDICATOR TO GET CHANGE
039820,000281: 21,2455           26001                           ADS      L                                     
039821,000282: 21,2456           32002                           CA       MAXDBITS                              
039822,000283: 21,2457           02673                           TC       LADLIMIT                              #  LIMIT CHANGE TO ABOUT 300 F/S
039823,000284: 21,2460           64745                           AD       NEG0                                  
039824,000285: 21,2461           54054                           TS       CDUSCMD                               
039825,000286: 21,2462           27733                           ADS      FORVMETR                              #  UPDATE METER INDICATOR
039826,000287: 
039827,000288: 21,2463           32001                           CAF      MAXVEL                                #  LIMIT COMMAND TO 198.645 F/S
039828,000289: 21,2464           22072                           LXCH     LATVEL                                
039829,000290: 21,2465           02673                           TC       LADLIMIT                              
039830,000291: 21,2466           22073                           LXCH     LATVEL     +1                         
039831,000292: 21,2467           00006                           EXTEND                                         #  RESCALE TO UNITS OF ONE M/CS
039832,000293: 21,2470           10062                           DV       ITEMP2                                
039833,000294: 21,2471           00006                           EXTEND                                         #  RESCALE TO UNITS OF .5571 F/S/BIT
039834,000295: 21,2472           72003                           MP       VELCONV                               
039835,000296: 21,2473           56001                           XCH      L                                     #  ROUND TO NEAREST .5571 F/S
039836,000297: 21,2474           60000                           DOUBLE                                         
039837,000298: 21,2475           54002                           TS       Q                                     
039838,000299: 21,2476           12500                           TCF      LATVOUT                               
039839,000300: 21,2477           26001                           ADS      L                                     
039840,000301: 21,2500           41732        LATVOUT            CS       LATVMETR                              #  SUBTRACT METER INDICATOR TO GET CHANGE
039841,000302: 21,2501           26001                           ADS      L                                     
039842,000303: 21,2502           32002                           CAF      MAXDBITS                              
039843,000304: 21,2503           02673                           TC       LADLIMIT                              #  LIMIT CHANGE TO ABOUT 300 F/S
039844,000305: 21,2504           64745                           AD       NEG0                                  
039845,000306: 21,2505           54053                           TS       CDUTCMD                               
039846,000307: 21,2506           27732                           ADS      LATVMETR                              #  UPDATE METER INDICATOR
039847,000308: 
039848,000309: 21,2507           35011                           CAF      BITSET                                #  SET DRIVE BITS
039849,000310: 21,2510           00006                           EXTEND                                         
039850,000311: 21,2511           05014                           WOR      CHAN14                                
039851,000312: 
039852,000313: 21,2512           05263        LANADEND           TC       TASKOVER                              
039853,000314: 
039854,000315:                                                                                                  #  ************************************************************************
039855,000316:                                                                                                  #  SUBROUTINE TO COMPUTE FORWARD AND LATERAL VELOCITIES
039856,000317:                                                                                                  #  ************************************************************************
039857,000318: 
039858,000319:                                                                                                  #      THE SCALARS VHY AND VHZ, COMPUTED NEXT, ARE THE VELOCITIES ALONG UNIT VECTORS UHYP AND UHZP. UHYP NORMAL
039859,000320:                                                                                                  #  TO THE PRE-PDI ORBITAL PLANE, UHZP IN TURN NORMAL TO UHYP AND THE POSITION VECTOR.  NOW SINCE FOR THE "LANDING
039860,000321:                                                                                                  #  ALIGNMENT" OF THE IMU THE STABLE-MEMBER Y-AXIS IS DEFINED THE SAME WAY AS UHYP, VVECTY IS PRECISELY VHY.
039861,000322:                                                                                                  #  FURTHERMORE, THE Y-TERM OF THE VHZ COMPUTATION DROPS OUT, AND THE FOLLOWING USEFUL EQUALITIES BECOME TRUE:
039862,000323:                                                                                                  #  UHZPX = - RUNITZ AND UHZPZ = RUNITX.  DRAW A PICTURE TO BE CONVINCED.
039863,000324: 
039864,000325:                                                                                                  #      NOTE THAT IN THIS VERSION CROSS-POINTER DISPLAYS ARE OUTPUT DURING ASCENT AND ABORTS AS WELL AS DESCENT.
039865,000326: 
039866,000327: 21,2513           40074        CROSCOMP           CS       FLAGWRD0                              #  IS R10FLAG SET TO INDICATE ASCENT?
039867,000328: 21,2514           74743                           MASK     R10FLBIT                              
039868,000329: 21,2515           00006                           EXTEND                                         
039869,000330: 

Page 901

039871,000332: 21,2516           12615                           BZF      APSLAD                                #  YES:  DISPLAY LATVEL IN INERTIAL AXES
039872,000333: 
039873,000334: 21,2517           41716                           CS       RUNITZ                                #  NO:   COMPUTE DOWNRANGE VELOCITY
039874,000335: 21,2520           00006                           EXTEND                                         
039875,000336: 21,2521           71720                           MP       VVECTX                                
039876,000337: 21,2522           52066                           DXCH     VHZ                                   
039877,000338: 21,2523           31714                           CA       RUNITX                                
039878,000339: 21,2524           00006                           EXTEND                                         
039879,000340: 21,2525           71724                           MP       VVECTZ                                
039880,000341: 21,2526           20066                           DAS      VHZ                                   
039881,000342: 21,2527           31714                           CA       RUNITX                                #  COMPUTE THE MORE SENSITIVE TERM IN DP
039882,000343: 21,2530           00006                           EXTEND                                         
039883,000344: 21,2531           71725                           MP       VVECTZ     +1                         
039884,000345: 21,2532           54001                           TS       L                                     
039885,000346: 21,2533           34746                           CAF      ZERO                                  
039886,000347: 21,2534           20066                           DAS      VHZ                                   #  VHZ IN UNITS OF 2(5) M/CS
039887,000348: 
039888,000349: 21,2535           00006                           EXTEND                                         
039889,000350: 21,2536           31723                           DCA      VVECTY                                
039890,000351: 21,2537           52064                           DXCH     VHY                                   #  VHY IN UNITS OF 2(5) M/CS
039891,000352: 
039892,000353: 21,2540           35006                           CAF      EBANK6                                #  SWITCH TO DAP EBANK
039893,000354: 21,2541           54003                           TS       EBANK                                 
039894,000355: 21,2542  E6,1417                                  EBANK=   M22                                   
039895,000356: 
039896,000357: 21,2542           31420                           CA       M32                                   #  COS(AOG)
039897,000358: 21,2543           00006                           EXTEND                                         
039898,000359: 21,2544           70065                           MP       VHZ                                   
039899,000360: 21,2545           52071                           DXCH     FORVTEMP                              
039900,000361: 21,2546           41417                           CS       M22                                   #  SIN(AOG)
039901,000362: 21,2547           00006                           EXTEND                                         
039902,000363: 21,2550           70063                           MP       VHY                                   
039903,000364: 21,2551           20071                           DAS      FORVTEMP                              
039904,000365: 
039905,000366: 21,2552           31420                           CA       M32                                   #  COS(AOG)
039906,000367: 21,2553           00006                           EXTEND                                         
039907,000368: 21,2554           70066                           MP       VHZ        +1                         
039908,000369: 21,2555           54062                           TS       ITEMP2                                
039909,000370: 21,2556           41417                           CS       M22                                   #  SIN(AOG)
039910,000371: 21,2557           00006                           EXTEND                                         
039911,000372: 21,2560           70064                           MP       VHY        +1                         
039912,000373: 21,2561           60062                           AD       ITEMP2                                
039913,000374: 21,2562           54001                           TS       L                                     
039914,000375: 21,2563           34746                           CAF      ZERO                                  
039915,000376: 21,2564           20071                           DAS      FORVTEMP                              #  FORWARD VELOCITY IN UNITS OF 2(5) M/CS
039916,000377: 
039917,000378: 21,2565           31417                           CA       M22                                   #  SIN(AOG)
039918,000379: 21,2566           00006                           EXTEND                                         
039919,000380: 21,2567           70065                           MP       VHZ                                   
039920,000381: 21,2570           52073                           DXCH     LATVEL                                
039921,000382: 

Page 902

039923,000384: 21,2571           31420                           CA       M32                                   #  COS(AOG)
039924,000385: 21,2572           00006                           EXTEND                                         
039925,000386: 21,2573           70063                           MP       VHY                                   
039926,000387: 21,2574           20073                           DAS      LATVEL                                
039927,000388: 
039928,000389: 21,2575           31417                           CA       M22                                   #  SIN(AOG)
039929,000390: 21,2576           00006                           EXTEND                                         
039930,000391: 21,2577           70066                           MP       VHZ        +1                         
039931,000392: 21,2600           54062                           TS       ITEMP2                                
039932,000393: 21,2601           31420                           CA       M32                                   #  COS(AOG)
039933,000394: 21,2602           00006                           EXTEND                                         
039934,000395: 21,2603           70064                           MP       VHY        +1                         
039935,000396: 21,2604           60062                           AD       ITEMP2                                
039936,000397: 21,2605           54001                           TS       L                                     
039937,000398: 21,2606           34746                           CAF      ZERO                                  
039938,000399: 21,2607           20073                           DAS      LATVEL                                #  LATERAL VELOCITY IN UNITS OF 2(5) M/CS
039939,000400: 
039940,000401: 21,2610           24006                           INCR     BBANK                                 #  RETURN TO SERVICER EBANK
039941,000402: 21,2611  E7,1711                                  EBANK=   HDOTLAD                               
039942,000403: 
039943,000404: 21,2611           00006        CROSSOUT           EXTEND                                         #  MOVE FORVTEMP TO FORVEL FOR DSKY DISPLAY
039944,000405: 21,2612           30071                           DCA      FORVTEMP                              
039945,000406: 21,2613           53735                           DXCH     FORVEL                                
039946,000407: 
039947,000408: 21,2614           00002                           TC       Q                                     
039948,000409: 
039949,000410: 21,2615           54070        APSLAD             TS       FORVTEMP                              #  DURING ASCENT AND ABORTS COME HERE TO
039950,000411: 21,2616           54071                           TS       FORVTEMP   +1                         #    DISPLAY LATVEL = SM Y-AXIS VELOCITY
039951,000412: 
039952,000413: 21,2617           00006                           EXTEND                                         
039953,000414: 21,2620           31723                           DCA      VVECTY                                
039954,000415: 21,2621           52073                           DXCH     LATVEL                                
039955,000416: 21,2622           00006                           EXTEND                                         #  ADD SURFACE VELOCITY BACK IN SO APS
039956,000417: 21,2623           31704                           DCA      VSURFACE   +2                         #    LATVEL DISPLAY WILL BE IN TRUE
039957,000418: 21,2624           20073                           DAS      LATVEL                                #    STABLE-MEMBER COORDINATES
039958,000419: 
039959,000420: 21,2625           12611                           TCF      CROSSOUT                              #  REJOIN THE MAINSTREAM
039960,000421: 
039961,000422:                                                                                                  #  ************************************************************************
039962,000423:                                                                                                  #  LANDING ANALOG DISPLAYS INITIALIZATION
039963,000424:                                                                                                  #  ************************************************************************
039964,000425: 
039965,000426: 21,2626           02513        DISPINIT           TC       CROSCOMP                              #  FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
039966,000427: 
039967,000428: 21,2627           40075                           CS       FLAGWRD1                              #  SET DIDFLAG
039968,000429: 21,2630           74727                           MASK     DIDFLBIT                              
039969,000430: 21,2631           26075                           ADS      FLAGWRD1                              
039970,000431: 
039971,000432: 21,2632           34735                           CAF      BIT8                                  #  SET DISPLAY INERTIAL DATA OUTBIT
039972,000433: 21,2633           00006                           EXTEND                                         
039973,000434: 

Page 903

039975,000436: 21,2634           05012                           WOR      CHAN12                                
039976,000437: 
039977,000438: 21,2635           44746                           CS       ZERO                                  #  ZERO METER INDICATORS
039978,000439: 21,2636           55732                           TS       LATVMETR                              
039979,000440: 21,2637           55733                           TS       FORVMETR                              
039980,000441: 
039981,000442: 21,2640           34741                           CAF      BIT4                                  #  SET UP TASK TO FINISH INITIALIZATION
039982,000443: 21,2641           05175                           TC       TWIDDLE                               
039983,000444: 21,2642           02644                           ADRES    INTLZE                                
039984,000445: 21,2643           12512                           TCF      LANADEND                              
039985,000446: 
039986,000447: 21,2644           34743        INTLZE             CAF      BIT2                                  #  ENABLE RR ERROR COUNTER
039987,000448: 21,2645           00006                           EXTEND                                         
039988,000449: 21,2646           05012                           WOR      CHAN12                                
039989,000450: 
039990,000451: 21,2647           41300                           CS       IMODES33                              #  SET INERTIAL DATA FLAG
039991,000452: 21,2650           74735                           MASK     BIT8                                  
039992,000453: 21,2651           27300                           ADS      IMODES33                              
039993,000454: 21,2652           05263                           TC       TASKOVER                              
039994,000455: 
039995,000456:                                                                                                  #  ************************************************************************
039996,000457:                                                                                                  #  LANDING ANALOG DISPLAYS RESET ROUTINE
039997,000458:                                                                                                  #  ************************************************************************
039998,000459: 
039999,000460: 21,2653           02513        DISPRSET           TC       CROSCOMP                              #  FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
040000,000461: 
040001,000462: 21,2654           44727                 +1        CS       DIDFLBIT                              #  RESET DIDFLAG
040002,000463: 21,2655           70075                           MASK     FLAGWRD1                              
040003,000464: 21,2656           54075                           TS       FLAGWRD1                              
040004,000465: 
040005,000466: 21,2657           34735                           CAF      BIT8                                  #  WAS INERTIAL DATA JUST DISPLAYED?
040006,000467: 21,2660           71300                           MASK     IMODES33                              
040007,000468: 21,2661           10000                           CCS      A                                     
040008,000469: 21,2662           34743                           CAF      BIT2                                  #  YES:  DISABLE RR ERROR COUNTER AND
040009,000470: 21,2663           64735                           AD       BIT8                                  #  NO:   RESET DISPLAY INERTIAL DATA OUTBIT
040010,000471: 21,2664           40000                           COM                                            
040011,000472: 21,2665           00006                           EXTEND                                         
040012,000473: 21,2666           03012                           WAND     CHAN12                                
040013,000474: 
040014,000475: 21,2667           44735                           CS       BIT8                                  
040015,000476: 21,2670           71300                           MASK     IMODES33                              
040016,000477: 21,2671           55300                           TS       IMODES33                              
040017,000478: 21,2672           12512                           TCF      LANADEND                              
040018,000479: 
040019,000480:                                                                                                  #  ************************************************************************
040020,000481:                                                                                                  #  CONSTANTS FOR LANDING ANALOG DISPLAYS
040021,000482:                                                                                                  #  ************************************************************************
040022,000483: 
040023,000484:                                                                                                  #  CONSTANTS ON A-CARDS ARE FOUND IN THE CONTROLLED CONSTANTS SECTION
040024,000485: 

Page 904

040026,000487:                                                                                                  #  LANAKPIP        DEC             .0512                 SCALES PIPAS TO UNITS OF 2(5) M/CS
040027,000488: 
040028,000489:                                                                                                  #  MAXVEL          OCT             00466                 A98.645 F/S IN UNITS OF 2(5) M/CS
040029,000490: 
040030,000491:                                                                                                  #  MAXDBITS        OCT             01034                 ABOUT 300 F/S
040031,000492: 
040032,000493:                                                                                                  #  VELCONV         DEC             .03594                SCALES VEL AT ONE M/CS TO .5571 F/S/BIT
040033,000494: 
040034,000495:                                                                                                  #  ALTRCONV        DEC             .16020                SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
040035,000496: 
040036,000497:                                                                                                  #  ALTCONV         DEC             .69954                SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
040037,000498: 
040038,000499: 21,2673     5011               BITSET             =        PRIO6                                 #  CROSS-POINTER DRIVE BITS
040039,000500: 
040040,000501:                                                                                                  #  ************************************************************************
040041,000502:                                                                                                  #  SUBROUTINES
040042,000503:                                                                                                  #  ************************************************************************
040043,000504: 21,2673           54061        LADLIMIT           TS       ITEMP1                                
040044,000505: 21,2674           34746                           CAF      ZERO                                  
040045,000506: 21,2675           00006                           EXTEND                                         
040046,000507: 21,2676           10061                           DV       ITEMP1                                
040047,000508: 21,2677           10000                           CCS      A                                     
040048,000509: 21,2700           22061                           LXCH     ITEMP1                                
040049,000510: 21,2701           12703                           TCF      +2                                    
040050,000511: 21,2702           12705                           TCF      +3                                    
040051,000512: 21,2703           30001                           CA       L                                     
040052,000513: 21,2704           00002                           TC       Q                                     
040053,000514: 21,2705           40061                           CS       ITEMP1                                
040054,000515: 21,2706           00002                           TC       Q                                     
040055,000516: 
040056,000517:                                                                                                  #  ************************************************************************
040057,000518:                                                                                                  #  THE END OF THE LANDING ANALOG DISPLAYS
040058,000519:                                                                                                  #  ************************************************************************

End of include-file LANDING_ANALOG_DISPLAYS.agc.  Parent file is MAIN.agc