PDP-10 Archive: sysdpu.mac from bb-d549g-sb

Trailing-Edge - PDP-10 Archives - bb-d549g-sb - sysdpu.mac

There are 8 other files named sysdpu.mac in the archive. Click here to see a list.

	UNIVER	SYSDPU	SPECIAL SYMBOLS FOR SYSDPY FROM S.UNV
	SUBTTL	/RDH 5-MAR-79


	COMMENT	\

Copyright (C) 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978
Digital Equipment Corporation, Maynard, Massachusetts, U.S.A.

This software is furnished under a license and may be used and copyed only
in accordance with the terms of such license and with the inclusion of the
above copyright notice.  This software or any other copies thereof may not
be provided or otherwise made available to any other person.   No title to
and ownership of the software is hereby transferred.

The information in this software is subject to change  without  notice and
should not be construed as a commitment by Digital Equipment Corporation.

Digital  assumes  no  responsibility  for  the  use  or reliability of its
software on equipment which is not supplied by Digital.

\

	SUBTTL	DEFINER DEFINITION

	SEARCH	S		;THE MONITOR'S SYMBOLS




DEFINE	DEF(S,V),
<IFDEF S,<S==S> IFNDEF S,<IRP V,<IFDEF S,<S==S!V> IFNDEF S,<S==V>>>
 IRP V,<PURGE V>>

DEFINE	DEFL(S,V),
<IFDEF S,<S==S> IFNDEF S,<IRP V,<IFDEF S,<S==S!(V)> IFNDEF S,<S==(V)>>>
 IRP V,<PURGE V>>

	SUBTTL	DDB DEFINITIONS

DEF	$DVNAM,DEVNAM		;DEVICE'S PHYSICAL NAME
DEF	$DVCHR,DEVCHR		;DEVICE (HARDWARE) CHARACTERISTICS
				; INCLUDES HUNG TIMER
DEF	$DVIOS,DEVIOS		;DEVICE I/O STATUS WORD
	DEFL	IO$OUT,IO	;I/O IS IN OUTPUT DIRECTION
	DEF	IO$IMP,IOIMPM	;IMPROPER MODE
	DEF	IO$DER,IODERR	;DEVICE ERROR
	DEF	IO$DTE,IODTER	;DATA ERROR
DEF	$DVSER,DEVSER		;(LH) ADDRESS OF NEXT DDB IN CHAIN
				;(RH) ADDRESS OF DEVICE SERVICE DISPATCH TABLE
DEF	$DVMOD,DEVMOD		;DEVICE CHRE (RETURNED IN DEVTYP CALLI)
	DEFL	DV$DSK,DVDSK	;DEVICE IS A DISK
	DEFL	DV$TTA,TTYATC	;DEVICE IS A TTY CONTROLLING A JOB
	DEF	DV$ASC,ASSCON	;DEVICE IS ASSIGNED BY CONSOLE COMMAND
	DEF	DV$ASP,ASSPRG	;DEVICE IS OPEN/INIT'ED BY PROGRAM

	SUBTTL	JBTSTS (JOB STATUS) BITS AND BYTES

	;LEFT HALF BITS

DEFL	JS$RUN,RUN		;JOB WANTS TO RUN (MUST BE SIGN)
DEFL	JS$SNA,SNA		;HIGH SEG ASSIGNED (ANALGUOUS TO JNA)
DEFL	JS$CMW,CMWB		;COMMAND WAIT BIT (FOR JOB TO BE SWAPPED IN)
DEFL	JS$SHR,SHRSEG		;SEGMENT IS SHARABLE
DEFL	JS$XPN,JXPN		;SEG MUST BE SWAPPED IN ORDER TO EXPAND CORE
DEFL	JS$JNA,JNA		;JOB NUMBER ASSIGNED (JOB "EXISTS")
DEFL	JS$SYS,SS.SYS		;SEGMENT CAME FROM SYS:
DEFL	JS$JER,JERR		;FATAL JOB ERROR DETECTED BY MONITOR
DEFL	JS$SER,SERR		;SWAP READ ERROR HAS OCCURED FOR THIS SEGMENT
DEFL	JS$LCK,<NSWP,NSHF>	;JOB IS LOCKED
DEFL	JS$SWP,SWP		;JOB IS SWAPPED
DEFL	JS$CTC,CNTRLC		;CONTROL-C PENDING
DEFL	JS$STE,WTMASK		;JOB WAIT STATE
DEFL	JS$WST,WTMASK		;MASK OF JOB WAIT STATE (QUEUE) CODE
DEFL	JS$LOG,JLOG		;JOB IS LOGGED IN
DEFL	JS$JRQ,JRQ		;JOB NEEDS TO BE REQUEUED
DEFL	JS$JAC,JACCT		;PROGRAM IS PRIVILEGED


