URL https://opencores.org/ocsvn/w11/w11/trunk

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.74/] [tools/] [tbench/] [rhrp/] [test_rhrp_int.tcl] - Blame information for rev 38

Details | Compare with Previous | View Log


# $Id: test_rhrp_int.tcl 705 2015-07-26 21:25:42Z mueller $
#
# Copyright 2015- 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
# 2015-07-25   704   1.1.2  tmpproc_dotest: use args rather opts
# 2015-06-20   692   1.1.1  de-configure all drives at begin
# 2015-05-04   674   1.1    w11a start/stop/suspend overhaul
# 2015-03-29   667   1.0    Initial version
#
# Test interrupt response 
#  A: 
 
# ----------------------------------------------------------------------------
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
ibd_rhrp::setup
 
rlc set statmask  $rw11::STAT_DEFMASK
rlc set statvalue 0
 
# de-configure all drives (and clear errros and reset vv)
$cpu cp -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 0] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS erp vv] \
        -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 1] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS erp vv] \
        -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 2] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS erp vv] \
        -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 3] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS erp vv]
 
# configure drives
$cpu cp -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 0] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS {dpr 1} mol] \
        -wibr rpa.dt  $ibd_rhrp::DTE_RP06 \
        -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 1] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS {dpr 1} mol wrl] \
        -wibr rpa.dt  $ibd_rhrp::DTE_RM05 \
        -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 2] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS {dpr 1}] \
        -wibr rpa.dt  $ibd_rhrp::DTE_RP07 \
        -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 3] \
        -wibr rpa.ds  [regbld ibd_rhrp::DS {dpr 0}]
 
# clear errors: cs1.tre=1 via unit 0
$cpu cp -wma  rpa.cs2 [regbld ibd_rhrp::CS2 {unit 0}] \
        -wma  rpa.cs1 [regbld ibd_rhrp::CS1 tre] \
        -wma  rpa.cs1 [ibd_rhrp::cs1_func $ibd_rhrp::FUNC_DCLR] \
        -wma  rpa.as  [regbld ibd_rhrp::AS u3 u2 u1 u0] \
        -rma  rpa.ds  -edata [regbld ibd_rhrp::DS dpr mol dry]
 
# load test code
$cpu ldasm -lst lst -sym sym {
        .include  |lib/defs_cpu.mac|
        .include  |lib/defs_rp.mac|
;
        .include  |lib/vec_cpucatch.mac|
;
        . = 000254              ; setup RHRP interrupt vector
v..rp:  .word vh.rp
        .word cp.pr7
;
        . = 1000                ; data area
stack:
ibuf:   .blkw  4.               ; input buffer
rint:   .word  0                ; reinterrupt
;
icnt:   .word  0                ; interrupt count
pcnt:   .word  0                ; poll count
obuf:   .blkw  6.               ; output buffer
fbuf:   .blkw  5.               ; final buffer
;
        . = 2000                ; code area
start:  spl     7               ; lock out interrupts
        clr     icnt            ; clear counters
        clr     pcnt
;
        mov     #obuf,r0        ; clear obuf 
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     r5              ; r5 used to time int delay
;
        mov     #ibuf,r0        ; setup regs from ibuf
        mov     (r0)+,@#rp.cs2  ;   cs2
        mov     (r0)+,@#rp.da   ;   da
        mov     (r0)+,@#rp.dc   ;   dc
        mov     (r0)+,@#rp.cs1  ;   cs1
        spl     0               ; allow interrupts
;
        inc     r5              ; time int delay, up to 10 instructions
        inc     r5
        inc     r5
        inc     r5
        inc     r5
        inc     r5
        inc     r5
        inc     r5
        inc     r5
        inc     r5
;
poll:   inc     pcnt            ; count polls
        tstb    @#rp.cs1        ; check cs1 rdy
        bpl     poll            ; if rdy=0 keep polling
        tst     icnt            ; did we have an interrupt ?
        bne     1$              ;
;
        mov     #obuf,r0        ; store regs in obuf
        mov     @#rp.cs1,(r0)+  ;   cs1
        mov     @#rp.cs2,(r0)+  ;   cs2
        mov     @#rp.er1,(r0)+  ;   er1
        mov     @#rp.ds,(r0)+   ;   ds
        mov     @#rp.as,(r0)+   ;   as
;
1$:     tst     rint            ; re-interrupt wanted ?
        bne     2$              ;
        mov     #377,@#rp.as    ; if not, cancel all attentions
        clr     rint
;
2$:     bit     #rp.erp,@#rp.ds ; ds.erp = 1 ? any controller errors ?
        beq     3$
        mov     #<rp.fcl+rp.go>,@#rp.cs1 ; than do drive clear 
;
3$:     bit     #rp.tre,@#rp.cs1 ; cs1.tre = 1 ? any transfer errors ?
        beq     4$
        mov     #rp.tre,@#rp.cs1 ; if yes, clear them with tre=1 write
;
4$:     mov     #fbuf,r0        ; store final regs in fbuf
        mov     @#rp.cs1,(r0)+  ;   cs1
        mov     @#rp.cs2,(r0)+  ;   cs2
        mov     @#rp.er1,(r0)+  ;   er1
        mov     @#rp.ds,(r0)+   ;   ds
        mov     @#rp.as,(r0)+   ;   as
 
        halt                    ; halt if done
stop:
;
        clr     pcnt            ; clear pcnt again
        mov     #obuf,r0        ; clear obuf again
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
        clr     (r0)+
;
        mov     #rp.ie,@#rp.cs1 ; re-enable interrupt
        br      poll
 
; RHRP interrupt handler
vh.rp:  mov     #obuf,r0        ; store regs in obuf
        mov     @#rp.cs1,(r0)+  ;   cs1
        mov     @#rp.cs2,(r0)+  ;   cs2
        mov     @#rp.er1,(r0)+  ;   er1
        mov     @#rp.ds,(r0)+   ;   ds
        mov     @#rp.as,r1      ;   
        mov     r1,(r0)+        ;   as
        mov     r5,(r0)+        ;   int delay
;
1$:     tst     icnt            ; test first interrupt
        beq     2$              ; if yes quit
        mov     r1,@#rp.as      ; if not, clear as
2$:     inc     icnt            ; count interrupts
        rti                     ; and return
}
 
