Listing 5

   int peek(address)
   far unsigned char *address;
      {
      return *address;
      }

   int poke(address, value)
   far unsigned char *address;
   unsigned int value;
      {
      *address = value;
      return;
      }