#include <sys/syssgi.h>
#define LOG2PAGE 14
#define PAGE (1<<LOG2PAGE)
 
unsigned long long
va2pa( void    *va){
  unsigned int  pfn;
  if (syssgi(SGI_PHYSP,va,&pfn) != 0) {
    perror("Virtual to physical mapping failed");
    exit(1);
  }
  return (((unsigned long long) pfn << LOG2PAGE) | ((unsigned long long) va &
                                                      (PAGE-1)));
}
 
int addr2node(void *Virtual){
/*  Use this line for Origin 2000
 return (int)(va2pa(Virtual)>>32);
*/
/*  Use this line for Origin 3000
*/
 return (int)(va2pa(Virtual)>>33);
}

unsigned long long
va2pa_( void *va )
{
return ((unsigned long long) addr2node( va ) );
}