Source Code

These source-code files are part of a reconstructed copy of Luminary 173, the second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 178. Changes between revision 173 and 178 were backed out, as described by Luminary memo 167 (revision 1). The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 173 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

038665,000002:                                                                                                  ## Copyright:   Public domain.
038666,000003:                                                                                                  ## Filename:    LANDING_ANALOG_DISPLAYS.agc
038667,000004:                                                                                                  ## Purpose:     A section of Luminary revision 173.
038668,000005:                                                                                                  ##              It is part of the reconstructed source code for the second
038669,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
038670,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
038671,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
038672,000009:                                                                                                  ##              Luminary 178, as well as Luminary memo 167 (revision 1).
038673,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
038674,000011:                                                                                                  ##              exactly match those specified for Luminary 173 in NASA
038675,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
038676,000013:                                                                                                  ##              that the reconstruction is correct.
038677,000014:                                                                                                  ## Reference:   pp. 890-898
038678,000015:                                                                                                  ## Assembler:   yaYUL
038679,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038680,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038681,000018:                                                                                                  ## Mod history: 2019-09-18 MAS  Created from Luminary 178.
038682,000019:                                                                                                  ##              2019-09-21 MAS  Re-based on Luminary 131. Implemented ACB L-11
038683,000020:                                                                                                  ##                              by moving three checks as shown in the
038684,000021:                                                                                                  ##                              Luminary 173 flowcharts.
038685,000022:                                                                                                  ##              2021-05-30 ABS  LADFWDV -> LATFWDV
038686,000023: 

Page 891

038688,000025: 21,2130                                           BANK     21                                    
038689,000026: 21,2000                                           SETLOC   R10                                   
038690,000027: 21,2000                                           BANK                                           
038691,000028: 
038692,000029: 21,2130  E7,1536                                  EBANK=   UNIT/R/                               
038693,000030: 21,2130                                           COUNT*   $$/R10                                
038694,000031: 
038695,000032: 21,2130           23714        LANDISP            LXCH     PIPCTR1                               #  UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038696,000033: 21,2131           40025                           CS       TIME1                                 
038697,000034: 21,2132           53055                           DXCH     TBASE2                                
038698,000035: 
038699,000036: 21,2133           40103                           CS       FLAGWRD7                              #  IS LANDING ANALOG DISPLAYS FLAG SET?
038700,000037: 21,2134           74741                           MASK     SWANDBIT                              
038701,000038: 21,2135           10000                           CCS      A                                     
038702,000039: 21,2136           13035                           TCF      DISPRSET                              #  NO.
038703,000040: 21,2137           31300                           CA       IMODES33                              #  BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
038704,000041: 21,2140           74745                           MASK     BIT7                                  
038705,000042: 21,2141           10000                           CCS      A                                     
038706,000043: 21,2142           12214                           TCF      ALTOUT                                
038707,000044: 21,2143           02300        ALTROUT            TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
038708,000045: 21,2144           41300                           CS       IMODES33                              
038709,000046: 21,2145           74745                           MASK     BIT7                                  
038710,000047: 21,2146           27300                           ADS      IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038711,000048: 21,2147           34752                           CAF      BIT2                                  #  RATE COMMAND IS EXECUTED BEFORE RANGE.
038712,000049: 21,2150           00006                           EXTEND                                         
038713,000050: 21,2151           05014                           WOR      CHAN14                                #  ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
038714,000051: 21,2152           31743        ARCOMP             CA       RUNIT                                 #  COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
038715,000052: 21,2153           00006                           EXTEND                                         
038716,000053: 21,2154           71706                           MP       VVECT                                 #  MULTIPLY X-COMPONENTS.
038717,000054: 21,2155           56070                           XCH      RUPTREG1                              #  SAVE SINGLE PRECISION RESULT M/CS*2(-6).
038718,000055: 21,2156           31744                           CA       RUNIT      +1                         #  MULTIPLY Y-COMPONENTS.
038719,000056: 21,2157           00006                           EXTEND                                         
038720,000057: 21,2160           71707                           MP       VVECT      +1                         
038721,000058: 21,2161           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038722,000059: 21,2162           31745                           CA       RUNIT      +2                         #  MULTIPLY Z-COMPONENTS.
038723,000060: 21,2163           00006                           EXTEND                                         
038724,000061: 21,2164           71710                           MP       VVECT      +2                         
038725,000062: 21,2165           26070                           ADS      RUPTREG1                              #  ALTITUDE RATE IN M/CS *2(-6).
038726,000063: 21,2166           32000                           CA       ARCONV                                #  CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
038727,000064: 21,2167           00006                           EXTEND                                         
038728,000065: 21,2170           70070                           MP       RUPTREG1                              
038729,000066: 21,2171           20001                           DDOUBL                                         
038730,000067: 21,2172           20001                           DDOUBL                                         
038731,000068: 21,2173           56070                           XCH      RUPTREG1                              #  ALTITUDE RATE IN BIT UNITS*2(-14).
038732,000069: 21,2174           31716                           CA       DALTRATE                              #  ALTITUDE RATE COMPENSATION FACTOR.
038733,000070: 21,2175           00006                           EXTEND                                         
038734,000071: 21,2176           71715                           MP       DT                                    
038735,000072: 21,2177           60070                           AD       RUPTREG1                              
038736,000073: 21,2200           55711                           TS       ALTRATE                               #  ALTITUDE RATE IN BIT UNITS*2(-14).
038737,000074: 21,2201           41711                           CS       ALTRATE                               

