.TITLE	INSLB
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
; MODIFICATIONS:
;
;	02A -- ALLOW FOR INC=0
;
;	02B -- FIX INSTALLING A PRIVILEGED TASK INTO A
;		TASK PARTITION
;
	.IDENT	/02B/
	.MCALL	LBLDF$		; DEFINE LABEL BLOCK OFFSETS
	LBLDF$
	.PSECT
.BLK.=.
.=.BLK.+1264
	CALL	PAT1

.=.BLK.
.=.BLK.+1660
	CALL	PAT2		; COMPUTE WINDOW SIZE
	BCS	200$		; OVERFLOW ERROR
	NOP
	NOP
.=.BLK.+1702
	ROL	R1		; CONVERT TO APR NUMBER
.=.BLK.+1752
	200$:
.=.BLK.
	.PSECT	$$PAT1
$$PAT1=.
PAT1:	MOV	$INC,R0		;GET INCREMENT VALUE
	BIT	#400,$FLGS	;INCREMENT SWITCH SEEN?
	RETURN

.=$$PAT1

	.PSECT	$$PAT2
$$PAT2=.

PAT2:	
	BIT	#PS.SYS,P.STAT(R5) ; SYSTEM CONTROLLED PARTITION?
	BNE	10$		; IF NE YES
	MOV	P.SIZE(R5),R1	; NO - USE PARTITION SIZE FOR TASK SIZE
	ASL	R1		; CONVERT TO BYTES
	ROL	R1		;
	ROL	R1		;
	ROL	R1		;
	ROL	R1		;
	ROL	R1		;
	ADD	$INC,R1		;ADD IN EXTENT SIZE
	BR	20$		; RETURN
10$:	
	ADD	$LBLBF+L$BHGV,R1 ; GET HIGH VIRTUAL ADDRESS
	BCS	20$		; OVERFLOW ERROR
	SUB	$LBLBF+L$BSA,R1	; COMPUTE WINDOW SIZE
	CLC
20$:	
	RETURN
	.END