Fórum Lendo Dados na Porta Paralela #295178

:?: Olá a todos.
Tenho uma aplicação que lê e escreve dados na porta paralela.
Uso Windows XP com a dll inpout32.dll. Com a função Out32 o programa escreve dados e com a função inp32 o programa lê o que esta sendo enviado por uma placa (interface), para a porta.
Agora estou precisando provocar uma interrupção na CPU #17, peguei aqui no forum uma rotina mas não esta resolvendo. Abaixo esta a função:
===// ====
Function OnLine(Porta:Word):Boolean;
Const
Portas :Byte = $02;
Var
Res :Byte;
Begin
{ Código em Assembler }
Asm
mov ah,Portas; {Requisita o acesso as portas}
mov dx,Porta;{Define a porta de teste}
Int $17; {Chama a interrupção de Impressora}
mov Res,ah; {Guarda em Res o resultado da operação }
end;
Result := (Res and $80) = $80; {Testa o valor de saída}
End;
Será que alguem tem uma dica de como posso provocar uma interrupção na CPU.
Abraços a todos.
Neto