SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    2100  DECLARATIONS

   (1)    4050  EXE$DELPRC - DELETE PROCESS SYSTEM SERVICE

   (1)    7400  DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF P

   (1)   19600  DELPAGE - DELETE PAGE

   (1)   21350  RETURN QUOTAS TO CREATING PROCESS

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   1

03                                                                                                                               (1)



                                     0000    50 

                                     0000   100 	.TITLE	SYSDELPRC - DELETE PROCESS SYSTEM SERVICE

                                     0000   150 	.IDENT	/03/

                                     0000   200 

                                     0000   250 ;

                                     0000   300 ; COPYRIGHT (C) 1977,1978

                                     0000   350 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   400 ;

                                     0000   450 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000   500 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000   550 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000   600 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000   650 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000   700 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000   750 ; REMAIN IN DEC.

                                     0000   800 ;

                                     0000   850 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000   900 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000   950 ; CORPORATION.

                                     0000  1000 ;

                                     0000  1050 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000  1100 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000  1150 

                                     0000  1200 ;++

                                     0000  1250 ; FACILITY: EXECUTIVE, SYSTEM SERVICES

                                     0000  1300 ;

                                     0000  1350 ; ABSTRACT:	SYSDELPRC IMPLEMENTS THE DELETE PROCESS SYSTEM SERVICE

                                     0000  1400 ;	WHICH CAUSES A PROCESS TO BE DELETED FROM THE SYSTEM AFTER

                                     0000  1450 ;	RELEASING ALL OF ITS RESOURCES.

                                     0000  1500 ;

                                     0000  1550 ; ENVIRONMENT:

                                     0000  1600 ;	MODE=KERNEL

                                     0000  1650 ;

                                     0000  1700 ; AUTHOR:	R. I. HUSTVEDT, CREATION DATE: 30-DEC-76

                                     0000  1750 ;

                                     0000  1800 ; MODIFIED BY:

                                     0000  1850 ;

                                     0000  1900 ;	, : VERSION

                                     0000  1950 ; 01	- 

                                     0000  2000 ;--

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   2

03              DECLARATIONS                                                                                                     (1)



                                     0000  2100 	.SBTTL	DECLARATIONS

                                     0000  2150 ;

                                     0000  2200 ; INCLUDE FILES:

                                     0000  2250 ;

                                     0000  2300 

                                     0000  2350 	$ACBDEF				; DEFINE AST CONTROL BLOCK OFFSETS

                                     0000  2400 	$ACCDEF				; DEFINE ACOUNTING MESSAGE OFFSETS

                                     0000  2450 	$IODEF				; DEFINE I/O FUNCTION CODES

                                     0000  2500 	$IPLDEF				; DEFINE INTERRUPT PRIORITY LEVELS

                                     0000  2550 	$MSGDEF				; DEFINE SYSTEM MESSAGE TYPE CODES

                                     0000  2600 	$PCBDEF				; DEFINE PCB OFFSETS

                                     0000  2650 	$PFNDEF				; DEFINE PFN CONSTANTS

                                     0000  2700 	$PHDDEF				; DEFINE PROCESS HEADER OFFSETS

                                     0000  2750 	$PRDEF				; DEFINE PROCESSOR REGISTER NAMES

                                     0000  2800 	$PRIDEF				; DEFINE PRIORITY INCREMENTS

                                     0000  2850 	$PTEDEF				; DEFINE PTE FIELDS

                                     0000  2900 	$PSLDEF				; DEFINE PSL FIELDS AND VALUES

                                     0000  2950 	$RSNDEF				; DEFINE RESOURCE NUMBERS

                                     0000  3000 	$SSDEF				; DEFINE SYSTEM SERVICE STATUS CODES

                                     0000  3050 

                                     0000  3100 ;

                                     0000  3150 ; MACROS:

                                     0000  3200 ;

                                     0000  3250 

                                     0000  3300 ;

                                     0000  3350 ; EQUATED SYMBOLS:

                                     0000  3400 ;

                           0000001C  0000  3450 CPULM=ACB$L_KAST+4			; OFFSET TO CPU LIMIT 

                           00000020  0000  3500 PGFLQUOTA=CPULM+4			; OFFSET TO PAGING FILE QUOTA

                           00000024  0000  3550 FILLM=PGFLQUOTA+4			; OPEN FILE LIMIT

                           00000026  0000  3600 BYTLM=FILLM+2				; BYTE COUNT LIMIT

                           00000028  0000  3650 TQLM=BYTLM+2				; TIMER QUEUE QUOTA

                           0000002A  0000  3700 PRCLM=TQLM+2				; SUB-PROCESS LIMIT

                                     0000  3750 

                                     0000  3800 ;

                                     0000  3850 ; OWN STORAGE:

                                     0000  3900 ;

                                     0000  3950 

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   3

03              EXE$DELPRC - DELETE PROCESS SYSTEM SERVICE                                                                       (1)



                                     0000  4050 	.SBTTL	EXE$DELPRC - DELETE PROCESS SYSTEM SERVICE

                                     0000  4100 ;++

                                     0000  4150 ; FUNCTIONAL DESCRIPTION:

                                     0000  4200 ;	EXE$DELPRC IMPLEMENTS THE DELETE PROCESS SYSTEM SERVICE WHICH CAUSES

                                     0000  4250 ;	A PROCESS TO BE DELETED FROM THE SYSTEM.  IF THE SPECIFIED

                                     0000  4300 ;	PROCESS EXISTS, A SPECIAL KERNEL AST IS QUEUED FOR IT TO

                                     0000  4350 ;	PERFORM THE DELETION PROCESSING IN THE CONTEXT OF THE TARGET

                                     0000  4400 ;	PROCESS.  A PROCESS THEREFORE DELETES ITSELF.

                                     0000  4450 ;

                                     0000  4500 ; CALLING SEQUENCE:

                                     0000  4550 ;	CALLG	ARGLIST,EXE$DELPRC

                                     0000  4600 ;

                                     0000  4650 ; INPUT PARAMETERS:

                                     0000  4700 ;	PIDADR(AP)  - ADDRESS OF THE PROCESS IDENTIFICATION OF THE

                                     0000  4750 ;		      PROCESS TO BE DELETED.

                                     0000  4800 ;	PRCNAM(AP) - ADDRESS OF STRING DESCRIPTOR FOR PROCESS LOGICAL NAME 

                                     0000  4850 ;		      STRING.

                                     0000  4900 ;	R4 - PCB ADDRESS OF CURRENT PROCESS

                                     0000  4950 ;

                                     0000  5000 ; IMPLICIT INPUTS:

                                     0000  5050 ;	CURRENT PROCESS PCB AND PHD

                                     0000  5100 ;	PCB OF TARGET PROCESS

                                     0000  5150 ;

                                     0000  5200 ; OUTPUT PARAMETERS:

                                     0000  5250 ;	R0 - COMPLETION STATUS CODE

                                     0000  5300 ;	@PIDADR(AP) - PROCESS IDENTIFICATION OF DELETED PROCESS

                                     0000  5350 ;

                                     0000  5400 ; IMPLICIT OUTPUTS:

                                     0000  5450 ;	NONE

                                     0000  5500 ;

                                     0000  5550 ; COMPLETION CODES:

                                     0000  5600 ;	SS$_NORMAL   -   SUCCESSFUL COMPLETION 

                                     0000  5650 ;	SS$_NONEXPR  -   NONEXISTENT PROCESS

                                     0000  5700 ;	SS$_NOPRIV   -   NO PRIVILEGE, TARGET PROCESS IS NOT A SUBPROCESS

                                     0000  5750 ;			 AND ISSUING PROCESS DOES NOT HAVE PROCESS CONTROL

                                     0000  5800 ;			 PRIVILEGE FOR GROUP OR WORLD.

                                     0000  5850 ;	SS$_INSFMEM  -	 INSUFFICIENT DYNAMIC MEMORY AVAILABLE FOR SERVICE

                                     0000  5900 ;			 AND RESOURCE WAIT MODE DISABLED.

                                     0000  5950 ;

                                     0000  6000 ; SIDE EFFECTS:

                                     0000  6050 ;	A SPECIAL KERNEL AST WILL BE ENQUEUED FOR THE PROCESS TO BE

                                     0000  6100 ;	DELETED WHICH MAY CAUSE RESCHEDULING TO OCCUR.

                                     0000  6150 ;

                                     0000  6200 ;--

                                     0000  6250 

                                     0000  6300 

                               00FC' 0000  6350 	.ENTRY	EXE$DELPRC,^M<R2,R3,R4,R5,R6,R7>	; SAVE R2-R7

                          FFFB'  30  0002  6400 	BSBW	EXE$NAMPID		; CONVERT NAME/PID TO PCB ADDRESS

            31            50     E9  0005  6450 	BLBC	R0,RETURN		; EXIT IF ERROR

         28 A4            01     E2  0008  6500 	BBSS	#PCB$V_DELPEN,PCB$L_STS(R4),RETN	; DONE IF MARKED FOR DELETE

                          29         000C       

                                     000D  6550 	SETIPL	#0			; DROP IPL BEFORE ALLOCATE REQUEST

                          51     DD  0010  6600 	PUSHL	R1			; AND SAVE PID OF TARGET PROCESS

                                     0012  6650 	$RESUME_G	(AP)		; RESUME PROCESS

                          FFE4'  30  0019  6700 	BSBW	EXE$ALLOCIRP		; ALLOCATE AST PACKET

            1A            50     E9  001C  6750 	BLBC	R0,RETURN		; RETURN ERROR IF NONE

            55            52     D0  001F  6800 	MOVL	R2,R5			; SET ADDRESS FOR ENQUEUE

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   4

