*DECK,SETKDSP 
USETEXT COMCBEG 
USETEXT COMQDEF 
USETEXT COMQKDS 
    PROC SETKDSP; 
      BEGIN # SETKDSP # 
# 
**    SETKDSP    SET K/L DISPLAY BUFFER.
* 
*     SETS UP DISPLAY BUFFER FOR OPERATOR DISPLAY.
* 
*     PROC SETKDSP
* 
*     EXIT       DISPLAY INITIALIZED. 
* 
*     PROCESS    IF NOS:  
*                  CALL CPM TO SET K DISPLAY ADDRESSES
*                  CLEAR FLASHING MESSAGE FROM B-DISPLAY. 
*                IF NOS/BE: 
*                  CHANGE KEYBOAD BASED ARRAY 
*                  SET POINTER IN RA+70.
* 
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC CONSOLE;              # ASSIGN K DISPLAY # 
        PROC MESSAGE;              # ISSUE DAYFILE MESSAGE #
        PROC NAME;                 # DEBUG CODE # 
        END 
# 
****  XREF END
# 
  
    CONTROL IFEQ OS$NOS;
      ITEM ZEROLINE   U = 0;       # CLEAR B-DISPLAY #
    CONTROL ENDIF;
  
        $BEGIN
        NAME("SETKDSP");           # DEBUG CODE # 
        $END
  
    CONTROL IFEQ OS$NOS;
      CONSOLE(KDISBUF);            # ASSIGN K-DISPLAY # 
      MESSAGE(ZEROLINE, 2);        # CLEAR B-DISPLAY #
    CONTROL ENDIF;
  
    CONTROL IFEQ OS$NOSBE;
      RA$CCDBUF = LOC(KL$FWA);
      RA$CCDNAM = "LDISPLAY"; 
    CONTROL ENDIF;
  
      KD$CDC = " ";                # BLANK FILL INPUT BUFFER #
      KD$CDW = 0;                  # ZERO FIRST WORD #
      KD$FLG = FALSE;              # NOT DISPLAYED YET #
  
      END      # SETKDSP #
    TERM
