asm
  mov al,20h
  out 70,al
  in  al,70
 end;

解决方案 »

  1.   

    asm
      mov al,20h
      out 70,al
      in  al,70
     end;能不能把70放在一个寄存器里?
      

  2.   

    当然
    asm
      mov al,20h
      mov dx,70h
      out dx,al
      in  al,70
     end注:out后只能跟al,dx
      

  3.   

    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.