Trailing-Edge
-
PDP-10 Archives
-
bb-4157h-bm_fortran20_v10_16mt9
-
fortran-ots-debugger/fordst.mac
There are 9 other files named fordst.mac in the archive. Click here to see a list.
SEARCH MTHPRM,FORPRM
TV FORDST CALL DBMS, 10(4113)
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1985
;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