*DECK DB$CALL 
          IDENT  DB$CALL
*#
* *   DB$CALL-CALL PROCEDURE                     PAGE 1 
* *   C O GIMBER                                 DATE  FEB 11,1974
* 
* DC  PURPOSE 
* 
*     THIS ROUTINE IS USED FOR CALLING A PROCEDURE WHEN ITS ENTRY POINT 
*     ADDRESS IS KNOWN. 
* 
* DC  ENTRY CONDITIONS
* 
*     (A1) = PARAMETER LIST 
*     FIRST PARAMETER IS ADDRESS OF PROCEDURE TO BE CALLED. 
*     SECOND, THIRD,... ARE PASSED TO THE CALLED PROCEDURE. 
* 
* DC  CALLED ROUTINES 
* 
*     DB$IGNR - NO-OP ROUTINE TO FLUSH STACK (ALSO CLEARS X6) 
* 
* DC  DESCRIPTION 
* 
*     (TEMP) = (X1) 
*     (A1) = (A1)+1 
*     ((TEMP)) = (DB$CALL)
*     JP    (TEMP)+1
* 
*#
          ENTRY  DB$CALL
DB$CALL   BSSZ   1
          SA2    DB$CALL     (X2) = RETURN INSTRUCTION
          SA3    X1          (X3) = ADDRESS OF PROCEDURE
          SA1    A1+1        (A1) = NEW PARAMETER LIST POINTER
          BX6    X2 
          SA6    X3          STORE RETURN INSTRUCTION FOR PROCEDURE 
          SB6    X3 
          RJ   =XDB$IGNR     NO-OP ROUTINE TO FLUSH THE STACK 
          JP   B6+1          JUMP TO ADDRESS+1
  
          END 
