45 getopt('at:');
     46 our ( $opt_a, $opt_t );
...
     75 } elsif ( $opt_a > $eeMax ) {
...
    126 if ( $opt_a + $dataLen > $eeMax ) {
    127         $dataLen = $dataLen - ( $opt_a + $dataLen - $eeMax );
    128 }
    129 #
    130 # convert start address if hex value used
    131 if ( substr( $opt_a, 0, 2 ) == "0x" ) {
    132     $opt_a = hex($opt_a);
    133 }