27 lines
567 B
Tcl
27 lines
567 B
Tcl
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
|