2021-01-10 03:02:23 +00:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
< html >
< head >
< meta http-equiv = "content-type" content = "text/html; charset=UTF-8" >
2021-03-24 00:31:08 +00:00
< title > Mu - 103grapheme.subx< / title >
2021-01-10 03:02:23 +00:00
< meta name = "Generator" content = "Vim/8.1" >
< meta name = "plugin-version" content = "vim8.1_v1" >
< meta name = "syntax" content = "none" >
< meta name = "settings" content = "number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=" >
2021-06-25 04:44:18 +00:00
< meta name = "colorscheme" content = "minimal-light" >
2021-01-10 03:02:23 +00:00
< style type = "text/css" >
<!--
2021-06-26 16:20:32 +00:00
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; }
2021-01-10 03:02:23 +00:00
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.subxComment { color: #005faf; }
2021-01-13 08:08:31 +00:00
.LineNr { }
2021-06-26 16:20:32 +00:00
.SpecialChar { color: #d70000; }
.subxS1Comment { color: #0000af; }
2021-01-10 03:02:23 +00:00
.subxFunction { color: #af5f00; text-decoration: underline; }
.Constant { color: #008787; }
-->
< / style >
< script type = 'text/javascript' >
<!--
/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
var lineNum;
lineNum = window.location.hash;
lineNum = lineNum.substr(1); /* strip off '#' */
if (lineNum.indexOf('L') == -1) {
lineNum = 'L'+lineNum;
}
var lineElem = document.getElementById(lineNum);
/* Always jump to new location even if the line was hidden inside a fold, or
* we corrected the raw number to a line ID.
*/
if (lineElem) {
lineElem.scrollIntoView(true);
}
return true;
}
if ('onhashchange' in window) {
window.onhashchange = JumpToLine;
}
-->
< / script >
< / head >
< body onload = 'JumpToLine();' >
2021-03-24 00:31:08 +00:00
< a href = 'https://github.com/akkartik/mu/blob/main/103grapheme.subx' > https://github.com/akkartik/mu/blob/main/103grapheme.subx< / a >
2021-01-10 03:02:23 +00:00
< pre id = 'vimCodeElement' >
2021-01-23 19:14:07 +00:00
< span id = "L1" class = "LineNr" > 1 < / span > < span class = "subxComment" > # Use the built-in font to draw a grapheme to real screen.< / span >
< span id = "L2" class = "LineNr" > 2 < / span > < span class = "subxComment" > #< / span >
< span id = "L3" class = "LineNr" > 3 < / span > < span class = "subxComment" > # We need to do this in machine code because Mu doesn't have global variables< / span >
2021-04-14 04:11:26 +00:00
< span id = "L4" class = "LineNr" > 4 < / span > < span class = "subxComment" > # yet (for the start of the font).< / span >
2021-01-23 19:14:07 +00:00
< span id = "L5" class = "LineNr" > 5 < / span > < span class = "subxComment" > #< / span >
< span id = "L6" class = "LineNr" > 6 < / span > < span class = "subxComment" > # There are uncomfortable assumptions baked in here about english/latin< / span >
< span id = "L7" class = "LineNr" > 7 < / span > < span class = "subxComment" > # script. We convert the grid of pixels into a fixed-width grid of graphemes,< / span >
< span id = "L8" class = "LineNr" > 8 < / span > < span class = "subxComment" > # which may not work well with other language families.< / span >
< span id = "L9" class = "LineNr" > 9 < / span >
< span id = "L10" class = "LineNr" > 10 < / span > == code
< span id = "L11" class = "LineNr" > 11 < / span >
< span id = "L12" class = "LineNr" > 12 < / span > < span class = "subxComment" > # The Mu computer's screen is 1024px wide and 768px tall.< / span >
< span id = "L13" class = "LineNr" > 13 < / span > < span class = "subxComment" > # The Mu computer's font is 8px wide and 16px tall.< / span >
< span id = "L14" class = "LineNr" > 14 < / span > < span class = "subxComment" > # Therefore 'x' here is in [0, 128), and 'y' is in [0, 48)< / span >
2021-02-14 02:18:05 +00:00
< span id = "L15" class = "LineNr" > 15 < / span > < span class = "subxComment" > # Doesn't update the cursor; where the cursor should go after printing the< / span >
< span id = "L16" class = "LineNr" > 16 < / span > < span class = "subxComment" > # current grapheme is a higher-level concern.< / span >
< span id = "L17" class = "LineNr" > 17 < / span > < span class = "subxFunction" > draw-grapheme-on-real-screen< / span > : < span class = "subxComment" > # g: grapheme, x: int, y: int, color: int, background-color: int< / span >
< span id = "L18" class = "LineNr" > 18 < / span > < span class = "subxS1Comment" > # . prologue< / span >
< span id = "L19" class = "LineNr" > 19 < / span > 55/push-ebp
< span id = "L20" class = "LineNr" > 20 < / span > 89/< - %ebp 4/r32/esp
2021-06-16 04:50:13 +00:00
< span id = "L21" class = "LineNr" > 21 < / span > < span class = "subxComment" > #< / span >
< span id = "L22" class = "LineNr" > 22 < / span > (< a href = '103grapheme.subx.html#L74' > draw-grapheme-on-screen-buffer< / a > *< span class = "SpecialChar" > < a href = 'boot.subx.html#L650' > Video-memory-addr< / a > < / span > *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) 0x80 0x30)
< span id = "L23" class = "LineNr" > 23 < / span > < span class = "Constant" > $draw-grapheme-on-real-screen:end< / span > :
< span id = "L24" class = "LineNr" > 24 < / span > < span class = "subxS1Comment" > # . epilogue< / span >
< span id = "L25" class = "LineNr" > 25 < / span > 89/< - %esp 5/r32/ebp
< span id = "L26" class = "LineNr" > 26 < / span > 5d/pop-to-ebp
< span id = "L27" class = "LineNr" > 27 < / span > c3/return
< span id = "L28" class = "LineNr" > 28 < / span >
< span id = "L29" class = "LineNr" > 29 < / span > < span class = "subxFunction" > draw-grapheme-on-screen-array< / span > : < span class = "subxComment" > # screen-data: (addr array byte), g: grapheme, x: int, y: int, color: int, background-color: int, screen-width: int, screen-height: int< / span >
< span id = "L30" class = "LineNr" > 30 < / span > < span class = "subxS1Comment" > # . prologue< / span >
< span id = "L31" class = "LineNr" > 31 < / span > 55/push-ebp
< span id = "L32" class = "LineNr" > 32 < / span > 89/< - %ebp 4/r32/esp
< span id = "L33" class = "LineNr" > 33 < / span > < span class = "subxS1Comment" > # . save registers< / span >
< span id = "L34" class = "LineNr" > 34 < / span > 50/push-eax
< span id = "L35" class = "LineNr" > 35 < / span > 51/push-ecx
< span id = "L36" class = "LineNr" > 36 < / span > 52/push-edx
< span id = "L37" class = "LineNr" > 37 < / span > < span class = "subxComment" > # if screen-width*screen-height > len(screen-data) abort< / span >
< span id = "L38" class = "LineNr" > 38 < / span > {
< span id = "L39" class = "LineNr" > 39 < / span > < span class = "subxComment" > # ecx = len(screen-data)< / span >
< span id = "L40" class = "LineNr" > 40 < / span > 8b/-> *(ebp+8) 1/r32/ecx
< span id = "L41" class = "LineNr" > 41 < / span > 8b/-> *ecx 1/r32/ecx
< span id = "L42" class = "LineNr" > 42 < / span > < span class = "subxComment" > # eax = screen-width*screen-height< / span >
< span id = "L43" class = "LineNr" > 43 < / span > ba/copy-to-edx 0/imm32
< span id = "L44" class = "LineNr" > 44 < / span > 8b/-> *(ebp+0x20) 0/r32/eax
< span id = "L45" class = "LineNr" > 45 < / span > f7 4/subop/multiply-into-eax *(ebp+0x24)
< span id = "L46" class = "LineNr" > 46 < / span > 81 7/subop/compare %edx 0/imm32
< span id = "L47" class = "LineNr" > 47 < / span > 0f 85/jump-if-!= $draw-grapheme-on-screen-array:overflow/disp32
< span id = "L48" class = "LineNr" > 48 < / span > < span class = "subxComment" > # if (eax > ecx) abort< / span >
< span id = "L49" class = "LineNr" > 49 < / span > 39/compare %eax 1/r32/ecx
< span id = "L50" class = "LineNr" > 50 < / span > 0f 8f/jump-if-> $draw-grapheme-on-screen-array:< a href = '317abort.subx.html#L5' > abort< / a > /disp32
< span id = "L51" class = "LineNr" > 51 < / span > }
< span id = "L52" class = "LineNr" > 52 < / span > < span class = "subxComment" > # eax = screen-data+4 (skip length)< / span >
< span id = "L53" class = "LineNr" > 53 < / span > 8b/-> *(ebp+8) 0/r32/eax
< span id = "L54" class = "LineNr" > 54 < / span > 05/add-to-eax 4/imm32
< span id = "L55" class = "LineNr" > 55 < / span > < span class = "subxComment" > #< / span >
< span id = "L56" class = "LineNr" > 56 < / span > (< a href = '103grapheme.subx.html#L74' > draw-grapheme-on-screen-buffer< / a > %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20) *(ebp+0x24))
< span id = "L57" class = "LineNr" > 57 < / span > < span class = "Constant" > $draw-grapheme-on-screen-array:end< / span > :
< span id = "L58" class = "LineNr" > 58 < / span > < span class = "subxS1Comment" > # . restore registers< / span >
< span id = "L59" class = "LineNr" > 59 < / span > 5a/pop-to-edx
< span id = "L60" class = "LineNr" > 60 < / span > 59/pop-to-ecx
< span id = "L61" class = "LineNr" > 61 < / span > 58/pop-to-eax
< span id = "L62" class = "LineNr" > 62 < / span > < span class = "subxS1Comment" > # . epilogue< / span >
< span id = "L63" class = "LineNr" > 63 < / span > 89/< - %esp 5/r32/ebp
< span id = "L64" class = "LineNr" > 64 < / span > 5d/pop-to-ebp
< span id = "L65" class = "LineNr" > 65 < / span > c3/return
< span id = "L66" class = "LineNr" > 66 < / span >
< span id = "L67" class = "LineNr" > 67 < / span > < span class = "Constant" > $draw-grapheme-on-screen-array:overflow< / span > :
< span id = "L68" class = "LineNr" > 68 < / span > (< a href = '317abort.subx.html#L5' > abort< / a > < span class = "Constant" > " draw-grapheme-on-screen-array: < a href = '500fake-screen.mu.html#L14' > screen< / a > dimensions too large" < / span > )
< span id = "L69" class = "LineNr" > 69 < / span >
< span id = "L70" class = "LineNr" > 70 < / span > < span class = "Constant" > $draw-grapheme-on-screen-array:< a href = '317abort.subx.html#L5' > abort< / a > < / span > :
< span id = "L71" class = "LineNr" > 71 < / span > (< a href = '317abort.subx.html#L5' > abort< / a > < span class = "Constant" > " draw-grapheme-on-screen-array: coordinates are off the screen. Are the < a href = '500fake-screen.mu.html#L14' > screen< / a > dimensions correct?" < / span > )
< span id = "L72" class = "LineNr" > 72 < / span >
< span id = "L73" class = "LineNr" > 73 < / span > < span class = "subxComment" > # 'buffer' here is not a valid Mu type: a naked address without a length.< / span >
< span id = "L74" class = "LineNr" > 74 < / span > < span class = "subxFunction" > draw-grapheme-on-screen-buffer< / span > : < span class = "subxComment" > # buffer: (addr byte), g: grapheme, x: int, y: int, color: int, background-color: int, screen-width: int, screen-height: int< / span >
< span id = "L75" class = "LineNr" > 75 < / span > < span class = "subxS1Comment" > # . prologue< / span >
< span id = "L76" class = "LineNr" > 76 < / span > 55/push-ebp
< span id = "L77" class = "LineNr" > 77 < / span > 89/< - %ebp 4/r32/esp
< span id = "L78" class = "LineNr" > 78 < / span > < span class = "subxS1Comment" > # . save registers< / span >
< span id = "L79" class = "LineNr" > 79 < / span > 50/push-eax
< span id = "L80" class = "LineNr" > 80 < / span > 51/push-ecx
< span id = "L81" class = "LineNr" > 81 < / span > 52/push-edx
< span id = "L82" class = "LineNr" > 82 < / span > 53/push-ebx
< span id = "L83" class = "LineNr" > 83 < / span > 56/push-esi
< span id = "L84" class = "LineNr" > 84 < / span > < span class = "subxComment" > # switch screen-width and screen-height from grapheme to pixel units< / span >
< span id = "L85" class = "LineNr" > 85 < / span > c1 4/subop/shift-left *(ebp+20) 3/imm8/log2-font-width
< span id = "L86" class = "LineNr" > 86 < / span > c1 4/subop/shift-left *(ebp+24) 4/imm8/log2-font-height
< span id = "L87" class = "LineNr" > 87 < / span > < span class = "subxComment" > # esi = g< / span >
< span id = "L88" class = "LineNr" > 88 < / span > 8b/-> *(ebp+0xc) 6/r32/esi
< span id = "L89" class = "LineNr" > 89 < / span > < span class = "subxComment" > # if (g > = 128) return # characters beyond ASCII currently not supported< / span >
< span id = "L90" class = "LineNr" > 90 < / span > 81 7/subop/compare %esi 0x80/imm32
< span id = "L91" class = "LineNr" > 91 < / span > 0f 8d/jump-if-> = $draw-grapheme-on-screen-buffer:end/disp32
< span id = "L92" class = "LineNr" > 92 < / span > < span class = "subxComment" > # var letter-bitmap/esi = font[g]< / span >
< span id = "L93" class = "LineNr" > 93 < / span > c1 4/subop/shift-left %esi 4/imm8
< span id = "L94" class = "LineNr" > 94 < / span > 81 0/subop/add %esi < span class = "SpecialChar" > < a href = 'boot.subx.html#L671' > Font< / a > < / span > /imm32
< span id = "L95" class = "LineNr" > 95 < / span > < span class = "subxComment" > # var ycurr/edx: int = y*16< / span >
< span id = "L96" class = "LineNr" > 96 < / span > 8b/-> *(ebp+0x14) 2/r32/edx
< span id = "L97" class = "LineNr" > 97 < / span > c1 4/subop/shift-left %edx 4/imm8
< span id = "L98" class = "LineNr" > 98 < / span > < span class = "subxComment" > # var ymax/ebx: int = ycurr + 16< / span >
< span id = "L99" class = "LineNr" > 99 < / span > 8b/-> *(ebp+0x14) 3/r32/ebx
< span id = "L100" class = "LineNr" > 100 < / span > c1 4/subop/shift-left %ebx 4/imm8
< span id = "L101" class = "LineNr" > 101 < / span > 81 0/subop/add %ebx 0x10/imm32
< span id = "L102" class = "LineNr" > 102 < / span > {
< span id = "L103" class = "LineNr" > 103 < / span > < span class = "subxComment" > # if (ycurr > = ymax) break< / span >
< span id = "L104" class = "LineNr" > 104 < / span > 39/compare %edx 3/r32/ebx
< span id = "L105" class = "LineNr" > 105 < / span > 0f 8d/jump-if-> = < span class = "Constant" > break< / span > /disp32
< span id = "L106" class = "LineNr" > 106 < / span > < span class = "subxComment" > # var xcurr/eax: int = x*8 + 7< / span >
< span id = "L107" class = "LineNr" > 107 < / span > 8b/-> *(ebp+0x10) 0/r32/eax < span class = "subxComment" > # font-width - 1< / span >
< span id = "L108" class = "LineNr" > 108 < / span > c1 4/subop/shift-left %eax 3/imm8
< span id = "L109" class = "LineNr" > 109 < / span > 05/add-to-eax 7/imm32
< span id = "L110" class = "LineNr" > 110 < / span > < span class = "subxComment" > # var xmin/ecx: int = x*8< / span >
< span id = "L111" class = "LineNr" > 111 < / span > 8b/-> *(ebp+0x10) 1/r32/ecx
< span id = "L112" class = "LineNr" > 112 < / span > c1 4/subop/shift-left %ecx 3/imm8
< span id = "L113" class = "LineNr" > 113 < / span > < span class = "subxComment" > # var row-bitmap/ebx: int = *letter-bitmap< / span >
< span id = "L114" class = "LineNr" > 114 < / span > 53/push-ebx
< span id = "L115" class = "LineNr" > 115 < / span > 8b/-> *esi 3/r32/ebx
< span id = "L116" class = "LineNr" > 116 < / span > {
< span id = "L117" class = "LineNr" > 117 < / span > < span class = "subxComment" > # if (xcurr < xmin) break< / span >
< span id = "L118" class = "LineNr" > 118 < / span > 39/compare %eax 1/r32/ecx
< span id = "L119" class = "LineNr" > 119 < / span > 7c/jump-if-< < span class = "Constant" > break< / span > /disp8
< span id = "L120" class = "LineNr" > 120 < / span > < span class = "subxComment" > # shift LSB from row-bitmap into carry flag (CF)< / span >
< span id = "L121" class = "LineNr" > 121 < / span > c1 5/subop/shift-right-logical %ebx 1/imm8
< span id = "L122" class = "LineNr" > 122 < / span > < span class = "subxComment" > # if LSB, draw a pixel in the given color< / span >
< span id = "L123" class = "LineNr" > 123 < / span > {
< span id = "L124" class = "LineNr" > 124 < / span > 73/jump-if-not-CF < span class = "Constant" > break< / span > /disp8
< span id = "L125" class = "LineNr" > 125 < / span > (< a href = '101screen.subx.html#L21' > pixel-on-screen-buffer< / a > *(ebp+8) %eax %edx *(ebp+0x18) *(ebp+0x20) *(ebp+0x24))
< span id = "L126" class = "LineNr" > 126 < / span > eb/jump $draw-grapheme-on-screen-buffer:continue/disp8
< span id = "L127" class = "LineNr" > 127 < / span > }
< span id = "L128" class = "LineNr" > 128 < / span > < span class = "subxComment" > # otherwise use the background color< / span >
< span id = "L129" class = "LineNr" > 129 < / span > (< a href = '101screen.subx.html#L21' > pixel-on-screen-buffer< / a > *(ebp+8) %eax %edx *(ebp+0x1c) *(ebp+0x20) *(ebp+0x24))
< span id = "L130" class = "LineNr" > 130 < / span > < span class = "Constant" > $draw-grapheme-on-screen-buffer:continue< / span > :
< span id = "L131" class = "LineNr" > 131 < / span > < span class = "subxComment" > # --x< / span >
< span id = "L132" class = "LineNr" > 132 < / span > 48/decrement-eax
< span id = "L133" class = "LineNr" > 133 < / span > < span class = "subxComment" > #< / span >
< span id = "L134" class = "LineNr" > 134 < / span > eb/jump < span class = "Constant" > loop< / span > /disp8
< span id = "L135" class = "LineNr" > 135 < / span > }
< span id = "L136" class = "LineNr" > 136 < / span > < span class = "subxComment" > # reclaim row-bitmap< / span >
< span id = "L137" class = "LineNr" > 137 < / span > 5b/pop-to-ebx
< span id = "L138" class = "LineNr" > 138 < / span > < span class = "subxComment" > # ++y< / span >
< span id = "L139" class = "LineNr" > 139 < / span > 42/increment-edx
< span id = "L140" class = "LineNr" > 140 < / span > < span class = "subxComment" > # next bitmap row< / span >
< span id = "L141" class = "LineNr" > 141 < / span > 46/increment-esi
< span id = "L142" class = "LineNr" > 142 < / span > < span class = "subxComment" > #< / span >
< span id = "L143" class = "LineNr" > 143 < / span > e9/jump < span class = "Constant" > loop< / span > /disp32
< span id = "L144" class = "LineNr" > 144 < / span > }
< span id = "L145" class = "LineNr" > 145 < / span > < span class = "Constant" > $draw-grapheme-on-screen-buffer:end< / span > :
< span id = "L146" class = "LineNr" > 146 < / span > < span class = "subxS1Comment" > # . restore registers< / span >
< span id = "L147" class = "LineNr" > 147 < / span > 5e/pop-to-esi
< span id = "L148" class = "LineNr" > 148 < / span > 5b/pop-to-ebx
< span id = "L149" class = "LineNr" > 149 < / span > 5a/pop-to-edx
< span id = "L150" class = "LineNr" > 150 < / span > 59/pop-to-ecx
< span id = "L151" class = "LineNr" > 151 < / span > 58/pop-to-eax
< span id = "L152" class = "LineNr" > 152 < / span > < span class = "subxS1Comment" > # . epilogue< / span >
< span id = "L153" class = "LineNr" > 153 < / span > 89/< - %esp 5/r32/ebp
< span id = "L154" class = "LineNr" > 154 < / span > 5d/pop-to-ebp
< span id = "L155" class = "LineNr" > 155 < / span > c3/return
< span id = "L156" class = "LineNr" > 156 < / span >
< span id = "L157" class = "LineNr" > 157 < / span > < span class = "subxFunction" > cursor-position-on-real-screen< / span > : < span class = "subxComment" > # -> _/eax: int, _/ecx: int< / span >
< span id = "L158" class = "LineNr" > 158 < / span > < span class = "subxS1Comment" > # . prologue< / span >
< span id = "L159" class = "LineNr" > 159 < / span > 55/push-ebp
< span id = "L160" class = "LineNr" > 160 < / span > 89/< - %ebp 4/r32/esp
< span id = "L161" class = "LineNr" > 161 < / span > < span class = "subxComment" > # TODO: support fake screen; we currently assume 'screen' is always 0 (real)< / span >
< span id = "L162" class = "LineNr" > 162 < / span > 8b/-> *< span class = "SpecialChar" > < a href = '103grapheme.subx.html#L231' > Real-screen-cursor-x< / a > < / span > 0/r32/eax
< span id = "L163" class = "LineNr" > 163 < / span > 8b/-> *< span class = "SpecialChar" > < a href = '103grapheme.subx.html#L233' > Real-screen-cursor-y< / a > < / span > 1/r32/ecx
< span id = "L164" class = "LineNr" > 164 < / span > < span class = "Constant" > $cursor-position-on-real-screen:end< / span > :
< span id = "L165" class = "LineNr" > 165 < / span > < span class = "subxS1Comment" > # . epilogue< / span >
< span id = "L166" class = "LineNr" > 166 < / span > 89/< - %esp 5/r32/ebp
< span id = "L167" class = "LineNr" > 167 < / span > 5d/pop-to-ebp
< span id = "L168" class = "LineNr" > 168 < / span > c3/return
< span id = "L169" class = "LineNr" > 169 < / span >
< span id = "L170" class = "LineNr" > 170 < / span > < span class = "subxFunction" > set-cursor-position-on-real-screen< / span > : < span class = "subxComment" > # x: int, y: int< / span >
< span id = "L171" class = "LineNr" > 171 < / span > < span class = "subxS1Comment" > # . prologue< / span >
< span id = "L172" class = "LineNr" > 172 < / span > 55/push-ebp
< span id = "L173" class = "LineNr" > 173 < / span > 89/< - %ebp 4/r32/esp
< span id = "L174" class = "LineNr" > 174 < / span > < span class = "subxS1Comment" > # . save registers< / span >
< span id = "L175" class = "LineNr" > 175 < / span > 50/push-eax
< span id = "L176" class = "LineNr" > 176 < / span > < span class = "subxComment" > #< / span >
< span id = "L177" class = "LineNr" > 177 < / span > 8b/-> *(ebp+8) 0/r32/eax
< span id = "L178" class = "LineNr" > 178 < / span > 89/< - *< span class = "SpecialChar" > < a href = '103grapheme.subx.html#L231' > Real-screen-cursor-x< / a > < / span > 0/r32/eax
< span id = "L179" class = "LineNr" > 179 < / span > 8b/-> *(ebp+0xc) 0/r32/eax
< span id = "L180" class = "LineNr" > 180 < / span > 89/< - *< span class = "SpecialChar" > < a href = '103grapheme.subx.html#L233' > Real-screen-cursor-y< / a > < / span > 0/r32/eax
< span id = "L181" class = "LineNr" > 181 < / span > < span class = "Constant" > $set-cursor-position-on-real-screen:end< / span > :
< span id = "L182" class = "LineNr" > 182 < / span > < span class = "subxS1Comment" > # . restore registers< / span >
< span id = "L183" class = "LineNr" > 183 < / span > 58/pop-to-eax
< span id = "L184" class = "LineNr" > 184 < / span > < span class = "subxS1Comment" > # . epilogue< / span >
< span id = "L185" class = "LineNr" > 185 < / span > 89/< - %esp 5/r32/ebp
< span id = "L186" class = "LineNr" > 186 < / span > 5d/pop-to-ebp
< span id = "L187" class = "LineNr" > 187 < / span > c3/return
< span id = "L188" class = "LineNr" > 188 < / span >
< span id = "L189" class = "LineNr" > 189 < / span > < span class = "subxComment" > # Not a real `show-cursor` primitive:< / span >
< span id = "L190" class = "LineNr" > 190 < / span > < span class = "subxComment" > # - does not clear previous location cursor was shown at.< / span >
< span id = "L191" class = "LineNr" > 191 < / span > < span class = "subxComment" > # - does not preserve what was at the cursor. Caller is responsible for< / span >
< span id = "L192" class = "LineNr" > 192 < / span > < span class = "subxComment" > # tracking what was on the screen at this position before and passing it< / span >
< span id = "L193" class = "LineNr" > 193 < / span > < span class = "subxComment" > # in again.< / span >
< span id = "L194" class = "LineNr" > 194 < / span > < span class = "subxComment" > # - does not stop showing the cursor at this location when the cursor moves< / span >
< span id = "L195" class = "LineNr" > 195 < / span > < span class = "subxFunction" > draw-cursor-on-real-screen< / span > : < span class = "subxComment" > # g: grapheme< / span >
< span id = "L196" class = "LineNr" > 196 < / span > < span class = "subxS1Comment" > # . prologue< / span >
< span id = "L197" class = "LineNr" > 197 < / span > 55/push-ebp
< span id = "L198" class = "LineNr" > 198 < / span > 89/< - %ebp 4/r32/esp
< span id = "L199" class = "LineNr" > 199 < / span > < span class = "subxS1Comment" > # . save registers< / span >
< span id = "L200" class = "LineNr" > 200 < / span > 50/push-eax
< span id = "L201" class = "LineNr" > 201 < / span > 51/push-ecx
< span id = "L202" class = "LineNr" > 202 < / span > < span class = "subxComment" > #< / span >
< span id = "L203" class = "LineNr" > 203 < / span > (< a href = '103grapheme.subx.html#L157' > cursor-position-on-real-screen< / a > ) < span class = "subxComment" > # => eax, ecx< / span >
< span id = "L204" class = "LineNr" > 204 < / span > (< a href = '103grapheme.subx.html#L17' > draw-grapheme-on-real-screen< / a > *(ebp+8) %eax %ecx 0 7)
< span id = "L205" class = "LineNr" > 205 < / span > < span class = "Constant" > $draw-cursor-on-real-screen:end< / span > :
< span id = "L206" class = "LineNr" > 206 < / span > < span class = "subxS1Comment" > # . restore registers< / span >
< span id = "L207" class = "LineNr" > 207 < / span > 59/pop-to-ecx
< span id = "L208" class = "LineNr" > 208 < / span > 58/pop-to-eax
< span id = "L209" class = "LineNr" > 209 < / span > < span class = "subxS1Comment" > # . epilogue< / span >
< span id = "L210" class = "LineNr" > 210 < / span > 89/< - %esp 5/r32/ebp
< span id = "L211" class = "LineNr" > 211 < / span > 5d/pop-to-ebp
< span id = "L212" class = "LineNr" > 212 < / span > c3/return
< span id = "L213" class = "LineNr" > 213 < / span >
< span id = "L214" class = "LineNr" > 214 < / span > == data
< span id = "L215" class = "LineNr" > 215 < / span >
< span id = "L216" class = "LineNr" > 216 < / span > < span class = "subxComment" > # The cursor is where certain Mu functions (usually of the form< / span >
< span id = "L217" class = "LineNr" > 217 < / span > < span class = "subxComment" > # 'draw*cursor*') print to by default.< / span >
< span id = "L218" class = "LineNr" > 218 < / span > < span class = "subxComment" > #< / span >
< span id = "L219" class = "LineNr" > 219 < / span > < span class = "subxComment" > # We don't bother displaying the cursor when drawing. It only becomes visible< / span >
< span id = "L220" class = "LineNr" > 220 < / span > < span class = "subxComment" > # on draw-cursor, which is quite rickety (see above)< / span >
< span id = "L221" class = "LineNr" > 221 < / span > < span class = "subxComment" > #< / span >
< span id = "L222" class = "LineNr" > 222 < / span > < span class = "subxComment" > # It's up to applications to manage cursor display:< / span >
< span id = "L223" class = "LineNr" > 223 < / span > < span class = "subxComment" > # - clean up where it used to be< / span >
< span id = "L224" class = "LineNr" > 224 < / span > < span class = "subxComment" > # - display the cursor before waiting for a key< / span >
< span id = "L225" class = "LineNr" > 225 < / span > < span class = "subxComment" > # - ensure its location appropriately suggests the effect keystrokes will have< / span >
< span id = "L226" class = "LineNr" > 226 < / span > < span class = "subxComment" > # - ensure its contents (and colors) appropriately reflect the state of the< / span >
< span id = "L227" class = "LineNr" > 227 < / span > < span class = "subxComment" > # screen< / span >
< span id = "L228" class = "LineNr" > 228 < / span > < span class = "subxComment" > #< / span >
< span id = "L229" class = "LineNr" > 229 < / span > < span class = "subxComment" > # There's no blinking, etc. We aren't using any hardware-supported text mode< / span >
< span id = "L230" class = "LineNr" > 230 < / span > < span class = "subxComment" > # here.< / span >
< span id = "L231" class = "LineNr" > 231 < / span > < span class = "SpecialChar" > Real-screen-cursor-x< / span > :
< span id = "L232" class = "LineNr" > 232 < / span > 0/imm32
< span id = "L233" class = "LineNr" > 233 < / span > < span class = "SpecialChar" > Real-screen-cursor-y< / span > :
< span id = "L234" class = "LineNr" > 234 < / span > 0/imm32
2021-01-10 03:02:23 +00:00
< / pre >
< / body >
< / html >
<!-- vim: set foldmethod=manual : -->