*COMDECK KDIS 
      STATUS NCT             # VALID NAM K DISPLAY COMMAND ORDINALS    #
        CMD$ST,              # 0 = STATUS COMMAND                      #
        CMD$AP,              # 1 = AP COMMAND                          #
        CMD$END,             # 2 = END COMMAND                         #
        CMD$IG,              # 3 = IG COMMAND                          #
        CMD$IGNORE,          # 4 = IGNORE INPUT                        #
        CMD$DB,              # 5 = DB COMMAND                          #
        CMD$DE,              # 6 = DE COMMAND                          #
        CMD$DU,              # 7 = DU COMMAND                          #
        CMD$LE,              # 8 = LE COMMAND                          #
        CMD$RS,              # 9 = RS COMMAND                          #
        CMD$LB,              # 10 = LB COMMAND                         #
        CMD$LR,              # 11 = LR COMMAND                         #
        CMD$FL,              # 12= FL COMMAND                          #
        CMD$MO,              # 13 = MO COMMAND                         #
        CMD$SEND,            # 14 = SEND COMMAND                       #
        CMD$TB,              # 15 = TB COMMAND                         #
        CMD$TE,              # 16 = TE COMMAND                         #
        CMD$ERROR,           # 17 = ERROR                              #
        CMD$PFORWD, 
        CMD$PBACK,
        CMD$RFORWD, 
        CMD$HELP, 
        ; 
      STATUS STM             # STATUS DISPLAY FORMAT MODE              #
        RESERVED,            # NOT USED                                #
        STM$CREATE,          # BUILD STATUS DISPLAY FROM SCRATCH       #
        STM$UPDATE,          # UPDATE STATUS DISPLAY                   #
        ; 
  
      DEF TSLOW      # 10 #; # STATUS DISPLAY SLOW MODE UPDATE TIMER   #
      DEF TSTAT      # 30 #; # STATUS DISPLAY STATISTICS UPDATE TIMER  #
      DEF TKDVW      # 60 #; # K DISPLAY VIEW TIMEOUT TIMER            #
  
                                                                       #