03              EXE$DELPRC - DELETE PROCESS SYSTEM SERVICE                                                                       (1)



         18 A5         3E'AF     9E  0022  6850 	MOVAB	B^DELETE,ACB$L_KAST(R5)	; SET ADDRESS FOR DELETE ACTION

         0B A5         80 8F     90  0027  6900 	MOVB	#<1@ACB$V_KAST>,ACB$B_RMOD(R5)	; MARK AS KERNEL MODE AST

         0C A5            8E     D0  002C  6950 	MOVL	(SP)+,ACB$L_PID(R5)	; SET PID OF TARGET

            52            02     9A  0030  7000 	MOVZBL	#PRI$_RESAVL,R2		; SET PRIORITY INCREMENT

                          FFCA'  30  0033  7050 	BSBW	SCH$QAST		; AND QUEUE AST FOR PROCESS

            50            01     3C  0036  7100 RETN:	MOVZWL	#SS$_NORMAL,R0		; SET NORMAL STATUS

                                     0039  7150 RETURN:	

                                     0039  7200 	SETIPL	#0			; ENABLE

                                 04  003C  7250 	RET				; AND RETURN

                                     003D  7300 

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   5

03              DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF P                                                                  (1)



                                     003D  7400 	.SBTTL	DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF PROCESS

                                     003D  7450 ;++

                                     003D  7500 ; FUNCTIONAL DESCRIPTION: DELETE EXECUTES AS THE RESULT OF A KERNEL

                                     003D  7550 ;	AST INITIATED BY THE DELETE PROCESS SYSTEM SERVICE.  IT PERFORMS

                                     003D  7600 ;	THE ACTIONS NECESSARY TO DELETE A PROCESS AND RETURN ITS RESOURCES.

                                     003D  7650 ;	TERMINATION MESSAGES ARE SENT TO THE TERMINATION MAILBOX UNIT

                                     003D  7700 ;	SPECIFIED WHEN THE PROCESS WAS CREATED AND TO THE SYMBIONT

                                     003D  7750 ;	MANAGER IF ACCOUNTING IS NOT DISABLED FOR THIS PROCESS.

                                     003D  7800 ;

                                     003D  7850 ; CALLING SEQUENCE:

                                     003D  7900 ;	SETIPL	#IPL$_ASTDEL

                                     003D  7950 ;	JSB	DELETE

                                     003D  8000 ;

                                     003D  8050 ; INPUT PARAMETERS:

                                     003D  8100 ;	R4 - PCB ADDRESS

                                     003D  8150 ;	R5 - AST CONTROL BLOCK ADDRESS

                                     003D  8200 ;

                                     003D  8250 ; OUTPUT PARAMETERS:

                                     003D  8300 ;	NONE

                                     003D  8350 ;

                                     003D  8400 ; IMPLICIT INPUTS:

                                     003D  8450 ;	PCB OF CURRENT PROCESS (LOCATED VIA SCH$GL_CURPCB)

                                     003D  8500 ;	PHD OF CURRENT PROCESS

                                     003D  8550 ;

                                     003D  8600 ; IMPLICIT OUTPUTS:

                                     003D  8650 ;	NONE

                                     003D  8700 ;

                                     003D  8750 ; SIDE EFFECTS:

                                     003D  8800 ;	NONE

                                     003D  8850 ;--

                                     003D  8900 

                                 02  003D  8950 DOREI:	REI				; FOR OUTWARD MODE CHANGE

                                     003E  9000 

                                     003E  9050 DELETE:					; PERFORM DELETE OPERATIONS

            50            55     D0  003E  9100 	MOVL	R5,R0			; SET ADDRESS FOR ACB RELEASE

                          FFBC'  30  0041  9150 	BSBW	EXE$DEANONPAGED		; DEALLOCATE AST CONTROL BLOCK

                                     0044  9200 

                          FFB9'  30  0044  9250 	BSBW	SCH$NEWLVL		; COMPUTE NEW AST LEVEL

                                     0047  9300 	SETIPL	#0			; AND DROP IPL

         28 A4            0A     E5  004A  9350 	BBCC	#PCB$V_SSRWAIT,PCB$L_STS(R4),10$	; ENABLE RESOURCE WAIT

                          00         004E       

            5E         80 AE     9E  004F  9400 10$:	MOVAB	-128(SP),SP		; ALLOCATE STRING BUFFER

            6E         80 8F     9A  0053  9450 20$:	MOVZBL	#128,(SP)		; SET COUNT FOR STRING BUFFER

         04 AE         08 AE     DE  0057  9500 	MOVAL	8(SP),4(SP)		; FORM ADDRESS PART OF DESCRIPTOR

                          02     DD  005C  9550 	PUSHL	#2			; LAST CHANCE RMS CLEANUP

                       04 AE     9F  005E  9600 	PUSHAB	4(SP)			; SET ADDRESS OF STRING BUFFER	

   00000000'9F            02     FB  0061  9650 	CALLS	#2,@#SYS$RMSRUNDWN	; DEFAULT CLOSE OF OPEN RMS FILES

            E8            50     E9  0068  9700 	BLBC	R0,20$			; REPEAT IF MORE TO CLOSE

                                     006B  9750 

                                     006B  9800 ;

                                     006B  9850 ;	FIND AND DELETE ALL SUB-PROCESSES

                                     006B  9900 ;

                                     006B  9950 ;--------------------------------------------------------------------

                                     006B 10000 

                                     006B 10050 SUBDELETE:				; DELETE SUB-PROCESSES

                       6A A4     B5  006B 10100 	TSTW	PCB$W_PRCCNT(R4)	; ANY SUB-PROCESSES?

                          42     13  006E 10150 	BEQL	50$			; NO, CONTINUE

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   6

