Source Code

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

The reconstruction began with reconstructed source code for Luminary 173. Changes between revision 163 and 173 were backed out, as described by Luminary memos 157 and 158. 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 163 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.

038598,000002:                                                                                                  ## Copyright:   Public domain.
038599,000003:                                                                                                  ## Filename:    LANDING_ANALOG_DISPLAYS.agc
038600,000004:                                                                                                  ## Purpose:     A section of Luminary revision 163.
038601,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
038602,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
038603,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
038604,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
038605,000009:                                                                                                  ##              Luminary 173, as well as Luminary memos 157 amd 158.
038606,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
038607,000011:                                                                                                  ##              exactly match those specified for Luminary 163 in NASA
038608,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
038609,000013:                                                                                                  ##              that the reconstruction is correct.
038610,000014:                                                                                                  ## Reference:   pp. 890-898
038611,000015:                                                                                                  ## Assembler:   yaYUL
038612,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038613,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038614,000018:                                                                                                  ## Mod history: 2019-08-21 MAS  Created from Luminary 173. Implemented ACB L-11
038615,000019:                                                                                                  ##                              by moving three checks as shown in the
038616,000020:                                                                                                  ##                              Luminary 173 flowcharts.
038617,000021:                                                                                                  ##              2021-05-30 ABS  LADFWDV -> LATFWDV
038618,000022: 

Page 891

038620,000024: 21,2130                                           BANK     21                                    
038621,000025: 21,2000                                           SETLOC   R10                                   
038622,000026: 21,2000                                           BANK                                           
038623,000027: 
038624,000028: 21,2130  E7,1536                                  EBANK=   UNIT/R/                               
038625,000029: 21,2130                                           COUNT*   $$/R10                                
038626,000030: 
038627,000031: 21,2130           23714        LANDISP            LXCH     PIPCTR1                               #  UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
038628,000032: 21,2131           40025                           CS       TIME1                                 
038629,000033: 21,2132           53055                           DXCH     TBASE2                                
038630,000034: 
038631,000035: 21,2133           40103                           CS       FLAGWRD7                              #  IS LANDING ANALOG DISPLAYS FLAG SET?
038632,000036: 21,2134           74741                           MASK     SWANDBIT                              
038633,000037: 21,2135           10000                           CCS      A                                     
038634,000038: 21,2136           13035                           TCF      DISPRSET                              #  NO.
038635,000039: 21,2137           31300                           CA       IMODES33                              #  BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
038636,000040: 21,2140           74745                           MASK     BIT7                                  
038637,000041: 21,2141           10000                           CCS      A                                     
038638,000042: 21,2142           12214                           TCF      ALTOUT                                
038639,000043: 21,2143           02300        ALTROUT            TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
038640,000044: 21,2144           41300                           CS       IMODES33                              
038641,000045: 21,2145           74745                           MASK     BIT7                                  
038642,000046: 21,2146           27300                           ADS      IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038643,000047: 21,2147           34752                           CAF      BIT2                                  #  RATE COMMAND IS EXECUTED BEFORE RANGE.
038644,000048: 21,2150           00006                           EXTEND                                         
038645,000049: 21,2151           05014                           WOR      CHAN14                                #  ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
038646,000050: 21,2152           31743        ARCOMP             CA       RUNIT                                 #  COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
038647,000051: 21,2153           00006                           EXTEND                                         
038648,000052: 21,2154           71706                           MP       VVECT                                 #  MULTIPLY X-COMPONENTS.
038649,000053: 21,2155           56070                           XCH      RUPTREG1                              #  SAVE SINGLE PRECISION RESULT M/CS*2(-6).
038650,000054: 21,2156           31744                           CA       RUNIT      +1                         #  MULTIPLY Y-COMPONENTS.
038651,000055: 21,2157           00006                           EXTEND                                         
038652,000056: 21,2160           71707                           MP       VVECT      +1                         
038653,000057: 21,2161           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038654,000058: 21,2162           31745                           CA       RUNIT      +2                         #  MULTIPLY Z-COMPONENTS.
038655,000059: 21,2163           00006                           EXTEND                                         
038656,000060: 21,2164           71710                           MP       VVECT      +2                         
038657,000061: 21,2165           26070                           ADS      RUPTREG1                              #  ALTITUDE RATE IN M/CS *2(-6).
038658,000062: 21,2166           32000                           CA       ARCONV                                #  CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
038659,000063: 21,2167           00006                           EXTEND                                         
038660,000064: 21,2170           70070                           MP       RUPTREG1                              
038661,000065: 21,2171           20001                           DDOUBL                                         
038662,000066: 21,2172           20001                           DDOUBL                                         
038663,000067: 21,2173           56070                           XCH      RUPTREG1                              #  ALTITUDE RATE IN BIT UNITS*2(-14).
038664,000068: 21,2174           31716                           CA       DALTRATE                              #  ALTITUDE RATE COMPENSATION FACTOR.
038665,000069: 21,2175           00006                           EXTEND                                         
038666,000070: 21,2176           71715                           MP       DT                                    
038667,000071: 21,2177           60070                           AD       RUPTREG1                              
038668,000072: 21,2200           55711                           TS       ALTRATE                               #  ALTITUDE RATE IN BIT UNITS*2(-14).
038669,000073: 21,2201           41711                           CS       ALTRATE                               

