Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

038491,000002:                                                                                                  ## Copyright:   Public domain.
038492,000003:                                                                                                  ## Filename:    LANDING_ANALOG_DISPLAYS.agc
038493,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
038494,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
038495,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
038496,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
038497,000008:                                                                                                  ##              that the code format has been changed to conform to the
038498,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
038499,000010:                                                                                                  ##              original YUL assembler.
038500,000011:                                                                                                  ## Reference:   pp. 891-900
038501,000012:                                                                                                  ## Assembler:   yaYUL
038502,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038503,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038504,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
038505,000016:                                                                                                  ##              2017-02-15 NV   Updated for Luminary 116.
038506,000017:                                                                                                  ##              2017-03-13 RSB  Proofed comment text via 3-way diff vs
038507,000018:                                                                                                  ##                              Luminary 99 and 131 ... no problems found.
038508,000019: 

Page 891

038510,000021: 21,2145                                           BANK     21                                    
038511,000022: 21,2000                                           SETLOC   R10                                   
038512,000023: 21,2000                                           BANK                                           
038513,000024: 
038514,000025: 21,2145  E7,1536                                  EBANK=   UNIT/R/                               
038515,000026: 21,2145                                           COUNT*   $$/R10                                
038516,000027: 
038517,000028: 21,2145           23714        LANDISP            LXCH     PIPCTR1                               #  UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038518,000029: 21,2146           40025                           CS       TIME1                                 
038519,000030: 21,2147           53055                           DXCH     TBASE2                                
038520,000031: 
038521,000032: 21,2150           40103                           CS       FLAGWRD7                              #  IS LANDING ANALOG DISPLAYS FLAG SET?
038522,000033: 21,2151           74741                           MASK     SWANDBIT                              
038523,000034: 21,2152           10000                           CCS      A                                     
038524,000035: 21,2153           13044                           TCF      DISPRSET                              #  NO.
038525,000036: 21,2154           31300                           CA       IMODES33                              #  BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
038526,000037: 21,2155           74745                           MASK     BIT7                                  
038527,000038: 21,2156           10000                           CCS      A                                     
038528,000039: 21,2157           12231                           TCF      ALTOUT                                
038529,000040: 21,2160           02315        ALTROUT            TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
038530,000041: 21,2161           41300                           CS       IMODES33                              
038531,000042: 21,2162           74745                           MASK     BIT7                                  
038532,000043: 21,2163           27300                           ADS      IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038533,000044: 21,2164           34752                           CAF      BIT2                                  #  RATE COMMAND IS EXECUTED BEFORE RANGE.
038534,000045: 21,2165           00006                           EXTEND                                         
038535,000046: 21,2166           05014                           WOR      CHAN14                                #  ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
038536,000047: 21,2167           31743        ARCOMP             CA       RUNIT                                 #  COMPUTE ALTRATE=RUNIT.VVECT M/CS *2(-6).
038537,000048: 21,2170           00006                           EXTEND                                         
038538,000049: 21,2171           71706                           MP       VVECT                                 #  MULTIPLY X-COMPONENTS.
038539,000050: 21,2172           56070                           XCH      RUPTREG1                              #  SAVE SINGLE PRECISION RESULT M/CS*2(-6).
038540,000051: 21,2173           31744                           CA       RUNIT      +1                         #  MULTIPLY Y-COMPONENTS.
038541,000052: 21,2174           00006                           EXTEND                                         
038542,000053: 21,2175           71707                           MP       VVECT      +1                         
038543,000054: 21,2176           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038544,000055: 21,2177           31745                           CA       RUNIT      +2                         #  MULTIPLY Z-COMPONENTS.
038545,000056: 21,2200           00006                           EXTEND                                         
038546,000057: 21,2201           71710                           MP       VVECT      +2                         
038547,000058: 21,2202           26070                           ADS      RUPTREG1                              #  ALTITUDE RATE IN M/CS *2(-6).
038548,000059: 21,2203           32000                           CA       ARCONV                                #  CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
038549,000060: 21,2204           00006                           EXTEND                                         
038550,000061: 21,2205           70070                           MP       RUPTREG1                              
038551,000062: 21,2206           20001                           DDOUBL                                         
038552,000063: 21,2207           20001                           DDOUBL                                         
038553,000064: 21,2210           56070                           XCH      RUPTREG1                              #  ALTITUDE RATE IN BIT UNITS*2(-14).
038554,000065: 21,2211           31716                           CA       DALTRATE                              #  ALTITUDE RATE COMPENSATION FACTOR.
038555,000066: 21,2212           00006                           EXTEND                                         
038556,000067: 21,2213           71715                           MP       DT                                    
038557,000068: 21,2214           60070                           AD       RUPTREG1                              
038558,000069: 21,2215           55711                           TS       ALTRATE                               #  ALTITUDE RATE IN BIT UNITS*2(-14).
038559,000070: 21,2216           41711                           CS       ALTRATE                               

Page 892

