lms_flp32_ts101.tcl

来自「TigerSharc TS201 floating point lms filt」· TCL 代码 · 共 60 行

proc lms_flp32_TS101 { {target_name "TS101"} {test_name "test1"} } {

	set program_name "lms_flp32_TS101"
	set outdata_name "output"
  set error_var "Error"
  set coeff_var "coeff"

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

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

	# run the program
  #load the executable
  dspload [format "debug\\%s.dxe" $program_name]  -wait
  dsprun -wait
  puts "program was executed"
#wait until the DSP has halted
#  dsphalt -wait

 	set buf_size 256
	set fid [open "test1\\outdata_TS101.dat" w]
  puts $fid
	set memory [lindex [lindex [dspgetmeminfo] 0] 0]
	set outdata [dspgetmemblock $memory [dsplookupsymbol $outdata_name] $buf_size -format "Floating Point 32 bit"]

    set index 0
    while {$index < $buf_size} {
            set cur00 [lindex $outdata $index]
                set index [expr $index+1]

          puts  $fid [format "%f" $cur00]

  }
	close $fid

 	set buf_size 16
	set fid [open "test1\\coeff_TS101.dat" w]
  puts $fid
	set memory [lindex [lindex [dspgetmeminfo] 0] 0]
	set outdata [dspgetmemblock $memory [dsplookupsymbol $coeff_var] $buf_size -format "Floating Point 32 bit"]

    set index 0
    while {$index < $buf_size} {
            set cur00 [lindex $outdata $index]
                set index [expr $index+1]

          puts  $fid [format "%f" $cur00]

  }
	close $fid


  puts "Done\n"

#	dspprojectclose
}