* Copyright (c) 1986 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
* @(#)Aprober.c 7.1 (Berkeley) %G%
#define PSL_USER PSL_CURMOD
prober(infop
) process_info
*infop
;
/* Probe read accessability.
/*************************************/
register long Register_12
; /* Has to be first reg ! */
register long Register_11
;
register long Register_10
;
register long Register_9
;
Register_9
= operand(infop
,0)->data
& 1; /* Required mode */
if (psl
& PSL_USER
) Register_9
= 1; /* user can't probe as
Register_10
= operand(infop
,1)->address
; /* Base address */
Register_11
= operand(infop
,2)->data
; /* Length */
Set_psl(r12
); /* restore the user psl */
asm (" prober r9,(r10),r11");