*COMDECK CONSOLE
          IDENT  CONSOLE
          ENTRY  CONSOLE
          SYSCOM B1 
          TITLE  CONSOLE - COMMUNICATE WITH THE *K* DISPLAY.
          COMMENT COMMUNICATE WITH THE *K* DISPLAY. 
          COMMENT COPYRIGHT CONTROL CORP. 1978. 
 CONSOLE  SPACE  4,10 
***       CONSOLE - COMMUNICATE WITH THE *K* DISPLAY. 
* 
*         CALL CONSOLE (ADDR) 
* 
*         CONSOLE(ADDR);   (*SYMPL* CALL) 
* 
*         ENTRY  (ADDR) = ADDRESS OF CONSOLE PARAMETER WORD.
*                IF (ADDR) = 0, CONSOLE OPERATIONS ARE TERMINATED.
**T,      6/0,18/IB,18/RB,18/LB 
*                IB = KEYBOARD BUFFER ADDRESS.
*                RB = ADDRESS OF FORMATTED BUFFER FOR RIGHT SCREEN. 
*                LB = ADDRESS OF FORMATTED BUFFER FOR LEFT SCREEN.
* 
*         USES   B - 1. 
* 
*         MACROS CONSOLE. 
  
  
 CONSOLE  BSS    0
 CONSL    SUBR               ENTRY/EXIT 
          SB1    1
 NOS      IF     MAC,CONSOLE
          CONSOLE  X1 
 NOS      ELSE
          SA1    =0LCONSOLE 
          RJ     =XMACREL.
 NOS      ENDIF 
          EQ     CONSLX      EXIT 
  
          END 
