A Disassembler Written in Perl

By Tony Zhang

Dr. Dobb's Journal February 1997

(a)
($i=$lnTemp; $i<$lnTemp + $DisasmnDispl; $i++) {
      $lsResult = sprintf ("%02x", &ImageByte( $sMemRead, $i, 1 ) ) . $lsResult;
}

(b)
$lsResult = sprintf ("%x", &ImageByte( $sMemRead, $lnTemp, $DisasmnDispl )

Example 2: The code in (b) is a rewrite of (a).

Back to Article