# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/lib/kdb/ascl_memdecode.perlmod 1.1 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2001 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
sub memdecode {
	my $address = $_[0];
	my $cmd = join(" ", "dc", $address);
	eval{ $Dbg->sendcmd($cmd) };
	my @decode = split(" ", eval{ $Dbg->readcmd });
	if ($decode[3] eq "?") { return $decode[3]; }
	else {return (join(" ", $decode[3], $decode[4])); }
}
1;