assembler y el señor delphi

[fcran]

bueno compañeros, la realidad es que puedo utilizar codigo en assembler en delphi, como por ejemplo
asm
mov dx,378h
mov al,01h <--------aqui
out dx,al
end;

este codigo me envia al puerto paralelo una señal electrica, que sale por la linea data 0, buena pero el problema radica en que no puedo asignar al registro al, una variable utilizada en delphi, ya sea hexagecimal, como lo exige, no se que deba hacer,ademas deseo saber de una funcion que me reciba un dato desde afuera, y lo pueda capturar y posteriormente, almacenar en cualquier variable que este manejando desde delphi...gracias por su atencion...


su amigo...

[delphi.com.ar]

No lo pude probar, pero... ¿Qué te parece algo así?

procedure SendToPort(AAddr, AValue:Word);
var
  bValue : Byte;
begin
   bValue:= Byte(AValue);
   asm
      mov dx,AAddr
      mov AL,bValue
      out DX,AL
   end;
end;

Saludos!

[apexcol]

definitivamente, la mejor forma de acceder es esta:

Código Delphi [-]
procedure ImprimirLPT1(const enviar: Byte);
begin
  asm
    mov dx, 378h
    mov al, enviar
    out dx, al
  end;
end;

Claro que puedes tambiérn usar enviar: Integer, pero eso te obligaría a usar un rango con AND AX, FFh y luego usar para asignar MOV AL, ENVIAR.BYTE[0]

Assembler con Delphi es suave, puedo usar lo mejor de turbo assembler, ya que está incorporado.

Edgar Rodriguez.