| 1 | /*
|
|---|
| 2 | * TOPPERS/JSP Kernel
|
|---|
| 3 | * Toyohashi Open Platform for Embedded Real-Time Systems/
|
|---|
| 4 | * Just Standard Profile Kernel
|
|---|
| 5 | *
|
|---|
| 6 | * Copyright (C) 2000-2004 by Embedded and Real-Time Systems Laboratory
|
|---|
| 7 | * Toyohashi Univ. of Technology, JAPAN
|
|---|
| 8 | * Copyright (C) 2001-2004 by Industrial Technology Institute,
|
|---|
| 9 | * Miyagi Prefectural Government, JAPAN
|
|---|
| 10 | * Copyright (C) 2002-2004 by Hokkaido Industrial Research Institute, JAPAN
|
|---|
| 11 | *
|
|---|
| 12 | * ä¸è¨èä½æ¨©è
|
|---|
| 13 | ã¯ï¼ä»¥ä¸ã® (1)ã(4) ã®æ¡ä»¶ãï¼Free Software Foundation
|
|---|
| 14 | * ã«ãã£ã¦å
|
|---|
| 15 | ¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
|
|---|
| 16 | * è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
|
|---|
| 17 | * ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹å¤ã»åé
|
|---|
| 18 | å¸ï¼ä»¥ä¸ï¼
|
|---|
| 19 | * å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
|---|
| 20 | * (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
|---|
| 21 | * 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
|---|
| 22 | * ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
|---|
| 23 | * (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 24 | * ç¨ã§ããå½¢ã§åé
|
|---|
| 25 | å¸ããå ´åã«ã¯ï¼åé
|
|---|
| 26 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
|---|
| 27 | * è
|
|---|
| 28 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
|---|
| 29 | * ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 30 | * (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 31 | * ç¨ã§ããªãå½¢ã§åé
|
|---|
| 32 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
|---|
| 33 | * ã¨ï¼
|
|---|
| 34 | * (a) åé
|
|---|
| 35 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
|---|
| 36 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
|---|
| 37 | * ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 38 | * (b) åé
|
|---|
| 39 | å¸ã®å½¢æ
|
|---|
| 40 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
|---|
| 41 | * å ±åãããã¨ï¼
|
|---|
| 42 | * (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
|---|
| 43 | * 害ãããï¼ä¸è¨èä½æ¨©è
|
|---|
| 44 | ããã³TOPPERSããã¸ã§ã¯ããå
|
|---|
| 45 | 責ãããã¨ï¼
|
|---|
| 46 | *
|
|---|
| 47 | * æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
|---|
| 48 | ã
|
|---|
| 49 | * ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
|
|---|
| 50 | * å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
|
|---|
| 51 | * æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
|
|---|
| 52 | *
|
|---|
| 53 | * @(#) $Id: cpu_support.S,v 1.6 2005/09/09 02:35:37 honda Exp $
|
|---|
| 54 | */
|
|---|
| 55 |
|
|---|
| 56 | /*
|
|---|
| 57 | * ããã»ããµä¾åã¢ã¸ã¥ã¼ã« ã¢ã»ã³ããªè¨èªé¨ï¼SH1/2ç¨ï¼
|
|---|
| 58 | *ãããããã«ã¼ãã«å
|
|---|
| 59 | é¨ã§ä½¿ç¨ããå®ç¾©
|
|---|
| 60 | */
|
|---|
| 61 |
|
|---|
| 62 | #define _MACRO_ONLY
|
|---|
| 63 | #include "jsp_kernel.h"
|
|---|
| 64 | #include "offset.h"
|
|---|
| 65 |
|
|---|
| 66 | /*
|
|---|
| 67 | * ã¿ã¹ã¯ã³ã³ããã¼ã«ãããã¯TCBä¸ã®sp,pcãå
|
|---|
| 68 | é ãã60ãã¤ãã®
|
|---|
| 69 | * ç¯å²å
|
|---|
| 70 | ã«ãããã¢ã©ã¤ã³ã¡ã³ãã4ãã¤ãå¢çã«ãªã£ã¦ããã°ã
|
|---|
| 71 | * ã¤ããã£ã¨ã¤ãç¸å¯¾ã¢ãã¬ãã·ã³ã°ã§ã¢ã¯ã»ã¹ã§ãã
|
|---|
| 72 | * TCB_pc,TCB_spã¯offset.hã§å®ç¾©ããã¦ãã
|
|---|
| 73 | * (makeæã«çæãããï¼
|
|---|
| 74 | */
|
|---|
| 75 |
|
|---|
| 76 | /* ã¤ããã£ã¨ã¤ãç¸å¯¾ã¢ãã¬ãã·ã³ã°ãå¯è½ããã§ã㯠*/
|
|---|
| 77 | #define CHECK_IMMEDIATE_ADDRESSING(dst) \
|
|---|
| 78 | ((dst <= 60) && ((dst % 4) == 0))
|
|---|
| 79 |
|
|---|
| 80 | #if CHECK_IMMEDIATE_ADDRESSING(TCB_pc) && \
|
|---|
| 81 | CHECK_IMMEDIATE_ADDRESSING(TCB_sp)
|
|---|
| 82 | #define TCB_SHORT
|
|---|
| 83 | #endif
|
|---|
| 84 |
|
|---|
| 85 | /*
|
|---|
| 86 | * ã¿ã¹ã¯ã³ã³ããã¼ã«ãããã¯TCBä¸ã®sp,pcãå
|
|---|
| 87 | é ãã128ãã¤ã
|
|---|
| 88 | * 以éã«é
|
|---|
| 89 | ç½®ããã¦ããã¨
|
|---|
| 90 | * mov #TCB_sp,r9
|
|---|
| 91 | * çã®ç¬¦å·æ¡å¼µãå«ãå½ä»¤ã¯æå¾
|
|---|
| 92 | éãã«åä½ããªã
|
|---|
| 93 | */
|
|---|
| 94 | #if (TCB_pc > 127) || (TCB_sp > 127)
|
|---|
| 95 | #error "TCB_pc <= 127 ?"
|
|---|
| 96 | // ããã§ã¢ã»ã³ãã«ã¨ã©ã¼
|
|---|
| 97 | #endif
|
|---|
| 98 |
|
|---|
| 99 | #if !CHECK_IMMEDIATE_ADDRESSING(TCB_texptn)
|
|---|
| 100 | #error "TCB_texptn ?"
|
|---|
| 101 | // ããã§ã¢ã»ã³ãã«ã¨ã©ã¼
|
|---|
| 102 | #endif
|
|---|
| 103 |
|
|---|
| 104 | /*
|
|---|
| 105 | * ãã®ä»ã®ãªãã»ããå¤ã«ã¤ãã¦
|
|---|
| 106 | *
|
|---|
| 107 | * (1) TCB_enatex
|
|---|
| 108 | * mov.b @(#TCB_enatex,rx),r0å½ä»¤ã®å³å¤ã¯ã¼ãæ¡å¼µãããã®ã§
|
|---|
| 109 | * TCB_enatexã«é¢ãã¦ã¯ãã§ãã¯ããå¿
|
|---|
| 110 | è¦ããªã
|
|---|
| 111 | * ï¼ã¢ã¯ã»ã¹ã§ããç¯å²15ãã¤ããè¶
|
|---|
| 112 | ããã¨ãã¢ã»ã³ãã«ã¨ã©ã¼ã«ãªãï¼
|
|---|
| 113 | *
|
|---|
| 114 | * (2) TCB_enatex_mask
|
|---|
| 115 | * and #TCB_enatex_mask,r0å½ä»¤ã®å³å¤ã¯ã¼ãæ¡å¼µãããã®ã§
|
|---|
| 116 | * TCB_enatex_maskã«é¢ãã¦ã¯ãã§ãã¯ããå¿
|
|---|
| 117 | è¦ããªã
|
|---|
| 118 | */
|
|---|
| 119 |
|
|---|
| 120 |
|
|---|
| 121 | /*
|
|---|
| 122 | * ã¿ã¹ã¯ãã£ã¹ãããã£
|
|---|
| 123 | *
|
|---|
| 124 | * ãdispatch ã¯ãå²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ = 0,å²è¾¼ã¿ç¦æ¢ç¶æ
|
|---|
| 125 |
|
|---|
| 126 | * ã§å¼ã³åºããªããã°ãªããªãï¼exit_and_dispatch ãï¼å²è¾¼ã¿ãã¹ã
|
|---|
| 127 | * ã«ã¦ã³ã¿ = 0ã»å²è¾¼ã¿ç¦æ¢ç¶æ
|
|---|
| 128 | ã§å¼ã³åºãã®ãååã§ãããï¼ã«ã¼ãã«
|
|---|
| 129 | * èµ·åæã«å¯¾å¿ããããï¼å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ = 1ã§å¼ã³åºããå ´åã«
|
|---|
| 130 | * ã対å¿ãã¦ããï¼
|
|---|
| 131 | */
|
|---|
| 132 |
|
|---|
| 133 | .text
|
|---|
| 134 | .align 2
|
|---|
| 135 | .global _dispatch
|
|---|
| 136 | _dispatch:
|
|---|
| 137 | /* pr,r8ãr15 ãã¹ã¿ãã¯ã«ä¿å */
|
|---|
| 138 | mov.l r8, @-r15 /* r0ãr7ã¯å¼ã³åºãå
|
|---|
| 139 | ã§ä¿åãã¦ãããã */
|
|---|
| 140 | mov.l r9, @-r15 /* ä¿åããå¿
|
|---|
| 141 | è¦ãç¡ã */
|
|---|
| 142 | mov.l r10,@-r15
|
|---|
| 143 | mov.l r11,@-r15
|
|---|
| 144 | mov.l r12,@-r15
|
|---|
| 145 | mov.l r13,@-r15
|
|---|
| 146 | mov.l r14,@-r15
|
|---|
| 147 | sts.l pr,@-r15
|
|---|
| 148 | mov.l _runtsk_dis,r2 /* r0 <- runtsk */
|
|---|
| 149 | mov.l @r2,r0
|
|---|
| 150 | /*
|
|---|
| 151 | * ã¿ã¹ã¯ã³ã³ããã¼ã«ãããã¯TCBä¸ã®sp,pcãå
|
|---|
| 152 | é ãã60ãã¤ãã®
|
|---|
| 153 | * ç¯å²å
|
|---|
| 154 | ã«ãããã¢ã©ã¤ã³ã¡ã³ãã4ãã¤ãå¢çã«ãªã£ã¦ããã°ã
|
|---|
| 155 | * ã¤ããã£ã¨ã¤ãç¸å¯¾ã¢ãã¬ãã·ã³ã°ã§ã¢ã¯ã»ã¹ã§ãã
|
|---|
| 156 | */
|
|---|
| 157 | #ifdef TCB_SHORT
|
|---|
| 158 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ãä¿å */
|
|---|
| 159 | mov.l r15,@(TCB_sp, r0)
|
|---|
| 160 | mov.l dispatch_r_k,r1 /* å®è¡åéçªå° */
|
|---|
| 161 | bra dispatcher
|
|---|
| 162 | mov.l r1,@(TCB_pc, r0) /* é
|
|---|
| 163 | 延ã¹ããã */
|
|---|
| 164 | #else /* TCB_SHORT */
|
|---|
| 165 | mov #TCB_sp,r9
|
|---|
| 166 | mov.l r15,@(r0,r9) /* ã¿ã¹ã¯ã¹ã¿ãã¯ãä¿å */
|
|---|
| 167 | mov #TCB_pc,r8
|
|---|
| 168 | mov.l dispatch_r_k,r1 /* å®è¡åéçªå°ãä¿å */
|
|---|
| 169 | bra dispatcher
|
|---|
| 170 | mov.l r1,@(r0,r8) /* é
|
|---|
| 171 | 延ã¹ããã */
|
|---|
| 172 | #endif /* TCB_SHORT */
|
|---|
| 173 |
|
|---|
| 174 | /*
|
|---|
| 175 | * dispatch_r:
|
|---|
| 176 | * ãã¿ã¹ã¯ã³ã³ãã³ã³ããã¹ãã§ãã£ã¹ãããã£å¼ã³åºããããå ´åã®
|
|---|
| 177 | * ãå®è¡åéçªå°
|
|---|
| 178 | * ãdispatcherããå¼ã°ããã®ã§ãr7ã«runtskã代å
|
|---|
| 179 | ¥ããã¦ãã
|
|---|
| 180 | *
|
|---|
| 181 | * ããã¬ã¸ã¹ã¿å²ãå½ã¦
|
|---|
| 182 | * ãããr7 ï¼runtsk
|
|---|
| 183 | * ãããr0 ï¼runtsk->enatex
|
|---|
| 184 | * ããã mov.b @(imm, r),r0å½ä»¤ã¯ãªãã©ã³ããr0ã«
|
|---|
| 185 | * ããã åºå®ããã¦ãã
|
|---|
| 186 | * ãããr1 ï¼runtsk->texptn
|
|---|
| 187 | * ãããr2 ï¼call_texrtn()ã®å
|
|---|
| 188 | é ã¢ãã¬ã¹
|
|---|
| 189 | *
|
|---|
| 190 | */
|
|---|
| 191 | dispatch_r:
|
|---|
| 192 | lds.l @r15+,pr /* ã¬ã¸ã¹ã¿ã復帰 */
|
|---|
| 193 | mov.l @r15+,r14
|
|---|
| 194 | mov.l @r15+,r13
|
|---|
| 195 | mov.l @r15+,r12
|
|---|
| 196 | mov.l @r15+,r11
|
|---|
| 197 | mov.l @r15+,r10
|
|---|
| 198 | mov.l @r15+,r9
|
|---|
| 199 | mov.l @r15+,r8
|
|---|
| 200 | mov.b @(TCB_enatex,r7),r0 /* ãªãã©ã³ããr0ã«åºå® (c) */
|
|---|
| 201 | mov.l @(TCB_texptn,r7),r1
|
|---|
| 202 | and #TCB_enatex_mask,r0
|
|---|
| 203 | tst r0,r0 /* runtsk->enatexã®ãã§ã㯠*/
|
|---|
| 204 | bt _dispatch_r_1
|
|---|
| 205 | /* é
|
|---|
| 206 | 延ã¹ããããªã */
|
|---|
| 207 | tst r1,r1 /* runtsk->texptnã®ãã§ã㯠*/
|
|---|
| 208 | bt _dispatch_r_1
|
|---|
| 209 | /* é
|
|---|
| 210 | 延ã¹ããããªã */
|
|---|
| 211 | mov.l _call_texrtn_dis,r2 /* ã¿ã¹ã¯ä¾å¤å¦çã«ã¼ãã³èµ·å */
|
|---|
| 212 | jmp @r2 /*ï¼dispatch()å¼ã³åºãå
|
|---|
| 213 | ã«ãªã¿ã¼ã³ããï¼*/
|
|---|
| 214 | nop /* é
|
|---|
| 215 | 延ã¹ãããã */
|
|---|
| 216 | _dispatch_r_1:
|
|---|
| 217 | rts /* dispatch()å¼ã³åºãå
|
|---|
| 218 | ã¸ã®ãªã¿ã¼ã³ */
|
|---|
| 219 | nop /* é
|
|---|
| 220 | 延ã¹ãããã */
|
|---|
| 221 |
|
|---|
| 222 |
|
|---|
| 223 | .global _exit_and_dispatch
|
|---|
| 224 | _exit_and_dispatch:
|
|---|
| 225 | /* å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ãã¯ãªã¢ */
|
|---|
| 226 | mov.l _intnest_dis, r1
|
|---|
| 227 | mov #0,r0
|
|---|
| 228 | mov.l r0,@r1
|
|---|
| 229 |
|
|---|
| 230 | /*
|
|---|
| 231 | * ãã£ã¹ãããã£æ¬ä½
|
|---|
| 232 | *
|
|---|
| 233 | */
|
|---|
| 234 | dispatcher:
|
|---|
| 235 | /*
|
|---|
| 236 | * ããã«ã¯å²ãè¾¼ã¿ç¦æ¢ã§æ¥ããã¨
|
|---|
| 237 | */
|
|---|
| 238 | mov.l _schedtsk_dis,r1
|
|---|
| 239 | mov.l _runtsk_dis,r2
|
|---|
| 240 | mov.l @r1,r7 /* r7 <- schedtsk */
|
|---|
| 241 | mov #0, r0 /* (b) ãããããã*/
|
|---|
| 242 |
|
|---|
| 243 | /*
|
|---|
| 244 | * ããã§runtskã«schedtskã代å
|
|---|
| 245 | ¥ããã®ã¯ï¼ã¤ã®æå³ãããã
|
|---|
| 246 | * ã(1) schedtsk != NULLã®å ´å
|
|---|
| 247 | * ããããé常ã®ã¿ã¹ã¯åãæ¿ããè¡ãã
|
|---|
| 248 | * ã(2) schedtsk == NULLã®å ´å
|
|---|
| 249 | * ããããruntskã«NULLã代å
|
|---|
| 250 | ¥ãã¦ããã
|
|---|
| 251 | * ããããï¼dispatcher_1以éã®å²è¾¼ã¿å¾
|
|---|
| 252 | ã¡ã§å²è¾¼ã¿ãå
|
|---|
| 253 | ¥ãããã®ä¸ã§
|
|---|
| 254 | * ãããããiget_tid()ãã³ã¼ã«ãããã¨ãã«æ£ããTSK_NONEãè¿ããã
|
|---|
| 255 | * ãããããã«ã¯ãå®è¡ç¶æ
|
|---|
| 256 | ã®ã¿ã¹ã¯ããªãæã«ãruntskãNULLã«ãã¦
|
|---|
| 257 | * ãããããããå¿
|
|---|
| 258 | è¦ããããï¼
|
|---|
| 259 | */
|
|---|
| 260 | mov.l r7,@r2 /* runtskâschedtskã */
|
|---|
| 261 |
|
|---|
| 262 | cmp/eq r7,r0 /* schedtsk ããããï¼ (a) æ«å°¾åç
|
|---|
| 263 | § */
|
|---|
| 264 | bt dispatcher_1 /* ç¡ããã°ã¸ã£ã³ã */
|
|---|
| 265 | /* é
|
|---|
| 266 | 延ã¹ããããªã */
|
|---|
| 267 |
|
|---|
| 268 | /*
|
|---|
| 269 | * ã¿ã¹ã¯ã³ã³ããã¼ã«ãããã¯TCBããå®è¡åéçªå°ãåãåºãã¦
|
|---|
| 270 | * åå²ããã
|
|---|
| 271 | * åå²å
|
|---|
| 272 | ã¯ä»¥ä¸ã®3ã¤
|
|---|
| 273 | * ãdispatch_rï¼ã¿ã¹ã¯ã³ã³ããã¹ãããã®ãã£ã¹ãããå¼ã³åºã
|
|---|
| 274 | * ãret_int_r ï¼å²è¾¼ã¿ã®åºå£å¦ç
|
|---|
| 275 | * ãactivate_rï¼èµ·åç´å¾
|
|---|
| 276 | *
|
|---|
| 277 | * ãåå²å
|
|---|
| 278 | ã§ã¯r7ã«runtsk(=schedtsk)ããã¼ãããã¦ããã¨ãã¦
|
|---|
| 279 | * ã使ç¨ãã¦è¯ã
|
|---|
| 280 | */
|
|---|
| 281 | #ifdef TCB_SHORT
|
|---|
| 282 | /*
|
|---|
| 283 | * ã¿ã¹ã¯ã³ã³ããã¼ã«ãããã¯TCBä¸ã®sp,pcãå
|
|---|
| 284 | é ãã60ãã¤ãã®
|
|---|
| 285 | * ç¯å²å
|
|---|
| 286 | ã«ãããã¢ã©ã¤ã³ã¡ã³ãã4ãã¤ãå¢çã«ãªã£ã¦ããã°ã
|
|---|
| 287 | * ã¤ããã£ã¨ã¤ãç¸å¯¾ã¢ãã¬ãã·ã³ã°ã§ã¢ã¯ã»ã¹ã§ãã
|
|---|
| 288 | */
|
|---|
| 289 | /* å®è¡åéçªå°ã復帰 */
|
|---|
| 290 | mov.l @(TCB_pc, r7),r1
|
|---|
| 291 | jmp @r1
|
|---|
| 292 | mov.l @(TCB_sp, r7),r15 /* é
|
|---|
| 293 | 延ã¹ããã */
|
|---|
| 294 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ã復å
|
|---|
| 295 | */
|
|---|
| 296 | #else /* TCB_SHORT */
|
|---|
| 297 | mov #TCB_pc,r8
|
|---|
| 298 | mov.l @(r7,r8),r1 /* å®è¡åéçªå°ã復帰 */
|
|---|
| 299 | mov #TCB_sp,r9
|
|---|
| 300 | jmp @r1
|
|---|
| 301 | mov.l @(r7,r9),r15 /* é
|
|---|
| 302 | 延ã¹ããã */
|
|---|
| 303 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ã復å
|
|---|
| 304 | */
|
|---|
| 305 | #endif /* TCB_SHORT */
|
|---|
| 306 |
|
|---|
| 307 |
|
|---|
| 308 | dispatcher_1:
|
|---|
| 309 | /*
|
|---|
| 310 | * ããã§å²è¾¼ã¿ã¢ã¼ãã«åãæããã®ã¯ï¼ããã§çºçããå²è¾¼ã¿å¦ç
|
|---|
| 311 | * ã«ã©ã®ã¹ã¿ãã¯ã使ããã¨ããåé¡ã®è§£æ±ºã¨ï¼å²è¾¼ã¿ãã³ãã©å
|
|---|
| 312 | ã§
|
|---|
| 313 | * ã®ã¿ã¹ã¯ãã£ã¹ãããã®é²æ¢ã¨ããäºã¤ã®æå³ãããï¼
|
|---|
| 314 | */
|
|---|
| 315 |
|
|---|
| 316 |
|
|---|
| 317 | /* ã¤ããã£ã¨ã¤ãå¤ãæ¯åèªã¿è¾¼ãã®ã¯å¹çãæªãã®ã§äºåã«ç¨æãã
|
|---|
| 318 | * r0 : 0x00
|
|---|
| 319 | * r1 : 0x01
|
|---|
| 320 | * r8 : å²ãè¾¼ã¿ç¦æ¢ä¸ã®SRã®å¤
|
|---|
| 321 | * r9 : å²ãè¾¼ã¿è¨±å¯ä¸ã®SRã®å¤
|
|---|
| 322 | * r10 : reqflgã®çªå°
|
|---|
| 323 | * r11 : å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿intnestã®çªå°
|
|---|
| 324 | */
|
|---|
| 325 | mov #0,r0
|
|---|
| 326 | mov #1,r1
|
|---|
| 327 | mov.l _mask_ipm_dis,r8
|
|---|
| 328 |
|
|---|
| 329 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 330 | mov.l _task_intmask_dis,r2 /* ã¿ã¹ã¯ã³ã³ããã¹ãã®IPM */
|
|---|
| 331 | mov.l @r2,r9
|
|---|
| 332 | #else /* SUPPORT_CHG_IPM */
|
|---|
| 333 | mov #0,r9
|
|---|
| 334 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 335 |
|
|---|
| 336 | mov.l _reqflg_dis,r10
|
|---|
| 337 | mov.l _intnest_dis,r11
|
|---|
| 338 |
|
|---|
| 339 | mov.l _stacktop_dis,r15 /* ã¹ã¿ãã¯ãå²è¾¼ã¿ã¹ã¿ãã¯ã«åæ¿ã */
|
|---|
| 340 | mov.l r1,@r11 /* å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ãï¼ã«ãã */
|
|---|
| 341 | dispatcher_2:
|
|---|
| 342 | ldc r9,sr /* å²ãè¾¼ã¿è¨±å¯ */
|
|---|
| 343 |
|
|---|
| 344 | /*
|
|---|
| 345 | *ãRelase1.4.1ã§è§£æ±ºãããå¶éäºé
|
|---|
| 346 |
|
|---|
| 347 | *ã
|
|---|
| 348 | *ããã£ã¹ãããã£ã®åºå£ã§å®è¡ãã¹ãã¿ã¹ã¯ããªã(schedtsk==
|
|---|
| 349 | *ãNULLï¼å ´åã¯ãsleepå½ä»¤ã«ãã£ã¦ããã»ããµãçé»åã¢ã¼ãã«å
|
|---|
| 350 | *ããæ¿ãã¦å²è¾¼ã¿å¾
|
|---|
| 351 | ã¡ããã¦ããã
|
|---|
| 352 | *ã
|
|---|
| 353 | *ãå²è¾¼ã¿è¨±å¯å¾ã«sleepå½ä»¤ãå®è¡ãã¦ãããããå²è¾¼ã¿è¨±å¯å½ä»¤ã®
|
|---|
| 354 | *ãå®è¡åã«å²è¾¼ã¿è¦æ±ãå
|
|---|
| 355 | ¥ã£ã¦ããå ´åï¼ãããã¯å²è¾¼ã¿è¨±å¯ç´å¾ã
|
|---|
| 356 | *ãsleepå½ä»¤å®è¡åã«å²è¾¼ã¿è¦æ±ãå
|
|---|
| 357 | ¥ã£ãå ´åï¼ãå²è¾¼ã¿è¨±å¯å½ä»¤ã®
|
|---|
| 358 | *ãå®è¡ã¨å
|
|---|
| 359 | ±ã«å²è¾¼ã¿ãåãä»ãããããã®å¾©å¸°å¾ã«sleepããã¾ã¾ã«
|
|---|
| 360 | *ããªããreqflgã®ãã§ãã¯ã«é²ã¾ãªãã
|
|---|
| 361 | *ãï¼1msec以å
|
|---|
| 362 | ã«ã¿ã¤ãå²è¾¼ã¿ãå
|
|---|
| 363 | ¥ããããå®éã«ã¯sleepããã¾ã¾ã¨
|
|---|
| 364 | *ããããã¨ã¯ãªããï¼
|
|---|
| 365 | *ã
|
|---|
| 366 | *ããã®åé¡ã¯ãå²è¾¼ã¿ã®è¨±å¯ã¨sleepç¶æ
|
|---|
| 367 | ã¸ã®ç§»è¡ãã¢ãããã¯ã«å®
|
|---|
| 368 | *ãè¡ã§ããªããã¨ã«èµ·å ãããSH3以éã§ã¯IPMã¨ã¯å¥ã«SRã®BLããã
|
|---|
| 369 | *ãã使ã£ã¦å²è¾¼ã¿ã®ç¦æ¢/許å¯ãå¶å¾¡ãããã¨ã«ããããã®åé¡ãå
|
|---|
| 370 | *ãé¿ã§ããããSH1/2ã§ã¯IPMãè¨å®ãã以å¤ã«å²è¾¼ã¿ãç¦æ¢ï¼è¨±å¯ã
|
|---|
| 371 | *ããæ¹æ³ããªããå²è¾¼ã¿è¨±å¯ï¼å²è¾¼ã¿å¾
|
|---|
| 372 | ã¡ã®IPMè¨å®ï¼ã¨sleepãã¢ã
|
|---|
| 373 | *ãããã¯ã«è¡ãæ¹æ³ããªãã
|
|---|
| 374 | *ãããã§SH1ä¾åé¨ã§ã¯ãå²è¾¼ã¿åä»æã«ã¹ã¿ãã¯ã«ç©ã¾ããæ»ãçª
|
|---|
| 375 | *ãå°ãå¤éå²è¾¼ã¿ã®åºå£å¦çã§ãã§ãã¯ããæ»ãçªå°ãä¸è¨ã®sleep
|
|---|
| 376 | *ãå½ä»¤ã«è©²å½ããå ´åã¯æ»ãçªå°ã1å½ä»¤åï¼2ãã¤ãï¼é²ãããã¨ã«
|
|---|
| 377 | *ããããã®åé¡ãåé¿ãã¦ããã
|
|---|
| 378 | *ããã ãããã®æ¹æ³ã§ã¯å¤éå²è¾¼ã¿ã®åºå£å¦çã«æ°å½ä»¤ã®ãªã¼ãã¼
|
|---|
| 379 | *ãããããçããã
|
|---|
| 380 | *ãOMIT_POWER_CONTROLãã¯ããå®ç¾©ãããã¨ã§sleepå½ä»¤ã®ä»£ããã«
|
|---|
| 381 | *ãnopå½ä»¤ãæ¿å
|
|---|
| 382 | ¥ãããå¤éå²è¾¼ã¿ã®åºå£å¦çã§ã®ãã§ãã¯ã«ã¼ãã³
|
|---|
| 383 | *ãã¯çç¥ããããï¼ãã®å ´åã¯æ¶è²»é»åã®ç¹ã§ä¸å©ã«ãªããï¼
|
|---|
| 384 | */
|
|---|
| 385 | #ifndef OMIT_POWER_CONTROL
|
|---|
| 386 | _waiting_interrupt:
|
|---|
| 387 | sleep /* å²è¾¼ã¿å¾
|
|---|
| 388 | ã¡ */
|
|---|
| 389 | #else /* OMIT_POWER_CONTROL */
|
|---|
| 390 | nop
|
|---|
| 391 | #endif /* OMIT_POWER_CONTROL */
|
|---|
| 392 | ldc r8,sr /* å²ãè¾¼ã¿ç¦æ¢ */
|
|---|
| 393 | mov.l @r10,r2 /* reqflgã®ãã§ã㯠*/
|
|---|
| 394 | tst r2,r2 /* FALSEãªãã°ããã1度å²ãè¾¼ã¿å¾
|
|---|
| 395 | ã¡ */
|
|---|
| 396 | bt dispatcher_2
|
|---|
| 397 | /* é
|
|---|
| 398 | 延ã¹ããããªã */
|
|---|
| 399 | mov.l r0,@r10 /* reqflgã®ã¯ãªã¢ */
|
|---|
| 400 | bra dispatcher
|
|---|
| 401 | mov.l r0,@r11 /* é
|
|---|
| 402 | 延ã¹ããã */
|
|---|
| 403 | /* å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ãã¯ãªã¢ */
|
|---|
| 404 |
|
|---|
| 405 | /*
|
|---|
| 406 | *ãå²è¾¼ã¿å¾
|
|---|
| 407 | ã¡ã®ç´åã«è¡ã£ãã¹ã¿ãã¯åæ¿ã®æ»ããè¡ã£ã¦ããªããã
|
|---|
| 408 | *ããã£ã¹ãããã£ã®åºå£ã§TCBããåãåºããå¤ãã¹ã¿ãã¯ãã¤ã³
|
|---|
| 409 | *ãã¿ã«è¨å®ããã®ã§åé¡ãªãã
|
|---|
| 410 | */
|
|---|
| 411 |
|
|---|
| 412 |
|
|---|
| 413 | .align 4
|
|---|
| 414 | _runtsk_dis:
|
|---|
| 415 | .long _runtsk
|
|---|
| 416 | _schedtsk_dis:
|
|---|
| 417 | .long _schedtsk
|
|---|
| 418 | _call_texrtn_dis:
|
|---|
| 419 | .long _call_texrtn
|
|---|
| 420 | _mask_ipm_dis:
|
|---|
| 421 | .long MAX_IPM << 4 /* å²è¾¼ã¿ç¦æ¢æã®SRã®å¤ */
|
|---|
| 422 | dispatch_r_k:
|
|---|
| 423 | .long dispatch_r
|
|---|
| 424 | _stacktop_dis:
|
|---|
| 425 | .long STACKTOP /* ã¿ã¹ã¯ç¬ç«é¨ã®ã¹ã¿ãã¯ã®åæå¤ */
|
|---|
| 426 |
|
|---|
| 427 | _intnest_dis: /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ */
|
|---|
| 428 | .long _intnest
|
|---|
| 429 | _reqflg_dis:
|
|---|
| 430 | .long _reqflg
|
|---|
| 431 |
|
|---|
| 432 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 433 | _task_intmask_dis: /* ã¿ã¹ã¯ã³ã³ããã¹ãã®å²è¾¼ã¿ãã¹ã¯ */
|
|---|
| 434 | .long _task_intmask
|
|---|
| 435 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 436 |
|
|---|
| 437 |
|
|---|
| 438 | /*
|
|---|
| 439 | * å²è¾¼ã¿ï¼CPUä¾å¤ã®å
|
|---|
| 440 | ¥å£å¦ç
|
|---|
| 441 | */
|
|---|
| 442 |
|
|---|
| 443 | /*
|
|---|
| 444 | * å²è¾¼ã¿ï¼CPUä¾å¤ã®éã®ã¹ã¿ãã¯ãã¤ã³ã¿ãæã示ãä½ç½®ãã
|
|---|
| 445 | *ãSR,PCã®ã³ãã¼ãããå ´æã¾ã§ã®ãªãã»ãã
|
|---|
| 446 | *ãããã
|
|---|
| 447 | *ãããããã§ããã¹ã¿ãã¯ãã¤ã³ã¿ã¨ã¯å²è¾¼ã¿ï¼CPUä¾å¤ã®å
|
|---|
| 448 | ¥å£å¦çã§
|
|---|
| 449 | *ãããããã·ã¼ã¸ã£ã¬ã¸ã¹ã¿PRã®éé¿ãçµãã£ãç´å¾ã®å¤ãæå³ããã
|
|---|
| 450 | *ãããSRã¯ã¹ã¿ãã¯å
|
|---|
| 451 | é ãã40ãã¤ãä¸ã«ãPCã¯36ãã¤ãä¸ã«ç©ã¾ãã¦
|
|---|
| 452 | *ããããããããï¼ret_int_3ãåç
|
|---|
| 453 | §ï¼
|
|---|
| 454 | */
|
|---|
| 455 | #define SP_SR_OFFSET 40
|
|---|
| 456 | #define SP_PC_OFFSET 36
|
|---|
| 457 |
|
|---|
| 458 | /*
|
|---|
| 459 | * CPUä¾å¤ã®å
|
|---|
| 460 | ¥å£å¦çã®ç¶ã
|
|---|
| 461 | *
|
|---|
| 462 | * CPUä¾å¤ãã³ãã©ã¯ï¼éã¿ã¹ã¯ã³ã³ããã¹ãã§å®è¡ããï¼ãã®ããï¼CPUä¾
|
|---|
| 463 | * å¤ãã³ãã©ãå¼ã³åºãåã«å²è¾¼ã¿ã¢ã¼ãã«ç§»è¡ãï¼ãªã¿ã¼ã³ãã¦ããå¾ã«
|
|---|
| 464 | * å
|
|---|
| 465 | ã®ã¢ã¼ãã«æ»ãï¼å
|
|---|
| 466 | ã®ã¢ã¼ãã«æ»ãããã«ï¼å²è¾¼ã¿ã¢ã¼ãã«ç§»è¡ããå
|
|---|
| 467 | * ã® SR ãå²è¾¼ã¿ã¹ã¿ãã¯ä¸ã«ä¿åããï¼CPUä¾å¤ãã¿ã¹ã¯ã³ã³ããã¹ãã§
|
|---|
| 468 | * çºçãï¼reqflg ã TRUE ã«ãªã£ãæã«ï¼ret_exc ã¸åå²ããï¼
|
|---|
| 469 | * reqflg ããã§ãã¯ããåã«å²è¾¼ã¿ãç¦æ¢ããªãã¨ï¼reqflg ããã§ãã¯å¾
|
|---|
| 470 | * ã«èµ·åãããå²è¾¼ã¿ãã³ãã©å
|
|---|
| 471 | ã§ãã£ã¹ããããè¦æ±ãããå ´åã«ï¼ãã£
|
|---|
| 472 | * ã¹ããããããªãï¼
|
|---|
| 473 | * ã
|
|---|
| 474 | * ä¸è¬ä¸å½å½ä»¤ã®å ´åã¯æ»ãçªå°ã2ãã¤ãé²ããå¿
|
|---|
| 475 | è¦ãããã
|
|---|
| 476 | * 対å¿ãã¦ããªã
|
|---|
| 477 | * ï¼GDB stubããã¬ã¼ã¯ãã¤ã³ãã¨ãã¦ä½¿ç¨ãããï¼
|
|---|
| 478 | * ã
|
|---|
| 479 | * ããCPUä¾å¤è¦å æ¯ã«å±éãããã«ã¼ãã³ã§r0,r1ãä¿åãã
|
|---|
| 480 | * ããå²è¾¼ã¿ç¦æ¢ã«ããå¾ã
|
|---|
| 481 | *ããããr1ï¼å²è¾¼ã¿åä»ç´å¾ã®SRã®ã³ãã¼
|
|---|
| 482 | *ããããr2ï¼Cè¨èªã«ã¼ãã³ã®å
|
|---|
| 483 | é ã¢ãã¬ã¹
|
|---|
| 484 | * ããã®ç¶æ
|
|---|
| 485 | ã§ããã«æ¥ãã
|
|---|
| 486 | * ãã
|
|---|
| 487 | * ããã¬ã¸ã¹ã¿å²å½
|
|---|
| 488 | * ãããr4ï¼Cè¨èªã«ã¼ãã³ã®å¼æ°
|
|---|
| 489 | * ãããããã¹ã¿ãã¯ä¸ã«ç©ã¾ããSRã®ã¢ãã¬ã¹
|
|---|
| 490 | * ãããr7ï¼ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿
|
|---|
| 491 | */
|
|---|
| 492 | .text
|
|---|
| 493 | .align 2
|
|---|
| 494 | .globl _cpu_exception_entry
|
|---|
| 495 | _cpu_exception_entry:
|
|---|
| 496 | /* æ®ãã®ã¹ã¯ã©ããã¬ã¸ã¹ã¿ãã¹ã¿ãã¯ã«ç©ãã */
|
|---|
| 497 | mov.l r3,@-r15
|
|---|
| 498 | mov.l r4,@-r15
|
|---|
| 499 | mov.l r5,@-r15
|
|---|
| 500 | mov.l r6,@-r15
|
|---|
| 501 | mov.l r7,@-r15
|
|---|
| 502 | sts.l pr,@-r15
|
|---|
| 503 | mov r15,r4 /* Cè¨èªã«ã¼ãã³ã®å¼æ°è¨å® */
|
|---|
| 504 | add #SP_SR_OFFSET, r4
|
|---|
| 505 | /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ã®ãã§ã㯠*/
|
|---|
| 506 | mov.l _intnest_int, r5
|
|---|
| 507 | mov.l @r5,r6
|
|---|
| 508 | tst r6,r6 /* CPUä¾å¤çºçæã®ã³ã³ããã¹ããå¤å® */
|
|---|
| 509 | add #0x1,r6 /* å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ãã¤ã³ã¯ãªã¡ã³ã */
|
|---|
| 510 | /* addå½ä»¤ã§ã¯srã®Tãããã¯å¤åããªã */
|
|---|
| 511 | mov.l r6,@r5
|
|---|
| 512 | /* å¤éä¾å¤ãªãã¸ã£ã³ã */
|
|---|
| 513 | bf _exc_from_int
|
|---|
| 514 | /* é
|
|---|
| 515 | 延ã¹ããããªã */
|
|---|
| 516 |
|
|---|
| 517 | /* å段ã®CPUä¾å¤ã®å ´å */
|
|---|
| 518 | /* ã¹ã¿ãã¯å
|
|---|
| 519 | ¥ãæ¿ãåã® */
|
|---|
| 520 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ãä¿å */
|
|---|
| 521 | mov r15,r7
|
|---|
| 522 | /* å²è¾¼ã¿ã¹ã¿ãã¯ã«åãæ¿ã */
|
|---|
| 523 | mov.l _stacktop_int,r15
|
|---|
| 524 | ldc r1,sr /* å²è¾¼ã¿è¨±å¯ */
|
|---|
| 525 | jsr @r2 /* Cè¨èªã«ã¼ãã³å¼ã³åºã */
|
|---|
| 526 | mov.l r7,@-r15 /* é
|
|---|
| 527 | 延ã¹ãããã */
|
|---|
| 528 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ã */
|
|---|
| 529 | /* å²è¾¼ã¿ã¹ã¿ãã¯ã«ç©ã */
|
|---|
| 530 |
|
|---|
| 531 | /* å²è¾¼ã¿ç¦æ¢ */
|
|---|
| 532 | mov.l _mask_ipm_int,r0
|
|---|
| 533 | ldc r0,sr
|
|---|
| 534 | /* å²è¾¼ã¿/CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ãã¯ãªã¢ */
|
|---|
| 535 | mov.l _intnest_int,r0
|
|---|
| 536 | mov #0x0,r1
|
|---|
| 537 | mov.l r1,@r0
|
|---|
| 538 | mov.l @r15,r15 /* ã¹ã¿ãã¯åæ¿ã */
|
|---|
| 539 | /* reqflgã®ãã§ã㯠*/
|
|---|
| 540 | mov.l _reqflg_int,r4
|
|---|
| 541 | mov.l @r4,r5
|
|---|
| 542 | tst r5,r5
|
|---|
| 543 | bt 1f /* reqflg=FALSEã®å ´åã¯ret_to_task_exc㸠*/
|
|---|
| 544 | /* é
|
|---|
| 545 | 延ã¹ããããªã */
|
|---|
| 546 | bra ret_exc /* reqflg=TRUEã®å ´åã¯ret_exc㸠*/
|
|---|
| 547 | nop /* é
|
|---|
| 548 | 延ã¹ããã */
|
|---|
| 549 |
|
|---|
| 550 | /*
|
|---|
| 551 | *ãbtå½ä»¤ã§ã¯ret_to_task_excã«å±ããªãã®ã§ãbraå½ä»¤ãï¼ã¯ãã·ã§ã³
|
|---|
| 552 | *ãå
|
|---|
| 553 | ¥ããã
|
|---|
| 554 | */
|
|---|
| 555 | 1:
|
|---|
| 556 | bra ret_to_task_exc /* reqflg=FALSEã®å ´å */
|
|---|
| 557 | nop /* é
|
|---|
| 558 | 延ã¹ããã */
|
|---|
| 559 |
|
|---|
| 560 |
|
|---|
| 561 | /* å¤éCPUä¾å¤ã®å ´å */
|
|---|
| 562 | /* CPUä¾å¤çºçæã®ã³ã³ããã¹ããå¤å¥å¾ã */
|
|---|
| 563 | /* å²è¾¼ã¿ç¦æ¢ */
|
|---|
| 564 | /* r1ï¼å²è¾¼ã¿åä»æã®srã®ã³ãã¼ */
|
|---|
| 565 | /* r2ï¼Cè¨èªã«ã¼ãã³ã®å
|
|---|
| 566 | é ã¢ãã¬ã¹ */
|
|---|
| 567 | /* r4ï¼Cè¨èªã«ã¼ãã³ã®å¼æ° */
|
|---|
| 568 | /* ã®ç¶æ
|
|---|
| 569 | ã§ããã«é£ãã§ãã */
|
|---|
| 570 | /* Cè¨èªã«ã¼ãã³ã®å¼æ°è¨å®ã¨å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ã® */
|
|---|
| 571 | /* ã¤ã³ã¯ãªã¡ã³ãã¯æ¸ãã§ãã */
|
|---|
| 572 |
|
|---|
| 573 | _exc_from_int:
|
|---|
| 574 | jsr @r2 /* Cè¨èªã«ã¼ãã³å¼ã³åºã */
|
|---|
| 575 | ldc r1,sr /* å²è¾¼ã¿è¨±å¯ï¼é
|
|---|
| 576 | 延ã¹ãããï¼ */
|
|---|
| 577 |
|
|---|
| 578 | mov.l _mask_ipm_int,r0 /* å²è¾¼ã¿ç¦æ¢ */
|
|---|
| 579 | ldc r0,sr
|
|---|
| 580 | /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ããã£ã¯ãªã¡ã³ã */
|
|---|
| 581 | mov.l _intnest_int,r3
|
|---|
| 582 | mov.l @r3,r4
|
|---|
| 583 | add #-1,r4
|
|---|
| 584 | bra _ret_to_exc
|
|---|
| 585 | mov.l r4,@r3 /* é
|
|---|
| 586 | 延ã¹ããã */
|
|---|
| 587 |
|
|---|
| 588 |
|
|---|
| 589 | /*
|
|---|
| 590 | * å²è¾¼ã¿ã®å£å¦çã®ç¶ã
|
|---|
| 591 | *
|
|---|
| 592 | * ããå²è¾¼ã¿è¦å æ¯ã«å±éãããã«ã¼ãã³ã§r0,r1ãä¿åãã
|
|---|
| 593 | * ããå²è¾¼ã¿ç¦æ¢ã«ããå¾ã
|
|---|
| 594 | *ããããr1ï¼å²è¾¼ã¿åä»ç´å¾ã®SRã®ã³ãã¼
|
|---|
| 595 | *ããããr2ï¼Cè¨èªã«ã¼ãã³ã®å
|
|---|
| 596 | é ã¢ãã¬ã¹
|
|---|
| 597 | * ããã®ç¶æ
|
|---|
| 598 | ã§ããã«æ¥ãã
|
|---|
| 599 | * ãã
|
|---|
| 600 | * ããã¬ã¸ã¹ã¿å²å½
|
|---|
| 601 | * ãããr7ï¼ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿
|
|---|
| 602 | */
|
|---|
| 603 | .text
|
|---|
| 604 | .align 2
|
|---|
| 605 | .globl _interrupt_entry
|
|---|
| 606 | _interrupt_entry:
|
|---|
| 607 | /* æ®ãã®ã¹ã¯ã©ããã¬ã¸ã¹ã¿ãã¹ã¿ãã¯ã«ç©ãã */
|
|---|
| 608 | mov.l r3,@-r15
|
|---|
| 609 | mov.l r4,@-r15
|
|---|
| 610 | mov.l r5,@-r15
|
|---|
| 611 | mov.l r6,@-r15
|
|---|
| 612 | mov.l r7,@-r15
|
|---|
| 613 | sts.l pr,@-r15
|
|---|
| 614 | /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ã®ãã§ã㯠*/
|
|---|
| 615 | mov.l _intnest_int, r5
|
|---|
| 616 | mov.l @r5,r6
|
|---|
| 617 | tst r6,r6 /* å²è¾¼ã¿çºçæã®ã³ã³ããã¹ããå¤å® */
|
|---|
| 618 | add #0x1,r6 /* å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ãã¤ã³ã¯ãªã¡ã³ã */
|
|---|
| 619 | /* addå½ä»¤ã§ã¯srã®Tãããã¯å¤åããªã */
|
|---|
| 620 | mov.l r6,@r5
|
|---|
| 621 | /* å¤éå²è¾¼ã¿ãªãã¸ã£ã³ã */
|
|---|
| 622 | bf _interrupt_from_int
|
|---|
| 623 | /* é
|
|---|
| 624 | 延ã¹ããããªã */
|
|---|
| 625 |
|
|---|
| 626 | /* å段ã®å²è¾¼ã¿ã®å ´å */
|
|---|
| 627 | /* ã¹ã¿ãã¯å
|
|---|
| 628 | ¥ãæ¿ãåã® */
|
|---|
| 629 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ãä¿å */
|
|---|
| 630 | mov r15,r7
|
|---|
| 631 | /* å²è¾¼ã¿ã¹ã¿ãã¯ã«åãæ¿ã */
|
|---|
| 632 | mov.l _stacktop_int,r15
|
|---|
| 633 | ldc r1,sr /* å²è¾¼ã¿è¨±å¯ */
|
|---|
| 634 | jsr @r2 /* Cè¨èªã«ã¼ãã³å¼ã³åºã */
|
|---|
| 635 | mov.l r7,@-r15 /* é
|
|---|
| 636 | 延ã¹ãããã */
|
|---|
| 637 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ã */
|
|---|
| 638 | /* å²è¾¼ã¿ã¹ã¿ãã¯ã«ç©ã */
|
|---|
| 639 |
|
|---|
| 640 | /* å²è¾¼ã¿ç¦æ¢ */
|
|---|
| 641 | mov.l _mask_ipm_int,r0
|
|---|
| 642 | ldc r0,sr
|
|---|
| 643 | /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ãã¯ãªã¢*/
|
|---|
| 644 | mov.l _intnest_int,r0
|
|---|
| 645 | mov #0x0,r1
|
|---|
| 646 | mov.l r1,@r0
|
|---|
| 647 | mov.l @r15,r15 /* ã¹ã¿ãã¯åæ¿ã */
|
|---|
| 648 | /* reqflgã®ãã§ã㯠*/
|
|---|
| 649 | mov.l _reqflg_int,r4
|
|---|
| 650 | mov.l @r4,r5
|
|---|
| 651 | tst r5,r5
|
|---|
| 652 | bt ret_to_task_int /* reqflg=FALSEã®å ´å */
|
|---|
| 653 | /* é
|
|---|
| 654 | 延ã¹ããããªã */
|
|---|
| 655 | bra ret_int /* reqflg=TRUEã®å ´å */
|
|---|
| 656 | nop /* é
|
|---|
| 657 | 延ã¹ããã */
|
|---|
| 658 |
|
|---|
| 659 |
|
|---|
| 660 | /* å¤éå²è¾¼ã¿ã®å ´å */
|
|---|
| 661 | /* å²è¾¼ã¿çºçæã®ã³ã³ããã¹ããå¤å¥å¾ã */
|
|---|
| 662 | /* å²è¾¼ã¿ç¦æ¢ */
|
|---|
| 663 | /* r1ï¼å²è¾¼ã¿åä»æã®srã®ã³ãã¼ */
|
|---|
| 664 | /* r2ï¼Cè¨èªã«ã¼ãã³ã®å
|
|---|
| 665 | é ã¢ãã¬ã¹ */
|
|---|
| 666 | /* ã®ç¶æ
|
|---|
| 667 | ã§ããã«é£ãã§ãã */
|
|---|
| 668 | /* ï¼å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ã®ã¤ã³ã¯ãªã¡ã³ãã¯æ¸ãã§ããï¼ */
|
|---|
| 669 |
|
|---|
| 670 | _interrupt_from_int:
|
|---|
| 671 | jsr @r2 /* Cè¨èªã«ã¼ãã³å¼ã³åºã */
|
|---|
| 672 | ldc r1,sr /* å²è¾¼ã¿è¨±å¯ï¼é
|
|---|
| 673 | 延ã¹ãããï¼ */
|
|---|
| 674 |
|
|---|
| 675 | mov.l _mask_ipm_int,r0 /* å²è¾¼ã¿ç¦æ¢ */
|
|---|
| 676 | ldc r0,sr
|
|---|
| 677 | /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ããã£ã¯ãªã¡ã³ã */
|
|---|
| 678 | mov.l _intnest_int,r3
|
|---|
| 679 | mov.l @r3,r4
|
|---|
| 680 | add #-1,r4
|
|---|
| 681 | mov.l r4,@r3
|
|---|
| 682 |
|
|---|
| 683 |
|
|---|
| 684 | /* å¤éå²è¾¼ã¿ï¼CPUä¾å¤ããã®å¾©å¸°å¦ç
|
|---|
| 685 | *
|
|---|
| 686 | * ã»ãã£ã¹ããããã¿ã¹ã¯ä¾å¤å¦çãå¿
|
|---|
| 687 | è¦ãªã
|
|---|
| 688 | * ã»chg_ipm()ã®å¦çã¯å¿
|
|---|
| 689 | è¦ãªã
|
|---|
| 690 | * ãï¼éã¿ã¹ã¯ã³ã³ããã¹ãã§ã¯ãchg_ipm()ã¯ä½¿ç¨ä¸å¯ï¼
|
|---|
| 691 | *
|
|---|
| 692 | *
|
|---|
| 693 | * ãã£ã¹ãããã£ã®åºå£ã§å®è¡ãã¹ãã¿ã¹ã¯ããªã(schedtsk==NULLï¼å ´å
|
|---|
| 694 | * ã¯ãsleepå½ä»¤ã«ãã£ã¦ããã»ããµãçé»åã¢ã¼ãã«åãæ¿ãã¦å²è¾¼ã¿å¾
|
|---|
| 695 |
|
|---|
| 696 | * ã¡ããã¦ãããï¼dispatcher_2ä»è¿ãåç
|
|---|
| 697 | §ï¼
|
|---|
| 698 | *
|
|---|
| 699 | * å²è¾¼ã¿è¨±å¯å¾ã«sleepå½ä»¤ãå®è¡ãã¦ãããããå²è¾¼ã¿è¨±å¯å½ä»¤ã®å®è¡å
|
|---|
| 700 | * ã«å²è¾¼ã¿è¦æ±ãå
|
|---|
| 701 | ¥ã£ã¦ããå ´åï¼ãããã¯å²è¾¼ã¿è¨±å¯ç´å¾ãsleepå½ä»¤å®
|
|---|
| 702 | * è¡åã«å²è¾¼ã¿è¦æ±ãå
|
|---|
| 703 | ¥ã£ãå ´åï¼ãå²è¾¼ã¿è¨±å¯å½ä»¤ã®å®è¡ã¨å
|
|---|
| 704 | ±ã«å²è¾¼ã¿ã
|
|---|
| 705 | * åãä»ãããããã®å¾©å¸°å¾ã«sleepããã¾ã¾ã«ãªã£ã¦ãã¾ãã
|
|---|
| 706 | * ï¼reqflgã®ãã§ãã¯ã«é²ã¾ãªããï¼ãã®åé¡ã¯ãå²è¾¼ã¿ã®è¨±å¯ã¨sleep ç¶
|
|---|
| 707 | * æ
|
|---|
| 708 | ã¸ã®ç§»è¡ãã¢ãããã¯ã«å®è¡ã§ããªããã¨ã«èµ·å ããã
|
|---|
| 709 | * ãããé²ããããå²è¾¼ã¿ã®åºå£ã§æ»ãå
|
|---|
| 710 | ã¢ãã¬ã¹ãåé¡ã®sleepå½ä»¤ã§ã
|
|---|
| 711 | * ãå ´åãæ»ãçªå°ã1å½ä»¤åé²ããå¦çããã¦ãããï¼å®è¡ãã¹ãã¿ã¹ã¯
|
|---|
| 712 | * ããªãããã£ã¹ãããã£å
|
|---|
| 713 | ã§å²è¾¼ã¿å¾
|
|---|
| 714 | ã¡ä¸ã«å²è¾¼ã¿ãåãä»ããå ´åã¯ã
|
|---|
| 715 | * ãã£ã¹ãããã£ã®äºéå¼ã³åºããé¿ãããããå¤éå²è¾¼ã¿ã¨ãã¦å¦çãã¦
|
|---|
| 716 | * ãããããä¸è¨ã®_ret_to_intãééããã
|
|---|
| 717 | */
|
|---|
| 718 | _ret_to_int:
|
|---|
| 719 | _ret_to_exc:
|
|---|
| 720 |
|
|---|
| 721 | #ifndef OMIT_POWER_CONTROL
|
|---|
| 722 | /* r4âã¹ã¿ãã¯ä¸ã«ç©ã¾ããæ»ãçªå° */
|
|---|
| 723 | mov.l @(SP_PC_OFFSET, r15), r4
|
|---|
| 724 | mov.l _waiting_interrupt_int, r5
|
|---|
| 725 | cmp/eq r4, r5
|
|---|
| 726 | bf _ret_to_int_1
|
|---|
| 727 | add #2, r4
|
|---|
| 728 | mov.l r4, @(SP_PC_OFFSET, r15)
|
|---|
| 729 | #endif /* OMIT_POWER_CONTROL */
|
|---|
| 730 |
|
|---|
| 731 | _ret_to_int_1:
|
|---|
| 732 | lds.l @r15+,pr /* ã¬ã¸ã¹ã¿å¾©å
|
|---|
| 733 | */
|
|---|
| 734 | mov.l @r15+,r7
|
|---|
| 735 | mov.l @r15+,r6
|
|---|
| 736 | mov.l @r15+,r5
|
|---|
| 737 | mov.l @r15+,r4
|
|---|
| 738 | mov.l @r15+,r3
|
|---|
| 739 | mov.l @r15+,r2
|
|---|
| 740 | mov.l @r15+,r1
|
|---|
| 741 | mov.l @r15+,r0
|
|---|
| 742 | rte /* å²è¾¼ã¿å
|
|---|
| 743 | ã«æ»ã */
|
|---|
| 744 | nop
|
|---|
| 745 |
|
|---|
| 746 | .align 4
|
|---|
| 747 | _stacktop_int: /* ã¿ã¹ã¯ç¬ç«é¨ã®ã¹ã¿ãã¯ã®åæå¤ */
|
|---|
| 748 | .long STACKTOP
|
|---|
| 749 | _intnest_int: /* å²è¾¼ã¿ï¼CPUä¾å¤ãã¹ãã«ã¦ã³ã¿ */
|
|---|
| 750 | .long _intnest
|
|---|
| 751 | _reqflg_int:
|
|---|
| 752 | .long _reqflg
|
|---|
| 753 | _mask_ipm_int: /* å²è¾¼ã¿ç¦æ¢ç¨ãã¹ã¯ */
|
|---|
| 754 | .long MAX_IPM << 4 /* ipm以å¤ã®ãããã¯ã¼ãã§è¯ã */
|
|---|
| 755 |
|
|---|
| 756 | #ifndef OMIT_POWER_CONTROL
|
|---|
| 757 | _waiting_interrupt_int:
|
|---|
| 758 | .long _waiting_interrupt
|
|---|
| 759 | #endif /* OMIT_POWER_CONTROL */
|
|---|
| 760 |
|
|---|
| 761 | /*
|
|---|
| 762 | * å²è¾¼ã¿ãã³ãã©/CPUä¾å¤ãã³ãã©åºå£å¦ç
|
|---|
| 763 | *
|
|---|
| 764 | * æ»ãå
|
|---|
| 765 | ãã¿ã¹ã¯ã§reqflgãã»ããããã¦ããå ´åã®ã¿ããã«ããã
|
|---|
| 766 | * å²è¾¼ã¿ãã¹ãã«ã¦ã³ã¿ = 0,å²è¾¼ã¿ç¦æ¢ç¶æ
|
|---|
| 767 | ,ã¹ã¯ã©ããã¬ã¸ã¹ã¿ã
|
|---|
| 768 | * ä¿åããç¶æ
|
|---|
| 769 | ã§å¼ã³åºããã¨ã
|
|---|
| 770 | *
|
|---|
| 771 | * r4ã«ã¯å¤æ°reqflgã®ã¢ãã¬ã¹ã代å
|
|---|
| 772 | ¥ãããç¶æ
|
|---|
| 773 | ã§ããã«æ¥ãã
|
|---|
| 774 | *
|
|---|
| 775 | */
|
|---|
| 776 | .text
|
|---|
| 777 | .align 2
|
|---|
| 778 | ret_int:
|
|---|
| 779 | ret_exc:
|
|---|
| 780 | /*
|
|---|
| 781 | *ãæ»ãå
|
|---|
| 782 | ãå²è¾¼ã¿ã®å
|
|---|
| 783 | ¥å£å¦çãå¦ãã®å¤å¥
|
|---|
| 784 | *ã
|
|---|
| 785 | *ãSH1ã§ã¯å²è¾¼ã¿åä»ç´å¾ã«å²è¾¼ã¿ç¦æ¢ã«ãªã£ã¦ããªããããå²è¾¼ã¿A
|
|---|
| 786 | *ãã®å
|
|---|
| 787 | ¥å£å¦çä¸ã«å¥ã®å²è¾¼ã¿Bãå
|
|---|
| 788 | ¥ãå¯è½æ§ããããï¼ããã¯ãã¼ã
|
|---|
| 789 | *ãã¦ã§ã¢ã®ã¢ã¼ããã¯ãã£ä¸é¿ãããããªããï¼å²è¾¼ã¿ãã³ãã©Bå
|
|---|
| 790 |
|
|---|
| 791 | *ãã§ã¿ã¹ã¯åãæ¿ããèµ·ãããããªãµã¼ãã¹ã³ã¼ã«ãå¼ã¶ã¨å²è¾¼ã¿B
|
|---|
| 792 | *ãã®åºå£å¦çã§å¥ã®ã¿ã¹ã¯ã«ãã£ã¹ããããã¦ãã¾ããã¿ã¹ã¯2ãã
|
|---|
| 793 | *ãå
|
|---|
| 794 | ã®ã¿ã¹ã¯ã«æ»ã£ã¦ããã¾ã§ãå²è¾¼ã¿Aã®å¦çãé
|
|---|
| 795 | ãã¦ãã¾ãã
|
|---|
| 796 | *ãã¾ããå²è¾¼ã¿Aãã¬ãã«ããªã¬ã ã¨2åæ¤åºããã¦ãã¾ãåé¡ãããã
|
|---|
| 797 | *ããããé²ããããã¹ã¿ãã¯ã«ç©ãã§ããæ»ãå
|
|---|
| 798 | ã®IPMã¨task_intmask
|
|---|
| 799 | *ãã®å¤ãæ¯è¼ãã¦ãå
|
|---|
| 800 | ¥å£å¦çä¸ã«å²è¾¼ã¿ãå
|
|---|
| 801 | ¥ããªãã£ãããã§ãã¯ã
|
|---|
| 802 | *ãã¦ããããã£ã¹ãããããåã®ã¿ã¤ãã³ã°ã§å¤å¥ãã¦ããã®ã§ã
|
|---|
| 803 | *ãchg_ipm()ã§task_intmaskãæ¸ãæãããã¦ããå¿é
|
|---|
| 804 | ã¯ãªãã
|
|---|
| 805 | */
|
|---|
| 806 | /* r0âã¹ã¿ãã¯ã«ç©ã¾ããsr */
|
|---|
| 807 | mov.l @(SP_SR_OFFSET,r15),r0
|
|---|
| 808 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 809 | mov.l _task_intmask_ret,r2 /* r2â&task_intmask */
|
|---|
| 810 | and #0xf0, r0 /* IPMåãåºã */
|
|---|
| 811 | mov.l @r2,r3 /* r3âtask_intmask */
|
|---|
| 812 | cmp/eq r0, r3 /* æ»ãå
|
|---|
| 813 | ãå²è¾¼ã¿ã®å
|
|---|
| 814 | ¥å£å¦çãï¼ */
|
|---|
| 815 | #else /* SUPPORT_CHG_IPM */
|
|---|
| 816 | /*
|
|---|
| 817 | *ãchg_ipmããµãã¼ãããªãå ´åã¯ãã¿ã¹ã¯ã³ã³ããã¹ãã®IPMã¯
|
|---|
| 818 | *ã常ã«0x0
|
|---|
| 819 | */
|
|---|
| 820 | and #0xf0, r0 /* IPMåãåºã */
|
|---|
| 821 | cmp/eq #0x00, r0 /* æ»ãå
|
|---|
| 822 | ãå²è¾¼ã¿ã®å
|
|---|
| 823 | ¥å£å¦çãï¼ */
|
|---|
| 824 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 825 | bf ret_to_task_int /* ãã£ã¹ãããããªãã§å²è¾¼ã¿å
|
|---|
| 826 | ã« */
|
|---|
| 827 | /* æ»ãå¦ç㸠*/
|
|---|
| 828 | /* é
|
|---|
| 829 | 延ã¹ããããªã */
|
|---|
| 830 |
|
|---|
| 831 | #ifdef SUPPORT_CPU_EXC_ENTRY_CHECK
|
|---|
| 832 | /*
|
|---|
| 833 | *ãæ»ãå
|
|---|
| 834 | ãCPUä¾å¤ã®å
|
|---|
| 835 | ¥å£å¦çãå¦ãã®å¤å¥
|
|---|
| 836 | *ã
|
|---|
| 837 | *ãSH1ã§ã¯CPUä¾å¤ãå²è¾¼ã¿ã¨ã»ã¼åãåºå
|
|---|
| 838 | ¥å£å¦çãè¡ã£ã¦ãããã
|
|---|
| 839 | *ãCPUä¾å¤ãåãä»ãã¦ãå²è¾¼ã¿ãã¹ã¯ã¯å¤åããªããCPUä¾å¤ã®å
|
|---|
| 840 | ¥
|
|---|
| 841 | *ãå£å¦çä¸ã«å²è¾¼ã¿ãå
|
|---|
| 842 | ¥ã£ãå ´åã«åãã¦ãã¹ã¿ãã¯ä¸ã«ç©ã¾ãã
|
|---|
| 843 | *ãæ»ãçªå°ã使ã£ã¦å¤å¥ãè¡ãã
|
|---|
| 844 | *ã
|
|---|
| 845 | *ã
|
|---|
| 846 | *ããcheck_exc_entry()ã®API
|
|---|
| 847 | *ãããå¼æ°r4ï¼ã¹ã¿ãã¯ä¸ã«ç©ã¾ããæ»ãçªå°
|
|---|
| 848 | *ãããæ»ãå¤r0ï¼
|
|---|
| 849 | *ããããã1ï¼æ»ãå
|
|---|
| 850 | ãCPUä¾å¤ã®å
|
|---|
| 851 | ¥å£å¦ç
|
|---|
| 852 | *ããããã0ï¼ãã以å¤
|
|---|
| 853 | */
|
|---|
| 854 | mov.l _check_exc_entry_ret, r1
|
|---|
| 855 | jsr @r1 /* Cè¨èªã«ã¼ãã³å¼ã³åºã */
|
|---|
| 856 | mov.l @(SP_PC_OFFSET, r15), r4 /* å¼æ°è¨å®ï¼é
|
|---|
| 857 | 延ã¹ãããï¼ */
|
|---|
| 858 |
|
|---|
| 859 | tst r0, r0 /* æ»ãå¤ã®å¤å® */
|
|---|
| 860 | bf ret_to_task_int /* æ»ãå
|
|---|
| 861 | ãCPUä¾å¤ã®å
|
|---|
| 862 | ¥å£å¦çã§ããã° */
|
|---|
| 863 | /*ãããã£ã¹ãããããªãã§å²è¾¼ã¿å
|
|---|
| 864 | ã«æ»ã */
|
|---|
| 865 | /* é
|
|---|
| 866 | 延ã¹ããããªã */
|
|---|
| 867 |
|
|---|
| 868 | #endif /* SUPPORT_CPU_EXC_ENTRY_CHECK */
|
|---|
| 869 |
|
|---|
| 870 | /*
|
|---|
| 871 | *ãreqflgã®ã¯ãªã¢
|
|---|
| 872 | *ã
|
|---|
| 873 | *ãããã«å°éããåã«reqflgãã¯ãªã¢ãã¦ãã¾ãã¨ãä¸è¨ã®å²è¾¼ã¿A
|
|---|
| 874 | *ãã®åºå£å¦çã§ãã£ã¹ãããã£å¼ã³åºããå¿
|
|---|
| 875 | è¦ãªã±ã¼ã¹ã§ããã£ã¹
|
|---|
| 876 | *ããããã£ãå¼ã³åºãããªãã
|
|---|
| 877 | *ãï¼å²è¾¼ã¿Bã§reqflgãã»ãããã¦ãå²è¾¼ã¿Aã§reqflgã«å¤åããªãå ´
|
|---|
| 878 | *ããåï¼
|
|---|
| 879 | */
|
|---|
| 880 | mov #0x0, r0
|
|---|
| 881 | mov.l _reqflg_ret,r1
|
|---|
| 882 | mov.l r0, @r1 /* reqflg <- 0 */
|
|---|
| 883 |
|
|---|
| 884 | mov.l _runtsk_ret,r1 /* r7 <- runtsk */
|
|---|
| 885 | mov.l @r1,r7
|
|---|
| 886 | mov.l _enadsp_ret,r2 /* enadspã®ãã§ã㯠*/
|
|---|
| 887 | mov.l @r2,r3
|
|---|
| 888 | tst r3,r3 /* ãã£ã¹ãããç¦æ¢ãªãret_int_1㸠*/
|
|---|
| 889 | bt ret_int_1
|
|---|
| 890 | /* é
|
|---|
| 891 | 延ã¹ããããªã */
|
|---|
| 892 |
|
|---|
| 893 | mov.l _schedtsk_ret,r4 /* r5 <- schedtsk */
|
|---|
| 894 | mov.l @r4,r5
|
|---|
| 895 | cmp/eq r7,r5 /* runtsk 㨠schedtsk ãæ¯è¼ */
|
|---|
| 896 | bt ret_int_1 /* åããªãret_int_1㸠*/
|
|---|
| 897 | /* é
|
|---|
| 898 | 延ã¹ããããªã */
|
|---|
| 899 |
|
|---|
| 900 | mov.l r8,@-r15 /* æ®ãã®ã¬ã¸ã¹ã¿ãä¿å */
|
|---|
| 901 | mov.l r9,@-r15
|
|---|
| 902 | mov.l r10,@-r15
|
|---|
| 903 | mov.l r11,@-r15
|
|---|
| 904 | mov.l r12,@-r15
|
|---|
| 905 | mov.l r13,@-r15
|
|---|
| 906 | mov.l r14,@-r15
|
|---|
| 907 | sts.l mach,@-r15
|
|---|
| 908 | sts.l macl,@-r15
|
|---|
| 909 | stc.l gbr,@-r15
|
|---|
| 910 | /*
|
|---|
| 911 | * ã¿ã¹ã¯ã³ã³ããã¼ã«ãããã¯TCBä¸ã®sp,pcãå
|
|---|
| 912 | é ãã60ãã¤ãã®
|
|---|
| 913 | * ç¯å²å
|
|---|
| 914 | ã«ãããã¢ã©ã¤ã³ã¡ã³ãã4ãã¤ãå¢çã«ãªã£ã¦ããã°ã
|
|---|
| 915 | * ã¤ããã£ã¨ã¤ãç¸å¯¾ã¢ãã¬ãã·ã³ã°ã§ã¢ã¯ã»ã¹ã§ãã
|
|---|
| 916 | */
|
|---|
| 917 | #ifdef TCB_SHORT
|
|---|
| 918 | /* ã¿ã¹ã¯ã¹ã¿ãã¯ãã¤ã³ã¿ãä¿å */
|
|---|
| 919 | mov.l r15,@(TCB_sp, r7)
|
|---|
| 920 | mov.l ret_int_r_ret,r1 /* å®è¡åéçªå° */
|
|---|
| 921 | bra dispatcher
|
|---|
| 922 | mov.l r1,@(TCB_pc, r7) /* é
|
|---|
| 923 | 延ã¹ãããã*/
|
|---|
| 924 |
|
|---|
| 925 | #else /* TCB_SHORT */
|
|---|
| 926 | mov #TCB_sp,r1 /* ã¿ã¹ã¯ã¹ã¿ãã¯ãä¿å */
|
|---|
| 927 | mov.l r15,@(r7,r1)
|
|---|
| 928 | mov.l ret_int_r_ret,r1 /* å®è¡åéçªå°ãä¿å */
|
|---|
| 929 | mov #TCB_pc,r2 /* ãã£ã¹ãããã£ããã®æ»ãå
|
|---|
| 930 | ã */
|
|---|
| 931 | /* ret_int_rã«è¨å® ã*/
|
|---|
| 932 | bra dispatcher
|
|---|
| 933 | mov.l r1,@(r7,r2) /* é
|
|---|
| 934 | 延ã¹ããã */
|
|---|
| 935 | #endif /* TCB_SHORT */
|
|---|
| 936 |
|
|---|
| 937 | /*
|
|---|
| 938 | * å²è¾¼ã¿ã®åºå£ã§ãã£ã¹ãããã£ããããã«æ»ã£ã¦ãã
|
|---|
| 939 | * r7ã«runtskã代å
|
|---|
| 940 | ¥ãããç¶æ
|
|---|
| 941 | ã§ããã«æ¥ã
|
|---|
| 942 | */
|
|---|
| 943 | ret_int_r:
|
|---|
| 944 | ldc.l @r15+,gbr /* ã¬ã¸ã¹ã¿ã復帰 */
|
|---|
| 945 | lds.l @r15+,macl
|
|---|
| 946 | lds.l @r15+,mach
|
|---|
| 947 | mov.l @r15+,r14
|
|---|
| 948 | mov.l @r15+,r13
|
|---|
| 949 | mov.l @r15+,r12
|
|---|
| 950 | mov.l @r15+,r11
|
|---|
| 951 | mov.l @r15+,r10
|
|---|
| 952 | mov.l @r15+,r9
|
|---|
| 953 | mov.l @r15+,r8
|
|---|
| 954 |
|
|---|
| 955 | /*
|
|---|
| 956 | * ãã£ã¹ãããã£ããret_int_rã«åå²ããå ´åã
|
|---|
| 957 | * ret_intããç´æ¥ããã«åå²ããå ´åã
|
|---|
| 958 | * ãããã®å ´åããr7ã«runtskã代å
|
|---|
| 959 | ¥ããã¦ãã
|
|---|
| 960 | *
|
|---|
| 961 | *ã ã¬ã¸ã¹ã¿å²ãå½ã¦
|
|---|
| 962 | * r7 : runtsk
|
|---|
| 963 | * r0 : runtsk->enatex
|
|---|
| 964 | * ããã mov.b @(imm, r),r0å½ä»¤ã¯ãªãã©ã³ããr0ã«
|
|---|
| 965 | * ããã åºå®ããã¦ãã
|
|---|
| 966 | * r2 : runtsk->texptn
|
|---|
| 967 | * r3 : call_texrtn()ã®å
|
|---|
| 968 | é çªå°
|
|---|
| 969 | */
|
|---|
| 970 | ret_int_1:
|
|---|
| 971 | mov.b @(TCB_enatex,r7),r0 /* ãªãã©ã³ããr0ã«åºå® (d) */
|
|---|
| 972 | and #TCB_enatex_mask,r0
|
|---|
| 973 | tst r0,r0 /* runtsk->enatexã®ãã§ã㯠*/
|
|---|
| 974 | bt ret_int_2
|
|---|
| 975 | /* é
|
|---|
| 976 | 延ã¹ããããªã */
|
|---|
| 977 | mov.l @(TCB_texptn,r7),r2 /* runtsk->texptnã®ãã§ã㯠*/
|
|---|
| 978 | tst r2,r2
|
|---|
| 979 | bt ret_int_2
|
|---|
| 980 | /* é
|
|---|
| 981 | 延ã¹ããããªã */
|
|---|
| 982 | mov.l _call_texrtn_ret,r3 /* ã¿ã¹ã¯ä¾å¤å¦çã«ã¼ãã³èµ·å */
|
|---|
| 983 | jsr @r3
|
|---|
| 984 | nop /* é
|
|---|
| 985 | 延ã¹ããã */
|
|---|
| 986 |
|
|---|
| 987 | ret_int_2:
|
|---|
| 988 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 989 | /*
|
|---|
| 990 | *ãSH1ã§ã¯å²è¾¼ã¿ããã®ãªã¿ã¼ã³å½ä»¤ã§ãã¼ãã¦ã§ã¢ãã¹ã¿ãã¯ä¸
|
|---|
| 991 | *ãã®ãã¼ã¿ãèªã¿åºãã¦SRã復å
|
|---|
| 992 | ããã
|
|---|
| 993 | *ãå²è¾¼ã¿ã«ãã£ã¦å¥ã®ã¿ã¹ã¯ã«åãæ¿ãã£ãå ´åã¯ãã¿ã¹ã¯ã³ã³ã
|
|---|
| 994 | *ããã¹ãã®IPMãå¤æ´ããã¦ããå¯è½æ§ãããã®ã§ã¹ã¿ãã¯ä¸ã®SR
|
|---|
| 995 | *ãã®ã³ãã¼ã«å«ã¾ããIPMãæ´æ°ãã¦ããå¿
|
|---|
| 996 | è¦ãããã
|
|---|
| 997 | */
|
|---|
| 998 | /* r0âã¹ã¿ãã¯ã«ç©ã¾ããsr */
|
|---|
| 999 | mov.l @(SP_SR_OFFSET,r15),r0
|
|---|
| 1000 | mov.l _unmask_ipm_ret,r1
|
|---|
| 1001 | mov.l _task_intmask_ret,r2 /* r2â&task_intmask */
|
|---|
| 1002 | and r1,r0 /* IPMããããã¯ãªã¢ */
|
|---|
| 1003 | mov.l @r2,r3 /* r3âtask_intmask */
|
|---|
| 1004 | or r3,r0 /* IPMããããã»ãã */
|
|---|
| 1005 | /* ã¹ã¿ãã¯ã«ç©ãã§ããsrã«ä¸æ¸ã */
|
|---|
| 1006 | mov.l r0,@(SP_SR_OFFSET,r15)
|
|---|
| 1007 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 1008 |
|
|---|
| 1009 | /*
|
|---|
| 1010 | *ãã¿ã¹ã¯ã¸ã®å¾©å¸°å¦ç
|
|---|
| 1011 | *ãããã£ã¹ãããã£å¼ã³åºããè¦ããªãå ´åã¯ããããåæµããã
|
|---|
| 1012 | *ããå
|
|---|
| 1013 | ¥å£å¦çã®éä¸ã§å²è¾¼ã¿ãå
|
|---|
| 1014 | ¥ã£ãå ´åã¯ãå
|
|---|
| 1015 | ¥å£å¦çãæ»ãå
|
|---|
| 1016 | ã«
|
|---|
| 1017 | *ãããªãã
|
|---|
| 1018 | */
|
|---|
| 1019 | ret_to_task_int:
|
|---|
| 1020 | ret_to_task_exc:
|
|---|
| 1021 | /* pr,ã¹ã¯ã©ããã¬ã¸ã¹ã¿ã復帰 */
|
|---|
| 1022 | /* ã¹ã¿ãã¯ã®å
|
|---|
| 1023 | é ããã®ãªãã»ãã */
|
|---|
| 1024 | lds.l @r15+,pr /* +0:PR */
|
|---|
| 1025 | mov.l @r15+,r7 /* +4:r7 */
|
|---|
| 1026 | mov.l @r15+,r6 /* +8:r6 */
|
|---|
| 1027 | mov.l @r15+,r5 /* +12:r5 */
|
|---|
| 1028 | mov.l @r15+,r4 /* +16:r4 */
|
|---|
| 1029 | mov.l @r15+,r3 /* +20:r3 */
|
|---|
| 1030 | mov.l @r15+,r2 /* +24:r2 */
|
|---|
| 1031 | mov.l @r15+,r1 /* +28:r1 */
|
|---|
| 1032 | mov.l @r15+,r0 /* +32:r0 */
|
|---|
| 1033 | /* +36:PC */
|
|---|
| 1034 | /* +40:SR */
|
|---|
| 1035 | rte
|
|---|
| 1036 | nop /* é
|
|---|
| 1037 | 延ã¹ããã */
|
|---|
| 1038 | .align 4
|
|---|
| 1039 | _reqflg_ret:
|
|---|
| 1040 | .long _reqflg
|
|---|
| 1041 | _call_texrtn_ret:
|
|---|
| 1042 | .long _call_texrtn
|
|---|
| 1043 | _runtsk_ret:
|
|---|
| 1044 | .long _runtsk
|
|---|
| 1045 | _schedtsk_ret:
|
|---|
| 1046 | .long _schedtsk
|
|---|
| 1047 | _enadsp_ret:
|
|---|
| 1048 | .long _enadsp
|
|---|
| 1049 | ret_int_r_ret:
|
|---|
| 1050 | .long ret_int_r
|
|---|
| 1051 |
|
|---|
| 1052 | #ifdef SUPPORT_CHG_IPM /* chg_ipm()ããµãã¼ãããå ´å */
|
|---|
| 1053 | _unmask_ipm_ret:
|
|---|
| 1054 | .long ~0xf0 /* ipmããã以å¤ãã¹ã¦ï¼ */
|
|---|
| 1055 | _task_intmask_ret:
|
|---|
| 1056 | .long _task_intmask
|
|---|
| 1057 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 1058 |
|
|---|
| 1059 | #ifdef SUPPORT_CPU_EXC_ENTRY_CHECK
|
|---|
| 1060 | _check_exc_entry_ret:
|
|---|
| 1061 | .long _check_cpu_exc_entry
|
|---|
| 1062 | #endif /* SUPPORT_CPU_EXC_ENTRY_CHECK */
|
|---|
| 1063 |
|
|---|
| 1064 |
|
|---|
| 1065 | /*
|
|---|
| 1066 | * no_reg_exception()
|
|---|
| 1067 | * CPUä¾å¤ã¨ãã¦ç»é²ããã¦ããªãä¾å¤ãçºçããã¨å¼ã³åºããã
|
|---|
| 1068 | * ä¾å¤ãçºçããæç¹ã®pc,sr,pr,r0ã15ãåºåãã¦ã«ã¼ãã«
|
|---|
| 1069 | * ãåæ¢ããã
|
|---|
| 1070 | */
|
|---|
| 1071 | .text
|
|---|
| 1072 | .align 2
|
|---|
| 1073 | .globl _no_reg_exception
|
|---|
| 1074 | _no_reg_exception:
|
|---|
| 1075 | /* pr,r0ã15ãä¿å */
|
|---|
| 1076 | sts.l pr, @-r15
|
|---|
| 1077 | mov.l r15,@-r15
|
|---|
| 1078 | mov.l r14,@-r15
|
|---|
| 1079 | mov.l r13,@-r15
|
|---|
| 1080 | mov.l r12,@-r15
|
|---|
| 1081 | mov.l r11,@-r15
|
|---|
| 1082 | mov.l r10,@-r15
|
|---|
| 1083 | mov.l r9, @-r15
|
|---|
| 1084 | mov.l r8, @-r15
|
|---|
| 1085 | mov.l r7, @-r15
|
|---|
| 1086 | mov.l r6, @-r15
|
|---|
| 1087 | mov.l r5, @-r15
|
|---|
| 1088 | mov.l r4, @-r15
|
|---|
| 1089 | mov.l r3, @-r15
|
|---|
| 1090 | mov.l r2, @-r15
|
|---|
| 1091 | mov.l r1, @-r15
|
|---|
| 1092 | mov.l r0, @-r15
|
|---|
| 1093 |
|
|---|
| 1094 | /* cpu_experr()ã®å¼ã³åºã */
|
|---|
| 1095 | mov.l _cpu_experr_k,r1 /* (cpu_config.c) */
|
|---|
| 1096 | jsr @r1
|
|---|
| 1097 | mov r15, r4 /* å¼æ°è¨å®ï¼é
|
|---|
| 1098 | 延ã¹ãããï¼ */
|
|---|
| 1099 |
|
|---|
| 1100 | .align 4
|
|---|
| 1101 | _cpu_experr_k:
|
|---|
| 1102 | .long _cpu_experr
|
|---|
| 1103 |
|
|---|
| 1104 |
|
|---|
| 1105 |
|
|---|
| 1106 | /* ã¤ããã£ã¨ã¤ãç¸å¯¾ã¢ãã¬ãã·ã³ã°ãå¯è½ããã§ã㯠*/
|
|---|
| 1107 | #if !(CHECK_IMMEDIATE_ADDRESSING(TCB_tinib) \
|
|---|
| 1108 | && CHECK_IMMEDIATE_ADDRESSING(TINIB_task) \
|
|---|
| 1109 | && CHECK_IMMEDIATE_ADDRESSING(TINIB_exinf) )
|
|---|
| 1110 |
|
|---|
| 1111 | ããã§ã¢ã»ã³ãã«ã»ã¨ã©ã¼
|
|---|
| 1112 | #endif
|
|---|
| 1113 |
|
|---|
| 1114 |
|
|---|
| 1115 | /*
|
|---|
| 1116 | * ã¿ã¹ã¯èµ·åå¦ç
|
|---|
| 1117 | * ããdispatcherããå¼ã°ããã®ã§ãr7ã«runtskã代å
|
|---|
| 1118 | ¥ããã¦ãã
|
|---|
| 1119 | *
|
|---|
| 1120 | */
|
|---|
| 1121 | .text
|
|---|
| 1122 | .align 2
|
|---|
| 1123 | .globl _activate_r
|
|---|
| 1124 | _activate_r:
|
|---|
| 1125 | /* å²ãè¾¼ã¿è¨±å¯ã®æºå */
|
|---|
| 1126 | #ifndef SUPPORT_CHG_IPM /* ï¼t_unlock_cpuç¸å½ã®å¦çï¼ */
|
|---|
| 1127 | mov #0,r1 /* IPM以å¤ã®ããããç ´å£ããã */
|
|---|
| 1128 | #else /* SUPPORT_CHG_IPM */
|
|---|
| 1129 | mov.l _task_intmask_act,r2
|
|---|
| 1130 | mov.l @r2,r1
|
|---|
| 1131 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 1132 | ldc r1,sr /* å²è¾¼ã¿è¨±å¯ */
|
|---|
| 1133 | mov.l _ext_tsk_act,r3
|
|---|
| 1134 | lds r3,pr /* ã¿ã¹ã¯ããã®æ»ãçªå°ãè¨å® */
|
|---|
| 1135 |
|
|---|
| 1136 | /*
|
|---|
| 1137 | * ããã§å²è¾¼ã¿ãå
|
|---|
| 1138 | ¥ã£ã¦runtskãæ¸ãæãã£ã¦ãã
|
|---|
| 1139 | * ãã®ã¿ã¹ã¯ã«æ»ã£ã¦ããã¨ãã«ã¯runtskã®å¤ã
|
|---|
| 1140 | * å½ç¶ãå
|
|---|
| 1141 | ã«æ»ã£ã¦ãã
|
|---|
| 1142 | *
|
|---|
| 1143 | * ã¬ã¸ã¹ã¿å²ãå½ã¦
|
|---|
| 1144 | * ããr7ï¼runtsk
|
|---|
| 1145 | * ããr1ï¼&(runtsk->tinib)
|
|---|
| 1146 | * ããr2ï¼runtsk->tinib->task
|
|---|
| 1147 | * ããr4ï¼ã¿ã¹ã¯ã®æ¡å¼µæ
|
|---|
| 1148 | å ±ï¼å¼æ°ï¼
|
|---|
| 1149 | */
|
|---|
| 1150 | mov.l @(TCB_tinib,r7),r1
|
|---|
| 1151 | mov.l @(TINIB_task,r1),r2 /* ã¿ã¹ã¯èµ·åçªå° */
|
|---|
| 1152 | jmp @r2 /* jsrå½ä»¤ã§ã¯prãç ´å£ãã¦ãã¾ã*/
|
|---|
| 1153 | mov.l @(TINIB_exinf,r1),r4 /* é
|
|---|
| 1154 | 延ã¹ããã */
|
|---|
| 1155 | /* æ¡å¼µæ
|
|---|
| 1156 | å ±ï¼ã¿ã¹ã¯ã¸ã®å¼æ°ï¼ */
|
|---|
| 1157 | .align 4
|
|---|
| 1158 | _ext_tsk_act:
|
|---|
| 1159 | .long _ext_tsk
|
|---|
| 1160 |
|
|---|
| 1161 | #ifdef SUPPORT_CHG_IPM
|
|---|
| 1162 | _task_intmask_act:
|
|---|
| 1163 | .long _task_intmask
|
|---|
| 1164 | #endif /* SUPPORT_CHG_IPM */
|
|---|
| 1165 |
|
|---|
| 1166 | /*
|
|---|
| 1167 | * å¾®å°æéå¾
|
|---|
| 1168 | ã¡
|
|---|
| 1169 | */
|
|---|
| 1170 | .globl _sil_dly_nse
|
|---|
| 1171 | _sil_dly_nse:
|
|---|
| 1172 |
|
|---|
| 1173 | mov.l _sil_dly_tim1, r1 /* r4ãã SIL_DLY_TIM1 ãå¼ã */
|
|---|
| 1174 | add r1, r4
|
|---|
| 1175 | cmp/pl r4 /* çµæã 0 以ä¸ãªããªã¿ã¼ã³ */
|
|---|
| 1176 | bt _sil_dly_nse1
|
|---|
| 1177 | /* é
|
|---|
| 1178 | 延ã¹ããããªã */
|
|---|
| 1179 | rts
|
|---|
| 1180 | nop
|
|---|
| 1181 | _sil_dly_nse1:
|
|---|
| 1182 | mov.l _sil_dly_tim2, r1 /* r4ãã SIL_DLY_TIM2 ãå¼ã */
|
|---|
| 1183 | add r1, r4
|
|---|
| 1184 | cmp/pl r4 /* çµæã 0 以ä¸ãªããªã¿ã¼ã³ */
|
|---|
| 1185 | bt _sil_dly_nse1
|
|---|
| 1186 | /* é
|
|---|
| 1187 | 延ã¹ããããªã */
|
|---|
| 1188 | rts
|
|---|
| 1189 | nop
|
|---|
| 1190 | .align 4
|
|---|
| 1191 | _sil_dly_tim1:
|
|---|
| 1192 | .long -SIL_DLY_TIM1
|
|---|
| 1193 | _sil_dly_tim2:
|
|---|
| 1194 | .long -SIL_DLY_TIM2
|
|---|
| 1195 |
|
|---|
| 1196 |
|
|---|
| 1197 | /*
|
|---|
| 1198 | * åå¿é²
|
|---|
| 1199 | * ããdispatcherå
|
|---|
| 1200 | (a)è¡ã§cmp/eq imm,r0å½ä»¤ã使ããªãçç±
|
|---|
| 1201 | * ãã
|
|---|
| 1202 | *ãããdispatcherã§r7ã«runtskã®å¤ã代å
|
|---|
| 1203 | ¥ããåå²å
|
|---|
| 1204 | ã®dispatch_rã
|
|---|
| 1205 | *ãããret_int_rãactivate_rã§ã¯ç¡é§ãªãã¼ããããªãããã«ãã¦ã
|
|---|
| 1206 | *ããããã
|
|---|
| 1207 | *ãããschedtskã®æç¡ããã§ãã¯ããã¨ãã®cmp/eq imm,r0å½ä»¤ï¼(a)
|
|---|
| 1208 | *ãããè¡ï¼ããªãã©ã³ããr0ã«åºå®ããã¦ãããããããã«åããã¦ã
|
|---|
| 1209 | *ãããæåã¯runtskã«r0ãå²ãå½ã¦ã¦ããã
|
|---|
| 1210 | *ãããããããr0ã¯ååå²å
|
|---|
| 1211 | ã«ããenatexã®èªã¿åºã(c),(d)è¡ã®mov.b
|
|---|
| 1212 | *ãããå½ä»¤ã§ãäºç´ãã¦ãããããã§ããã°ç©ºãã¦ããããã
|
|---|
| 1213 | *ãããï¼mov.b @(imm, r),r0å½ä»¤ã¯ãªãã©ã³ããr0ã«åºå®ããã¦ãããï¼
|
|---|
| 1214 | *ãããå¾ã£ã¦ãruntskã¯r7ã«å²ãå½ã¦ã(a)è¡ã¯cmp/eq imm,r0å½ä»¤ãã
|
|---|
| 1215 | *ãããcmp/eq rn,rmå½ä»¤ã«å¤æ´ããããã®ãããã¬ã¸ã¹ã¿ã«0ã代å
|
|---|
| 1216 | ¥ãã
|
|---|
| 1217 | *ãããå½ä»¤ï¼(b)è¡ï¼ãï¼ã¤ä½åã«å
|
|---|
| 1218 | ¥ã£ã¦ããã
|
|---|
| 1219 | *
|
|---|
| 1220 | *ãããä¸æ¹ãmov.l @(imm, r),r0å½ä»¤ã¯ãªãã©ã³ããr0ã«åºå®ããã¦
|
|---|
| 1221 | *ãããããªãã
|
|---|
| 1222 | *ãããSH3çã®ããã«makeoffset.cã§ã©ãã«BIT_BWãæå®ããã°ã4ã
|
|---|
| 1223 | *ãããã¤ãåä½ã§ãªãã»ããã¨ãã¹ã¯ãçæãããã®ã§ãmov.lå½ä»¤ã
|
|---|
| 1224 | *ããã使ããã¬ã¸ã¹ã¿å²ä»ã楽ã«ãªãããenatexå¤å®æã®ãã¹ã¯ãã¼
|
|---|
| 1225 | *ãããã¿ãandå½ä»¤ã®ã¤ããã£ã¨ã¼ãå¤ã«åã¾ãåããªããªãããã
|
|---|
| 1226 | *ããããã¼ãå½ä»¤ãï¼ã¤ä½åã«å
|
|---|
| 1227 | ¥ãã
|
|---|
| 1228 | *ãããã©ã¡ããä¸é·ä¸çããããããããã«ãããruntskãåãã¼ã
|
|---|
| 1229 | *ãããããããã¯ãã·ã¨æãããã
|
|---|
| 1230 | */
|
|---|
![(please configure the [header_logo] section in trac.ini)](/trac_user/contrib/chrome/site/your_project_logo.png){kind=logo}