Page 892

038739,000076: 21,2202           00006                           EXTEND                                         #  CHECK POLARITY OF ALTITUDE RATE.
038740,000077: 21,2203           62205                           BZMF     +2                                    
038741,000078: 21,2204           12207                           TCF      DATAOUT                               #  NEGATIVE - SEND POS. PULSES TO ALTM REG.
038742,000079: 21,2205           31711                           CA       ALTRATE                               #  POSITIVE OR ZERO - SET SIGN BIT = 1 AND
038743,000080: 21,2206           64735                           AD       BIT15                                 #  SEND TO ALTM REGISTER.  *DO NOT SEND +0*
038744,000081: 21,2207           54060        DATAOUT            TS       ALTM                                  #  ACTIVATE THE LANDING ANALOG DISPLAYS - -
038745,000082: 21,2210           34751                           CAF      BIT3                                  
038746,000083: 21,2211           00006                           EXTEND                                         
038747,000084: 21,2212           05014                           WOR      CHAN14                                #  BIT3 DRIVES THE ALT/ALTRATE METER.
038748,000085: 21,2213           15272                           TCF      TASKOVER                              #  EXIT
038749,000086: 
038750,000087: 21,2214           02300        ALTOUT             TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
038751,000088: 21,2215           44745                           CS       BIT7                                  
038752,000089: 21,2216           71300                           MASK     IMODES33                              
038753,000090: 21,2217           55300                           TS       IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038754,000091: 21,2220           44752                           CS       BIT2                                  
038755,000092: 21,2221           00006                           EXTEND                                         
038756,000093: 21,2222           03014                           WAND     CHAN14                                
038757,000094: 21,2223           11741                           CCS      ALTBITS                               #  = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
038758,000095: 21,2224           12230                           TCF      +4                                    
038759,000096: 21,2225           12230                           TCF      +3                                    
038760,000097: 21,2226           12246                           TCF      OLDDATA                               
038761,000098: 21,2227           55741                           TS       ALTBITS                               #  SET ALTBITS FROM -0 TO +0.
038762,000099: 21,2230           44753                           CS       ONE                                   
038763,000100: 21,2231           53742                           DXCH     ALTBITS                               #  SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
038764,000101: 21,2232           53713                           DXCH     ALTSAVE                               
038765,000102: 21,2233           34742                           CA       BIT10                                 #  NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
038766,000103: 21,2234           56002                           XCH      Q                                     
038767,000104: 21,2235           22007                           LXCH     7                                     #  ZL
038768,000105: 21,2236           31715                           CA       DT                                    
038769,000106: 21,2237           00006                           EXTEND                                         
038770,000107: 21,2240           10002                           DV       Q                                     #  RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
038771,000108: 21,2241           00006                           EXTEND                                         
038772,000109: 21,2242           72002                           MP       ARTOA2                                #  .0021322 *2(+8)
038773,000110: 21,2243           12247                           TCF      OLDDATA    +1                         #  RATE APPLIES FOR DT CS.
038774,000111: 
038775,000112: 21,2244           53713        ZDATA2             DXCH     ALTSAVE                               
038776,000113: 21,2245           12267                           TCF      NEWDATA                               
038777,000114: 21,2246           32001        OLDDATA            CA       ARTOA                                 #  RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
038778,000115: 21,2247           00006                           EXTEND                                         
038779,000116: 21,2250           71711                           MP       ALTRATE                               #  EXTRAPOLATE WITH ALTITUDE RATE.
038780,000117: 21,2251           20001                           DDOUBL                                         
038781,000118: 21,2252           61713                           AD       ALTSAVE    +1                         
038782,000119: 21,2253           55713                           TS       ALTSAVE    +1                         
038783,000120: 21,2254           34755                           CAF      ZERO                                  
038784,000121: 21,2255           27712                           ADS      ALTSAVE                               
038785,000122: 21,2256           34733                           CAF      POSMAX                                #  FORCE SIGN AGREEMENT ASSUMING A
038786,000123: 21,2257           64753                           AD       ONE                                   #  NON-NEGATIVE ALTSAVE.
038787,000124: 21,2260           61713                           AD       ALTSAVE    +1                         #  IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
038788,000125: 21,2261           55713                           TS       ALTSAVE    +1                         #  AND ALTSAVE +1 AT ZERODATA.

Page 893

