Subversion Repositories or1k_old

#!/usr/bin/perl

sub S0 {
        for ($i=0; $i<$length - 1; $i++) {
            $ch = hex (substr($data, $i*2, 2));
            printf STDERR "%c", $ch;
        }
        printf STDERR "\n";
}

sub S1 {
        printf "0000%s%02X%s\n", 
                substr($data, 0, 4), $length - 3, substr($data, 4);
}

sub S2 {
        printf "00%s%02X%s\n",
                substr($data, 0, 6), $length - 4, substr($data, 6);
}

sub S3 {
        printf "%s%02X%s\n",
                substr($data, 0, 8), $length - 5, substr($data, 8);
}

sub S5 {
}

sub S7 {
        if ($start_slag) {
                printf "%s00\n", substr($data, 0, 8);
        }
}

sub S8 {
        if ($start_slag) {
                printf "00%s00\n", substr($data, 0, 6);
        }
} 

sub S9 {
        if ($start_slag) {
                printf "0000%s00\n", substr($data, 0, 4);
        }
}

#
# MAIN
#
while(<>) {
        if ( /^S([0-357-9])([0-9A-F]{2})/ ) {
           $record_type = $1;
           $length = hex($2);
           $data = substr($_, 4, ($length-1) * 2);
           $checksum = hex(substr($_, ($length - 1) * 2 + 4, 2));
           $sub = "S$record_type";
           &$sub;
        }
}