my $bytes_written = $port->write($asm_output);
my $bytes_to_write = length $asm_output;
die "Only wrote $bytes_written instead of $bytes_to_write" unless $bytes_written == $bytes_to_write;
my ($count_in, $string_in) = $port->read(5000);
my @memory = unpack 'n*', $string_in;
my $bytes_written = $port->write($asm_output);
my $bytes_to_write = length $asm_output;
die "Only wrote $bytes_written instead of $bytes_to_write" unless $bytes_written == $bytes_to_write;
my ($count_in, $string_in) = $port->read(5000);
my @memory = unpack 'n*', $string_in;