;RIGHT HALF BITS

DEF	JS$CLK,CLKR		;JOB HAS CLOCK REQUEST PENDING
DEF	JS$JDC,JDC		;JOB IS WAITING FOR .DCORE COMMAND TO FINISH
DEF	JS$OWD,JDCON		;JOB IN ^C STATE WAITING FOR DEVICE
DEF	JS$DEP,JS.DEP		;JOB IS IN DAEMON ERROR PAUSE
DEF	JS$XCT,JS.XO		;JOB IS EXECUTE ONLY
DEF	JS$RUU,JS.RUU		;RUN UUO OR COMMAND IN PROGRESS

	SUBTTL	JBTST2 BITS AND BYTES

;LEFT HALF

DEF	J2$IGS,JS.IGS		;JOB IS DOING A GETSEG CALLI
DEF	J2$HIB,JS.HIB		;JOB IS IN A HIBER CALLI

;RIGHT HALF

DEF	J2$EWS,EWAKEB		;JOB'S EW SATISFIED (EWAKE CALLED)
	J2$WEW==<<-1>_-<^D36-ESLPSZ>>_<^D35-ESLPBP>  ;JOBS'S EW WAIT CODE
	 PURGE	ESLPSZ, ESLPBP	;DUD SYMBOLS




	SUBTTL	JBTRTD BITS AND BYTES

;LEFT HALF (THE VALUES ARE NOT AVAILABLE IN S)

	JR$HPC==17B5		;HPQ VALUE FROM HPQ COMMAND
	JR$HPQ==17B9		;HPQ VALUE FROM HPQ CALLI




	SUBTTL	JBTPDB BITS AND BYTES

;LEFT HALF

	JP$PPP==<<-1>_-<^D36-MCPSIZ>>_<^D35-MCPBPP>  ;PER PROCESS PAGES MASK
	 PURGE	MCPSIZ, MCPBPP	;DUD SYMBOLS

	SUBTTL	EVENT WAIT CODES

DEF	EW$TKW,EV.TKW		;TAPE CONTROLLER WAIT
DEF	EW$REW,EV.REW		;TAPE REWIND WAIT
DEF	EW$LBL,EV.LBL		;TAPE LABEL PROCESSING WAIT
DEF	EW$NET,EV.NET		;NETWORK WAIT
DEF	EW$FEI,EV.FEI		;FRONT END INPUT WAIT
DEF	EW$FEO,EV.FEO		;FRONT END OUTPUT WAIT
DEF	EW$D60,EV.D60		;DN60 WAIT

	SUBTTL	DISK UNIT DATA BLOCK DEFINITIONS

;(NOT IN S.MAC)

UNINAM==0
UNILOG==1
UNIHID==2
UNISYS==3
UNISWP==7
UNIK4S==7
	MSKK4S==17777
UNIHCT==10
UNISCT==11
UNIMCT==12
UNIERR==13
UNISOF==14
UNIHBN==15
UNIBRC==16
UNIBWC==17
UNIDRC==20
UNIDWC==21
UNIMRC==22
UNIMWC==23
UNIICT==24
UNIOCT==25
UNIMSC==26
UNIUSC==27
UNIPCT==30
UNIFKS==31
UNISDI==32
UNIHDI==33
UNIECT==34
UNIHNG==35
UNI2ND==72

IF2,<	PURGE	DEF,DEFL>	;SO DON'T CONFUSE ANYONE LATER
	END