*COMDECK XPRC 
          IDENT  XPRC 
          ENTRY  XPRC 
          COMMENT CALL USER SPECIFIED *SYMPL* PROCEDURE.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
          SPACE  4,10 
***       XPRC - INTERFACE ROUTINE USED TO CALL A *SYMPL* 
*         PROCEDURE, GIVEN THE ADDRESS OF THE PROCEDURE.
* 
*         XPRC(PADDR,P1,P2,...,PN);    (*SYMPL* CALL) 
* 
*         PADDR - ADDRESS OF PROCEDURE. 
*         P1    - FIRST PARAMETER TO BE PASSED TO PROCEDURE.
*         ... 
*         PN    - N-TH PARAMETER TO BE PASSED TO PROCEDURE. 
* 
*         USES   X - 1, 2, 3, 4, 6, 7.
*                A - 1, 2, 6, 7.
*                B - 1, 2.
  
 XPRC     SUBR               ENTRY/EXIT 
          SB1    1
          SA2    X1 
          BX7    X2 
          SA7    PRADR       STORE PROCEDURE ADDRESS
          SA1    A1+B1
          MX3    1
          LX3    57 
          SA2    PRADR
          SX4    PRC1 
          SB2    X2 
          LX4    30 
          BX6    X3+X4
          SA6    X2 
          JP     B2+1 
 PRC1     EQ     XPRCX
  
 PRADR    BSSZ   1           ADDRESS OF PROCEDURE TO CALL 
  
          END 