038790,000127: 21,2262           34755                           CAF      ZERO                                  
038791,000128: 21,2263           64733                           AD       POSMAX                                
038792,000129: 21,2264           61712                           AD       ALTSAVE                               
038793,000130: 21,2265           55712                           TS       ALTSAVE                               #  POSSIBLY SKIP TO NEWDATA.
038794,000131: 21,2266           13032                           TCF      ZERODATA                              
038795,000132: 21,2267           11713        NEWDATA            CCS      ALTSAVE    +1                         
038796,000133: 21,2270           12274                           TCF      +4                                    
038797,000134: 21,2271           12274                           TCF      +3                                    
038798,000135: 21,2272           34755                           CAF      ZERO                                  #  SET NEGATIVE ALTSAVE +1 TO +0.
038799,000136: 21,2273           55713                           TS       ALTSAVE    +1                         
038800,000137: 21,2274           11712                           CCS      ALTSAVE                               #  PROVIDE A 15 BIT UNSIGNED OUTPUT.
038801,000138: 21,2275           34735                           CAF      BIT15                                 #  THE HI-ORDER PART IS +1 OR +0.
038802,000139: 21,2276           61713                           AD       ALTSAVE    +1                         
038803,000140: 21,2277           12207                           TCF      DATAOUT                               #  DISPATCH UNSIGNED BITS TO ALTM REG.
038804,000141: 21,2300           00006        DISINDAT           EXTEND                                         
038805,000142: 21,2301           23714                           QXCH     LADQSAVE                              #  SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
038806,000143: 21,2302           40075                           CS       FLAGWRD1                              #  YES.  CHECK STATUS OF DIDFLAG.
038807,000144: 21,2303           74736                           MASK     DIDFLBIT                              
038808,000145: 21,2304           00006                           EXTEND                                         
038809,000146: 21,2305           12343                           BZF      SPEEDRUN                              #  SET.  PERFORM DATA DISPLAY SEQUENCE.
038810,000147: 21,2306           40075                           CS       FLAGWRD1                              #  RESET.  PERFORM INITIALIZATION FUNCTIONS.
038811,000148: 21,2307           74736                           MASK     DIDFLBIT                              
038812,000149: 21,2310           26075                           ADS      FLAGWRD1                              #  SET DIDFLAG.
038813,000150: 21,2311           44745                           CS       BIT7                                  
038814,000151: 21,2312           71300                           MASK     IMODES33                              #  TO DISPLAY ALTRATE FIRST AND ALT. SECOND
038815,000152: 21,2313           55300                           TS       IMODES33                              
038816,000153: 21,2314           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038817,000154: 21,2315           74752                           MASK     R10FLBIT                              
038818,000155: 21,2316           00006                           EXTEND                                         
038819,000156: 21,2317           15272                           BZF      TASKOVER                              #  NO
038820,000157: 21,2320           34744                           CAF      BIT8                                  #  YES.
038821,000158: 21,2321           00006                           EXTEND                                         
038822,000159: 21,2322           05012                           WOR      CHAN12                                #  SET DISPLAY INERTIAL DATA OUTBIT.
038823,000160: 21,2323           34755                           CAF      ZERO                                  
038824,000161: 21,2324           55702                           TS       TRAKLATV                              #  LATERAL VELOCITY MONITOR FLAG
038825,000162: 21,2325           55703                           TS       TRAKFWDV                              #  FORWARD VELOCITY MONITOR FLAG
038826,000163: 21,2326           55676                           TS       LATVMETR                              #  LATVEL MONITOR METER
038827,000164: 21,2327           55677                           TS       FORVMETR                              #  FORVEL MONITOR METER
038828,000165: 21,2330           34750                           CAF      BIT4                                  
038829,000166: 21,2331           05204                           TC       TWIDDLE                               
038830,000167: 21,2332           02334                           ADRES    INTLZE                                
038831,000168: 21,2333           15272                           TCF      TASKOVER                              
038832,000169: 21,2334           34752        INTLZE             CAF      BIT2                                  
038833,000170: 21,2335           00006                           EXTEND                                         
038834,000171: 21,2336           05012                           WOR      CHAN12                                #  ENABLE RR ERROR COUNTER.

Page 894

