#!perl
# $Id$
use warnings;
use strict;
use CPU::Z80::Assembler;
# $CPU::Z80::Assembler::verbose = 1;
use Test::More tests => 1;
ok(
z80asm('
#comment
NOP
') eq chr(0),
"lines starting with # are comments"
);
#!perl
# $Id$
use warnings;
use strict;
use CPU::Z80::Assembler;
# $CPU::Z80::Assembler::verbose = 1;
use Test::More tests => 1;
ok(
z80asm('
#comment
NOP
') eq chr(0),
"lines starting with # are comments"
);