Page 892

038671,000075: 21,2202           00006                           EXTEND                                         #  CHECK POLARITY OF ALTITUDE RATE.
038672,000076: 21,2203           62205                           BZMF     +2                                    
038673,000077: 21,2204           12207                           TCF      DATAOUT                               #  NEGATIVE - SEND POS. PULSES TO ALTM REG.
038674,000078: 21,2205           31711                           CA       ALTRATE                               #  POSITIVE OR ZERO - SET SIGN BIT = 1 AND
038675,000079: 21,2206           64735                           AD       BIT15                                 #  SEND TO ALTM REGISTER.  *DO NOT SEND +0*
038676,000080: 21,2207           54060        DATAOUT            TS       ALTM                                  #  ACTIVATE THE LANDING ANALOG DISPLAYS - -
038677,000081: 21,2210           34751                           CAF      BIT3                                  
038678,000082: 21,2211           00006                           EXTEND                                         
038679,000083: 21,2212           05014                           WOR      CHAN14                                #  BIT3 DRIVES THE ALT/ALTRATE METER.
038680,000084: 21,2213           15272                           TCF      TASKOVER                              #  EXIT
038681,000085: 
038682,000086: 21,2214           02300        ALTOUT             TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
038683,000087: 21,2215           44745                           CS       BIT7                                  
038684,000088: 21,2216           71300                           MASK     IMODES33                              
038685,000089: 21,2217           55300                           TS       IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
038686,000090: 21,2220           44752                           CS       BIT2                                  
038687,000091: 21,2221           00006                           EXTEND                                         
038688,000092: 21,2222           03014                           WAND     CHAN14                                
038689,000093: 21,2223           11741                           CCS      ALTBITS                               #  = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
038690,000094: 21,2224           12230                           TCF      +4                                    
038691,000095: 21,2225           12230                           TCF      +3                                    
038692,000096: 21,2226           12246                           TCF      OLDDATA                               
038693,000097: 21,2227           55741                           TS       ALTBITS                               #  SET ALTBITS FROM -0 TO +0.
038694,000098: 21,2230           44753                           CS       ONE                                   
038695,000099: 21,2231           53742                           DXCH     ALTBITS                               #  SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
038696,000100: 21,2232           53713                           DXCH     ALTSAVE                               
038697,000101: 21,2233           34742                           CA       BIT10                                 #  NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
038698,000102: 21,2234           56002                           XCH      Q                                     
038699,000103: 21,2235           22007                           LXCH     7                                     #  ZL
038700,000104: 21,2236           31715                           CA       DT                                    
038701,000105: 21,2237           00006                           EXTEND                                         
038702,000106: 21,2240           10002                           DV       Q                                     #  RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
038703,000107: 21,2241           00006                           EXTEND                                         
038704,000108: 21,2242           72002                           MP       ARTOA2                                #  .0021322 *2(+8)
038705,000109: 21,2243           12247                           TCF      OLDDATA    +1                         #  RATE APPLIES FOR DT CS.
038706,000110: 
038707,000111: 21,2244           53713        ZDATA2             DXCH     ALTSAVE                               
038708,000112: 21,2245           12267                           TCF      NEWDATA                               
038709,000113: 21,2246           32001        OLDDATA            CA       ARTOA                                 #  RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
038710,000114: 21,2247           00006                           EXTEND                                         
038711,000115: 21,2250           71711                           MP       ALTRATE                               #  EXTRAPOLATE WITH ALTITUDE RATE.
038712,000116: 21,2251           20001                           DDOUBL                                         
038713,000117: 21,2252           61713                           AD       ALTSAVE    +1                         
038714,000118: 21,2253           55713                           TS       ALTSAVE    +1                         
038715,000119: 21,2254           34755                           CAF      ZERO                                  
038716,000120: 21,2255           27712                           ADS      ALTSAVE                               
038717,000121: 21,2256           34733                           CAF      POSMAX                                #  FORCE SIGN AGREEMENT ASSUMING A
038718,000122: 21,2257           64753                           AD       ONE                                   #  NON-NEGATIVE ALTSAVE.
038719,000123: 21,2260           61713                           AD       ALTSAVE    +1                         #  IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
038720,000124: 21,2261           55713                           TS       ALTSAVE    +1                         #  AND ALTSAVE +1 AT ZERODATA.

Page 893

