my $term;
if (-t) {
- $term = Term::ReadLine->new('DECEL REPL');
- say "DECEL PRE-RELEASE\n";
+ $term = Term::ReadLine->new('YULE REPL');
+ say "YULE REPL\n";
}
my $port = Device::SerialPort->new($ARGV[0] // '/dev/ttyUSB1') or die "$!";
my $compiler = App::Scheme79asm::Compiler->new;
my $compiler_out = $compiler->compile_string($sexp);
- say 'Compiler says: ', dump_sexp($compiler_out);
+# say 'Compiler says: ', dump_sexp($compiler_out);
my $asm = App::Scheme79asm->new(addr_bits => 13);
my $asm_output;
$asm->print_binary16($asm_fh);
close $asm_fh;
- say "Writing: ", join ' ', uc join ' ', unpack '(H2)*', $asm_output;
+# say "Writing: ", join ' ', uc join ' ', unpack '(H2)*', $asm_output;
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;
- say 'Received: ', uc join ' ', unpack '(H2)*', $string_in;
+# say 'Received: ', uc join ' ', unpack '(H2)*', $string_in;
unshift @memory, 0, 0, (1<<13), (1<<13);
princ $compiler, \@memory, 6;
say '';