namespace path {::tcl::mathop ::tcl::mathfunc}
set ramloc 3221241856
set x 0
set y 0
array set wrarray {}
delete_hw_axi -quiet wr_txn0
set inFile [open data_dump.txt r]
set data1 [read $inFile]
set splitdata [split $data1 /n]
foreach item ($data1) {
set stringin [string trim $item ")"]
set stringin1 [string trim $stringin "("]
set strnglngth [string length $stringin1]
if {$strnglngth != 0} then {
set writeaddress [format %x [expr {$ramloc + $x}]]
set wrdata [format %2x $stringin1]
set lngth [string length $wrdata]
if {$lngth==4} then {
append wrarray($y) "" $wrdata
} elseif {$lngth==3} then {
append wrarray($y) "0" $wrdata
} elseif {$lngth==2} then {
append wrarray($y) "00" $wrdata
} else {
append wrarray($y) "000" $wrdata} 
incr y 1
if {$y==8} then {
set 32wrdata [concat $wrarray(7)$wrarray(6)_$wrarray(5)$wrarray(4)_$wrarray(3)$wrarray(2)_$wrarray(1)$wrarray(0)]
puts $32wrdata
puts $writeaddress
create_hw_axi_txn wr_txn0 [get_hw_axis hw_axi_1] -address $writeaddress -len 4 -size 32 -data $32wrdata -type write
run_hw_axi -quiet wr_txn0
delete_hw_axi wr_txn0
unset 32wrdata
set wrarray(7) ""
set wrarray(6) ""
set wrarray(5) ""
set wrarray(4) ""
set wrarray(3) ""
set wrarray(2) ""
set wrarray(1) ""
set wrarray(0) ""
set y 0
incr x 16
}
}
}
unset wrarray
puts $x