Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perlmod / tapasm,1.4

################################################################################
#
# tap diag assembler for OpenSPARC T1
#
################################################################################

  # compile the tap diag
  open (TAP_IN, "< diag.tap") or die ("DIE. could not open diag.tap") ;
  open (TAP_OUT, "> tap.cmd") or die ("DIE. could not open tap.cmd") ;

  my $count = 0 ;

  while (<TAP_IN>)
  {
    $count++ ;
    my $line = $_ ;
    $line =~ s/\/\/.*?$// ;
    $line =~ s/^\s+// ;
    $line =~ s/\s+$// ;

    if ($line =~ /^\s*$/) { next ; }
    elsif ($line =~ /^rd/i)
    {
      $line =~ s/^rdo/1/i ;
      $line =~ s/^rdc/2/i ;
      $line =~ s/^rdm/3/i ;

      my ($code, $addr, $data, $mask) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;
      die ("DIE. Tap cmd data must be 64 bits wide at line $count") if (length ($data) != 16) ;
      die ("DIE. Tap cmd mask must be 64 bits wide at line $count") if (length ($mask) != 16) ;
      $line = "${code}_${addr}_${data}_${mask}" ;
    }
    elsif ($line =~ /^wri/i)
    {
      $line =~ s/^wri/4/i ;

      my ($code, $addr, $data) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;
      die ("DIE. Tap cmd data must be 64 bits wide at line $count") if (length ($data) != 16) ;

      $line = "${code}_${addr}_${data}_ffffffffffffffff" ;
    }
    elsif ($line =~ /^ssc/i)
    {
      $line =~ s/^ssc/8/i ;

      my ($code, $addr, $data, $mask) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;
      die ("DIE. Tap cmd data must be 64 bits wide at line $count") if (length ($data) != 16) ;
      die ("DIE. Tap cmd mask must be 64 bits wide at line $count") if (length ($mask) != 16) ;
      $line = "${code}_${addr}_${data}_${mask}" ;
    }
    elsif ($line =~ /^sid/i)
    {
      $line =~ s/^sid/9/i ;

      my ($code, $addr, $data, $mask) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;
      die ("DIE. Tap cmd data must be 64 bits wide at line $count") if (length ($data) != 16) ;
      die ("DIE. Tap cmd mask must be 64 bits wide at line $count") if (length ($mask) != 16) ;
      $line = "${code}_${addr}_${data}_${mask}" ;
    }
    elsif ($line =~ /^shs/i)
    {
      $line =~ s/^shs/a/i ;

      my ($code, $addr, $data, $mask) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;
      die ("DIE. Tap cmd data must be 64 bits wide at line $count") if (length ($data) != 16) ;
      die ("DIE. Tap cmd mask must be 64 bits wide at line $count") if (length ($mask) != 16) ;
      $line = "${code}_${addr}_${data}_${mask}" ;
    }
    elsif ($line =~ /^tpb/i)
    {
      $line = "b_0000000000_0000000000000000_0000000000000000" ;
    }
    elsif ($line =~ /^efc_byp/i)
    {
      $line =~ s/^efc_byp/c/i ;

      my ($code, $addr, $data, $mask) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;
      die ("DIE. Tap cmd data must be 64 bits wide at line $count") if (length ($data) != 16) ;
      die ("DIE. Tap cmd mask must be 64 bits wide at line $count") if (length ($mask) != 16) ;
      $line = "${code}_${addr}_${data}_${mask}" ;
    }
    elsif ($line =~ /^bis_abrt/i)
    {
      $line = "d_0000000000_0000000000000000_0000000000000000" ;
    }
    elsif ($line =~ /^end/i) { $line = "5_0000000000_0000000000000000_0000000000000000" ; }
    elsif ($line =~ /^del/i)
    {
      $line =~ s/^del/7/i ;

      my ($code, $addr) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;

      $line = "${code}_${addr}_0000000000000000_0000000000000000" ;
    }
    elsif ($line =~ /^stc/i) ## clk stretch
    {
      $line =~ s/^stc/6/i ;

      my ($code, $addr) = split (/\s+/, $line) ;

      die ("DIE. Tap cmd address must be 40 bits wide at line $count") if (length ($addr) != 10) ;

      $line = "${code}_${addr}_0000000000000000_0000000000000000" ;
    }
    else { die ("DIE. Illegal command in diag.tap at line $count") ; }

    $line =~ s/\s+/_/g ;
    print TAP_OUT "$line\n" ;
  }

  # force the end command
  print TAP_OUT "5_0000000000_0000000000000000_0000000000000000\n" ;

  close (TAP_IN) ;
  close (TAP_OUT) ;