[93] | 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
|
---|