/
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)		1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/VERSION=1
/
	.TITLE COMPACTING SUBROUTINE


/THIS SERVICE ROUTINE COMPACTS THE TASK TABLES AFTER TASK ENTRY IS
/COMPLETE. 

	.FSECT	COMPCT
	.ENTRY	COMPAC
	.EXTERNAL TABLE1,SYSPTR,TSKPTR
	.EXTERNAL ETASK,SNRPTR,ESYS,ETASK,ESNR,TSYS
	.EXTERNAL TTASK,TSNR,TTTY,ETTY
	.EXTERNAL SYSNR
	.EXTERNAL SYSPTR,TSNR,ESNR
	.EXTERNAL SNRPTR
	.EXTERNAL ESYS,TSKPTR,TTTY



COMPAC,	0
	CLA
	TAD	F1
	RDF
	DCA	CMP10
				/SETUP FOR RETURN
	CDF	TABLE1
	TAD I	F2
	DCA	10
	TAD	COMP5
	CIA
	TAD I	F3
	SPA
	JMP	COMP11
				/CHECK IF ANY USER TASKS
	CLA
	TAD	COMP1
	DCA	11
				/SETUP FOR COMPACTING TASK
				/TABLES
COMP7,	CLA
	TAD I	11
	DCA I	10
				/MERGE TTASK INTO TSYS
	TAD I	F3
	CIA
	TAD	11
	SPA
	JMP	COMP7		/TILL ALL OF TTASK UP TO THE NEXT
				/ENTRY IS MOVED
COMP11,	CLA
	TAD	COMP6
	CIA
	TAD I	F4
	SPA
	JMP	COMP12
	CLA
				/CHECK FOR ANY LOW-PRIORITY SYSTEM TASKS
	TAD	COMP2
	DCA	11
				/ETASK = (TSNR-1)
COMP10,	CLA
	TAD I	11
	DCA I	10
	TAD I	F4
	CIA
	TAD	11
	SPA
	JMP	COMP10
				/MERGE TSNR TO TSYST TTASK
				/UNTIL ALL OF TSNR HAS BEEN MOVED
COMP12,	CLA
	TAD	10
	DCA I	F4
				/SNRPTR IS CHANGED TO INDICATE
				/NEXT ENTRY INTO NEWLY FORMED
				/TASK TABLE
CMP10,	0
	JMP I	COMPAC
				/RETURN
COMP1,	ESYS
COMP2,	ETASK
COMP3,	ESNR
COMP4,	TSYS
COMP5,	TTASK
COMP6,	TSNR
F1,CDF CIF
F2,SYSPTR
F3,TSKPTR
F4,SNRPTR