03              DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF P                                                                  (1)



            56   00000000'EF     3C  0070 10200 	MOVZWL	SCH$GL_MAXPIX,R6	; INITIALIZE INDEX FOR PROCESS SCAN

            53       0000'DF46   D0  0077 10250 10$:	MOVL	@W^SCH$GL_PCBVEC[R6],R3	; GET A PCB ADDRESS

         1C A3         60 A4     D1  007D 10300 	CMPL	PCB$L_PID(R4),PCB$L_OWNER(R3)	; DO WE OWN IT

                          13     12  0082 10350 	BNEQ	20$			; NO, TRY ANOTHER

                                     0084 10400 	$DELPRC_S	PCB$L_PID(R3)	; MARK IT FOR DELETE

            04            50     E8  0090 10450 	BLBS	R0,20$			; CONTINUE IF SUCCESSFUL

                                     0093 10500 	BUG_CHECK	DELSUBFLT,FATAL	; BUGCHK IF UNABLE TO DELETE SUB-PROCESS

            DD            56     F5  0097 10550 20$:	SOBGTR	R6,10$			; CONTINUE

                          7E     DC  009A 10600 30$:	MOVPSL	-(SP)			; SAVE PSL

                                     009C 10650 	DSBINT	#IPL$_SYNCH,R6		; BLOCK SYSTEM EVENTS, SAVE IPL IN R6

                       6A A4     B5  00A2 10700 	TSTW	PCB$W_PRCCNT(R4)	; CHECK COUNT OF SUB-PROCESSES STILL RUNNING

                          08     13  00A5 10750 	BEQL	40$			; DONE

            50            01     3C  00A7 10800 	MOVZWL	#RSN$_ASTWAIT,R0	; SET RESOURCE NUMBER

                          FF53'  30  00AA 10850 	BSBW	SCH$RWAIT		; AND WAIT FOR AN AST

                          EB     11  00AD 10900 	BRB	30$			; CHECK AGAIN WHEN AWAKENED

                                     00AF 10950 40$:	SETIPL	R6			; RESTORE IPL

                                     00B2 11000 50$:					; DONE, ALL SUB-PROCESSES DELETED

                                     00B2 11050 

                                     00B2 11100 ;--------------------------------------------------------------------

                                     00B2 11150 ;

                                     00B2 11200 ;	SEND REMAINING QUOTAS TO OWNER IF SUB-PROCESS

                                     00B2 11250 ;

                                     00B2 11300 ;--------------------------------------------------------------------

                                     00B2 11350 RELQUOTA:				; RELEASE QUOTAS

                       6C A4     94  00B2 11400 	CLRB	PCB$T_LNAME(R4)		; REMOVE PROCESS NAME

            56         1C A4     D0  00B5 11450 	MOVL	PCB$L_OWNER(R4),R6	; GET PID OF OWNER

                          61     13  00B9 11500 	BEQL	TERMMSG			; NONE, SEND TERMINATION MESSAGE

                          54     DD  00BB 11550 	PUSHL	R4			; SAVE PCB ADDRESS

            56            56     3C  00BD 11600 	MOVZWL	R6,R6			; EXTRACT PIX FROM OWNER PID

            54       0000'DF46   D0  00C0 11650 	MOVL	@W^SCH$GL_PCBVEC[R6],R4	; AND GET PCB

                       6A A4     B7  00C6 11700 	DECW	PCB$W_PRCCNT(R4)	; DECREMENT COUNT OF SUB-PROCESSES

                          FF34'  30  00C9 11750 	BSBW	EXE$ALLOCIRP		; ALLOCATE AST CONTROL BLOCK

            48            50     E9  00CC 11800 	BLBC	R0,20$			; SKIP QUOTA RETURN IF ERROR

            55            52     D0  00CF 11850 	MOVL	R2,R5			; SET ADDRESS OF QUOTA AST BLOCK

         18 A5       02E7'CF     9E  00D2 11900 	MOVAB	W^RETQUOTA,ACB$L_KAST(R5)	; SET AST ADDRESS FOR SPECIAL

                                     00D8 11950 					; KERNEL AST TO RETURN QUOTAS

         0B A5         80 8F     90  00D8 12000 	MOVB	#<1@ACB$V_KAST>,ACB$B_RMOD(R5)	; FLAG AS SPECIAL KERNEL AST

         0C A5         60 A4     D0  00DD 12050 	MOVL	PCB$L_PID(R4),ACB$L_PID(R5)	; SET TARGET PID FOR AST

            52            6E     D0  00E2 12100 	MOVL	(SP),R2			; GET PCB ADDRESS FOR PROCESS BEING DELETED

            51   00000000'9F     D0  00E5 12150 	MOVL	@#CTL$GL_PHD,R1		; GET PROCESS HEADER ADDRESS

         1C A5         58 A1     D0  00EC 12200 	MOVL	PHD$L_CPULIM(R1),CPULM(R5)	; SAVE CPULIMIT

                          05     13  00F1 12250 	BEQL	10$			; BR IF NO LIMIT

         1C A5         3C A1     C2  00F3 12300 	SUBL	PHD$L_CPUTIM(R1),CPULM(R5)	; SUBTRACT PORTION USED

         24 A5         60 A1     B0  00F8 12350 10$:	MOVW	PHD$W_FILLM(R1),FILLM(R5)	; OPEN FILE LIMIT

         28 A5         62 A1     B0  00FD 12400 	MOVW	PHD$W_TQLM(R1),TQLM(R5)	; TIMER QUEUE QUOTA

         2A A5         42 A1     B0  0102 12450 	MOVW	PHD$W_PRCLM(R1),PRCLM(R5)	; SUB-PROCESS LIMIT

         26 A5         68 A2     B0  0107 12500 	MOVW	PCB$W_BYTLM(R2),BYTLM(R5)	; BYTE COUNT LIMIT

         20 A5         5C A1     D0  010C 12550 	MOVL	PHD$L_PGFLQUOTA(R1),PGFLQUOTA(R5) ; PAGING FILE QUOTA

            52            02     3C  0111 12600 	MOVZWL	#PRI$_RESAVL,R2		; SET PRIORITY INCREMENT CLASS

                          FEE9'  30  0114 12650 	BSBW	SCH$QAST		; QUEUE AST FOR CREATOR

                          10     BA  0117 12700 20$:	POPR	#^M<R4>			; RESTORE PCB ADDRESS

                                     0119 12750 	SETIPL	#0			; DROP IPL TO ISSUE SYSTEM SERVICE REQUESTS

                                     011C 12800 

                                     011C 12850 ;---------------------------------------------------------------------

                                     011C 12900 ;

                                     011C 12950 ;	BUILD TERMINATION MESSAGES AND SEND TO JBC AND TERMINATION 

                                     011C 13000 ;	MAILBOX UNIT.

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   7

03              DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF P                                                                  (1)



                                     011C 13050 ;

                                     011C 13100 ;---------------------------------------------------------------------

                                     011C 13150 

                                     011C 13200 TERMMSG:				; SEND TERMINATION MESSAGES

                       1C A4     DD  011C 13250 	PUSHL	PCB$L_OWNER(R4)		; PID OF SUBPROCESS OWNER (0 => NONE)

            55   00000000'9F     D0  011F 13300 	MOVL	@#CTL$GL_PHD,R5		; GET PROCESS HEADER ADDRESS

            7E   00000000'9F     7D  0126 13350 	MOVQ	@#CTL$GQ_LOGIN,-(SP)	; LOGIN TIME

                                     012D 13400 	ASSUME	ACC$L_OWNER EQ ACC$Q_LOGIN+8

                 00000000'9F     DD  012D 13450 	PUSHL	@#CTL$GL_VOLUMES	; COUNT OF MOUNTED VOLUMES

                                     0133 13500 	ASSUME	ACC$Q_LOGIN EQ ACC$L_VOLUMES+4

                       50 A5     DD  0133 13550 	PUSHL	PHD$L_DIOCNT(R5)	; DIRECT I/O COUNT

                                     0136 13600 	ASSUME	ACC$L_VOLUMES EQ ACC$L_DIOCNT+4

                       54 A5     DD  0136 13650 	PUSHL	PHD$L_BIOCNT(R5)	; BUFFERED I/O COUNT

                                     0139 13700 	ASSUME	ACC$L_DIOCNT EQ ACC$L_BIOCNT+4

                 00000000'9F     DD  0139 13750 	PUSHL	@#CTL$GL_WSPEAK		; PEAK WORKING SET SIZE

                                     013F 13800 	ASSUME	ACC$L_BIOCNT EQ ACC$L_WSPEAK+4

                          00     DD  013F 13850 	PUSHL	#0			; PEAK PAGING FILE USAGE

                                     0141 13900 	ASSUME	ACC$L_WSPEAK EQ ACC$L_PGFLPEAK+4

                       4C A5     DD  0141 13950 	PUSHL	PHD$L_PAGEFLTS(R5)	; TOTAL PROCESS PAGE FAULTS

                                     0144 14000 	ASSUME	ACC$L_PGFLPEAK EQ ACC$L_PAGEFLTS+4

                       3C A5     DD  0144 14050 	PUSHL	PHD$L_CPUTIM(R5)	; SAVE ACCUMULATED CPU TIME FOR PROCESS

                                     0147 14100 	ASSUME	ACC$L_PAGEFLTS EQ ACC$L_CPUTIM+4

            50   0000000C'9F     9E  0147 14150 	MOVAB	@#CTL$T_USERNAME+12,R0	; GET BASE ADDRESS

            7E            70     7D  014E 14200 	MOVQ	-(R0),-(SP)		; LAST HALF OF USER NAME

                          70     DD  0151 14250 	PUSHL	-(R0)			; FIRST LONGWORD OF USER NAME

            50       0000'C0     9E  0153 14300 	MOVAB	W^<CTL$T_ACCOUNT-CTL$T_USERNAME>(R0),R0 ; POINT PAST ACCOUNT

                                     0158 14350 	ASSUME	ACC$L_CPUTIM EQ ACC$T_USERNAME+12

            7E            60     7D  0158 14400 	MOVQ	(R0),-(SP)		; SET ACCOUNT INTO RECORD

                                     015B 14450 	ASSUME	ACC$T_USERNAME EQ ACC$T_ACCOUNT+8

            7E   00000000'EF     7D  015B 14500 	MOVQ	EXE$GQ_SYSTIME,-(SP)	; LOGOUT TIME

                                     0162 14550 	ASSUME	ACC$T_ACCOUNT EQ ACC$Q_TERMTIME+8

                          00     DD  0162 14600 	PUSHL	#0			; JOBID

                                     0164 14650 	ASSUME	ACC$Q_TERMTIME EQ ACC$L_JOBID+4

                       60 A4     DD  0164 14700 	PUSHL	PCB$L_PID(R4)		; PROCESS ID

                                     0167 14750 	ASSUME	ACC$L_JOBID EQ ACC$L_PID+4

                                     0167 14800 	

                 00000000'9F     DD  0167 14850 	PUSHL	@#CTL$GL_FINALSTS	; FINAL STATUS OF PROCESS

                                     016D 14900 	ASSUME	ACC$L_PID EQ ACC$L_FINALSTS+4

                          03     DD  016D 14950 	PUSHL	#MSG$_DELPROC		; MESSAGE TYPE

                                     016F 15000 	ASSUME	ACC$L_FINALSTS EQ ACC$W_MSGTYP+4

            57            5E     D0  016F 15050 	MOVL	SP,R7			; SAVE POINTER TO MESSAGE

            50         36 A4     3C  0172 15100 	MOVZWL	PCB$W_TMBU(R4),R0	; GET TERMINATION MAILBOX UNIT

                          62     13  0176 15150 	BEQL	20$			; NONE, CHECK FOR JBC MESSAGE

   7E   3A303030 3030424D 8F     7D  0178 15200 	MOVQ	#^A/MB00000:/,-(SP)	; SKELETON FOR DEVICE STRING

                          51     D4  0183 15250 	CLRL	R1			; INIT FOR EDIV

            53         07 AE     9E  0185 15300 	MOVAB	7(SP),R3		; POINTER TO LSD OF DEVICE NAME

            50            0A     7B  0189 15350 10$:	EDIV	#10,R0,R0,R2		; CONVERT A DECIMAL DIGIT

            52            50         018C       

            73            52     80  018E 15400 	ADDB	R2,-(R3)		; SET DIGIT INTO NAME STRING IN ASCII

                          50     D5  0191 15450 	TSTL	R0			; CHECK FOR END

                          F4     12  0193 15500 	BNEQ	10$			; NOT YET, CONVERT ANOTHER DIGIT

                          5E     DD  0195 15550 	PUSHL	SP			; BUILD STRING DESCRIPTOR FOR 

                          08     DD  0197 15600 	PUSHL	#8			; DEVICE NAME

            58            5E     D0  0199 15650 	MOVL	SP,R8			; AND SAVE POINTER TO NAME

            59            7E     DE  019C 15700 	MOVAL	-(SP),R9		; RESERVE SPACE FOR CHANNEL

                                     019F 15750 	$ASSIGN_S	DEVNAM=(R8),-	; ATTEMPT TO ASSIGN TO TERMINATION

                                     019F 15800 			CHAN=(R9)	; MAILBOX

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   8

