Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

039714,000002:                                                                                                  ## Copyright:   Public domain.
039715,000003:                                                                                                  ## Filename:    LANDING_ANALOG_DISPLAYS.agc
039716,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
039717,000005:                                                                                                  ##              It is part of the source code for the original release
039718,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
039719,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
039720,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
039721,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
039722,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
039723,000011:                                                                                                  ##              that the code format has been changed to conform to the
039724,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
039725,000013:                                                                                                  ##              original YUL assembler.
039726,000014:                                                                                                  ## Reference:   pp. 897-906
039727,000015:                                                                                                  ## Assembler:   yaYUL
039728,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039729,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039730,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
039731,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
039732,000020:                                                                                                  ##              2017-01-05 RRB  Updated for Luminary 69.
039733,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
039734,000022:                                                                                                  ##                              but no errors found.
039735,000023: 

Page 897

039737,000025: 21,2340                                           BANK     21                                    
039738,000026: 21,2000                                           SETLOC   R10                                   
039739,000027: 21,2000                                           BANK                                           
039740,000028: 
039741,000029: 21,2340  E7,1534                                  EBANK=   UNIT/R/                               
039742,000030: 21,2340                                           COUNT*   $$/R10                                
039743,000031: 
039744,000032: 21,2340           23712        LANDISP            LXCH     PIPCTR1                               #  UPDATE TBASE2 AND PIPCTR SIMULTANEOUSLY.
039745,000033: 21,2341           40025                           CS       TIME1                                 
039746,000034: 21,2342           53056                           DXCH     TBASE2                                
039747,000035: 
039748,000036: 21,2343           40103                           CS       FLAGWRD7                              #  IS LANDING ANALOG DISPLAYS FLAG SET?
039749,000037: 21,2344           74741                           MASK     SWANDBIT                              
039750,000038: 21,2345           10000                           CCS      A                                     
039751,000039: 21,2346           13237                           TCF      DISPRSET                              #  NO.
039752,000040: 21,2347           31303                           CA       IMODES33                              #  BIT 7 = 0 (DO ALTRATE), =1 (DO ALT.)
039753,000041: 21,2350           74745                           MASK     BIT7                                  
039754,000042: 21,2351           10000                           CCS      A                                     
039755,000043: 21,2352           12424                           TCF      ALTOUT                                
039756,000044: 21,2353           02510        ALTROUT            TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
039757,000045: 21,2354           41303                           CS       IMODES33                              
039758,000046: 21,2355           74745                           MASK     BIT7                                  
039759,000047: 21,2356           27303                           ADS      IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039760,000048: 21,2357           34752                           CAF      BIT2                                  #  RATE COMMAND IS EXECUTED BEFORE RANGE.
039761,000049: 21,2360           00006                           EXTEND                                         
039762,000050: 21,2361           05014                           WOR      CHAN14                                #  ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
039763,000051: 21,2362           31741        ARCOMP             CA       RUNIT                                 #  COMPUTE ALTRATE = RUNIT.VVECT M/CS *2(-6).
039764,000052: 21,2363           00006                           EXTEND                                         
039765,000053: 21,2364           71704                           MP       VVECT                                 #  MULTIPLY X-COMPONENTS.
039766,000054: 21,2365           56070                           XCH      RUPTREG1                              #  SAVE SINGLE PRECISION RESULT M/CS*2(-6).
039767,000055: 21,2366           31742                           CA       RUNIT      +1                         #  MULTIPLY Y-COMPONENTS.
039768,000056: 21,2367           00006                           EXTEND                                         
039769,000057: 21,2370           71705                           MP       VVECT      +1                         
039770,000058: 21,2371           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
039771,000059: 21,2372           31743                           CA       RUNIT      +2                         #  MULTIPLY Z-COMPONENTS.
039772,000060: 21,2373           00006                           EXTEND                                         
039773,000061: 21,2374           71706                           MP       VVECT      +2                         
039774,000062: 21,2375           26070                           ADS      RUPTREG1                              #  ALTITUDE RATE IN M/CS *2(-6).
039775,000063: 21,2376           32000                           CA       ARCONV                                #  CONVERT ALTRATE TO BIT UNITS (.5FPS/BIT)
039776,000064: 21,2377           00006                           EXTEND                                         
039777,000065: 21,2400           70070                           MP       RUPTREG1                              
039778,000066: 21,2401           20001                           DDOUBL                                         
039779,000067: 21,2402           20001                           DDOUBL                                         
039780,000068: 21,2403           56070                           XCH      RUPTREG1                              #  ALTITUDE RATE IN BIT UNITS*2(-14).
039781,000069: 21,2404           31714                           CA       DALTRATE                              #  ALTITUDE RATE COMPENSATION FACTOR.
039782,000070: 21,2405           00006                           EXTEND                                         
039783,000071: 21,2406           71713                           MP       DT                                    
039784,000072: 21,2407           60070                           AD       RUPTREG1                              
039785,000073: 21,2410           55707                           TS       ALTRATE                               #  ALTITUDE RATE IN BIT UNITS*2(-14).
039786,000074: 21,2411           41707                           CS       ALTRATE                               

Page 898

