.MCALL .MODULE
.MODULE	RESCAC,VERSION=1,COMMENT=<RESORC show cache>,IDENT=NO

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; 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 Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
; Edit History:
; 001	George Stevens	Overlaid version of RESORC.  Created from RESORC
;			Version 97
	.NLIST
	.INCLUDE /SRC:RESPFX.MAC/
	.LIST
.SBTTL	CACHE - List CA: Info

.REM	%
;+
;	This routine chains to CA to display information about
;	the CA handler.
;-
	ORIGIN	RESCAC

	.ENABL	LSB

CACHE:	.PRINT	#CRLF		 ; Print a blank line for ALL
	.DSTAT	#DSAREA+1,#CADEV ; Get CA handlers status
	BCC	10$		 ; Branch if no error
	FORMAT	#BUFFER,<CA not installed> ; - "CA not installed"
	BR	20$

10$:	TST	DSAREA+4	; Is CA loaded?
	BNE	40$		; Branch if so
	FORMAT	#BUFFER,<CA not loaded> ; - "CA not loaded"
20$:	TST	A$$		; Is this a SHOW ALL?
	BNE	30$		; Branch if so
	.PRINT	#BUFFER		; Pring message
30$:	RETURN	

40$:	MOV	#SPCCMD,R1	; Get start of special chain area
	MOV	#CACMD,R2	; Get start of RAD50 device name and cmd
	MOV	#CASIZ,(R1)+	; Stuff size
50$:	MOVB	(R2)+,(R1)+	; Move the data into the chain area
	BNE	50$		; Loop
	BIS	#<J.SPEX!J.CHNI>,@#$JSW ; Set special chain exit
	.PRINT	#NULL		;
	CLR	R0		; Do a HARD exit
	.EXIT

	.DSABL	LSB
%
	.END