Google
 

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