Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

040049,000002:                                                                                                  ## Copyright:   Public domain.
040050,000003:                                                                                                  ## Filename:    LANDING_ANALOG_DISPLAYS.agc
040051,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
040052,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
040053,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
040054,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
040055,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
040056,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
040057,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
040058,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
040059,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
040060,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
040061,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
040062,000015:                                                                                                  ## Reference:   pp. 890-898
040063,000016:                                                                                                  ## Assembler:   yaYUL
040064,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
040065,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
040066,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
040067,000020:                                                                                                  ##              2017-08-19 MAS  Updated for Zerlina 56.
040068,000021: 

Page 890

040070,000023:                                                                                                  #  ****************************************************************************************************************
040071,000024:                                                                                                  #  LANADISP:  DISPLAY INERTIAL DATA ROUTINE FOR DESCENT AND ABORTS                            THIS VERSION BY EYLES
040072,000025:                                                                                                  #  ****************************************************************************************************************
040073,000026: 
040074,000027: 21,2334                                           BANK     21                                    
040075,000028: 21,2000                                           SETLOC   R10                                   
040076,000029: 21,2000                                           BANK                                           
040077,000030: 
040078,000031: 21,2334  E7,1777                                  EBANK=   END-E7                                
040079,000032: 21,2334                                           COUNT*   $$/R10                                
040080,000033: 
040081,000034:                                                                                                  #  ************************************************************************
040082,000035:                                                                                                  #  COMPUTE ALTITUDE AND ALTITUDE-RATE
040083,000036:                                                                                                  #  ************************************************************************
040084,000037: 21,2334           31722        LANADISP           CA       RUNITX                                #  COMPUTE RADIAL VELOCITY
040085,000038: 21,2335           00006                           EXTEND                                         
040086,000039: 21,2336           71726                           MP       VVECTX                                
040087,000040: 21,2337           53735                           DXCH     ALTRATE                               
040088,000041: 21,2340           31722                           CA       RUNITX                                #  COMPUTE THE MORE SENSITIVE TERM IN DP
040089,000042: 21,2341           00006                           EXTEND                                         
040090,000043: 21,2342           71727                           MP       VVECTX     +1                         
040091,000044: 21,2343           54001                           TS       L                                     
040092,000045: 21,2344           34755                           CAF      ZERO                                  
040093,000046: 21,2345           21735                           DAS      ALTRATE                               
040094,000047: 21,2346           31723                           CA       RUNITY                                #  NOTE:  WITH NORMAL DESCENT IMU ALIGNMENT
040095,000048: 21,2347           00006                           EXTEND                                         #    THIS TERM IS ALWAYS ZERO, BUT ALTRATE
040096,000049: 21,2350           71730                           MP       VVECTY                                #    CAN BE DISPLAYED DURING ASCENT TOO
040097,000050: 21,2351           21735                           DAS      ALTRATE                               
040098,000051: 21,2352           31724                           CA       RUNITZ                                
040099,000052: 21,2353           00006                           EXTEND                                         
040100,000053: 21,2354           71732                           MP       VVECTZ                                
040101,000054: 21,2355           21735                           DAS      ALTRATE                               
040102,000055: 
040103,000056: 21,2356           31721                           CA       DALTRATE                              #  COMPENSATE FOR CHANGE IN DIRECTION OF R
040104,000057: 21,2357           00006                           EXTEND                                         
040105,000058: 21,2360           71725                           MP       DT                                    
040106,000059: 21,2361           21735                           DAS      ALTRATE                               #  ALTRATE IN UNITS OF 2(5) M/CS
040107,000060: 
040108,000061: 21,2362           00006                           EXTEND                                         
040109,000062: 21,2363           31735                           DCA      ALTRATE                               
040110,000063: 21,2364           52064                           DXCH     ALTRTEMP                              
040111,000064: 21,2365           00006                           EXTEND                                         
040112,000065: 21,2366           31720                           DCA      HDOTLAD                               
040113,000066: 21,2367           20064                           DAS      ALTRTEMP                              #  AVERAGE ALTRATE IN UNITS OF 2(4) M/CS
040114,000067: 
040115,000068:                                                                                                  #  THE FOLLOWING COMPUTATION FAILS IF DT EXCEEDS 20.47 SECONDS (UNLIKELY).
040116,000069: 
040117,000070: 21,2370           31725                           CA       DT                                    
040118,000071: 21,2371           00006                           EXTEND                                         