038722,000126: 21,2262           34755                           CAF      ZERO                                  
038723,000127: 21,2263           64733                           AD       POSMAX                                
038724,000128: 21,2264           61712                           AD       ALTSAVE                               
038725,000129: 21,2265           55712                           TS       ALTSAVE                               #  POSSIBLY SKIP TO NEWDATA.
038726,000130: 21,2266           13032                           TCF      ZERODATA                              
038727,000131: 21,2267           11713        NEWDATA            CCS      ALTSAVE    +1                         
038728,000132: 21,2270           12274                           TCF      +4                                    
038729,000133: 21,2271           12274                           TCF      +3                                    
038730,000134: 21,2272           34755                           CAF      ZERO                                  #  SET NEGATIVE ALTSAVE +1 TO +0.
038731,000135: 21,2273           55713                           TS       ALTSAVE    +1                         
038732,000136: 21,2274           11712                           CCS      ALTSAVE                               #  PROVIDE A 15 BIT UNSIGNED OUTPUT.
038733,000137: 21,2275           34735                           CAF      BIT15                                 #  THE HI-ORDER PART IS +1 OR +0.
038734,000138: 21,2276           61713                           AD       ALTSAVE    +1                         
038735,000139: 21,2277           12207                           TCF      DATAOUT                               #  DISPATCH UNSIGNED BITS TO ALTM REG.
038736,000140: 21,2300           00006        DISINDAT           EXTEND                                         
038737,000141: 21,2301           23714                           QXCH     LADQSAVE                              #  SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
038738,000142: 21,2302           40075                           CS       FLAGWRD1                              #  YES.  CHECK STATUS OF DIDFLAG.
038739,000143: 21,2303           74736                           MASK     DIDFLBIT                              
038740,000144: 21,2304           00006                           EXTEND                                         
038741,000145: 21,2305           12343                           BZF      SPEEDRUN                              #  SET.  PERFORM DATA DISPLAY SEQUENCE.
038742,000146: 21,2306           40075                           CS       FLAGWRD1                              #  RESET.  PERFORM INITIALIZATION FUNCTIONS.
038743,000147: 21,2307           74736                           MASK     DIDFLBIT                              
038744,000148: 21,2310           26075                           ADS      FLAGWRD1                              #  SET DIDFLAG.
038745,000149: 21,2311           44745                           CS       BIT7                                  
038746,000150: 21,2312           71300                           MASK     IMODES33                              #  TO DISPLAY ALTRATE FIRST AND ALT. SECOND
038747,000151: 21,2313           55300                           TS       IMODES33                              
038748,000152: 21,2314           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038749,000153: 21,2315           74752                           MASK     R10FLBIT                              
038750,000154: 21,2316           00006                           EXTEND                                         
038751,000155: 21,2317           15272                           BZF      TASKOVER                              #  NO
038752,000156: 21,2320           34744                           CAF      BIT8                                  #  YES.
038753,000157: 21,2321           00006                           EXTEND                                         
038754,000158: 21,2322           05012                           WOR      CHAN12                                #  SET DISPLAY INERTIAL DATA OUTBIT.
038755,000159: 21,2323           34755                           CAF      ZERO                                  
038756,000160: 21,2324           55702                           TS       TRAKLATV                              #  LATERAL VELOCITY MONITOR FLAG
038757,000161: 21,2325           55703                           TS       TRAKFWDV                              #  FORWARD VELOCITY MONITOR FLAG
038758,000162: 21,2326           55676                           TS       LATVMETR                              #  LATVEL MONITOR METER
038759,000163: 21,2327           55677                           TS       FORVMETR                              #  FORVEL MONITOR METER
038760,000164: 21,2330           34750                           CAF      BIT4                                  
038761,000165: 21,2331           05204                           TC       TWIDDLE                               
038762,000166: 21,2332           02334                           ADRES    INTLZE                                
038763,000167: 21,2333           15272                           TCF      TASKOVER                              
038764,000168: 21,2334           34752        INTLZE             CAF      BIT2                                  
038765,000169: 21,2335           00006                           EXTEND                                         
038766,000170: 21,2336           05012                           WOR      CHAN12                                #  ENABLE RR ERROR COUNTER.

Page 894

