include qlib.inc
include dos.inc

.code
outp proc uses dx,p:word,d:byte
  xor eax,eax  ;FIX : v2.04 Beta #2 : I didn't know these returned "value"
  mov al,d
  mov dx,p
  out dx,al
  ret
outp endp

inp proc uses dx,p:word
  xor eax,eax
  mov dx,p
  in al,dx
  ret
inp endp

outpw proc uses dx,p:word,d:word
  xor eax,eax
  mov ax,d
  mov dx,p
  out dx,ax
  ret
outpw endp

inpw proc uses dx,p:word
  xor eax,eax
  mov dx,p
  in ax,dx
  ret
inpw endp

outpd proc uses dx,p:word,d:dword
  mov eax,d
  mov dx,p
  out dx,eax
  ret
outpd endp

inpd proc uses dx,p:word
  mov dx,p
  in eax,dx
  ret
inpd endp

end