Page 891

040120,000073: 21,2372           74750                           MP       BIT4                                  
040121,000074: 21,2373           30001                           CA       L                                     #  FETCH DT FROM L IN UNITS OF 2(11) CS
040122,000075: 21,2374           00006                           EXTEND                                         
040123,000076: 21,2375           70063                           MP       ALTRTEMP                              
040124,000077: 21,2376           53737                           DXCH     ALTITUDE                              
040125,000078: 21,2377           00006                           EXTEND                                         
040126,000079: 21,2400           31716                           DCA      HCALCLAD                              
040127,000080: 21,2401           21737                           DAS      ALTITUDE                              #  ALTITUDE IN UNITS OF 2(15) METERS
040128,000081: 
040129,000082:                                                                                                  #  ************************************************************************
040130,000083:                                                                                                  #  SEND OUT ALTITUDE-RATE IF POSSIBLE
040131,000084:                                                                                                  #  ************************************************************************
040132,000085: 
040133,000086: 21,2402           34746        LANACONT           CAF      BIT6                                  #  IS THE METER MODE SWITCH IN PGNCS?
040134,000087: 21,2403           00006                           EXTEND                                         
040135,000088: 21,2404           02030                           RAND     CHAN30                                
040136,000089: 21,2405           10000                           CCS      A                                     
040137,000090: 21,2406           12725                           TCF      DISPRSET                              #  NO:   GO RESET
040138,000091: 
040139,000092: 21,2407           40075                           CS       FLAGWRD1                              #  YES:  IS INITIALIZATION IN ORDER?
040140,000093: 21,2410           74736                           MASK     DIDFLBIT                              
040141,000094: 21,2411           10000                           CCS      A                                     
040142,000095: 21,2412           12700                           TCF      DISPINIT                              #  YES:  THEN GO DO IT
040143,000096: 
040144,000097: 21,2413           34752                           CAF      BIT2                                  #  NO:   ARE RR ERROR COUNTERS ENABLED?
040145,000098: 21,2414           00006                           EXTEND                                         
040146,000099: 21,2415           02012                           RAND     CHAN12                                
040147,000100: 21,2416           00006                           EXTEND                                         
040148,000101: 21,2417           12725                           BZF      DISPRSET                              #  NO:   REINITIALIZE DISPLAYS
040149,000102: 
040150,000103: 21,2420           00006        ALTRROUT           EXTEND                                         #  YES:  SIGNIFY ALTITUDE-RATE (BIT2 IN A)
040151,000104: 21,2421           05014                           WOR      CHAN14                                
040152,000105: 
040153,000106: 21,2422           00006                           EXTEND                                         
040154,000107: 21,2423           31735                           DCA      ALTRATE                               
040155,000108: 21,2424           20001                           DDOUBL                                         #  RESCALE ALTRATE TO UNITS OF 2(2) M/CS
040156,000109: 21,2425           20001                           DDOUBL                                         
040157,000110: 21,2426           20001                           DDOUBL                                         
040158,000111: 21,2427           00006                           EXTEND                                         
040159,000112: 21,2430           72004                           MP       ALTRCONV                              #  RESCALE TO UNITS OF .5 F/S/BIT
040160,000113: 
040161,000114: 21,2431           56001                           XCH      L                                     #  ROUND TO NEAREST .5 F/S
040162,000115: 21,2432           60000                           DOUBLE                                         
040163,000116: 21,2433           54002                           TS       Q                                     
040164,000117: 21,2434           34755                           CAF      ZERO                                  
040165,000118: 21,2435           26001                           ADS      L                                     
040166,000119: 
040167,000120: 21,2436           64735                           AD       NEGMAX                                
040168,000121: 21,2437           54001                           TS       L                                     
040169,000122: 21,2440           12443                           TCF      +3                                    

