#include "EXTERN.h"
#include "perl.h"
#include "conio.h"
#include "XSUB.h"

MODULE = InOut		PACKAGE = InOut

IV inp(IV p)
    CODE:
    {
      RETVAL = inp( (unsigned short) p);
    }
    OUTPUT:
    RETVAL

void outp(IV p, IV v)
    CODE:
    {
      outp((unsigned short) p, (unsigned char) v);
    }

IV inpw(IV p)
    CODE:
    {
      RETVAL = inp( (unsigned short) p);
    }
    OUTPUT:
    RETVAL

void outw(IV p, IV v)
    CODE:
    {
      outp((unsigned short) p, (unsigned short) v);
    }

IV inpd(IV p)
    CODE:
    {
      RETVAL = inp( (unsigned short) p);
    }
    OUTPUT:
    RETVAL

void outpd(IV p, IV v)
    CODE:
    {
      outp((unsigned short) p, (unsigned long) v);
    }