*DECK RBFKDS
          IDENT  RBFKDS 
*IF DEF,IMS 
*#
*1DC  RBFKDS
*     1. PROC NAME             AUTHOR               DATE
*        RBFKDS                G. A. VALENCIA       07 JANUARY 1980 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        CONTAINS NO EXECUTABLE CODE.  COMPASS IS JUST USED TO SETUP
*        THE I/O AND CONTROL AREAS REQUIRED BY DSD TO IMPLEMENT THE NOS 
*        OPERATOR K-DISPLAY.
* 
*     3. METHOD USED. 
*        THE FIRST 8 WORDS ALLOCATED ARE FOR THE K-DISPLAY OPERATOR 
*        OPERATOR INPUT (REQUIRED BY DSD).  THE NEXT WORD (OR FIRST 
*        OF THE DISPLAY AREA) IS A CONTROL WORD WHICH DSD USES TO 
*        SELECT CHARACTER SIZE, DISPLAY MODE, ETC.  THE NEXT 22 WORDS 
*        ARE INITIALIZED BY COMPASS TO DISPLAY THE FIRST 5 LINES, 
*        WHICH ARE THE TITLE AND OTHER HEADER INFORMATION.  THE NEXT
*        195 WORDS ARE RESERVED HERE BUT ACTUALLY SET BY UPDKDS.
* 
*     4. ENTRY PARAMETERS.
*        NONE 
* 
*     5. EXIT PARAMETERS. 
*        NONE 
* 
*     6. COMDECKS USED. 
*        NONE 
* 
*     7. ROUTINES CALLED. 
*        NONE 
* 
*     8. DAYFILE MESSAGES.
*        NONE 
* 
*#
*ENDIF
          TITLE  RBFKDS - RBF OPERATOR DISPLAY DATA STORAGE 
          COMMENT  RBFKDS - RBF OPERATOR DISPLAY DATA STORAGE.
          SST 
          ENTRY  RBFKINP
          ENTRY  RBFKDS 
          ENTRY  RBFKVER
          ENTRY  RBFKDCC
          ENTRY  RBFKD1 
  
**        K-DISPLAY INPUT BUFFER AREA 
  
 RBFKINP  BSSZ   8             OPERATOR INPUT 
  
***       1ST WORD OF K-DISPLAY BUFFER IS FOR CONTROL 
  
 RBFKDS   BSS    0             SMALL CHRACTERS, CODED FMT 
          VFD    10/0,1/0,1/1,48/0
  
**        START OF K-DISPLAY BUFFER, INSERT TITLE (LINE 1)
  
          DATA   C*REMOTE BATCH TERMINAL STATUS.    * 
  
**        RBF VER. AND PSR LEVEL NOS. ARE PUT HERE BY PROC INI
  
 RBFKVER  BSS    2             LINE 2, WORD 1 
          DATA   H*         T*         WORD 3 
          DATA   H*ERMINALS =*         WORD 4 
 RBFKDCC  DATA   H*  0   DEVI*         WORD 5 
          DATA   C*CES =  0*           WORD 6 
  
          DATA   C*  *         LINE 3 (BLANK) 
  
**        RBF K-DISPLAY COLUMN HEADERS
  
          DATA   H*TERM.   DEV. TCLASS. USER/JSN.  FAMILY/.     * 
          DATA   C*  FORMS.*
          DATA   H*NAME.   TYP. /STATE.         . FILESIZE.    ERRORS*
          DATA   C*.  CODE.*
  
          DATA   C*  *         LINE 6 (BLANK) 
  
**        VARIABLE K-DISPLAY AREA STARTS HERE 
  
RBFKD1    BSSZ   6*32              1ST LINE OF VARIABLE DISPLAY 
          BSSZ   3                 SPACE FOR LAST MESSAGE IF FULL 
  
          ENTRY  BLANKLN           DEFINE A BLANK DISPLAY FOR UPDKDIS 
BLANKLN   DATA   C* .       .         .         .          .      .*
  
          ENTRY  ENDMSG            DEFINE END OF DISPLAY FOR UPDKDS 
ENDMSG    DATA   C*END OF DISPLAY.   *
          BSSZ   1                 ZERO WORD TO TERMINATE DISPLAY 
  
          ENTRY  MORMSG            DEFINE MORE TO DISPLAY FOR UPDKDS
MORMSG    DATA   C*MORE LINES FOLLOW.*
          BSSZ   1                 ZERO WORD TO TERMINATE DISPLAY 
  
          ENTRY  FIRSTCN           TERMINAL NAME OF 1ST TO DISPLAY, 
FIRSTCN   BSSZ   1                 MAINTAINED BY UPDKDS (OVERLAY).
  
          ENTRY  FIRSTIQ           1ST TERMINAL NAME IN LAST DISQUEUE,
FIRSTIQ   BSSZ   1                 MAINTAINED BY UPDKDS (OVERLAY).
  
          ENTRY  FIRSTPG           1ST PAGE OF K-DISPLAY FLAG,
FIRSTPG   VFD    60/1              MAINTAINED BY UPDKDS (OVERLAY).
  
          ENTRY  NEXTCON           TERMINAL NAME OF NEXT TO DISPLAY,
NEXTCON   BSSZ   1                 MAINTAINED BY UPDKDS (OVERLAY).
          EJECT 
          END                  END OF RBF DISPLAY MODULE