Page 892

040171,000124: 21,2441           60001                           AD       L                                     
040172,000125: 21,2442           40000                           COM                                            
040173,000126: 21,2443           56060                 +3        XCH      ALTM                                  
040174,000127: 
040175,000128: 21,2444           34751                           CAF      BIT3                                  
040176,000129: 21,2445           00006                           EXTEND                                         
040177,000130: 21,2446           05014                           WOR      CHAN14                                
040178,000131: 
040179,000132: 21,2447           35752                           CA       TWELVE                                #  PAUSE 12 CS FOR ALTRATE TO BE READ OUT
040180,000133: 21,2450           05235                           TC       VARDELAY                              #    (MUST BE > 100 MS TO WORK ON THE LMS)
040181,000134: 
040182,000135: 21,2451           44752        ALTROUT            CS       BIT2                                  #  SIGNIFY ALTITUDE
040183,000136: 21,2452           00006                           EXTEND                                         
040184,000137: 21,2453           03014                           WAND     CHAN14                                
040185,000138: 
040186,000139: 21,2454           31737                           CA       ALTITUDE   +1                         
040187,000140: 21,2455           00006                           EXTEND                                         
040188,000141: 21,2456           72005                           MP       ALTCONV                               
040189,000142: 21,2457           54001                           TS       L                                     
040190,000143: 21,2460           34755                           CAF      ZERO                                  
040191,000144: 21,2461           52064                           DXCH     ALTTEMP                               
040192,000145: 21,2462           31736                           CA       ALTITUDE                              
040193,000146: 21,2463           00006                           EXTEND                                         
040194,000147: 21,2464           72005                           MP       ALTCONV                               
040195,000148: 21,2465           20064                           DAS      ALTTEMP                               #  ALTITUDE IN UNITS OF 9.380 FEET/BIT
040196,000149: 
040197,000150: 21,2466           52064                           DXCH     ALTTEMP                               
040198,000151: 21,2467           20001                           DDOUBL                                         
040199,000152: 21,2470           20001                           DDOUBL                                         #  RESCALE TO UNITS OF 2.345 FEET/BIT
040200,000153: 21,2471           54000                           OVSK                                           
040201,000154: 21,2472           12476                           TCF      +4                                    #  NO OVERFLOW:  -38420 < ALTITUDE < +38420
040202,000155: 
040203,000156: 21,2473           74733                           MASK     POSMAX                                #  RESET OVERFLOW
040204,000157: 21,2474           64735                           AD       BIT15                                 
040205,000158: 21,2475           12502                           TCF      +5                                    
040206,000159: 
040207,000160: 21,2476           10000                 +4        CCS      A                                     #  APPLY LOWER LIMIT OF POSITIVE ZERO
040208,000161: 21,2477           64753                           AD       ONE                                   
040209,000162: 21,2500           12502                           TCF      +2                                    
040210,000163: 21,2501           34755                           CAF      ZERO                                  
040211,000164: 
040212,000165: 21,2502           56060                 +5        XCH      ALTM                                  
040213,000166: 21,2503           34751                           CAF      BIT3                                  
040214,000167: 21,2504           00006                           EXTEND                                         
040215,000168: 21,2505           05014                           WOR      CHAN14                                
040216,000169: 
040217,000170:                                                                                                  #  ************************************************************************
040218,000171:                                                                                                  #  SEND OUT FORWARD AND LATERAL VELOCITIES
040219,000172:                                                                                                  #  ************************************************************************
040220,000173: 

Page 893