038836,000173: 21,2337           41300                           CS       IMODES33                              
038837,000174: 21,2340           74744                           MASK     BIT8                                  
038838,000175: 21,2341           27300                           ADS      IMODES33                              #  SET INERTIAL DATA FLAG.
038839,000176: 21,2342           15272                           TCF      TASKOVER                              
038840,000177: 
038841,000178: 21,2343           41234        SPEEDRUN           CS       PIPTIME    +1                         #  UPDATE THE VELOCITY VECTOR
038842,000179: 21,2344           60025                           AD       TIME1                                 #  COMPUTE T - TN
038843,000180: 21,2345           64736                           AD       HALF                                  #  CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
038844,000181: 21,2346           64736                           AD       HALF                                  
038845,000182: 21,2347           57715                           XCH      DT                                    #  SAVE FOR LATER USE
038846,000183: 21,2350           34777                           CA       1SEC                                  
038847,000184: 21,2351           54065                           TS       ITEMP5                                #  INITIALIZE FOR DIVISION LATER
038848,000185: 21,2352           00006                           EXTEND                                         
038849,000186: 21,2353           31236                           DCA      GDT/2                                 #  COMPUTE THE X-COMPONENT OF VELOCITY.
038850,000187: 21,2354           20001                           DDOUBL                                         
038851,000188: 21,2355           20001                           DDOUBL                                         
038852,000189: 21,2356           00006                           EXTEND                                         
038853,000190: 21,2357           71715                           MP       DT                                    
038854,000191: 21,2360           00006                           EXTEND                                         
038855,000192: 21,2361           10065                           DV       ITEMP5                                
038856,000193: 21,2362           57706                           XCH      VVECT                                 #  VVECT = G(T-TN) M/CS *2(-5)
038857,000194: 21,2363           00006                           EXTEND                                         
038858,000195: 21,2364           31527                           DCA      V                                     #  M/CS *2(-7)
038859,000196: 21,2365           20001                           DDOUBL                                         #  RESCALE TO 2(-5)
038860,000197: 21,2366           20001                           DDOUBL                                         
038861,000198: 21,2367           27706                           ADS      VVECT                                 #  VVECT = VN + G(T-TN) M/CS *2(-5)
038862,000199: 21,2370           30037                           CA       PIPAX                                 #  DELV CM/SEC *2(-14)
038863,000200: 21,2371           61157                           AD       PIPATMPX                              #  IN CASE PIPAX HAS BEEN ZEROED
038864,000201: 21,2372           00006                           EXTEND                                         
038865,000202: 21,2373           72004                           MP       KPIP1(5)                              #  DELV M/CS *2(-5)
038866,000203: 21,2374           27706                           ADS      VVECT                                 #  VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
038867,000204: 21,2375           00006                           EXTEND                                         
038868,000205: 21,2376           31240                           DCA      GDT/2      +2                         #  COMPUTE THE Y-COMPONENT OF VELOCITY.
038869,000206: 21,2377           20001                           DDOUBL                                         
038870,000207: 21,2400           20001                           DDOUBL                                         
038871,000208: 21,2401           00006                           EXTEND                                         
038872,000209: 21,2402           71715                           MP       DT                                    
038873,000210: 21,2403           00006                           EXTEND                                         
038874,000211: 21,2404           10065                           DV       ITEMP5                                
038875,000212: 21,2405           57707                           XCH      VVECT      +1                         
038876,000213: 21,2406           00006                           EXTEND                                         
038877,000214: 21,2407           31531                           DCA      V          +2                         
038878,000215: 21,2410           20001                           DDOUBL                                         
038879,000216: 21,2411           20001                           DDOUBL                                         
038880,000217: 21,2412           27707                           ADS      VVECT      +1                         
038881,000218: 21,2413           30040                           CA       PIPAY                                 
038882,000219: 21,2414           61160                           AD       PIPATMPY                              
038883,000220: 21,2415           00006                           EXTEND                                         
038884,000221: 21,2416           72004                           MP       KPIP1(5)                              
038885,000222: 21,2417           27707                           ADS      VVECT      +1                         

Page 895

038887,000224: 21,2420           00006                           EXTEND                                         
038888,000225: 21,2421           31242                           DCA      GDT/2      +4                         #  COMPUTE THE Z-COMPONENT OF VELOCITY.
038889,000226: 21,2422           20001                           DDOUBL                                         
038890,000227: 21,2423           20001                           DDOUBL                                         
038891,000228: 21,2424           00006                           EXTEND                                         
038892,000229: 21,2425           71715                           MP       DT                                    
038893,000230: 21,2426           00006                           EXTEND                                         
038894,000231: 21,2427           10065                           DV       ITEMP5                                
038895,000232: 21,2430           57710                           XCH      VVECT      +2                         
038896,000233: 21,2431           00006                           EXTEND                                         
038897,000234: 21,2432           31533                           DCA      V          +4                         
038898,000235: 21,2433           20001                           DDOUBL                                         
038899,000236: 21,2434           20001                           DDOUBL                                         
038900,000237: 21,2435           27710                           ADS      VVECT      +2                         
038901,000238: 21,2436           30041                           CA       PIPAZ                                 
038902,000239: 21,2437           61161                           AD       PIPATMPZ                              
038903,000240: 21,2440           00006                           EXTEND                                         
038904,000241: 21,2441           72004                           MP       KPIP1(5)                              
038905,000242: 21,2442           27710                           ADS      VVECT      +2                         
038906,000243: 
038907,000244: 21,2443           34751                           CAF      BIT3                                  #  PAUSE 40 MS TO LET OTHER RUPTS IN.
038908,000245: 21,2444           05235                           TC       VARDELAY                              
038909,000246: 
038910,000247: 21,2445           31733                           CA       DELVS                                 #  HI X OF VELOCITY CORRECTION TERM.
038911,000248: 21,2446           61706                           AD       VVECT                                 #  HI X OF UPDATED VELOCITY VECTOR.
038912,000249: 21,2447           54061                           TS       ITEMP1                                #  = VX - DVX M/CS *2(-5).
038913,000250: 21,2450           31735                           CA       DELVS      +2                         #     Y
038914,000251: 21,2451           61707                           AD       VVECT      +1                         #     Y
038915,000252: 21,2452           54062                           TS       ITEMP2                                #  = VY - DVY M/CS *2(-5).
038916,000253: 21,2453           31737                           CA       DELVS      +4                         #     Z
038917,000254: 21,2454           61710                           AD       VVECT      +2                         #     Z
038918,000255: 21,2455           54063                           TS       ITEMP3                                #  = VZ - DVZ M/CS *2(-5).
038919,000256: 21,2456           30061                           CA       ITEMP1                                #  COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038920,000257: 21,2457           00006                           EXTEND                                         #  Y-COORDINATE.
038921,000258: 21,2460           71717                           MP       UHYP                                  #  HI X OF CROSS-RANGE HALF-UNIT VECTOR.
038922,000259: 21,2461           56070                           XCH      RUPTREG1                              
038923,000260: 21,2462           30062                           CA       ITEMP2                                

