Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_V7wLink_Feb83
-
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