*COMDECK  CALLSYS 
          IDENT  CALLSYS
          SST 
  
          ENTRY  CALLSYS
  
          TITLE  CALLSYS - RA+1 CALL FROM SYMPL 
**        CALLSYS - RA+1 CALL PROCESSOR FOR SYMPL PROCEEDURES 
* 
*         D. J. REIMAN       81/01/12 
          SPACE  4
**        THIS ROUTINE PUTS INTO RA+1 A REQUEST FOR A PP
*         ROUTINE AS FORMATTED BY THE CALLING ROUTINE.
* 
*         ENTRY - (A1) IS THE PARAMETER LIST ADDRESS
* 
*         PARAMETER LIST FORMAT 
*                ADDRESS OF RA+1 REQUEST
* 
*         PROCESSING - GET REQUEST AND STORE IT IN RA+1 
* 
*         EXIT - NONE 
* 
*         USES
*                A - 2,6
*                X - 2,6
* 
*         CALLS - SYS=
          SPACE  4
 CALLSYS  SUBR
          SA2    X1          REQUEST IN X2
          BX6    X2 
          RJ     =XSYS= 
          EQ     CALLSYSX    RETURN 
  
          END 
  
