Ola amigos
Preciso de uma ajudinha basica em ASM para uma rotina que preciso
implementar...
sei que em C e possivel mas como tenho de portar ela para dentro de um
sistema, tenho que fazer em ASM mesmo.
Bom, oque preciso e escrever na porta $60 sendo que preciso enviar o seguinte
$A0 // Prepara comando
$08 // Comando - Inicia envio
.. String .. // Dados (uma variavel string)
$A0 // Prepara comando
$09 // Comando - Finaliza envio
Eu pretendo colocar isto dentro de um programa em Kylix que tambem compile em
Delphi e esta foi a unica coisa que deu certo.
No kylix sei que posso usar o LibC para isto mas no delphi nao tem este
recurso.
Tive tentando e consegui algo como
function escreve(dados:string);
var
x:integer;
begin
asm
mov dx,$60
mov al,$A0
mov dx,al
//
mov dx,$60
mov al,$08
mov dx,al
end;
for x:=1 to length(dados) do begin
asm
mov dx,$60
mov al,byte(dados[x])
mov dx,al
end;
end;
asm
mov dx,$60
mov al,$A0
mov dx,al
//
mov dx,$60
mov al,$09
mov dx,al
end;
end;
end;
Se alguem puder me ajudar ficarei grato
Abracao
Assinantes em 01/11/2001: 2384
Mensagens recebidas desde 07/01/1999: 139577
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
