*DECK CSTATUS 
          IDENT  CSTATUS
          ENTRY  CSTATUS
 
***       CSTATUS - DETERMINE SYSTEM CONSOLE TYPE 
* 
*         X = CSTATUS;
* 
*         FUNCTION THAT RETURNS CSTATUS STATUS WORD 
* 
 
 
 CSTATUS  BSS    1           ENTRY/EXIT ADDRESS 
          CSTATUS PREDEF     GET STATUS AND RETURN IN PREDEFINED CONSOLE
*                            STATUS WORD. 
* 
*                THE FOLLOWING CODE IS INSERTED TO SUPPORT THE
*                DEBUGGING OF 721 CONSOLE SUPPORT FOR NIP WHEN
*                NO 721 CONSOLE IS AVAILABLE
* 
 
          SA2    PREDEF 
          BX6    X2 
 
          EQ     CSTATUS
 PREDEF   VFD    12/0,48/0
          END