Google
 

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/ots-debugger/fordst.mac
There are 9 other files named fordst.mac in the archive. Click here to see a list.
	SEARCH	FORPRM
	TV	FORDST	CALL DBMS, 7(3253)

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1983

;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.

***** 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 .REQUEST 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	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,
;AND FDBMS%, THE LOWSEG 2ND HALF OF THE FOROTS-DBMS ENTRY POINT,
;A LEFTOVER FOR DBMS V5.

	ENTRY	%DBSTP

	INTERN	KDBMS.,FDBMS%

	SEGMENT	CODE

FDBMS%:
KDBMS.:
%DBSTP:	POPJ	P,

	END