##puts $lst
 
# define tmpproc for readback checks
proc tmpproc_dotest {cpu symName args} {
  upvar 1 $symName sym
 
  set tout 10.;                   # FIXME_code: parameter ??
 
# setup defs hash, first defaults, than write over concrete run values  
  args2opts opts  {i.cs2    0 \
                   i.da     0 \
                   i.dc     0 \
                   i.cs1    0 \
                   i.idly   0 \
                   o.cs1    0 \
                   o.cs2    0 \
                   o.er1    0 \
                   o.ds     0 \
                   o.as     0 \
                   o.itim  10 \
                   o.icnt   0 \
                   o.pcnt   1 \
                   or.cs1   0 \
                   or.cs2   0 \
                   or.er1   0 \
                   or.ds    0 \
                   or.as    0 \
                   or.icnt  0 \
                   or.pcnt  1 \
                   do.rint  0 \
                   do.lam   0 } {*}$args
 
  # build ibuf
  set ibuf [list $opts(i.cs2) $opts(i.da) $opts(i.dc) $opts(i.cs1) \
              $opts(do.rint)]
 
  # setup idly, write ibuf, setup stack, and start cpu at start:
  $cpu cp -wibr rpa.cs1 [regbldkv ibd_rhrp::RCS1 \
                           val $opts(i.idly) func WIDLY ] \
          -wal   $sym(ibuf) \
          -bwm   $ibuf \
          -wsp   $sym(stack) \
          -stapc $sym(start)
 
  # here do minimal lam handling (harvest + send DONE)
  if {$opts(do.lam)} {
    rlc wtlam $tout apat
    $cpu cp -attn \
            -wibr rpa.cs1 [ibd_rhrp::cs1_func $ibd_rhrp::RFUNC_DONE]
  }
 
  $cpu wtcpu -reset $tout
 
  # determine regs after cleanup
  set cs1msk [rutil::com16 [regbld ibd_rhrp::CS1 {func -1}]]
  set fcs2   [expr {$opts(o.cs2) & 0x00ff}]; # cs1.tre clears upper byte !
  set fer1   0
  if {!$opts(do.rint)} {        # no reinterrupt, ata clear by cpu
    set fcs1   [expr {$opts(o.cs1) & ~[regbld ibd_rhrp::CS1 sc tre {func -1}] }]
    set fds    [expr {$opts(o.ds) & ~[regbld ibd_rhrp::DS ata erp] }]
    set fas    0
  } else {                      # reinterrupt, ata still pending
    set fcs1   [expr {$opts(o.cs1) & ~[regbld ibd_rhrp::CS1 tre {func -1}] }]
    set fds    [expr {$opts(o.ds) & ~[regbld ibd_rhrp::DS erp] }]
    set fas    $opts(o.as)
  }
  $cpu cp -rpc   -edata $sym(stop) \
          -rsp   -edata $sym(stack) \
          -wal   $sym(icnt) \
          -rmi   -edata $opts(o.icnt) \
          -rmi    \
          -rmi   -edata $opts(o.cs1)  \
          -rmi   -edata $opts(o.cs2)  \
          -rmi   -edata $opts(o.er1)  \
          -rmi   -edata $opts(o.ds)   \
          -rmi   -edata $opts(o.as)   \
          -rmi   -edata $opts(o.itim) \
          -rmi   -edata $fcs1 $cs1msk \
          -rmi   -edata $fcs2 \
          -rmi   -edata $fer1 \
          -rmi   -edata $fds  \
          -rmi   -edata $fas
 
  if {!$opts(do.rint)} return "";
 
  $cpu cp -start
 
  $cpu wtcpu -reset $tout
 
  # determine regs after cleanup
  set fcs1   [expr {$opts(or.cs1) & ~[regbld ibd_rhrp::CS1 sc] }]
  set fcs2   $opts(or.cs2)
  set fer1   0
  set fds    [expr {$opts(or.ds) & ~[regbld ibd_rhrp::DS ata] }]
  set fas    0
 
  $cpu cp -rpc   -edata $sym(stop) \
          -rsp   -edata $sym(stack) \
          -wal   $sym(icnt) \
          -rmi   -edata $opts(or.icnt) \
          -rmi    \
          -rmi   -edata $opts(or.cs1) \
          -rmi   -edata $opts(or.cs2) \
          -rmi   -edata $opts(or.er1) \
          -rmi   -edata $opts(or.ds)  \
          -rmi   -edata $opts(or.as)  \
          -rmi   \
          -rmi   -edata $fcs1 \
          -rmi   -edata $fcs2 \
          -rmi   -edata $fer1 \
          -rmi   -edata $fds  \
          -rmi   -edata $fas
 
  return ""
}
 