03              DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF P                                                                  (1)



            2B            50     E9  01AC 15850 	BLBC	R0,20$			; UNABLE TO ASSIGN, IGNORE

                                     01AF 15900 	$QIO_S		CHAN=(R9),-	; SEND TERMINATION MESSAGE

                                     01AF 15950 			FUNC=#<IO$_WRITEVBLK!IO$M_NOW>,-	;

                                     01AF 16000 			P1=(R7),-	; BUFFER ADDRESS

                                     01AF 16050 			P2=#ACC$C_TERMLEN; AND MESSAGE SIZE

                                     01D0 16100 	$DASSGN_S	CHAN=(R9)	; DEASSIGN CHANNEL

                                     01DA 16150 20$:					; SEND MESSAGE TO JOB CONTROLLER

         28 A4            0F     E0  01DA 16200 	BBS	#PCB$V_NOACNT,PCB$L_STS(R4),RUNDWN	; SKIP IF NO ACCOUNT

                          16         01DE       

                          54     DD  01DF 16250 	PUSHL	R4			; SAVE PCB ADDRESS

            54            57     D0  01E1 16300 	MOVL	R7,R4			; SET ADDRESS OF MESSAGE

            53       0054 8F     3C  01E4 16350 	MOVZWL	#ACC$C_TERMLEN,R3	; SET MESSAGE SIZE

            55   00000000'EF     DE  01E9 16400 	MOVAL	SYS$GL_JOBCTLMB,R5	; AND UCB ADDRESS FOR MAILBOX

                          FE0D'  30  01F0 16450 	BSBW	EXE$WRTMAILBOX		; SEND MESSAGE TO JOB CONTROLLER

                          10     BA  01F3 16500 	POPR	#^M<R4>			; RESTORE PCB ADDRESS

                                     01F5 16550 

                                     01F5 16600 ;---------------------------------------------------------------------

                                     01F5 16650 ;

                                     01F5 16700 ;	RUNDOWN PROCESS ACTIVITY

                                     01F5 16750 ;

                                     01F5 16800 ;---------------------------------------------------------------------

                                     01F5 16850 RUNDWN:					; RUNDOWN PROCESS ACTIVITY

                          00     DD  01F5 16900 	PUSHL	#0			; SET MODE FOR RUNDOWN

   00000000'EF            01     FB  01F7 16950 	CALLS	#1,SYS$RUNDWN		; RUNDOWN AT KERNEL MODE

            56   00000000'FF     0F  01FE 17000 10$:	REMQUE	@CTL$GQ_MOUNTLST,R6	; GET A VOLUME TO BE DISMOUNTED

                          07     1D  0205 17050 	BVS	20$			; NONE, FINISHED WITH DISMOUNT LIST

                          53     D4  0207 17100 	CLRL	R3			; UNLOAD UPON DISMOUNT

                          FDF4'  30  0209 17150 	BSBW	IOC$DISMOUNT		; DISMOUNT IT

                          F0     11  020C 17200 	BRB	10$			; AND TRY FOR ANOTHER

                                     020E 17250 20$:					;

                                     020E 17275 	$DALLOC_S	ACMODE=#0	; DEALLOCATE ALL

         46 A4         44 A4     B1  0219 17300 	CMPW	PCB$W_DIOCNT(R4),PCB$W_DIOLM(R4)	; WAIT FOR DIRECT I/O COMPLETION

                          EE     12  021E 17350 	BNEQ	20$			;

         40 A4         3E A4     B1  0220 17400 30$:	CMPW	PCB$W_BIOCNT(R4),PCB$W_BIOLM(R4)	; AND BUFFERED I/O

                          F9     12  0225 17450 	BNEQ	30$			;

            5E            10     C2  0227 17500 	SUBL	#16,SP			; 4 LONGWORDS OF STORAGE

            52            5E     D0  022A 17550 	MOVL	SP,R2			; SAVE BASE

            62   40000000 8F     D0  022D 17600 	MOVL	#<1@30>,(R2)		; SET STARTVA

         04 A2   7FFFFFFF 8F     D0  0234 17650 	MOVL	#<<1@31>-1>,4(R2)	; END AT VECTOR PAGE

                                     023C 17700 	$DELTVA_S	(R2),8(R2)	; DELETE FROM KERNEL STACK TO VECTORS

                                     024A 17750 

                                     024A 17800 	SETIPL	#IPL$_SYNCH		; BLOCK SYSTEM EVENTS

                                 07  024D 17850 	SVPCTX				; SAVE PROCESS CONTEXT

                                     024E 17900 					; AND GO TO INTERRUPT STACK

            55         64 A4     D0  024E 17950 	MOVL	PCB$L_PHD(R4),R5	; GET PROCESS HEADER ADDRESS

            5A         46 A5     3C  0252 18000 	MOVZWL	PHD$W_PHVINDEX(R5),R10	; GET BALANCE SLOT INDEX

            53       0000'CF     9E  0256 18050 	MOVAB	W^SCH$GL_NULLPCB,R3	; GET POINT TO NULL PROCESS PCB

       0000'CF            53     D0  025B 18100 	MOVL	R3,W^SCH$GL_CURPCB	; SET AS CURRENT PCB

            51       0000'DF4A   3C  0260 18150 	MOVZWL	@W^PHV$GL_PIXBAS[R10],R1	; GET PROCESS INDEX

       0000'DF41          53     D0  0266 18200 	MOVL	R3,@W^SCH$GL_PCBVEC[R1]	; RELEASE PROCESS INDEX SLOT

            59         0C A5     3C  026C 18250 	MOVZWL	PHD$W_WSLOCK(R5),R9	; POINT TO FIRST NON PERM PAGE

                          6549   D4  0270 18300 	CLRL	(R5)[R9]		; MARK WITH A ZERO

            58         08 A5     3C  0273 18350 	MOVZWL	PHD$W_WSLIST(R5),R8	; LONGWORD INDEX TO START OF WORKING SET LIST

            58            6548   DE  0277 18400 	MOVAL	(R5)[R8],R8		; FORM BYTE ADDRESS OF START OF WSLIST

            52            88     D0  027B 18450 40$:	MOVL	(R8)+,R2		; GET VA OF PERM PAGE

                          09     13  027E 18500 	BEQL	60$			; DONE, NONE LEFT

            F8            52     E9  0280 18550 	BLBC	R2,40$			; IGNORE IF NOT VALID

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page   9

03              DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF P                                                                  (1)



                          F6     19  0283 18600 	BLSS	40$			; OR IF HEADER PAGES (SYSTEM ADDRESS)

                          34     10  0285 18650 	BSBB	DELPAGE			; DELETE PAGE

                          F2     11  0287 18700 	BRB	40$			; CONTINUE

                                     0289 18750 

            50         10 B4     0F  0289 18800 60$:	REMQUE	@PCB$L_ASTQFL(R4),R0	; REMOVE PENDING AST CONTROL BLOCKS

                          05     1D  028D 18850 	BVS	70$			; NONE LEFT

                          FD6E'  30  028F 18900 	BSBW	EXE$DEANONPAGED		; DEALLOCATE SPACE

                          F5     11  0292 18950 	BRB	60$			; AND CONTINUE

            52         24 A4     D0  0294 19000 70$:	MOVL	PCB$L_WSSWP(R4),R2	; GET SWAPFILE SLOT FOR RELEASE

                          03     13  0298 19050 	BEQL	80$			; NONE, CONTINUE

                          FD63'  30  029A 19100 	BSBW	SWP$DALLOC		; YES, DEALLOCATE IT

            50            54     D0  029D 19150 80$:	MOVL	R4,R0			; SET ADDRESS OF PCB FOR RELEASE

                          FD5D'  30  02A0 19200 	BSBW	EXE$DEANONPAGED		; AND DELETE IT

                     0000'CF     B7  02A3 19250 	DECW	W^SWP$GW_BALCNT		; DECREASE COUNT IN BALANCE SET

                          FD56'  30  02A7 19300 	BSBW	SCH$SWPWAKE		; WAKE SWAPPER

       0000'DF4A          00     B2  02AA 19350 	MCOMW	#0,@W^PHV$GL_PIXBAS[R10]	; INDICATE PROCESS HEADER TO BE DELETED

                     0000'CF     B6  02B0 19400 	INCW	W^SCH$GW_DELPHDCT	; FLAG SWAPPER'S ATTENTION

                     0000'CF     B7  02B4 19450 	DECW	W^SCH$GW_PROCCNT	; ONE LESS PROCESS NOW

                          FD45'  31  02B8 19500 	BRW	SCH$SCHED		; AND SCHEDULE FOR ANOTHER PROCESS

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  10