039788,000076: 21,2412           00006                           EXTEND                                         #  CHECK POLARITY OF ALTITUDE RATE.
039789,000077: 21,2413           62415                           BZMF     +2                                    
039790,000078: 21,2414           12417                           TCF      DATAOUT                               #  NEGATIVE - SEND POS. PULSES TO ALTM REG.
039791,000079: 21,2415           31707                           CA       ALTRATE                               #  POSITIVE OR ZERO - SET SIGN BIT = 1 AND
039792,000080: 21,2416           64735                           AD       BIT15                                 #  SEND TO ALTM REGISTER.  *DO NOT SEND +0*
039793,000081: 21,2417           54060        DATAOUT            TS       ALTM                                  #  ACTIVATE THE LANDING ANALOG DISPLAYS - -
039794,000082: 21,2420           34751                           CAF      BIT3                                  
039795,000083: 21,2421           00006                           EXTEND                                         
039796,000084: 21,2422           05014                           WOR      CHAN14                                #  BIT3 DRIVES THE ALT/ALTRATE METER.
039797,000085: 21,2423           15261                           TCF      TASKOVER                              #  EXIT
039798,000086: 
039799,000087: 21,2424           02510        ALTOUT             TC       DISINDAT                              #  CHECK MODE SELECT SWITCH AND DIDFLG.
039800,000088: 21,2425           44745                           CS       BIT7                                  
039801,000089: 21,2426           71303                           MASK     IMODES33                              
039802,000090: 21,2427           55303                           TS       IMODES33                              #  ALTERNATE ALTITUDE RATE WITH ALTITUDE.
039803,000091: 21,2430           44752                           CS       BIT2                                  
039804,000092: 21,2431           00006                           EXTEND                                         
039805,000093: 21,2432           03014                           WAND     CHAN14                                
039806,000094: 21,2433           11737                           CCS      ALTBITS                               #  =-1 IF OLD ALT. DATA TO BE EXTRAPOLATED.
039807,000095: 21,2434           12440                           TCF      +4                                    
039808,000096: 21,2435           12440                           TCF      +3                                    
039809,000097: 21,2436           12456                           TCF      OLDDATA                               
039810,000098: 21,2437           55737                           TS       ALTBITS                               #  SET ALTBITS FROM -0 TO +0.
039811,000099: 21,2440           44753                           CS       ONE                                   
039812,000100: 21,2441           53740                           DXCH     ALTBITS                               #  SET ALTBITS = -1 FOR SWITCH USE NEXT PASS.
039813,000101: 21,2442           53711                           DXCH     ALTSAVE                               
039814,000102: 21,2443           34742                           CA       BIT10                                 #  NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
039815,000103: 21,2444           56002                           XCH      Q                                     
039816,000104: 21,2445           22007                           LXCH     7                                     #  ZL
039817,000105: 21,2446           31713                           CA       DT                                    
039818,000106: 21,2447           00006                           EXTEND                                         
039819,000107: 21,2450           10002                           DV       Q                                     #  RESCALE DT*2(-14) TO *2(-9) TIME IN CS.
039820,000108: 21,2451           00006                           EXTEND                                         
039821,000109: 21,2452           72002                           MP       ARTOA2                                #  .0021322 *2(+8)
039822,000110: 21,2453           12457                           TCF      OLDDATA    +1                         #  RATE APPLIES FOR DT CS.
039823,000111: 
039824,000112: 21,2454           53711        ZDATA2             DXCH     ALTSAVE                               
039825,000113: 21,2455           12477                           TCF      NEWDATA                               
039826,000114: 21,2456           32001        OLDDATA            CA       ARTOA                                 #  RATE APPLIES FOR .5 SEC. (4X/SEC. CYCLE)
039827,000115: 21,2457           00006                           EXTEND                                         
039828,000116: 21,2460           71707                           MP       ALTRATE                               #  EXTRAPOLATE WITH ALTITUDE RATE.
039829,000117: 21,2461           20001                           DDOUBL                                         
039830,000118: 21,2462           61711                           AD       ALTSAVE    +1                         
039831,000119: 21,2463           55711                           TS       ALTSAVE    +1                         
039832,000120: 21,2464           34755                           CAF      ZERO                                  
039833,000121: 21,2465           27710                           ADS      ALTSAVE                               
039834,000122: 21,2466           34733                           CAF      POSMAX                                #  FORCE SIGN AGREEMENT ASSUMING A
039835,000123: 21,2467           64753                           AD       ONE                                   #  NON-NEGATIVE ALTSAVE.
039836,000124: 21,2470           61711                           AD       ALTSAVE    +1                         #  IF ALTSAVE IS NEGATIVE, ZERO ALTSAVE
039837,000125: 21,2471           55711                           TS       ALTSAVE    +1                         #  AND ALTSAVE +1 AT ZERODATA.

Page 899

