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

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