Google
 

Trailing-Edge - PDP-10 Archives - k20v7b - dn20/cexlib.m11
There are 15 other files named cexlib.m11 in the archive. Click here to see a list.
; [Beginning of CEXLIB]
;
; COPYRIGHT (C) 1980, 1981, 1982
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE
; COMPUTER SYSTEM AND MAY BE COPIED ONLY 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
; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
; TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES
; REMAIN IN DEC.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
;

;++
; FACILITY: MCB Communications Executive
;
; FUNCTIONAL ABSTRACT:
;
;	This module contains the Comm/Exec specific macros
;
; ENVIRONMENT: RSX kernel mode with EIS
;
; AUTHOR: Alan D. Peckham, CREATION DATE: 20-MAR-80
;
; MODIFIED BY:
;
; 01	- Use macros from MCBLIB.
; 02	- Add CCB length variable.
;	  Add CE$CLN status code.
; 03	- Add SF.ACT flag to SYNCH block.
;	  Add CE$SYN status code.
; 04	- Add CF.ACT flag for active CCBs.
;	  Add SDB header definitions and CE$SBO status code.
; 05	- Add status codes.
;	  Alter CRSH$S macro to call $CRSH
; 06	- Reorder status codes and create macros
;	  to define them globally.
; 07	- Alter PS access.
; 08	- PDT re-ordered.
; 09	- SYNCH block augmented for LLC use.
; 10	- Add CCBCK$ macro for CCB/RDB verification.
;	Alan D. Peckham, 9-Dec-80: VERSION 3.1
; 11	- Rework PDT, SLT, PHD, CETAB macros.
;	Alan D. Peckham, 21-Jan-81: VERSION 3.2
; 12	- Update to use process descriptor block addresses internally.
; 13	- Add partition size to process header.
; 14	- Add RSX dispatch address to process header.
;--
;
; CONFIGURATION VARIABLES
;

C$$QUE	= 1			; Free pool queues instead of stacks.
D$$BUG	= 0			; Debugging code disabled.
M$$MGE	= 1			; Memory management present.
P$$BPS	= 1			; Processor status is byte in I/O page
P$$MAX	= 64.			; Maximum number of processes.
P$$WPS	= 1			; Processor status is word in I/O page

;
; INCLUDE FILES:
;

	.MCALL	CCBDF$,TMBDF$
	.MCALL	MAP$,MAP$S,POP$S,PUSH$S,SMAP$,SMAP$S

;
; MACROS:
;

	.IF	NE,P$$WPS+P$$BPS
	.MACRO	MFPS dst
	.GLOBL	PS
	.IF	NE,P$$BPS
	MOVB	@#PS,dst
	.IFF
	MOV	@#PS,dst
	.ENDC
	.ENDM	MFPS

	.MACRO	MTPS src
	.GLOBL	PS
	.IF	NE,P$$BPS
	MOVB	src,@#PS
	.IFF
	MOV	src,@#PS
	.ENDC
	.ENDM	MTPS
	.ENDC

	.MACRO	DSABL$
	MFPS	-(SP)
	.IF	NE,P$$WPS
	.GLOBL	PS
	MOVB	#340,@#PS
	.IFF
	MTPS	#340
	.ENDC
	.ENDM	DSABL$

	.MACRO	ENABL$
	MTPS	(SP)+
	.ENDM	ENABL$

	.MACRO	ILVL$
	.IF	NE,D$$BUG
	CALL	$ILVCK		; Crash if not at interrupt level.
	.ENDC
	.ENDM	ILVL$

	.MACRO	PLVL$
	.IF	NE,D$$BUG
	CALL	$PLVCK		; Crash if not at process level.
	.ENDC
	.ENDM	PLVL$

	.MACRO	RLVL$
	.IF	NE,D$$BUG
	CALL	$RLVCK		; Crash if not at RSX level.
	.ENDC
	.ENDM	RLVL$

	.MACRO	CCBCK$
	.IF	NE,D$$BUG
	CALL	$CCBCK		; Crash if not at RSX level.
	.ENDC
	.ENDM	CCBCK$

	.MACRO	CRSH$S	code
	.GLOBL	$CRSH
	CALL	$CRSH		; MCB will NOT return !
	.iif	ndf,CE$'code, .globl CE$'code
	.WORD	CE$'code
	.ENDM	CRSH$S

