Algorithm 7 Producer function.

Require:$SendBlockSize$ Require:$Block\left[\right]$ Require:$M_{curr}$ Ensure:$BlockSizeC$ Ensure:$BlockC$    $FullCheck\leftarrow AFifoCurrSize+SendBlockSize$  if $FullCheck\le FifoTh$ then    $M_{curr}\leftarrow M_{curr}<N?M_{curr}+1:N$  else    $M_{curr}\leftarrow M_{curr}>1?M_{curr}-1:1$  end if   $i\leftarrow 0$  while $SendBlockSize>i$ do   if $WidthCount=0$ then    $BlockP\left[i\right]\leftarrow AdpcmEncoder(Block\left[i\right],M_{curr},$                                                   $true,W_{init},$                                                   $true,P_{init})$    $WidthCount\leftarrow$ WIDTH  else    $BlockP\left[i\right]\leftarrow AdpcmEncoder(Block\left[i\right],M_{curr},$                                                   $false,null,$                                                   $false,null)$  end if  if $WidthCount=$ WIDTH then    $P_{init}\leftarrow Block\left[i\right]$  end if   $i\leftarrow i+1$   $WidthCount\leftarrow WidthCount-1$  end while  if $M_{prev}\ne M_{curr}$ then    $AseChangeDataWidth\left(M_{curr}\right)$    $AseSendException\left(M_{curr}\right)$    $M_{prev}\leftarrow M_{curr}$  end if   $AseCompression(BlockSize,BlockP,$                         ;           $\&BlockSizeC,\&BlockC)$