#ifndef hostfs_H
#define hostfs_H

#include <swis.h>

#ifndef types_H
   #include "types.h"
#endif

#undef  HostFS_HostVdu
#define HostFS_HostVdu                    0x40100
#undef  HostFS_TubeVdu
#define HostFS_TubeVdu                    0x40101
#undef  HostFS_WriteC
#define HostFS_WriteC                     0x40102

#define xhostfs_host_vdu() \
   _swix (HostFS_HostVdu, 0)

#define xhostfs_tube_vdu() \
   _swix (HostFS_TubeVdu, 0)

#define xhostfs_writec(c) \
   _swix (HostFS_WriteC, _IN (0), (int) (c))

#endif