038561,000072: 21,2217           00006                           EXTEND                                         #  CHECK POLARITY OF ALTITUDE RATE.
038562,000073: 21,2220           62222                           BZMF     +2                                    
038563,000074: 21,2221           12224                           TCF      DATAOUT                               #  NEGATIVE - SEND POS. PULSES TO ALTM REG.
038564,000075: 21,2222           31711                           CA       ALTRATE                               #  POSITIVE OR ZERO - SET SIGN BIT = 1 AND
038565,000076: 21,2223           64735                           AD       BIT15                                 #  SEND TO ALTM REGISTER.  *DO NOT SEND +0*
038566,000077: 21,2224           54060        DATAOUT            TS       ALTM                                  #  ACTIVATE THE LANDING ANALOG DISPLAYS - -
038567,000078: 21,2225           34751                           CAF      BIT3                                  
038568,000079: 21,2226           00006                           EXTEND                                         
038569,000080: 21,2227           05014                           WOR      CHAN14                                #  BIT3 DRIVES THE ALT/ALTRATE METER.
038570,000081: 21,2230           15261                           TCF      TASKOVER                              #  EXIT
038571,000082: 
038572,000083: 21,2231           02315        ALTOUT             TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
038573,000084: 21,2232           44745                           CS       BIT7                                  
038574,000085: 21,2233           71300                           MASK     IMODES33                              
038575,000086: 21,2234           55300                           TS       IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038576,000087: 21,2235           44752                           CS       BIT2                                  
038577,000088: 21,2236           00006                           EXTEND                                         
038578,000089: 21,2237           03014                           WAND     CHAN14                                
038579,000090: 21,2240           11741                           CCS      ALTBITS                               #  =-1 IF OLD ALT. DATA TOBE EXTRAPOLATED.
038580,000091: 21,2241           12245                           TCF      +4                                    
038581,000092: 21,2242           12245                           TCF      +3                                    
038582,000093: 21,2243           12263                           TCF      OLDDATA                               
038583,000094: 21,2244           55741                           TS       ALTBITS                               #  SET ALTBITS FROM -0 TO +0.
038584,000095: 21,2245           44753                           CS       ONE                                   
038585,000096: 21,2246           53742                           DXCH     ALTBITS                               #  SET ALTBITS =-1 FOR SWITCH USE NEXT PASS.
038586,000097: 21,2247           53713                           DXCH     ALTSAVE                               
038587,000098: 21,2250           34742                           CA       BIT10                                 #  NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
038588,000099: 21,2251           56002                           XCH      Q                                     
038589,000100: 21,2252           22007                           LXCH     7                                     #  ZL
038590,000101: 21,2253           31715                           CA       DT                                    
038591,000102: 21,2254           00006                           EXTEND                                         
038592,000103: 21,2255           10002                           DV       Q                                     #  RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
038593,000104: 21,2256           00006                           EXTEND                                         
038594,000105: 21,2257           72002                           MP       ARTOA2                                #  .0021322 *2(+8)
038595,000106: 21,2260           12264                           TCF      OLDDATA    +1                         #  RATE APPLIES FOR DT CS.
038596,000107: 
038597,000108: 21,2261           53713        ZDATA2             DXCH     ALTSAVE                               
038598,000109: 21,2262           12304                           TCF      NEWDATA                               
038599,000110: 21,2263           32001        OLDDATA            CA       ARTOA                                 #  RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
038600,000111: 21,2264           00006                           EXTEND                                         
038601,000112: 21,2265           71711                           MP       ALTRATE                               #  EXTRAPOLATE WITH ALTITUDE RATE.
038602,000113: 21,2266           20001                           DDOUBL                                         
038603,000114: 21,2267           61713                           AD       ALTSAVE    +1                         
038604,000115: 21,2270           55713                           TS       ALTSAVE    +1                         
038605,000116: 21,2271           34755                           CAF      ZERO                                  
038606,000117: 21,2272           27712                           ADS      ALTSAVE                               
038607,000118: 21,2273           34733                           CAF      POSMAX                                #  FORCE SIGN AGREEMENT ASSUMING A
038608,000119: 21,2274           64753                           AD       ONE                                   #  NON-NEGATIVE ALTSAVE.
038609,000120: 21,2275           61713                           AD       ALTSAVE    +1                         #  IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
038610,000121: 21,2276           55713                           TS       ALTSAVE    +1                         #  AND ALTSAVE +1 AT ZERODATA.

Page 893

