1
0
mirror of https://github.com/wfjm/w11.git synced 2026-01-28 13:09:42 +00:00

- interim release w11a_V0.57 (untagged)

- new C++ and Tcl based backend server supports now RK11 handling
- w11a systems operate with rlink over USB on nexsy2 and nexsy3 boards.
  See w11a_os_guide.txt for details
This commit is contained in:
Walter F.J. Mueller
2013-04-27 14:21:46 +00:00
parent 99de9893cb
commit b06cbef00a
105 changed files with 5202 additions and 593 deletions

View File

@@ -1,4 +1,4 @@
# $Id: test_w11a_dsta_flow.tcl 502 2013-04-02 19:29:30Z mueller $
# $Id: test_w11a_dsta_flow.tcl 510 2013-04-26 16:14:57Z mueller $
#
# Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
@@ -51,20 +51,20 @@ data: .blkw 2*7.
.word 177777
}
rw11a::asmrun $cpu sym [list r0 $sym(sub00) \
r1 $sym(sub10) \
r2 $sym(psub2) \
r3 [expr {$sym(sub30)+2}] \
r4 $sym(psub4e) \
r5 $sym(data) ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 $sym(sub00) \
rw11::asmrun $cpu sym [list r0 $sym(sub00) \
r1 $sym(sub10) \
r2 $sym(psub2) \
r3 [expr {$sym(sub30)+2}] \
r4 $sym(psub4e) \
r5 $sym(data) ]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 $sym(sub00) \
r1 [expr {$sym(sub10)+2}] \
r2 [expr {$sym(psub2)+4}] \
r3 $sym(sub30) \
r4 $sym(psub4) \
r5 [expr {$sym(data) + 7*2*2}] ]
rw11a::asmtmem $cpu $sym(data) [list \
rw11::asmtmem $cpu $sym(data) [list \
0100 $sym(start:100$) \
0110 $sym(start:110$) \
0120 $sym(start:120$) \
@@ -105,17 +105,17 @@ data: .blkw 2*5.
.word 177777
}
rw11a::asmrun $cpu sym [list r0 [expr {$sym(sub00)-020}] \
rw11::asmrun $cpu sym [list r0 [expr {$sym(sub00)-020}] \
r1 [expr {$sym(psub10)-040}] \
r5 $sym(data) ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 [expr {$sym(sub00)-020}] \
r1 [expr {$sym(psub10)-040}] \
r2 0 \
r3 0 \
r4 0 \
r5 [expr {$sym(data) + 5*2*2}] ]
rw11a::asmtmem $cpu $sym(data) [list \
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 [expr {$sym(sub00)-020}] \
r1 [expr {$sym(psub10)-040}] \
r2 0 \
r3 0 \
r4 0 \
r5 [expr {$sym(data) + 5*2*2}] ]
rw11::asmtmem $cpu $sym(data) [list \
01100 $sym(start:1100$) \
01110 $sym(start:1110$) \
01120 $sym(start:1120$) \

View File

@@ -1,4 +1,4 @@
# $Id: test_w11a_dstm_word_flow.tcl 502 2013-04-02 19:29:30Z mueller $
# $Id: test_w11a_dstm_word_flow.tcl 510 2013-04-26 16:14:57Z mueller $
#
# Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
@@ -38,20 +38,20 @@ pdata5: .word data5,data5+2
pdat5e:
}
rw11a::asmrun $cpu sym [list r0 010 \
r1 $sym(data1) \
r2 $sym(data2) \
r3 $sym(pdata3) \
r4 $sym(data4e) \
r5 $sym(pdat5e) ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 011 \
r1 $sym(data1) \
r2 [expr {$sym(data2) + 4}] \
r3 [expr {$sym(pdata3) + 4}] \
r4 [expr {$sym(data4e) - 4}] \
r5 [expr {$sym(pdat5e) - 4}] ]
rw11a::asmtmem $cpu $sym(data1) {021 031 032 041 042 051 052 061 062}
rw11::asmrun $cpu sym [list r0 010 \
r1 $sym(data1) \
r2 $sym(data2) \
r3 $sym(pdata3) \
r4 $sym(data4e) \
r5 $sym(pdat5e) ]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 011 \
r1 $sym(data1) \
r2 [expr {$sym(data2) + 4}] \
r3 [expr {$sym(pdata3) + 4}] \
r4 [expr {$sym(data4e) - 4}] \
r5 [expr {$sym(pdat5e) - 4}] ]
rw11::asmtmem $cpu $sym(data1) {021 031 032 041 042 051 052 061 062}
rlc log " nn(r0),@nn(r0),var,@var,@#var (mode=6,7,67,77,37)"
@@ -74,7 +74,7 @@ pdata1: .word data1
pdata3: .word data3
}
rw11a::asmrun $cpu sym [list r0 [expr {$sym(data0)-020}] \
r1 [expr {$sym(pdata1)-040}] ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtmem $cpu $sym(data0) {0201 0211 0221 0231 0241}
rw11::asmrun $cpu sym [list r0 [expr {$sym(data0)-020}] \
r1 [expr {$sym(pdata1)-040}] ]
rw11::asmwait $cpu sym 1.0
rw11::asmtmem $cpu $sym(data0) {0201 0211 0221 0231 0241}

View File

@@ -1,4 +1,4 @@
# $Id: test_w11a_dstw_word_flow.tcl 502 2013-04-02 19:29:30Z mueller $
# $Id: test_w11a_dstw_word_flow.tcl 510 2013-04-26 16:14:57Z mueller $
#
# Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
@@ -38,19 +38,19 @@ pdata5: .word data5,data5+2
pdat5e:
}
rw11a::asmrun $cpu sym [list r1 $sym(data1) \
rw11::asmrun $cpu sym [list r1 $sym(data1) \
r2 $sym(data2) \
r3 $sym(pdata3) \
r4 $sym(data4e) \
r5 $sym(pdat5e) ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 0100 \
r1 $sym(data1) \
r2 [expr {$sym(data2) + 4}] \
r3 [expr {$sym(pdata3) + 4}] \
r4 [expr {$sym(data4e) - 4}] \
r5 [expr {$sym(pdat5e) - 4}] ]
rw11a::asmtmem $cpu $sym(data1) {0110 0120 0121 0130 0131 0140 0141 0150 0151}
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 0100 \
r1 $sym(data1) \
r2 [expr {$sym(data2) + 4}] \
r3 [expr {$sym(pdata3) + 4}] \
r4 [expr {$sym(data4e) - 4}] \
r5 [expr {$sym(pdat5e) - 4}] ]
rw11::asmtmem $cpu $sym(data1) {0110 0120 0121 0130 0131 0140 0141 0150 0151}
@@ -74,7 +74,7 @@ pdata1: .word data1
pdata3: .word data3
}
rw11a::asmrun $cpu sym [list r0 [expr {$sym(data0)-020}] \
r1 [expr {$sym(pdata1)-040}] ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtmem $cpu $sym(data0) {0200 0210 0220 0230 0240}
rw11::asmrun $cpu sym [list r0 [expr {$sym(data0)-020}] \
r1 [expr {$sym(pdata1)-040}] ]
rw11::asmwait $cpu sym 1.0
rw11::asmtmem $cpu $sym(data0) {0200 0210 0220 0230 0240}

View File

@@ -1,4 +1,4 @@
# $Id: test_w11a_inst_traps.tcl 502 2013-04-02 19:29:30Z mueller $
# $Id: test_w11a_inst_traps.tcl 510 2013-04-26 16:14:57Z mueller $
#
# Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
@@ -62,13 +62,13 @@ data: .blkw 6.*5.
.word 177777
}
rw11a::asmrun $cpu sym [list r5 $sym(data) ]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 0 r1 0 r2 0 r3 0 \
r5 [expr {$sym(data) + 6*5*2}] \
sp $sym(start) ]
rw11::asmrun $cpu sym [list r5 $sym(data) ]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 0 r1 0 r2 0 r3 0 \
r5 [expr {$sym(data) + 6*5*2}] \
sp $sym(start) ]
# data: trap ps; trap id; stack-pc; stack-ps opcode
rw11a::asmtmem $cpu $sym(data) \
rw11::asmtmem $cpu $sym(data) \
[list 000340 001014 $sym(start:350$) 000350 0000003 \
000341 001020 $sym(start:351$) 000351 0000004 \
000342 001030 $sym(start:352$) 000352 0104100 \

View File

@@ -1,4 +1,4 @@
# $Id: test_w11a_srcr_word_flow.tcl 502 2013-04-02 19:29:30Z mueller $
# $Id: test_w11a_srcr_word_flow.tcl 510 2013-04-26 16:14:57Z mueller $
#
# Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
@@ -22,9 +22,9 @@ lpc: halt
stop:
}
rw11a::asmrun $cpu sym [list r0 01234]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 01234 \
rw11::asmrun $cpu sym [list r0 01234]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 01234 \
r1 01234 \
r2 $sym(stack) \
r3 $sym(lpc) \
@@ -45,14 +45,14 @@ data: .word 1001
.word 1002
}
rw11a::asmrun $cpu sym [list r0 $sym(data)]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 $sym(data) \
r1 001001 \
r2 001001 \
r3 001002 \
r4 001002 \
r5 001001]
rw11::asmrun $cpu sym [list r0 $sym(data)]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 $sym(data) \
r1 001001 \
r2 001001 \
r3 001002 \
r4 001002 \
r5 001001]
rlc log " @(r0)+,@-(r0) (mode=3,5)"
$cpu ldasm -lst lst -sym sym {
@@ -71,14 +71,14 @@ data0: .word 2001
data1: .word 2002
}
rw11a::asmrun $cpu sym [list r0 $sym(pdata)]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 $sym(pdata) \
r1 002001 \
r2 002002 \
r3 [expr {$sym(pdata)+4}] \
r4 002002 \
r5 002001]
rw11::asmrun $cpu sym [list r0 $sym(pdata)]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 $sym(pdata) \
r1 002001 \
r2 002002 \
r3 [expr {$sym(pdata)+4}] \
r4 002002 \
r5 002001]
rlc log " nn(r0),@nn(r0) (mode=6,7)"
$cpu ldasm -lst lst -sym sym {
@@ -99,14 +99,14 @@ data0: .word 003002
data1: .word 003004
}
rw11a::asmrun $cpu sym [list r0 $sym(data)]
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 $sym(data) \
r1 003001 \
r2 003002 \
r3 003003 \
r4 003004 \
r5 0]
rw11::asmrun $cpu sym [list r0 $sym(data)]
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 $sym(data) \
r1 003001 \
r2 003002 \
r3 003003 \
r4 003004 \
r5 0]
rlc log " #nn,@#nn,var,@var (mode=27,37,67,77)"
$cpu ldasm -lst lst -sym sym {
@@ -124,11 +124,11 @@ data3: .word 004003
data4: .word 004004
}
rw11a::asmrun $cpu sym {}
rw11a::asmwait $cpu sym 1.0
rw11a::asmtreg $cpu [list r0 0 \
r1 004001 \
r2 004002 \
r3 004003 \
r4 004004 \
r5 0]
rw11::asmrun $cpu sym {}
rw11::asmwait $cpu sym 1.0
rw11::asmtreg $cpu [list r0 0 \
r1 004001 \
r2 004002 \
r3 004003 \
r4 004004 \
r5 0]