X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=repl.pl;h=4d1f9ea2f281dcb95c1ebafd79a1d024205aaa39;hb=67d929ce28bfdf278b6b1791e30d721f30e64bab;hp=83b170411990356c37ce63ff27df8f5fd65ff5f1;hpb=61a16fa6d7988ba5ae3c570dbd27d6bf32342a1a;p=clump.git

diff --git a/repl.pl b/repl.pl
index 83b1704..4d1f9ea 100644
--- a/repl.pl
+++ b/repl.pl
@@ -60,8 +60,8 @@ sub princ {
 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 "$!";
@@ -91,7 +91,7 @@ while () {
 	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;
@@ -101,14 +101,14 @@ while () {
 	$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 '';