;
; EQUATED SYMBOLS:
;

	MCBDF$			; MCB status definitions.
	CCBDF$			; CCB symbol definitions.
	SYNDF$			; SYNCH block symbol definitions.
	TMBDF$			; TMB symbol definitions.

	.ASECT

;
; data base descriptor table
;

.	= 0
Z.DSP:	.BLKW	1		; Relocation bias of process
	.BLKW	1		; Dispatch table address
Z.DAT:	.BLKW	2		; Bias/Address of data base
Z.PIX:	.BLKB	0		; Process index
Z.FLG:	.BLKW	1		; Flags word:
 ZF.DTM =	100000		;  Data base timer enabled
 ZF.RDB	=	040000		;  RDB has been requested
 ZF.CCB	=	010000		;  CCB has been requested
 ZF.KIL	=	004000		;  Process destruction requested
 ZF.DAT	=	001000		;  Data base included
 ZF.UCB	=	000400		;  UCB address included
;	  000377		;  (process index)

Z.UCB:	.BLKW	1		; Address of RSX driver UCB
Z.LEN:	.BLKW	0

;
; System line table
;

.	= 0
L.DDM:	.BLKB	1		; DDM process descriptor block
L.LIX:	.BLKB	1		; Line index
L.DLC:	.BLKB	1		; DLC process descriptor block
L.CTL:	.BLKB	1		; Controller number
L.LLC:	.BLKB	1		; LLC process descriptor block
L.UNT:	.BLKB	1		; Unit number
L.DEV:	.BLKW	1		; Pointer to device name
L.LEN:	.BLKW	0

;
; Interrupt transfer block
;

.	= 0
X.JSR:	.BLKW	2		; "JSR R5,@#$INTCn" instruction
X.PDB:	.BLKW	1		; Address of process descriptor block
X.DSP:	.BLKW	1		; Address of interrupt dispatch
X.LEN:	.BLKW	0

;
; Process header
;

.	= 120000
PHDNAM:	.BLKW	1	; Process name in Radix-50
PHDMCB:	.BLKB	2	; MCB version number
PHDBLK:	.BLKW	1	; Number of blocks in partition
PHDPAT:	.BLKW	1	; Next available patch location
			; or zero if none available.
PHDSIG:	.BLKW	1	; SIGNAL handling routine adr
PHDLLC:	.BLKW	1	; LLC dispatch vector adr
PHDDLC:	.BLKW	1	; DLC dispatch vector adr
PHDDDM:	.BLKW	1	; DDM dispatch vector adr
PHDCEX:	.BLKW	2	; Comm/Exec identification
			; in Radix-50
PHDIDN:	.BLKW	2	; Process identification
			; in Radix-50
PHDFLG:	.BLKW	1	; Process flags:
 PFLBLI	=	000400		;  Process written in BLISS
 PFLRSX	=	001000		;  RSX dispatch vector included

PHDRSX:	.BLKW	1	; RSX dispatch vector adr
PHDCTB:	.BLKW	1	; CEX process dispatch vector adr
	.BLKW	1	; (reserved)

;
; CCB extensions
;

.	= C.OWN
C.FLG:	.BLKW	1		; Flags:
 CF.USE	=	002000		;  CCB has been used
 CF.ACT	=	001000		;  CCB is allocated
 CF.RDB =	000400		;  CCB has attached RDB
;	=	000377		; (Process index of CCB owner)

.	= C.PRM5+2
C.DST:	.BLKW	1		; Destination process descriptor block
C.SRC:	.BLKW	1		; Source process descriptor block
	.EVEN
C.LEN:	.BLKW	0

;
; CCB pool entry.
;

.	= 0
P.CSIZ:	.BLKW	1		; Size of attached buffer.
P.CNUM:	.BLKW	1		; Number of CCBs allocated.
P.CALF:	.BLKW	1		; Number of allocation failures.
	.IF	NE,C$$QUE
P.CQUE:	.BLKW	2		; Free CCB queue.
	.IFF
P.CSTK:	.BLKW	1		; Free CCB stack.
	.ENDC