038768,000172: 21,2337           41300                           CS       IMODES33                              
038769,000173: 21,2340           74744                           MASK     BIT8                                  
038770,000174: 21,2341           27300                           ADS      IMODES33                              #  SET INERTIAL DATA FLAG.
038771,000175: 21,2342           15272                           TCF      TASKOVER                              
038772,000176: 
038773,000177: 21,2343           41234        SPEEDRUN           CS       PIPTIME    +1                         #  UPDATE THE VELOCITY VECTOR
038774,000178: 21,2344           60025                           AD       TIME1                                 #  COMPUTE T - TN
038775,000179: 21,2345           64736                           AD       HALF                                  #  CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
038776,000180: 21,2346           64736                           AD       HALF                                  
038777,000181: 21,2347           57715                           XCH      DT                                    #  SAVE FOR LATER USE
038778,000182: 21,2350           34777                           CA       1SEC                                  
038779,000183: 21,2351           54065                           TS       ITEMP5                                #  INITIALIZE FOR DIVISION LATER
038780,000184: 21,2352           00006                           EXTEND                                         
038781,000185: 21,2353           31236                           DCA      GDT/2                                 #  COMPUTE THE X-COMPONENT OF VELOCITY.
038782,000186: 21,2354           20001                           DDOUBL                                         
038783,000187: 21,2355           20001                           DDOUBL                                         
038784,000188: 21,2356           00006                           EXTEND                                         
038785,000189: 21,2357           71715                           MP       DT                                    
038786,000190: 21,2360           00006                           EXTEND                                         
038787,000191: 21,2361           10065                           DV       ITEMP5                                
038788,000192: 21,2362           57706                           XCH      VVECT                                 #  VVECT = G(T-TN) M/CS *2(-5)
038789,000193: 21,2363           00006                           EXTEND                                         
038790,000194: 21,2364           31527                           DCA      V                                     #  M/CS *2(-7)
038791,000195: 21,2365           20001                           DDOUBL                                         #  RESCALE TO 2(-5)
038792,000196: 21,2366           20001                           DDOUBL                                         
038793,000197: 21,2367           27706                           ADS      VVECT                                 #  VVECT = VN + G(T-TN) M/CS *2(-5)
038794,000198: 21,2370           30037                           CA       PIPAX                                 #  DELV CM/SEC *2(-14)
038795,000199: 21,2371           61157                           AD       PIPATMPX                              #  IN CASE PIPAX HAS BEEN ZEROED
038796,000200: 21,2372           00006                           EXTEND                                         
038797,000201: 21,2373           72004                           MP       KPIP1(5)                              #  DELV M/CS *2(-5)
038798,000202: 21,2374           27706                           ADS      VVECT                                 #  VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
038799,000203: 21,2375           00006                           EXTEND                                         
038800,000204: 21,2376           31240                           DCA      GDT/2      +2                         #  COMPUTE THE Y-COMPONENT OF VELOCITY.
038801,000205: 21,2377           20001                           DDOUBL                                         
038802,000206: 21,2400           20001                           DDOUBL                                         
038803,000207: 21,2401           00006                           EXTEND                                         
038804,000208: 21,2402           71715                           MP       DT                                    
038805,000209: 21,2403           00006                           EXTEND                                         
038806,000210: 21,2404           10065                           DV       ITEMP5                                
038807,000211: 21,2405           57707                           XCH      VVECT      +1                         
038808,000212: 21,2406           00006                           EXTEND                                         
038809,000213: 21,2407           31531                           DCA      V          +2                         
038810,000214: 21,2410           20001                           DDOUBL                                         
038811,000215: 21,2411           20001                           DDOUBL                                         
038812,000216: 21,2412           27707                           ADS      VVECT      +1                         
038813,000217: 21,2413           30040                           CA       PIPAY                                 
038814,000218: 21,2414           61160                           AD       PIPATMPY                              
038815,000219: 21,2415           00006                           EXTEND                                         
038816,000220: 21,2416           72004                           MP       KPIP1(5)                              
038817,000221: 21,2417           27707                           ADS      VVECT      +1                         

Page 895

038819,000223: 21,2420           00006                           EXTEND                                         
038820,000224: 21,2421           31242                           DCA      GDT/2      +4                         #  COMPUTE THE Z-COMPONENT OF VELOCITY.
038821,000225: 21,2422           20001                           DDOUBL                                         
038822,000226: 21,2423           20001                           DDOUBL                                         
038823,000227: 21,2424           00006                           EXTEND                                         
038824,000228: 21,2425           71715                           MP       DT                                    
038825,000229: 21,2426           00006                           EXTEND                                         
038826,000230: 21,2427           10065                           DV       ITEMP5                                
038827,000231: 21,2430           57710                           XCH      VVECT      +2                         
038828,000232: 21,2431           00006                           EXTEND                                         
038829,000233: 21,2432           31533                           DCA      V          +4                         
038830,000234: 21,2433           20001                           DDOUBL                                         
038831,000235: 21,2434           20001                           DDOUBL                                         
038832,000236: 21,2435           27710                           ADS      VVECT      +2                         
038833,000237: 21,2436           30041                           CA       PIPAZ                                 
038834,000238: 21,2437           61161                           AD       PIPATMPZ                              
038835,000239: 21,2440           00006                           EXTEND                                         
038836,000240: 21,2441           72004                           MP       KPIP1(5)                              
038837,000241: 21,2442           27710                           ADS      VVECT      +2                         
038838,000242: 
038839,000243: 21,2443           34751                           CAF      BIT3                                  #  PAUSE 40 MS TO LET OTHER RUPTS IN.
038840,000244: 21,2444           05235                           TC       VARDELAY                              
038841,000245: 
038842,000246: 21,2445           31733                           CA       DELVS                                 #  HI X OF VELOCITY CORRECTION TERM.
038843,000247: 21,2446           61706                           AD       VVECT                                 #  HI X OF UPDATED VELOCITY VECTOR.
038844,000248: 21,2447           54061                           TS       ITEMP1                                #  = VX - DVX M/CS *2(-5).
038845,000249: 21,2450           31735                           CA       DELVS      +2                         #     Y
038846,000250: 21,2451           61707                           AD       VVECT      +1                         #     Y
038847,000251: 21,2452           54062                           TS       ITEMP2                                #  = VY - DVY M/CS *2(-5).
038848,000252: 21,2453           31737                           CA       DELVS      +4                         #     Z
038849,000253: 21,2454           61710                           AD       VVECT      +2                         #     Z
038850,000254: 21,2455           54063                           TS       ITEMP3                                #  = VZ - DVZ M/CS *2(-5).
038851,000255: 21,2456           30061                           CA       ITEMP1                                #  COMPUTE VHY, VELOCITY DIRECTED ALONG THE
038852,000256: 21,2457           00006                           EXTEND                                         #  Y-COORDINATE.
038853,000257: 21,2460           71717                           MP       UHYP                                  #  HI X OF CROSS-RANGE HALF-UNIT VECTOR.
038854,000258: 21,2461           56070                           XCH      RUPTREG1                              
038855,000259: 21,2462           30062                           CA       ITEMP2                                

Page 896