039839,000127: 21,2472           34755                           CAF      ZERO                                  
039840,000128: 21,2473           64733                           AD       POSMAX                                
039841,000129: 21,2474           61710                           AD       ALTSAVE                               
039842,000130: 21,2475           55710                           TS       ALTSAVE                               #  POSSIBLY SKIP TO NEWDATA.
039843,000131: 21,2476           13234                           TCF      ZERODATA                              
039844,000132: 21,2477           11711        NEWDATA            CCS      ALTSAVE    +1                         
039845,000133: 21,2500           12504                           TCF      +4                                    
039846,000134: 21,2501           12504                           TCF      +3                                    
039847,000135: 21,2502           34755                           CAF      ZERO                                  #  SET NEGATIVE ALTSAVE +1 TO +0.
039848,000136: 21,2503           55711                           TS       ALTSAVE    +1                         
039849,000137: 21,2504           11710                           CCS      ALTSAVE                               #  PROVIDE A 15 BIT UNSIGNED OUTPUT.
039850,000138: 21,2505           34735                           CAF      BIT15                                 #  THE HI-ORDER PART IS +1 OR +0.
039851,000139: 21,2506           61711                           AD       ALTSAVE    +1                         
039852,000140: 21,2507           12417                           TCF      DATAOUT                               #  DISPATCH UNSIGNED BITS TO ALTM REG.
039853,000141: 21,2510           00006        DISINDAT           EXTEND                                         
039854,000142: 21,2511           23712                           QXCH     LADQSAVE                              #  SAVE RETURN TO ALTROUT +1 OR ALTOUT +1
039855,000143: 21,2512           34746                           CAF      BIT6                                  
039856,000144: 21,2513           00006                           EXTEND                                         #  WISHETH THE ASTRONAUT THE ANALOG
039857,000145: 21,2514           02030                           RAND     CHAN30                                #  DISPLAYS?  I.E.,
039858,000146: 21,2515           10000                           CCS      A                                     #  IS THE MODE SELECT SWITCH IN PGNCS?
039859,000147: 21,2516           13237                           TCF      DISPRSET                              #  NO.  ASTRONAUT REQUESTS NO INERTIAL DATA
039860,000148: 21,2517           40075                           CS       FLAGWRD1                              #  YES. CHECK STATUS OF DIDFLAG.
039861,000149: 21,2520           74736                           MASK     DIDFLBIT                              
039862,000150: 21,2521           00006                           EXTEND                                         
039863,000151: 21,2522           12560                           BZF      SPEEDRUN                              #  SET. PERFORM DATA DISPLAY SEQUENCE.
039864,000152: 21,2523           40075                           CS       FLAGWRD1                              #  RESET. PERFORM INITIALIZATION FUNCTIONS.
039865,000153: 21,2524           74736                           MASK     DIDFLBIT                              
039866,000154: 21,2525           26075                           ADS      FLAGWRD1                              #  SET DIDFLAG.
039867,000155: 21,2526           44745                           CS       BIT7                                  
039868,000156: 21,2527           71303                           MASK     IMODES33                              #  TO DISPLAY ALTRATE FIRST AND ALT. SECOND
039869,000157: 21,2530           55303                           TS       IMODES33                              
039870,000158: 21,2531           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
039871,000159: 21,2532           74752                           MASK     R10FLBIT                              
039872,000160: 21,2533           00006                           EXTEND                                         
039873,000161: 21,2534           15261                           BZF      TASKOVER                              #  NO
039874,000162: 21,2535           34744                           CAF      BIT8                                  #  YES.
039875,000163: 21,2536           00006                           EXTEND                                         
039876,000164: 21,2537           05012                           WOR      CHAN12                                #  SET DISPLAY INERTIAL DATA OUTBIT.
039877,000165: 21,2540           34755                           CAF      ZERO                                  
039878,000166: 21,2541           55700                           TS       TRAKLATV                              #  LATERAL VELOCITY MONITOR FLAG
039879,000167: 21,2542           55701                           TS       TRAKFWDV                              #  FORWARD VELOCITY MONITOR FLAG
039880,000168: 21,2543           55674                           TS       LATVMETR                              #  LATVEL MONITOR METER
039881,000169: 21,2544           55675                           TS       FORVMETR                              #  FORVEL MONITOR METER
039882,000170: 21,2545           34750                           CAF      BIT4                                  
039883,000171: 21,2546           05173                           TC       TWIDDLE                               
039884,000172: 21,2547           02551                           ADRES    INTLZE                                
039885,000173: 21,2550           15261                           TCF      TASKOVER                              
039886,000174: 21,2551           34752        INTLZE             CAF      BIT2                                  
039887,000175: 21,2552           00006                           EXTEND                                         
039888,000176: 21,2553           05012                           WOR      CHAN12                                #  ENABLE RR ERROR COUNTER.

Page 900