038612,000123: 21,2277           34755                           CAF      ZERO                                  
038613,000124: 21,2300           64733                           AD       POSMAX                                
038614,000125: 21,2301           61712                           AD       ALTSAVE                               
038615,000126: 21,2302           55712                           TS       ALTSAVE                               #  POSSIBLY SKIP TO NEWDATA.
038616,000127: 21,2303           13041                           TCF      ZERODATA                              
038617,000128: 21,2304           11713        NEWDATA            CCS      ALTSAVE    +1                         
038618,000129: 21,2305           12311                           TCF      +4                                    
038619,000130: 21,2306           12311                           TCF      +3                                    
038620,000131: 21,2307           34755                           CAF      ZERO                                  #  SET NEGATIVE ALTSAVE +1 TO +0.
038621,000132: 21,2310           55713                           TS       ALTSAVE    +1                         
038622,000133: 21,2311           11712                           CCS      ALTSAVE                               #  PROVIDE A 15 BIT UNSIGNED OUTPUT.
038623,000134: 21,2312           34735                           CAF      BIT15                                 #  THE HI-ORDER PART IS +1 OR +0.
038624,000135: 21,2313           61713                           AD       ALTSAVE    +1                         
038625,000136: 21,2314           12224                           TCF      DATAOUT                               #  DISPATCH UNSIGNED BITS TO ALTM REG.
038626,000137: 21,2315           00006        DISINDAT           EXTEND                                         
038627,000138: 21,2316           23714                           QXCH     LADQSAVE                              #  SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
038628,000139: 21,2317           34746                           CAF      BIT6                                  
038629,000140: 21,2320           00006                           EXTEND                                         #  WISHETH THE ASTRONAUT THE ANALOG
038630,000141: 21,2321           02030                           RAND     CHAN30                                #  DISPLAYS?  I.E.,
038631,000142: 21,2322           10000                           CCS      A                                     #  IS THE MODE SELECT SWITCH IN PGNCS?
038632,000143: 21,2323           13044                           TCF      DISPRSET                              #  NO.  ASTRONAUT REQUESTS NO INERTIAL DATA
038633,000144: 21,2324           40075                           CS       FLAGWRD1                              #  YES.  CHECK STATUS OF DIDFLAG.
038634,000145: 21,2325           74736                           MASK     DIDFLBIT                              
038635,000146: 21,2326           00006                           EXTEND                                         
038636,000147: 21,2327           12365                           BZF      SPEEDRUN                              #  SET.  PERFORM DATA DISPLAY SEQUENCE.
038637,000148: 21,2330           40075                           CS       FLAGWRD1                              #  RESET.  PERFORM INITIALIZATION FUNCTIONS.
038638,000149: 21,2331           74736                           MASK     DIDFLBIT                              
038639,000150: 21,2332           26075                           ADS      FLAGWRD1                              #  SET DIDFLAG.
038640,000151: 21,2333           44745                           CS       BIT7                                  
038641,000152: 21,2334           71300                           MASK     IMODES33                              #  TO DISPLAY ALTRATE FIRST AND ALT. SECOND
038642,000153: 21,2335           55300                           TS       IMODES33                              
038643,000154: 21,2336           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038644,000155: 21,2337           74752                           MASK     R10FLBIT                              
038645,000156: 21,2340           00006                           EXTEND                                         
038646,000157: 21,2341           15261                           BZF      TASKOVER                              #  NO
038647,000158: 21,2342           34744                           CAF      BIT8                                  #  YES.
038648,000159: 21,2343           00006                           EXTEND                                         
038649,000160: 21,2344           05012                           WOR      CHAN12                                #  SET DISPLAY INERTIAL DATA OUTBIT.
038650,000161: 21,2345           34755                           CAF      ZERO                                  
038651,000162: 21,2346           55702                           TS       TRAKLATV                              #  LATERAL VELOCITY MONITOR FLAG
038652,000163: 21,2347           55703                           TS       TRAKFWDV                              #  FORWARD VELOCITY MONITOR FLAG
038653,000164: 21,2350           55676                           TS       LATVMETR                              #  LATVEL MONITOR METER
038654,000165: 21,2351           55677                           TS       FORVMETR                              #  FORVEL MONITOR METER
038655,000166: 21,2352           34750                           CAF      BIT4                                  
038656,000167: 21,2353           05173                           TC       TWIDDLE                               
038657,000168: 21,2354           02356                           ADRES    INTLZE                                
038658,000169: 21,2355           15261                           TCF      TASKOVER                              
038659,000170: 21,2356           34752        INTLZE             CAF      BIT2                                  
038660,000171: 21,2357           00006                           EXTEND                                         
038661,000172: 21,2360           05012                           WOR      CHAN12                                #  ENABLE RR ERROR COUNTER.

Page 894

