load t32tclapi64.dll t32api
T32_Config NODE= localhost
T32_Config PORT= 20000
T32_Init
T32_Attach 1
T32_Cmd sys.u
T32_Cmd area
T32_Printf "start the tcl script"
T32_Ping
T32_Step
set cpu [newstringptr]
set fpu [newuint16ptr]
set endian [newuint16ptr]
set type [newuint16ptr]
T32_GetCpuInfo $cpu $fpu $endian $type
getstringptr $cpu
getuint16ptr $fpu
set value [newuint32ptr]
set hvalue [newuint32ptr_1]
T32_ReadRegisterByName "pc" $value $hvalue 
getuint32ptr $value
getuint32ptr $hvalue
setuint32ptr $value 0x66
T32_WriteRegisterByName "pc" $value $hvalue

T32_Exit