哈佛 

 伪本征函数——Keil C51头文件INTRINS.H的应用演示
*--------------------------------------------------------------------------
        伪本征函数——Keil C51头文件INTRINS.H的应用演示
                    作者：HotPower@126.com  2004.5.16  第一版
--------------------------------------------------------------------------*/
#include "reg51.h"
#include "intrins.h"

unsigned char readdata(void)
{
unsigned char val;
  for (val = 8; val >   0; val--)
  {
    _clrb_(TXD);
   _nop_();
    _movcb_(RXD);
    _rrca_();
    _setb_(TXD);
   _nop_();
  }
  _movra_(val);
  return val;
}

void writedata(unsigned char val)
{
  _movar_(val);
  for (val = 8; val >   0; val--)
  {
    _clrb_(TXD);
    _rrca_();
    _movbc_(RXD);
    _setb_(TXD);
   _nop_();
  }
}

main()
{
unsigned char i;
/*----------------------------------
  _movb0_();演示
-----------------------------------*/
  i = 0x01;
  _movb0_(TXD,i);

  i = 0x02;
  TXD = i & 0x01;

  i = 0x03;
  if (i & 0x01) TXD = 1;
  else TXD = 0;
/*---------------------------------*/

/*----------------------------------
  _movb7_();演示
-----------------------------------*/
  i = 0x04;
  _movb7_(RXD,i);

  i = 0x05;
  TXD = i & 0x80;

  i = 0x06;
  if (i & 0x80) TXD = 1;
  else TXD = 0;

  i = 0x07;
  if (i >  = 0x80) TXD = 1;
  else TXD = 0;
/*---------------------------------*/

/*----------------------------------
  _rlcar_();_movra_()组合演示
-----------------------------------*/
  i = 0x08;
  _setc_();
  _movra_(i);

  i   <  <= 1;
  i |= 0x01;

  i   <  <= 1;
  i ++;

  i += i;

  i *= 2;
  i ++;
/*---------------------------------*/

/*----------------------------------
  _rrcar_();_movra_()组合演示
-----------------------------------*/
  i = 0x09;
  _setc_();
  _rrcar_(i);
  _movra_(i);

  i >  >  = 1;
  i |= 0x80;
/*---------------------------------*/

  i = readdata();
  writedata(i);
  while(1);
}

发表时间:2007年1月14日10:43:43