038663,000174: 21,2361           41300                           CS       IMODES33                              
038664,000175: 21,2362           74744                           MASK     BIT8                                  
038665,000176: 21,2363           27300                           ADS      IMODES33                              #  SET INERTIAL DATA FLAG.
038666,000177: 21,2364           15261                           TCF      TASKOVER                              
038667,000178: 
038668,000179: 21,2365           41234        SPEEDRUN           CS       PIPTIME    +1                         #  UPDATE THE VELOCITY VECTOR
038669,000180: 21,2366           60025                           AD       TIME1                                 #  COMPUTE T - TN
038670,000181: 21,2367           64736                           AD       HALF                                  #  CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
038671,000182: 21,2370           64736                           AD       HALF                                  
038672,000183: 21,2371           57715                           XCH      DT                                    #  SAVE FOR LATER USE
038673,000184: 21,2372           34777                           CA       1SEC                                  
038674,000185: 21,2373           54065                           TS       ITEMP5                                #  INITIALIZE FOR DIVISION LATER
038675,000186: 21,2374           00006                           EXTEND                                         
038676,000187: 21,2375           31236                           DCA      GDT/2                                 #  COMPUTE THE X-COMPONENT OF VELOCITY.
038677,000188: 21,2376           20001                           DDOUBL                                         
038678,000189: 21,2377           20001                           DDOUBL                                         
038679,000190: 21,2400           00006                           EXTEND                                         
038680,000191: 21,2401           71715                           MP       DT                                    
038681,000192: 21,2402           00006                           EXTEND                                         
038682,000193: 21,2403           10065                           DV       ITEMP5                                
038683,000194: 21,2404           57706                           XCH      VVECT                                 #  VVECT = G(T-TN) M/CS *2(-5)
038684,000195: 21,2405           00006                           EXTEND                                         
038685,000196: 21,2406           31527                           DCA      V                                     #  M/CS *2(-7)
038686,000197: 21,2407           20001                           DDOUBL                                         #  RESCALE TO 2(-5)
038687,000198: 21,2410           20001                           DDOUBL                                         
038688,000199: 21,2411           27706                           ADS      VVECT                                 #  VVECT = VN + G(T-TN) M/CS *2(-5)
038689,000200: 21,2412           30037                           CA       PIPAX                                 #  DELV CM/SEC *2(-14)
038690,000201: 21,2413           61157                           AD       PIPATMPX                              #  IN CASE PIPAX HAS BEEN ZEROED
038691,000202: 21,2414           00006                           EXTEND                                         
038692,000203: 21,2415           72004                           MP       KPIP1(5)                              #  DELV M/CS *2(-5)
038693,000204: 21,2416           27706                           ADS      VVECT                                 #  VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
038694,000205: 21,2417           00006                           EXTEND                                         
038695,000206: 21,2420           31240                           DCA      GDT/2      +2                         #  COMPUTE THE Y-COMPONENT OF VELOCITY.
038696,000207: 21,2421           20001                           DDOUBL                                         
038697,000208: 21,2422           20001                           DDOUBL                                         
038698,000209: 21,2423           00006                           EXTEND                                         
038699,000210: 21,2424           71715                           MP       DT                                    
038700,000211: 21,2425           00006                           EXTEND                                         
038701,000212: 21,2426           10065                           DV       ITEMP5                                
038702,000213: 21,2427           57707                           XCH      VVECT      +1                         
038703,000214: 21,2430           00006                           EXTEND                                         
038704,000215: 21,2431           31531                           DCA      V          +2                         
038705,000216: 21,2432           20001                           DDOUBL                                         
038706,000217: 21,2433           20001                           DDOUBL                                         
038707,000218: 21,2434           27707                           ADS      VVECT      +1                         
038708,000219: 21,2435           30040                           CA       PIPAY                                 
038709,000220: 21,2436           61160                           AD       PIPATMPY                              
038710,000221: 21,2437           00006                           EXTEND                                         
038711,000222: 21,2440           72004                           MP       KPIP1(5)                              
038712,000223: 21,2441           27707                           ADS      VVECT      +1                         

Page 895

038714,000225: 21,2442           00006                           EXTEND                                         
038715,000226: 21,2443           31242                           DCA      GDT/2      +4                         #  COMPUTE THE Z-COMPONENT OF VELOCITY.
038716,000227: 21,2444           20001                           DDOUBL                                         
038717,000228: 21,2445           20001                           DDOUBL                                         
038718,000229: 21,2446           00006                           EXTEND                                         
038719,000230: 21,2447           71715                           MP       DT                                    
038720,000231: 21,2450           00006                           EXTEND                                         
038721,000232: 21,2451           10065                           DV       ITEMP5                                
038722,000233: 21,2452           57710                           XCH      VVECT      +2                         
038723,000234: 21,2453           00006                           EXTEND                                         
038724,000235: 21,2454           31533                           DCA      V          +4                         
038725,000236: 21,2455           20001                           DDOUBL                                         
038726,000237: 21,2456           20001                           DDOUBL                                         
038727,000238: 21,2457           27710                           ADS      VVECT      +2                         
038728,000239: 21,2460           30041                           CA       PIPAZ                                 
038729,000240: 21,2461           61161                           AD       PIPATMPZ                              
038730,000241: 21,2462           00006                           EXTEND                                         
038731,000242: 21,2463           72004                           MP       KPIP1(5)                              
038732,000243: 21,2464           27710                           ADS      VVECT      +2                         
038733,000244: 
038734,000245: 21,2465           34751                           CAF      BIT3                                  #  PAUSE 40 MS TO LET OTHER RUPTS IN.
038735,000246: 21,2466           05224                           TC       VARDELAY                              
038736,000247: 
038737,000248: 21,2467           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038738,000249: 21,2470           74752                           MASK     R10FLBIT                              
038739,000250: 21,2471           10000                           CCS      A                                     
038740,000251: 21,2472           12474                           TCF      +2                                    #  YES.
038741,000252: 21,2473           01714                           TC       LADQSAVE                              #  NO.
038742,000253: 
038743,000254: 21,2474           31733                           CA       DELVS                                 #  HI X OF VELOCITY CORRECTION TERM.
038744,000255: 21,2475           61706                           AD       VVECT                                 #  HI X OF UPDATED VELOCITY VECTOR.
038745,000256: 21,2476           54061                           TS       ITEMP1                                #  = VX - DVX M/CS*2(-5).
038746,000257: 21,2477           31735                           CA       DELVS      +2                         #     Y
038747,000258: 21,2500           61707                           AD       VVECT      +1                         #     Y
038748,000259: 21,2501           54062                           TS       ITEMP2                                #  = VY - DVY M/CS*2(-5).
038749,000260: 21,2502           31737                           CA       DELVS      +4                         #     Z
038750,000261: 21,2503           61710                           AD       VVECT      +2                         #     Z
038751,000262: 21,2504           54063                           TS       ITEMP3                                #  = VZ - DVZ M/CS*2(-5).
038752,000263: 21,2505           30061                           CA       ITEMP1                                #  COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038753,000264: 21,2506           00006                           EXTEND                                         #  Y-COORDINATE.
038754,000265: 21,2507           71717                           MP       UHYP                                  #  HI X OF CROSS-RANGE HALF-UNIT VECTOR.
038755,000266: 21,2510           56070                           XCH      RUPTREG1                              
038756,000267: 21,2511           30062                           CA       ITEMP2                                
038757,000268: 21,2512           00006                           EXTEND                                         
038758,000269: 21,2513           71721                           MP       UHYP       +2                         #  Y
038759,000270: 21,2514           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038760,000271: 21,2515           30063                           CA       ITEMP3                                
038761,000272: 21,2516           00006                           EXTEND                                         
038762,000273: 21,2517           71723                           MP       UHYP       +4                         #  Z
038763,000274: 21,2520           26070                           ADS      RUPTREG1                              

