mirror of
https://github.com/wfjm/w11.git
synced 2026-05-03 14:49:57 +00:00
99de9893cb
- C++ and Tcl based backend server: many support classes for interfacing to w11 system designs, and the associated Tcl bindings. - add 'asm-11', a simple, Macro-11 syntax subset combatible, assembler. - use now doxygen 1.8.3.1, generate c++,tcl, and vhdl source docs
50 lines
1.2 KiB
Tcl
50 lines
1.2 KiB
Tcl
# $Id: test_cp_psw.tcl 502 2013-04-02 19:29:30Z mueller $
|
|
#
|
|
# Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
|
|
#
|
|
# Revision History:
|
|
# Date Rev Version Comment
|
|
# 2013-03-31 502 1.0 Initial version
|
|
#
|
|
# Test that psw is writable and readable via various ways
|
|
# 1. direct cp access
|
|
# 2. via 16bit memory addressing
|
|
# 3. via 22bit memory addressing
|
|
# 4. via ibr mapping
|
|
#
|
|
# This test not only verifies psw, but also all basic access methods
|
|
#
|
|
|
|
rlc log "test_cp_psw: test psw access via all methods"
|
|
rlc log " write/read via cp"
|
|
foreach w { 000000 000017 } {
|
|
$cpu cp -wps $w \
|
|
-rps -edata $w
|
|
}
|
|
|
|
rlc log " write/read via 16bit cp addressing"
|
|
$cpu cp -wal 0177776
|
|
foreach w { 000000 000017 } {
|
|
$cpu cp -wm $w \
|
|
-rm -edata $w \
|
|
-rps -edata $w
|
|
}
|
|
|
|
rlc log " write/read via 22bit cp addressing"
|
|
$cpu cp -wal 0177776 -wah 000177
|
|
foreach w { 000000 000017 } {
|
|
$cpu cp -wm $w \
|
|
-rm -edata $w \
|
|
-rps -edata $w
|
|
}
|
|
|
|
rlc log " write/read via ibr window"
|
|
$cpu cp -wibrb 0177700 \
|
|
-ribrb -edata 0017700
|
|
foreach w { 000000 000017 } {
|
|
$cpu cp -wibr 076 $w \
|
|
-ribr 076 -edata $w \
|
|
-rps -edata $w
|
|
}
|