040222,000175: 21,2506           02565                           TC       CROSCOMP                              #  FIRST CALL SUBROUTINE TO COMPUTE THEM
040223,000176: 
040224,000177: 21,2507           34742                           CAF      BIT10                                 #  1/32 TO ITEMP2 FOR USE AS DIVISOR BELOW
040225,000178: 21,2510           54062                           TS       ITEMP2                                
040226,000179: 
040227,000180: 21,2511           32001                           CAF      MAXVEL                                #  LIMIT COMMAND TO 198.645 F/S
040228,000181: 21,2512           22070                           LXCH     FORVTEMP                              
040229,000182: 21,2513           02745                           TC       LADLIMIT                              
040230,000183: 21,2514           22071                           LXCH     FORVTEMP   +1                         
040231,000184: 21,2515           00006                           EXTEND                                         #  RESCALE TO UNITS OF ONE M/CS
040232,000185: 21,2516           10062                           DV       ITEMP2                                
040233,000186: 21,2517           00006                           EXTEND                                         #  RESCALE TO UNITS OF .5571 F/S/BIT
040234,000187: 21,2520           72003                           MP       VELCONV                               
040235,000188: 21,2521           56001                           XCH      L                                     #  ROUND TO NEAREST .5571 F/S
040236,000189: 21,2522           60000                           DOUBLE                                         
040237,000190: 21,2523           54002                           TS       Q                                     
040238,000191: 21,2524           12526                           TCF      FORVOUT                               
040239,000192: 21,2525           26001                           ADS      L                                     
040240,000193: 21,2526           41741        FORVOUT            CS       FORVMETR                              #  SUBTRACT METER INDICATOR TO GET CHANGE
040241,000194: 21,2527           26001                           ADS      L                                     
040242,000195: 21,2530           32002                           CA       MAXDBITS                              
040243,000196: 21,2531           02745                           TC       LADLIMIT                              #  LIMIT CHANGE TO ABOUT 300 F/S
040244,000197: 21,2532           64754                           AD       NEG0                                  
040245,000198: 21,2533           54054                           TS       CDUSCMD                               
040246,000199: 21,2534           27741                           ADS      FORVMETR                              #  UPDATE METER INDICATOR
040247,000200: 
040248,000201: 21,2535           32001                           CAF      MAXVEL                                #  LIMIT COMMAND TO 198.645 F/S
040249,000202: 21,2536           22072                           LXCH     LATVEL                                
040250,000203: 21,2537           02745                           TC       LADLIMIT                              
040251,000204: 21,2540           22073                           LXCH     LATVEL     +1                         
040252,000205: 21,2541           00006                           EXTEND                                         #  RESCALE TO UNITS OF ONE M/CS
040253,000206: 21,2542           10062                           DV       ITEMP2                                
040254,000207: 21,2543           00006                           EXTEND                                         #  RESCALE TO UNITS OF .5571 F/S/BIT
040255,000208: 21,2544           72003                           MP       VELCONV                               
040256,000209: 21,2545           56001                           XCH      L                                     #  ROUND TO NEAREST .5571 F/S
040257,000210: 21,2546           60000                           DOUBLE                                         
040258,000211: 21,2547           54002                           TS       Q                                     
040259,000212: 21,2550           12552                           TCF      LATVOUT                               
040260,000213: 21,2551           26001                           ADS      L                                     
040261,000214: 21,2552           41740        LATVOUT            CS       LATVMETR                              #  SUBTRACT METER INDICATOR TO GET CHANGE
040262,000215: 21,2553           26001                           ADS      L                                     
040263,000216: 21,2554           32002                           CAF      MAXDBITS                              
040264,000217: 21,2555           02745                           TC       LADLIMIT                              #  LIMIT CHANGE TO ABOUT 300 F/S
040265,000218: 21,2556           64754                           AD       NEG0                                  
040266,000219: 21,2557           54053                           TS       CDUTCMD                               
040267,000220: 21,2560           27740                           ADS      LATVMETR                              #  UPDATE METER INDICATOR
040268,000221: 
040269,000222: 21,2561           35020                           CAF      BITSET                                #  SET DRIVE BITS
040270,000223: 21,2562           00006                           EXTEND                                         
040271,000224: 21,2563           05014                           WOR      CHAN14                                
040272,000225: 

Page 894