Page 896

038765,000276: 21,2521           30070                           CA       RUPTREG1                              
038766,000277: 21,2522           60000                           DOUBLE                                         
038767,000278: 21,2523           57704                           XCH      VHY                                   #  VHY=VMP.UHYP M/CS*2(-5).
038768,000279: 21,2524           30061                           CA       ITEMP1                                #  NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
038769,000280: 21,2525           00006                           EXTEND                                         #  THE Z-COORDINATE.
038770,000281: 21,2526           71725                           MP       UHZP                                  #  HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038771,000282: 21,2527           56070                           XCH      RUPTREG1                              
038772,000283: 21,2530           30062                           CA       ITEMP2                                
038773,000284: 21,2531           00006                           EXTEND                                         
038774,000285: 21,2532           71727                           MP       UHZP       +2                         #  Y
038775,000286: 21,2533           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038776,000287: 21,2534           30063                           CA       ITEMP3                                
038777,000288: 21,2535           00006                           EXTEND                                         
038778,000289: 21,2536           71731                           MP       UHZP       +4                         #  Z
038779,000290: 21,2537           26070                           ADS      RUPTREG1                              
038780,000291: 21,2540           30070                           CA       RUPTREG1                              
038781,000292: 21,2541           60000                           DOUBLE                                         
038782,000293: 21,2542           57705                           XCH      VHZ                                   #  VHZ = VMP.UHZP M/CS*2(-5).
038783,000294: 21,2543           35015        GET22/32           CAF      EBANK6                                #  GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038784,000295: 21,2544           54003                           TS       EBANK                                 
038785,000296: 21,2545  E6,1417                                  EBANK=   M22                                   
038786,000297: 21,2545           31417                           CA       M22                                   
038787,000298: 21,2546           54063                           TS       ITEMP3                                
038788,000299: 21,2547           31420                           CA       M32                                   
038789,000300: 21,2550           54064                           TS       ITEMP4                                
038790,000301: 21,2551           35016                           CAF      EBANK7                                
038791,000302: 21,2552           54003                           TS       EBANK                                 
038792,000303: 21,2553  E7,1536                                  EBANK=   UNIT/R/                               
038793,000304: 21,2553           30064        LATFWDV            CA       ITEMP4                                #  COMPUTE LATERAL AND FORWARD VELOCITIES.
038794,000305: 21,2554           00006                           EXTEND                                         
038795,000306: 21,2555           71704                           MP       VHY                                   
038796,000307: 21,2556           56070                           XCH      RUPTREG1                              
038797,000308: 21,2557           30063                           CA       ITEMP3                                
038798,000309: 21,2560           00006                           EXTEND                                         
038799,000310: 21,2561           71705                           MP       VHZ                                   
038800,000311: 21,2562           26070                           ADS      RUPTREG1                              #  =VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038801,000312: 21,2563           32003                           CA       VELCONV                               #  CONVERT LATERAL VELOCITY TO BIT UNITS.
038802,000313: 21,2564           00006                           EXTEND                                         
038803,000314: 21,2565           70070                           MP       RUPTREG1                              
038804,000315: 21,2566           20001                           DDOUBL                                         
038805,000316: 21,2567           57700                           XCH      LATVEL                                #  LATERAL VELOCITY IN BIT UNITS *2(-14).
038806,000317: 21,2570           30064                           CA       ITEMP4                                #  COMPUTE FORWARD VELOCITY.
038807,000318: 21,2571           00006                           EXTEND                                         
038808,000319: 21,2572           71705                           MP       VHZ                                   
038809,000320: 21,2573           56070                           XCH      RUPTREG1                              
038810,000321: 21,2574           30063                           CA       ITEMP3                                
038811,000322: 21,2575           00006                           EXTEND                                         
038812,000323: 21,2576           71704                           MP       VHY                                   
038813,000324: 21,2577           40000                           CS       A                                     
038814,000325: 21,2600           26070                           ADS      RUPTREG1                              #  =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).

