请高手翻译这段C程序为delphi可以用spcomm等控件+100

Question

#define SBUF 0x3f8#define baudL 0x3f8
#define baudH 0x3f9#define LineCtrl 0x3fb
#define ModemCtrl 0x3fc
#define LineStatus 0x3fd
#define LINE 6
#define WIDTH 48
#include <dos.h>
#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <process.h>unsigned char rev(unsigned char c)  //倒置
{
unsigned char i,val=0,ini=1; for (i=0; i<8; i++){
if (c&0x80) val+=ini;
c<<=1; ini*=2;
}
// val=0xff-val;
return val;
}void send_data(unsigned char ch)
{
while((inportb(LineStatus)&0x60)!=0x60);
outportb(LineCtrl,0x3b); //8-data,1-stop,9th bit=0
outportb(SBUF,rev(ch));
}void send_addr(unsigned char ch)
{
while((inportb(LineStatus)&0x60)!=0x60);
outportb(LineCtrl,0x2b); //8-data,1-stop,9th bit=1(SEND address)
outportb(SBUF,ch);
}void send_order_para(unsigned char ch)
{
while((inportb(LineStatus)&0x60)!=0x60);
outportb(LineCtrl,0x3b); //8-data,1-stop,9th bit=0
outportb(SBUF,ch);
}unsigned char ones(unsigned char ch)
{
unsigned char i,res=0; for (i=0; i<4; i++)
{
if (ch&1) res++;
ch>>=1;
}
res&=1; return res;
}
unsigned char verify(unsigned char addr,unsigned char order)  //生成一个addr 和order的校验码
{
unsigned char check,ch; check=addr^order; check=check^(check<<4);
check&=0xf0; ch=(addr&0xf0)>>4; check=check+ones(ch);
ch=addr&0x0f;       check=check+ones(ch)*2;
ch=(order&0xf0)>>4; check=check+ones(ch)*4;
ch=order&0x0f; check=check+ones(ch)*8; return check;
}void main()
{
unsigned char address=0x01,order=0x01, check,checkback,ch;
int i,j;
unsigned char TempChar;
FILE *fp; outportb(LineCtrl,0x80);
outportb(baudL,0x02);
outportb(baudH,0x00); //baud-rate=57.6k
/*
波特率改成57.6k
*/ outportb(ModemCtrl,0x00); //dis-connect SOUT and SIN in computer outportb(LineCtrl,0x2b); //8-data,1-stop,9th bit=1(SEND address) if (inportb(LineStatus)&1)
  inportb(SBUF); order=0x01;       //命令0x01为发送整屏数据
send_addr(address);
send_order_para(order);
check=verify(address,order);
send_order_para(check); while(!(inportb(LineStatus)&1));
//等待单片机应答。这里需要处理一下、不能死等，否则在单片机未上电等情况下会死机
checkback=inportb(SBUF); if (checkback!=check)
exit(1); //NO ACK or Wrong ACK
//出口引向何处也需要重新处理 check=0x00;
for (i=0; i<48; i++)
for (j=0; j<96; j++)
{
TempChar=0x55;
send_data(TempChar);//msg_dz[i][j]);
ch=rev(TempChar);
check=check+ch;//msg_dz[i][j]);
printf("check= %d ,checkback= %d \n",&check,&checkback);
// send_data(0x55);//msg_dz[i][j]);
// check+=rev(0x55);//msg_dz[i][j]);
}
while(!(inportb(LineStatus)&1));
   checkback=inportb(SBUF); if (checkback!=check)
exit(1); //NO ACK or Wrong ACK order=0x02;   //0x02为显示命令
send_addr(address);
send_order_para(order);
check=verify(address,order);
send_order_para(check); while(!(inportb(LineStatus)&1));
checkback=inportb(SBUF); if (checkback!=check) //check
exit(1); //NO ACK or Wrong ACK}pc同单片机用rs485方式来连接