#! /usr/bin/perl
#
# dr. shreds microprocessor
#
unless (open(MEM_RW,">mem_rw.ffo")){
   print "Can't open file mem_rw.ffo\n";
}
unless (open(MEM_AD,">mem_ad.ffo")){
   print "Can't open file mem_ad.ffo\n";
}
unless (open(MEM_DA,"+<mem_da.ffo")){
   print "Can't open file mem_da.ffo\n";
}
$acc = "0" x 64;
$add_reg = "0" x 8;
@reg = (
        "0" x 64
        ,"0" x 64
        ,"0" x 64
        ,"0" x 64
        ,"0" x 64
        ,"0" x 64
        ,"0" x 64
        ,"0" x 64
       );
for ($i=0;$i<$#reg;$i++){
    print "reg_$i $reg[$i]\n";
}
print "acc $acc\n";
print "add_reg $add_reg\n";
print MEM_RW "1\n";
print MEM_AD "10101010\n";
close MEM_RW;
close MEM_AD;
$da = <MEM_DA>;
print "da $da\n";
close MEM_DA;