03              DELPAGE - DELETE PAGE                                                                                            (1)



                                     02BB 19600 	.SBTTL	DELPAGE - DELETE PAGE

                                     02BB 19650 ;++

                                     02BB 19700 ; FUNCTIONAL DESCRIPTION:

                                     02BB 19750 ;	DELPAGE DELETES THE CONTENTS OF THE SPECIFIED PAGE AND PLACES

                                     02BB 19800 ;	 THE PFN ON THE FREE PAGE LIST.

                                     02BB 19850 ;

                                     02BB 19900 ; CALLING SEQUENCE:

                                     02BB 19950 ;	BSB	DELPAGE

                                     02BB 20000 ;

                                     02BB 20050 ; INPUT PARAMETERS:

                                     02BB 20100 ;	R2 - VIRTUAL ADDRESS OF PAGE TO RELEASE

                                     02BB 20150 ;	R4 - PCB ADDRESS OF PROCESS OWNING PAGE

                                     02BB 20200 ;	R5 - PROCESS HEADER ADDRESS OF PROCESS OWNING PAGE

                                     02BB 20250 ;

                                     02BB 20300 ; OUTPUT PARAMETERS:

                                     02BB 20350 ; 	NONE

                                     02BB 20400 ;

                                     02BB 20450 ;--

                                     02BB 20500 

                                     02BB 20550 DELPAGE:				; DELETE PAGE

                          FD42'  30  02BB 20600 	BSBW	MMG$SVAPTECHK		; GET SVA OF PTE FOR PAGE

            63            1F     E5  02BE 20650 	BBCC	#PTE$V_VALID,(R3),50$	; EXIT IF NOT VALID

                          24         02C1       

            63            1A     E5  02C2 20700 	BBCC	#PTE$V_MODIFY,(R3),10$	; CLEAR MODIFY INDICATOR

                          00         02C5       

            15            00     EF  02C6 20750 10$:	EXTZV	#0,#PTE$S_PFN,(R3),R0	; GET PFN FROM PTE

            50            63         02C9       

                                     02CB 20800 	DECREF				; DROP REFERENCE COUNT ON PAGE

                          0F     14  02D5 20850 	BGTR	50$			; BR IF CANT RELEASE YET

       0000'DF40       80 8F     8A  02D7 20900 	BICB	#PFN$M_MODIFY,@W^PFN$AB_STATE[R0] ; MAKE SURE NO MODIFY BIT

                          FD1F'  30  02DE 20950 20$:	BSBW	MMG$DELCONPFN		; DELETE CONTENT OF PFN

                                     02E1 21000 	ASSUME	PFN$C_FREPAGLST EQ 0	;

                          52     D4  02E1 21050 	CLRL	R2			; INDICATE FREE LIST

                          FD1A'  30  02E3 21100 	BSBW	MMG$INSPFNH		; INSERT AT HEAD OF FREE LIST

                                 05  02E6 21150 50$:	RSB				;

                                     02E7 21200 

                                     02E7 21250 

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  11

03              RETURN QUOTAS TO CREATING PROCESS                                                                                (1)



                                     02E7 21350 	.SBTTL	RETURN QUOTAS TO CREATING PROCESS

                                     02E7 21400 ;----------------------------------------------------------------------------

                                     02E7 21450 ;

                                     02E7 21500 ;		RETURN QUOTAS TO CREATING PROCESS

                                     02E7 21550 ;

                                     02E7 21600 ;----------------------------------------------------------------------------

                                     02E7 21650 

                                     02E7 21700 ;++

                                     02E7 21750 ; FUNCTIONAL DESCRIPTION:

                                     02E7 21800 ;	RETQUOTA IS ENTERED VIA A SPECIAL KERNEL AST DIRECTED TO THE

                                     02E7 21850 ;	CREATOR OF A SUB-PROCESS.  THE AST CONTROL BLOCK CONTAINS THE

                                     02E7 21900 ;	UNUSED QUOTAS TO BE RETURNED TO THE CREATOR.

                                     02E7 21950 ;

                                     02E7 22000 ; INPUT PARAMETERS:

                                     02E7 22050 ;	R4 - PCB ADDRESS OF CURRENT PROCESS

                                     02E7 22100 ;	R5 - POINTER TO AST CONTROL BLOCK

                                     02E7 22150 ;	BYTCNT(R5) - BUFFERED I/O BYTE COUNT QUOTA

                                     02E7 22200 ;	CPULIM(R5) - CPU TIME LIMIT REMAINING

                                     02E7 22250 ;	FILLM(R5)  - OPEN FILE QUOTA

                                     02E7 22300 ;	PRCLM(R5)  - SUB-PROCESS QUOTA

                                     02E7 22350 ;	TQLM(R5)   - TIMER QUEUE ENTRY QUOTA

                                     02E7 22400 ;	PGFLQUOTA(R5) - PAGING FILE QUOTA

                                     02E7 22450 ;

                                     02E7 22500 ; OUTPUT PARAMETERS:

                                     02E7 22550 ;	PHD$L_CPUTIM, PHD$L_CPULIM, PHD$W_FILLM, PHD$W_PRCLM, PHD$W_TQLM,

                                     02E7 22600 ;	PHD$L_PGFLQUOTA AND PCB$W_BYTLM HAVE THE CORRESPONDING REMAINING

                                     02E7 22650 ;	QUOTA VALUES ADDED TO THEM.

                                     02E7 22700 ;

                                     02E7 22750 ; SIDE EFFECTS:

                                     02E7 22800 ;	THE AST CONTROL BLOCK LOCATED VIA R5 IS RELEASED TO THE NON-PAGED

                                     02E7 22850 ;	DYNAMIC MEMORY POOL.

                                     02E7 22900 ;

                                     02E7 22950 ; ENVIRONMENT:

                                     02E7 23000 ;	IPL$_ASTDEL  -  AST DELIVERY IPL WHILE CARRYING POINTER TO 

                                     02E7 23050 ;			AST CONTROL BLOCK.

                                     02E7 23100 ;

                                     02E7 23150 ;--

                                     02E7 23200 RETQUOTA:				;

            51   00000000'9F     D0  02E7 23250 	MOVL	@#CTL$GL_PHD,R1		; GET SAFE POINTER TO PROCESS HEADER

                       58 A1     D5  02EE 23300 	TSTL	PHD$L_CPULIM(R1)	; CHECK FOR NO QUOTA

                          05     13  02F1 23350 	BEQL	10$			; YES SKIP RETURN OF CPU QUOTA

         58 A1         1C A5     C0  02F3 23400 	ADDL	CPULM(R5),PHD$L_CPULIM(R1)	; RETURN CPU TIME QUOTA

         5C A1         20 A5     C0  02F8 23450 10$:	ADDL	PGFLQUOTA(R5),PHD$L_PGFLQUOTA(R1)	; RETURN PAGING FILE QUOTA

         34 A1         20 A5     C0  02FD 23500 	ADDL	PGFLQUOTA(R5),PHD$L_PGFLCNT(R1)	; TO BOTH LIMIT AND COUNT

         68 A4         26 A5     A0  0302 23550 	ADDW	BYTLM(R5),PCB$W_BYTLM(R4)	; RETURN BYTE COUNT QUOTA

         42 A4         26 A5     A0  0307 23600 	ADDW	BYTLM(R5),PCB$W_BYTCNT(R4)	; RETURN BYTE COUNT QUOTA

         60 A1         24 A5     A0  030C 23650 	ADDW	FILLM(R5),PHD$W_FILLM(R1)	; RETURN OPEN FILE LIMIT

         48 A4         24 A5     A0  0311 23700 	ADDW	FILLM(R5),PCB$W_FILCNT(R4)	; TO BOTH LIMIT AND COUNT

         62 A1         28 A5     A0  0316 23750 	ADDW	TQLM(R5),PHD$W_TQLM(R1)		; RETURN TIMER QUEUE QUOTA

         4A A4         28 A5     A0  031B 23800 	ADDW	TQLM(R5),PCB$W_TQCNT(R4)	; TO BOTH LIMTI AND COUNT

         42 A1         2A A5     A0  0320 23850 	ADDW	PRCLM(R5),PHD$W_PRCLM(R1)	; RETURN SUB-PROCESS QUOTA

            50            55     D0  0325 23900 	MOVL	R5,R0			; GET ADDRESS FOR RELEASE

                          FCD5'  31  0328 23950 	BRW	EXE$DEANONPAGED		; RETURN VIA DEALLOCATE NON-PAGED

                                     032B 24000 

                                     032B 24050 

                                     032B 24100 	.END

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



$$T1           = 00000001            ACC$T_USERNAME   00000020            IO$M_PURGE     = 00000800            

ACB$B_RMOD       0000000B            ACC$T_USER_DATA  0000002C            IO$M_READATTN  = 00000080            

ACB$B_TYPE       0000000A            ACC$W_MSGSIZ     00000002            IO$M_REVERSE   = 00000040            

ACB$L_AST        00000010            ACC$W_MSGTYP     00000000            IO$M_SHUTDOWN  = 00000080            

ACB$L_ASTPRM     00000014            BIT...         = 00000000            IO$M_STARTUP   = 00000040            

ACB$L_ASTQBL     00000004            BUG$_DELSUBFLT   ********   X   01   IO$M_SYNCH     = 00000200            

ACB$L_ASTQFL     00000000            BYTLM          = 00000026            IO$M_TIMED     = 00000080            