Page 896

038925,000262: 21,2463           00006                           EXTEND                                         
038926,000263: 21,2464           71721                           MP       UHYP       +2                         #  Y
038927,000264: 21,2465           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038928,000265: 21,2466           30063                           CA       ITEMP3                                
038929,000266: 21,2467           00006                           EXTEND                                         
038930,000267: 21,2470           71723                           MP       UHYP       +4                         #  Z
038931,000268: 21,2471           26070                           ADS      RUPTREG1                              
038932,000269: 21,2472           30070                           CA       RUPTREG1                              
038933,000270: 21,2473           60000                           DOUBLE                                         
038934,000271: 21,2474           57704                           XCH      VHY                                   #  VHY=VMP.UHYP M/CS*2(-5).
038935,000272: 21,2475           30061                           CA       ITEMP1                                #  NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
038936,000273: 21,2476           00006                           EXTEND                                         #  THE Z-COORDINATE.
038937,000274: 21,2477           71725                           MP       UHZP                                  #  HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038938,000275: 21,2500           56070                           XCH      RUPTREG1                              
038939,000276: 21,2501           30062                           CA       ITEMP2                                
038940,000277: 21,2502           00006                           EXTEND                                         
038941,000278: 21,2503           71727                           MP       UHZP       +2                         #  Y
038942,000279: 21,2504           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038943,000280: 21,2505           30063                           CA       ITEMP3                                
038944,000281: 21,2506           00006                           EXTEND                                         
038945,000282: 21,2507           71731                           MP       UHZP       +4                         #  Z
038946,000283: 21,2510           26070                           ADS      RUPTREG1                              
038947,000284: 21,2511           30070                           CA       RUPTREG1                              
038948,000285: 21,2512           60000                           DOUBLE                                         
038949,000286: 21,2513           57705                           XCH      VHZ                                   #  VHZ = VMP.UHZP M/CS*2(-5).
038950,000287: 21,2514           35015        GET22/32           CAF      EBANK6                                #  GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038951,000288: 21,2515           54003                           TS       EBANK                                 
038952,000289: 21,2516  E6,1417                                  EBANK=   M22                                   
038953,000290: 21,2516           31417                           CA       M22                                   
038954,000291: 21,2517           54063                           TS       ITEMP3                                
038955,000292: 21,2520           31420                           CA       M32                                   
038956,000293: 21,2521           54064                           TS       ITEMP4                                
038957,000294: 21,2522           35016                           CAF      EBANK7                                
038958,000295: 21,2523           54003                           TS       EBANK                                 
038959,000296: 21,2524  E7,1536                                  EBANK=   UNIT/R/                               
038960,000297: 21,2524           30064        LATFWDV            CA       ITEMP4                                #  COMPUTE LATERAL AND FORWARD VELOCITIES.
038961,000298: 21,2525           00006                           EXTEND                                         
038962,000299: 21,2526           71704                           MP       VHY                                   
038963,000300: 21,2527           56070                           XCH      RUPTREG1                              
038964,000301: 21,2530           30063                           CA       ITEMP3                                
038965,000302: 21,2531           00006                           EXTEND                                         
038966,000303: 21,2532           71705                           MP       VHZ                                   
038967,000304: 21,2533           26070                           ADS      RUPTREG1                              #  = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038968,000305: 21,2534           32003                           CA       VELCONV                               #  CONVERT LATERAL VELOCITY TO BIT UNITS.
038969,000306: 21,2535           00006                           EXTEND                                         
038970,000307: 21,2536           70070                           MP       RUPTREG1                              
038971,000308: 21,2537           20001                           DDOUBL                                         
038972,000309: 21,2540           57700                           XCH      LATVEL                                #  LATERAL VELOCITY IN BIT UNITS *2(-14).
038973,000310: 21,2541           30064                           CA       ITEMP4                                #  COMPUTE FORWARD VELOCITY.
038974,000311: 21,2542           00006                           EXTEND                                         

Page 897

