*DECK CONSOL
          IDENT     CONSOL
OPL       XTEXT     COMCCMD 
          ENTRY     CONSOL
          ENTRY     ARG 
          ENTRY     ACT 
          SYSCOM
ARG       EQU       ARGR
ACT       EQU       ACTR
CONSOL    BSSZ      1 
          SA1       X1        GET ADDRESS SENT BY IKDIS FROM KDIS+4 
          BX6       X1
          SA6       ADDR      STORE IN TEMP LOCATION
          CONSOLE   ADDR      INVOKE MACRO TO ACTIVATE K-DISPLAY
*         MESSAGE   BLANK,1   CLEAR FLASHING MASSAGE FROM B DISPLAY 
          JP        CONSOL
ADDR      BSSZ      1 
BLANK     BSSZ      8 
          END