SEARCH	MTHPRM,FORPRM
	TV	FORDST	CALL DBMS, 10(4113)

;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1981, 1987
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.

;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.

;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

COMMENT	\

***** Begin Revision History *****

3160	BL	9-Aug-82
	Separated module FORDST from FORDBM to make building OTS
	more straightforward.

3244	JLC	30-Dec-82
	New DBMS interface, uses a separate SYS:DBMSF.REL to get
	DBMS if necessary. User specifies /DEFINE:%DBNONSHARE
	to get non-sharable DBMS.

3245	JLC	4-Dec-82
	Change name of DBMS switch to %DBSNONSHARE. Make this
	module the only DBMS module that appears in FORLIB.

3246	JLC	5-Jan-82
	Change the .REQUEST to a .TEXT, since LINK started loading
	DBMS at 400000.

3253	JLC	13-Jan-83
	Code review changes: change %DBSNONSHARE to %DBSNS.


***** Begin Version 10 *****

4014	JLC	15-Jun-83
	Change .TEXT back to .REQUEST.

4045	JLC	28-Sep-83
	Request DBMS.REL instead of DBMSF.REL.

4111	JLC	16-Mar-84
	Changed "FDBMS%" to "FDBMS.".

4112	JLC	19-Mar-84
	Removed "FDBMS.", as it is no longer necessary.
	Make request for DBMSF.REL again. DBMS folks didn't
	change it.

4113	JLC	21-Mar-84
	Change .REQUEST back to .TEXT yet again - it has to run
	on TOPS-10, and LINK has not been fixed anyhow.

***** End V10 Development *****

***** End Revision History *****
\

;THIS MODULE IS LINKED ONLY IF THE USER PROGRAM USES DBMS. IT HAS
;THE ENTRY SBIND, WHICH IS ALWAYS CALLED BY FORTRAN/DBMS PROGRAMS,
;EQUATED TO %SBIND, THE ENTRY POINT WITHIN DBMS; IT HAS THE
;FORTRAN-CALLED %DBSTP, CALLED FOR ALL PROGRAMS, EQUATED TO THE
;DBMS STOP ENTRY POINT DBSTP$; LAST, BUT CERTAINLY NOT LEAST, IT
;HAS A .TEXT DIRECTIVE TO SEARCH SYS:DBMSF.REL, WHICH GETS DBMS.

	ENTRY	SBIND

	EXTERN	%SBIND,DBSTP$,%DBSNS

	INTERN	%DBSTP

%DBSTP==DBSTP$
SBIND==%SBIND

	.TEXT	"/SEGMENT:LOW/SEARCH SYS:DBMSF.REL"

	PRGEND

	SEARCH	MTHPRM,FORPRM
	TV	FDBDUM	DUMMY DBSTP

;THIS IS THE DUMMY %DBSTP, LINKED WHEN THERE IS NO DBMS PROGRAM
;ALSO RESOLVES KDBMS., THE DBMS ENTRY POINT TO KILL VESTIGES OF DBMS.

	ENTRY	%DBSTP

	INTERN	KDBMS.

	SEGMENT	CODE

KDBMS.:
%DBSTP:	POPJ	P,

	END