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.

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

Page 897

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

Page 898

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

Page 899

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

Page 900

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

Page 901

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

Page 902

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

Page 903

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

Page 904

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

Page 905

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

Page 906

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

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