[93] | 1 | $
|
---|
| 2 | $ TOPPERS/SSP Kernel
|
---|
| 3 | $ Smallest Set Profile Kernel
|
---|
| 4 | $
|
---|
| 5 | $ Copyright (C) 2008 by Witz Corporation, JAPAN
|
---|
| 6 | $ Copyright (C) 2010-2014 by Naoki Saito
|
---|
| 7 | $ Nagoya Municipal Industrial Research Institute, JAPAN
|
---|
| 8 | $
|
---|
| 9 | $ ãLì ÒÍCÈºÌ (1)`(4) Ìðð½·êÉÀèC{\tgEF
|
---|
| 10 | $ Ai{\tgEFAðüϵ½àÌðÜÞDȺ¯¶jðgpE¡»EüÏE
|
---|
| 11 | $ ÄzziȺCpÆÄÔj·é±Æð³Åø·éD
|
---|
| 12 | $ (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
|
---|
| 13 | $ \¦C±Ìpð¨æѺL̳ÛØKèªC»ÌÜÜÌ`Å\[X
|
---|
| 14 | $ R[hÉÜÜêÄ¢é±ÆD
|
---|
| 15 | $ (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉgp
|
---|
| 16 | $ Å«é`ÅÄzz·éêÉÍCÄzzɺ¤hL
|
---|
| 17 | gipÒ}
|
---|
| 18 | $ j
|
---|
| 19 | AÈÇjÉCãLÌì \¦C±Ìpð¨æѺL̳Û
|
---|
| 20 | $ ØKèðfÚ·é±ÆD
|
---|
| 21 | $ (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉgp
|
---|
| 22 | $ Å«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±Æ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ɶ¶é¢©Èé¹Q
|
---|
| 30 | $ ©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆDܽC
|
---|
| 31 | $ {\tgEFAÌ[UܽÍGh[U©çÌ¢©ÈéRÉîÃ
|
---|
| 32 | $ ¿©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
|
---|
| 33 | $
|
---|
| 34 | $ {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨æ
|
---|
| 35 | $ ÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚIÉη
|
---|
| 36 | $ éK«àÜßÄC¢©ÈéÛØàsíÈ¢DܽC{\tgEFAÌp
|
---|
| 37 | $ Éæè¼ÚIܽÍÔÚIɶ¶½¢©Èé¹QÉÖµÄàC»ÌÓCð
|
---|
| 38 | $ íÈ¢D
|
---|
| 39 | $
|
---|
| 40 |
|
---|
| 41 | $
|
---|
| 42 | $ vZbT˶ev[g
|
---|
| 43 | $
|
---|
| 44 |
|
---|
| 45 | $
|
---|
| 46 | $ ATT_ISRÅgpÅ«éÝÔÆ»êÉηéÝnhÔ
|
---|
| 47 | $
|
---|
| 48 |
|
---|
| 49 | $INTNO_ATTISR_VALID = INTNO_VALID$
|
---|
| 50 | $INHNO_ATTISR_VALID = INHNO_VALID$
|
---|
| 51 |
|
---|
| 52 | $
|
---|
| 53 | $ DEF_INH^DEF_EXCÅgpÅ«éÝnhÔ^CPUáOnhÔ
|
---|
| 54 | $
|
---|
| 55 |
|
---|
| 56 | $INHNO_DEFINH_VALID = INHNO_VALID$
|
---|
| 57 | $EXCNO_DEFEXC_VALID = EXCNO_VALID$
|
---|
| 58 |
|
---|
| 59 | $
|
---|
| 60 | $ CFG_INTÅgpÅ«éÝÔÆÝDæx
|
---|
| 61 | $
|
---|
| 62 |
|
---|
| 63 | $INTNO_CFGINT_VALID = INTNO_VALID$
|
---|
| 64 |
|
---|
| 65 | $ // INTPRI_CFGINT_VALID ÍvZbTÉZbgÂ\ÈDæxÌÍÍð¦µC
|
---|
| 66 | $ // J[lÇ(O)©Ç¤©ÌæÊðµÄ¢È¢D
|
---|
| 67 | $ // J[lÇÆÈéÝDæxÌÍÍðÏX·éêC
|
---|
| 68 | $ // TMIN_INTPRI (prc_kernel.h) ÌlðKvɶÄÏX·éD
|
---|
| 69 | $INTPRI_CFGINT_VALID = { -4,-3,-2,-1 }$
|
---|
| 70 |
|
---|
| 71 | $
|
---|
| 72 | $ X^bNTCYÌ`FbNû@wè
|
---|
| 73 | $
|
---|
| 74 | $ ACgÉÖWȯ¶¬xÅANZXÅ«é
|
---|
| 75 | $
|
---|
| 76 |
|
---|
| 77 | $CHECK_STKSZ_ALIGN = 1$
|
---|
| 78 |
|
---|
| 79 |
|
---|
| 80 | $
|
---|
| 81 | $ èè`
|
---|
| 82 | $
|
---|
| 83 | $TA_POSEDGE = TA_EDGE$
|
---|
| 84 |
|
---|
| 85 | $
|
---|
| 86 | $ ^[Qbg˶ÌÝ®«Ìè`
|
---|
| 87 | $
|
---|
| 88 |
|
---|
| 89 | $TARGET_INTATR = TA_POSEDGE | TA_NEGEDGE | TA_BOTHEDGE$
|
---|
| 90 |
|
---|
| 91 | $
|
---|
| 92 | $ Wev[gt@CÌCN[h
|
---|
| 93 | $
|
---|
| 94 | $INCLUDE "kernel.tf"$
|
---|
| 95 |
|
---|
| 96 |
|
---|
| 97 | $
|
---|
| 98 | $ CFG_INTÌ^[Qbg˶ÌG[`FbN
|
---|
| 99 | $
|
---|
| 100 | $
|
---|
| 101 | $
|
---|
| 102 |
|
---|
| 103 | $FOREACH intno INT.ORDER_LIST$
|
---|
| 104 | $ // INTÝÉηéÝԩǤ©
|
---|
| 105 | $IF (LENGTH(FIND(INTNO_INT , INT.INTNO[intno])) != 0)$
|
---|
| 106 | $ // TA_POSEDGE Ü½Í TA_NEGEDGE Ü½Í TA_BOTHEDGE ª¯ÉÝè³êÄÈ¢©Ç¤©
|
---|
| 107 | $IF
|
---|
| 108 | ( ((INT.INTATR[intno] & (TA_POSEDGE|TA_NEGEDGE|TA_BOTHEDGE)) != (TA_POSEDGE))
|
---|
| 109 | & ((INT.INTATR[intno] & (TA_POSEDGE|TA_NEGEDGE|TA_BOTHEDGE)) != (TA_NEGEDGE))
|
---|
| 110 | & ((INT.INTATR[intno] & (TA_POSEDGE|TA_NEGEDGE|TA_BOTHEDGE)) != (TA_BOTHEDGE))
|
---|
| 111 | )$
|
---|
| 112 | $ERROR$ INT.TEXT_LINE[intno]:$FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
|
---|
| 113 | $END$
|
---|
| 114 | $ELSE$
|
---|
| 115 | $ // INTÝÈOÌÝÉ뵀 TA_ENAINT yÑ TA_EDGE ÈOÌÝ®«ªwè³êĢȢ©Ç¤©
|
---|
| 116 | $IF (INT.INTATR[intno] & ~(TA_ENAINT|TA_EDGE)) != 0$
|
---|
| 117 | $ERROR$ INT.TEXT_LINE[intno]: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "intatr", INT.INTATR[intno], INT.INTNO[intno], "CFG_INT")$$END$
|
---|
| 118 | $END$
|
---|
| 119 | $END$
|
---|
| 120 | $END$
|
---|
| 121 |
|
---|
| 122 |
|
---|
| 123 | $
|
---|
| 124 | $ ÝÔ©çÝDæxðæèo·e[u
|
---|
| 125 | $
|
---|
| 126 |
|
---|
| 127 | $FILE "kernel_cfg.c"$
|
---|
| 128 |
|
---|
| 129 | const PRI _kernel_intpri_table[$LENGTH(INTNO_RANGE)$] = $NL$
|
---|
| 130 | {
|
---|
| 131 | $FOREACH intno INTNO_RANGE$
|
---|
| 132 | $IF LENGTH(INT.INTNO[intno])$
|
---|
| 133 | $intpri = INT.INTPRI[intno]$
|
---|
| 134 | $ELSE$
|
---|
| 135 | $intpri = "0"$
|
---|
| 136 | $END$
|
---|
| 137 | $TAB$$FORMAT("INT8_C(%2d), /* %02u */", intpri , +intno)$$NL$
|
---|
| 138 | $END$
|
---|
| 139 | };$NL$$NL$
|
---|
| 140 |
|
---|
| 141 |
|
---|
| 142 | $
|
---|
| 143 | $ A[LeN`˶ev[giAZuÅLªj
|
---|
| 144 | $
|
---|
| 145 |
|
---|
| 146 | $
|
---|
| 147 | $ AZuoÍt@C (¤Êª)
|
---|
| 148 | $
|
---|
| 149 |
|
---|
| 150 | $FILE "kernel_cfg_asm.asm"$
|
---|
| 151 |
|
---|
| 152 | ;$NL$
|
---|
| 153 | ; RL78A[LeN`˶oÍt@C$NL$
|
---|
| 154 | ;$NL$
|
---|
| 155 | ; ÝnhüûÌè`$NL$
|
---|
| 156 | ;$NL$
|
---|
| 157 | $NL$$NL$
|
---|
| 158 |
|
---|
| 159 |
|
---|
| 160 | $
|
---|
| 161 | $ Ýüû
|
---|
| 162 | $
|
---|
| 163 |
|
---|
| 164 | $
|
---|
| 165 | $ O[oV{
|
---|
| 166 | $
|
---|
| 167 |
|
---|
| 168 | $TAB$extrn __kernel_interrupt_entry $NL$
|
---|
| 169 | $TAB$extrn __kernel_int_return$NL$$NL$
|
---|
| 170 |
|
---|
| 171 | $TAB$; RpCªgp·é saddrÌæÌWX^$NL$
|
---|
| 172 | $TAB$extrn _@RTARG0,_@RTARG2,_@RTARG4,_@RTARG6,_@SEGAX,_@SEGDE$NL$
|
---|
| 173 | $TAB$extrn _@NRARG0,_@NRARG1,_@NRARG2,_@NRARG3$NL$
|
---|
| 174 | $TAB$extrn _@NRAT00,_@NRAT02,_@NRAT04,_@NRAT06$NL$
|
---|
| 175 | $NL$
|
---|
| 176 |
|
---|
| 177 | ; $NL$
|
---|
| 178 | ; RpCªgp·ésaddrÌæÌÞð $NL$
|
---|
| 179 | ; $NL$
|
---|
| 180 | save_saddr_regs macro$NL$
|
---|
| 181 | $TAB$movw ax, _@RTARG0 $NL$
|
---|
| 182 | $TAB$push ax $NL$
|
---|
| 183 | $TAB$movw ax, _@RTARG2 $NL$
|
---|
| 184 | $TAB$push ax $NL$
|
---|
| 185 | $TAB$movw ax, _@RTARG4 $NL$
|
---|
| 186 | $TAB$push ax $NL$
|
---|
| 187 | $TAB$movw ax, _@RTARG6 $NL$
|
---|
| 188 | $TAB$push ax $NL$
|
---|
| 189 | $TAB$movw ax, _@SEGAX $NL$
|
---|
| 190 | $TAB$push ax $NL$
|
---|
| 191 | $TAB$movw ax, _@SEGDE $NL$
|
---|
| 192 | $TAB$push ax $NL$
|
---|
| 193 | $TAB$$$if (ALLOC_REGVAR_TO_SADDR) ; -qr IvVðgp·éê $NL$
|
---|
| 194 | $TAB$movw ax, _@NRARG0 $NL$
|
---|
| 195 | $TAB$push ax $NL$
|
---|
| 196 | $TAB$movw ax, _@NRARG1 $NL$
|
---|
| 197 | $TAB$push ax $NL$
|
---|
| 198 | $TAB$movw ax, _@NRARG2 $NL$
|
---|
| 199 | $TAB$push ax $NL$
|
---|
| 200 | $TAB$movw ax, _@NRARG3 $NL$
|
---|
| 201 | $TAB$push ax $NL$
|
---|
| 202 | $TAB$movw ax, _@NRAT00 $NL$
|
---|
| 203 | $TAB$push ax $NL$
|
---|
| 204 | $TAB$movw ax, _@NRAT02 $NL$
|
---|
| 205 | $TAB$push ax $NL$
|
---|
| 206 | $TAB$movw ax, _@NRAT04 $NL$
|
---|
| 207 | $TAB$push ax $NL$
|
---|
| 208 | $TAB$movw ax, _@NRAT06 $NL$
|
---|
| 209 | $TAB$push ax $NL$
|
---|
| 210 | $TAB$$$endif$NL$
|
---|
| 211 | $TAB$endm$NL$
|
---|
| 212 | $NL$
|
---|
| 213 |
|
---|
| 214 | @@BASE$TAB$CSEG BASE$NL$
|
---|
| 215 |
|
---|
| 216 | $
|
---|
| 217 | $ Ýnhüû
|
---|
| 218 | $
|
---|
| 219 |
|
---|
| 220 | $FOREACH inhno INHNO_RANGE$
|
---|
| 221 | $IF LENGTH(INH.INHNO[inhno])$
|
---|
| 222 | $TAB$extrn _$INH.INTHDR[inhno]$ $NL$
|
---|
| 223 | $TAB$public __kernel_$INH.INTHDR[inhno]$_$+INH.INHNO[inhno]$_entry $NL$
|
---|
| 224 | __kernel_$INH.INTHDR[inhno]$_$+INH.INHNO[inhno]$_entry: $NL$
|
---|
| 225 | $TAB$push ax ; WX^ð^XNX^bNÖÞð $NL$
|
---|
| 226 | $TAB$push bc $NL$
|
---|
| 227 | $TAB$push de $NL$
|
---|
| 228 | $TAB$push hl $NL$
|
---|
| 229 | $TAB$mov a,es ; ES, CS ÌÞð $NL$
|
---|
| 230 | $TAB$mov x,a $NL$
|
---|
| 231 | $TAB$mov a,cs $NL$
|
---|
| 232 | $TAB$push ax $NL$
|
---|
| 233 | $TAB$save_saddr_regs$NL$
|
---|
| 234 | $TAB$movw bc, #_$INH.INTHDR[inhno]$ ; nhÌAhXð bc Ö $NL$
|
---|
| 235 |
|
---|
| 236 | $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
|
---|
| 237 | $TAB$br __kernel_interrupt_entry ; ¤ÊÌüûÖ $NL$
|
---|
| 238 | $NL$$NL$
|
---|
| 239 | $ELSE$
|
---|
| 240 | $TAB$;J[lÇOÌÝÌêCnhÀsµÄ»ÌÜÜ^[ $NL$
|
---|
| 241 | $TAB$call bc ; ÝnhÄÑoµ$NL$
|
---|
| 242 | $TAB$br __kernel_int_return ; WX^A & Ý©ç^[(prc_support.asm) $NL$
|
---|
| 243 | $END$
|
---|
| 244 | $END$
|
---|
| 245 | $END$
|
---|
| 246 |
|
---|
| 247 |
|
---|
| 248 | $
|
---|
| 249 | $ CPUáOnhüû
|
---|
| 250 | $
|
---|
| 251 |
|
---|
| 252 | $FOREACH excno EXCNO_RANGE$
|
---|
| 253 | $IF LENGTH(EXC.EXCNO[excno])$
|
---|
| 254 | $TAB$extrn _$EXC.EXCHDR[excno]$ $NL$
|
---|
| 255 | $TAB$public __kernel_$EXC.EXCHDR[excno]$_$+EXC.EXCNO[excno]$_entry $NL$
|
---|
| 256 | __kernel_$EXC.EXCHDR[excno]$_$+EXC.EXCNO[excno]$_entry: $NL$
|
---|
| 257 | $TAB$push ax ; WX^ð^XNX^bNÖÞð $NL$
|
---|
| 258 | $TAB$push bc $NL$
|
---|
| 259 | $TAB$push de $NL$
|
---|
| 260 | $TAB$push hl $NL$
|
---|
| 261 | $TAB$mov a,es ; ES, CS ÌÞð $NL$
|
---|
| 262 | $TAB$mov x,a $NL$
|
---|
| 263 | $TAB$mov a,cs $NL$
|
---|
| 264 | $TAB$push ax $NL$
|
---|
| 265 | $TAB$save_saddr_regs $NL$
|
---|
| 266 | $TAB$movw ax, sp ; SP(nhÌøÆÈé)ð ax Ö $NL$
|
---|
| 267 | $TAB$movw bc, #_$EXC.EXCHDR[excno]$ ; nhÌAhXð bc Ö $NL$
|
---|
| 268 | $TAB$br __kernel_interrupt_entry ; ¤ÊÌüûÖ $NL$
|
---|
| 269 | $NL$$NL$
|
---|
| 270 | $END$
|
---|
| 271 | $END$
|
---|
| 272 |
|
---|
| 273 |
|
---|
| 274 | $
|
---|
| 275 | $ xN^e[u
|
---|
| 276 | $
|
---|
| 277 |
|
---|
| 278 | ;$NL$
|
---|
| 279 | ; xN^e[u$NL$
|
---|
| 280 | ;$NL$
|
---|
| 281 | $NL$
|
---|
| 282 |
|
---|
| 283 | $TAB$extrn $TAB$ _unused_interrupt $NL$
|
---|
| 284 | $TAB$org 0004h$NL$$NL$
|
---|
| 285 | $FOREACH inhno INHNO_RANGE$
|
---|
| 286 | $IF LENGTH(INH.INHNO[inhno])$
|
---|
| 287 | $inhhdr = CONCAT(CONCAT("_kernel_" , CONCAT(INH.INTHDR[inhno] , "_")) , CONCAT(+INH.INHNO[inhno] , "_entry"))$
|
---|
| 288 | $ELSE$
|
---|
| 289 | $inhhdr = "unused_interrupt"$
|
---|
| 290 | $END$
|
---|
| 291 | $TAB$dw$TAB$_$inhhdr$ $TAB$ $TAB$ $FORMAT("; %02d" , inhno)$ $NL$
|
---|
| 292 | $END$
|
---|
| 293 | $NL$$NL$
|
---|
| 294 |
|
---|
| 295 | $TAB$org 007eh$NL$$NL$
|
---|
| 296 | $FOREACH excno EXCNO_RANGE$
|
---|
| 297 | $IF LENGTH(EXC.EXCNO[excno])$
|
---|
| 298 | $exchdr = CONCAT(CONCAT("_kernel_" , CONCAT(EXC.EXCHDR[excno] , "_")) , CONCAT(+EXC.EXCNO[excno] , "_entry"))$
|
---|
| 299 | $ELSE$
|
---|
| 300 | $exchdr = "unused_interrupt"$
|
---|
| 301 | $END$
|
---|
| 302 | $TAB$dw$TAB$_$exchdr$ $TAB$ $TAB$ $FORMAT("; %02d" , excno)$ $NL$
|
---|
| 303 | $END$
|
---|
| 304 | $NL$$NL$
|
---|
| 305 |
|
---|
| 306 | $TAB$end
|
---|
| 307 | $NL$
|
---|
| 308 |
|
---|
| 309 | $
|
---|
| 310 | $ prc_support.asm p}Nè`t@C
|
---|
| 311 | $
|
---|
| 312 |
|
---|
| 313 | $FILE "prc_support_def.inc"$
|
---|
| 314 |
|
---|
| 315 | $IF TMIN_INTPRI == -4$
|
---|
| 316 | TMIN_INTPRI_EQU_MINUS4 equ 1 $NL$
|
---|
| 317 | $ELSE$
|
---|
| 318 | TMIN_INTPRI_EQU_MINUS4 equ 0 $NL$
|
---|
| 319 | $END$
|
---|