038976,000313: 21,2543           71705                           MP       VHZ                                   
038977,000314: 21,2544           56070                           XCH      RUPTREG1                              
038978,000315: 21,2545           30063                           CA       ITEMP3                                
038979,000316: 21,2546           00006                           EXTEND                                         
038980,000317: 21,2547           71704                           MP       VHY                                   
038981,000318: 21,2550           40000                           CS       A                                     
038982,000319: 21,2551           26070                           ADS      RUPTREG1                              #  =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
038983,000320: 21,2552           32003                           CA       VELCONV                               #  CONVERT FORWARD VELOCITY TO BIT UNITS.
038984,000321: 21,2553           00006                           EXTEND                                         
038985,000322: 21,2554           70070                           MP       RUPTREG1                              
038986,000323: 21,2555           20001                           DDOUBL                                         
038987,000324: 21,2556           57701                           XCH      FORVEL                                #  FORWARD VELOCITY IN BIT UNITS *2(-14).
038988,000325: 
038989,000326: 21,2557           34746                           CAF      BIT6                                  
038990,000327: 21,2560           00006                           EXTEND                                         #  WISHETH THE ASTRONAUT THE ANALOG
038991,000328: 21,2561           02030                           RAND     CHAN30                                #  DISPLAYS?  I.E.,
038992,000329: 21,2562           10000                           CCS      A                                     #  IS THE MODE SELECT SWITCH IN PGNCS?
038993,000330: 21,2563           13035                           TCF      DISPRSET                              #  NO.  ASTRONAUT REQUESTS NO INERTIAL DATA
038994,000331: 
038995,000332: 21,2564           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038996,000333: 21,2565           74752                           MASK     R10FLBIT                              
038997,000334: 21,2566           10000                           CCS      A                                     
038998,000335: 21,2567           12571                           TCF      +2                                    #  YES.
038999,000336: 21,2570           01714                           TC       LADQSAVE                              #  NO.
039000,000337: 
039001,000338: 21,2571           42005                           CS       MAXVBITS                              #  ACC.=-199.9989 FT./SEC.
039002,000339: 21,2572           54066                           TS       ITEMP6                                #  -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
039003,000340: 
039004,000341: 21,2573           34753                           CAF      ONE                                   #  LOOP TWICE.
039005,000342: 21,2574           54065        VMONITOR           TS       ITEMP5                                #  FORWARD AND LATERAL VELOCITY LANDING
039006,000343: 21,2575           50065                           INDEX    ITEMP5                                #        ANALOG DISPLAYS MONITOR.
039007,000344: 21,2576           11700                           CCS      LATVEL                                
039008,000345: 21,2577           12603                           TCF      +4                                    
039009,000346: 21,2600           12704                           TCF      LVLIMITS                              
039010,000347: 21,2601           12611                           TCF      +8D                                   
039011,000348: 21,2602           12704                           TCF      LVLIMITS                              
039012,000349: 21,2603           50065                           INDEX    ITEMP5                                
039013,000350: 21,2604           41700                           CS       LATVEL                                
039014,000351: 21,2605           62005                           AD       MAXVBITS                              #  +199.9989 FT./SEC.
039015,000352: 21,2606           00006                           EXTEND                                         
039016,000353: 21,2607           62617                           BZMF     CHKLASTY                              
039017,000354: 21,2610           12704                           TCF      LVLIMITS                              
039018,000355: 21,2611           50065                           INDEX    ITEMP5                                
039019,000356: 21,2612           31700                           CA       LATVEL                                
039020,000357: 21,2613           62005                           AD       MAXVBITS                              
039021,000358: 21,2614           00006                           EXTEND                                         
039022,000359: 21,2615           62617                           BZMF     +2                                    
039023,000360: 21,2616           12704                           TCF      LVLIMITS                              
039024,000361: 21,2617           50065        CHKLASTY           INDEX    ITEMP5                                
039025,000362: 21,2620           11676                           CCS      LATVMETR                              
039026,000363: 21,2621           12625                           TCF      +4                                    
039027,000364: 21,2622           12636                           TCF      LASTOK                                
039028,000365: 21,2623           12632                           TCF      +7                                    
039029,000366: 21,2624           12636                           TCF      LASTOK                                
039030,000367: 21,2625           50065                           INDEX    ITEMP5                                
039031,000368: 21,2626           31700                           CA       LATVEL                                
039032,000369: 21,2627           00006                           EXTEND                                         
039033,000370: 21,2630           62655                           BZMF     LASTPOSY   +5                         
039034,000371: 21,2631           12636                           TCF      +5                                    
039035,000372: 21,2632           50065                           INDEX    ITEMP5                                
039036,000373: 21,2633           41700                           CS       LATVEL                                
039037,000374: 21,2634           00006                           EXTEND                                         

Page 898

