#!/usr/local/bin/perl

$value = hex(@ARGV[0]);
$begin = $value - 0x400;
$end = $value + 0x400;

system("gdis -S -I. -b$begin -e$end wave | less -p @ARGV[0]:");