ACB$L_KAST       00000018            CPULM          = 0000001C            IO$M_TRMNOECHO = 00001000            

ACB$L_PID        0000000C            CTL$GL_FINALSTS  ********   X   01   IO$M_WRTATTN   = 00000100            

ACB$M_QUOTA    = 00000040            CTL$GL_PHD       ********   X   01   IO$S_FCODE     = 00000006            

ACB$S_MODE     = 00000002            CTL$GL_VOLUMES   ********   X   01   IO$V_ABORT     = 00000008            

ACB$V_KAST     = 00000007            CTL$GL_WSPEAK    ********   X   01   IO$V_ACCESS    = 00000006            

ACB$V_MODE     = 00000000            CTL$GQ_LOGIN     ********   X   01   IO$V_ATTNAST   = 00000008            

ACB$V_QUOTA    = 00000006            CTL$GQ_MOUNTLST  ********   X   01   IO$V_BINARY    = 00000006            

ACB$W_SIZE       00000008            CTL$T_ACCOUNT    ********   X   01   IO$V_CANCTRLO  = 00000006            

ACC$C_INS_LEN    000000B0            CTL$T_USERNAME   ********   X   01   IO$V_COMMOD    = 00000006            

ACC$C_JOB_LEN    0000006C            DELETE           0000003E R     01   IO$V_CREATE    = 00000007            

ACC$C_PRT_LEN    00000058            DELPAGE          000002BB R     01   IO$V_CTRLCAST  = 00000008            

ACC$C_TERMLEN    00000054            DOREI            0000003D R     01   IO$V_CTRLYAST  = 00000007            

ACC$K_BATTRM   = 00000002            EXE$ALLOCIRP     ********   X   01   IO$V_CVTLOW    = 00000008            

ACC$K_DISAACC  = 00000004            EXE$DEANONPAGED  ********   X   01   IO$V_DATACHECK = 0000000E            

ACC$K_DISASEL  = 00000006            EXE$DELPRC       00000000 RG    01   IO$V_DELETE    = 00000008            

ACC$K_ENABACC  = 00000003            EXE$GQ_SYSTIME   ********   X   01   IO$V_DMOUNT    = 0000000A            

ACC$K_ENABSEL  = 00000005            EXE$NAMPID       ********   X   01   IO$V_DSABLMBX  = 0000000A            

ACC$K_INSMESG  = 00000001            EXE$WRTMAILBOX   ********   X   01   IO$V_ENABLMBX  = 00000007            

ACC$K_INSMSG   = 00000011            FILLM          = 00000024            IO$V_FCODE     = 00000000            

ACC$K_INS_LEN    000000B0            GBL...         = 00000000            IO$V_HANGUP    = 00000009            

ACC$K_INTTRM   = 00000003            IO$M_ABORT     = 00000100            IO$V_INHERLOG  = 0000000B            

ACC$K_JOB_LEN    0000006C            IO$M_ACCESS    = 00000040            IO$V_INHEXTGAP = 0000000C            

ACC$K_LOGTRM   = 00000004            IO$M_ATTNAST   = 00000100            IO$V_INHRETRY  = 0000000F            

ACC$K_NEWFILE  = 00000002            IO$M_BINARY    = 00000040            IO$V_INHSEEK   = 0000000C            

ACC$K_PRCTRM   = 00000001            IO$M_CANCTRLO  = 00000040            IO$V_INTERRUPT = 00000006            

ACC$K_PRTJOB   = 00000010            IO$M_COMMOD    = 00000040            IO$V_INTSKIP   = 00000008            

ACC$K_PRT_LEN    00000058            IO$M_CREATE    = 00000080            IO$V_MOUNT     = 00000009            

ACC$K_TERMLEN    00000054            IO$M_CTRLCAST  = 00000100            IO$V_NOECHO    = 00000006            

ACC$L_BIOCNT     0000003C            IO$M_CTRLYAST  = 00000080            IO$V_NOFILTR   = 00000009            

ACC$L_CPUTIM     0000002C            IO$M_CVTLOW    = 00000100            IO$V_NOFORMAT  = 00000008            

ACC$L_DIOCNT     00000040            IO$M_DATACHECK = 00004000            IO$V_NOW       = 00000006            

ACC$L_FINALSTS   00000004            IO$M_DELETE    = 00000100            IO$V_NOWAIT    = 00000007            

ACC$L_GETCNT     00000038            IO$M_DMOUNT    = 00000400            IO$V_PACKED    = 00000007            

ACC$L_JOBID      0000000C            IO$M_DSABLMBX  = 00000400            IO$V_PURGE     = 0000000B            

ACC$L_OWNER      00000050            IO$M_ENABLMBX  = 00000080            IO$V_READATTN  = 00000007            

ACC$L_PAGCNT     00000030            IO$M_FCODE     = 0000003F            IO$V_REVERSE   = 00000006            

ACC$L_PAGEFLTS   00000030            IO$M_HANGUP    = 00000200            IO$V_SHUTDOWN  = 00000007            

ACC$L_PGFLPEAK   00000034            IO$M_INHERLOG  = 00000800            IO$V_STARTUP   = 00000006            

ACC$L_PID        00000008            IO$M_INHEXTGAP = 00001000            IO$V_SYNCH     = 00000009            

ACC$L_QIOCNT     00000034            IO$M_INHRETRY  = 00008000            IO$V_TIMED     = 00000007            

ACC$L_VOLUMES    00000044            IO$M_INHSEEK   = 00001000            IO$V_TRMNOECHO = 0000000C            

ACC$L_WSPEAK     00000038            IO$M_INTERRUPT = 00000040            IO$V_WRTATTN   = 00000008            

ACC$Q_LOGIN      00000048            IO$M_INTSKIP   = 00000100            IO$_ACCESS     = 00000032            

ACC$Q_QUETIME    0000003C            IO$M_MOUNT     = 00000200            IO$_ACPCONTROL = 00000038            

ACC$Q_TERMTIME   00000010            IO$M_NOECHO    = 00000040            IO$_CREATE     = 00000033            

ACC$T_ACCOUNT    00000018            IO$M_NOFILTR   = 00000200            IO$_DEACCESS   = 00000034            

ACC$T_JOB_NAME   00000054            IO$M_NOFORMAT  = 00000100            IO$_DELETE     = 00000035            

ACC$T_JOB_QUE    0000005C            IO$M_NOW       = 00000040            IO$_DIAGNOSE   = 0000001D            

ACC$T_PRT_NAME   00000044            IO$M_NOWAIT    = 00000080            IO$_DRVCLR     = 00000004            

ACC$T_PRT_QUE    0000004C            IO$M_PACKED    = 00000080            IO$_ERASETAPE  = 00000006            

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (1)



IO$_LOGICAL    = 0000002F            MSG$_ACCRSP    = 00000021            PCB$L_WSSWP      00000024            

IO$_MODIFY     = 00000036            MSG$_CONFIRM   = 00000031            PCB$L_WTIME      0000002C            

IO$_MOUNT      = 00000039            MSG$_CONNECT   = 00000032            PCB$T_LNAME      0000006C            

IO$_NOP        = 00000000            MSG$_CRUNSOLIC = 00000002            PCB$V_ASTPEN   = 00000011            

IO$_OFFSET     = 00000006            MSG$_DELPROC   = 00000003            PCB$V_BATCH    = 0000000E            

IO$_PACKACK    = 00000008            MSG$_DELSMB    = 00000014            PCB$V_DELPEN   = 00000001            

IO$_PHYSICAL   = 0000001F            MSG$_DEVOFFLIN = 00000005            PCB$V_FORCPEN  = 00000002            

IO$_READHEAD   = 0000000E            MSG$_DEVONLIN  = 00000007            PCB$V_HIBER    = 00000013            

IO$_READLBLK   = 00000021            MSG$_DISCON    = 00000033            PCB$V_INQUAN   = 00000003            

IO$_READPBLK   = 0000000C            MSG$_EXIT      = 00000034            PCB$V_LOGIN    = 00000014            

IO$_READPRESET = 00000019            MSG$_INIOPR    = 00000010            PCB$V_NETWRK   = 00000015            

IO$_READPROMPT = 00000037            MSG$_INTMSG    = 00000035            PCB$V_NOACNT   = 0000000F            

IO$_READTRACKD = 00000010            MSG$_OPREPLY   = 00000009            PCB$V_NODELET  = 00000017            

IO$_READVBLK   = 00000031            MSG$_OPRQST    = 00000008            PCB$V_PHDRES   = 00000012            

IO$_RECAL      = 00000003            MSG$_PATHLOST  = 00000036            PCB$V_PSWAPM   = 00000004            

IO$_RELEASE    = 00000005            MSG$_PROTOCOL  = 00000037            PCB$V_PWRAST   = 00000016            

IO$_RETCENTER  = 00000007            MSG$_REJECT    = 00000038            PCB$V_RES      = 00000000            

IO$_REWIND     = 00000024            MSG$_RESOPR    = 00000013            PCB$V_RESPEN   = 00000005            

IO$_REWINDOFF  = 00000022            MSG$_SCANBAD   = 00000028            PCB$V_SSFEXC   = 00000006            

IO$_SEARCH     = 00000009            MSG$_SCANRSP   = 00000029            PCB$V_SSFEXCE  = 00000007            

IO$_SEEK       = 00000002            MSG$_SMBDON    = 00000009            PCB$V_SSFEXCS  = 00000008            

