.TITLE	TEST_RSCC
	.IDENT /V05-004/
;	© 2000 P. Beaudoin
;  This software is supplied as is and the usual warranty
;  is implied - none. You may use, abuse, modify or
;  or ignore this software as you see fit but are
;  encouraged to give credit, as is good practice
;  when stealing with permission
; 
; Modifications:
;1 TEST_RSCC
;--
	.LIBRARY        /SYS$LIBRARY:LIB.MLB/
        $IODEF                          ;Define I/O functions and modifiers
	$SECDEF				; Global Section 
	$PRTDEF				; Protection Codes
	$SSDEF
	$HWRPBDEF
	.psect	listen_sec,wrt,noexe,pic,shr,page
;
; Global Section areas
;
; returned addresses
	.ALIGN	QUAD

INADDR:	       		.QUAD	0
SECTION_SIZE:		.LONG	1000		; No of pag(lets)
	.PSECT	TEST_RSCC_C,NOWRT,EXE,SHR,PIC,LONG
	.CALL_ENTRY	MAX_ARGS=6, HOME_ARGS=TRUE, -
			INPUT=<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>, -
			PRESERVE=<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>, -
			LABEL=TEST_RSCC

	MOVL	4(AP),R6
	EVAX_RSCC
	EVAX_STQ	R0,(R6)
	EVAX_RSCC
	MOVL	   exe$gpq_hwrpb,R8
	MOVL	hwrpb$iq_cycle_count_freq(R8),R9
	RET
	.END