BSD 4_3_Tahoe development

[unix-history] / usr / src / sys / tahoealign / Aprobew.c

/*      Aprobew.c       1.1     86/07/20        */

#include "../tahoealign/align.h" 

#define PSL_USER        PSL_CURMOD
probew(infop)   process_info *infop;
/*
/*      Probe write 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
                                                        *  kernel ! */
       Register_10 = operand(infop,1)->address;        /* Base address */
       Register_11 = operand(infop,2)->data;           /* Length */
       Register_12=psl;
       Set_psl(r12);   /* restore the user psl */
       asm ("  probew  r9,(r10),r11");
       asm ("  movpsl  r12");
       New_cc (Register_12);
}