# discard pending attn to be on save side
rlc wtlam 0.
rlc exec -attn
 
# -- Section A ---------------------------------------------------------------
rlc log "  A -- function basics ----------------------------------------------"
rlc log "  A1: test rdy and ie logic ---------------------------------"
rlc log "    A1.1 set cs1.ie=1 alone -> no interrupt ------------"
 
# Note: no interrupt, so ie stays on !
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie] \
            o.icnt  0 \
            o.cs1   [regbld ibd_rhrp::CS1 dva rdy ie] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS mol dpr dry] \
            o.as    0 \
            o.itim  0
 
rlc log "    A1.2 set cs1.ie=1 with rdy=1 -> software interrupt -"
 
# Note: interrupt, so ie switched off again !
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 rdy ie] \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 dva rdy] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS mol dpr dry] \
            o.as    0 \
            o.itim  1
 
rlc log "  A2: test state functions: iff no, as yes ------------------"
rlc log "    A2.1 noop function ---------------------------------"
 
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie go] \
            o.cs1   [regbld ibd_rhrp::CS1 ie dva rdy] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS mol dpr dry] \
            o.as    0 \
            o.itim  0
 
rlc log "    A2.2 pack acknowledge function (sets ds.vv=1) ------"
 
set rbcs1func [list func $ibd_rhrp::FUNC_PACK]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 $rbcs1func ie go] \
            o.cs1   [regbld ibd_rhrp::CS1 dva rdy ie $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS mol dpr dry vv] \
            o.as    0 \
            o.itim  0
 
rlc log "  A3: test seek type functions: iff no, as yes --------------"
 
rlc log "    A3.1 seek function, ie=0, valid da,dc---------------"
 
# check that cs1.sc=1, ds.ata=1, and as.u0=1
set rbcs1func [list func $ibd_rhrp::FUNC_SEEK]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 $rbcs1func go] \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS ata mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  0
 
rlc log "    A3.2 seek function, valid da,dc, idly=0 ------------"
 
# check re-interrupt too
set rbcs1func [list func $ibd_rhrp::FUNC_SEEK]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            i.dc    814 \
            i.idly  0 \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS ata mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  1 \
            do.rint 1 \
            or.icnt 2 \
            or.cs1  [regbld ibd_rhrp::CS1 sc dva rdy] \
            or.cs2  [regbld ibd_rhrp::CS2 or ir] \
            or.er1  0 \
            or.ds   [regbld ibd_rhrp::DS ata mol dpr dry vv] \
            or.as   [regbld ibd_rhrp::AS u0]
 
rlc log "    A3.3 seek function, invalid dc ---------------------"
 
set rbcs1func [list func $ibd_rhrp::FUNC_SEEK]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            i.dc    815 \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   [regbld ibd_rhrp::ER1 iae] \
            o.ds    [regbld ibd_rhrp::DS ata erp mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  1
 
rlc log "    A3.4 search function, valid da,dc, idly=0 ----------"
 
set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            i.dc    0 \
            i.da    [regbld ibd_rhrp::DA {ta 0} {sa 21}] \
            i.idly  0 \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS ata mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  1
 
rlc log "    A3.5 search function, valid da,dc, idly=2 ----------"
 
set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            i.dc    0 \
            i.da    [regbld ibd_rhrp::DA {ta 0} {sa 21}] \
            i.idly  2 \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS ata mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  3
 
rlc log "    A3.5 search function, valid da,dc, idly=8 ----------"
 
set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]
tmpproc_dotest $cpu sym \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            i.dc    0 \
            i.da    [regbld ibd_rhrp::DA {ta 0} {sa 21}] \
            i.idly  8 \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   0 \
            o.ds    [regbld ibd_rhrp::DS ata mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  9
 
rlc log "    A3.5 search function, invalid sa, idly=8 -----------"
# Note: idly is 8, but error ata's come immediately !!
 
set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]
set opts [list \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            i.dc    0 \
            i.da    [regbld ibd_rhrp::DA {ta 0} {sa 22}] \
            i.idly  8 \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.er1   [regbld ibd_rhrp::ER1 iae] \
            o.ds    [regbld ibd_rhrp::DS ata erp mol dpr dry vv] \
            o.as    [regbld ibd_rhrp::AS u0] \
            o.itim  1
         ]