040274,000227: 21,2564           05272        LANADEND           TC       TASKOVER                              
040275,000228: 
040276,000229:                                                                                                  #  ************************************************************************
040277,000230:                                                                                                  #  SUBROUTINE TO COMPUTE FORWARD AND LATERAL VELOCITIES
040278,000231:                                                                                                  #  ************************************************************************
040279,000232: 
040280,000233:                                                                                                  #      THE SCALARS VHY AND VHZ, COMPUTED NEXT, ARE THE VELOCITIES ALONG UNIT VECTORS UHYP AND UHZP. UHYP NORMAL
040281,000234:                                                                                                  #  TO THE PRE-PDI ORBITAL PLANE, UHZP IN TURN NORMAL TO UHYP AND THE POSITION VECTOR.  NOW SINCE FOR THE "LANDING
040282,000235:                                                                                                  #  ALIGNMENT" OF THE IMU THE STABLE-MEMBER Y-AXIS IS DEFINED THE SAME WAY AS UHYP, VVECTY IS PRECISELY VHY.
040283,000236:                                                                                                  #  FURTHERMORE, THE Y-TERM OF THE VHZ COMPUTATION DROPS OUT, AND THE FOLLOWING USEFUL EQUALITIES BECOME TRUE:
040284,000237:                                                                                                  #  UHZPX = - RUNITZ AND UHZPZ = RUNITX.  DRAW A PICTURE TO BE CONVINCED.
040285,000238: 
040286,000239:                                                                                                  #      NOTE THAT IN THIS VERSION CROSS-POINTER DISPLAYS ARE OUTPUT DURING ASCENT AND ABORTS AS WELL AS DESCENT.
040287,000240: 
040288,000241: 21,2565           40074        CROSCOMP           CS       FLAGWRD0                              #  IS R10FLAG SET TO INDICATE ASCENT?
040289,000242: 21,2566           74752                           MASK     R10FLBIT                              
040290,000243: 21,2567           00006                           EXTEND                                         
040291,000244: 21,2570           12667                           BZF      APSLAD                                #  YES:  DISPLAY LATVEL IN INERTIAL AXES
040292,000245: 
040293,000246: 21,2571           41724                           CS       RUNITZ                                #  NO:   COMPUTE DOWNRANGE VELOCITY
040294,000247: 21,2572           00006                           EXTEND                                         
040295,000248: 21,2573           71726                           MP       VVECTX                                
040296,000249: 21,2574           52066                           DXCH     VHZ                                   
040297,000250: 21,2575           31722                           CA       RUNITX                                
040298,000251: 21,2576           00006                           EXTEND                                         
040299,000252: 21,2577           71732                           MP       VVECTZ                                
040300,000253: 21,2600           20066                           DAS      VHZ                                   
040301,000254: 21,2601           31722                           CA       RUNITX                                #  COMPUTE THE MORE SENSITIVE TERM IN DP
040302,000255: 21,2602           00006                           EXTEND                                         
040303,000256: 21,2603           71733                           MP       VVECTZ     +1                         
040304,000257: 21,2604           54001                           TS       L                                     
040305,000258: 21,2605           34755                           CAF      ZERO                                  
040306,000259: 21,2606           20066                           DAS      VHZ                                   #  VHZ IN UNITS OF 2(5) M/CS
040307,000260: 
040308,000261: 21,2607           00006                           EXTEND                                         
040309,000262: 21,2610           31731                           DCA      VVECTY                                
040310,000263: 21,2611           52064                           DXCH     VHY                                   #  VHY IN UNITS OF 2(5) M/CS
040311,000264: 
040312,000265: 21,2612           35015                           CAF      EBANK6                                #  SWITCH TO DAP EBANK
040313,000266: 21,2613           54003                           TS       EBANK                                 
040314,000267: 21,2614  E6,1417                                  EBANK=   M22                                   
040315,000268: 
040316,000269: 21,2614           31420                           CA       M32                                   #  COS(AOG)
040317,000270: 21,2615           00006                           EXTEND                                         
040318,000271: 21,2616           70065                           MP       VHZ                                   
040319,000272: 21,2617           52071                           DXCH     FORVTEMP                              
040320,000273: 21,2620           41417                           CS       M22                                   #  SIN(AOG)
040321,000274: 21,2621           00006                           EXTEND                                         
040322,000275: 21,2622           70063                           MP       VHY                                   
040323,000276: 21,2623           20071                           DAS      FORVTEMP                              
040324,000277: 

