| 1 | /*
|
|---|
| 2 | * TOPPERS/JSP Kernel
|
|---|
| 3 | * Toyohashi Open Platform for Embedded Real-Time Systems/
|
|---|
| 4 | * Just Standard Profile Kernel
|
|---|
| 5 | *
|
|---|
| 6 | * Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
|
|---|
| 7 | * Toyohashi Univ. of Technology, JAPAN
|
|---|
| 8 | * 2003 by Advanced Data Controls, Corp
|
|---|
| 9 | *
|
|---|
| 10 | * ä¸è¨èä½æ¨©è
|
|---|
| 11 | ã¯ï¼ä»¥ä¸ã® (1)ã(4) ã®æ¡ä»¶ãï¼Free Software Foundation
|
|---|
| 12 | * ã«ãã£ã¦å
|
|---|
| 13 | ¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
|
|---|
| 14 | * è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
|
|---|
| 15 | * ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹å¤ã»åé
|
|---|
| 16 | å¸ï¼ä»¥ä¸ï¼
|
|---|
| 17 | * å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
|---|
| 18 | * (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
|---|
| 19 | * 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
|---|
| 20 | * ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
|---|
| 21 | * (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 22 | * ç¨ã§ããå½¢ã§åé
|
|---|
| 23 | å¸ããå ´åã«ã¯ï¼åé
|
|---|
| 24 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
|---|
| 25 | * è
|
|---|
| 26 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
|---|
| 27 | * ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 28 | * (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 29 | * ç¨ã§ããªãå½¢ã§åé
|
|---|
| 30 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
|---|
| 31 | * ã¨ï¼
|
|---|
| 32 | * (a) åé
|
|---|
| 33 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
|---|
| 34 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
|---|
| 35 | * ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 36 | * (b) åé
|
|---|
| 37 | å¸ã®å½¢æ
|
|---|
| 38 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
|---|
| 39 | * å ±åãããã¨ï¼
|
|---|
| 40 | * (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
|---|
| 41 | * 害ãããï¼ä¸è¨èä½æ¨©è
|
|---|
| 42 | ããã³TOPPERSããã¸ã§ã¯ããå
|
|---|
| 43 | 責ãããã¨ï¼
|
|---|
| 44 | *
|
|---|
| 45 | * æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
|---|
| 46 | ã
|
|---|
| 47 | * ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
|
|---|
| 48 | * å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
|
|---|
| 49 | * æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
|
|---|
| 50 | *
|
|---|
| 51 | * @(#) $Id: cpu_support.sh,v 1.4 2003/12/19 11:48:37 honda Exp $
|
|---|
| 52 | */
|
|---|
| 53 |
|
|---|
| 54 |
|
|---|
| 55 | #define _MACRO_ONLY
|
|---|
| 56 | #include "jsp_kernel.h"
|
|---|
| 57 | #include "offset.h"
|
|---|
| 58 | #include <t_config.h>
|
|---|
| 59 |
|
|---|
| 60 |
|
|---|
| 61 | /*GHS ã¢ã»ã³ãã©æ¬ä¼¼å½ä»¤å¤æ*/
|
|---|
| 62 | #define long data.l
|
|---|
| 63 | #define org offset
|
|---|
| 64 |
|
|---|
| 65 | /*GHS ROMã¢ãã¿å²ãè¾¼ã¿ã¨ã³ããªã¼ã¢ãã¬ã¹*/
|
|---|
| 66 | #ifdef GHS_STUB
|
|---|
| 67 | #define _CpuExceptionHandler 0xa0000848
|
|---|
| 68 | #endif
|
|---|
| 69 |
|
|---|
| 70 |
|
|---|
| 71 | /*
|
|---|
| 72 | * ä¾å¤/å²ãè¾¼ã¿åºå
|
|---|
| 73 | ¥ãå£å¦çã«ã¼ãã³
|
|---|
| 74 | * SH3ã¯ãã¯ã¿ãã¼ãã«ãæãããä¾å¤,TRAPAãçºçããã¨VBR+0x100çªå°ãã
|
|---|
| 75 | * å
|
|---|
| 76 | é¨/å¤é¨/NMIå²ãè¾¼ã¿ãçºçããã¨ãVBR+0x600çªå°ãå®è¡ããã
|
|---|
| 77 | */
|
|---|
| 78 |
|
|---|
| 79 | /*
|
|---|
| 80 | * VBR ã«è¨å®ããå¤
|
|---|
| 81 | */
|
|---|
| 82 | .section .text
|
|---|
| 83 | .align 2
|
|---|
| 84 | .global _BASE_VBR
|
|---|
| 85 | _BASE_VBR:
|
|---|
| 86 | bra _start
|
|---|
| 87 | nop
|
|---|
| 88 | nop
|
|---|
| 89 | nop
|
|---|
| 90 |
|
|---|
| 91 | /*
|
|---|
| 92 | * Exception 100 vector
|
|---|
| 93 | * ã¢ãã¬ã¹ã¨ã©ã¼,ã¹ãããä¸å½å½ä»¤ä¾å¤ãTrapaä¾å¤çãçºçããã¨å®è¡ãããã
|
|---|
| 94 | *
|
|---|
| 95 | * CPUä¾å¤ãã³ãã©ã¯ãéã¿ã¹ã¯ã³ã³ããã¹ãã§å®è¡ããããã®ãããCPUä¾å¤ãã³
|
|---|
| 96 | * ãã©ãå¼ã³åºãåã«ä¾å¤/å²ãè¾¼ã¿ã示ãã¬ã¸ã¹ã¿ãã³ã¯1ã® r7 ã¬ã¸ã¹ã¿ãã¤ã³
|
|---|
| 97 | * ã¯ã¡ã³ããããªã¿ã¼ã³ãã¦ããå¾ã«ãã¯ãªã¡ã³ããããCPUä¾å¤ãã¿ã¹ã¯ã³ã³ãã
|
|---|
| 98 | * ã¹ãã§çºçããregflg ã TRUE ã«ãªã£ãæã«ã ret_exc ã¸åå²ããã
|
|---|
| 99 | * regflg ããã§ãã¯ããåã«å²ãè¾¼ã¿ãç¦æ¢ããªãã¨ãreqflg ããã§ãã¯å¾ã«èµ·
|
|---|
| 100 | * åãããå²ãè¾¼ã¿ãã³ãã©å
|
|---|
| 101 | ã§ãã£ã¹ããããè¦æ±ãããå ´åã«ããã£ã¹ããã
|
|---|
| 102 | * ãããªãã
|
|---|
| 103 | *
|
|---|
| 104 | *
|
|---|
| 105 | * ä¾å¤ãçºçããã¨ãä¾å¤çºçå
|
|---|
| 106 | ã®ã³ã³ããã¹ãã§ããspc,pr,ssr,r0ãr7ãéé¿
|
|---|
| 107 | * ãããä¾å¤ãçºçããæç¹ã§ã®ã³ã³ããã¹ãã調ã¹éã¿ã¹ã¯ã³ã³ããã¹ããªã
|
|---|
| 108 | * _exception_from_intããå®è¡ãéå§ãããä¾å¤ã®è¦å ã¯EXPEVTã¬ã¸ã¹ã¿èªã¿ã
|
|---|
| 109 | * exc_tableããCPUä¾å¤ãã³ãã©ã®éå§çªå°ãèªã¿è¾¼ããçºçããä¾å¤ã«å¯¾ãã¦
|
|---|
| 110 | * CPUä¾å¤ãã³ãã©ãç»é²ããã¦ããªããã°ã_no_reg_exceptionã«ãã©ã³ããã¦ã
|
|---|
| 111 | * ssr,sr,spc,prã®å
|
|---|
| 112 | 容ãåºåãã¦åæ¢ãããCPUä¾å¤ãã³ãã©ãããªã¿ã¼ã³ãã¦
|
|---|
| 113 | * ããããreqflgã調ã¹0以å¤ãªãrec_exc()ã«é£ã³ã0ãªãå
|
|---|
| 114 | ã®å¦çã«ãªã¿ã¼ã³ã
|
|---|
| 115 | * ãã
|
|---|
| 116 | *
|
|---|
| 117 | *
|
|---|
| 118 | * BLãããã®æ±ãã«ã¤ãã¦
|
|---|
| 119 | * ssr,spc ã«æ»ãå
|
|---|
| 120 | ã®ã³ã³ããã¹ããæ»ã㦠rte ãçºè¡ããéã«ã¯ï¼å²è¾¼ã¿ï¼NMI
|
|---|
| 121 | * ãå«ãï¼ãåãä»ããªãããã« BL ãããã1ã«ããå¿
|
|---|
| 122 | è¦ãããï¼ä¾å¤/å²è¾¼ã¿ã
|
|---|
| 123 | * ã³ãã©çµäºæã«ã¯ BL ããããã1ã«ãã IPM ã MAX_IPM ã«è¨å®ããï¼ããã¯ï¼
|
|---|
| 124 | * BL ãããã1ã®å ´åã«ä¾å¤ãçºçãã㨠CPU ããªã»ããããããã¨ãèæ
|
|---|
| 125 | ®ãã¦ï¼
|
|---|
| 126 | * å®å
|
|---|
| 127 | ¨ã®ããï¼ssr,spcã復帰ããç´åã§BLã1ã«è¨å®ãã¦ããï¼
|
|---|
| 128 | *
|
|---|
| 129 | */
|
|---|
| 130 |
|
|---|
| 131 |
|
|---|
| 132 | .org 0x0100 /* _BASE_VBR + 0x0100çªå°ã«é
|
|---|
| 133 | ç½® */
|
|---|
| 134 | .align 2
|
|---|
| 135 | .global _general_exception
|
|---|
| 136 | _general_exception:
|
|---|
| 137 | #ifdef GHS_STUB /* GHS */
|
|---|
| 138 | mov.l r0,@-r15
|
|---|
| 139 | mov.l r1,@-r15
|
|---|
| 140 | mov.l _expevt,r0
|
|---|
| 141 | mov.l @r0,r1
|
|---|
| 142 | shlr2 r1
|
|---|
| 143 | shlr r1
|
|---|
| 144 | mov.l _exc_table_exc,r0
|
|---|
| 145 | mov.l @(r0,r1),r0
|
|---|
| 146 | tst r0,r0
|
|---|
| 147 | mov.l @r15+,r1
|
|---|
| 148 | mov.l @r15+,r0
|
|---|
| 149 | bt _rom_exception /* _rom_exceptionã¸ã¸ã£ã³ã */
|
|---|
| 150 | #endif
|
|---|
| 151 | /* spc,pr,ssr ãã¹ã¿ãã¯ã«ä¿åãã */
|
|---|
| 152 | stc.l spc,@-r15
|
|---|
| 153 | sts.l pr,@-r15
|
|---|
| 154 | stc.l ssr,@-r15
|
|---|
| 155 | stc.l gbr,@-r15
|
|---|
| 156 | sts.l macl,@-r15
|
|---|
| 157 | sts.l mach,@-r15
|
|---|
| 158 | stc.l r0_bank,@-r15 /* ä¾å¤çºçæã®r0ãr7ãä¿å */
|
|---|
| 159 | stc.l r1_bank,@-r15
|
|---|
| 160 | stc.l r2_bank,@-r15
|
|---|
| 161 | stc.l r3_bank,@-r15
|
|---|
| 162 | stc.l r4_bank,@-r15
|
|---|
| 163 | stc.l r5_bank,@-r15
|
|---|
| 164 | stc.l r6_bank,@-r15
|
|---|
| 165 | stc.l r7_bank,@-r15
|
|---|
| 166 | tst r7,r7 /* ä¾å¤çºçå
|
|---|
| 167 | ã®ã³ã³ããã¹ããå¤å® */
|
|---|
| 168 | bf/s _exception_from_exc /* çºçå
|
|---|
| 169 | ãä¾å¤/å²ãè¾¼ã¿ãã³ãã©ãªãã¸ã£ã³ã */
|
|---|
| 170 | add #0x01,r7 /* ä¾å¤/å²ãè¾¼ã¿ãã¹ãåæ°ãã¤ã³ã¯ãªã¡ã³ã */
|
|---|
| 171 | mov r15,r1 /* æ»ãå
|
|---|
| 172 | ãå²ãè¾¼ã¿ãã³ãã©ã§ãªãã®ã§ã¹ã¿ã */
|
|---|
| 173 | mov.l _stacktop_exc,r15 /* ã¯ãå
|
|---|
| 174 | ¥ãæ¿ãå
|
|---|
| 175 | ã®ã¹ã¿ãã¯ãã¤ã³ã¿ãä¿å */
|
|---|
| 176 | mov.l r1,@-r15
|
|---|
| 177 | #ifdef GHS_HOOK
|
|---|
| 178 | mov.l r1,@-r15
|
|---|
| 179 | mov.l r7,@-r15
|
|---|
| 180 | stc spc,r0
|
|---|
| 181 | mov.l r0,r5
|
|---|
| 182 | mov.l _expevt,r0 /* å²ãè¾¼ã¿è¨±å¯ããã¨æ¶ããã¬ã¸ã¹ã¿ãä¿å */
|
|---|
| 183 | mov.l _exception_hook_dis,r2
|
|---|
| 184 | jsr @r2
|
|---|
| 185 | mov.l @r0,r4 /* EXPEVTã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 186 | mov.l @r15+,r7
|
|---|
| 187 | mov.l @r15+,r1
|
|---|
| 188 | #endif
|
|---|
| 189 |
|
|---|
| 190 | mov.l _expevt,r0 /* ä¾å¤ã許å¯ããã¨æ¶ããã¬ã¸ã¹ã¿ãä¿å */
|
|---|
| 191 | mov.l @r0,r5 /* EXPEVTã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 192 | ldc r1,r4_bank /* CPUä¾å¤ãã³ãã©ã¸ã®å¼æ° */
|
|---|
| 193 | ldc r5,r5_bank
|
|---|
| 194 | mov.l _unmak_rb_bl_exc,r2 /* BLãããã0ã«ï¼ã¬ã¸ã¹ã¿ãã³ã¯ãåãæ¿ã */
|
|---|
| 195 | stc sr,r3
|
|---|
| 196 | and r3,r2
|
|---|
| 197 | ldc r2,sr
|
|---|
| 198 | shlr2 r5 /* EXPEVTã3ãããå³ã·ãã */
|
|---|
| 199 | shlr r5
|
|---|
| 200 | mov.l _exc_table_exc,r0 /* exc_tableã®ã¢ãã¬ã¹ãr0ã« */
|
|---|
| 201 | mov.l @(r0,r5),r2 /* ãã³ãã©ã®ã¢ãã¬ã¹ãåå¾ */
|
|---|
| 202 | tst r2,r2 /* ãã³ãã©ãç»é²ããã¦ããªãä¾å¤ãªã */
|
|---|
| 203 | bt _no_reg_exception /* no_reg_exceptionã¸ã¸ã£ã³ã */
|
|---|
| 204 | jsr @r2 /* CPUä¾å¤ãã³ãã©ã¸ */
|
|---|
| 205 | nop
|
|---|
| 206 | mov.l _mask_md_ipm_exc,r0
|
|---|
| 207 | ldc r0,sr /* å²ãè¾¼ã¿ç¦æ¢ */
|
|---|
| 208 | stc r7_bank,r7 /* ä¾å¤/å²ãè¾¼ã¿ã®ãã¹ãåæ°ããã¯ãªã¡ã³ã */
|
|---|
| 209 | dt r7
|
|---|
| 210 | ldc r7,r7_bank
|
|---|
| 211 | mov.l _reqflg_exc,r2 /* reqflgã®ãã§ã㯠*/
|
|---|
| 212 | mov.l @r2,r1
|
|---|
| 213 | tst r1,r1 /* reqflgãFALSEãªãret_to_task_excã«é£ã³ */
|
|---|
| 214 | bt/s _ret_to_task_exc /* ã¿ã¹ã¯ã«æ»ã */
|
|---|
| 215 | mov.l @r15,r15 /* æ»ãå
|
|---|
| 216 | ãã¿ã¹ã¯ãªã®ã§ã¹ã¿ãã¯ãæ»ã */
|
|---|
| 217 | xor r0,r0
|
|---|
| 218 | bra ret_exc
|
|---|
| 219 | mov.l r0,@r2 /* reqflgãã¯ãªã¢ */
|
|---|
| 220 |
|
|---|
| 221 |
|
|---|
| 222 | /*
|
|---|
| 223 | * exception_from_int
|
|---|
| 224 | * CPUä¾å¤çºçæã®ã³ã³ããã¹ããéã¿ã¹ã¯ã³ã³ããã¹ãã®å ´åã®å¦ç
|
|---|
| 225 | * ã¿ã¹ã¯ã³ã³ããã¹ãã®å ´åã¨ã®å¦çã®éãã¯ãã¨CPUä¾å¤ãã³ãã©ã®
|
|---|
| 226 | * å¦çãçµäºããã¨å¿
|
|---|
| 227 | ãå
|
|---|
| 228 | ã®å¦çã«æ»ããã¨ã§ããã
|
|---|
| 229 | */
|
|---|
| 230 |
|
|---|
| 231 | _exception_from_exc:
|
|---|
| 232 | #ifdef GHS_HOOK
|
|---|
| 233 | mov.l r7,@-r15
|
|---|
| 234 | stc spc,r0
|
|---|
| 235 | mov.l r0,r5
|
|---|
| 236 | mov.l _expevt,r0 /* å²ãè¾¼ã¿è¨±å¯ããã¨æ¶ããã¬ã¸ã¹ã¿ãä¿å */
|
|---|
| 237 | mov.l _exception_hook_dis,r2
|
|---|
| 238 | jsr @r2
|
|---|
| 239 | mov.l @r0,r4 /* EXPEVTã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 240 | mov.l @r15+,r7
|
|---|
| 241 |
|
|---|
| 242 | #endif
|
|---|
| 243 | mov.l _expevt,r0 /* ä¾å¤ã許å¯ããã¨æ¶ããã¬ã¸ã¹ã¿ãä¿å */
|
|---|
| 244 | mov.l @r0,r5 /* EXPEVTã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 245 | ldc r15,r4_bank /* CPUä¾å¤ãã³ãã©ã¸ã®å¼æ° */
|
|---|
| 246 | ldc r5,r5_bank
|
|---|
| 247 | mov.l _unmak_rb_bl_exc,r2 /* BLãããã0ã«ï¼ã¬ã¸ã¹ã¿ãã³ã¯ãåãæ¿ã */
|
|---|
| 248 | stc sr,r3
|
|---|
| 249 | and r3,r2
|
|---|
| 250 | ldc r2,sr
|
|---|
| 251 | shlr2 r5 /* EXPECTã3ãããå³ã·ãã */
|
|---|
| 252 | shlr r5
|
|---|
| 253 | mov.l _exc_table_exc,r0 /* exc_tableã®ã¢ãã¬ã¹ãr0ã« */
|
|---|
| 254 | mov.l @(r0,r5),r2 /* ãã³ãã©ã®ã¢ãã¬ã¹ãåå¾ */
|
|---|
| 255 | tst r2,r2 /* ãã³ãã©ãç»é²ããã¦ããªãä¾å¤ãªã */
|
|---|
| 256 | bt _no_reg_exception /* no_reg_exceptionã¸ã¸ã£ã³ã */
|
|---|
| 257 | jsr @r2 /* CPUä¾å¤ãã³ãã©ã¸ */
|
|---|
| 258 | nop
|
|---|
| 259 | mov.l _mask_md_ipm_exc,r0
|
|---|
| 260 | ldc r0,sr /* BL=1,å²ãè¾¼ã¿ç¦æ¢ */
|
|---|
| 261 | stc r7_bank,r7 /* ä¾å¤/å²ãè¾¼ã¿ã®ãã¹ãåæ°ããã¯ãªã¡ã³ã */
|
|---|
| 262 | dt r7
|
|---|
| 263 | ldc r7,r7_bank
|
|---|
| 264 | _ret_to_task_exc:
|
|---|
| 265 | mov.l @r15+,r7 /* r0ãr1,ssr,pr,spcã復帰ãã¿ã¹ã¯ã«æ»ã */
|
|---|
| 266 | mov.l @r15+,r6
|
|---|
| 267 | mov.l @r15+,r5
|
|---|
| 268 | mov.l @r15+,r4
|
|---|
| 269 | mov.l @r15+,r3
|
|---|
| 270 | mov.l @r15+,r2
|
|---|
| 271 | mov.l @r15+,r1
|
|---|
| 272 | mov.l _mask_md_bl_exc,r0
|
|---|
| 273 | ldc r0,sr /* BLã1ã« */
|
|---|
| 274 | mov.l @r15+,r0
|
|---|
| 275 | lds.l @r15+,mach
|
|---|
| 276 | lds.l @r15+,macl
|
|---|
| 277 | ldc.l @r15+,gbr
|
|---|
| 278 | ldc.l @r15+,ssr
|
|---|
| 279 | lds.l @r15+,pr
|
|---|
| 280 | ldc.l @r15+,spc
|
|---|
| 281 | rte
|
|---|
| 282 | nop
|
|---|
| 283 |
|
|---|
| 284 | #ifdef GHS_STUB /* GHS */
|
|---|
| 285 | _rom_exception:
|
|---|
| 286 | stc.l ssr,@-r15
|
|---|
| 287 | stc.l spc,@-r15
|
|---|
| 288 | mov.l r0,@-r15
|
|---|
| 289 | mov.l r1,@-r15
|
|---|
| 290 | mov.l L._CpuException1,r1
|
|---|
| 291 | jmp @r1
|
|---|
| 292 | mov #1,r0
|
|---|
| 293 |
|
|---|
| 294 | .align 4
|
|---|
| 295 | L._CpuException1:
|
|---|
| 296 | .data.l _CpuExceptionHandler
|
|---|
| 297 | #endif
|
|---|
| 298 |
|
|---|
| 299 | /*
|
|---|
| 300 | * no_reg_exception()
|
|---|
| 301 | * CPUä¾å¤ã¨ãã¦ç»é²ããã¦ããªãä¾å¤ãçºçããã¨å¼ã³åºããã
|
|---|
| 302 | * ä¾å¤ã³ã¼ããä¾å¤ãçºçããæç¹ã®pc,sr,prãåºåãã¦ã«ã¼ãã«
|
|---|
| 303 | * ãåæ¢ããã
|
|---|
| 304 | */
|
|---|
| 305 | _no_reg_exception:
|
|---|
| 306 | mov.l _expevt,r5
|
|---|
| 307 | mov.l @r5,r4
|
|---|
| 308 | stc spc,r5
|
|---|
| 309 | stc ssr,r6
|
|---|
| 310 | sts pr,r7
|
|---|
| 311 | mov.l _cpu_expevt_k,r1
|
|---|
| 312 | jsr @r1
|
|---|
| 313 | nop
|
|---|
| 314 |
|
|---|
| 315 | .align 4
|
|---|
| 316 | _stacktop_exc:
|
|---|
| 317 | .long STACKTOP /* ã¿ã¹ã¯ç¬ç«é¨ã®ã¹ã¿ãã¯ã®åæå¤ */
|
|---|
| 318 | _expevt:
|
|---|
| 319 | .long EXPEVT
|
|---|
| 320 | _exc_table_exc:
|
|---|
| 321 | .long _exc_table
|
|---|
| 322 | _unmak_rb_bl_exc:
|
|---|
| 323 | .long 0x4fffffff
|
|---|
| 324 | _mask_md_ipm_exc:
|
|---|
| 325 | .long 0x40000000 + MAX_IPM << 4
|
|---|
| 326 | _reqflg_exc:
|
|---|
| 327 | .long _reqflg
|
|---|
| 328 | _cpu_expevt_k:
|
|---|
| 329 | .long _cpu_expevt
|
|---|
| 330 | _mask_md_bl_exc:
|
|---|
| 331 | .long 0x50000000 + MAX_IPM << 4
|
|---|
| 332 |
|
|---|
| 333 | #ifdef GHS_HOOK
|
|---|
| 334 | .global _exception_hook
|
|---|
| 335 | _exception_hook_dis:
|
|---|
| 336 | .long _exception_hook
|
|---|
| 337 | #endif
|
|---|
| 338 |
|
|---|
| 339 |
|
|---|
| 340 |
|
|---|
| 341 | /*
|
|---|
| 342 | * ã¿ã¹ã¯ãã£ã¹ãããã£
|
|---|
| 343 | *
|
|---|
| 344 | * _dispatch ã¯ãr7_bank1 = 0,å²è¾¼ã¿ç¦æ¢ç¶æ
|
|---|
| 345 | ã§å¼ã³åºããªããã°ãªããª
|
|---|
| 346 | * ãï¼_exit_and_dispatch ãï¼r7_bank1 = 0ã»å²è¾¼ã¿ç¦æ¢ç¶æ
|
|---|
| 347 | ã§å¼ã³åºã
|
|---|
| 348 | * ã®ãååã§ãããï¼ã«ã¼ãã«èµ·åæã«å¯¾å¿ããããï¼r7_bank1 = 1ã§å¼ã³
|
|---|
| 349 | * åºããå ´åã«ã対å¿ãã¦ããï¼
|
|---|
| 350 | */
|
|---|
| 351 |
|
|---|
| 352 | .text
|
|---|
| 353 | .align 2
|
|---|
| 354 | .global _dispatch
|
|---|
| 355 | _dispatch:
|
|---|
| 356 | sts.l pr,@-r15 /* pr,r8ãr15 ãã¹ã¿ãã¯ã«ä¿å */
|
|---|
| 357 | mov.l r14,@-r15 /* r0ãr7ã¯å¼ã³åºãå
|
|---|
| 358 | ã§ä¿åãã¦ãããã */
|
|---|
| 359 | mov.l r13,@-r15 /* ä¿åããå¿
|
|---|
| 360 | è¦ãç¡ã */
|
|---|
| 361 | mov.l r12,@-r15
|
|---|
| 362 | mov.l r11,@-r15
|
|---|
| 363 | mov.l r10,@-r15
|
|---|
| 364 | mov.l r9, @-r15
|
|---|
| 365 | mov.l r8, @-r15
|
|---|
| 366 | mov.l _runtsk_dis,r2 /* r0 <- runtsk */
|
|---|
| 367 | mov.l @r2,r0
|
|---|
| 368 | mov.l r15,@(TCB_sp,r0) /* ã¿ã¹ã¯ã¹ã¿ãã¯ãTCBã«ä¿å 60以ä¸ãªãOK*/
|
|---|
| 369 | mov.l dispatch_r_k,r1 /* å®è¡åéçªå°ãä¿å */
|
|---|
| 370 | mov.l r1,@(TCB_pc,r0) /* å®è¡åéçªå°ãTCBã«ä¿å 60以ä¸ãªãOK */
|
|---|
| 371 | bra dispatcher
|
|---|
| 372 | nop
|
|---|
| 373 |
|
|---|
| 374 | dispatch_r:
|
|---|
| 375 | mov.l @r15+,r8 /* ã¬ã¸ã¹ã¿ã復帰 */
|
|---|
| 376 | mov.l @r15+,r9
|
|---|
| 377 | mov.l @r15+,r10
|
|---|
| 378 | mov.l @r15+,r11
|
|---|
| 379 | mov.l @r15+,r12
|
|---|
| 380 | mov.l @r15+,r13
|
|---|
| 381 | mov.l @r15+,r14
|
|---|
| 382 | lds.l @r15+,pr
|
|---|
| 383 | /*
|
|---|
| 384 | * ã¿ã¹ã¯ä¾å¤å¦çã«ã¼ãã³ã®èµ·å
|
|---|
| 385 | * dispatch_rã¯dispatcherããå¼ã³åºãããããï¼
|
|---|
| 386 | * tcbã®ã¢ãã¬ã¹ã¯r0ã«å
|
|---|
| 387 | ¥ã£ã¦ããï¼
|
|---|
| 388 | */
|
|---|
| 389 | mov.l @(TCB_enatex,r0),r1
|
|---|
| 390 | mov.l _enatex_mask_dis,r2
|
|---|
| 391 | tst r1,r2
|
|---|
| 392 | bt dispatch_r_1 /* enatex ã FALSE ãªããªã¿ã¼ã³ */
|
|---|
| 393 | mov.l @(TCB_texptn,r0),r1 /* texptnããã¼ã */
|
|---|
| 394 | tst r1,r1
|
|---|
| 395 | bt dispatch_r_1 /* texptn ã 0ã§ç¡ããã° */
|
|---|
| 396 | mov.l _call_texrtn_dis,r1 /* ã¿ã¹ã¯ä¾å¤ã«ã¼ãã³ã®å¼ã³åºã */
|
|---|
| 397 | jmp @r1
|
|---|
| 398 | nop
|
|---|
| 399 | dispatch_r_1:
|
|---|
| 400 | rts
|
|---|
| 401 | nop
|
|---|
| 402 |
|
|---|
| 403 | .global _exit_and_dispatch
|
|---|
| 404 | _exit_and_dispatch:
|
|---|
| 405 | xor r1,r1 /* r7_bank1ã0ã¯ãªã¢ */
|
|---|
| 406 | ldc r1,r7_bank
|
|---|
| 407 | dispatcher:
|
|---|
| 408 | /*
|
|---|
| 409 | * ããã«ã¯å²ãè¾¼ã¿ç¦æ¢ã§æ¥ããã¨
|
|---|
| 410 | */
|
|---|
| 411 | mov.l _schedtsk_dis,r12 /* r0 <- schedtsk */
|
|---|
| 412 | mov.l @r12,r0
|
|---|
| 413 | cmp/eq #0,r0 /* schedtsk ããããï¼ */
|
|---|
| 414 | bt dispatcher_1 /* ç¡ããã°ã¸ã£ã³ã */
|
|---|
| 415 | #ifdef GHS_HOOK
|
|---|
| 416 | mov.l _dispatch_hook_dis,r2
|
|---|
| 417 | jsr @r2
|
|---|
| 418 | mov r0,r4
|
|---|
| 419 | mov.l @r12,r0
|
|---|
| 420 | #endif
|
|---|
| 421 |
|
|---|
| 422 | mov.l _runtsk_dis,r2
|
|---|
| 423 | mov.l r0,@r2 /* schedtskãruntskã« */
|
|---|
| 424 | mov.l @(TCB_sp,r0),r15 /* TCBããã¿ã¹ã¯ã¹ã¿ãã¯ã復帰 */
|
|---|
| 425 | mov.l @(TCB_pc,r0),r1 /* TCBããå®è¡åéçªå°ã復帰 */
|
|---|
| 426 | jmp @r1
|
|---|
| 427 | nop
|
|---|
| 428 | dispatcher_1:
|
|---|
| 429 | /* ã¤ããã£ã¨ã¤ãå¤ãæ¯åèªã¿è¾¼ãã®ã¯å¹çãæªãã®ã§äºåã«ç¨æãã
|
|---|
| 430 | * r8 : å²ãè¾¼ã¿ç¦æ¢ã®ããã®SRã®å¤
|
|---|
| 431 | * r9 : å²ãè¾¼ã¿å¾
|
|---|
| 432 | ã¡ä¸ã®SRã®å¤
|
|---|
| 433 | * r10 : reqflgã®çªå°
|
|---|
| 434 | * r11 : 0x01
|
|---|
| 435 | * r12 : 0x00
|
|---|
| 436 | * r13 : sleepä¸ã®SRã®ç¶æ
|
|---|
| 437 |
|
|---|
| 438 | */
|
|---|
| 439 | mov.l _mask_md_ipm_dis,r8 /* å²ãè¾¼ã¿ç¦æ¢ã®SRã®å¤ */
|
|---|
| 440 | #ifdef NO_SLEEP
|
|---|
| 441 | mov.l _mask_md_dis,r9 /* å²ãè¾¼ã¿å¾
|
|---|
| 442 | ã¡ä¸ã®SRã®å¤ */
|
|---|
| 443 | #else
|
|---|
| 444 | mov.l _mask_bl_md_dis,r9 /* å²ãè¾¼ã¿å¾
|
|---|
| 445 | ã¡ä¸ã®SRã®å¤ */
|
|---|
| 446 | #endif
|
|---|
| 447 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 448 | mov.l _task_intmask_k,r2
|
|---|
| 449 | mov.l @r2,r3
|
|---|
| 450 | or r3,r9
|
|---|
| 451 | #endif
|
|---|
| 452 | mov.l _reqflg_dis,r10
|
|---|
| 453 | mov #0x01,r11
|
|---|
| 454 | xor r12,r12
|
|---|
| 455 | mov.l _stacktop_dis,r15 /* ã¹ã¿ãã¯ãå²ãè¾¼ã¿ã¹ã¿ãã¯ã« */
|
|---|
| 456 | ldc r11,r7_bank /* r7_bank1 ã1ã«ãã¦å²ãè¾¼ã¿ç¶æ
|
|---|
| 457 | ã« */
|
|---|
| 458 | dispatcher_2:
|
|---|
| 459 | /*
|
|---|
| 460 | * ããã§å²è¾¼ã¿ã¢ã¼ãã«åãæããã®ã¯ï¼ããã§çºçããå²è¾¼ã¿å¦ç
|
|---|
| 461 | * ã«ã©ã®ã¹ã¿ãã¯ã使ããã¨ããåé¡ã®è§£æ±ºã¨ï¼å²è¾¼ã¿ãã³ãã©å
|
|---|
| 462 | ã§
|
|---|
| 463 | * ã®ã¿ã¹ã¯ãã£ã¹ãããã®é²æ¢ã¨ããäºã¤ã®æå³ãããï¼
|
|---|
| 464 | */
|
|---|
| 465 | /*
|
|---|
| 466 | * å²è¾¼ã¿è¨±å¯å¾ã«sleepå½ä»¤ãå®è¡ããã¨ï¼å²è¾¼ã¿è¨±å¯å½ä»¤ã®å®è¡åã«
|
|---|
| 467 | * å²è¾¼ã¿è¦æ±ãå
|
|---|
| 468 | ¥ã£ã¦ããå ´åï¼å²è¾¼ã¿è¨±å¯å½ä»¤ã®å®è¡ã¨å
|
|---|
| 469 | ±ã«å²è¾¼ã¿ã
|
|---|
| 470 | * åãä»ããããã®å¾©å¸°å¾ã«ï¼reqflgã®ãã§ãã¯ã§ã¯ãªã sleep ç¶æ
|
|---|
| 471 |
|
|---|
| 472 | * ã«å
|
|---|
| 473 | ¥ã£ã¦ãã¾ãï¼
|
|---|
| 474 | * ãã®åé¡ã¯ï¼å²è¾¼ã¿ã®è¨±å¯ã¨ sleep ç¶æ
|
|---|
| 475 | ã¸ã®ç§»è¡ãã¢ãããã¯ã«å®
|
|---|
| 476 | * è¡ã§ããªããã¨ã«èµ·å ããï¼
|
|---|
| 477 | * ãã®ããï¼sleep å®è¡ç´åã® SR å¤æ´ã§ã¯ BL ãããã'1'ã«è¨å®ã
|
|---|
| 478 | * ããã¨ã§ï¼å²è¾¼ã¿ã®è¨±å¯ã¨ sleep ç¶æ
|
|---|
| 479 | ã¸ã®ä»¥éãã¢ãããã¯ã«å®è¡
|
|---|
| 480 | * ããï¼
|
|---|
| 481 | * ldc r9,sr ã§ã¯BLããããã»ãããããããï¼å²è¾¼ã¿ã¯åãä»ããã¹
|
|---|
| 482 | * ãªã¼ãã¢ã¼ãã«ç§»è¡ããï¼ã¹ãªã¼ãã¢ã¼ãä¸ã¯ï¼BLãããã1ã§ãå²
|
|---|
| 483 | * è¾¼ã¿ãåãä»ãããã(SH7709ãã¼ãã¦ã§ã¢ããã¥ã¢ã« 8-10)ï¼ã¹ãªã¼
|
|---|
| 484 | * ãã¢ã¼ãã¸ã®ç§»è¡ç´å¾ã«å²è¾¼ã¿ãåä»ã¹ãªã¼ãã¢ã¼ããã復帰ããï¼
|
|---|
| 485 | */
|
|---|
| 486 |
|
|---|
| 487 | ldc r9,sr /* å²ãè¾¼ã¿ã®è¨±å¯ */
|
|---|
| 488 | #ifndef NO_SLEEP
|
|---|
| 489 | sleep /* å²è¾¼ã¿å¾
|
|---|
| 490 | ã¡ */
|
|---|
| 491 | #endif /* NO_SLEEP */
|
|---|
| 492 | ldc r8,sr /* å²ãè¾¼ã¿ç¦æ¢ */
|
|---|
| 493 | mov.l @r10,r7 /* r7 <- reqflg */
|
|---|
| 494 | tst r7,r7 /* reqflg ã FALSEãªã */
|
|---|
| 495 | bt dispatcher_2 /* dispatcher_2 㸠*/
|
|---|
| 496 | ldc r12,r7_bank /* r7_bank1 ãã¯ãªã¢ */
|
|---|
| 497 | mov.l r12,@r10 /* reqflg ã FALSEã« */
|
|---|
| 498 | bra dispatcher
|
|---|
| 499 | nop
|
|---|
| 500 | .align 4
|
|---|
| 501 | _runtsk_dis:
|
|---|
| 502 | .long _runtsk
|
|---|
| 503 | _schedtsk_dis:
|
|---|
| 504 | .long _schedtsk
|
|---|
| 505 | _enatex_mask_dis:
|
|---|
| 506 | .long TCB_enatex_mask
|
|---|
| 507 | _call_texrtn_dis:
|
|---|
| 508 | .long _call_texrtn
|
|---|
| 509 | _mask_md_ipm_dis:
|
|---|
| 510 | .long 0x40000000 + MAX_IPM << 4
|
|---|
| 511 | _mask_md_dis:
|
|---|
| 512 | .long 0x40000000
|
|---|
| 513 | _mask_bl_md_dis:
|
|---|
| 514 | .long 0x50000000
|
|---|
| 515 | dispatch_r_k:
|
|---|
| 516 | .long dispatch_r
|
|---|
| 517 | _stacktop_dis:
|
|---|
| 518 | .long STACKTOP /* ã¿ã¹ã¯ç¬ç«é¨ã®ã¹ã¿ãã¯ã®åæå¤ */
|
|---|
| 519 | _reqflg_dis:
|
|---|
| 520 | .long _reqflg
|
|---|
| 521 | #ifdef GHS_HOOK
|
|---|
| 522 | .global _dispatch_hook
|
|---|
| 523 | _dispatch_hook_dis:
|
|---|
| 524 | .long _dispatch_hook
|
|---|
| 525 | #endif
|
|---|
| 526 |
|
|---|
| 527 |
|
|---|
| 528 | /*
|
|---|
| 529 | * å²ãè¾¼ã¿ãã³ãã©/CPUä¾å¤ãã³ãã©åºå£å¦ç
|
|---|
| 530 | *
|
|---|
| 531 | * æ»ãå
|
|---|
| 532 | ãã¿ã¹ã¯ã§reqflgãã»ããããã¦ããå ´åã®ã¿ããã«ããã
|
|---|
| 533 | * r7_bank1 = 0,å²ãè¾¼ã¿ç¦æ¢ç¶æ
|
|---|
| 534 | ,ã¹ã¯ã©ããã¬ã¸ã¹ã¿ãä¿åãã
|
|---|
| 535 | * ç¶æ
|
|---|
| 536 | ã§å¼ã³åºããã¨ã
|
|---|
| 537 | *
|
|---|
| 538 | */
|
|---|
| 539 | .text
|
|---|
| 540 | .align 2
|
|---|
| 541 | .globl ret_int
|
|---|
| 542 | .globl ret_exc
|
|---|
| 543 | ret_exc:
|
|---|
| 544 | ret_int:
|
|---|
| 545 | mov.l _runtsk_ret,r1 /* r0 <- runtsk */
|
|---|
| 546 | mov.l @r1,r0
|
|---|
| 547 | mov.l _enadsp_ret,r2 /* enadspã®ãã§ã㯠*/
|
|---|
| 548 | mov.l @r2,r3
|
|---|
| 549 | tst r3,r3
|
|---|
| 550 | bt ret_int_1
|
|---|
| 551 | mov.l _schedtsk_ret,r4 /* r5 <- schedtsk */
|
|---|
| 552 | mov.l @r4,r5
|
|---|
| 553 | cmp/eq r0,r5 /* runtsk 㨠schedtsk ãæ¯è¼ */
|
|---|
| 554 | bt ret_int_1
|
|---|
| 555 | mov.l r14,@-r15 /* æ®ãã®ã¬ã¸ã¹ã¿ãä¿å */
|
|---|
| 556 | mov.l r13,@-r15
|
|---|
| 557 | mov.l r12,@-r15
|
|---|
| 558 | mov.l r11,@-r15
|
|---|
| 559 | mov.l r10,@-r15
|
|---|
| 560 | mov.l r9,@-r15
|
|---|
| 561 | mov.l r8,@-r15
|
|---|
| 562 | mov #TCB_sp,r1 /* ã¿ã¹ã¯ã¹ã¿ãã¯ãä¿å */
|
|---|
| 563 | mov.l r15,@(r0,r1)
|
|---|
| 564 | mov.l ret_int_r_k,r1 /* å®è¡åéçªå°ãä¿å */
|
|---|
| 565 | mov #TCB_pc,r2
|
|---|
| 566 | mov.l r1,@(r0,r2)
|
|---|
| 567 | bra dispatcher
|
|---|
| 568 | nop
|
|---|
| 569 |
|
|---|
| 570 | ret_int_r:
|
|---|
| 571 | mov.l @r15+,r8
|
|---|
| 572 | mov.l @r15+,r9
|
|---|
| 573 | mov.l @r15+,r10
|
|---|
| 574 | mov.l @r15+,r11
|
|---|
| 575 | mov.l @r15+,r12
|
|---|
| 576 | mov.l @r15+,r13
|
|---|
| 577 | mov.l @r15+,r14
|
|---|
| 578 | ret_int_1:
|
|---|
| 579 | /*
|
|---|
| 580 | * ã¿ã¹ã¯ä¾å¤å¦çã«ã¼ãã³ã®èµ·å
|
|---|
| 581 | * ret_int_r 㯠dispatcher ããå¼ã³åºãããããï¼tcbã®ã¢ãã¬ã¹ã¯r0ã«
|
|---|
| 582 | * å
|
|---|
| 583 | ¥ã£ã¦ããï¼
|
|---|
| 584 | * ãªãï¼å²è¾¼ã¿ã®åºå£ã§ã¿ã¹ã¯ã¹ã¤ãããçºçããªãå ´åã¯ãã£ã¹ãããã£
|
|---|
| 585 | * ãéããã« ret_int ããç´æ¥ ret_int_1 ã«é£ã¶
|
|---|
| 586 | */
|
|---|
| 587 | mov.l @(TCB_enatex,r0),r1
|
|---|
| 588 | mov.l _enatex_mask_ret,r2
|
|---|
| 589 | tst r1,r2
|
|---|
| 590 | bt ret_int_2 /* enatex ã FALSE ãªããªã¿ã¼ã³ */
|
|---|
| 591 | mov.l @(TCB_texptn,r0),r1 /* texptnããã¼ã */
|
|---|
| 592 | tst r1,r1
|
|---|
| 593 | bt ret_int_2 /* texptn ã 0ã§ç¡ããã°T<= 0 */
|
|---|
| 594 | mov.l _call_texrtn_ret,r1 /* ã¿ã¹ã¯ä¾å¤ã«ã¼ãã³ã®å¼ã³åºã */
|
|---|
| 595 | jsr @r1
|
|---|
| 596 | nop
|
|---|
| 597 | ret_int_2:
|
|---|
| 598 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 599 | mov #32,r0
|
|---|
| 600 | mov.l @(r0,r15),r1
|
|---|
| 601 | mov.l _unmask_ipm,r2
|
|---|
| 602 | and r2,r1
|
|---|
| 603 | mov.l _task_intmask_k,r2
|
|---|
| 604 | mov.l @r2,r3
|
|---|
| 605 | or r3,r1
|
|---|
| 606 | mov.l r1,@(r0,r15)
|
|---|
| 607 | #endif /* SUPPORT_CHG_IMP */
|
|---|
| 608 | mov.l @r15+,r7 /* spc,pr,ssr,ã¹ã¯ã©ããã¬ã¸ã¹ã¿ã復帰 */
|
|---|
| 609 | mov.l @r15+,r6
|
|---|
| 610 | mov.l @r15+,r5
|
|---|
| 611 | mov.l @r15+,r4
|
|---|
| 612 | mov.l @r15+,r3
|
|---|
| 613 | mov.l @r15+,r2
|
|---|
| 614 | mov.l @r15+,r1
|
|---|
| 615 | mov.l _mask_md_bl_ret,r0
|
|---|
| 616 | ldc r0,sr /* BLã1ã« */
|
|---|
| 617 | mov.l @r15+,r0
|
|---|
| 618 | lds.l @r15+,mach
|
|---|
| 619 | lds.l @r15+,macl
|
|---|
| 620 | ldc.l @r15+,gbr
|
|---|
| 621 | ldc.l @r15+,ssr
|
|---|
| 622 | lds.l @r15+,pr
|
|---|
| 623 | ldc.l @r15+,spc
|
|---|
| 624 | rte
|
|---|
| 625 | nop
|
|---|
| 626 |
|
|---|
| 627 | .align 4
|
|---|
| 628 | _runtsk_ret:
|
|---|
| 629 | .long _runtsk
|
|---|
| 630 | _schedtsk_ret:
|
|---|
| 631 | .long _schedtsk
|
|---|
| 632 | _enadsp_ret:
|
|---|
| 633 | .long _enadsp
|
|---|
| 634 | ret_int_r_k:
|
|---|
| 635 | .long ret_int_r
|
|---|
| 636 | _enatex_mask_ret:
|
|---|
| 637 | .long TCB_enatex_mask
|
|---|
| 638 | _call_texrtn_ret:
|
|---|
| 639 | .long _call_texrtn
|
|---|
| 640 | _mask_md_bl_ret:
|
|---|
| 641 | .long 0x50000000
|
|---|
| 642 |
|
|---|
| 643 | /*
|
|---|
| 644 | * ã¿ã¹ã¯èµ·åå¦ç
|
|---|
| 645 | */
|
|---|
| 646 | .text
|
|---|
| 647 | .align 2
|
|---|
| 648 | .globl _activate_r
|
|---|
| 649 | _activate_r:
|
|---|
| 650 | stc sr,r0 /* å²ãè¾¼ã¿è¨±å¯ */
|
|---|
| 651 | mov.l _unmask_ipm,r1
|
|---|
| 652 | and r1,r0
|
|---|
| 653 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 654 | mov.l _task_intmask_k,r1
|
|---|
| 655 | mov.l @r1,r2
|
|---|
| 656 | or r2,r0
|
|---|
| 657 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 658 | ldc r0,sr
|
|---|
| 659 | mov.l @r15+,r1
|
|---|
| 660 | lds.l @r15+,pr
|
|---|
| 661 | mov.l @r15+,r4
|
|---|
| 662 | jmp @r1
|
|---|
| 663 | nop
|
|---|
| 664 | .align 4
|
|---|
| 665 | _unmask_ipm:
|
|---|
| 666 | .long 0xffffff0f
|
|---|
| 667 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 668 | _task_intmask_k:
|
|---|
| 669 | .long _task_intmask
|
|---|
| 670 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 671 |
|
|---|
| 672 |
|
|---|
| 673 | /*
|
|---|
| 674 | * Exception 600 vector
|
|---|
| 675 | * å²ãè¾¼ã¿ãçºçããã¨å®è¡ãããã
|
|---|
| 676 | *
|
|---|
| 677 | *
|
|---|
| 678 | * SH3ã¯å²ãè¾¼ã¿ãçºçããã¨ãã¹ã¦VBR+0x600çªå°ããããã°ã©ã ãå®è¡ããããã
|
|---|
| 679 | * ããã«é
|
|---|
| 680 | ç½®ããã«ã¼ãã³ã§ã¾ãã¹ã¿ãã¯ã®åãæ¿ããã¬ã¸ã¹ã¿ã®ä¿å,IPMã®è¨å®,
|
|---|
| 681 | * å²ãè¾¼ã¿è¦å ã®å¤å®ãè¡ããã®å¾BLãããã0ã«ãã¦å²ãè¾¼ã¿ãã³ãã©ãå¼ã¶å¿
|
|---|
| 682 | è¦
|
|---|
| 683 | * ãããã
|
|---|
| 684 | * å²ãè¾¼ã¿è¦å ã«å¯¾å¿ããå²ãè¾¼ã¿ãã³ãã©ã®éå§çªå°ã¯é
|
|---|
| 685 | åint_table[]ã«ç»é²ã
|
|---|
| 686 | * ã¦å¼ã³åºãããªãã»ããã®è¨ç®ã¯ãå²ãè¾¼ã¿è¦å ã¬ã¸ã¹ã¿ãå³ã«2ãããã·ããã
|
|---|
| 687 | * ã¦è¡ããå²ãè¾¼ã¿è¦å ã¬ã¸ã¹ã¿ã¯SH7708ã§ã¯INTEVTã¬ã¸ã¹ã¿ã«ã»ããããããã
|
|---|
| 688 | * SH7709ããã³SH7709Aã§ã¯INTEVT2ã«ã»ããããããããifdefã«ããåãåãã¦ã
|
|---|
| 689 | * ããã¾ããä¸é¨ã®ãã£ãã¤ã¹ã«ã¤ãã¦å²ãè¾¼ã¿è¦å ã¬ã¸ã¹ã¿ã§æ¸¡ãããå¤ã¨IPMã¨
|
|---|
| 690 | * ã®éã«ã¯é¢ä¿ããªããããåå²ãè¾¼ã¿è¦å ã«å¯¾å¿ããIPMãæã¤SRã®å
|
|---|
| 691 | 容ãé
|
|---|
| 692 | å
|
|---|
| 693 | * int_plevel_table[]ã«ç»é²ãã¦ãããèªã¿åºãã
|
|---|
| 694 | *
|
|---|
| 695 | * reqflg ããã§ãã¯ããåã«å²è¾¼ã¿ãç¦æ¢ããªãã¨ï¼reqflg ããã§ãã¯å¾
|
|---|
| 696 | * ã«èµ·åãããå²è¾¼ã¿ãã³ãã©å
|
|---|
| 697 | ã§ãã£ã¹ããããè¦æ±ãããå ´åã«ï¼ãã£
|
|---|
| 698 | * ã¹ããããããªãï¼
|
|---|
| 699 | *
|
|---|
| 700 | */
|
|---|
| 701 |
|
|---|
| 702 | .org 0x0600 /* _BASE_VBR + 0x0600çªå°ã«é
|
|---|
| 703 | ç½® */
|
|---|
| 704 | .align 2
|
|---|
| 705 | .global _interrupt
|
|---|
| 706 | _interrupt:
|
|---|
| 707 | #ifdef GHS_STUB
|
|---|
| 708 | mov.l r0,@-r15
|
|---|
| 709 | mov.l r1,@-r15
|
|---|
| 710 | mov.l _intevt,r0
|
|---|
| 711 | mov.l @r0,r1
|
|---|
| 712 | shlr2 r1
|
|---|
| 713 | shlr r1
|
|---|
| 714 | /* mov.l _int_table_k,r0
|
|---|
| 715 | mov.l @(r0,r1),r0
|
|---|
| 716 | */
|
|---|
| 717 | mov.l @r15+,r1
|
|---|
| 718 | mov.l @r15+,r0
|
|---|
| 719 | bt _rom_interrupt
|
|---|
| 720 | #endif
|
|---|
| 721 | stc.l spc,@-r15 /* å¤éå²ãè¾¼ã¿ãå
|
|---|
| 722 | ¥ãã¨æ¶ãã¦ãã¾ãã®ã§ */
|
|---|
| 723 | sts.l pr,@-r15 /* spc,pr,ssr,gbr,macl,mach */
|
|---|
| 724 | stc.l ssr,@-r15
|
|---|
| 725 | stc.l gbr,@-r15
|
|---|
| 726 | sts.l macl,@-r15
|
|---|
| 727 | sts.l mach,@-r15
|
|---|
| 728 | stc.l r0_bank,@-r15 /* ,r0ãr7ãã¹ã¿ãã¯ã«ä¿å */
|
|---|
| 729 | stc.l r1_bank,@-r15
|
|---|
| 730 | stc.l r2_bank,@-r15
|
|---|
| 731 | stc.l r3_bank,@-r15
|
|---|
| 732 | stc.l r4_bank,@-r15
|
|---|
| 733 | stc.l r5_bank,@-r15
|
|---|
| 734 | stc.l r6_bank,@-r15
|
|---|
| 735 | stc.l r7_bank,@-r15
|
|---|
| 736 | tst r7,r7 /* å²ãè¾¼ã¿çºçæã®ã³ã³ããã¹ããå¤å® */
|
|---|
| 737 | bf/s _interrupt_from_int /* ä¾å¤/å²ãè¾¼ã¿ãã³ãã©ãªãã¸ã£ã³ã */
|
|---|
| 738 | add #0x01,r7 /* å²ãè¾¼ã¿ã®ãã¹ãåæ°ãã¤ã³ã¯ãªã¡ã³ã*/
|
|---|
| 739 | mov r15,r1 /* ã¹ã¿ãã¯ãå
|
|---|
| 740 | ¥ãæ¿ãå
|
|---|
| 741 | ã®ã¹ã¿ãã¯ã㤠*/
|
|---|
| 742 | mov.l _stacktop_k,r15 /* ã³ã¿ãä¿å */
|
|---|
| 743 | mov.l r1,@-r15
|
|---|
| 744 | #ifdef GHS_HOOK
|
|---|
| 745 | mov.l r7,@-r15
|
|---|
| 746 | stc spc,r0
|
|---|
| 747 | mov.l r0,r5
|
|---|
| 748 | mov.l _intevt,r0 /* ä¾å¤è¦å ã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 749 | mov.l _interrupt_hook_dis,r2
|
|---|
| 750 | jsr @r2
|
|---|
| 751 | mov.l @r0,r4
|
|---|
| 752 | mov.l @r15+,r7
|
|---|
| 753 | #endif
|
|---|
| 754 | mov.l _intevt,r0 /* ä¾å¤è¦å ã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 755 | mov.l @r0,r4
|
|---|
| 756 | shlr2 r4 /* 3ãããå³ã·ããããªãã»ãããæ±ãã */
|
|---|
| 757 | shlr r4
|
|---|
| 758 | mov.l _int_plevel_table_k,r0
|
|---|
| 759 | mov.l @(r0,r4),r5 /* å²ãè¾¼ã¿ã®åªå
|
|---|
| 760 | 度ãåå¾ */
|
|---|
| 761 | mov.l _int_table_k,r0
|
|---|
| 762 | mov.l @(r0,r4),r2 /* å²ãè¾¼ã¿ãã³ãã©ã®ã¢ãã¬ã¹ãåå¾ */
|
|---|
| 763 | ldc r2,r2_bank /* ãã³ã¯0ã«åãæ¿ããããã³ãã¼ */
|
|---|
| 764 | ldc r5,sr /* ãã以éå²ãè¾¼ã¿ãåãä»ããã */
|
|---|
| 765 | jsr @r2 /* å²ãè¾¼ã¿ãã³ãã©ã¸ */
|
|---|
| 766 | nop
|
|---|
| 767 | mov.l _mask_md_ipm_ret,r0
|
|---|
| 768 | ldc r0,sr /* å²ãè¾¼ã¿ç¦æ¢ */
|
|---|
| 769 | stc r7_bank,r7 /* ä¾å¤/å²ãè¾¼ã¿ã®ãã¹ãåæ°ããã¯ãªã¡ã³ã*/
|
|---|
| 770 | dt r7
|
|---|
| 771 | ldc r7,r7_bank
|
|---|
| 772 | mov.l _reqflg_k,r4 /* reqflgã®ãã§ã㯠*/
|
|---|
| 773 | mov.l @r4,r1
|
|---|
| 774 | tst r1,r1 /* reqflgãFALSEãªãret_to_task_intã«é£ã¶ */
|
|---|
| 775 | bt/s _ret_to_task_int /* ã¿ã¹ã¯ã«æ»ã */
|
|---|
| 776 | mov.l @r15,r15 /* æ»ãå
|
|---|
| 777 | ãã¿ã¹ã¯ãªã®ã§ã¹ã¿ãã¯ãæ»ã */
|
|---|
| 778 | xor r0,r0
|
|---|
| 779 | bra ret_int
|
|---|
| 780 | mov.l r0,@r4 /* reqflgãã¯ãªã¢ */
|
|---|
| 781 | _interrupt_from_int:
|
|---|
| 782 | #ifdef GHS_HOOK
|
|---|
| 783 | mov.l r7,@-r15
|
|---|
| 784 | stc spc,r0
|
|---|
| 785 | mov.l r0,r5
|
|---|
| 786 | mov.l _intevt,r0 /* ä¾å¤è¦å INTEVT2ã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 787 | mov.l _interrupt_hook_dis,r2
|
|---|
| 788 | jsr @r2
|
|---|
| 789 | mov.l @r0,r4
|
|---|
| 790 | mov.l @r15+,r7
|
|---|
| 791 | #endif
|
|---|
| 792 | mov.l _intevt,r0 /* ä¾å¤è¦å ã¬ã¸ã¹ã¿ãåå¾ */
|
|---|
| 793 | mov.l @r0,r4
|
|---|
| 794 | shlr2 r4 /* ãªãã»ãããæ±ãã */
|
|---|
| 795 | shlr r4 /* ãªãã»ãããæ±ãã */
|
|---|
| 796 | mov.l _int_plevel_table_k,r0
|
|---|
| 797 | mov.l @(r0,r4),r5 /* å²ãè¾¼ã¿ã®åªå
|
|---|
| 798 | 度ãåå¾ */
|
|---|
| 799 | mov.l _int_table_k,r0
|
|---|
| 800 | mov.l @(r0,r4),r2 /* å²ãè¾¼ã¿ãã³ãã©ã®ã¢ãã¬ã¹ãåå¾ */
|
|---|
| 801 | ldc r2,r2_bank /* ãã³ã¯0ã«åãæ¿ããããã³ãã¼ */
|
|---|
| 802 | ldc r5,sr /* ãã以éå²ãè¾¼ã¿ãåãä»ããã */
|
|---|
| 803 | jsr @r2 /* å²ãè¾¼ã¿ãã³ãã©ã¸ */
|
|---|
| 804 | nop
|
|---|
| 805 | mov.l _mask_md_ipm_ret,r0
|
|---|
| 806 | ldc r0,sr /* å²ãè¾¼ã¿ç¦æ¢ */
|
|---|
| 807 | stc r7_bank,r7 /* ä¾å¤/å²ãè¾¼ã¿ã®ãã¹ãåæ°ããã¯ãªã¡ã³ã*/
|
|---|
| 808 | dt r7
|
|---|
| 809 | ldc r7,r7_bank
|
|---|
| 810 | _ret_to_task_int:
|
|---|
| 811 | mov.l @r15+,r7 /* å²ãè¾¼ã¿å
|
|---|
| 812 | ã«æ»ã */
|
|---|
| 813 | mov.l @r15+,r6
|
|---|
| 814 | mov.l @r15+,r5
|
|---|
| 815 | mov.l @r15+,r4
|
|---|
| 816 | mov.l @r15+,r3
|
|---|
| 817 | mov.l @r15+,r2
|
|---|
| 818 | mov.l @r15+,r1
|
|---|
| 819 | mov.l _mask_md_bl_int,r0
|
|---|
| 820 | ldc r0,sr /* BL ã1ã« */
|
|---|
| 821 | mov.l @r15+,r0
|
|---|
| 822 | lds.l @r15+,mach
|
|---|
| 823 | lds.l @r15+,macl
|
|---|
| 824 | ldc.l @r15+,gbr
|
|---|
| 825 | ldc.l @r15+,ssr
|
|---|
| 826 | lds.l @r15+,pr
|
|---|
| 827 | ldc.l @r15+,spc
|
|---|
| 828 | rte
|
|---|
| 829 | nop
|
|---|
| 830 | #ifdef GHS_STUB
|
|---|
| 831 | _rom_interrupt:
|
|---|
| 832 | stc.l ssr,@-r15
|
|---|
| 833 | stc.l spc,@-r15
|
|---|
| 834 | mov.l r0,@-r15
|
|---|
| 835 | mov.l r1,@-r15
|
|---|
| 836 | mov.l L._CpuException6,r1
|
|---|
| 837 | jmp @r1
|
|---|
| 838 | mov #6,r0
|
|---|
| 839 |
|
|---|
| 840 | .align 4
|
|---|
| 841 | L._CpuException6:
|
|---|
| 842 | .data.l _CpuExceptionHandler
|
|---|
| 843 | #endif
|
|---|
| 844 | /*
|
|---|
| 845 | * æªç»é²ã®å²è¾¼ã¿ãçºçããã¨ï¼ãã®æã® INTEVT,INTEVT2,SR,PC ã
|
|---|
| 846 | * å¼æ°ã«cpu_interrupt()ãå¼ã³åºãï¼
|
|---|
| 847 | */
|
|---|
| 848 | .global _no_reg_interrupt
|
|---|
| 849 | _no_reg_interrupt:
|
|---|
| 850 | mov.l _intevt1,r0
|
|---|
| 851 | mov.l @r0,r4
|
|---|
| 852 | #if defined(SH7709) || defined(SH7709A) || defined(SH7729R) || defined(SH7727)
|
|---|
| 853 | mov.l _intevt2,r0
|
|---|
| 854 | mov.l @r0,r5
|
|---|
| 855 | #endif
|
|---|
| 856 | stc spc,r6
|
|---|
| 857 | stc ssr,r7
|
|---|
| 858 | mov.l _cpu_interrupt_k,r1
|
|---|
| 859 | jsr @r1
|
|---|
| 860 | nop
|
|---|
| 861 | .align 4
|
|---|
| 862 | _stacktop_k:
|
|---|
| 863 | .long STACKTOP /* éã¿ã¹ã¯ç¬ç«é¨ã®ã¹ã¿ãã¯ã®åæå¤ */
|
|---|
| 864 | _intevt:
|
|---|
| 865 | #if defined(SH7708) || defined(SH7750)
|
|---|
| 866 | .long INTEVT
|
|---|
| 867 | #else
|
|---|
| 868 | .long INTEVT2
|
|---|
| 869 | #endif
|
|---|
| 870 | _int_table_k:
|
|---|
| 871 | .long _int_table
|
|---|
| 872 | _int_plevel_table_k:
|
|---|
| 873 | .long _int_plevel_table
|
|---|
| 874 | _reqflg_k:
|
|---|
| 875 | .long _reqflg
|
|---|
| 876 | _mask_md_ipm_ret:
|
|---|
| 877 | .long 0x40000000 + MAX_IPM << 4
|
|---|
| 878 | _mask_md_bl_int:
|
|---|
| 879 | .long 0x50000000
|
|---|
| 880 | _intevt1:
|
|---|
| 881 | .long INTEVT
|
|---|
| 882 | #if defined(SH7709) || defined(SH7709A) || defined(SH7729R) || defined(SH7727)
|
|---|
| 883 | _intevt2:
|
|---|
| 884 | .long INTEVT2
|
|---|
| 885 | #endif
|
|---|
| 886 | _cpu_interrupt_k:
|
|---|
| 887 | .long _cpu_interrupt
|
|---|
| 888 | #ifdef GHS_HOOK
|
|---|
| 889 | _interrupt_hook_dis:
|
|---|
| 890 | .long _exception_hook
|
|---|
| 891 | #endif
|
|---|
| 892 |
|
|---|
| 893 |
|
|---|
| 894 | /*
|
|---|
| 895 | * å¾®å°æéå¾
|
|---|
| 896 | ã¡
|
|---|
| 897 | */
|
|---|
| 898 | .globl _sil_dly_nse
|
|---|
| 899 | _sil_dly_nse:
|
|---|
| 900 | mov.l _sil_dly_tim1, r1
|
|---|
| 901 | add r1, r4
|
|---|
| 902 | cmp/pl r4
|
|---|
| 903 | bt _sil_dly_nse1
|
|---|
| 904 | rts
|
|---|
| 905 | nop
|
|---|
| 906 | _sil_dly_nse1:
|
|---|
| 907 | mov.l _sil_dly_tim2, r1
|
|---|
| 908 | add r1, r4
|
|---|
| 909 | cmp/pl r4
|
|---|
| 910 | bt _sil_dly_nse1
|
|---|
| 911 | rts
|
|---|
| 912 | nop
|
|---|
| 913 | .align 4
|
|---|
| 914 | _sil_dly_tim1:
|
|---|
| 915 | .long -SIL_DLY_TIM1
|
|---|
| 916 | _sil_dly_tim2:
|
|---|
| 917 | .long -SIL_DLY_TIM2
|
|---|
![(please configure the [header_logo] section in trac.ini)](/trac_user/contrib/chrome/site/your_project_logo.png){kind=logo}