038857,000261: 21,2463           00006                           EXTEND                                         
038858,000262: 21,2464           71721                           MP       UHYP       +2                         #  Y
038859,000263: 21,2465           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038860,000264: 21,2466           30063                           CA       ITEMP3                                
038861,000265: 21,2467           00006                           EXTEND                                         
038862,000266: 21,2470           71723                           MP       UHYP       +4                         #  Z
038863,000267: 21,2471           26070                           ADS      RUPTREG1                              
038864,000268: 21,2472           30070                           CA       RUPTREG1                              
038865,000269: 21,2473           60000                           DOUBLE                                         
038866,000270: 21,2474           57704                           XCH      VHY                                   #  VHY=VMP.UHYP M/CS*2(-5).
038867,000271: 21,2475           30061                           CA       ITEMP1                                #  NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
038868,000272: 21,2476           00006                           EXTEND                                         #  THE Z-COORDINATE.
038869,000273: 21,2477           71725                           MP       UHZP                                  #  HI X OF DOWN-RANGE HALF-UNIT VECTOR.
038870,000274: 21,2500           56070                           XCH      RUPTREG1                              
038871,000275: 21,2501           30062                           CA       ITEMP2                                
038872,000276: 21,2502           00006                           EXTEND                                         
038873,000277: 21,2503           71727                           MP       UHZP       +2                         #  Y
038874,000278: 21,2504           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
038875,000279: 21,2505           30063                           CA       ITEMP3                                
038876,000280: 21,2506           00006                           EXTEND                                         
038877,000281: 21,2507           71731                           MP       UHZP       +4                         #  Z
038878,000282: 21,2510           26070                           ADS      RUPTREG1                              
038879,000283: 21,2511           30070                           CA       RUPTREG1                              
038880,000284: 21,2512           60000                           DOUBLE                                         
038881,000285: 21,2513           57705                           XCH      VHZ                                   #  VHZ = VMP.UHZP M/CS*2(-5).
038882,000286: 21,2514           35015        GET22/32           CAF      EBANK6                                #  GET SIN(AOG),COS(AOG) FROM GPMATRIX.
038883,000287: 21,2515           54003                           TS       EBANK                                 
038884,000288: 21,2516  E6,1417                                  EBANK=   M22                                   
038885,000289: 21,2516           31417                           CA       M22                                   
038886,000290: 21,2517           54063                           TS       ITEMP3                                
038887,000291: 21,2520           31420                           CA       M32                                   
038888,000292: 21,2521           54064                           TS       ITEMP4                                
038889,000293: 21,2522           35016                           CAF      EBANK7                                
038890,000294: 21,2523           54003                           TS       EBANK                                 
038891,000295: 21,2524  E7,1536                                  EBANK=   UNIT/R/                               
038892,000296: 21,2524           30064        LATFWDV            CA       ITEMP4                                #  COMPUTE LATERAL AND FORWARD VELOCITIES.
038893,000297: 21,2525           00006                           EXTEND                                         
038894,000298: 21,2526           71704                           MP       VHY                                   
038895,000299: 21,2527           56070                           XCH      RUPTREG1                              
038896,000300: 21,2530           30063                           CA       ITEMP3                                
038897,000301: 21,2531           00006                           EXTEND                                         
038898,000302: 21,2532           71705                           MP       VHZ                                   
038899,000303: 21,2533           26070                           ADS      RUPTREG1                              #  = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
038900,000304: 21,2534           32003                           CA       VELCONV                               #  CONVERT LATERAL VELOCITY TO BIT UNITS.
038901,000305: 21,2535           00006                           EXTEND                                         
038902,000306: 21,2536           70070                           MP       RUPTREG1                              
038903,000307: 21,2537           20001                           DDOUBL                                         
038904,000308: 21,2540           57700                           XCH      LATVEL                                #  LATERAL VELOCITY IN BIT UNITS *2(-14).
038905,000309: 21,2541           30064                           CA       ITEMP4                                #  COMPUTE FORWARD VELOCITY.
038906,000310: 21,2542           00006                           EXTEND                                         

Page 897

