PDA

Ver la Versión Completa : assembler en delphi


fcran
22-05-2003, 06:11:40
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
22-05-2003, 10:54:29
con ....


asm
// Codigo Asembler
end;

guillotmarc
22-05-2003, 15:11:23
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
22-05-2003, 17:44:11
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
23-05-2003, 08:35:44
a todos los que han contestado mis dudas, muchas gracias,espero y les pueda colaborar en algo...