mirror of
https://github.com/wfjm/w11.git
synced 2026-04-25 20:01:57 +00:00
ba4aa45c48
- tools/bin/tmuconv: add memory system register names - tools/src - librw11/Rw11Cpu: add kCPUUBMAP - librwxxtpp/RtclRw11Cpu.cpp: use kCPUUBMAP - tools/tbench - cp/cp_all.dat: add test_cp_ubmap.tcl - cp/test_cp_cpubasics.tcl: add creset test - cp/test_cp_gr.tcl: streamline, use longer command chains - cp/test_cp_membasics.tcl: add 22bit mode tests - cp/test_cp_ubmap.tcl: added, test access via ubmap - w11a/test_w11a_dstr_word_flow.tcl: renamed from test_w11a_dstm_word_flow.tcl - w11a/test_w11a_cdma.tcl: added, test bwm/brm with active CPU - w11a/test_w11a_inst_traps.tcl: use defs_cpu.mac include - w11a/test_w11a_inst_wait.tcl: added, tests WAIT instruction - w11a/w11a_all.dat: add test_w11a_inst_wait.tcl, test_w11a_cdma.tcl - tools/tcl/rw11/defs.tcl: add A_UBMAP - tools/tcode - cpu_details.mac: add A5 - cpu_mmu.mac: add F2
153 lines
5.2 KiB
Tcl
153 lines
5.2 KiB
Tcl
# $Id: test_cp_membasics.tcl 1346 2023-01-06 12:56:08Z mueller $
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
# Copyright 2014-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
#
|
|
# Revision History:
|
|
# Date Rev Version Comment
|
|
# 2023-01-06 1346 1.1.1 add 22bit mode tests
|
|
# 2019-06-22 1170 1.1 add membe tests for memory accesses
|
|
# 2014-03-02 552 1.0 Initial version
|
|
#
|
|
# Test very basic memory interface gymnastics
|
|
# 1. write/read address register
|
|
# 2. write/read memory via wm/wmi/rm/rmi (16 bit mode)
|
|
# 3. write/read memory via bwm/brm (16 bit mode)
|
|
# 4. write/read memory test membe (16 bit mode)
|
|
# 5. write/read memory via bwm/brm (22 bit mode)
|
|
# Note: ubmap mode is tested in test_cp_ubmap.tcl
|
|
|
|
# ----------------------------------------------------------------------------
|
|
rlc log "test_cp_membasics: Test very basic memory interface gymnastics ------"
|
|
|
|
# --------------------------------------------------------------------
|
|
rlc log " A1: write/read address register ---------------------------"
|
|
|
|
# test wal
|
|
$cpu cp -wal 002000 \
|
|
-ral -edata 002000 \
|
|
-rah -edata 000000
|
|
|
|
# test wah+wal
|
|
$cpu cp -wal 003000 \
|
|
-wah 000001 \
|
|
-ral -edata 003000 \
|
|
-rah -edata 000001
|
|
|
|
# --------------------------------------------------------------------
|
|
rlc log " A2: write/read memory via wm/wmi/rm/rmi (16 bit mode) -----"
|
|
|
|
# simple write/read without increment
|
|
$cpu cp -wal 002000 \
|
|
-wm 001100 \
|
|
-ral -edata 002000 \
|
|
-rah -edata 000000 \
|
|
-rm -edata 001100
|
|
|
|
# double write + single read, check overwrite
|
|
$cpu cp -wal 002000 \
|
|
-wm 002200 \
|
|
-wm 002210 \
|
|
-ral -edata 002000 \
|
|
-rah -edata 000000 \
|
|
-rm -edata 002210
|
|
|
|
# double write/read with increment
|
|
$cpu cp -wal 002100 \
|
|
-wmi 003300 \
|
|
-wmi 003310 \
|
|
-wmi 003320 \
|
|
-ral -edata 002106 \
|
|
-rah -edata 000000
|
|
|
|
$cpu cp -wal 002100 \
|
|
-rmi -edata 003300 \
|
|
-rmi -edata 003310 \
|
|
-rmi -edata 003320 \
|
|
-ral -edata 002106 \
|
|
-rah -edata 000000
|
|
|
|
# --------------------------------------------------------------------
|
|
rlc log " A3: write/read memory via bwm/brm (16 bit mode) -----------"
|
|
$cpu cp -wal 02200 \
|
|
-bwm {007700 007710 007720 007730}
|
|
|
|
$cpu cp -wal 02200 \
|
|
-brm 4 -edata {007700 007710 007720 007730}
|
|
|
|
# --------------------------------------------------------------------
|
|
rlc log " A4: write/read memory - test membe (16 bit mode) ----------"
|
|
|
|
# init 4 words
|
|
$cpu cp -wal 002300 \
|
|
-bwm {0xaaaa 0xbbbb 0xcccc 0xdddd} \
|
|
-wal 002300 \
|
|
-brm 4 -edata {0xaaaa 0xbbbb 0xcccc 0xdddd}
|
|
# overwrite with membe '00' '01' '10' '11'
|
|
# verify that membe state not persistent (re-init to 11 after write
|
|
$cpu cp -wal 002300 \
|
|
-wmembe [bvi b2 "00"] \
|
|
-rmembe -edata [bvi b3 "000"] \
|
|
-wmi 0x0000 \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wmembe [bvi b2 "01"] \
|
|
-rmembe -edata [bvi b3 "001"] \
|
|
-wmi 0x1111 \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wmembe [bvi b2 "10"] \
|
|
-rmembe -edata [bvi b3 "010"] \
|
|
-wmi 0x2222 \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wmembe [bvi b2 "11"] \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wmi 0x3333 \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wal 002300 \
|
|
-brm 4 -edata {0xaaaa 0xbb11 0x22cc 0x3333}
|
|
# verify thay wmembe without -sticky acts on single write only
|
|
$cpu cp -wal 002300 \
|
|
-wmembe [bvi b2 "01"] \
|
|
-rmembe -edata [bvi b3 "001"] \
|
|
-wmi 0x0000 \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wmi 0x9999 \
|
|
-rmembe -edata [bvi b3 "011"] \
|
|
-wal 002300 \
|
|
-brm 4 -edata {0xaa00 0x9999 0x22cc 0x3333}
|
|
# verify thay wmembe with -sticky is persistent
|
|
$cpu cp -wal 002300 \
|
|
-wmembe [bvi b2 "10"] -stick \
|
|
-rmembe -edata [bvi b3 "110"] \
|
|
-wmi 0x4444 \
|
|
-wmi 0x5555 \
|
|
-wmi 0x6666 \
|
|
-wmi 0x7777 \
|
|
-rmembe -edata [bvi b3 "110"] \
|
|
-wal 002300 \
|
|
-brm 4 -edata {0x4400 0x5599 0x66cc 0x7733} \
|
|
-wmembe [bvi b2 "11"] \
|
|
-rmembe -edata [bvi b3 "011"]
|
|
|
|
# --------------------------------------------------------------------
|
|
rlc log " A5: write/read memory via bwm/brm (22 bit mode) -----------"
|
|
# determine memory size from losize and write/read top 32 memory words
|
|
|
|
# get losize (is last click of available memory)
|
|
$cpu cp -ribr [$cpu imap losize] losize
|
|
set watop [expr $losize<<6]; # clicks to bytes
|
|
set waltop [expr $watop & 0177776]; # get lower 16 bit
|
|
set wahtop [expr ($watop>>16) & 076]; # get upper 6 bit
|
|
set buf {}
|
|
for {set i 0} {$i < 32} {incr i} {
|
|
lappend buf [expr 0123000 + $i]
|
|
}
|
|
|
|
# write in 22bit mode
|
|
$cpu cp -wal $waltop \
|
|
-wah [regbld rw11::CP_AH p22 [list addr $wahtop]] \
|
|
-bwm $buf
|
|
|
|
# read and check
|
|
$cpu cp -wal $waltop \
|
|
-wah [regbld rw11::CP_AH p22 [list addr $wahtop]] \
|
|
-brm [llength $buf] -edata $buf
|