Page 897

038816,000327: 21,2601           32003                           CA       VELCONV                               #  CONVERT FORWARD VELOCITY TO BIT UNITS.
038817,000328: 21,2602           00006                           EXTEND                                         
038818,000329: 21,2603           70070                           MP       RUPTREG1                              
038819,000330: 21,2604           20001                           DDOUBL                                         
038820,000331: 21,2605           57701                           XCH      FORVEL                                #  FORWARD VELOCITY IN BIT UNITS *2(-14).
038821,000332: 
038822,000333: 21,2606           42005                           CS       MAXVBITS                              #  ACC.=-199.9989 FT./SEC.
038823,000334: 21,2607           54066                           TS       ITEMP6                                #  -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
038824,000335: 
038825,000336: 21,2610           34753                           CAF      ONE                                   #  LOOP TWICE.
038826,000337: 21,2611           54065        VMONITOR           TS       ITEMP5                                #  FORWARD AND LATERAL VELOCITY LANDING
038827,000338: 21,2612           50065                           INDEX    ITEMP5                                #        ANALOG DISPLAYS MONITOR.
038828,000339: 21,2613           11700                           CCS      LATVEL                                
038829,000340: 21,2614           12620                           TCF      +4                                    
038830,000341: 21,2615           12721                           TCF      LVLIMITS                              
038831,000342: 21,2616           12626                           TCF      +8D                                   
038832,000343: 21,2617           12721                           TCF      LVLIMITS                              
038833,000344: 21,2620           50065                           INDEX    ITEMP5                                
038834,000345: 21,2621           41700                           CS       LATVEL                                
038835,000346: 21,2622           62005                           AD       MAXVBITS                              #  +199.9989 FT./SEC.
038836,000347: 21,2623           00006                           EXTEND                                         
038837,000348: 21,2624           62634                           BZMF     CHKLASTY                              
038838,000349: 21,2625           12721                           TCF      LVLIMITS                              
038839,000350: 21,2626           50065                           INDEX    ITEMP5                                
038840,000351: 21,2627           31700                           CA       LATVEL                                
038841,000352: 21,2630           62005                           AD       MAXVBITS                              
038842,000353: 21,2631           00006                           EXTEND                                         
038843,000354: 21,2632           62634                           BZMF     +2                                    
038844,000355: 21,2633           12721                           TCF      LVLIMITS                              
038845,000356: 21,2634           50065        CHKLASTY           INDEX    ITEMP5                                
038846,000357: 21,2635           11676                           CCS      LATVMETR                              
038847,000358: 21,2636           12642                           TCF      +4                                    
038848,000359: 21,2637           12653                           TCF      LASTOK                                
038849,000360: 21,2640           12647                           TCF      +7                                    
038850,000361: 21,2641           12653                           TCF      LASTOK                                
038851,000362: 21,2642           50065                           INDEX    ITEMP5                                
038852,000363: 21,2643           31700                           CA       LATVEL                                
038853,000364: 21,2644           00006                           EXTEND                                         
038854,000365: 21,2645           62672                           BZMF     LASTPOSY   +5                         
038855,000366: 21,2646           12653                           TCF      +5                                    
038856,000367: 21,2647           50065                           INDEX    ITEMP5                                
038857,000368: 21,2650           41700                           CS       LATVEL                                
038858,000369: 21,2651           00006                           EXTEND                                         
038859,000370: 21,2652           62707                           BZMF     LASTNEGY   +4                         
038860,000371: 21,2653           50065        LASTOK             INDEX    ITEMP5                                
038861,000372: 21,2654           11702                           CCS      TRAKLATV                              
038862,000373: 21,2655           12665                           TCF      LASTPOSY                              
038863,000374: 21,2656           12660                           TCF      +2                                    
038864,000375: 21,2657           12703                           TCF      LASTNEGY                              
038865,000376: 21,2660           50065                           INDEX    ITEMP5                                

Page 898