Page 895

040326,000279: 21,2624           31420                           CA       M32                                   #  COS(AOG)
040327,000280: 21,2625           00006                           EXTEND                                         
040328,000281: 21,2626           70066                           MP       VHZ        +1                         
040329,000282: 21,2627           54062                           TS       ITEMP2                                
040330,000283: 21,2630           41417                           CS       M22                                   #  SIN(AOG)
040331,000284: 21,2631           00006                           EXTEND                                         
040332,000285: 21,2632           70064                           MP       VHY        +1                         
040333,000286: 21,2633           60062                           AD       ITEMP2                                
040334,000287: 21,2634           54001                           TS       L                                     
040335,000288: 21,2635           34755                           CAF      ZERO                                  
040336,000289: 21,2636           20071                           DAS      FORVTEMP                              #  FORWARD VELOCITY IN UNITS OF 2(5) M/CS
040337,000290: 
040338,000291: 21,2637           31417                           CA       M22                                   #  SIN(AOG)
040339,000292: 21,2640           00006                           EXTEND                                         
040340,000293: 21,2641           70065                           MP       VHZ                                   
040341,000294: 21,2642           52073                           DXCH     LATVEL                                
040342,000295: 21,2643           31420                           CA       M32                                   #  COS(AOG)
040343,000296: 21,2644           00006                           EXTEND                                         
040344,000297: 21,2645           70063                           MP       VHY                                   
040345,000298: 21,2646           20073                           DAS      LATVEL                                
040346,000299: 
040347,000300: 21,2647           31417                           CA       M22                                   #  SIN(AOG)
040348,000301: 21,2650           00006                           EXTEND                                         
040349,000302: 21,2651           70066                           MP       VHZ        +1                         
040350,000303: 21,2652           54062                           TS       ITEMP2                                
040351,000304: 21,2653           31420                           CA       M32                                   #  COS(AOG)
040352,000305: 21,2654           00006                           EXTEND                                         
040353,000306: 21,2655           70064                           MP       VHY        +1                         
040354,000307: 21,2656           60062                           AD       ITEMP2                                
040355,000308: 21,2657           54001                           TS       L                                     
040356,000309: 21,2660           34755                           CAF      ZERO                                  
040357,000310: 21,2661           20073                           DAS      LATVEL                                #  LATERAL VELOCITY IN UNITS OF 2(5) M/CS
040358,000311: 
040359,000312: 21,2662           24006                           INCR     BBANK                                 #  RETURN TO SERVICER EBANK
040360,000313: 21,2663  E7,1717                                  EBANK=   HDOTLAD                               
040361,000314: 
040362,000315: 21,2663           00006        CROSSOUT           EXTEND                                         #  MOVE FORVTEMP TO FORVEL FOR DSKY DISPLAY
040363,000316: 21,2664           30071                           DCA      FORVTEMP                              
040364,000317: 21,2665           53743                           DXCH     FORVEL                                
040365,000318: 
040366,000319: 21,2666           00002                           TC       Q                                     
040367,000320: 
040368,000321: 21,2667           54070        APSLAD             TS       FORVTEMP                              #  DURING ASCENT AND ABORTS COME HERE TO
040369,000322: 21,2670           54071                           TS       FORVTEMP   +1                         #    DISPLAY LATVEL = SM Y-AXIS VELOCITY
040370,000323: 
040371,000324: 21,2671           00006                           EXTEND                                         
040372,000325: 21,2672           31731                           DCA      VVECTY                                
040373,000326: 21,2673           52073                           DXCH     LATVEL                                
040374,000327: 21,2674           00006                           EXTEND                                         #  ADD SURFACE VELOCITY BACK IN SO APS
040375,000328: 21,2675           31712                           DCA      VSURFACE   +2                         #    LATVEL DISPLAY WILL BE IN TRUE

Page 896