tmpproc_dotest $cpu sym {*}$opts
 
rlc log "  A4: test transfer functions: iff yes, as no ---------------"
rlc log "    A4.1 read function, valid da,dc --------------------"
 
set rbcs1func [list func $ibd_rhrp::FUNC_READ]
set opts [list \
            i.cs1   [regbld ibd_rhrp::CS1 ie $rbcs1func go] \
            o.icnt  1 \
            o.cs1   [regbld ibd_rhrp::CS1 dva rdy $rbcs1func] \
            o.cs2   [regbld ibd_rhrp::CS2 or ir] \
            o.ds    [regbld ibd_rhrp::DS mol dpr dry vv] \
            do.lam  1
         ]
tmpproc_dotest $cpu sym {*}$opts
 

Line No.	Rev	Author	Line
1	34	wfjm	`# $Id: test_rhrp_int.tcl 705 2015-07-26 21:25:42Z mueller $`
2	30	wfjm	`#`
3			`# Copyright 2015- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>`
4			`# License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory`
5			`#`
6			`# Revision History:`
7			`# Date Rev Version Comment`
8	34	wfjm	`# 2015-07-25 704 1.1.2 tmpproc_dotest: use args rather opts`
9	32	wfjm	`# 2015-06-20 692 1.1.1 de-configure all drives at begin`
10	30	wfjm	`# 2015-05-04 674 1.1 w11a start/stop/suspend overhaul`
11			`# 2015-03-29 667 1.0 Initial version`
12			`#`
13			`# Test interrupt response`
14			`# A:`
15
16			`# ----------------------------------------------------------------------------`
17			`rlc log "test_rhrp_int: test interrupt response ------------------------------"`
18			`rlc log " setup: unit 0:RP06(mol), 1:RM05(mol,wrl), 2: RP07(mol=0), 3: off"`
19			`package require ibd_rhrp`
20			`ibd_rhrp::setup`
21
22			`rlc set statmask $rw11::STAT_DEFMASK`
23			`rlc set statvalue 0`
24
25	32	wfjm	`# de-configure all drives (and clear errros and reset vv)`
26			`$cpu cp -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 0] \`
27			`-wibr rpa.ds [regbld ibd_rhrp::DS erp vv] \`
28			`-wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 1] \`
29			`-wibr rpa.ds [regbld ibd_rhrp::DS erp vv] \`
30			`-wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 2] \`
31			`-wibr rpa.ds [regbld ibd_rhrp::DS erp vv] \`
32			`-wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 3] \`
33			`-wibr rpa.ds [regbld ibd_rhrp::DS erp vv]`
34
35	30	wfjm	`# configure drives`
36			`$cpu cp -wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 0] \`
37			`-wibr rpa.ds [regbld ibd_rhrp::DS {dpr 1} mol] \`
38			`-wibr rpa.dt $ibd_rhrp::DTE_RP06 \`
39			`-wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 1] \`
40			`-wibr rpa.ds [regbld ibd_rhrp::DS {dpr 1} mol wrl] \`
41			`-wibr rpa.dt $ibd_rhrp::DTE_RM05 \`
42			`-wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 2] \`
43			`-wibr rpa.ds [regbld ibd_rhrp::DS {dpr 1}] \`
44			`-wibr rpa.dt $ibd_rhrp::DTE_RP07 \`
45			`-wibr rpa.cs1 [ibd_rhrp::rcs1_wunit 3] \`
46			`-wibr rpa.ds [regbld ibd_rhrp::DS {dpr 0}]`
47
48			`# clear errors: cs1.tre=1 via unit 0`
49			`$cpu cp -wma rpa.cs2 [regbld ibd_rhrp::CS2 {unit 0}] \`
50			`-wma rpa.cs1 [regbld ibd_rhrp::CS1 tre] \`
51			`-wma rpa.cs1 [ibd_rhrp::cs1_func $ibd_rhrp::FUNC_DCLR] \`
52			`-wma rpa.as [regbld ibd_rhrp::AS u3 u2 u1 u0] \`
53			`-rma rpa.ds -edata [regbld ibd_rhrp::DS dpr mol dry]`
54
55			`# load test code`
56			`$cpu ldasm -lst lst -sym sym {`
57			`.include \|lib/defs_cpu.mac\|`
58			`.include \|lib/defs_rp.mac\|`
59			`;`
60			`.include \|lib/vec_cpucatch.mac\|`
61			`;`
62			`. = 000254 ; setup RHRP interrupt vector`
63			`v..rp: .word vh.rp`
64			`.word cp.pr7`
65			`;`
66			`. = 1000 ; data area`
67			`stack:`
68			`ibuf: .blkw 4. ; input buffer`
69			`rint: .word 0 ; reinterrupt`
70			`;`
71			`icnt: .word 0 ; interrupt count`
72			`pcnt: .word 0 ; poll count`
73			`obuf: .blkw 6. ; output buffer`
74			`fbuf: .blkw 5. ; final buffer`
75			`;`
76			`. = 2000 ; code area`
77			`start: spl 7 ; lock out interrupts`
78			`clr icnt ; clear counters`
79			`clr pcnt`
80			`;`
81			`mov #obuf,r0 ; clear obuf`
82			`clr (r0)+`
83			`clr (r0)+`
84			`clr (r0)+`
85			`clr (r0)+`
86			`clr (r0)+`
87			`clr (r0)+`
88			`clr r5 ; r5 used to time int delay`
89			`;`
90			`mov #ibuf,r0 ; setup regs from ibuf`
91			`mov (r0)+,@#rp.cs2 ; cs2`
92			`mov (r0)+,@#rp.da ; da`
93			`mov (r0)+,@#rp.dc ; dc`
94			`mov (r0)+,@#rp.cs1 ; cs1`
95			`spl 0 ; allow interrupts`
96			`;`
97			`inc r5 ; time int delay, up to 10 instructions`
98			`inc r5`
99			`inc r5`
100			`inc r5`
101			`inc r5`
102			`inc r5`
103			`inc r5`
104			`inc r5`
105			`inc r5`
106			`inc r5`
107			`;`
108			`poll: inc pcnt ; count polls`
109			`tstb @#rp.cs1 ; check cs1 rdy`
110			`bpl poll ; if rdy=0 keep polling`
111			`tst icnt ; did we have an interrupt ?`
112			`bne 1$ ;`
113			`;`
114			`mov #obuf,r0 ; store regs in obuf`
115			`mov @#rp.cs1,(r0)+ ; cs1`
116			`mov @#rp.cs2,(r0)+ ; cs2`
117			`mov @#rp.er1,(r0)+ ; er1`
118			`mov @#rp.ds,(r0)+ ; ds`
119			`mov @#rp.as,(r0)+ ; as`
120			`;`
121			`1$: tst rint ; re-interrupt wanted ?`
122			`bne 2$ ;`
123			`mov #377,@#rp.as ; if not, cancel all attentions`
124			`clr rint`
125			`;`
126			`2$: bit #rp.erp,@#rp.ds ; ds.erp = 1 ? any controller errors ?`
127			`beq 3$`
128			`mov #<rp.fcl+rp.go>,@#rp.cs1 ; than do drive clear`
129			`;`
130			`3$: bit #rp.tre,@#rp.cs1 ; cs1.tre = 1 ? any transfer errors ?`
131			`beq 4$`
132			`mov #rp.tre,@#rp.cs1 ; if yes, clear them with tre=1 write`
133			`;`
134			`4$: mov #fbuf,r0 ; store final regs in fbuf`
135			`mov @#rp.cs1,(r0)+ ; cs1`
136			`mov @#rp.cs2,(r0)+ ; cs2`
137			`mov @#rp.er1,(r0)+ ; er1`
138			`mov @#rp.ds,(r0)+ ; ds`
139			`mov @#rp.as,(r0)+ ; as`
140
141			`halt ; halt if done`
142			`stop:`
143			`;`
144			`clr pcnt ; clear pcnt again`
145			`mov #obuf,r0 ; clear obuf again`
146			`clr (r0)+`
147			`clr (r0)+`
148			`clr (r0)+`
149			`clr (r0)+`
150			`clr (r0)+`
151			`clr (r0)+`
152			`;`
153			`mov #rp.ie,@#rp.cs1 ; re-enable interrupt`
154			`br poll`
155
156			`; RHRP interrupt handler`
157			`vh.rp: mov #obuf,r0 ; store regs in obuf`
158			`mov @#rp.cs1,(r0)+ ; cs1`
159			`mov @#rp.cs2,(r0)+ ; cs2`
160			`mov @#rp.er1,(r0)+ ; er1`
161			`mov @#rp.ds,(r0)+ ; ds`
162			`mov @#rp.as,r1 ;`
163			`mov r1,(r0)+ ; as`
164			`mov r5,(r0)+ ; int delay`
165			`;`
166			`1$: tst icnt ; test first interrupt`
167			`beq 2$ ; if yes quit`
168			`mov r1,@#rp.as ; if not, clear as`
169			`2$: inc icnt ; count interrupts`
170			`rti ; and return`
171			`}`
172
173			`##puts $lst`
174
175			`# define tmpproc for readback checks`
176	34	wfjm	`proc tmpproc_dotest {cpu symName args} {`
177	30	wfjm	`upvar 1 $symName sym`
178
179			`set tout 10.; # FIXME_code: parameter ??`
180
181			`# setup defs hash, first defaults, than write over concrete run values`
182	34	wfjm	`args2opts opts {i.cs2 0 \`
183	30	wfjm	`i.da 0 \`
184			`i.dc 0 \`
185			`i.cs1 0 \`
186			`i.idly 0 \`
187			`o.cs1 0 \`
188			`o.cs2 0 \`
189			`o.er1 0 \`
190			`o.ds 0 \`
191			`o.as 0 \`
192			`o.itim 10 \`
193			`o.icnt 0 \`
194			`o.pcnt 1 \`
195			`or.cs1 0 \`
196			`or.cs2 0 \`
197			`or.er1 0 \`
198			`or.ds 0 \`
199			`or.as 0 \`
200			`or.icnt 0 \`
201			`or.pcnt 1 \`
202			`do.rint 0 \`
203	34	wfjm	`do.lam 0 } {*}$args`
204	30	wfjm
205			`# build ibuf`
206	34	wfjm	`set ibuf [list $opts(i.cs2) $opts(i.da) $opts(i.dc) $opts(i.cs1) \`
207			`$opts(do.rint)]`
208	30	wfjm
209			`# setup idly, write ibuf, setup stack, and start cpu at start:`
210	34	wfjm	`$cpu cp -wibr rpa.cs1 [regbldkv ibd_rhrp::RCS1 \`
211			`val $opts(i.idly) func WIDLY ] \`
212	30	wfjm	`-wal $sym(ibuf) \`
213			`-bwm $ibuf \`
214			`-wsp $sym(stack) \`
215			`-stapc $sym(start)`
216
217			`# here do minimal lam handling (harvest + send DONE)`
218	34	wfjm	`if {$opts(do.lam)} {`
219	30	wfjm	`rlc wtlam $tout apat`
220			`$cpu cp -attn \`
221			`-wibr rpa.cs1 [ibd_rhrp::cs1_func $ibd_rhrp::RFUNC_DONE]`
222			`}`
223
224			`$cpu wtcpu -reset $tout`
225
226			`# determine regs after cleanup`
227			`set cs1msk [rutil::com16 [regbld ibd_rhrp::CS1 {func -1}]]`
228	34	wfjm	`set fcs2 [expr {$opts(o.cs2) & 0x00ff}]; # cs1.tre clears upper byte !`
229	30	wfjm	`set fer1 0`
230	34	wfjm	`if {!$opts(do.rint)} { # no reinterrupt, ata clear by cpu`
231			`set fcs1 [expr {$opts(o.cs1) & ~[regbld ibd_rhrp::CS1 sc tre {func -1}] }]`
232			`set fds [expr {$opts(o.ds) & ~[regbld ibd_rhrp::DS ata erp] }]`
233	30	wfjm	`set fas 0`
234			`} else { # reinterrupt, ata still pending`
235	34	wfjm	`set fcs1 [expr {$opts(o.cs1) & ~[regbld ibd_rhrp::CS1 tre {func -1}] }]`
236			`set fds [expr {$opts(o.ds) & ~[regbld ibd_rhrp::DS erp] }]`
237			`set fas $opts(o.as)`
238	30	wfjm	`}`
239			`$cpu cp -rpc -edata $sym(stop) \`
240			`-rsp -edata $sym(stack) \`
241			`-wal $sym(icnt) \`
242	34	wfjm	`-rmi -edata $opts(o.icnt) \`
243	30	wfjm	`-rmi \`
244	34	wfjm	`-rmi -edata $opts(o.cs1) \`
245			`-rmi -edata $opts(o.cs2) \`
246			`-rmi -edata $opts(o.er1) \`
247			`-rmi -edata $opts(o.ds) \`
248			`-rmi -edata $opts(o.as) \`
249			`-rmi -edata $opts(o.itim) \`
250	30	wfjm	`-rmi -edata $fcs1 $cs1msk \`
251			`-rmi -edata $fcs2 \`
252			`-rmi -edata $fer1 \`
253			`-rmi -edata $fds \`
254			`-rmi -edata $fas`
255
256	34	wfjm	`if {!$opts(do.rint)} return "";`
257	30	wfjm
258			`$cpu cp -start`
259
260			`$cpu wtcpu -reset $tout`
261
262			`# determine regs after cleanup`
263	34	wfjm	`set fcs1 [expr {$opts(or.cs1) & ~[regbld ibd_rhrp::CS1 sc] }]`
264			`set fcs2 $opts(or.cs2)`
265	30	wfjm	`set fer1 0`
266	34	wfjm	`set fds [expr {$opts(or.ds) & ~[regbld ibd_rhrp::DS ata] }]`
267	30	wfjm	`set fas 0`
268
269			`$cpu cp -rpc -edata $sym(stop) \`
270			`-rsp -edata $sym(stack) \`
271			`-wal $sym(icnt) \`
272	34	wfjm	`-rmi -edata $opts(or.icnt) \`
273	30	wfjm	`-rmi \`
274	34	wfjm	`-rmi -edata $opts(or.cs1) \`
275			`-rmi -edata $opts(or.cs2) \`
276			`-rmi -edata $opts(or.er1) \`
277			`-rmi -edata $opts(or.ds) \`
278			`-rmi -edata $opts(or.as) \`
279	30	wfjm	`-rmi \`
280			`-rmi -edata $fcs1 \`
281			`-rmi -edata $fcs2 \`
282			`-rmi -edata $fer1 \`
283			`-rmi -edata $fds \`
284			`-rmi -edata $fas`
285
286			`return ""`
287			`}`
288
289			`# discard pending attn to be on save side`
290			`rlc wtlam 0.`
291			`rlc exec -attn`
292
293			`# -- Section A ---------------------------------------------------------------`
294			`rlc log " A -- function basics ----------------------------------------------"`
295			`rlc log " A1: test rdy and ie logic ---------------------------------"`
296			`rlc log " A1.1 set cs1.ie=1 alone -> no interrupt ------------"`
297
298			`# Note: no interrupt, so ie stays on !`
299	34	wfjm	`tmpproc_dotest $cpu sym \`
300	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie] \`
301			`o.icnt 0 \`
302			`o.cs1 [regbld ibd_rhrp::CS1 dva rdy ie] \`
303			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
304			`o.er1 0 \`
305			`o.ds [regbld ibd_rhrp::DS mol dpr dry] \`
306			`o.as 0 \`
307			`o.itim 0`
308
309			`rlc log " A1.2 set cs1.ie=1 with rdy=1 -> software interrupt -"`
310
311			`# Note: interrupt, so ie switched off again !`
312	34	wfjm	`tmpproc_dotest $cpu sym \`
313	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 rdy ie] \`
314			`o.icnt 1 \`
315			`o.cs1 [regbld ibd_rhrp::CS1 dva rdy] \`
316			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
317			`o.er1 0 \`
318			`o.ds [regbld ibd_rhrp::DS mol dpr dry] \`
319			`o.as 0 \`
320			`o.itim 1`
321
322			`rlc log " A2: test state functions: iff no, as yes ------------------"`
323			`rlc log " A2.1 noop function ---------------------------------"`
324
325	34	wfjm	`tmpproc_dotest $cpu sym \`
326	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie go] \`
327			`o.cs1 [regbld ibd_rhrp::CS1 ie dva rdy] \`
328			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
329			`o.er1 0 \`
330			`o.ds [regbld ibd_rhrp::DS mol dpr dry] \`
331			`o.as 0 \`
332			`o.itim 0`
333
334			`rlc log " A2.2 pack acknowledge function (sets ds.vv=1) ------"`
335
336			`set rbcs1func [list func $ibd_rhrp::FUNC_PACK]`
337	34	wfjm	`tmpproc_dotest $cpu sym \`
338	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 $rbcs1func ie go] \`
339			`o.cs1 [regbld ibd_rhrp::CS1 dva rdy ie $rbcs1func] \`
340			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
341			`o.er1 0 \`
342			`o.ds [regbld ibd_rhrp::DS mol dpr dry vv] \`
343			`o.as 0 \`
344			`o.itim 0`
345
346			`rlc log " A3: test seek type functions: iff no, as yes --------------"`
347
348			`rlc log " A3.1 seek function, ie=0, valid da,dc---------------"`
349
350			`# check that cs1.sc=1, ds.ata=1, and as.u0=1`
351			`set rbcs1func [list func $ibd_rhrp::FUNC_SEEK]`
352	34	wfjm	`tmpproc_dotest $cpu sym \`
353	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 $rbcs1func go] \`
354			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
355			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
356			`o.er1 0 \`
357			`o.ds [regbld ibd_rhrp::DS ata mol dpr dry vv] \`
358			`o.as [regbld ibd_rhrp::AS u0] \`
359			`o.itim 0`
360
361			`rlc log " A3.2 seek function, valid da,dc, idly=0 ------------"`
362
363			`# check re-interrupt too`
364			`set rbcs1func [list func $ibd_rhrp::FUNC_SEEK]`
365	34	wfjm	`tmpproc_dotest $cpu sym \`
366	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
367			`i.dc 814 \`
368			`i.idly 0 \`
369			`o.icnt 1 \`
370			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
371			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
372			`o.er1 0 \`
373			`o.ds [regbld ibd_rhrp::DS ata mol dpr dry vv] \`
374			`o.as [regbld ibd_rhrp::AS u0] \`
375			`o.itim 1 \`
376			`do.rint 1 \`
377			`or.icnt 2 \`
378			`or.cs1 [regbld ibd_rhrp::CS1 sc dva rdy] \`
379			`or.cs2 [regbld ibd_rhrp::CS2 or ir] \`
380			`or.er1 0 \`
381			`or.ds [regbld ibd_rhrp::DS ata mol dpr dry vv] \`
382			`or.as [regbld ibd_rhrp::AS u0]`
383
384			`rlc log " A3.3 seek function, invalid dc ---------------------"`
385
386			`set rbcs1func [list func $ibd_rhrp::FUNC_SEEK]`
387	34	wfjm	`tmpproc_dotest $cpu sym \`
388	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
389			`i.dc 815 \`
390			`o.icnt 1 \`
391			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
392			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
393			`o.er1 [regbld ibd_rhrp::ER1 iae] \`
394			`o.ds [regbld ibd_rhrp::DS ata erp mol dpr dry vv] \`
395			`o.as [regbld ibd_rhrp::AS u0] \`
396			`o.itim 1`
397
398			`rlc log " A3.4 search function, valid da,dc, idly=0 ----------"`
399
400			`set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]`
401	34	wfjm	`tmpproc_dotest $cpu sym \`
402	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
403			`i.dc 0 \`
404			`i.da [regbld ibd_rhrp::DA {ta 0} {sa 21}] \`
405			`i.idly 0 \`
406			`o.icnt 1 \`
407			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
408			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
409			`o.er1 0 \`
410			`o.ds [regbld ibd_rhrp::DS ata mol dpr dry vv] \`
411			`o.as [regbld ibd_rhrp::AS u0] \`
412			`o.itim 1`
413
414			`rlc log " A3.5 search function, valid da,dc, idly=2 ----------"`
415
416			`set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]`
417	34	wfjm	`tmpproc_dotest $cpu sym \`
418	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
419			`i.dc 0 \`
420			`i.da [regbld ibd_rhrp::DA {ta 0} {sa 21}] \`
421			`i.idly 2 \`
422			`o.icnt 1 \`
423			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
424			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
425			`o.er1 0 \`
426			`o.ds [regbld ibd_rhrp::DS ata mol dpr dry vv] \`
427			`o.as [regbld ibd_rhrp::AS u0] \`
428			`o.itim 3`
429
430			`rlc log " A3.5 search function, valid da,dc, idly=8 ----------"`
431
432			`set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]`
433	34	wfjm	`tmpproc_dotest $cpu sym \`
434	30	wfjm	`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
435			`i.dc 0 \`
436			`i.da [regbld ibd_rhrp::DA {ta 0} {sa 21}] \`
437			`i.idly 8 \`
438			`o.icnt 1 \`
439			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
440			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
441			`o.er1 0 \`
442			`o.ds [regbld ibd_rhrp::DS ata mol dpr dry vv] \`
443			`o.as [regbld ibd_rhrp::AS u0] \`
444			`o.itim 9`
445
446			`rlc log " A3.5 search function, invalid sa, idly=8 -----------"`
447			`# Note: idly is 8, but error ata's come immediately !!`
448
449			`set rbcs1func [list func $ibd_rhrp::FUNC_SEAR]`
450			`set opts [list \`
451			`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
452			`i.dc 0 \`
453			`i.da [regbld ibd_rhrp::DA {ta 0} {sa 22}] \`
454			`i.idly 8 \`
455			`o.icnt 1 \`
456			`o.cs1 [regbld ibd_rhrp::CS1 sc dva rdy $rbcs1func] \`
457			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
458			`o.er1 [regbld ibd_rhrp::ER1 iae] \`
459			`o.ds [regbld ibd_rhrp::DS ata erp mol dpr dry vv] \`
460			`o.as [regbld ibd_rhrp::AS u0] \`
461			`o.itim 1`
462			`]`
463	34	wfjm	`tmpproc_dotest $cpu sym {*}$opts`
464	30	wfjm
465			`rlc log " A4: test transfer functions: iff yes, as no ---------------"`
466			`rlc log " A4.1 read function, valid da,dc --------------------"`
467
468			`set rbcs1func [list func $ibd_rhrp::FUNC_READ]`
469			`set opts [list \`
470			`i.cs1 [regbld ibd_rhrp::CS1 ie $rbcs1func go] \`
471			`o.icnt 1 \`
472			`o.cs1 [regbld ibd_rhrp::CS1 dva rdy $rbcs1func] \`
473			`o.cs2 [regbld ibd_rhrp::CS2 or ir] \`
474			`o.ds [regbld ibd_rhrp::DS mol dpr dry vv] \`
475			`do.lam 1`
476			`]`
477	34	wfjm	`tmpproc_dotest $cpu sym {*}$opts`
478	30	wfjm

Browse

Tools

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.74/] [tools/] [tbench/] [rhrp/] [test_rhrp_int.tcl] - Blame information for rev 38