038867,000378: 21,2661           31700                           CA       LATVEL                                
038868,000379: 21,2662           00006                           EXTEND                                         
038869,000380: 21,2663           62711                           BZMF     NEGVMAXY                              
038870,000381: 21,2664           12674                           TCF      POSVMAXY                              
038871,000382: 21,2665           50065        LASTPOSY           INDEX    ITEMP5                                
038872,000383: 21,2666           31700                           CA       LATVEL                                
038873,000384: 21,2667           00006                           EXTEND                                         
038874,000385: 21,2670           62672                           BZMF     +2                                    
038875,000386: 21,2671           12674                           TCF      POSVMAXY                              
038876,000387: 21,2672           42005                           CS       MAXVBITS                              
038877,000388: 21,2673           13015                           TCF      ZEROLSTY                              
038878,000389: 21,2674           50065        POSVMAXY           INDEX    ITEMP5                                
038879,000390: 21,2675           41676                           CS       LATVMETR                              
038880,000391: 21,2676           62005                           AD       MAXVBITS                              
038881,000392: 21,2677           50065                           INDEX    ITEMP5                                
038882,000393: 21,2700           56072                           XCH      RUPTREG3                              
038883,000394: 21,2701           34753                           CAF      ONE                                   
038884,000395: 21,2702           13020                           TCF      ZEROLSTY   +3                         
038885,000396: 21,2703           50065        LASTNEGY           INDEX    ITEMP5                                
038886,000397: 21,2704           31700                           CA       LATVEL                                
038887,000398: 21,2705           00006                           EXTEND                                         
038888,000399: 21,2706           62711                           BZMF     NEGVMAXY                              
038889,000400: 21,2707           32005                           CA       MAXVBITS                              
038890,000401: 21,2710           13015                           TCF      ZEROLSTY                              
038891,000402: 21,2711           50065        NEGVMAXY           INDEX    ITEMP5                                
038892,000403: 21,2712           31676                           CA       LATVMETR                              
038893,000404: 21,2713           62005                           AD       MAXVBITS                              
038894,000405: 21,2714           40000                           COM                                            
038895,000406: 21,2715           50065                           INDEX    ITEMP5                                
038896,000407: 21,2716           56072                           XCH      RUPTREG3                              
038897,000408: 21,2717           44753                           CS       ONE                                   
038898,000409: 21,2720           13020                           TCF      ZEROLSTY   +3                         
038899,000410: 21,2721           50065        LVLIMITS           INDEX    ITEMP5                                
038900,000411: 21,2722           11702                           CCS      TRAKLATV                              
038901,000412: 21,2723           12752                           TCF      LATVPOS                               
038902,000413: 21,2724           12726                           TCF      +2                                    
038903,000414: 21,2725           12757                           TCF      LATVNEG                               
038904,000415: 21,2726           50065                           INDEX    ITEMP5                                
038905,000416: 21,2727           41676                           CS       LATVMETR                              
038906,000417: 21,2730           00006                           EXTEND                                         
038907,000418: 21,2731           62733                           BZMF     +2                                    
038908,000419: 21,2732           12766                           TCF      NEGLMLV                               
038909,000420: 21,2733           50065                           INDEX    ITEMP5                                
038910,000421: 21,2734           41700                           CS       LATVEL                                
038911,000422: 21,2735           00006                           EXTEND                                         
038912,000423: 21,2736           63011                           BZMF     LVMINLM                               
038913,000424: 21,2737           60066                           AD       ITEMP6                                
038914,000425: 21,2740           50065                           INDEX    ITEMP5                                
038915,000426: 21,2741           61676                           AD       LATVMETR                              
038916,000427: 21,2742           00006                           EXTEND                                         

Page 899

038918,000429: 21,2743           63011                           BZMF     LVMINLM                               
038919,000430: 21,2744           50065                           INDEX    ITEMP5                                
038920,000431: 21,2745           61700                           AD       LATVEL                                
038921,000432: 21,2746           00006                           EXTEND                                         
038922,000433: 21,2747           50065                           INDEX    ITEMP5                                
038923,000434: 21,2750           61676                           SU       LATVMETR                              
038924,000435: 21,2751           13015                           TCF      ZEROLSTY                              
038925,000436: 21,2752           50065        LATVPOS            INDEX    ITEMP5                                
038926,000437: 21,2753           41700                           CS       LATVEL                                
038927,000438: 21,2754           00006                           EXTEND                                         
038928,000439: 21,2755           63011                           BZMF     LVMINLM                               
038929,000440: 21,2756           12763                           TCF      +5                                    
038930,000441: 21,2757           50065        LATVNEG            INDEX    ITEMP5                                
038931,000442: 21,2760           31700                           CA       LATVEL                                
038932,000443: 21,2761           00006                           EXTEND                                         
038933,000444: 21,2762           63011                           BZMF     LVMINLM                               
038934,000445: 21,2763           50065                           INDEX    ITEMP5                                
038935,000446: 21,2764           41676                           CS       LATVMETR                              
038936,000447: 21,2765           13015                           TCF      ZEROLSTY                              
038937,000448: 21,2766           50065        NEGLMLV            INDEX    ITEMP5                                
038938,000449: 21,2767           31700                           CA       LATVEL                                
038939,000450: 21,2770           00006                           EXTEND                                         
038940,000451: 21,2771           63011                           BZMF     LVMINLM                               
038941,000452: 21,2772           32005                           CA       MAXVBITS                              
038942,000453: 21,2773           50065                           INDEX    ITEMP5                                
038943,000454: 21,2774           61676                           AD       LATVMETR                              
038944,000455: 21,2775           40000                           COM                                            
038945,000456: 21,2776           50065                           INDEX    ITEMP5                                
038946,000457: 21,2777           61700                           AD       LATVEL                                
038947,000458: 21,3000           00006                           EXTEND                                         
038948,000459: 21,3001           63011                           BZMF     LVMINLM                               
038949,000460: 21,3002           00006                           EXTEND                                         
038950,000461: 21,3003           50065                           INDEX    ITEMP5                                
038951,000462: 21,3004           61700                           SU       LATVEL                                
038952,000463: 21,3005           50065                           INDEX    ITEMP5                                
038953,000464: 21,3006           61676                           AD       LATVMETR                              
038954,000465: 21,3007           40000                           COM                                            
038955,000466: 21,3010           13015                           TCF      ZEROLSTY                              
038956,000467: 21,3011           50065        LVMINLM            INDEX    ITEMP5                                
038957,000468: 21,3012           41676                           CS       LATVMETR                              
038958,000469: 21,3013           50065                           INDEX    ITEMP5                                
038959,000470: 21,3014           61700                           AD       LATVEL                                
038960,000471: 21,3015           50065        ZEROLSTY           INDEX    ITEMP5                                
038961,000472: 21,3016           56072                           XCH      RUPTREG3                              
038962,000473: 21,3017           34755                           CAF      ZERO                                  
038963,000474: 21,3020           50065                           INDEX    ITEMP5                                
038964,000475: 21,3021           55702                           TS       TRAKLATV                              
038965,000476: 21,3022           50065                           INDEX    ITEMP5                                
038966,000477: 21,3023           30072                           CA       RUPTREG3                              
038967,000478: 21,3024           64754                           AD       NEG0                                  #  AVOIDS +0 DINC HARDWARE MALFUNCTION

