open MIXFILE, ">$mixfile" || die "can not open $mixfile for write";

for ( sort {$a <=> $b} keys %{$codes} ) { if ($codes->{$_}->{type} eq 'code') { my $word = code_to_data_word($codes->{$_}->{code}); my @w = split /\s+/, $word; printf MIXFILE "%04d: %s [%s]\n", $_, $word, word_to_string(@w); } } print MIXFILE "\n\n"; for ( sort {$a <=> $b} keys %{$codes} ) { if ($codes->{$_}->{type} eq 'data') { my $word = $codes->{$_}->{code}; my @w = split /\s+/, $word; printf MIXFILE "%04d: %s [%s]\n", $_, $word, word_to_string(@w); } } close MIXFILE;

SYNOPSIS

perl mixasm.pl <inputfile>

DESCRIPTION

whitespaces are important in MIXAL programs. They are used for separating label from op, and op from operands. There should be no spaces in operand field.

e.g.

CHANGEM   ENT2  0,3    => OK
CHANGEM   ENT2  0, 3   => ERROR