039890,000178: 21,2554           41303                           CS       IMODES33                              
039891,000179: 21,2555           74744                           MASK     BIT8                                  
039892,000180: 21,2556           27303                           ADS      IMODES33                              #  SET INERTIAL DATA FLAG.
039893,000181: 21,2557           15261                           TCF      TASKOVER                              
039894,000182: 
039895,000183: 21,2560           41235        SPEEDRUN           CS       PIPTIME    +1                         #  UPDATE THE VELOCITY VECTOR
039896,000184: 21,2561           60025                           AD       TIME1                                 #  COMPUTE T - TN
039897,000185: 21,2562           64736                           AD       HALF                                  #  CORRECT FOR POSSIBLE OVERFLOW OF TIME1.
039898,000186: 21,2563           64736                           AD       HALF                                  
039899,000187: 21,2564           57713                           XCH      DT                                    #  SAVE FOR LATER USE
039900,000188: 21,2565           34777                           CA       1SEC                                  
039901,000189: 21,2566           54065                           TS       ITEMP5                                #  INITIALIZE FOR DIVISION LATER
039902,000190: 21,2567           00006                           EXTEND                                         
039903,000191: 21,2570           31237                           DCA      GDT/2                                 #  COMPUTE THE X-COMPONENT OF VELOCITY.
039904,000192: 21,2571           20001                           DDOUBL                                         
039905,000193: 21,2572           20001                           DDOUBL                                         
039906,000194: 21,2573           00006                           EXTEND                                         
039907,000195: 21,2574           71713                           MP       DT                                    
039908,000196: 21,2575           00006                           EXTEND                                         
039909,000197: 21,2576           10065                           DV       ITEMP5                                
039910,000198: 21,2577           57704                           XCH      VVECT                                 #  VVECT = G(T-TN) M/CS *2(-5)
039911,000199: 21,2600           00006                           EXTEND                                         
039912,000200: 21,2601           31525                           DCA      V                                     #  M/CS *2(-7)
039913,000201: 21,2602           20001                           DDOUBL                                         #  RESCALE TO 2(-5)
039914,000202: 21,2603           20001                           DDOUBL                                         
039915,000203: 21,2604           27704                           ADS      VVECT                                 #  VVECT = VN + G(T-TN) M/CS *2(-5)
039916,000204: 21,2605           30037                           CA       PIPAX                                 #  DELV CM/SEC *2(-14)
039917,000205: 21,2606           61160                           AD       PIPATMPX                              #  IN CASE PIPAX HAS BEEN ZEROED
039918,000206: 21,2607           00006                           EXTEND                                         
039919,000207: 21,2610           72004                           MP       KPIP1(5)                              #  DELV M/CS *2(-5)
039920,000208: 21,2611           27704                           ADS      VVECT                                 #  VVECT = VN + DELV + GN(T-TN) M/CS *2(-5)
039921,000209: 21,2612           00006                           EXTEND                                         
039922,000210: 21,2613           31241                           DCA      GDT/2      +2                         #  COMPUTE THE Y-COMPONENT OF VELOCITY.
039923,000211: 21,2614           20001                           DDOUBL                                         
039924,000212: 21,2615           20001                           DDOUBL                                         
039925,000213: 21,2616           00006                           EXTEND                                         
039926,000214: 21,2617           71713                           MP       DT                                    
039927,000215: 21,2620           00006                           EXTEND                                         
039928,000216: 21,2621           10065                           DV       ITEMP5                                
039929,000217: 21,2622           57705                           XCH      VVECT      +1                         
039930,000218: 21,2623           00006                           EXTEND                                         
039931,000219: 21,2624           31527                           DCA      V          +2                         
039932,000220: 21,2625           20001                           DDOUBL                                         
039933,000221: 21,2626           20001                           DDOUBL                                         
039934,000222: 21,2627           27705                           ADS      VVECT      +1                         
039935,000223: 21,2630           30040                           CA       PIPAY                                 
039936,000224: 21,2631           61161                           AD       PIPATMPY                              
039937,000225: 21,2632           00006                           EXTEND                                         
039938,000226: 21,2633           72004                           MP       KPIP1(5)                              
039939,000227: 21,2634           27705                           ADS      VVECT      +1                         

Page 901

039941,000229: 21,2635           00006                           EXTEND                                         
039942,000230: 21,2636           31243                           DCA      GDT/2      +4                         #  COMPUTE THE Z-COMPONENT OF VELOCITY.
039943,000231: 21,2637           20001                           DDOUBL                                         
039944,000232: 21,2640           20001                           DDOUBL                                         
039945,000233: 21,2641           00006                           EXTEND                                         
039946,000234: 21,2642           71713                           MP       DT                                    
039947,000235: 21,2643           00006                           EXTEND                                         
039948,000236: 21,2644           10065                           DV       ITEMP5                                
039949,000237: 21,2645           57706                           XCH      VVECT      +2                         
039950,000238: 21,2646           00006                           EXTEND                                         
039951,000239: 21,2647           31531                           DCA      V          +4                         
039952,000240: 21,2650           20001                           DDOUBL                                         
039953,000241: 21,2651           20001                           DDOUBL                                         
039954,000242: 21,2652           27706                           ADS      VVECT      +2                         
039955,000243: 21,2653           30041                           CA       PIPAZ                                 
039956,000244: 21,2654           61162                           AD       PIPATMPZ                              
039957,000245: 21,2655           00006                           EXTEND                                         
039958,000246: 21,2656           72004                           MP       KPIP1(5)                              
039959,000247: 21,2657           27706                           ADS      VVECT      +2                         
039960,000248: 
039961,000249: 21,2660           34751                           CAF      BIT3                                  #  PAUSE 30 MS TO LET OTHER RUPTS IN.
039962,000250: 21,2661           05224                           TC       VARDELAY                              
039963,000251: 
039964,000252: 21,2662           40074                           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
039965,000253: 21,2663           74752                           MASK     R10FLBIT                              
039966,000254: 21,2664           10000                           CCS      A                                     
039967,000255: 21,2665           12667                           TCF      +2                                    #  YES.
039968,000256: 21,2666           01712                           TC       LADQSAVE                              #  NO.
039969,000257: 
039970,000258: 21,2667           31731                           CA       DELVS                                 #  HI X OF VELOCITY CORRECTION TERM.
039971,000259: 21,2670           61704                           AD       VVECT                                 #  HI X OF UPDATED VELOCITY VECTOR.
039972,000260: 21,2671           54061                           TS       ITEMP1                                #  = VX - DVX M/CS *2(-5).
039973,000261: 21,2672           31733                           CA       DELVS      +2                         #     Y
039974,000262: 21,2673           61705                           AD       VVECT      +1                         #     Y
039975,000263: 21,2674           54062                           TS       ITEMP2                                #  = VY - DVY M/CS *2(-5).
039976,000264: 21,2675           31735                           CA       DELVS      +4                         #     Z
039977,000265: 21,2676           61706                           AD       VVECT      +2                         #     Z
039978,000266: 21,2677           54063                           TS       ITEMP3                                #  = VZ - DVZ M/CS *2(-5).
039979,000267: 21,2700           30061                           CA       ITEMP1                                #  COMPUTE VHY, VELOCITY DIRECTED ALONG THE
039980,000268: 21,2701           00006                           EXTEND                                         #  Y-COORDINATE.
039981,000269: 21,2702           71715                           MP       UHYP                                  #  HI X OF CROSS-RANGE HALF-UNIT VECTOR.
039982,000270: 21,2703           56070                           XCH      RUPTREG1                              
039983,000271: 21,2704           30062                           CA       ITEMP2                                
039984,000272: 21,2705           00006                           EXTEND                                         
039985,000273: 21,2706           71717                           MP       UHYP       +2                         #  Y
039986,000274: 21,2707           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
039987,000275: 21,2710           30063                           CA       ITEMP3                                
039988,000276: 21,2711           00006                           EXTEND                                         
039989,000277: 21,2712           71721                           MP       UHYP       +4                         #  Z
039990,000278: 21,2713           26070                           ADS      RUPTREG1                              

