#!/bin/perl
#
# http://cpan.uwinnipeg.ca/htdocs/CPU-Z80-Disassembler/CPU/Z80/Disassembler.html#memory

use strict;
use CPU::Z80::Disassembler;

my ($fileName, $addr) = @ARGV;

my $dis = CPU::Z80::Disassembler->new;

$addr = hex($addr);

$dis->memory->load_file($fileName, $addr);

$dis->analyse;

$dis->write_dump;

#$dis->write_asm;