#pragma warn -rvl
unsigned LongDiv(unsigned long aa,unsigned long bb)
{ // return aa/bb
  if(bb==0) return 0;
  if(bb&0xffff0000){
     unsigned i=0;
     while(aa>=bb){
	i++;
	aa-=bb;
     }
     return i;
  }
  else {
     _asm mov dx,word ptr aa+2
     _asm mov ax,word ptr aa
     _asm mov bx,word ptr bb
     _asm div bx         //result in ax
  }
}
#pragma warn +rvl