IO$_SENSECHAR  = 0000001B            MSG$_SMBINI    = 00000008            PCB$V_SSFEXCU  = 00000009            

IO$_SENSEMODE  = 00000027            MSG$_SMBRSP    = 00000020            PCB$V_SSRWAIT  = 0000000A            

IO$_SETCHAR    = 0000001A            MSG$_SNDACC    = 0000000A            PCB$V_SUSPEN   = 0000000B            

IO$_SETMODE    = 00000023            MSG$_SNDSMB    = 00000004            PCB$V_SWPVBN   = 00000010            

IO$_SKIPFILE   = 00000025            MSG$_SUSOPR    = 00000012            PCB$V_WAKEPEN  = 0000000C            

IO$_SKIPRECORD = 00000026            MSG$_THIRDPARTY= 00000039            PCB$V_WALL     = 0000000D            

IO$_SPACEFILE  = 00000002            MSG$_TIMEOUT   = 0000003A            PCB$W_APTCNT     00000034            

IO$_SPACERECORD= 00000009            MSG$_TRMHANGUP = 00000006            PCB$W_ASTCNT     0000003C            

IO$_STARTSPNDL = 00000019            MSG$_TRMUNSOLIC= 00000001            PCB$W_BIOCNT     0000003E            

IO$_UNLOAD     = 00000001            MSG$_XM_ATTN   = 0000000D            PCB$W_BIOLM      00000040            

IO$_VIRTUAL    = 0000003F            MSG$_XM_DATAVL = 0000000B            PCB$W_BYTCNT     00000042            

IO$_WRITECHECK = 0000000A            MSG$_XM_SHUTDN = 0000000C            PCB$W_BYTLM      00000068            

IO$_WRITECHECKH= 00000018            PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            

IO$_WRITEHEAD  = 0000000D            PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            

IO$_WRITELBLK  = 00000020            PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            

IO$_WRITEMARK  = 0000001C            PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            

IO$_WRITEOF    = 00000028            PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            

IO$_WRITEPBLK  = 0000000B            PCB$B_WEFC       00000032            PCB$W_MEM        00000020            

IO$_WRITETRACKD= 0000000F            PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            

IO$_WRITEVBLK  = 00000030            PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            

IOC$DISMOUNT     ********   X   01   PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            

IPL$_ASTDEL    = 00000002            PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            

IPL$_HWCLK     = 00000018            PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            

IPL$_IOPOST    = 00000004            PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            

IPL$_MAILBOX   = 0000000B            PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            

IPL$_POWER     = 0000001F            PCB$L_EFCU       00000054            PFN$AB_STATE     ********   X   01   

IPL$_QUEUEAST  = 00000006            PCB$L_EFWM       0000004C            PFN$AW_REFCNT    ********   X   01   

IPL$_SCHED     = 00000003            PCB$L_OWNER      0000001C            PFN$C_ACTIVE   = 00000007            

IPL$_SYNCH     = 00000007            PCB$L_PHD        00000064            PFN$C_BADPAGLST= 00000002            

IPL$_TIMER     = 00000007            PCB$L_PHYPCB     00000018            PFN$C_FREPAGLST= 00000000            

MMG$DELCONPFN    ********   X   01   PCB$L_PID        00000060            PFN$C_GBLWRT   = 00000003            

MMG$INSPFNH      ********   X   01   PCB$L_PQB        0000004C            PFN$C_GLOBAL   = 00000002            

MMG$REFCNTNEG    ********   X   01   PCB$L_SQBL       00000004            PFN$C_GPGTBL   = 00000005            

MMG$SVAPTECHK    ********   X   01   PCB$L_SQFL       00000000            PFN$C_MFYPAGLST= 00000001            

MSG$_ABOOPR    = 00000011            PCB$L_STS        00000028            PFN$C_PPGTBL   = 00000004            

MSG$_ABORT     = 00000030            PCB$L_UIC        00000020            PFN$C_PROCESS  = 00000000            

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                     (1)



PFN$C_RDERR    = 00000004            PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            

PFN$C_RDINPROG = 00000006            PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            

PFN$C_RELPEND  = 00000003            PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            

PFN$C_SYSTEM   = 00000001            PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            

PFN$C_WRTINPROG= 00000005            PHD$L_R0         00000088            PHV$GL_PIXBAS    ********   X   01   

PFN$M_BADPAG   = 00000020            PHD$L_R1         0000008C            PR$_ACCR       = 00000029            

PFN$M_BAK      = 007FFFFF            PHD$L_R10        000000B0            PR$_ACCS       = 00000028            

PFN$M_COLLISION= 00000010            PHD$L_R11        000000B4            PR$_ASTLVL     = 00000013            

PFN$M_DELCON   = 00000010            PHD$L_R12        000000B8            PR$_ESP        = 00000001            

PFN$M_GBLBAK   = 00800000            PHD$L_R13        000000BC            PR$_ICCS       = 00000018            

PFN$M_LOC      = 00000007            PHD$L_R2         00000090            PR$_ICR        = 0000001A            

PFN$M_MODIFY   = 00000080            PHD$L_R3         00000094            PR$_IPL        = 00000012            

PFN$M_PAGTYP   = 00000007            PHD$L_R4         00000098            PR$_ISP        = 00000004            

PFN$M_PGFLX    = FF000000            PHD$L_R5         0000009C            PR$_KSP        = 00000000            

PFN$M_RPTEVT   = 00000040            PHD$L_R6         000000A0            PR$_MAPEN      = 00000038            

PFN$S_BAK      = 00000017            PHD$L_R7         000000A4            PR$_NICR       = 00000019            

PFN$S_GBLBAK   = 00000001            PHD$L_R8         000000A8            PR$_P0BR       = 00000008            

PFN$S_LOC      = 00000003            PHD$L_R9         000000AC            PR$_P0LR       = 00000009            

PFN$S_PAGTYP   = 00000003            PHD$L_REFERFLT   00000014            PR$_P1BR       = 0000000A            

PFN$S_PGFLX    = 00000008            PHD$L_SSP        00000080            PR$_P1LR       = 0000000B            

PFN$V_BADPAG   = 00000005            PHD$L_USP        00000084            PR$_PCBB       = 00000010            

PFN$V_BAK      = 00000000            PHD$L_WSL        00000118            PR$_PME        = 0000003D            

PFN$V_COLLISION= 00000004            PHD$M_DALCSTX  = 00000002            PR$_RXCS       = 00000020            

PFN$V_DELCON   = 00000004            PHD$M_PFMFLG   = 00000001            PR$_RXDB       = 00000021            

PFN$V_GBLBAK   = 00000017            PHD$M_WSPEAKCHK= 00000004            PR$_SBIER      = 00000034            

PFN$V_LOC      = 00000000            PHD$Q_PRIVMSK    00000000            PR$_SBIFS      = 00000030            

PFN$V_MODIFY   = 00000007            PHD$S_ASTLVL   = 00000008            PR$_SBIMT      = 00000033            

PFN$V_PAGTYP   = 00000000            PHD$S_P0LR     = 00000018            PR$_SBIQC      = 00000036            

PFN$V_PGFLX    = 00000018            PHD$V_ASTLVL   = 00000018            PR$_SBIS       = 00000031            

PFN$V_RPTEVT   = 00000006            PHD$V_DALCSTX  = 00000001            PR$_SBISC      = 00000032            

PGFLQUOTA      = 00000020            PHD$V_P0LR     = 00000000            PR$_SBITA      = 00000035            

PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            PR$_SBR        = 0000000C            

PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            PR$_SCBB       = 00000011            

PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            PR$_SID        = 0000003E            

PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            PR$_SIRR       = 00000014            

PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            PR$_SISR       = 00000015            

PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            PR$_SLR        = 0000000D            

PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            PR$_SSP        = 00000002            

PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            PR$_TBIA       = 00000039            

PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            PR$_TBIS       = 0000003A            

PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            PR$_TODR       = 0000001B            

PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            PR$_TXCS       = 00000022            

PHD$L_ESP        0000007C            PHD$W_PST        00000020            PR$_TXDB       = 00000023            

PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            PR$_USP        = 00000003            

PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            PR$_WCSA       = 0000002C            

PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            PR$_WCSD       = 0000002D            

PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            PRCLM          = 0000002A            

PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            PRI$_IOCOM     = 00000001            

PHD$L_P0LRASTL   000000CC            PHD$W_PTCNTMAX   00000072            PRI$_NULL      = 00000000            

PHD$L_P1BR       000000D0            PHD$W_PTCNTVAL   0000006E            PRI$_RESAVL    = 00000002            

PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            PRI$_TICOM     = 00000004            

PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            PRI$_TIMER     = 00000002            

PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            PRI$_TOCOM     = 00000003            

PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            PSL$C_EXEC     = 00000001            

PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            PSL$C_KERNEL   = 00000000            

PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            PSL$C_SUPER    = 00000002            

PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            PSL$C_USER     = 00000003            

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (1)



PSL$M_CM       = 80000000            PTE$S_GPTX     = 00000016            SS$_BADSTACK   = 000002B4            

PSL$M_CURMOD   = 03000000            PTE$S_OWN      = 00000002            SS$_BEGOFFILE  = 00000938            

PSL$M_DV       = 00000080            PTE$S_PFN      = 00000015            SS$_BLOCKCNTERR= 00000940            

