*COMDECK SYSTEM 
          IDENT  SYSTEM 
          ENTRY  SYSTEM 
          SYSCOM B1 
          TITLE  SYSTEM - REQUEST SYSTEM FUNCTION.
          COMMENT REQUEST SYSTEM FUNCTION.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 SYSTEM   SPACE  4,10 
***       SYSTEM - REQUEST SYSTEM FUNCTION. 
* 
*         CALL SYSTEM(ARGUMENT,R) 
* 
*         ENTRY  (ARGUMENT) = 3 CHARACTER SYSTEM REQUEST NAME,
*                             INCLUDING OPTIONAL PARAMETERS.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         SYSTEM(ARGUMENTS,R);  (*SYMPL* CALL)
* 
*         ENTRY  ARGUMENTS, AN ITEM CONTAINING THE REQUEST ARGUMENT.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         EXIT   DEPENDS ON CALL, SEE *NOS REFERENCE MANUAL*. 
* 
*         USES   X - 1, 2, 6. 
*                A - 1, 2.
*                B - 1. 
* 
*         MACROS SYSTEM.
  
  
 SYSTEM   SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       GET RECALL PARAMETER 
          SA1    X1 
          BX6    X1          SYSTEM REQUEST 
          SA2    X2 
          ZR     X2,SYS1     IF RECALL NOT REQUESTED
          MX2    1
          LX2    41 
          BX6    X6+X2
 SYS1     BSS    0
          SYSTEM
          EQ     SYSTEMX
  
          END 
