Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

prc.tf@ 101

Last change on this file since 101 was 101, checked in by coas-nagasima, 9 years ago
TOPPERS/uKadecotのソースコードを追加
Property svn:eol-style set to `native` Property svn:keywords set to `Id` Property svn:mime-type set to `text/plain`
File size: 9.5 KB

Line
1	$
2	$ TOPPERS/SSP Kernel
3	$ Smallest Set Profile Kernel
4	$
5	$ Copyright (C) 2008-2010 by Witz Corporation, JAPAN
6	$ Copyright (C) 2013 by Mitsuhiro Matsuura
7	$
8	$ ãLì ÒÍCÈºÌ(1)`(4)Ìðð½·êÉÀèC{\tgEF
9	$ Ai{\tgEFAðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»Eü
10	$ ÏEÄzziÈºCpÆÄÔj·é±Æð³Åø·éD
11	$ (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
12	$ \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
13	$ XR[hÉÜÜêÄ¢é±ÆD
14	$ (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
15	$ pÅ«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
16	gip
17	$ Ò}j
18	AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
19	$ Ì³ÛØKèðfÚ·é±ÆD
20	$ (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
21	$ pÅ«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±
22	$ ÆD
23	$ (a) ÄzzÉº¤hL
24	gipÒ}j
25	AÈÇjÉCãLÌ
26	$ ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
27	$ (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉ
28	$ ñ·é±ÆD
29	$ (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹
30	$ Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
31	$ Ü½C{\tgEFAÌ[UÜ½ÍGh[U©çÌ¢©Èé
32	$ RÉîÃ¿©çàCãLì Ò¨æÑTOPPERSvWFNgð
33	$ ÆÓ·é±ÆD
34	$
35	$ {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
36	$ æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI
37	$ ÉÎ·éK«àÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEF
38	$ AÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»
39	$ ÌÓCðíÈ¢D
40	$
41	$
42
43	$
44	$ A[LeN`Ë¶ev[giRX630pj
45	$
46
47
48
49	$
50	$ ATT_ISRÅgpÅ«éÝÔÆ»êÉÎ·éÝnhÔ
51	$
52
53	$INTNO_ATTISR_VALID = INTNO_VALID$
54	$INHNO_ATTISR_VALID = INHNO_VALID$
55
56
57	$
58	$ DEF_INT^DEF_EXCÅgpÅ«éÝnhÔ^CPUáOnhÔ
59	$
60
61	$INHNO_DEFINH_VALID = INHNO_VALID$
62	$EXCNO_DEFEXC_VALID = EXCNO_VALID$
63
64
65	$
66	$ CFG_INTÅgpÅ«éÝÔÆÝDæx
67	$
68
69	$INTNO_CFGINT_VALID = INHNO_VALID$
70	$INTPRI_CFGINT_VALID = { -7, -6,...,-1 }$
71
72
73	$
74	$ ^[QbgñË¶ÉÜÜêéWÌÝÇ@\/áOÇ@\Ìú»ðgp·é
75	$
76
77	$OMIT_INITIALIZE_INTERRUPT = 0$
78	$OMIT_INITIALIZE_EXCEPTION = 0$
79
80
81	$
82	$ X^bNTCYÌ`FbNû@wè
83	$
84
85	$CHECK_STKSZ_ALIGN = 4$
86
87
88	$
89	$ ^XNX^bNTCYÌÅ¬l
90	$
91	$ ^XNN®É4byte,
92	$ ÝüûÉÄ48byte, CPUáOüûÉÄ84byte,
93	$ Å é½ß, Å¬lÍ88byteÆ·é.
94	$
95
96	$TARGET_MIN_STKSZ = 88$
97
98
99	$
100	$ èè`
101	$
102
103	$TA_POSEDGE = TA_EDGE$
104
105
106	$
107	$ ^[QbgË¶ÌÝ®«Ìè`
108	$
109
110	$TARGET_INTATR = TA_POSEDGE \| TA_NEGEDGE \| TA_BOTHEDGE \| TA_LOWLEVEL$
111
112
113	$
114	$ ^[QbgË¶ÌÝnh®«Ìè`
115	$
116
117	$TARGET_INHATR = TA_NONKERNEL$
118
119
120	$
121	$ J[lÇOÝnhÍÅè³¹È¢½ß,
122	$ INTNO_FIX_KERNEL
123	$ INHNO_FIX_KERNEL
124	$ INHNO_FIX_NONKERNEL
125	$ INHNO_FIX_NONKERNEL
126	$ ðè`µÈ¢.
127	$
128
129
130	$
131	$ Wev[gt@CÌCN[h
132	$
133	$INCLUDE "kernel.tf"$
134
135
136
137	$
138	$ CFG_INTÌ^[QbgË¶ÌG[`FbN
139	$
140
141	$FOREACH intno INT.ORDER_LIST$
142	$ IRQÝÔ©Ç¤©ð`FbN
143	$IF ( LENGTH( FIND( INTNO_INT, INT.INTNO[intno] ) ) != 0 )$
144
145	$ TA_POSEDGEÆTA_NEGEDGEª¯ÉÝè³êÄ¢éê
146	$IF ((INT.INTATR[intno] & ( TA_POSEDGE \| TA_NEGEDGE )) == ( TA_POSEDGE \| TA_NEGEDGE ))$
147	$ERROR$ INT.TEXT_LINE[intno]:$FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
148	$END$
149
150	$ TA_POSEDGEÆTA_BOTHEDGEª¯ÉÝè³êÄ¢éê
151	$IF ((INT.INTATR[intno] & ( TA_POSEDGE \| TA_BOTHEDGE )) == ( TA_POSEDGE \| TA_BOTHEDGE ))$
152	$ERROR$ INT.TEXT_LINE[intno]:$FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
153	$END$
154
155	$ TA_NEGEDGEÆTA_BOTHEDGEª¯ÉÝè³êÄ¢éê
156	$IF ((INT.INTATR[intno] & ( TA_NEGEDGE \| TA_BOTHEDGE )) == ( TA_NEGEDGE \| TA_BOTHEDGE ))$
157	$ERROR$ INT.TEXT_LINE[intno]:$FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
158	$END$
159
160	$ TA_POSEDGEÆTA_NEGEDGEÆTA_BOTHEDGEª¯ÉÝè³êÄ¢éê
161	$IF ((INT.INTATR[intno] & ( TA_POSEDGE \| TA_NEGEDGE \| TA_BOTHEDGE )) == ( TA_POSEDGE \| TA_NEGEDGE \| TA_BOTHEDGE ))$
162	$ERROR$ INT.TEXT_LINE[intno]:$FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
163	$END$
164
165	$ELSE$
166
167	$ IRQÝÈOÌÝÉÎµÄÝ®«ªwè³êÄ¢éê
168	$IF (INT.INTATR[intno] & (~( TA_ENAINT \| TA_EDGE ))) != 0$
169	$ERROR$ INT.TEXT_LINE[intno]: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
170	$END$
171
172	$END$
173
174	$END$
175
176
177
178	$
179	$ ÝÔ©çÝDæxyÑ®«ðæèo·e[u
180	$
181
182	/*$NL$
183	$SPC$*$SPC$$SPC$Interrupt Level and Attribute Table$NL$
184	$SPC$*/$NL$
185	const CFG_INT_INFO _kernel_cfg_int_table[$LENGTH(INTNO_RANGE)$] = {$NL$
186	$FOREACH intno INTNO_RANGE$
187	$ ÝDæxðæ¾
188	$IF LENGTH(INT.INTNO[intno])$
189	$intpri = -INT.INTPRI[intno]$
190	$intatr = INT.INTATR[intno]$
191	$ELSE$
192	$intpri = "0"$
193	$intatr = "0xFFFFFFFF"$
194	$END$
195
196	$ e[uÌgðoÍ
197	$TAB$$FORMAT("{ %2d, %08x }, /* %02u */", intpri, intatr, +intno)$$NL$
198	$END$
199	};$NL$$NL$
200
201
202	$
203	$ AZuoÍt@C
204	$
205
206	$FILE "kernel_cfg_asm.src"$
207
208	;$NL$
209	; RX630A[LeN`Ë¶oÍt@C$NL$
210	;$NL$
211	; ÝxN^yÑÝnhè`$NL$
212	;$NL$
213	$NL$$NL$
214
215
216	$
217	$ Ýüû
218	$
219
220	$
221	$ ¤ÊÖÌé¾
222	$
223
224	$TAB$.section P, CODE$NL$
225	$TAB$.glb$TAB$_kernel_interrupt$NL$
226	$TAB$.glb$TAB$__kernel_default_int_handler$NL$
227	$TAB$.glb$TAB$__kernel_default_exc_handler$NL$$NL$$NL$
228
229
230	$
231	$ ÝnhÌoÍ
232	$
233
234	$FOREACH inhno INHNO_RANGE$
235	$IF LENGTH(INH.INHNO[inhno])$
236	$IF ((INH.INHATR[inhno] & TA_NONKERNEL) == 0)$
237	$TAB$.glb _$INH.INTHDR[inhno]$$NL$
238	$TAB$.glb __kernel_$INH.INTHDR[inhno]$_$+INH.INHNO[inhno]$_entry$NL$
239	__kernel_$INH.INTHDR[inhno]$_$+INH.INHNO[inhno]$_entry:$NL$
240	$TAB$pushm r1-r5 ; XNb`WX^ð^XNX^bNÖÞð $NL$
241	$TAB$mov.l #$+INH.INHNO[inhno]$, r1 ; ÝnhÔðr1Ö $NL$
242	$TAB$mov.l #_$INH.INTHDR[inhno]$, r2 ; nhÌAhXðr2Ö $NL$
243	$TAB$bra.a _kernel_interrupt ; ¤Ê[`Ö $NL$$NL$$NL$
244	$END$
245	$END$
246	$END$
247
248
249	$ ¢o^Ýnhüû
250	$TAB$.glb$TAB$__kernel_default_int_handler_entry$NL$
251	__kernel_default_int_handler_entry:$NL$
252	$TAB$pushm r1-r5 ; XNb`WX^ð^XNX^bNÖÞð $NL$
253	$TAB$mov.l #0FFFFFFFFH, r1 ; ÝnhÔðr1Ö $NL$
254	$TAB$mov.l #__kernel_default_int_handler, r2 ; nhÌAhXðr2Ö $NL$
255	$TAB$bra.a _kernel_interrupt ; ¤Ê[`Ö $NL$$NL$$NL$
256
257
258	$
259	$ CPUáOnhüû
260	$
261
262	$TAB$.glb _kernel_exception$NL$$NL$
263
264	$FOREACH excno EXCNO_RANGE$
265	$IF LENGTH(EXC.EXCNO[excno])$
266	$TAB$.glb _$EXC.EXCHDR[excno]$$NL$
267	$TAB$.glb __kernel_$EXC.EXCHDR[excno]$_$+EXC.EXCNO[excno]$_entry$NL$
268	__kernel_$EXC.EXCHDR[excno]$_$+EXC.EXCNO[excno]$_entry:$NL$
269	$TAB$pushm r1-r5 ; XNb`WX^ð^XNX^bNÖÞð $NL$
270	$TAB$mov.l #$+EXC.EXCNO[excno]$, r1 ; CPUáOnhÔðr1Ö $NL$
271	$TAB$mov.l #_$EXC.EXCHDR[excno]$, r2 ; nhÌAhXðr2Ö $NL$
272	$TAB$bra.a _kernel_exception ; ¤Ê[`Ö $NL$$NL$$NL$
273	$END$
274	$END$
275
276
277	$ ¢o^CPUáOnhüû
278	$TAB$.glb$TAB$__kernel_default_exc_handler_entry$NL$
279	__kernel_default_exc_handler_entry:$NL$
280	$TAB$pushm r1-r5 ; XNb`WX^ð^XNX^bNÖÞð $NL$
281	$TAB$mov.l #0FFFFFFFFH, r1 ; CPUáOnhÔðr1Ö $NL$
282	$TAB$mov.l #__kernel_default_exc_handler, r2 ; nhÌAhXðr2Ö $NL$
283	$TAB$bra.a _kernel_exception ; ¤Ê[`Ö $NL$$NL$$NL$
284
285
286	$
287	$ ÂÏxN^e[u
288	$
289
290	;$NL$
291	; ÂÏxN^e[u$NL$
292	;$NL$
293	$NL$
294
295	$TAB$.glb $TAB$ _start$NL$$NL$
296
297	$FOREACH inhno INH.ORDER_LIST$
298	$IF ((INH.INHATR[inhno] & TA_NONKERNEL) != 0)$
299	$TAB$.glb $TAB$ _$INH.INTHDR[inhno]$ $NL$
300	$END$
301	$END$
302	$NL$
303
304	$TAB$.section C$$VECT, ROMDATA$NL$$NL$
305	vvector_table:$NL$
306	$FOREACH inhno INHNO_RANGE$
307	$IF LENGTH(INH.INHNO[inhno])$
308	$IF ((INH.INHATR[inhno] & TA_NONKERNEL) == 0)$
309	$inhhdr = CONCAT(CONCAT("_kernel_" , CONCAT(INH.INTHDR[inhno] , "_")) , CONCAT(+INH.INHNO[inhno] , "_entry"))$
310	$ELSE$
311	$inhhdr = INH.INTHDR[inhno]$
312	$END$
313	$ELSE$
314	$inhhdr = "_kernel_default_int_handler_entry"$
315	$END$
316
317	$TAB$.lword$TAB$_$inhhdr$ $TAB$ $TAB$ $FORMAT("; %02d" , inhno)$ $NL$
318	$END$
319
320
321	$
322	$ ÅèxN^e[u
323	$
324	$FOREACH excno EXCNO_RANGE$
325	$IF LENGTH(EXC.EXCNO[excno])$
326	$EXCHDR[excno] = CONCAT(CONCAT("_kernel_" , CONCAT(EXC.EXCHDR[excno] , "_")) , CONCAT(+EXC.EXCNO[excno] , "_entry"))$
327	$ELSE$
328	$EXCHDR[excno] = "_kernel_default_exc_handler_entry"$
329	$END$
330	$END$
331
332	$NL$
333	;$NL$
334	; ÅèxN^e[u$NL$
335	;$NL$
336	$NL$
337
338	$TAB$ .section FVECT, ROMDATA$NL$
339	$NL$
340	fvector_table:$NL$$NL$
341
342	$TAB$ .offset$TAB$ 020H$NL$
343	$TAB$ .lword$TAB$ 00000000 $TAB$ ; §äR[h, IDR[h1 - 3$NL$
344	$TAB$ .lword$TAB$ 00000000 $TAB$ ; IDR[h4 - 7$NL$
345	$TAB$ .lword$TAB$ 00000000 $TAB$ ; IDR[h8 - 11$NL$
346	$TAB$ .lword$TAB$ 00000000 $TAB$ ; IDR[h12 - 15$NL$$NL$
347
348	$TAB$ .offset$TAB$ 050H$NL$
349	$TAB$ .lword$TAB$ _$EXCHDR[20]$ $TAB$ $TAB$ ;$SPC$ 20:Á ½ßáO $SPC$$NL$
350	$TAB$ .offset$TAB$ 05CH$NL$
351	$TAB$ .lword$TAB$ _$EXCHDR[23]$ $TAB$ $TAB$ ;$SPC$ 23:¢è`½ßáO $SPC$$NL$
352	$TAB$ .offset$TAB$ 064H$NL$
353	$TAB$ .lword$TAB$ _$EXCHDR[25]$ $TAB$ $TAB$ ;$SPC$ 25:®¬_áO $SPC$$NL$
354	$TAB$ .offset$TAB$ 078H$NL$
355	$TAB$ .lword$TAB$ _$EXCHDR[30]$ $TAB$ $TAB$ ;$SPC$ 30:m}XJuáO $SPC$$NL$
356	$TAB$ .lword$TAB$ _start $TAB$ $TAB$ $TAB$ $TAB$ ;$SPC$ 31:Zbg $SPC$$NL$
357
358	$NL$ $NL$
359
360	$TAB$.end
361	$NL$

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format