fft_32768_ts201.tcl

TigerSharc TS201 32-bit floating point FFT routine

proc fft_32768_TS201 { {target_name "TS201"} {test_name "test1"} } {

  cd "..\\"
	set benchmark_name "fft_fxp16_TS201"
	set outdata_name "input"

	puts [format "Testing %s (%s) on target: %s" $benchmark_name $test_name $target_name]

  # build the program
	catch { dspprojectclose }
  dspprojectload [format "%s.dpj" $benchmark_name]
	dspprojectbuild Debug -all -wait

	# run the program
  #load the executable
  dspload [format "debug\\%s.dxe" $benchmark_name]  -wait
  dsprun -wait
  dspwaitforhalt
  puts "program was executed"

	set buf_size 32768
	set fid [open outputs\\outdata_32768.dat w]
  puts $fid
	set memory [lindex [lindex [dspgetmeminfo] 0] 0]
	set outdata [dspgetmemblock $memory [dsplookupsymbol $outdata_name] $buf_size -format Hexadecimal]

  set index 0
  while {$index < $buf_size} {
    set cur [lindex $outdata $index]
    set cur [format "0x%08x" $cur]

    set msb [string range $cur 2 5]
    set lsb [string range $cur 6 9]

    puts $fid $lsb
    puts $fid $msb

    set index [expr $index+1]
  }


	close $fid
  cd "tcl_TS201"
  puts "Done\n"

#	dspprojectclose
}