;GETCACHE.MAR -	Procedure called from ACPCACHE.FOR using $CMKRNL system service
;		to gather ACP cache hit/miss data and pass it back
;
;	Written by:	Clair Garman
;			Educational Services
;			Digital Equipment Corporation
;			Washington, DC
;			May 1983
;
;
	.TITLE	GETCACHE
;
	.PSECT	DATA	PIC,NOEXE,LONG,NOSHR,WRT
;
;
;Define some symbols for offsets into the array passed in the arg list
;
	$DEFINI	PMS_SYMBOLS
;
	$DEF	DIRHIT	.BLKL	1
	$DEF	DIRMISS	.BLKL	1
	$DEF	EXTHIT	.BLKL	1
	$DEF	EXTMISS	.BLKL	1
	$DEF	FIDHIT	.BLKL	1
	$DEF	FIDMISS	.BLKL	1
	$DEF	QUOHIT	.BLKL	1
	$DEF	QUOMISS	.BLKL	1
;
	$DEFEND	PMS_SYMBOLS	
;
	.PSECT	CODE	PIC,EXE,LONG,SHR,NOWRT
;
GETCACHE::	.WORD	^M<R2>
;

	MOVL	4(AP),R2			;Addr of array to return values
	MOVL	G^PMS$GL_DIRHIT,DIRHIT(R2)	;Pass back all 8 values
	MOVL	G^PMS$GL_DIRMISS,DIRMISS(R2)
	MOVL	G^PMS$GL_EXTHIT,EXTHIT(R2)
	MOVL	G^PMS$GL_EXTMISS,EXTMISS(R2)
	MOVL	G^PMS$GL_FIDHIT,FIDHIT(R2)
	MOVL	G^PMS$GL_FIDMISS,FIDMISS(R2)
	MOVL	G^PMS$GL_QUOHIT,QUOHIT(R2)
	MOVL	G^PMS$GL_QUOMISS,QUOMISS(R2)
;
	MOVL	#SS$_NORMAL,R0			;Status return
	RET					;Exit
;
	.END