assembler en delphi

[fcran]

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

[__cadetill]

con ....


asm
// Codigo Asembler
end;

[guillotmarc]

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.

[delphi.com.ar]

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:

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!

[fcran]

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