Foros Club Delphi - assembler en delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - assembler en delphi (https://www.clubdelphi.com/foros/showthread.php?t=707)

assembler en delphi

bueno muchachos, lo que estoy haciendo es un proyecto de mover un "brazo mecanico", por medio del puerto paralelo, y deseo hacerlo utilizando assembler dentro del codigo de delphi, ademas...

Gracias por su colaboracion,
fcran system

con ....

asm
// Codigo Asembler
end;

Hola.

En los ultimos números del Boletín Pascal que puedes encontrar en : http://www.latiumsoftware.com/es/pascal/index.php Tienes una serie de artículos sobre la programación con el ensamblador integrado en Delphi.

Saludos.

Hola fCran, te paso dos rutinitas que tengo para escribir y leer caracteres del puerto paralelo, estas funciones las he tomado una "unit" printer que tenía en Pascal:

Código:

function GetLptChar( LptNo : Word) : Byte; assembler;

asm

  mov dx, LptNo

  mov ah,02     

  int 17h       

  xchg ah,al

end;



function SetLptChar( C: Char; LptNo: Word ): Byte; assembler;

asm

  mov dx,LptNo  { Mueve el valor de LptNo al registro de datos }

  mov al,C

  mov ah,0

  int 17h

  xchg ah,al

end;

El problema es que si quieres que este código funcione en arquitecturas NT, te cuento que estas perdido, porque NT "protege" la escritura directa en los puertos. La solución es utilizar la WinApi CreateFile.

Saludos!

a todos los que han contestado mis dudas, muchas gracias,espero y les pueda colaborar en algo...