Mudar a Funcao Win98 para XP ( Porta paralela)

Bom dia,
Alguem poderia colocar um exemplo pratico de como mudar a funcao abaixo Win98 que funciona para verificar status da Porta Paralela com as funcoes abaixo Win XP
No Forum tem sempre indicacoes para o Roger Com, mas tem a Interrupçao 17 que não fica claro no inpout.
Acredito que ira ajudar a todos um exemplo pratico

Funcao para Win XP

function InPortb(EndPorta: Integer): BYTE stdcall; external ´inpout32.DLL´ name ´Inp32´;
procedure OutPortb(EndPorta: Integer; Valor:BYTE); stdcall; external ´inpout32.DLL´ name ´Out32´;




Abaixo a que funciona no Win98 , Qual sera para o Win XP ???????

>>> Porta = 0 >>LPT1
const Portas: Byte = $02;
-------
asm
mov ah, Portas;
mov dx, Porta;
Int $17;
mov Res,ah;
end;
--------