* $Source: /commtar/monoBANK/SQL_INTF/tMdbntry.a,v $
* $Revision: 1.3 $ $Date: 88/07/28 12:33:33 $ $Author: callen $
* $Cprt start$
*  
* Copyright (C) 1988 by Intermetrics, Inc. 
*  
*     This material may be used duplicated or disclosed by or for the 
* U.S. Government pursuant to the copyright license under DAR clause 
* 7-104.9(a) (May 1981). 
*  
*     This project was sponsored by the STARS Foundation 
*     Naval Research Laboratory, Washington DC 
*  
* $Cprt end$
         PUNCH ' ALIAS DCI$DBNT'
***********************************************************************
* this is the call dbntry procedure that will invoke the Datacom/DB to
* perform a Datacom command.
***********************************************************************
*
* Ada Spec:
* procedure Do_Dbntry (
*    Parm_List : Parameter_List;
*    );
*
* PR1: Parm_List
* PR2: Dope
*
         SPACE
DCIDBNT  CSECT
         STM   14,3,0(1)              save registers on stack
	 LR    3,1                    copy stack pointer
	 LR    2,15                   copy base address
	 USING DCI$DBNT,2             tell assembler
	 LR    1,4                    copy parm list address to r1
         L     15,=V(DBNTRY)          get address of Datacom intf
	 BALR  14,15                  call it
         LM    14,3,0(3)              restore registers
         BR    14                     return
	 END