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:


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.:cool: