[[egostar]]

Empezado por TOPX

Hola,

Ahora yo, con mi interpretación de la cuestión; que espero no estar enredando las cosas.

Pues, ya que este hilo está en "ASM y Microcontroladores", es posible que trate de Assembler "en línea" y que lo que busque esté aquí.

Pues como digo, tal vez me equivoque con el requerimiento de mario2000, pero esto funciona en delphi con ASM.

Código Delphi [-]
procedure WritePort(Port: word; Value: byte);
asm
 push word ptr Port
 mov al, Value
 pop dx
 out dx, al
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WritePort(1016,ord('A'));
  WritePort(1016,65);
  WritePort($3F8,65);
  WritePort($3F8,$41);
end;

Salud OS