A Disassembler Written in Perl
By Tony Zhang
Dr. Dobb's Journal February 1997
<B>(a)</B> ($i=$lnTemp; $i<$lnTemp + $DisasmnDispl; $i++) { $lsResult = sprintf ("%02x", &ImageByte( $sMemRead, $i, 1 ) ) . $lsResult; } <B>(b)</B> $lsResult = sprintf ("%x", &ImageByte( $sMemRead, $lnTemp, $DisasmnDispl )
Example 2: The code in (b) is a rewrite of (a).
Copyright © 1997, Dr. Dobb's Journal