038908,000312: 21,2543           71705                           MP       VHZ                                   
038909,000313: 21,2544           56070                           XCH      RUPTREG1                              
038910,000314: 21,2545           30063                           CA       ITEMP3                                
038911,000315: 21,2546           00006                           EXTEND                                         
038912,000316: 21,2547           71704                           MP       VHY                                   
038913,000317: 21,2550           40000                           CS       A                                     
038914,000318: 21,2551           26070                           ADS      RUPTREG1                              #  =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).
038915,000319: 21,2552           32003                           CA       VELCONV                               #  CONVERT FORWARD VELOCITY TO BIT UNITS.
038916,000320: 21,2553           00006                           EXTEND                                         
038917,000321: 21,2554           70070                           MP       RUPTREG1                              
038918,000322: 21,2555           20001                           DDOUBL                                         
038919,000323: 21,2556           57701                           XCH      FORVEL                                #  FORWARD VELOCITY IN BIT UNITS *2(-14).
038920,000324: 
038921,000325: 21,2557           34746                           CAF      BIT6                                  
038922,000326: 21,2560           00006                           EXTEND                                         #  WISHETH THE ASTRONAUT THE ANALOG
038923,000327: 21,2561           02030                           RAND     CHAN30                                #  DISPLAYS?  I.E.,
038924,000328: 21,2562           10000                           CCS      A                                     #  IS THE MODE SELECT SWITCH IN PGNCS?
038925,000329: 21,2563           13035                           TCF      DISPRSET                              #  NO.  ASTRONAUT REQUESTS NO INERTIAL DATA
038926,000330: 
038927,000331: 21,2564           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
038928,000332: 21,2565           74752                           MASK     R10FLBIT                              
038929,000333: 21,2566           10000                           CCS      A                                     
038930,000334: 21,2567           12571                           TCF      +2                                    #  YES.
038931,000335: 21,2570           01714                           TC       LADQSAVE                              #  NO.
038932,000336: 
038933,000337: 21,2571           42005                           CS       MAXVBITS                              #  ACC.=-199.9989 FT./SEC.
038934,000338: 21,2572           54066                           TS       ITEMP6                                #  -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
038935,000339: 
038936,000340: 21,2573           34753                           CAF      ONE                                   #  LOOP TWICE.
038937,000341: 21,2574           54065        VMONITOR           TS       ITEMP5                                #  FORWARD AND LATERAL VELOCITY LANDING
038938,000342: 21,2575           50065                           INDEX    ITEMP5                                #        ANALOG DISPLAYS MONITOR.
038939,000343: 21,2576           11700                           CCS      LATVEL                                
038940,000344: 21,2577           12603                           TCF      +4                                    
038941,000345: 21,2600           12704                           TCF      LVLIMITS                              
038942,000346: 21,2601           12611                           TCF      +8D                                   
038943,000347: 21,2602           12704                           TCF      LVLIMITS                              
038944,000348: 21,2603           50065                           INDEX    ITEMP5                                
038945,000349: 21,2604           41700                           CS       LATVEL                                
038946,000350: 21,2605           62005                           AD       MAXVBITS                              #  +199.9989 FT./SEC.
038947,000351: 21,2606           00006                           EXTEND                                         
038948,000352: 21,2607           62617                           BZMF     CHKLASTY                              
038949,000353: 21,2610           12704                           TCF      LVLIMITS                              
038950,000354: 21,2611           50065                           INDEX    ITEMP5                                
038951,000355: 21,2612           31700                           CA       LATVEL                                
038952,000356: 21,2613           62005                           AD       MAXVBITS                              
038953,000357: 21,2614           00006                           EXTEND                                         
038954,000358: 21,2615           62617                           BZMF     +2                                    
038955,000359: 21,2616           12704                           TCF      LVLIMITS                              
038956,000360: 21,2617           50065        CHKLASTY           INDEX    ITEMP5                                
038957,000361: 21,2620           11676                           CCS      LATVMETR                              
038958,000362: 21,2621           12625                           TCF      +4                                    
038959,000363: 21,2622           12636                           TCF      LASTOK                                
038960,000364: 21,2623           12632                           TCF      +7                                    
038961,000365: 21,2624           12636                           TCF      LASTOK                                
038962,000366: 21,2625           50065                           INDEX    ITEMP5                                
038963,000367: 21,2626           31700                           CA       LATVEL                                
038964,000368: 21,2627           00006                           EXTEND                                         
038965,000369: 21,2630           62655                           BZMF     LASTPOSY   +5                         
038966,000370: 21,2631           12636                           TCF      +5                                    
038967,000371: 21,2632           50065                           INDEX    ITEMP5                                
038968,000372: 21,2633           41700                           CS       LATVEL                                
038969,000373: 21,2634           00006                           EXTEND                                         

Page 898

