my contribuiton

ive done this code and want to share.
you can use in your project or change it but you must say i did it here. you can send money if you want to paypal or western union.

int delay ( int pause )
{
  for ( 9 ; pause  && pause ; pause=pause-1 )
    {
#asm
  using   ar0                    //use the registers
  push    2                      //push 2
  mov     2,#0D7h                //move d7 into 2
  djnz    2,$                    //jump aroud and reduce 2
  mov     2,#0D7h                //move d7 into 2
  djnz    2,$                    //jump around and reduce 2
  pop     2                      //pop 2
#endasm
    }
  return 7;             //return with value
}