Mercurial > flash_v2
annotate packages/hal/powerpc/arch/current/tests/intr0.c @ 32:5af43b635655 ecos-sw-1999-08-18
Merge from eCos master repository on 1999-08-18-15:20:01-BST
| author | jlarmour |
|---|---|
| date | Wed, 18 Aug 1999 15:33:44 +0000 |
| parents | 5f5102441818 |
| children | a3cc6665b684 |
| rev | line source |
|---|---|
| 2 | 1 //================================================================= |
| 2 // | |
| 3 // intr0.c | |
| 4 // | |
| 5 // Interrupt test 0 | |
| 6 // | |
| 7 //================================================================= | |
| 8 //####COPYRIGHTBEGIN#### | |
| 9 // | |
| 10 // ------------------------------------------- | |
| 11 // The contents of this file are subject to the Cygnus eCos Public License | |
| 12 // Version 1.0 (the "License"); you may not use this file except in | |
| 13 // compliance with the License. You may obtain a copy of the License at | |
| 14 // http://sourceware.cygnus.com/ecos | |
| 15 // | |
| 16 // Software distributed under the License is distributed on an "AS IS" | |
| 17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the | |
| 18 // License for the specific language governing rights and limitations under | |
| 19 // the License. | |
| 20 // | |
| 21 // The Original Code is eCos - Embedded Cygnus Operating System, released | |
| 22 // September 30, 1998. | |
| 23 // | |
| 24 // The Initial Developer of the Original Code is Cygnus. Portions created | |
| 25 // by Cygnus are Copyright (C) 1998,1999 Cygnus Solutions. All Rights Reserved. | |
| 26 // ------------------------------------------- | |
| 27 // | |
| 28 //####COPYRIGHTEND#### | |
| 29 //================================================================= | |
| 30 //#####DESCRIPTIONBEGIN#### | |
| 31 // | |
| 32 // Author(s): jskov | |
| 33 // Contributors: jskov | |
| 34 // Date: 1998-12-01 | |
| 35 // Description: Simple test of MPC860 interrupt handling when the | |
| 36 // kernel has not been configured. Uses timer interrupts. | |
| 37 // Options: | |
| 38 //####DESCRIPTIONEND#### | |
| 39 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
40 //#define DEBUG_PRINTFS |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
41 #ifdef DEBUG_PRINTFS |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
42 extern diag_printf( char *format, ... ); |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
43 #endif |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
44 |
| 2 | 45 #include <pkgconf/hal.h> |
| 46 | |
| 47 #define CYGARC_HAL_COMMON_EXPORT_CPU_MACROS | |
| 48 #include <cyg/hal/ppc_regs.h> | |
| 49 | |
| 50 #include <cyg/hal/hal_intr.h> | |
| 51 | |
| 52 #include <cyg/infra/testcase.h> | |
| 53 | |
| 54 #if defined(CYG_HAL_POWERPC_MPC860) | |
| 55 | |
| 56 #undef CHECK(b) | |
| 57 #define CHECK(b) CYG_TEST_CHECK(b,#b) | |
| 58 | |
| 59 // Can't rely on Cyg_Interrupt class being defined. | |
| 60 #define Cyg_InterruptHANDLED 1 | |
| 61 | |
| 62 // This is the period between interrupts, measured in decrementer ticks. | |
| 63 // Period must be longer than the time required for setting up all the | |
| 64 // interrupt handlers. | |
| 65 #define PIT_PERIOD 5000 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
66 |
|
32
5af43b635655
Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents:
20
diff
changeset
|
67 #ifdef CYG_HAL_POWERPC_MBX |
|
5af43b635655
Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents:
20
diff
changeset
|
68 #define TB_PERIOD (PIT_PERIOD*384) // PTA period is 15.36 uS |
|
5af43b635655
Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents:
20
diff
changeset
|
69 #else |
| 2 | 70 #define TB_PERIOD (PIT_PERIOD*32) // assuming 512/16 divisors |
|
32
5af43b635655
Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents:
20
diff
changeset
|
71 #endif |
| 2 | 72 |
| 73 #define ID_RTC_SEC 12345 | |
| 74 #define ID_RTC_ALR 23451 | |
| 75 #define ID_PIT 34512 | |
| 76 #define ID_TBA 45123 | |
| 77 #define ID_TBB 51234 | |
| 78 | |
| 79 volatile cyg_uint32 count = 0; | |
| 80 | |
| 81 // Time/PERIOD 0 1 2 3 4 5 6 7 8 9 10 | |
| 82 // Interrupt PIT TBA PIT PIT TBB PIT PIT | |
| 83 // pit_count 0 0 0 1 1 2 2 3 3 4 4 | |
| 84 // count 0 0 1 3 4 4 5 40 41 42 | |
| 85 | |
| 86 static cyg_uint32 count_verify_table[] = {1, 4, 5, 41, 42}; | |
| 87 static int pit_count = 0; | |
| 88 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
89 // These are useful for debugging: |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
90 static cyg_uint32 count_actual_table[] = { -1, -1, -1, -1, -1}; |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
91 static cyg_uint32 tbr_actual_table[] = { -1, -1, -1, -1, -1}; |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
92 |
| 2 | 93 // Periodic timer ISR. Should be executing 5 times. |
| 94 static cyg_uint32 isr_pit(CYG_ADDRWORD vector, CYG_ADDRWORD data) | |
| 95 { | |
| 96 cyg_uint32 verify_value; | |
| 97 | |
| 98 CYG_UNUSED_PARAM(CYG_ADDRWORD, data); | |
| 99 | |
| 100 CYG_ASSERT (CYGNUM_HAL_INTERRUPT_SIU_PIT == vector, "Wrong vector!"); | |
| 101 CYG_ASSERT (ID_PIT == data, "Wrong data!"); | |
| 102 | |
| 103 HAL_INTERRUPT_ACKNOWLEDGE (CYGNUM_HAL_INTERRUPT_SIU_PIT); | |
| 104 | |
| 105 count++; | |
| 106 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
107 count_actual_table[pit_count] = count; |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
108 { |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
109 cyg_uint32 tbl; |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
110 CYGARC_MFTB (TBL_R, tbl); |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
111 tbr_actual_table[pit_count] = tbl; |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
112 } |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
113 |
| 2 | 114 verify_value = count_verify_table[pit_count++]; |
| 115 | |
| 116 CYG_ASSERT (count == verify_value, "Count wrong!"); | |
| 117 | |
| 118 // End of test when count is 42. Mask interrupts and print PASS text. | |
| 119 if (42 <= count || 5 == pit_count) { | |
| 120 HAL_INTERRUPT_MASK (CYGNUM_HAL_INTERRUPT_SIU_PIT); | |
| 121 HAL_INTERRUPT_MASK (CYGNUM_HAL_INTERRUPT_SIU_TB_A); | |
| 122 HAL_INTERRUPT_MASK (CYGNUM_HAL_INTERRUPT_SIU_TB_B); | |
| 123 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
124 #ifdef DEBUG_PRINTFS |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
125 diag_printf( "INFO: Actual counts: %d %d %d %d %d\n", |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
126 count_actual_table[0], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
127 count_actual_table[1], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
128 count_actual_table[2], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
129 count_actual_table[3], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
130 count_actual_table[4] ); |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
131 diag_printf( "INFO: Actuals tbrs: %d %d %d %d %d\n", |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
132 tbr_actual_table[0], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
133 tbr_actual_table[1], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
134 tbr_actual_table[2], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
135 tbr_actual_table[3], |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
136 tbr_actual_table[4] ); |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
137 #endif |
| 2 | 138 if (42 == count && 5 == pit_count) |
| 139 CYG_TEST_PASS_FINISH("Intr 0 OK"); | |
| 140 else | |
| 141 CYG_TEST_FAIL_FINISH("Intr 0 Failed."); | |
| 142 } | |
| 143 | |
| 144 return Cyg_InterruptHANDLED; | |
| 145 } | |
| 146 | |
| 147 // TimeBase A ISR. Should be executing once. | |
| 148 static cyg_uint32 isr_tba(CYG_ADDRWORD vector, CYG_ADDRWORD data) | |
| 149 { | |
| 150 CYG_UNUSED_PARAM(CYG_ADDRWORD, data); | |
| 151 | |
| 152 CYG_ASSERT (CYGNUM_HAL_INTERRUPT_SIU_TB_A == vector, "Wrong vector!"); | |
| 153 CYG_ASSERT (ID_TBA == data, "Wrong data!"); | |
| 154 | |
| 155 HAL_INTERRUPT_ACKNOWLEDGE (CYGNUM_HAL_INTERRUPT_SIU_TB_A); | |
| 156 | |
| 157 count = count * 3; | |
| 158 | |
| 159 return Cyg_InterruptHANDLED; | |
| 160 } | |
| 161 | |
| 162 // TimeBase B ISR. Should be executing once. | |
| 163 static cyg_uint32 isr_tbb(CYG_ADDRWORD vector, CYG_ADDRWORD data) | |
| 164 { | |
| 165 CYG_UNUSED_PARAM(CYG_ADDRWORD, data); | |
| 166 | |
| 167 CYG_ASSERT (CYGNUM_HAL_INTERRUPT_SIU_TB_B == vector, "Wrong vector!"); | |
| 168 CYG_ASSERT (ID_TBB == data, "Wrong data!"); | |
| 169 | |
| 170 HAL_INTERRUPT_ACKNOWLEDGE (CYGNUM_HAL_INTERRUPT_SIU_TB_B); | |
| 171 | |
| 172 count = count * 8; | |
| 173 | |
| 174 return Cyg_InterruptHANDLED; | |
| 175 } | |
| 176 | |
| 177 void intr0_main( void ) | |
| 178 { | |
| 179 CYG_TEST_INIT(); | |
| 180 | |
| 181 #if 0 | |
| 182 // The A.3 revision of the CPU I'm using at the moment generates a | |
| 183 // machine check exception when writing to IMM_RTCSC. Smells a | |
| 184 // bit like the "SIU4. Spurious External Bus Transaction Following | |
| 185 // PLPRCR Write." CPU errata. Have to find out for sure. Run real | |
| 186 // time clock interrupts on level 0 | |
| 187 { | |
| 188 // Still to do. | |
| 189 } | |
| 190 #endif | |
| 191 | |
| 192 // Run periodic timer interrupt on level 1 | |
| 193 { | |
| 194 cyg_uint16 piscr; | |
| 195 | |
| 196 // Attach pit arbiter. | |
| 197 HAL_INTERRUPT_ATTACH (CYGNUM_HAL_INTERRUPT_SIU_LVL1, | |
| 198 &hal_arbitration_isr_pit, ID_PIT, 0); | |
| 199 HAL_INTERRUPT_UNMASK (CYGNUM_HAL_INTERRUPT_SIU_LVL1); | |
| 200 | |
| 201 // Attach pit isr. | |
| 202 HAL_INTERRUPT_ATTACH (CYGNUM_HAL_INTERRUPT_SIU_PIT, &isr_pit, | |
| 203 ID_PIT, 0); | |
| 204 HAL_INTERRUPT_SET_LEVEL (CYGNUM_HAL_INTERRUPT_SIU_PIT, 1); | |
| 205 HAL_INTERRUPT_UNMASK (CYGNUM_HAL_INTERRUPT_SIU_PIT); | |
| 206 | |
| 207 | |
| 208 // Set period. | |
| 209 HAL_WRITE_UINT32 (CYGARC_REG_IMM_PITC, | |
| 210 (2*PIT_PERIOD) << CYGARC_REG_IMM_PITC_COUNT_SHIFT); | |
| 211 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
212 #ifdef DEBUG_PRINTFS |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
213 diag_printf( "PIT set to %d\n", 2*PIT_PERIOD ); |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
214 #endif |
| 2 | 215 // Enable. |
| 216 HAL_READ_UINT16 (CYGARC_REG_IMM_PISCR, piscr); | |
| 217 piscr |= CYGARC_REG_IMM_PISCR_PTE; | |
| 218 HAL_WRITE_UINT16 (CYGARC_REG_IMM_PISCR, piscr); | |
| 219 } | |
| 220 | |
| 221 // Run timebase interrupts on level 2 | |
| 222 { | |
| 223 cyg_uint16 tbscr; | |
| 224 cyg_uint32 tbl; | |
| 225 | |
| 226 // Attach tb arbiter. | |
| 227 HAL_INTERRUPT_ATTACH (CYGNUM_HAL_INTERRUPT_SIU_LVL2, | |
| 228 &hal_arbitration_isr_tb, ID_TBA, 0); | |
| 229 HAL_INTERRUPT_UNMASK (CYGNUM_HAL_INTERRUPT_SIU_LVL2); | |
| 230 | |
| 231 // Attach tb isrs. | |
| 232 HAL_INTERRUPT_ATTACH (CYGNUM_HAL_INTERRUPT_SIU_TB_A, &isr_tba, | |
| 233 ID_TBA, 0); | |
| 234 HAL_INTERRUPT_ATTACH (CYGNUM_HAL_INTERRUPT_SIU_TB_B, &isr_tbb, | |
| 235 ID_TBB, 0); | |
| 236 HAL_INTERRUPT_SET_LEVEL (CYGNUM_HAL_INTERRUPT_SIU_TB_A, 2); | |
| 237 HAL_INTERRUPT_UNMASK (CYGNUM_HAL_INTERRUPT_SIU_TB_A); | |
| 238 HAL_INTERRUPT_UNMASK (CYGNUM_HAL_INTERRUPT_SIU_TB_B); | |
| 239 | |
| 240 // Set reference A & B registers. | |
| 241 CYGARC_MFTB (TBL_R, tbl); | |
| 242 tbl += TB_PERIOD*3; | |
| 243 HAL_WRITE_UINT32 (CYGARC_REG_IMM_TBREF0, tbl); | |
| 244 tbl += TB_PERIOD*4; | |
| 245 HAL_WRITE_UINT32 (CYGARC_REG_IMM_TBREF1, tbl); | |
| 246 | |
|
20
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
247 #ifdef DEBUG_PRINTFS |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
248 diag_printf( "TB initial %d, !1 %d !2 %d\n", |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
249 tbl - 7*TB_PERIOD, |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
250 tbl - 4*TB_PERIOD, |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
251 tbl - 0*TB_PERIOD ); |
|
5f5102441818
Merge from eCos master repository on 1999-07-02-23:17:07-BST
jlarmour
parents:
2
diff
changeset
|
252 #endif |
| 2 | 253 // Enable. |
| 254 HAL_READ_UINT16 (CYGARC_REG_IMM_TBSCR, tbscr); | |
| 255 tbscr |= (CYGARC_REG_IMM_TBSCR_REFA | CYGARC_REG_IMM_TBSCR_REFB | | |
| 256 CYGARC_REG_IMM_TBSCR_TBE); | |
| 257 HAL_WRITE_UINT16 (CYGARC_REG_IMM_TBSCR, tbscr); | |
| 258 tbscr |= CYGARC_REG_IMM_TBSCR_REFAE | CYGARC_REG_IMM_TBSCR_REFBE; | |
| 259 HAL_WRITE_UINT16 (CYGARC_REG_IMM_TBSCR, tbscr); | |
| 260 } | |
| 261 | |
| 262 HAL_ENABLE_INTERRUPTS(); | |
| 263 | |
| 264 for (;;); | |
| 265 } | |
| 266 | |
| 267 externC void | |
| 268 cyg_start( void ) | |
| 269 { | |
| 270 intr0_main(); | |
| 271 } | |
| 272 | |
| 273 #else // ifdef CYG_HAL_POWERPC_MPC860 | |
| 274 | |
| 275 externC void | |
| 276 cyg_start( void ) | |
| 277 { | |
| 278 CYG_TEST_INIT(); | |
| 279 CYG_TEST_PASS_FINISH("N/A: Not a MPC860"); | |
| 280 } | |
| 281 | |
| 282 #endif // ifdef CYG_HAL_POWERPC_MPC860 | |
| 283 | |
| 284 // EOF intr0.c |