1 |
21 |
wfjm |
# $Id: test_regs.tcl 516 2013-05-05 21:24:52Z mueller $
|
2 |
10 |
wfjm |
#
|
3 |
21 |
wfjm |
# Copyright 2011-2013 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
4 |
10 |
wfjm |
#
|
5 |
|
|
# This program is free software; you may redistribute and/or modify it under
|
6 |
|
|
# the terms of the GNU General Public License as published by the Free
|
7 |
|
|
# Software Foundation, either version 2, or at your option any later version.
|
8 |
|
|
#
|
9 |
|
|
# This program is distributed in the hope that it will be useful, but
|
10 |
|
|
# WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
11 |
|
|
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
12 |
|
|
# for complete details.
|
13 |
|
|
#
|
14 |
|
|
# Revision History:
|
15 |
|
|
# Date Rev Version Comment
|
16 |
16 |
wfjm |
# 2011-12-18 440 1.0.1 increase npoll in "CNTL.clr->0" test
|
17 |
10 |
wfjm |
# 2011-04-02 375 1.0 Initial version
|
18 |
|
|
#
|
19 |
|
|
|
20 |
|
|
package provide rbemon 1.0
|
21 |
|
|
|
22 |
|
|
package require rutiltpp
|
23 |
|
|
package require rutil
|
24 |
|
|
package require rlink
|
25 |
|
|
|
26 |
|
|
namespace eval rbemon {
|
27 |
|
|
#
|
28 |
|
|
# Basic tests with rbd_eyemon registers
|
29 |
|
|
#
|
30 |
|
|
proc test_regs {} {
|
31 |
|
|
set esdval 0x00
|
32 |
|
|
set esdmsk [regbld rlink::STAT {stat -1}]
|
33 |
|
|
#
|
34 |
|
|
set errcnt 0
|
35 |
|
|
rlc errcnt -clear
|
36 |
|
|
#
|
37 |
|
|
rlc log "rbemon::test_regs - start"
|
38 |
|
|
#
|
39 |
|
|
#-------------------------------------------------------------------------
|
40 |
|
|
rlc log " test 1a: write/read cntl"
|
41 |
|
|
# ensure that last value 0x0 -> go=0
|
42 |
|
|
foreach val [list [regbld rbemon::CNTL ena01] [regbld rbemon::CNTL ena10] \
|
43 |
|
|
[regbld rbemon::CNTL go] 0x0 ] {
|
44 |
|
|
rlc exec -estatdef $esdval $esdmsk \
|
45 |
|
|
-wreg em.cntl $val \
|
46 |
|
|
-rreg em.cntl -edata $val
|
47 |
|
|
}
|
48 |
|
|
#
|
49 |
|
|
#-------------------------------------------------------------------------
|
50 |
|
|
rlc log " test 1b: write/read rdiv"
|
51 |
|
|
foreach val [list [regbld rbemon::RDIV {rdiv -1}] 0x0 ] {
|
52 |
|
|
rlc exec -estatdef $esdval $esdmsk \
|
53 |
|
|
-wreg em.rdiv $val \
|
54 |
|
|
-rreg em.rdiv -edata $val
|
55 |
|
|
}
|
56 |
|
|
#
|
57 |
|
|
#-------------------------------------------------------------------------
|
58 |
|
|
rlc log " test 1c: write/read addr"
|
59 |
|
|
set amax [regget rbemon::ADDR(addr) -1]
|
60 |
|
|
foreach addr [list 0x1 $amax 0x0] {
|
61 |
|
|
rlc exec -estatdef $esdval $esdmsk \
|
62 |
|
|
-wreg em.addr $addr \
|
63 |
|
|
-rreg em.addr -edata $addr
|
64 |
|
|
}
|
65 |
|
|
#
|
66 |
|
|
#-------------------------------------------------------------------------
|
67 |
|
|
rlc log " test 2: verify addr increments on data reads"
|
68 |
21 |
wfjm |
foreach addr [list 0x0 0x011 [expr {$amax - 1}]] {
|
69 |
10 |
wfjm |
rlc exec -estatdef $esdval $esdmsk \
|
70 |
|
|
-wreg em.addr $addr \
|
71 |
|
|
-rreg em.data \
|
72 |
21 |
wfjm |
-rreg em.addr -edata [expr {( $addr + 1 ) & $amax}] \
|
73 |
10 |
wfjm |
-rreg em.data \
|
74 |
21 |
wfjm |
-rreg em.addr -edata [expr {( $addr + 2 ) & $amax}]
|
75 |
10 |
wfjm |
}
|
76 |
|
|
#
|
77 |
|
|
#-------------------------------------------------------------------------
|
78 |
|
|
rlc log " test 3: verify rberr on DATA write and DATE read if in go state"
|
79 |
|
|
rlc exec \
|
80 |
|
|
-wreg em.data 0x0000 -estat [regbld rlink::STAT rberr] $esdmsk \
|
81 |
|
|
-wreg em.cntl [regbld rbemon::CNTL go] -estat $esdval $esdmsk \
|
82 |
|
|
-rreg em.data -estat [regbld rlink::STAT rberr] $esdmsk
|
83 |
|
|
#
|
84 |
|
|
#-------------------------------------------------------------------------
|
85 |
|
|
rlc log " test 4: verify that CNTL.clr returns to 0"
|
86 |
16 |
wfjm |
set npoll 48
|
87 |
10 |
wfjm |
set edat {}
|
88 |
|
|
set emsk {}
|
89 |
|
|
for {set i 0} {$i < $npoll} {incr i} { lappend edat 0x0000 }
|
90 |
|
|
for {set i 1} {$i < $npoll} {incr i} { lappend emsk 0xffff }
|
91 |
|
|
rlc exec -estatdef $esdval $esdmsk \
|
92 |
|
|
-wreg em.cntl [regbld rbemon::CNTL clr] \
|
93 |
|
|
-rblk em.cntl $npoll -edata $edat $emsk
|
94 |
|
|
#
|
95 |
|
|
incr errcnt [rlc errcnt -clear]
|
96 |
|
|
return $errcnt
|
97 |
|
|
}
|
98 |
|
|
}
|