Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/resolv.mac
There are 7 other files named resolv.mac in the archive. Click here to see a list.
; UPD ID= 3040 on 7/10/80 at 10:02 AM by NIXON                          
TITLE RSVGAT -- DUMMY LOWSEG SYMBOLS FOR DBCS



	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1977, 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.

	SEARCH	INTERM
	RELOC 0

;EDITS
;EGM	9-Mar-83	[1056] Prevent inclusion of DBCS for non DBMS progs
;V12B*******
;***********

;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

	SEARCH	COPYRT
	SALL

	TWOSEG

	.COPYRIGHT		;Put COPYRIGHT statement in .REL file.

;;;	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	ALLOWS LINK TIME DECISION IN CHOICE OF DBSTP$	;[1056]

;BY PLACING THIS ROUTINE IN THE LIBRARY FILE AFTER DBGATE	;[1056]
; (WHICH CONTAINS THE DBCS DBSTP$) AND BEFORE THE DUMMY DBSTP$	;[1056]
; (SEE BELOW),CAN PREVENT LOADING DBCS CODE WHEN DBMS NOT USED	;[1056]

ENTRY	%DBSTP							;[1056]
EXTERN	DBSTP$							;[1056]
%DBSTP==DBSTP$							;[1056]

	PRGEND							;[1056]

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,

	PRGEND
TITLE DBVER$	DUMMY VERSION NUMBER OF DBMS FOR FATAL ERROR MESSAGE

;THIS ENTRY IS USED BY LIBOL AT KILL. TO PREVENT TYPING THE DBMS VERSION NUMBE

HISEG

ENTRY	DBMVR.

DBMVR.:	EXP	0			;ZERO MEANS NOT REAL DBMS

	PRGEND
TITLE DEBST$	DUMMY DEBUG MODULE


ENTRY	DEBST.
ENTRY	DEBUG.
ENTRY	DBALT.
ENTRY	DBIO.
ENTRY	DBRD.
ENTRY	DBDA.
ENTRY	DBPRO.
INTERN	DEBUG.

DEBST.:	JRST	0(16)

DBPRO.:	HALT			;JUST TO KEEP COBDDT HAPPY

DBDA.:
DBALT.:	AOS	(17)
DBIO.:
DBRD.:	AOS	(17)
	POPJ	17,

DEBUG.:	0

PRGEND

TITLE DSORT$	DUMMY SORT MODULE

ENTRY V%SORT

V%SORT==0		;TO TELL LIBOL SORT IS NOT LOADED

PRGEND

TITLE DRMS - DUMMY RMS MODULE

SEARCH	INTERM		;GET TOPS20 DEFINITION
ENTRY RMS.EV
RMS.EV==0	;ENTRY VECTOR WORD FOR RMS

IFE TOPS20,<
RMS$10==:0 >		;SATISFY GLOBAL DEFN INCASE RMS NOT LOADED

PRGEND

TITLE DRMSIO - DUMMY RMSIO MODULE
;THIS IS LOADED IF RMSIO WAS NOT LOADED WITH LIBOL (E.G. FOR A KI)

SEARCH	INTERM	;GET TOPS20 DEFINITION

ENTRY	RMSGET

RMSGET:
OP.MIX:: CL.MIX:: ST.MGT:: ST.MEQ:: ST.MNL::
DL.MIR:: DL.MIS:: RW.MIR:: RW.MIS::
RD.MIR:: RD.MIS:: WT.MIR:: WT.MIS::
IFN TOPS20,<
SEARCH	MONSYM

	HRROI	1,NIM
	PSOUT%
	HALTF%
	JRST	.-1
>
IFE TOPS20,<
	OUTSTR	NIM
	EXIT
>
NIM:	ASCIZ\?LBLNRI This version of LIBOL does not support RMS I/O\

PRGEND
TITLE RMSGLB - GLOBAL AREA FOR RMS

;THIS IS LOADED IF RMS IS LOADED WITH THE PROGRAM ON TOPS10
;IT IS THE AREA FOR RMS LOW-SEGMENT DATA

ENTRY	RMS$$G

RMS$$G:	BLOCK	3000		;SPACE FOR RMS DATA

	END