039039,000376: 21,2635           62672                           BZMF     LASTNEGY   +4                         
039040,000377: 21,2636           50065        LASTOK             INDEX    ITEMP5                                
039041,000378: 21,2637           11702                           CCS      TRAKLATV                              
039042,000379: 21,2640           12650                           TCF      LASTPOSY                              
039043,000380: 21,2641           12643                           TCF      +2                                    
039044,000381: 21,2642           12666                           TCF      LASTNEGY                              
039045,000382: 21,2643           50065                           INDEX    ITEMP5                                
039046,000383: 21,2644           31700                           CA       LATVEL                                
039047,000384: 21,2645           00006                           EXTEND                                         
039048,000385: 21,2646           62674                           BZMF     NEGVMAXY                              
039049,000386: 21,2647           12657                           TCF      POSVMAXY                              
039050,000387: 21,2650           50065        LASTPOSY           INDEX    ITEMP5                                
039051,000388: 21,2651           31700                           CA       LATVEL                                
039052,000389: 21,2652           00006                           EXTEND                                         
039053,000390: 21,2653           62655                           BZMF     +2                                    
039054,000391: 21,2654           12657                           TCF      POSVMAXY                              
039055,000392: 21,2655           42005                           CS       MAXVBITS                              
039056,000393: 21,2656           13000                           TCF      ZEROLSTY                              
039057,000394: 21,2657           50065        POSVMAXY           INDEX    ITEMP5                                
039058,000395: 21,2660           41676                           CS       LATVMETR                              
039059,000396: 21,2661           62005                           AD       MAXVBITS                              
039060,000397: 21,2662           50065                           INDEX    ITEMP5                                
039061,000398: 21,2663           56072                           XCH      RUPTREG3                              
039062,000399: 21,2664           34753                           CAF      ONE                                   
039063,000400: 21,2665           13003                           TCF      ZEROLSTY   +3                         
039064,000401: 21,2666           50065        LASTNEGY           INDEX    ITEMP5                                
039065,000402: 21,2667           31700                           CA       LATVEL                                
039066,000403: 21,2670           00006                           EXTEND                                         
039067,000404: 21,2671           62674                           BZMF     NEGVMAXY                              
039068,000405: 21,2672           32005                           CA       MAXVBITS                              
039069,000406: 21,2673           13000                           TCF      ZEROLSTY                              
039070,000407: 21,2674           50065        NEGVMAXY           INDEX    ITEMP5                                
039071,000408: 21,2675           31676                           CA       LATVMETR                              
039072,000409: 21,2676           62005                           AD       MAXVBITS                              
039073,000410: 21,2677           40000                           COM                                            
039074,000411: 21,2700           50065                           INDEX    ITEMP5                                
039075,000412: 21,2701           56072                           XCH      RUPTREG3                              
039076,000413: 21,2702           44753                           CS       ONE                                   
039077,000414: 21,2703           13003                           TCF      ZEROLSTY   +3                         
039078,000415: 21,2704           50065        LVLIMITS           INDEX    ITEMP5                                
039079,000416: 21,2705           11702                           CCS      TRAKLATV                              
039080,000417: 21,2706           12735                           TCF      LATVPOS                               
039081,000418: 21,2707           12711                           TCF      +2                                    
039082,000419: 21,2710           12742                           TCF      LATVNEG                               
039083,000420: 21,2711           50065                           INDEX    ITEMP5                                
039084,000421: 21,2712           41676                           CS       LATVMETR                              
039085,000422: 21,2713           00006                           EXTEND                                         
039086,000423: 21,2714           62716                           BZMF     +2                                    
039087,000424: 21,2715           12751                           TCF      NEGLMLV                               
039088,000425: 21,2716           50065                           INDEX    ITEMP5                                

Page 899

039090,000427: 21,2717           41700                           CS       LATVEL                                
039091,000428: 21,2720           00006                           EXTEND                                         
039092,000429: 21,2721           62774                           BZMF     LVMINLM                               
039093,000430: 21,2722           60066                           AD       ITEMP6                                
039094,000431: 21,2723           50065                           INDEX    ITEMP5                                
039095,000432: 21,2724           61676                           AD       LATVMETR                              
039096,000433: 21,2725           00006                           EXTEND                                         
039097,000434: 21,2726           62774                           BZMF     LVMINLM                               
039098,000435: 21,2727           50065                           INDEX    ITEMP5                                
039099,000436: 21,2730           61700                           AD       LATVEL                                
039100,000437: 21,2731           00006                           EXTEND                                         
039101,000438: 21,2732           50065                           INDEX    ITEMP5                                
039102,000439: 21,2733           61676                           SU       LATVMETR                              
039103,000440: 21,2734           13000                           TCF      ZEROLSTY                              
039104,000441: 21,2735           50065        LATVPOS            INDEX    ITEMP5                                
039105,000442: 21,2736           41700                           CS       LATVEL                                
039106,000443: 21,2737           00006                           EXTEND                                         
039107,000444: 21,2740           62774                           BZMF     LVMINLM                               
039108,000445: 21,2741           12746                           TCF      +5                                    
039109,000446: 21,2742           50065        LATVNEG            INDEX    ITEMP5                                
039110,000447: 21,2743           31700                           CA       LATVEL                                
039111,000448: 21,2744           00006                           EXTEND                                         
039112,000449: 21,2745           62774                           BZMF     LVMINLM                               
039113,000450: 21,2746           50065                           INDEX    ITEMP5                                
039114,000451: 21,2747           41676                           CS       LATVMETR                              
039115,000452: 21,2750           13000                           TCF      ZEROLSTY                              
039116,000453: 21,2751           50065        NEGLMLV            INDEX    ITEMP5                                
039117,000454: 21,2752           31700                           CA       LATVEL                                
039118,000455: 21,2753           00006                           EXTEND                                         
039119,000456: 21,2754           62774                           BZMF     LVMINLM                               
039120,000457: 21,2755           32005                           CA       MAXVBITS                              
039121,000458: 21,2756           50065                           INDEX    ITEMP5                                
039122,000459: 21,2757           61676                           AD       LATVMETR                              
039123,000460: 21,2760           40000                           COM                                            
039124,000461: 21,2761           50065                           INDEX    ITEMP5                                
039125,000462: 21,2762           61700                           AD       LATVEL                                
039126,000463: 21,2763           00006                           EXTEND                                         
039127,000464: 21,2764           62774                           BZMF     LVMINLM                               
039128,000465: 21,2765           00006                           EXTEND                                         
039129,000466: 21,2766           50065                           INDEX    ITEMP5                                
039130,000467: 21,2767           61700                           SU       LATVEL                                
039131,000468: 21,2770           50065                           INDEX    ITEMP5                                
039132,000469: 21,2771           61676                           AD       LATVMETR                              
039133,000470: 21,2772           40000                           COM                                            
039134,000471: 21,2773           13000                           TCF      ZEROLSTY                              
039135,000472: 21,2774           50065        LVMINLM            INDEX    ITEMP5                                
039136,000473: 21,2775           41676                           CS       LATVMETR                              
039137,000474: 21,2776           50065                           INDEX    ITEMP5                                
039138,000475: 21,2777           61700                           AD       LATVEL                                
039139,000476: 21,3000           50065        ZEROLSTY           INDEX    ITEMP5                                

