| 1 | ;
|
|---|
| 2 | ; TOPPERS/SSP Kernel
|
|---|
| 3 | ; Smallest Set Profile Kernel
|
|---|
| 4 | ;
|
|---|
| 5 | ; Copyright (C) 2014 by Naoki Saito
|
|---|
| 6 | ; Nagoya Municipal Industrial Research Institute, JAPAN
|
|---|
| 7 | ;
|
|---|
| 8 | ; ãLì ÒÍCÈºÌ (1)`(4) Ìðð½·êÉÀèC{\tgEF
|
|---|
| 9 | ; Ai{\tgEFAðüϵ½àÌðÜÞDȺ¯¶jðgpE¡»EüÏE
|
|---|
| 10 | ; ÄzziȺCpÆÄÔj·é±Æð³Åø·éD
|
|---|
| 11 | ; (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
|
|---|
| 12 | ; \¦C±Ìpð¨æѺL̳ÛØKèªC»ÌÜÜÌ`Å\[X
|
|---|
| 13 | ; R[hÉÜÜêÄ¢é±ÆD
|
|---|
| 14 | ; (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉgp
|
|---|
| 15 | ; Å«é`ÅÄzz·éêÉÍCÄzzɺ¤hL
|
|---|
| 16 | gipÒ}
|
|---|
| 17 | ; j
|
|---|
| 18 | AÈÇjÉCãLÌì \¦C±Ìpð¨æѺL̳Û
|
|---|
| 19 | ; ØKèðfÚ·é±ÆD
|
|---|
| 20 | ; (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉgp
|
|---|
| 21 | ; Å«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±ÆD
|
|---|
| 22 | ; (a) Äzzɺ¤hL
|
|---|
| 23 | gipÒ}j
|
|---|
| 24 | AÈÇjÉCãLÌì
|
|---|
| 25 | ; \¦C±Ìpð¨æѺL̳ÛØKèðfÚ·é±ÆD
|
|---|
| 26 | ; (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉñ
|
|---|
| 27 | ; ·é±ÆD
|
|---|
| 28 | ; (4) {\tgEFAÌpÉæè¼ÚIܽÍÔÚIɶ¶é¢©Èé¹Q
|
|---|
| 29 | ; ©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆDܽC
|
|---|
| 30 | ; {\tgEFAÌ[UܽÍGh[U©çÌ¢©ÈéRÉîÃ
|
|---|
| 31 | ; ¿©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
|
|---|
| 32 | ;
|
|---|
| 33 | ; {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨æ
|
|---|
| 34 | ; ÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚIÉη
|
|---|
| 35 | ; éK«àÜßÄC¢©ÈéÛØàsíÈ¢DܽC{\tgEFAÌp
|
|---|
| 36 | ; Éæè¼ÚIܽÍÔÚIɶ¶½¢©Èé¹QÉÖµÄàC»ÌÓCð
|
|---|
| 37 | ; íÈ¢D
|
|---|
| 38 | ;
|
|---|
| 39 | ;
|
|---|
| 40 |
|
|---|
| 41 | ;
|
|---|
| 42 | ; X^[gAbv[`
|
|---|
| 43 | ; vZbTÍS2RAC~fBAfðÎÛÆ·é
|
|---|
| 44 | ;
|
|---|
| 45 |
|
|---|
| 46 | ;
|
|---|
| 47 | ; O[oV{
|
|---|
| 48 | ;
|
|---|
| 49 | ; ZOgæªAhX(segment_s.asm)
|
|---|
| 50 | extrn _@R_INIT, _@R_INIS, _@RLINIT
|
|---|
| 51 | extrn _@INIT, _@DATA, _@INIS, _@DATS, _@INITL, _@DATAL
|
|---|
| 52 |
|
|---|
| 53 | ; ZOgöAhX(segment_e.asm)
|
|---|
| 54 | extrn _?R_INIT, _?R_INIS, _?RLINIT
|
|---|
| 55 | extrn _?INIT, _?DATA, _?INIS, _?DATS, _?INITL, _?DATAL
|
|---|
| 56 |
|
|---|
| 57 | ; X^bN|C^Ìúl(kernel_cfg.c)
|
|---|
| 58 | extrn __kernel_istkpt
|
|---|
| 59 |
|
|---|
| 60 | ; J[lJn(kernel/startup.c)
|
|---|
| 61 | extrn _sta_ker
|
|---|
| 62 |
|
|---|
| 63 | ; saddrÌæÌæªAhXCTCYiJÅè`j
|
|---|
| 64 | extrn _@SADBEG, _@SADSIZ
|
|---|
| 65 |
|
|---|
| 66 | ; Gg|Cg
|
|---|
| 67 | public _start
|
|---|
| 68 |
|
|---|
| 69 |
|
|---|
| 70 | ;
|
|---|
| 71 | ; èè`
|
|---|
| 72 | ;
|
|---|
| 73 | ; MAA(PMCÌrbg0): 0 Ü½Í 1
|
|---|
| 74 | ; 0ÌêC00000H--0FFFFH ð F0000H--FFFFFHÖ~[
|
|---|
| 75 | ; 1ÌêC10000H--1FFFFH ð F0000H--FFFFFHÖ~[
|
|---|
| 76 | INIT_MAA EQU 0
|
|---|
| 77 |
|
|---|
| 78 | ;
|
|---|
| 79 | ; }Nè`
|
|---|
| 80 | ;
|
|---|
| 81 | ; ZOgÔÌf[^Rs[(farÌROM©çnearÌRAMÖCsrcÌTCYª)
|
|---|
| 82 | copy_seg macro src, dst
|
|---|
| 83 | local _1, _2
|
|---|
| 84 | mov es, #highw _@&src
|
|---|
| 85 | movw hl, #loww _@&src
|
|---|
| 86 | movw de, #loww _@&dst
|
|---|
| 87 | br $_2
|
|---|
| 88 | _1:
|
|---|
| 89 | mov a, es:[hl]
|
|---|
| 90 | mov [de], a
|
|---|
| 91 | incw hl
|
|---|
| 92 | incw de
|
|---|
| 93 | _2:
|
|---|
| 94 | movw ax, hl
|
|---|
| 95 | cmpw ax, #loww _?&src
|
|---|
| 96 | bnz $_1
|
|---|
| 97 | endm
|
|---|
| 98 |
|
|---|
| 99 | ; ZOgÔÌf[^Rs[(farÌROM©çfarÌRAMÖCsrcÌTCYª)
|
|---|
| 100 | copy_fseg MACRO src, dst
|
|---|
| 101 | local _1, _2
|
|---|
| 102 | movw hl, #loww _@&src
|
|---|
| 103 | movw de, #loww _@&dst
|
|---|
| 104 | br $_2
|
|---|
| 105 | _1:
|
|---|
| 106 | mov es, #highw _@&src
|
|---|
| 107 | mov a, es:[hl]
|
|---|
| 108 | mov es, #highw _@&dst
|
|---|
| 109 | mov es:[de], a
|
|---|
| 110 | incw hl
|
|---|
| 111 | incw de
|
|---|
| 112 | _2:
|
|---|
| 113 | movw ax, hl
|
|---|
| 114 | cmpw ax, #loww _?&src
|
|---|
| 115 | bnz $_1
|
|---|
| 116 | endm
|
|---|
| 117 |
|
|---|
| 118 | ; ZOgÌf[^NA(near RAM)
|
|---|
| 119 | clear_seg MACRO dst
|
|---|
| 120 | local _1, _2
|
|---|
| 121 | mov es, #0fh
|
|---|
| 122 | movw hl, #loww _@&dst
|
|---|
| 123 | movw ax, #loww _?&dst
|
|---|
| 124 | br $_2
|
|---|
| 125 | _1:
|
|---|
| 126 | mov [hl+0], #0
|
|---|
| 127 | incw hl
|
|---|
| 128 | _2:
|
|---|
| 129 | cmpw ax, hl
|
|---|
| 130 | bnz $_1
|
|---|
| 131 | endm
|
|---|
| 132 |
|
|---|
| 133 | ; ZOgÌf[^NA(far RAM)
|
|---|
| 134 | clear_fseg MACRO dst
|
|---|
| 135 | local _1, _2
|
|---|
| 136 | mov es, #highw _@&dst
|
|---|
| 137 | movw hl, #loww _@&dst
|
|---|
| 138 | movw ax, #loww _?&dst
|
|---|
| 139 | br $_2
|
|---|
| 140 | _1:
|
|---|
| 141 | mov es:[hl+0], #0
|
|---|
| 142 | incw hl
|
|---|
| 143 | _2:
|
|---|
| 144 | cmpw ax, hl
|
|---|
| 145 | bnz $_1
|
|---|
| 146 | endm
|
|---|
| 147 |
|
|---|
| 148 | ;
|
|---|
| 149 | ; VXeJn
|
|---|
| 150 | ;
|
|---|
| 151 | @@CODE CSEG BASE
|
|---|
| 152 | _start:
|
|---|
| 153 |
|
|---|
| 154 | ;
|
|---|
| 155 | ; PSWÌÝè
|
|---|
| 156 | ;
|
|---|
| 157 | di ; ÝÖ~(ÝbNÌÝÖ~)
|
|---|
| 158 | sel rb0 ; WX^oN(RB0)
|
|---|
| 159 |
|
|---|
| 160 | ;
|
|---|
| 161 | ; ~[ÌæÌÝè
|
|---|
| 162 | ;
|
|---|
| 163 | mov a, #INIT_MAA
|
|---|
| 164 | mov1 cy, a.0
|
|---|
| 165 | mov1 maa, cy
|
|---|
| 166 |
|
|---|
| 167 | ;
|
|---|
| 168 | ; X^bN|C^ÌÝè
|
|---|
| 169 | ;
|
|---|
| 170 | movw de, #__kernel_istkpt
|
|---|
| 171 | mov es, #00H
|
|---|
| 172 | movw ax, es:[de]
|
|---|
| 173 | movw sp, ax
|
|---|
| 174 |
|
|---|
| 175 | ;
|
|---|
| 176 | ; _hardware_init_hook ÌÄÑoµ(ൠêÎ)
|
|---|
| 177 | ;
|
|---|
| 178 | ;call !!_hardware_init_hook
|
|---|
| 179 |
|
|---|
| 180 | ;
|
|---|
| 181 | ; ú»
|
|---|
| 182 | ;
|
|---|
| 183 | copy_seg R_INIS, INIS
|
|---|
| 184 | copy_seg R_INIT, INIT
|
|---|
| 185 | copy_fseg RLINIT, INITL
|
|---|
| 186 |
|
|---|
| 187 | clear_seg DATS
|
|---|
| 188 | clear_seg DATA
|
|---|
| 189 | clear_fseg DATAL
|
|---|
| 190 |
|
|---|
| 191 | ; saddrÌæÌú»
|
|---|
| 192 | mov b,#_@SADSIZ
|
|---|
| 193 | clrw ax
|
|---|
| 194 | saddr_init_loop:
|
|---|
| 195 | dec b
|
|---|
| 196 | dec b
|
|---|
| 197 | movw _@SADBEG[b], ax
|
|---|
| 198 | bnz $saddr_init_loop
|
|---|
| 199 |
|
|---|
| 200 | ;
|
|---|
| 201 | ; _sofrware_init_hook ÌÄÑoµ(ൠêÎ)
|
|---|
| 202 | ;
|
|---|
| 203 | ;call !!_software_init_hook
|
|---|
| 204 |
|
|---|
| 205 | ;
|
|---|
| 206 | ; sta_ker (kernel/startup.c) ÌÄÑoµ
|
|---|
| 207 | ;
|
|---|
| 208 | br !!_sta_ker
|
|---|
| 209 |
|
|---|
| 210 | _loop:
|
|---|
| 211 | br $_loop
|
|---|
| 212 |
|
|---|
| 213 | END
|
|---|
![(please configure the [header_logo] section in trac.ini)](/trac_user/contrib/chrome/site/your_project_logo.png){kind=logo}