Page 902

039992,000280: 21,2714           30070                           CA       RUPTREG1                              
039993,000281: 21,2715           60000                           DOUBLE                                         
039994,000282: 21,2716           57702                           XCH      VHY                                   #  VHY=VMP.UHYP M/CS*2(-5).
039995,000283: 21,2717           30061                           CA       ITEMP1                                #  NOW COMPUTE VHZ, VELOCITY DIRECTED ALONG
039996,000284: 21,2720           00006                           EXTEND                                         #  THE Z-COORDINATE.
039997,000285: 21,2721           71723                           MP       UHZP                                  #  HI X OF DOWN-RANGE HALF-UNIT VECTOR.
039998,000286: 21,2722           56070                           XCH      RUPTREG1                              
039999,000287: 21,2723           30062                           CA       ITEMP2                                
040000,000288: 21,2724           00006                           EXTEND                                         
040001,000289: 21,2725           71725                           MP       UHZP       +2                         #  Y
040002,000290: 21,2726           26070                           ADS      RUPTREG1                              #  ACCUMULATE PARTIAL PRODUCTS.
040003,000291: 21,2727           30063                           CA       ITEMP3                                
040004,000292: 21,2730           00006                           EXTEND                                         
040005,000293: 21,2731           71727                           MP       UHZP       +4                         #  Z
040006,000294: 21,2732           26070                           ADS      RUPTREG1                              
040007,000295: 21,2733           30070                           CA       RUPTREG1                              
040008,000296: 21,2734           60000                           DOUBLE                                         
040009,000297: 21,2735           57703                           XCH      VHZ                                   #  VHZ = VMP.UHZP M/CS*2(-5).
040010,000298: 21,2736           35015        GET22/32           CAF      EBANK6                                #  GET SIN(AOG),COS(AOG) FROM GPMATRIX.
040011,000299: 21,2737           54003                           TS       EBANK                                 
040012,000300: 21,2740  E6,1415                                  EBANK=   M22                                   
040013,000301: 21,2740           31415                           CA       M22                                   
040014,000302: 21,2741           54063                           TS       ITEMP3                                
040015,000303: 21,2742           31416                           CA       M32                                   
040016,000304: 21,2743           54064                           TS       ITEMP4                                
040017,000305: 21,2744           35016                           CAF      EBANK7                                
040018,000306: 21,2745           54003                           TS       EBANK                                 
040019,000307: 21,2746  E7,1534                                  EBANK=   UNIT/R/                               
040020,000308: 21,2746           30064        LATFWDV            CA       ITEMP4                                #  COMPUTE LATERAL AND FORWARD VELOCITIES.
040021,000309: 21,2747           00006                           EXTEND                                         
040022,000310: 21,2750           71702                           MP       VHY                                   
040023,000311: 21,2751           56070                           XCH      RUPTREG1                              
040024,000312: 21,2752           30063                           CA       ITEMP3                                
040025,000313: 21,2753           00006                           EXTEND                                         
040026,000314: 21,2754           71703                           MP       VHZ                                   
040027,000315: 21,2755           26070                           ADS      RUPTREG1                              #  = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
040028,000316: 21,2756           32003                           CA       VELCONV                               #  CONVERT LATERAL VELOCITY TO BIT UNITS.
040029,000317: 21,2757           00006                           EXTEND                                         
040030,000318: 21,2760           70070                           MP       RUPTREG1                              
040031,000319: 21,2761           20001                           DDOUBL                                         
040032,000320: 21,2762           57676                           XCH      LATVEL                                #  LATERAL VELOCITY IN BIT UNITS *2(-14).
040033,000321: 21,2763           30064                           CA       ITEMP4                                #  COMPUTE FORWARD VELOCITY.
040034,000322: 21,2764           00006                           EXTEND                                         
040035,000323: 21,2765           71703                           MP       VHZ                                   
040036,000324: 21,2766           56070                           XCH      RUPTREG1                              
040037,000325: 21,2767           30063                           CA       ITEMP3                                
040038,000326: 21,2770           00006                           EXTEND                                         
040039,000327: 21,2771           71702                           MP       VHY                                   
040040,000328: 21,2772           40000                           CS       A                                     
040041,000329: 21,2773           26070                           ADS      RUPTREG1                              #  =VHZ(COS)AOG-VHY(SIN)AOG M/CS *2(-5).

