[gapat]

Procedure OutPuerto(ADDR:WORD; VALOR:BYTE);
ASM
XCHG AX, DX
OUT DX, AL
END;

Function InPuerto():Byte;
ASM
MOV DX, 379h
IN AL, DX
MOV A, AL
END;
//Preguntas sobre el funcionamiento de las funciones, escribir a este foro.