P.CCNT:	.BLKW	1		; Number of CCBs free.
P.CREQ:	.BLKW	1		; Number of CCB requests.
P.CPDB:	.BLKW	1		; Last process serviced.
P.CFLG:	.BLKW	1		; PDB request flag.
P.CFNC:	.BLKB	1		; Request dispatch function.
P.CMOD:	.BLKB	1		; Request dispatch modifier.
P.CACB:	.BLKW	1		; Allocated core bias.
P.CACL:	.BLKW	1		; Allocated core length (in blocks).
P.CADA:	.BLKW	1		; Allocated DSR address.
P.CADL:	.BLKW	1		; Allocated DSR length (in bytes).
P.CLEN:	.BLKW	0		; Length of entry.

;
; Buffer pool entry.
;

.	= 0
P.BSIZ:	.BLKW	1		; Size of this buffer.
P.BCNT:	.BLKW	1		; Number of available buffers.
P.BQUE:	.BLKW	4		; Queue of buffers.
P.BALF:	.BLKW	1		; Number of allocation failures.
P.BNUM:	.BLKW	1		; Number of pre-allocated buffers.
P.BACB:	.BLKW	1		; Allocated core bias.
P.BACL:	.BLKW	1		; Allocated core length (in blocks).
P.BLEN:	.BLKW	0		; Length of entry.

;
; Exception vector
;
.	= 0
E.LVL:	.BLKW	1		; Exception level.
E.PDB:	.BLKW	1		; Address of process descriptor block.
E.DSP:	.BLKW	1		; Dispatch address.
E.ENA:	.BLKW	1		; Enable vector address.
E.LEN:	.BLKW	0		; Length of exception vector.
.	= 0
	.PSECT

;
; CE: Data base creation
;

	.MACRO	SYS$DF	sysnam,sysnum

	.MACRO	BFP$CK	siz,max,min
BFPNUM	= BFPNUM+1
	UCB$P	INI5
	.WORD	siz,0
	.WORD	0,0,0,0
	.WORD	0
	.WORD	0
	.IF	NB,<min>
	.WORD	max,min
	.IFF
	.WORD	max,max
	.ENDC
	UCB$E
	.ENDM	BFP$CK

	.MACRO	BUF$DF	ccbn,ccbl,rdbn,rdbl,sdbn,sdbl,ldbt
	.IF	NE,<ccbl-C.LEN>
	.ERROR	C.LEN; CCB size skew (ccbl)
	.ENDC
	.IF	NE,<rdbl-RDB.sz>
	.ERROR	RDB.sz; RDB size skew (rdbl)
	.ENDC
	.IF	GT,<sdbl-RDB.sz>
	.ERROR	RDB.sz; SDB size too large (sdbl)
	.ENDC
	CE.CBL	= ccbn
	CE.CBH	= ccbn
	CE.RBL	= rdbn
	CE.RBH	= rdbn
	.ENDM	BUF$DF

	.MACRO	CBP$CK	siz,max,min,flg,mod
	.IF	EQ,siz
	CE.CBL	= max
	.IF	NB,<min>
	CE.CBH	= min
	.IFF
	CE.CBH	= max
	.ENDC
	.IFF
	.IF	EQ,<siz-RDB.sz>
	CE.RBL	= max
	.IF	NB,<min>
	CE.RBH	= min
	.IFF
	CE.RBH	= max
	.ENDC
	.IFF
	.ERROR	siz; Unsupported CCB/buffer size
	.ENDC
	.ENDC
	.ENDM	CBP$CK

	.MACRO	CTL$DF	num,csradr,vecadr,pri
	.ENDM	CTL$DF

	.MACRO	DEV$DF	nam,numvec
	.ENDM	DEV$DF

	.MACRO	DRV$DF	nam
	.ENDM	DRV$DF

	.MACRO	END$DF
	CE$cbb	CBP$CK
	UCB$P	BDAT
	.WORD	CE.CBH,CE.CBL
	.WORD	RDB.sz
	.WORD	CE.RBH,CE.RBL
	UCB$E
	CE$buf	BFP$CK
	UCB$P	INI5
	.WORD	177777,0
	UCB$E
	UCB$P	BDAT
	.IRP	n,<\PDBNUM+1>
	.WORD	n		; Number of pre-defined processes
	.ENDM
	.IRP	n,<\PNMNUM>
	.WORD	n		; Number of process directory entries
	.ENDM
	.IIF	LT,<SLTNUM>,SLTNUM=0
	.IRP	n,<\SLTNUM>
	.IF	NE,<n-CE.lix>
	.ERROR	CE.lix; Does not reflect number of system lines (n)
	.ENDC
	.WORD	n		; Number of system lines
	.ENDM
	.IRP	n,<\BFPNUM>
	.WORD	n		; Number of buffer pools
	.ENDM
	UCB$E

	UCB$P	AUCB
	.GLOBL	UC.PWF
