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 { mem2array aaa 32 $AIC_SMR [expr 32 * 4] } msg ] {
  58         error [format "%s (%s)" $msg AIC_SMR]
  59     }
  60     puts "AIC_SMR: Mode & Type"
  61     global AT91C_ID
  62     for { set x 0 } { $x < 32 } {  } {
  63         puts -nonewline "   "
  64         puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
  65         incr x
  66         puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
  67         incr x
  68         puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
  69         incr x
  70         puts  [format "%2d: %5s 0x%08x"  $x $AT91C_ID($x) $aaa($x)]
  71         incr x
  72     }
  73     global AIC_SVR
  74     if [catch { mem2array aaa 32 $AIC_SVR [expr 32 * 4] } msg ] {
  75         error [format "%s (%s)" $msg AIC_SVR]
  76     }
  77     puts "AIC_SVR: Vectors"
  78     for { set x 0 } { $x < 32 } {  } {
  79         puts -nonewline "   "
  80         puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
  81         incr x
  82         puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
  83         incr x
  84         puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
  85         incr x
  86         puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $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 }
 101