;# V895
package V895;

my ($mod,$a24,$fun,@val,$ovr,$the);
my $info = {"name","v895"};

sub new {
  my $this = shift;
  bless $info,$this;
  return $info;
}

sub com {
  $this = shift;

  @vv = '';
  $_[0] =~ s/\n//; # \n:kaigyou
  $_[0] =~ s/\t/ /g; # /t:tab, g:kurikaeshi match suru
  $_[0] =~ s/ +/,/g;
  ($mod,$a24,$fun,$val[0],$val[1],$val[2]) = split(/,/,$_[0]);
  $a24 = oct($a24) if $a24 =~ /^0/;
  $a24 = $a24 << 16;
  $val[0] = oct($val[0]) if $val[0] =~ /^0/;
  $val[1] = oct($val[1]) if $val[1] =~ /^0/;
  $val[2] = oct($val[2]) if $val[2] =~ /^0/;
  return $this->$fun;
}

sub THE {
  $addr = 0x0000 + ($val[0]*2) | $a24;
  $vv = sprintf("-ww 0x%x 0x%x",$addr,$val[1]);
  print "V895: ch=$val[0] is invalid\n" if $val[0] >15;
  print "V895: THE=$val[1] is invalid\n" if $val[1] >255 ;
  return $vv;
}

sub WID {
  $addr = 0x0040 | $a24;
  $vv[0] = sprintf("-ww 0x%x 0x%x",$addr,$val[0]);
  $addr = 0x0042 | $a24;
  $vv[1] = sprintf("-ww 0x%x 0x%x",$addr,$val[0]);
  return @vv;
}

sub PAT {
  $addr = 0x004a | $a24;
  $vv = sprintf("-ww 0x%x 0x%x",$addr,$val[0]);
  return $vv;
}

sub MAJ {
# check mada
  $addr = 0x0048 | $a24;
  $vv = sprintf("-ww 0x%x 0x%x",$addr,$val[0]);
  return $vv;
}

1;