PSL$M_FPD      = 08000000            PTE$S_PGFLVB   = 00000016            SS$_BREAK      = 00000414            

PSL$M_FU       = 00000040            PTE$S_PROT     = 00000004            SS$_BUFBYTALI  = 0000030C            

PSL$M_IPL      = 001F0000            PTE$S_STX      = 00000010            SS$_BUFFEROVF  = 00000601            

PSL$M_IS       = 04000000            PTE$V_CRF      = 00000010            SS$_BUGCHECK   = 000002A4            

PSL$M_IV       = 00000020            PTE$V_DZRO     = 00000011            SS$_CANCEL     = 00000830            

PSL$M_PRVMOD   = 00C00000            PTE$V_GPTX     = 00000000            SS$_CHANINTLK  = 0000004C            

PSL$M_SAFBITS  = 000037FF            PTE$V_MODIFY   = 0000001A            SS$_CLIFRCEXT  = 00000980            

PSL$M_TBIT     = 00000010            PTE$V_OWN      = 00000017            SS$_CMODSUPR   = 0000041C            

PSL$M_TP       = 40000000            PTE$V_PFN      = 00000000            SS$_CMODUSER   = 00000424            

PSL$S_CURMOD   = 00000002            PTE$V_PGFLVB   = 00000000            SS$_COMPAT     = 0000042C            

PSL$S_IPL      = 00000005            PTE$V_PROT     = 0000001B            SS$_CONTINUE   = 00000001            

PSL$S_PRVMOD   = 00000002            PTE$V_STX      = 00000000            SS$_CONTROLC   = 00000651            

PSL$V_CM       = 0000001F            PTE$V_TYP0     = 00000016            SS$_CONTROLO   = 00000609            

PSL$V_CURMOD   = 00000018            PTE$V_TYP1     = 0000001A            SS$_CONTROLY   = 00000611            

PSL$V_DV       = 00000007            PTE$V_VALID    = 0000001F            SS$_CREATED    = 00000619            

PSL$V_FPD      = 0000001B            PTE$V_WRT      = 00000012            SS$_CTRLERR    = 00000054            

PSL$V_FU       = 00000006            RELQUOTA         000000B2 R     01   SS$_DATACHECK  = 0000005C            

PSL$V_IPL      = 00000010            RETN             00000036 R     01   SS$_DATAOVERUN = 00000838            

PSL$V_IS       = 0000001A            RETQUOTA         000002E7 R     01   SS$_DEBUG      = 0000046C            

PSL$V_IV       = 00000005            RETURN           00000039 R     01   SS$_DECOVF     = 000004A4            

PSL$V_PRVMOD   = 00000016            RSN$_ASTWAIT   = 00000001            SS$_DEVACTIVE  = 000002C4            

PSL$V_TBIT     = 00000004            RSN$_BRKTHRU   = 00000006            SS$_DEVALLOC   = 00000840            

PSL$V_TP       = 0000001E            RSN$_IACLOCK   = 00000007            SS$_DEVALRALLOC= 00000641            

PTE$C_EOWN     = 00800000            RSN$_MAILBOX   = 00000002            SS$_DEVASSIGN  = 00000848            

PTE$C_ER       = 38000000            RSN$_NPDYNMEM  = 00000003            SS$_DEVFOREIGN = 00000064            

PTE$C_ERKW     = 30000000            RSN$_PGDYNMEM  = 00000005            SS$_DEVICEFULL = 00000850            

PTE$C_EW       = 28000000            RSN$_PGFILE    = 00000004            SS$_DEVMOUNT   = 0000006C            

PTE$C_KOWN     = 00000000            RUNDWN           000001F5 R     01   SS$_DEVNOTALLOC= 00000858            

PTE$C_KR       = 18000000            SCH$GL_CURPCB    ********   X   01   SS$_DEVNOTMBX  = 00000074            

PTE$C_KW       = 10000000            SCH$GL_MAXPIX    ********   X   01   SS$_DEVNOTMOUNT= 0000007C            

PTE$C_NA       = 00000000            SCH$GL_NULLPCB   ********   X   01   SS$_DEVOFFLINE = 00000084            

PTE$C_SOWN     = 01000000            SCH$GL_PCBVEC    ********   X   01   SS$_DIRFULL    = 00000860            

PTE$C_SR       = 58000000            SCH$GW_DELPHDCT  ********   X   01   SS$_DRVERR     = 0000008C            

PTE$C_SREW     = 48000000            SCH$GW_PROCCNT   ********   X   01   SS$_DUPFILENAME= 00000868            

PTE$C_SRKW     = 50000000            SCH$NEWLVL       ********   X   01   SS$_DUPLNAM    = 00000094            

PTE$C_SW       = 40000000            SCH$QAST         ********   X   01   SS$_ENDOFFILE  = 00000870            

PTE$C_UOWN     = 01800000            SCH$RWAIT        ********   X   01   SS$_ENDOFTAPE  = 00000878            

PTE$C_UR       = 78000000            SCH$SCHED        ********   X   01   SS$_ENDOFUSRLBL= 00000970            

PTE$C_UREW     = 68000000            SCH$SWPWAKE      ********   X   01   SS$_EXQUOTA    = 0000001C            

PTE$C_URKW     = 70000000            SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            

PTE$C_URSW     = 60000000            SS$_ACCONFLICT = 00000800            SS$_FCPREADERR = 00000888            

PTE$C_UW       = 20000000            SS$_ACCVIO     = 0000000C            SS$_FCPREPSTN  = 00000988            

PTE$M_CRF      = 00010000            SS$_ACPVAFUL   = 000002FC            SS$_FCPREWNDERR= 00000890            

PTE$M_DZRO     = 00020000            SS$_ARTRES     = 00000474            SS$_FCPSPACERR = 00000898            

PTE$M_GPTX     = 003FFFFF            SS$_ASTFLT     = 0000040C            SS$_FCPWRITERR = 000008A0            

PTE$M_MODIFY   = 04000000            SS$_BADATTRIB  = 00000034            SS$_FILACCERR  = 0000009C            

PTE$M_OWN      = 01800000            SS$_BADCHKSUM  = 00000808            SS$_FILALRACC  = 000000A4            

PTE$M_PFN      = 001FFFFF            SS$_BADESCAPE  = 0000003C            SS$_FILELOCKED = 000008A8            

PTE$M_PGFLVB   = 003FFFFF            SS$_BADFILEHDR = 00000810            SS$_FILENUMCHK = 000008B0            

PTE$M_PROT     = 78000000            SS$_BADFILENAME= 00000818            SS$_FILESEQCHK = 000008B8            

PTE$M_TYP0     = 00400000            SS$_BADFILEVER = 00000820            SS$_FILESTRUCT = 000008C0            

PTE$M_TYP1     = 04000000            SS$_BADIMGHDR  = 00000044            SS$_FILNOTACC  = 000000AC            

PTE$M_VALID    = 80000000            SS$_BADIRECTORY= 00000828            SS$_FILNOTCNTG = 000002AC            

PTE$M_WRT      = 00040000            SS$_BADPARAM   = 00000014            SS$_FILNOTEXP  = 000000B4            

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (1)



SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            

SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            

SS$_FLTUND     = 0000049C            SS$_NONEXDRV   = 000001C4            SUBDELETE        0000006B R     01   

SS$_FORMAT     = 000000BC            SS$_NONEXPR    = 000008E8            SWP$DALLOC       ********   X   01   

SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            SWP$GW_BALCNT    ********   X   01   

SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            SYS$ASSIGN       ********   X   01   

SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            SYS$DALLOC       ********   X   01   

SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            SYS$DASSGN       ********   X   01   

SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            SYS$DELPRC       ********   X   01   

SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            SYS$DELTVA       ********   X   01   

SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            SYS$GL_JOBCTLMB  ********   X   01   

SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            SYS$QIO          ********   X   01   

SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            SYS$RESUME       ********   X   01   

SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            SYS$RMSRUNDWN    ********   X   01   

SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            SYS$RUNDWN       ********   X   01   

SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            TERMMSG          0000011C R     01   

SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            TMP...         = 00000000            

SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            TQLM           = 00000028            

SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            

SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            

SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            

SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            

SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            

SS$_INSFWSL    = 0000011C            SS$_OPINCOMPL  = 000002D4            

SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

SS$_IVCHAN     = 0000013C            SS$_PARTESCAPE = 000001FC            

SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

SS$_IVGSDNAM   = 0000014C            SS$_PSTFULL    = 0000020C            

SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            

SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            

SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            

SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            

SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            

SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            

SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            

SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            

SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            

SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            

SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            

SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            

SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            

SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            

SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            

SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            

SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            

SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            

SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            

SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            

SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            

SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            

SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            

SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            

SYSDELPRC       - DELETE PROCESS SYSTEM SERVICE                  21-AUG-1978 20:26:57   VAX-11 MACRO X0.3-11               Page  17

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        0000032B      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            0000011C      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

3082. BYTES LEFT IN FREE MEMORY POOL.

2338. BYTES OF RECLAIMED MEMORY.

OBJ$:SYSDELPRC,LIS$:SYSDELPRC/-SP=EXECML$/ML,SRC$:SYSDELPRC

27 MLB DIR RDS - 1304 GETS TO DEFINE 39 MACROS. 97 INTER. FILE WRITES. 