CEUCB:	.WORD	CEDCB		; Back pointer to DCB
	.WORD	.-2		; Redirect UCB pointer
	.BYTE	UC.PWF		; Call on power failure
	.BYTE	0		; Unit status
	.BYTE	0		; Physical unit number
	.BYTE	0		; Unit status
	.WORD	0		; Characteristics word 1
	.WORD	0		; Characteristics word 2
	.WORD	0		; Characteristics word 3
	.WORD	0		; Characteristics word 4
	.WORD	CESCB		; Pointer to SCB
	.WORD	0		; TCB address of
				; attached task
	.WORD	0,0		; Buffer address doubleword
	.WORD	0		; Buffer byte count
	UCB$E

	.PSECT	ADCB,D
	.GLOBL	$CETBL
$CEDAT::
CEDCB:	.WORD	0		; Link to next DCB
	.WORD	CEUCB		; Pointer to first UCB
	.ASCII	/CE/		; Device name
	.BYTE	0,0		; Low and high unit numbers
	.WORD	CELNG		; Length of UCB
	.WORD	$CETBL		; Address of driver dispatch table
	.WORD	0,0,0,0		; Masks for bits  0.-15.
	.WORD	0,0,0,0		; Masks for bits 16.-31.
	.WORD	0		; Address of PCB

	.PSECT	ZSCB,D
CESCB:	.WORD	0,.-2		; Device I/O queue listhead
	.BYTE	0*40		; Device priority
	.BYTE	0/4		; Device vector
	.BYTE	0		; Current timeout count
	.BYTE	1		; Initial timeout count
	.BYTE	0*2		; Controller index
	.BYTE	0		; Controller status
	.WORD	0		; Device CSR address
	.BLKW	1		; Address of current I/O packet
	.BLKW	5		; Fork block
$CEEND::
	.PSECT
	.ENDM	END$DF

	.MACRO	LLC$DF	nam
nam'FLG	= nam'FLG!ZF.DAT
	.ENDM	LLC$DF

	.MACRO	MEM$DF	a0,a1,a2,a3,a4,a5,a6,a7,a8,a9
	.ENDM	MEM$DF

	.MACRO	NOD$CK	nam
	.IF	DIF,sysnam,nam
	.PRINT	; System name (sysnam) not the node name (nam)
	.ENDC
	.IF	NE,<sysnum-NS.slf>
	.PRINT	NS.slf; System number (sysnum) not the node number
	.ENDC
	.ENDM	NOD$CK

	.MACRO	PDB$	pix,flgs,pnm,dsp,dat,unm
	.IF	IDN,<pnm>,<CEX>
pix	=	0
	.IFF
PDBNUM	= PDBNUM+1
pix	= PDBNUM
	.ENDC
	UCB$P	INI1
	.RAD50	\pnm\		; Relocation bias of process
	.WORD	dsp		; Address of dispatch table
	.IF	NB,<dat>
dat::.WORD	0,0		; Bias/address of data base
	.IFF
	.WORD	0,0		; No data base
	.ENDC
	.IRP	n,<\flgs+pix>
	.WORD	n		; Process index and flags
	.ENDM
	.IF	NB,<unm>
unm::.WORD	0		; Address of RSX driver UCB
	.ENDC
	UCB$E
	.ENDM	PDB$

	.MACRO	PRC$DF	nam,dvc
	.IF	LT,SLTNUM
	.IF	B,<dvc>
	.IIF	NDF,nam'FLG,nam'FLG=0
	PDB$	nam'PIX,\nam'FLG,nam,PHDLLC,LLC'nam
	.IFF
	.IIF	NDF,nam'FLG,nam'FLG=ZF.UCB
	PDB$	nam'PIX,\nam'FLG,nam,PHDLLC,LLC'nam,UCB'nam
	.ENDC