Page 903

040043,000331: 21,2774           32003                           CA       VELCONV                               #  CONVERT FORWARD VELOCITY TO BIT UNITS.
040044,000332: 21,2775           00006                           EXTEND                                         
040045,000333: 21,2776           70070                           MP       RUPTREG1                              
040046,000334: 21,2777           20001                           DDOUBL                                         
040047,000335: 21,3000           57677                           XCH      FORVEL                                #  FORWARD VELOCITY IN BIT UNITS *2(-14).
040048,000336: 
040049,000337: 21,3001           42005                           CS       MAXVBITS                              #  ACC.=-199.9989 FT./SEC.
040050,000338: 21,3002           54066                           TS       ITEMP6                                #  -547 BIT UNITS (OCTAL) AT 0.5571 FPS/BIT
040051,000339: 
040052,000340: 21,3003           34753                           CAF      ONE                                   #  LOOP TWICE.
040053,000341: 21,3004           54065        VMONITOR           TS       ITEMP5                                #  FORWARD AND LATERAL VELOCITY LANDING
040054,000342: 21,3005           50065                           INDEX    ITEMP5                                #        ANALOG DISPLAYS MONITOR.
040055,000343: 21,3006           11676                           CCS      LATVEL                                
040056,000344: 21,3007           13013                           TCF      +4                                    
040057,000345: 21,3010           13114                           TCF      LVLIMITS                              
040058,000346: 21,3011           13021                           TCF      +8D                                   
040059,000347: 21,3012           13114                           TCF      LVLIMITS                              
040060,000348: 21,3013           50065                           INDEX    ITEMP5                                
040061,000349: 21,3014           41676                           CS       LATVEL                                
040062,000350: 21,3015           62005                           AD       MAXVBITS                              #  +199.9989 FT./SEC.
040063,000351: 21,3016           00006                           EXTEND                                         
040064,000352: 21,3017           63027                           BZMF     CHKLASTY                              
040065,000353: 21,3020           13114                           TCF      LVLIMITS                              
040066,000354: 21,3021           50065                           INDEX    ITEMP5                                
040067,000355: 21,3022           31676                           CA       LATVEL                                
040068,000356: 21,3023           62005                           AD       MAXVBITS                              
040069,000357: 21,3024           00006                           EXTEND                                         
040070,000358: 21,3025           63027                           BZMF     +2                                    
040071,000359: 21,3026           13114                           TCF      LVLIMITS                              
040072,000360: 21,3027           50065        CHKLASTY           INDEX    ITEMP5                                
040073,000361: 21,3030           11674                           CCS      LATVMETR                              
040074,000362: 21,3031           13035                           TCF      +4                                    
040075,000363: 21,3032           13046                           TCF      LASTOK                                
040076,000364: 21,3033           13042                           TCF      +7                                    
040077,000365: 21,3034           13046                           TCF      LASTOK                                
040078,000366: 21,3035           50065                           INDEX    ITEMP5                                
040079,000367: 21,3036           31676                           CA       LATVEL                                
040080,000368: 21,3037           00006                           EXTEND                                         
040081,000369: 21,3040           63065                           BZMF     LASTPOSY   +5                         
040082,000370: 21,3041           13046                           TCF      +5                                    
040083,000371: 21,3042           50065                           INDEX    ITEMP5                                
040084,000372: 21,3043           41676                           CS       LATVEL                                
040085,000373: 21,3044           00006                           EXTEND                                         
040086,000374: 21,3045           63102                           BZMF     LASTNEGY   +4                         
040087,000375: 21,3046           50065        LASTOK             INDEX    ITEMP5                                
040088,000376: 21,3047           11700                           CCS      TRAKLATV                              
040089,000377: 21,3050           13060                           TCF      LASTPOSY                              
040090,000378: 21,3051           13053                           TCF      +2                                    
040091,000379: 21,3052           13076                           TCF      LASTNEGY                              
040092,000380: 21,3053           50065                           INDEX    ITEMP5                                

Page 904