040377,000330: 21,2676           20073                           DAS      LATVEL                                #    STABLE-MEMBER COORDINATES
040378,000331: 
040379,000332: 21,2677           12663                           TCF      CROSSOUT                              #  REJOIN THE MAINSTREAM
040380,000333: 
040381,000334:                                                                                                  #  ************************************************************************
040382,000335:                                                                                                  #  LANDING ANALOG DISPLAYS INITIALIZATION
040383,000336:                                                                                                  #  ************************************************************************
040384,000337: 
040385,000338: 21,2700           02565        DISPINIT           TC       CROSCOMP                              #  FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
040386,000339: 
040387,000340: 21,2701           40075                           CS       FLAGWRD1                              #  SET DIDFLAG
040388,000341: 21,2702           74736                           MASK     DIDFLBIT                              
040389,000342: 21,2703           26075                           ADS      FLAGWRD1                              
040390,000343: 
040391,000344: 21,2704           34744                           CAF      BIT8                                  #  SET DISPLAY INERTIAL DATA OUTBIT
040392,000345: 21,2705           00006                           EXTEND                                         
040393,000346: 21,2706           05012                           WOR      CHAN12                                
040394,000347: 
040395,000348: 21,2707           44755                           CS       ZERO                                  #  ZERO METER INDICATORS
040396,000349: 21,2710           55740                           TS       LATVMETR                              
040397,000350: 21,2711           55741                           TS       FORVMETR                              
040398,000351: 
040399,000352: 21,2712           34750                           CAF      BIT4                                  #  SET UP TASK TO FINISH INITIALIZATION
040400,000353: 21,2713           05204                           TC       TWIDDLE                               
040401,000354: 21,2714           02716                           ADRES    INTLZE                                
040402,000355: 21,2715           12564                           TCF      LANADEND                              
040403,000356: 
040404,000357: 21,2716           34752        INTLZE             CAF      BIT2                                  #  ENABLE RR ERROR COUNTER
040405,000358: 21,2717           00006                           EXTEND                                         
040406,000359: 21,2720           05012                           WOR      CHAN12                                
040407,000360: 
040408,000361: 21,2721           41300                           CS       IMODES33                              #  SET INERTIAL DATA FLAG
040409,000362: 21,2722           74744                           MASK     BIT8                                  
040410,000363: 21,2723           27300                           ADS      IMODES33                              
040411,000364: 21,2724           05272                           TC       TASKOVER                              
040412,000365: 
040413,000366:                                                                                                  #  ************************************************************************
040414,000367:                                                                                                  #  LANDING ANALOG DISPLAYS RESET ROUTINE
040415,000368:                                                                                                  #  ************************************************************************
040416,000369: 
040417,000370: 21,2725           02565        DISPRSET           TC       CROSCOMP                              #  FIRST COMPUTE BUT NOT OUTPUT VELOCITIES
040418,000371: 
040419,000372: 21,2726           44736                 +1        CS       DIDFLBIT                              #  RESET DIDFLAG
040420,000373: 21,2727           70075                           MASK     FLAGWRD1                              
040421,000374: 21,2730           54075                           TS       FLAGWRD1                              
040422,000375: 
040423,000376: 21,2731           34744                           CAF      BIT8                                  #  WAS INERTIAL DATA JUST DISPLAYED?
040424,000377: 21,2732           71300                           MASK     IMODES33                              
040425,000378: 21,2733           10000                           CCS      A                                     
040426,000379: 21,2734           34752                           CAF      BIT2                                  #  YES:  DISABLE RR ERROR COUNTER AND

Page 897