***** 
*     K-DISPLAY MAIN COMMON AREA TO COMUNICATE WITH APPLICATION 
* 
*         MASSAGES AND OPERATOR TYPE-IN COMMANDS BUFFERS. 
* 
                                                                       #
      COMMON KDIS;
      BEGIN 
        ARRAY KDIS0 S(23);
          BEGIN 
          ITEM KDMAM    C(0,0,4)=["KDIS"];
          ITEM KD1WD0   U(0,24,18)=[0];    # DUMMY PART 1              #
          ITEM KD2WD0   U(0,42,AL)=[O"777777"];# TERMINATE HEADER WORD #
          ITEM KDSTAT   U(1,0,6);          # A STATUS WORD             #
          ITEM KFAST    B(1,0,1)=[FALSE];  # TRUE = ST DISPLAY REAL TIM#
          ITEM KDST     B(1,1,1)=[FALSE];  # STATUS DISPLAYED IN MAMMOD#
          ITEM KDBK     B(1,2,1)=[FALSE];  # HOP/BRK SENT WHILE APPMOD #
          ITEM KDNI     B(1,3,1)=[TRUE];   # NO INP ALLOWED WHEN APPMOD#
          ITEM KDAM     B(1,4,1)=[FALSE];  # DISPLAY IS IN APPL. MODE  #
          ITEM KDVW     B(1,5,1)=[FALSE];  # DISPLAY CURRENTLY VIEWED  #
          ITEM KDSIZE   U(1,6,18)=[19];    # OFFSET TO LEFT DISPLAY CHN#
          ITEM KDBP     U(1,24,AL)=[0];    # POINTER TO LAST DISP.LINE #
          ITEM KDFP     U(1,42,AL)=[0];    # POINTS TO 1ST DISPLAYED LN#
          ITEM KDALAN1  U(2,0,9)=[0];      # NO. OF 1ST APP IN ALERT ST#
          ITEM KDAPPST  U(2,9,9)=[0];      # STRT INDEX OF APP IN DSPLY#
          ITEM KDAPPND  U(2,18,9)=[0];     # END INDEX OF APPL IN DSPLY#
          ITEM KDAPPMX  U(2,27,9)=[0];     # MAX APPLICATION LINE NUMB #
          ITEM KDVWLN   U(2,36,9)=[30];    # NUMBER OF LINES IN VIEW   #
          ITEM KDNAL    U(2,45,3)=[0];     # TOT NO OF APP IN ALERT ST #
          ITEM KDAN     U(2,48,9)=[0];     # APP NO. NOW USING DISPLAY #
          ITEM KDALERT  B(2,58,1)=[FALSE]; # SET K DISPLAY ALERT IS ON #
          ITEM KDORIG   B(2,59,1)=[TRUE];  # ORIGINAL BUFFER RESET FLAG#
          ITEM KDALAN2  U(3,0,9)=[0];      #  2ND APPLICATION IN ALERT #
          ITEM KDESTST  U(3,9,9)=[0];      # STRT INDEX OF EST IN DSPLY#
          ITEM KDESTND  U(3,18,9)=[0];     # END INDEX OF EST  IN DSPLY#
          ITEM KDESTMX  U(3,27,9)=[0];     # MAX EST DISPLAY LINE NUMB #
          ITEM KLASTBN  U(3,36,12)=[0];    # LAST ABN FROM HOP/DIS CMD #
          ITEM KNAMDB   B(3,48,1)=[FALSE]; # FLAG-INLINE DEBUG CODE    #
          ITEM KNAMLB   B(3,49,1)=[TRUE];  # FLAG-LOG NETW TRAFFIC     #
          ITEM KNAMRS   B(3,50,1)=[FALSE]; # FLAG-FLUSH STATISTICS     #
          ITEM KDBLNK   B(3,51,1)=[TRUE];  # FLAG BLANK ST DISPLAY BUF #
          ITEM KD1W3    U(3,52,7);
          ITEM KDALAN3  U(4,0,9)=[0];      #     3RD                   #
          ITEM KDLGLST  U(4,9,9)=[0];      # STRT INDEX OF LGL IN DSPLY#
          ITEM KDLGLND  U(4,18,9)=[0];     # END INDEX OF LGL  IN DSPLY#
          ITEM KDLGLMX  U(4,27,9)=[0];     # MAX LGL LINK LINE NUMBER  #
          ITEM KSTATUP  U(4,36,12)=[30] ;  # STATISTICS UPDATE INTERVAL#
          ITEM KD1W4    U(4,48,11); 
          ITEM KDALAN4  U(5,0,9)=[0];      #     4TH                   #
          ITEM KD1W5    U(5,9,26);
          ITEM KDTIMER  U(5,35,24)=[0];    # CLOCK FOR VIEW TIMEOUT    #
          ITEM KDALAN5  U(6,0,9)=[0];      #     5TH                   #
          ITEM KLSIZE   U(6,9,9)=[0];      # NUM LINES ON LEFT DISPLAY #
          ITEM KD1W6    U(6,18,17); 
          ITEM KSLOWTM  U(6,35,24)=[0];    # TIMER FOR STATUS SLOW MOD #
          ITEM KDRNXT   U(7,0,8)=[1];      # NEXT RIGHT KDSPLY LINE    #
          ITEM KD1W7    U(7,8,1); 
          ITEM KRSIZE   U(7,9,9)=[0];      # NUM LINES ON RIGHT DISPLAY#
          ITEM KD2W7    U(7,18,17); 
          ITEM KSTATIM  U(7,35,24)=[0];    # STATISTICS TIMER          #
          ITEM KDMES   C(8,0,10)=["NP/HOSTNP "];
          ITEM KBUF    C(9,0,50) ;
          ITEM KBUF1    U(9,0,60)=[0];     # 1ST WORD OF OPR. TYPE-IN  #
          ITEM KBUF2    U(10,0,60)=[0]; 
          ITEM KBUF3    U(11,0,60)=[0]; 
          ITEM KBUF4    U(12,0,60)=[0]; 
          ITEM KBUF5    U(13,0,60)=[0]; 
          ITEM KBUFEND  U(14,0,60)=[0];    # TERMINATE INPUT BUFFER    #
          ITEM KDWDCON  U(15,0,60)=[0];    # ADDR WORD FOR CONSOL      #
          ITEM KDDAYF   B(15,03,1)=[FALSE]; # DAYFILE K-DISPLAY TYPEINS#
          ITEM KDKBUF   U(15,6,AL);        # POINTS TO TYPE-INS BUFFER #
          ITEM KDRSCR   U(15,24,AL);       # POINTS TO RIGHT-SCREEN BUF#
          ITEM KDLSCR   U(15,42,AL);       # POINTS TO LEFT-SCREEN BUF #
          ITEM KWLPTR   I(16,42,AL)=[0];   # K DISPLAY WORKLIST PTR    #
          ITEM KORIGSZ  U(17,06,18)=[1];   # SIZE OF WORD POINTS TO ORG#
          ITEM KORIGBP  U(17,24,AL);       # POINTS TO ORIGINAL BUFFER #
          ITEM KORIGFP  U(17,42,AL);       # POINTS TO ORIGINAL BUFFER #
          ITEM KDLCONSL U(18,0,60)=[0];    # CONTROL WRD FOR LEFT SCRN #
          ITEM KDLS     B(18,10,1)=[0];    # S FIELD IN HDR FOR MACRO  #
          ITEM KDLF     B(18,11,1)=[1];    # F FIELD IN HDR FOR CONSOLE#
          ITEM KDLCOMP  B(18,59,1)=[0];    # ACTIVITY BIT - K DISP USED#
          ITEM KDL7777  U(19,0,12)=[O"7777"];#TELL MACRO GO ON FOR DATA#
          ITEM KDLSTOP  U(19,42,AL);       # POINTER TO TOP ACD AREA   #
          ITEM KDETAIL  B(20,0,1)=[FALSE]; # DETAIL NIP HELP FLAG      #
          ITEM KSHOW    B(20,1,1)=[TRUE];  # NEED TO WRITE RIGHT DSPLY #
          ITEM K1W20    U(20,2,4);
          ITEM KDROFF   U(20,6,18)=[3];    # OFFSET TO RIGHT DSPL CHAIN#
          ITEM KDRBP    U(20,24,AL)=[0];   # RIGHT SCREEN BACK POINTER #
          ITEM KDRFP    U(20,42,AL)=[0];   # RIGHT SCREEN FORWARD PTR  #
          ITEM KDRCONSL U(21,0,60)=[0];    # CONTROL WRD FOR RIGHT SCRN#
          ITEM KDRS     B(21,10,1)=[0];    # S FIELD IN HDR FOR MACRO  #
          ITEM KDRF     B(21,11,1)=[1];    # F FIELD IN HDR FOR CONSOLE#
          ITEM KDRCOMP  B(21,59,1)=[0];    # ACTIVITY BIT - K DISP USED#
          ITEM KDR7777  U(22,0,12)=[O"7777"];#TELL MACRO GO ON FOR DATA#
          ITEM KDRSTOP  U(22,42,AL)=[0];   # POINTER TO TOP ACD AREA   #
          END 
        ITEM KDIS$STAT;      # NON-ZERO IF NEED TO FORMAT STATUS DISPLY#
        ITEM KDIS$RT B; # STATUS DISPLAY IN FAST MODE INDICATOR        #
        END 