040094,000382: 21,3054           31676                           CA       LATVEL                                
040095,000383: 21,3055           00006                           EXTEND                                         
040096,000384: 21,3056           63104                           BZMF     NEGVMAXY                              
040097,000385: 21,3057           13067                           TCF      POSVMAXY                              
040098,000386: 21,3060           50065        LASTPOSY           INDEX    ITEMP5                                
040099,000387: 21,3061           31676                           CA       LATVEL                                
040100,000388: 21,3062           00006                           EXTEND                                         
040101,000389: 21,3063           63065                           BZMF     +2                                    
040102,000390: 21,3064           13067                           TCF      POSVMAXY                              
040103,000391: 21,3065           42005                           CS       MAXVBITS                              
040104,000392: 21,3066           13210                           TCF      ZEROLSTY                              
040105,000393: 21,3067           50065        POSVMAXY           INDEX    ITEMP5                                
040106,000394: 21,3070           41674                           CS       LATVMETR                              
040107,000395: 21,3071           62005                           AD       MAXVBITS                              
040108,000396: 21,3072           50065                           INDEX    ITEMP5                                
040109,000397: 21,3073           56072                           XCH      RUPTREG3                              
040110,000398: 21,3074           34753                           CAF      ONE                                   
040111,000399: 21,3075           13213                           TCF      ZEROLSTY   +3                         
040112,000400: 21,3076           50065        LASTNEGY           INDEX    ITEMP5                                
040113,000401: 21,3077           31676                           CA       LATVEL                                
040114,000402: 21,3100           00006                           EXTEND                                         
040115,000403: 21,3101           63104                           BZMF     NEGVMAXY                              
040116,000404: 21,3102           32005                           CA       MAXVBITS                              
040117,000405: 21,3103           13210                           TCF      ZEROLSTY                              
040118,000406: 21,3104           50065        NEGVMAXY           INDEX    ITEMP5                                
040119,000407: 21,3105           31674                           CA       LATVMETR                              
040120,000408: 21,3106           62005                           AD       MAXVBITS                              
040121,000409: 21,3107           40000                           COM                                            
040122,000410: 21,3110           50065                           INDEX    ITEMP5                                
040123,000411: 21,3111           56072                           XCH      RUPTREG3                              
040124,000412: 21,3112           44753                           CS       ONE                                   
040125,000413: 21,3113           13213                           TCF      ZEROLSTY   +3                         
040126,000414: 21,3114           50065        LVLIMITS           INDEX    ITEMP5                                
040127,000415: 21,3115           11700                           CCS      TRAKLATV                              
040128,000416: 21,3116           13145                           TCF      LATVPOS                               
040129,000417: 21,3117           13121                           TCF      +2                                    
040130,000418: 21,3120           13152                           TCF      LATVNEG                               
040131,000419: 21,3121           50065                           INDEX    ITEMP5                                
040132,000420: 21,3122           41674                           CS       LATVMETR                              
040133,000421: 21,3123           00006                           EXTEND                                         
040134,000422: 21,3124           63126                           BZMF     +2                                    
040135,000423: 21,3125           13161                           TCF      NEGLMLV                               
040136,000424: 21,3126           50065                           INDEX    ITEMP5                                
040137,000425: 21,3127           41676                           CS       LATVEL                                
040138,000426: 21,3130           00006                           EXTEND                                         
040139,000427: 21,3131           63204                           BZMF     LVMINLM                               
040140,000428: 21,3132           60066                           AD       ITEMP6                                
040141,000429: 21,3133           50065                           INDEX    ITEMP5                                
040142,000430: 21,3134           61674                           AD       LATVMETR                              
040143,000431: 21,3135           00006                           EXTEND                                         

Page 905

040145,000433: 21,3136           63204                           BZMF     LVMINLM                               
040146,000434: 21,3137           50065                           INDEX    ITEMP5                                
040147,000435: 21,3140           61676                           AD       LATVEL                                
040148,000436: 21,3141           00006                           EXTEND                                         
040149,000437: 21,3142           50065                           INDEX    ITEMP5                                
040150,000438: 21,3143           61674                           SU       LATVMETR                              
040151,000439: 21,3144           13210                           TCF      ZEROLSTY                              
040152,000440: 21,3145           50065        LATVPOS            INDEX    ITEMP5                                
040153,000441: 21,3146           41676                           CS       LATVEL                                
040154,000442: 21,3147           00006                           EXTEND                                         
040155,000443: 21,3150           63204                           BZMF     LVMINLM                               
040156,000444: 21,3151           13156                           TCF      +5                                    
040157,000445: 21,3152           50065        LATVNEG            INDEX    ITEMP5                                
040158,000446: 21,3153           31676                           CA       LATVEL                                
040159,000447: 21,3154           00006                           EXTEND                                         
040160,000448: 21,3155           63204                           BZMF     LVMINLM                               
040161,000449: 21,3156           50065                           INDEX    ITEMP5                                
040162,000450: 21,3157           41674                           CS       LATVMETR                              
040163,000451: 21,3160           13210                           TCF      ZEROLSTY                              
040164,000452: 21,3161           50065        NEGLMLV            INDEX    ITEMP5                                
040165,000453: 21,3162           31676                           CA       LATVEL                                
040166,000454: 21,3163           00006                           EXTEND                                         
040167,000455: 21,3164           63204                           BZMF     LVMINLM                               
040168,000456: 21,3165           32005                           CA       MAXVBITS                              
040169,000457: 21,3166           50065                           INDEX    ITEMP5                                
040170,000458: 21,3167           61674                           AD       LATVMETR                              
040171,000459: 21,3170           40000                           COM                                            
040172,000460: 21,3171           50065                           INDEX    ITEMP5                                
040173,000461: 21,3172           61676                           AD       LATVEL                                
040174,000462: 21,3173           00006                           EXTEND                                         
040175,000463: 21,3174           63204                           BZMF     LVMINLM                               
040176,000464: 21,3175           00006                           EXTEND                                         
040177,000465: 21,3176           50065                           INDEX    ITEMP5                                
040178,000466: 21,3177           61676                           SU       LATVEL                                
040179,000467: 21,3200           50065                           INDEX    ITEMP5                                
040180,000468: 21,3201           61674                           AD       LATVMETR                              
040181,000469: 21,3202           40000                           COM                                            
040182,000470: 21,3203           13210                           TCF      ZEROLSTY                              
040183,000471: 21,3204           50065        LVMINLM            INDEX    ITEMP5                                
040184,000472: 21,3205           41674                           CS       LATVMETR                              
040185,000473: 21,3206           50065                           INDEX    ITEMP5                                
040186,000474: 21,3207           61676                           AD       LATVEL                                
040187,000475: 21,3210           50065        ZEROLSTY           INDEX    ITEMP5                                
040188,000476: 21,3211           56072                           XCH      RUPTREG3                              
040189,000477: 21,3212           34755                           CAF      ZERO                                  
040190,000478: 21,3213           50065                           INDEX    ITEMP5                                
040191,000479: 21,3214           55700                           TS       TRAKLATV                              
040192,000480: 21,3215           50065                           INDEX    ITEMP5                                
040193,000481: 21,3216           30072                           CA       RUPTREG3                              
040194,000482: 21,3217           64754                           AD       NEG0                                  #  AVOIDS +0 DINC HARDWARE MALFUNCTION