040428,000381: 21,2735           64744                           AD       BIT8                                  #  NO:   RESET DISPLAY INERTIAL DATA OUTBIT
040429,000382: 21,2736           40000                           COM                                            
040430,000383: 21,2737           00006                           EXTEND                                         
040431,000384: 21,2740           03012                           WAND     CHAN12                                
040432,000385: 
040433,000386: 21,2741           44744                           CS       BIT8                                  
040434,000387: 21,2742           71300                           MASK     IMODES33                              
040435,000388: 21,2743           55300                           TS       IMODES33                              
040436,000389: 21,2744           12564                           TCF      LANADEND                              
040437,000390: 
040438,000391:                                                                                                  #  ************************************************************************
040439,000392:                                                                                                  #  CONSTANTS FOR LANDING ANALOG DISPLAYS
040440,000393:                                                                                                  #  ************************************************************************
040441,000394: 
040442,000395:                                                                                                  #  CONSTANTS ON A-CARDS ARE FOUND IN THE CONTROLLED CONSTANTS SECTION
040443,000396: 
040444,000397: 
040445,000398:                                                                                                  #  LANAKPIP        DEC             .0512                 SCALES PIPAS TO UNITS OF 2(5) M/CS
040446,000399: 
040447,000400: 
040448,000401:                                                                                                  #  MAXVEL          OCT             00466                 198.645 F/S IN UNITS OF 2(5) M/CS
040449,000402: 
040450,000403: 
040451,000404:                                                                                                  #  MAXDBITS        OCT             01034                 ABOUT 300 F/S
040452,000405: 
040453,000406: 
040454,000407:                                                                                                  #  VELCONV         DEC             .03594                SCALES VEL AT ONE M/CS TO .5571 F/S/BIT
040455,000408: 
040456,000409: 
040457,000410:                                                                                                  #  ALTRCONV        DEC             .16020                SCALES ALTR AT 2(2) M/CS TO .5 F/S/BIT
040458,000411: 
040459,000412: 
040460,000413:                                                                                                  #  ALTCONV         DEC             .69954                SCALES ALTITUDE AT 2(15) M TO 9.38 F/BIT
040461,000414: 
040462,000415: 
040463,000416: 21,2745     5020               BITSET             =        PRIO6                                 #  CROSS-POINTER DRIVE BITS
040464,000417: 
040465,000418:                                                                                                  #  ************************************************************************
040466,000419:                                                                                                  #  SUBROUTINES
040467,000420:                                                                                                  #  ************************************************************************
040468,000421: 
040469,000422: 21,2745           54061        LADLIMIT           TS       ITEMP1                                
040470,000423: 21,2746           34755                           CAF      ZERO                                  
040471,000424: 21,2747           00006                           EXTEND                                         
040472,000425: 21,2750           10061                           DV       ITEMP1                                
040473,000426: 21,2751           10000                           CCS      A                                     
040474,000427: 21,2752           22061                           LXCH     ITEMP1                                
040475,000428: 21,2753           12755                           TCF      +2                                    
040476,000429: 21,2754           12757                           TCF      +3                                    

Page 898

040478,000431: 21,2755           30001                           CA       L                                     
040479,000432: 21,2756           00002                           TC       Q                                     
040480,000433: 21,2757           40061                           CS       ITEMP1                                
040481,000434: 21,2760           00002                           TC       Q                                     
040482,000435: 
040483,000436: 21,2761           56061        NORMPIP            XCH      ITEMP1                                
040484,000437: 21,2762           30061                           CA       ITEMP1                                
040485,000438: 21,2763           74736                           MASK     BIT14                                 
040486,000439: 21,2764           00006                           EXTEND                                         
040487,000440: 21,2765           12772                           BZF      +5                                    
040488,000441: 21,2766           30061                           CA       ITEMP1                                
040489,000442: 21,2767           64734                           AD       NEG1/2                                
040490,000443: 21,2770           64734                           AD       NEG1/2                                
040491,000444: 21,2771           12775                           TCF      +4                                    
040492,000445: 21,2772           30061                 +5        CA       ITEMP1                                
040493,000446: 21,2773           64736                           AD       HALF                                  
040494,000447: 21,2774           64736                           AD       HALF                                  
040495,000448: 21,2775           22007                 +4        ZL                                             
040496,000449: 21,2776           56001                           XCH      L                                     
040497,000450: 21,2777           56001                           XCH      L                                     
040498,000451: 21,3000           00002                           TC       Q                                     
040499,000452: 
040500,000453:                                                                                                  #  ************************************************************************
040501,000454:                                                                                                  #  THE END OF THE LANDING ANALOG DISPLAYS
040502,000455:                                                                                                  #  ************************************************************************

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