*****************************************************************************
** Description:     Bin2int() in file.c                                       **
**                                                                         **
**Inputs                                                                   **
**                                                                         **
**   ar0--- Word16 no_of_bits                                               ** 
**   xar1---Word16 *bitstream
**                                                                         **
**   
**   
**Outputs:                                                                **
**   ar2--- Word16 value                                                                 **
**   
**                                                                         **
** Temporary:
**    
**  
**   
**                                                                         **
** Return value :                                                          **
**                                                                         **
** Attribute    :       Cycles:  300    Pm: 15                             **
**                      Modified Registers:acc,xar0,xar1,xar2
**                                                                         **
**                                                                         **
** Programmer   :       Zhang Xin                                          **
*****************************************************************************
 .global _Bin2int
 
_Bin2int:
  mov ar2,#0
  mov al,ar2
  dec ar0
_Loop_61:
  lsl al,#1
  mov ah,*xar1++
  cmp ah,#1
  sb  _L1,EQ
  sb  _L2,UNC
_L1:
  add al,#1
_L2:
  banz _Loop_61,ar0--
  mov ar2,al
  LRETR