mirror of
https://github.com/wfjm/w11.git
synced 2026-03-04 02:36:51 +00:00
724cb35b6d
- tools/ - mcode/rk11/rk11perf.tcl: added, RK11 performance tested - tcl/rw11/asm.tcl: asmrun: re-organize -stop -creset handling - tcl/rw11/shell.tcl: add rw11::shell_attnmuted to mute CPU attn messages
128 lines
3.4 KiB
Tcl
128 lines
3.4 KiB
Tcl
# $Id: asm.tcl 1362 2023-01-31 18:16:17Z mueller $
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
# Copyright 2013-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
#
|
|
# Revision History:
|
|
# Date Rev Version Comment
|
|
# 2023-01-31 1362 1.1 asmrun: re-organize -stop -creset handling
|
|
# 2022-12-04 1324 1.0.7 asmrun: add creset option (active with ps option)
|
|
# 2019-04-06 1126 1.0.6 asmwait: allow alternate stop symbol
|
|
# 2017-02-04 784 1.0.5 asmrun: allow 'ps' in initializer list
|
|
# 2015-07-25 704 1.0.4 asmrun,asmtreg,asmtmem: use args in proc definition
|
|
# 2014-07-26 575 1.0.3 add asmwait_tout variable, use in asmwait
|
|
# 2014-07-10 568 1.0.2 add errcnt return for asmtreg and asmtmem
|
|
# 2014-03-01 552 1.0.1 BUGFIX: asmwait checks now pc if stop: defined
|
|
# 2013-04-26 510 1.0 Initial version (extracted from util.tcl)
|
|
#
|
|
|
|
package provide rw11 1.0
|
|
|
|
package require rlink
|
|
package require rwxxtpp
|
|
|
|
namespace eval rw11 {
|
|
|
|
variable asmwait_tout 10.
|
|
|
|
#
|
|
# asmrun: run a program loaded with ldasm
|
|
#
|
|
proc asmrun {cpu symName args} {
|
|
upvar 1 $symName sym
|
|
array set opts {r0 0 r1 0 r2 0 r3 0 r4 0 r5 0 creset 0}
|
|
array set opts $args
|
|
|
|
if {![info exists opts(pc)]} {
|
|
if {[info exists sym(start)]} {
|
|
set opts(pc) $sym(start)
|
|
} else {
|
|
error "neither opts(pc) nor sym(start) given"
|
|
}
|
|
}
|
|
|
|
if {![info exists opts(sp)]} {
|
|
if {[info exists sym(stack)]} {
|
|
set opts(sp) $sym(stack)
|
|
} elseif {[info exists sym(start)]} {
|
|
set opts(sp) $sym(start)
|
|
} else {
|
|
error "neither opts(sp) nor sym(stack) or sym(start) given"
|
|
}
|
|
}
|
|
|
|
# the CPU must be stopped and either be reset or ps loaded before the
|
|
# registers are updated. If not they can end in the wrong register set.
|
|
# Therefore -stapc can't be used here.
|
|
|
|
set clist {}
|
|
|
|
lappend clist "-stop"
|
|
if {[info exists opts(ps)]} {
|
|
if {$opts(creset)} {
|
|
rlc log "CRESET"
|
|
lappend clist "-creset"
|
|
}
|
|
lappend clist "-wps" $opts(ps)
|
|
} else {
|
|
lappend clist "-creset"
|
|
}
|
|
foreach key {r0 r1 r2 r3 r4 r5 sp pc} {
|
|
lappend clist "-w${key}" $opts($key)
|
|
}
|
|
lappend clist "-start"
|
|
|
|
$cpu cp {*}$clist
|
|
|
|
return
|
|
}
|
|
|
|
#
|
|
# asmwait: wait for completion of a program loaded with ldasm
|
|
#
|
|
proc asmwait {cpu symName {tout 0.} {symstop "stop"}} {
|
|
upvar 1 $symName sym
|
|
variable asmwait_tout
|
|
if {$tout <= 0.} { # if not specified
|
|
set tout $asmwait_tout; # use default value
|
|
}
|
|
set dt [$cpu wtcpu -reset $tout]
|
|
if {$dt >= 0 && [info exists sym($symstop)]} {
|
|
$cpu cp -rpc -edata $sym($symstop)
|
|
}
|
|
return $dt
|
|
}
|
|
|
|
#
|
|
# asmtreg: test registers after running a program loaded with ldasm
|
|
#
|
|
proc asmtreg {cpu args} {
|
|
array set opts $args
|
|
set clist {}
|
|
foreach key [lsort [array names opts]] {
|
|
lappend clist "-r${key}" -edata $opts($key)
|
|
}
|
|
set errbeg [rlc errcnt]
|
|
$cpu cp {*}$clist
|
|
return [expr [rlc errcnt] - $errbeg]
|
|
}
|
|
|
|
#
|
|
# asmtmem: test memory after running a program loaded with ldasm
|
|
#
|
|
proc asmtmem {cpu args} {
|
|
set clist {}
|
|
foreach {base vlist} $args {
|
|
set nw [llength $vlist]
|
|
if {$nw == 0} {
|
|
error "asmtreg called with empty value list"
|
|
}
|
|
lappend clist -wal $base
|
|
lappend clist -brm $nw -edata $vlist
|
|
}
|
|
set errbeg [rlc errcnt]
|
|
$cpu cp {*}$clist
|
|
return [expr [rlc errcnt] - $errbeg]
|
|
}
|
|
|
|
}
|