*DECK GETSST
          IDENT  GET$SST
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1985.
          SST 
          ENTRY  GET$SST
          SYSCOM B1 
          TITLE  GET$SST - RETRIEVE *SSTL* FROM *CMR*.
          COMMENT  GET$SST - RETRIEVE *SSTL* FROM *CMR*.
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 GET$SST  SPACE  4,10 
**        GET$SST - RETRIEVE *SSTL* FROM CENTRAL MEMORY RESIDENT. 
* 
*         *GET$SST* RETRIEVES THE SYSTEM STATUS WORD (SSTL) FROM
*         CENTRAL MEMORY RESIDENT USING THE *RSB* MONITOR FUNCTION. 
* 
*         *SYMPL* CALL -
* 
*         GET$SST (SSTL); 
* 
*         ENTRY  JOB MUST HAVE SSJ= ENTRY POINT.
* 
*         EXIT   (SSTL) = CONTENTS OF CURRENT SYSTEM STATUS WORD
*                         *SSTL*, AS DEFINED IN NOS DECK *PPCOM*. 
* 
*         USES   X - 2, 6.
*                A - 2, 6.
*                B - 1. 
* 
*         MACROS SYSTEM.
  
  
 GET$SST  SUBR               ENTRY/EXIT 
          SB1    1           DEFINE B1=1
          MX6    -1          SET UP BUFFER FOR READ FROM *CMR*
          SA6    X1 
          SA2    SSTA        GET *RSB* REQUEST TEMPLATE 
          BX6    X1+X2       MERGE USER PARAMETER ADDRESS WITH REQUEST
          SA6    SSTB        SET *RSB* REQUEST
          SYSTEM RSB,R,SSTB,0  READ *SSTL* WORD INTO USER PARAMETER 
          EQ     GET$SSTX    RETURN 
  
 SSTA     VFD    12/0,12/1,18/SSTL,18/0  *RSB* REQUEST TEMPLATE 
 SSTB     BSSZ   1           *RSB* REQUEST WORD 
  
          END 
