mirror of
https://github.com/wfjm/w11.git
synced 2026-03-04 10:45:39 +00:00
tbench: use .mcall, fix typos
This commit is contained in:
wfjm
18
tools/asm-11/mlib/vecdef.mac
Normal file
18
tools/asm-11/mlib/vecdef.mac
Normal file
@@ -0,0 +1,18 @@
|
||||
; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
; Copyright 2023- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
;
|
||||
; set vector to handler and PS (default pr7 kernel) at compile time
|
||||
; Notes:
|
||||
; - must be initialized before with vecini
|
||||
; - use vecset for run time set up
|
||||
; - changes '.', use only right after vec_cpucatch and vec_devcatch
|
||||
;
|
||||
.macro vecdef,name,hdl,psw
|
||||
. = name
|
||||
.word hdl
|
||||
.if b,psw
|
||||
.word cp.pr7
|
||||
.iff
|
||||
.word psw
|
||||
.endc
|
||||
.endm
|
||||
@@ -1,14 +1,14 @@
|
||||
; $Id: vecset.mac 1359 2023-01-27 20:58:50Z mueller $
|
||||
; $Id: vecset.mac 1364 2023-02-02 11:18:54Z mueller $
|
||||
; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
; Copyright 2023- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
;
|
||||
; set vector to handler and PS (default pr0 kernel)
|
||||
; set vector to handler and PS (default pr0 kernel) at run time
|
||||
;
|
||||
.macro vecset,name,hdl,pri
|
||||
.macro vecset,name,hdl,psw
|
||||
mov #hdl,@#name
|
||||
.if b,pri
|
||||
.if b,psw
|
||||
clr @#name+2
|
||||
.iff
|
||||
mov #pri,@#name+2
|
||||
mov #psw,@#name+2
|
||||
.endc
|
||||
.endm
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# $Id: rk11perf.tcl 1362 2023-01-31 18:16:17Z mueller $
|
||||
# $Id: rk11perf.tcl 1363 2023-02-01 11:45:13Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2017-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# $Id: dmaperf.tcl 1194 2019-07-20 07:43:21Z mueller $
|
||||
# $Id: dmaperf.tcl 1363 2023-02-01 11:45:13Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2014-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_deuna_func.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_deuna_func.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2017-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2017-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -14,7 +14,7 @@
|
||||
rlc log "test_deuna_func: test function response -----------------------------"
|
||||
package require ibd_deuna
|
||||
if {![ibd_deuna::setup]} {
|
||||
rlc log " test_deuna_regs-W: device not found, test aborted"
|
||||
rlc log " test_deuna_func-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_deuna_int.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_deuna_int.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2017- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2017-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -13,7 +13,7 @@
|
||||
rlc log "test_deuna_int: test interrupt response -----------------------------"
|
||||
package require ibd_deuna
|
||||
if {![ibd_deuna::setup]} {
|
||||
rlc log " test_deuna_regs-W: device not found, test aborted"
|
||||
rlc log " test_deuna_int-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,9 +1,10 @@
|
||||
# $Id: test_dl11_loop.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_dl11_loop.tcl 1364 2023-02-02 11:18:54Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.2 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.1 size->fuse rename
|
||||
# 2019-04-26 1139 1.0 Initial version (derived from test_pc11_loop.tcl)
|
||||
#
|
||||
@@ -37,15 +38,10 @@ $cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_dl.mac|
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
. = v..tti ; setup receiver vector
|
||||
.word vh.tti
|
||||
.word cp.pr7
|
||||
|
||||
. = v..tto ; setup transmitter vector
|
||||
.word vh.tto
|
||||
.word cp.pr7
|
||||
|
||||
vecdef v..tti,vh.tti ; setup receiver vector
|
||||
vecdef v..tto,vh.tto ; setup transmitter vector
|
||||
;
|
||||
. = 1000 ; code area
|
||||
stack:
|
||||
|
||||
@@ -1,19 +1,20 @@
|
||||
# $Id: test_dl11_rx.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_dl11_rx.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.2 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.1 size->fuse rename
|
||||
# 2019-04-26 1139 1.0 Initial version (derived from test_pc11_pr.tcl)
|
||||
#
|
||||
# Test DL11 receiver response
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
rlc log "test_dl11_pr: test dl11 paper reader resonse ------------------------"
|
||||
rlc log "test_dl11_rx: test dl11 receiver response ---------------------------"
|
||||
package require ibd_dl11
|
||||
if {![ibd_dl11::setup]} {
|
||||
rlc log " test_dl11_pr-W: device not found, test aborted"
|
||||
rlc log " test_dl11_rx-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
@@ -174,9 +175,11 @@ rlc log " B1: test csr.ie and basic interrupt response --------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_dl.mac|
|
||||
. = va.tti ; setup DL11 receiver interrupt vector
|
||||
.word vh.tti
|
||||
.word cp.pr7
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
vecdef v..tti,vh.tti ; setup receiver vector
|
||||
;
|
||||
. = 1000 ; code area
|
||||
stack:
|
||||
@@ -214,13 +217,11 @@ rlc log " B2: test csr.ie and rri write -> cpu read -----------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_dl.mac|
|
||||
;
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
. = v..tti ; setup DL11 receiver interrupt vector
|
||||
.word vh.tti
|
||||
.word cp.pr7
|
||||
vecdef v..tti,vh.tti ; setup receiver vector
|
||||
;
|
||||
. = 1000 ; data area
|
||||
stack:
|
||||
|
||||
@@ -1,16 +1,17 @@
|
||||
# $Id: test_dl11_tx.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_dl11_tx.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.2 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.1 size->fuse rename
|
||||
# 2019-04-26 1139 1.0 Initial version (derived from test_pc11_pp.tcl)
|
||||
#
|
||||
# Test DL11 transmitter response
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
rlc log "test_dl11_tx: test dl11 paper puncher resonse -----------------------"
|
||||
rlc log "test_dl11_tx: test dl11 transmitter response ------------------------"
|
||||
package require ibd_dl11
|
||||
if {![ibd_dl11::setup]} {
|
||||
rlc log " test_dl11_tx-W: device not found, test aborted"
|
||||
@@ -315,13 +316,11 @@ rlc log " B2: test csr.ie and cpu write -> rri read -----------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_dl.mac|
|
||||
;
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
. = v..tto ; setup DL11 transmitter interrupt vector
|
||||
.word vh.tto
|
||||
.word cp.pr7
|
||||
vecdef v..tto,vh.tto ; setup transmitter vector
|
||||
;
|
||||
. = 1000 ; data area
|
||||
stack:
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_dz11_loop.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_dz11_loop.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -13,7 +13,7 @@
|
||||
rlc log "test_dz11_loop: test dz11 receiver+transmit response ----------------"
|
||||
package require ibd_dz11
|
||||
if {![ibd_dz11::setup]} {
|
||||
rlc log " test_dz11_tx-W: device not found, test aborted"
|
||||
rlc log " test_dz11_loop-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_kw11p_ctr.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_kw11p_ctr.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2018-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2018-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -10,10 +10,10 @@
|
||||
# Test ctr response with CSR(fix)
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
rlc log "test_kw11p_regs: test ctr response with CSR(fix) --------------------"
|
||||
rlc log "test_kw11p_ctr: test ctr response with CSR(fix) ---------------------"
|
||||
|
||||
if {[$cpu get haskw11p] == 0} {
|
||||
rlc log " test_kw11p_regs-W: no kw11p unit found, test aborted"
|
||||
rlc log " test_kw11p_ctr-W: no kw11p unit found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_kw11p_int.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_kw11p_int.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2018- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2018-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -10,10 +10,10 @@
|
||||
# Test interrupt response
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
rlc log "test_kw11p_regs: test ctr response with CSR(fix) --------------------"
|
||||
rlc log "test_kw11p_int: test interrupt response -----------------------------"
|
||||
|
||||
if {[$cpu get haskw11p] == 0} {
|
||||
rlc log " test_kw11p_regs-W: no kw11p unit found, test aborted"
|
||||
rlc log " test_kw11p_int-W: no kw11p unit found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,9 +1,10 @@
|
||||
# $Id: test_lp11_all.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_lp11_all.tcl 1364 2023-02-02 11:18:54Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.4 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.3 size->fuse rename
|
||||
# 2019-04-19 1134 1.0.2 fifo not longer cleared by breset
|
||||
# 2019-04-06 1126 1.0.1 check csr.err and csr.rlim not changed by breset
|
||||
@@ -368,13 +369,11 @@ rlc log " B2: test csr.ie and cpu write -> rri read -----------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_lp.mac|
|
||||
;
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
;
|
||||
. = v..lp ; setup LP11 interrupt vector
|
||||
.word vh.lp
|
||||
.word cp.pr7
|
||||
.mcall vecdef
|
||||
;
|
||||
vecdef v..lp,vh.lp ; setup LP11 interrupt vector
|
||||
;
|
||||
. = 1000 ; data area
|
||||
stack:
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_m9312_all.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_m9312_all.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -12,7 +12,7 @@
|
||||
rlc log "test_m9312_all: test m9312 response ---------------------------------"
|
||||
|
||||
if {[$cpu get hasm9312] == 0} {
|
||||
rlc log " test_m9312_regs-W: no m9312 unit found, test aborted"
|
||||
rlc log " test_m9312_all-W: no m9312 unit found, test aborted"
|
||||
return
|
||||
}
|
||||
package require ibd_m9312
|
||||
|
||||
@@ -1,9 +1,10 @@
|
||||
# $Id: test_pc11_loop.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_pc11_loop.tcl 1364 2023-02-02 11:18:54Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.2 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.1 size->fuse rename
|
||||
# 2019-04-20 1134 1.0 Initial version
|
||||
# 2019-04-07 1129 0.1 First draft
|
||||
@@ -38,15 +39,10 @@ $cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_pc.mac|
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
. = v..ptr ; setup reader vector
|
||||
.word vh.pr
|
||||
.word cp.pr7
|
||||
|
||||
. = v..ptp ; setup puncher vector
|
||||
.word vh.pp
|
||||
.word cp.pr7
|
||||
|
||||
vecdef v..ptr,vh.ptr ; setup reader vector
|
||||
vecdef v..ptp,vh.ptp ; setup puncher vector
|
||||
;
|
||||
. = 1000 ; code area
|
||||
stack:
|
||||
@@ -73,14 +69,14 @@ start:
|
||||
3$: wait
|
||||
br 3$
|
||||
;
|
||||
vh.pr: tstb @#pr.csr ;;; done set ?
|
||||
vh.ptr: tstb @#pr.csr ;;; done set ?
|
||||
bpl ehalt ;;; if pl not -> error halt
|
||||
movb @#pr.buf,(r4)+ ;;; read char, to fifo
|
||||
bis #pr.ena,@#pr.csr ;;; reader enable (read next)
|
||||
bis #pp.ie,@#pp.csr ;;; enable pp irupt
|
||||
rti
|
||||
;
|
||||
vh.pp: tstb @#pp.csr ;;; ready set ?
|
||||
vh.ptp: tstb @#pp.csr ;;; ready set ?
|
||||
bpl ehalt ;;; if not error halt
|
||||
cmp r4,r5 ;;; data in fifo ?
|
||||
beq ehalt ;;; if eq not -> error halt
|
||||
|
||||
@@ -1,9 +1,10 @@
|
||||
# $Id: test_pc11_pp.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_pc11_pp.tcl 1364 2023-02-02 11:18:54Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.2 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.1 size->fuse rename
|
||||
# 2019-04-21 1134 1.0 Initial version
|
||||
# 2019-04-07 1129 0.1 First draft
|
||||
@@ -341,9 +342,11 @@ rlc log " B1: test csr.ie and basic interrupt response --------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_pc.mac|
|
||||
. = va.ptp ; setup PC11 puncher interrupt vector
|
||||
.word vh.ptp
|
||||
.word cp.pr7
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
vecdef v..ptp,vh.ptp ; setup puncher vector
|
||||
;
|
||||
. = 1000 ; code area
|
||||
stack:
|
||||
|
||||
@@ -1,9 +1,10 @@
|
||||
# $Id: test_pc11_pr.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_pc11_pr.tcl 1364 2023-02-02 11:18:54Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
# 2023-02-02 1364 1.0.2 use .mcall and vecdef
|
||||
# 2019-05-30 1155 1.0.1 size->fuse rename
|
||||
# 2019-04-21 1134 1.0 Initial version
|
||||
# 2019-04-12 1131 0.1 First draft
|
||||
@@ -276,9 +277,11 @@ rlc log " B1: test csr.ie and basic interrupt response --------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_pc.mac|
|
||||
. = va.ptr ; setup PC11 reader interrupt vector
|
||||
.word vh.ptr
|
||||
.word cp.pr7
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
vecdef v..ptr,vh.ptr ; setup reader vector
|
||||
;
|
||||
. = 1000 ; code area
|
||||
stack:
|
||||
@@ -347,13 +350,11 @@ rlc log " B2: test csr.ie and rri write -> cpu read -----------------"
|
||||
$cpu ldasm -lst lst -sym sym {
|
||||
.include |lib/defs_cpu.mac|
|
||||
.include |lib/defs_pc.mac|
|
||||
;
|
||||
.include |lib/vec_cpucatch.mac|
|
||||
.include |lib/vec_devcatch.mac|
|
||||
.mcall vecdef
|
||||
;
|
||||
. = v..ptr ; setup PC11 reader interrupt vector
|
||||
.word vh.ptr
|
||||
.word cp.pr7
|
||||
vecdef v..ptr,vh.ptr ; setup reader vector
|
||||
;
|
||||
. = 1000 ; data area
|
||||
stack:
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_rhrp_basics.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_rhrp_basics.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2015-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -18,7 +18,7 @@ rlc log "test_rhrp_basics: basic access tests --------------------------------"
|
||||
rlc log " setup context"
|
||||
package require ibd_rhrp
|
||||
if {![ibd_rhrp::setup]} {
|
||||
rlc log " test_rhrp_regs-W: device not found, test aborted"
|
||||
rlc log " test_rhrp_basics-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_rhrp_func_reg.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_rhrp_func_reg.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2015-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -16,7 +16,7 @@ rlc log "test_rhrp_func_reg: test functions - register level -----------------"
|
||||
rlc log " setup: unit 0:RP06(mol), 1:RM05(mol,wrl), 2: RP07(mol=0), 3: off"
|
||||
package require ibd_rhrp
|
||||
if {![ibd_rhrp::setup]} {
|
||||
rlc log " test_rhrp_regs-W: device not found, test aborted"
|
||||
rlc log " test_rhrp_func_reg-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_rhrp_int.tcl 1321 2022-11-24 15:06:47Z mueller $
|
||||
# $Id: test_rhrp_int.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2015-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2015-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -19,7 +19,7 @@ rlc log "test_rhrp_int: test interrupt response ------------------------------"
|
||||
rlc log " setup: unit 0:RP06(mol), 1:RM05(mol,wrl), 2: RP07(mol=0), 3: off"
|
||||
package require ibd_rhrp
|
||||
if {![ibd_rhrp::setup]} {
|
||||
rlc log " test_rhrp_regs-W: device not found, test aborted"
|
||||
rlc log " test_rhrp_int-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_rhrp_int2.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_rhrp_int2.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2015-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -16,7 +16,7 @@ rlc log "test_rhrp_int2: test interrupt response for nested xfer+seek --------"
|
||||
rlc log " setup: unit 0-3: RP06(mol)"
|
||||
package require ibd_rhrp
|
||||
if {![ibd_rhrp::setup]} {
|
||||
rlc log " test_rhrp_regs-W: device not found, test aborted"
|
||||
rlc log " test_rhrp_int2-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_tm11_int.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_tm11_int.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2015-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -16,7 +16,7 @@ rlc log "test_tm11_int: test interrupt response ------------------------------"
|
||||
rlc log " setup: all units online"
|
||||
package require ibd_tm11
|
||||
if {![ibd_tm11::setup]} {
|
||||
rlc log " test_tm11_regs-W: device not found, test aborted"
|
||||
rlc log " test_tm11_int-W: device not found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_cmon_imon.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_cmon_imon.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2015-2017 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2015-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -13,7 +13,7 @@
|
||||
rlc log "test_cmon_imon: test last instruction monitor -----------------------"
|
||||
|
||||
if {[$cpu get hascmon] == 0} {
|
||||
rlc log " test_cmon_regs-W: no cmon unit found, test aborted"
|
||||
rlc log " test_cmon_imon-W: no cmon unit found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_ibmon_ibtst.tcl 1274 2022-08-08 09:21:53Z mueller $
|
||||
# $Id: test_ibmon_ibtst.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -9,7 +9,7 @@
|
||||
#
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
rlc log "test_ibmon_ibtest: tests with ibd_ibtst as target -------------------"
|
||||
rlc log "test_ibmon_ibtst: tests with ibd_ibtst as target --------------------"
|
||||
|
||||
if {[$cpu get hasibmon] == 0} {
|
||||
rlc log " test_ibmon_ibtst-W: no ibmon unit found, test aborted"
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_ibtst_stat.tcl 1178 2019-06-30 12:39:40Z mueller $
|
||||
# $Id: test_ibtst_stat.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2019-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -20,7 +20,7 @@
|
||||
rlc log "test_ibtst_stat: test stat register response -------------------------"
|
||||
|
||||
if {[$cpu get hasibtst] == 0} {
|
||||
rlc log " test_ibtst_data-W: no ibtst unit found, test aborted"
|
||||
rlc log " test_ibtst_stat-W: no ibtst unit found, test aborted"
|
||||
return
|
||||
}
|
||||
package require ibd_ibtst
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_pcnt_basics.tcl 1330 2022-12-16 17:52:40Z mueller $
|
||||
# $Id: test_pcnt_basics.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2018-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2018-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -14,7 +14,7 @@
|
||||
rlc log "test_pcnt_basics: test basic functionality --------------------------"
|
||||
|
||||
if {[$cpu get haspcnt] == 0} {
|
||||
rlc log " test_pcnt_regs-W: no pcnt unit found, test aborted"
|
||||
rlc log " test_pcnt_basics-W: no pcnt unit found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
# $Id: test_pcnt_codes.tcl 1330 2022-12-16 17:52:40Z mueller $
|
||||
# $Id: test_pcnt_codes.tcl 1365 2023-02-02 11:46:43Z mueller $
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
# Copyright 2018-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
# Copyright 2018-2023 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
#
|
||||
# Revision History:
|
||||
# Date Rev Version Comment
|
||||
@@ -15,7 +15,7 @@
|
||||
rlc log "test_pcnt_codes: test counters --------------------------------------"
|
||||
|
||||
if {[$cpu get haspcnt] == 0} {
|
||||
rlc log " test_pcnt_regs-W: no pcnt unit found, test aborted"
|
||||
rlc log " test_pcnt_codes-W: no pcnt unit found, test aborted"
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user