Page 906

040196,000484: 21,3220           50065                           INDEX    ITEMP5                                
040197,000485: 21,3221           54053                           TS       CDUTCMD                               
040198,000486: 21,3222           50065                           INDEX    ITEMP5                                
040199,000487: 21,3223           30072                           CA       RUPTREG3                              
040200,000488: 21,3224           50065                           INDEX    ITEMP5                                
040201,000489: 21,3225           27674                           ADS      LATVMETR                              
040202,000490: 21,3226           10065                           CCS      ITEMP5                                #  FIRST MONITOR FORWARD THEN LATERAL VEL.
040203,000491: 21,3227           13004                           TCF      VMONITOR                              
040204,000492: 
040205,000493: 21,3230           35020                           CAF      BITSET                                #  DRIVE THE X-POINTER DISPLAY.
040206,000494: 21,3231           00006                           EXTEND                                         
040207,000495: 21,3232           05014                           WOR      CHAN14                                
040208,000496: 21,3233           01712                           TC       LADQSAVE                              #  GO TO ALTROUT +1 OR TO ALTOUT +1
040209,000497: 21,3234           34755        ZERODATA           CAF      ZERO                                  #  ZERO ALTSAVE AND ALTSAVE +1 - - -
040210,000498: 21,3235           54001                           TS       L                                     #         NO NEGATIVE ALTITUDES ALLOWED.
040211,000499: 21,3236           12454                           TCF      ZDATA2                                
040212,000500: 
040213,000501:                                                                                                  #  ************************************************************************
040214,000502: 
040215,000503: 21,3237           40074        DISPRSET           CS       FLAGWRD0                              #  ARE WE IN DESCENT TRAJECTORY?
040216,000504: 21,3240           74752                           MASK     R10FLBIT                              
040217,000505: 21,3241           00006                           EXTEND                                         
040218,000506: 21,3242           13253                           BZF      ABORTON                               #  NO.
040219,000507: 21,3243           34744                           CAF      BIT8                                  #  YES.
040220,000508: 21,3244           71303                           MASK     IMODES33                              #  CHECK IF INERTIAL DATA JUST DISPLAYED.
040221,000509: 21,3245           10000                           CCS      A                                     
040222,000510: 21,3246           34752                           CAF      BIT2                                  #  YES. DISABLE RR ERROR COUNTER
040223,000511: 21,3247           64744                           AD       BIT8                                  #  NO. REMOVE DISPLAY INERTIAL DATA
040224,000512: 21,3250           40000                           COM                                            
040225,000513: 21,3251           00006                           EXTEND                                         
040226,000514: 21,3252           03012                           WAND     CHAN12                                
040227,000515: 21,3253           43262        ABORTON            CS       BITS8/7                               #  RESET INERTIAL DATA, INTERLEAVE FLAGS.
040228,000516: 21,3254           71303                           MASK     IMODES33                              
040229,000517: 21,3255           55303                           TS       IMODES33                              
040230,000518: 21,3256           44736                           CS       DIDFLBIT                              
040231,000519: 21,3257           70075                           MASK     FLAGWRD1                              
040232,000520: 21,3260           54075                           TS       FLAGWRD1                              #  RESET DIDFLAG.
040233,000521: 21,3261           15261                           TCF      TASKOVER                              
040234,000522: 
040235,000523:                                                                                                  #  ************************************************************************
040236,000524: 
040237,000525: 21,3262           00300        BITS8/7            OCT      00300                                 #  INERTIAL DATA AND INTERLEAVE FLAGS.
040238,000526: 21,3263     5020               BITSET             =        PRIO6                                 
040239,000527: 
040240,000528:                                                                                                  #  ************************************************************************
040241,000529: 
040242,000530: 

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