Q
qiuqiu
Unregistered / Unconfirmed
GUEST, unregistred user!
我用下面的程序从com1读入数据发现由edit1显示的数据不对且变化(我多次点击button1),然而
当把原汇编段程序专门取出在汇编环境下运行却读入数据正确且稳定。
procedure TForm1.Button1Click(Sender: TObject);
var
x:byte;
begin
asm
mov ah,0h //设置波特率=9600,无奇偶校验,1位停止位
mov al,11100011b
mov dx,0h
int 14h
@pol: mov ah,3 //查讯接收数据寄存器是否就绪
mov dx,0h
int 14h
and ah,00000001b
jz @pol
@start:
mov ah,2 //接收数据
mov dx,0h
int 14h
mov x,al
end;
edit1.Text:=inttostr(x);
end;
当把原汇编段程序专门取出在汇编环境下运行却读入数据正确且稳定。
procedure TForm1.Button1Click(Sender: TObject);
var
x:byte;
begin
asm
mov ah,0h //设置波特率=9600,无奇偶校验,1位停止位
mov al,11100011b
mov dx,0h
int 14h
@pol: mov ah,3 //查讯接收数据寄存器是否就绪
mov dx,0h
int 14h
and ah,00000001b
jz @pol
@start:
mov ah,2 //接收数据
mov dx,0h
int 14h
mov x,al
end;
edit1.Text:=inttostr(x);
end;