038971,000375: 21,2635           62672                           BZMF     LASTNEGY   +4                         
038972,000376: 21,2636           50065        LASTOK             INDEX    ITEMP5                                
038973,000377: 21,2637           11702                           CCS      TRAKLATV                              
038974,000378: 21,2640           12650                           TCF      LASTPOSY                              
038975,000379: 21,2641           12643                           TCF      +2                                    
038976,000380: 21,2642           12666                           TCF      LASTNEGY                              
038977,000381: 21,2643           50065                           INDEX    ITEMP5                                
038978,000382: 21,2644           31700                           CA       LATVEL                                
038979,000383: 21,2645           00006                           EXTEND                                         
038980,000384: 21,2646           62674                           BZMF     NEGVMAXY                              
038981,000385: 21,2647           12657                           TCF      POSVMAXY                              
038982,000386: 21,2650           50065        LASTPOSY           INDEX    ITEMP5                                
038983,000387: 21,2651           31700                           CA       LATVEL                                
038984,000388: 21,2652           00006                           EXTEND                                         
038985,000389: 21,2653           62655                           BZMF     +2                                    
038986,000390: 21,2654           12657                           TCF      POSVMAXY                              
038987,000391: 21,2655           42005                           CS       MAXVBITS                              
038988,000392: 21,2656           13000                           TCF      ZEROLSTY                              
038989,000393: 21,2657           50065        POSVMAXY           INDEX    ITEMP5                                
038990,000394: 21,2660           41676                           CS       LATVMETR                              
038991,000395: 21,2661           62005                           AD       MAXVBITS                              
038992,000396: 21,2662           50065                           INDEX    ITEMP5                                
038993,000397: 21,2663           56072                           XCH      RUPTREG3                              
038994,000398: 21,2664           34753                           CAF      ONE                                   
038995,000399: 21,2665           13003                           TCF      ZEROLSTY   +3                         
038996,000400: 21,2666           50065        LASTNEGY           INDEX    ITEMP5                                
038997,000401: 21,2667           31700                           CA       LATVEL                                
038998,000402: 21,2670           00006                           EXTEND                                         
038999,000403: 21,2671           62674                           BZMF     NEGVMAXY                              
039000,000404: 21,2672           32005                           CA       MAXVBITS                              
039001,000405: 21,2673           13000                           TCF      ZEROLSTY                              
039002,000406: 21,2674           50065        NEGVMAXY           INDEX    ITEMP5                                
039003,000407: 21,2675           31676                           CA       LATVMETR                              
039004,000408: 21,2676           62005                           AD       MAXVBITS                              
039005,000409: 21,2677           40000                           COM                                            
039006,000410: 21,2700           50065                           INDEX    ITEMP5                                
039007,000411: 21,2701           56072                           XCH      RUPTREG3                              
039008,000412: 21,2702           44753                           CS       ONE                                   
039009,000413: 21,2703           13003                           TCF      ZEROLSTY   +3                         
039010,000414: 21,2704           50065        LVLIMITS           INDEX    ITEMP5                                
039011,000415: 21,2705           11702                           CCS      TRAKLATV                              
039012,000416: 21,2706           12735                           TCF      LATVPOS                               
039013,000417: 21,2707           12711                           TCF      +2                                    
039014,000418: 21,2710           12742                           TCF      LATVNEG                               
039015,000419: 21,2711           50065                           INDEX    ITEMP5                                
039016,000420: 21,2712           41676                           CS       LATVMETR                              
039017,000421: 21,2713           00006                           EXTEND                                         
039018,000422: 21,2714           62716                           BZMF     +2                                    
039019,000423: 21,2715           12751                           TCF      NEGLMLV                               
039020,000424: 21,2716           50065                           INDEX    ITEMP5                                

Page 899

039022,000426: 21,2717           41700                           CS       LATVEL                                
039023,000427: 21,2720           00006                           EXTEND                                         
039024,000428: 21,2721           62774                           BZMF     LVMINLM                               
039025,000429: 21,2722           60066                           AD       ITEMP6                                
039026,000430: 21,2723           50065                           INDEX    ITEMP5                                
039027,000431: 21,2724           61676                           AD       LATVMETR                              
039028,000432: 21,2725           00006                           EXTEND                                         
039029,000433: 21,2726           62774                           BZMF     LVMINLM                               
039030,000434: 21,2727           50065                           INDEX    ITEMP5                                
039031,000435: 21,2730           61700                           AD       LATVEL                                
039032,000436: 21,2731           00006                           EXTEND                                         
039033,000437: 21,2732           50065                           INDEX    ITEMP5                                
039034,000438: 21,2733           61676                           SU       LATVMETR                              
039035,000439: 21,2734           13000                           TCF      ZEROLSTY                              
039036,000440: 21,2735           50065        LATVPOS            INDEX    ITEMP5                                
039037,000441: 21,2736           41700                           CS       LATVEL                                
039038,000442: 21,2737           00006                           EXTEND                                         
039039,000443: 21,2740           62774                           BZMF     LVMINLM                               
039040,000444: 21,2741           12746                           TCF      +5                                    
039041,000445: 21,2742           50065        LATVNEG            INDEX    ITEMP5                                
039042,000446: 21,2743           31700                           CA       LATVEL                                
039043,000447: 21,2744           00006                           EXTEND                                         
039044,000448: 21,2745           62774                           BZMF     LVMINLM                               
039045,000449: 21,2746           50065                           INDEX    ITEMP5                                
039046,000450: 21,2747           41676                           CS       LATVMETR                              
039047,000451: 21,2750           13000                           TCF      ZEROLSTY                              
039048,000452: 21,2751           50065        NEGLMLV            INDEX    ITEMP5                                
039049,000453: 21,2752           31700                           CA       LATVEL                                
039050,000454: 21,2753           00006                           EXTEND                                         
039051,000455: 21,2754           62774                           BZMF     LVMINLM                               
039052,000456: 21,2755           32005                           CA       MAXVBITS                              
039053,000457: 21,2756           50065                           INDEX    ITEMP5                                
039054,000458: 21,2757           61676                           AD       LATVMETR                              
039055,000459: 21,2760           40000                           COM                                            
039056,000460: 21,2761           50065                           INDEX    ITEMP5                                
039057,000461: 21,2762           61700                           AD       LATVEL                                
039058,000462: 21,2763           00006                           EXTEND                                         
039059,000463: 21,2764           62774                           BZMF     LVMINLM                               
039060,000464: 21,2765           00006                           EXTEND                                         
039061,000465: 21,2766           50065                           INDEX    ITEMP5                                
039062,000466: 21,2767           61700                           SU       LATVEL                                
039063,000467: 21,2770           50065                           INDEX    ITEMP5                                
039064,000468: 21,2771           61676                           AD       LATVMETR                              
039065,000469: 21,2772           40000                           COM                                            
039066,000470: 21,2773           13000                           TCF      ZEROLSTY                              
039067,000471: 21,2774           50065        LVMINLM            INDEX    ITEMP5                                
039068,000472: 21,2775           41676                           CS       LATVMETR                              
039069,000473: 21,2776           50065                           INDEX    ITEMP5                                
039070,000474: 21,2777           61700                           AD       LATVEL                                
039071,000475: 21,3000           50065        ZEROLSTY           INDEX    ITEMP5                                

