Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SEARCH	FORPRM
	TV	FORDBM	DBMS%,6(2031)

;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

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

\

	ENTRY	DBMS%

	SEGMENT	CODE

DBMS%:

IF20,<
	SKIPE	%DBASE		;DBMS LOADED?
	  PJRST	@%DBASE		;YES, JUMP TO IT

	PUSH	P,T1		;SAVE ACS
	PUSH	P,T2
	PUSH	P,T3
	PUSH	P,T4

	MOVEI	T1,.FHSLF	;SAVE ENTRY VECTOR ADDRESS
	GEVEC%
	PUSH	P,T2

	MOVX	T1,GJ%SHT+GJ%OLD ;GET DBMSF
	HRROI	T2,[ASCIZ /SYS:DBMSF.EXE/]
	GTJFN%
	  ERJMP	DERR
	HRLI	T1,.FHSLF
	TRO	T1,GT%NOV
	GET%
	  ERJMP	DERR

	MOVEI	T1,.FHSLF	;GET ENTRY VECTOR ADDRESS
	GEVEC%
	HLRZ	T1,T2		;GET LH
	CAIE	T1,254000	;CHECK FOR JRST-TYPE ENTRY VECTOR
	  MOVE	T2,(T2)		;NORMAL TYPE, GET START ADDRESS
	HRRZM	T2,%DBASE	;SAVE IT

	MOVEI	T1,.FHSLF	;PUT REAL ENTRY VECTOR BACK
	POP	P,T2
	SEVEC%

	POP	P,T4		;DONE
	POP	P,T3
	POP	P,T2
	POP	P,T1
	JRST	@%DBASE

DERR:	POP	P,(P)		;DISCARD USELESS SAVED ENTRY VECTOR
	POP	P,T4		;POP SAVED ACS
	POP	P,T3
	POP	P,T2
	POP	P,T1
				;RETURN SAYING "NO DBMS"
> ;IF20

	SETZ	0,
	POPJ	P,


IF20,<
	SEGMENT DATA
%DBASE:	BLOCK	1
	SEGMENT	CODE
>
	PURGE	$SEG$
	PRGEND

	SEARCH	FORPRM
	TV	FORDST	DBSTP$,6(2232)

;This is the dummy DBSTP$ in FORLIB only.

IFN FT20,<

	ENTRY	DBSTP$
DBSTP$:	POPJ	P,		;Incase no DBMS in the REL file.

>;IFN FT20

	END