Page 900

038969,000480: 21,3025           50065                           INDEX    ITEMP5                                
038970,000481: 21,3026           54053                           TS       CDUTCMD                               
038971,000482: 21,3027           50065                           INDEX    ITEMP5                                
038972,000483: 21,3030           30072                           CA       RUPTREG3                              
038973,000484: 21,3031           50065                           INDEX    ITEMP5                                
038974,000485: 21,3032           27676                           ADS      LATVMETR                              
038975,000486: 21,3033           10065                           CCS      ITEMP5                                #  FIRST MONITOR FORWARD THEN LATERAL VEL.
038976,000487: 21,3034           12611                           TCF      VMONITOR                              
038977,000488: 
038978,000489: 21,3035           35020                           CAF      BITSET                                #  DRIVE THE X-POINTER DISPLAY.
038979,000490: 21,3036           00006                           EXTEND                                         
038980,000491: 21,3037           05014                           WOR      CHAN14                                
038981,000492: 21,3040           01714                           TC       LADQSAVE                              #  GO TO ALTROUT +1 OR TO ALTOUT +1
038982,000493: 21,3041           34755        ZERODATA           CAF      ZERO                                  #  ZERO ALTSAVE AND ALTSAVE +1 - - -
038983,000494: 21,3042           54001                           TS       L                                     #        NO NEGATIVE ALTITUDES ALLOWED.
038984,000495: 21,3043           12261                           TCF      ZDATA2                                
038985,000496: 
038986,000497:                                                                                                  #  ************************************************************************
038987,000498: 
038988,000499: 21,3044           40074        DISPRSET           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038989,000500: 21,3045           74752                           MASK     R10FLBIT                              
038990,000501: 21,3046           00006                           EXTEND                                         
038991,000502: 21,3047           13060                           BZF      ABORTON                               #  NO.
038992,000503: 21,3050           34744                           CAF      BIT8                                  #  YES.
038993,000504: 21,3051           71300                           MASK     IMODES33                              #  CHECK IF INERTIAL DATA JUST DISPLAYED.
038994,000505: 21,3052           10000                           CCS      A                                     
038995,000506: 21,3053           34752                           CAF      BIT2                                  #  YES. DISABLE RR ERROR COUNTER
038996,000507: 21,3054           64744                           AD       BIT8                                  #  NO.  REMOVE DISPLAY INERTIAL DATA
038997,000508: 21,3055           40000                           COM                                            
038998,000509: 21,3056           00006                           EXTEND                                         
038999,000510: 21,3057           03012                           WAND     CHAN12                                
039000,000511: 21,3060           43067        ABORTON            CS       BITS8/7                               #  RESET INERTIAL DATA, INTERLEAVE FLAGS.
039001,000512: 21,3061           71300                           MASK     IMODES33                              
039002,000513: 21,3062           55300                           TS       IMODES33                              
039003,000514: 21,3063           44736                           CS       DIDFLBIT                              
039004,000515: 21,3064           70075                           MASK     FLAGWRD1                              
039005,000516: 21,3065           54075                           TS       FLAGWRD1                              #  RESET DIDFLAG.
039006,000517: 21,3066           15261                           TCF      TASKOVER                              
039007,000518: 
039008,000519:                                                                                                  #  ************************************************************************
039009,000520: 
039010,000521: 21,3067           00300        BITS8/7            OCT      00300                                 #  INERTIAL DATA AND INTERLEAVE FLAGS.
039011,000522: 21,3070     5020               BITSET             =        PRIO6                                 
039012,000523: 
039013,000524:                                                                                                  #  ************************************************************************
039014,000525: 
039015,000526: 

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