Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/resolv.mac
There are 7 other files named resolv.mac in the archive. Click here to see a list.
; UPD ID= 1376 on 9/23/83 at 8:40 AM by KILGORE
SEARCH COPYRT
SALL
;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, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
SEARCH INTERM
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