PNMNUM	= PNMNUM+1
	UCB$P	INI2
	.WORD	nam'PIX
	.RAD50	\nam\
	UCB$E
	.ENDC
	.ENDM	PRC$DF

	.MACRO	SLT$DF	llcnm,dlcnm,ddmnm,ctln,unt,trb,devnm,enb
	.IIF	LT,<SLTNUM>,SLTNUM=0
SLTNUM	= SLTNUM+1
	SLT$	\SLTNUM,llcnm,dlcnm,ddmnm,ctln,unt,trb,devnm,enb
	.ENDM	SLT$DF

	.MACRO	SLT$D	nam,ctl,unt
	.IF	IDN,<nam>,<DTE>
	SLT$N	<nam-unt-ctl>
	.IFF
	.IF	NB,<unt>
	SLT$N	<nam-ctl-unt>
	.IFF
	SLT$N	<nam-ctl>
	.ENDC
	.ENDC
	.ENDM	SLT$D

	.MACRO	SLT$N nam
	.NCHR	SLTLNG,<nam>
	.IRP	lng,<\SLTLNG>
	.ASCII	<lng>/nam/
	.ENDM
	.ENDM	SLT$N

	.MACRO	SLT$	lix,llcnm,dlcnm,ddmnm,ctl,unt,trb,devnm,enb
SLTLLC	= llcnm'PIX
	PDB$	SLTDLC,ZF.DTM,dlcnm,\PHDDLC,DLC'lix
	.IF	NDF,dlcnm'ctl
dlcnm'ctl = SLTDLC
	.ENDC
	.IF	NB,<ddmnm>
	.IF	B,<trb>
	PDB$	SLTDDM,ZF.DTM,ddmnm,\PHDDDM,DDM'lix
	.IF	NDF,ddmnm'ctl
ddmnm'ctl = SLTDDM
	.ENDC
	.IFF
	.IF	EQ,<trb>
	PDB$	SLTDDM,ZF.DTM,ddmnm,\PHDDDM,DDM'lix
	.IF	NDF,ddmnm'ctl
ddmnm'ctl = SLTDDM
	.ENDC
	.IFF
	.IRP	plix,<\<lix-1>>
DDM'lix	== DDM'plix
	.ENDM
	.ENDC
	.ENDC
	.IFF
SLTDDM	= 0
	.ENDC
	UCB$P	INI3
	.IRP	num,<\SLTDDM>
	.BYTE	num		; DDM data base index
	.ENDM
	.IRP	n,<\lix>
	.BYTE	n		; Flags and line index
	.ENDM
	.IRP	num,<\SLTDLC>
	.BYTE	num		; DLC data base index
	.ENDM
	.BYTE	ctl		; Controller number
	.IRP	num,<\SLTLLC>
	.BYTE	num		; LLC data base index
	.ENDM
	.BYTE	unt		; Unit number
	.WORD	0
	UCB$E
	UCB$P	INI4
	.IF	NB,<devnm>
	SLT$N	<devnm>		; Device name
	.IFF
	.IF	NB,<ddmnm>
	SLT$D	ddmnm,ctl,unt	; Device name
	.IFF
	.IF	NB,<dlcnm>
	SLT$D	dlcnm,ctl,unt	; Device name
	.IFF
	SLT$D	llcnm,ctl,unt	; Device name
	.ENDC
	.ENDC
	.ENDC
	UCB$E
	.ENDM	SLT$

	.MACRO	TRB$DF	trb,ch0,ch1,ch2,ch3,ch4,ch5,ch6,ch7
	.ENDM	TRB$DF

	.MACRO	TSK$DF	nam,rsi
	.ENDM	TSK$DF

	.MACRO	UCB$E	nam
CELNG	= .-CEADR+CELNG
	.PSECT	nam
	.ENDM	UCB$E

	.MACRO	UCB$P	pre
	.PSECT	pre,D
CEADR	= .
	.ENDM	UCB$P

	.MACRO	UNT$DF	unt,ch0,ch1,ch2,ch3,ch4,ch5,ch6,ch7
	.ENDM	UNT$DF

BFPNUM	= 0
PDBNUM	= 0
PNMNUM	= 0
SLTNUM	= -1
CELNG	= 0

	CE$NOD	NOD$CK

	.ENDM	SYS$DF

;
; [End of CEXLIB]