git.gag.com Git - fw/openocd/blob - tcl/chip/atmel/at91/aic.tcl

   1 # SPDX-License-Identifier: GPL-2.0-or-later
   2
   3 set AIC_SMR             [expr {$AT91C_BASE_AIC + 0x00000000} ]
   4 global AIC_SMR
   5 set AIC_SVR             [expr {$AT91C_BASE_AIC + 0x00000080} ]
   6 global AIC_SVR
   7 set AIC_IVR             [expr {$AT91C_BASE_AIC + 0x00000100} ]
   8 global AIC_IVR
   9 set AIC_FVR             [expr {$AT91C_BASE_AIC + 0x00000104} ]
  10 global AIC_FVR
  11 set AIC_ISR             [expr {$AT91C_BASE_AIC + 0x00000108} ]
  12 global AIC_ISR
  13 set AIC_IPR             [expr {$AT91C_BASE_AIC + 0x0000010C} ]
  14 global AIC_IPR
  15 set AIC_IMR             [expr {$AT91C_BASE_AIC + 0x00000110} ]
  16 global AIC_IMR
  17 set AIC_CISR            [expr {$AT91C_BASE_AIC + 0x00000114} ]
  18 global AIC_CISR
  19 set AIC_IECR            [expr {$AT91C_BASE_AIC + 0x00000120} ]
  20 global AIC_IECR
  21 set AIC_IDCR            [expr {$AT91C_BASE_AIC + 0x00000124} ]
  22 global AIC_IDCR
  23 set AIC_ICCR            [expr {$AT91C_BASE_AIC + 0x00000128} ]
  24 global AIC_ICCR
  25 set AIC_ISCR            [expr {$AT91C_BASE_AIC + 0x0000012C} ]
  26 global AIC_ISCR
  27 set AIC_EOICR           [expr {$AT91C_BASE_AIC + 0x00000130} ]
  28 global AIC_EOICR
  29 set AIC_SPU             [expr {$AT91C_BASE_AIC + 0x00000134} ]
  30 global AIC_SPU
  31 set AIC_DCR             [expr {$AT91C_BASE_AIC + 0x00000138} ]
  32 global AIC_DCR
  33 set AIC_FFER            [expr {$AT91C_BASE_AIC + 0x00000140} ]
  34 global AIC_FFER
  35 set AIC_FFDR            [expr {$AT91C_BASE_AIC + 0x00000144} ]
  36 global AIC_FFDR
  37 set AIC_FFSR            [expr {$AT91C_BASE_AIC + 0x00000148} ]
  38 global AIC_FFSR
  39
  40
  41 proc aic_enable_disable_list { VAL ENAME DNAME } {
  42     global AT91C_ID
  43
  44     show_mmr32_bits AT91C_ID $VAL
  45
  46 }
  47
  48 proc show_AIC_IPR_helper { NAME ADDR VAL } {
  49     aic_enable_disable_list  $VAL "IRQ PENDING" "irq not-pending"
  50 }
  51
  52 proc show_AIC_IMR_helper { NAME ADDR VAL } {
  53     aic_enable_disable_list  $VAL "IRQ ENABLED" "irq disabled"
  54 }
  55
  56
  57 proc show_AIC { } {
  58     global AIC_SMR
  59     if [catch { set aaa [read_memory $AIC_SMR 32 [expr {32 * 4}]] } msg ] {
  60         error [format "%s (%s)" $msg AIC_SMR]
  61     }
  62     echo "AIC_SMR: Mode & Type"
  63     global AT91C_ID
  64     for { set x 0 } { $x < 32 } {  } {
  65         echo -n "   "
  66         echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) [lindex $aaa $x]]
  67         incr x
  68         echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) [lindex $aaa $x]]
  69         incr x
  70         echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) [lindex $aaa $x]]
  71         incr x
  72         echo  [format "%2d: %5s 0x%08x"  $x $AT91C_ID($x) [lindex $aaa $x]]
  73         incr x
  74     }
  75     global AIC_SVR
  76     if [catch { set aaa [read_memory $AIC_SVR 32 [expr {32 * 4}]] } msg ] {
  77         error [format "%s (%s)" $msg AIC_SVR]
  78     }
  79     echo "AIC_SVR: Vectors"
  80     for { set x 0 } { $x < 32 } {  } {
  81         echo -n "   "
  82         echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) [lindex $aaa $x]]
  83         incr x
  84         echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) [lindex $aaa $x]]
  85         incr x
  86         echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) [lindex $aaa $x]]
  87         incr x
  88         echo [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) [lindex $aaa $x]]
  89         incr x
  90     }
  91
  92     foreach REG {
  93         AIC_IVR   AIC_FVR  AIC_ISR
  94         AIC_IPR  AIC_IMR  AIC_CISR  AIC_IECR AIC_IDCR
  95         AIC_ICCR AIC_ISCR AIC_EOICR AIC_SPU  AIC_DCR
  96         AIC_FFER AIC_FFDR AIC_FFSR } {
  97         if [catch { show_mmr32_reg $REG } msg ] {
  98             error $msg
  99             break
 100         }
 101     }
 102 }