Page 900

039141,000478: 21,3001           56072                           XCH      RUPTREG3                              
039142,000479: 21,3002           34755                           CAF      ZERO                                  
039143,000480: 21,3003           50065                           INDEX    ITEMP5                                
039144,000481: 21,3004           55702                           TS       TRAKLATV                              
039145,000482: 21,3005           50065                           INDEX    ITEMP5                                
039146,000483: 21,3006           30072                           CA       RUPTREG3                              
039147,000484: 21,3007           64754                           AD       NEG0                                  #  AVOIDS +0 DINC HARDWARE MALFUNCTION
039148,000485: 21,3010           50065                           INDEX    ITEMP5                                
039149,000486: 21,3011           54053                           TS       CDUTCMD                               
039150,000487: 21,3012           50065                           INDEX    ITEMP5                                
039151,000488: 21,3013           30072                           CA       RUPTREG3                              
039152,000489: 21,3014           50065                           INDEX    ITEMP5                                
039153,000490: 21,3015           27676                           ADS      LATVMETR                              
039154,000491: 21,3016           10065                           CCS      ITEMP5                                #  FIRST MONITOR FORWARD THEN LATERAL VEL.
039155,000492: 21,3017           12574                           TCF      VMONITOR                              
039156,000493: 
039157,000494: 21,3020           34752                           CAF      BIT2                                  #  CHECK TO SEE IF RR ERROR COUNTERS
039158,000495: 21,3021           00006                           EXTEND                                         #  ARE ENABLED.
039159,000496: 21,3022           02012                           RAND     CHAN12                                
039160,000497: 21,3023           10000                           CCS      A                                     #  IF NOT.
039161,000498: 21,3024           13026                           TCF      +2                                    
039162,000499: 21,3025           13035                           TCF      DISPRSET                              #  RE-INITIALIZE LANDING ANALOG DISPLAYS
039163,000500: 
039164,000501: 21,3026           35020                           CAF      BITSET                                #  DRIVE THE X-POINTER DISPLAY.
039165,000502: 21,3027           00006                           EXTEND                                         
039166,000503: 21,3030           05014                           WOR      CHAN14                                
039167,000504: 21,3031           01714                           TC       LADQSAVE                              #  GO TO ALTROUT +1 OR TO ALTOUT +1
039168,000505: 21,3032           34755        ZERODATA           CAF      ZERO                                  #  ZERO ALTSAVE AND ALTSAVE +1 - - -
039169,000506: 21,3033           54001                           TS       L                                     #        NO NEGATIVE ALTITUDES ALLOWED.
039170,000507: 21,3034           12244                           TCF      ZDATA2                                
039171,000508: 
039172,000509:                                                                                                  #  ************************************************************************
039173,000510: 
039174,000511: 21,3035           40074        DISPRSET           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
039175,000512: 21,3036           74752                           MASK     R10FLBIT                              
039176,000513: 21,3037           00006                           EXTEND                                         
039177,000514: 21,3040           13051                           BZF      ABORTON                               #  NO.
039178,000515: 21,3041           34744                           CAF      BIT8                                  #  YES.
039179,000516: 21,3042           71300                           MASK     IMODES33                              #  CHECK IF INERTIAL DATA JUST DISPLAYED.
039180,000517: 21,3043           10000                           CCS      A                                     
039181,000518: 21,3044           34752                           CAF      BIT2                                  #  YES. DISABLE RR ERROR COUNTER
039182,000519: 21,3045           64744                           AD       BIT8                                  #  NO.  REMOVE DISPLAY INERTIAL DATA
039183,000520: 21,3046           40000                           COM                                            
039184,000521: 21,3047           00006                           EXTEND                                         
039185,000522: 21,3050           03012                           WAND     CHAN12                                
039186,000523: 21,3051           43060        ABORTON            CS       BITS8/7                               #  RESET INERTIAL DATA, INTERLEAVE FLAGS.
039187,000524: 21,3052           71300                           MASK     IMODES33                              
039188,000525: 21,3053           55300                           TS       IMODES33                              
039189,000526: 21,3054           44736                           CS       DIDFLBIT                              
039190,000527: 21,3055           70075                           MASK     FLAGWRD1                              
039191,000528: 21,3056           54075                           TS       FLAGWRD1                              #  RESET DIDFLAG.
039192,000529: 21,3057           15272                           TCF      TASKOVER                              
039193,000530: 
039194,000531:                                                                                                  #  ************************************************************************
039195,000532: 
039196,000533: 21,3060           00300        BITS8/7            OCT      00300                                 #  INERTIAL DATA AND INTERLEAVE FLAGS.
039197,000534: 21,3061     5020               BITSET             =        PRIO6                                 
039198,000535: 
039199,000536:                                                                                                  #  ************************************************************************
039200,000537: 

Page 901 There is no source code on the original program listing.

039203,000540: 

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