Trailing-Edge
-
PDP-10 Archives
-
BB-H580E-SB_1985
-
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