| [363] | 1 | /*
|
|---|
| 2 | * TOPPERS/JSP Kernel
|
|---|
| 3 | * Toyohashi Open Platform for Embedded Real-Time Systems/
|
|---|
| 4 | * Just Standard Profile Kernel
|
|---|
| 5 | *
|
|---|
| 6 | * Copyright (C) 2003-2004 by Naoki Saito
|
|---|
| 7 | * Nagoya Municipal Industrial Research Institute, JAPAN
|
|---|
| 8 | *
|
|---|
| 9 | * ä¸è¨èä½æ¨©è
|
|---|
| 10 | ã¯ï¼ä»¥ä¸ã® (1)ã(4) ã®æ¡ä»¶ãï¼Free Software Foundation
|
|---|
| 11 | * ã«ãã£ã¦å
|
|---|
| 12 | ¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
|
|---|
| 13 | * è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
|
|---|
| 14 | * ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹å¤ã»åé
|
|---|
| 15 | å¸ï¼ä»¥ä¸ï¼
|
|---|
| 16 | * å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
|---|
| 17 | * (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
|---|
| 18 | * 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
|---|
| 19 | * ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
|---|
| 20 | * (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 21 | * ç¨ã§ããå½¢ã§åé
|
|---|
| 22 | å¸ããå ´åã«ã¯ï¼åé
|
|---|
| 23 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
|---|
| 24 | * è
|
|---|
| 25 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
|---|
| 26 | * ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 27 | * (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 28 | * ç¨ã§ããªãå½¢ã§åé
|
|---|
| 29 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
|---|
| 30 | * ã¨ï¼
|
|---|
| 31 | * (a) åé
|
|---|
| 32 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
|---|
| 33 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
|---|
| 34 | * ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 35 | * (b) åé
|
|---|
| 36 | å¸ã®å½¢æ
|
|---|
| 37 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
|---|
| 38 | * å ±åãããã¨ï¼
|
|---|
| 39 | * (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
|---|
| 40 | * 害ãããï¼ä¸è¨èä½æ¨©è
|
|---|
| 41 | ããã³TOPPERSããã¸ã§ã¯ããå
|
|---|
| 42 | 責ãããã¨ï¼
|
|---|
| 43 | *
|
|---|
| 44 | * æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
|---|
| 45 | ã
|
|---|
| 46 | * ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
|
|---|
| 47 | * å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
|
|---|
| 48 | * æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
|
|---|
| 49 | *
|
|---|
| 50 | * @(#) $Id: makeoffset.c,v 1.3 2005/11/24 12:41:23 honda Exp $
|
|---|
| 51 | */
|
|---|
| 52 |
|
|---|
| 53 |
|
|---|
| 54 | /*
|
|---|
| 55 | * offset.inc (ããã㯠offset.h) ã«ã¤ãã¦
|
|---|
| 56 | *
|
|---|
| 57 | * offset.inc ã¯æ§é ä½ã®ç¹å®ã®è¦ç´ ãæ§é ä½ã®å
|
|---|
| 58 | é ããä½ãã¤ãç®ã«
|
|---|
| 59 | * åå¨ãããã¨ãããã¨ã, ç¹å®ã®ããããã£ã¼ã«ããå
|
|---|
| 60 | é ãã
|
|---|
| 61 | * ä½ãã¤ãå
|
|---|
| 62 | ã®ä½ãããç®ã«åå¨ããã, ã¨ããæ
|
|---|
| 63 | å ±ã
|
|---|
| 64 | * ã¢ã»ã³ããªè¨èªãã¡ã¤ã«ã«ä¸ããããã«åå¨ãã¦ãã.
|
|---|
| 65 | *
|
|---|
| 66 | * offset.inc ãã¡ã¤ã«ã®ä¸èº«ã¯, åãªãã·ã³ãã«å®ç¾©ãã¡ã¤ã«ã§ãã.
|
|---|
| 67 | * ã·ã³ãã«ã¨ãã£ã¦ãå®ç¾©ããã·ã³ãã«ã®å称ã«ã¯ãã¿ã¼ã³ããã,
|
|---|
| 68 | * 大ããåãã¦æ¬¡ã®3種é¡ã«åé¡ã§ãã.
|
|---|
| 69 | *
|
|---|
| 70 | * <æ§é ä½å>_<è¦ç´ å> (ä¾) TCB_sp, TCB_pc, TCB_enatex ãªã©
|
|---|
| 71 | * <æ§é ä½å>_<è¦ç´ å>_bit (ä¾) TCB_enatex_bit ãªã©
|
|---|
| 72 | * <æ§é ä½å>_<è¦ç´ å>_mask (ä¾) TCB_enatex_mask ãªã©
|
|---|
| 73 | *
|
|---|
| 74 | * (ä¾)
|
|---|
| 75 | * TCB_texptn .equ 14
|
|---|
| 76 | * TCB_sp .equ 20
|
|---|
| 77 | * TCB_pc .equ 24
|
|---|
| 78 | * TCB_enatex .equ 13
|
|---|
| 79 | * TCB_enatex_bit .equ 6
|
|---|
| 80 | * TCB_enatex_mask .equ 0040H
|
|---|
| 81 | *
|
|---|
| 82 | * ä¸çªã¯ããã¯ç¹å®ã®è¦ç´ ãæ§é ä½ã®å
|
|---|
| 83 | é ããä½ãã¤ãå
|
|---|
| 84 | ã«ããã
|
|---|
| 85 | * ã¨ãããã¨ã示ãæ°å¤ã«ã¤ããã©ãã«ã®å称.
|
|---|
| 86 | * äºçªç®ã¯ç¹å®ã®ããããã£ã¼ã«ãä¸ã®ãããã, ä¸ä½ããæ°ãã¦
|
|---|
| 87 | * ä½ãããç®ã«ãããã¨ãããã¨ã示ãæ°å¤ã«ã¤ããã©ãã«ã®å称.
|
|---|
| 88 | * 0ããå§ã¾ãæ°å¤ã§è¡¨ç¾ãã. æãä¸ä½ã®ãããã¯ç¬¬0ãããã§ãã.
|
|---|
| 89 | * ä¸çªç®ã¯å
|
|---|
| 90 | ã»ã©ã® <æ§é ä½å>_<è¦ç´ å>_bit ã¨ãé¢é£ããã,
|
|---|
| 91 | * ç¹å®ã®ããããã£ã¼ã«ãä¸ã®ãããã®ãã¹ã¯å¤ã®å称.
|
|---|
| 92 | * _bit 㨠*_mask ã®å¤ã®éã«ã¯æ¬¡ã®é¢ä¿ããã.
|
|---|
| 93 | * (*_mask) == (1 << *_bit)
|
|---|
| 94 | * * (ä¾) TCB_enatex_bit ã 6 ã®æ, TCB_enatex_mask 㯠40H
|
|---|
| 95 | *
|
|---|
| 96 | * ã¡ãªã¿ã«M32Cä¾åé¨ã®å®è£
|
|---|
| 97 | ã§ã¯, ç¹å®ãããã®ãã§ãã¯ãªã©ã«
|
|---|
| 98 | * ãããå½ä»¤ã¢ãã¬ãã·ã³ã°ã使ç¨ãã¦ããã®ã§ *_mask ã¨ããã©ãã«ã¯
|
|---|
| 99 | * 使ç¨ãã¦ããªã.
|
|---|
| 100 | */
|
|---|
| 101 |
|
|---|
| 102 | /*
|
|---|
| 103 | * offset.inc ã®ä½ãæ¹(M32Cã¿ã¼ã²ããä¾åé¨åã)
|
|---|
| 104 | *
|
|---|
| 105 | * GNU Cã³ã³ãã¤ã©ãç¨ãã¦ããã¿ã¼ã²ããä¾åé¨ã«ã¤ãã¦ã¯,
|
|---|
| 106 | * ã«ã¼ãã«ã®ããããã£ã¬ã¯ããªã®ä¸ã«ãã util ã¨ãããã£ã¬ã¯ããªã®
|
|---|
| 107 | * ä¸ã« genoffset ã¨ãã perl ã¹ã¯ãªãããç¨æããã¦ããã®ã§,
|
|---|
| 108 | * ç¹ã«æå㧠offset.h ãä½æããå¿
|
|---|
| 109 | è¦ã¯ãªã.
|
|---|
| 110 | * genoffset 㯠GNU éçºç°å¢ãæ³å®ãã¦ä½æããã¦ããã®ã§,
|
|---|
| 111 | * çæãããã¢ã»ã³ããªè¨èªçä¼¼å½ä»¤ãçæè¦åã®ç°ãªãä»ã®
|
|---|
| 112 | * Cã³ã³ãã¤ã©ã«ã¯ãã®ã¾ã¾é©ç¨ã§ããªãå¯è½æ§ããã.
|
|---|
| 113 | * ããã§, ããã§ã¯Windowsç°å¢ åãã® genoffset ãç¨æãã,
|
|---|
| 114 | * ä½ãæ¹ãããã«è¨ã, æä½æ¥ã§ offset.inc ãä½æãã¦ããããã¨ã¨
|
|---|
| 115 | * ãã. 以ä¸ã«ãã®æ¹æ³ã示ã. ãªã, ãã®æ¹æ³ã¯M32Cã®éçºç°å¢ã
|
|---|
| 116 | * å½ä»¤ã»ããã«ä¾åãã¦ãããã, ä»ã®ã¿ã¼ã²ããã使ç¨ãã¦ããå ´åã¯
|
|---|
| 117 | * ãã®ã¾ã¾é©ç¨ã§ããªã.
|
|---|
| 118 | *
|
|---|
| 119 | * 1. makeoffset.c ã¨ãããã¡ã¤ã«ããCã³ã³ãã¤ã©ã使ç¨ãã¦
|
|---|
| 120 | * ã¢ã»ã³ããªè¨èªãã¡ã¤ã« makeoffset.a30 ãçæãã.
|
|---|
| 121 | * ã³ã³ãã¤ã«ãªãã·ã§ã³ã¯ã«ã¼ãã«ã³ã¼ãã«ä¸ãããã®ã¨åã
|
|---|
| 122 | * ãã®ãä¸ãã.
|
|---|
| 123 | * ã«ããµã¹è£½ãã¼ã« TM ã使ç¨ãã¦ããå ´åã¯, ããã¸ã§ã¯ãã¨ãã£ã¿ã®
|
|---|
| 124 | * çææé ãã¥ã¼ãã makeoffset.a30 ãé¸ã³, å³ã¯ãªãã¯ã¡ãã¥ã¼ã®
|
|---|
| 125 | * ãé¨åãã«ãããé¸æãããã¨ã§çæã§ãã.
|
|---|
| 126 | * ãããã¯ã³ãã³ãããã³ããã§ã¡ã¤ã¯ãã¡ã¤ã«ã¨åããã£ã¬ã¯ããªã«
|
|---|
| 127 | * 移åã, "make -f ã¡ã¤ã¯ãã¡ã¤ã«å makeoffset.a30" ã
|
|---|
| 128 | * å®è¡ãã¦ãåæ§ã®çµæãå¾ããã. (ã¡ã¤ã¯ãã¡ã¤ã«ã¯TMã使ç¨ãã¦
|
|---|
| 129 | * ãããã®ã¨åããã¡ã¤ã«ãæå®å¯è½)
|
|---|
| 130 | *
|
|---|
| 131 | * 2. å
|
|---|
| 132 | ã»ã©ã® 1. ã®ä½æ¥ã§å¾ããã, makeoffset.a30 ãã¡ã¤ã«ãã
|
|---|
| 133 | * "! BEGIN XXXX" ã§ã¯ãã¾ã "! END" ã§çµãã£ã¦ããé¨åãæ¢ã.
|
|---|
| 134 | *
|
|---|
| 135 | * 4ç®æãã, ããããå°ããã¤ç°ãªãã®ã§é ã«èª¬æãã.
|
|---|
| 136 | * (以ä¸, 説æä¸ã§ã¯ã¢ã»ã³ããªè¨èªãã¡ã¤ã«ã®ã³ã¡ã³ãè¡ã¯çã)
|
|---|
| 137 | *
|
|---|
| 138 | * (1) æ§é ä½ã®å
|
|---|
| 139 | é ããã¡ã³ãã¸ã®ãªãã»ãã
|
|---|
| 140 | *
|
|---|
| 141 | * ! BEGIN TCB_texptn
|
|---|
| 142 | * bset 00H,0000000eH
|
|---|
| 143 | * ! END
|
|---|
| 144 | *
|
|---|
| 145 | * ä¸è¨"! BEGIN"ã®å¾ãã®æååãoffset.incã§å®ç¾©ããã·ã³ãã«åã¨ãªã.
|
|---|
| 146 | * ãã®ã·ã³ãã«ã®å¤ã¯, 次è¡ã®bsetå½ä»¤ã®ç¬¬2ãªãã©ã³ãã®å¤ã§ãã
|
|---|
| 147 | * 0000000eHãããã«ç¸å½ãã. ãããæ§é ä½ã®å
|
|---|
| 148 | é ããtexptnã¾ã§ã®
|
|---|
| 149 | * ãªãã»ããå¤ã¨ãªã. ãããã£ã¦ãã®å ´å, offset.inc ã«ã¯
|
|---|
| 150 | * TCB_texptn .equ 14
|
|---|
| 151 | * ã¨ããè¡ãè¨è¿°ãã.
|
|---|
| 152 | *
|
|---|
| 153 | * (2) æ§é ä½ã®ã¡ã³ããæ§é ä½ã§, ãã®ä¸ã®ã¡ã³ãã«å¯¾ãããªãã»ãã
|
|---|
| 154 | *
|
|---|
| 155 | * TCB_sp ã«ã¤ãã¦ãã»ã¼åæ§ã ã, sp ã¯TCBæ§é ä½ã®ç´æ¥ã®
|
|---|
| 156 | * ã¡ã³ãã§ãªãTCBæ§é ä½ã®ã¡ã³ãã§ããCTXBæ§é ä½ã®ã¡ã³ãã§
|
|---|
| 157 | * ããç¹ãç°ãªã. ããã§ãå®ç¾©ããã·ã³ãã«åã¨ãã¦ã¯
|
|---|
| 158 | * TCB_sp ã®ããã«è¡¨ç¾ãã. ã¢ã»ã³ããªè¨èªãã¡ã¤ã«ã§ã¯
|
|---|
| 159 | *
|
|---|
| 160 | * ! BEGIN TCB_sp
|
|---|
| 161 | * mov.l 00000014H,A0
|
|---|
| 162 | * extz [A0],R0
|
|---|
| 163 | * bset 0,R0L
|
|---|
| 164 | * mov.l #00000014H,A0
|
|---|
| 165 | * mov.b R0L,[[A0]]
|
|---|
| 166 | * ! END *
|
|---|
| 167 | *
|
|---|
| 168 | * ã®ããã«ãªã,14H(=20) ãæ±ããå¤ãªã®ã§offset.inc ã«ã¯æ¬¡ã®ããã«
|
|---|
| 169 | * è¨è¿°ãã.
|
|---|
| 170 | *
|
|---|
| 171 | * TCB_sp .equ 20
|
|---|
| 172 | *
|
|---|
| 173 | * (3) ã¡ã³ããé¢æ°ã¸ã®ãã¤ã³ã¿ã§ãã£ãå ´å
|
|---|
| 174 | *
|
|---|
| 175 | * 次㯠TCB_pc ã®å ´å.
|
|---|
| 176 | *
|
|---|
| 177 | * ! BEGIN TCB_pc
|
|---|
| 178 | * mov.l #00000018H,A0
|
|---|
| 179 | * jsri.a [A0]
|
|---|
| 180 | * ! END
|
|---|
| 181 | *
|
|---|
| 182 | * pc ã sp ã¨åãã, TCBæ§é ä½ã®ç´æ¥ã®ã¡ã³ãã§ã¯ãªãã
|
|---|
| 183 | * TCB_pc ã¨è¡¨ç¾ãã¦ãã. ããã¯é¢æ°ã®ã¢ãã¬ã¹ãæ ¼ç´ããå¤æ°ãªã®ã§,
|
|---|
| 184 | * (((TCB *)0)->tskctxb.pc)();
|
|---|
| 185 | * ã¨ãã¦é¢æ°å¼ã³åºãã®ããã«è¨è¿°ããã¨ä¸è¨ã®ãããªã¢ã»ã³ããªè¨èª
|
|---|
| 186 | * ã³ã¼ããåºåãã. ã·ã³ãã«å®ç¾©ããéã®ã·ã³ãã«åã¯ä»ã¾ã§ã¨
|
|---|
| 187 | * åãã, TCB_pc ã¨ãã.
|
|---|
| 188 | * æ±ããå¤ã¯æ§é ä½ããé¢æ°ãã¤ã³ã¿ã¾ã§ã®ãªãã»ããã§ãã, ä¸ã®mov.l
|
|---|
| 189 | * å½ä»¤ã®çµæãã 00000018H(=24) ã¨ãªã.
|
|---|
| 190 | * ãããã£ã¦, offset.inc ã«ã¯æ¬¡ã®ããã«è¨è¿°ãã.
|
|---|
| 191 | *
|
|---|
| 192 | * TCB_pc .equ 24
|
|---|
| 193 | *
|
|---|
| 194 | * (4) æ§é ä½ã®ã¡ã³ããããããã£ã¼ã«ãã§ãã®ãããä½ç½®ãç¥ãããå ´å
|
|---|
| 195 | *
|
|---|
| 196 | * ! BEGIN TCB_enatex
|
|---|
| 197 | * bset 6,0000000cH+1
|
|---|
| 198 | * ! END
|
|---|
| 199 | *
|
|---|
| 200 | * ä»ã¾ã§ã¨åæ§, BEGIN ã®å¾ã®æååãã·ã³ãã«åã¨ãã.
|
|---|
| 201 | * ããã§ã®TCB_enatexã®å¤ã¯æ§é ä½ã®å
|
|---|
| 202 | é ããããããã£ã¼ã«ããå«ãã
|
|---|
| 203 | * ã¤ãã¾ã§ã®ãªãã»ããã§, M32Cã®ãããå½ä»¤ã¢ãã¬ãã·ã³ã°ã¯æå®ã§ã
|
|---|
| 204 | * ããããä½ç½®ã0ãã7ã®éã«åã¾ãããã«ã¢ã¯ã»ã¹ããã¢ãã¬ã¹ã«é©å½
|
|---|
| 205 | * æ°ãå ããããã®ã§ cH+1(=13) ã¨ãªã£ã¦ãã. ã¾ã, ããããã£ã¼ã«ã
|
|---|
| 206 | * ä¸ã®æä¸ä½ãããããã®ãããä½ç½®ã¯ 6ã¨ãªã.
|
|---|
| 207 | * 以ä¸ãã次ã®ããã«æ¸ããã¨ãã§ãã.
|
|---|
| 208 | *
|
|---|
| 209 | * TCB_enatex .equ 13
|
|---|
| 210 | * TCB_enatex_bit .equ 6
|
|---|
| 211 | * TCB_enatex_mask .equ 40H
|
|---|
| 212 | */
|
|---|
| 213 |
|
|---|
| 214 | #include "jsp_kernel.h"
|
|---|
| 215 | #include "task.h"
|
|---|
| 216 |
|
|---|
| 217 |
|
|---|
| 218 | void makeoffset(void);
|
|---|
| 219 |
|
|---|
| 220 | void
|
|---|
| 221 | makeoffset(void)
|
|---|
| 222 | {
|
|---|
| 223 | asm("! BEGIN TCB_texptn\n");
|
|---|
| 224 | (INT)(((TCB *)0)->texptn) |= 1;
|
|---|
| 225 | asm("! END");
|
|---|
| 226 |
|
|---|
| 227 | asm("! BEGIN TCB_sp\n");
|
|---|
| 228 | *(char *)(((TCB *)0)->tskctxb.sp) |= 1;
|
|---|
| 229 | asm("! END");
|
|---|
| 230 |
|
|---|
| 231 | asm("! BEGIN TCB_pc\n");
|
|---|
| 232 | (((TCB *)0)->tskctxb.pc)();
|
|---|
| 233 | asm("! END");
|
|---|
| 234 |
|
|---|
| 235 | asm("! BEGIN TCB_enatex\n");
|
|---|
| 236 | (INT)(((TCB *)0)->enatex) = 1;
|
|---|
| 237 | asm("! END");
|
|---|
| 238 | }
|
|---|
| 239 |
|
|---|
![(please configure the [header_logo] section in trac.ini)](/trac_user/contrib/chrome/site/your_project_logo.png){kind=logo}
