Saving the "display ccs::read_mem" output to a file

[ts1234]

How do I save the output of "display ccs::read_mem" to a file?

I am trying the following script but it does not work.

proc savetofile { fname fstart end } {
set i 0
set fd [open ./$fname w]
while 1 {
set addr [expr $i + $fstart]
puts $fd [display ccs::read_mem 24 0 $addr 4 0 1]
if { $i > $end } break
incr i 8
}