asm mov al,20h out 70,al in al,70 end;能不能把70放在一个寄存器里?
当然 asm mov al,20h mov dx,70h out dx,al in al,70 end注:out后只能跟al,dx
procedure TForm1.Button1Click(Sender: TObject); var a :smallint; b :byte; begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); asm MOV dx,a mov al,b out dx,al end; end;end.
mov al,20h
out 70,al
in al,70
end;能不能把70放在一个寄存器里?
asm
mov al,20h
mov dx,70h
out dx,al
in al,70
end注:out后只能跟al,dx
var
a :smallint;
b :byte;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text); asm
MOV dx,a
mov al,b
out dx,al
end;
end;end.