Page 900

039073,000477: 21,3001           56072                           XCH      RUPTREG3                              
039074,000478: 21,3002           34755                           CAF      ZERO                                  
039075,000479: 21,3003           50065                           INDEX    ITEMP5                                
039076,000480: 21,3004           55702                           TS       TRAKLATV                              
039077,000481: 21,3005           50065                           INDEX    ITEMP5                                
039078,000482: 21,3006           30072                           CA       RUPTREG3                              
039079,000483: 21,3007           64754                           AD       NEG0                                  #  AVOIDS +0 DINC HARDWARE MALFUNCTION
039080,000484: 21,3010           50065                           INDEX    ITEMP5                                
039081,000485: 21,3011           54053                           TS       CDUTCMD                               
039082,000486: 21,3012           50065                           INDEX    ITEMP5                                
039083,000487: 21,3013           30072                           CA       RUPTREG3                              
039084,000488: 21,3014           50065                           INDEX    ITEMP5                                
039085,000489: 21,3015           27676                           ADS      LATVMETR                              
039086,000490: 21,3016           10065                           CCS      ITEMP5                                #  FIRST MONITOR FORWARD THEN LATERAL VEL.
039087,000491: 21,3017           12574                           TCF      VMONITOR                              
039088,000492: 
039089,000493: 21,3020           34752                           CAF      BIT2                                  #  CHECK TO SEE IF RR ERROR COUNTERS
039090,000494: 21,3021           00006                           EXTEND                                         #  ARE ENABLED.
039091,000495: 21,3022           02012                           RAND     CHAN12                                
039092,000496: 21,3023           10000                           CCS      A                                     #  IF NOT.
039093,000497: 21,3024           13026                           TCF      +2                                    
039094,000498: 21,3025           13035                           TCF      DISPRSET                              #  RE-INITIALIZE LANDING ANALOG DISPLAYS
039095,000499: 
039096,000500: 21,3026           35020                           CAF      BITSET                                #  DRIVE THE X-POINTER DISPLAY.
039097,000501: 21,3027           00006                           EXTEND                                         
039098,000502: 21,3030           05014                           WOR      CHAN14                                
039099,000503: 21,3031           01714                           TC       LADQSAVE                              #  GO TO ALTROUT +1 OR TO ALTOUT +1
039100,000504: 21,3032           34755        ZERODATA           CAF      ZERO                                  #  ZERO ALTSAVE AND ALTSAVE +1 - - -
039101,000505: 21,3033           54001                           TS       L                                     #        NO NEGATIVE ALTITUDES ALLOWED.
039102,000506: 21,3034           12244                           TCF      ZDATA2                                
039103,000507: 
039104,000508:                                                                                                  #  ************************************************************************
039105,000509: 
039106,000510: 21,3035           40074        DISPRSET           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
039107,000511: 21,3036           74752                           MASK     R10FLBIT                              
039108,000512: 21,3037           00006                           EXTEND                                         
039109,000513: 21,3040           13051                           BZF      ABORTON                               #  NO.
039110,000514: 21,3041           34744                           CAF      BIT8                                  #  YES.
039111,000515: 21,3042           71300                           MASK     IMODES33                              #  CHECK IF INERTIAL DATA JUST DISPLAYED.
039112,000516: 21,3043           10000                           CCS      A                                     
039113,000517: 21,3044           34752                           CAF      BIT2                                  #  YES. DISABLE RR ERROR COUNTER
039114,000518: 21,3045           64744                           AD       BIT8                                  #  NO.  REMOVE DISPLAY INERTIAL DATA
039115,000519: 21,3046           40000                           COM                                            
039116,000520: 21,3047           00006                           EXTEND                                         
039117,000521: 21,3050           03012                           WAND     CHAN12                                
039118,000522: 21,3051           43060        ABORTON            CS       BITS8/7                               #  RESET INERTIAL DATA, INTERLEAVE FLAGS.
039119,000523: 21,3052           71300                           MASK     IMODES33                              
039120,000524: 21,3053           55300                           TS       IMODES33                              
039121,000525: 21,3054           44736                           CS       DIDFLBIT                              
039122,000526: 21,3055           70075                           MASK     FLAGWRD1                              
039123,000527: 21,3056           54075                           TS       FLAGWRD1                              #  RESET DIDFLAG.
039124,000528: 21,3057           15272                           TCF      TASKOVER                              
039125,000529: 
039126,000530:                                                                                                  #  ************************************************************************
039127,000531: 
039128,000532: 21,3060           00300        BITS8/7            OCT      00300                                 #  INERTIAL DATA AND INTERLEAVE FLAGS.
039129,000533: 21,3061     5020               BITSET             =        PRIO6                                 
039130,000534: 
039131,000535:                                                                                                  #  ************************************************************************
039132,000536: 

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

039135,000539: 

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