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

; UPD ID= 1975 on 7/17/79 at 11:03 AM by N:<NIXON>                      
TITLE RSVGAT -- DUMMY LOWSEG SYMBOLS FOR DBCS



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1977, 1979 BY DIGITAL EQUIPMENT CORPORATION


	SEARCH	INTERM
	RELOC 0

;THE PURPOSE OF THIS ROUTINE IS TO RESOLVE DBMS
;ENTRY POINTS WHEN THEY ARE NOT PRESENT AND INFORM THE USER THAT
;THAT IS THE CASE
	DEFINE ENTRY.(USERN.,OTSN.,VERB.,ACT..)<
	    IRP USERN.,<
		USERN.:
		ENTRY USERN.
	    >
	>
	ENTRY.	(CLOSED,CLOSE$,C.CLOSE,ENQ.X)		;ENQ.X SINCE PLAYS WITH J LABEL PAGE
	ENTRY.	(DELETR,DELET$,C.DELETE,JR.UPD!ENQ.X!CRU.MUST!VAC.UPD)
	ENTRY.	(FIND1,FIND1$,C.FIND,ENQ.SH)
	ENTRY.	(FIND2,FIND2$,C.FIND,ENQ.SH)
	ENTRY.	(FIND3,FIND3$,C.FIND,ENQ.SH)
	ENTRY.	(FINDO,FINDO$,C.FIND,ENQ.SH)
	ENTRY.	(FIND4,FIND4$,C.FIND,ENQ.SH)
	ENTRY.	(FIND5,FIND5$,C.FIND,ENQ.SH)
	ENTRY.	(FINS6,FINS6$,C.FIND,ENQ.SH)
	ENTRY.	(<GETS,GET>,GET$,C.GET,CRU.MUST!ENQ.SH)
	ENTRY.	(<INSRT,INSERT>,INSER$,C.INSERT,JR.UPD!ENQ.X!CRU.MUST!VAC.UPD)
	ENTRY.	(<MODIF,MODIFY>,MODIF$,C.MODIFY,JR.UPD!ENQ.X!CRU.MUST!VAC.UPD)
	ENTRY.	(OPEND,OPEN$,C.OPEN,ENQ.ALT)		;ENQ.ALT PLAYS SAFE SINCE OPEN CAN INCREASE SIMULTANEITY
	ENTRY.	(<REMOV,REMOVE>,REMOV$,C.REMOVE,JR.UPD!ENQ.X!CRU.MUST!VAC.UPD)
	ENTRY.	(<STORE,STORED>,STORE$,C.STORE,JR.UPD!ENQ.X!VAC.UPD)
	;;;	NON-VERB ENTRY. POINTS
	; ***	CONTEXT AFFECTING ENTRY. PTS
	ENTRY.	(SBIND,SBIND$,C.BIND,OK.NOSS!VAC.BIND!OK.SUS)
	; ***	OK.SUS ON IN 2 BELOW SO THAT THE BINDING EXCEP WILL BE CORRECTLY RETURNED
	; ***	BUT NO OTHER VERBS AFTER THE FAULTY BINDING WILL SUCCEED
	ENTRY.	(BIND,BIND$,C.BIND,VAC.BIND!OK.SUS)
	ENTRY.	(EBIND,EBIND$,C.BIND,VAC.BIND!OK.SUS)
	ENTRY. (INITDB,USE$,C.BIND,VAC.BIND!OK.NOSS)
	ENTRY.	(SETDB,SETDB$,C.CALL,VAC.CALL!OK.SUS)
	ENTRY.	(UNSET,UNSET$,C.CALL,VAC.CALL!OK.SUS)
	ENTRY.	(SAVESS,SAVES$,C.CALL,VAC.CALL)
	; ***	JOURNAL ENTRY. PTS
	ENTRY.	(JMNAME,JMNAM$,C.CALL,VAC.CALL)
	ENTRY.	(JMAFT,JMAFT$,C.CALL,VAC.CALL)
	ENTRY.	(JMBEF,JMBEF$,C.CALL,VAC.CALL)
	ENTRY.	(JMBOTH,JMBOT$,C.CALL,VAC.CALL)
	ENTRY.	(JMNONE,JMNON$,C.CALL,VAC.CALL)
	ENTRY.	(JSTRAN,JSTRA$,C.CALL,VAC.CALL!JR.OVU!JR.UPD!ENQ.X)
	ENTRY.	(JETRAN,JETRA$,C.CALL,VAC.CALL!JR.OVU!JR.UPD!ENQ.X)
	ENTRY.	(JBTRAN,JBTRA$,C.CALL,VAC.CALL!JR.OVU!JR.UPD!ENQ.X!OK.SUS)
	ENTRY.	(JRDATA,JRDAT$,C.CALL,VAC.CALL!JR.OVU!JR.UPD!ENQ.X)
	ENTRY.	(JRTEXT,JRTEX$,C.CALL,VAC.CALL!JR.OVU!JR.UPD!ENQ.X)
	; ***	STATISTICS
	ENTRY.	(STATS,STATS$,C.CALL,VAC.CALL)
	; ***	PSEUDO-HOST ACTIONS: PREDICATES & COPY
	ENTRY.	(MOVEC,MOVE$,C.HOST)
	ENTRY.	(<EMPTY,SETCON>,EMPTY$,C.HOST,ENQ.SH)			;KEEP LOUSY NAMES RATHER THAN CHANGE COMPILER
	ENTRY.	(<RECMO,TENANT>,TENAN$,C.HOST,ENQ.SH)
	ENTRY.	(<RECMEM,MEMBER>,MEMB$,C.HOST,ENQ.SH)
	ENTRY.	(<RECOWN,OWNER>,OWNER$,C.HOST,ENQ.SH)
	OUTSTR	[ASCIZ/?DBSNOT DBMS HAS NOT BEEN INSTALLED IN THIS LIBOL
/]
	EXIT	1,
	PRGEND

TITLE RESOLV RESOLVES DBMS ENTRY POINTS
	TWOSEG

;;;	THIS ENTRY RESOLVES THE LIBOL-DISPATCH VECTOR REFERENCE FOR NON-DBMS USERS
;;;	ALSO IT WILL TELL THE USER IS HIS LIBO??.EXE FILE IS INCOMPATIBLE WITH HIS LIBOL.REL
;;;	BY CAUSING TYPING OF A MESSAGE TO THE EFFECT THAT DBMS IS NOT IN THE .EXE FILE
RELOC	400000
ENTRY	DBMS.
DBMS.:	POPJ	17,		;LET DBGATE PRINT MSG OR DO 2ND GETSEG
	PRGEND

TITLE DBSTP$	DUMMY CLEANUP FOR DBMS AT PROGRAM TERMINATION

;THIS ENTRY RESOLVES THE LIBOL-DISPATCH VECTOR REFERENCE FOR NON-DBMS USERS


ENTRY	DBSTP$

DBSTP$:	POPJ	17,

	END