#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);
    }

##</code><code>##

package InOut;

require 5.005_92;
use strict;
use warnings;

require Exporter;
require DynaLoader;

our @ISA = qw(Exporter DynaLoader);
our @EXPORT_OK = qw(inp outp inpw outpw inpd outpd);
our $VERSION = '1.00';

bootstrap InOut $VERSION;

1;

##</code><code>##

use InOut;

$b = inp($port);
$w = inpw($port);
$d = inpd($port);

outp($port, $b);
outpw($port, $w);
outpd($port, $d);