have to leave instrs.adb around, kernel uses it for kdb

[unix-history] / usr / src / sys / tahoe / align / Adivl2.c

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

#include "../tahoealign/align.h" 
divl2(infop)    process_info *infop;
/*
/*      Arithmetic division, 2 operands.
/*
/**************************************/
{
       register        long    Register_12;    /* Has to be first reg ! */
       register        long    divident, divisor, result;

       divisor = operand(infop,0)->data;
       divident = operand(infop,1)->data;
       if (divisor == 0) {
               exception (infop, ARITHMETIC, 2);
       } else {
               Register_12=psl;
               Set_psl(r12);   /* restore the user psl */
               result = divident / divisor;
               asm ("  movpsl  r12");
               New_cc (Register_12);
       }
       write_back (infop,result, operand(infop,1));
}