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

!This is the Require file for interrupt service
	LIBRARY 'INTR';
THIS_IS [INTR] VERSION [2] EDIT [22] DATE [4,APR,78]
%(*** R E V I S I O N   H I S T O R Y

[22]	Fix overlapping defs (INT$S_?????) (in library file)
[21]	Library file: NOINTS fixed INT$IB moved
[20]	Put in NOINTS, use LIBRARY
[17]	Move error code field definitions to TBL.REQ
[16]	Add bits to determine to signal or only wake: INT$S_??????
[15]	Add new fields to process block, use DFF macro
[14]	Make SIGNAL build argument list according to VAX/11 standard

	E N D   R E V I S I O N   H I S T O R Y
)%




EXTD <INTVEC,INTBAS,%NAME('.SIGNL'),INTSIG,FSIGNL,
	PISYS,WAIT,INTMAX,INTTBL>;
MAP INTTBL: VECTOR;

MAP INTVEC: INTVECSTR[30] FIELD(INTVEC_FIELDS);
	!INTVEC gets accessed by INTVEC[n,FIELD] which usually will be
	!INTVEC[.INT[INT$OFFSET],FIELD]


GLOBAL BIND	FREG=%O'15',
		VREG=1,
		T2=2, T3=3, T4=4, T5=5,
		SREG=%O'17';


%IF NOT %DECLARED(FTSIG) %THEN LITERAL FTSIG=1; %FI
MACRO NOSIGNAL[]=%; !Conditionalize out some code
%IF %DECLARED(ZERO)
	%THEN %IF ZERO EQL 0 %THEN UNDECLARE ZERO; %FI %FI